[Returnanalytics-commits] r4001 - pkg/Dowd/tests/testthat

[noreply at r-forge.r-project.org]

Author: dacharya
Date: 2015-11-18 10:28:19 +0100 (Wed, 18 Nov 2015)
New Revision: 4001

Removed:
   pkg/Dowd/tests/testthat/testAdjustedNormalESHotspots.R
Log:
Removed a file as it had problem with new version of testthat

Deleted: pkg/Dowd/tests/testthat/testAdjustedNormalESHotspots.R
===================================================================
--- pkg/Dowd/tests/testthat/testAdjustedNormalESHotspots.R	2015-10-26 11:54:52 UTC (rev 4000)
+++ pkg/Dowd/tests/testthat/testAdjustedNormalESHotspots.R	2015-11-18 09:28:19 UTC (rev 4001)
@@ -1,77 +0,0 @@
-test_that("Adjusted Normal ES Hotspots.",{
-
-  # Success - 1
-  vc.matrix <- matrix(c(2.5, 3.4, -1.9, 4.3, 2.3, -3.1, 4.3, -1.2, 1), 3, 3)
-  mu <- c(.4, -.3, .1)
-  skew <- .5
-  kurtosis <- 1.2
-  positions <- c(5,2,6)
-  cl <- .95
-  hp <- 280
-  val <- AdjustedNormalESHotspots(vc.matrix, mu, skew, kurtosis, positions, cl, hp)
-  expect_equal(c(4655.6, -725, 308.2), val, tolerance=1)
-  
-  
-  # Success - 2
-  vc.matrix <- matrix(c(2.6, 3.4, -1.9, 4.3, 2.3, -3.1, 4.3, -1.2, 
-                       1, 3.4, -2, -5, -1.2, 3.2, 0, -1.2), 4, 4)
-  mu <- c(-.5, -.3, -1.2, 0)
-  skew <- -.4
-  kurtosis <- 2.2
-  positions <- c(4,1,10,3)
-  cl <- .99
-  hp <- 50
-  val <- AdjustedNormalESHotspots(vc.matrix, mu, skew, kurtosis, positions, cl, hp)
-  expect_equal(c(1482.4, 2096.8, -5079.3, -2071.2), val, tolerance=1)
-  
-  # Error - 1
-  vc.matrix <- matrix(c(2.5, 3.4, -1.9, 4.3, 2.3, -3.1, 4.3, -1.2, 1), 3, 3)
-  mu <- c(.4, -.3, .1)
-  skew <- .5
-  kurtosis <- 1.2
-  positions <- c(5,2,6)
-  cl <- .95
-  hp <- -10
-  expect_error(val <- AdjustedNormalESHotspots(vc.matrix, mu, skew, kurtosis, positions, cl, hp))
-  
-  # Error - 2
-  vc.matrix <- matrix(c(2.5, 3.4, -1.9, 4.3, 2.3, -3.1, 4.3, -1.2, 1), 3, 3)
-  mu <- c(.4, -.3, .1)
-  skew <- .5
-  kurtosis <- 1.2
-  positions <- c(5,2,6)
-  cl <- 1.2
-  hp <- 280
-  expect_error(val <- AdjustedNormalESHotspots(vc.matrix, mu, skew, kurtosis, positions, cl, hp))
-  
-  # Error - 3
-  vc.matrix <- matrix(c(2.5, 3.4, -1.9, 4.3, 2.3, -3.1, 4.3, -1.2, 1), 3, 3)
-  mu <- c(.4, -.3, .1)
-  skew <- .5
-  kurtosis <- 1.2
-  positions <- c(5,2,6)
-  cl <- -.95
-  hp <- 280
-  expect_error(val <- AdjustedNormalESHotspots(vc.matrix, mu, skew, kurtosis, positions, cl, hp))
-  
-  # Error - 4
-  vc.matrix <- matrix(c(2.5, 3.4, -1.9, 4.3, 2.3, -3.1, 4.3, -1.2, 1), 3, 3)
-  mu <- c(.4, -.3, .1, 1.2)
-  skew <- .5
-  kurtosis <- 1.2
-  positions <- c(5, 2, 6)
-  cl <- -.95
-  hp <- 280
-  expect_error(val <- AdjustedNormalESHotspots(vc.matrix, mu, skew, kurtosis, positions, cl, hp))
-  
-  # Error - 5
-  vc.matrix <- matrix(c(2.5, 3.4, -1.9, 4.3, 2.3, -3.1, 4.3, -1.2, 1), 3, 3)
-  mu <- c(.4, -.3, .1)
-  skew <- .5
-  kurtosis <- 1.2
-  positions <- c(5,2,6,3)
-  cl <- -.95
-  hp <- 280
-  expect_error(val <- AdjustedNormalESHotspots(vc.matrix, mu, skew, kurtosis, positions, cl, hp))
-  
-})
\ No newline at end of file