SA <- transform(SandwichAnts, groupMean = c(30.75, 34.00, 49.25, 30.75, 34.00, 49.25, 30.75, 34.00, 49.25, 30.75, 34.00, 49.25, 30.75, 34.00, 49.25, 30.75, 34.00, 49.25, 30.75, 34.00, 49.25, 30.75, 34.00, 49.25) )
SA <- transform(SA, grandMean = rep( 38, 24 ) )
SA
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.