log_factorial <- function(x) {
m <- apply(x, c(1, 2), function(t)
if (is.na(t)) {
NA
} else if (t == 0) {
1
} else
sum(log(1:t)))
return(m)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.