The R Project SVN R

Rev

Rev 75767 | Rev 78541 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 75767 Rev 76160
Line 2355... Line 2355...
2355 
rm(.Random.seed)
 2355 
rm(.Random.seed)
2356 
attach(list(.Random.seed=c(0:4)))
 2356 
attach(list(.Random.seed=c(0:4)))
2357 
x <- runif(1)
 2357 
x <- runif(1)
2358 
detach(2)
 2358 
detach(2)
2359 
(new <- RNGkind())
 2359 
(new <- RNGkind())
2360 
stopifnot(identical(new, c("Mersenne-Twister", "Inversion")))
 2360 
stopifnot(identical(new, c("Mersenne-Twister", "Inversion", "Rejection")))
2361 
stopifnot(identical(find(".Random.seed"), ".GlobalEnv"))
 2361 
stopifnot(identical(find(".Random.seed"), ".GlobalEnv"))
2362 
## took from and assigned to list in 1.7.x.
 2362 
## took from and assigned to list in 1.7.x.
2363 
 
 2363 
 
2364 
 
 2364 
 
2365 
## PR#3750
 2365 
## PR#3750