# given difference in sample proportions
diff <- diffprop(response ~ yawnSeed, level = "Yawn", data = Yawning2)
# previously found simulated standard deviation
sd
# margin of error for 95% CI
MoE <- 2 * sd; MoE
# lower limit of 95% CI
diff - MoE
# upper limit of 95% CI
diff + MoE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.