R/consensusOPLSDSS.R

In sib-swiss/dsSwissKnife: DataSHIELD Tools and Utilities - server side

consensusOPLSDSS <- function(arglist){
  myparent <- parent.frame()

 arglist <- .decode.arg(arglist)
 if(exists('data', where = arglist)){
   arglist$data <- .betterExtract(arglist$data, startEnv = myparent)
 }

  if(exists('Y', where = arglist)){
   arglist$Y<- .betterExtract(arglist$Y, startEnv = myparent)
 }
  out <- do.call(ConsensusOPLS::ConsensusOPLS, arglist)
  # out$call <- NULL
 #out$optimal <- out$optimal[c('modelCV', 'VIP')]
 #out$permuted <- lapply(out$permuted, function(x) x[c('modelCV', 'VIP')])
 out@cv <- out@cv[c('AllYhat', 'Q2Yhat', 'cvTestIndex','DQ2Yhat', 'nOcompOpt')]
 out@response = character()
 return(out)
}