## Fitting a four-parameter Weibull model
model1 <- multdrc(FA, fct = w4())
## Updating 'model1' by fitting a three-parameter Weibull model
model2 <- update(model1, fct = w3())
anova(model2, model1)
rm(model1, model2)
Run the code above in your browser using DataLab