Dolphin2 <- rbind(
do(8) * data.frame(response = "Improve", swimming = "Control"),
do(5) * data.frame(response = "Improve", swimming = "Dolphin"),
do(7) * data.frame(response = "NotImprove", swimming = "Control"),
do(10) * data.frame(response = "NotImprove", swimming = "Dolphin")
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.