tests/testthat/test-skewness.R

In spatialwarnings: Spatial Early Warning Signals of Ecosystem Degradation

# 
# 
# 
context("Test that skewness computation is correct") 

test_that("Skewness computation is OK", { 
  X <- runif(1000) 
  expect_equal(moments::skewness(X), 
               raw_skewness(X))
})