tests/testthat/test_ST_Ranking.R

context("ST_Ranking")

data = suppressMessages(suppressWarnings(
  DL_Matches("ESP1",season1 = "2014-2015",season2 = "2014-2015")))
result = suppressMessages(suppressWarnings(ST_Ranking(data = data)))

test_that("Right ordering based on aggregate matches",{
  expect_equal(result$GD[16:18],c(-25,-35,-21))
})
tristanbains/rFootballAnalysis documentation built on May 8, 2019, 9:47 a.m.