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/mgcca documentation built on Feb. 19, 2022, 10:29 p.m.