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