Nothing
CreData <-
function(ndose = 3, dosenames = paste("dose", 1:ndose, sep=" ")){
data <- data.frame(dose = 1:ndose, npt = rep(0,ndose), ndlt = rep(0,ndose), row.names = dosenames)
return(data)
}
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.