Nothing
`parconv` <-
function (typ, a2 = NA, c = NA) {
ifelse(is.na(a2) && !is.na(c), C.a2(typ, c), ifelse(!is.na(a2) && is.na(c), a2.c(typ, a2), NA))
}
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.