## p*log2(p) for p>=0 plogp <- function(p) { p*logp(p) } if (FALSE) { # usage examples plogp(0) plogp(1) plogp(0.5) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.