R/MCMCsample.R

Defines functions MCMCsample

Documented in MCMCsample

### Return the sample of MCMC process

MCMCsample <- function(object){
				if(!inherits(object, "Bayesthresh"))
								stop("Use an object of class Bayesthresh")
				if(object$Write!=TRUE) stop("'Write' is not TRUE")
				theta <- data.frame(object$outp.mcmc[[1]])
				colnames(theta) <- object$NamesTheta
				cutpoints <- object$outp.mcmc[[2]]
				Variance <- data.frame(object$outp.mcmc[[3]])
				colnames(Variance) <- object$NomesVu
				list(Theta=theta, Variance=Variance, cutpoints=cutpoints)

}

Try the Bayesthresh package in your browser

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

Bayesthresh documentation built on May 30, 2017, 6:24 a.m.