[med-svn] [r-cran-rngtools] 01/01: added debian/*
Alba Crespi
albac-guest at moszumanska.debian.org
Tue Jul 5 09:17:07 UTC 2016
This is an automated email from the git hooks/post-receive script.
albac-guest pushed a commit to branch master
in repository r-cran-rngtools.
commit 0d0dabd8cd921918b01a66213d4c28496333bd82
Author: Alba Crespi <alba.crespi at ed.ac.uk>
Date: Tue Jul 5 11:16:16 2016 +0200
added debian/*
---
debian/README.test | 8 +
debian/changelog | 5 +
debian/compat | 1 +
debian/control | 26 ++++
debian/copyright | 36 +++++
debian/docs | 3 +
debian/r-cran-rngtools.debhelper.log | 4 +
debian/r-cran-rngtools.substvars | 1 +
.../usr/lib/R/site-library/rngtools/DESCRIPTION | 25 ++++
.../usr/lib/R/site-library/rngtools/INDEX | 8 +
.../usr/lib/R/site-library/rngtools/Meta/Rd.rds | Bin 0 -> 625 bytes
.../lib/R/site-library/rngtools/Meta/hsearch.rds | Bin 0 -> 661 bytes
.../usr/lib/R/site-library/rngtools/Meta/links.rds | Bin 0 -> 351 bytes
.../lib/R/site-library/rngtools/Meta/nsInfo.rds | Bin 0 -> 312 bytes
.../lib/R/site-library/rngtools/Meta/package.rds | Bin 0 -> 1057 bytes
.../lib/R/site-library/rngtools/Meta/vignette.rds | Bin 0 -> 209 bytes
.../usr/lib/R/site-library/rngtools/NAMESPACE | 23 +++
.../usr/lib/R/site-library/rngtools/R/rngtools | 27 ++++
.../usr/lib/R/site-library/rngtools/R/rngtools.rdb | Bin 0 -> 19127 bytes
.../usr/lib/R/site-library/rngtools/R/rngtools.rdx | Bin 0 -> 682 bytes
.../usr/lib/R/site-library/rngtools/doc/index.html | 28 ++++
.../site-library/rngtools/doc/rngtools-unitTests.R | 9 ++
.../rngtools/doc/rngtools-unitTests.Rnw | 80 ++++++++++
.../rngtools/doc/rngtools-unitTests.pdf | Bin 0 -> 99069 bytes
.../usr/lib/R/site-library/rngtools/help/AnIndex | 31 ++++
.../lib/R/site-library/rngtools/help/aliases.rds | Bin 0 -> 320 bytes
.../usr/lib/R/site-library/rngtools/help/paths.rds | Bin 0 -> 168 bytes
.../lib/R/site-library/rngtools/help/rngtools.rdb | Bin 0 -> 23708 bytes
.../lib/R/site-library/rngtools/help/rngtools.rdx | Bin 0 -> 291 bytes
.../lib/R/site-library/rngtools/html/00Index.html | 79 ++++++++++
.../usr/lib/R/site-library/rngtools/html/R.css | 97 ++++++++++++
.../lib/R/site-library/rngtools/tests/runit.RNG.r | 133 +++++++++++++++++
.../R/site-library/rngtools/tests/runit.RNGseq.r | 162 +++++++++++++++++++++
.../R/site-library/rngtools/tests/runit.format.r | 103 +++++++++++++
debian/rules | 6 +
debian/source/format | 1 +
debian/tests/control | 3 +
debian/tests/run-unit-test | 13 ++
debian/watch | 3 +
39 files changed, 915 insertions(+)
diff --git a/debian/README.test b/debian/README.test
new file mode 100644
index 0000000..ef34ccc
--- /dev/null
+++ b/debian/README.test
@@ -0,0 +1,8 @@
+Notes on how this package can be tested.
+────────────────────────────────────────
+
+To run the unit tests provided by the package you can do
+
+ sh run-unit-test
+
+in this directory.
diff --git a/debian/changelog b/debian/changelog
new file mode 100644
index 0000000..24a07e5
--- /dev/null
+++ b/debian/changelog
@@ -0,0 +1,5 @@
+r-cran-rngtools (1.2.4-1) UNRELEASED; urgency=medium
+
+ * Initial release. (Closes: #829502)
+
+ -- Alba Crespi <crespialba+debian at gmail.com> Sun, 03 Jul 2016 22:30:22 +0200
diff --git a/debian/compat b/debian/compat
new file mode 100644
index 0000000..ec63514
--- /dev/null
+++ b/debian/compat
@@ -0,0 +1 @@
+9
diff --git a/debian/control b/debian/control
new file mode 100644
index 0000000..cfb9ea3
--- /dev/null
+++ b/debian/control
@@ -0,0 +1,26 @@
+Source: r-cran-rngtools
+Maintainer: Debian Med Packaging Team <debian-med-packaging at lists.alioth.debian.org>
+Uploaders: Alba Crespi <crespialba+debian at gmail.com>
+Section: gnu-r
+Priority: optional
+Build-Depends: debhelper (>= 9),
+ r-base-dev (>= 3.0.0),
+ cdbs
+Standards-Version: 3.9.8
+Vcs-Browser: https://anonscm.debian.org/cgit/debian-med/r-cran-rngtools.git
+Vcs-Git: https://anonscm.debian.org/git/debian-med/r-cran-rngtools.git
+Homepage: https://cran.r-project.org/web/packages/rngtools/
+
+Package: r-cran-rngtools
+Architecture: any
+Depends: ${shlibs:Depends},
+ ${misc:Depends},
+ ${R:Depends},
+ r-cran-pkgmaker (>= 0.20)
+Description: GNU R package for random number generators.
+ This package contains a set of functions
+ for working with Random Number Generators (RNGs). In particular, it
+ defines a generic S4 framework for getting/setting the current RNG,
+ or RNG data that are embedded into objects for reproducibility.
+ Notably, convenient default methods greatly facilitate the way current
+ RNG settings can be changed.
diff --git a/debian/copyright b/debian/copyright
new file mode 100644
index 0000000..239e732
--- /dev/null
+++ b/debian/copyright
@@ -0,0 +1,36 @@
+Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/
+Upstream-Name: rngtools
+Source: https://cran.r-project.org/web/packages/rngtools/
+
+Files: *
+Copyright: 2009-2012 Renaud Gaujoux <renaud at tx.technion.ac.il>
+License: GPL-3.0+
+
+Files: vignettes/abbrvnat.bst
+Copyright: 1993-2005 Patrick W Daly
+License: LPPL-1+
+ This program can be redistributed and/or modified under the terms of the
+ LaTeX Project Public License Distributed from CTAN archives in directory
+ macros/latex/base/lppl.txt; either version 1 of the License, or any later
+ version.
+
+Files: debian/*
+Copyright: 2015 Alba Crespi <crespialba+debian at gmail.com>
+License: GPL-2.0+
+
+License: GPL-2.0+
+ This package is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+ .
+ This package is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
+ .
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>
+ .
+ On Debian systems, the complete text of the GNU General
+ Public License version 2 can be found in "/usr/share/common-licenses/GPL-2".
diff --git a/debian/docs b/debian/docs
new file mode 100644
index 0000000..960011c
--- /dev/null
+++ b/debian/docs
@@ -0,0 +1,3 @@
+tests
+debian/README.test
+debian/tests/run-unit-test
diff --git a/debian/r-cran-rngtools.debhelper.log b/debian/r-cran-rngtools.debhelper.log
new file mode 100644
index 0000000..2033868
--- /dev/null
+++ b/debian/r-cran-rngtools.debhelper.log
@@ -0,0 +1,4 @@
+dh_prep
+dh_installdirs
+dh_installdirs
+dh_installdirs
diff --git a/debian/r-cran-rngtools.substvars b/debian/r-cran-rngtools.substvars
new file mode 100644
index 0000000..d8ddfe3
--- /dev/null
+++ b/debian/r-cran-rngtools.substvars
@@ -0,0 +1 @@
+R:Depends=r-base-core (>= 3.1.1-1)
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/DESCRIPTION b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/DESCRIPTION
new file mode 100644
index 0000000..d61bf88
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/DESCRIPTION
@@ -0,0 +1,25 @@
+Package: rngtools
+Maintainer: Renaud Gaujoux <renaud at tx.technion.ac.il>
+Author: Renaud Gaujoux
+Version: 1.2.4
+License: GPL-3
+Title: Utility functions for working with Random Number Generators
+Description: This package contains a set of functions for working with
+ Random Number Generators (RNGs). In particular, it defines a generic
+ S4 framework for getting/setting the current RNG, or RNG data
+ that are embedded into objects for reproducibility.
+ Notably, convenient default methods greatly facilitate the way current
+ RNG settings can be changed.
+URL: https://renozao.github.io/rngtools
+BugReports: http://github.com/renozao/rngtools/issues
+SCM: github:renozao, r-forge
+Depends: R (>= 3.0.0), methods, pkgmaker (>= 0.20)
+Imports: stringr, digest
+Suggests: parallel, RUnit, knitr
+Collate: 'rngtools-package.r' 'format.R' 'RNG.R' 'RNGseq.R'
+VignetteBuilder: knitr
+Packaged: 2014-03-06 13:11:11 UTC; renaud
+NeedsCompilation: no
+Repository: CRAN
+Date/Publication: 2014-03-06 22:18:10
+Built: R 3.3.0; ; 2016-07-04 18:20:17 UTC; unix
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/INDEX b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/INDEX
new file mode 100644
index 0000000..33481fb
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/INDEX
@@ -0,0 +1,8 @@
+RNGseed Directly Getting or Setting the RNG Seed
+RNGseq Generate Sequence of Random Streams
+RNGstr Formatting RNG Information
+checkRNG Checking RNG Differences in Unit Tests
+getRNG Getting/Setting RNGs
+rng.equal Comparing RNG Settings
+rngtools Utility functions for working with Random
+ Number Generators
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/Rd.rds b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/Rd.rds
new file mode 100644
index 0000000..c0ebb78
Binary files /dev/null and b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/Rd.rds differ
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/hsearch.rds b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/hsearch.rds
new file mode 100644
index 0000000..3cc75b7
Binary files /dev/null and b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/hsearch.rds differ
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/links.rds b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/links.rds
new file mode 100644
index 0000000..61d8a1f
Binary files /dev/null and b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/links.rds differ
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/nsInfo.rds b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/nsInfo.rds
new file mode 100644
index 0000000..c483acf
Binary files /dev/null and b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/nsInfo.rds differ
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/package.rds b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/package.rds
new file mode 100644
index 0000000..3c39793
Binary files /dev/null and b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/package.rds differ
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/vignette.rds b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/vignette.rds
new file mode 100644
index 0000000..dd85a43
Binary files /dev/null and b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/vignette.rds differ
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/NAMESPACE b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/NAMESPACE
new file mode 100644
index 0000000..0dc79ce
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/NAMESPACE
@@ -0,0 +1,23 @@
+export(.getRNG)
+export(.setRNG)
+export(RNGdigest)
+export(RNGinfo)
+export(RNGrecovery)
+export(RNGseed)
+export(RNGseq)
+export(RNGseq_seed)
+export(RNGstr)
+export(RNGtype)
+export(checkRNG)
+export(getRNG)
+export(getRNG1)
+export(hasRNG)
+export(nextRNG)
+export(rng.equal)
+export(rng1.equal)
+export(setRNG)
+export(showRNG)
+import(digest)
+import(methods)
+import(pkgmaker)
+import(stringr)
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools
new file mode 100644
index 0000000..3b65e3c
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools
@@ -0,0 +1,27 @@
+# File share/R/nspackloader.R
+# Part of the R package, http://www.R-project.org
+#
+# Copyright (C) 1995-2012 The R Core Team
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# A copy of the GNU General Public License is available at
+# http://www.r-project.org/Licenses/
+
+local({
+ info <- loadingNamespaceInfo()
+ pkg <- info$pkgname
+ ns <- .getNamespace(as.name(pkg))
+ if (is.null(ns))
+ stop("cannot find namespace environment for ", pkg, domain = NA);
+ dbbase <- file.path(info$libname, pkg, "R", pkg)
+ lazyLoad(dbbase, ns, filter = function(n) n != ".__NAMESPACE__.")
+})
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools.rdb b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools.rdb
new file mode 100644
index 0000000..132599f
Binary files /dev/null and b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools.rdb differ
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools.rdx b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools.rdx
new file mode 100644
index 0000000..a7f5d12
Binary files /dev/null and b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools.rdx differ
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/index.html b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/index.html
new file mode 100644
index 0000000..b30f527
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/index.html
@@ -0,0 +1,28 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head><title>R: Vignettes and other documentation</title>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
+<link rel="stylesheet" type="text/css" href="/doc/html/R.css" />
+</head><body>
+<h1> Vignettes and other documentation
+<img class="toplogo" src="/doc/html/Rlogo.svg" alt="[R logo]" />
+</h1>
+<hr/>
+<div style="text-align: center;">
+<a href="/doc/html/index.html"><img class="arrow" src="/doc/html/up.jpg" alt="[Top]" /></a>
+</div>
+<h2>Vignettes from package 'rngtools'</h2>
+<table width="100%">
+<col style="width: 22%;" />
+<col style="width: 2%;" />
+<col style="width: 50%;" />
+<col style="width: 8%;" />
+<col style="width: 8%;" />
+<col style="width: 8%;" />
+<tr><td style="text-align: right; vertical-align: top;"><a href="../../../library/rngtools/doc/rngtools-unitTests.pdf">rngtools::rngtools-unitTests</a></td>
+<td></td><td valign="top">rngtools-unitTests</td>
+<td valign="top"><a href="../../../library/rngtools/doc/rngtools-unitTests.pdf">PDF</a></td>
+<td valign="top"><a href="../../../library/rngtools/doc/rngtools-unitTests.Rnw">source</a></td>
+<td valign="top" style="white-space: nowrap"><a href="../../../library/rngtools/doc/rngtools-unitTests.R">R code</a></td></tr>
+</table>
+</body></html>
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.R b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.R
new file mode 100644
index 0000000..e66beab
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.R
@@ -0,0 +1,9 @@
+
+## ----setup, include=FALSE------------------------------------------------
+pkg <- 'rngtools'
+require( pkg, character.only=TRUE )
+prettyVersion <- packageDescription(pkg)$Version
+prettyDate <- format(Sys.Date(), '%B %e, %Y')
+authors <- packageDescription(pkg)$Author
+
+
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.Rnw b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.Rnw
new file mode 100644
index 0000000..ff4e04d
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.Rnw
@@ -0,0 +1,80 @@
+
+\documentclass[10pt]{article}
+%\VignetteDepends{knitr}
+%\VignetteIndexEntry{rngtools-unitTests}
+%\VignetteCompiler{knitr}
+%\VignetteEngine{knitr::knitr}
+\usepackage{vmargin}
+\setmargrb{0.75in}{0.75in}{0.75in}{0.75in}
+
+<<setup, include=FALSE>>=
+pkg <- 'rngtools'
+require( pkg, character.only=TRUE )
+prettyVersion <- packageDescription(pkg)$Version
+prettyDate <- format(Sys.Date(), '%B %e, %Y')
+authors <- packageDescription(pkg)$Author
+@
+
+\usepackage[colorlinks]{hyperref}
+\author{\Sexpr{authors}}
+\title{\texttt{\Sexpr{pkg}}: Unit testing results\footnote{Vignette computed on Thu Mar 6 11:45:50 2014}}
+\date{\texttt{\Sexpr{pkg}} version \Sexpr{prettyVersion} as of \Sexpr{prettyDate}}
+\begin{document}
+\maketitle
+
+\section{Details}
+\begin{verbatim}
+
+RUNIT TEST PROTOCOL -- Thu Mar 6 11:45:50 2014
+***********************************************
+Number of test functions: 6
+Number of errors: 0
+Number of failures: 0
+
+
+1 Test Suite :
+package:rngtools - 6 test functions, 0 errors, 0 failures
+
+
+
+Details
+***************************
+Test Suite: package:rngtools
+Test function regexp: ^test.
+Test file regexp: ^runit.*.[rR]$
+Involved directory:
+/tmp/Rpkglib_51e6234a85cc/rngtools/tests
+---------------------------
+Test file: /tmp/Rpkglib_51e6234a85cc/rngtools/tests/runit.format.r
+test.RNGdigest: (30 checks) ... OK (0.01 seconds)
+test.RNGtype: (22 checks) ... OK (0.01 seconds)
+---------------------------
+Test file: /tmp/Rpkglib_51e6234a85cc/rngtools/tests/runit.RNG.r
+test.getRNG: (18 checks) ... OK (0 seconds)
+test.setRNG: (34 checks) ... OK (0.01 seconds)
+---------------------------
+Test file: /tmp/Rpkglib_51e6234a85cc/rngtools/tests/runit.RNGseq.r
+test.RNGseq: (51 checks) ... OK (0.01 seconds)
+test.RNGseq_seed: (75 checks) ... OK (0 seconds)
+
+Total execution time
+***************************
+ user system elapsed
+ 0.234 0.001 0.234
+
+\end{verbatim}
+
+\section*{Session Information}
+\begin{itemize}\raggedright
+ \item R Under development (unstable) (2014-03-02 r65102), \verb|x86_64-unknown-linux-gnu|
+ \item Locale: \verb|LC_CTYPE=en_US.UTF-8|, \verb|LC_NUMERIC=C|, \verb|LC_TIME=en_US.UTF-8|, \verb|LC_COLLATE=en_US.UTF-8|, \verb|LC_MONETARY=en_US.UTF-8|, \verb|LC_MESSAGES=en_US.UTF-8|, \verb|LC_PAPER=en_US.UTF-8|, \verb|LC_NAME=C|, \verb|LC_ADDRESS=C|, \verb|LC_TELEPHONE=C|, \verb|LC_MEASUREMENT=en_US.UTF-8|, \verb|LC_IDENTIFICATION=C|
+ \item Base packages: base, datasets, graphics, grDevices, methods,
+ parallel, stats, utils
+ \item Other packages: pkgmaker~0.20, registry~0.2, rngtools~1.2.4,
+ RUnit~0.4.26, stringr~0.6.2
+ \item Loaded via a namespace (and not attached): codetools~0.2-8,
+ digest~0.6.4, tools~3.1.0, xtable~1.7-1
+\end{itemize}
+
+\end{document}
+
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.pdf b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.pdf
new file mode 100644
index 0000000..15f40de
Binary files /dev/null and b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.pdf differ
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/AnIndex b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/AnIndex
new file mode 100644
index 0000000..37d7bbd
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/AnIndex
@@ -0,0 +1,31 @@
+rngtools-package rngtools
+.getRNG rng
+.getRNG,ANY-method rng
+.getRNG,list-method rng
+.getRNG,missing-method rng
+.getRNG,numeric-method rng
+.getRNG-methods rng
+.setRNG rng
+.setRNG,character-method rng
+.setRNG,numeric-method rng
+.setRNG-methods rng
+checkRNG uchecks
+getRNG rng
+getRNG1 rng
+getRNG1,ANY-method rng
+getRNG1-methods rng
+hasRNG rng
+nextRNG rng
+rng.equal rngcmp
+rng1.equal rngcmp
+RNGdigest RNGstr
+RNGinfo RNGstr
+RNGrecovery RNGseed
+RNGseed RNGseed
+RNGseq RNGseq
+RNGseq_seed RNGseq
+RNGstr RNGstr
+rngtools rngtools
+RNGtype RNGstr
+setRNG rng
+showRNG RNGstr
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/aliases.rds b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/aliases.rds
new file mode 100644
index 0000000..abedd7a
Binary files /dev/null and b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/aliases.rds differ
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/paths.rds b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/paths.rds
new file mode 100644
index 0000000..2ff4b4b
Binary files /dev/null and b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/paths.rds differ
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/rngtools.rdb b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/rngtools.rdb
new file mode 100644
index 0000000..5541437
Binary files /dev/null and b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/rngtools.rdb differ
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/rngtools.rdx b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/rngtools.rdx
new file mode 100644
index 0000000..fe2a5f9
Binary files /dev/null and b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/rngtools.rdx differ
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/html/00Index.html b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/html/00Index.html
new file mode 100644
index 0000000..cd2fabd
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/html/00Index.html
@@ -0,0 +1,79 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head><title>R: Utility functions for working with Random Number Generators</title>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
+<link rel="stylesheet" type="text/css" href="R.css" />
+</head><body>
+<h1> Utility functions for working with Random Number Generators
+<img class="toplogo" src="../../../doc/html/Rlogo.svg" alt="[R logo]" />
+</h1>
+<hr/>
+<div style="text-align: center;">
+<a href="../../../doc/html/packages.html"><img class="arrow" src="../../../doc/html/left.jpg" alt="[Up]" /></a>
+<a href="../../../doc/html/index.html"><img class="arrow" src="../../../doc/html/up.jpg" alt="[Top]" /></a>
+</div><h2>Documentation for package ‘rngtools’ version 1.2.4</h2>
+
+<ul><li><a href="../DESCRIPTION">DESCRIPTION file</a>.</li>
+<li><a href="../doc/index.html">User guides, package vignettes and other documentation.</a></li>
+</ul>
+
+<h2>Help Pages</h2>
+
+
+<table width="100%">
+<tr><td style="width: 25%;"><a href="rngtools.html">rngtools-package</a></td>
+<td>Utility functions for working with Random Number Generators</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">.getRNG</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">.getRNG-method</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">.getRNG-methods</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">.setRNG</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">.setRNG-method</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">.setRNG-methods</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="uchecks.html">checkRNG</a></td>
+<td>Checking RNG Differences in Unit Tests</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">getRNG</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">getRNG1</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">getRNG1-method</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">getRNG1-methods</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">hasRNG</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">nextRNG</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rngcmp.html">rng.equal</a></td>
+<td>Comparing RNG Settings</td></tr>
+<tr><td style="width: 25%;"><a href="rngcmp.html">rng1.equal</a></td>
+<td>Comparing RNG Settings</td></tr>
+<tr><td style="width: 25%;"><a href="RNGstr.html">RNGdigest</a></td>
+<td>Formatting RNG Information</td></tr>
+<tr><td style="width: 25%;"><a href="RNGstr.html">RNGinfo</a></td>
+<td>Formatting RNG Information</td></tr>
+<tr><td style="width: 25%;"><a href="RNGseed.html">RNGrecovery</a></td>
+<td>Directly Getting or Setting the RNG Seed</td></tr>
+<tr><td style="width: 25%;"><a href="RNGseed.html">RNGseed</a></td>
+<td>Directly Getting or Setting the RNG Seed</td></tr>
+<tr><td style="width: 25%;"><a href="RNGseq.html">RNGseq</a></td>
+<td>Generate Sequence of Random Streams</td></tr>
+<tr><td style="width: 25%;"><a href="RNGseq.html">RNGseq_seed</a></td>
+<td>Generate Sequence of Random Streams</td></tr>
+<tr><td style="width: 25%;"><a href="RNGstr.html">RNGstr</a></td>
+<td>Formatting RNG Information</td></tr>
+<tr><td style="width: 25%;"><a href="rngtools.html">rngtools</a></td>
+<td>Utility functions for working with Random Number Generators</td></tr>
+<tr><td style="width: 25%;"><a href="RNGstr.html">RNGtype</a></td>
+<td>Formatting RNG Information</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">setRNG</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="RNGstr.html">showRNG</a></td>
+<td>Formatting RNG Information</td></tr>
+</table>
+</body></html>
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/html/R.css b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/html/R.css
new file mode 100644
index 0000000..f10f5ea
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/html/R.css
@@ -0,0 +1,97 @@
+body {
+ background: white;
+ color: black;
+}
+
+a:link {
+ background: white;
+ color: blue;
+}
+
+a:visited {
+ background: white;
+ color: rgb(50%, 0%, 50%);
+}
+
+h1 {
+ background: white;
+ color: rgb(55%, 55%, 55%);
+ font-family: monospace;
+ font-size: x-large;
+ text-align: center;
+}
+
+h2 {
+ background: white;
+ color: rgb(40%, 40%, 40%);
+ font-family: monospace;
+ font-size: large;
+ text-align: center;
+}
+
+h3 {
+ background: white;
+ color: rgb(40%, 40%, 40%);
+ font-family: monospace;
+ font-size: large;
+}
+
+h4 {
+ background: white;
+ color: rgb(40%, 40%, 40%);
+ font-family: monospace;
+ font-style: italic;
+ font-size: large;
+}
+
+h5 {
+ background: white;
+ color: rgb(40%, 40%, 40%);
+ font-family: monospace;
+}
+
+h6 {
+ background: white;
+ color: rgb(40%, 40%, 40%);
+ font-family: monospace;
+ font-style: italic;
+}
+
+img.toplogo {
+ width: 4em;
+ vertical-align: middle;
+}
+
+img.arrow {
+ width: 30px;
+ height: 30px;
+ border: 0;
+}
+
+span.acronym {
+ font-size: small;
+}
+
+span.env {
+ font-family: monospace;
+}
+
+span.file {
+ font-family: monospace;
+}
+
+span.option{
+ font-family: monospace;
+}
+
+span.pkg {
+ font-weight: bold;
+}
+
+span.samp{
+ font-family: monospace;
+}
+
+div.vignettes a:hover {
+ background: rgb(85%, 85%, 85%);
+}
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.RNG.r b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.RNG.r
new file mode 100644
index 0000000..fddb18e
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.RNG.r
@@ -0,0 +1,133 @@
+# Unit test for getRNG
+#
+# Author: Renaud Gaujoux
+###############################################################################
+
+library(stringr)
+
+test.getRNG <- function(){
+
+ RNGkind('default', 'default')
+ on.exit( RNGrecovery() )
+
+ checker <- function(x, y, ..., msg=NULL, drawRNG=TRUE){
+
+ if( drawRNG ) runif(10)
+ fn <- getRNG
+ oldRNG <- RNGseed()
+ if( !missing(x) ){
+ d <- fn(x, ...)
+ cl <- str_c(class(x), '(', length(x), ')')
+ }else{
+ d <- fn()
+ cl <- 'MISSING'
+ }
+ newRNG <- RNGseed()
+ .msg <- function(x) paste(cl, ':', x, '[', msg, ']')
+ checkIdentical(oldRNG, newRNG, .msg("does not change RNG"))
+ checkIdentical(d, y, .msg("result is correct") )
+ }
+
+ set.seed(123456)
+ seed123456 <- .Random.seed
+ checker(, seed123456, msg="No arguments: returns .Random.seed", drawRNG=FALSE)
+ checker(123456, seed123456, msg="Single numeric argument: returns .Random.seed as it would be after setting the seed")
+ checker(123456, 123456, num.ok=TRUE, msg="Single numeric argument + num.ok: returns argument unchanged")
+ checker(.Random.seed, .Random.seed, msg="Integer seed argument: returns its argument unchanged")
+ checker(as.numeric(.Random.seed), .Random.seed, msg="Numeric seed argument: returns its argument as an integer vector")
+ checker(2:3, 2:3, msg="Integer INVALID seed vector argument: returns its argument unchanged")
+ checker(c(2,3), c(2L,3L), msg="Numeric INVALID seed vector argument: returns its argument as an integer vector")
+ checker(1L, 1L, msg="Single integer = Encoded RNG kind: returns it unchanged")
+ checker(1000L, 1000L, msg="Invalid single integer = Encoded RNG kind: returns it unchanged")
+
+}
+
+test.setRNG <- function(){
+
+ RNGkind('default', 'default')
+ on.exit( RNGrecovery() )
+
+ checker <- function(x, y, tset, drawRNG=TRUE){
+
+ on.exit( RNGrecovery() )
+
+ if( drawRNG ) runif(10)
+ oldRNG <- RNGseed()
+ d <- force(x)
+ newRNG <- RNGseed()
+
+ msg <- function(x, ...) paste(tset, ':', ...)
+ checkTrue(!identical(oldRNG, newRNG), msg("changes RNG"))
+ checkIdentical(getRNG(), y, msg("RNG is correctly set") )
+ checkIdentical(d, oldRNG, msg("returns old RNG") )
+ }
+
+ set.seed(123456)
+ refseed <- .Random.seed
+ checker(setRNG(123456), refseed, "Single numeric: sets current RNG with seed")
+
+ # setting kind with a character string
+ set.seed(123)
+ RNGkind('Mar')
+ refseed <- .Random.seed
+ RNGrecovery()
+ set.seed(123)
+ checker(setRNG('Mar'), refseed, "Single character: change RNG kind", drawRNG=FALSE)
+
+ # setting kind with a character string
+ set.seed(123)
+ RNGkind('Mar', 'Ahrens')
+ refseed <- .Random.seed
+ RNGrecovery()
+ set.seed(123)
+ checker(setRNG('Mar', 'Ahrens'), refseed, "Two character strings: change RNG kind and normal kind", drawRNG=FALSE)
+ RNGrecovery()
+ set.seed(123)
+ checker(setRNG(c('Mar', 'Ahrens')), refseed, "2-long character vector: change RNG kind and normal kind", drawRNG=FALSE)
+
+ # setting kind
+ set.seed(123456, kind='Mar')
+ refseed <- .Random.seed
+ checker(setRNG(123456, kind='Mar'), refseed, "Single numeric + kind: change RNG kind + set seed")
+
+ # setting Nkind
+ set.seed(123456, normal.kind='Ahrens')
+ refseed <- .Random.seed
+ checker(setRNG(123456, normal.kind='Ahrens'), refseed
+ , "Single numeric + normal.kind: change RNG normal kind + set seed")
+
+ # setting kind and Nkind
+ set.seed(123456, kind='Mar', normal.kind='Ahrens')
+ refseed <- .Random.seed
+ checker(setRNG(123456, kind='Mar', normal.kind='Ahrens'), refseed
+ , "Single numeric + kind + normal.kind: change RNG all kinds + set seed")
+
+ # with seed length > 1
+ refseed <- as.integer(c(201, 0, 0))
+ checker(setRNG(refseed), refseed, "numeric vector: directly set seed")
+
+ refseed <- .Random.seed
+ checkException( setRNG(2:3), "numeric vector: throws an error if invalid value for .Random.seed")
+ checkIdentical( .Random.seed, refseed, ".Random.seed is not changed in case of an error in setRNG")
+
+ oldRNG <- getRNG()
+ checkException(setRNG(1234L), "Error with invalid integer seed")
+ checkIdentical(oldRNG, getRNG(), "RNG still valid after error")
+ checkException(setRNG(123L), "Error with invalid RNG kind")
+ checkIdentical(oldRNG, getRNG(), "RNG still valid after error")
+
+ # changes in R >= 3.0.2: invalid seeds only throw warning
+ if( testRversion('> 3.0.1') ){
+ oldRNG <- getRNG()
+ checkWarning(setRNG(1234L, check = FALSE), "\\.Random\\.seed.* is not .* valid"
+ , "Invalid integer kind: Warning only if check = FALSE")
+ checkIdentical(1234L, getRNG(), "RNG has new invalid integer value")
+ setRNG(oldRNG)
+ checkWarning(setRNG(123L, check = FALSE), "\\.Random\\.seed.* is not .* valid"
+ , "Invalid kind: Warning only if check = FALSE")
+ checkIdentical(123L, getRNG(), "RNG has new invalid RNG kind")
+
+ }
+
+}
+
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.RNGseq.r b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.RNGseq.r
new file mode 100644
index 0000000..674012e
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.RNGseq.r
@@ -0,0 +1,162 @@
+# Unit tets for RNGseq
+#
+# Author: Renaud Gaujoux
+###############################################################################
+
+library(parallel)
+
+test.RNGseq_seed <- function(){
+
+ # actual testing function
+ .test_loc <- function(.msg, ..., .change=FALSE){
+ msg <- function(...) paste(.msg, ':', ...)
+ os <- RNGseed()
+ on.exit(RNGseed(os))
+ s <- RNGseq_seed(...)
+ checkTrue(length(s) == 7L && s[1] %% 100 == 7L, msg("RNGseq_seed returns a value of .Random.seed for L'Ecuyer-CMRG"))
+ checkIdentical(RNGseed()[1], os[1], msg("RNGseq_seed does not change the type of RNG"))
+
+ if( !.change ) checkIdentical(RNGseed(), os, msg("RNGseq_seed does not change the value of .Random.seed"))
+ else checkTrue( !identical(RNGseed(), os), msg("RNGseq_seed changes the value of .Random.seed"))
+ s
+ }
+
+ # test in two RNG settings: default and L'Ecuyer
+ .test <- function(.msg, ..., ss=NULL, .change=FALSE, Dchange=.change, Lchange=.change){
+ os <- RNGseed()
+ on.exit(RNGseed(os))
+
+ # default RNG
+ RNGkind('default')
+ if( !is.null(ss) ) set.seed(ss)
+ s1 <- .test_loc(paste(.msg, '- default'), ..., .change=Dchange)
+
+ RNGkind("L'Ecuyer")
+ if( !is.null(ss) ) set.seed(ss)
+ s2 <- .test_loc(paste(.msg, "- CMRG"), ..., .change=Lchange)
+
+ list(s1, s2)
+ }
+
+ os <- RNGseed()
+ on.exit(RNGseed(os))
+
+ RNGkind('default', 'default')
+
+ # test different arguments
+ s1 <- .test("seed=missing", ss=1, Dchange=TRUE, Lchange=FALSE)
+ runif(10)
+ s2 <- .test("seed=NULL", NULL, ss=1, Dchange=TRUE, Lchange=FALSE)
+ checkIdentical(s1, s2, "set.seed(1) + seed=missing and seed=NULL return identical results")
+
+ # doRNG seed with single numeric
+ runif(10)
+ s3 <- .test("seed=single numeric", 1)
+ checkIdentical(s1[[1]], s3[[1]], "v1.4 - set.seed(1) + seed=missing and seed=1 return identical results when current RNG is NOT CMRG")
+ checkIdentical(s1[[2]], s3[[2]], "v1.4 - set.seed(1) + seed=missing and seed=1 return identical results when current RNG is CMRG")
+ checkTrue( !identical(s1[[1]], s1[[2]]), "v1.4 - set.seed(1) + seed=missing return NON identical results in different RNG settings")
+ checkTrue( !identical(s3[[1]], s3[[2]]), "v1.4 - seed=num return NON identical results in different RNG settings")
+
+ # version < 1.4
+# doRNGversion("1.3.9999")
+ s1 <- .test("v1.3 - seed=missing", ss=1, Dchange=TRUE, Lchange=TRUE, version=1)
+ s3 <- .test("v1.3 - seed=single numeric", 1, version=1)
+ checkIdentical(s1[[1]], s3[[1]], "v1.3 - set.seed(1) + seed=missing and seed=1 return identical results when current RNG is NOT CMRG")
+ checkTrue( !identical(s1[[2]], s3[[2]]), "v1.3 - set.seed(1) + seed=missing and seed=1 return NON identical results when current RNG is CMRG")
+ checkTrue( !identical(s1[[1]], s1[[2]]), "v1.3 - set.seed(1) + seed=missing return NON identical results in different RNG settings")
+ checkTrue( !identical(s3[[1]], s3[[2]]), "v1.4 - seed=num return NON identical results in different RNG settings")
+# doRNGversion(NULL)
+ ##
+
+ .test("seed=single integer", 10L)
+ # directly set doRNG seed with a 6-length
+ .test("seed=6-length integer", 1:6)
+ .test("seed=6-length numeric", as.numeric(1:6))
+ s <- 1:6
+ checkIdentical(RNGseq_seed(s)[2:7], s, "RNGseq_seed(6-length) returns stream to the given value")
+ # directly set doRNG seed with a full 7-length .Random.seed
+ .test("seed=7-length integer", c(407L,1:6))
+ .test("seed=7-length numeric", as.numeric(c(107L,1:6)))
+ s <- c(407L,1:6)
+ checkIdentical(RNGseq_seed(s), s, "RNGseq_seed(7-length) returns complete seed with the given value")
+
+ # errors
+ os <- RNGseed()
+ checkException(RNGseq_seed(NA), "seed=NA throws an exception")
+ checkIdentical(os, RNGseed(), "RNGseq_seed(NA) does not change the value of .Random.seed [error]")
+
+ # Current CMRG is L'Ecuyer
+ RNGkind("L'Ecuyer")
+ set.seed(456)
+ s <- RNGseed()
+ r <- RNGseq_seed(NULL)
+ checkIdentical(s, r, "Current is CMRG: seed=NULL return current stream")
+ runif(10)
+ checkIdentical(s, RNGseq_seed(456), "Current is CMRG: seed=numeric return stream seeded with value")
+
+}
+
+test.RNGseq <- function(){
+
+ os <- RNGseed()
+ on.exit(RNGseed(os))
+
+ # actual testing function
+ .test_loc <- function(.msg, n, ..., .list=TRUE, .change=FALSE){
+ msg <- function(...) paste(.msg, ':', ...)
+ os <- RNGseed()
+ on.exit(RNGseed(os))
+
+ s <- RNGseq(n, ...)
+
+ if( !.change ) checkIdentical(RNGseed(), os, msg("the value of .Random.seed is not changed"))
+ else checkTrue( !identical(RNGseed(), os), msg("the value of .Random.seed does change"))
+
+ if( .list ) checkTrue(is.list(s), msg("result is a list"))
+ else{
+ checkTrue(is.integer(s), msg("result is an integer vector"))
+ s <- list(s)
+ }
+
+ checkTrue(length(s) == n, msg("result has correct length"))
+ checkTrue(all(sapply(s, length) == 7L), msg("each element has length 7"))
+ checkTrue(all(sapply(s, function(x) x[1] %% 100) == 7L), msg("each element has correct RNG kind"))
+ s
+ }
+
+ .test <- function(msg, n, ...){
+ set.seed(1)
+ s1 <- .test_loc(paste(msg, '- no seed'), n, ..., .change=TRUE)
+ runif(1)
+ s2 <- .test_loc(paste(msg, '- seed=1'), n, 1, ..., .change=FALSE)
+ #checkIdentical(s1, s2, paste(msg, " - set.seed(1) + no seed is identical to seed=1"))
+ .test_loc(paste(msg, '- seed=1:6'), n, 1:6, ...)
+ }
+ .test("n=1", 1, .list=FALSE)
+ .test("n=2", 2)
+ .test("n=5", 5)
+
+ # with full list
+ s <- RNGseq(3)
+ checkIdentical(RNGseq(length(s), s), s, "If passing a complete list: returns the list itself")
+ s3 <- RNGseq(5)
+ s <- structure(s, rng=s3)
+ checkIdentical(RNGseq(length(s3), s), s3, "If passing a complete list in rng S3 slot: returns the complete slot")
+ #
+
+ # Current RNG is CMRG
+ set.seed(456, "L'Ec")
+ s <- .Random.seed
+ ref <- list(s, nextRNGStream(s), nextRNGStream(nextRNGStream(s)))
+ rs <- RNGseq(3, 456)
+ checkIdentical(rs, ref, "Current RNG is CMRG: RNGseq(n, num) returns RNG streams that start with stream as set.seed")
+ checkIdentical(s, .Random.seed, "Current RNG is CMRG: RNGseq(n, num) did not change random seed")
+
+ runif(10)
+ s <- .Random.seed
+ ref <- list(s, nextRNGStream(s), nextRNGStream(nextRNGStream(s)))
+ rs2 <- RNGseq(3)
+ checkIdentical(rs2, ref, "Current RNG is CMRG: RNGseq(n) returns RNG streams that start with current stream")
+ checkIdentical(.Random.seed, nextRNGStream(tail(rs2,1)[[1]]), "Current RNG is CMRG: RNGseq(n) changes current random seed to next stream of last stream in sequence")
+
+}
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.format.r b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.format.r
new file mode 100644
index 0000000..7e94f91
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.format.r
@@ -0,0 +1,103 @@
+# Unit tests for RNG formatting functions
+#
+# Author: Renaud Gaujoux
+###############################################################################
+
+library(stringr)
+library(pkgmaker)
+
+checkFun <- function(fn, name){
+
+ function(x, ...){
+
+ oldRNG <- RNGseed()
+ if( !missing(x) ){
+ d <- fn(x)
+ obj <- getRNG(x)
+ cl <- class(x)
+ }else{
+ d <- fn()
+ obj <- getRNG()
+ cl <- 'MISSING'
+ }
+ newRNG <- RNGseed()
+ msg <- function(x, ...) paste(name, '-', cl, ':', x, '[', ..., ']')
+ checkIdentical(oldRNG, newRNG, msg("does not change RNG", ...))
+
+ #
+ checkTrue( isString(d), msg("result is a character string", ...))
+ checkIdentical(d, fn(obj), msg("digest is from the RNG setting", ...))
+
+ }
+}
+
+test.RNGdigest <- function(){
+
+ RNGkind('default', 'default')
+ on.exit( RNGrecovery() )
+
+ fn <- c('RNGdigest', 'RNGstr')
+ sapply(fn, function(f){
+ fn <- getFunction(f, where='package:rngtools')
+ checker <- checkFun(fn, f)
+
+ checker()
+ checker(1234)
+ checker(1:3, 'Valid seed')
+ checker(2:3, 'Invalid seed')
+ x <- list(10, rng=c(401L, 1L, 1L))
+ checker(x, 'list with rng slot')
+
+ })
+ TRUE
+}
+
+checkRNGtype <- function(x, ..., expL=2L){
+
+ fn <- RNGtype
+ oldRNG <- getRNG()
+ if( !missing(x) ){
+ d <- fn(x)
+ obj <- getRNG(x)
+ cl <- str_c(class(x), '(', length(x), ')')
+ }else{
+ d <- fn()
+ obj <- getRNG()
+ cl <- 'MISSING'
+ }
+ newRNG <- getRNG()
+ msg <- function(x, ...) paste(cl, ':', x, '[', ..., ']')
+ checkIdentical(oldRNG, newRNG, msg("does not change RNG", ...))
+
+ #
+ checkTrue( is.character(d), msg("result is a character vector", ...) )
+ checkIdentical( length(d), expL, msg("result has correct length (", expL, ")", ...) )
+
+}
+
+test.RNGtype <- function(){
+
+ RNGkind('default', 'default')
+ on.exit( RNGrecovery() )
+ checker <- checkRNGtype
+
+ checker()
+ checker(1234, 'Valid single numeric seed')
+ checker(1:3, 'Valid seed')
+ checker(402L, 'Valid encoded kind')
+ checkTrue( !identical(RNGtype(402), RNGtype(402L)), "Single integer and real number does not give the same result")
+ x <- list(10, rng=c(401L, 1L, 1L))
+ checker(x, 'list with rng slot')
+
+ # errors
+ oldRNG <- getRNG()
+ checkException(RNGtype(2:3), "Error with invalid length seed")
+ checkIdentical(oldRNG, getRNG(), "RNG still valid after error")
+ #
+
+ oldRNG <- getRNG()
+ checkException(RNGtype(123L), "Error with invalid RNG kind")
+ checkIdentical(oldRNG, getRNG(), "RNG still valid after error")
+ checkException(RNGtype(1234L), "Error with invalid RNG integer")
+ checkIdentical(oldRNG, getRNG(), "RNG still valid after error")
+}
diff --git a/debian/rules b/debian/rules
new file mode 100755
index 0000000..70bae9d
--- /dev/null
+++ b/debian/rules
@@ -0,0 +1,6 @@
+#!/usr/bin/make -f
+
+include /usr/share/R/debian/r-cran.mk
+
+install/$(package)::
+ chmod 644 $(debRlib)/$(cranName)/doc/rngtools.*
diff --git a/debian/source/format b/debian/source/format
new file mode 100644
index 0000000..163aaf8
--- /dev/null
+++ b/debian/source/format
@@ -0,0 +1 @@
+3.0 (quilt)
diff --git a/debian/tests/control b/debian/tests/control
new file mode 100644
index 0000000..d2aa55a
--- /dev/null
+++ b/debian/tests/control
@@ -0,0 +1,3 @@
+Tests: run-unit-test
+Depends: @
+Restrictions: allow-stderr
diff --git a/debian/tests/run-unit-test b/debian/tests/run-unit-test
new file mode 100644
index 0000000..fac0275
--- /dev/null
+++ b/debian/tests/run-unit-test
@@ -0,0 +1,13 @@
+#!/bin/sh -e
+
+oname=rngtools
+pkg=r-cran-`echo $oname | tr '[A-Z]' '[a-z]'`
+
+if [ "$ADTTMP" = "" ] ; then
+ ADTTMP=`mktemp -d /tmp/${pkg}-test.XXXXXX`
+fi
+cd $ADTTMP
+cp -a /usr/share/doc/${pkg}/tests/* $ADTTMP
+LC_ALL=C R --no-save < doRUnit.R
+rm -fr $ADTTMP/*
+
diff --git a/debian/watch b/debian/watch
new file mode 100644
index 0000000..f28e408
--- /dev/null
+++ b/debian/watch
@@ -0,0 +1,3 @@
+version=3
+https://cran.r-project.org/src/contrib/rbgtools_([-0-9\.]*)\.tar\.gz
+
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-med/r-cran-rngtools.git
More information about the debian-med-commit
mailing list