# Question Bank
questions <- list(
list(
id = "question_1",
title = "Question 1",
text = "What type of histogram is this?",
type = "radio",
choices = c(
"Log-normal (rlnorm)" = "rlnorm",
"Uniform (unif)" = "unif",
"Normal (rnorm)" = "rnorm",
"Exponential (exp)" = "exp"
),
answer = "rnorm"
),
list(
id = "question_2",
title = "Question 2",
text = "What type of histogram is this?",
type = "radio",
choices = c(
"Normal (rnorm)" = "rnorm",
"Uniform (unif)" = "unif",
"Log-normal (rlnorm)" = "rlnorm",
"Exponential (exp)" = "exp"
),
answer = "rlnorm"
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.