The R Project SVN R

Rev

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

Rev 90215 Rev 90299
Line 1... Line 1...
1 
 
 1 
 
2 
R Under development (unstable) (2026-07-08 r90212) -- "Unsuffered Consequences"
 2 
R Under development (unstable) (2026-07-22 r90289) -- "Unsuffered Consequences"
3 
Copyright (C) 2026 The R Foundation for Statistical Computing
 3 
Copyright (C) 2026 The R Foundation for Statistical Computing
4 
Platform: x86_64-pc-linux-gnu
 4 
Platform: x86_64-pc-linux-gnu
5 
 
 5 
 
6 
R is free software and comes with ABSOLUTELY NO WARRANTY.
 6 
R is free software and comes with ABSOLUTELY NO WARRANTY.
7 
You are welcome to redistribute it under certain conditions.
 7 
You are welcome to redistribute it under certain conditions.
Line 16474... Line 16474...
16474 
[1] "Inversion"
 16474 
[1] "Inversion"
16475 
 
 16475 
 
16476 
attr(,"kind")[[3]]
 16476 
attr(,"kind")[[3]]
16477 
[1] "Rejection"
 16477 
[1] "Rejection"
16478 
 
 16478 
 
- 
 
 16479 
attr(,"kind")[[4]]
- 
 
 16480 
[1] "BTPE"
- 
 
 16481 
 
16479 
> stopifnot(identical(S2, simulate(mod1, nsim = 200, seed = sseed)))
 16482 
> stopifnot(identical(S2, simulate(mod1, nsim = 200, seed = sseed)))
16480 
>
16483 
>
16481 
> ## To be sure about the proper RNGkind, e.g., after
 16484 
> ## To be sure about the proper RNGkind, e.g., after
16482 
> RNGversion("2.7.0")
 16485 
> RNGversion("2.7.0")
16483 
Warning in RNGkind("Mersenne-Twister", "Inversion", "Rounding") :
 16486 
Warning in RNGkind("Mersenne-Twister", "Inversion", "Rounding", "Buggy BTPE") :
16484 
  non-uniform 'Rounding' sampler used
 16487 
  non-uniform 'Rounding' sampler used
- 
 
 16488 
Warning in RNGkind("Mersenne-Twister", "Inversion", "Rounding", "Buggy BTPE") :
- 
 
 16489 
  Buggy BTPE algorithm used for rbinom()
16485 
> ## first set the RNG kind, then simulate
 16490 
> ## first set the RNG kind, then simulate
16486 
> do.call(RNGkind, attr(sseed, "kind"))
 16491 
> do.call(RNGkind, attr(sseed, "kind"))
16487 
> identical(S2, simulate(mod1, nsim = 200, seed = sseed))
 16492 
> identical(S2, simulate(mod1, nsim = 200, seed = sseed))
16488 
[1] TRUE
 16493 
[1] TRUE
16489 
>
16494 
>
Line 19800... Line 19805...
19800 
> ### * <FOOTER>
 19805 
> ### * <FOOTER>
19801 
> ###
 19806 
> ###
19802 
> cleanEx()
 19807 
> cleanEx()
19803 
> options(digits = 7L)
 19808 
> options(digits = 7L)
19804 
> base::cat("Time elapsed: ", proc.time() - base::get("ptime", pos = 'CheckExEnv'),"\n")
 19809 
> base::cat("Time elapsed: ", proc.time() - base::get("ptime", pos = 'CheckExEnv'),"\n")
19805 
Time elapsed:  5.14 0.184 5.327 0 0
19810 
Time elapsed:  3.059 0.271 3.435 0 0
19806 
> grDevices::dev.off()
 19811 
> grDevices::dev.off()
19807 
null device
19812 
null device
19808 
          1
19813 
          1
19809 
> ###
 19814 
> ###
19810 
> ### Local variables: ***
 19815 
> ### Local variables: ***