R/invlinkfn.R

"invlinkfn" <-
function(x, family, ...){
args <- list(...)
switch( family,
"identity"=x,
"log"=log(x),
"logit"=log(x/(1-x))       ,
"hyper"=1/x-1 
)       

}
shug0131/mreg documentation built on Oct. 31, 2023, 5:33 a.m.