data(channing, package = "boot")
chan <- subset(channing, sex == "Male" & entry < exit & cens == 1)
with(chan, pmcc(entry, exit)) ## cannot handle right censored data
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.