R/fun.classCheck.R

Defines functions fun.classCheck

Documented in fun.classCheck

fun.classCheck <-
function(YPmodelResult,...)
{
	
	if(class(YPmodelResult) != 'YPmodel'){
		stop("Error: ", paste(sQuote("YPmodelResult"), sep = ""), " must be of class ", 
	            paste(dQuote("YPmodel"), sep = ""), sep = "")
	}

}
junlongsun/YPmodel documentation built on Oct. 25, 2020, 2:26 a.m.