R/getScores.R

Defines functions getScores

getScores <- function(i, dat, As){
  scores <- dat[[i]]%*%As[[i]]
  colnames(scores) <- paste0("comp", 1:ncol(scores))
  scores
}
isglobal-brge/GCCA documentation built on Feb. 19, 2022, 9:21 a.m.