R/g.grr.probit.R

Defines functions g.grr.probit

g.grr.probit <-
function(G,theta){
  res = rep(NA,length(G));
  res[G==0|G==2] = 2;
  res[G==1] = -4;
  return(res);
}
zhanghfd/CCGA documentation built on May 4, 2019, 10:16 p.m.