# Define targets and augment data | |
target <- model.matrix(~0+species) | |
targetTrain <- do.call("rbind", lapply(1:(dim(Xtrain)[1]/length(fnamesTrain)), | |
function(x) target[-c(valIdx, testIdx),])) | |
targetVal <- do.call("rbind", lapply(1:(dim(Xval)[1]/length(fnamesVal)), | |
function(x) target[valIdx,])) | |
targetTest <- do.call("rbind", lapply(1:(dim(Xtest)[1]/length(fnamesTest)), | |
function(x) target[testIdx,])) | |
# Assemble Xs and Ys | |
train <- list(X = Xtrain, Y = targetTrain) | |
val <- list(X = Xval, Y = targetVal) | |
test <- list(X = Xtest, Y = targetTest) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment