A Re-Sampling Approach 1

set.seed(1)
x <- rbind(xtrain, xtest)
y <- c(as.numeric(ytrain), as.numeric(ytest))

x <- as.matrix(x)
x1 <- x[which(y == 2),]
x2 <- x[which(y == 4),]
n1 <- nrow(x1)
n2 <- nrow(x2)

Je kunt zo vaak indienen als je wenst. Er wordt enkel rekening gehouden met je laatst ingediende oplossing.