R/reply2.R

Defines functions reply2

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)
}
kweinert/wordlegame documentation built on April 29, 2022, 7:19 p.m.