R/random.R

In metrumresearchgroup/metrumrg: Pharmacometric Tools for Data Preparation, Modeling, Simulation, and Reporting

random <- function (x, ...)   UseMethod("random")

# adapted from utils:::head.data.frame
random.data.frame <- function (x, n = 6L, ...) 
{
  stopifnot(length(n) == 1L)
  n <- if (n < 0L) 
    max(nrow(x) + n, 0L)
  else min(n, nrow(x))
  ii <- sort(sample(seq_len(nrow(x)), n))
  x[ii, , drop = FALSE]
}