Nothing
GIFTMW<-function(qtxt1, qtxt2, anstxt, rightans)
{
cat(qtxt1, "{\n", sep="")
for(i in 1:length(anstxt))
{
if(i==rightans)
cat("=", anstxt[i], "\n", sep="")
else
cat("~", anstxt[i], "\n", sep="")
}
cat("}\n",qtxt2, "\n\n")
}
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.