r_to_d <- function(r, round = 2) { d <- 2 * r/sqrt((1 - r^2)) d <- round(d, round) return(d) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.