theta_bl1 <- log10(1 + 1 / (1:9)) theta_bl2 <- sapply(0:9, function(x) { sum(log10(1 + 1 / (10 * (1:9) + x))) })
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.