R/fun.classCheck.R

In junlongsun/YPmodel: The Short-Term and Long-Term Hazard Ratio Model for Survival Data

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 = "")
	}

}