Nothing
chiprod <- function(dimension, degrees, iterations = 1) {
A <- matrix(stats::rchisq(dimension * iterations, (degrees - dimension + 1):degrees),
nrow = dimension, ncol = iterations
)
product <- apply(A, 2, prod)
return(product)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.