R/h.fn.logit.R

Defines functions h.fn.logit

h.fn.logit <-
function(par,p.G,X,S){
  
  n = nrow(X);
  h = rep(0,n);
  
  for(g in 0:2){
    h = h + pene.fn.logit(S,g,X,1,par)*p.G[g+1];
  }
  return(h);
}
zhanghfd/CCGA documentation built on May 4, 2019, 10:16 p.m.