The R Project SVN R

Rev

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

Rev 89306 Rev 90299
Line 1... Line 1...
1
 
1

2
R Under development (unstable) (2026-01-16 r89305) -- "Unsuffered Consequences"
2
R Under development (unstable) (2026-07-23 r90290) -- "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 1604... Line 1604...
1604
+     set.seed(1000, type)
1604
+     set.seed(1000, type)
1605
+     runif(100); print(runif(4))
1605
+     runif(100); print(runif(4))
1606
+     set.seed(77, type)
1606
+     set.seed(77, type)
1607
+     runif(100); print(runif(4))
1607
+     runif(100); print(runif(4))
1608
+ }
1608
+ }
1609
[1] "Wichmann-Hill" "Inversion"     "Rejection"    
1609
[1] "Wichmann-Hill" "Inversion"     "Rejection"     "BTPE"         
1610
[1] 0.8308841 0.4640221 0.9460082 0.8764644
1610
[1] 0.8308841 0.4640221 0.9460082 0.8764644
1611
[1] 0.12909876 0.07294851 0.45594560 0.68884911
1611
[1] 0.12909876 0.07294851 0.45594560 0.68884911
1612
[1] 0.4062450 0.7188432 0.6241738 0.2511611
1612
[1] 0.4062450 0.7188432 0.6241738 0.2511611
1613
[1] "Marsaglia-Multicarry" "Inversion"            "Rejection"           
1613
[1] "Marsaglia-Multicarry" "Inversion"            "Rejection"           
-
 
1614
[4] "BTPE"                
1614
[1] 0.3479705 0.9469351 0.2489207 0.7329251
1615
[1] 0.3479705 0.9469351 0.2489207 0.7329251
1615
[1] 0.5041512 0.3617873 0.1469184 0.3798119
1616
[1] 0.5041512 0.3617873 0.1469184 0.3798119
1616
[1] 0.14388128 0.04196294 0.36214015 0.86053575
1617
[1] 0.14388128 0.04196294 0.36214015 0.86053575
1617
[1] "Super-Duper" "Inversion"   "Rejection"  
1618
[1] "Super-Duper" "Inversion"   "Rejection"   "BTPE"       
1618
[1] 0.2722510 0.9230240 0.3971743 0.8284474
1619
[1] 0.2722510 0.9230240 0.3971743 0.8284474
1619
[1] 0.5706241 0.1806023 0.9633860 0.8434444
1620
[1] 0.5706241 0.1806023 0.9633860 0.8434444
1620
[1] 0.09356585 0.41081124 0.38635627 0.72993396
1621
[1] 0.09356585 0.41081124 0.38635627 0.72993396
1621
[1] "Mersenne-Twister" "Inversion"        "Rejection"       
1622
[1] "Mersenne-Twister" "Inversion"        "Rejection"        "BTPE"            
1622
[1] 0.5999890 0.3328235 0.4886130 0.9544738
1623
[1] 0.5999890 0.3328235 0.4886130 0.9544738
1623
[1] 0.5993679 0.4516818 0.1368254 0.7261788
1624
[1] 0.5993679 0.4516818 0.1368254 0.7261788
1624
[1] 0.09594961 0.31235651 0.81244335 0.72330846
1625
[1] 0.09594961 0.31235651 0.81244335 0.72330846
1625
[1] "Knuth-TAOCP" "Inversion"   "Rejection"  
1626
[1] "Knuth-TAOCP" "Inversion"   "Rejection"   "BTPE"       
1626
[1] 0.9445502 0.3366297 0.6296881 0.5914161
1627
[1] 0.9445502 0.3366297 0.6296881 0.5914161
1627
[1] 0.9213954 0.5468138 0.8817100 0.4442237
1628
[1] 0.9213954 0.5468138 0.8817100 0.4442237
1628
[1] 0.8016962 0.9226080 0.1473484 0.8827707
1629
[1] 0.8016962 0.9226080 0.1473484 0.8827707
1629
[1] "Knuth-TAOCP-2002" "Inversion"        "Rejection"       
1630
[1] "Knuth-TAOCP-2002" "Inversion"        "Rejection"        "BTPE"            
1630
[1] 0.9303634 0.2812239 0.1085806 0.8053228
1631
[1] 0.9303634 0.2812239 0.1085806 0.8053228
1631
[1] 0.2916627 0.9085017 0.7958965 0.1980655
1632
[1] 0.2916627 0.9085017 0.7958965 0.1980655
1632
[1] 0.05247575 0.28290867 0.20930324 0.16794887
1633
[1] 0.05247575 0.28290867 0.20930324 0.16794887
1633
Warning messages:
1634
Warning messages:
1634
1: In set.seed(123, type) :
1635
1: In set.seed(123, type) :
Line 1638... Line 1639...
1638
3: In set.seed(77, type) :
1639
3: In set.seed(77, type) :
1639
  RNGkind: Marsaglia-Multicarry has poor statistical properties
