Nothing
drug.trial.table<-c(120,60,10,10)
names(drug.trial.table)<-c("Marked","Moderate", "Slight","Stationary")
drug.trial.table
barplot(drug.trial.table,main="Responses to new drug",xlab="response",ylab="frequency")
freq1way(drug.trial.table,c(0.5,0.25,0.1,0.15))
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.