R/summary.blca.boot.R

In BayesLCA: Bayesian Latent Class Analysis

summary.blca.boot <-
function(object, ...){
	sum1<- c(nrow(object$samples$classprob), object$logpost, object$AIC, object$BIC)
	names(sum1)<- c("IterNumber", "Log-Posterior", "AIC", "BIC")
	
	object$method<- "Bootstrap"
	object$printnames<- c("Number of Samples:", "Log-Posterior:", "AIC:", "BIC:")
	object$sum1<- sum1

	NextMethod("summary")
	}