https://github.com/cran/pracma
Raw File
Tip revision: e970b8e92676e0d1f2c84b116f0bad93b03b89c6 authored by Hans W. Borchers on 15 December 2019, 21:30:02 UTC
version 2.2.9
Tip revision: e970b8e
cond.R
##
##  c o  n d . r  Test suite
##


cond <- pracma::cond
normest <- pracma::normest

hilb <- pracma::hilb
all.equal(c(cond(hilb(1)), cond(hilb(2)), cond(hilb(3)), cond(hilb(4))),
          c(1, 19.281470, 524.056778,  15513.738739),
          tolerance = 1e-6)
magic <- pracma::magic
all.equal(normest(magic(5)), max(svd(magic(5))$d))
all.equal(normest(pracma::magic(100)), 500050)
back to top