R/func.Crowcumsum.R

Crowcumsum <- function(x,n.row,n.col,n.block=1) {
  if(all(is.finite(x))) {
    return(.C("vecrowcumsum",x=as.double(x),as.integer(n.block),
              as.integer(n.col),as.integer(n.row),
              PACKAGE = "anchors")$x)
  } else {
    return(NULL)
  }
}

Try the anchors package in your browser

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

anchors documentation built on May 2, 2019, 6:59 a.m.