# indices <- 1:nrow(genotData)
# trainSet <- sample(indices,100)
# testSet <- indices[-trainSet]
# temp <- recodeData(genotData)
# res <- mdr(X=temp[trainSet,], status=status[trainSet], fold=3, top=20)
# trainRes <- predict(res, data=temp[trainSet,])
# testRes <- predict(res, data=temp[testSet,])
Run the code above in your browser using DataLab