The R Project SVN R

Rev

Rev 89919 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 89919 Rev 90299
Line 2377... Line 2377...
2377 
rm(.Random.seed)
 2377 
rm(.Random.seed)
2378 
attach(list(.Random.seed=c(0:4)))
 2378 
attach(list(.Random.seed=c(0:4)))
2379 
x <- runif(1)
 2379 
x <- runif(1)
2380 
detach(2)
 2380 
detach(2)
2381 
(new <- RNGkind())
 2381 
(new <- RNGkind())
2382 
stopifnot(identical(new, c("Mersenne-Twister", "Inversion", "Rejection")))
 2382 
stopifnot(identical(new, c("Mersenne-Twister", "Inversion", "Rejection", "BTPE")))
2383 
stopifnot(identical(find(".Random.seed"), ".GlobalEnv"))
 2383 
stopifnot(identical(find(".Random.seed"), ".GlobalEnv"))
2384 
## took from and assigned to list in 1.7.x.
 2384 
## took from and assigned to list in 1.7.x.
2385 
 
 2385 
 
2386 
 
 2386 
 
2387 
## PR#3750
 2387 
## PR#3750