R/post.pred.R

Defines functions post.pred

Documented in post.pred

post.pred <-
function(z,fun=NULL)
{
	x.n.new <- sapply(as.list(1:z$iter),function(g) distr(z$input$n,z$input$dist,z$sims[g,],'r'))
	if(!is.null(fun)) return(apply(x.n.new,2,fun))
	else return(x.n.new)
}

Try the FAmle package in your browser

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

FAmle documentation built on March 18, 2022, 5:29 p.m.