aboutsummaryrefslogtreecommitdiff
path: root/test.R
diff options
context:
space:
mode:
authorGertjan van den Burg <burg@ese.eur.nl>2015-07-31 16:21:25 +0200
committerGertjan van den Burg <burg@ese.eur.nl>2015-07-31 16:21:25 +0200
commit2971238c8957df1bce0629c12d8c209b39328590 (patch)
tree5c84f9bede77ea23d6bc3467cbb82e619feb85ac /test.R
parentmore reliable way to import SyncRNG from R (diff)
downloadSyncRNG-2971238c8957df1bce0629c12d8c209b39328590.tar.gz
SyncRNG-2971238c8957df1bce0629c12d8c209b39328590.zip
reformat to proper python and R packages
Diffstat (limited to 'test.R')
-rw-r--r--test.R44
1 files changed, 0 insertions, 44 deletions
diff --git a/test.R b/test.R
deleted file mode 100644
index a94d47b..0000000
--- a/test.R
+++ /dev/null
@@ -1,44 +0,0 @@
-
-source('./SyncRNG.R')
-
-test.randi <- function()
-{
- s <- SyncRNG(seed=123456)
- for (i in 1:5)
- cat(s$randi(), '\n')
-}
-
-test.rand <- function()
-{
- s <- SyncRNG(seed=123456)
- for (i in 1:5)
- cat(s$rand(), '\n')
-}
-
-test.randbelow <- function()
-{
- s <- SyncRNG(seed=123456)
- for (i in 1:5)
- cat(s$randbelow(i), '\n')
-}
-
-test.shuffle <- function()
-{
- s <- SyncRNG(seed=123456)
- x <- c(1:5)
- for (i in 1:5) {
- y <- s$shuffle(x)
- x <- y
- cat(y, '\n')
- }
-}
-
-main <- function()
-{
- test.randi()
- test.rand()
- test.randbelow()
- test.shuffle()
-}
-
-main()