Nothing
library(MASS)
fit_dist_pois <-
function(dist){
l<-length(dist)
fit_pois<-fitdistr(dist, "poisson")
data_pois<-rpois(l, fit_pois$estimate)
chi_pois<-chisq.test(dist,data_pois)
list(data_pois = data_pois, fit_pois = fit_pois, chi_pois = chi_pois)
}
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.