Nothing
## ----echo = FALSE, message = FALSE--------------------------------------------
knitr::opts_chunk$set(comment = "")
library(openssl)
## -----------------------------------------------------------------------------
rnd <- rand_bytes(10)
print(rnd)
## -----------------------------------------------------------------------------
as.numeric(rnd)
## -----------------------------------------------------------------------------
x <- rand_bytes(1)
as.logical(rawToBits(x))
## -----------------------------------------------------------------------------
rand_num(10)
## -----------------------------------------------------------------------------
# Secure rnorm
x <- qnorm(rand_num(1000), mean = 100, sd = 15)
hist(x)
## -----------------------------------------------------------------------------
# Secure rbinom
y <- qbinom(rand_num(1000), size = 20, prob = 0.1)
hist(y, breaks = -.5:(max(y)+1))
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.