R/predict.BANOVA.Poisson.R

Defines functions predict.BANOVA.Poisson

Documented in predict.BANOVA.Poisson

predict.BANOVA.Poisson <-
function(object, newdata = NULL,...){
  if(object$single_level){
    sol <- predict.means(object$samples_l1_param, object$data, object$dMatrice$X, object$dMatrice$Z_full, 
                         mf1 = object$mf1, mf2 = object$mf2, newdata, model = 'PoissonNormal')
  }else{
    sol <- predict.means(object$samples_l2_param, object$data, object$dMatrice$X, object$dMatrice$Z_full, 
                         mf1 = object$mf1, mf2 = object$mf2, newdata, model = 'PoissonNormal', l2_sd = object$samples_l2_sigma_param)
  }
  return(sol)
}

Try the BANOVA package in your browser

Any scripts or data that you put into this service are public.

BANOVA documentation built on June 21, 2022, 9:05 a.m.