R/lmSS.r

Defines functions lmSS

Documented in lmSS

lmSS <- function(beta, D, Y){

L <- - sum((D - Y %*% beta) ^ 2)
dL <- 2 * t(Y)%*%((D - Y %*% beta))

return(list("L" = L, "dL" = dL))
}

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.