tests/testthat/test_Tools_margin.R

context("Margins of data")

           test_that("Tools_margin finds accurate margins of a data set", {
             np <- dplyr::select(AAF,"arr_time")
             mx <- max(np,na.rm = T)
             mn <- min(np,na.rm = T)
           expect_identical(Tools_margin(AAF,"arr_time"),c(np,mx,mn))
           })
JWooll/Homework3 documentation built on May 26, 2019, 7:28 a.m.