histogram( ~ Pulse, fit = "normal", data = StudentSurvey)
mean <- mean( ~ Pulse, data = StudentSurvey); mean
sd <- sd( ~ Pulse, data = StudentSurvey); sd
mean - 2*sd
mean + 2*sd
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.