https://github.com/cran/pracma
Tip revision: c1688b374d201c13fb40b4dda2d2a89e34b94ec6 authored by Hans W. Borchers on 23 January 2021, 09:10:02 UTC
version 2.3.3
version 2.3.3
Tip revision: c1688b3
eye.R
##
## e y e . R Generate basic Matrices
##
eye <- function(n, m = n) {
stopifnot(is.numeric(n), length(n) == 1,
is.numeric(m), length(m) == 1)
n <- floor(n)
m <- floor(m)
if (n <= 0 || m <= 0) return(matrix(NA, 0, 0))
else return(base::diag(1, n, m))
}
ones <- function(n, m = n) {
stopifnot(is.numeric(n), length(n) == 1,
is.numeric(m), length(m) == 1)
n <- floor(n)
m <- floor(m)
if (n <= 0 || m <= 0) return(matrix(1, 0, 0))
else return(matrix(1, n, m))
}
zeros <- function(n, m = n) {
stopifnot(is.numeric(n), length(n) == 1,
is.numeric(m), length(m) == 1)
n <- floor(n)
m <- floor(m)
if (n <= 0 || m <= 0) return(matrix(0, 0, 0))
else return(matrix(0, n, m))
}