R/ghq.R

Defines functions ghq

##' @importFrom fastGHQuad gaussHermiteData
ghq <- function(n = 1, modify = TRUE) {
    rule <- fastGHQuad::gaussHermiteData(n)
    return(list(nodes=rule$x,
                weights= if (modify) rule$w*exp(rule$x^2) else rule$w))
}

Try the robustlmm package in your browser

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

robustlmm documentation built on May 29, 2024, 4:57 a.m.