features.final in perf.spls needs a fix

[Kim-Anh Le Cao]

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

[Florian Rohart]

a 1 was in line 462-463 instead of a k

I fixed it

[Florian Rohart]

see pull requests #25 for a fix