tests/testthat/test_mean_precip_by_season.R

test_that(
  "Seasons equal 4 when using mean_precip_by_season",
  {
    data(monthly_precip)
    expect_equal(length(mean_precip_by_season(precip_data= monthly_precip, year=2012)$Season), 4)

  }
)
jkmiller-wildlife/PrecipPackage documentation built on June 18, 2019, 1:34 p.m.