R/head.growth.R

Defines functions `head.growth`

`head.growth` <-
function(x, n = 6, ...) {
  if (!is(x, "growth")) stop("argument should be a growth object")
  xh = x@data$data[1:min(n, nrow(x@data$data)),]
  print(xh)
  invisible(x)
}

Try the languageR package in your browser

Any scripts or data that you put into this service are public.

languageR documentation built on May 2, 2019, 10:02 a.m.