R/getScores_bd.R

Defines functions getScores_bd

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