diff --git a/R/distribution_formulas.R b/R/distribution_formulas.R index be10be41..dc18a983 100644 --- a/R/distribution_formulas.R +++ b/R/distribution_formulas.R @@ -192,7 +192,7 @@ new_data_distribution <- function( new_module$log_sd$resize(length(sd$value)) for(i in seq_along(sd$value)){ new_module$log_sd[i]$value <- log(sd$value[i]) - } + } # setup whether or not sd parameter is estimated if (length(sd$value) > 1 && length(sd$estimated) == 1) { @@ -293,7 +293,7 @@ new_process_distribution <- function(module, new_module$log_sd$resize(length(sd$value)) for(i in seq_along(sd$value)){ new_module$log_sd[i]$value <- log(sd$value[i]) - } + } #setup whether or not sd parameter is estimated if (length(sd$value) > 1 && length(sd$estimated) == 1) { @@ -311,7 +311,7 @@ new_process_distribution <- function(module, n_dim <- length(module$field(par)) # create new Rcpp modules - new_module$x$resize(n_dim) <- + new_module$x$resize(n_dim) new_module$expected_values$resize(n_dim) # initialize values with 0