This function creates a GUI to manipulate parameters of a model with sliders. It is useful to get insight of a model.
eyefun(model, start, dots = NULL)
model | a formula with, at least, the right hand side. |
---|---|
start | a list in many elements as number of parameters in
|
dots | a named list with arguments passed to the
|
A GUI with one slider for each parameter in model
to
manipulate the curve of the model.
# NOT RUN { library(rpanel) model <- y ~ A/(1 + exp(-(x - M)/S)) start <- list(A = c(2, 5), M = c(0, 5), S = c(-1, 0.5, 1)) eyefun(model, start, dots = list(lwd = 2, col = "blue", from = 0, to = 10, ylim = c(0, 5), xlab = "Age", ylab = "Weight", main = expression(alpha/(1 + exp(-(x - M)/S))))) # }