# extract the call for fitting a nls model with 8-parameter positive-begative Richards curve (model 1)
data(posnegRichards_calls)
data(posneg_data)
modtofit <- as.character( posnegRichards_calls [[1]] [1,] )
modtofit <- parse(text = modtofit)
modpar(posneg_data$age, posneg_data$mass) #create pnmodelparams for fixed parameters
eval(modtofit)
# view call for model 20
posnegRichards_calls [[1]] [20,]
Run the code above in your browser using DataLab