R/object.R

In TPmsm: Estimation of Transition Probabilities in Multistate Models

AddClasses <- function(object, value) {
	invisible( .Call(Rf_SetClass, object, c(class(object)[1], value), PACKAGE="TPmsm") );
} # AddClasses

RemoveClasses <- function(object) {
	invisible( .Call(Rf_SetClass, object, class(object)[1], PACKAGE="TPmsm") );
} # RemoveClasses