R/linkfn.R

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

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