https://github.com/cran/pracma
Raw File
Tip revision: 9a644c12884525087aa1db3ecf57586b29fb17d8 authored by HwB on 06 June 2011, 00:00:00 UTC
version 0.5-3
Tip revision: 9a644c1
mrank.R
##
##  m r a n k . r  Test suite
##


mrank <- pracma::mrank
nullspace <- pracma::nullspace

magic <- pracma::magic
all.equal(mrank(c()), 0)
r <- numeric(8)
for (i in 3:10){
    r[i-2] <- mrank(magic(i))
}
identical(r, c(3, 3, 5, 5, 7, 3, 9, 7))

hilb <- pracma::hilb
identical(mrank(hilb(6)), 6L)

# Vorzeichenwechsel moeglich
# N <- nullspace(magic(4))
# all.equal(as.numeric(N), c(0.2236, 0.6708, -0.6708, -0.2236),
#           tolerance = 1e-5)
back to top