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 Sept. 12, 2024, 5:07 p.m.