simplify source code
Hi Dennis, thank you very much. That works fine. Is there a possibility that R continue even if one of the models is not solvable? R currently terminates with an error message. greetings Christof Am 27-11-2011 01:34, schrieb Dennis Murphy:
vars<- c('y1', 'y2', 'y3')
# Function to create the model formula by plugging in the
# response y and run the model
mfun<- function(y) {
form<- as.formula(paste(y, 'cbind(1, exp(x/th))', sep = ' ~ '))
nls(form, data = dg, start = list(th = 0.3), algorithm = 'plinear')
}
# Generate a list of model objects:
mlist<- lapply(vars, mfun)