# expectedPromptIndexSingleVersion
#
#
expectedPromptIndexSingleVersion <- function(esVersion, expectedPromptIndex, expectedCategory) {
PROMPTFALSE <- rep(0, times = nrow(esVersion))
PROMPTFALSE[esVersion[,"PROMPT"]%in%expectedPromptIndex == FALSE] <- 1
esVersion[,"PROMPTFALSE"] <- PROMPTFALSE
esVersion[,"EXPCATEGORY"] <- expectedCategory
return(esVersion)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.