mydata <- Read("Reading", format="lessR")
# compare least-squares models
mydata <- Read("Reading", format="lessR")
Nest(Reading, c(Absent), c(Verbal,Absent,Income))
# compare logistic models
mydata <- Read("BodyMeas", format="lessR")
Nest(Gender, c(Weight, Hips, Hand, Shoe),
c(Height, Weight, Waist, Hips, Chest, Hand, Shoe), method="logit")
Run the code above in your browser using DataLab