R/arraySelectLast.R

Defines functions arraySelectLast

arraySelectLast <- function(x, take)
{
  DIMS <- dim(x)
  nDIMS <- length(DIMS)
  COMMAS <- paste(rep(",", nDIMS - 1), collapse = "")
  eval(parse(text = paste("x[", COMMAS, "take]", collapse = "")))
}

Try the tensorBSS package in your browser

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

tensorBSS documentation built on June 2, 2021, 9:08 a.m.