set.seed(123L)
x = rep( c(0, 2^(-4:4)), each=3 ) ## Dose
theta = c(0, 100, 2, 1, -0.5) ## Model parameters
y = hill_quad_model(theta, x) + rnorm( length(x), mean=0, sd=5 )
## Generate data
hill_quad_model(theta, x)
attr(hill_quad_model, "gradient")(theta, x)
attr(hill_quad_model, "start")(x, y)
attr(hill_quad_model, "backsolve")(theta, 50)
Run the code above in your browser using DataLab