Nothing
salestable<-c(34,21,44,52,37,42)
names(salestable)<-c("A","B","C","D","E","F")
salestable
sales.output<-freq1way(salestable)
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.