R/zeros.R

#' Fills an array with zeros (Octave)
#' @param x 1-D dimension
#' @param ... additional parameters
#' @export
#' @importFrom RcppOctave .CallOctave
m.zeros <- function(x, ...) {
    .CallOctave("zeros", x, ...)
}

#' Fills an array with zeros as in Matlab
#'
#' @param x 1-D dimension
#' @param ... additional parameters
#' @export
zeros <- function(x, ...) {
    stopifnot(is.numeric(x))
    args <- list(...)
    if (length(args)) {
        stopifnot(sapply(args,  is.numeric))
        array(0, dim=c(x, ...))
    } else {
        array(0, dim=c(x,x))
    }
}
f0nzie/rMRST documentation built on May 14, 2019, 1:44 p.m.