R/matP.R

In CARMS: Continuous Time Markov Rate Modeling for Reliability Analysis

#matP.R

# extracts the matrix of probabilities from a carms object simulation 

matP<-function(x) {

	# need to test that x is a carms object among perhaps other validations				
	if(!is(x,"carms")){				
		stop("x  argument is not of class  carms ")			
	}				
	if(is.null(x$simulation)) stop("carms object has no simulation")
	
	P<-x$simulation$P
	P 
}