inst/benchmarks/row_levene.R

#--- libraries -----------------------------------------------------------------

library(matrixTests)

source("R/plot.R", chdir=TRUE)

#--- parameters ----------------------------------------------------------------

ncols <- c(10,100,1000)
nrows <- 10^c(1:5)
nreps <- 5

#--- benchmark -----------------------------------------------------------------

resM <- matrix(nrow=length(nrows), ncol=length(ncols))
rownames(resM) <- nrows
colnames(resM) <- ncols
resB <- resM

for(nr in nrows) {
  for(nc in ncols) {
    X <- matrix(rnorm(nr*nc), nrow=nr, ncol=nc)
    g <- as.factor(rep(letters[1:5], each=nc/5))
    resM[as.character(nr), as.character(nc)] <- median(replicate(nreps, system.time(row_levene(X, g))[3]))
    resB[as.character(nr), as.character(nc)] <- median(replicate(nreps, system.time(for(i in seq.int(nr)) car::leveneTest(X[i,], g, center="mean"))[3]))
    cat("rows:", nr, "cols:", nc, "base:", round(resB[as.character(nr),as.character(nc)],3), "(s)", "matrixTests:", round(resM[as.character(nr),as.character(nc)],3), "(s)", "\n")
  }
}

#--- plot ----------------------------------------------------------------------

png("row_levene.png", width=1000, height=800)
plotBenchResults(resB, resM, "car::leveneTest(x, g, center='mean')", "row_levene(x, g)")
invisible(dev.off())
karoliskoncevicius/matrixTests documentation built on Oct. 18, 2023, 5:50 a.m.