R/predict.SLS.R

predict.SLS<-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.