Nothing
fixTau <- function(tpm) {
K <- nrow(tpm)
A <- t(apply(tpm,1,p2expForm))
tau <- as.vector(A[,-K])
names(tau) <- paste0("tau",row(tpm)[,-K],col(tpm)[,-K])
tau
}
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.