From dec32e1516a05db805ff75a9e016e8bea04d1d8e Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <gertjanvandenburg@gmail.com>
Date: Thu, 30 Jul 2015 16:07:50 +0200
Subject: name change to SyncRNG and documentation in the .c file

---
 Tausworthe.R | 45 ---------------------------------------------
 1 file changed, 45 deletions(-)
 delete mode 100644 Tausworthe.R

(limited to 'Tausworthe.R')

diff --git a/Tausworthe.R b/Tausworthe.R
deleted file mode 100644
index e4fe355..0000000
--- a/Tausworthe.R
+++ /dev/null
@@ -1,45 +0,0 @@
-library(methods)
-
-dyn.load('tausR.so')
-
-TauswortheRNG <- setRefClass('TauswortheRNG',
-	fields=list(
-		    seed='numeric',
-		    state='numeric'
-		    ),
-	methods=list(
-		initialize=function(..., seed=0) {
-			seed <<- seed
-			tmp <- .Call('R_tausworthe_seed',
-			     as.integer(seed))
-			state <<- tmp[1:4]
-			callSuper(...)
-		},
-		randi=function() {
-			tmp <- .Call('R_tausworthe_rand',
-				     as.integer(state))
-			state <<- tmp[1:4]
-			return(tmp[5])
-		},
-		rand=function() {
-			r <- randi()
-			return (r * 2.3283064365387e-10)
-		}
-		)
-	)
-
-taus.seed <- function(seed=0)
-{
-	t <- TauswortheRNG(seed=seed)
-	return(t)
-}
-
-taus.rand <- function(t)
-{
-	return(t$rand())
-}
-
-taus.randi <- function(t)
-{
-	return(t$randi())
-}
-- 
cgit v1.2.3