https://github.com/cran/ftsa
Tip revision: 6e333174683e37dfaa2c05aaff1512e27263364e authored by Han Lin Shang on 23 January 2024, 05:40:15 UTC
version 6.4
version 6.4
Tip revision: 6e33317
repmat.R
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)))
}
