# Create simple growth data
simple_data <- data.frame(
time = rep(0:7, 4),
response = rnorm(32, mean = rep(seq(0, 50, length.out = 8), 4), sd = 2)
)
# Optimize parameters
params <- optimize_simple(simple_data, constraints = "positive")
print(params)
Run the code above in your browser using DataLab