R/personData.CQmodel.R

Defines functions personData.CQmodel

Documented in personData.CQmodel

personData.CQmodel <- function(thetas, ...) {
	
	model <- thetas
	
	if(!is.null(model$p.est)) {
	p.est <- model$p.est
	columns.at <- grep("^est", names(p.est), perl = TRUE)
	thetas <- p.est[columns.at]
	}
	else
		thetas <- 0
		
	names(thetas) <- model$dimensions
	return(thetas)
	
}

Try the WrightMap package in your browser

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

WrightMap documentation built on May 29, 2017, 11:01 a.m.