R/lmLSE.r

Defines functions lmLSE

Documented in lmLSE

lmLSE <- function(D, Y){

beta <- (MASS::ginv(t(Y) %*% Y)) %*% t(Y) %*% D
L <- lmSS(beta, D, Y)$L
return(list("L" = L, "beta" = beta))
}

Try the OrdFacReg package in your browser

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

OrdFacReg documentation built on May 1, 2019, 10:06 p.m.