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)