Nothing
"rounding" <-
function(y, m){
a <- y / m - 0.5 / (m + 1)
a <- ifelse(a < 0, 0, a)
a <- ifelse(y == m, 1 - 0.5 / (m + 1), a)
b <- y / m + 0.5 / (m + 1)
b <- ifelse(b > 1, 1, b)
b <- ifelse(y == 0, 0.5 / (m + 1), b)
cbind(a, b)
}
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.