Nothing
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.