R/bgpdSetSeed.R

In texmex: Threshold exceedences and multivariate extremes

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)
  }
  invisible(x$seed)
}

Try the texmex package in your browser