Defines functions bgpdSetSeed

Documented in bgpdSetSeed

bgpdSetSeed <- function(x){
  if (oldClass(x) != "bgpd"){
      stop("This function expects an object of class \'bgpd\'.")
  if (is.R()){
	  assign(".Random.seed", x$seed, envir=.GlobalEnv)
  else {
  	  assign(".Random.seed", x$seed, where = 1)

Try the texmex package in your browser

Any scripts or data that you put into this service are public.

texmex documentation built on May 2, 2019, 4:56 p.m.