reply2 <- function(w, allowed) {
prob <- repm[w,allowed]
prob <- table(prob)
prob <- as.vector(prob)
prob <- prob / sum(prob)
entr <- -sum(prob*log2(prob))
return(entr)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.