## ---- 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))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.