Nothing
burt <- function(data) {
disj <- dichotom(data,out='numeric')
res <- as.matrix(t(disj)) %*% as.matrix(disj)
return(res)
}
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.