Nothing
polyptb <- function(v,y){# v = polytome variable; y =skala
stopifnot(length(v)==length(y))
du <- dummy(v)
dul <- as.list(data.frame((du)))
names(dul) <- colnames(du)
erg <- sapply(dul, ptb, y)
return(erg)
}
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.