R/gfunction.bet.lam.lm.R

Defines functions gfunction.bet.lam.lm

gfunction.bet.lam.lm <- function(g.bet, lam){
  
  n <- nrow(g.bet[[1]])
  nalp <- length(g.bet)
  g.bet.lam <- matrix(NA, nrow = n, ncol = nalp)
  k <- 0
  for(m in g.bet){
    k <- k + 1
    g.bet.lam[, k] <- m %*% lam
  }
  
  g.bet.lam
  
}

Try the gim package in your browser

Any scripts or data that you put into this service are public.

gim documentation built on July 1, 2020, 6:29 p.m.