Nothing
#' Randomly select rows from a data.frame.
#'
#' Randomly select \code{n} rows from data.frame \code{x}.
#'
#' @param n numeric, size of sample.
#' @param x data.frame, data whose rows will be sampled.
#' @return data.frame, size n random subset of the rows of x
#' @seealso \code{\link{ScalablePCA}}, \code{\link{GetSampleFromFile}}, \code{\link{GetSampleFromFile}}
#' @references
#' \url{https://github.com/shaptonstahl/}
#' @author Stephen R. Haptonstahl \email{srh@@haptonstahl.org}
#' @examples
#' data(iris) # provides example data
#' x <- dils:::GetSampleFromDataFrame(10, iris)
GetSampleFromDataFrame <- function(n,
x) {
# Guardians
if(length(n) > 1) {
n <- n[1]
warning("n has multiple values; using only the first value")
}
stopifnot(is.numeric(n),
n > 0,
0 == n %% 1)
stopifnot(is.data.frame(x),
nrow(x) > 0,
nrow(x) >= n)
# perform the function
out <- x[sample(1:nrow(x), n),]
# prepare and return the output
return(out)
}
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.