Displaying 1 result from an estimated 1 matches for "rnormtransform".
1999 May 05
1
RNG R/Splus compatibility
...if (4 != length(seed))
stop("seed length is not consistent with kind Wichmann-Hill.")
assign(".RandomSeed", seed, where=1)
}
else stop("seed does not match RNG kind.")
}
seed
}
set.RNORMtransform <- function(rnorm=NULL)
{# with a null argument this returns setting
if (is.null(rnorm))
{if(exists(".RNORMtransform", where=1)) rnorm <- .RNORMtransform
else rnorm <- "default"
}
else...