R/lL.gaussian.R

"lL.gaussian" <-
function(params){
    sigma <- params[p]
    mu <- c(X %*% params[-p])
    -sum(log(pnorm(qb, mu, sigma) - pnorm(qa, mu, sigma)))
}

Try the grouped package in your browser

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

grouped documentation built on May 2, 2019, 2:42 a.m.