tests/testthat/test-data-maars.R

In shamindras/maars: Tidy Inference Under Misspecified Statistical Models in R

set.seed(455343)

# Read in the (corrected) Boston Housing dataset from our package
boston_df <- boston_housing

test_that("Boston Housing data dimensions are as expected", {
  testthat::expect_equal(nrow(boston_df), 506)
  testthat::expect_equal(ncol(boston_df), 21)
})

# Read in the (corrected) Boston Housing dataset from our package
la_county_df <- la_county

test_that("La County data dimensions are as expected", {
    testthat::expect_equal(nrow(la_county_df), 505)
    testthat::expect_equal(ncol(la_county_df), 7)
})