linting

joshqsumner · joshqsumner · commit 26c51ced2e2d · 2025-07-28T14:23:50.000-05:00
diff --git a/R/growthSim.R b/R/growthSim.R
@@ -475,10 +475,10 @@ growthSim <- function(
         iter_data <- iter_data[, -which(colnames(iter_data) == "x")]
       }
       if (int) {
-        I_iter <- rnorm(1, mean = pars[["I"]], sd = noise[["I"]])
-        iter_data$y <- iter_data$y + I_iter
+        int_iter <- rnorm(1, mean = pars[["I"]], sd = noise[["I"]])
+        iter_data$y <- iter_data$y + int_iter
         if (returnParams) {
-          iter_data$I <- I_iter
+          iter_data$I <- int_iter
         }
       }
       return(iter_data)

Original file line number	Diff line number	Diff line change
`@@ -475,10 +475,10 @@ growthSim <- function(`
`475`	`475`	`iter_data <- iter_data[, -which(colnames(iter_data) == "x")]`
`476`	`476`	`}`
`477`	`477`	`if (int) {`
`478`		`- I_iter <- rnorm(1, mean = pars[["I"]], sd = noise[["I"]])`
`479`		`- iter_data$y <- iter_data$y + I_iter`
	`478`	`+ int_iter <- rnorm(1, mean = pars[["I"]], sd = noise[["I"]])`
	`479`	`+ iter_data$y <- iter_data$y + int_iter`
`480`	`480`	`if (returnParams) {`
`481`		`- iter_data$I <- I_iter`
	`481`	`+ iter_data$I <- int_iter`
`482`	`482`	`}`
`483`	`483`	`}`
`484`	`484`	`return(iter_data)`