features.final in perf.spls needs a fix

Create issue
Issue #14 resolved
Kim-Anh Le Cao repo owner created an issue

data(nutrimouse) X <- nutrimouse$gene Y <- nutrimouse$lipid

ncomp = 10 res.spls <- spls(X, Y, ncomp = ncomp, keepX = c(rep(10, ncomp)), keepY = c(rep(5, ncomp)), mode = 'regression') tune.spls <- perf(res.spls, validation = 'Mfold', folds = 10, criterion = 'all', progressBar = FALSE)

this below should output the same as:

tune.spls$features.finalX

this

select.var(res.spls, comp = 1) select.var(res.spls, comp = 2) select.var(res.spls, comp = 3) ## etc

Comments (2)

  1. Log in to comment