#' compute a vector of log factorial
#'
#' @param n.vec a vector of integers
#' @return a vector of log factorial for given integers
log_factorial_vec <- function(n.vec){
return(sapply(n.vec, log_factorial))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.