Nothing
z.pr.u = function(z, hk, mu, sigma, ph, H, n){
sigma = sigma[hk]
mu = mu[hk]
out <- .Call("stick_multnorm_z", z, ph, sigma, mu, n, H, PACKAGE="BHTSpack")
return(matrix(out, sum(n), H, byrow=TRUE))
}
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.