Nothing
## ---- 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)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.