R/compVar.R

In Bayesthresh: Bayesian thresholds mixed-effects models for categorical data

Defines functions compVar

Documented in compVar

# Extract the variance components of model

compVar <- function(object)
{
	if(!inherits(object, "Bayesthresh"))
		stop("Use an object of class Bayesthresh")
	return(object$compVar)
}

Try the Bayesthresh package in your browser