R/repmat.R

Defines functions repmat

repmat <- function(A, m, n = m)
{
    A <- as.matrix(A)
    tmp <- matrix(rep(t(A), m), nrow = m * nrow(A), byrow = TRUE)
    return(matrix(rep(tmp, n), ncol = n * ncol(tmp)))
}

Try the ftsa package in your browser

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

ftsa documentation built on May 29, 2024, 2:47 a.m.