R/gethats.R

`gethats` <-
function (nobs, nvars, x.t, XWXinv, ww) 
{
    .C("hatsc", n = as.integer(nobs), p = as.integer(nvars), 
        x = as.double(x.t), invfisherinf = as.double(XWXinv), 
        w = as.double(ww), hat = double(nobs))$hat
}

Try the brglm package in your browser

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

brglm documentation built on April 6, 2019, 3 a.m.