library(testthat)

# Test pour la fonction var_tab

test_that("var_tab calcule correctement les valeurs", {
  reg <- lm(mpg ~ wt + hp, data = mtcars)
  result <- var_tab(reg, mtcars$mpg)
  expect_equal(nrow(result), 3)
  expect_equal(colnames(result), c("variance", "SCE", "ddl", "CM"))
  expect_true(all(result$SCE >= 0))
})

# Test pour la fonction VIF

test_that("VIF calcule correctement les facteurs d'inflation de la variance", {
  result <- VIF(mtcars[, c("mpg", "hp", "wt")])
  expect_equal(length(result), 3)
  expect_true(all(result >= 1))
})

# Test pour la fonction mse

test_that("mse calcule correctement l'erreur quadratique moyenne", {
  y_true <- c(3, -0.5, 2, 7)
  y_pred <- c(2.5, 0.0, 2, 8)
  result <- mse(y_true, y_pred)
  expect_equal(result, mean((y_true - y_pred)^2))
})

# Test pour la fonction press

test_that("press calcule correctement la statistique PRESS", {
  reg <- lm(mpg ~ wt + hp, data = mtcars)
  result <- press(reg)
  expect_true(result >= 0)
})

# Test pour la fonction ANOVA_condi

test_that("ANOVA_condi calcule correctement le tableau ANOVA conditionnel", {
  x <- rnorm(30)
  y <- gl(3, 10)
  z <- gl(2, 15)
  result <- ANOVA_condi(x, y, z, which = 1)
  expect_true(is.data.frame(result))
  expect_equal(ncol(result), 4)
})