utils/benchmarks/benchmark.R

In gowerc/diffdf: Dataframe Difference Tool

library(dplyr)
library(diffdf)

suppressWarnings(RNGversion("3.5.0"))

benchmark <- function(nrow, ncol, seedin, same = T){
  set.seed(seedin)
  data1 <- rnorm(nrow*ncol)
  X<- matrix(data1, ncol = ncol) %>% as.data.frame()
  if (!same){
  data2 <- rnorm(nrow*ncol)
  Y<- matrix(data2, ncol = ncol) %>% as.data.frame()
  start_time <- Sys.time()
  compob <- suppressMessages(suppressWarnings(diffdf(X,Y)))
  end_time <- Sys.time()
  start_time2 <- Sys.time()
  compob <- suppressMessages(suppressWarnings(all.equal(X,Y)))
  end_time2 <- Sys.time()  
  }else{
    start_time <- Sys.time()
    compob <- suppressMessages(suppressWarnings(diffdf(X,X)))
    end_time <- Sys.time()
    start_time2 <- Sys.time()
    compob <- suppressMessages(suppressWarnings(all.equal(X,X)))
    end_time2 <- Sys.time() 
  }
  list(diffdf = end_time - start_time,
       is.equal = end_time2 - start_time2)
}


seedset <- 10112017


benchmark(100, 500, seedset, T)
benchmark(100, 500, seedset, F)

benchmark(1000000, 100, seedset, T)
benchmark(100000, 100, seedset, F)

benchmark(1000, 1000, seedset, F)
benchmark(3e6, 100, seedset, F)