diff --git a/Paper/MeasurementVariance/Rplots.pdf b/Paper/MeasurementVariance/Rplots.pdf new file mode 100644 index 0000000..f173971 Binary files /dev/null and b/Paper/MeasurementVariance/Rplots.pdf differ diff --git a/Paper/MeasurementVariance/variance_50reps.png b/Paper/MeasurementVariance/variance_50reps.png index 8a86698..1633270 100644 Binary files a/Paper/MeasurementVariance/variance_50reps.png and b/Paper/MeasurementVariance/variance_50reps.png differ diff --git a/Paper/MeasurementVariance/Visualisation.R b/Paper/MeasurementVariance/visualisation.R similarity index 89% rename from Paper/MeasurementVariance/Visualisation.R rename to Paper/MeasurementVariance/visualisation.R index 897ebf4..260edf8 100644 --- a/Paper/MeasurementVariance/Visualisation.R +++ b/Paper/MeasurementVariance/visualisation.R @@ -15,14 +15,14 @@ extract_best_runs <- function(res) { states <- lapply(unique(errors$dataset), function(x) { states_subset <- states[states$dataset == x, ] errors_subset <- errors[errors$dataset == x, ] - errors_subset <- errors_subset[order(errors_subset$MeanSquareError), ][1:50,] + errors_subset <- errors_subset[order(errors_subset$MeanSquareError), ][1:50, ] states_subset[states_subset$repetition %in% errors_subset$repetition, ] }) states <- Reduce(rbind, states) params <- lapply(unique(errors$dataset), function(x) { params_subset <- params[params$dataset == x, ] errors_subset <- errors[errors$dataset == x, ] - errors_subset <- errors_subset[order(errors_subset$MeanSquareError), ][1:50,] + errors_subset <- errors_subset[order(errors_subset$MeanSquareError), ][1:50, ] params_subset[params_subset$repetition %in% errors_subset$repetition, ] }) params <- Reduce(rbind, params) @@ -108,19 +108,30 @@ p_ida <- plot_fct("ida_100.RData") p_gda <- plot_fct("gda_100.RData") p_dba <- p_dba + theme(legend.position = "none") p_ida <- p_ida + theme(legend.position = "none") -p1 <- plot_grid(p_dba, p_ida, p_gda, +p_gda <- p_gda + theme( + legend.position = "inside", + legend.position.inside = c(1.15, 0.8) +) +p1 <- plot_grid(p_dba, p_ida, p_gda, empty_plot, nrow = 1, + rel_widths = c(1, 1, 1, 0.3), labels = c("a", "b", "c") ) +p1 p_dba <- param_plot("dba_100Runs.RData") + theme(legend.position = "none") p_ida <- param_plot("ida_100.RData") + theme(legend.position = "none") p_gda <- param_plot("gda_100.RData") - -p2 <- plot_grid(p_dba, p_ida, p_gda, +p_gda <- p_gda + theme( + legend.position = "inside", + legend.position.inside = c(1.17, 0.8) +) +p2 <- plot_grid(p_dba, p_ida, p_gda, empty_plot, nrow = 1, + rel_widths = c(1, 1, 1, 0.3), labels = c("d", "e", "f") ) +p2 p <- plot_grid(p1, p2, nrow = 2) diff --git a/docs/reference/Communicator.html b/docs/reference/Communicator.html deleted file mode 100644 index 7caa906..0000000 --- a/docs/reference/Communicator.html +++ /dev/null @@ -1,224 +0,0 @@ - -Communicator class — Communicator • tsf - Skip to contents - - -
-
-
-

Communicator class

- -
Communicator.Rd
-
- -
-

a class for communicating via a temporary file

-
- - -
-

Public fields

-

file
-

is a file which contains the current status

- - -
result
-

is a file in which data can be written or read information.

- - -

-
-
-

Methods

- -
-

Public methods

- -

-

Method new()

-

create a new Communicator Object

-

Usage

-

Communicator$new()

-
- - -

-

Method getStatus()

-

get the current status

-

Usage

-

Communicator$getStatus()

-
- - -

-

Method setStatus()

-

write a status to the status file

-

Usage

-

Communicator$setStatus(msg)

-
- -
-

Arguments

-

msg
-

is the message which should be set in the file

- - -

-
- -

-

Method setData()

-

write data to the result file

-

Usage

-

Communicator$setData(data)

-
- -
-

Arguments

-

data
-

is a string which should be written to the result file

- - -

-
- -

-

Method getData()

-

get the current data from the result file

-

Usage

-

Communicator$getData()

-
- - -

-

Method interrupt()

-

set the status to "interrupt"

-

Usage

-

Communicator$interrupt()

-
- - -

-

Method ready()

-

set the status to "ready"

-

Usage

-

Communicator$ready()

-
- - -

-

Method running()

-

write a status to the status file.

-

Usage

-

Communicator$running(percComplete)

-
- -
-

Arguments

-

percComplete
-

is the message which should be set in the file. -If percComplete is not passed than the message is set to "Running..."

- - -

-
- -

-

Method isInterrupted()

-

Checks if the current status is "interrupt"

-

Usage

-

Communicator$isInterrupted()

-
- - -

-

Method destroy()

-

removes the temporary files. -This method has to be called at the end of the lifetime of the object!

-

Usage

-

Communicator$destroy()

-
- - -

-

Method clone()

-

The objects of this class are cloneable with this method.

-

Usage

-

Communicator$clone(deep = FALSE)

-
- -
-

Arguments

-

deep
-

Whether to make a deep clone.

- - -

-
- -
- -
- -
- - -
- - - - - - - diff --git a/docs/reference/ErrorClass.html b/docs/reference/ErrorClass.html deleted file mode 100644 index ded9f2f..0000000 --- a/docs/reference/ErrorClass.html +++ /dev/null @@ -1,129 +0,0 @@ - -ErrorClass class for handling errors — ErrorClass • tsf - Skip to contents - - -
-
-
-

ErrorClass class for handling errors

- -
ErrorClass.Rd
-
- -
-

a class for handling error messages

-
- - -
-

Public fields

-

message
-

the error message

- - -
object
-

an R object which can be stored in the class instance if an error and a result should be returned together.

- - -

-
-
-

Methods

- -
-

Public methods

- -

-

Method new()

-

create a new ErrorClass Object

-

Usage

-

ErrorClass$new(message, object = NULL)

-
- -
-

Arguments

-

message
-

the string describing the error

- - -
object
-

is optional if something besides the message should be stored

- - -

-
- -

-

Method clone()

-

The objects of this class are cloneable with this method.

-

Usage

-

ErrorClass$clone(deep = FALSE)

-
- -
-

Arguments

-

deep
-

Whether to make a deep clone.

- - -

-
- -
- -
- -
- - -
- - - - - - - diff --git a/docs/reference/convertToNum.html b/docs/reference/convertToNum.html deleted file mode 100644 index 9165859..0000000 --- a/docs/reference/convertToNum.html +++ /dev/null @@ -1,81 +0,0 @@ - -Conversion of expression to numbers — convertToNum • tsf - Skip to contents - - -
-
-
-

Conversion of expression to numbers

- -
convertToNum.Rd
-
- -
-

converts an expression to a number

-
- -
-

Usage

- 
convertToNum(l)
-
- -
-

Arguments

-
l
-

is an expression which should be evaluated. If the expression can -be evaluated to a number the number is returned. Otherwise an error is returned.

- -
- -
- - -
- - - - - - -