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

## -----------------------------------------------------------------------------
library(psAve)

nrow(simplex_grid(2, step = 0.05))   # choose(21, 1) = 21
nrow(simplex_grid(3, step = 0.05))   # choose(22, 2) = 231
nrow(simplex_grid(4, step = 0.05))   # choose(23, 3) = 1771

## -----------------------------------------------------------------------------
head(simplex_grid(3, step = 0.25))
tail(simplex_grid(3, step = 0.25), 3)