withseed(seed, expr, envir = parent.frame())
  get.seed()
  replace.seed(seed, delete = TRUE)
  GetOrSetSeed()
  withpseed(seed, expr, envir = parent.frame(),
    cache = FALSE)environment to evaluate
  the code in.seed is null.withpseed is the same as withseed, but assumes a
  parallel seed from spawn.sprng.
  When evaluated the beginning and endind seeds are saved
  in the attributes "starting.seed" and "ending.seed", for
  continued evaluation with harvestset.seed