Nothing
local({
## Vorbereiten
require(klausuR)
## Berechne
klsr.data.obj <- klausur.data(answ=antworten, corr=answers, marks=notenschluessel)
## Drucke Ergebnisse
rk.header("klausuR: Prepare Test Data")
assign("klsr.data.obj", klsr.data.obj, envir=.GlobalEnv)
})
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.