### Displaying the data set
#FA
#
### Fitting a four-parameter logistic regression
### with user-defined parameter names
#model1 <- multdrc(MEANLR~MM, data=FA,
#fct = l4(names = c("Slope", "Lower Limit", "Upper Limit", "ED50")))
#
### Getting a summary of the fit
#summary(model1)
#
#
### Fitting a model with very small dose values
#FA2 <- FA
#FA2[,2] <- FA2[,2]/1e6
#model2 <- multdrc(MEANLR~MM, data=FA2)
#
### Removing the model objects
#rm(model1, model2, FA2)
Run the code above in your browser using DataLab