inst/benchmarks/row_flignerkilleen.R

In matrixTests: Fast Statistical Hypothesis Tests on Rows and Columns of Matrices

#--- 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 <- rep(letters[1:5], each=nc/5)
    resM[as.character(nr), as.character(nc)] <- median(replicate(nreps, system.time(row_flignerkilleen(X, g))[3]))
    resB[as.character(nr), as.character(nc)] <- median(replicate(nreps, system.time(for(i in seq.int(nr)) fligner.test(X[i,], g))[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_flignerkilleen.png", width=1000, height=800)
plotBenchResults(resB, resM, "fligner.test(x, g)", "row_flignerkilleen(x, g)")
invisible(dev.off())