R/getWeights.R

Defines functions getWeights

getWeights <- function(i, A, XX, K){
  KXA <- K[[i]]%*%XX[[i]]%*%A[[i]]
  vv <- 1/apply(KXA, 2, sd)
  vv <- cbind(rep(1,nrow(A[[i]])))%*%rbind(vv)
  As <- A[[i]]*vv
  rownames(As) <- colnames(XX[[i]])
  As
}
isglobal-brge/GCCA documentation built on Feb. 19, 2022, 9:21 a.m.