R/solution.R

Defines functions solution

solution <- function(i, XX, K, XKX) {
  xkx <- XKX[[i]][[1]]
  xk <- XKX[[i]][[2]]
  # ans <- K[[i]]%*%XX[[i]]%*%xkx%*%xk
  ans <- mult_wX(XX[[i]], diag(K[[i]]))%*%xkx%*%xk
  ans
}
isglobal-brge/GCCA documentation built on Feb. 19, 2022, 9:21 a.m.