inst/examples/ex_crossentropy.R
ps <- c(0, 1, 1, 0, 1, 0, 0, 1, 0, 0)
qs <- c(0, 0, 0, 0, 0, 1, 1, 0, 0, 1)
cross_entropy(ps, qs) # 1.003530
cross_entropy(qs, ps) # 0.912454
ps <- c(0, 1, 1, 0, 1, 0, 0, 1, 0, 0)
qs <- c(0, 0, 0, 0, 0, 1, 1, 0, 0, 1)
cross_entropy(ps, qs) # 1.003530
cross_entropy(qs, ps) # 0.912454
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.
