A Re-Sampling Approach 1

Log in om je oplossingen te testen.
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.
Log in om je oplossingen te testen.