Nothing
put_labels_to_coefficients <-function(beta, labels){
beta_ <- as.data.frame(beta)
names(beta_)<- labels
beta_
}
is_there_parameter <-function(parameters, par_name)
{
sum(match(names(parameters),par_name,nomatch=0))
}
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.