Fix rxSetSeed

DESCRIPTION

@@ -37,4 +37,4 @@ Encoding: UTF-8
 Language: en-US
 NeedsCompilation: yes
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1

R/RcppExports.R

@@ -4,14 +4,14 @@
 #' Scaled Inverse Chi Squared distribution
 #'
 #' @param n Number of random samples
-#' 
+#'
 #' @param nu degrees of freedom of inverse chi square
-#' 
-#' @param scale  Scale of inverse chi squared distribution 
+#'
+#' @param scale  Scale of inverse chi squared distribution
 #'         (default is 1).
-#' 
+#'
 #' @return a vector of inverse chi squared deviates.
-#' 
+#'
 #' @examples
 #' rinvchisq(3, 4, 1) ## Scale = 1, degrees of freedom = 4
 #' rinvchisq(2, 4, 2) ## Scale = 2, degrees of freedom = 4
@@ -23,16 +23,16 @@ rinvchisq <- function(n = 1L, nu = 1.0, scale = 1) {
 #' One correlation sample from the LKJ distribution
 #'
 #' @param d The dimension of the correlation matrix
-#' 
+#'
 #' @param eta The scaling parameter of the LKJ distribution.
 #'   Must be > 1.  Also related to the degrees of freedom nu.
 #'   eta = (nu-1)/2.
-#' 
+#'
 #' @param cholesky boolean; If `TRUE` return the cholesky
 #'   decomposition.
 #'
 #' @return A correlation sample from the LKJ distribution
-#' 
+#'
 #' @author Matthew Fidler (translated to RcppArmadillo) and Emma Schwager
 #' @export
 #' @keywords internal
@@ -54,13 +54,13 @@ rLKJcvLsd1 <- function(logSd, logSdSD, eta = 1.0) {
 #' random covariate to a correlation.
 #'
 #' @inheritParams rLKJ1
-#' 
+#'
 #' @param nu Degrees of freedom of the Wishart distribution
-#' 
+#'
 #' @inheritParams cvPost
 #'
 #' @return One correlation sample from the inverse wishart
-#' 
+#'
 #' @author Matthew Fidler
 #' @keywords internal
 #' @export

R/rxrandom.R

@@ -951,7 +951,7 @@ cvPost <- function(nu, omega, n = 1L, omegaIsChol = FALSE, returnChol = FALSE,
 #' @references
 #'
 #' JD Cook. (2016). Random number generator seed mistakes.
-#' \url{https://tinyurl.com/m62v3kv9}
+#' \url{https://www.johndcook.com/blog/2016/01/29/random-number-generator-seed-mistakes/}
 #'
 #' @export
 rxSetSeed <- function(seed) {