Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.