packrat/lib/x86_64-pc-linux-gnu/3.2.2/openssl/doc/secure_rng.R

In etsakl/DasyMapR: Geographical ETRS-LAEA Grid Based Dasymetric Mapping

## ---- 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))