R/para_trans_inv.R

Defines functions para_trans_inv

para_trans_inv <-
function(A) {
	
  Q = dim(A)[1];
  B = exp(A);
  D = 1/(1+apply(B,1,sum));
  transmat = cbind(B*matrix(D,Q,Q-1),D)

}

Try the NHMSAR package in your browser

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

NHMSAR documentation built on Dec. 5, 2017, 9:03 a.m.