10 lines
308 B
R
Executable File
10 lines
308 B
R
Executable File
suppressPackageStartupMessages({ library(testthat) })
|
|
source(file.path('R','project','calculations.R'), local = TRUE)
|
|
|
|
test_that('compute_metrics calcule correctement la moyenne', {
|
|
df <- data.frame(value = c(1,2,3,4))
|
|
res <- compute_metrics(df)
|
|
expect_equal(res$mean, 2.5)
|
|
expect_equal(res$n, 4)
|
|
})
|