saymrwulf/prophet
1
0
Fork 0
mirror of https://github.com/saymrwulf/prophet.git synced 2026-06-08 00:23:09 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix for broken tests (using local timezone)

Browse source
This commit is contained in:
Sean J. Taylor 2017-09-08 11:30:43 -07:00
parent 12aa324a83
commit c0a7eac3b3
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
R/tests/testthat/test_prophet.R
View file

@ -8,6 +8,9 @@ future <- DATA[(ceiling(N/2) + 1):N, ]
DATA2 <- read.csv('data2.csv')
DATA$ds <- prophet:::set_date(DATA$ds)
DATA2$ds <- prophet:::set_date(DATA2$ds)
test_that("fit_predict", {
skip_if_not(Sys.getenv('R_ARCH') != '/i386')
m <- prophet(train)
@ -160,17 +163,17 @@ test_that("override_n_changepoints", {
})
test_that("fourier_series_weekly", {
true.values <- c(0.7818315, 0.6234898, 0.9749279, -0.2225209, 0.4338837,
-0.9009689)
mat <- prophet:::fourier_series(DATA$ds, 7, 3)
true.values <- c(0.9165623, 0.3998920, 0.7330519, -0.6801727, -0.3302791,
-0.9438833)
expect_equal(true.values, mat[1, ], tolerance = 1e-6)
expect_equal(true.values, mat[1, ], tolerance = 1e-6)
})
test_that("fourier_series_yearly", {
true.values <- c(0.7006152, -0.7135393, -0.9998330, 0.01827656, 0.7262249,
0.6874572)
mat <- prophet:::fourier_series(DATA$ds, 365.25, 3)
true.values <- c(0.69702635, -0.71704551, -0.99959923, 0.02830854,
0.73648994, 0.67644849)
expect_equal(true.values, mat[1, ], tolerance = 1e-6)
expect_equal(true.values, mat[1, ], tolerance = 1e-6)
})
test_that("growth_init", {