R/h.fn.probit.R

Defines functions h.fn.probit

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