tests/testthat/test-mat2df.R

In Kmisc: Kevin Miscellaneous

library(Kmisc)
library(microbenchmark)

m <- matrix(1:9, nrow=3)
stopifnot( identical(
  unname(as.matrix( mat2df(m) )),
  m
) )

m1 <- mat2df(m)
gctorture(TRUE)
m2 <- mat2df(m)
gctorture(FALSE)
stopifnot( identical( m1, m2 ) )

stopifnot( identical(
  mat2df(m), as.data.frame(m)
) )

m <- matrix(1:1E6, nrow=1E5)
microbenchmark( times=10,
  mat2df(m),
  as.data.frame.matrix(m),
  .Call(Kmisc:::Cmat2df, m)
)