## Not run:
# require(prospectr)
#
# data(NIRsoil)
#
# Xu <- NIRsoil$spc[!as.logical(NIRsoil$train),]
# Yu <- NIRsoil$CEC[!as.logical(NIRsoil$train)]
# Yr <- NIRsoil$CEC[as.logical(NIRsoil$train)]
# Xr <- NIRsoil$spc[as.logical(NIRsoil$train),]
#
# Xu <- Xu[!is.na(Yu),]
# Yu <- Yu[!is.na(Yu)]
#
# Xr <- Xr[!is.na(Yr),]
# Yr <- Yr[!is.na(Yr)]
#
# ctrl <- mblControl(sm = "pls",
# pcSelection = list("opc", 40),
# valMethod = c("NNv"),
# scaled = TRUE, center = TRUE)
#
# ex1 <- mbl(Yr = Yr, Xr = Xr, Yu = NULL, Xu = Xu,
# mblCtrl = ctrl,
# distUsage = "predictors",
# k = seq(30, 150, 15),
# method = "wapls1",
# plsC = c(7, 20))
#
# getPredictions(ex1)
# ## End(Not run)
Run the code above in your browser using DataLab