dwww Home | Show directory contents | Find package

data(iris)
iris$`a m` <- iris$Species
iris$`Sepal Width` <- iris$Sepal.Width
dat <<- iris
m <- lm(`Sepal Width` ~ Petal.Length + `a m` * log(Sepal.Length), data = dat)
m2 <- lm(`Sepal Width` ~ Petal.Length + `a m`, data = dat)

test_that("text_remove_backticks", {
  d <- data.frame(Parameter = names(coef(m2)), Estimate = unname(coef(m2)), stringsAsFactors = FALSE)
  expect_equal(
    text_remove_backticks(d)$Parameter,
    c("(Intercept)", "Petal.Length", "a mversicolor", "a mvirginica")
  )

  d <- data.frame(Parameter = names(coef(m2)), Term = names(coef(m2)), Estimate = unname(coef(m2)), stringsAsFactors = FALSE)
  x <- text_remove_backticks(d, c("Parameter", "Term"))
  expect_equal(x$Parameter, c("(Intercept)", "Petal.Length", "a mversicolor", "a mvirginica"))
  expect_equal(x$Term, c("(Intercept)", "Petal.Length", "a mversicolor", "a mvirginica"))

  d <- list(Parameter = names(coef(m2)), Estimate = unname(coef(m2)))
  expect_warning(text_remove_backticks(d, verbose = TRUE))
  expect_equal(
    text_remove_backticks(d),
    list(
      Parameter = c("(Intercept)", "Petal.Length", "a mversicolor", "a mvirginica"),
      Estimate = c(2.99186937324135, 0.298310962215218, -1.49267407227818, -1.67409183546024)
    ),
    tolerance = 1e-3
  )
})

test_that("backticks", {
  expect_equal(
    find_parameters(m),
    list(conditional = c(
      "(Intercept)", "Petal.Length", "a mversicolor",
      "a mvirginica", "log(Sepal.Length)", "a mversicolor:log(Sepal.Length)",
      "a mvirginica:log(Sepal.Length)"
    ))
  )

  expect_equal(
    get_parameters(m)$Parameter,
    c(
      "(Intercept)", "Petal.Length", "a mversicolor", "a mvirginica", "log(Sepal.Length)",
      "a mversicolor:log(Sepal.Length)", "a mvirginica:log(Sepal.Length)"
    )
  )

  expect_equal(
    get_statistic(m)$Parameter,
    c(
      "(Intercept)", "Petal.Length", "a mversicolor", "a mvirginica", "log(Sepal.Length)",
      "a mversicolor:log(Sepal.Length)", "a mvirginica:log(Sepal.Length)"
    )
  )

  expect_equal(
    clean_parameters(m)$Parameter,
    c(
      "(Intercept)", "Petal.Length", "a mversicolor", "a mvirginica", "log(Sepal.Length)",
      "a mversicolor:log(Sepal.Length)", "a mvirginica:log(Sepal.Length)"
    )
  )

  expect_equal(
    find_predictors(m),
    list(conditional = c("Petal.Length", "a m", "Sepal.Length"))
  )

  expect_equal(
    colnames(get_predictors(m)),
    c("Petal.Length", "a m", "Sepal.Length")
  )

  expect_equal(
    find_variables(m),
    list(
      response = "Sepal Width",
      conditional = c("Petal.Length", "a m", "Sepal.Length")
    )
  )

  expect_equal(
    find_terms(m),
    list(
      response = "Sepal Width",
      conditional = c("Petal.Length", "a m", "log(Sepal.Length)")
    )
  )

  expect_equal(
    rownames(get_varcov(m)),
    c(
      "(Intercept)", "Petal.Length", "a mversicolor", "a mvirginica",
      "log(Sepal.Length)", "a mversicolor:log(Sepal.Length)", "a mvirginica:log(Sepal.Length)"
    )
  )

  expect_equal(
    clean_names(m),
    c("Sepal Width", "Petal.Length", "a m", "Sepal.Length")
  )

  expect_equal(find_response(m), "Sepal Width")

  expect_equal(get_response(m), iris[["Sepal Width"]])
})


test_that("text_remove_backticks, character", {
  x <- "`test`"
  expect_equal(text_remove_backticks(x), "test")
  x <- "test"
  expect_equal(text_remove_backticks(x), "test")
  x <- NULL
  expect_null(text_remove_backticks(x))
})


test_that("text_remove_backticks, matrix", {
  x <- matrix(1:9, nrow = 3)
  out <- text_remove_backticks(x)
  expect_equal(dimnames(x), dimnames(out))

  colnames(x) <- rownames(x) <- 1:3
  out <- text_remove_backticks(x)
  expect_equal(dimnames(x), dimnames(out))

  colnames(x) <- rownames(x) <- paste0("`", 1:3, "`")
  out <- text_remove_backticks(x)
  expect_equal(list(as.character(1:3), as.character(1:3)), dimnames(out))
})

Generated by dwww version 1.15 on Wed May 22 21:38:56 CEST 2024.