R : Copyright 2005, The R Foundation for Statistical Computing Version 2.1.1 (2005-06-20), ISBN 3-900051-07-0 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for a HTML browser interface to help. Type 'q()' to quit R. > ### *
> ### > attach(NULL, name = "CheckExEnv") > assign(".CheckExEnv", as.environment(2), pos = length(search())) # base > ## add some hooks to label plot pages for base and grid graphics > setHook("plot.new", ".newplot.hook") > setHook("persp", ".newplot.hook") > setHook("grid.newpage", ".gridplot.hook") > > assign("cleanEx", + function(env = .GlobalEnv) { + rm(list = ls(envir = env, all.names = TRUE), envir = env) + RNGkind("default", "default") + set.seed(1) + options(warn = 1) + delayedAssign("T", stop("T used instead of TRUE"), + assign.env = .CheckExEnv) + delayedAssign("F", stop("F used instead of FALSE"), + assign.env = .CheckExEnv) + sch <- search() + newitems <- sch[! sch %in% .oldSearch] + for(item in rev(newitems)) + eval(substitute(detach(item), list(item=item))) + missitems <- .oldSearch[! .oldSearch %in% sch] + if(length(missitems)) + warning("items ", paste(missitems, collapse=", "), + " have been removed from the search path") + }, + env = .CheckExEnv) > assign("..nameEx", "__{must remake R-ex/*.R}__", env = .CheckExEnv) # for now > assign("ptime", proc.time(), env = .CheckExEnv) > grDevices::postscript("setRNG-Examples.ps") > assign("par.postscript", graphics::par(no.readonly = TRUE), env = .CheckExEnv) > options(contrasts = c(unordered = "contr.treatment", ordered = "contr.poly")) > options(warn = 1) > library('setRNG') > > assign(".oldSearch", search(), env = .CheckExEnv) > assign(".oldNS", loadedNamespaces(), env = .CheckExEnv) > cleanEx(); ..nameEx <- "00Intro.setRNG" > > ### * 00Intro.setRNG > > flush(stderr()); flush(stdout()) > > ### Name: 00Intro.setRNG > ### Title: setRNG > ### Aliases: 00Intro.setRNG > ### Keywords: programming interface utilities distribution > > ### ** Examples > > is.R() [1] TRUE > setRNG(kind="Wichmann-Hill", seed=c(979,1479,1542), normal.kind="Box-Muller") $kind [1] "Mersenne-Twister" $normal.kind [1] "Inversion" $seed [1] 624 -169270483 -442010614 -603558397 -222347416 1489374793 [7] 865871222 1734802815 98005428 268448037 63650722 -1754793285 [13] -2135275840 -779982911 -864886130 1880007095 463784588 1271615005 [19] 1390544442 -544608653 -251475688 -326549447 -1570483546 1965989103 [25] -784675228 1458985493 2146317266 -1103943381 289023600 -436963407 [31] 109630910 69979943 1606475068 1441346829 -662821782 -381252893 [37] -311574840 1918496297 289721302 507975775 -209037548 1665646341 [43] -466864126 776139675 1704391200 -162823263 -1815571218 471685271 [49] 1503042540 -9316355 773770906 1304642387 1931157624 -1378412519 [55] 965775622 19361743 1561398212 1879269365 1049118770 1191074315 [61] 508275152 -1006204015 -639295458 1060781575 -724498788 257177325 [67] -1004075830 323426243 602271272 1516224009 -111500746 -368663745 [73] 1624894580 -1946665755 -305830814 -779330437 1251167616 -2140893311 [79] 2068936526 1520009079 -673505972 406802909 -205928710 1641613363 [85] 1751721944 454221817 -2089418906 1121694383 1689254180 -1984604715 [91] -781808494 1892940523 409525552 -1134260367 -2025809282 823270631 [97] 1407180796 1755457741 783947050 -213904221 536857992 1791983081 [103] -1888114538 -2091016673 -1860292140 -276190523 2041495746 293352795 [109] -2071504672 1489341281 -1448769106 -885320105 -724939092 -89408579 [115] 801828698 -2096939757 1355079480 -1942710311 -1985176122 -1593612913 [121] -2123393404 -410764363 1470169330 1508641739 174702736 1980138321 [127] 1530086622 -412390457 826632540 1682639533 709842314 1047101827 [133] -678208280 2040606153 -1020403978 2130970879 -206624972 796133541 [139] -318747358 441089595 1414206528 1684436801 291294222 1773804855 [145] 985411596 -953215587 -93698118 880402931 403064472 -717996103 [151] -1580438490 1582729327 2024268772 149426581 -61889198 -1132557141 [157] -349809680 -1813747919 1851072318 -872535385 1834590908 -1060709235 [163] 1425982954 -973382045 -1401381816 -657666647 -803519146 1303503839 [169] 602197140 690968197 -1194194558 -1271974117 -424247392 -2076224735 [175] 1896824430 -1915841513 -1610038932 1514233725 -139472870 359986899 [181] 369450488 1175050137 1835887238 -1718805681 1001447748 -1453795467 [187] -158697038 -289178229 -1653172400 -1258931439 -1522652770 -1534961273 [193] -1267430372 -124936595 -656382390 1999481667 1820822440 1447714185 [199] 1037425590 1008676543 -384359948 -164391835 1513879010 1130520571 [205] 1419877120 -1790435583 1398071502 -349144329 1191707340 1281005917 [211] 1471383674 -517178445 244983128 -1431478407 -634939162 1298079279 [217] -404582748 -1068593835 -1989575150 -487399829 -265123152 1949564657 [223] -1333369858 -1833961369 1592665468 1108824141 1812739754 1530423331 [229] 1368926984 1007803753 -537550314 1929636255 916334420 -336018875 [235] 1515590210 -937690917 -1562089888 1886968545 247837486 -1852321321 [241] 504493100 -235748547 -695373606 1859678355 832347320 1259788121 [247] 563279686 1350865167 -963318780 -2126433483 67416690 658812747 [253] -1640878576 1754641105 214290014 339674951 1897819868 -1881411027 [259] 1352283914 -1756130045 25328232 1343966537 -703424394 -149416833 [265] 735173812 -1678319579 1312317090 -560725573 -1034493504 -355891519 [271] -973490802 -323184457 -1082223220 1535237405 -1135244998 -1313811085 [277] 451200024 -348242119 -918059610 1437955055 1293941092 1537788181 [283] -1049356590 -437194709 1313702256 622024369 43280574 48727591 [289] -1688377284 -1873574899 1419929450 1823945187 -1910605368 -731992791 [295] -1950040362 -1458327713 336216596 -744100347 -688203006 -1090356581 [301] -1882125024 -718134623 1737025518 -1000943721 1906697964 1434445565 [307] -584855142 -1192383917 -766862472 -887384295 -1562557434 -341195057 [313] 484161220 -84062475 684698418 -449863413 -1822653232 950332049 [319] -1500892386 -1805552377 973279644 -1376385555 -767768630 949698243 [325] 1967401256 -2032927479 -1197206218 1169078847 1721718644 -1669469211 [331] -1581938846 1033855867 -735385472 -55923071 -1374991794 1008629367 [337] 652208204 1751441629 -1726985734 -1345917133 -878304552 -1499013383 [343] -873713050 2098825647 52438052 1186383061 -1389400174 -2026323477 [349] -331925456 776105585 -650171010 1516557287 1432840956 255555533 [355] -1350477782 1949809571 -1597273976 -1586283287 1615371158 1705063711 [361] -957801260 1006033349 1736467394 -895304613 1144812512 707471969 [367] 538500270 -741634729 2105842092 -660026691 -600640934 -579558381 [373] -422618568 -1244129575 -1374924602 1354546319 -112901756 1649224373 [379] -844405774 -901492021 -1011508336 -1931222447 1196120030 1118413511 [385] -1578994596 -1768171091 1585977482 -1262180221 1720489960 -634098487 [391] -766881290 2107842559 71275060 864597925 -311201758 1917093179 [397] -2132955328 581670465 273260302 1729500215 -1075053812 -1497127779 [403] 514050746 -1523660557 1872642456 -1398325575 -19554522 -1991549073 [409] 614665956 -1388805995 358320210 1217024939 1890561776 -679393743 [415] 1766240830 -1763188313 2144087484 -493933683 -580318998 -1418066589 [421] -2007017656 1661963433 -1438566314 -563316001 435861396 1084982661 [427] 78032002 -591610341 384211616 -1490816479 -1657433746 766905111 [433] -462549908 -1892848003 1685771034 -2043847213 501930232 -1156819303 [439] -1075831418 628978255 -695104444 -1024407947 458742962 943899787 [445] 905802320 -1928160751 -2083963746 -52981625 -75720932 1301114221 [451] -1237571254 630182467 874235560 -369320823 -809152842 -1263188545 [457] 796036340 1557611365 -1976428318 1313040123 2133800448 1955347969 [463] -1317751858 -1151110665 -1922904628 173942877 1037044602 464020147 [469] 361570392 -1929421191 1053019110 718127 -1939293788 2062416981 [475] -2101845742 1806017899 1115088304 680517105 -1486162178 1982902119 [481] -850677636 -301031603 -15107670 205393699 60417544 -1728865175 [487] 1986958614 154501279 -1744891308 -1115426491 1731048770 -1492090917 [493] 512721248 1138522593 60753454 -2733865 153239340 1288557117 [499] -960793638 483907475 -430106696 1249400409 353937990 -810817521 [505] -276785404 -391634379 -90892942 1357575755 -1326184176 552669649 [511] -1329340066 1621835335 1502706140 -1769291475 1511586314 1690090499 [517] -55462552 367823945 500501366 -1062917249 -755480652 -735473883 [523] -1867415134 1666975931 1172274368 -905140799 374114446 1187418039 [529] 1376018572 1190423581 -1487598534 1559477363 -1942831336 -1754317255 [535] 678869158 655903471 -718199708 1536636949 1040579026 -229984469 [541] -2008228752 -382847567 1215036350 1979661607 -1331301572 -713436403 [547] -179131798 1346623715 -1858390840 -2099286999 -1852788266 -1682160033 [553] -1950995180 1312824581 131431938 -1688338021 838281248 -1206599263 [559] 940915438 938231447 241250796 -1521879555 330618010 -885780141 [565] 1860572792 -1814292967 -1435109626 1963466191 1053974980 1597193717 [571] 337841714 -167974901 -1151770672 -264287855 -486848994 -874206201 [577] -1897849700 -179055379 -1965126966 202073539 -1626446808 2110012425 [583] -382105546 926077247 -1718566284 356489957 -642667934 55470715 [589] 195986304 -1158886015 -2087641778 -687903369 -1869565108 -800690211 [595] -873280262 1926288947 1649352152 -608772615 414082406 70475951 [601] 1505513252 -1158401067 1342460562 -1640396565 686920496 -1591980687 [607] -1056325506 -736916761 1553659388 -57620787 1624546090 -246717789 [613] 1879262088 546503657 -2006479210 197184543 -2095148 1319110853 [619] 526255810 -345685157 -404910368 2072824161 -547868754 -2085092265 [625] -689249108 > rnorm(10) [1] -1.9242522 -0.8956891 2.1221336 0.8166920 -0.1356919 -0.4602838 [7] 0.2761542 1.3265435 0.6856247 -1.8336524 > > sim <-function(rng=NULL) + {if(!require("setRNG")) stop("This function requires the setRNG package.") + if(is.null(rng)) rng <- setRNG() # returns setting so don't skip if NULL + else {old.rng <- setRNG(rng); on.exit(setRNG(old.rng)) } + x <- list(numbers=rnorm(10)) + x$rng <- rng + x + } > > z <- sim() > sim()$numbers [1] 0.003007779 1.008712871 -0.754549882 -0.348628654 -0.003953324 [6] -0.025432021 -1.452133326 0.121431311 -0.497509450 0.250835062 > sim(rng=getRNG(z))$numbers [1] 1.9850438 0.6107701 -0.9419894 1.1031329 0.4184702 0.9167797 [7] -0.7245397 -0.4391386 1.4662376 0.2892896 > z$numbers [1] 1.9850438 0.6107701 -0.9419894 1.1031329 0.4184702 0.9167797 [7] -0.7245397 -0.4391386 1.4662376 0.2892896 > > > > > cleanEx(); ..nameEx <- "getRNG" > > ### * getRNG > > flush(stderr()); flush(stdout()) > > ### Name: getRNG > ### Title: get the RND and seed from an object > ### Aliases: getRNG getRNG.default > ### Keywords: ts programming utilities > > ### ** Examples > > ## Not run: > ##D if (require("dse1")) { > ##D if(is.R()) data("eg1.DSE.data.diff", package="dse1") > ##D model <- estVARXls(eg1.DSE.data.diff) > ##D sim <- simulate(model) > ##D getRNG(sim) > ##D } > ## End(Not run) > > > > cleanEx(); ..nameEx <- "random.number.test" > > ### * random.number.test > > flush(stderr()); flush(stdout()) > > ### Name: random.number.test > ### Title: Test the random number generator > ### Aliases: random.number.test > ### Keywords: programming utilities > > ### ** Examples > > random.number.test() Random number generator tests ...Warning in RNGkind(kind = kind, normal.kind = normal.kind) : Buggy version of Kinderman-Ramage generator used. ok > > > > cleanEx(); ..nameEx <- "setRNG" > > ### * setRNG > > flush(stderr()); flush(stdout()) > > ### Name: setRNG > ### Title: Set the Random Number Generator > ### Aliases: setRNG > ### Keywords: programming utilities > > ### ** Examples > > setRNG(kind="Wichmann-Hill", seed=c(979,1479,1542), normal.kind="Box-Muller") $kind [1] "Mersenne-Twister" $normal.kind [1] "Inversion" $seed [1] 624 -169270483 -442010614 -603558397 -222347416 1489374793 [7] 865871222 1734802815 98005428 268448037 63650722 -1754793285 [13] -2135275840 -779982911 -864886130 1880007095 463784588 1271615005 [19] 1390544442 -544608653 -251475688 -326549447 -1570483546 1965989103 [25] -784675228 1458985493 2146317266 -1103943381 289023600 -436963407 [31] 109630910 69979943 1606475068 1441346829 -662821782 -381252893 [37] -311574840 1918496297 289721302 507975775 -209037548 1665646341 [43] -466864126 776139675 1704391200 -162823263 -1815571218 471685271 [49] 1503042540 -9316355 773770906 1304642387 1931157624 -1378412519 [55] 965775622 19361743 1561398212 1879269365 1049118770 1191074315 [61] 508275152 -1006204015 -639295458 1060781575 -724498788 257177325 [67] -1004075830 323426243 602271272 1516224009 -111500746 -368663745 [73] 1624894580 -1946665755 -305830814 -779330437 1251167616 -2140893311 [79] 2068936526 1520009079 -673505972 406802909 -205928710 1641613363 [85] 1751721944 454221817 -2089418906 1121694383 1689254180 -1984604715 [91] -781808494 1892940523 409525552 -1134260367 -2025809282 823270631 [97] 1407180796 1755457741 783947050 -213904221 536857992 1791983081 [103] -1888114538 -2091016673 -1860292140 -276190523 2041495746 293352795 [109] -2071504672 1489341281 -1448769106 -885320105 -724939092 -89408579 [115] 801828698 -2096939757 1355079480 -1942710311 -1985176122 -1593612913 [121] -2123393404 -410764363 1470169330 1508641739 174702736 1980138321 [127] 1530086622 -412390457 826632540 1682639533 709842314 1047101827 [133] -678208280 2040606153 -1020403978 2130970879 -206624972 796133541 [139] -318747358 441089595 1414206528 1684436801 291294222 1773804855 [145] 985411596 -953215587 -93698118 880402931 403064472 -717996103 [151] -1580438490 1582729327 2024268772 149426581 -61889198 -1132557141 [157] -349809680 -1813747919 1851072318 -872535385 1834590908 -1060709235 [163] 1425982954 -973382045 -1401381816 -657666647 -803519146 1303503839 [169] 602197140 690968197 -1194194558 -1271974117 -424247392 -2076224735 [175] 1896824430 -1915841513 -1610038932 1514233725 -139472870 359986899 [181] 369450488 1175050137 1835887238 -1718805681 1001447748 -1453795467 [187] -158697038 -289178229 -1653172400 -1258931439 -1522652770 -1534961273 [193] -1267430372 -124936595 -656382390 1999481667 1820822440 1447714185 [199] 1037425590 1008676543 -384359948 -164391835 1513879010 1130520571 [205] 1419877120 -1790435583 1398071502 -349144329 1191707340 1281005917 [211] 1471383674 -517178445 244983128 -1431478407 -634939162 1298079279 [217] -404582748 -1068593835 -1989575150 -487399829 -265123152 1949564657 [223] -1333369858 -1833961369 1592665468 1108824141 1812739754 1530423331 [229] 1368926984 1007803753 -537550314 1929636255 916334420 -336018875 [235] 1515590210 -937690917 -1562089888 1886968545 247837486 -1852321321 [241] 504493100 -235748547 -695373606 1859678355 832347320 1259788121 [247] 563279686 1350865167 -963318780 -2126433483 67416690 658812747 [253] -1640878576 1754641105 214290014 339674951 1897819868 -1881411027 [259] 1352283914 -1756130045 25328232 1343966537 -703424394 -149416833 [265] 735173812 -1678319579 1312317090 -560725573 -1034493504 -355891519 [271] -973490802 -323184457 -1082223220 1535237405 -1135244998 -1313811085 [277] 451200024 -348242119 -918059610 1437955055 1293941092 1537788181 [283] -1049356590 -437194709 1313702256 622024369 43280574 48727591 [289] -1688377284 -1873574899 1419929450 1823945187 -1910605368 -731992791 [295] -1950040362 -1458327713 336216596 -744100347 -688203006 -1090356581 [301] -1882125024 -718134623 1737025518 -1000943721 1906697964 1434445565 [307] -584855142 -1192383917 -766862472 -887384295 -1562557434 -341195057 [313] 484161220 -84062475 684698418 -449863413 -1822653232 950332049 [319] -1500892386 -1805552377 973279644 -1376385555 -767768630 949698243 [325] 1967401256 -2032927479 -1197206218 1169078847 1721718644 -1669469211 [331] -1581938846 1033855867 -735385472 -55923071 -1374991794 1008629367 [337] 652208204 1751441629 -1726985734 -1345917133 -878304552 -1499013383 [343] -873713050 2098825647 52438052 1186383061 -1389400174 -2026323477 [349] -331925456 776105585 -650171010 1516557287 1432840956 255555533 [355] -1350477782 1949809571 -1597273976 -1586283287 1615371158 1705063711 [361] -957801260 1006033349 1736467394 -895304613 1144812512 707471969 [367] 538500270 -741634729 2105842092 -660026691 -600640934 -579558381 [373] -422618568 -1244129575 -1374924602 1354546319 -112901756 1649224373 [379] -844405774 -901492021 -1011508336 -1931222447 1196120030 1118413511 [385] -1578994596 -1768171091 1585977482 -1262180221 1720489960 -634098487 [391] -766881290 2107842559 71275060 864597925 -311201758 1917093179 [397] -2132955328 581670465 273260302 1729500215 -1075053812 -1497127779 [403] 514050746 -1523660557 1872642456 -1398325575 -19554522 -1991549073 [409] 614665956 -1388805995 358320210 1217024939 1890561776 -679393743 [415] 1766240830 -1763188313 2144087484 -493933683 -580318998 -1418066589 [421] -2007017656 1661963433 -1438566314 -563316001 435861396 1084982661 [427] 78032002 -591610341 384211616 -1490816479 -1657433746 766905111 [433] -462549908 -1892848003 1685771034 -2043847213 501930232 -1156819303 [439] -1075831418 628978255 -695104444 -1024407947 458742962 943899787 [445] 905802320 -1928160751 -2083963746 -52981625 -75720932 1301114221 [451] -1237571254 630182467 874235560 -369320823 -809152842 -1263188545 [457] 796036340 1557611365 -1976428318 1313040123 2133800448 1955347969 [463] -1317751858 -1151110665 -1922904628 173942877 1037044602 464020147 [469] 361570392 -1929421191 1053019110 718127 -1939293788 2062416981 [475] -2101845742 1806017899 1115088304 680517105 -1486162178 1982902119 [481] -850677636 -301031603 -15107670 205393699 60417544 -1728865175 [487] 1986958614 154501279 -1744891308 -1115426491 1731048770 -1492090917 [493] 512721248 1138522593 60753454 -2733865 153239340 1288557117 [499] -960793638 483907475 -430106696 1249400409 353937990 -810817521 [505] -276785404 -391634379 -90892942 1357575755 -1326184176 552669649 [511] -1329340066 1621835335 1502706140 -1769291475 1511586314 1690090499 [517] -55462552 367823945 500501366 -1062917249 -755480652 -735473883 [523] -1867415134 1666975931 1172274368 -905140799 374114446 1187418039 [529] 1376018572 1190423581 -1487598534 1559477363 -1942831336 -1754317255 [535] 678869158 655903471 -718199708 1536636949 1040579026 -229984469 [541] -2008228752 -382847567 1215036350 1979661607 -1331301572 -713436403 [547] -179131798 1346623715 -1858390840 -2099286999 -1852788266 -1682160033 [553] -1950995180 1312824581 131431938 -1688338021 838281248 -1206599263 [559] 940915438 938231447 241250796 -1521879555 330618010 -885780141 [565] 1860572792 -1814292967 -1435109626 1963466191 1053974980 1597193717 [571] 337841714 -167974901 -1151770672 -264287855 -486848994 -874206201 [577] -1897849700 -179055379 -1965126966 202073539 -1626446808 2110012425 [583] -382105546 926077247 -1718566284 356489957 -642667934 55470715 [589] 195986304 -1158886015 -2087641778 -687903369 -1869565108 -800690211 [595] -873280262 1926288947 1649352152 -608772615 414082406 70475951 [601] 1505513252 -1158401067 1342460562 -1640396565 686920496 -1591980687 [607] -1056325506 -736916761 1553659388 -57620787 1624546090 -246717789 [613] 1879262088 546503657 -2006479210 197184543 -2095148 1319110853 [619] 526255810 -345685157 -404910368 2072824161 -547868754 -2085092265 [625] -689249108 > rnorm(10) [1] -1.9242522 -0.8956891 2.1221336 0.8166920 -0.1356919 -0.4602838 [7] 0.2761542 1.3265435 0.6856247 -1.8336524 > > > > ### *