Nothing
setMethod("sample", "data.frame", function (x, size, replace = FALSE, prob = NULL){
if (missing(size))
size <- nrow(x)
ii <- sample.int(nrow(x), size, replace, prob)
x[ii,,drop=FALSE]
})
setMethod("sample", "data.set", function (x, size, replace = FALSE, prob = NULL){
if (missing(size))
size <- nrow(x)
ii <- sample.int(nrow(x), size, replace, prob)
x[ii,,drop=FALSE]
})
setMethod("sample", "importer", function (x, size, replace = FALSE, prob = NULL){
if (missing(size))
size <- nrow(x)
ii <- sample.int(nrow(x), size, replace, prob)
x[ii,,drop=FALSE]
})
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.