R/predict.SICS.R

predict.SICS<-function(beta,x,family){
  eta=as.numeric(cbind(1, x) %*% beta)
  yhat=eta
  if (family == 'binomial') {
    yhat=exp(eta) / (1 + exp(eta))
  }
  yhat
}
lichen-lab/SICS documentation built on May 6, 2019, 7:18 a.m.