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.