R/fun.fix.mean.R

fun.fix.mean <-
function (value, data, param) 
{
    gld.val <- fun.mean.convert(c(0, value), param = param, val = mean(data))
    r <- sum(log(dgl(data, gld.val, param = param))) * -1
    return(r)
}

Try the GLDreg package in your browser

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

GLDreg documentation built on May 29, 2024, 2:57 a.m.