Added unit test for sampling triangles

mages · Jan 9, 2023 · e872241 · e872241
1 parent f2ea41d
commit e872241
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/inst/unitTests/runit.BootChainLadder.R b/inst/unitTests/runit.BootChainLadder.R
@@ -3,3 +3,10 @@ test.print.BootChainLadder <- function() {
   res <- BootChainLadder(RAA)
   checkEquals(res, print(res))
 }
+
+test.seed.BootChainLadder <- function() {
+  # Test that print(x) returns x; see ?print
+  B1 <- BootChainLadder(RAA, R = 10, seed = 123) 
+  B2 <- BootChainLadder(RAA, R = 100, seed = 123) 
+  checkEquals(B1$simClaims[,,1], B2$simClaims[,,1])
+}