Revision 7ba95550c2066826c77bc78b974b7cb8cd416301 authored by Hans W. Borchers on 11 January 2017, 00:43:13 UTC, committed by cran-robot on 11 January 2017, 00:43:13 UTC
1 parent 00dcc24
Raw File
mldivide.R
##
##  m l d i v i d e . R  test suite
##


mldivide <- pracma::mldivide
mrdivide <- pracma::mrdivide

A <- matrix(c(8,1,6, 3,5,7, 4,9,2), nrow = 3, ncol = 3, byrow = TRUE)
identical(all.equal(mldivide(A, A), diag(1, 3, 3), tolerance=1e-7), TRUE)
identical(all.equal(mrdivide(A, A), diag(1, 3, 3), tolerance=1e-7), TRUE)
back to top