sample10 <- sample(StatisticsPhD, 10); sample10
x.bar <- mean(~FTGradEnrollment, data = sample10); x.bar # mean enrollment in sample10
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.