On 11/22/2017 09:51 AM, Mattia Chiesa wrote:
Dear all,
we looked at the traceback():
7: array(STATS, dims[perm])
6: aperm(array(STATS, dims[perm]), order(perm))
5: sweep(WW[, 1:opt.comp], 2, Q2TT, "*")
4: apply(sweep(WW[, 1:opt.comp], 2, Q2TT, "*"), 1, sum)
3: VIP(pls.fit, opt.comp = opt.comp)
2
Dear all,
we looked at the traceback():
7: array(STATS, dims[perm])
6: aperm(array(STATS, dims[perm]), order(perm))
5: sweep(WW[, 1:opt.comp], 2, Q2TT, "*")
4: apply(sweep(WW[, 1:opt.comp], 2, Q2TT, "*"), 1, sum)
3: VIP(pls.fit, opt.comp = opt.comp)
2: bve_pls(df$class, as.matrix(data), ncomp = nu