1640
  RNGkind: Marsaglia-Multicarry has poor statistical properties
1640
> RNGkind(normal.kind = "Kinderman-Ramage")
1641
> RNGkind(normal.kind = "Kinderman-Ramage")
1641
> set.seed(123)
1642
> set.seed(123)
1642
> RNGkind()
1643
> RNGkind()
1643
[1] "Knuth-TAOCP-2002" "Kinderman-Ramage" "Rejection"       
1644
[1] "Knuth-TAOCP-2002" "Kinderman-Ramage" "Rejection"        "BTPE"            
1644
> rnorm(4)
1645
> rnorm(4)
1645
[1] -1.9699090 -2.2429340  0.5339321  0.2097153
1646
[1] -1.9699090 -2.2429340  0.5339321  0.2097153
1646
> RNGkind(normal.kind = "Ahrens-Dieter")
1647
> RNGkind(normal.kind = "Ahrens-Dieter")
1647
> set.seed(123)
1648
> set.seed(123)
1648
> RNGkind()
1649
> RNGkind()
1649
[1] "Knuth-TAOCP-2002" "Ahrens-Dieter"    "Rejection"       
1650
[1] "Knuth-TAOCP-2002" "Ahrens-Dieter"    "Rejection"        "BTPE"            
1650
> rnorm(4)
1651
> rnorm(4)
1651
[1]  0.06267229  0.12421568 -1.86653499 -0.14535921
1652
[1]  0.06267229  0.12421568 -1.86653499 -0.14535921
1652
> RNGkind(normal.kind = "Box-Muller")
1653
> RNGkind(normal.kind = "Box-Muller")
1653
> set.seed(123)
1654
> set.seed(123)
1654
> RNGkind()
1655
> RNGkind()
1655
[1] "Knuth-TAOCP-2002" "Box-Muller"       "Rejection"       
1656
[1] "Knuth-TAOCP-2002" "Box-Muller"       "Rejection"        "BTPE"            
1656
> rnorm(4)
1657
> rnorm(4)
1657
[1]  2.26160990  0.59010303  0.30176045 -0.01346139
1658
[1]  2.26160990  0.59010303  0.30176045 -0.01346139
1658
> set.seed(123)
1659
> set.seed(123)
1659
> runif(4)
1660
> runif(4)
1660
[1] 0.04062130 0.06511825 0.99290488 0.95540467
1661
[1] 0.04062130 0.06511825 0.99290488 0.95540467
Line 8380... Line 8381...
8380
> ## temporarily wrongly showed " withAutoprint({ "
8381
> ## temporarily wrongly showed " withAutoprint({ "
8381
> 
8382
> 
8382
> 
8383
> 
8383
> # ----- Last line -------------
8384
> # ----- Last line -------------
8384
> cat('Time elapsed: ', proc.time(),'\n')
8385
> cat('Time elapsed: ', proc.time(),'\n')
8385
Time elapsed:  1.162 0.101 1.266 0 0.002 
8386
Time elapsed:  1.054 0.213 1.518 0.008 0.004 
8386
> 
8387
>