R/checknbootseed.R

Defines functions checknbootseed

Documented in checknbootseed

checknbootseed <-
function(nboot, seed)
 {
  if ((!inherits(nboot, "numeric") && !inherits(nboot, "integer")) || nboot <= 0 || length(nboot) != 1 || ceiling(nboot) != floor(nboot))
      stop("'nboot' must be a positive integer")
  
  if ((!inherits(seed, "numeric") && !inherits(seed, "integer")))
   	  stop("'seed' must be an integer")
 }

Try the tlm package in your browser

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

tlm documentation built on May 2, 2019, 2:11 p.m.