benchmarkRunModel.R 362 Bytes
Newer Older
Dorchies David's avatar
Dorchies David committed
1
df <- read.table("../tmp/mean_execution_time.tsv", sep = "\t", header = T)
2
3
4

lapply(df$model, function(model) {
  test_that(paste(model, ": RunModel should be as fast as CRAN version"), {
Dorchies David's avatar
Dorchies David committed
5
6
7
    sel <- df$model == model
    threshold <- max(0.2, -0.15 * df[sel, 2] + 1) # decrease from 1 at 0.1ms to 0.2 at 5.5ms
    expect_lt(df$evolution[sel], threshold)
8
9
  })
})
Dorchies David's avatar
Dorchies David committed
10