Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.