## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(discretes)

## -----------------------------------------------------------------------------
integers()^2
2 * natural1() - 1   # odd positive integers
1 / 2^integers()     # reciprocals of powers of 2

## -----------------------------------------------------------------------------
numeric(0L) * natural1()

## -----------------------------------------------------------------------------
log(natural0())

## -----------------------------------------------------------------------------
dsct_transform(0:10, cos) # Same as cos(0:10)

## -----------------------------------------------------------------------------
dsct_transform(
  natural0(),
  fun = pnorm,
  inv = qnorm,
  range = c(0, 1)
)

## -----------------------------------------------------------------------------
dsct_transform(
  integers(from = 0, to = 3),
  fun = cos,
  inv = acos,
  domain = c(0, pi),
  range = c(-1, 1),
  dir = "decreasing"
)