Nothing
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)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.