tests/zigg.R

library(zigg)
options(digits=6, scipen=99)

N <- 1e5
zsetseed(12345)

rn <- zrnorm(N)
round(summary(rn), digits=4)

re <- zrexp(N)
round(summary(re), digits=4)

ru <- zrunif(N)
round(summary(ru), digits=4)

zsetseed(12345)
all.equal(rn, zrnorm(N))
all.equal(re, zrexp(N))
all.equal(ru, zrunif(N))

Try the zigg package in your browser

Any scripts or data that you put into this service are public.

zigg documentation built on April 12, 2025, 2:10 a.m.