Nothing
pulsePlot1 <- histogram(~pulse, data=littleSurvey)
pulsePlot2 <- histogram(~pulse, data=littleSurvey, subset=pulse>30)
pulseSubset <- littleSurvey$pulse[ littleSurvey$pulse > 30 ]
mean(pulseSubset)
median(pulseSubset)
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.