Skip to content

Commit

Permalink
fix typo
Browse files Browse the repository at this point in the history
  • Loading branch information
Bai-Li-NOAA committed Oct 30, 2024
1 parent b119e70 commit 393cda1
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions R/distribution_formulas.R
Original file line number Diff line number Diff line change
Expand Up @@ -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) {
Expand Down Expand Up @@ -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) {
Expand All @@ -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
Expand Down

0 comments on commit 393cda1

Please sign in to comment.