#load test data
data(mdr1) #consider a subset with the response and the first 10 predictors
fit1<-mdr.3WS(data=mdr1[,1:11],K=2) #fit mdr model with 3WS
summary(fit1) #summarizes results of the fit
fit2<-mdr.cv(data=mdr1[,1:11],K=2,cv=5) #fit mdr model with 5-fold CV
summary(fit2)
Run the code above in your browser using DataLab