## ---- echo = FALSE------------------------------------------------------------
library(iterpc)

## -----------------------------------------------------------------------------
I <- iterpc(5, 2)
getall(I)

## -----------------------------------------------------------------------------
I <- iterpc(5, 2, replace = TRUE)
getall(I)

## -----------------------------------------------------------------------------
x <- c("a", "a", "b", "c")
I <- iterpc(table(x), 2)
# or I <- iterpc(c(2,1,1), 2, label=c("a", "b", "c"))
getall(I)

## -----------------------------------------------------------------------------
x <- c("a", "a", "b", "c")
I <- iterpc(table(x), 2, replace = TRUE)
# or I = iterpc(c(2,1,1), 2, label=c("a", "b", "c"), replace=TRUE)
getall(I)