Nothing
library(iterpc)
I <- iterpc(5, 2, ordered = TRUE) getall(I)
I <- iterpc(5, 2, replace = TRUE, ordered = TRUE) getall(I)
x <- c("a", "a", "b", "c") I <- iterpc(table(x), 2, ordered = TRUE) # or I <- iterpc(c(2,1,1), 2, label=c("a", "b", "c"), ordered = TRUE) getall(I)
x <- c("a", "a", "b", "c") I <- iterpc(table(x), 2, replace = TRUE, ordered = TRUE) # or I = iterpc(c(2,1,1), 2, label=c("a", "b", "c"), replace= T RUE, ordered = 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.