# NOT RUN {
m <- matrix(1:6, 2,3)
stopifnot(identical(m, asNumeric(m)))# remains matrix
(M <- as.bigz(m) / 5) ##-> "bigq" matrix
asNumeric(M) # numeric matrix
stopifnot(all.equal(asNumeric(M), m/5))
# }
Run the code above in your browser using DataLab