tests/testthat/test-auto_dens_cont.R

test_that("auto_dens_cont works", {
  data(cars)

  densplots <- auto_dens_cont(data = cars)
  expect_true(is.list(densplots))

  expect_equal(densplots$speed$labels$caption, "Linea roja: Media \n Linea azul: Mediana")
  expect_equal(densplots$speed$labels$title, "Gráfica de densidades de speed")
})

Try the BiVariAn package in your browser

Any scripts or data that you put into this service are public.

BiVariAn documentation built on April 4, 2025, 1:04 a.m.