## load the sim0 dataset
data(sim0)
## Find the best DI model using autoDI and F-test selection
auto1 <- autoDI(y = "response", prop = c("p1","p2","p3"), data = sim0,
selection = "Ftest")
summary(auto1)
## Fit the FULL model using DI and the ID tag
m1 <- DI(y = "response", prop = c("p1","p2","p3"), DImodel = "FULL",
data = sim0)
summary(m1)
plot(m1)
# \donttest{
## Check goodness-of-fit using a half-normal plot with a simulated envelope
library(hnp)
hnp(m1)
# }
Run the code above in your browser using DataLab