hquest <- data.frame(
id = 1:10,
group = rep(c("height anx", "control"), each = 5),
gender = c("m", "f", "f", "m", "m", "f", "f", "f", "m", "m"),
age = c(35, 34, 27, 44, 21, 26, 36, 40, 25, 26),
trait_anx = c(28, 15, 19, 18, 23, 19, 18, 26, 19, 18),
acrophobia = c(56, 62, 65, 80, 50, 17, 12, 14, 8, 19),
sens_seek = c(36, 54, 38, 29, 60, 55, 63, 77, 50, 58)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.