tests/testthat/test-wind-weights.R

context("wind_weight")

test_that("convert_proj", {

  x <- wind_weights(haidawave::cumshewa_wind)

  expect_is(x, "tbl")
  expect_identical(colnames(x), c("Direction", "Frequency", "Speed", "Weight"))
  expect_identical(nrow(x), 36L)
  expect_identical(sum(x$Weight), 1)
})
sebdalgarno/haidawave documentation built on Oct. 16, 2018, 6:11 p.m.