```
print.jzs_med <-
function(x,...){
print(x[!(names(x)%in%c("cor_coef_samples","alpha_samples","beta_samples","tau_prime_samples","rho",
"prob_alpha","prob_beta","prob_tau_prime_samples",
"ab_samples","jagssamples","jagssamplesA","jagssamplesTB"))])
}
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.