remove R packaging material from Python branch

4 files changed, 0 insertions, 120 deletions

diff --git a/DESCRIPTION b/DESCRIPTION
deleted file mode 100644
index ac0ee0c..0000000
--- a/DESCRIPTION
+++ /dev/null
@@ -1,11 +0,0 @@
-Package: SyncRNG
-Version: 1.0
-Date: 2015-07-31
-Title: A Synchronized Tausworthe RNG for R and Python
-Author: Gertjan van den Burg <gertjanvandenburg@gmail.com>
-Maintainer: Gertjan van den Burg <gertjanvandenburg@gmail.com>
-Depends: R (>= 3.0.0)
-Description: Random number generation designed for cross-language usage.
-License: file LICENSE
-Imports:
-    methods
diff --git a/NAMESPACE b/NAMESPACE
deleted file mode 100644
index bb2ff1a..0000000
--- a/NAMESPACE
+++ /dev/null
@@ -1,3 +0,0 @@
-useDynLib(SyncRNG)
-export(SyncRNG)
-import(methods)
diff --git a/R/SyncRNG.R b/R/SyncRNG.R
deleted file mode 100644
index 84088b0..0000000
--- a/R/SyncRNG.R
+++ /dev/null
@@ -1,69 +0,0 @@
-library(methods)
-
-#' A Reference Class for SyncRNG
-#'
-#' @field seed The seed for the random number generator
-#' @field state The current state of the RNG, should not be modified by the 
-#' user
-#'
-#' @examples
-#' s = SyncRNG(seed=123456)
-#' for (i in 1:10)
-#'   cat(s$randi(), '\n')
-#'
-SyncRNG <- setRefClass('SyncRNG',
-	fields=list(
-		    seed='numeric',
-		    state='numeric'
-		    ),
-	methods=list(
-		initialize=function(..., seed=0) {
-			"Initialize the RNG using the C function R_syncrng_seed"
-			seed <<- seed
-			tmp <- .Call('R_syncrng_seed',
-			     as.numeric(seed))
-			state <<- tmp[1:4]
-			callSuper(...)
-		},
-		randi=function() {
-			"Generate a single random 32-bit integer"
-			tmp <- .Call('R_syncrng_rand',
-				     as.numeric(state))
-			state <<- tmp[1:4]
-			return(tmp[5])
-		},
-		rand=function() {
-			"Generate a single random float in the range [0, 1)"
-			r <- randi()
-			return (r * 2.3283064365387e-10)
-		},
-		randbelow=function(n) {
-			"Generate a random integer below a given number"
-			maxsize <- 2^32
-			if (n >= maxsize) {
-				warning(paste("Underlying random generator ",
-					     "does not supply\n enough bits ",
-					     "to choose from a population ",
-					     "range this large.\n"))
-				return(round(rand() * n))
-			}
-			rem <- maxsize %% n
-			limit <- (maxsize - rem) / maxsize
-			r <- rand()
-			while (r >= limit)
-				r <- rand()
-			return(round(r*maxsize) %% n)
-		},
-		shuffle=function(x) {
-			"Randomly shuffle a provided array of values"
-			y <- x
-			for (i in rev(1:(length(y)-1))) {
-				j <- randbelow(i+1)
-				tmp <- y[i+1]
-				y[i+1] <- y[j+1]
-				y[j+1] <- tmp
-			}
-			return(y)
-		}
-		)
-	)
diff --git a/man/SyncRNG-class.Rd b/man/SyncRNG-class.Rd
deleted file mode 100644
index 599b540..0000000
--- a/man/SyncRNG-class.Rd
+++ /dev/null
@@ -1,37 +0,0 @@
-% Generated by roxygen2 (4.1.1): do not edit by hand
-% Please edit documentation in R/SyncRNG.R
-\docType{class}
-\name{SyncRNG-class}
-\alias{SyncRNG}
-\alias{SyncRNG-class}
-\title{A Reference Class for SyncRNG}
-\description{
-A Reference Class for SyncRNG
-}
-\section{Fields}{
-
-\describe{
-\item{\code{seed}}{The seed for the random number generator}
-
-\item{\code{state}}{The current state of the RNG, should not be modified by the
-user}
-}}
-\section{Methods}{
-
-\describe{
-\item{\code{initialize(..., seed = 0)}}{Initialize the RNG using the C function R_syncrng_seed}
-
-\item{\code{rand()}}{Generate a single random float in the range [0, 1)}
-
-\item{\code{randbelow(n)}}{Generate a random integer below a given number}
-
-\item{\code{randi()}}{Generate a single random 32-bit integer}
-
-\item{\code{shuffle(x)}}{Randomly shuffle a provided array of values}
-}}
-\examples{
-s = SyncRNG(seed=123456)
-for (i in 1:10)
-  cat(s$randi(), '\\n')
-}
-