data("MSWeb")
MSWeb10 <- sample(MSWeb[rowCounts(MSWeb) >10,], 100)
MSWeb10
esSplit <- evaluationScheme(MSWeb10, method="split",
train = 0.9, k=1, given=3)
esSplit
esCross <- evaluationScheme(MSWeb10, method="cross-validation",
k=4, given=3)
esCrossRun the code above in your browser using DataLab