Nothing
mult.choice <-
function (data, correct) {
X <- data.matrix(data)
p <- ncol(X)
if (length(correct) != p)
stop("'data' and 'correct' have incompatible dimensions.")
ind <- vector("logical", p)
for (i in 1:p)
ind[i] <- correct[i] %in% unique(X[, i])
if (!all(ind))
stop("correct answer(s) for item(s) ", paste(which(!ind), collapse = ", "), " cannot be find in 'data'.")
t(t(X) == correct) + 0.0
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.