# \donttest{
data("mosquito")
data("crisp")
nRep <- 2 # Number of MUVR2 repetitions
nOuter <- 4 # Number of outer cross-validation segments
varRatio <- 0.6 # Proportion of variables kept per iteration
classModel <- MUVR2_EN(X = Xotu,
Y = Yotu,
nRep = nRep,
nOuter = nOuter,
DA = TRUE,
modReturn = TRUE)
confusionMatrix(classModel)
MLModel <- MUVR2(X = crispEM,
ML = TRUE,
nRep = nRep,
nOuter = nOuter,
varRatio = varRatio,
method = "RF",
modReturn = TRUE)
confusionMatrix(MLModel)
# }
Run the code above in your browser using DataLab