R/tail.growth.R

Defines functions `tail.growth`

`tail.growth` <-
function(x, n = 6, ...) {
  if (!is(x, "growth")) stop("argument should be a growth object")
  m = nrow(x@data$data)
  xh = x@data$data[max((m-n+1),0):m,]
  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.