diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test
index 6f055d47c5d3d54a0906f156e6da0b0813bdc684..2d96f71014afa07721e961edd011e44c2d6cf179 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test
@@ -13388,10 +13388,6 @@ $row.names
#{ typeof(a~b) }
[1] "language"
-##com.oracle.truffle.r.test.simple.TestSimpleFunctions.testArgs
-#{ f<-function(x, row.names = NULL, optional = FALSE, ...) {print(optional)}; f(c(7,42), row.names=NULL, nm="x") }
-[1] FALSE
-
##com.oracle.truffle.r.test.simple.TestSimpleFunctions.testBinding
#{ f <- function(func, a) { func(a) && TRUE } ; g <- function(x) {TRUE} ; f(g, 5) ; f(is.na, 4) }
[1] FALSE
@@ -57204,3 +57200,5836 @@ a b c d
a b c d e
1 2 3 4 5
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinIm.testIm1
+#argv <- list(c(0.117646597100126-0.573973479297987i, -0.740437474899139-0.482946826369552i, -0.333166449062945-0.753763230370951i, -0.256092192198247+0.707588353835588i, 0.522033838837248+0.102958580568997i, -0.651949901695459+0.059749937384601i, 0.235386572284857-0.70459646368007i, 0.077960849563711-0.71721816157401i, -0.563222209454641-0.518013590538404i, -0.068796124369349+0.97981641556181i, 0.244428915757284-0.330850507052219i, 0.451504053079215-0.090319593965852i, 0.04123292199294+0.214538826629216i, -0.422496832339625-0.738527704739573i, -0.451685375030484+0.126357395265016i, 0.375304016677864+0.436900190874168i, -0.674059300339186+0.084416799015191i, 0.739947510877334+0.418982404924464i, 0.509114684244823-0.086484623694157i, -0.535642839219739+0.289927561259502i, 0.629727249341749+0.707648659913726i, -0.262197489402468-0.502198718342861i, -0.333800277698424-0.317646103980588i, -0.422186107911717+0.317002735170286i, -0.616692335171505+0.068946145379939i, -0.136100485502624-0.487679764177213i, -0.68086000613138+0.047032323152903i, 0.296209908189768+0.585533462557103i, 0.43280012844045+0.136998748692477i, -0.680205941942733-0.256569497284745i, 0.787738847475178-0.375602871669773i, 0.76904224100091-0.561876363549783i, 0.332202578950118-0.343917234128459i, -0.983769553611346-0.088288289740869i, -0.046488672133508-0.622109071207677i, -0.280395335170247-0.088565112138884i, 0.379095891586975-0.727769566649926i, -0.372438756103829+0.630754115650567i, 0.976973386685621-0.113639895506141i, -0.150428076228347+0.615598727377677i, 0.762964492726935+0.377685645913312i, -0.7825325866026+0.365371705974346i, -0.792443423040311-0.029652870362208i, 0.265771060547393-0.106618612674382i, -0.076741350022367-0.422144111460857i, 0.120061986786934-0.623033085890884i, 0.636569674033849-0.133150964328944i, -0.145741981978782+0.529165019069452i, 0.516862044313609-0.388779864071743i, 0.368964527385086+0.089207223073295i, -0.215380507641693+0.845013004067436i, 0.065293033525315+0.962527968484271i, -0.034067253738464+0.684309429416465i, 0.328611964770906+0.215416587846774i, -0.583053183540166-0.668235480667835i, -0.782507286391418+0.318827979750013i, 0.037788399171079+0.174802700161256i, 0.310480749443137+0.074551177173735i, 0.436523478910183+0.428166764970505i, -0.458365332711106+0.02467498282614i, -0.271871452223431+0.426340387811162i, 0.590808184713385-0.344468770084509i, -0.349650387953555+0.386026568349676i, -0.865512862653374-0.265651625278222i, -0.236279568941097+0.118144511046681i, -0.197175894348552+0.134038645368463i, 0.866602113481861-0.172567291859327i, 0.031389337713892-0.607820631329035i, 0.754053785184521-0.219050378933476i, -0.499292017172261+0.168065383884658i, 0.151969488085021-0.827990593142535i, -0.266853748421854-0.866413193943766i, 0.071623062591495-0.867246686843546i, -0.788765741891382+0.508717463380604i, -0.228835546857432-0.349587041980114i, 0.500139791176978-0.016703152458872i, 0.15619107374708-0.485402548890295i, -0.369039310626083+0.398423724273751i, -0.611165916680421+0.020983586354237i, -0.399467692630093-0.421179989556223i, 0.411274074028001+0.133781691724871i, 0.573364366690245+0.328833257005489i, -0.265145056696353-0.938538703606894i, 0.387209171815106+0.750271083217101i, -0.41433994791886-0.437159533180399i, -0.476246894615578+0.331179172958982i, -0.168543113030619+0.43048451175239i, -0.594617267459511+0.211980433372292i, 0.388005062566602-0.290649953587954i, -0.013004326537709-0.490434895455784i, 0.069845221019376-0.762134635168809i, 0.243687429599092+0.756774763795962i, 0.27384734040072+0.383667165938905i, -0.51606383094478-0.601506708006782i, -0.894951082455532+0.317442909372288i, 0.5073401683933-0.213001485168032i, -0.441163216905286-0.105671334003774i, -0.343169835663372+0.597359384628839i, -0.283179001991236-0.385834501657171i, -0.517794900198098-0.36732932802092i));Im(argv[[1]]);
+ [1] -0.57397348 -0.48294683 -0.75376323 0.70758835 0.10295858 0.05974994
+ [7] -0.70459646 -0.71721816 -0.51801359 0.97981642 -0.33085051 -0.09031959
+ [13] 0.21453883 -0.73852770 0.12635740 0.43690019 0.08441680 0.41898240
+ [19] -0.08648462 0.28992756 0.70764866 -0.50219872 -0.31764610 0.31700274
+ [25] 0.06894615 -0.48767976 0.04703232 0.58553346 0.13699875 -0.25656950
+ [31] -0.37560287 -0.56187636 -0.34391723 -0.08828829 -0.62210907 -0.08856511
+ [37] -0.72776957 0.63075412 -0.11363990 0.61559873 0.37768565 0.36537171
+ [43] -0.02965287 -0.10661861 -0.42214411 -0.62303309 -0.13315096 0.52916502
+ [49] -0.38877986 0.08920722 0.84501300 0.96252797 0.68430943 0.21541659
+ [55] -0.66823548 0.31882798 0.17480270 0.07455118 0.42816676 0.02467498
+ [61] 0.42634039 -0.34446877 0.38602657 -0.26565163 0.11814451 0.13403865
+ [67] -0.17256729 -0.60782063 -0.21905038 0.16806538 -0.82799059 -0.86641319
+ [73] -0.86724669 0.50871746 -0.34958704 -0.01670315 -0.48540255 0.39842372
+ [79] 0.02098359 -0.42117999 0.13378169 0.32883326 -0.93853870 0.75027108
+ [85] -0.43715953 0.33117917 0.43048451 0.21198043 -0.29064995 -0.49043490
+ [91] -0.76213464 0.75677476 0.38366717 -0.60150671 0.31744291 -0.21300149
+ [97] -0.10567133 0.59735938 -0.38583450 -0.36732933
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinIm.testIm4
+#argv <- list(c(0+0i, 0.01-0i, 0.02-0i, 0.03-0i, 0.04-0i, 0.05-0i, 0.06-0i, 0.07-0i, 0.08-0i, 0.09-0i, 0.1-0i, 0.11-0i, 0.12-0i, 0.13-0i, 0.14-0i, 0.15-0i, 0.16-0i, 0.17-0i, 0.18-0i, 0.19-0i, 0.2-0i, 0.21-0i, 0.22-0i, 0.23-0i, 0.24-0i, 0.25-0i, 0.26-0i, 0.27-0i, 0.28-0i, 0.29-0i, 0.3-0i, 0.31-0i, 0.32-0i, 0.33-0i, 0.34-0i, 0.35-0i, 0.36-0i, 0.37-0i, 0.38-0i, 0.39-0i, 0.4-0i, 0.41-0i, 0.42-0i, 0.43-0i, 0.44-0i, 0.45-0i, 0.46-0i, 0.47-0i, 0.48-0i, 0.49-0i, 0.5-0i, 0.51-0i, 0.52-0i, 0.53-0i, 0.54-0i, 0.55-0i, 0.56-0i, 0.57-0i, 0.58-0i, 0.59-0i, 0.6-0i, 0.61-0i, 0.62-0i, 0.63-0i, 0.64-0i, 0.65-0i, 0.66-0i, 0.67-0i, 0.68-0i, 0.69-0i, 0.7-0i, 0.71-0i, 0.72-0i, 0.73-0i, 0.74-0i, 0.75-0i, 0.76-0i, 0.77-0i, 0.78-0i, 0.79-0i, 0.8-0i, 0.81-0i, 0.82-0i, 0.83-0i, 0.84-0i, 0.85-0i, 0.86-0i, 0.87-0i, 0.88-0i, 0.89-0i, 0.9-0i, 0.91-0i, 0.92-0i, 0.93-0i, 0.94-0i, 0.95-0i, 0.96-0i, 0.97-0i, 0.98-0i, 0.99-0i, 1-0i));Im(argv[[1]]);
+ [1] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+ [38] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+ [75] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinRe.testRe1
+#argv <- list(c(0.997564050259824+0.069756473744125i, 0.987588409757226+0.069058909006684i, 0.977612769254628+0.068361344269243i, 0.96763712875203+0.067663779531802i, 0.957661488249431+0.06696621479436i, 0.947685847746833+0.066268650056919i, 0.937710207244235+0.065571085319478i, 0.927734566741637+0.064873520582037i, 0.917758926239038+0.064175955844595i, 0.90778328573644+0.063478391107154i, 0.897807645233842+0.062780826369713i, 0.887832004731244+0.062083261632272i, 0.877856364228645+0.06138569689483i, 0.867880723726047+0.060688132157389i, 0.857905083223449+0.059990567419948i, 0.847929442720851+0.059293002682507i, 0.837953802218252+0.058595437945065i, 0.827978161715654+0.057897873207624i, 0.818002521213056+0.057200308470183i, 0.808026880710458+0.056502743732742i, 0.79805124020786+0.0558051789953i, 0.788075599705261+0.055107614257859i, 0.778099959202663+0.054410049520418i, 0.768124318700065+0.053712484782976i, 0.758148678197466+0.053014920045535i, 0.748173037694868+0.052317355308094i, 0.73819739719227+0.051619790570653i, 0.728221756689672+0.050922225833211i, 0.718246116187073+0.05022466109577i, 0.708270475684475+0.049527096358329i, 0.698294835181877+0.048829531620888i, 0.688319194679279+0.048131966883446i, 0.67834355417668+0.047434402146005i, 0.668367913674082+0.046736837408564i, 0.658392273171484+0.046039272671123i, 0.648416632668886+0.045341707933681i, 0.638440992166287+0.04464414319624i, 0.628465351663689+0.043946578458799i, 0.618489711161091+0.043249013721358i, 0.608514070658493+0.042551448983916i, 0.598538430155894+0.041853884246475i, 0.588562789653296+0.041156319509034i, 0.578587149150698+0.040458754771593i, 0.5686115086481+0.039761190034151i, 0.558635868145502+0.03906362529671i, 0.548660227642903+0.038366060559269i, 0.538684587140305+0.037668495821828i, 0.528708946637707+0.036970931084386i, 0.518733306135109+0.036273366346945i, 0.50875766563251+0.035575801609504i, 0.498782025129912+0.034878236872063i, 0.488806384627314+0.034180672134621i, 0.478830744124716+0.03348310739718i, 0.468855103622117+0.032785542659739i, 0.458879463119519+0.032087977922298i, 0.448903822616921+0.031390413184856i, 0.438928182114323+0.030692848447415i, 0.428952541611724+0.029995283709974i, 0.418976901109126+0.029297718972533i, 0.409001260606528+0.028600154235091i, 0.39902562010393+0.02790258949765i, 0.389049979601331+0.027205024760209i, 0.379074339098733+0.026507460022768i, 0.369098698596135+0.025809895285326i, 0.359123058093537+0.025112330547885i, 0.349147417590938+0.024414765810444i, 0.33917177708834+0.023717201073003i, 0.329196136585742+0.023019636335561i, 0.319220496083144+0.02232207159812i, 0.309244855580545+0.021624506860679i, 0.299269215077947+0.020926942123238i, 0.289293574575349+0.020229377385796i, 0.279317934072751+0.019531812648355i, 0.269342293570153+0.018834247910914i, 0.259366653067554+0.018136683173473i, 0.249391012564956+0.017439118436031i, 0.239415372062358+0.01674155369859i, 0.22943973155976+0.016043988961149i, 0.219464091057161+0.015346424223708i, 0.209488450554563+0.014648859486266i, 0.199512810051965+0.013951294748825i, 0.189537169549367+0.013253730011384i, 0.179561529046768+0.012556165273943i, 0.16958588854417+0.011858600536501i, 0.159610248041572+0.01116103579906i, 0.149634607538974+0.010463471061619i, 0.139658967036375+0.009765906324178i, 0.129683326533777+0.009068341586736i, 0.119707686031179+0.008370776849295i, 0.109732045528581+0.007673212111854i, 0.0997564050259824+0.0069756473744125i, 0.0897807645233842+0.0062780826369713i, 0.0798051240207859+0.00558051789953i, 0.0698294835181877+0.0048829531620888i, 0.0598538430155895+0.0041853884246475i, 0.0498782025129912+0.0034878236872063i, 0.039902562010393+0.002790258949765i, 0.0299269215077947+0.0020926942123238i, 0.0199512810051965+0.0013951294748825i, 0.00997564050259824+0.00069756473744125i, 0+0i));Re(argv[[1]]);
+ [1] 0.997564050 0.987588410 0.977612769 0.967637129 0.957661488 0.947685848
+ [7] 0.937710207 0.927734567 0.917758926 0.907783286 0.897807645 0.887832005
+ [13] 0.877856364 0.867880724 0.857905083 0.847929443 0.837953802 0.827978162
+ [19] 0.818002521 0.808026881 0.798051240 0.788075600 0.778099959 0.768124319
+ [25] 0.758148678 0.748173038 0.738197397 0.728221757 0.718246116 0.708270476
+ [31] 0.698294835 0.688319195 0.678343554 0.668367914 0.658392273 0.648416633
+ [37] 0.638440992 0.628465352 0.618489711 0.608514071 0.598538430 0.588562790
+ [43] 0.578587149 0.568611509 0.558635868 0.548660228 0.538684587 0.528708947
+ [49] 0.518733306 0.508757666 0.498782025 0.488806385 0.478830744 0.468855104
+ [55] 0.458879463 0.448903823 0.438928182 0.428952542 0.418976901 0.409001261
+ [61] 0.399025620 0.389049980 0.379074339 0.369098699 0.359123058 0.349147418
+ [67] 0.339171777 0.329196137 0.319220496 0.309244856 0.299269215 0.289293575
+ [73] 0.279317934 0.269342294 0.259366653 0.249391013 0.239415372 0.229439732
+ [79] 0.219464091 0.209488451 0.199512810 0.189537170 0.179561529 0.169585889
+ [85] 0.159610248 0.149634608 0.139658967 0.129683327 0.119707686 0.109732046
+ [91] 0.099756405 0.089780765 0.079805124 0.069829484 0.059853843 0.049878203
+ [97] 0.039902562 0.029926922 0.019951281 0.009975641 0.000000000
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinRe.testRe3
+#argv <- list(c(-0.1-0.9i, -0.2-0.8i, -0.3-0.7i, -0.4-0.6i, -0.1-0.5i, -0.2-0.4i, -0.3-0.3i, -0.4-0.2i, -0.1-0.1i));Re(argv[[1]]);
+[1] -0.1 -0.2 -0.3 -0.4 -0.1 -0.2 -0.3 -0.4 -0.1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinRe.testRe7
+#argv <- list(c(0.00086580086580088+0i, 0.00259740259740261+0i, 0.00519480519480521+0i, 0.00865800865800867+0i, 0.012987012987013+0i, 0.0181818181818182+0i, 0.0242424242424242+0i, 0.0303030303030303+0i, 0.0363636363636363+0i, 0.0424242424242424+0i, 0.0484848484848484+0i, 0.0536796536796536+0i, 0.058008658008658+0i, 0.0614718614718614+0i, 0.064069264069264+0i, 0.0649350649350649+0i, 0.064069264069264+0i, 0.0614718614718614+0i, 0.058008658008658+0i, 0.0536796536796536+0i, 0.0484848484848485+0i, 0.0424242424242424+0i, 0.0363636363636363+0i, 0.0303030303030303+0i, 0.0242424242424242+0i, 0.0181818181818182+0i, 0.012987012987013+0i, 0.00865800865800867+0i, 0.00519480519480521+0i, 0.00259740259740261+0i, 0.000865800865800882+0i));Re(argv[[1]]);
+ [1] 0.0008658009 0.0025974026 0.0051948052 0.0086580087 0.0129870130
+ [6] 0.0181818182 0.0242424242 0.0303030303 0.0363636364 0.0424242424
+[11] 0.0484848485 0.0536796537 0.0580086580 0.0614718615 0.0640692641
+[16] 0.0649350649 0.0640692641 0.0614718615 0.0580086580 0.0536796537
+[21] 0.0484848485 0.0424242424 0.0363636364 0.0303030303 0.0242424242
+[26] 0.0181818182 0.0129870130 0.0086580087 0.0051948052 0.0025974026
+[31] 0.0008658009
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinSysgetenv.testSysgetenv2
+#argv <- list('SWEAVE_OPTIONS', NA_character_); .Internal(Sys.getenv(argv[[1]], argv[[2]]))
+[1] NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinSysreadlink.testSysreadlink1
+#argv <- list(character(0)); .Internal(Sys.readlink(argv[[1]]))
+character(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinSyssleep.testSyssleep1
+#argv <- list(0.5); .Internal(Sys.sleep(argv[[1]]))
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinabs.testabs1
+#argv <- list(c(0.9, 0.1, 0.3, 0.5, 0.7, 0.9, 0.1, 0.3, 0.5));abs(argv[[1]]);
+[1] 0.9 0.1 0.3 0.5 0.7 0.9 0.1 0.3 0.5
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinabs.testabs11
+#argv <- list(c(NA, 1L));abs(argv[[1]]);
+[1] NA 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinabs.testabs14
+#argv <- list(numeric(0));abs(argv[[1]]);
+numeric(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinabs.testabs19
+#argv <- list(-32L);abs(argv[[1]]);
+[1] 32
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinabs.testabs2
+#argv <- list(c(TRUE, TRUE, TRUE, TRUE));abs(argv[[1]]);
+[1] 1 1 1 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinacos.testacos1
+#argv <- list(c(0.999950000416665, 0.999800006666578, 0.999550033748988, 0.999200106660978, 0.998750260394966, 0.998200539935204, 0.99755100025328, 0.996801706302619, 0.995952733011994, 0.995004165278026, 0.993956097956697, 0.992808635853866, 0.991561893714788, 0.990215996212637, 0.988771077936042, 0.987227283375627, 0.985584766909561, 0.983843692788121, 0.98200423511727, 0.980066577841242, 0.978030914724148, 0.975897449330606, 0.973666395005375, 0.97133797485203, 0.968912421710645, 0.966389978134513, 0.963770896365891, 0.961055438310771, 0.958243875512697, 0.955336489125606, 0.952333569885713, 0.949235418082441, 0.946042343528387, 0.942754665528346, 0.939372712847379, 0.935896823677935, 0.932327345606034, 0.92866463557651, 0.924909059857313, 0.921060994002885, 0.917120822816605, 0.913088940312308, 0.908965749674885, 0.904751663219963, 0.900447102352677, 0.896052497525525, 0.891568288195329, 0.886994922779284, 0.882332858610121, 0.877582561890373, 0.872744507645751, 0.86781917967765, 0.862807070514761, 0.857708681363824, 0.852524522059506, 0.847255111013416, 0.841900975162269, 0.836462649915187, 0.830940679100164, 0.825335614909678, 0.819648017845479, 0.813878456662534, 0.808027508312152, 0.802095757884293, 0.796083798549056, 0.789992231497365, 0.783821665880849, 0.777572718750928, 0.771246014997107, 0.764842187284488, 0.758361875990508, 0.751805729140895, 0.74517440234487, 0.738468558729588, 0.731688868873821, 0.724836010740905, 0.717910669610943, 0.710913538012277, 0.703845315652236, 0.696706709347165, 0.689498432951747, 0.682221207287614, 0.674875760071267, 0.667462825841308, 0.659983145884982, 0.652437468164052, 0.644826547240001, 0.63715114419858, 0.629412026573697, 0.621609968270664, 0.613745749488812, 0.605820156643463, 0.597833982287298, 0.589788025031098, 0.581683089463884, 0.573519986072457, 0.565299531160354, 0.557022546766217, 0.548689860581588));acos(argv[[1]]);
+ [1] 0.01 0.02 0.03 0.04 0.05 0.06 0.07 0.08 0.09 0.10 0.11 0.12 0.13 0.14 0.15
+[16] 0.16 0.17 0.18 0.19 0.20 0.21 0.22 0.23 0.24 0.25 0.26 0.27 0.28 0.29 0.30
+[31] 0.31 0.32 0.33 0.34 0.35 0.36 0.37 0.38 0.39 0.40 0.41 0.42 0.43 0.44 0.45
+[46] 0.46 0.47 0.48 0.49 0.50 0.51 0.52 0.53 0.54 0.55 0.56 0.57 0.58 0.59 0.60
+[61] 0.61 0.62 0.63 0.64 0.65 0.66 0.67 0.68 0.69 0.70 0.71 0.72 0.73 0.74 0.75
+[76] 0.76 0.77 0.78 0.79 0.80 0.81 0.82 0.83 0.84 0.85 0.86 0.87 0.88 0.89 0.90
+[91] 0.91 0.92 0.93 0.94 0.95 0.96 0.97 0.98 0.99
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinagrep.testagrep1
+#argv <- list('x86_64-linux-gnu', 'x86_64-linux-gnu', FALSE, FALSE, c(1L, 1L, 1L), c(0.1, NA, NA, NA, NA), FALSE, TRUE); .Internal(agrep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinall.testall1
+#argv <- list(c(TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE));all(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinall.testall10
+#argv <- list(structure(1L, .Names = 'show'));all(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinall.testall11
+#argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = 2:3, .Dimnames = list(NULL, c('a', 'b', 'c'))));all(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinall.testall12
+#argv <- list(structure(c(TRUE, TRUE, FALSE, TRUE, TRUE), .Tsp = c(1, 5, 1), class = 'ts'));all(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinall.testall14
+#argv <- list(NA);all(argv[[1]]);
+[1] NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinall.testall15
+#argv <- list(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));all(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinall.testall2
+#argv <- list(structure(c(FALSE, FALSE), .Names = c('x', 'value')));all(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinall.testall5
+#argv <- list(logical(0));all(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinall.testall6
+#all( );
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinall.testall7
+#argv <- list(structure(FALSE, .Tsp = c(1, 1, 1), class = 'ts'));all(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinall.testall8
+#argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, FALSE), .Tsp = c(-1, 3, 1), class = 'ts'));all(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinall.testall9
+#argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE), .Names = c('+ Temp', '<none>', '+ Soft', '- M.user')));all(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinany.testany1
+#argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Tsp = c(1, 101, 1), class = 'ts'));any(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinany.testany10
+#argv <- list(structure(c(FALSE, FALSE, FALSE), .Dim = 3L, .Dimnames = structure(list(c('1', '2', NA)), .Names = '')));any(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinany.testany11
+#argv <- list(logical(0));any(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinany.testany12
+#argv <- list(structure(FALSE, .Dim = c(1L, 1L)));any(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinany.testany13
+#argv <- list(structure(logical(0), .Dim = c(0L, 0L)));any(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinany.testany14
+#argv <- list(c(FALSE, TRUE, FALSE));any(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinany.testany15
+#argv <- list(structure(c(NA, NA, NA, NA, NA, NA, NA, NA), .Names = c('base', 'utils', 'methods', 'grDevices', 'graphics', 'stats', 'lapack', 'R_X11')));any(argv[[1]]);
+[1] NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinany.testany2
+#argv <- list(structure(c(FALSE, FALSE, FALSE), .Dim = 3L, .Dimnames = list(c('A', 'B', 'C'))));any(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinany.testany3
+#argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Tsp = c(1949, 1960.91666666667, 12), class = 'ts'));any(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinany.testany4
+#argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE), .Names = c('1', '2', '3', '4', '5'), .Dim = 5L, .Dimnames = list(c('1', '2', '3', '4', '5'))));any(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinany.testany6
+#any( );
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinany.testany7
+#argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = 3:4, .Dimnames = structure(list(x1 = c('a', 'b', 'c'), x2 = c('a', 'b', 'c', NA)), .Names = c('x1', 'x2'))));any(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinany.testany8
+#argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(4L, 3L), .Dimnames = list(c('<none>', 'Hair:Eye', 'Hair:Sex', 'Eye:Sex'), c('Df', 'Deviance', 'AIC'))));any(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinany.testany9
+#argv <- list(c(1L, 1L, 1L, 1L, 1L));any(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinanyDuplicated.testanyDuplicated1
+#argv <- list(c('U', 'V'), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinanyDuplicated.testanyDuplicated10
+#argv <- list(c(12784, 12874, 12965, 13057, 13149, 13239, 13330, 13422, 13514, 13604, 13695, 13787, 13879, 13970, 14061, 14153, 14245, 14335), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinanyDuplicated.testanyDuplicated11
+#argv <- list(structure(c('A', NA), .Names = c('1', '3')), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinanyDuplicated.testanyDuplicated12
+#argv <- list(c('A', NA), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinanyDuplicated.testanyDuplicated13
+#argv <- list(c(12784, 13149, 13514, 13879, 14245, 14610), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinanyDuplicated.testanyDuplicated15
+#argv <- list(c(1L, 1L, 1L, 1L, 1L), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))
+[1] 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinanyDuplicated.testanyDuplicated16
+#argv <- list(c('1', '4', '6', '9', '11', NA, '15', '16', '17', '20', '21', '23', '29', '41', '45', '48', '55', '62', '63', '65', '70', '74', '82', '83', '85', '86', '92', '93', '97', '98', '99', '103', '104', '106', '108', '109', '112', '113', '120', '126', '127', '128', '132', '139', '142', '145', '148', '151', '159', '164', '165', '169', '171', '173', '175', '189', '191', '193', '194', '195', '198', '200', '202', '209', '212', '213', '215', '216', '221', '223', '224', '227'), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinanyDuplicated.testanyDuplicated2
+#argv <- list(c('refClassA', 'envRefClass', '.environment', 'refClass', 'environment', 'refObject'), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinanyDuplicated.testanyDuplicated3
+#argv <- list(c(0, 0.00165722279589047, 0.00331444559178095, 0.00497166838767142, 0.00662889118356189, 0.00828611397945236, 0.00994333677534284, 0.0116005595712333, 0.0132577823671238, 0.0149150051630143, 0.0165722279589047, 0.0182294507547952, 0.0198866735506857, 0.0215438963465761, 0.0232011191424666, 0.0248583419383571, 0.0265155647342476, 0.028172787530138, 0.0298300103260285, 0.031487233121919, 0.0331444559178094, 0.0348016787136999, 0.0364589015095904, 0.0381161243054809, 0.0397733471013713, 0.0414305698972618, 0.0430877926931523, 0.0447450154890428, 0.0464022382849332, 0.0480594610808237, 0.0497166838767142, 0.0513739066726046, 0.0530311294684951, 0.0546883522643856, 0.0563455750602761, 0.0580027978561665, 0.059660020652057, 0.0613172434479475, 0.062974466243838, 0.0646316890397284, 0.0662889118356189, 0.0679461346315094, 0.0696033574273998, 0.0712605802232903, 0.0729178030191808, 0.0745750258150713, 0.0762322486109617, 0.0778894714068522, 0.0795466942027427, 0.0812039169986331, 0.0828611397945236, 0.0845183625904141, 0.0861755853863046, 0.087832808182195, 0.0894900309780855, 0.091147253773976, 0.0928044765698665, 0.0944616993657569, 0.0961189221616474, 0.0977761449575379, 0.0994333677534284, 0.101090590549319, 0.102747813345209, 0.1044050361411, 0.10606225893699, 0.107719481732881, 0.109376704528771, 0.111033927324662, 0.112691150120552, 0.114348372916443, 0.116005595712333, 0.117662818508224, 0.119320041304114, 0.120977264100004, 0.122634486895895, 0.124291709691785, 0.125948932487676, 0.127606155283566, 0.129263378079457, 0.130920600875347, 0.132577823671238, 0.134235046467128, 0.135892269263019, 0.137549492058909, 0.1392067148548, 0.14086393765069, 0.142521160446581, 0.144178383242471, 0.145835606038362, 0.147492828834252, 0.149150051630143, 0.150807274426033, 0.152464497221923, 0.154121720017814, 0.155778942813704, 0.157436165609595, 0.159093388405485, 0.160750611201376, 0.162407833997266, 0.164065056793157, 0.165722279589047, 0.167379502384938, 0.169036725180828, 0.170693947976719, 0.172351170772609, 0.1740083935685, 0.17566561636439, 0.177322839160281, 0.178980061956171, 0.180637284752062, 0.182294507547952, 0.183951730343842, 0.185608953139733, 0.187266175935623, 0.188923398731514, 0.190580621527404, 0.192237844323295, 0.193895067119185, 0.195552289915076, 0.197209512710966, 0.198866735506857, 0.200523958302747, 0.202181181098638, 0.203838403894528, 0.205495626690419, 0.207152849486309, 0.2088100722822, 0.21046729507809, 0.21212451787398, 0.213781740669871, 0.215438963465761, 0.217096186261652, 0.218753409057542, 0.220410631853433, 0.222067854649323, 0.223725077445214, 0.225382300241104, 0.227039523036995, 0.228696745832885, 0.230353968628776, 0.232011191424666, 0.233668414220557, 0.235325637016447, 0.236982859812338, 0.238640082608228, 0.240297305404119, 0.241954528200009, 0.243611750995899, 0.24526897379179, 0.24692619658768, 0.248583419383571, 0.250240642179461, 0.251897864975352, 0.253555087771242, 0.255212310567133, 0.256869533363023, 0.258526756158914, 0.260183978954804, 0.261841201750695, 0.263498424546585, 0.265155647342476, 0.266812870138366, 0.268470092934257, 0.270127315730147, 0.271784538526038, 0.273441761321928, 0.275098984117818, 0.276756206913709, 0.278413429709599, 0.28007065250549, 0.28172787530138, 0.283385098097271, 0.285042320893161, 0.286699543689052, 0.288356766484942, 0.290013989280833, 0.291671212076723, 0.293328434872614, 0.294985657668504, 0.296642880464395, 0.298300103260285, 0.299957326056176, 0.301614548852066, 0.303271771647956, 0.304928994443847, 0.306586217239737, 0.308243440035628, 0.309900662831518, 0.311557885627409, 0.313215108423299, 0.31487233121919, 0.31652955401508, 0.318186776810971, 0.319843999606861, 0.321501222402752, 0.323158445198642, 0.324815667994533, 0.326472890790423, 0.328130113586314, 0.329787336382204, 0.331444559178095, 0.333101781973985, 0.334759004769875, 0.336416227565766, 0.338073450361656, 0.339730673157547, 0.341387895953437, 0.343045118749328, 0.344702341545218, 0.346359564341109, 0.348016787136999, 0.34967400993289, 0.35133123272878, 0.352988455524671, 0.354645678320561, 0.356302901116452, 0.357960123912342, 0.359617346708233, 0.361274569504123, 0.362931792300013, 0.364589015095904, 0.366246237891794, 0.367903460687685, 0.369560683483575, 0.371217906279466, 0.372875129075356, 0.374532351871247, 0.376189574667137, 0.377846797463028, 0.379504020258918, 0.381161243054809, 0.382818465850699, 0.38447568864659, 0.38613291144248, 0.387790134238371, 0.389447357034261, 0.391104579830152, 0.392761802626042, 0.394419025421932, 0.396076248217823, 0.397733471013713, 0.399390693809604, 0.401047916605494, 0.402705139401385, 0.404362362197275, 0.406019584993166, 0.407676807789056, 0.409334030584947, 0.410991253380837, 0.412648476176728, 0.414305698972618, 0.415962921768509, 0.417620144564399, 0.41927736736029, 0.42093459015618, 0.42259181295207, 0.424249035747961), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinanyDuplicated.testanyDuplicated4
+#argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinanyDuplicated.testanyDuplicated5
+#argv <- list(c(NA, 9L, 13L), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinanyDuplicated.testanyDuplicated6
+#argv <- list(structure(c('5.1\r3.5\r1.4\r0.2', '4.9\r3\r1.4\r0.2', '4.7\r3.2\r1.3\r0.2', '4.6\r3.1\r1.5\r0.2', '5\r3.6\r1.4\r0.2', '5.4\r3.9\r1.7\r0.4', '4.6\r3.4\r1.4\r0.3', '5\r3.4\r1.5\r0.2', '4.4\r2.9\r1.4\r0.2', '4.9\r3.1\r1.5\r0.1', '5.4\r3.7\r1.5\r0.2', '4.8\r3.4\r1.6\r0.2', '4.8\r3\r1.4\r0.1', '4.3\r3\r1.1\r0.1', '5.8\r4\r1.2\r0.2', '5.7\r4.4\r1.5\r0.4', '5.4\r3.9\r1.3\r0.4', '5.1\r3.5\r1.4\r0.3', '5.7\r3.8\r1.7\r0.3', '5.1\r3.8\r1.5\r0.3', '5.4\r3.4\r1.7\r0.2', '5.1\r3.7\r1.5\r0.4', '4.6\r3.6\r1\r0.2', '5.1\r3.3\r1.7\r0.5', '4.8\r3.4\r1.9\r0.2', '5\r3\r1.6\r0.2', '5\r3.4\r1.6\r0.4', '5.2\r3.5\r1.5\r0.2', '5.2\r3.4\r1.4\r0.2', '4.7\r3.2\r1.6\r0.2', '4.8\r3.1\r1.6\r0.2', '5.4\r3.4\r1.5\r0.4', '5.2\r4.1\r1.5\r0.1', '5.5\r4.2\r1.4\r0.2', '4.9\r3.1\r1.5\r0.2', '5\r3.2\r1.2\r0.2', '5.5\r3.5\r1.3\r0.2', '4.9\r3.6\r1.4\r0.1', '4.4\r3\r1.3\r0.2', '5.1\r3.4\r1.5\r0.2', '5\r3.5\r1.3\r0.3', '4.5\r2.3\r1.3\r0.3', '4.4\r3.2\r1.3\r0.2', '5\r3.5\r1.6\r0.6', '5.1\r3.8\r1.9\r0.4', '4.8\r3\r1.4\r0.3', '5.1\r3.8\r1.6\r0.2', '4.6\r3.2\r1.4\r0.2', '5.3\r3.7\r1.5\r0.2', '5\r3.3\r1.4\r0.2', '7\r3.2\r4.7\r1.4', '6.4\r3.2\r4.5\r1.5', '6.9\r3.1\r4.9\r1.5', '5.5\r2.3\r4\r1.3', '6.5\r2.8\r4.6\r1.5', '5.7\r2.8\r4.5\r1.3', '6.3\r3.3\r4.7\r1.6', '4.9\r2.4\r3.3\r1', '6.6\r2.9\r4.6\r1.3', '5.2\r2.7\r3.9\r1.4', '5\r2\r3.5\r1', '5.9\r3\r4.2\r1.5', '6\r2.2\r4\r1', '6.1\r2.9\r4.7\r1.4', '5.6\r2.9\r3.6\r1.3', '6.7\r3.1\r4.4\r1.4', '5.6\r3\r4.5\r1.5', '5.8\r2.7\r4.1\r1', '6.2\r2.2\r4.5\r1.5', '5.6\r2.5\r3.9\r1.1', '5.9\r3.2\r4.8\r1.8', '6.1\r2.8\r4\r1.3', '6.3\r2.5\r4.9\r1.5', '6.1\r2.8\r4.7\r1.2', '6.4\r2.9\r4.3\r1.3', '6.6\r3\r4.4\r1.4', '6.8\r2.8\r4.8\r1.4', '6.7\r3\r5\r1.7', '6\r2.9\r4.5\r1.5', '5.7\r2.6\r3.5\r1', '5.5\r2.4\r3.8\r1.1', '5.5\r2.4\r3.7\r1', '5.8\r2.7\r3.9\r1.2', '6\r2.7\r5.1\r1.6', '5.4\r3\r4.5\r1.5', '6\r3.4\r4.5\r1.6', '6.7\r3.1\r4.7\r1.5', '6.3\r2.3\r4.4\r1.3', '5.6\r3\r4.1\r1.3', '5.5\r2.5\r4\r1.3', '5.5\r2.6\r4.4\r1.2', '6.1\r3\r4.6\r1.4', '5.8\r2.6\r4\r1.2', '5\r2.3\r3.3\r1', '5.6\r2.7\r4.2\r1.3', '5.7\r3\r4.2\r1.2', '5.7\r2.9\r4.2\r1.3', '6.2\r2.9\r4.3\r1.3', '5.1\r2.5\r3\r1.1', '5.7\r2.8\r4.1\r1.3', '6.3\r3.3\r6\r2.5', '5.8\r2.7\r5.1\r1.9', '7.1\r3\r5.9\r2.1', '6.3\r2.9\r5.6\r1.8', '6.5\r3\r5.8\r2.2', '7.6\r3\r6.6\r2.1', '4.9\r2.5\r4.5\r1.7', '7.3\r2.9\r6.3\r1.8', '6.7\r2.5\r5.8\r1.8', '7.2\r3.6\r6.1\r2.5', '6.5\r3.2\r5.1\r2', '6.4\r2.7\r5.3\r1.9', '6.8\r3\r5.5\r2.1', '5.7\r2.5\r5\r2', '5.8\r2.8\r5.1\r2.4', '6.4\r3.2\r5.3\r2.3', '6.5\r3\r5.5\r1.8', '7.7\r3.8\r6.7\r2.2', '7.7\r2.6\r6.9\r2.3', '6\r2.2\r5\r1.5', '6.9\r3.2\r5.7\r2.3', '5.6\r2.8\r4.9\r2', '7.7\r2.8\r6.7\r2', '6.3\r2.7\r4.9\r1.8', '6.7\r3.3\r5.7\r2.1', '7.2\r3.2\r6\r1.8', '6.2\r2.8\r4.8\r1.8', '6.1\r3\r4.9\r1.8', '6.4\r2.8\r5.6\r2.1', '7.2\r3\r5.8\r1.6', '7.4\r2.8\r6.1\r1.9', '7.9\r3.8\r6.4\r2', '6.4\r2.8\r5.6\r2.2', '6.3\r2.8\r5.1\r1.5', '6.1\r2.6\r5.6\r1.4', '7.7\r3\r6.1\r2.3', '6.3\r3.4\r5.6\r2.4', '6.4\r3.1\r5.5\r1.8', '6\r3\r4.8\r1.8', '6.9\r3.1\r5.4\r2.1', '6.7\r3.1\r5.6\r2.4', '6.9\r3.1\r5.1\r2.3', '5.8\r2.7\r5.1\r1.9', '6.8\r3.2\r5.9\r2.3', '6.7\r3.3\r5.7\r2.5', '6.7\r3\r5.2\r2.3', '6.3\r2.5\r5\r1.9', '6.5\r3\r5.2\r2', '6.2\r3.4\r5.4\r2.3', '5.9\r3\r5.1\r1.8'), .Dim = c(50L, 3L), .Dimnames = list(NULL, c('Setosa', 'Versicolor', 'Virginica'))), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))
+[1] 143
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinanyDuplicated.testanyDuplicated7
+#argv <- list(c(-6, -3, 0, 3, 6, 9, 12, 15), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinanyDuplicated.testanyDuplicated8
+#argv <- list(c(9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 1L, 2L, 3L, 4L, 5L, 3L, 4L, 5L, 6L, 7L, 0L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L), FALSE, TRUE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))
+[1] 22
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinanyDuplicated.testanyDuplicated9
+#argv <- list(c(-1.001, -1, -0.999), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinarray.testarray14
+#argv <- list(logical(0), 0L, NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinarray.testarray17
+#argv <- list(c('', '', ''), c(3, 1), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))
+ [,1]
+[1,] ""
+[2,] ""
+[3,] ""
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinarray.testarray18
+#argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), 0L, NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))
+numeric(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinarray.testarray2
+#argv <- list(FALSE, FALSE, NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinarray.testarray21
+#argv <- list(NA, c(1, 4), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))
+ [,1] [,2] [,3] [,4]
+[1,] NA NA NA NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinarray.testarray22
+#argv <- list(structure(c(-0.350406242534262, -0.350406242534262, -3.35040624253426, 0.649593757465738, 1.64959375746574, 17.755677101477, 7.755677101477, -11.3171453341876, 5.68285466581244, -11.3171453341876, -2.31714533418756, 6.68285466581244, -16.3171453341876, 8.38722300809366, 42.3872230080937, 13.3872230080937, 27.8866653386156, -25.1133346613844, 7.88666533861561, -21.1133346613844, 9.71094990017841, 5.71094990017841, 26.7109499001784, -7.28905009982159, 21.7109499001784, -20.2890500998216, 6.226070726676, -15.773929273324, -28.773929273324, 14.226070726676, -14.773929273324, 21.226070726676, 6.226070726676, 29.226070726676, 13.226070726676, -1.18678877265756, 15.8132112273424, 1.81321122734244, 25.8132112273424, -0.186788772657565, 3.81321122734244, -10.1867887726576, 15.8132112273424, 9.81321122734244, 9.81321122734244, -35.0551967576179, 14.9448032423821, 13.9448032423821, -17.0551967576179, -6.05519675761792, -17.7296046985831, 14.9139035439664), gradient = structure(c(0, 0, 0, 0, 0, 56.989995924654, 56.989995924654, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 109.608811230383, 109.608811230383, 109.608811230383, 107.478028232287, 107.478028232287, 107.478028232287, 107.478028232287, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 10.7055301785859, 0, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 0.914597467778369, 0.914597467778369, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.599195286063472, 0.599195286063472, 0.599195286063472, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0202635232425103, 2.60032456603692e-08, 0, 0, 0, 0, 0, 0.165626203544259, 0.165626203544259, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.503396799290371, 0.503396799290371, 0.503396799290371, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.984387422945875, 0.999999996451695), .Dim = c(52L, 3L))), c(52L, 1L), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))
+ [,1]
+ [1,] -0.3504062
+ [2,] -0.3504062
+ [3,] -3.3504062
+ [4,] 0.6495938
+ [5,] 1.6495938
+ [6,] 17.7556771
+ [7,] 7.7556771
+ [8,] -11.3171453
+ [9,] 5.6828547
+[10,] -11.3171453
+[11,] -2.3171453
+[12,] 6.6828547
+[13,] -16.3171453
+[14,] 8.3872230
+[15,] 42.3872230
+[16,] 13.3872230
+[17,] 27.8866653
+[18,] -25.1133347
+[19,] 7.8866653
+[20,] -21.1133347
+[21,] 9.7109499
+[22,] 5.7109499
+[23,] 26.7109499
+[24,] -7.2890501
+[25,] 21.7109499
+[26,] -20.2890501
+[27,] 6.2260707
+[28,] -15.7739293
+[29,] -28.7739293
+[30,] 14.2260707
+[31,] -14.7739293
+[32,] 21.2260707
+[33,] 6.2260707
+[34,] 29.2260707
+[35,] 13.2260707
+[36,] -1.1867888
+[37,] 15.8132112
+[38,] 1.8132112
+[39,] 25.8132112
+[40,] -0.1867888
+[41,] 3.8132112
+[42,] -10.1867888
+[43,] 15.8132112
+[44,] 9.8132112
+[45,] 9.8132112
+[46,] -35.0551968
+[47,] 14.9448032
+[48,] 13.9448032
+[49,] -17.0551968
+[50,] -6.0551968
+[51,] -17.7296047
+[52,] 14.9139035
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinarray.testarray6
+#argv <- list(0, 61, NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))
+ [1] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+[39] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinarray.testarray8
+#argv <- list(c(NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), c(30L, 1L), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))
+ [,1]
+ [1,] NA
+ [2,] NA
+ [3,] NA
+ [4,] NA
+ [5,] NA
+ [6,] NA
+ [7,] 29
+ [8,] NA
+ [9,] 71
+[10,] 39
+[11,] NA
+[12,] NA
+[13,] 23
+[14,] NA
+[15,] NA
+[16,] 21
+[17,] 37
+[18,] 20
+[19,] 12
+[20,] 13
+[21,] NA
+[22,] NA
+[23,] NA
+[24,] NA
+[25,] NA
+[26,] NA
+[27,] NA
+[28,] NA
+[29,] NA
+[30,] NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter1
+#argv <- list('bessel_y(2,nu=181.2): precision lost in result');as.character(argv[[1]]);
+[1] "bessel_y(2,nu=181.2): precision lost in result"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter10
+#argv <- list(structure(character(0), package = character(0), class = structure('ObjectsWithPackage', package = 'methods')));as.character(argv[[1]]);
+character(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter11
+#argv <- list(c(FALSE, TRUE));as.character(argv[[1]]);
+[1] "FALSE" "TRUE"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter13
+#argv <- list(structure('1', .Tsp = c(1, 1, 1), class = 'ts'));as.character(argv[[1]]);
+[1] "1"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter15
+#argv <- list(c(2L, 1L, 3L, NA, 4L));as.character(argv[[1]]);
+[1] "2" "1" "3" NA "4"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter21
+#argv <- list(c(3, 3, NA, NA, NA, NA, 4, 3, 4, NA, NA, 2, 3, 3, NA, NA, 2, 4, NA, 2, 5, 2, 2, 4, 3, NA, 2, NA, 3, 3));as.character(argv[[1]]);
+ [1] "3" "3" NA NA NA NA "4" "3" "4" NA NA "2" "3" "3" NA NA "2" "4" NA
+[20] "2" "5" "2" "2" "4" "3" NA "2" NA "3" "3"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter25
+#argv <- list(c(-Inf, NaN, Inf));as.character(argv[[1]]);
+[1] "-Inf" "NaN" "Inf"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter26
+#argv <- list(FALSE, useSource = TRUE);as.character(argv[[1]],argv[[2]]);
+[1] "FALSE"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter29
+#argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Dim = c(10L, 2L)));as.character(argv[[1]]);
+ [1] "1" "1" "1" "1" "1" "1" "1" "1" "1" "1" "2" "2" "2" "2" "2" "2" "2" "2" "2"
+[20] "2"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter3
+#argv <- list(c(2L, 1L, NA));as.character(argv[[1]]);
+[1] "2" "1" NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter30
+#argv <- list(c(FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, NA, NA, FALSE, FALSE, TRUE, FALSE, NA, NA, NA, NA, NA, NA, FALSE, NA, FALSE, FALSE, NA, NA, FALSE, NA, NA, FALSE, FALSE, FALSE, FALSE, FALSE, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, TRUE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, NA, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, NA, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, NA, NA, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, FALSE, TRUE, FALSE, NA, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE));as.character(argv[[1]]);
+ [1] "FALSE" "FALSE" "FALSE" "FALSE" NA "FALSE" "FALSE" "FALSE" "FALSE"
+ [10] NA "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" "FALSE"
+ [19] "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" NA NA NA
+ [28] "FALSE" "FALSE" "TRUE" "FALSE" NA NA NA NA NA
+ [37] NA "FALSE" NA "FALSE" "FALSE" NA NA "FALSE" NA
+ [46] NA "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" NA NA NA
+ [55] NA NA NA NA NA NA NA "TRUE" "FALSE"
+ [64] "FALSE" NA "FALSE" "FALSE" "FALSE" "TRUE" "TRUE" "TRUE" NA
+ [73] "FALSE" "FALSE" NA "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" "FALSE"
+ [82] "FALSE" NA NA "FALSE" "TRUE" "FALSE" "FALSE" "TRUE" "FALSE"
+ [91] "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" "TRUE"
+[100] "TRUE" "TRUE" NA NA "FALSE" "FALSE" "FALSE" NA "FALSE"
+[109] "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" NA "FALSE" "TRUE"
+[118] "FALSE" NA "FALSE" "TRUE" "TRUE" "TRUE" "TRUE" "FALSE" "FALSE"
+[127] "TRUE" "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" "FALSE"
+[136] "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" "FALSE"
+[145] "FALSE" "FALSE" "FALSE" "FALSE" "FALSE" NA "FALSE" "FALSE" "FALSE"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter33
+#argv <- list(logical(0));as.character(argv[[1]]);
+character(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter35
+#argv <- list(c(-4, 4, 3.99, -1, -3.01));as.character(argv[[1]]);
+[1] "-4" "4" "3.99" "-1" "-3.01"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter37
+#argv <- list(c(34L, -45L));as.character(argv[[1]]);
+[1] "34" "-45"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter43
+#argv <- list(NaN);as.character(argv[[1]]);
+[1] "NaN"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter44
+#argv <- list(Inf);as.character(argv[[1]]);
+[1] "Inf"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter45
+#argv <- list(c('class', 'names', 'package'));as.character(argv[[1]]);
+[1] "class" "names" "package"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter46
+#argv <- list(c(59.5, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59.5));as.character(argv[[1]]);
+ [1] "59.5" "1" "2" "3" "4" "5" "6" "7" "8" "9"
+[11] "10" "11" "12" "13" "14" "15" "16" "17" "18" "19"
+[21] "20" "21" "22" "23" "24" "25" "26" "27" "28" "29"
+[31] "30" "31" "32" "33" "34" "35" "36" "37" "38" "39"
+[41] "40" "41" "42" "43" "44" "45" "46" "47" "48" "49"
+[51] "50" "51" "52" "53" "54" "55" "56" "57" "58" "59.5"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter8
+#argv <- list(c(Inf, -Inf, NaN, NA));as.character(argv[[1]]);
+[1] "Inf" "-Inf" "NaN" NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascharacter.testascharacter9
+#argv <- list(c(1, 2, NA, 2));as.character(argv[[1]]);
+[1] "1" "2" NA "2"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascomplex.testascomplex1
+#argv <- list(logical(0), logical(0));as.complex(argv[[1]],argv[[2]]);
+complex(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascomplex.testascomplex11
+#argv <- list(NULL, NULL);as.complex(argv[[1]],argv[[2]]);
+complex(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascomplex.testascomplex2
+#argv <- list(FALSE, FALSE);as.complex(argv[[1]],argv[[2]]);
+[1] 0+0i
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascomplex.testascomplex5
+#argv <- list('1.3');as.complex(argv[[1]]);
+[1] 1.3+0i
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascomplex.testascomplex8
+#argv <- list(integer(0));as.complex(argv[[1]]);
+complex(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinascomplex.testascomplex9
+#argv <- list(1L);as.complex(argv[[1]]);
+[1] 1+0i
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasdouble.testasdouble1
+#argv <- list(c(3.14159265358979, 3.14159265358981, 3.14159265358981, 3.14159265358981, 3.14159265358978, 3.1415926535898, 3.1415926535898, 3.14159265358978, 3.14159265358981, 3.14159265358979, 3.14159265358979, 3.14159265358978, 3.14159265358979, 3.14159265358981, 3.1415926535898, 3.14159265358978, 3.14159265358978, 3.14159265358978, 3.14159265358978, 3.14159265358981, 3.14159265358981, 3.14159265358978, 3.14159265358979, 3.14159265358978, 3.14159265358978, 3.14159265358978, 3.1415926535898, 3.14159265358977, 3.14159265358979, 3.14159265358979, 3.1415926535898, 3.14159265358979, 3.1415926535898, 3.14159265358979, 3.14159265358979, 3.14159265358981, 3.14159265358978, 3.1415926535898, 3.14159265358979, 3.14159265358981, 3.1415926535898, 3.14159265358981, 3.14159265358978, 3.1415926535898, 3.14159265358981, 3.1415926535898, 3.14159265358978, 3.14159265358979, 3.14159265358978, 3.14159265358979, 3.1415926535898, 3.14159265358981, 3.14159265358978, 3.1415926535898, 3.14159265358979, 3.1415926535898, 3.14159265358978, 3.1415926535898, 3.14159265358978, 3.14159265358979, 3.1415926535898, 3.14159265358978, 3.1415926535898, 3.14159265358981, 3.14159265358977, 3.14159265358981, 3.14159265358978, 3.14159265358978, 3.14159265358981, 3.14159265358979, 3.14159265358977, 3.14159265358978, 3.14159265358981, 3.14159265358979, 3.14159265358981, 3.1415926535898, 3.14159265358979, 3.14159265358979, 3.1415926535898, 3.14159265358979, 3.14159265358981, 3.14159265358979, 3.14159265358979, 3.14159265358981, 3.14159265358977, 3.1415926535898, 3.14159265358979, 3.1415926535898, 3.14159265358979, 3.1415926535898, 3.1415926535898, 3.1415926535898, 3.14159265358978, 3.1415926535898, 3.1415926535898, 3.1415926535898, 3.14159265358981, 3.14159265358979, 3.14159265358978, 3.14159265358981, 3.14159265358981));as.double(argv[[1]]);
+ [1] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [9] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [17] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [25] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [33] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [41] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [49] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [57] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [65] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [73] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [81] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [89] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [97] 3.141593 3.141593 3.141593 3.141593 3.141593
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasdouble.testasdouble10
+#argv <- list(structure(c(1, 2, 3, 4, 5, 0, 7, 8, 9, 10, 11, 12), .Dim = c(4L, 3L)));as.double(argv[[1]]);
+ [1] 1 2 3 4 5 0 7 8 9 10 11 12
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasdouble.testasdouble12
+#argv <- list(character(0));as.double(argv[[1]]);
+numeric(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasdouble.testasdouble13
+#argv <- list(structure(c(21, 16.4, 18.7, 16.8, 17.8, 10.9, 14, 3.5, 4.3, 3.5, 2.7, 6, 14, 2.3), .Dim = c(7L, 2L), .Dimnames = list(c('L', 'NL', 'D', 'B', 'F', 'IRL', 'UK'), c('x', 'y'))));as.double(argv[[1]]);
+ [1] 21.0 16.4 18.7 16.8 17.8 10.9 14.0 3.5 4.3 3.5 2.7 6.0 14.0 2.3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasdouble.testasdouble15
+#argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c('WinF', 'WinNF', 'Veh', 'Con', 'Tabl', 'Head'), class = 'factor'));as.double(argv[[1]]);
+ [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+ [38] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2
+ [75] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
+[112] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 3 3
+[149] 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 4 4 4 4 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5
+[186] 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasdouble.testasdouble17
+#argv <- list(structure(c(0, 0.000202660677936876, 0.00241803309686265, 0.00307283986031733, 0.00265711006681184, 0.00284334291579362, 0.00328411981940272, 0.00355926216704063, 0.00344761438149018, 0.00289210744006633, 0.00204225708046235, 0.00178504641867207, 0.00172572372502035, 0.00159946455058003, 0.00194868716238274, 0.00230753595074067, 0.00246954915831488, 0.00290833971278575, 0.00337412960419987, 0.00358181270769781, 0.00354428559372645, 0.00326334045783046, 0.00298117073292367, 0.00293436142844913, 0.0029459867318606, 0.00298412396438805, 0.00320781989229225, 0.00342867445796099, 0.00405369787195761, 0.00417753179826535, 0.00414267894375602, 0.00407024400729904, 0.00393965520892809, 0.00385238230694322, 0.00383595140804293, 0.00378781523717584, 0.0037736404476557, 0.00382248725149436, 0.00381326514145668, 0.0038973026728862, 0.00395676065396717, 0.00431861015154494, 0.00443079015716877, 0.00450544753584657, 0.00439372971759073, 0.00433442297069524, 0.00429954456230782, 0.00426944313801568, 0.00423795462806802, 0.00417472474765742, 0.0042795282659813, 0.00454163385850258, 0.00473601380444899, 0.00466407336984038, 0.00462392764582444, 0.00456056187379283, 0.0045055003087985, 0.00442670076624794, 0.00431121205766447, 0.00421990442925801, 0.00416971729251421, 0.00407853686842565, 0.00409133004830999, 0.0041364805798209, 0.00427208054940612, 0.0044573146303062, 0.00463786827882152, 0.00462599613024964, 0.00456902544608922, 0.00448500474247415, 0.00443631355776013, 0.0043987926301962, 0.00439976139365821, 0.00444739366229557, 0.00441357461857941, 0.00445091952164202, 0.00450346393728121, 0.00462169457996522, 0.004734024297345, 0.00475873200245829, 0.00475253573403064, 0.00471631526131182, 0.00465515282727091, 0.00464698887217466, 0.00462685789718263, 0.00462996361305565, 0.00464191147874474, 0.00464879307071608, 0.00469113571839472, 0.00476270873398438, 0.00477314235918783, 0.00479544142345609, 0.0047737904084596, 0.00471999826644103, 0.00469372169840419, 0.0046463488677134, 0.00461799759453906, 0.00458947682120691, 0.00460912357592989, 0.00463333675159159, 0.00466732307616235, 0.00471231441093801, 0.00474022677208645, 0.00477297287765633, 0.00476766819213148, 0.00473849505147981, 0.00469782534032621, 0.00463861048753855, 0.00457840111456501, 0.00452291229235016, 0.00446341204452307, 0.00442002128896248, 0.00442991931450486, 0.00446688166198173, 0.00452411449686222, 0.00458536543416883, 0.00454175859707822, 0.00450829288322652, 0.00445725707512455, 0.00439091360820385, 0.00437267387139272, 0.00436951404759565, 0.00439586780117785, 0.00443132731253063, 0.00447997483459774, 0.00446916178054371, 0.00448357738281654, 0.00448976052744213, 0.00450610513067692, 0.00449385388080097, 0.00448875792730345, 0.00450025038413588, 0.00448200635475038, 0.00445933490412089, 0.00437269614488144, 0.00441152247400175, 0.00444283816260407, 0.00446748686328766, 0.00448539598299297, 0.00445924890176085, 0.00444386385593038, 0.00445984197910477, 0.00443574296742794, 0.00440036042966077), .Tsp = c(1949, 1960.91666666667, 12), class = 'ts'));as.double(argv[[1]]);
+ [1] 0.0000000000 0.0002026607 0.0024180331 0.0030728399 0.0026571101
+ [6] 0.0028433429 0.0032841198 0.0035592622 0.0034476144 0.0028921074
+ [11] 0.0020422571 0.0017850464 0.0017257237 0.0015994646 0.0019486872
+ [16] 0.0023075360 0.0024695492 0.0029083397 0.0033741296 0.0035818127
+ [21] 0.0035442856 0.0032633405 0.0029811707 0.0029343614 0.0029459867
+ [26] 0.0029841240 0.0032078199 0.0034286745 0.0040536979 0.0041775318
+ [31] 0.0041426789 0.0040702440 0.0039396552 0.0038523823 0.0038359514
+ [36] 0.0037878152 0.0037736404 0.0038224873 0.0038132651 0.0038973027
+ [41] 0.0039567607 0.0043186102 0.0044307902 0.0045054475 0.0043937297
+ [46] 0.0043344230 0.0042995446 0.0042694431 0.0042379546 0.0041747247
+ [51] 0.0042795283 0.0045416339 0.0047360138 0.0046640734 0.0046239276
+ [56] 0.0045605619 0.0045055003 0.0044267008 0.0043112121 0.0042199044
+ [61] 0.0041697173 0.0040785369 0.0040913300 0.0041364806 0.0042720805
+ [66] 0.0044573146 0.0046378683 0.0046259961 0.0045690254 0.0044850047
+ [71] 0.0044363136 0.0043987926 0.0043997614 0.0044473937 0.0044135746
+ [76] 0.0044509195 0.0045034639 0.0046216946 0.0047340243 0.0047587320
+ [81] 0.0047525357 0.0047163153 0.0046551528 0.0046469889 0.0046268579
+ [86] 0.0046299636 0.0046419115 0.0046487931 0.0046911357 0.0047627087
+ [91] 0.0047731424 0.0047954414 0.0047737904 0.0047199983 0.0046937217
+ [96] 0.0046463489 0.0046179976 0.0045894768 0.0046091236 0.0046333368
+[101] 0.0046673231 0.0047123144 0.0047402268 0.0047729729 0.0047676682
+[106] 0.0047384951 0.0046978253 0.0046386105 0.0045784011 0.0045229123
+[111] 0.0044634120 0.0044200213 0.0044299193 0.0044668817 0.0045241145
+[116] 0.0045853654 0.0045417586 0.0045082929 0.0044572571 0.0043909136
+[121] 0.0043726739 0.0043695140 0.0043958678 0.0044313273 0.0044799748
+[126] 0.0044691618 0.0044835774 0.0044897605 0.0045061051 0.0044938539
+[131] 0.0044887579 0.0045002504 0.0044820064 0.0044593349 0.0043726961
+[136] 0.0044115225 0.0044428382 0.0044674869 0.0044853960 0.0044592489
+[141] 0.0044438639 0.0044598420 0.0044357430 0.0044003604
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasdouble.testasdouble20
+#argv <- list(NULL);as.double(argv[[1]]);
+numeric(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasdouble.testasdouble22
+#argv <- list(c(TRUE, FALSE, TRUE));as.double(argv[[1]]);
+[1] 1 0 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasdouble.testasdouble23
+#argv <- list(c(TRUE, TRUE, FALSE));as.double(argv[[1]]);
+[1] 1 1 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasdouble.testasdouble24
+#argv <- list(c(NA, NA, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L));as.double(argv[[1]]);
+ [1] NA NA 1 2 3 4 5 6 7 8 9
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasdouble.testasdouble25
+#argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L), .Label = c('Rural Male', 'Rural Female', 'Urban Male', 'Urban Female'), class = 'factor', .Dim = c(5L, 4L)));as.double(argv[[1]]);
+ [1] 1 1 1 1 1 2 2 2 2 2 3 3 3 3 3 4 4 4 4 4
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasdouble.testasdouble28
+#argv <- list('Inf');as.double(argv[[1]]);
+[1] Inf
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasdouble.testasdouble29
+#argv <- list(c(' 9', ' 3', ' 3', ' 6.761', '156.678', ' 18.327', ' 11.764', '191.64', '323.56', '197.21', '190.64'));as.double(argv[[1]]);
+ [1] 9.000 3.000 3.000 6.761 156.678 18.327 11.764 191.640 323.560
+[10] 197.210 190.640
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasdouble.testasdouble30
+#argv <- list(structure(c(NA, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L, 70L, 71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 80L, 81L, 82L, 83L, 84L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L, 97L, 98L, 99L, 100L), .Tsp = c(1, 101, 1), class = 'ts'));as.double(argv[[1]]);
+ [1] NA 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
+ [19] 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
+ [37] 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
+ [55] 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71
+ [73] 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89
+ [91] 90 91 92 93 94 95 96 97 98 99 100
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasdouble.testasdouble4
+#argv <- list('NaN');as.double(argv[[1]]);
+[1] NaN
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasdouble.testasdouble5
+#argv <- list(structure(c(1.97479242156194, 1.71068206679967, 1.52241456554483), .Names = c('Bens of Jura', 'Knock Hill', 'Lairig Ghru')));as.double(argv[[1]]);
+[1] 1.974792 1.710682 1.522415
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasdouble.testasdouble9
+#argv <- list(c('-.1', ' 2.7 ', 'B'));as.double(argv[[1]]);
+[1] -0.1 2.7 NA
+Warning message:
+NAs introduced by coercion
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasin.testasin1
+#argv <- list(c(0.185157057377868, 0.15968866445196, 0.190428414477965, 0.0799378829516562, 0.043979457119882, 0.0348843282121068, 0.0484793103572122, 0.109221220908651, 0.264364324223884, 0.211999913632203, 0.141157385938914, 0.143099951254224, 0.193270515700824, 0.217573738375349, 0.216954681783302, 0.291716047319384, 0.387858840434923, 0.461666520261029, 0.49992310387409, 0.421641232345205, 0.419256648241403, 0.442116045838704, 0.375354272383531, 0.416333612927645, 0.506835005179142, 0.408511923588378, 0.442160540547329, 0.59649385178332, 0.729919018318794, 0.811421169963513, 0.896290688103034, 0.752346465072037, 0.654905104838795, 0.821242494513718, 0.91715624670646, 0.885960209053628));asin(argv[[1]]);
+ [1] 0.18623168 0.16037526 0.19159853 0.08002326 0.04399365 0.03489141
+ [7] 0.04849832 0.10943955 0.26754474 0.21362094 0.14163041 0.14359290
+[13] 0.19449442 0.21932797 0.21869376 0.29602043 0.39830745 0.47987300
+[19] 0.52350999 0.43525455 0.43262638 0.45795644 0.38477896 0.42940909
+[25] 0.53150931 0.42082315 0.45800605 0.63912559 0.81820347 0.94657961
+[31] 1.11133315 0.85161677 0.71405704 0.96358522 1.16088520 1.08856042
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasinteger.testasinteger1
+#argv <- list(structure(c(4L, 5L, 3L, 2L, 2L, 1L, 6L), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables', 'R Core'), class = 'factor'));as.integer(argv[[1]]);
+[1] 4 5 3 2 2 1 6
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasinteger.testasinteger12
+#argv <- list(TRUE);as.integer(argv[[1]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasinteger.testasinteger13
+#argv <- list(structure(c(1, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0), .Dim = c(13L, 1L), .Dimnames = list(c('59', '115', '156', '268', '329', '431', '448', '477', '638', '803', '855', '1040', '1106'), NULL)));as.integer(argv[[1]]);
+ [1] 1 1 1 1 1 1 0 0 1 0 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasinteger.testasinteger14
+#argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));as.integer(argv[[1]]);
+[1] 0 0 0 0 0 0 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasinteger.testasinteger15
+#argv <- list(character(0));as.integer(argv[[1]]);
+integer(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasinteger.testasinteger16
+#argv <- list(4999.0000000001);as.integer(argv[[1]]);
+[1] 4999
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasinteger.testasinteger18
+#argv <- list(structure(c(1L, 2L, 3L, 2L), .Label = c('1', '2', NA), class = 'factor'));as.integer(argv[[1]]);
+[1] 1 2 3 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasinteger.testasinteger19
+#argv <- list(structure(c(NA, 1L, NA, 2L, 1L, NA, NA, 1L, 4L, 1L, NA, 4L, 1L, 3L, NA, 4L, 2L, 2L, NA, 4L, 4L, 2L, 4L, 4L, 2L, 1L, 4L, 4L, 3L, 1L, 1L, 4L, 1L, 4L, NA, 1L, 4L, 4L, 2L, 2L, 4L, 4L, 3L, 4L, 2L, 2L, 3L, 3L, 4L, 1L, 1L, 1L, 4L, 1L, 4L, 4L, 4L, 4L, NA, 4L, 4L, 4L, NA, 1L, 2L, 3L, 4L, 3L, 4L, 2L, 4L, 4L, 1L, 4L, 1L, 4L, NA, 4L, 2L, 1L, 4L, 1L, 1L, 1L, 4L, 4L, 2L, 4L, 1L, 1L, 1L, 4L, 1L, 1L, 1L, 4L, 3L, 1L, 4L, 3L, 2L, 4L, 3L, 1L, 4L, 2L, 4L, NA, 4L, 4L, 4L, 2L, 1L, 4L, 4L, NA, 2L, 4L, 4L, 1L, 1L, 1L, 1L, 4L, 1L, 2L, 3L, 2L, 1L, 4L, 4L, 4L, 1L, NA, 4L, 2L, 2L, 2L, 4L, 4L, 3L, 3L, 4L, 2L, 4L, 3L, 1L, 1L, 4L, 2L, 4L, 3L, 1L, 4L, 3L, 4L, 4L, 1L, 1L, 4L, 4L, 3L, 1L, 1L, 2L, 1L, 3L, 4L, 2L, 2L, 2L, 4L, 4L, 3L, 2L, 1L, 1L, 4L, 1L, 1L, 2L, NA, 2L, 3L, 3L, 2L, 1L, 1L, 1L, 1L, 4L, 4L, 4L, 4L, 4L, 4L, 2L, 2L, 1L, 4L, 1L, 4L, 3L, 4L, 2L, 3L, 1L, 3L, 1L, 4L, 1L, 4L, 1L, 4L, 3L, 3L, 4L, 4L, 1L, NA, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 3L, 4L, 3L, 4L, 2L, 4L, 4L, 1L, 2L, NA, 4L, 4L, 4L, 4L, 1L, 2L, 1L, 1L, 2L, 1L, 4L, 2L, 3L, 1L, 4L, 4L, 4L, 1L, 2L, 1L, 4L, 2L, 1L, 3L, 1L, 2L, 2L, 1L, 2L, 1L, NA, 3L, 2L, 2L, 4L, 1L, 4L, 4L, 2L, 4L, 4L, 4L, 2L, 1L, 4L, 2L, 4L, 4L, 4L, 4L, 4L, 1L, 3L, 4L, 3L, 4L, 1L, NA, 4L, NA, 1L, 1L, 1L, 4L, 4L, 4L, 4L, 2L, 4L, 3L, 2L, NA, 1L, 4L, 4L, 3L, 4L, 4L, 4L, 2L, 4L, 2L, 1L, 4L, 4L, NA, 4L, 4L, 3L, 3L, 4L, 2L, 2L, 4L, 1L, 4L, 4L, 4L, 3L, 4L, 4L, 4L, 3L, 2L, 1L, 3L, 1L, 4L, 1L, 4L, 2L, NA, 1L, 4L, 4L, 3L, 1L, 4L, 1L, 4L, 1L, 4L, 4L, 1L, 2L, 2L, 1L, 4L, 1L, 1L, 4L, NA, 4L, NA, 4L, 4L, 4L, 1L, 4L, 2L, 1L, 2L, 2L, 2L, 2L, 1L, 1L, 2L, 1L, 4L, 2L, 3L, 3L, 1L, 3L, 1L, 4L, 1L, 3L, 2L, 2L, 4L, 1L, NA, 3L, 4L, 2L, 4L, 4L, 4L, 4L, 4L, 4L, 3L, 4L, 4L, 3L, 2L, 1L, 4L, 4L, 2L, 4L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 4L, 4L, 1L, 1L, 4L, 1L, 4L, 4L, 4L, 1L, 1L, NA, 3L, 2L, 4L, 4L, 4L, 4L, 2L, 3L, 3L, 2L, NA, 4L, 2L, 4L, 4L, 1L, 1L, 4L, 4L, 1L, 1L, 4L, 1L, 2L, 2L, 2L, 2L, 1L, 4L, 4L, 1L, 2L, 2L, 2L, 3L, 4L, 4L, 3L, 4L, 1L, 1L, 4L, 4L, NA, 4L, 1L, 4L, 4L, 4L, 1L, 4L, 4L, 1L, 2L, 4L, 4L, 4L, 4L, 1L, 2L, 4L, 4L, 2L, 1L, 4L, 2L, 4L, 2L, 2L, 4L, 1L, 3L, 3L, 2L, 4L, 1L, 4L, 4L, 4L, 1L, NA, 4L, 4L, 2L, 4L, 4L, 4L, 4L, 4L, 2L, NA, 4L, 2L, 4L, 3L, 1L, 4L, 4L, 3L, 4L, 2L, 4L, 4L, 1L, 2L, 1L, 4L, 1L, 3L, 3L, 1L, 4L, 4L, 2L, 4L, 4L, 4L, 4L, 3L, 2L, 3L, 3L, 2L, NA, 3L, 4L, 4L, 3L, 3L, 4L, 4L, 4L, 1L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 2L, 4L, 2L, 3L, 4L, 1L, 3L, 1L, NA, 4L, 1L, 2L, 2L, 1L, 4L, 3L, 3L, 4L, 1L, 1L, 3L), .Label = c('(1) Approve STRONGLY', '(2) Approve SOMEWHAT', '(3) Disapprove SOMEWHAT', '(4) Disapprove STRONGLY'), class = 'factor'));as.integer(argv[[1]]);
+ [1] NA 1 NA 2 1 NA NA 1 4 1 NA 4 1 3 NA 4 2 2 NA 4 4 2 4 4 2
+ [26] 1 4 4 3 1 1 4 1 4 NA 1 4 4 2 2 4 4 3 4 2 2 3 3 4 1
+ [51] 1 1 4 1 4 4 4 4 NA 4 4 4 NA 1 2 3 4 3 4 2 4 4 1 4 1
+ [76] 4 NA 4 2 1 4 1 1 1 4 4 2 4 1 1 1 4 1 1 1 4 3 1 4 3
+[101] 2 4 3 1 4 2 4 NA 4 4 4 2 1 4 4 NA 2 4 4 1 1 1 1 4 1
+[126] 2 3 2 1 4 4 4 1 NA 4 2 2 2 4 4 3 3 4 2 4 3 1 1 4 2
+[151] 4 3 1 4 3 4 4 1 1 4 4 3 1 1 2 1 3 4 2 2 2 4 4 3 2
+[176] 1 1 4 1 1 2 NA 2 3 3 2 1 1 1 1 4 4 4 4 4 4 2 2 1 4
+[201] 1 4 3 4 2 3 1 3 1 4 1 4 1 4 3 3 4 4 1 NA 3 4 4 4 4
+[226] 4 4 3 4 3 4 2 4 4 1 2 NA 4 4 4 4 1 2 1 1 2 1 4 2 3
+[251] 1 4 4 4 1 2 1 4 2 1 3 1 2 2 1 2 1 NA 3 2 2 4 1 4 4
+[276] 2 4 4 4 2 1 4 2 4 4 4 4 4 1 3 4 3 4 1 NA 4 NA 1 1 1
+[301] 4 4 4 4 2 4 3 2 NA 1 4 4 3 4 4 4 2 4 2 1 4 4 NA 4 4
+[326] 3 3 4 2 2 4 1 4 4 4 3 4 4 4 3 2 1 3 1 4 1 4 2 NA 1
+[351] 4 4 3 1 4 1 4 1 4 4 1 2 2 1 4 1 1 4 NA 4 NA 4 4 4 1
+[376] 4 2 1 2 2 2 2 1 1 2 1 4 2 3 3 1 3 1 4 1 3 2 2 4 1
+[401] NA 3 4 2 4 4 4 4 4 4 3 4 4 3 2 1 4 4 2 4 2 1 2 1 1
+[426] 1 1 4 4 1 1 4 1 4 4 4 1 1 NA 3 2 4 4 4 4 2 3 3 2 NA
+[451] 4 2 4 4 1 1 4 4 1 1 4 1 2 2 2 2 1 4 4 1 2 2 2 3 4
+[476] 4 3 4 1 1 4 4 NA 4 1 4 4 4 1 4 4 1 2 4 4 4 4 1 2 4
+[501] 4 2 1 4 2 4 2 2 4 1 3 3 2 4 1 4 4 4 1 NA 4 4 2 4 4
+[526] 4 4 4 2 NA 4 2 4 3 1 4 4 3 4 2 4 4 1 2 1 4 1 3 3 1
+[551] 4 4 2 4 4 4 4 3 2 3 3 2 NA 3 4 4 3 3 4 4 4 1 4 4 4
+[576] 4 4 4 4 2 4 2 3 4 1 3 1 NA 4 1 2 2 1 4 3 3 4 1 1 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasinteger.testasinteger20
+#argv <- list(39);as.integer(argv[[1]]);
+[1] 39
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasinteger.testasinteger4
+#argv <- list(c(0, 1, NA, NA, 1, 1, -1, 1, 3, -2, -2, 7, -1, -1, -1, -1, -1, -1, -1, -1, 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0));as.integer(argv[[1]]);
+ [1] 0 1 NA NA 1 1 -1 1 3 -2 -2 7 -1 -1 -1 -1 -1 -1 -1 -1 17 0 0 0 0
+[26] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+[51] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+[76] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasinteger.testasinteger6
+#argv <- list(2e+05);as.integer(argv[[1]]);
+[1] 200000
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasinteger.testasinteger8
+#argv <- list(list(7L, 20, 0L, 1));as.integer(argv[[1]]);
+[1] 7 20 0 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasinteger.testasinteger9
+#argv <- list('-1');as.integer(argv[[1]]);
+[1] -1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinaslogical.testaslogical1
+#argv <- list(structure(c(0L, 0L, 0L, 1L), .Names = c('Y', 'B', 'V', 'N')));as.logical(argv[[1]]);
+[1] FALSE FALSE FALSE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinaslogical.testaslogical10
+#argv <- list(NULL);as.logical(argv[[1]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinaslogical.testaslogical11
+#argv <- list(structure('TRUE', .Names = '.registration'));as.logical(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinaslogical.testaslogical12
+#argv <- list(structure(c(0, 1, 2, 2), .Dim = c(4L, 1L), .Dimnames = list(c('Y', 'B', 'V', 'N'), NULL)));as.logical(argv[[1]]);
+[1] FALSE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinaslogical.testaslogical13
+#argv <- list(c(TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));as.logical(argv[[1]]);
+ [1] TRUE FALSE FALSE FALSE TRUE FALSE TRUE FALSE FALSE FALSE FALSE FALSE
+[13] FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinaslogical.testaslogical14
+#argv <- list(structure(list(a = 1), .Names = 'a'));as.logical(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinaslogical.testaslogical15
+#argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));as.logical(argv[[1]]);
+[1] NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinaslogical.testaslogical17
+#argv <- list(c(1, 2, 3, 4, 5, NA, NA, 2, 3, 4, 5, 6));as.logical(argv[[1]]);
+ [1] TRUE TRUE TRUE TRUE TRUE NA NA TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinaslogical.testaslogical2
+#argv <- list(structure(c(-4, 1), .Names = c('', '')));as.logical(argv[[1]]);
+[1] TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinaslogical.testaslogical3
+#argv <- list(structure(c(1L, 0L, 0L, 0L, 0L), .Names = c('bibtype', NA, NA, NA, NA)));as.logical(argv[[1]]);
+[1] TRUE FALSE FALSE FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinaslogical.testaslogical4
+#argv <- list(c(1L, NA, 0L));as.logical(argv[[1]]);
+[1] TRUE NA FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinaslogical.testaslogical7
+#argv <- list('FALSE');as.logical(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinaslogical.testaslogical8
+#argv <- list(structure(logical(0), .Dim = c(0L, 0L), .Dimnames = list(NULL, NULL)));as.logical(argv[[1]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinaslogical.testaslogical9
+#argv <- list(c(3.74165738677394, 0, 8.55235974119758, 1.96396101212393));as.logical(argv[[1]]);
+[1] TRUE FALSE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasraw.testasraw1
+#argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));as.raw(argv[[1]]);
+raw(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasraw.testasraw2
+#argv <- list(integer(0));as.raw(argv[[1]]);
+raw(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasraw.testasraw3
+#argv <- list(logical(0));as.raw(argv[[1]]);
+raw(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasraw.testasraw4
+#argv <- list(character(0));as.raw(argv[[1]]);
+raw(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasraw.testasraw5
+#argv <- list(NULL);as.raw(argv[[1]]);
+raw(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinasraw.testasraw6
+#argv <- list(list());as.raw(argv[[1]]);
+raw(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinatan.testatan2
+#argv <- list(c(-Inf, Inf));atan(argv[[1]]);
+[1] -1.570796 1.570796
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinatan.testatan4
+#argv <- list(c(1.24374261655622, 0.0991858914142951, -2.20142053912221, 2.32991997369528, -1.81371893641746, -2.23549697963848, 1.2062731926336, 0.766855355229013, 2.22205301460314, 3.00826513920171, 2.93956891545304, -0.947558891656842, -1.25682397176386, -0.535715772527751, 3.41845348048775, -0.760770219081429, -1.17237584279591, 5.89658401779422, 4.83929989447739, 1.29127425323328, 5.07843950370286, -0.812083060727, 0.688022442899665, 0.51448669913956, -0.286066209156396, -0.571116279122374, 3.99296063466557, 0.543926802451157, 10.5876703046153, -0.012750328000196, 8.35693622233428, -0.357306991432726, 4.27528487251696, 6.30217771913028, 3.89678155886045, -1.57897283794064, -2.06992463735805, 4.67986125893053, -1.26868871126894, 0.0676543743900469, 3.24354507548999, 0.242170808041476, 3.39848727561001, -0.616002138333813, 4.61847372836275, 1.27216752717472, -0.280512588403515, -0.898619929521427, -1.39985243813315, -1.28443284360156, 2.63389613373223, 6.30217771913028, 1.87342709084826, -1.09797072834446, 5.71334116764491, 13.1134896151196, 3.66949044715118, -1.08958378903637, 0.8976473859976, 0.169792654329705, 2.15662832698598, 2.85593682526588, 5.94427279099212, 3.06088249587567, 5.71334116764491, 2.35752884553298, -1.60367725265451, 0.275679954649422, 2.06745683332381, -1.66968494417226, 1.25318650417107, 10.8387072712787, 3.66949044715118, 2.11807401040277, 0.289193352142719, -1.16420273509137, 0.750915507554624, 10.8387072712787, 2.83949743554363, -1.49627880689407, 4.61847372836275, 2.52897165841403, 2.99093712861336, -1.55047774121799, 1.45900279946893, -0.889632055927773, 3.35896467002158, -1.30399295303346, 3.06088249587567, -0.951966998076272, 1.9567142584347, 4.83929989447739, 1.88517906265842, -0.640640247845954, 7.94407524992589, 2.7907339351624, 1.2062731926336, -0.037046093389687, 3.00826513920171, -0.49471891801084, 0.131065830042764, 0.742978487169905, 4.27528487251696, 2.82315118733936, 3.18752185714054, -0.335573516981329, 10.8387072712787, 0.26894691754398, 0.847902962488109, 9.94387770885966, 2.75867688212949, 1.46917954755241, 2.4562951432938, -0.308174402320662, 10.3567386812681, 2.30257280126274, -0.308174402320662, 1.41865102155398, 0.750915507554624, 0.182817981601453, 2.48514643462545, -0.447890214901362, 6.24824895102907, -0.489553106263216, 2.37143299336077, 4.71105188801319, 5.94427279099212, -0.453131097523732, -0.410935024130492, 1.36899222090483, 2.44197697450093, 0.831510275829206, -0.235694520704707, 1.6370875838366, -0.235694520704707, 0.688022442899665, 0.56620571694393, 0.0865319014350673, 0.965336240640277, 2.4562951432938, 0.442174515567164, 2.16959511326347, 5.84967070625675, 0.0802256582898436, 0.807094572229046, 0.831510275829206, 3.06088249587567, 7.84947316519051, 0.939766456519272, 2.08002811722361, 0.169792654329705, 1.16011052636907, 2.74278094610367, 3.18752185714054, 1.03465140856114, 0.742978487169905, 1.38875329192844, 2.7907339351624, 0.649399307990452, 0.588658009946432, 1.62630213168625, 1.37885583765837, 3.4588052584027, 0.378607817368726, 1.64791350682152, 2.55856273925465, 1.11467486151704, 2.75867688212949, 1.44886182210277, 1.29127425323328, 0.872667965105639, 2.51428915807333, 0.603723867107512, 1.27216752717472, 1.33960210165592, 2.77466088473214, 2.68005879999676, 3.39848727561001, 1.61555684891069, 1.30087527736898, 1.45900279946893, 0.856134366332116, 1.58355905227488, 1.37885583765837, 1.00846268026794, 1.44886182210277, 1.72485420222661, 4.19550729872178, 1.43875636487019, 1.60485143740593, 5.07843950370286, 3.69143051554687, 2.13086828897653, 1.61555684891069, 2.13086828897653, 1.90882759744288, 1.51024935267055, 1.54143998175321, 3.6046538963397, 5.15057088795887, 5.99276309359934, 1.94466787312459, 2.44197697450093, 2.00540917116861, 4.32972243262905, 2.14371955784334, 1.9567142584347, 1.98095898169889, 2.88909931785647, 1.80390312212468, 2.18262044053522, 2.69561196483408, 4.71105188801319, 10.3567386812681, 2.16959511326347, 2.5884604688802, 2.72697211153424, 2.31621398549464, 2.85593682526588, 2.51428915807333, 2.42772951300254, 4.04227987136562, 2.64920176692422, 2.60352632604128, 4.32972243262905, 2.87247042403941, 2.82315118733936));atan(argv[[1]]);
+ [1] 0.89360601 0.09886254 -1.14441195 1.16537423 -1.06691467 -1.15016680
+ [7] 0.87862112 0.65420155 1.14791390 1.24987024 1.24289116 -0.75847808
+ [13] -0.89870956 -0.49181033 1.28620681 -0.65035849 -0.86458125 1.40280496
+ [19] 1.36702298 0.91184320 1.37637283 -0.68206536 0.60264202 0.47516969
+ [25] -0.27862499 -0.51891066 1.32540290 0.49816853 1.47662620 -0.01274964
+ [31] 1.45170152 -0.34316950 1.34102464 1.41343296 1.31959494 -1.00623422
+ [37] -1.12075229 1.36028071 -0.90328253 0.06755144 1.27173812 0.23759655
+ [43] 1.28462440 -0.55210276 1.35756611 0.90461337 -0.27348396 -0.73205211
+ [49] -0.95049699 -0.90926985 1.20794147 1.41343296 1.08049045 -0.83206212
+ [55] 1.39752259 1.49468628 1.30473963 -0.82824352 0.73151379 0.16818863
+ [61] 1.13661896 1.23398984 1.40412777 1.25502475 1.39752259 1.16962639
+ [67] -1.01322824 0.26899825 1.12028486 -1.03117472 0.89729697 1.47879486
+ [73] 1.30473963 1.12969468 0.28151319 -0.86112524 0.64408678 1.47879486
+ [79] 1.23218519 -0.98164677 1.35756611 1.19424649 1.24813701 -0.99797056
+ [85] 0.96993662 -0.72705734 1.28144105 -0.91658221 1.25502475 -0.76079564
+ [91] 1.09833926 1.36702298 1.08308370 -0.56976726 1.44557499 1.22672110
+ [97] 0.87862112 -0.03702916 1.24987024 -0.45941383 0.13032298 0.63899217
+[103] 1.34102464 1.23037223 1.26679735 -0.32376536 1.47879486 0.26273005
+[109] 0.70327537 1.47056890 1.22303587 0.97317396 1.18416953 -0.29893927
+[115] 1.47453923 1.16107763 -0.29893927 0.95679268 0.64408678 0.18082114
+[121] 1.18823064 -0.42109804 1.41209734 -0.45525522 1.17173605 1.36163405
+[127] 1.40412777 -0.42545470 -0.38989743 0.93991572 1.18212356 0.69366141
+[133] -0.23147003 1.02244371 -0.23147003 0.60264202 0.51520003 0.08631689
+[139] 0.76776242 1.18416953 0.41632723 1.13890224 1.40148320 0.08005420
+[145] 0.67905195 0.69366141 1.25502475 1.44408183 0.75435618 1.12265663
+[151] 0.16818863 0.85938432 1.22118026 1.26679735 0.80242715 0.63899217
+[157] 0.94672698 1.22672110 0.57595283 0.53203806 1.01949880 0.94333151
+[163] 1.28935344 0.36192993 1.02537138 1.19820751 0.83957323 1.22303587
+[169] 0.96667994 0.91184320 0.71750767 1.19225120 0.54315314 0.90461337
+[175] 0.92954520 1.22488279 1.21366950 1.28462440 1.01653654 0.91542594
+[181] 0.96993662 0.70804462 1.00754442 0.94333151 0.78961165 0.96667994
+[187] 1.04539278 1.33681188 0.96340381 1.01355681 1.37637283 1.30624799
+[193] 1.13201528 1.01653654 1.13201528 1.08822633 0.98593251 0.99530454
+[199] 1.30018245 1.37902893 1.40545183 1.09583230 1.18212356 1.10822822
+[205] 1.34381476 1.13432334 1.09833926 1.10331131 1.23757454 1.06461685
+[211] 1.14117328 1.21556060 1.36163405 1.47453923 1.13890224 1.20212967
+[217] 1.21931590 1.16323153 1.23398984 1.19225120 1.18006719 1.32828021
+[223] 1.20986002 1.20407638 1.34381476 1.23578627 1.23037223
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr1
+#argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1), .Dim = c(32L, 23L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32'), c('(Intercept)', 'HairBrown', 'HairRed', 'HairBlond', 'EyeBlue', 'EyeHazel', 'EyeGreen', 'SexFemale', 'HairBrown:EyeBlue', 'HairRed:EyeBlue', 'HairBlond:EyeBlue', 'HairBrown:EyeHazel', 'HairRed:EyeHazel', 'HairBlond:EyeHazel', 'HairBrown:EyeGreen', 'HairRed:EyeGreen', 'HairBlond:EyeGreen', 'HairBrown:SexFemale', 'HairRed:SexFemale', 'HairBlond:SexFemale', 'EyeBlue:SexFemale', 'EyeHazel:SexFemale', 'EyeGreen:SexFemale')), assign = c(0L, 1L, 1L, 1L, 2L, 2L, 2L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 6L, 6L, 6L), contrasts = structure(list(Hair = 'contr.treatment', Eye = 'contr.treatment', Sex = 'contr.treatment'), .Names = c('Hair', 'Eye', 'Sex'))), 'assign');attr(argv[[1]],argv[[2]]);
+ [1] 0 1 1 1 2 2 2 3 4 4 4 4 4 4 4 4 4 5 5 5 6 6 6
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr12
+#argv <- list(structure(list(`1000/MPG.city` = c(40, 55.5555555555556, 50, 52.6315789473684, 45.4545454545455, 45.4545454545455, 52.6315789473684, 62.5, 52.6315789473684, 62.5, 62.5, 40, 40, 52.6315789473684, 47.6190476190476, 55.5555555555556, 66.6666666666667, 58.8235294117647, 58.8235294117647, 50, 43.4782608695652, 50, 34.4827586206897, 43.4782608695652, 45.4545454545455, 58.8235294117647, 47.6190476190476, 55.5555555555556, 34.4827586206897, 50, 32.258064516129, 43.4782608695652, 45.4545454545455, 45.4545454545455, 41.6666666666667, 66.6666666666667, 47.6190476190476, 55.5555555555556, 21.7391304347826, 33.3333333333333, 41.6666666666667, 23.8095238095238, 41.6666666666667, 34.4827586206897, 45.4545454545455, 38.4615384615385, 50, 58.8235294117647, 55.5555555555556, 55.5555555555556, 58.8235294117647, 55.5555555555556, 34.4827586206897, 35.7142857142857, 38.4615384615385, 55.5555555555556, 58.8235294117647, 50, 52.6315789473684, 43.4782608695652, 52.6315789473684, 34.4827586206897, 55.5555555555556, 34.4827586206897, 41.6666666666667, 58.8235294117647, 47.6190476190476, 41.6666666666667, 43.4782608695652, 55.5555555555556, 52.6315789473684, 43.4782608695652, 32.258064516129, 43.4782608695652, 52.6315789473684, 52.6315789473684, 52.6315789473684, 50, 35.7142857142857, 30.3030303030303, 40, 43.4782608695652, 25.6410256410256, 31.25, 40, 45.4545454545455, 55.5555555555556, 40, 58.8235294117647, 47.6190476190476, 55.5555555555556, 47.6190476190476, 50), Weight = c(2705L, 3560L, 3375L, 3405L, 3640L, 2880L, 3470L, 4105L, 3495L, 3620L, 3935L, 2490L, 2785L, 3240L, 3195L, 3715L, 4025L, 3910L, 3380L, 3515L, 3085L, 3570L, 2270L, 2670L, 2970L, 3705L, 3080L, 3805L, 2295L, 3490L, 1845L, 2530L, 2690L, 2850L, 2710L, 3735L, 3325L, 3950L, 1695L, 2475L, 2865L, 2350L, 3040L, 2345L, 2620L, 2285L, 2885L, 4000L, 3510L, 3515L, 3695L, 4055L, 2325L, 2440L, 2970L, 3735L, 2895L, 2920L, 3525L, 2450L, 3610L, 2295L, 3730L, 2545L, 3050L, 4100L, 3200L, 2910L, 2890L, 3715L, 3470L, 2640L, 2350L, 2575L, 3240L, 3450L, 3495L, 2775L, 2495L, 2045L, 2490L, 3085L, 1965L, 2055L, 2950L, 3030L, 3785L, 2240L, 3960L, 2985L, 2810L, 2985L, 3245L), Cylinders = structure(c(2L, 4L, 4L, 4L, 2L, 2L, 4L, 4L, 4L, 5L, 5L, 2L, 2L, 4L, 2L, 4L, 4L, 5L, 5L, 4L, 2L, 4L, 2L, 2L, 2L, 4L, 2L, 4L, 2L, 4L, 2L, 2L, 2L, 2L, 2L, 4L, 4L, 5L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 5L, 4L, 4L, 4L, 5L, 2L, 2L, 2L, 4L, 6L, 2L, 4L, 2L, 4L, 2L, 4L, 2L, 2L, 4L, 4L, 2L, 2L, 4L, 4L, 2L, 2L, 2L, 4L, 4L, 4L, 2L, 2L, 1L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 4L, 2L, 3L), .Label = c('3', '4', '5', '6', '8', 'rotary'), class = 'factor'), Type = structure(c(4L, 3L, 1L, 3L, 3L, 3L, 2L, 2L, 3L, 2L, 3L, 1L, 1L, 5L, 3L, 6L, 6L, 2L, 5L, 2L, 1L, 2L, 4L, 4L, 1L, 6L, 3L, 5L, 4L, 2L, 4L, 4L, 1L, 5L, 5L, 6L, 3L, 2L, 4L, 5L, 5L, 4L, 1L, 4L, 4L, 5L, 3L, 3L, 3L, 3L, 3L, 2L, 4L, 4L, 1L, 6L, 5L, 1L, 3L, 5L, 3L, 4L, 3L, 4L, 1L, 6L, 3L, 1L, 3L, 6L, 2L, 5L, 4L, 1L, 5L, 3L, 2L, 1L, 4L, 4L, 4L, 1L, 4L, 4L, 5L, 3L, 6L, 4L, 6L, 1L, 5L, 1L, 3L), .Label = c('Compact', 'Large', 'Midsize', 'Small', 'Sporty', 'Van'), class = 'factor'), EngineSize = c(1.8, 3.2, 2.8, 2.8, 3.5, 2.2, 3.8, 5.7, 3.8, 4.9, 4.6, 2.2, 2.2, 3.4, 2.2, 3.8, 4.3, 5, 5.7, 3.3, 3, 3.3, 1.5, 2.2, 2.5, 3, 2.5, 3, 1.5, 3.5, 1.3, 1.8, 2.3, 2.3, 2, 3, 3, 4.6, 1, 1.6, 2.3, 1.5, 2.2, 1.5, 1.8, 1.5, 2, 4.5, 3, 3, 3.8, 4.6, 1.6, 1.8, 2.5, 3, 1.3, 2.3, 3.2, 1.6, 3.8, 1.5, 3, 1.6, 2.4, 3, 3, 2.3, 2.2, 3.8, 3.8, 1.8, 1.6, 2, 3.4, 3.4, 3.8, 2.1, 1.9, 1.2, 1.8, 2.2, 1.3, 1.5, 2.2, 2.2, 2.4, 1.8, 2.5, 2, 2.8, 2.3, 2.4), DriveTrain = structure(c(2L, 2L, 2L, 2L, 3L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 1L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 1L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 3L, 2L, 3L, 2L, 2L, 2L, 1L, 3L, 3L, 3L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 3L, 2L), .Label = c('4WD', 'Front', 'Rear'), class = 'factor')), .Names = c('1000/MPG.city', 'Weight', 'Cylinders', 'Type', 'EngineSize', 'DriveTrain'), terms = quote(1000/MPG.city ~ Weight + Cylinders + Type + EngineSize + DriveTrain), row.names = c(NA, 93L), class = 'data.frame'), 'row.names');attr(argv[[1]],argv[[2]]);
+ [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
+[26] 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
+[51] 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75
+[76] 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr15
+#argv <- list(structure(list(Df = c(NA, 1), Deviance = c(5.65604443125997, 8.44399377410362), AIC = c(71.3540021461976, 72.1419514890413)), .Names = c('Df', 'Deviance', 'AIC'), row.names = c('<none>', '- M.user:Temp'), class = c('anova', 'data.frame'), heading = c('Single term deletions', '\nModel:', 'cbind(X, M) ~ M.user + Temp + M.user:Temp')), 'row.names');attr(argv[[1]],argv[[2]]);
+[1] "<none>" "- M.user:Temp"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr16
+#argv <- list(structure(list(`1000/MPG.city` = c(40, 55.5555555555556, 50, 52.6315789473684, 45.4545454545455, 45.4545454545455, 52.6315789473684, 62.5, 52.6315789473684, 62.5, 62.5, 40, 40, 52.6315789473684, 47.6190476190476, 55.5555555555556, 66.6666666666667, 58.8235294117647, 58.8235294117647, 50, 43.4782608695652, 50, 34.4827586206897, 43.4782608695652, 45.4545454545455, 58.8235294117647, 47.6190476190476, 55.5555555555556, 34.4827586206897, 50, 32.258064516129, 43.4782608695652, 45.4545454545455, 45.4545454545455, 41.6666666666667, 66.6666666666667, 47.6190476190476, 55.5555555555556, 21.7391304347826, 33.3333333333333, 41.6666666666667, 23.8095238095238, 41.6666666666667, 34.4827586206897, 45.4545454545455, 38.4615384615385, 50, 58.8235294117647, 55.5555555555556, 55.5555555555556, 58.8235294117647, 55.5555555555556, 34.4827586206897, 35.7142857142857, 38.4615384615385, 55.5555555555556, 58.8235294117647, 50, 52.6315789473684, 43.4782608695652, 52.6315789473684, 34.4827586206897, 55.5555555555556, 34.4827586206897, 41.6666666666667, 58.8235294117647, 47.6190476190476, 41.6666666666667, 43.4782608695652, 55.5555555555556, 52.6315789473684, 43.4782608695652, 32.258064516129, 43.4782608695652, 52.6315789473684, 52.6315789473684, 52.6315789473684, 50, 35.7142857142857, 30.3030303030303, 40, 43.4782608695652, 25.6410256410256, 31.25, 40, 45.4545454545455, 55.5555555555556, 40, 58.8235294117647, 47.6190476190476, 55.5555555555556, 47.6190476190476, 50), Weight = c(2705L, 3560L, 3375L, 3405L, 3640L, 2880L, 3470L, 4105L, 3495L, 3620L, 3935L, 2490L, 2785L, 3240L, 3195L, 3715L, 4025L, 3910L, 3380L, 3515L, 3085L, 3570L, 2270L, 2670L, 2970L, 3705L, 3080L, 3805L, 2295L, 3490L, 1845L, 2530L, 2690L, 2850L, 2710L, 3735L, 3325L, 3950L, 1695L, 2475L, 2865L, 2350L, 3040L, 2345L, 2620L, 2285L, 2885L, 4000L, 3510L, 3515L, 3695L, 4055L, 2325L, 2440L, 2970L, 3735L, 2895L, 2920L, 3525L, 2450L, 3610L, 2295L, 3730L, 2545L, 3050L, 4100L, 3200L, 2910L, 2890L, 3715L, 3470L, 2640L, 2350L, 2575L, 3240L, 3450L, 3495L, 2775L, 2495L, 2045L, 2490L, 3085L, 1965L, 2055L, 2950L, 3030L, 3785L, 2240L, 3960L, 2985L, 2810L, 2985L, 3245L), Cylinders = structure(c(2L, 4L, 4L, 4L, 2L, 2L, 4L, 4L, 4L, 5L, 5L, 2L, 2L, 4L, 2L, 4L, 4L, 5L, 5L, 4L, 2L, 4L, 2L, 2L, 2L, 4L, 2L, 4L, 2L, 4L, 2L, 2L, 2L, 2L, 2L, 4L, 4L, 5L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 5L, 4L, 4L, 4L, 5L, 2L, 2L, 2L, 4L, 6L, 2L, 4L, 2L, 4L, 2L, 4L, 2L, 2L, 4L, 4L, 2L, 2L, 4L, 4L, 2L, 2L, 2L, 4L, 4L, 4L, 2L, 2L, 1L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 4L, 2L, 3L), .Label = c('3', '4', '5', '6', '8', 'rotary'), class = 'factor'), Type = structure(c(4L, 3L, 1L, 3L, 3L, 3L, 2L, 2L, 3L, 2L, 3L, 1L, 1L, 5L, 3L, 6L, 6L, 2L, 5L, 2L, 1L, 2L, 4L, 4L, 1L, 6L, 3L, 5L, 4L, 2L, 4L, 4L, 1L, 5L, 5L, 6L, 3L, 2L, 4L, 5L, 5L, 4L, 1L, 4L, 4L, 5L, 3L, 3L, 3L, 3L, 3L, 2L, 4L, 4L, 1L, 6L, 5L, 1L, 3L, 5L, 3L, 4L, 3L, 4L, 1L, 6L, 3L, 1L, 3L, 6L, 2L, 5L, 4L, 1L, 5L, 3L, 2L, 1L, 4L, 4L, 4L, 1L, 4L, 4L, 5L, 3L, 6L, 4L, 6L, 1L, 5L, 1L, 3L), .Label = c('Compact', 'Large', 'Midsize', 'Small', 'Sporty', 'Van'), class = 'factor'), EngineSize = c(1.8, 3.2, 2.8, 2.8, 3.5, 2.2, 3.8, 5.7, 3.8, 4.9, 4.6, 2.2, 2.2, 3.4, 2.2, 3.8, 4.3, 5, 5.7, 3.3, 3, 3.3, 1.5, 2.2, 2.5, 3, 2.5, 3, 1.5, 3.5, 1.3, 1.8, 2.3, 2.3, 2, 3, 3, 4.6, 1, 1.6, 2.3, 1.5, 2.2, 1.5, 1.8, 1.5, 2, 4.5, 3, 3, 3.8, 4.6, 1.6, 1.8, 2.5, 3, 1.3, 2.3, 3.2, 1.6, 3.8, 1.5, 3, 1.6, 2.4, 3, 3, 2.3, 2.2, 3.8, 3.8, 1.8, 1.6, 2, 3.4, 3.4, 3.8, 2.1, 1.9, 1.2, 1.8, 2.2, 1.3, 1.5, 2.2, 2.2, 2.4, 1.8, 2.5, 2, 2.8, 2.3, 2.4), DriveTrain = structure(c(2L, 2L, 2L, 2L, 3L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 1L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 1L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 3L, 2L, 3L, 2L, 2L, 2L, 1L, 3L, 3L, 3L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 3L, 2L), .Label = c('4WD', 'Front', 'Rear'), class = 'factor')), .Names = c('1000/MPG.city', 'Weight', 'Cylinders', 'Type', 'EngineSize', 'DriveTrain'), terms = quote(1000/MPG.city ~ Weight + Cylinders + Type + EngineSize + DriveTrain), row.names = c(NA, 93L), class = 'data.frame'), 'na.action');attr(argv[[1]],argv[[2]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr18
+#argv <- list(c(NA, NA, '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/histogram.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/histogram.R'), 'levels');attr(argv[[1]],argv[[2]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr19
+#argv <- list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats'), frow = c(2418L, 2418L, 2418L, 2421L, 2422L, 2424L), lrow = c(2418L, 2418L, 2418L, 2421L, 2426L, 2424L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 6L), class = 'data.frame'), 'row.names');attr(argv[[1]],argv[[2]]);
+[1] 1 2 3 4 5 6
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr2
+#argv <- list(structure(list(`cbind(X, M)` = structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('X', 'M'))), M.user = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L), .Label = c('N', 'Y'), class = 'factor'), Temp = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c('High', 'Low'), class = 'factor'), Soft = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c('Hard', 'Medium', 'Soft'), class = 'factor')), .Names = c('cbind(X, M)', 'M.user', 'Temp', 'Soft'), terms = quote(cbind(X, M) ~ M.user + Temp + Soft), row.names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), class = 'data.frame'), 'terms');attr(argv[[1]],argv[[2]]);
+cbind(X, M) ~ M.user + Temp + Soft
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr21
+#argv <- list(structure(list(ID = c(63L, 63L, 63L, 63L, 63L), Age = c(30L, 30L, 30L, 30L, 30L), OME = structure(c(3L, 3L, 3L, 3L, 3L), .Label = c('N/A', 'high', 'low'), class = 'factor'), Loud = c(35L, 40L, 45L, 50L, 55L), Noise = structure(c(2L, 2L, 2L, 2L, 2L), .Label = c('coherent', 'incoherent'), class = 'factor'), Correct = c(1L, 1L, 1L, 3L, 1L), Trials = c(2L, 1L, 1L, 3L, 1L), UID = c(67L, 67L, 67L, 67L, 67L), UIDn = c(67.1, 67.1, 67.1, 67.1, 67.1)), .Names = c('ID', 'Age', 'OME', 'Loud', 'Noise', 'Correct', 'Trials', 'UID', 'UIDn'), row.names = c(635L, 639L, 643L, 647L, 651L), class = 'data.frame'), 'na.action');attr(argv[[1]],argv[[2]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr26
+#argv <- list(structure(list(structure(list(structure('Update varFunc Object', Rd_tag = 'TEXT')), Rd_tag = '\\title'), structure(list(structure('update.varFunc', Rd_tag = 'VERB')), Rd_tag = '\\name'), structure(list(structure('update.varExp', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('update.varFunc', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('update.varComb', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('update.varConstPower', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('update.varExpon', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('update.varPower', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('models', Rd_tag = 'TEXT')), Rd_tag = '\\keyword'), structure(list(structure('\n', Rd_tag = 'TEXT'), structure(' If the ', Rd_tag = 'TEXT'), structure(list(structure('formula(object)', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' includes a ', Rd_tag = 'TEXT'), structure(list(structure('\'.\'', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' term, representing\n', Rd_tag = 'TEXT'), structure(' a fitted object, the variance covariate needs to be updated upon\n', Rd_tag = 'TEXT'), structure(' completion of an optimization cycle (in which the variance function\n', Rd_tag = 'TEXT'), structure(' weights are kept fixed). This method function allows a reevaluation of\n', Rd_tag = 'TEXT'), structure(' the variance covariate using the current fitted object and,\n', Rd_tag = 'TEXT'), structure(' optionally, other variables in the original data.\n', Rd_tag = 'TEXT')), Rd_tag = '\\description'), structure(list(structure('\n', Rd_tag = 'RCODE'), structure(list(list(structure('update', Rd_tag = 'TEXT')), list(structure('varFunc', Rd_tag = 'TEXT'))), Rd_tag = '\\method'), structure('(object, data, ', Rd_tag = 'RCODE'), structure(list(), Rd_tag = '\\dots'), structure(')\n', Rd_tag = 'RCODE')), Rd_tag = '\\usage'), structure(list(structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure('object', Rd_tag = 'TEXT')), list(structure('an object inheriting from class ', Rd_tag = 'TEXT'), structure(list(structure('varFunc', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(',\n', Rd_tag = 'TEXT'), structure(' representing a variance function structure.', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure(' \n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure('data', Rd_tag = 'TEXT')), list(structure('a list with a component named ', Rd_tag = 'TEXT'), structure(list(structure('\'.\'', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' with the current\n', Rd_tag = 'TEXT'), structure(' version of the fitted object (from which fitted values, coefficients,\n', Rd_tag = 'TEXT'), structure(' and residuals can be extracted) and, if necessary, other variables\n', Rd_tag = 'TEXT'), structure(' used to evaluate the variance covariate(s).', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure(list(), Rd_tag = '\\dots')), list(structure('some methods for this generic require additional\n', Rd_tag = 'TEXT'), structure(' arguments. None are used in this method.', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure(' \n', Rd_tag = 'TEXT')), Rd_tag = '\\arguments'), structure(list(structure('\n', Rd_tag = 'TEXT'), structure(' if ', Rd_tag = 'TEXT'), structure(list(structure('formula(object)', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' includes a ', Rd_tag = 'TEXT'), structure(list(structure('\'.\'', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' term, an\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(structure('varFunc', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' object similar to ', Rd_tag = 'TEXT'), structure(list(structure('object', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(', but with the \n', Rd_tag = 'TEXT'), structure(' variance covariate reevaluated at the current fitted object value;\n', Rd_tag = 'TEXT'), structure(' else ', Rd_tag = 'TEXT'), structure(list(structure('object', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' is returned unchanged.\n', Rd_tag = 'TEXT')), Rd_tag = '\\value'), structure(list(structure('José Pinheiro and Douglas Bates ', Rd_tag = 'TEXT'), structure(list(structure('bates@stat.wisc.edu', Rd_tag = 'TEXT')), Rd_tag = '\\email')), Rd_tag = '\\author'), structure(list(structure(list(structure(list(structure('needUpdate', Rd_tag = 'TEXT')), Rd_tag = '\\link')), Rd_tag = '\\code'), structure(',\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(structure(list(structure('covariate<-.varFunc', Rd_tag = 'TEXT')), Rd_tag = '\\link')), Rd_tag = '\\code'), structure('\n', Rd_tag = 'TEXT')), Rd_tag = '\\seealso')), Rdfile = '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/man/update.varFunc.Rd', class = 'Rd', meta = structure(list(docType = character(0)), .Names = 'docType'), prepared = 3L), 'prepared');attr(argv[[1]],argv[[2]]);
+[1] 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr29
+#argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')), 'row.names');attr(argv[[1]],argv[[2]]);
+[1] "1" "2" "3"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr30
+#argv <- list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/graphics/R/graphics', '/home/lzhao/hg/r-instrumented/library/graphics/R/graphics'), frow = 4262:4263, lrow = 4262:4263), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'), 'row.names');attr(argv[[1]],argv[[2]]);
+[1] 1 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr34
+#argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c('y', 'x', 'z'), class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ x * z)), 'row.names');attr(argv[[1]],argv[[2]]);
+ [1] 1 2 3 4 5 6 7 8 9 10
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr35
+#argv <- list(structure(c(123.48457192908, 239.059434652297, 290.055338401838, 18.397281603467, 6.57585722655537, 0.670931786731845, 0.178466148156965, 0.245410750178149, 0.363167328274208, 0.194808268742596, 2172.67583033103, 8.91763605923317e+38), .Dim = c(1L, 12L), .Dimnames = list(NULL, c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))), 'class');attr(argv[[1]],argv[[2]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr36
+#argv <- list(structure(c(8.85169533448293e-238, 2.77884205079773e-237, 8.5330427463164e-242, 7.89244209468013e-215, 6.74732964729372e-231, 1.30818670504849e-217, 1.39113376416096e-208, 1.35683278955814e-215, 7.74002099666521e-219, 3.64254537730231e-220, 6.75916981442421e-296, 0), .Dim = c(1L, 12L), .Dimnames = list(NULL, c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))), 'class');attr(argv[[1]],argv[[2]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr37
+#argv <- list(structure(c(0, 0, 0, 0, 0, 0, 1.90299264808673e-318, 0, 0, 0, 0, 0), .Dim = c(1L, 12L), .Dimnames = list(NULL, c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))), 'class');attr(argv[[1]],argv[[2]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr38
+#argv <- list(list(c(57, 95, 8, 69, 92, 90, 15, 2, 84, 6, 127, 36, 51, 2, 69, 71, 87, 72, 5, 39, 22, 16, 72, 4, 130, 4, 114, 9, 20, 24, 10, 51, 43, 28, 60, 5, 17, 7, 81, 71, 12, 29, 44, 77, 4, 27, 47, 76, 8, 72, 13, 57, 4, 81, 20, 61, 80, 114, 39, 14, 86, 55, 3, 19)), 'names');attr(argv[[1]],argv[[2]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr39
+#argv <- list(structure(list(coef = c(0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099), m = 50L), .Names = c('coef', 'm'), name = 'Daniell(50)', class = 'tskernel'), 'name');attr(argv[[1]],argv[[2]]);
+[1] "Daniell(50)"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr4
+#argv <- list(structure(list(`cbind(w = weight, w2 = weight^2)` = structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c('w', 'w2'))), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = c('cbind(w = weight, w2 = weight^2)', 'group'), terms = quote(cbind(w = weight, w2 = weight^2) ~ group), row.names = c(NA, 20L), class = 'data.frame'), 'terms');attr(argv[[1]],argv[[2]]);
+cbind(w = weight, w2 = weight^2) ~ group
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr41
+#argv <- list(structure(list(A = 0:10, B = 10:20, `NA` = 20:30), .Names = c('A', 'B', NA), row.names = c(NA, -11L), class = 'data.frame'), 'row.names');attr(argv[[1]],argv[[2]]);
+ [1] 1 2 3 4 5 6 7 8 9 10 11
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr42
+#argv <- list(structure(list(coef = c(0.1, 0.1, 0.1, 0.1, 0.1, 0.05), m = 5L), .Names = c('coef', 'm'), name = 'mDaniell(5)', class = 'tskernel'), 'name');attr(argv[[1]],argv[[2]]);
+[1] "mDaniell(5)"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr45
+#argv <- list(c(35.2589338684655, 59.5005803666983, 12.4529321610302, 2.53579570262684, 10.370198579714, 42.0067149618146, 8.14319638132861, 34.0508943233725, 7.78517191057496, 26.9998965458032, 6.70435391953205, 3.62502215105156, 2.59277105754344, 14.4998960151485, 6.70435391953205, 5.8000097831969, 32.741875696675, 59.5015090627504, 13.5512565366133, 4.46460764999704, 9.62989278443572, 42.0073706103832, 8.86141045052292, 59.9511558158597, 7.22940551532861, 27.0003179651772, 7.29566488446303, 6.38233656214029, 2.40767880256155, 14.5001223322046, 7.29566488446303, 10.2116933242272), 'dim');attr(argv[[1]],argv[[2]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr6
+#argv <- list(structure(list(Y = c(130L, 157L, 174L, 117L, 114L, 161L, 141L, 105L, 140L, 118L, 156L, 61L, 91L, 97L, 100L, 70L, 108L, 126L, 149L, 96L, 124L, 121L, 144L, 68L, 64L, 112L, 86L, 60L, 102L, 89L, 96L, 89L, 129L, 132L, 124L, 74L, 89L, 81L, 122L, 64L, 103L, 132L, 133L, 70L, 89L, 104L, 117L, 62L, 90L, 100L, 116L, 80L, 82L, 94L, 126L, 63L, 70L, 109L, 99L, 53L, 74L, 118L, 113L, 89L, 82L, 86L, 104L, 97L, 99L, 119L, 121L), B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c('I', 'II', 'III', 'IV', 'V', 'VI'), class = 'factor'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c('Golden.rain', 'Marvellous', 'Victory'), class = 'factor'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt'), class = 'factor')), .Names = c('Y', 'B', 'V', 'N'), terms = quote(Y ~ B + V + N + V:N), row.names = 2:72, class = 'data.frame'), 'na.action');attr(argv[[1]],argv[[2]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr7
+#argv <- list(structure('mtext(\'«Latin-1 accented chars»: éè øØ å<Å æ<Æ\', side = 3)\n', Rd_tag = 'RCODE'), 'Rd_tag');attr(argv[[1]],argv[[2]]);
+[1] "RCODE"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattr.testattr9
+#argv <- list(structure(list(Fr = c(32, 53, 10, 3, 11, 50, 10, 30, 10, 25, 7, 5, 3, 15, 7, 8, 36, 66, 16, 4, 9, 34, 7, 64, 5, 29, 7, 5, 2, 14, 7, 8), Hair = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('Black', 'Brown', 'Red', 'Blond'), class = 'factor'), Eye = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L), .Label = c('Brown', 'Blue', 'Hazel', 'Green'), class = 'factor'), Sex = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Male', 'Female'), class = 'factor')), .Names = c('Fr', 'Hair', 'Eye', 'Sex'), terms = quote(Fr ~ (Hair + Eye + Sex)^2), row.names = c(NA, 32L), class = 'data.frame'), 'terms');attr(argv[[1]],argv[[2]]);
+Fr ~ (Hair + Eye + Sex)^2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattributes.testattributes13
+#argv <- list(c(FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE));attributes(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattributes.testattributes18
+#argv <- list(structure(3.14159265358979, comment = 'Start with pi'));attributes(argv[[1]]);
+$comment
+[1] "Start with pi"
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattributes.testattributes2
+#argv <- list(1386518010.66723);attributes(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattributes.testattributes22
+#argv <- list(c(1000, 1e+07, 1));attributes(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattributes.testattributes25
+#argv <- list(structure(character(0), package = character(0), class = structure('ObjectsWithPackage', package = 'methods')));attributes(argv[[1]]);
+$package
+character(0)
+
+$class
+[1] "ObjectsWithPackage"
+attr(,"package")
+[1] "methods"
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattributes.testattributes4
+#argv <- list(structure(c(1+1i, 2+1.4142135623731i, 3+1.73205080756888i, 4+2i, 5+2.23606797749979i, 6+2.44948974278318i, 7+2.64575131106459i, 8+2.82842712474619i, 9+3i, 10+3.1622776601684i), id = character(0), class = structure('withId', package = '.GlobalEnv')));attributes(argv[[1]]);
+$id
+character(0)
+
+$class
+[1] "withId"
+attr(,"package")
+[1] ".GlobalEnv"
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinattributes.testattributes8
+#argv <- list('Error in setClass(\'class3\', representation(\'class1\', \'class2\')) : \n error in contained classes (\'class2\') for class “class3”; class definition removed from ‘.GlobalEnv’\n');attributes(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinbasename.testbasename1
+#argv <- list('/home/roman/r-instrumented/library/base/help/DateTimeClasses'); .Internal(basename(argv[[1]]))
+[1] "DateTimeClasses"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinbasename.testbasename2
+#argv <- list(structure('myTst', .Names = '')); .Internal(basename(argv[[1]]))
+[1] "myTst"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinbasename.testbasename3
+#argv <- list(c('file55711ba85492.R', '/file55711ba85492.R')); .Internal(basename(argv[[1]]))
+[1] "file55711ba85492.R" "file55711ba85492.R"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinbasename.testbasename4
+#argv <- list(character(0)); .Internal(basename(argv[[1]]))
+character(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinbasename.testbasename5
+#argv <- list(structure('/home/lzhao/hg/r-instrumented/library/utils', .Names = 'Dir')); .Internal(basename(argv[[1]]))
+[1] "utils"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinbasename.testbasename6
+#argv <- list('tk_messageBox.Rd'); .Internal(basename(argv[[1]]))
+[1] "tk_messageBox.Rd"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinbasename.testbasename7
+#argv <- list(c('.', '.', '.', '.', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'inst', 'inst', 'inst/doc', 'inst/doc', 'inst/doc', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb/figures', 'noweb/figures', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'vignettes', 'vignettes', 'vignettes')); .Internal(basename(argv[[1]]))
+ [1] "." "." "." "." "R" "R"
+ [7] "R" "R" "R" "R" "R" "R"
+ [13] "R" "R" "R" "R" "R" "R"
+ [19] "R" "R" "R" "R" "R" "R"
+ [25] "R" "R" "R" "R" "R" "R"
+ [31] "R" "R" "R" "R" "R" "R"
+ [37] "R" "R" "R" "R" "R" "R"
+ [43] "R" "R" "R" "R" "R" "R"
+ [49] "R" "R" "R" "R" "R" "R"
+ [55] "R" "R" "R" "R" "R" "R"
+ [61] "R" "R" "R" "R" "R" "R"
+ [67] "R" "R" "R" "R" "R" "R"
+ [73] "R" "R" "R" "R" "R" "R"
+ [79] "R" "R" "R" "R" "R" "R"
+ [85] "R" "R" "R" "R" "R" "R"
+ [91] "R" "R" "R" "R" "R" "R"
+ [97] "R" "R" "R" "R" "R" "R"
+[103] "R" "R" "R" "R" "R" "R"
+[109] "R" "R" "R" "R" "R" "R"
+[115] "R" "R" "R" "R" "R" "R"
+[121] "R" "R" "R" "data" "data" "data"
+[127] "data" "data" "data" "data" "data" "data"
+[133] "data" "data" "data" "data" "data" "data"
+[139] "data" "data" "data" "data" "inst" "inst"
+[145] "doc" "doc" "doc" "man" "man" "man"
+[151] "man" "man" "man" "man" "man" "man"
+[157] "man" "man" "man" "man" "man" "man"
+[163] "man" "man" "man" "man" "man" "man"
+[169] "man" "man" "man" "man" "man" "man"
+[175] "man" "man" "man" "man" "man" "man"
+[181] "man" "man" "man" "man" "man" "man"
+[187] "man" "man" "man" "man" "man" "man"
+[193] "man" "man" "man" "man" "man" "man"
+[199] "man" "man" "man" "man" "man" "man"
+[205] "man" "man" "man" "man" "man" "man"
+[211] "man" "man" "man" "man" "man" "man"
+[217] "man" "man" "man" "man" "man" "man"
+[223] "man" "man" "man" "man" "man" "man"
+[229] "man" "noweb" "noweb" "noweb" "noweb" "noweb"
+[235] "noweb" "noweb" "noweb" "noweb" "figures" "figures"
+[241] "noweb" "noweb" "noweb" "noweb" "noweb" "rates"
+[247] "rates" "rates" "rates" "rates" "rates" "rates"
+[253] "rates" "rates" "rates" "rates" "rates" "rates"
+[259] "rates" "rates" "rates" "noweb" "noweb" "noweb"
+[265] "noweb" "noweb" "noweb" "noweb" "noweb" "noweb"
+[271] "src" "src" "src" "src" "src" "src"
+[277] "src" "src" "src" "src" "src" "src"
+[283] "src" "src" "src" "src" "src" "src"
+[289] "src" "src" "src" "src" "src" "src"
+[295] "src" "src" "src" "src" "src" "src"
+[301] "src" "src" "src" "src" "src" "src"
+[307] "src" "src" "src" "src" "src" "src"
+[313] "src" "src" "src" "src" "src" "src"
+[319] "tests" "tests" "tests" "tests" "tests" "tests"
+[325] "tests" "tests" "tests" "tests" "tests" "tests"
+[331] "tests" "tests" "tests" "tests" "tests" "tests"
+[337] "tests" "tests" "tests" "tests" "tests" "tests"
+[343] "tests" "tests" "tests" "tests" "tests" "tests"
+[349] "tests" "tests" "tests" "tests" "tests" "tests"
+[355] "tests" "tests" "tests" "tests" "tests" "tests"
+[361] "tests" "tests" "tests" "tests" "tests" "tests"
+[367] "tests" "tests" "tests" "tests" "tests" "tests"
+[373] "tests" "tests" "tests" "tests" "tests" "tests"
+[379] "tests" "tests" "tests" "tests" "tests" "tests"
+[385] "tests" "tests" "tests" "tests" "tests" "tests"
+[391] "tests" "tests" "tests" "tests" "tests" "tests"
+[397] "tests" "tests" "tests" "tests" "tests" "tests"
+[403] "tests" "tests" "tests" "tests" "tests" "tests"
+[409] "tests" "tests" "tests" "tests" "tests" "tests"
+[415] "tests" "tests" "tests" "tests" "tests" "tests"
+[421] "tests" "tests" "tests" "tests" "tests" "tests"
+[427] "tests" "tests" "tests" "tests" "tests" "tests"
+[433] "tests" "tests" "tests" "tests" "tests" "tests"
+[439] "tests" "tests" "tests" "tests" "tests" "tests"
+[445] "tests" "tests" "tests" "tests" "tests" "tests"
+[451] "tests" "tests" "tests" "tests" "tests" "tests"
+[457] "tests" "tests" "tests" "tests" "tests" "tests"
+[463] "tests" "tests" "tests" "tests" "tests" "tests"
+[469] "tests" "tests" "tests" "tests" "tests" "tests"
+[475] "tests" "tests" "tests" "tests" "tests" "vignettes"
+[481] "vignettes" "vignettes"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc1
+#argv <- list(character(0), 'myLib/myTst');c(argv[[1]],argv[[2]]);
+[1] "myLib/myTst"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc11
+#argv <- list(`(Intercept)` = '(Intercept)', structure(list(B = 'B', V = 'V', N = 'N', `V:N` = c('V', 'N'), Residuals = c('B', 'V', 'N', 'Within')), .Names = c('B', 'V', 'N', 'V:N', 'Residuals')));c(argv[[1]],argv[[2]]);
+[[1]]
+[1] "(Intercept)"
+
+$B
+[1] "B"
+
+$V
+[1] "V"
+
+$N
+[1] "N"
+
+$`V:N`
+[1] "V" "N"
+
+$Residuals
+[1] "B" "V" "N" "Within"
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc12
+#argv <- list(structure(c(512, 313, 89, 19, 353, 207, 17, 8, 120, 205, 202, 391, 138, 279, 131, 244, 53, 138, 94, 299, 22, 351, 24, 317), .Dim = c(2L, 2L, 6L), .Dimnames = structure(list(Admit = c('Admitted', 'Rejected'), Gender = c('Male', 'Female'), Dept = c('A', 'B', 'C', 'D', 'E', 'F')), .Names = c('Admit', 'Gender', 'Dept')), class = 'table'));c(argv[[1]]);
+ [1] 512 313 89 19 353 207 17 8 120 205 202 391 138 279 131 244 53 138 94
+[20] 299 22 351 24 317
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc19
+#argv <- list(10L, NULL, 10);c(argv[[1]],argv[[2]],argv[[3]]);
+[1] 10 10
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc2
+#argv <- list(structure(list(names = c('x', 'z')), .Names = 'names'), structure(list(class = 'data.frame', row.names = c(NA, 10L)), .Names = c('class', 'row.names')));c(argv[[1]],argv[[2]]);
+$names
+[1] "x" "z"
+
+$class
+[1] "data.frame"
+
+$row.names
+[1] NA 10
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc23
+#argv <- list(list(NULL), list(NULL, c('a', 'b', 'c'), NULL, c('V5', 'V6', 'V7', 'V8', 'V9')));c(argv[[1]],argv[[2]]);
+[[1]]
+NULL
+
+[[2]]
+NULL
+
+[[3]]
+[1] "a" "b" "c"
+
+[[4]]
+NULL
+
+[[5]]
+[1] "V5" "V6" "V7" "V8" "V9"
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc26
+#argv <- list(0, c(FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE));c(argv[[1]],argv[[2]]);
+ [1] 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc27
+#argv <- list(character(0));c(argv[[1]]);
+character(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc29
+#argv <- list(1944, 1944.75, 4);c(argv[[1]],argv[[2]],argv[[3]]);
+[1] 1944.00 1944.75 4.00
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc36
+#argv <- list(-1, 0+1i);c(argv[[1]],argv[[2]]);
+[1] -1+0i 0+1i
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc37
+#argv <- list(c(0, 1, 1.3, 1.8, 2.4), 4.6, NULL);c(argv[[1]],argv[[2]],argv[[3]]);
+[1] 0.0 1.0 1.3 1.8 2.4 4.6
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc38
+#argv <- list(raw(0), 61);c(argv[[1]],argv[[2]]);
+[1] 61
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc4
+#argv <- list(1, 1, 1, 1, NA);c(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);
+[1] 1 1 1 1 NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc40
+#argv <- list(structure(list(A = 1, c = 'C'), .Names = c('A', 'c')), d = 1:3);c(argv[[1]],argv[[2]]);
+$A
+[1] 1
+
+$c
+[1] "C"
+
+[[3]]
+[1] 1
+
+[[4]]
+[1] 2
+
+[[5]]
+[1] 3
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc42
+#argv <- list(structure(list(Ozone = c(41L, 36L, 12L, 18L, NA, 28L, 23L, 19L, 8L, NA, 7L, 16L, 11L, 14L, 18L, 14L, 34L, 6L, 30L, 11L, 1L, 11L, 4L, 32L, NA, NA, NA, 23L, 45L, 115L, 37L, NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 135L, 49L, 32L, NA, 64L, 40L, 77L, 97L, 97L, 85L, NA, 10L, 27L, NA, 7L, 48L, 35L, 61L, 79L, 63L, 16L, NA, NA, 80L, 108L, 20L, 52L, 82L, 50L, 64L, 59L, 39L, 9L, 16L, 78L, 35L, 66L, 122L, 89L, 110L, NA, NA, 44L, 28L, 65L, NA, 22L, 59L, 23L, 31L, 44L, 21L, 9L, NA, 45L, 168L, 73L, NA, 76L, 118L, 84L, 85L, 96L, 78L, 73L, 91L, 47L, 32L, 20L, 23L, 21L, 24L, 44L, 21L, 28L, 9L, 13L, 46L, 18L, 13L, 24L, 16L, 13L, 23L, 36L, 7L, 14L, 30L, NA, 14L, 18L, 20L), Solar.R = c(190L, 118L, 149L, 313L, NA, NA, 299L, 99L, 19L, 194L, NA, 256L, 290L, 274L, 65L, 334L, 307L, 78L, 322L, 44L, 8L, 320L, 25L, 92L, 66L, 266L, NA, 13L, 252L, 223L, 279L, 286L, 287L, 242L, 186L, 220L, 264L, 127L, 273L, 291L, 323L, 259L, 250L, 148L, 332L, 322L, 191L, 284L, 37L, 120L, 137L, 150L, 59L, 91L, 250L, 135L, 127L, 47L, 98L, 31L, 138L, 269L, 248L, 236L, 101L, 175L, 314L, 276L, 267L, 272L, 175L, 139L, 264L, 175L, 291L, 48L, 260L, 274L, 285L, 187L, 220L, 7L, 258L, 295L, 294L, 223L, 81L, 82L, 213L, 275L, 253L, 254L, 83L, 24L, 77L, NA, NA, NA, 255L, 229L, 207L, 222L, 137L, 192L, 273L, 157L, 64L, 71L, 51L, 115L, 244L, 190L, 259L, 36L, 255L, 212L, 238L, 215L, 153L, 203L, 225L, 237L, 188L, 167L, 197L, 183L, 189L, 95L, 92L, 252L, 220L, 230L, 259L, 236L, 259L, 238L, 24L, 112L, 237L, 224L, 27L, 238L, 201L, 238L, 14L, 139L, 49L, 20L, 193L, 145L, 191L, 131L, 223L), Wind = c(7.4, 8, 12.6, 11.5, 14.3, 14.9, 8.6, 13.8, 20.1, 8.6, 6.9, 9.7, 9.2, 10.9, 13.2, 11.5, 12, 18.4, 11.5, 9.7, 9.7, 16.6, 9.7, 12, 16.6, 14.9, 8, 12, 14.9, 5.7, 7.4, 8.6, 9.7, 16.1, 9.2, 8.6, 14.3, 9.7, 6.9, 13.8, 11.5, 10.9, 9.2, 8, 13.8, 11.5, 14.9, 20.7, 9.2, 11.5, 10.3, 6.3, 1.7, 4.6, 6.3, 8, 8, 10.3, 11.5, 14.9, 8, 4.1, 9.2, 9.2, 10.9, 4.6, 10.9, 5.1, 6.3, 5.7, 7.4, 8.6, 14.3, 14.9, 14.9, 14.3, 6.9, 10.3, 6.3, 5.1, 11.5, 6.9, 9.7, 11.5, 8.6, 8, 8.6, 12, 7.4, 7.4, 7.4, 9.2, 6.9, 13.8, 7.4, 6.9, 7.4, 4.6, 4, 10.3, 8, 8.6, 11.5, 11.5, 11.5, 9.7, 11.5, 10.3, 6.3, 7.4, 10.9, 10.3, 15.5, 14.3, 12.6, 9.7, 3.4, 8, 5.7, 9.7, 2.3, 6.3, 6.3, 6.9, 5.1, 2.8, 4.6, 7.4, 15.5, 10.9, 10.3, 10.9, 9.7, 14.9, 15.5, 6.3, 10.9, 11.5, 6.9, 13.8, 10.3, 10.3, 8, 12.6, 9.2, 10.3, 10.3, 16.6, 6.9, 13.2, 14.3, 8, 11.5), Temp = c(67L, 72L, 74L, 62L, 56L, 66L, 65L, 59L, 61L, 69L, 74L, 69L, 66L, 68L, 58L, 64L, 66L, 57L, 68L, 62L, 59L, 73L, 61L, 61L, 57L, 58L, 57L, 67L, 81L, 79L, 76L, 78L, 74L, 67L, 84L, 85L, 79L, 82L, 87L, 90L, 87L, 93L, 92L, 82L, 80L, 79L, 77L, 72L, 65L, 73L, 76L, 77L, 76L, 76L, 76L, 75L, 78L, 73L, 80L, 77L, 83L, 84L, 85L, 81L, 84L, 83L, 83L, 88L, 92L, 92L, 89L, 82L, 73L, 81L, 91L, 80L, 81L, 82L, 84L, 87L, 85L, 74L, 81L, 82L, 86L, 85L, 82L, 86L, 88L, 86L, 83L, 81L, 81L, 81L, 82L, 86L, 85L, 87L, 89L, 90L, 90L, 92L, 86L, 86L, 82L, 80L, 79L, 77L, 79L, 76L, 78L, 78L, 77L, 72L, 75L, 79L, 81L, 86L, 88L, 97L, 94L, 96L, 94L, 91L, 92L, 93L, 93L, 87L, 84L, 80L, 78L, 75L, 73L, 81L, 76L, 77L, 71L, 71L, 78L, 67L, 76L, 68L, 82L, 64L, 71L, 81L, 69L, 63L, 70L, 77L, 75L, 76L, 68L), Month = c(5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L), Day = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L)), .Names = c('Ozone', 'Solar.R', 'Wind', 'Temp', 'Month', 'Day'), row.names = c(NA, -153L)), list(NULL, NULL));c(argv[[1]],argv[[2]]);
+$Ozone
+ [1] 41 36 12 18 NA 28 23 19 8 NA 7 16 11 14 18 14 34 6
+ [19] 30 11 1 11 4 32 NA NA NA 23 45 115 37 NA NA NA NA NA
+ [37] NA 29 NA 71 39 NA NA 23 NA NA 21 37 20 12 13 NA NA NA
+ [55] NA NA NA NA NA NA NA 135 49 32 NA 64 40 77 97 97 85 NA
+ [73] 10 27 NA 7 48 35 61 79 63 16 NA NA 80 108 20 52 82 50
+ [91] 64 59 39 9 16 78 35 66 122 89 110 NA NA 44 28 65 NA 22
+[109] 59 23 31 44 21 9 NA 45 168 73 NA 76 118 84 85 96 78 73
+[127] 91 47 32 20 23 21 24 44 21 28 9 13 46 18 13 24 16 13
+[145] 23 36 7 14 30 NA 14 18 20
+
+$Solar.R
+ [1] 190 118 149 313 NA NA 299 99 19 194 NA 256 290 274 65 334 307 78
+ [19] 322 44 8 320 25 92 66 266 NA 13 252 223 279 286 287 242 186 220
+ [37] 264 127 273 291 323 259 250 148 332 322 191 284 37 120 137 150 59 91
+ [55] 250 135 127 47 98 31 138 269 248 236 101 175 314 276 267 272 175 139
+ [73] 264 175 291 48 260 274 285 187 220 7 258 295 294 223 81 82 213 275
+ [91] 253 254 83 24 77 NA NA NA 255 229 207 222 137 192 273 157 64 71
+[109] 51 115 244 190 259 36 255 212 238 215 153 203 225 237 188 167 197 183
+[127] 189 95 92 252 220 230 259 236 259 238 24 112 237 224 27 238 201 238
+[145] 14 139 49 20 193 145 191 131 223
+
+$Wind
+ [1] 7.4 8.0 12.6 11.5 14.3 14.9 8.6 13.8 20.1 8.6 6.9 9.7 9.2 10.9 13.2
+ [16] 11.5 12.0 18.4 11.5 9.7 9.7 16.6 9.7 12.0 16.6 14.9 8.0 12.0 14.9 5.7
+ [31] 7.4 8.6 9.7 16.1 9.2 8.6 14.3 9.7 6.9 13.8 11.5 10.9 9.2 8.0 13.8
+ [46] 11.5 14.9 20.7 9.2 11.5 10.3 6.3 1.7 4.6 6.3 8.0 8.0 10.3 11.5 14.9
+ [61] 8.0 4.1 9.2 9.2 10.9 4.6 10.9 5.1 6.3 5.7 7.4 8.6 14.3 14.9 14.9
+ [76] 14.3 6.9 10.3 6.3 5.1 11.5 6.9 9.7 11.5 8.6 8.0 8.6 12.0 7.4 7.4
+ [91] 7.4 9.2 6.9 13.8 7.4 6.9 7.4 4.6 4.0 10.3 8.0 8.6 11.5 11.5 11.5
+[106] 9.7 11.5 10.3 6.3 7.4 10.9 10.3 15.5 14.3 12.6 9.7 3.4 8.0 5.7 9.7
+[121] 2.3 6.3 6.3 6.9 5.1 2.8 4.6 7.4 15.5 10.9 10.3 10.9 9.7 14.9 15.5
+[136] 6.3 10.9 11.5 6.9 13.8 10.3 10.3 8.0 12.6 9.2 10.3 10.3 16.6 6.9 13.2
+[151] 14.3 8.0 11.5
+
+$Temp
+ [1] 67 72 74 62 56 66 65 59 61 69 74 69 66 68 58 64 66 57 68 62 59 73 61 61 57
+ [26] 58 57 67 81 79 76 78 74 67 84 85 79 82 87 90 87 93 92 82 80 79 77 72 65 73
+ [51] 76 77 76 76 76 75 78 73 80 77 83 84 85 81 84 83 83 88 92 92 89 82 73 81 91
+ [76] 80 81 82 84 87 85 74 81 82 86 85 82 86 88 86 83 81 81 81 82 86 85 87 89 90
+[101] 90 92 86 86 82 80 79 77 79 76 78 78 77 72 75 79 81 86 88 97 94 96 94 91 92
+[126] 93 93 87 84 80 78 75 73 81 76 77 71 71 78 67 76 68 82 64 71 81 69 63 70 77
+[151] 75 76 68
+
+$Month
+ [1] 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 6 6 6 6 6 6
+ [38] 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 7 7 7 7 7 7 7 7 7 7 7 7 7
+ [75] 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8
+[112] 8 8 8 8 8 8 8 8 8 8 8 8 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9
+[149] 9 9 9 9 9
+
+$Day
+ [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
+ [26] 26 27 28 29 30 31 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
+ [51] 20 21 22 23 24 25 26 27 28 29 30 1 2 3 4 5 6 7 8 9 10 11 12 13 14
+ [76] 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 1 2 3 4 5 6 7 8
+[101] 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 1 2
+[126] 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
+[151] 28 29 30
+
+[[7]]
+NULL
+
+[[8]]
+NULL
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc45
+#argv <- list(1, c(2, 3, 4, 6, 7, 8, 9, 10, 11), c(3, 4, 5, 7, 8, 9, 10, 11), 11L);c(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);
+ [1] 1 2 3 4 6 7 8 9 10 11 3 4 5 7 8 9 10 11 11
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc46
+#argv <- list(TRUE, NULL);c(argv[[1]],argv[[2]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc5
+#argv <- list(`difference in location` = -30);c(argv[[1]]);
+[1] -30
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc50
+#argv <- list(1, 1, 1, list());c(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);
+[[1]]
+[1] 1
+
+[[2]]
+[1] 1
+
+[[3]]
+[1] 1
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc52
+#argv <- list(structure(list(names = c('freq', 'score')), .Names = 'names'), structure(list(class = 'data.frame', row.names = integer(0)), .Names = c('class', 'row.names')));c(argv[[1]],argv[[2]]);
+$names
+[1] "freq" "score"
+
+$class
+[1] "data.frame"
+
+$row.names
+integer(0)
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc53
+#argv <- list(1, FALSE, c(0, 0));c(argv[[1]],argv[[2]],argv[[3]]);
+[1] 1 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc55
+#argv <- list(c(1L, 2L, 3L, NA), c(-1, 0, 1, NA));c(argv[[1]],argv[[2]]);
+[1] 1 2 3 NA -1 0 1 NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc58
+#argv <- list(FALSE, 'More testing :', 12321, 'B2');c(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);
+[1] "FALSE" "More testing :" "12321" "B2"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc59
+#argv <- list(1:10, 1+1i, TRUE);c(argv[[1]],argv[[2]],argv[[3]]);
+ [1] 1+0i 2+0i 3+0i 4+0i 5+0i 6+0i 7+0i 8+0i 9+0i 10+0i 1+1i 1+0i
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc6
+#argv <- list(TRUE, TRUE, NA);c(argv[[1]],argv[[2]],argv[[3]]);
+[1] TRUE TRUE NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc60
+#argv <- list('ArgMethod', 1.10714871779409);c(argv[[1]],argv[[2]]);
+[1] "ArgMethod" "1.10714871779409"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc62
+#argv <- list(list(), list());c(argv[[1]],argv[[2]]);
+list()
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc63
+#argv <- list(recursive = TRUE);c(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc66
+#argv <- list(NA, 1+2i);c(argv[[1]],argv[[2]]);
+[1] NA 1+2i
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc68
+#argv <- list(structure(list(ctrl = c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14), trt1 = c(4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69), trt2 = c(6.31, 5.12, 5.54, 5.5, 5.37, 5.29, 4.92, 6.15, 5.8, 5.26)), .Dim = 3L, .Dimnames = list(c('ctrl', 'trt1', 'trt2'))));c(argv[[1]]);
+$ctrl
+ [1] 4.17 5.58 5.18 6.11 4.50 4.61 5.17 4.53 5.33 5.14
+
+$trt1
+ [1] 4.81 4.17 4.41 3.59 5.87 3.83 6.03 4.89 4.32 4.69
+
+$trt2
+ [1] 6.31 5.12 5.54 5.50 5.37 5.29 4.92 6.15 5.80 5.26
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc69
+#argv <- list(list(NA, FALSE), structure(list(na.rm = TRUE), .Names = 'na.rm'));c(argv[[1]],argv[[2]]);
+[[1]]
+[1] NA
+
+[[2]]
+[1] FALSE
+
+$na.rm
+[1] TRUE
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinc.testc8
+#argv <- list(-0.1, 0.1);c(argv[[1]],argv[[2]]);
+[1] -0.1 0.1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincat.testcat1
+#argv <- list('head\n', 1:2, '\n', 3:4, file = 'foo4');cat(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);
+head
+ 1 2
+ 3 4 foo4
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincat.testcat3
+#argv <- list('%comment\n\n%another\n%\n%\n', 'C1\tC2\tC3\n\'Panel\'\t\'Area Examined\'\t\'% Blemishes\'\n', '\'1\'\t\'0.8\'\t\'3\'\n', '\'2\'\t\'0.6\'\t\'2\'\n', '\'3\'\t\'0.8\'\t\'3\'\n', file = 'test.dat', sep = '');cat(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]]);
+%comment
+
+%another
+%
+%
+ C1 C2 C3
+'Panel' 'Area Examined' '% Blemishes'
+ '1' '0.8' '3'
+ '2' '0.6' '2'
+ '3' '0.8' '3'
+ test.dat
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincat.testcat4
+#argv <- list('#comment\n\n#another\n#\n#\n', 'C1\tC2\tC3\n\'Panel\'\t\'Area Examined\'\t\'# Blemishes\'\n', '\'1\'\t\'0.8\'\t\'3\'\n', '\'2\'\t\'0.6\'\t\'2\'\n', '\'3\'\t\'0.8\'\t\'3\'\n', file = 'test.dat', sep = '');cat(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]]);
+#comment
+
+#another
+#
+#
+ C1 C2 C3
+'Panel' 'Area Examined' '# Blemishes'
+ '1' '0.8' '3'
+ '2' '0.6' '2'
+ '3' '0.8' '3'
+ test.dat
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincat.testcat5
+#argv <- list('head\n', file = 'foo2');cat(argv[[1]],argv[[2]]);
+head
+ foo2
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinceiling.testceiling1
+#argv <- list(1001);ceiling(argv[[1]]);
+[1] 1001
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinceiling.testceiling2
+#argv <- list(13990.84);ceiling(argv[[1]]);
+[1] 13991
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinceiling.testceiling3
+#argv <- list(c(1, 4.5, 8, 11.5, 15));ceiling(argv[[1]]);
+[1] 1 5 8 12 15
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinceiling.testceiling4
+#argv <- list(c(1, 5.5, 10.5, 15.5, 20));ceiling(argv[[1]]);
+[1] 1 6 11 16 20
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinceiling.testceiling5
+#argv <- list(-0.698970004336019);ceiling(argv[[1]]);
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass10
+#argv <- list(structure(list(time = 1:10, y = c(1, 1.4142135623731, 1.73205080756888, 2, 2.23606797749979, 2.44948974278318, 2.64575131106459, 2.82842712474619, 3, 3.16227766016838)), .Names = c('time', 'y'), row.names = c(NA, 10L), .S3Class = 'data.frame', date = structure(16045, class = 'Date'), class = structure('dataFrameD', package = '.GlobalEnv')));class(argv[[1]]);
+[1] "dataFrameD"
+attr(,"package")
+[1] ".GlobalEnv"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass11
+#argv <- list(structure(list(), .Names = character(0), row.names = integer(0), .S3Class = 'data.frame', class = structure('data.frame', package = 'methods')));class(argv[[1]]);
+[1] "data.frame"
+attr(,"package")
+[1] "methods"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass13
+#argv <- list(structure(c(3.1, 6.695, 8.14, 7.50090909091, 8.95, 9.26), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), class = c('summaryDefault', 'table')));class(argv[[1]]);
+[1] "summaryDefault" "table"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass14
+#argv <- list(complex(0));class(argv[[1]]);
+[1] "complex"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass15
+#argv <- list(structure(c(-0.00225540511921, -0.00045867962383, -8.86739505379e-06, -1.96554854754e-06, 0.000402346479421, 0.00193962597167), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), class = c('summaryDefault', 'table')));class(argv[[1]]);
+[1] "summaryDefault" "table"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass16
+#argv <- list(c(FALSE, FALSE, FALSE, NA, NA, TRUE, TRUE, TRUE, NA, NA, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));class(argv[[1]]);
+[1] "logical"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass17
+#argv <- list(c(-10, -10, -10, NA, NA, 150, 170, 180, NA, NA, 310, 330, 340, 350, 370, 380));class(argv[[1]]);
+[1] "numeric"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass19
+#argv <- list(structure(c(0.5, 0, 0.5, 0, 0, 0.5, 0, 0, 0.0740740740740741, 0, 0, 0.5, 1, 0, 0, 0.5, 1, 0.5), unit = c('char', 'grobheight', 'char', 'grobheight', 'grobheight', 'char', 'mm', 'lines', 'null', 'mm', 'mm', 'char', 'grobheight', 'char', 'grobheight', 'char', 'grobheight', 'char'), valid.unit = c(18L, 22L, 18L, 22L, 22L, 18L, 7L, 3L, 5L, 7L, 7L, 18L, 22L, 18L, 22L, 18L, 22L, 18L), data = list(NULL, structure(list(label = '', x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), just = 'centre', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = 'GRID.text.1', gp = structure(list(), class = 'gpar'), vp = NULL), .Names = c('label', 'x', 'y', 'just', 'hjust', 'vjust', 'rot', 'check.overlap', 'name', 'gp', 'vp'), class = c('text', 'grob', 'gDesc')), NULL, structure(list(label = '', x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), just = 'centre', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = 'GRID.text.2', gp = structure(list(), class = 'gpar'), vp = NULL), .Names = c('label', 'x', 'y', 'just', 'hjust', 'vjust', 'rot', 'check.overlap', 'name', 'gp', 'vp'), class = c('text', 'grob', 'gDesc')), structure(list(label = '', x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), just = 'centre', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = 'GRID.text.3', gp = structure(list(), class = 'gpar'), vp = NULL), .Names = c('label', 'x', 'y', 'just', 'hjust', 'vjust', 'rot', 'check.overlap', 'name', 'gp', 'vp'), class = c('text', 'grob', 'gDesc')), NULL, NULL, NULL, NULL, NULL, NULL, NULL, structure(list(label = 'Column', x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), just = 'centre', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = 'plot_01.xlab', gp = structure(list(fontface = 1, alpha = 1, cex = 1, col = '#000000', lineheight = 1, font = 1L), .Names = c('fontface', 'alpha', 'cex', 'col', 'lineheight', 'font'), class = 'gpar'), vp = NULL), .Names = c('label', 'x', 'y', 'just', 'hjust', 'vjust', 'rot', 'check.overlap', 'name', 'gp', 'vp'), class = c('text', 'grob', 'gDesc')), NULL, structure(list(label = '', x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), just = 'centre', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = 'GRID.text.5', gp = structure(list(), class = 'gpar'), vp = NULL), .Names = c('label', 'x', 'y', 'just', 'hjust', 'vjust', 'rot', 'check.overlap', 'name', 'gp', 'vp'), class = c('text', 'grob', 'gDesc')), NULL, structure(list(label = 'Dimensions: 4 x 54', x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), just = 'centre', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = 'plot_01.sub', gp = structure(list(fontface = 2, alpha = 1, cex = 1, col = '#000000', lineheight = 1, font = 2L), .Names = c('fontface', 'alpha', 'cex', 'col', 'lineheight', 'font'), class = 'gpar'), vp = NULL), .Names = c('label', 'x', 'y', 'just', 'hjust', 'vjust', 'rot', 'check.overlap', 'name', 'gp', 'vp'), class = c('text', 'grob', 'gDesc')), NULL), class = 'unit'));class(argv[[1]]);
+[1] "unit"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass2
+#argv <- list(structure(c(1, 0, 0, 0, 1, 0, 0, 0, 1), .Dim = c(3L, 3L), class = structure('mmat2', package = '.GlobalEnv')));class(argv[[1]]);
+[1] "mmat2"
+attr(,"package")
+[1] ".GlobalEnv"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass22
+#argv <- list(c(17, 289, 4913, 83521, 1419857, 24137569, 410338673, 6975757441, 118587876497, 2015993900449, 34271896307633, 582622237229761, 9904578032905936, 168377826559400928, 2862423051509815808, 48661191875666870272, 8.27240261886337e+20, 1.40630844520677e+22, 2.39072435685151e+23, 4.06423140664757e+24, 6.90919339130087e+25, 1.17456287652115e+27, 1.99675689008595e+28, 3.39448671314612e+29, 5.7706274123484e+30, 9.81006660099228e+31, 1.66771132216869e+33, 2.83510924768677e+34, 4.81968572106751e+35, 8.19346572581477e+36, 1.39288917338851e+38, 2.36791159476047e+39, 4.02544971109279e+40, 6.84326450885775e+41, 1.16335496650582e+43, 1.97770344305989e+44, 3.36209585320181e+45, 5.71556295044308e+46, 9.71645701575324e+47, 1.65179769267805e+49, 2.80805607755269e+50, 4.77369533183957e+51, 8.11528206412726e+52, 1.37959795090163e+54, 2.34531651653278e+55, 3.98703807810572e+56, 6.77796473277973e+57, 1.15225400457255e+59, 1.95883180777334e+60, 3.33001407321468e+61, 5.66102392446496e+62, 9.62374067159043e+63, 1.63603591417037e+65, 2.78126105408963e+66, 4.72814379195238e+67, 8.03784444631904e+68, 1.36643355587424e+70, 2.3229370449862e+71, 3.94899297647655e+72, 6.71328806001013e+73, 1.14125897020172e+75, 1.94014024934293e+76, 3.29823842388298e+77, 5.60700532060106e+78, 9.5319090450218e+79, 1.62042453765371e+81, 2.7547217140113e+82, 4.68302691381921e+83, 7.96114575349266e+84, 1.35339477809375e+86, 2.30077112275938e+87, 3.91131090869094e+88, 6.6492285447746e+89, 1.13036885261168e+91, 1.92162704943986e+92, 3.26676598404776e+93, 5.5535021728812e+94, 9.44095369389803e+95, 1.60496212796267e+97, 2.72843561753653e+98, 4.6383405498121e+99, 7.88517893468058e+100, 1.3404804188957e+102, 2.27881671212269e+103, 3.87398841060857e+104, 6.58578029803456e+105, 1.11958265066588e+107, 1.90329050613199e+108, 3.23559386042438e+109, 5.50050956272145e+110, 9.35086625662646e+111, 1.5896472636265e+113, 2.70240034816505e+114, 4.59408059188058e+115, 7.80993700619699e+116, 1.32768929105349e+118, 2.25707179479093e+119, 3.83702205114458e+120, 6.52293748694579e+121, 1.10889937278078e+123, 5.5535021728812e+94, 3.33001407321468e+61, 1.95883180777334e+60, 1.15225400457255e+59, 6.77796473277973e+57, 3.98703807810572e+56, 2.34531651653278e+55, 1.37959795090163e+54, 8.11528206412726e+52, 4.77369533183957e+51, 2.80805607755269e+50, 1.65179769267805e+49, 2015993900449));class(argv[[1]]);
+[1] "numeric"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass24
+#argv <- list(c(-0.31833672642477-1.38507061859438i, 1.42379885362755+0.0383231810219i, 0.405090858049187-0.763030162361974i, -0.995386565684023+0.212306135525839i, -0.95881778764026+1.42553796686779i, -0.918087896319951+0.744479822333976i, 0.15096960188161+0.70022940298623i, 1.2230687888662-0.22935461345173i, 0.868824288637794+0.197093861895352i, 1.04248536490429+1.20715377387226i));class(argv[[1]]);
+[1] "complex"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass28
+#argv <- list(c(1.1+0i, NA, 3+0i));class(argv[[1]]);
+[1] "complex"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass3
+#argv <- list(structure(3.14159265358979, comment = 'Start with pi', class = structure('num1', package = '.GlobalEnv')));class(argv[[1]]);
+[1] "num1"
+attr(,"package")
+[1] ".GlobalEnv"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass4
+#argv <- list(structure(c(1+1i, 2+1.4142135623731i, 3+1.73205080756888i, 4+2i, 5+2.23606797749979i, 6+2.44948974278318i, 7+2.64575131106459i, 8+2.82842712474619i, 9+3i, 10+3.1622776601684i), id = character(0), class = structure('withId', package = '.GlobalEnv')));class(argv[[1]]);
+[1] "withId"
+attr(,"package")
+[1] ".GlobalEnv"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass6
+#argv <- list(structure(list(x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), width = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), height = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), justification = 'centre', gp = structure(list(), class = 'gpar'), clip = TRUE, xscale = c(-15.89, 356.89), yscale = c(0.683750615306643, 5.8340977374556), angle = 0, layout = NULL, layout.pos.row = c(21L, 21L), layout.pos.col = c(17L, 17L), valid.just = c(0.5, 0.5), valid.pos.row = c(21L, 21L), valid.pos.col = c(17L, 17L), name = 'plot_01.panel.3.1.vp'), .Names = c('x', 'y', 'width', 'height', 'justification', 'gp', 'clip', 'xscale', 'yscale', 'angle', 'layout', 'layout.pos.row', 'layout.pos.col', 'valid.just', 'valid.pos.row', 'valid.pos.col', 'name'), class = 'viewport'));class(argv[[1]]);
+[1] "viewport"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass7
+#argv <- list(c(NA, '2', '3'));class(argv[[1]]);
+[1] "character"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass8
+#argv <- list(c(325, 257, 303, 315, 380, 153, 263, 242, 206, 344, 258));class(argv[[1]]);
+[1] "numeric"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclass.testclass9
+#argv <- list(structure(list(message = 'Choosing method ‘sparseMatrix#ANY’ from 2 ambiguous possibilities', call = NULL), .Names = c('message', 'call'), class = c('simpleCondition', 'condition')));class(argv[[1]]);
+[1] "simpleCondition" "condition"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclassassign.testclassassign12
+#argv <- list(structure(1, class = 'bar'), value = 'bar');`class<-`(argv[[1]],argv[[2]]);
+[1] 1
+attr(,"class")
+[1] "bar"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinclassassign.testclassassign4
+#argv <- list(structure(c(8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14), class = 'anyC'), value = 'anyC');`class<-`(argv[[1]],argv[[2]]);
+ [1] 8 10 12 14 8 10 12 14 8 10 12 14 8 10 12 14 8 10 12 14 8 10 12 14 8
+ [26] 10 12 14 8 10 12 14 8 10 12 14 8 10 12 14 8 10 12 14 8 10 12 14 8 10
+ [51] 12 14 8 10 12 14 8 10 12 14 8 10 12 14 8 10 12 14 8 10 12 14 8 10 12
+ [76] 14 8 10 12 14 8 10 12 14 8 10 12 14 8 10 12 14 8 10 12 14 8 10 12 14
+[101] 8 10 12 14 8 10 12 14
+attr(,"class")
+[1] "anyC"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincolMeans.testcolMeans2
+#argv <- list(structure(c(135L, 49L, 32L, NA, 64L, 40L, 77L, 97L, 97L, 85L, NA, 10L, 27L, NA, 7L, 48L, 35L, 61L, 79L, 63L, 16L, NA, NA, 80L, 108L, 20L, 52L, 82L, 50L, 64L, 59L), .Dim = c(31L, 1L)), 31, 1, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 59.11538
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincolMeans.testcolMeans3
+#argv <- list(structure(c(2, 1, 0, 1, 0, NA, NA, NA, 0), .Dim = c(3L, 3L)), 3, 3, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 1.0 0.5 0.0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincolMeans.testcolMeans4
+#argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), 0, 0, FALSE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+numeric(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincolMeans.testcolMeans5
+#argv <- list(structure(c(3, 3, NA, 3, 3, 3, 3, 3, 4, 3, NA, NA, 2, 3, 4, 5), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))), 8, 2, FALSE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] NA NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincolMeans.testcolMeans6
+#argv <- list(structure(c(2.72365184362824, -0.796449881281511, 0.796148249055565, 2.02271745300814, 1.2802770548002, 1.337056204255, 2.6107240701292, 2.10828628469836, 1.43875587381801, 0.595316954266145, 3.49563715531476, 1.48558049063486, 1.41226464164167, 2.44508400241911, 2.57984360481665, -1.20772288776711, 2.43688378444644, 0.533076425061003, 1.3034273968671, 3.70362282204711, 0.608593870458723, 0.953140512120224, 0.386257122548769, 3.75339780206139, 3.42482460204159, 0.619548124388308, 3.14887764228466, 0.751148471471006, 1.87137783412956, 1.62046400462005, 0.94345287218966, 1.64506447351138, 1.30606946576658, 2.45886447346843, 2.03431588373773, -0.338520676288604, 2.03487908340323, 1.29252851374035, 1.2267540180234, 2.05222753374982, 2.83569182599169, 3.48408642621763, 2.39258208808217, 1.92637187747015, 1.9464722888473, 0.936987622444041, -0.457825141151114, 0.770998483524033, 1.80682914026242, 0.916590155958594, 2.78096073652237, 1.55750387883765, 3.3880545417157, 3.65182127019008, 1.46303726963845, 2.58757002961928, 2.44326477189276, 0.94225036142597, 1.29219317072567, 2.94893881867, 1.24384829814308, 1.84885702049451, 1.32523566412607, 1.28973308890195, 0.395997063065922, 1.22892077218378, 1.7220093913143, 0.805646559888977, 1.01315020534677, 1.31726023805076, 1.72638291442835, 1.7933922500199, 1.62417301864782, 2.84632954278294, 1.06390349068226, 0.393286798351562, 2.85644316208756, 1.17640470313741, 0.528983054741685, 1.96126284937392, 0.917057889286139, 2.45214192885654, 2.46901056075969, 0.964752028993787, 1.15564656732576, 1.8050377493702, 3.92150679994132, 1.89242778597682, 1.79539660063946, 3.11975967552643, 3.60233448863085, 1.28811938153997, 2.49044833125605, 2.82723855540917, 0.488353198794268), .Dim = c(95L, 1L)), 95, 1, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 1.716445
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincolMeans.testcolMeans7
+#argv <- list(structure(FALSE, .Dim = c(1L, 1L)), 1, 1, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincolMeans.testcolMeans9
+#argv <- list(structure(c(NA, 17.4716236802524, 0.424429400003, -2.45474630431729, -8.6855922903657, -11.7956139807344, -8.08147081196715, -13.3123167980156, -1.24650334752019, 21.281002075072, -5.32311940332657, 0.621869751489083, -19.2022951076469, -0.543162784063959, NA, NA, 15.344649382745, -9.74060313555005, 0.149375174081257, -5.85062482591874, -6.90563567110309, -9.96064651628744, 5.6326723568001, -8.78481137542338, -6.01565736147178, -15.543162784064, 2.34681552556734, -13.2465033475202, -3.82901961529671, 1.5226506664314, NA, -5.9777558474085, 22.7534966524798, 15.5010454558094, 4.13857256877024, -11.6855922903657, 11.6768805966734, -7.38893285382193, 10.8527157375375, -11.3889328538219, 14.1493751740813, -0.388932853821931, 13.0835617235859, -1.98225172690947, 5.96273742790618, -1.50975714950164, -1.38893285382193, 9.90772658272184, 7.3144077096343, -12.9822517269095, 2.02855087840155, -4.7956139807344, 3.14937517408126, -10.3231194033266, -2.25730595283121, 2.56685890630474, 4.27019946976097, 5.14937517408126, 0.0285508784015471, 5.85271573753749, 6.73189144185778, -6.38893285382193, 0.0285508784015471, -3.14728426246251, 15.1493751740813, 13.7869022870421, -7.27891116345324, 9.61106714617807, 4.84191313222647, -3.98225172690947, -6.38893285382193, 13.0285508784015, 5.13857256877024, -8.50975714950164, -0.619778839870337, -3.97144912159845, 23.1493751740813, -2.80641658604541, -1.03726257209382, 2.25939686444995, 4.25939686444995, -4.38893285382193, 6.38022116012966, -4.74060313555005, 2.02855087840155, -15.7956139807344, 8.21518862457662, -12.0264599667828, -2.1364816571515, 5.8635183428485, -14.729800530239, 4.80850749766416, -11.7848113754234, 9.45683721593604, -15.2573059528312, 5.28100207507198, 12.8635183428485, 6.50104545580937, 1.55605630099372, -7.44394369900628, 9.9735400332172, -11.2681085581422, 7.44603461062503, -8.14728426246251, -1.72980053023903, -3.90563567110309, 4.56685890630474, -5.37813024851092, -1.25730595283121, 10.7426940471688, NA, NA, 6.24343998511081, -21.9164382764141, -6.1364816571515, -15.8398222206077, -4.12567905184048, -7.94984391097642, -6.4773493335686, -5.65318447443266), .Dim = c(120L, 1L)), 120, 1, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] -0.4536633
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincolSums.testcolSums1
+#argv <- list(structure(c(365, 365, 365, 366, 1, 0), .Dim = c(3L, 2L)), 3, 2, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 1095 367
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincolSums.testcolSums2
+#argv <- list(structure(c(1L, 0L, 0L, 0L, 2L, 0L, 0L, 0L, 3L), .Dim = c(3L, 3L)), 3, 3, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 1 2 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincolSums.testcolSums3
+#argv <- list(structure(c(5, 29, 14, 16, 15, 54, 14, 10, 20, 84, 17, 94, 68, 119, 26, 7), .Dim = c(4L, 4L), .Dimnames = structure(list(Hair = c('Black', 'Brown', 'Red', 'Blond'), Eye = c('Green', 'Hazel', 'Blue', 'Brown')), .Names = c('Hair', 'Eye'))), 4, 4, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 64 93 215 220
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincolSums.testcolSums4
+#argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, NA, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 49, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 21, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, NA, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 21, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(16L, 16L), .Dimnames = list(NULL, NULL)), 16, 16, TRUE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] 0 0 0 0 0 0 0 0 7 7 56 28 3 3 24 12
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincolSums.testcolSums5
+#argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(16L, 16L), .Dimnames = list(NULL, NULL)), 16, 16, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] 0 0 0 0 0 0 0 0 1 NA 2 2 0 NA 1 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincolSums.testcolSums6
+#argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), 0, 0, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+numeric(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincolSums.testcolSums9
+#argv <- list(structure(c(0, 0, 0, 0, 0, -1.43884556914512e-134, 0, 0, 0, -7.95468296571581e-252, 1.76099882882167e-260, 0, -9.38724727098368e-323, -0.738228974836154, 0, 0, 0, 0, 0, 0, 0, 0, 0, -6.84657791618065e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.05931985100232e-174, 0, -3.41789378681991e-150, 0, 0, 0, 0, -1.07225492686949e-10, 0, 1.65068934474523e-67, 0, -6.49830035279282e-307, 0, 5.83184963977238e-90, 0, -9.81722610183938e-287, 6.25336419454196e-54, 0, 0, 0, -1.72840591500382e-274, 1.22894687952101e-13, 0.660132850077566, 0, 0, 7.79918925397516e-200, -2.73162827952857e-178, 1.32195942051179e-41, 0, 0, 0, 0, 2.036057023761e-45, -3.40425060445074e-186, 1.59974269220388e-26, 0, 6.67054294775317e-124, 0.158503117506202, 0, 0, 0, 0, 0, 0, 3.42455724859116e-97, 0, 0, -2.70246891320217e-272, 0, 0, -3.50562438899045e-06, 0, 0, 1.35101732326608e-274, 0, 0, 0, 0, 0, 0, 0, 7.24580295957621e-65, 0, -3.54887341172294e-149, 0, 0, 0, 0, 0, 0, 0, 0, 1.77584594753563e-133, 0, 0, 0, 2.88385135688311e-250, 1.44299633616158e-259, 0, 1.56124744085834e-321, 1.63995835868977, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.01050064173383e-122, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.64868196850938e-172, 0, 6.28699823828692e-149, 0, 0, 0, 0, 5.0552295590188e-09, 0, 2.30420733561404e-66, 0, 7.0823279075443e-306, 0, 2.05009901740696e-88, 0, 7.41800724282869e-285, 7.18347043784483e-53, 0, 0, 0, 1.04251223075649e-273, 9.75816316577433e-13, 4.29519957592147, 0, 0, 1.33541454912682e-198, 2.34606233784019e-176, 8.38236726536896e-41, 0, 0, 0, 0, 1.35710537434521e-43, 1.15710503176511e-185, 1.25601735272233e-25, 0, 4.46811655846376e-123, 4.4196641795634, 0, 0, 0, 0, 0, 0, 3.74179015251531e-93, 0, 0, 3.62662047836582e-271, 0, 0, 1.26220330674453e-05, 0, 0, 1.72715562657338e-273, 0, 0, 0, 0, 0, 0, 0, 5.46372806810809e-64, 0, 2.47081972486962e-148, 0, 0, 0), .Dim = c(100L, 2L)), 100, 2, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 0.08040349 10.35483474
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincrossprod.testcrossprod3
+#argv <- list(c(1.078125, 0.603125, -0.90625, 0.984375, 1.359375, -2.21875, -0.5, 1.2, 0.5), c(3.1859635002998, 2.5309880107589, 0.0716489644728567, 1.23651898905887, 1.28393932315826, -0.671528370670039, 0.873486219199556, 1.05088299688189, 0.0536562654335257)); .Internal(crossprod(argv[[1]], argv[[2]]))
+ [,1]
+[1,] 10.20009
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincummax.testcummax1
+#argv <- list(c(3L, 2L, 1L, 2L, 1L, 0L, 4L, 3L, 2L));cummax(argv[[1]]);
+[1] 3 3 3 3 3 3 4 4 4
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincummax.testcummax4
+#argv <- list(FALSE);cummax(argv[[1]]);
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincummin.testcummin1
+#argv <- list(c(3L, 2L, 1L, 2L, 1L, 0L, 4L, 3L, 2L));cummin(argv[[1]]);
+[1] 3 2 1 1 1 0 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincummin.testcummin8
+#argv <- list(FALSE);cummin(argv[[1]]);
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincumprod.testcumprod10
+#argv <- list(c(0.982149602642989, 0.91866776738084, 0.859369083800704, 0.921182928974104));cumprod(argv[[1]]);
+[1] 0.9821496 0.9022692 0.7753822 0.7142689
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincumprod.testcumprod6
+#argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));cumprod(argv[[1]]);
+numeric(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincumprod.testcumprod9
+#argv <- list(character(0));cumprod(argv[[1]]);
+numeric(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincumsum.testcumsum1
+#argv <- list(c(9L, 5L, 13L));cumsum(argv[[1]]);
+[1] 9 14 27
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincumsum.testcumsum11
+#argv <- list(c(8L, 2L, 12L, 6L, 4L, 5L, 13L));cumsum(argv[[1]]);
+[1] 8 10 22 28 32 37 50
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincumsum.testcumsum12
+#argv <- list(c(0.535137960496205, -0.371944875163495, -1.02554224849711, -0.582401674605252, 0.342888392897331, -0.450934647056651, 0.51423012023069, -0.334338052169782, -0.105559908794475, -0.730509672807828, 1.9050435849087, 0.332621731470394, 0.230633640499451, -1.69186241488407, 0.659791899549327, -1.02362358887971, -0.891521574354298, 0.918341171021649, -0.45270064650823, -1.74837228000318, 1.76990410988936, -2.37740692539252, 0.572811529859585, 1.01724924908461, -0.630967866660535, 0.444287051411554, 0.439130388388555, 1.04062315291451, 0.484099387952522, -0.244883779092525, 0.915992057940211, 0.800622356509766, -0.936569034135793, -1.40078743399573, 0.160277539993178, -0.273962374775183, -0.985539112562296, 0.0839306795150329, -1.31999652648691, 0.161226351326199, -0.62492838754192, 0.957164274192481, 2.42448914116153, -0.915979243686792, 1.05766417094298, 0.825149727768283, -0.0701942243053587, -0.453646374057015, 1.57530770683748, -2.00545781823625, -0.643194791593663, -1.43684344365778, 1.39531343894608, -0.190703432644857, -0.524671199469671, 3.18404447406633, -0.0500372678876282, -0.443749311866524, 0.299865250136145, -1.56842462075497, 0.490302642672068, -0.0961632010799668, 0.468525122530146, -0.982370635937854, -1.02298384214794, -0.693414663276185, -0.767989573092782, 1.29904996668359, 1.57914556180809, -0.156891953039067, -0.35893656058468, -0.329038830421669, 0.0692364778530165, 0.0969042337010548, 0.290034387765571, -0.746678941046256, -0.846896388820319, 1.19707766374608, -0.548627361103323, 0.303045695225451, -0.056970533803332, -0.957849392150669, 0.591061909411507, 0.173104873492955, 1.39978335621251, 0.117459584626988, -0.331545758200853, 0.278294913305364, -1.18559164903534, -0.835894053393597, 0.510273251139431, -0.333120901223949, -0.0659609463524635, -0.11522170942195, -0.650512618774529, -2.01868865908242, 0.348834970176592, 0.761639507646859, -1.28871623535013, 1.48240271845861));cumsum(argv[[1]]);
+ [1] 0.53513796 0.16319309 -0.86234916 -1.44475084 -1.10186244 -1.55279709
+ [7] -1.03856697 -1.37290502 -1.47846493 -2.20897461 -0.30393102 0.02869071
+ [13] 0.25932435 -1.43253806 -0.77274616 -1.79636975 -2.68789133 -1.76955016
+ [19] -2.22225080 -3.97062308 -2.20071897 -4.57812590 -4.00531437 -2.98806512
+ [25] -3.61903299 -3.17474593 -2.73561555 -1.69499239 -1.21089301 -1.45577678
+ [31] -0.53978473 0.26083763 -0.67573140 -2.07651884 -1.91624130 -2.19020367
+ [37] -3.17574279 -3.09181211 -4.41180863 -4.25058228 -4.87551067 -3.91834639
+ [43] -1.49385725 -2.40983650 -1.35217233 -0.52702260 -0.59721682 -1.05086320
+ [49] 0.52444451 -1.48101331 -2.12420810 -3.56105154 -2.16573810 -2.35644154
+ [55] -2.88111274 0.30293174 0.25289447 -0.19085484 0.10901041 -1.45941421
+ [61] -0.96911157 -1.06527477 -0.59674965 -1.57912028 -2.60210413 -3.29551879
+ [67] -4.06350836 -2.76445840 -1.18531283 -1.34220479 -1.70114135 -2.03018018
+ [73] -1.96094370 -1.86403947 -1.57400508 -2.32068402 -3.16758041 -1.97050275
+ [79] -2.51913011 -2.21608441 -2.27305494 -3.23090434 -2.63984243 -2.46673755
+ [85] -1.06695420 -0.94949461 -1.28104037 -1.00274546 -2.18833711 -3.02423116
+ [91] -2.51395791 -2.84707881 -2.91303976 -3.02826147 -3.67877409 -5.69746274
+ [97] -5.34862777 -4.58698827 -5.87570450 -4.39330178
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincumsum.testcumsum13
+#argv <- list(c(23L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, 15L, 15L, 15L, 15L, 15L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, -9L, -9L, -9L, -9L, -9L, -9L, -9L, -9L, -9L, -9L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -6L, -6L, -6L, -6L, -6L, -6L, -6L, -6L, -6L, -1L, -1L, -1L, -1L, -1L, -1L, -1L, -1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, NA, NA, 3L, 3L, 3L, -19L, -19L, -19L, -19L, -19L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L));cumsum(argv[[1]]);
+ [1] 23 34 45 56 67 78 89 100 111 122 133 143 153 163 173 183 193 203
+ [19] 213 223 224 225 226 227 228 229 230 231 232 233 234 227 220 213 206 199
+ [37] 192 185 178 171 164 157 150 143 136 129 144 159 174 189 204 200 196 192
+ [55] 188 184 180 176 172 168 164 160 156 160 164 168 172 176 180 184 188 192
+ [73] 196 187 178 169 160 151 142 133 124 115 106 113 120 127 134 141 148 155
+ [91] 162 169 176 183 190 197 204 201 198 195 192 189 186 183 180 177 174 171
+[109] 168 165 167 169 171 173 175 177 179 181 183 185 187 189 191 193 195 197
+[127] 199 201 199 197 195 193 191 189 187 185 183 181 179 173 167 161 155 149
+[145] 143 137 131 125 124 123 122 121 120 119 118 117 117 117 117 117 117 117
+[163] 117 117 117 117 117 117 117 117 120 123 126 129 132 135 138 141 144 NA
+[181] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
+[199] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
+[217] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
+[235] NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincumsum.testcumsum14
+#argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE));cumsum(argv[[1]]);
+ [1] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 2 2 2 2 2 2 2 2 3 4
+[39] 4 4 4 4
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincumsum.testcumsum15
+#argv <- list(character(0));cumsum(argv[[1]]);
+numeric(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltincumsum.testcumsum8
+#argv <- list(c(6, 6, 5));cumsum(argv[[1]]);
+[1] 6 12 17
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindim.testdim14
+#argv <- list(c(99, 1, 2, -3, 4, 3, NA));dim(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindim.testdim19
+#argv <- list(structure(c(0, 87, 82, 75, 63, 50, 43, 32, 35, 60, 54, 55, 36, 39, 0, 0, 69, 57, 57, 51, 45, 37, 46, 39, 36, 24, 32, 23, 25, 32, 0, 32, 59, 74, 75, 60, 71, 61, 71, 57, 71, 68, 79, 73, 76, 71, 67, 75, 79, 62, 63, 57, 60, 49, 48, 52, 57, 62, 61, 66, 71, 62, 61, 57, 72, 83, 71, 78, 79, 71, 62, 74, 76, 64, 62, 57, 80, 73, 69, 69, 71, 64, 69, 62, 63, 46, 56, 44, 44, 52, 38, 46, 36, 49, 35, 44, 59, 65, 65, 56, 66, 53, 61, 52, 51, 48, 54, 49, 49, 61, 0, 0, 68, 44, 40, 27, 28, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = 'ts'));dim(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindim.testdim21
+#argv <- list(c(0, 1, 131072, 129140163, 17179869184, 762939453125, 16926659444736, 232630513987207, 2251799813685248, 16677181699666568, 1e+17));dim(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindim.testdim24
+#argv <- list(c(NA, NA, NA, NA, NA, 'Ripley', 'Venables & Smith'));dim(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindim.testdim25
+#argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));dim(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindim.testdim27
+#argv <- list(structure(c(-3.001e+155, -1.067e+107, -1.976e+62, -9.961e+152, -2.059e+23, 1), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), class = 'table'));dim(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindim.testdim28
+#argv <- list(structure(1395082220.91387, class = c('POSIXct', 'POSIXt')));dim(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindim.testdim4
+#argv <- list(structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c('Golden.rain', 'Marvellous', 'Victory'), class = 'factor', contrasts = 'contr.treatment'));dim(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindim.testdim7
+#argv <- list(c(2832L, 2836L, 2836L, 2833L, 2833L));dim(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindim.testdim9
+#argv <- list(c(NA, NA, '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R'));dim(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindimnames.testdimnames1
+#argv <- list(structure(c(4L, 3L, 2L, 1L, 2L), .Label = c('0.6', '0.8', 'Area Examined', 'C2'), class = 'factor'));dimnames(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindimnames.testdimnames13
+#argv <- list(structure(c(1.00000000141919, 1.00000000141919, 1.00000000141919, 1.00000000141919, 1.00000000141919, 1.00000003943081, 0.999999963407572, 1.00000003943081, 0.999999887384338, 0.999999887384338, 1.00000110375608, 0.999998671012596, 1.00000353649956, 0.999993805525628, 1.0000132674735, 0.999993805525628, 0.999954881629886, 1.00003272942137, 1.00018842500434, 1.00018842500434, 0.998942860340576, 0.998942860340576, 1.00143398966811, 1.00641624832317, 0.996451731013043, 0.996451731013043, 0.996451731013043, 0.956593661772521, 1.11602593873461, 0.956593661772521, 0.637729107848348, 1.2754582156967, 0, 5.10183286278678, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.94013552497596, 3.76412613616612, 7.30291496677768, 14.1686451539795, 27.4890922070583, 53.3325661305982, 103.472408672272, 200.750502109581, 389.483191189237, 755.650202381997, 1466.06384193569, 2844.36258373045, 5518.44906703615, 10706.5393765913, 20772.1380196383, 40300.7636161042, 78188.9463884664, 151697.155845212, 294313.049942543, 571007.218374244, 1107831.42112573, 2149343.17429151, 4170017.13104157, 8090398.61389002, 15696470.311059, 30453280.1141634, 59083492.559312, 114629985.805561, 222397713.850125, 431481718.951103, 837133036.93017, 1624151587.48205, 3151074263.75394, 6113511302.83196, 11861040827.0204, 23012027206.5324, 44646452442.3573, 86620170794.9288, 168054874821.487, 326049245490.904, 632579733498.458, 1227290450360.24, 2381109863489.76, 4619676014664.61, 8962797733853.2, 17389042711398.3, 33737100912048.4, 65454549040847.5, 126990699928896, 246379175201939, 478009006423530, 927402279739830, 1799286146937082, 3490859083252747, 6772739936266967, 13140033736528760, 25493446790450148, 49460743386475336, 95960547120913696, 186176471759588736, 361207596842468544, 700791709787994368, 1359630936550262016, 2637868362903399936, 5117822236182886400, 9929268960054196224, 19264127970060791808, 37375020125774807040, 72512606973297393664, 1.40684287014036e+20, 2.7294659047997e+20, 5.29553390729944e+20, 1.02740538360686e+21, 1.99330573047582e+21, 3.86728338996836e+21, 7.50305404171627e+21, 1.45569421000466e+22, 2.82424412804067e+22, 5.47941653460064e+22, 1.06308109216746e+23, 2.06252146205912e+23, 4.00157124688985e+23, 7.76359070435321e+23, 1.50624186823988e+24, 2.9223134410489e+24, 5.66968428254813e+24, 1.09999562078627e+25, 2.13414063286361e+25, 4.14052220754691e+25, 8.03317433205064e+25, 1.55854473744651e+26, 3.02378808245954e+26, 5.8665589378512e+26, 1.1381919629553e+27, 2.20824672789753e+27, 4.28429802210817e+27, 8.31211904202342e+27, 1.6126637849175e+28, 3.12878639712715e+28, 6.07026977774323e+28, -1.69869203952449, -6.59138547321901, -19.1822720729097, -49.6216113971901, -120.340815686727, -280.172995242172, -634.16918707159, -1406.14196698717, -3069.11929954479, -6616.11942037001, -14119.7855095835, -29884.6887074354, -62812.0433183954, -131238.022320374, -272806.670597037, -564567.387887297, -1163795.8381508, -2390740.65186453, -4896047.65118829, -9998943.37840444, -20369271.0188994, -41401011.400719, -83974646.5467737, -170005771.46876, -343577337.860415, -693250079.585253, -1396729874.79437, -2810209917.82931, -5646909305.11788, -11333554766.2687, -22721587164.2141, -45504990439.9914, -91044782407.2254, -181991924578.337, -363473977210.141, -725337050553.89, -1446342551648.47, -2881941162160.65, -5738497521398.03, -11418936575319.8, -22708142164275.2, -45131432245311.6, -89645884346409.8, -177969941625094, -353133219287688, -700351348689777, -1388315183960579, -2750828581307066, -5448167546359572, -10785901526178346, -21344633431230288, -42223472396959864, -83494631109252016, -165047335865753888, -326144099824872960, -644268556323104896, -1272289222665704960, -2511719077288045568, -4957094068295422976, -9780441891046391808, -1.9291639356539e+19, -38041976425069862912, -74997019625717596160, -1.47813980522732e+20, -2.91260085798056e+20, -5.73777646929122e+20, -1.13007319819804e+21, -2.22521899361014e+21, -4.38071519248462e+21, -8.62235781974388e+21, -1.69675222834625e+22, -3.33829458816692e+22, -6.56669878434099e+22, -1.2914810481395e+23, -2.53950840681221e+23, -4.99268379737403e+23, -9.81393715458217e+23, -1.92876460684381e+24, -3.79004004348997e+24, -7.44626980645141e+24, -1.46273574426805e+25, -2.87294154406129e+25, -5.64187042306716e+25, -1.10778729236262e+26, -2.1748439290622e+26, -4.26913311245721e+26, -8.37900750248964e+26, -1.64432657900359e+27, -3.22646894393502e+27, -6.33012184999843e+27, -1.24177532894999e+28, -2.4356873672908e+28, -4.77692848222753e+28, -9.36754365223252e+28, -1.83676481719521e+29, -3.60108404728876e+29, -7.05936824038065e+29, -1.38373288587828e+30, -2.71202352823357e+30, -5.31484173040654e+30), .Dim = c(100L, 3L)));dimnames(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindimnames.testdimnames17
+#argv <- list(structure(c(0, 0, 0, 0, 0, -1.43884556914512e-134, 0, 0, 0, -7.95468296571581e-252, 1.76099882882167e-260, 0, -9.38724727098368e-323, -0.738228974836154, 0, 0, 0, 0, 0, 0, 0, 0, 0, -6.84657791618065e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.05931985100232e-174, 0, -3.41789378681991e-150, 0, 0, 0, 0, -1.07225492686949e-10, 0, 1.65068934474523e-67, 0, -6.49830035279282e-307, 0, 5.83184963977238e-90, 0, -9.81722610183938e-287, 6.25336419454196e-54, 0, 0, 0, -1.72840591500382e-274, 1.22894687952101e-13, 0.660132850077566, 0, 0, 7.79918925397516e-200, -2.73162827952857e-178, 1.32195942051179e-41, 0, 0, 0, 0, 2.036057023761e-45, -3.40425060445074e-186, 1.59974269220388e-26, 0, 6.67054294775317e-124, 0.158503117506202, 0, 0, 0, 0, 0, 0, 3.42455724859116e-97, 0, 0, -2.70246891320217e-272, 0, 0, -3.50562438899045e-06, 0, 0, 1.35101732326608e-274, 0, 0, 0, 0, 0, 0, 0, 7.24580295957621e-65, 0, -3.54887341172294e-149, 0, 0, 0, 0, 0, 0, 0, 0, 1.77584594753563e-133, 0, 0, 0, 2.88385135688311e-250, 1.44299633616158e-259, 0, 1.56124744085834e-321, 1.63995835868977, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.01050064173383e-122, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.64868196850938e-172, 0, 6.28699823828692e-149, 0, 0, 0, 0, 5.0552295590188e-09, 0, 2.30420733561404e-66, 0, 7.0823279075443e-306, 0, 2.05009901740696e-88, 0, 7.41800724282869e-285, 7.18347043784483e-53, 0, 0, 0, 1.04251223075649e-273, 9.75816316577433e-13, 4.29519957592147, 0, 0, 1.33541454912682e-198, 2.34606233784019e-176, 8.38236726536896e-41, 0, 0, 0, 0, 1.35710537434521e-43, 1.15710503176511e-185, 1.25601735272233e-25, 0, 4.46811655846376e-123, 4.4196641795634, 0, 0, 0, 0, 0, 0, 3.74179015251531e-93, 0, 0, 3.62662047836582e-271, 0, 0, 1.26220330674453e-05, 0, 0, 1.72715562657338e-273, 0, 0, 0, 0, 0, 0, 0, 5.46372806810809e-64, 0, 2.47081972486962e-148, 0, 0, 0), .Dim = c(100L, 2L)));dimnames(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindimnames.testdimnames2
+#argv <- list(structure(c(0, 0, 0, 0, 0, 56.989995924654, 56.989995924654, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 109.608811230383, 109.608811230383, 109.608811230383, 107.478028232287, 107.478028232287, 107.478028232287, 107.478028232287, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 10.7055301785859, 0, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 0.914597467778369, 0.914597467778369, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.599195286063472, 0.599195286063472, 0.599195286063472, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0202635232425103, 2.60032456603692e-08, 0, 0, 0, 0, 0, 0.165626203544259, 0.165626203544259, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.503396799290371, 0.503396799290371, 0.503396799290371, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.984387422945875, 0.999999996451695), .Dim = c(52L, 3L)));dimnames(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindimnames.testdimnames24
+#argv <- list(structure(c(1L, 1L, 1L, 1L, 2L, 1L, NA), .Label = c('no', 'yes'), class = 'factor'));dimnames(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindimnames.testdimnames3
+#argv <- list(structure(c(FALSE, FALSE, FALSE), .Dim = c(3L, 1L)));dimnames(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindimnames.testdimnames5
+#argv <- list(structure(c(0.0495149735282523, -0.108383943640066, 0.077846206317523, -0.0237949779538032, 0.00481774174809338, -0.108383943640066, 0.280303242453237, -0.276080245636638, 0.130604235856321, -0.0264432890328551, 0.077846206317523, -0.276080245636638, 0.443183251704797, -0.364557026828347, 0.119607814442664, -0.0237949779538032, 0.130604235856321, -0.364557026828347, 0.44886505191838, -0.191117282992552, 0.00481774174809338, -0.0264432890328551, 0.119607814442664, -0.191117282992552, 0.0931350158346494), .Dim = c(5L, 5L)));dimnames(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindimnames.testdimnames7
+#argv <- list(structure(c(13.0879058831551, -0.0481782079188499, 0.0648397936975344, -0.0703016880559154, -0.433062454113996, -0.000149473169823967, -16.3229386445345, -0.0481782079188499, 1.42936577525521, 0.00346026862477374, 0.000168722552167122, -0.00850959684180395, -9.2926002743558e-06, -1.44812039916227, 0.0648397936975344, 0.00346026862477374, 0.0649221455479854, 1.50206888047831e-06, 0.0303152177308945, -5.59890220792902e-06, -0.238079760031664, -0.0703016880559154, 0.000168722552167122, 1.50206888047831e-06, 0.00876007504795771, 0.000744776618395879, -6.15610217329725e-06, -0.0811419414051802, -0.433062454113996, -0.00850959684180395, 0.0303152177308945, 0.000744776618395879, 10.728754385628, -6.46786616103191e-05, -11.116657381748, -0.000149473169823967, -9.2926002743558e-06, -5.59890220792902e-06, -6.15610217329725e-06, -6.46786616103191e-05, 0.00193527894824396, -0.000812297378584339, -16.3229386445345, -1.44812039916227, -0.238079760031664, -0.0811419414051802, -11.116657381748, -0.000812297378584339, 249.99918229946), .Dim = c(7L, 7L)));dimnames(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindirname.testdirname1
+#argv <- list('/home/roman/r-instrumented/library/graphics'); .Internal(dirname(argv[[1]]))
+[1] "/home/roman/r-instrumented/library"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindirname.testdirname2
+#argv <- list('/home/lzhao/hg/r-instrumented/tests/Packages/survival/inst/CITATION'); .Internal(dirname(argv[[1]]))
+[1] "/home/lzhao/hg/r-instrumented/tests/Packages/survival/inst"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindirname.testdirname3
+#argv <- list(character(0)); .Internal(dirname(argv[[1]]))
+character(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltindirname.testdirname5
+#argv <- list(structure('/home/lzhao/hg/r-instrumented/library/utils', .Names = 'Dir')); .Internal(dirname(argv[[1]]))
+[1] "/home/lzhao/hg/r-instrumented/library"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinenvironment.testenvironment2
+#argv <- list(FALSE); .Internal(environment(argv[[1]]))
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinenvironment.testenvironment3
+#argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(environment(argv[[1]]))
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinenvironment.testenvironment4
+#argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0'))); .Internal(environment(argv[[1]]))
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinenvironmentName.testenvironmentName1
+#argv <- list(FALSE); .Internal(environmentName(argv[[1]]))
+[1] ""
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinenvironmentName.testenvironmentName2
+#argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0'))); .Internal(environmentName(argv[[1]]))
+[1] ""
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinenvironmentName.testenvironmentName3
+#argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(environmentName(argv[[1]]))
+[1] ""
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinexp.testexp1
+#argv <- list(-3.99290891786396);exp(argv[[1]]);
+[1] 0.01844598
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinexp.testexp4
+#argv <- list(c(0, 0, 0, 0, 0, 0.312525079410893, 0.312525079410893, 0.519628781161469, 0.519628781161469, 0.519628781161469, 0.519628781161469, 0.519628781161469, 0.519628781161469, 0.656871985321733, 0.656871985321733, 0.656871985321733, 0.747820128348458, 0.747820128348458, 0.747820128348458, 0.747820128348458, 0.808089522163767, 0.808089522163767, 0.808089522163767, 0.808089522163767, 0.808089522163767, 0.808089522163767, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.892034685155886, 0.892034685155886, 0.892034685155886, 0.892034685155886, 0.892034685155886, 0.911359578074335, 0.916463626041527));exp(argv[[1]]);
+ [1] 1.000000 1.000000 1.000000 1.000000 1.000000 1.366872 1.366872 1.681403
+ [9] 1.681403 1.681403 1.681403 1.681403 1.681403 1.928750 1.928750 1.928750
+[17] 2.112390 2.112390 2.112390 2.112390 2.243618 2.243618 2.243618 2.243618
+[25] 2.243618 2.243618 2.335039 2.335039 2.335039 2.335039 2.335039 2.335039
+[33] 2.335039 2.335039 2.335039 2.397666 2.397666 2.397666 2.397666 2.397666
+[41] 2.397666 2.397666 2.397666 2.397666 2.397666 2.440089 2.440089 2.440089
+[49] 2.440089 2.440089 2.487702 2.500432
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinexp.testexp9
+#argv <- list(c(4.92585186838819, 4.80249477012754, 4.18570927882429, 4.06235218056364, 3.81563798404234, 3.32220959099974, 3.19885249273909, 2.95213829621779, 2.45870990317518, 2.33535280491453, 2.08863860839323, 1.59521021535063, 1.47185311708998, 1.34849601882933, 0.608353429265429, 0.361639232744128, -0.131789160298473, -0.255146258559123, -1.11864594638368, -1.24200304464433, -1.85878853594758, -1.98214563420823, -2.84564532203278, -3.09235951855408, -3.70914500985733));exp(argv[[1]]);
+ [1] 137.80668481 121.81393653 65.74011245 58.11083763 45.40571527
+ [6] 27.72153619 24.50439509 19.14685163 11.68972094 10.33310486
+[11] 8.07391592 4.92936519 4.35730226 3.85162840 1.83740349
+[16] 1.43568090 0.87652578 0.77480317 0.32672189 0.28880515
+[21] 0.15586134 0.13777331 0.05809676 0.04539472 0.02449846
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinexpm1.testexpm11
+#argv <- list(-0.518798300715899);expm1(argv[[1]]);
+[1] -0.4047646
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinfilecreate.testfilecreate1
+#argv <- list('codetools-manual.log', TRUE); .Internal(file.create(argv[[1]], argv[[2]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinfilecreate.testfilecreate2
+#argv <- list(character(0), TRUE); .Internal(file.create(argv[[1]], argv[[2]]))
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinfileexists.testfileexists1
+#argv <- list('/home/lzhao/hg/r-instrumented/library/methods/data/Rdata.rdb'); .Internal(file.exists(argv[[1]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinfileexists.testfileexists2
+#argv <- list(c('src/Makevars', 'src/Makevars.in')); .Internal(file.exists(argv[[1]]))
+[1] FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinfileexists.testfileexists3
+#argv <- list(character(0)); .Internal(file.exists(argv[[1]]))
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinfileremove.testfileremove1
+#argv <- list(character(0)); .Internal(file.remove(argv[[1]]))
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinfilerename.testfilerename1
+#argv <- list(character(0), character(0)); .Internal(file.rename(argv[[1]], argv[[2]]))
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinfloor.testfloor1
+#argv <- list(c(2.2, 3.3, 4.4, 5.5, 6.6, 7.7, 8.8, 9.9, 11));floor(argv[[1]]);
+[1] 2 3 4 5 6 7 8 9 11
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinfloor.testfloor2
+#argv <- list(structure(c(12784, 13149, 13514, 13879, 14245, 14610), tzone = 'UTC'));floor(argv[[1]]);
+[1] 12784 13149 13514 13879 14245 14610
+attr(,"tzone")
+[1] "UTC"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinfloor.testfloor3
+#argv <- list(c(-0.783587745879035, -0.739712343519063, -0.314304892261569));floor(argv[[1]]);
+[1] -1 -1 -1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinfloor.testfloor5
+#argv <- list(c(-1.94786705265839, 0.813844117537122));floor(argv[[1]]);
+[1] -2 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinformat.testformat10
+#argv <- list(c(FALSE, NA, TRUE), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+[1] "FALSE" " NA" " TRUE"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinformat.testformat13
+#argv <- list(c(1L, 2L, 3L, 4L, 5L, -1L, -2L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+[1] " 1" " 2" " 3" " 4" " 5" "-1" "-2"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinformat.testformat16
+#argv <- list(structure(c(1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+ [1] "1960" "1960" "1960" "1960" "1960" "1960" "1960" "1960" "1960" "1960"
+[11] "1960" "1961" "1961" "1961" "1961" "1961" "1961" "1961" "1961" "1961"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinformat.testformat18
+#argv <- list(c(2L, 4L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+[1] "2" "4"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinformat.testformat19
+#argv <- list(c(1L, NA, 1L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+[1] " 1" "NA" " 1"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinformat.testformat26
+#argv <- list(c(172, 88, 88, 55, 92, 92, 72, 72, 63, 63), TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+ [1] "172" "88" "88" "55" "92" "92" "72" "72" "63" "63"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinformat.testformat35
+#argv <- list(c(-41L, -36L, -12L, -18L, NA, -28L, -23L, -19L, -8L, NA, -7L, -16L, -11L, -14L, -18L, -14L, -34L, -6L, -30L, -11L, -1L, -11L, -4L, -32L, NA, NA, NA, -23L, -45L, -115L, -37L, NA, NA, NA, NA, NA, NA, -29L, NA, -71L, -39L, NA, NA, -23L, NA, NA, -21L, -37L, -20L, -12L, -13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, -135L, -49L, -32L, NA, -64L, -40L, -77L, -97L, -97L, -85L, NA, -10L, -27L, NA, -7L, -48L, -35L, -61L, -79L, -63L, -16L, NA, NA, -80L, -108L, -20L, -52L, -82L, -50L, -64L, -59L, -39L, -9L, -16L, -78L, -35L, -66L, -122L, -89L, -110L, NA, NA, -44L, -28L, -65L, NA, -22L, -59L, -23L, -31L, -44L, -21L, -9L, NA, -45L, -168L, -73L, NA, -76L, -118L, -84L, -85L, -96L, -78L, -73L, -91L, -47L, -32L, -20L, -23L, -21L, -24L, -44L, -21L, -28L, -9L, -13L, -46L, -18L, -13L, -24L, -16L, -13L, -23L, -36L, -7L, -14L, -30L, NA, -14L, -18L, -20L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+ [1] " -41" " -36" " -12" " -18" " NA" " -28" " -23" " -19" " -8" " NA"
+ [11] " -7" " -16" " -11" " -14" " -18" " -14" " -34" " -6" " -30" " -11"
+ [21] " -1" " -11" " -4" " -32" " NA" " NA" " NA" " -23" " -45" "-115"
+ [31] " -37" " NA" " NA" " NA" " NA" " NA" " NA" " -29" " NA" " -71"
+ [41] " -39" " NA" " NA" " -23" " NA" " NA" " -21" " -37" " -20" " -12"
+ [51] " -13" " NA" " NA" " NA" " NA" " NA" " NA" " NA" " NA" " NA"
+ [61] " NA" "-135" " -49" " -32" " NA" " -64" " -40" " -77" " -97" " -97"
+ [71] " -85" " NA" " -10" " -27" " NA" " -7" " -48" " -35" " -61" " -79"
+ [81] " -63" " -16" " NA" " NA" " -80" "-108" " -20" " -52" " -82" " -50"
+ [91] " -64" " -59" " -39" " -9" " -16" " -78" " -35" " -66" "-122" " -89"
+[101] "-110" " NA" " NA" " -44" " -28" " -65" " NA" " -22" " -59" " -23"
+[111] " -31" " -44" " -21" " -9" " NA" " -45" "-168" " -73" " NA" " -76"
+[121] "-118" " -84" " -85" " -96" " -78" " -73" " -91" " -47" " -32" " -20"
+[131] " -23" " -21" " -24" " -44" " -21" " -28" " -9" " -13" " -46" " -18"
+[141] " -13" " -24" " -16" " -13" " -23" " -36" " -7" " -14" " -30" " NA"
+[151] " -14" " -18" " -20"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinformat.testformat36
+#argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), TRUE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+character(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinformat.testformat39
+#argv <- list(FALSE, FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+[1] "FALSE"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinformat.testformat41
+#argv <- list(structure(c(3035, 2552, 2704, 2554, 2014, 1655, 1721, 1524, 1596, 2074, 2199, 2512, 2933, 2889, 2938, 2497, 1870, 1726, 1607, 1545, 1396, 1787, 2076, 2837, 2787, 3891, 3179, 2011, 1636, 1580, 1489, 1300, 1356, 1653, 2013, 2823, 3102, 2294, 2385, 2444, 1748, 1554, 1498, 1361, 1346, 1564, 1640, 2293, 2815, 3137, 2679, 1969, 1870, 1633, 1529, 1366, 1357, 1570, 1535, 2491, 3084, 2605, 2573, 2143, 1693, 1504, 1461, 1354, 1333, 1492, 1781, 1915), .Tsp = c(1973, 1978.91666666667, 12), class = 'ts'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+ [1] "3035" "2552" "2704" "2554" "2014" "1655" "1721" "1524" "1596" "2074"
+[11] "2199" "2512" "2933" "2889" "2938" "2497" "1870" "1726" "1607" "1545"
+[21] "1396" "1787" "2076" "2837" "2787" "3891" "3179" "2011" "1636" "1580"
+[31] "1489" "1300" "1356" "1653" "2013" "2823" "3102" "2294" "2385" "2444"
+[41] "1748" "1554" "1498" "1361" "1346" "1564" "1640" "2293" "2815" "3137"
+[51] "2679" "1969" "1870" "1633" "1529" "1366" "1357" "1570" "1535" "2491"
+[61] "3084" "2605" "2573" "2143" "1693" "1504" "1461" "1354" "1333" "1492"
+[71] "1781" "1915"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinformat.testformat44
+#argv <- list(95, 2, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+[1] "95"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinformat.testformat48
+#argv <- list(c(TRUE, FALSE, TRUE, FALSE, FALSE, FALSE), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+[1] " TRUE" "FALSE" " TRUE" "FALSE" "FALSE" "FALSE"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinformat.testformat50
+#argv <- list(c(Inf, -Inf), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+[1] " Inf" "-Inf"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinformat.testformat9
+#argv <- list(integer(0), TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+character(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltingettext.testgettext1
+#argv <- list(NULL, 'Loading required package: %s'); .Internal(gettext(argv[[1]], argv[[2]]))
+[1] "Loading required package: %s"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltingettext.testgettext2
+#argv <- list(NULL, ''); .Internal(gettext(argv[[1]], argv[[2]]))
+[1] ""
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltingettext.testgettext4
+#argv <- list(NULL, c('/', ' not meaningful for factors')); .Internal(gettext(argv[[1]], argv[[2]]))
+[1] "/" " not meaningful for factors"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltingettext.testgettext5
+#argv <- list(NULL, character(0)); .Internal(gettext(argv[[1]], argv[[2]]))
+character(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltingregexpr.testgregexpr8
+#argv <- list('[[:space:]]?(,|,?[[:space:]]and)[[:space:]]+', character(0), FALSE, FALSE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))
+list()
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltingrep.testgrep12
+#argv <- list('^[[:blank:]]*$', 'mtext(\'«Latin-1 accented chars»: éè øØ å<Å æ<Æ\', side = 3)', FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+integer(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltingrep.testgrep9
+#argv <- list('^[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789]', 'all.R', FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltingrepl.testgrepl1
+#argv <- list('([[:digit:]]+[.-]){1,}[[:digit:]]+', c('1.0', '1.0'), FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+[1] TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltingrepl.testgrepl11
+#argv <- list('^prepare_Rd', structure(character(0), class = 'checkRd'), FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltingrepl.testgrepl4
+#argv <- list('([[:digit:]]+[.-]){1,}[[:digit:]]+', structure('7.3-26', .Names = 'Version'), FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltingsub.testgsub1
+#argv <- list('([[:alnum:]])--([[:alnum:]])', '\\1-\\2', 'Date-Time Classes', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] "Date-Time Classes"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltingsub.testgsub12
+#argv <- list('([[:digit:]]+[.-]){1,}[[:digit:]]+', '', 'pkgB_1.0.tar.gz', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] "pkgB_.tar.gz"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical1
+#argv <- list('oats[-1, ]', 'newdata', TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical10
+#argv <- list(complex(0), complex(0), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical12
+#argv <- list(c(TRUE, TRUE, NA), c(TRUE, TRUE, NA), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical17
+#argv <- list(raw(0), raw(0), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical18
+#argv <- list(c(1, 1, 0.5, 1, 1, 1, 1, 1, 0, 0, 0.5, 1, 0, 1, 0, 1, 0.5, 1, NA, 0.75, 0.5, 0, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 1, 1, 0.666666666666667, 1, 0.666666666666667, 0.666666666666667, 0.333333333333333, 0.5, 1, 0, 1, 0.5, 1, 1, 1, 0, 1, 0.5, 1, 1, 0.5, 1, 1, 1, 0.5, 1, 1, NA, 0.5), c(1, 1, 0.5, 1, 1, 1, 1, 1, 0, 0, 0.5, 1, 0, 1, 0, 1, 0.5, 1, NA, 0.75, 0.5, 0, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 1, 1, 0.666666666666667, 1, 0.666666666666667, 0.666666666666667, 0.333333333333333, 0.5, 1, 0, 1, 0.5, 1, 1, 1, 0, 1, 0.5, 1, 1, 0.5, 1, 1, 1, 0.5, 1, 1, NA, 0.5), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical19
+#argv <- list(c(0.0804034870161223, 10.3548347412639), structure(list(loc = c(0.0804034870161223, 10.3548347412639), cov = structure(c(3.01119301965569, 6.14320559215603, 6.14320559215603, 14.7924762275451), .Dim = c(2L, 2L)), d2 = 2, wt = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), sqdist = c(0.439364946869246, 0.0143172566761092, 0.783644692619938, 0.766252947443554, 0.346865912102713, 1.41583192825661, 0.168485512965902, 0.354299830956879, 0.0943280426627965, 1.05001058449122, 1.02875556201707, 0.229332323173361, 0.873263925064789, 2.00000009960498, 0.449304354954282, 0.155023307933165, 0.118273979375253, 0.361693898800799, 0.21462398586105, 0.155558909016629, 0.471723661454506, 0.719528696331092, 0.0738164380664225, 1.46001193111051, 0.140785322548143, 0.127761195166703, 0.048012401156175, 0.811750426884519, 0.425827709817574, 0.163016638545231, 0.557810866640707, 0.277350147637843, 0.0781399119055092, 1.29559183995835, 0.718376405567138, 1.37650242941478, 0.175087780508154, 0.233808973148729, 0.693473805463067, 0.189096604125073, 1.96893781800017, 0.4759756980592, 1.69665760380474, 0.277965749373647, 0.920525436884815, 0.57525234053591, 1.59389578665009, 0.175715364671313, 0.972045794851437, 1.75514684962809, 0.0597413185507202, 0.174340343040626, 0.143421553552865, 0.997322770596838, 1.94096736957465, 2.00000001159796, 0.367000821772989, 0.682474530588235, 1.20976163307984, 1.27031685239035, 1.79775635513363, 0.0857761902860323, 0.435578932929501, 0.214370604878221, 0.494714247412686, 1.78784623754399, 1.24216674083069, 1.87749485326709, 0.0533296334123023, 1.45588362584438, 2.00000000631459, 0.208857144738039, 0.119251291573058, 0.365303924649962, 0.690656674239668, 0.0396958405786268, 0.258262120876164, 1.57360254057537, 0.307548421049514, 0.628417063100241, 1.00647098749202, 0.297624360530352, 0.400289147351669, 1.98298426250944, 0.129127182829694, 0.0794695319493149, 0.991481735944321, 0.444068154119836, 0.206790162395106, 0.574310829851377, 0.181887577583334, 0.433872021297517, 0.802994892604009, 0.293053770941001, 1.7002969001965, 0.77984639982848, 1.36127407487932, 0.761935213110323, 0.597915313430067, 0.237134831067472), prob = NULL, tol = 1e-07, eps = 9.96049758228423e-08, it = 898L, maxit = 5000, ierr = 0L, conv = TRUE), .Names = c('loc', 'cov', 'd2', 'wt', 'sqdist', 'prob', 'tol', 'eps', 'it', 'maxit', 'ierr', 'conv'), class = 'ellipsoid'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical2
+#argv <- list(structure(c(NA, 2, NA, 1, NA, 0), .Dim = 2:3), structure(c(NA, 2, NA, 1, NA, 0), .Dim = 2:3), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical21
+#argv <- list(c('«', '»', '¿', '?'), 'TeX', TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical22
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')), 42, TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical23
+#argv <- list(c(3L, 3L, NA, 3L), c(3L, 3L, NA, 3L), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical25
+#argv <- list(c('object', NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), c('object', NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical26
+#argv <- list(3.04888344611714e+29, 3.04888344611714e+29, TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical27
+#argv <- list(structure('BunchKaufman', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), structure('Matrix', .Names = 'x', package = 'Matrix', class = structure('signature', package = 'methods')), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical29
+#argv <- list(c('1', '2', NA), c('1', '2', NA), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical3
+#argv <- list(structure(c('dgTMatrix', 'matrix.coo'), .Names = c('from', 'to'), package = c('Matrix', ''), class = structure('signature', package = 'methods')), structure(c('dgTMatrix', 'matrix.coo'), .Names = c('from', 'to'), package = c('Matrix', ''), class = structure('signature', package = 'methods')), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical30
+#argv <- list(c(-9.42477796076938, -6.28318530717959, -3.14159265358979, 0, 3.14159265358979, 6.28318530717959, 9.42477796076938, 12.5663706143592, 15.707963267949, 18.8495559215388), c(-9.42477796076938, -6.28318530717959, -3.14159265358979, 0, 3.14159265358979, 6.28318530717959, 9.42477796076938, 12.5663706143592, 15.707963267949, 18.8495559215388), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical31
+#argv <- list(structure('classGeneratorFunction', package = 'methods'), structure('classGeneratorFunction', package = 'methods'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical33
+#argv <- list(structure(1L, match.length = 8L, useBytes = TRUE), structure(1L, match.length = 8L, useBytes = TRUE), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical4
+#argv <- list(structure(3.14159265358979, comment = 'Start with pi', class = structure('num1', package = '.GlobalEnv')), structure(3.14159265358979, comment = 'Start with pi', class = structure('num1', package = '.GlobalEnv')), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical7
+#argv <- list(c(-1.38507061859438+0.31833672642477i, 0.0383231810219-1.42379885362755i, -0.763030162361974-0.405090858049187i, 0.212306135525839+0.995386565684023i, 1.42553796686779+0.95881778764026i, 0.744479822333976+0.918087896319951i, 0.70022940298623-0.15096960188161i, -0.22935461345173-1.2230687888662i, 0.197093861895352-0.868824288637794i, 1.20715377387226-1.04248536490429i), c(-1.38507061859438+0.31833672642477i, 0.0383231810219-1.42379885362755i, -0.763030162361974-0.405090858049187i, 0.212306135525839+0.995386565684023i, 1.42553796686779+0.95881778764026i, 0.744479822333976+0.918087896319951i, 0.70022940298623-0.15096960188161i, -0.22935461345173-1.2230687888662i, 0.197093861895352-0.868824288637794i, 1.20715377387226-1.04248536490429i), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinidentical.testidentical9
+#argv <- list(c(TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE), c(TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits1
+#argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Names = c('dtrMatrix', 'MatrixFactorization', 'ddenseMatrix', 'triangularMatrix', 'dMatrix', 'denseMatrix', 'Matrix', 'mMatrix')), 'factor', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits10
+#argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))), 'data.frame', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits11
+#argv <- list(structure(list(srcfile = '/home/lzhao/hg/r-instrumented/library/stats/R/stats', frow = 853L, lrow = 853L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame'), 'data.frame', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits13
+#argv <- list(structure(10, class = c('a', 'b')), c('a', 'b', 'c'), TRUE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] 1 2 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits14
+#argv <- list(complex(0), 'try-error', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits15
+#argv <- list(structure(FALSE, .Tsp = c(0, 0, 1), class = 'ts'), 'ts', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits16
+#argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')), 'try-error', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits17
+#argv <- list(raw(0), 'try-error', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits18
+#argv <- list(structure(c(-1.5116089581734, 0.200010507218348, 0.266001075015567, 0.339550302820724, 0.425045882083188, 0.496549005782181, 0.576998440511346, -0.909988579721932, -1.06576984591386, 0.174059431391812, -0.0372498129362256, -0.282881300668478, -0.488312023557303, -0.719445779363312), gradient = structure(c(0.160743714207466, 0.251172444221428, 0.307513919261763, 0.350467096622222, 0.367731527586793, 0.346345778958899, 0.262925702855199, -0.160743714207466, -0.251172444221428, -0.307513919261763, -0.350467096622222, -0.367731526984617, -0.346345778958899, -0.262925703156287), .Dim = c(7L, 2L, 1L)), .Dim = c(7L, 2L)), 'data.frame', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits19
+#argv <- list(structure(3.14159265358979, comment = 'Start with pi'), 'try-error', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits2
+#argv <- list(structure(list(x = numeric(0), y = numeric(0), fac = structure(integer(0), .Label = c('A', 'B', 'C'), class = 'factor')), .Names = c('x', 'y', 'fac'), row.names = integer(0), class = 'data.frame'), 'data.frame', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits20
+#argv <- list(c(TRUE, NA, FALSE, TRUE), 'Date', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits21
+#argv <- list(c(-1, 1, -1, 2, 1, NA, -1, 1, 4, 1, NA, 4, 1, 3, NA, 4, 2, 2, NA, 4, 4, 2, 4, 4, 2, 1, 4, 4, 3, 1, 1, 4, 1, 4, NA, 1, 4, 4, 2, 2, 4, 4, 3, 4, 2, 2, 3, 3, 4, 1, 1, 1, 4, 1, 4, 4, 4, 4, NA, 4, 4, 4, NA, 1, 2, 3, 4, 3, 4, 2, 4, 4, 1, 4, 1, 4, NA, 4, 2, 1, 4, 1, 1, 1, 4, 4, 2, 4, 1, 1, 1, 4, 1, 1, 1, 4, 3, 1, 4, 3, 2, 4, 3, 1, 4, 2, 4, NA, 4, 4, 4, 2, 1, 4, 4, NA, 2, 4, 4, 1, 1, 1, 1, 4, 1, 2, 3, 2, 1, 4, 4, 4, 1, NA, 4, 2, 2, 2, 4, 4, 3, 3, 4, 2, 4, 3, 1, 1, 4, 2, 4, 3, 1, 4, 3, 4, 4, 1, 1, 4, 4, 3, 1, 1, 2, 1, 3, 4, 2, 2, 2, 4, 4, 3, 2, 1, 1, 4, 1, 1, 2, NA, 2, 3, 3, 2, 1, 1, 1, 1, 4, 4, 4, 4, 4, 4, 2, 2, 1, 4, 1, 4, 3, 4, 2, 3, 1, 3, 1, 4, 1, 4, 1, 4, 3, 3, 4, 4, 1, NA, 3, 4, 4, 4, 4, 4, 4, 3, 4, 3, 4, 2, 4, 4, 1, 2, NA, 4, 4, 4, 4, 1, 2, 1, 1, 2, 1, 4, 2, 3, 1, 4, 4, 4, 1, 2, 1, 4, 2, 1, 3, 1, 2, 2, 1, 2, 1, NA, 3, 2, 2, 4, 1, 4, 4, 2, 4, 4, 4, 2, 1, 4, 2, 4, 4, 4, 4, 4, 1, 3, 4, 3, 4, 1, NA, 4, NA, 1, 1, 1, 4, 4, 4, 4, 2, 4, 3, 2, NA, 1, 4, 4, 3, 4, 4, 4, 2, 4, 2, 1, 4, 4, NA, 4, 4, 3, 3, 4, 2, 2, 4, 1, 4, 4, 4, 3, 4, 4, 4, 3, 2, 1, 3, 1, 4, 1, 4, 2, NA, 1, 4, 4, 3, 1, 4, 1, 4, 1, 4, 4, 1, 2, 2, 1, 4, 1, 1, 4, NA, 4, NA, 4, 4, 4, 1, 4, 2, 1, 2, 2, 2, 2, 1, 1, 2, 1, 4, 2, 3, 3, 1, 3, 1, 4, 1, 3, 2, 2, 4, 1, NA, 3, 4, 2, 4, 4, 4, 4, 4, 4, 3, 4, 4, 3, 2, 1, 4, 4, 2, 4, 2, 1, 2, 1, 1, 1, 1, 4, 4, 1, 1, 4, 1, 4, 4, 4, 1, 1, NA, 3, 2, 4, 4, 4, 4, 2, 3, 3, 2, NA, 4, 2, 4, 4, 1, 1, 4, 4, 1, 1, 4, 1, 2, 2, 2, 2, 1, 4, 4, 1, 2, 2, 2, 3, 4, 4, 3, 4, 1, 1, 4, 4, NA, 4, 1, 4, 4, 4, 1, 4, 4, 1, 2, 4, 4, 4, 4, 1, 2, 4, 4, 2, 1, 4, 2, 4, 2, 2, 4, 1, 3, 3, 2, 4, 1, 4, 4, 4, 1, NA, 4, 4, 2, 4, 4, 4, 4, 4, 2, NA, 4, 2, 4, 3, 1, 4, 4, 3, 4, 2, 4, 4, 1, 2, 1, 4, 1, 3, 3, 1, 4, 4, 2, 4, 4, 4, 4, 3, 2, 3, 3, 2, NA, 3, 4, 4, 3, 3, 4, 4, 4, 1, 4, 4, 4, 4, 4, 4, 4, 2, 4, 2, 3, 4, 1, 3, 1, NA, 4, 1, 2, 2, 1, 4, 3, 3, 4, 1, 1, 3), 'Date', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits23
+#argv <- list(structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790, 800, 810, 820, 830, 840, 850, 860, 870, 880, 890, 900, 910, 920, 930, 940, 950, 960, 970, 980, 990, 1000, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96), .Dim = c(101L, 3L), .Dimnames = list(NULL, c('t1', '10 * t1', 't1 - 4')), .Tsp = c(1, 101, 1), class = c('mts', 'ts', 'matrix')), 'ts', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits24
+#argv <- list(c(10000, 20000, 30000, 40000, 50000, 60000, 70000, 80000, 90000, 1e+05, 110000, 120000, 130000, 140000, 150000, 160000, 170000, 180000, 190000, 2e+05, 210000, 220000, 230000, 240000, 250000, 260000, 270000, 280000, 290000, 3e+05, 310000, 320000, 330000, 340000, 350000, 360000, 370000, 380000, 390000, 4e+05, 410000, 420000, 430000, 440000, 450000, 460000, 470000, 480000, 490000, 5e+05, 510000, 520000, 530000, 540000, 550000, 560000, 570000, 580000, 590000, 6e+05, 610000, 620000, 630000, 640000, 650000, 660000, 670000, 680000, 690000, 7e+05, 710000, 720000, 730000, 740000, 750000, 760000, 770000, 780000, 790000, 8e+05, 810000, 820000, 830000, 840000, 850000, 860000, 870000, 880000, 890000, 9e+05, 910000, 920000, 930000, 940000, 950000, 960000, 970000, 980000, 990000, 1e+06), 'POSIXlt', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits25
+#argv <- list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/grid/R/grid', '/home/lzhao/hg/r-instrumented/library/grid/R/grid'), frow = 3581:3582, lrow = c(3581L, 3590L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'), 'data.frame', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits26
+#argv <- list(' Running ‘scales.R’', 'condition', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits27
+#argv <- list(c(0.923879532511287+0.38268343236509i, 0.707106781186548+0.707106781186547i, 0.38268343236509+0.923879532511287i, 0+1i, -0.38268343236509+0.923879532511287i, -0.707106781186547+0.707106781186548i, -0.923879532511287+0.38268343236509i, -1+0i, -0.923879532511287-0.38268343236509i, -0.707106781186548-0.707106781186547i, -0.38268343236509-0.923879532511287i, 0-1i, 0.38268343236509-0.923879532511287i, 0.707106781186547-0.707106781186548i, 0.923879532511287-0.38268343236509i, 1-0i), 'ts', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits28
+#argv <- list(structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), 'try-error', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits29
+#argv <- list(structure(c(11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'), 'ts', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits3
+#argv <- list(structure(c(2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Tsp = c(2, 11, 1)), 'data.frame', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits30
+#argv <- list(structure(list(coefficients = numeric(0), residuals = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), fitted.values = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), weights = NULL, rank = 0L, df.residual = 10L, call = quote(lm(formula = y ~ 0)), terms = quote(y ~ 0), model = structure(list(y = c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434)), .Names = 'y', terms = quote(y ~ 0), row.names = c(NA, 10L), class = 'data.frame')), .Names = c('coefficients', 'residuals', 'fitted.values', 'weights', 'rank', 'df.residual', 'call', 'terms', 'model'), class = 'lm'), 'lm', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits31
+#argv <- list(structure(c(-0.562441486309934, -0.588967592535822, 0.0277608937997097, 0.568074124752969, 3.89980510825846, -0.428174866497729, -0.343990813420242, -0.260996370058754, -2.31774610938305, 0.314764947225063, -0.455124436264437, -0.0444006414474544, -0.27748974692001, -0.303134023269405, -0.670168347915028, 2.92643313367, -0.749546667806845, -0.410394401887929, -0.203261263063707, 0.1847365997012, 0.128559671155683, 0.313558179929332, -0.0668425264405297, -0.106427678524531, -0.523747793519006, -0.402585404761851, 0.0642079595716389, -0.779859286629166, 0.356484381211739, -0.625053119472271, 1.31547628490512, -0.21959878152752, -0.102402088986461), .Names = c('Craig Dunain', 'Ben Rha', 'Ben Lomond', 'Goatfell', 'Bens of Jura', 'Cairnpapple', 'Scolty', 'Traprain', 'Lairig Ghru', 'Dollar', 'Lomonds', 'Cairn Table', 'Eildon Two', 'Cairngorm', 'Seven Hills', 'Knock Hill', 'Black Hill', 'Creag Beag', 'Kildcon Hill', 'Meall Ant-Suidhe', 'Half Ben Nevis', 'Cow Hill', 'N Berwick Law', 'Creag Dubh', 'Burnswark', 'Largo Law', 'Criffel', 'Acmony', 'Ben Nevis', 'Knockfarrel', 'Two Breweries', 'Cockleroi', 'Moffat Chase')), 'factor', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits4
+#argv <- list(structure(list(Sepal.Length = c(4.7, 4.8, 5.4, 5.2, 5.5, 4.9, 5, 5.5, 4.9, 4.4, 5.1, 5, 4.5, 4.4, 5, 5.1, 4.8, 5.1, 4.6, 5.3, 5, 7, 6.4, 6.9, 5.5, 6.5, 5.7, 6.3, 4.9, 6.6, 5.2, 5, 5.9, 6, 6.1, 5.6, 6.7, 5.6, 5.8, 6.2, 5.6, 5.9, 6.1, 6.3, 6.1, 6.4, 6.6, 6.8, 6.7, 6, 5.7, 5.5, 5.5, 5.8, 6, 5.4, 6, 6.7, 6.3, 5.6, 5.5, 5.5, 6.1, 5.8, 5, 5.6, 5.7, 5.7, 6.2, 5.1, 5.7, 6.3, 5.8, 7.1, 6.3, 6.5, 7.6, 4.9, 7.3, 6.7, 7.2, 6.5, 6.4, 6.8, 5.7, 5.8, 6.4, 6.5, 7.7, 7.7, 6, 6.9, 5.6, 7.7, 6.3, 6.7, 7.2, 6.2, 6.1, 6.4, 7.2), Sepal.Width = c(3.2, 3.1, 3.4, 4.1, 4.2, 3.1, 3.2, 3.5, 3.6, 3, 3.4, 3.5, 2.3, 3.2, 3.5, 3.8, 3, 3.8, 3.2, 3.7, 3.3, 3.2, 3.2, 3.1, 2.3, 2.8, 2.8, 3.3, 2.4, 2.9, 2.7, 2, 3, 2.2, 2.9, 2.9, 3.1, 3, 2.7, 2.2, 2.5, 3.2, 2.8, 2.5, 2.8, 2.9, 3, 2.8, 3, 2.9, 2.6, 2.4, 2.4, 2.7, 2.7, 3, 3.4, 3.1, 2.3, 3, 2.5, 2.6, 3, 2.6, 2.3, 2.7, 3, 2.9, 2.9, 2.5, 2.8, 3.3, 2.7, 3, 2.9, 3, 3, 2.5, 2.9, 2.5, 3.6, 3.2, 2.7, 3, 2.5, 2.8, 3.2, 3, 3.8, 2.6, 2.2, 3.2, 2.8, 2.8, 2.7, 3.3, 3.2, 2.8, 3, 2.8, 3), Petal.Length = c(1.6, 1.6, 1.5, 1.5, 1.4, 1.5, 1.2, 1.3, 1.4, 1.3, 1.5, 1.3, 1.3, 1.3, 1.6, 1.9, 1.4, 1.6, 1.4, 1.5, 1.4, 4.7, 4.5, 4.9, 4, 4.6, 4.5, 4.7, 3.3, 4.6, 3.9, 3.5, 4.2, 4, 4.7, 3.6, 4.4, 4.5, 4.1, 4.5, 3.9, 4.8, 4, 4.9, 4.7, 4.3, 4.4, 4.8, 5, 4.5, 3.5, 3.8, 3.7, 3.9, 5.1, 4.5, 4.5, 4.7, 4.4, 4.1, 4, 4.4, 4.6, 4, 3.3, 4.2, 4.2, 4.2, 4.3, 3, 4.1, 6, 5.1, 5.9, 5.6, 5.8, 6.6, 4.5, 6.3, 5.8, 6.1, 5.1, 5.3, 5.5, 5, 5.1, 5.3, 5.5, 6.7, 6.9, 5, 5.7, 4.9, 6.7, 4.9, 5.7, 6, 4.8, 4.9, 5.6, 5.8 ), Petal.Width = c(0.2, 0.2, 0.4, 0.1, 0.2, 0.2, 0.2, 0.2, 0.1, 0.2, 0.2, 0.3, 0.3, 0.2, 0.6, 0.4, 0.3, 0.2, 0.2, 0.2, 0.2, 1.4, 1.5, 1.5, 1.3, 1.5, 1.3, 1.6, 1, 1.3, 1.4, 1, 1.5, 1, 1.4, 1.3, 1.4, 1.5, 1, 1.5, 1.1, 1.8, 1.3, 1.5, 1.2, 1.3, 1.4, 1.4, 1.7, 1.5, 1, 1.1, 1, 1.2, 1.6, 1.5, 1.6, 1.5, 1.3, 1.3, 1.3, 1.2, 1.4, 1.2, 1, 1.3, 1.2, 1.3, 1.3, 1.1, 1.3, 2.5, 1.9, 2.1, 1.8, 2.2, 2.1, 1.7, 1.8, 1.8, 2.5, 2, 1.9, 2.1, 2, 2.4, 2.3, 1.8, 2.2, 2.3, 1.5, 2.3, 2, 2, 1.8, 2.1, 1.8, 1.8, 1.8, 2.1, 1.6)), .Names = c('Sepal.Length', 'Sepal.Width', 'Petal.Length', 'Petal.Width'), row.names = 30:130, class = 'data.frame'), 'data.frame', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits5
+#argv <- list(structure(1L, .Dim = 1L), 'try-error', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits6
+#argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), 'Surv', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits7
+#argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('Ctl', 'A', 'B'), class = 'factor', contrasts = 'contr.treatment'), 'factor', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits8
+#argv <- list(c(NA, NA, '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/groupedData.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/groupedData.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/groupedData.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/groupedData.R'), 'ordered', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininherits.testinherits9
+#argv <- list(list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit'))), 'try-error', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible1
+#argv <- list(c(3.14159265358977, 3.14159265358981));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible11
+#argv <- list(structure('Error in `[.data.frame`(dd, , \'x\') : undefined columns selected\n', class = 'try-error', condition = structure(list(message = 'undefined columns selected', call = quote(`[.data.frame`(dd, , 'x'))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible12
+#argv <- list(structure(list(value = structure(c(NA, NA, 1L, 9L), .Names = c('size', 'current', 'direction', 'eval_depth')), visible = TRUE), .Names = c('value', 'visible')));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible14
+#argv <- list(structure(list(coefficients = structure(c(-0.0880891704401362, -0.508170309402877, -0.00510235947825228, 0.0737329622006759), .Names = c('(Intercept)', 'x1', 'z', 'x1:z')), residuals = structure(c(0.471500137591588, -0.418206002310214, -1.08038471222353, -0.582889907355648, 0.671048026430597, 1.41161034263987, 0.0130575334430522, 0.598273046028054, -0.0752209852417045, -1.00878747900206), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), effects = structure(c(0.483887391035467, -0.316505532770654, -0.0456368905560498, -0.659487662652535, 0.502868792132386, 1.20242722895332, -0.301792379913696, 0.0429789614006214, -0.536741577656989, -1.91019253457038), .Names = c('(Intercept)', 'x1', 'z', 'x1:z', '', '', '', '', '', '')), rank = 4L, fitted.values = structure(c(-0.527628877120589, 0.262410495604884, -0.390367671675741, 0.104739852247028, -0.253106466230895, -0.0529307911108283, -0.115845260786048, -0.210601434468685, 0.0214159446587994, -0.368272077826542), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), assign = 0:3, qr = structure(list(qr = structure(c(-3.16227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0, 3.16227766016838, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634, -17.3925271309261, -1.58113883008419, 8.94427190999916, 0.0204447427551466, -0.048810308101025, -0.203162054994832, -0.272417105851004, -0.426768852744811, -0.496023903600983, -0.65037565049479, 1.58113883008419, 17.3925271309261, 2.77555756156289e-17, -8.94427190999916, 0.202312619197469, -0.0523458957441388, 0.422028033632482, -0.279844076809084, 0.641743448067495, -0.507342257874029), .Dim = c(10L, 4L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'), c('(Intercept)', 'x1', 'z', 'x1:z')), assign = 0:3, contrasts = structure(list( x = 'contr.helmert'), .Names = 'x')), qraux = c(1.31622776601684, 1.39220245868163, 1.17479648964895, 1.17515228532081), pivot = 1:4, tol = 1e-07, rank = 4L), .Names = c('qr', 'qraux', 'pivot', 'tol', 'rank'), class = 'qr'), df.residual = 6L, contrasts = structure(list(x = 'contr.helmert'), .Names = 'x'), xlevels = structure(list(), .Names = character(0)), call = quote(lm(formula = y ~ x * z)), terms = quote(y ~ x * z), model = structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c('y', 'x', 'z'), terms = quote(y ~ x * z), row.names = c(NA, 10L), class = 'data.frame')), .Names = c('coefficients', 'residuals', 'effects', 'rank', 'fitted.values', 'assign', 'qr', 'df.residual', 'contrasts', 'xlevels', 'call', 'terms', 'model'), class = 'lm'));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible15
+#argv <- list(structure('Error in scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings, : \n line 1 did not have 4 elements\n', class = 'try-error', condition = structure(list(message = 'line 1 did not have 4 elements', call = quote(scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings, flush, fill, strip.white, quiet, blank.lines.skip, multi.line, comment.char, allowEscapes, encoding))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible17
+#argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible18
+#argv <- list(structure(c(3, 8), .Dim = 2L, .Dimnames = structure(list(g = c('1', '2')), .Names = 'g'), call = quote(by.data.frame(data = X, INDICES = g, FUN = colMeans)), class = 'by'));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible19
+#argv <- list(structure('Error in rnorm(2, c(1, NA)) : (converted from warning) NAs produced\n', class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(2, c(1, NA)))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible20
+#argv <- list(structure(list(z = structure(c(1395082040.29392, 1395082040.29392, 1395082040.29392, 1395082040.29392, 1395082040.29392), class = c('AsIs', 'POSIXct', 'POSIXt'))), .Names = 'z', row.names = c(NA, -5L), class = 'data.frame'));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible22
+#argv <- list(structure(list(tables = structure(list(`Grand mean` = 103.87323943662, N = structure(c(78.7365206866197, 98.5088731171753, 113.842206450509, 123.008873117175), .Dim = 4L, .Dimnames = structure(list(N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = 'N'), class = 'mtable'), `V:N` = structure(c(79.5323303457107, 86.1989970123773, 69.7732394366197, 98.0323303457106, 108.032330345711, 89.1989970123773, 114.198997012377, 116.698997012377, 110.365663679044, 124.365663679044, 126.365663679044, 118.032330345711), .Dim = 3:4, .Dimnames = structure(list(V = c('Golden.rain', 'Marvellous', 'Victory'), N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = c('V', 'N')), class = 'mtable')), .Names = c('Grand mean', 'N', 'V:N')), n = structure(list(N = structure(c(17, 18, 18, 18), .Dim = 4L, .Dimnames = structure(list(N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = 'N')), `V:N` = structure(c(6, 6, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6), .Dim = 3:4, .Dimnames = structure(list(V = c('Golden.rain', 'Marvellous', 'Victory'), N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = c('V', 'N')))), .Names = c('N', 'V:N'))), .Names = c('tables', 'n'), type = 'means', class = c('tables_aov', 'list.of')));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible23
+#argv <- list(structure(list(A = 0:10, `NA` = 20:30), .Names = c('A', NA), class = 'data.frame', row.names = c(NA, -11L)));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible24
+#argv <- list(structure(c(-Inf, -Inf, -2.248e+263, -Inf, -3.777e+116, -1), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), class = 'table'));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible25
+#argv <- list(structure(list(Df = c(1, 1, NA, 2), Deviance = c(12.2441566485997, 28.4640218366572, 32.825622681839, 32.4303239692005), AIC = c(73.9421143635373, 90.1619795515948, 92.5235803967766, 96.1282816841381)), .Names = c('Df', 'Deviance', 'AIC'), row.names = c('+ M.user', '+ Temp', '<none>', '+ Soft'), class = c('anova', 'data.frame')));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible26
+#argv <- list(c(-1, -0.5, 0, 0.5, 1));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible27
+#argv <- list(structure(c('Min. : 5.00 ', '1st Qu.: 12.50 ', 'Median : 23.00 ', 'Mean : 29.48 ', '3rd Qu.: 33.50 ', 'Max. :161.00 ', 'Min. :0.0000 ', '1st Qu.:1.0000 ', 'Median :1.0000 ', 'Mean :0.7826 ', '3rd Qu.:1.0000 ', 'Max. :1.0000 ', 'Maintained :11 ', 'Nonmaintained:12 ', NA, NA, NA, NA), .Dim = c(6L, 3L), .Dimnames = list(c('', '', '', '', '', ''), c(' time', ' status', ' x')), class = 'table'));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible28
+#argv <- list(structure(list(latin1 = 0L, utf8 = 0L, bytes = 0L, unknown = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c('non_ASCII', 'where')))), .Names = c('latin1', 'utf8', 'bytes', 'unknown'), class = 'check_package_datasets'));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible29
+#argv <- list(structure(NA, .Tsp = c(1, 1, 1), class = 'ts'));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible30
+#argv <- list(structure(list(), class = 'formula'));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible31
+#argv <- list(structure(list(strip.vp = structure(list(x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), width = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), height = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), justification = 'centre', gp = structure(list(), class = 'gpar'), clip = FALSE, xscale = c(-0.0330971105140634, 1.03229244338581), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = c(1L, 1L), layout.pos.col = c(1L, 1L), valid.just = c(0.5, 0.5), valid.pos.row = c(1L, 1L), valid.pos.col = c(1L, 1L), name = 'GRID.VP.40'), .Names = c('x', 'y', 'width', 'height', 'justification', 'gp', 'clip', 'xscale', 'yscale', 'angle', 'layout', 'layout.pos.row', 'layout.pos.col', 'valid.just', 'valid.pos.row', 'valid.pos.col', 'name'), class = 'viewport'), plot.vp = structure(list(x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), width = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), height = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), justification = 'centre', gp = structure(list(), class = 'gpar'), clip = FALSE, xscale = c(-0.0330971105140634, 1.03229244338581), yscale = c(-0.0353837383445352, 1.04704589419998), angle = 0, layout = NULL, layout.pos.row = c(2L, 2L), layout.pos.col = c(1L, 1L), valid.just = c(0.5, 0.5), valid.pos.row = c(2L, 2L), valid.pos.col = c(1L, 1L), name = 'GRID.VP.41'), .Names = c('x', 'y', 'width', 'height', 'justification', 'gp', 'clip', 'xscale', 'yscale', 'angle', 'layout', 'layout.pos.row', 'layout.pos.col', 'valid.just', 'valid.pos.row', 'valid.pos.col', 'name'), class = 'viewport')), .Names = c('strip.vp', 'plot.vp')));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible33
+#argv <- list(structure(list(GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962, Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551)), .Names = c('GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year', 'Employed'), row.names = 1947:1962, class = 'data.frame'));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible34
+#argv <- list(structure(list(sec = 59.7693939208984, min = 47L, hour = 18L, mday = 17L, mon = 2L, year = 114L, wday = 1L, yday = 75L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible35
+#argv <- list(structure(list(x = structure(c(63.8079770211941, 64.1015289795127, 64.3950809378313, 64.6886328961499, 64.9821848544685, 65.2757368127871, 65.5692887711057, 65.8628407294243, 66.1563926877429, 66.4499446460616, 66.7434966043802, 67.0370485626988, 67.3306005210174, 67.624152479336, 67.9177044376546, 68.2112563959732, 68.5048083542918, 68.7983603126104, 69.091912270929, 69.3854642292476, 69.6790161875662, 69.9725681458849, 70.2661201042035, 70.5596720625221, 70.8532240208407, 71.1467759791593, 71.4403279374779, 71.7338798957965, 72.0274318541151, 72.3209838124337, 72.6145357707524, 72.908087729071, 73.2016396873896, 73.4951916457082, 73.7887436040268, 74.0822955623454, 74.375847520664, 74.6693994789826, 74.9629514373012, 75.2565033956198, 75.5500553539384, 75.843607312257, 76.1371592705757, 76.4307112288943, 76.7242631872129, 77.0178151455315, 77.3113671038501, 77.6049190621687, 77.8984710204873, 78.1920229788059), unit = 'native', valid.unit = 4L, class = 'unit'), y = structure(c(0.000292389503184205, 0.000897790147984954, 0.00234624782100963, 0.00521720896677798, 0.00989423163518025, 0.015999825469344, 0.0221693602680603, 0.0266484406702544, 0.0287592128884921, 0.0302032637184832, 0.0349150884986298, 0.0473117449499264, 0.069811568153779, 0.101849712371392, 0.14014558800306, 0.179532924691013, 0.213121481011927, 0.233373692723354, 0.235396372946243, 0.221556776074102, 0.201658872746641, 0.187397555681655, 0.184299939839784, 0.187901304936084, 0.186879499085897, 0.171534710980926, 0.140953197828419, 0.103411084284294, 0.0700968149951466, 0.0478115464491638, 0.0363916682131507, 0.0310202066683672, 0.0267344490723088, 0.0212112857883806, 0.0149149265224817, 0.00956339674119522, 0.00665150505587597, 0.00689835920722663, 0.010231338259878, 0.0157315524205489, 0.0215689799990253, 0.0254154063025622, 0.0255363521874538, 0.0218531199052928, 0.0159232922023665, 0.00987834564939972, 0.00521442208935573, 0.00234582757042574, 0.000897736459776011, 0.000292383673435392), unit = 'native', valid.unit = 4L, class = 'unit'), arrow = NULL, name = 'plot_02.density.lines.panel.3.1', gp = structure(list(lty = 1, col = '#0080ff', lwd = 1, alpha = 1), .Names = c('lty', 'col', 'lwd', 'alpha'), class = 'gpar'), vp = NULL), .Names = c('x', 'y', 'arrow', 'name', 'gp', 'vp'), class = c('lines', 'grob', 'gDesc')));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible37
+#argv <- list(structure(list(sec = numeric(0), min = integer(0), hour = integer(0), mday = integer(0), mon = integer(0), year = integer(0), wday = integer(0), yday = integer(0), isdst = integer(0)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC'));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible38
+#argv <- list(structure(list(value = 4.94065645841247e-324, visible = TRUE), .Names = c('value', 'visible')));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible39
+#argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor'), c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = c('c0', 'c0'), row.names = integer(0), class = 'data.frame'));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible4
+#argv <- list(structure(list(height = numeric(0), weight = numeric(0)), .Names = c('height', 'weight'), row.names = integer(0), class = 'data.frame'));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible40
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible41
+#argv <- list(c(1e-10, 1e+49, 1e+108, 1e+167, 1e+226));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible42
+#argv <- list(structure('checkRd: (-3) Surv.Rd:90: Unnecessary braces at ‘{time2}’', class = 'checkRd'));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible43
+#argv <- list(structure(list(raster = structure('#000000', .Dim = c(1L, 1L), class = 'raster'), x = structure(0, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), width = NULL, height = NULL, just = 'centre', hjust = NULL, vjust = NULL, interpolate = TRUE, name = 'GRID.rastergrob.785', gp = structure(list(), class = 'gpar'), vp = NULL), .Names = c('raster', 'x', 'y', 'width', 'height', 'just', 'hjust', 'vjust', 'interpolate', 'name', 'gp', 'vp'), class = c('rastergrob', 'grob', 'gDesc')));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible44
+#argv <- list(structure(c('0', 'NULL', 'NULL'), .Names = c('Length', 'Class', 'Mode'), class = c('summaryDefault', 'table')));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible45
+#argv <- list(structure(list(TEST = structure(c(1L, 2L, 6L, 3L, 4L, 5L, 10L, 11L, 9L, 7L, 8L), .Label = c('1', '2', '4', '5', '\\040', '\\b', '\\n', '\\r', '\\t', '\\x20', 'c:\\spencer\\tests'), class = 'factor')), .Names = 'TEST', class = 'data.frame', row.names = c(NA, -11L)));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible46
+#argv <- list(structure(list(size = numeric(0), isdir = logical(0), mode = structure(integer(0), class = 'octmode'), mtime = structure(numeric(0), class = c('POSIXct', 'POSIXt')), ctime = structure(numeric(0), class = c('POSIXct', 'POSIXt')), atime = structure(numeric(0), class = c('POSIXct', 'POSIXt')), uid = integer(0), gid = integer(0), uname = character(0), grname = character(0)), .Names = c('size', 'isdir', 'mode', 'mtime', 'ctime', 'atime', 'uid', 'gid', 'uname', 'grname'), class = 'data.frame', row.names = character(0)));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible47
+#argv <- list(structure(list(a = c(1L, 4L, 7L), b = c(2L, 5L, 8L), c = c(3L, 6L, 9L)), .Names = c('a', 'b', 'c'), class = 'data.frame', row.names = c(NA, -3L)));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible49
+#argv <- list(structure('Error in rnorm(1, sd = Inf) : (converted from warning) NAs produced\n', class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(1, sd = Inf))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible50
+#argv <- list(structure(1395078479.75887, class = c('POSIXct', 'POSIXt')));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible51
+#argv <- list(structure('Error in read.table(\'foo1\') : no lines available in input\n', class = 'try-error', condition = structure(list(message = 'no lines available in input', call = quote(read.table('foo1'))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible52
+#argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Dim = c(10L, 2L), .Dimnames = list(NULL, c('tt', 'tt + 1')), .Tsp = c(1920.5, 1921.25, 12), class = c('mts', 'ts', 'matrix')));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible6
+#argv <- list(structure(list(call = quote(lm(formula = y ~ x1 + x2 + x3)), terms = quote(y ~ x1 + x2 + x3), residuals = structure(c(0.224762433374997, 0.4813346401898, -0.548705796690786, -0.873306430909872, 0.3255545927283, -0.288240908441576, 0.530823516045489, -0.0649703574297026, 1.2699009772491, -1.05715266611575), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), coefficients = structure(c(1.47191076131574, 0.586694550701453, 0.258706725324317, 0.948371836939988, 0.396080061109718, 0.350912037541581, 1.55203972111298, 1.48125242421363, 0.737240953991673, 0.164593338447767, 0.182090654313858, 0.484947927602608), .Dim = 3:4, .Dimnames = list(c('(Intercept)', 'x1', 'x3'), c('Estimate', 'Std. Error', 't value', 'Pr(>|t|)'))), aliased = structure(c(FALSE, FALSE, TRUE, FALSE), .Names = c('(Intercept)', 'x1', 'x2', 'x3')), sigma = 0.806334473232766, df = c(3L, 7L, 4L), r.squared = 0.932605950232242, adj.r.squared = 0.913350507441455, fstatistic = structure(c(48.4333681840033, 2, 7), .Names = c('value', 'numdf', 'dendf')), cov.unscaled = structure(c(1.38333333333333, -0.525000000000001, 0.416666666666667, -0.525000000000001, 0.241287878787879, -0.208333333333334, 0.416666666666667, -0.208333333333334, 0.18939393939394), .Dim = c(3L, 3L), .Dimnames = list(c('(Intercept)', 'x1', 'x3'), c('(Intercept)', 'x1', 'x3'))), correlation = structure(c(1, -0.908715905467124, 0.814033538872717, -0.908715905467124, 1, -0.974558628915209, 0.814033538872717, -0.974558628915209, 1), .Dim = c(3L, 3L), .Dimnames = list( c('(Intercept)', 'x1', 'x3'), c('(Intercept)', 'x1', 'x3'))), symbolic.cor = FALSE), .Names = c('call', 'terms', 'residuals', 'coefficients', 'aliased', 'sigma', 'df', 'r.squared', 'adj.r.squared', 'fstatistic', 'cov.unscaled', 'correlation', 'symbolic.cor'), class = 'summary.lm'));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible7
+#argv <- list(structure(list(call = quote(lm(formula = y ~ 0)), terms = quote(y ~ 0), aliased = logical(0), residuals = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), df = c(0L, 10L, 0L), coefficients = structure(logical(0), .Dim = c(0L, 4L), .Dimnames = list(NULL, c('Estimate', 'Std. Error', 't value', 'Pr(>|t|)'))), sigma = 0.523484262069588, adj.r.squared = 0, r.squared = 0), .Names = c('call', 'terms', 'aliased', 'residuals', 'df', 'coefficients', 'sigma', 'adj.r.squared', 'r.squared'), class = 'summary.lm'));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltininvisible.testinvisible8
+#argv <- list(structure(list(width = 80L, minIndent = 10L, extraIndent = 4L, sectionIndent = 5L, sectionExtra = 2L, itemBullet = '• ', enumFormat = function (n) sprintf('%d. ', n), showURLs = FALSE, code_quote = TRUE, underline_titles = FALSE), .Names = c('width', 'minIndent', 'extraIndent', 'sectionIndent', 'sectionExtra', 'itemBullet', 'enumFormat', 'showURLs', 'code_quote', 'underline_titles')));invisible(argv[[1]]);
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisarray.testisarray1
+#argv <- list(structure(list(weight = c(4.17, 5.58), group = structure(c(1L, 1L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = c('weight', 'group'), row.names = 1:2, class = 'data.frame'));is.array(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisarray.testisarray10
+#argv <- list(structure(integer(0), .Names = character(0)));is.array(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisarray.testisarray11
+#argv <- list(structure(list(c0 = logical(0)), .Names = 'c0', row.names = integer(0), class = 'difftime'));is.array(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisarray.testisarray12
+#argv <- list(structure(list(B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c('I', 'II', 'III', 'IV', 'V', 'VI'), class = 'factor'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c('Golden.rain', 'Marvellous', 'Victory'), class = 'factor'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt'), class = 'factor'), Y = c(130L, 157L, 174L, 117L, 114L, 161L, 141L, 105L, 140L, 118L, 156L, 61L, 91L, 97L, 100L, 70L, 108L, 126L, 149L, 96L, 124L, 121L, 144L, 68L, 64L, 112L, 86L, 60L, 102L, 89L, 96L, 89L, 129L, 132L, 124L, 74L, 89L, 81L, 122L, 64L, 103L, 132L, 133L, 70L, 89L, 104L, 117L, 62L, 90L, 100L, 116L, 80L, 82L, 94L, 126L, 63L, 70L, 109L, 99L, 53L, 74L, 118L, 113L, 89L, 82L, 86L, 104L, 97L, 99L, 119L, 121L)), .Names = c('B', 'V', 'N', 'Y'), row.names = 2:72, class = 'data.frame'));is.array(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisarray.testisarray13
+#argv <- list(1.79769313486232e+308);is.array(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisarray.testisarray17
+#argv <- list(c('1', '2', NA));is.array(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisarray.testisarray18
+#argv <- list(structure(list(y = c(0.219628047744843, 0.360454661130887, NA, 0.114681204747219, -1.14267533343616, 0.772374419482067, 0.681741904304867, 0.171869265068012, 2.08409180391906, 0.367547276775469), x1 = c(1L, 2L, 3L, NA, 5L, 6L, 7L, 8L, 9L, 10L), x2 = 1:10, x3 = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), wt = c(0, 1, 1, 1, 1, 1, 1, 1, 1, 1)), .Names = c('y', 'x1', 'x2', 'x3', 'wt'), row.names = c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j'), class = 'data.frame'));is.array(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisarray.testisarray19
+#argv <- list(structure(list(x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861)), .Names = c('x', 'y'), row.names = c(NA, -10L), class = 'data.frame'));is.array(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisarray.testisarray2
+#argv <- list(structure(list(weight = c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = c('weight', 'group'), row.names = c(NA, -20L), class = 'data.frame'));is.array(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisarray.testisarray21
+#argv <- list(integer(0));is.array(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisarray.testisarray23
+#argv <- list(c(0.568, 1.432, -1.08, 1.08));is.array(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisarray.testisarray4
+#argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.array(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisarray.testisarray7
+#argv <- list(c('2001-01-01', NA, NA, '2004-10-26'));is.array(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisarray.testisarray8
+#argv <- list(structure(list(breaks = c(26, 30, 54, 25, 70, 52, 51, 26, 67, 27, 14, 29, 19, 29, 31, 41, 20, 44), wool = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('A', 'B'), class = 'factor'), tension = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c('L', 'M', 'H'), class = 'factor')), .Names = c('breaks', 'wool', 'tension'), row.names = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L), class = 'data.frame'));is.array(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisarray.testisarray9
+#argv <- list(structure(list(carb = c(33, 40, 37, 27, 30, 43, 34, 48, 30, 38, 50, 51, 30, 36, 41, 42, 46, 24, 35, 37), age = c(33, 47, 49, 35, 46, 52, 62, 23, 32, 42, 31, 61, 63, 40, 50, 64, 56, 61, 48, 28), wgt = c(100, 92, 135, 144, 140, 101, 95, 101, 98, 105, 108, 85, 130, 127, 109, 107, 117, 100, 118, 102), prot = c(14, 15, 18, 12, 15, 15, 14, 17, 15, 14, 17, 19, 19, 20, 15, 16, 18, 13, 18, 14)), .Names = c('carb', 'age', 'wgt', 'prot'), row.names = c(NA, -20L), class = 'data.frame'));is.array(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic1
+#argv <- list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12'));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic10
+#argv <- list(structure(c(123.263157894737, 88.6052631578949, 77.0526315789476, 60.9473684210528, 54.3947368421055, 43.8421052631581, 34.2894736842107, 14.7368421052633, 10.6315789473686, 1.07894736842124, -9.47368421052613, -11.0263157894735, -16.1315789473682, -13.6842105263156, -3.23684210526298, -1.34210526315772, 11.1052631578949, -0.44736842105246, 7.00000000000017, 7.4473684210528, 6.89473684210543, 5.34210526315806, -8.21052631578931, -15.7631578947367, -3.31578947368405, 24.5789473684212, 27.0263157894738, 26.4736842105265, 21.9210526315791, 23.3684210526317, 27.263157894737, 19.6052631578949, 21.0526315789475, 26.5000000000001, 22.9473684210528, 12.3947368421054, 1.84210526315803, 5.28947368421066, -1.81578947368408, 4.63157894736855, 24.5263157894738, 10.9736842105264, 4.42105263157907, -10.1315789473683, -10.6842105263157, 12.763157894737, 33.2105263157896, 35.1052631578949, 44.5526315789475, 41.0000000000001, 46.4473684210527, 59.8947368421054, 69.342105263158, 64.7894736842106, 48.6842105263159, 63.1315789473685, 54.0263157894738, 46.4736842105264, 41.921052631579, 35.3684210526317, 27.8157894736843, 32.2631578947369, 36.7105263157896, 32.1578947368422, 23.6052631578948, 14.0526315789475, 12.5000000000001, -5.05263157894728, 9.84210526315798, 7.28947368421061, 16.7368421052632, 13.1842105263159, 13.6315789473685, 7.07894736842113, 9.52631578947376, 6.42105263157902, 4.31578947368428, -7.23684210526309, -15.7894736842105, 0.657894736842167, -5.8947368421052, 0.552631578947427, 7.44736842105269, -10.1052631578947, -3.65789473684205, 0.789473684210577, 7.23684210526321, 16.6842105263158, 7.13157894736847, -4.4210526315789, -5.97368421052627, -11.5263157894736, -4.07894736842101, -16.6315789473684, -14.1842105263158, -19.7368421052631, -11.2894736842105, -5.84210526315786, -13.3947368421052, -14.9473684210526, -15.5, -21.0526315789473, -6.60526315789471, -14.1578947368421, -8.71052631578945, -6.26315789473682, -11.8157894736842, -19.3684210526316, -6.92105263157893, -18.4736842105263, -19.0263157894737, -15.578947368421, -16.1315789473684, -12.6842105263158, 5.76315789473685, 3.21052631578948, 2.65789473684211, 5.10526315789474, 11.5526315789474), .Names = c('11', '12', '13', '15', '26', '30', '31', '53', '54', '59', '60', '65', '71', '81', '88', '92', '93', '95', '105', '107', '110', '116', '118', '131', '132', '135', '142', '144', '147', '156', '163', '166', '170', '174', '175', '176', '177', '179', '180', '181', '183', '185', '188', '189', '191', '196', '197', '202', '207', '210', '212', '218', '221', '222', '223', '225', '229', '230', '237', '239', '246', '259', '267', '269', '270', '279', '283', '284', '285', '286', '288', '291', '292', '300', '301', '303', '306', '310', '320', '329', '337', '353', '363', '364', '371', '387', '390', '394', '404', '413', '428', '429', '442', '444', '455', '457', '458', '460', '477', '519', '524', '533', '558', '567', '574', '583', '613', '624', '643', '655', '689', '707', '791', '806', '814', '840', '883', '1010', '1022')));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic11
+#argv <- list(structure(c(0, -0.0555555555555556, 0.02, 0.0625, 0.0625, 0.04, 0, 0), .Dim = c(8L, 1L), .Dimnames = list(c('2', '3', '6', '7', '8', '9', '14', '17'), 'x')));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic12
+#argv <- list(structure(c(2.21843970753346, 1.80732678656753, -1.09399175987006, 0.585986462327552, -5.68458926982395, 1.23352238598674, 0.457950438444482, 2.51599006679516, -2.28780372840319, 5.53596062467695, 2.17890565095959, -1.59611751350773, -2.9672978602151, 0.745175851232308, 1.93388282434376, -3.03559459078455, 2.19500990255906, 0.0725275773318347, -0.75336064096447, -1.15505962102859, -2.84782886882524, -1.41070341448251, -0.540252474026749, 4.87719739781058, 0.890715639552621, -0.968642103099399, 1.73177156113283, -0.993218102309356, -0.656454198323984, -1.5299506933835, -0.298424468882268, 6.51011264717937, 2.68326774833378, 1.99295445531679, -0.214079422583434, 6.73505308264589, -4.54579214489424, -2.3991834444486, -1.71479569181251, -6.47293095421849, -1.67116930820449, -11.5853328029437, -2.48588878138021, -0.888857646918452, 8.06807102468956, -0.216046323028316, 6.24682938323398, -1.74761908105831, 2.53082303181417, 2.31410662801887, 2.97453294161523, -2.88723068649699, -1.04144266580674, -0.835536300630093, -6.10229135345437, -4.37605802846523, -1.94289029309402e-16, 5.96619037131792, -1.1474434665393, 3.78819830631063, -3.01580771910632, -0.656454198323984, 1.50824785799851, -2.06401783962239, -3.02346226775125, 0.407243897855763, -3.96478352340807, -2.12718621336067, -0.78924288871239, -3.03559459078455, 0.457950438444496, -0.797900839851943, -3.38233849466459, 1.97815029009903, 0.745175851232309, -1.09645503136389, 0.341748714147263, 7.32472922782987, -1.33672649241008, 1.51931399477032, 0.00590129163826772, -4.09533092706814, 0.195481697042187, -2.7736762657602, -3.48737543915568, 0.536312040203338, 0.775871729180551, 4.37979177946206, 1.30271070089245, 4.2132287611068, 7.33457656622414, 3.28311350719274, -1.30271070089245), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93')));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic13
+#argv <- list(c(1, 0, 2, NA, 3));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic14
+#argv <- list(c(1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.00566013786017473, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.00900237050730269, -0.728901016108085, 1, 0, 0, 0, 0, 0, 0, 0, 0, -0.0165439610603712, 0.195986923200517, -0.65974257839475, 1, 0, 0, 0, 0, 0, 0, 0, -0.066085607580362, -0.0156976524162818, 0.173905017001082, -0.499536921684336, 1, 0, 0, 0, 0, 0, 0, -0.0738085645370442, -0.0203225592950423, -0.115986092442635, 0.0129919901272555, -0.442920654638837, 1, 0, 0, 0, 0, 0, 0.0393894522336503, -0.0197375262983596, -0.124011676515792, -0.217221939591068, -0.129869023991585, -0.565387274218169, 1, 0, 0, 0, 0, 0.0607863121945582, -0.0166644168652946, -0.107337280394758, -0.197961946387821, -0.278643450192551, -0.207586147284064, -0.767412521925717, 1, 0, 0, 0, 0.062350529551034, -0.00752786862124525, -0.0512212310455943, -0.0966787787982999, -0.13451920005707, -0.183723918913255, -0.15174930099133, -1.08016400642495, 1, 0, 0, 0.00956599068508591, -0.00134207672049057, -0.00895378984363029, -0.0175914048294707, -0.0252596683886793, -0.0334470581271047, -0.0623904491074943, 0.117178336161866, -1.32461347964996, 1, 0, -0.000288769768734922, -7.2526747819756e-05, -0.000396728614559744, -0.000760325293277726, -0.00119170347009929, -0.00158048211775626, -0.00256503558312322, -0.00605270851626604, 0.3995724375217, -0.740914424130097, 1));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic15
+#argv <- list(structure(list(age = 62.4473684210526, age.strata.sex.sex.2 = 24.109649122807), .Names = c('age', 'age.strata.sex.sex.2'), row.names = c(NA, -1L), class = 'data.frame'));is.atomic(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic16
+#argv <- list(structure(list(base = c(11L, 11L, 6L, 8L, 66L, 27L, 12L, 52L, 23L, 10L, 52L, 33L, 18L, 42L, 87L, 50L, 18L, 111L, 18L, 20L, 12L, 9L, 17L, 28L, 55L, 9L, 10L, 47L, 76L, 38L, 19L, 10L, 19L, 24L, 31L, 14L, 11L, 67L, 41L, 7L, 22L, 13L, 46L, 36L, 38L, 7L, 36L, 11L, 151L, 22L, 41L, 32L, 56L, 24L, 16L, 22L, 25L, 13L, 12L)), .Names = 'base', class = 'data.frame', row.names = c(1L, 5L, 9L, 13L, 17L, 21L, 25L, 29L, 33L, 37L, 41L, 45L, 49L, 53L, 57L, 61L, 65L, 69L, 73L, 77L, 81L, 85L, 89L, 93L, 97L, 101L, 105L, 109L, 113L, 117L, 121L, 125L, 129L, 133L, 137L, 141L, 145L, 149L, 153L, 157L, 161L, 165L, 169L, 173L, 177L, 181L, 185L, 189L, 193L, 197L, 201L, 205L, 209L, 213L, 217L, 221L, 225L, 229L, 233L)));is.atomic(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic17
+#argv <- list(c(0, 0, 0, 0, 0, 0, 2.47032822920623e-323, 0, 0, 0, 0, 0));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic18
+#argv <- list(structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic19
+#argv <- list(c(NA, 'Ripley', 'Venables & Smith'));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic2
+#argv <- list(structure(c(1, 2, 3, 0, 10, NA), .Dim = c(3L, 2L)));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic20
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic21
+#argv <- list(structure(FALSE, .Tsp = c(1, 1, 1), class = 'ts'));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic22
+#argv <- list(structure(numeric(0), .Dim = c(4L, 0L)));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic24
+#argv <- list(structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L, 4L, 4L, 4L), .Label = c('freckle', 'superficial', 'nodular', 'indeterminate'), class = 'factor', contrasts = 'contr.treatment'));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic25
+#argv <- list(raw(0));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic26
+#argv <- list(c(19.7787405591752, 12504507.4953993, 12504507.4953993, 5.96190157728191e+41));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic27
+#argv <- list(character(0));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic28
+#argv <- list(structure(list(a1 = 1:3, a2 = 4:6, a3 = 3.14159265358979, a4 = c('a', 'b', 'c')), .Names = c('a1', 'a2', 'a3', 'a4')));is.atomic(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic29
+#argv <- list(structure(c(2L, 1L, 3L), .Label = c('1', '2', NA), class = 'factor'));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic3
+#argv <- list(structure(list(x = 1:10, yyy = 11:20), .Names = c('x', 'yyy'), row.names = c(NA, -10L), class = 'data.frame'));is.atomic(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic30
+#argv <- list(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic31
+#argv <- list(c(2L, 1L, NA));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic4
+#argv <- list(c(-1.12778377684043, -12820.0784261145, -21650982809.6744, -473300382255715392, -6.08456909882282e+25, -3.04622557026196e+34, -4.60125024792566e+43, -1.76183826972506e+53, -1.5069799345972e+63, -2.61556777274611e+73, -8.54170618068872e+83, -4.9383857330861e+94, -4.80716085942859e+105, -7.55412056676629e+116, -1.84898368353639e+128, -6.83535188151783e+139, -3.71562599613334e+151, -2.90089508183654e+163, -3.18582547396557e+175, -4.83110332887119e+187, -9.94902790498679e+199, -2.74100158340596e+212, -9.96611412047338e+224, -4.72336572671053e+237, -2.88514442494869e+250, -2.24780296109123e+263, -2.21240023126594e+276, -2.72671165723473e+289, -4.17369555651928e+302, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic5
+#argv <- list(c(2.5, 6, 6, 7.5, 8, 8, 16, 6, 5, 6, 28, 5, 9.5, 6, 4.5, 10, 14, 3, 4.5, 5.5, 3, 3.5, 6, 2, 3, 4, 6, 5, 6.5, 5, 10, 6, 18, 4.5, 20));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic6
+#argv <- list(structure(c(1, 2, 2, 3, 3, 3, 4, 5), .Names = c('dsyMatrix', 'ddenseMatrix', 'symmetricMatrix', 'dMatrix', 'denseMatrix', 'compMatrix', 'Matrix', 'mMatrix')));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic7
+#argv <- list(c(-Inf, -Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic8
+#argv <- list(structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c('w', 'w2'))));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisatomic.testisatomic9
+#argv <- list(structure(c(TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE), .Names = c('1', '2', '3', '4', '5', '6', '7', '8')));is.atomic(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinischaracter.testischaracter1
+#argv <- list('pch');is.character(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinischaracter.testischaracter2
+#argv <- list(structure(list(mai = c(0.51, 0.41, 0.41, 0.21), mar = c(5.1, 4.1, 4.1, 2.1), cex = 1, yaxs = 'r'), .Names = c('mai', 'mar', 'cex', 'yaxs')));is.character(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinischaracter.testischaracter3
+#argv <- list(structure(list(usr = c(-0.04, 1.04, -0.04, 1.04), mgp = c(3, 1, 0)), .Names = c('usr', 'mgp')));is.character(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinischaracter.testischaracter4
+#argv <- list(c(-1, 1, -1, 1));is.character(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinischaracter.testischaracter5
+#argv <- list(structure(list(usr = c(-4.82721591443179, -1.44459960821772, -4.82721591443179, -1.44459960821772)), .Names = 'usr'));is.character(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinischaracter.testischaracter6
+#argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'character(0)', row.names = character(0), class = 'data.frame'));is.character(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinischaracter.testischaracter7
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.character(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinischaracter.testischaracter8
+#argv <- list(structure(c(238L, 154L, 73L), .Dim = c(3L, 1L), .Dimnames = list(c('red', 'green', 'blue'), NULL)));is.character(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltiniscomplex.testiscomplex1
+#argv <- list(integer(0));is.complex(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltiniscomplex.testiscomplex2
+#argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'character(0)', row.names = character(0), class = 'data.frame'));is.complex(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltiniscomplex.testiscomplex5
+#argv <- list(1.3+0i);is.complex(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltiniscomplex.testiscomplex6
+#argv <- list(complex(0));is.complex(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltiniscomplex.testiscomplex7
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.complex(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisdouble.testisdouble1
+#argv <- list(list(1, list(3, 'A')));is.double(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisdouble.testisdouble3
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.double(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisdouble.testisdouble4
+#argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'character(0)', row.names = character(0), class = 'data.frame'));is.double(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisenvironment.testisenvironment1
+#argv <- list(structure(list(B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c('I', 'II', 'III', 'IV', 'V', 'VI'), class = 'factor'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c('Golden.rain', 'Marvellous', 'Victory'), class = 'factor'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt'), class = 'factor'), Y = c(130L, 157L, 174L, 117L, 114L, 161L, 141L, 105L, 140L, 118L, 156L, 61L, 91L, 97L, 100L, 70L, 108L, 126L, 149L, 96L, 124L, 121L, 144L, 68L, 64L, 112L, 86L, 60L, 102L, 89L, 96L, 89L, 129L, 132L, 124L, 74L, 89L, 81L, 122L, 64L, 103L, 132L, 133L, 70L, 89L, 104L, 117L, 62L, 90L, 100L, 116L, 80L, 82L, 94L, 126L, 63L, 70L, 109L, 99L, 53L, 74L, 118L, 113L, 89L, 82L, 86L, 104L, 97L, 99L, 119L, 121L)), .Names = c('B', 'V', 'N', 'Y'), row.names = 2:72, class = 'data.frame'));is.environment(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisenvironment.testisenvironment10
+#argv <- list(structure(list(breaks = c(26, 30, 54, 25, 70, 52, 51, 26, 67, 18, 21, 29, 17, 12, 18, 35, 30, 36, 36, 21, 24, 18, 10, 43, 28, 15, 26, 27, 14, 29, 19, 29, 31, 41, 20, 44, 42, 26, 19, 16, 39, 28, 21, 39, 29, 20, 21, 24, 17, 13, 15, 15, 16, 28), wool = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('A', 'B'), class = 'factor'), tension = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('L', 'M', 'H'), class = 'factor')), .Names = c('breaks', 'wool', 'tension'), row.names = c(NA, -54L), class = 'data.frame'));is.environment(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisenvironment.testisenvironment11
+#argv <- list(structure(list(y = c(0.219628047744843, 0.360454661130887, NA, 0.114681204747219, -1.14267533343616, 0.772374419482067, 0.681741904304867, 0.171869265068012, 2.08409180391906, 0.367547276775469), x1 = c(1L, 2L, 3L, NA, 5L, 6L, 7L, 8L, 9L, 10L), x2 = 1:10, x3 = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), wt = c(0, 1, 1, 1, 1, 1, 1, 1, 1, 1)), .Names = c('y', 'x1', 'x2', 'x3', 'wt'), row.names = c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j'), class = 'data.frame'));is.environment(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisenvironment.testisenvironment12
+#argv <- list(structure(list(x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861)), .Names = c('x', 'y'), row.names = c(NA, -10L), class = 'data.frame'));is.environment(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisenvironment.testisenvironment13
+#argv <- list(structure(list(weight = c(1.9, 3.1, 3.3, 4.8, 5.3, 6.1, 6.4, 7.6, 9.8, 12.4), depression = c(2, 1, 5, 5, 20, 20, 23, 10, 30, 25)), .Names = c('weight', 'depression'), row.names = c(NA, -10L), class = 'data.frame'));is.environment(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisenvironment.testisenvironment14
+#argv <- list(structure(list(loglik = c(-577.080015666702, -568.702653976085, -567.639101463216, -565.252511135152), Chisq = c(NA, 16.7547233812336, 2.12710502573896, 4.77318065612872), Df = c(NA, 1, 1, 3), `Pr(>|Chi|)` = c(NA, 4.25362427346476e-05, 0.144713844418628, 0.189179603743297)), .Names = c('loglik', 'Chisq', 'Df', 'Pr(>|Chi|)'), row.names = c('NULL', 'ph.ecog', 'wt.loss', 'poly(age, 3)'), class = c('anova', 'data.frame'), heading = 'Analysis of Deviance Table\n Cox model: response is Surv(time, status)\nTerms added sequentially (first to last)\n'));is.environment(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisenvironment.testisenvironment16
+#argv <- list(numeric(0));is.environment(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisenvironment.testisenvironment2
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.environment(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisenvironment.testisenvironment3
+#argv <- list(structure(list(ID = c(65L, 65L), Age = c(18L, 18L), OME = structure(c(1L, 1L), .Label = c('N/A', 'high', 'low'), class = 'factor'), Loud = c(35L, 50L), Noise = structure(c(2L, 2L), .Label = c('coherent', 'incoherent'), class = 'factor'), Correct = 0:1, Trials = c(1L, 1L), UID = c(71L, 71L), UIDn = c(71.1, 71.1)), .Names = c('ID', 'Age', 'OME', 'Loud', 'Noise', 'Correct', 'Trials', 'UID', 'UIDn'), row.names = c(691L, 701L), class = 'data.frame'));is.environment(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisenvironment.testisenvironment4
+#argv <- list(c(1.21066831870929-1.66634219937781i, -1.3109785475009-4.03477541783013i, -8.31047673770943-2.70023589529419i, -14.5607479203187+10.5790080335186i, 0.0000113099668+37.0708585836817i, 61.7727497177743+44.8804951883406i, 149.572574104172-48.599145973822i, 100.099969025816-308.076538446181i, -392.173075447774-539.779307378543i, -1374.2485561312+0.00083854036i, -1663.75779164483+2289.96937670968i, 1801.61375934412+5544.78319295828i, 11420.6629218159+3710.7883116515i, 20010.0779347631-14538.198725138i, -0.0466281166-50944.5738831589i, -84891.1497420117-61676.9039120865i, -205549.85324714+66787.431606375i, -137561.979567894+423373.822075425i, 538943.735314369+741790.604941508i, 1888559.09402798-2.30472576i));is.environment(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisenvironment.testisenvironment5
+#argv <- list(structure(c(FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(5L, 5L)));is.environment(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisenvironment.testisenvironment6
+#argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = 'ts'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c('y', 'lag.quarterly.revenue', 'price.index', 'income.level', 'market.potential'), row.names = c('1962.25', '1962.5', '1962.75', '1963', '1963.25', '1963.5', '1963.75', '1964', '1964.25', '1964.5', '1964.75', '1965', '1965.25', '1965.5', '1965.75', '1966', '1966.25', '1966.5', '1966.75', '1967', '1967.25', '1967.5', '1967.75', '1968', '1968.25', '1968.5', '1968.75', '1969', '1969.25', '1969.5', '1969.75', '1970', '1970.25', '1970.5', '1970.75', '1971', '1971.25', '1971.5', '1971.75'), class = 'data.frame'));is.environment(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisenvironment.testisenvironment7
+#argv <- list(structure(c(1+0i, 5+0i, 9+0i, 13+0i, 17+0i, 21+0i, 2+0i, 6+0i, 10+0i, 14+0i, 18+0i, 22+0i, 3+0i, 7+0i, 11+0i, 15+0i, 19+0i, 23+0i, 4+0i, 8+0i, 12+0i, 16+0i, 20+0i, 24+0i), .Dim = c(6L, 4L)));is.environment(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisenvironment.testisenvironment8
+#argv <- list(structure(list(z = c(-3.32814298919898, -2.50040106767383, -1.77388580318944, -1.1253131847654, -0.538436159302777, 0, 0.494272294062615, 0.955576378633541, 1.38763151510367, 1.79457990658358, 2.17975641634868, 2.54588157879649, 2.89520069061619), par.vals = structure(c(14.1116522107389, 16.2879401909036, 18.4642281710683, 20.640516151233, 22.8168041313977, 24.9930921115624, 27.1693800917271, 29.3456680718919, 31.5219560520566, 33.6982440322213, 35.874532012386, 38.0508199925507, 40.2271079727154, 9.77292620586829, 6.94555751970939, 5.3344468962477, 4.29948550876711, 3.58192055542193, 3.05706219239734, 2.6578922832996, 2.34490705796319, 2.09354140228955, 1.88766190416604, 1.71625883349025, 1.57157057930468, 1.44797941211333), .Dim = c(13L, 2L), .Dimnames = list(NULL, c('ymax', 'xhalf')))), .Names = c('z', 'par.vals'), row.names = c(NA, -13L), class = 'data.frame'));is.environment(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisenvironment.testisenvironment9
+#argv <- list(structure(list(GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962, Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551)), .Names = c('GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year', 'Employed'), row.names = 1947:1962, class = 'data.frame'));is.environment(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression1
+#argv <- list(c(20L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 19L, 19L, 19L, 20L, 20L, 20L, 19L, 20L, 19L, 19L, 19L, 20L));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression10
+#argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression11
+#argv <- list(structure(list(var = structure(c(3L, 5L, 3L, 1L, 1L, 1L, 3L, 4L, 1L, 2L, 1L, 1L, 1L), .Label = c('<leaf>', 'frost', 'life.exp', 'population', 'region'), class = 'factor'), n = c(50L, 21L, 13L, 10L, 3L, 8L, 29L, 21L, 4L, 17L, 9L, 8L, 8L), wt = c(50, 21, 13, 10, 3, 8, 29, 21, 4, 17, 9, 8, 8), dev = c(667.7458, 87.3866666666667, 18.8523076923077, 6.989, 2.84666666666667, 28.2, 222.311724137931, 116.909523809524, 10.18, 50.8823529411765, 24.24, 11.62, 14.415), yval = c(7.378, 4.23333333333333, 3.14615384615385, 2.69, 4.66666666666667, 6, 9.6551724137931, 8.56190476190476, 5.2, 9.35294117647059, 8.46666666666667, 10.35, 12.525), complexity = c(0.536203161735203, 0.0604037628905475, 0.0135031040639133, 0.00508384221318095, 0.01, 0.01, 0.136260236048519, 0.0836353757198433, 0.01, 0.0224971133344103, 0.01, 0.01, 0.01), ncompete = c(4L, 4L, 4L, 0L, 0L, 0L, 4L, 4L, 0L, 4L, 0L, 0L, 0L), nsurrogate = c(5L, 4L, 1L, 0L, 0L, 0L, 4L, 3L, 0L, 5L, 0L, 0L, 0L)), .Names = c('var', 'n', 'wt', 'dev', 'yval', 'complexity', 'ncompete', 'nsurrogate'), row.names = c(1L, 2L, 4L, 8L, 9L, 5L, 3L, 6L, 12L, 13L, 26L, 27L, 7L), class = 'data.frame'));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression12
+#argv <- list(structure(c(1, 24.25, 56.5, 56.92771, 86.75, 117), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression13
+#argv <- list(1.79769313486232e+308);is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression14
+#argv <- list(c(1.1+0i, NA, 3+0i));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression15
+#argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression16
+#argv <- list(structure(c('***', '***', '*', '*'), legend = '0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1', class = 'noquote'));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression17
+#argv <- list(structure(c(-0.0880891704401362, -0.508170309402877, -0.00510235947825228, 0.0737329622006759), .Names = c('(Intercept)', 'x1', 'z', 'x1:z')));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression18
+#argv <- list(structure(c(-Inf, -Inf, -2.248e+263, -Inf, -3.777e+116, -1), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression2
+#argv <- list(structure(list(class = c('ordered', 'factor'), levels = character(0)), .Names = c('class', 'levels')));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression20
+#argv <- list(c(-0.5, -0.47979797979798, -0.45959595959596, -0.439393939393939, -0.419191919191919, -0.398989898989899, -0.378787878787879, -0.358585858585859, -0.338383838383838, -0.318181818181818, -0.297979797979798, -0.277777777777778, -0.257575757575758, -0.237373737373737, -0.217171717171717, -0.196969696969697, -0.176767676767677, -0.156565656565657, -0.136363636363636, -0.116161616161616, -0.0959595959595959, -0.0757575757575757, -0.0555555555555555, -0.0353535353535353, -0.0151515151515151, 0.00505050505050508, 0.0252525252525253, 0.0454545454545455, 0.0656565656565657, 0.0858585858585859, 0.106060606060606, 0.126262626262626, 0.146464646464647, 0.166666666666667, 0.186868686868687, 0.207070707070707, 0.227272727272727, 0.247474747474748, 0.267676767676768, 0.287878787878788, 0.308080808080808, 0.328282828282828, 0.348484848484849, 0.368686868686869, 0.388888888888889, 0.409090909090909, 0.429292929292929, 0.44949494949495, 0.46969696969697, 0.48989898989899, 0.51010101010101, 0.53030303030303, 0.550505050505051, 0.570707070707071, 0.590909090909091, 0.611111111111111, 0.631313131313131, 0.651515151515152, 0.671717171717172, 0.691919191919192, 0.712121212121212, 0.732323232323232, 0.752525252525253, 0.772727272727273, 0.792929292929293, 0.813131313131313, 0.833333333333333, 0.853535353535354, 0.873737373737374, 0.893939393939394, 0.914141414141414, 0.934343434343434, 0.954545454545455, 0.974747474747475, 0.994949494949495, 1.01515151515152, 1.03535353535354, 1.05555555555556, 1.07575757575758, 1.0959595959596, 1.11616161616162, 1.13636363636364, 1.15656565656566, 1.17676767676768, 1.1969696969697, 1.21717171717172, 1.23737373737374, 1.25757575757576, 1.27777777777778, 1.2979797979798, 1.31818181818182, 1.33838383838384, 1.35858585858586, 1.37878787878788, 1.3989898989899, 1.41919191919192, 1.43939393939394, 1.45959595959596, 1.47979797979798, 1.5));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression21
+#argv <- list(structure(list(dim = 1L, dimnames = list('a')), .Names = c('dim', 'dimnames')));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression22
+#argv <- list(structure(c(NA, 6346.2), .Names = c('1', '2')));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression23
+#argv <- list(3.97376540705816e-12);is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression3
+#argv <- list(c(TRUE, FALSE, TRUE, NA, FALSE, FALSE, TRUE));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression4
+#argv <- list(structure(list(nationality = structure(c(1L, 2L, 2L, 3L, 3L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(1L, 1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor'), title = structure(c(3L, 6L, 7L, 4L, 2L, 5L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, NA, NA, NA, NA, 1L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('nationality', 'deceased', 'title', 'other.author'), class = 'data.frame', row.names = c(NA, -6L)));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression5
+#argv <- list(structure(c('Min. :10.00 ', '1st Qu.:15.25 ', 'Median :20.50 ', 'Mean :21.67 ', '3rd Qu.:25.50 ', 'Max. :43.00 ', 'A:9 ', 'B:9 ', NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c('', '', '', '', '', ''), c(' breaks', 'wool'))));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression6
+#argv <- list(structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression7
+#argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression8
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisexpression.testisexpression9
+#argv <- list(structure(3.14159265358979, .Tsp = c(1, 1, 1), class = 'ts'));is.expression(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisfinite.testisfinite1
+#argv <- list(c(20.1635649375266, 0.00464806897188935, 7.66871331765456, 12.5627629785965, 11.5797681339384, 12.9719582729673, 25.2769526097163, -1.81739378653632, 0.81215865601413, -3.83170645669318, -0.246853801421158, 3.46135095276697, 2.4554639832607, -3.21187324485145, -3.0183971859156));is.finite(argv[[1]]);
+ [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisfinite.testisfinite11
+#argv <- list(3.18309886183776e-301);is.finite(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisfinite.testisfinite12
+#argv <- list(c(0.0599, 0.00599, 0.000599, 5.99e-05, 5.99e-06, 5.99e-07));is.finite(argv[[1]]);
+[1] TRUE TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisfinite.testisfinite15
+#argv <- list(c(0.0099, 0.099, 0.99, 9.9, 99, 990, 9900, 99000, 990000, 9900000, 9.9e+07, 9.9e+08, 9.9e+09, 9.9e+10));is.finite(argv[[1]]);
+ [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisfinite.testisfinite18
+#argv <- list(structure(1, .Tsp = c(1, 1, 1), class = 'ts'));is.finite(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisfinite.testisfinite2
+#argv <- list(c(NA, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100));is.finite(argv[[1]]);
+ [1] FALSE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [13] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [25] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [37] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [49] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [61] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [73] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [85] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [97] TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisfinite.testisfinite21
+#argv <- list(c(1.86606598307361, 339033474310168, 6.15968019059533e+28, 1.11911250438065e+43, 2.03324321833028e+57, 3.69406826275609e+71, 6.71151400229846e+85, 1.21937162496937e+100, 2.2153975381282e+114, 4.02501267984465e+128, 7.31278553581751e+142, 1.32861276588395e+157, 2.41387071044804e+171, 4.38560576593759e+185, 7.96792382084694e+199, 1.44764060891943e+214, 2.63012470966353e+228, 4.77850368783602e+242, 8.6817546752692e+256, 1.57733192575377e+271));is.finite(argv[[1]]);
+ [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[16] TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisfinite.testisfinite25
+#argv <- list(structure(c(13991, 13995), class = 'Date'));is.finite(argv[[1]]);
+[1] TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisfinite.testisfinite4
+#argv <- list(151.670620533678);is.finite(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisfinite.testisfinite5
+#argv <- list(c(NA, 5, 9, 1, 2, 5, 6, 7, 8, 3, 8));is.finite(argv[[1]]);
+ [1] FALSE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisfinite.testisfinite7
+#argv <- list(c(3.16233404821525, 0.257188565034331, -0.453229834209339, 0.242190153165057, -0.923637244637281, -0.792686406797337, -0.000583432444331871, -0.115409318984254, 0.305847927531439, 0.0246693430266492, 0.461347310132161, -0.236100949717949, 0.28892702011061, -0.134702428025256, -0.00354133265015019, -0.239319416508562, -0.657338306370259, 0.617201588652923, 0.864066808989359, 0.903680787204032, 0.524476724719486, 1.12851069606821, -0.0690532444696005, 0.111965689984579, -0.494558736384601, -0.26678456955063, -0.953423764504691, 0.0388401464034938, -0.280977489674148, -0.0317343673308523, 0.332270617799988, -0.0953997363217814));is.finite(argv[[1]]);
+ [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[16] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[31] TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisinteger.testisinteger1
+#argv <- list(2.74035772634541);is.integer(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisinteger.testisinteger2
+#argv <- list(c(NA, 9, 3, 3));is.integer(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisinteger.testisinteger3
+#argv <- list(c(NA, 0L));is.integer(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisinteger.testisinteger4
+#argv <- list(c(NA, -4.19095158576965e-09));is.integer(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisinteger.testisinteger5
+#argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'character(0)', row.names = character(0), class = 'data.frame'));is.integer(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisinteger.testisinteger6
+#argv <- list(c(-0.6, -0.6, -0.6, -0.6, -0.6, -0.6, -0.6, -0.6, -0.3, -0.3, -0.3, -0.3, -0.3, -0.3, -0.3, -0.3, 0.3, 0.3, 0.3, 0.3, 0.3, 0.3, 0.3, 0.3, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6));is.integer(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisinteger.testisinteger7
+#argv <- list(c(NA, 1L));is.integer(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisinteger.testisinteger8
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.integer(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisinteger.testisinteger9
+#argv <- list(structure(c(1, 1, 1, 1, 1, 1), .Dim = 1:3));is.integer(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage1
+#argv <- list(c(3.14159265358988, 3.14159265358988, 3.14159265358983, 3.14159265358982, 3.14159265358974, 3.14159265358989, 3.14159265358976, 3.14159265358993, 3.14159265358997, 3.14159265358984, 3.14159265358969, 3.14159265358989, 3.14159265358977, 3.14159265358964, 3.14159265358982, 3.14159265358969, 3.14159265358968, 3.1415926535898, 3.14159265358961, 3.14159265358967, 3.14159265358983, 3.14159265358997, 3.14159265358987, 3.14159265358995, 3.14159265358992, 3.14159265358996, 3.14159265358965, 3.14159265358964, 3.14159265358997, 3.14159265358968, 3.14159265358995, 3.14159265358961, 3.14159265358993, 3.14159265358985, 3.14159265358996, 3.14159265358964, 3.1415926535898, 3.1415926535896, 3.14159265358964, 3.14159265358994, 3.14159265358964, 3.14159265358962, 3.14159265358985, 3.14159265358962, 3.14159265358977, 3.14159265358973, 3.14159265358969, 3.14159265358987, 3.14159265358978, 3.14159265358965, 3.14159265358991, 3.14159265358997, 3.14159265358979, 3.1415926535897, 3.14159265358974, 3.14159265358977, 3.14159265358985, 3.14159265358982, 3.14159265358981, 3.14159265358984, 3.14159265358991, 3.14159265358989, 3.14159265358978, 3.14159265358967, 3.1415926535899, 3.14159265358998, 3.14159265358992, 3.14159265358972, 3.14159265358984, 3.14159265358974, 3.14159265358969, 3.14159265358984, 3.14159265358983, 3.14159265358995, 3.14159265358963, 3.14159265358996, 3.14159265358976, 3.14159265358973, 3.14159265358995, 3.14159265358965, 3.14159265358966, 3.1415926535898, 3.14159265358965, 3.14159265358992, 3.14159265358959, 3.14159265358988, 3.14159265358988, 3.14159265358974, 3.14159265358994, 3.14159265358996, 3.1415926535897, 3.14159265358973, 3.14159265358971, 3.14159265358986, 3.14159265358998, 3.14159265358984, 3.14159265358988, 3.1415926535896, 3.1415926535897, 3.14159265358985, 3.14159265358983));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage10
+#argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage11
+#argv <- list(numeric(0));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage13
+#argv <- list(structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage14
+#argv <- list(c(NA, NA, 0, NA, NA, NA, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 0, NA, NA, NA, NA, NA, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage15
+#argv <- list(c(3L, 3L, NA, 3L, 4L, 3L, NA, 3L, 3L, 3L, 3L, 2L, 3L, 3L, 4L, 3L, 2L, 2L, 3L, 5L, 2L, 2L, 2L, 4L, 3L, 3L, 3L, 3L, 4L, 4L, 3L, 3L, 4L, 3L, 4L, 3L, 3L, 4L, 3L, 1L, 3L, 3L, 5L, 3L, NA, 2L, 4L, 1L, 3L, 3L, NA, 2L, 5L, 3L, 4L, 4L, 5L, 4L, 4L, 3L, 5L, 4L, 4L, NA, 3L, 5L, 5L, 5L, 5L, 4L, 5L, 4L, 4L, 5L));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage16
+#argv <- list(structure(list(nationality = structure(c(1L, 2L, 2L, 3L, 3L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(1L, 1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor'), title = structure(c(3L, 6L, 7L, 4L, 2L, 5L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, NA, NA, NA, NA, 1L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('nationality', 'deceased', 'title', 'other.author'), class = 'data.frame', row.names = c(NA, -6L)));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage17
+#argv <- list(structure(list(x = c(0.3, 3.6, 6.2, 3.8, 3.1, 4.1, 6), y = c(6.1, 6.2, 5.2, 2.3, 1.1, 0.8, 0.1)), .Names = c('x', 'y'), row.names = c(1L, 4L, 12L, 31L, 37L, 48L, 50L), class = 'data.frame'));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage18
+#argv <- list(c('1', '2', NA));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage19
+#argv <- list(structure(c(9, 13, 13, 18, 23, 28, 31, 34, 45, 48, 161, 5, 5, 8, 8, 12, 16, 23, 27, 30, 33, 43, 45, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1), .Dim = c(23L, 2L), .Dimnames = list(NULL, c('time', 'status')), type = 'right', class = 'Surv'));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage2
+#argv <- list(structure(c(FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE), .Dim = 16:17));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage20
+#argv <- list(c(0.923879532511287+0.38268343236509i, 0.707106781186548+0.707106781186547i, 0.38268343236509+0.923879532511287i, 0+1i, -0.38268343236509+0.923879532511287i, -0.707106781186547+0.707106781186548i, -0.923879532511287+0.38268343236509i, -1+0i, -0.923879532511287-0.38268343236509i, -0.707106781186548-0.707106781186547i, -0.38268343236509-0.923879532511287i, 0-1i, 0.38268343236509-0.923879532511287i, 0.707106781186547-0.707106781186548i, 0.923879532511287-0.38268343236509i, 1-0i));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage21
+#argv <- list(integer(0));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage23
+#argv <- list(c(0.568, 1.432, -1.08, 1.08));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage24
+#argv <- list('«Latin-1 accented chars»: éè øØ å<Å æ<Æ');is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage3
+#argv <- list(structure(c(-5.96781464124519, -6.49437440734601, -3.09795335180399, -6.0516983940436, 2.94181419227242, 1.32243907887975, -6.14000748997388, -1.17705131190311), .Dim = c(4L, 2L), .Dimnames = list(c('Murder', 'Assault', 'UrbanPop', 'Rape'), c('PC1', 'PC2'))));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage4
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage6
+#argv <- list(1.79769313486232e+308);is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage7
+#argv <- list(c('2001-01-01', NA, NA, '2004-10-26'));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage8
+#argv <- list(c(0+0i, 0.00809016994374947-0.00587785252292473i, 0.0161803398874989-0.0117557050458495i, 0.0242705098312484-0.0176335575687742i, 0.0323606797749979-0.0235114100916989i, 0.0404508497187474-0.0293892626146237i, 0.0485410196624968-0.0352671151375484i, 0.0566311896062463-0.0411449676604731i, 0.0647213595499958-0.0470228201833979i, 0.0728115294937453-0.0529006727063226i, 0.0809016994374947-0.0587785252292473i, 0.0889918693812442-0.0646563777521721i, 0.0970820393249937-0.0705342302750968i, 0.105172209268743-0.076412082798022i, 0.113262379212493-0.082289935320946i, 0.121352549156242-0.088167787843871i, 0.129442719099992-0.094045640366796i, 0.137532889043741-0.09992349288972i, 0.14562305898749-0.105801345412645i, 0.15371322893124-0.11167919793557i, 0.16180339887499-0.117557050458495i, 0.169893568818739-0.123434902981419i, 0.177983738762488-0.129312755504344i, 0.186073908706238-0.135190608027269i, 0.194164078649987-0.141068460550194i, 0.202254248593737-0.146946313073118i, 0.210344418537486-0.152824165596043i, 0.218434588481236-0.158702018118968i, 0.226524758424985-0.164579870641893i, 0.234614928368735-0.170457723164817i, 0.242705098312484-0.176335575687742i, 0.250795268256234-0.182213428210667i, 0.258885438199983-0.188091280733591i, 0.266975608143733-0.193969133256516i, 0.275065778087482-0.199846985779441i, 0.283155948031232-0.205724838302366i, 0.291246117974981-0.21160269082529i, 0.29933628791873-0.217480543348215i, 0.30742645786248-0.22335839587114i, 0.315516627806229-0.229236248394065i, 0.323606797749979-0.235114100916989i, 0.331696967693728-0.240991953439914i, 0.339787137637478-0.246869805962839i, 0.347877307581227-0.252747658485764i, 0.355967477524977-0.258625511008688i, 0.364057647468726-0.264503363531613i, 0.372147817412476-0.270381216054538i, 0.380237987356225-0.276259068577462i, 0.388328157299975-0.282136921100387i, 0.396418327243724-0.288014773623312i, 0.404508497187474-0.293892626146237i, 0.412598667131223-0.299770478669161i, 0.420688837074973-0.305648331192086i, 0.428779007018722-0.311526183715011i, 0.436869176962472-0.317404036237936i, 0.444959346906221-0.32328188876086i, 0.453049516849971-0.329159741283785i, 0.46113968679372-0.33503759380671i, 0.469229856737469-0.340915446329634i, 0.477320026681219-0.346793298852559i, 0.485410196624968-0.352671151375484i, 0.493500366568718-0.358549003898409i, 0.501590536512467-0.364426856421333i, 0.509680706456217-0.370304708944258i, 0.517770876399966-0.376182561467183i, 0.525861046343716-0.382060413990108i, 0.533951216287465-0.387938266513032i, 0.542041386231215-0.393816119035957i, 0.550131556174964-0.399693971558882i, 0.558221726118714-0.405571824081807i, 0.566311896062463-0.411449676604731i, 0.574402066006213-0.417327529127656i, 0.582492235949962-0.423205381650581i, 0.590582405893712-0.429083234173506i, 0.598672575837461-0.43496108669643i, 0.60676274578121-0.440838939219355i, 0.61485291572496-0.44671679174228i, 0.62294308566871-0.452594644265205i, 0.631033255612459-0.458472496788129i, 0.639123425556208-0.464350349311054i, 0.647213595499958-0.470228201833979i, 0.655303765443707-0.476106054356903i, 0.663393935387457-0.481983906879828i, 0.671484105331206-0.487861759402753i, 0.679574275274956-0.493739611925678i, 0.687664445218705-0.499617464448602i, 0.695754615162455-0.505495316971527i, 0.703844785106204-0.511373169494452i, 0.711934955049954-0.517251022017377i, 0.720025124993703-0.523128874540301i, 0.728115294937453-0.529006727063226i, 0.736205464881202-0.534884579586151i, 0.744295634824952-0.540762432109075i, 0.752385804768701-0.546640284632i, 0.76047597471245-0.552518137154925i, 0.7685661446562-0.55839598967785i, 0.77665631459995-0.564273842200774i, 0.784746484543699-0.570151694723699i, 0.792836654487448-0.576029547246624i, 0.800926824431198-0.581907399769549i, 0.809016994374947-0.587785252292473i));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislanguage.testislanguage9
+#argv <- list(structure(c(-0.148741651280925, -0.200659450546418, -0.0705810742857073, -0.356547323513813, -0.214670164989233, -0.161150909262745, -0.0362121726544447, -0.259637310505756, -0.142667503568732, -0.113509274827518, -0.0362121726544447, -0.221848749616356, -0.0809219076239261, -0.0969100130080564, 0, -0.113509274827518, -0.0362121726544447, 0, 0.0934216851622351, 0, 0.0644579892269184, 0.113943352306837, 0.161368002234975, 0.0969100130080564, 0.100370545117563, 0.139879086401236, 0.269512944217916, 0.193124598354462, 0.184691430817599, 0.201397124320452, 0.262451089730429, 0.269512944217916, 0.184691430817599, 0.315970345456918, 0.369215857410143, 0.352182518111362, 0.334453751150931, 0.385606273598312, 0.431363764158987, 0.352182518111362, 0.445604203273598, 0.534026106056135, 0.56702636615906, 0.556302500767287, 0.556302500767287, 0.635483746814912, 0.635483746814912, 0.607455023214668, 0.686636269262293, 0.702430536445525, 0.702430536445525, 0.644438589467839, 0.746634198937579, 0.76715586608218, 0.817565369559781, 0.725094521081469, 0.780317312140151, 0.8055008581584, 0.840733234611807, 0.76715586608218, 0.840733234611807, 0.888740960682893, 0.893761762057943, 0.786751422145561, 0.888740960682893, 0.949877704036875, 0.91803033678488, 0.835056101720116, 0.979548374704095, 1.0111473607758, 0.979548374704095, 0.94101424370557, 1.07481644064517, 1.08134730780413, 1.08457627793433, 0.949877704036875, 1.14736710779379, 1.11260500153457, 1.17172645365323, 0.999565488225982, 1.20951501454263, 1.16643011384328, 1.20466251174822, 1.06483221973857), .Tsp = c(1960, 1980.75, 4), class = 'ts'));is.language(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist10
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.list(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist11
+#argv <- list(structure(list(a_string = c('foo', 'bar'), a_bool = FALSE, a_struct = structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = 'foo'), .Names = c('a', 'b', 'c')), a_cell = structure(list(1, 'foo', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'bar'), .Dim = c(2L, 2L)), a_complex_scalar = 0+1i, a_list = list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'foo'), a_complex_matrix = structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), a_range = c(1, 2, 3, 4, 5), a_scalar = 1, a_complex_3_d_array = structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), a_3_d_array = structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), a_matrix = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), a_bool_matrix = structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))), .Names = c('a_string', 'a_bool', 'a_struct', 'a_cell', 'a_complex_scalar', 'a_list', 'a_complex_matrix', 'a_range', 'a_scalar', 'a_complex_3_d_array', 'a_3_d_array', 'a_matrix', 'a_bool_matrix')));is.list(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist12
+#argv <- list(5e-14);is.list(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist13
+#argv <- list(structure(c(NA, 6346.2), .Names = c('1', '2')));is.list(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist14
+#argv <- list(c(1.1+0i, NA, 3+0i));is.list(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist15
+#argv <- list(structure(list(Ozone = c(NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), Solar.R = c(286L, 287L, 242L, 186L, 220L, 264L, 127L, 273L, 291L, 323L, 259L, 250L, 148L, 332L, 322L, 191L, 284L, 37L, 120L, 137L, 150L, 59L, 91L, 250L, 135L, 127L, 47L, 98L, 31L, 138L), Wind = c(8.6, 9.7, 16.1, 9.2, 8.6, 14.3, 9.7, 6.9, 13.8, 11.5, 10.9, 9.2, 8, 13.8, 11.5, 14.9, 20.7, 9.2, 11.5, 10.3, 6.3, 1.7, 4.6, 6.3, 8, 8, 10.3, 11.5, 14.9, 8), Temp = c(78L, 74L, 67L, 84L, 85L, 79L, 82L, 87L, 90L, 87L, 93L, 92L, 82L, 80L, 79L, 77L, 72L, 65L, 73L, 76L, 77L, 76L, 76L, 76L, 75L, 78L, 73L, 80L, 77L, 83L), Month = c(6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), Day = 1:30), .Names = c('Ozone', 'Solar.R', 'Wind', 'Temp', 'Month', 'Day'), row.names = 32:61, class = 'data.frame'));is.list(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist16
+#argv <- list(structure(c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4), .Tsp = c(1945, 1974.75, 4), class = 'ts'));is.list(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist17
+#argv <- list(structure(c('***', '***', '*', '*'), legend = '0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1', class = 'noquote'));is.list(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist18
+#argv <- list(structure(list(`/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/lookup.xport.Rd` = structure(c('read.xport', ''), .Dim = 1:2, .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.S.Rd` = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.arff.Rd` = structure(c('connection', 'write.arff', '', ''), .Dim = c(2L, 2L), .Dimnames = list( NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.dbf.Rd` = structure(c('make.names', 'write.dbf', '', ''), .Dim = c(2L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.dta.Rd` = structure(c('write.dta', 'attributes', 'Date', 'factor', '', '', '', ''), .Dim = c(4L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.epiinfo.Rd` = structure(c('Date', 'DateTimeClasses', '', ''), .Dim = c(2L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.mtp.Rd` = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.octave.Rd` = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.spss.Rd` = structure(c('sub', 'iconv', 'iconvlist', '', '', ''), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.ssd.Rd` = structure(c('read.xport', ''), .Dim = 1:2, .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.systat.Rd` = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.xport.Rd` = structure(c('lookup.xport', ''), .Dim = 1:2, .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.arff.Rd` = structure(c('make.names', 'read.arff', '', ''), .Dim = c(2L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.dbf.Rd` = structure(c('read.dbf', ''), .Dim = 1:2, .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.dta.Rd` = structure(c('drop', 'read.dta', 'attributes', 'DateTimeClasses', 'abbreviate', '', '', '', '', ''), .Dim = c(5L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.foreign.Rd` = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor')))), .Names = c('/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/lookup.xport.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.S.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.arff.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.dbf.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.dta.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.epiinfo.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.mtp.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.octave.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.spss.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.ssd.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.systat.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.xport.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.arff.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.dbf.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.dta.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.foreign.Rd')));is.list(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist19
+#argv <- list(3.14159265358979e+20);is.list(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist2
+#argv <- list(structure(c(2671, 6.026e+77, 3.161e+152, 3.501e+299, 2.409e+227, 1.529e+302), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')));is.list(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist20
+#argv <- list(structure(list(srcfile = c(NA, '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R'), frow = c(NA, 88L, 89L, 89L, 90L, 90L, 90L, 88L, 88L, 92L, 92L, 92L, 92L, 92L, 94L, 94L, 100L, 103L, 108L, 108L, 128L, 131L, 138L, 142L, 160L, 160L), lrow = c(NA, 91L, 89L, 89L, 90L, 90L, 90L, 91L, 91L, 93L, 93L, 93L, 93L, 93L, 95L, 95L, 100L, 104L, 108L, 108L, 132L, 131L, 138L, 144L, 160L, 160L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 26L)));is.list(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist21
+#argv <- list(structure(list(srcfile = c('/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/R_systat.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/R_systat.R'), frow = 21:22, lrow = 21:22), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2));is.list(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist22
+#argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, NA, NA, NA, NA, NA), .Label = c('[0,2)', '[2,4)', '[4,6)', '[6,8)'), class = 'factor'));is.list(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist23
+#argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10), .Dim = c(10L, 2L), .Dimnames = list(NULL, c('x', 'y'))));is.list(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist24
+#argv <- list(structure(list(loc = c(0.0804034870161223, 10.3548347412639), cov = structure(c(3.01119301965569, 6.14320559215603, 6.14320559215603, 14.7924762275451), .Dim = c(2L, 2L)), d2 = 2, wt = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), sqdist = c(0.439364946869246, 0.0143172566761092, 0.783644692619938, 0.766252947443554, 0.346865912102713, 1.41583192825661, 0.168485512965902, 0.354299830956879, 0.0943280426627965, 1.05001058449122, 1.02875556201707, 0.229332323173361, 0.873263925064789, 2.00000009960498, 0.449304354954282, 0.155023307933165, 0.118273979375253, 0.361693898800799, 0.21462398586105, 0.155558909016629, 0.471723661454506, 0.719528696331092, 0.0738164380664225, 1.46001193111051, 0.140785322548143, 0.127761195166703, 0.048012401156175, 0.811750426884519, 0.425827709817574, 0.163016638545231, 0.557810866640707, 0.277350147637843, 0.0781399119055092, 1.29559183995835, 0.718376405567138, 1.37650242941478, 0.175087780508154, 0.233808973148729, 0.693473805463067, 0.189096604125073, 1.96893781800017, 0.4759756980592, 1.69665760380474, 0.277965749373647, 0.920525436884815, 0.57525234053591, 1.59389578665009, 0.175715364671313, 0.972045794851437, 1.75514684962809, 0.0597413185507202, 0.174340343040626, 0.143421553552865, 0.997322770596838, 1.94096736957465, 2.00000001159796, 0.367000821772989, 0.682474530588235, 1.20976163307984, 1.27031685239035, 1.79775635513363, 0.0857761902860323, 0.435578932929501, 0.214370604878221, 0.494714247412686, 1.78784623754399, 1.24216674083069, 1.87749485326709, 0.0533296334123023, 1.45588362584438, 2.00000000631459, 0.208857144738039, 0.119251291573058, 0.365303924649962, 0.690656674239668, 0.0396958405786268, 0.258262120876164, 1.57360254057537, 0.307548421049514, 0.628417063100241, 1.00647098749202, 0.297624360530352, 0.400289147351669, 1.98298426250944, 0.129127182829694, 0.0794695319493149, 0.991481735944321, 0.444068154119836, 0.206790162395106, 0.574310829851377, 0.181887577583334, 0.433872021297517, 0.802994892604009, 0.293053770941001, 1.7002969001965, 0.77984639982848, 1.36127407487932, 0.761935213110323, 0.597915313430067, 0.237134831067472), prob = NULL, tol = 1e-07, eps = 9.96049758228423e-08, it = 898L, maxit = 5000, ierr = 0L, conv = TRUE), .Names = c('loc', 'cov', 'd2', 'wt', 'sqdist', 'prob', 'tol', 'eps', 'it', 'maxit', 'ierr', 'conv'), class = 'ellipsoid'));is.list(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist25
+#argv <- list(structure(c(NA, 1, 1, 2), .Names = c('<none>', 'M.user', 'Temp', 'Soft')));is.list(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist26
+#argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c('y', 'x', 'z'), terms = quote(y ~ x * z), row.names = c(NA, 10L), class = 'data.frame'));is.list(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist27
+#argv <- list(structure(c(1920, 1920, 1920, 1920, 1920, 1920, 1921, 1921, 1921, 1921), .Tsp = c(1920.5, 1921.25, 12), class = 'ts'));is.list(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist29
+#argv <- list(structure(1, .Dim = 1L));is.list(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist3
+#argv <- list('• ');is.list(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist30
+#argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c('Employed', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'), terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year), row.names = 1947:1962, class = 'data.frame'));is.list(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist4
+#argv <- list(13186.6170826564);is.list(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist5
+#argv <- list(structure(list(object = c(0.568, 1.432, -1.08, 1.08), max.level = NA, vec.len = 4, digits.d = 3, nchar.max = 128, give.attr = TRUE, give.head = TRUE, width = 80L, envir = NULL, strict.width = 'no', formatNum = function (x, ...) format(x, trim = TRUE, drop0trailing = TRUE, ...), list.len = 99, give.length = TRUE, nest.lev = 1, indent.str = ' ..'), .Names = c('object', 'max.level', 'vec.len', 'digits.d', 'nchar.max', 'give.attr', 'give.head', 'width', 'envir', 'strict.width', 'formatNum', 'list.len', 'give.length', 'nest.lev', 'indent.str')));is.list(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist6
+#argv <- list(structure(c(2L, 1L, 3L), .Label = c('1', '2', NA), class = 'factor'));is.list(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist7
+#argv <- list(structure(list(y = c(1.08728092481538, 0.0420572471552261, 0.787502161306819, 0.512717751544676, 3.35376639535311, 0.204341510750309, -0.334930602487435, 0.80049208412789, -0.416177803375218, -0.777970346246018, 0.934996808181635, -0.678786709127108, 1.52621589791412, 0.5895781228122, -0.744496121210548, -1.99065153885627, 1.51286447692396, -0.750182409847851), A = c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), U = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('a', 'b', 'c'), class = 'factor'), V = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L), .Label = c('a', 'b', 'c'), class = 'factor')), .Names = c('y', 'A', 'U', 'V'), terms = quote(y ~ A:U + A:V - 1), row.names = c(NA, 18L), class = 'data.frame'));is.list(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislist.testislist9
+#argv <- list(structure(list(srcfile = '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', frow = 612L, lrow = 612L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L)));is.list(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisloaded.testisloaded1
+#argv <- list('PDF', '', 'External'); .Internal(is.loaded(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisloaded.testisloaded2
+#argv <- list('supsmu', '', ''); .Internal(is.loaded(argv[[1]], argv[[2]], argv[[3]]))
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislogical.testislogical1
+#argv <- list(structure(c(TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(22L, 13L), .Dimnames = list(c('r39', 'r17', 'r39', 'r14', 'r39', 'r8', 'r25', 'r9', 'r17', 'r27', 'r17', 'r14', 'r39', 'r27', 'r9', 'r25', 'r8', 'r17', 'r9', 'r8', 'r25', 'r5'), c('c4', 'c1', 'c13', 'c13', 'c1', 'c20', 'c20', 'c13', 'c20', 'c8', 'c8', 'c8', 'c13'))));is.logical(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislogical.testislogical2
+#argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'character(0)', row.names = character(0), class = 'data.frame'));is.logical(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislogical.testislogical3
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.logical(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislogical.testislogical4
+#argv <- list(structure(c(1, 4.16333634234434e-17, 5.55111512312578e-17, -1.38777878078145e-17, 2.77555756156289e-17, 4.16333634234434e-17, 1, -1.11022302462516e-16, -2.77555756156289e-17, -5.55111512312578e-17, 5.55111512312578e-17, -1.11022302462516e-16, 1, 5.55111512312578e-17, 0, -1.38777878078145e-17, -2.77555756156289e-17, 5.55111512312578e-17, 1, -1.11022302462516e-16, 2.77555756156289e-17, -5.55111512312578e-17, 0, -1.11022302462516e-16, 1), .Dim = c(5L, 5L)));is.logical(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinislogical.testislogical5
+#argv <- list(structure(c(1, 0, 0, 0, NA, 6, 0, 0, 0, 14, 3, 0, 15, 0, 0, 8), .Dim = c(4L, 4L)));is.logical(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinismatrix.testismatrix1
+#argv <- list(c(-3.44, 62.44));is.matrix(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinismatrix.testismatrix11
+#argv <- list(structure(list(srcfile = c('/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/arff.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/arff.R'), frow = c(86L, 86L), lrow = c(88L, 88L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'));is.matrix(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinismatrix.testismatrix13
+#argv <- list(structure(list(srcfile = c(NA, '/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats'), frow = c(NA, 16987L, 16991L), lrow = c(NA, 16987L, 16991L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 3L), class = 'data.frame'));is.matrix(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinismatrix.testismatrix14
+#argv <- list(structure(list(V1 = c(NA, 2, NA, 4, 5), V2 = c(NA, NA, 3, 4, 5)), .Names = c('V1', 'V2'), class = 'data.frame', row.names = c(NA, -5L)));is.matrix(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinismatrix.testismatrix16
+#argv <- list(structure(list(Df = c(NA, 1), Deviance = c(12.2441566485997, 32.825622681839), AIC = c(73.9421143635373, 92.5235803967766)), .Names = c('Df', 'Deviance', 'AIC'), row.names = c('<none>', '- M.user'), class = c('anova', 'data.frame'), heading = c('Single term deletions', '\nModel:', 'cbind(X, M) ~ M.user')));is.matrix(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinismatrix.testismatrix17
+#argv <- list(structure(list(V1 = 1L, V2 = structure(1L, .Label = c('A', 'D', 'E'), class = 'factor'), V3 = 6), .Names = c('V1', 'V2', 'V3'), class = 'data.frame', row.names = c(NA, -1L)));is.matrix(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinismatrix.testismatrix19
+#argv <- list(c(-1.12778377684043, -12820.0784261145, -21650982809.6744, -473300382255715392, -6.08456909882282e+25, -3.04622557026196e+34, -4.60125024792566e+43, -1.76183826972506e+53, -1.5069799345972e+63, -2.61556777274611e+73, -8.54170618068872e+83, -4.9383857330861e+94, -4.80716085942859e+105, -7.55412056676629e+116, -1.84898368353639e+128, -6.83535188151783e+139, -3.71562599613334e+151, -2.90089508183654e+163, -3.18582547396557e+175, -4.83110332887119e+187, -9.94902790498679e+199, -2.74100158340596e+212, -9.96611412047338e+224, -4.72336572671053e+237, -2.88514442494869e+250, -2.24780296109123e+263, -2.21240023126594e+276, -2.72671165723473e+289, -4.17369555651928e+302, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf));is.matrix(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinismatrix.testismatrix3
+#argv <- list(structure(list(visible = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), from = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = 'registered S3method for summary', class = 'factor')), .Names = c('visible', 'from'), row.names = c('summary.aspell', 'summary.ecdf', 'summary.loess', 'summary.nls', 'summary.packageStatus', 'summary.PDF_Dictionary', 'summary.PDF_Stream', 'summary.ppr', 'summary.prcomp', 'summary.princomp', 'summary.stl', 'summary.tukeysmooth'), class = 'data.frame'));is.matrix(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinismatrix.testismatrix4
+#argv <- list(structure(c(0, 87, 82, 75, 63, 50, 43, 32, 35, 60, 54, 55, 36, 39, 0, 0, 69, 57, 57, 51, 45, 37, 46, 39, 36, 24, 32, 23, 25, 32, 0, 32, 59, 74, 75, 60, 71, 61, 71, 57, 71, 68, 79, 73, 76, 71, 67, 75, 79, 62, 63, 57, 60, 49, 48, 52, 57, 62, 61, 66, 71, 62, 61, 57, 72, 83, 71, 78, 79, 71, 62, 74, 76, 64, 62, 57, 80, 73, 69, 69, 71, 64, 69, 62, 63, 46, 56, 44, 44, 52, 38, 46, 36, 49, 35, 44, 59, 65, 65, 56, 66, 53, 61, 52, 51, 48, 54, 49, 49, 61, 0, 0, 68, 44, 40, 27, 28, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = 'ts'));is.matrix(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinismatrix.testismatrix5
+#argv <- list(structure(list(srcfile = c('/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R'), frow = c(112L, 114L, 115L, 116L, 127L, 130L, 130L, 130L, 133L, 133L, 133L, 136L, 136L, 136L, 140L, 140L, 140L, 143L, 143L, 143L, 147L, 147L, 147L, 147L, 150L, 150L, 150L, 155L, 161L), lrow = c(156L, 114L, 115L, 116L, 127L, 130L, 130L, 130L, 133L, 133L, 133L, 136L, 136L, 136L, 140L, 140L, 140L, 143L, 143L, 143L, 147L, 147L, 147L, 147L, 150L, 150L, 150L, 155L, 178L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 29L), class = 'data.frame'));is.matrix(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinismatrix.testismatrix6
+#argv <- list(structure(list(a_string = c('foo', 'bar'), a_bool = FALSE, a_struct = structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = 'foo'), .Names = c('a', 'b', 'c')), a_cell = structure(list(1, 'foo', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'bar'), .Dim = c(2L, 2L)), a_complex_scalar = 0+1i, a_list = list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'foo'), a_complex_matrix = structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), a_range = c(1, 2, 3, 4, 5), a_scalar = 1, a_complex_3_d_array = structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), a_3_d_array = structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), a_matrix = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), a_bool_matrix = structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))), .Names = c('a_string', 'a_bool', 'a_struct', 'a_cell', 'a_complex_scalar', 'a_list', 'a_complex_matrix', 'a_range', 'a_scalar', 'a_complex_3_d_array', 'a_3_d_array', 'a_matrix', 'a_bool_matrix')));is.matrix(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinismatrix.testismatrix7
+#argv <- list(c(1.2e+100, 1.3e+100));is.matrix(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinismatrix.testismatrix9
+#argv <- list(structure(list(Topic = c('myTst-package', 'foo-class', 'myTst', 'show,foo-method', 'show,foo-method', 'show-methods'), File = c('myTst-package', 'foo-class', 'myTst-package', 'foo-class', 'show-methods', 'show-methods')), .Names = c('Topic', 'File'), row.names = c(3L, 1L, 4L, 2L, 6L, 5L), class = 'data.frame'));is.matrix(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisna.testisna1
+#argv <- list(8.21977282218514e-09);is.na(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisna.testisna11
+#argv <- list('•');is.na(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisna.testisna12
+#argv <- list(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, NA, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, NA, 16L, NA, NA, 17L, 18L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 19L, 20L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 21L, 22L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 23L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 24L, 25L, NA, NA, NA, NA, NA, 26L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 27L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 28L, NA, NA, NA, NA, NA, NA, NA));is.na(argv[[1]]);
+ [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE FALSE FALSE FALSE
+ [13] FALSE FALSE FALSE FALSE TRUE FALSE TRUE TRUE FALSE FALSE TRUE TRUE
+ [25] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [37] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [49] TRUE TRUE TRUE TRUE FALSE FALSE TRUE TRUE TRUE TRUE TRUE TRUE
+ [61] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [73] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE FALSE FALSE TRUE TRUE
+ [85] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [97] TRUE TRUE FALSE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[109] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[121] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[133] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[145] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[157] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[169] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[181] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[193] TRUE TRUE FALSE FALSE TRUE TRUE TRUE TRUE TRUE FALSE TRUE TRUE
+[205] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[217] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[229] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[241] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[253] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[265] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[277] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[289] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[301] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[313] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[325] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[337] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[349] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[361] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[373] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[385] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[397] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[409] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[421] TRUE TRUE TRUE TRUE TRUE FALSE TRUE TRUE TRUE TRUE TRUE TRUE
+[433] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[445] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[457] FALSE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisna.testisna14
+#argv <- list(structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c('High', 'Low'), class = 'factor'));is.na(argv[[1]]);
+ [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisna.testisna18
+#argv <- list(c(1.15623864987889e-07, 2.29156215117184e-06, 2.23566813947706e-05, 0.000143191143888661, 0.000677580461489631, 0.00252801907454942, 0.00775156037133752, 0.0201095764491411, 0.0451105149252681, 0.0890234210350955, 0.15678837112652, 0.249535722442692, 0.362988194603088, 0.487807940725587, 0.611969188999548, 0.724126192770213, 0.816469100858263, 0.885981556331846, 0.933947517503216, 0.964353470219262, 0.982092072679401, 0.991629921792979));is.na(argv[[1]]);
+ [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[13] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisna.testisna21
+#argv <- list(structure(c(-0.435358622483264, -0.0335050551134034, 0.133034650300067, -0.159998333048696, 0.195871393282558, 0.350272600548034, 0.39175188095922, 0.80136172049434, 0.278604939810076, 0.226807608071186, -0.705366153102363, -0.673376038650154, 1.0575405448001, -0.361896730525493, -0.183063001472974, 0.770224627641576, -0.723327517911943, 0.641508754101234, -0.497966152633253, -0.565883899194175, -0.163154615929682, -1.04605311744929, 0.345822472294285, -0.120642075306238, -0.310915191264717, -0.421459810417331, 0.127313193315093, 0.0460216192070582, -0.571263568938105, -0.255068194977355, 0.466680400648398, -0.577405253130228, 0.427189001707599, -0.117526978398191, 0.338157182237428, 0.106063414615583, 0.0652166343937516, 0.113976880905178, -0.508973211491926, -0.0281367896906678, 0.0255810420505139, -0.0895312259800421, 0.343273059276787, 0.25878029892501, 0.178005594248437, 0.616202813145647, -0.223306051799002, -0.822237650949987, 0.181243736532592, 1.03805050988759, -0.535064558180362, 0.629967292956912, -0.206091625685159, -0.0982523326578774, 0.414371639034748, -0.332128640110978, 0.0280866409684434, -0.53195331347224, -0.0381291521565174, -0.0522348719327905, 0.221019543981438, -0.306904771316101, 0.553064781030607, -0.15705513179628, 0.740342712486913, -0.307570821127478, -0.952143530102099, -0.691835269560791, -0.27190785111766, -0.196035414096589, -0.970405281846342, -0.177170015488179, -0.885843727603163, 0.429176556994819, 0.310459328495626, -0.258604904263182, -1.18516758379134, -0.690975294813695, 0.965849167652318, 0.44535708731974, -0.0846102375086248, -0.32082832908822, 0.528416539604261, 0.620184198607294, 0.317666232431379, 0.283097649168652, 0.223675435302281, -0.697584545802335, 1.0301502006605, 0.452533534739715, 0.264750609900989, 0.267980537616643, 0.0973596082099813, 0.161838610289358, 0.612946027273891, 0.816578471249094, -1.15340096289088, -1.01680545446605, 0.422976667855578, -0.23961110455947, 0.0316786188682291, -0.797164261874229, 0.184311996008136, 0.0876867376986658, 0.312240812855443, 0.0432826980205777, -0.00317515675173313, -0.296692321406956, 0.598755930788477, 0.298681977334167, 0.258864357137695, 0.126248580888692, 0.318393890044881, 0.316636862337678), .Tsp = c(1, 114, 1), class = 'ts'));is.na(argv[[1]]);
+ [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [13] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [25] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [37] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [49] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [61] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [73] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [97] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[109] FALSE FALSE FALSE FALSE FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisna.testisna40
+#argv <- list(structure(list(1L, 3L), class = structure('L', package = '.GlobalEnv')));is.na(argv[[1]]);
+[1] FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisna.testisna41
+#argv <- list(c('«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè', 'éè'));is.na(argv[[1]]);
+[1] FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisna.testisna42
+#argv <- list(c(-Inf, -Inf, -Inf, 0, 1, 2, Inf, Inf));is.na(argv[[1]]);
+[1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisna.testisna46
+#argv <- list(integer(0));is.na(argv[[1]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisna.testisna6
+#argv <- list(list(list(1)));is.na(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnull.testisnull1
+#argv <- list(c('a', 'b', 'c'));is.null(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnull.testisnull10
+#argv <- list(structure(list(coefficients = numeric(0), residuals = structure(c(-68.7898369431611, -71.7713382904347, -44.0000000000001, -56.5455568546283, -29.303772984227), .Dim = c(5L, 1L), .Dimnames = list(c('2', '3', '4', '5', '6'), NULL)), fitted.values = structure(c(0, 0, 0, 0, 0), .Dim = c(5L, 1L), .Dimnames = list(c('2', '3', '4', '5', '6'), NULL)), weights = NULL, rank = 0L, df.residual = 5L), .Names = c('coefficients', 'residuals', 'fitted.values', 'weights', 'rank', 'df.residual'), class = c('aov', 'lm')));is.null(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnull.testisnull11
+#argv <- list(complex(0));is.null(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnull.testisnull12
+#argv <- list(1.74126257032961e-18);is.null(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnull.testisnull13
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.null(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnull.testisnull2
+#argv <- list(structure(c(NA, NA, 159.125, 204, 221.25, 245.125, 319.75, 451.5, 561.125, 619.25, 615.625, 548, 462.125, 381.125, 316.625, 264, 228.375, 210.75, 188.375, 199, 207.125, 191, 166.875, 72, -9.25, -33.125, -36.75, 36.25, 103, 131.625, NA, NA), .Tsp = c(1951, 1958.75, 4), class = 'ts'));is.null(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnull.testisnull3
+#argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('L', 'M', 'H'), class = 'factor'));is.null(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnull.testisnull4
+#argv <- list(c('(2,5.5]', '(5.5,10]', NA));is.null(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnull.testisnull5
+#argv <- list(structure(list(z = c(-2.71928906935559, -2.42170276502517, -2.09964379178171, -1.74953243478614, -1.36765437050161, -0.950481896729501, -0.49514368442691, 0, 0.534774072422106, 1.1067130528647, 1.71078417306203, 2.33938293418822, 2.98268239609615), par.vals = structure(c(0.707463571249756, 0.714694094477037, 0.725412821685713, 0.74111612512182, 0.763750498997247, 0.795678221483334, 0.839503022768249, 0.897728639347183, 0.972289000300049, 1.06404105741634, 1.1722925771844, 1.29437141627989, 1.42522018859931, -3.11497037357416, -3.12714840246737, -3.14532049441438, -3.17220876767473, -3.21154655520113, -3.26827705075488, -3.34869944608425, -3.46054428079529, -3.61294451442018, -3.81614134368036, -4.08060875057211, -4.41549521607872, -4.82702626542922, -0.0255577133668773, -0.0384397882414428, -0.0575047563177536, -0.085367554260897, -0.125387593962273, -0.181561305237101, -0.258149413255891, -0.359008117508679, -0.486728760637899, -0.641785962540215, -0.821841695092364, -1.02123122113516, -1.23065013245083, 7.95100998228548, 7.54634587182367, 7.14890399737901, 6.76196968783309, 6.39005226899545, 6.03912521056563, 5.71679838524513, 5.43240185128028, 5.19696909896364, 5.02301800418124, 4.92391121830517, 4.91279665045699, 5.00177553632184, -9.53200922191114, -8.69335766510962, -7.8547061083081, -7.01605455150657, -6.17740299470505, -5.33875143790352, -4.500099881102, -3.66144832430047, -2.82279676749895, -1.98414521069743, -1.1454936538959, -0.306842097094378, 0.531809459707146), .Dim = c(13L, 5L), .Dimnames = list( NULL, c('(Intercept)', 'PS', 'AI', 'VS', 'PS:AI')))), .Names = c('z', 'par.vals'), row.names = c(NA, 13L), class = 'data.frame'));is.null(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnull.testisnull6
+#argv <- list(structure(c(-4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96), .Tsp = c(1, 101, 1), class = 'ts'));is.null(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnull.testisnull7
+#argv <- list(numeric(0));is.null(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnull.testisnull8
+#argv <- list(structure(c(2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Tsp = c(1920.5, 1921.25, 12), class = 'ts'));is.null(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnumeric.testisnumeric1
+#argv <- list(structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c('w', 'w2'))));is.numeric(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnumeric.testisnumeric10
+#argv <- list(structure(c(1L, 2L, NA, 3L), .Label = c('aa', 'bb', 'dd')));is.numeric(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnumeric.testisnumeric11
+#argv <- list(structure(c(1120, 1160, 963, 1210, 1160, 1160, 813, 1230, 1370, 1140, 995, 935, 1110, 994, 1020, 960, 1180, 799, 958, 1140, 1100, 1210, 1150, 1250, 1260, 1220, 1030, 1100, 774, 840, 874, 694, 940, 833, 701, 916, 692, 1020, 1050, 969, 831, 726, 456, 824, 702, 1120, 1100, 832, 764, 821, 768, 845, 864, 862, 698, 845, 744, 796, 1040, 759, 781, 865, 845, 944, 984, 897, 822, 1010, 771, 676, 649, 846, 812, 742, 801, 1040, 860, 874, 848, 890, 744, 749, 838, 1050, 918, 986, 797, 923, 975, 815, 1020, 906, 901, 1170, 912, 746, 919, 718, 714, 740), .Tsp = c(1871, 1970, 1), class = 'ts'));is.numeric(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnumeric.testisnumeric12
+#argv <- list(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434));is.numeric(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnumeric.testisnumeric15
+#argv <- list(c('2001-01-01', NA, NA, '2004-10-26'));is.numeric(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnumeric.testisnumeric16
+#argv <- list(c(1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374947, 0.707106781186547, 0.587785252292473, 0.453990499739547, 0.309016994374947, 0.156434465040231, -1.83697019872103e-16, -0.156434465040231, -0.309016994374948, -0.453990499739547, -0.587785252292473, -0.707106781186548, -0.809016994374948, -0.891006524188368, -0.951056516295154, -0.987688340595138, -1, -0.987688340595138, -0.951056516295154, -0.891006524188368, -0.809016994374947, -0.707106781186547, -0.587785252292473, -0.453990499739547, -0.309016994374947, -0.156434465040231, 6.12323399573677e-17, 0.156434465040231, 0.309016994374947, 0.453990499739547, 0.587785252292473, 0.707106781186548, 0.809016994374947, 0.891006524188368, 0.951056516295154, 0.987688340595138, 1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374947, 0.707106781186548, 0.587785252292473, 0.453990499739547, 0.309016994374947, 0.156434465040231, 6.12323399573677e-17, -0.15643446504023, -0.309016994374947, -0.453990499739548, -0.587785252292473, -0.707106781186547, -0.809016994374947, -0.891006524188368, -0.951056516295154, -0.987688340595138, -1, -0.987688340595138, -0.951056516295154, -0.891006524188368, -0.809016994374948, -0.707106781186547, -0.587785252292473, -0.453990499739548, -0.309016994374948, -0.15643446504023, -1.83697019872103e-16, 0.15643446504023, 0.309016994374947, 0.453990499739547, 0.587785252292473, 0.707106781186547, 0.809016994374947, 0.891006524188368, 0.951056516295154, 0.987688340595138, 1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374948, 0.707106781186547, 0.587785252292473, 0.453990499739548, 0.309016994374948, 0.15643446504023, 3.06161699786838e-16, -0.15643446504023, -0.309016994374947, -0.453990499739547, -0.587785252292473, -0.707106781186547, -0.809016994374947, -0.891006524188368, -0.951056516295153, -0.987688340595138, -1));is.numeric(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnumeric.testisnumeric17
+#argv <- list(structure(c(0.696706709347165, 0.362357754476673, -0.0291995223012888, 0.696706709347165, 0.696706709347165, -0.0291995223012888, 0.696706709347165, -0.0291995223012888, 0.362357754476673, 0.696706709347165, -0.0291995223012888, 0.362357754476673, -0.416146836547142, 0.362357754476673, 0.696706709347165, 0.696706709347165, 0.362357754476673, -0.416146836547142, -0.0291995223012888, -0.416146836547142, 0.696706709347165, -0.416146836547142, 0.362357754476673, -0.0291995223012888, 0.717356090899523, 0.932039085967226, 0.999573603041505, 0.717356090899523, 0.717356090899523, 0.999573603041505, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.909297426825682, 0.932039085967226, 0.717356090899523, 0.717356090899523, 0.932039085967226, 0.909297426825682, 0.999573603041505, 0.909297426825682, 0.717356090899523, 0.909297426825682, 0.932039085967226, 0.999573603041505, -0.0291995223012888, -0.737393715541246, -0.998294775794753, -0.0291995223012888, -0.0291995223012888, -0.998294775794753, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.653643620863612, -0.737393715541246, -0.0291995223012888, -0.0291995223012888, -0.737393715541246, -0.653643620863612, -0.998294775794753, -0.653643620863612, -0.0291995223012888, -0.653643620863612, -0.737393715541246, -0.998294775794753, 0.999573603041505, 0.67546318055115, -0.0583741434275801, 0.999573603041505, 0.999573603041505, -0.0583741434275801, 0.999573603041505, -0.0583741434275801, 0.67546318055115, 0.999573603041505, -0.0583741434275801, 0.67546318055115, -0.756802495307928, 0.67546318055115, 0.999573603041505, 0.999573603041505, 0.67546318055115, -0.756802495307928, -0.0583741434275801, -0.756802495307928, 0.999573603041505, -0.756802495307928, 0.67546318055115, -0.0583741434275801), .Dim = c(24L, 4L), .Dimnames = list(NULL, c('A', 'B', 'C', 'D'))));is.numeric(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnumeric.testisnumeric18
+#argv <- list(c(1, 1, NA, 2));is.numeric(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnumeric.testisnumeric19
+#argv <- list(structure(c(79.5323303457107, 6, 86.1989970123773, 6, 69.7732394366197, 5, 98.0323303457106, 6, 108.032330345711, 6, 89.1989970123773, 6, 114.198997012377, 6, 116.698997012377, 6, 110.365663679044, 6, 124.365663679044, 6, 126.365663679044, 6, 118.032330345711, 6), .Dim = c(6L, 4L), .Dimnames = structure(list(V = c('Golden.rain', 'rep ', 'Marvellous ', 'rep ', 'Victory ', 'rep '), N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = c('V', 'N'))));is.numeric(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnumeric.testisnumeric20
+#argv <- list(structure(numeric(0), .Dim = c(3L, 0L)));is.numeric(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnumeric.testisnumeric22
+#argv <- list(structure(c(-3.001e+155, -1.067e+107, -1.976e+62, -9.961e+152, -2.059e+23, 0.5104), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), class = c('summaryDefault', 'table')));is.numeric(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnumeric.testisnumeric3
+#argv <- list(c(1.4615016373309e+48, 5.70899077082384e+45, 2.23007451985306e+43, 8.71122859317602e+40, 3.40282366920938e+38, 1.32922799578492e+36, 5.19229685853483e+33, 2.02824096036517e+31, 7.92281625142643e+28, 3.09485009821345e+26, 1.20892581961463e+24, 4.72236648286965e+21, 18446744073709551616, 72057594037927936, 281474976710656, 1099511627776, 4294967296, 16777216, 65536, 256, 1, 0.00390625, 1.52587890625e-05, 5.96046447753906e-08, 2.3283064365387e-10, 9.09494701772928e-13, 3.5527136788005e-15, 1.38777878078145e-17, 5.42101086242752e-20, 2.11758236813575e-22, 8.27180612553028e-25));is.numeric(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnumeric.testisnumeric4
+#argv <- list(integer(0));is.numeric(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnumeric.testisnumeric5
+#argv <- list(c(16.4, 11.4, 7.8, 14, 10.9, 16.8, 16.6, 5.9, 21));is.numeric(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnumeric.testisnumeric6
+#argv <- list(c(0, 0, 0, 1, 0, 0, 0, 0, 1, 0, NA, NA, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, NA, 1, 0, 1, 0, NA, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, NA, 0, 1, 0, 0, 0, 0, NA, 1, 1));is.numeric(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnumeric.testisnumeric7
+#argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.numeric(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisnumeric.testisnumeric9
+#argv <- list(structure(list(a_string = c('foo', 'bar'), a_bool = FALSE, a_struct = structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = 'foo'), .Names = c('a', 'b', 'c')), a_cell = structure(list(1, 'foo', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'bar'), .Dim = c(2L, 2L)), a_complex_scalar = 0+1i, a_list = list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'foo'), a_complex_matrix = structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), a_range = c(1, 2, 3, 4, 5), a_scalar = 1, a_complex_3_d_array = structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), a_3_d_array = structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), a_matrix = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), a_bool_matrix = structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))), .Names = c('a_string', 'a_bool', 'a_struct', 'a_cell', 'a_complex_scalar', 'a_list', 'a_complex_matrix', 'a_range', 'a_scalar', 'a_complex_3_d_array', 'a_3_d_array', 'a_matrix', 'a_bool_matrix')));is.numeric(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisobject.testisobject1
+#argv <- list(c(45.0314849918875, 57.5361690778799, 61.7043971065441, 61.7043971065441, 128.39604556517, 45.0314849918875, 36.6950289345592, 45.0314849918875, 228.43351825311, 36.6950289345592, 74.2090811925365, 45.0314849918875, 32.5268009058951, 78.3773092212007, 111.723133450514, 20.0221168199027, 32.5268009058951, 40.8632569632234, 20.0221168199027, 24.1903448485668, 45.0314849918875, 11.6856607625744, 20.0221168199027, 28.3585728772309, 45.0314849918875, 36.6950289345592, 49.1997130205517, 36.6950289345592, 78.3773092212007, 45.0314849918875, 145.068957679827, 32.5268009058951, 161.741869794484));is.object(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisobject.testisobject10
+#argv <- list(structure(c(-0.562441486309934, -0.588967592535822, 0.0277608937997097, 0.568074124752969, 3.89980510825846, -0.428174866497729, -0.343990813420242, -0.260996370058754, -2.31774610938305, 0.314764947225063, -0.455124436264437, -0.0444006414474544, -0.27748974692001, -0.303134023269405, -0.670168347915028, 2.92643313367, -0.749546667806845, -0.410394401887929, -0.203261263063707, 0.1847365997012, 0.128559671155683, 0.313558179929332, -0.0668425264405297, -0.106427678524531, -0.523747793519006, -0.402585404761851, 0.0642079595716389, -0.779859286629166, 0.356484381211739, -0.625053119472271, 1.31547628490512, -0.21959878152752, -0.102402088986461), .Names = c('Craig Dunain', 'Ben Rha', 'Ben Lomond', 'Goatfell', 'Bens of Jura', 'Cairnpapple', 'Scolty', 'Traprain', 'Lairig Ghru', 'Dollar', 'Lomonds', 'Cairn Table', 'Eildon Two', 'Cairngorm', 'Seven Hills', 'Knock Hill', 'Black Hill', 'Creag Beag', 'Kildcon Hill', 'Meall Ant-Suidhe', 'Half Ben Nevis', 'Cow Hill', 'N Berwick Law', 'Creag Dubh', 'Burnswark', 'Largo Law', 'Criffel', 'Acmony', 'Ben Nevis', 'Knockfarrel', 'Two Breweries', 'Cockleroi', 'Moffat Chase')));is.object(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisobject.testisobject11
+#argv <- list(integer(0));is.object(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisobject.testisobject12
+#argv <- list(c(25, 50, 100, 250, 500, 1e+05));is.object(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisobject.testisobject13
+#argv <- list(numeric(0));is.object(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisobject.testisobject14
+#argv <- list(c(TRUE, FALSE));is.object(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisobject.testisobject2
+#argv <- list(structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L), .Label = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59'), class = 'factor'));is.object(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisobject.testisobject3
+#argv <- list(c(-2.97525100835805, -2.82075793382799, -2.66593061478436, -2.51078653265898, -2.35534314690423, -2.19961777085284, -2.04362765822923, -1.88739011884942, -1.73092311663886, -1.57424503752904, -1.41737428587374, -1.26032952797003, -1.10312969205829, -0.945793720579289, -0.788340724666015, -0.630790076924443, -0.473161172617641, -0.315473462875692, -0.157746535777026, -4.9960036108132e-16, 0.157746535777027, 0.315473462875696, 0.473161172617647, 0.630790076924451, 0.788340724666025, 0.9457937205793, 1.1031296920583, 1.26032952797003, 1.41737428587374, 1.57424503752905, 1.73092311663887, 1.88739011884943, 2.04362765822924, 2.19961777085286, 2.35534314690424, 2.510786532659, 2.66593061478437, 2.82075793382801, 2.97525100835807));is.object(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisobject.testisobject4
+#argv <- list(structure(c(-0.266501885293689, -3.8931863588937, -0.272681427089914, 0.685830427280619, 0.146697567632144, -0.178509228122189, -0.827954133483467, -0.00847153748452917, -0.439077730128206, -0.100627762490786, 1.90697806298419, 0.534191446603769, 0.118116488305486, 0.266107216595585, 1.09677961111435, 0.294604712451767, 1.26527267402907, -1.37468346842381, -0.501152044022612, 0.277514706049866, 0.080458897112638, 0.0436443543043109, -0.480973816036986, 1.25647294144768, 0.371150285558408), .Dim = 25L, .Dimnames = list( c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))));is.object(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisobject.testisobject5
+#argv <- list(c(0.3814, 1.0281, 0.3814, 0.1202, -0.3385, 0.6757, 0.6757, -0.5422, -1.0914, 1.0281, -0.3385, 0.3814, 0.3814, -1.0914, -0.7326, 0.6757, 1.5128, 0.6757, 1.0281, 0.6757, 1.0281, -1.0914, -0.7326, 0.1202, -0.3385, 0.3814, 0.6757, 1.5128, 0.1202, -0.7326, 1.5128, -1.0914, 0.6757, 2.4608, 0.3814, 0.6757, -0.8176, 1.0281, 0.1202, 2.4404, -0.5422, 0.1202, -0.1182, 0.3814, -0.5422, -0.5422, 0.6757, -0.3385, -1.6508, 0.6757, -0.7326, -0.1182, -1.0914, 0.3814, 0.3814, -0.1182, 0.3814, 0.1202, 0.6757, 0.6757, 0.1202, -0.5422, 1.5128, 0.3814, -1.2692, 1.0281, 0.6757, 0.1202, -0.5422, 0.3814, -0.3385, 1.0281, -0.1182, 0.1202, 1.5128, 2.4608, 0.6757, -1.0914, -0.9144, -0.3385, 0.1202, 0.1202, 0.1202, 0.3814, -0.13, -0.5422, 0.1202, -0.1182, 0.3814, 1.0281, 0.6757, 1.0281, -1.2692, 0.1202, 0.3814, 1.5128, -0.1182, 0.3814, 1.0281, 0.3814, 0.1202, -0.3385, 0.6757, 0.6757, -0.5422, -1.0914, 1.0281, -0.3385, 0.3814, 0.3814, -1.0914, -0.7326, 0.6757, 1.5128, 0.6757, 1.0281, 0.6757, 1.0281, -1.0914, -0.7326, 0.1202, -0.3385, 0.3814, 0.6757, 1.5128, 0.1202, -0.7326, 1.5128, -1.0914, 0.6757, 2.4608, 0.3814, 0.6757, -0.8176, 1.0281, 0.1202, 2.4404, -0.5422, 0.1202, -0.1182, 0.3814, -0.5422, -0.5422, 0.6757, -0.3385, -1.6508, 0.6757, -0.7326, -0.1182, -1.0914, 0.3814, 0.3814, -0.1182, 0.3814, 0.1202, 0.6757, 0.6757, 0.1202, -0.5422, 1.5128, 0.3814, -1.2692, 1.0281, 0.6757, 0.1202, -0.5422, 0.3814, -0.3385, 1.0281, -0.1182, 0.1202, 1.5128, 2.4608, 0.6757, -1.0914, -0.9144, -0.3385, 0.1202, 0.1202, 0.1202, 0.3814, -0.13, -0.5422, 0.1202, -0.1182, 0.3814, 1.0281, 0.6757, 1.0281, -1.2692, 0.1202, 0.3814, 1.5128, -0.1182, 0.3814, 1.0281, 0.3814, 0.1202, -0.3385, 0.6757, 0.6757, -0.5422, -1.0914, 1.0281, -0.3385, 0.3814, 0.3814, -1.0914, -0.7326, 0.6757, 1.5128, 0.6757, 1.0281, 0.6757, 1.0281, -1.0914, -0.7326, 0.1202, -0.3385, 0.3814, 0.6757, 1.5128, 0.1202, -0.7326, 1.5128, -1.0914, 0.6757, 2.4608, 0.3814, 0.6757, -0.8176, 1.0281, 0.1202, 2.4404, -0.5422, 0.1202, -0.1182, 0.3814, -0.5422, -0.5422, 0.6757, -0.3385, -1.6508, 0.6757, -0.7326, -0.1182, -1.0914, 0.3814, 0.3814, -0.1182, 0.3814, 0.1202, 0.6757, 0.6757, 0.1202, -0.5422, 1.5128, 0.3814, -1.2692, 1.0281, 0.6757, 0.1202, -0.5422, 0.3814, -0.3385, 1.0281, -0.1182, 0.1202, 1.5128, 2.4608, 0.6757, -1.0914, -0.9144, -0.3385, 0.1202, 0.1202, 0.1202, 0.3814, -0.13, -0.5422, 0.1202, -0.1182, 0.3814, 1.0281, 0.6757, 1.0281, -1.2692, 0.1202, 0.3814, 1.5128, -0.1182, NA, NA, NA));is.object(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisobject.testisobject6
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.object(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisobject.testisobject7
+#argv <- list(structure(c(-0.00544194018731062, -0.00542949133552226, -1.20718999105839e-05, -0.00505497198006266, -0.827687885653788, -0.00315385274195005, -0.0023164952286401, -0.00117183915211372, -2.09167441982205, -0.00193959227691399, -0.00358084102808485, -3.39138861812986e-05, -0.00163051710052444, -0.00168735925488057, -0.0167253073891896, -0.237074502262169, -0.0118967636015583, -0.00307437031103621, -0.00114371252369823, -0.000860763872820255, -0.00028432076263802, -0.00329557354736053, -0.000123683950933913, -0.00026114238659798, -0.00471892942651347, -0.00317288091968884, -6.76955217513137e-05, -0.0119061189538054, -0.00233356124758579, -0.00672098496026968, -0.134965372025281, -0.00102115420103838, -0.00114816901125044), .Names = c('Craig Dunain', 'Ben Rha', 'Ben Lomond', 'Goatfell', 'Bens of Jura', 'Cairnpapple', 'Scolty', 'Traprain', 'Lairig Ghru', 'Dollar', 'Lomonds', 'Cairn Table', 'Eildon Two', 'Cairngorm', 'Seven Hills', 'Knock Hill', 'Black Hill', 'Creag Beag', 'Kildcon Hill', 'Meall Ant-Suidhe', 'Half Ben Nevis', 'Cow Hill', 'N Berwick Law', 'Creag Dubh', 'Burnswark', 'Largo Law', 'Criffel', 'Acmony', 'Ben Nevis', 'Knockfarrel', 'Two Breweries', 'Cockleroi', 'Moffat Chase')));is.object(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisobject.testisobject8
+#argv <- list(c(FALSE, FALSE));is.object(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisobject.testisobject9
+#argv <- list(structure(2L, .Label = c('McNeil', 'R Core', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'));is.object(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinispairlist.testispairlist1
+#argv <- list(list(NULL, c('time', 'status')));is.pairlist(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinispairlist.testispairlist10
+#argv <- list(structure(list(height = c(58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72), weight = c(115, 117, 120, 123, 126, 129, 132, 135, 139, 142, 146, 150, 154, 159, 164)), .Names = c('height', 'weight'), row.names = c(NA, -15L), class = 'data.frame'));is.pairlist(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinispairlist.testispairlist11
+#argv <- list(structure(list(a_string = c('foo', 'bar'), a_bool = FALSE, a_struct = structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = 'foo'), .Names = c('a', 'b', 'c')), a_cell = structure(list(1, 'foo', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'bar'), .Dim = c(2L, 2L)), a_complex_scalar = 0+1i, a_list = list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'foo'), a_complex_matrix = structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), a_range = c(1, 2, 3, 4, 5), a_scalar = 1, a_complex_3_d_array = structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), a_3_d_array = structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), a_matrix = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), a_bool_matrix = structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))), .Names = c('a_string', 'a_bool', 'a_struct', 'a_cell', 'a_complex_scalar', 'a_list', 'a_complex_matrix', 'a_range', 'a_scalar', 'a_complex_3_d_array', 'a_3_d_array', 'a_matrix', 'a_bool_matrix')));is.pairlist(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinispairlist.testispairlist13
+#argv <- list(structure(list(a = c(1L, 2L, 3L, NA), b = c(NA, 3.14159265358979, 3.14159265358979, 3.14159265358979), c = c(TRUE, NA, FALSE, TRUE), d = structure(c(1L, 2L, NA, 3L), .Label = c('aa', 'bb', 'dd'), class = 'factor'), e = structure(c('a1', NA, NA, 'a4'), class = 'AsIs'), f = structure(c(11323, NA, NA, 12717), class = 'Date')), .Names = c('a', 'b', 'c', 'd', 'e', 'f'), row.names = c(NA, -4L), class = 'data.frame'));is.pairlist(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinispairlist.testispairlist14
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.pairlist(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinispairlist.testispairlist2
+#argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = 'ts'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c('y', 'lag.quarterly.revenue', 'price.index', 'income.level', 'market.potential'), row.names = c('1962.25', '1962.5', '1962.75', '1963', '1963.25', '1963.5', '1963.75', '1964', '1964.25', '1964.5', '1964.75', '1965', '1965.25', '1965.5', '1965.75', '1966', '1966.25', '1966.5', '1966.75', '1967', '1967.25', '1967.5', '1967.75', '1968', '1968.25', '1968.5', '1968.75', '1969', '1969.25', '1969.5', '1969.75', '1970', '1970.25', '1970.5', '1970.75', '1971', '1971.25', '1971.5', '1971.75'), class = 'data.frame'));is.pairlist(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinispairlist.testispairlist3
+#argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'));is.pairlist(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinispairlist.testispairlist4
+#argv <- list(structure(list(double.eps = 2.22044604925031e-16, double.neg.eps = 1.11022302462516e-16, double.xmin = 2.2250738585072e-308, double.xmax = 1.79769313486232e+308, double.base = 2L, double.digits = 53L, double.rounding = 5L, double.guard = 0L, double.ulp.digits = -52L, double.neg.ulp.digits = -53L, double.exponent = 11L, double.min.exp = -1022L, double.max.exp = 1024L, integer.max = 2147483647L, sizeof.long = 8L, sizeof.longlong = 8L, sizeof.longdouble = 16L, sizeof.pointer = 8L), .Names = c('double.eps', 'double.neg.eps', 'double.xmin', 'double.xmax', 'double.base', 'double.digits', 'double.rounding', 'double.guard', 'double.ulp.digits', 'double.neg.ulp.digits', 'double.exponent', 'double.min.exp', 'double.max.exp', 'integer.max', 'sizeof.long', 'sizeof.longlong', 'sizeof.longdouble', 'sizeof.pointer')));is.pairlist(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinispairlist.testispairlist5
+#argv <- list(structure(list(widths = structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.880387330793302, 0.872694837975491, 0.862482627238653, 0.85694743348285, 0.844691564126209, 0.837992157219203, 0.826065549537932, 0.821813943091766, 0.801815430713592, 0.777814415451275, 0.862246453969427, 0.852609391860845, 0.852456189097792, 0.852184980555031, 0.847433895388854, 0.847321709738264, 0.843043642624801, 0.839180526055581, 0.838791375904974, 0.832684615585117, 0.829332878628487, 0.818738807141856, 0.817393740696655, 0.795187378905238, 0.771817782697421, 0.644452148607831, 0.532190150080465, 0.330404926016424), .Dim = c(28L, 3L), .Dimnames = list(c('10', '9', '2', '4', '8', '7', '6', '3', '1', '5', '22', '19', '11', '13', '18', '15', '16', '23', '24', '12', '14', '20', '21', '17', '25', '27', '28', '26'), c('cluster', 'neighbor', 'sil_width'))), clus.avg.widths = c(0.838270528963027, 0.778192810753059), avg.width = 0.799649138685191), .Names = c('widths', 'clus.avg.widths', 'avg.width')));is.pairlist(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinispairlist.testispairlist6
+#argv <- list(structure(list(loc = c(0.0804034870161223, 10.3548347412639), cov = structure(c(3.01119301965569, 6.14320559215603, 6.14320559215603, 14.7924762275451), .Dim = c(2L, 2L)), d2 = 2, wt = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), sqdist = c(0.439364946869246, 0.0143172566761092, 0.783644692619938, 0.766252947443554, 0.346865912102713, 1.41583192825661, 0.168485512965902, 0.354299830956879, 0.0943280426627965, 1.05001058449122, 1.02875556201707, 0.229332323173361, 0.873263925064789, 2.00000009960498, 0.449304354954282, 0.155023307933165, 0.118273979375253, 0.361693898800799, 0.21462398586105, 0.155558909016629, 0.471723661454506, 0.719528696331092, 0.0738164380664225, 1.46001193111051, 0.140785322548143, 0.127761195166703, 0.048012401156175, 0.811750426884519, 0.425827709817574, 0.163016638545231, 0.557810866640707, 0.277350147637843, 0.0781399119055092, 1.29559183995835, 0.718376405567138, 1.37650242941478, 0.175087780508154, 0.233808973148729, 0.693473805463067, 0.189096604125073, 1.96893781800017, 0.4759756980592, 1.69665760380474, 0.277965749373647, 0.920525436884815, 0.57525234053591, 1.59389578665009, 0.175715364671313, 0.972045794851437, 1.75514684962809, 0.0597413185507202, 0.174340343040626, 0.143421553552865, 0.997322770596838, 1.94096736957465, 2.00000001159796, 0.367000821772989, 0.682474530588235, 1.20976163307984, 1.27031685239035, 1.79775635513363, 0.0857761902860323, 0.435578932929501, 0.214370604878221, 0.494714247412686, 1.78784623754399, 1.24216674083069, 1.87749485326709, 0.0533296334123023, 1.45588362584438, 2.00000000631459, 0.208857144738039, 0.119251291573058, 0.365303924649962, 0.690656674239668, 0.0396958405786268, 0.258262120876164, 1.57360254057537, 0.307548421049514, 0.628417063100241, 1.00647098749202, 0.297624360530352, 0.400289147351669, 1.98298426250944, 0.129127182829694, 0.0794695319493149, 0.991481735944321, 0.444068154119836, 0.206790162395106, 0.574310829851377, 0.181887577583334, 0.433872021297517, 0.802994892604009, 0.293053770941001, 1.7002969001965, 0.77984639982848, 1.36127407487932, 0.761935213110323, 0.597915313430067, 0.237134831067472), prob = NULL, tol = 1e-07, eps = 9.96049758228423e-08, it = 898L, maxit = 5000, ierr = 0L, conv = TRUE), .Names = c('loc', 'cov', 'd2', 'wt', 'sqdist', 'prob', 'tol', 'eps', 'it', 'maxit', 'ierr', 'conv'), class = 'ellipsoid'));is.pairlist(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinispairlist.testispairlist7
+#argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(20L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 19L, 19L, 19L, 20L, 20L, 20L, 19L, 20L, 19L, 19L, 19L, 20L), mday = c(30L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 30L, 30L, 30L, 30L, 31L, 31L, 31L, 30L, 30L, 30L, 31L, 30L, 31L, 31L, 31L, 30L), mon = c(5L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 5L, 5L, 5L, 5L, 11L, 11L, 11L, 5L, 5L, 5L, 11L, 5L, 11L, 11L, 11L, 5L), year = c(72L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 81L, 82L, 83L, 85L, 87L, 89L, 90L, 92L, 93L, 94L, 95L, 97L, 98L, 105L, 108L, 112L), wday = c(5L, 0L, 1L, 2L, 3L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 0L, 4L, 0L, 1L, 2L, 3L, 4L, 0L, 1L, 4L, 6L, 3L, 6L), yday = c(181L, 365L, 364L, 364L, 364L, 365L, 364L, 364L, 364L, 180L, 180L, 180L, 180L, 364L, 364L, 364L, 181L, 180L, 180L, 364L, 180L, 364L, 364L, 365L, 181L), isdst = c(1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 1L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), tzone = c('', 'EST', 'EDT')));is.pairlist(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinispairlist.testispairlist8
+#argv <- list(structure(list(usr = c(0.568, 1.432, -1.08, 1.08), xaxp = c(0.6, 1.4, 4), yaxp = c(-1, 1, 4)), .Names = c('usr', 'xaxp', 'yaxp')));is.pairlist(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinispairlist.testispairlist9
+#argv <- list(structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c('A', 'B', 'C'), class = 'factor')), .Names = c('x', 'y', 'fac'), row.names = c(NA, -10L), class = 'data.frame'));is.pairlist(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisraw.testisraw1
+#argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'character(0)', row.names = character(0), class = 'data.frame'));is.raw(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisraw.testisraw2
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.raw(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisraw.testisraw3
+#argv <- list(c(0.367649186507741, -0.792514168501158, 0.0770550181313438, 0.193209990320579, 0.556026088821232, -1.90995675991293, 1.21007077813812, -1.22764970620883));is.raw(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisraw.testisraw4
+#argv <- list(structure(c(1, 1, 1, 1, 1, 1), .Dim = 1:3));is.raw(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinisraw.testisraw5
+#argv <- list(raw(0));is.raw(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinissymbol.testissymbol1
+#argv <- list(0.05);is.symbol(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinissymbol.testissymbol2
+#argv <- list(structure(c(1, 1, 1, 1, 1, 1), .Dim = 1:3));is.symbol(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinissymbol.testissymbol3
+#argv <- list(numeric(0));is.symbol(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinissymbol.testissymbol4
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.symbol(argv[[1]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength1
+#argv <- list('~ . + Soft+M.user:Temp');length(argv[[1]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength10
+#argv <- list(list(structure(c(-1L, -2L, -3L, -4L, -5L, -6L, -7L, -8L, -9L, -10L), .Dim = c(2L, 5L)), structure(list(V1 = 1:5, V2 = 6:10, V3 = 11:15, V4 = 16:20, V5 = 21:25), .Names = c('V1', 'V2', 'V3', 'V4', 'V5'), row.names = c(NA, -5L), class = 'data.frame')));length(argv[[1]]);
+[1] 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength11
+#argv <- list(structure(list(weight = c(4.17, 5.58), group = structure(c(1L, 1L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = c('weight', 'group'), row.names = 1:2, class = 'data.frame'));length(argv[[1]]);
+[1] 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength13
+#argv <- list(structure(c(-Inf, -Inf, 0, 0, 1, 2, Inf, Inf, Inf, -Inf, -Inf, 0, 0.5, 1, 2, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 1, 2, 2, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.8, 1.6, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.3, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.4, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.2, 1.9, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.499999999999999, 1.33333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.325, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL)));length(argv[[1]]);
+[1] 81
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength14
+#argv <- list(structure(list(character = character(0), numeric = numeric(0), numeric = numeric(0), complex = complex(0), integer = integer(0), logical = logical(0), character = character(0)), .Names = c('character', 'numeric', 'numeric', 'complex', 'integer', 'logical', 'character')));length(argv[[1]]);
+[1] 7
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength15
+#argv <- list(structure(list(loc = c(0.0804034870161223, 10.3548347412639), cov = structure(c(3.01119301965569, 6.14320559215603, 6.14320559215603, 14.7924762275451), .Dim = c(2L, 2L)), d2 = 2, wt = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), sqdist = c(0.439364946869246, 0.0143172566761092, 0.783644692619938, 0.766252947443554, 0.346865912102713, 1.41583192825661, 0.168485512965902, 0.354299830956879, 0.0943280426627965, 1.05001058449122, 1.02875556201707, 0.229332323173361, 0.873263925064789, 2.00000009960498, 0.449304354954282, 0.155023307933165, 0.118273979375253, 0.361693898800799, 0.21462398586105, 0.155558909016629, 0.471723661454506, 0.719528696331092, 0.0738164380664225, 1.46001193111051, 0.140785322548143, 0.127761195166703, 0.048012401156175, 0.811750426884519, 0.425827709817574, 0.163016638545231, 0.557810866640707, 0.277350147637843, 0.0781399119055092, 1.29559183995835, 0.718376405567138, 1.37650242941478, 0.175087780508154, 0.233808973148729, 0.693473805463067, 0.189096604125073, 1.96893781800017, 0.4759756980592, 1.69665760380474, 0.277965749373647, 0.920525436884815, 0.57525234053591, 1.59389578665009, 0.175715364671313, 0.972045794851437, 1.75514684962809, 0.0597413185507202, 0.174340343040626, 0.143421553552865, 0.997322770596838, 1.94096736957465, 2.00000001159796, 0.367000821772989, 0.682474530588235, 1.20976163307984, 1.27031685239035, 1.79775635513363, 0.0857761902860323, 0.435578932929501, 0.214370604878221, 0.494714247412686, 1.78784623754399, 1.24216674083069, 1.87749485326709, 0.0533296334123023, 1.45588362584438, 2.00000000631459, 0.208857144738039, 0.119251291573058, 0.365303924649962, 0.690656674239668, 0.0396958405786268, 0.258262120876164, 1.57360254057537, 0.307548421049514, 0.628417063100241, 1.00647098749202, 0.297624360530352, 0.400289147351669, 1.98298426250944, 0.129127182829694, 0.0794695319493149, 0.991481735944321, 0.444068154119836, 0.206790162395106, 0.574310829851377, 0.181887577583334, 0.433872021297517, 0.802994892604009, 0.293053770941001, 1.7002969001965, 0.77984639982848, 1.36127407487932, 0.761935213110323, 0.597915313430067, 0.237134831067472), prob = NULL, tol = 1e-07, eps = 9.96049758228423e-08, it = 898L, maxit = 5000, ierr = 0L, conv = TRUE), .Names = c('loc', 'cov', 'd2', 'wt', 'sqdist', 'prob', 'tol', 'eps', 'it', 'maxit', 'ierr', 'conv'), class = 'ellipsoid'));length(argv[[1]]);
+[1] 12
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength16
+#argv <- list(c(-167.089651989438, -122.420302709026));length(argv[[1]]);
+[1] 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength17
+#argv <- list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils'), frow = c(1809L, 1810L, 1811L, 1812L, 1802L, 1827L, 1840L), lrow = c(1809L, 1814L, 1811L, 1813L, 1816L, 1834L, 1842L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 7L)));length(argv[[1]]);
+[1] 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength18
+#argv <- list(structure(list(object = structure(3.14159265358979, comment = 'Start with pi'), slots = 'comment', dataPart = TRUE), .Names = c('object', 'slots', 'dataPart')));length(argv[[1]]);
+[1] 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength19
+#argv <- list(structure(list(name = structure(c('McNeil', 'Ripley', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'AsIs'), title = structure(c(3L, 6L, 7L, 4L, 2L, 5L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, NA, NA, NA, NA, 1L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor'), nationality = structure(c(1L, 2L, 2L, 3L, 3L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(1L, 1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor')), .Names = c('name', 'title', 'other.author', 'nationality', 'deceased'), row.names = c(6L, 4L, 5L, 3L, 1L, 2L), class = 'data.frame'));length(argv[[1]]);
+[1] 5
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength2
+#argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')));length(argv[[1]]);
+[1] 6
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength20
+#argv <- list(c(' These operators return vectors containing the result of the element', ' by element operations. The elements of shorter vectors are recycled', ' as necessary (with a ‘warning’ when they are recycled only', ' _fractionally_). The operators are ‘+’ for addition,', ' ‘-’ for subtraction, ‘*’ for multiplication, ‘/’ for', ' division and ‘^’ for exponentiation.', '', ' ‘%%’ indicates ‘x mod y’ and ‘%/%’ indicates', ' integer division. It is guaranteed that '));length(argv[[1]]);
+[1] 9
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength21
+#argv <- list(structure(c(3.14475800140539, 3.11465478132706, 3.10630529271564, 3.0844667956717, 3.10602734436792, 3.1179780987041, 3.10510218928681, 3.13870964347838, 3.1236627058491, 3.16426296817658, 3.18524449375727, 3.19607967740367, 3.12404668400251, 3.1073799072767, 3.10252776401906, 3.0888846453793, 3.10244112014795, 3.1099501880355, 3.10186319790916, 3.12297248377609, 3.11352136079872, 3.13902281247452, 3.1522015282299, 3.15900722027104), .Tsp = c(1983, 1984.91666666667, 12), class = 'ts'));length(argv[[1]]);
+[1] 24
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength22
+#argv <- list(c(3.14159265358979e-10, 0.0314159265358979, 3.14159265358979, 31.4159265358979, 314.159265358979, 314159265.358979, 3.14159265358979e+20));length(argv[[1]]);
+[1] 7
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength23
+#argv <- list(structure(list(names = character(0), row.names = integer(0), class = 'data.frame'), .Names = c('names', 'row.names', 'class')));length(argv[[1]]);
+[1] 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength24
+#argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')));length(argv[[1]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength25
+#argv <- list(c(0+0i, -0.740437474899139-0.482946826369552i, -0.333166449062945-0.753763230370951i, 0+0i, 0.522033838837248+0.102958580568997i, 0+0i, 0+0i, 0+0i, -0.563222209454641-0.518013590538404i, -0.068796124369349+0.97981641556181i, 0.244428915757284-0.330850507052219i, 0+0i, 0+0i, 0+0i, -0.451685375030484+0.126357395265016i, 0.375304016677864+0.436900190874168i, -0.674059300339186+0.084416799015191i, 0+0i, 0.509114684244823-0.086484623694157i, -0.535642839219739+0.289927561259502i, 0.629727249341749+0.707648659913726i, 0+0i, -0.333800277698424-0.317646103980588i, -0.422186107911717+0.317002735170286i, -0.616692335171505+0.068946145379939i, -0.136100485502624-0.487679764177213i, -0.68086000613138+0.047032323152903i, 0.296209908189768+0.585533462557103i, 0.43280012844045+0.136998748692477i, -0.680205941942733-0.256569497284745i, 0+0i, 0+0i, 0+0i, -0.983769553611346-0.088288289740869i, -0.046488672133508-0.622109071207677i, 0+0i, 0.379095891586975-0.727769566649926i, 0+0i, 0+0i, -0.150428076228347+0.615598727377677i, 0.762964492726935+0.377685645913312i, -0.7825325866026+0.365371705974346i, -0.792443423040311-0.029652870362208i, 0.265771060547393-0.106618612674382i, -0.076741350022367-0.422144111460857i, 0.120061986786934-0.623033085890884i, 0+0i, -0.145741981978782+0.529165019069452i, 0+0i, 0+0i, 0+0i, 0+0i, 0+0i, 0.328611964770906+0.215416587846774i, -0.583053183540166-0.668235480667835i, -0.782507286391418+0.318827979750013i, 0+0i, 0+0i, 0+0i, 0+0i, -0.271871452223431+0.426340387811162i, 0.590808184713385-0.344468770084509i, 0+0i, 0+0i, 0+0i, 0+0i, 0.866602113481861-0.172567291859327i, 0.031389337713892-0.607820631329035i, 0+0i, 0+0i, 0.151969488085021-0.827990593142535i, -0.266853748421854-0.866413193943766i, 0.071623062591495-0.867246686843546i, -0.788765741891382+0.508717463380604i, -0.228835546857432-0.349587041980114i, 0.500139791176978-0.016703152458872i, 0.15619107374708-0.485402548890295i, -0.369039310626083+0.398423724273751i, 0+0i, -0.399467692630093-0.421179989556223i, 0.411274074028001+0.133781691724871i, 0.573364366690245+0.328833257005489i, 0+0i, 0.387209171815106+0.750271083217101i, 0+0i, 0+0i, -0.168543113030619+0.43048451175239i, 0+0i, 0.388005062566602-0.290649953587954i, -0.013004326537709-0.490434895455784i, 0.069845221019376-0.762134635168809i, 0+0i, 0.27384734040072+0.383667165938905i, 0+0i, -0.894951082455532+0.317442909372288i, 0.5073401683933-0.213001485168032i, 0+0i, -0.343169835663372+0.597359384628839i, -0.283179001991236-0.385834501657171i, -0.517794900198098-0.36732932802092i));length(argv[[1]]);
+[1] 100
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength27
+#argv <- list(c(FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));length(argv[[1]]);
+[1] 23
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength28
+#argv <- list(structure(list(A = c(1, NA, 1), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA_integer_, NA_integer_, NA_integer_), E = c(FALSE, NA, TRUE), F = c('abc', NA, 'def')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')));length(argv[[1]]);
+[1] 6
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength29
+#argv <- list(list(structure(list(srcfile = c('/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R'), frow = 122:123, lrow = 122:123), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'), structure(list(srcfile = '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', frow = 124L, lrow = 124L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame')));length(argv[[1]]);
+[1] 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength30
+#argv <- list(structure(list(Df = c(NA, 1, 1, 1), `Sum of Sq` = c(NA, 820.907401534698, 26.7893827563485, 9.93175377572661), RSS = c(47.9727294003871, 868.880130935086, 74.7621121567356, 57.9044831761137), AIC = c(24.9738836085411, 60.6293256496563, 28.7417044039189, 25.4199908988691)), .Names = c('Df', 'Sum of Sq', 'RSS', 'AIC'), row.names = c('<none>', '- x1', '- x2', '- x4'), class = c('anova', 'data.frame')));length(argv[[1]]);
+[1] 4
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength31
+#argv <- list(list(structure(c(30.3398431424662, 53.0273088677942, 11.6721423374092, 3.1219098789343, 9.58888402166762, 41.0027598267751, 8.26816396385794, 46.7997906867199, 7.96616780447507, 27.2952699050281, 7.05399789883986, 5.03904688224502, 2.61409832611023, 14.9537930856989, 7.22312484916424, 8.25480759597494, 37.7467076615774, 65.972863357068, 14.5216619125438, 3.88406159493231, 10.6419076139158, 45.5055646732323, 9.17614988785547, 51.9392087455927, 7.84624470450625, 26.8843655076016, 6.94780665155944, 4.96318881123281, 2.45558360989303, 14.0470191347445, 6.78512618085463, 7.75424934595279), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32')), 2.22044604925031e-16));length(argv[[1]]);
+[1] 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength32
+#argv <- list(structure(c(78796800, 94694400, 126230400, 157766400, 189302400, 220924800, 252460800, 283996800, 315532800, 362793600, 394329600, 425865600, 489024000, 567993600, 631152000, 662688000, 709948800, 741484800, 773020800, 820454400, 867715200, 915148800, 1136073600, 1230768000, 1341100800), class = c('POSIXct', 'POSIXt')));length(argv[[1]]);
+[1] 25
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength33
+#argv <- list(c(1.03711990677284e+29, 4.58346574364236e+27, 2.02562481791768e+26, 8.95208153058638e+24, 3.95629847255715e+23, 1.7484534240517e+22, 7.7271454561408e+20, 34149480972585590784, 1509208102926327040, 66698206089453432, 2947672264272576, 130269967045726, 5757178273805.44, 254434569303.796, 11244672651.0134, 496975017.177538, 21967997.2327598, 971670.715389718, 43086.3667907314, 1929.95757399166, 90.0797181275922, 5.03402841668789, 0.625146618950265, -0.304867530220417, -0.123332207492738, 0.0884498083502638, 0.0243523396488189, -0.0527015109337102, -3.68088311960635e-05, -0.0351989174304481, 0.024656114194774));length(argv[[1]]);
+[1] 31
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength34
+#argv <- list(structure(c('1.0', NA, NA, 'methods, graphics, pkgA', NA, NA, NA, 'GPL (>= 2)', NA, NA, NA, NA, NA, NA, 'R 3.0.1; ; 2014-03-17 18:49:56 UTC; unix'), .Names = c('Version', NA, NA, 'Imports', NA, NA, NA, 'License', NA, NA, NA, NA, NA, NA, 'Built')));length(argv[[1]]);
+[1] 15
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength35
+#argv <- list(structure(c(-1, 0, 1, 2, 3), .Tsp = c(-1, 3, 1)));length(argv[[1]]);
+[1] 5
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength4
+#argv <- list(structure(list(a = 6:10), .Names = 'a', row.names = 6:10, class = 'data.frame'));length(argv[[1]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlength.testlength9
+#argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));length(argv[[1]]);
+[1] 260
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlist.testlist28
+#argv <- list(3.14159265358979, 'C', NaN, Inf, 1:3, c(0, NA), NA);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]]);
+[[1]]
+[1] 3.141593
+
+[[2]]
+[1] "C"
+
+[[3]]
+[1] NaN
+
+[[4]]
+[1] Inf
+
+[[5]]
+[1] 1 2 3
+
+[[6]]
+[1] 0 NA
+
+[[7]]
+[1] NA
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlist.testlist38
+#argv <- list(srcfile = '/home/lzhao/hg/r-instrumented/library/utils/R/utils', frow = 1271L, lrow = 1273L);list(argv[[1]],argv[[2]],argv[[3]]);
+[[1]]
+[1] "/home/lzhao/hg/r-instrumented/library/utils/R/utils"
+
+[[2]]
+[1] 1271
+
+[[3]]
+[1] 1273
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlist.testlist40
+#argv <- list(x = c(190, 118, 149, 313, NA, NA, 299, 99, 19, 194, NA, 256, 290, 274, 65, 334, 307, 78, 322, 44, 8, 320, 25, 92, 66, 266, NA, 13, 252, 223, 279, 286, 287, 242, 186, 220, 264, 127, 273, 291, 323, 259, 250, 148, 332, 322, 191, 284, 37, 120, 137, 150, 59, 91, 250, 135, 127, 47, 98, 31, 138, 269, 248, 236, 101, 175, 314, 276, 267, 272, 175, 139, 264, 175, 291, 48, 260, 274, 285, 187, 220, 7, 258, 295, 294, 223, 81, 82, 213, 275, 253, 254, 83, 24, 77, NA, NA, NA, 255, 229, 207, 222, 137, 192, 273, 157, 64, 71, 51, 115, 244, 190, 259, 36, 255, 212, 238, 215, 153, 203, 225, 237, 188, 167, 197, 183, 189, 95, 92, 252, 220, 230, 259, 236, 259, 238, 24, 112, 237, 224, 27, 238, 201, 238, 14, 139, 49, 20, 193, 145, 191, 131, 223), y = c(7.4, 8, 12.6, 11.5, 14.3, 14.9, 8.6, 13.8, 20.1, 8.6, 6.9, 9.7, 9.2, 10.9, 13.2, 11.5, 12, 18.4, 11.5, 9.7, 9.7, 16.6, 9.7, 12, 16.6, 14.9, 8, 12, 14.9, 5.7, 7.4, 8.6, 9.7, 16.1, 9.2, 8.6, 14.3, 9.7, 6.9, 13.8, 11.5, 10.9, 9.2, 8, 13.8, 11.5, 14.9, 20.7, 9.2, 11.5, 10.3, 6.3, 1.7, 4.6, 6.3, 8, 8, 10.3, 11.5, 14.9, 8, 4.1, 9.2, 9.2, 10.9, 4.6, 10.9, 5.1, 6.3, 5.7, 7.4, 8.6, 14.3, 14.9, 14.9, 14.3, 6.9, 10.3, 6.3, 5.1, 11.5, 6.9, 9.7, 11.5, 8.6, 8, 8.6, 12, 7.4, 7.4, 7.4, 9.2, 6.9, 13.8, 7.4, 6.9, 7.4, 4.6, 4, 10.3, 8, 8.6, 11.5, 11.5, 11.5, 9.7, 11.5, 10.3, 6.3, 7.4, 10.9, 10.3, 15.5, 14.3, 12.6, 9.7, 3.4, 8, 5.7, 9.7, 2.3, 6.3, 6.3, 6.9, 5.1, 2.8, 4.6, 7.4, 15.5, 10.9, 10.3, 10.9, 9.7, 14.9, 15.5, 6.3, 10.9, 11.5, 6.9, 13.8, 10.3, 10.3, 8, 12.6, 9.2, 10.3, 10.3, 16.6, 6.9, 13.2, 14.3, 8, 11.5), xlab = NULL, ylab = NULL);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);
+[[1]]
+ [1] 190 118 149 313 NA NA 299 99 19 194 NA 256 290 274 65 334 307 78
+ [19] 322 44 8 320 25 92 66 266 NA 13 252 223 279 286 287 242 186 220
+ [37] 264 127 273 291 323 259 250 148 332 322 191 284 37 120 137 150 59 91
+ [55] 250 135 127 47 98 31 138 269 248 236 101 175 314 276 267 272 175 139
+ [73] 264 175 291 48 260 274 285 187 220 7 258 295 294 223 81 82 213 275
+ [91] 253 254 83 24 77 NA NA NA 255 229 207 222 137 192 273 157 64 71
+[109] 51 115 244 190 259 36 255 212 238 215 153 203 225 237 188 167 197 183
+[127] 189 95 92 252 220 230 259 236 259 238 24 112 237 224 27 238 201 238
+[145] 14 139 49 20 193 145 191 131 223
+
+[[2]]
+ [1] 7.4 8.0 12.6 11.5 14.3 14.9 8.6 13.8 20.1 8.6 6.9 9.7 9.2 10.9 13.2
+ [16] 11.5 12.0 18.4 11.5 9.7 9.7 16.6 9.7 12.0 16.6 14.9 8.0 12.0 14.9 5.7
+ [31] 7.4 8.6 9.7 16.1 9.2 8.6 14.3 9.7 6.9 13.8 11.5 10.9 9.2 8.0 13.8
+ [46] 11.5 14.9 20.7 9.2 11.5 10.3 6.3 1.7 4.6 6.3 8.0 8.0 10.3 11.5 14.9
+ [61] 8.0 4.1 9.2 9.2 10.9 4.6 10.9 5.1 6.3 5.7 7.4 8.6 14.3 14.9 14.9
+ [76] 14.3 6.9 10.3 6.3 5.1 11.5 6.9 9.7 11.5 8.6 8.0 8.6 12.0 7.4 7.4
+ [91] 7.4 9.2 6.9 13.8 7.4 6.9 7.4 4.6 4.0 10.3 8.0 8.6 11.5 11.5 11.5
+[106] 9.7 11.5 10.3 6.3 7.4 10.9 10.3 15.5 14.3 12.6 9.7 3.4 8.0 5.7 9.7
+[121] 2.3 6.3 6.3 6.9 5.1 2.8 4.6 7.4 15.5 10.9 10.3 10.9 9.7 14.9 15.5
+[136] 6.3 10.9 11.5 6.9 13.8 10.3 10.3 8.0 12.6 9.2 10.3 10.3 16.6 6.9 13.2
+[151] 14.3 8.0 11.5
+
+[[3]]
+NULL
+
+[[4]]
+NULL
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlist.testlist51
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));list(argv[[1]]);
+[[1]]
+[1] 3.141593
+attr(,"class")
+[1] "3.14159265358979"
+attr(,"class")
+[1] "testit"
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlist.testlist56
+#argv <- list(class = 'data.frame', row.names = c(NA, 32L));list(argv[[1]],argv[[2]]);
+[[1]]
+[1] "data.frame"
+
+[[2]]
+[1] NA 32
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlist.testlist63
+#argv <- list(x = 2.28125, y = 1.70580465116279, xlab = NULL, ylab = NULL);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);
+[[1]]
+[1] 2.28125
+
+[[2]]
+[1] 1.705805
+
+[[3]]
+NULL
+
+[[4]]
+NULL
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlog10.testlog101
+#argv <- list(c(0.047, 0.013, 0.002, 1e-04, 2.3e-05, 4.5e-06));log10(argv[[1]]);
+[1] -1.327902 -1.886057 -2.698970 -4.000000 -4.638272 -5.346787
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlog10.testlog102
+#argv <- list(1.529e+302);log10(argv[[1]]);
+[1] 302.1844
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlog10.testlog106
+#argv <- list(c(10, 100, 1000, 10000, 1e+05));log10(argv[[1]]);
+[1] 1 2 3 4 5
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlog2.testlog21
+#argv <- list(48L);log2(argv[[1]]);
+[1] 5.584963
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinlog2.testlog23
+#argv <- list(2.2250738585072e-308);log2(argv[[1]]);
+[1] -1022
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch1
+#argv <- list('corMatrix', c('dpoMatrix', 'dsyMatrix', 'ddenseMatrix', 'symmetricMatrix', 'dMatrix', 'denseMatrix', 'compMatrix', 'Matrix', 'mMatrix'), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch12
+#argv <- list(1:4, 3L, 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 0 0 1 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch13
+#argv <- list(c('0.5', '0.5', '0.5', '0.5', '0.5'), 0.5, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 1 1 1 1 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch15
+#argv <- list(c('May', 'Jun', 'Jul', 'Aug', 'Sep'), c(NA, NaN), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 0 0 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch16
+#argv <- list(c(1L, 2L, 4L, 13L, 14L, 15L, 16L, 17L, 18L, 23L), c(23L, 28L), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] 0 0 0 0 0 0 0 0 0 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch17
+#argv <- list(c('dMatrix', 'nonStructure', 'structure'), c('nonStructure', 'structure'), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] NA 1 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch18
+#argv <- list(structure(c(0, 1), .Names = c('Domestic', 'Foreign')), NA_integer_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] NA NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch2
+#argv <- list(c('ANY', 'abIndex', 'ddenseMatrix', 'diagonalMatrix', 'dsparseMatrix', 'lMatrix', 'nMatrix', 'nsparseVector', 'pMatrix', 'sparseVector'), 'ANY', NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] 1 NA NA NA NA NA NA NA NA NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch20
+#argv <- list(structure(c(1, 1, 6, 2, 2, 7, 3, 3, 7, 3, 3, 8, 4, 4, 4, 5), .Dim = c(16L, 1L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16'), 'y')), c(1, 2, 3, 4, 5, 6, 7, 8), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] 1 1 6 2 2 7 3 3 7 3 3 8 4 4 4 5
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch21
+#argv <- list(structure(c(0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3), .Tsp = c(1959, 1997.91666667, 12), class = 'ts'), c(0, 1, 2, 3), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1
+ [38] 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1
+ [75] 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1
+[112] 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2
+[149] 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2
+[186] 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2
+[223] 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3
+[260] 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3
+[297] 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3
+[334] 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4
+[371] 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4
+[408] 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4
+[445] 1 1 1 2 2 2 3 3 3 4 4 4 1 1 1 2 2 2 3 3 3 4 4 4
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch22
+#argv <- list(c(NA, NA, 3, 4, 5), c(NA, NA, 4, 5), 0L, NA); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 0 0 0 3 4
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch23
+#argv <- list(structure('tools', .Names = 'name'), c('base', 'utils'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch27
+#argv <- list(c('2005-01-01', '2006-01-01', '2007-01-01', '2008-01-01', '2009-01-01'), c(NA, NaN), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 0 0 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch29
+#argv <- list(c('TRUE', 'FALSE', 'TRUE', 'FALSE', 'TRUE', 'FALSE', 'TRUE', 'FALSE', 'TRUE', 'FALSE'), c(FALSE, TRUE), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] 2 1 2 1 2 1 2 1 2 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch3
+#argv <- list(character(0), NA_integer_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+integer(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch30
+#argv <- list(c('2005-01-01', '2005-02-01', '2005-03-01', '2005-04-01', '2005-05-01', '2005-06-01', '2005-07-01', '2005-08-01', '2005-09-01', '2005-10-01', '2005-11-01', '2005-12-01', '2006-01-01', '2006-02-01', '2006-03-01', '2006-04-01', '2006-05-01', '2006-06-01', '2006-07-01', '2006-08-01', '2006-09-01', '2006-10-01', '2006-11-01', '2006-12-01', '2007-01-01', '2007-02-01', '2007-03-01', '2007-04-01', '2007-05-01', '2007-06-01', '2007-07-01', '2007-08-01', '2007-09-01', '2007-10-01', '2007-11-01', '2007-12-01', '2008-01-01', '2008-02-01', '2008-03-01', '2008-04-01', '2008-05-01', '2008-06-01', '2008-07-01', '2008-08-01', '2008-09-01', '2008-10-01', '2008-11-01', '2008-12-01', '2009-01-01'), NA_integer_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
+[26] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch31
+#argv <- list(c(1, 2, 3, 4, 8, 12), c(1, 2, 3, 4, 8, 12), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 1 2 3 4 5 6
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch32
+#argv <- list(c('.__C__classA', '.__T__$:base', '.__T__$<-:base', '.__T__[:base', '.__T__plot:graphics', 'plot'), c('.__NAMESPACE__.', '.__S3MethodsTable__.', '.packageName', '.First.lib', '.Last.lib', '.onLoad', '.onAttach', '.onDetach', '.conflicts.OK', '.noGenerics'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 0 0 0 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch5
+#argv <- list(c(0.00711247435174189, 0.251292124343149, -0.319172743733056, 5.75733114833721e-05, -0.35788385867217, -0.423873493915367, -0.440922191441033, 0.454737405613056, -0.337349081024889, -0.340540089756868, 0.0142999714851724, -0.337349081024889, 0.16929974943645, 0.0119141094780619, 0.0237947544260095, 0.481799107922823, -0.398620160881439, 0.112296211162227, 0.124500575635478, -0.423873493915367, 0.476631055345105, -0.201544176575946, 0.0504435384277691, 0.0142999714851724, 0.0859627732681778, -0.402191440217491, 0.0237947544260095, -0.35788385867217, 0.131606068222389, -0.328335725283617, -0.366873527650917, 0.855944113774621, 0.0506448607016037, -0.540294711232517, 0.365377890605673, 0.122315677921641, 0.122315677921641, 0.476631055345105, 0.0859627732681778, 0.028962807003728, 0.130710526672205, 0.704128425262244, 0.0119141094780619, 0.0506448607016037, 0.0859627732681778, 0.131606068222389, 0.122315677921641, -0.429041546493085, 0.0506448607016037, -0.35788385867217, 0.746844979419744, -0.158827622418446, -0.340540089756868, 0.130710526672205, -0.429041546493085, 0.126579318324608, 0.0119141094780619, 0.251292124343149, -0.283536551482645, 0.107466982896435, 0.586499858105134, -0.402392762491326, -0.85437461044313, 0.133663557186039, -0.328335725283617, 0.124500575635478, 0.0237947544260095, 0.133663557186039, 0.133663557186039, 0.656149860060726, 0.579415619243703, 0.107466982896435, -0.599127482939288, -0.326256982594487, 0.746844979419744, -0.452778727607612, -0.328335725283617, 0.0119141094780619, -0.340540089756868, -0.319172743733056, -0.725390113737062, 0.503481161620698, -0.661275243349858, -0.402392762491326, 0.476631055345105, 0.126579318324608, 0.251292124343149, -0.0874584103134217, 0.107466982896435, -0.201544176575946, 0.0734191385691725), c(-0.85437461044313, -0.725390113737062, -0.661275243349858, -0.599127482939288, -0.540294711232517, -0.452778727607612, -0.440922191441033, -0.429041546493085, -0.423873493915367, -0.402392762491326, -0.402191440217491, -0.398620160881439, -0.366873527650917, -0.35788385867217, -0.340540089756868, -0.337349081024889, -0.328335725283617, -0.326256982594487, -0.319172743733056, -0.283536551482645, -0.201544176575946, -0.158827622418446, -0.0874584103134217, 5.75733114833721e-05, 0.00711247435174189, 0.0119141094780619, 0.0142999714851724, 0.0237947544260095, 0.028962807003728, 0.0504435384277691, 0.0506448607016037, 0.0734191385691725, 0.0859627732681778, 0.107466982896435, 0.112296211162227, 0.122315677921641, 0.124500575635478, 0.126579318324608, 0.130710526672205, 0.131606068222389, 0.133663557186039, 0.16929974943645, 0.251292124343149, 0.365377890605673, 0.454737405613056, 0.476631055345105, 0.481799107922823, 0.503481161620698, 0.579415619243703, 0.586499858105134, 0.656149860060726, 0.704128425262244, 0.746844979419744, 0.855944113774621), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] 25 43 19 24 14 9 7 45 16 15 27 16 42 26 28 47 12 35 37 9 46 21 30 27 33
+[26] 11 28 14 40 17 13 54 31 5 44 36 36 46 33 29 39 52 26 31 33 40 36 8 31 14
+[51] 53 22 15 39 8 38 26 43 20 34 50 10 1 41 17 37 28 41 41 51 49 34 4 18 53
+[76] 6 17 26 15 19 2 48 3 10 46 38 43 23 34 21 32
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch6
+#argv <- list(c('1008', '1011', '1013', '1014', '1015', '1016', '1027', '1028', '1030', '1032', '1051', '1052', '1083', '1093', '1095', '1096', '110', '1102', '111', '1117', '112', '113', '116', '117', '1219', '125', '1250', '1251', '126', '127', '128', '1291', '1292', '1293', '1298', '1299', '130', '1308', '135', '1376', '1377', '1383', '1408', '1409', '141', '1410', '1411', '1413', '1418', '1422', '1438', '1445', '1456', '1492', '2001', '2316', '262', '266', '269', '270', '2708', '2714', '2715', '272', '2728', '2734', '280', '283', '286', '290', '3501', '411', '412', '475', '5028', '5042', '5043', '5044', '5045', '5047', '5049', '5050', '5051', '5052', '5053', '5054', '5055', '5056', '5057', '5058', '5059', '5060', '5061', '5062', '5066', '5067', '5068', '5069', '5070', '5072', '5073', '5115', '5160', '5165', '655', '724', '885', '931', '942', '952', '955', '958', 'c118', 'c168', 'c203', 'c204', 'c266'), NA_integer_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
+ [26] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
+ [51] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
+ [76] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
+[101] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch7
+#argv <- list(character(0), c('methods', 'utils', 'XML', 'RCurl'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+integer(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch8
+#argv <- list(c('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15'), NA_real_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmatch.testmatch9
+#argv <- list(c(-1628571, -1628571, -1200000, -1200000, -1057143, -914286, -771429, -771429, -771429, -628571, -628571, -485714, -485714, -485714, -485714, -342857, -342857, -342857, -342857, -2e+05, -2e+05, -2e+05, -2e+05, -57143, -57143, -57143, 85714, 85714, 228571, 228571, 228571, 371429, 371429, 371429, 371429, 514286, 514286, 514286, 657143, 657143, 657143, 657143, 657143, 942857, 1085714, 1228571, 1228571, 1228571, 1228571, 1371429), c(-1628571, -1200000, -1057143, -914286, -771429, -628571, -485714, -342857, -2e+05, -57143, 85714, 228571, 371429, 514286, 657143, 942857, 1085714, 1228571, 1371429), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] 1 1 2 2 3 4 5 5 5 6 6 7 7 7 7 8 8 8 8 9 9 9 9 10 10
+[26] 10 11 11 12 12 12 13 13 13 13 14 14 14 15 15 15 15 15 16 17 18 18 18 18 19
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmax.testmax1
+#argv <- list(10L, 1L);max(argv[[1]],argv[[2]]);
+[1] 10
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmax.testmax10
+#argv <- list(c(FALSE, FALSE));max(argv[[1]]);
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmax.testmax12
+#argv <- list(4L, numeric(0));max(argv[[1]],argv[[2]]);
+[1] 4
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmax.testmax13
+#argv <- list(6L, numeric(0));max(argv[[1]],argv[[2]]);
+[1] 6
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmax.testmax14
+#argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));max(argv[[1]]);
+[1] 0.3333332
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmax.testmax21
+#argv <- list(structure(c(13823, NA), class = 'Date'), na.rm = TRUE);max(argv[[1]],argv[[2]]);
+[1] NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmax.testmax22
+#argv <- list(structure(c(7L, 4L, 3L), .Dim = 3L, .Dimnames = structure(list(c('0', '1', '5')), .Names = ''), class = 'table'));max(argv[[1]]);
+[1] 7
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmax.testmax23
+#argv <- list(structure(c(0, 1, 1, 1, 1), .Names = c('Hair', 'Eye', 'Sex', 'Hair:Eye', 'Hair:Sex')));max(argv[[1]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmax.testmax24
+#argv <- list(structure(c(Inf, Inf, 2.248e+263, Inf, 3.777e+116, 1.128), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')));max(argv[[1]]);
+[1] Inf
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmax.testmax25
+#argv <- list(structure(c(-11.3814849918875, -11.9361690778798, 0.562602893455921, 11.5126028934559, 76.2209544348296, -8.66448499188751, -6.94502893455923, -5.28148499188751, -35.7665182531098, 6.35497106544077, -9.20908119253651, -0.898484991887508, -5.59380090589508, -6.12730922120065, -13.3061334505138, 58.6278831800973, -15.1098009058951, -8.29625696322337, -4.07211681990265, 3.7096551514332, 2.60151500811249, 6.24733923742563, -1.33911681990266, -2.14157287723094, -10.5984849918875, -8.12802893455923, 1.30028697944835, -15.7450289345592, 7.20569077879935, -12.6484849918875, 25.1810423201731, -4.42680090589508, -1.90886979448351), .Names = c('Craig Dunain', 'Ben Rha', 'Ben Lomond', 'Goatfell', 'Bens of Jura', 'Cairnpapple', 'Scolty', 'Traprain', 'Lairig Ghru', 'Dollar', 'Lomonds', 'Cairn Table', 'Eildon Two', 'Cairngorm', 'Seven Hills', 'Knock Hill', 'Black Hill', 'Creag Beag', 'Kildcon Hill', 'Meall Ant-Suidhe', 'Half Ben Nevis', 'Cow Hill', 'N Berwick Law', 'Creag Dubh', 'Burnswark', 'Largo Law', 'Criffel', 'Acmony', 'Ben Nevis', 'Knockfarrel', 'Two Breweries', 'Cockleroi', 'Moffat Chase')));max(argv[[1]]);
+[1] 76.22095
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmax.testmax26
+#argv <- list(c(1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374947, 0.707106781186547, 0.587785252292473, 0.453990499739547, 0.309016994374947, 0.156434465040231, -1.83697019872103e-16, -0.156434465040231, -0.309016994374948, -0.453990499739547, -0.587785252292473, -0.707106781186548, -0.809016994374948, -0.891006524188368, -0.951056516295154, -0.987688340595138, -1, -0.987688340595138, -0.951056516295154, -0.891006524188368, -0.809016994374947, -0.707106781186547, -0.587785252292473, -0.453990499739547, -0.309016994374947, -0.156434465040231, 6.12323399573677e-17, 0.156434465040231, 0.309016994374947, 0.453990499739547, 0.587785252292473, 0.707106781186548, 0.809016994374947, 0.891006524188368, 0.951056516295154, 0.987688340595138, 1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374947, 0.707106781186548, 0.587785252292473, 0.453990499739547, 0.309016994374947, 0.156434465040231, 6.12323399573677e-17, -0.15643446504023, -0.309016994374947, -0.453990499739548, -0.587785252292473, -0.707106781186547, -0.809016994374947, -0.891006524188368, -0.951056516295154, -0.987688340595138, -1, -0.987688340595138, -0.951056516295154, -0.891006524188368, -0.809016994374948, -0.707106781186547, -0.587785252292473, -0.453990499739548, -0.309016994374948, -0.15643446504023, -1.83697019872103e-16, 0.15643446504023, 0.309016994374947, 0.453990499739547, 0.587785252292473, 0.707106781186547, 0.809016994374947, 0.891006524188368, 0.951056516295154, 0.987688340595138, 1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374948, 0.707106781186547, 0.587785252292473, 0.453990499739548, 0.309016994374948, 0.15643446504023, 3.06161699786838e-16, -0.15643446504023, -0.309016994374947, -0.453990499739547, -0.587785252292473, -0.707106781186547, -0.809016994374947, -0.891006524188368, -0.951056516295153, -0.987688340595138, -1));max(argv[[1]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmax.testmax3
+#argv <- list(5, 1, 0);max(argv[[1]],argv[[2]],argv[[3]]);
+[1] 5
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmax.testmax4
+#argv <- list(c(NA, 1, 2, 3, -Inf, NaN, Inf));max(argv[[1]]);
+[1] NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmax.testmax7
+#argv <- list(1573.05073007216, 1000);max(argv[[1]],argv[[2]]);
+[1] 1573.051
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmax.testmax8
+#argv <- list(structure(c(6L, 3L, 8L, 4L, 4L, 5L, 7L, 8L, 5L), .Dim = 9L, .Dimnames = structure(list(state.division = c('New England', 'Middle Atlantic', 'South Atlantic', 'East South Central', 'West South Central', 'East North Central', 'West North Central', 'Mountain', 'Pacific')), .Names = 'state.division'), class = 'table'));max(argv[[1]]);
+[1] 8
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmin.testmin1
+#argv <- list(c(10L, 1L));min(argv[[1]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmin.testmin11
+#argv <- list(c(FALSE, FALSE));min(argv[[1]]);
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmin.testmin12
+#argv <- list(c(2, 13954490295224484, 9.73638996997572e+31, 6.79331796732739e+47, 4.73986448237219e+63, 3.30711964599708e+79, 2.30745845026066e+95, 1.60997032753976e+111, 1.12331576556267e+127, 7.83764947450857e+142, 5.46852017646992e+158, 3.8155205865895e+174, 2.66218224983966e+190, 1.85746981847535e+206, 1.29600222777925e+222, 9.04252525506755e+237, 6.30919154580821e+253, 4.40207760983472e+269, 3.07143746426322e+285, 2.14301721437253e+301));min(argv[[1]]);
+[1] 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmin.testmin14
+#argv <- list(structure(c(13823, NA), class = 'Date'), na.rm = TRUE);min(argv[[1]],argv[[2]]);
+[1] NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmin.testmin16
+#argv <- list(3L, 7);min(argv[[1]],argv[[2]]);
+[1] 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmin.testmin17
+#argv <- list(c(-7, -5.6, -4.2, -2.8, -1.4, 0, 1.4, 2.8, 4.2, 5.6, 7));min(argv[[1]]);
+[1] -7
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmin.testmin19
+#argv <- list(structure(c(-0.562441486309934, -0.588967592535822, 0.0277608937997097, 0.568074124752969, 3.89980510825846, -0.428174866497729, -0.343990813420242, -0.260996370058754, -2.31774610938305, 0.314764947225063, -0.455124436264437, -0.0444006414474544, -0.27748974692001, -0.303134023269405, -0.670168347915028, 2.92643313367, -0.749546667806845, -0.410394401887929, -0.203261263063707, 0.1847365997012, 0.128559671155683, 0.313558179929332, -0.0668425264405297, -0.106427678524531, -0.523747793519006, -0.402585404761851, 0.0642079595716389, -0.779859286629166, 0.356484381211739, -0.625053119472271, 1.31547628490512, -0.21959878152752, -0.102402088986461), .Names = c('Craig Dunain', 'Ben Rha', 'Ben Lomond', 'Goatfell', 'Bens of Jura', 'Cairnpapple', 'Scolty', 'Traprain', 'Lairig Ghru', 'Dollar', 'Lomonds', 'Cairn Table', 'Eildon Two', 'Cairngorm', 'Seven Hills', 'Knock Hill', 'Black Hill', 'Creag Beag', 'Kildcon Hill', 'Meall Ant-Suidhe', 'Half Ben Nevis', 'Cow Hill', 'N Berwick Law', 'Creag Dubh', 'Burnswark', 'Largo Law', 'Criffel', 'Acmony', 'Ben Nevis', 'Knockfarrel', 'Two Breweries', 'Cockleroi', 'Moffat Chase')));min(argv[[1]]);
+[1] -2.317746
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmin.testmin2
+#argv <- list(structure(c(0.25069599964819, 0.252830784944624), .Dim = 1:2));min(argv[[1]]);
+[1] 0.250696
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmin.testmin3
+#argv <- list(c(-3.37619548064471, -3.28575139573497, -3.19530731082523, -3.10486322591549, -3.01441914100575, -2.923975056096, -2.83353097118626, -2.74308688627652, -2.65264280136678, -2.56219871645704, -2.4717546315473, -2.38131054663755, -2.29086646172781, -2.20042237681807, -2.10997829190833, -2.01953420699859, -1.92909012208884, -1.8386460371791, -1.74820195226936, -1.65775786735962, -1.56731378244988, -1.47686969754013, -1.38642561263039, -1.29598152772065, -1.20553744281091, -1.11509335790117, -1.02464927299142, -0.934205188081682, -0.84376110317194, -0.753317018262198, -0.662872933352456, -0.572428848442715, -0.481984763532973, -0.39154067862323, -0.301096593713489, -0.210652508803747, -0.120208423894005, -0.029764338984263, 0.0606797459254791, 0.151123830835221, 0.241567915744963, 0.332012000654705, 0.422456085564447, 0.512900170474189, 0.603344255383931, 0.693788340293673, 0.784232425203414, 0.874676510113156, 0.965120595022898, 1.05556467993264, 1.14600876484238, 1.23645284975212, 1.32689693466187, 1.41734101957161, 1.50778510448135, 1.59822918939109, 1.68867327430083, 1.77911735921058, 1.86956144412032, 1.96000552903006, 2.0504496139398, 2.14089369884954, 2.23133778375928, 2.32178186866903, 2.41222595357877, 2.50267003848851, 2.59311412339825, 2.68355820830799, 2.77400229321774, 2.86444637812748, 2.95489046303722, 3.04533454794696, 3.1357786328567, 3.22622271776645, 3.31666680267619, 3.40711088758593, 3.49755497249567, 3.58799905740541, 3.67844314231516, 3.7688872272249, 3.85933131213464, 3.94977539704438, 4.04021948195412, 4.13066356686387, 4.22110765177361, 4.31155173668335, 4.40199582159309, 4.49243990650283, 4.58288399141258, 4.67332807632232, 4.76377216123206, 4.8542162461418, 4.94466033105154, 5.03510441596129, 5.12554850087103, 5.21599258578077, 5.30643667069051, 5.39688075560025, 5.48732484051, 5.57776892541974, 5.66821301032948, 5.75865709523922, 5.84910118014896, 5.9395452650587, 6.02998934996845, 6.12043343487819, 6.21087751978793, 6.30132160469767, 6.39176568960741, 6.48220977451716, 6.5726538594269, 6.66309794433664, 6.75354202924638, 6.84398611415612, 6.93443019906586, 7.02487428397561, 7.11531836888535, 7.20576245379509, 7.29620653870483, 7.38665062361457, 7.47709470852432, 7.56753879343406, 7.6579828783438, 7.74842696325354, 7.83887104816328, 7.92931513307303, 8.01975921798277, 8.11020330289251));min(argv[[1]]);
+[1] -3.376195
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinmin.testmin4
+#argv <- list(c(NA, 1, 2, 3, -Inf, NaN, Inf));min(argv[[1]]);
+[1] NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames1
+#argv <- list(structure(list(size = 113, isdir = FALSE, mode = structure(436L, class = 'octmode'), mtime = structure(1395082088.72988, class = c('POSIXct', 'POSIXt')), ctime = structure(1395082088.72988, class = c('POSIXct', 'POSIXt')), atime = structure(1395082088.77388, class = c('POSIXct', 'POSIXt')), uid = 1001L, gid = 1001L, uname = 'roman', grname = 'roman'), .Names = c('size', 'isdir', 'mode', 'mtime', 'ctime', 'atime', 'uid', 'gid', 'uname', 'grname'), class = 'data.frame', row.names = '/tmp/RtmptPgrXI/file55711ba85492'));names(argv[[1]]);
+ [1] "size" "isdir" "mode" "mtime" "ctime" "atime" "uid" "gid"
+ [9] "uname" "grname"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames10
+#argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')));names(argv[[1]]);
+[1] "A" "B" "C" "D" "E" "F"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames11
+#argv <- list(structure(c(NA, NA, NA, NA, NA, 1L, 2L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor'));names(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames12
+#argv <- list(structure(list(V1 = c(-1L, -2L, 1L, 2L, 3L, 4L, 5L), V2 = c(-3L, -4L, 6L, 7L, 8L, 9L, 10L), V3 = c(-5L, -6L, 11L, 12L, 13L, 14L, 15L), V4 = c(-7L, -8L, 16L, 17L, 18L, 19L, 20L), V5 = c(-9L, -10L, 21L, 22L, 23L, 24L, 25L)), .Names = c('V1', 'V2', 'V3', 'V4', 'V5'), row.names = c(NA, 7L), class = 'data.frame'));names(argv[[1]]);
+[1] "V1" "V2" "V3" "V4" "V5"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames13
+#argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c('Employed', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'), class = 'data.frame', row.names = 1947:1962, terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year)));names(argv[[1]]);
+[1] "Employed" "GNP.deflator" "GNP" "Unemployed" "Armed.Forces"
+[6] "Population" "Year"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames14
+#argv <- list(structure(list(ii = 1:10, xx = c(-9.42477796076938, -6.28318530717959, -3.14159265358979, 0, 3.14159265358979, 6.28318530717959, 9.42477796076938, 12.5663706143592, 15.707963267949, 18.8495559215388)), .Names = c('ii', 'xx')));names(argv[[1]]);
+[1] "ii" "xx"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames15
+#argv <- list(structure(list(`cbind(X, M)` = structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('X', 'M'))), M.user = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L), .Label = c('N', 'Y'), class = 'factor'), Temp = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c('High', 'Low'), class = 'factor'), Soft = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c('Hard', 'Medium', 'Soft'), class = 'factor')), .Names = c('cbind(X, M)', 'M.user', 'Temp', 'Soft'), class = 'data.frame', row.names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), terms = quote(cbind(X, M) ~ M.user + Temp + Soft)));names(argv[[1]]);
+[1] "cbind(X, M)" "M.user" "Temp" "Soft"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames17
+#argv <- list(c(1281L, 1283L));names(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames18
+#argv <- list(structure(list(itemBullet = '• '), .Names = 'itemBullet'));names(argv[[1]]);
+[1] "itemBullet"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames19
+#argv <- list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils'), frow = c(2417L, 2417L, 2418L, 2418L, 2420L, 2420L, 2422L, 2422L, 2423L, 2424L, 2426L, 2426L, 2426L, 2426L), lrow = c(2417L, 2417L, 2419L, 2419L, 2421L, 2421L, 2422L, 2422L, 2434L, 2425L, 2433L, 2433L, 2433L, 2433L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 14L), class = 'data.frame'));names(argv[[1]]);
+[1] "srcfile" "frow" "lrow"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames2
+#argv <- list(list(character(0), numeric(0), numeric(0), complex(0), integer(0), logical(0), character(0)));names(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames20
+#argv <- list(c(-21.222245139688+176.377752294836i, -21.222245139688-176.377752294836i, 61.0965873274464+76.7794305756989i, 61.0965873274464-76.7794305756989i, -11.748684375517+0i));names(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames21
+#argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')));names(argv[[1]]);
+[1] "a"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames22
+#argv <- list(structure(list(`Surv(time, status)` = structure(c(9, 1, 1, 6, 6, 8, 1, 1, 0, 1, 1, 0), .Dim = c(6L, 2L), .Dimnames = list(NULL, c('time', 'status')), class = 'Surv', type = 'right'), x = c(0, 1, 1, 1, 0, 0)), .Names = c('Surv(time, status)', 'x'), class = 'data.frame', row.names = c(1L, 3L, 4L, 5L, 6L, 7L)));names(argv[[1]]);
+[1] "Surv(time, status)" "x"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames23
+#argv <- list(structure(list(xlev = structure(list(), .Names = character(0))), .Names = 'xlev'));names(argv[[1]]);
+[1] "xlev"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames25
+#argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));names(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames26
+#argv <- list(structure(c(3.22711508258913, 3.17840134153376, 3.17811325231463, 3.14144977340047, 3.21272015441784, 3.17926446433903, 3.19284611518884, 3.21218760440396, 3.19838213000829, 3.21827285357145, 3.33284226699435, 3.33203427702752, 3.24353410183206, 3.24674470972384, 3.23477029516092, 3.19256745333655, 3.19728055812562, 3.18184358794477, 3.25647720624168, 3.25527250510331, 3.23527587668705, 3.30276370847298, 3.35063560825895, 3.39410130204004, 3.30749603791321, 3.21879799811174, 3.22865695810894, 3.21031851982623, 3.25647720624168, 3.24204423936955, 3.25406445291434, 3.28465628278852, 3.20924684875337, 3.29928933408768, 3.34888872307144, 3.34084054981233, 3.31806333496276, 3.24748226067705, 3.26363606858811, 3.19562294358694, 3.29578694025161, 3.2678754193189, 3.29336255471145, 3.22762964957101, 3.24993175663419, 3.29578694025161, 3.37966803403365, 3.42390091852842, 3.32159843046534, 3.29292029960001, 3.22453306260609, 3.28802553538836, 3.30168094929358, 3.25839780409551, 3.30362797638389, 3.28148788794008, 3.31889771462749, 3.31806333496276, 3.32592595577147, 3.33243845991561, 3.20628604441243, 3.17695898058691, 3.18977095634687, 3.14050804303818, 3.23829706787539, 3.25478968739721, 3.25017594808393, 3.27577190016493, 3.30189771719521, 3.3174364965351, 3.32056168019524, 3.31196566036837, 3.1978316933289, 3.13225968953104, 3.21801004298436, 3.14050804303818, 3.18155777386279, 3.15259407792747, 3.15896526038341, 3.18836592606315, 3.21906033244886, 3.19340290306242, 3.27989498001164, 3.34222522936079, 3.16820274684263, 3.21879799811174, 3.14829409743475, 3.14457420760962, 3.1846914308176, 3.11693964655076, 3.18355453361886, 3.12287092286444, 3.21138755293686, 3.24254142829838, 3.29181268746712, 3.35679046035172, 3.2169572073611, 3.14643813528577, 3.14952701375435, 3.14705767102836, 3.14426277376199, 3.18184358794477, 3.18412335423967, 3.21563756343506, 3.18041263283832, 3.22659990520736, 3.30102999566398, 3.34537373055909, 3.29136885045158, 3.16494737262184, 3.19395897801919, 3.16405529189345, 3.16016829295851, 3.21005084987514, 3.21932250841934, 3.2143138974244, 3.21563756343506, 3.22608411597582, 3.31175386105575, 3.35449260058944, 3.25839780409551, 3.15986784709257, 3.24600590407603, 3.1646502159343, 3.19200959265367, 3.15563963375978, 3.15442397311465, 3.1914510144649, 3.21616590228599, 3.21827285357145, 3.30449052777349, 3.34380233316165, 3.22141423784234, 3.13385812520333, 3.17782497186468, 3.13353890837022, 3.16226561429802, 3.18241465243455, 3.16435285578444, 3.19089171692217, 3.18977095634687, 3.26173854735254, 3.2397998184471, 3.28802553538836, 3.16849748352303, 3.16375752398196, 3.18808437371494, 3.14736710779379, 3.18241465243455, 3.14144977340047, 3.21510858105309, 3.17897694729317, 3.22556771343947, 3.28735377271475, 3.27137687189407, 3.23704079137919, 3.16316137497702, 3.15986784709257, 3.16316137497702, 3.13513265137677, 3.17231096852195, 3.19256745333655, 3.17260293120986, 3.22634208716363, 3.20248831706009, 3.26717172840301, 3.30059548388996, 3.31785448933147), .Tsp = c(1969, 1982.91666666667, 12), class = 'ts'));names(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames27
+#argv <- list(structure(list(object = structure(3.14159265358979, comment = 'Start with pi'), slots = 'comment', dataPart = TRUE, class = structure('classPrototypeDef', package = 'methods')), .Names = c('object', 'slots', 'dataPart', 'class')));names(argv[[1]]);
+[1] "object" "slots" "dataPart" "class"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames28
+#argv <- list(list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render'))));names(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames29
+#argv <- list(structure(list(zz = complex(0)), .Names = 'zz'));names(argv[[1]]);
+[1] "zz"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames31
+#argv <- list(list(structure(list(srcfile = c('/home/lzhao/tmp/RtmpTzriDZ/R.INSTALL30d4108a07be/mgcv/R/gam.fit3.r', '/home/lzhao/tmp/RtmpTzriDZ/R.INSTALL30d4108a07be/mgcv/R/gam.fit3.r'), frow = c(1287L, 1289L), lrow = c(1287L, 1289L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'), structure(list(srcfile = '/home/lzhao/tmp/RtmpTzriDZ/R.INSTALL30d4108a07be/mgcv/R/gam.fit3.r', frow = 1289L, lrow = 1289L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame')));names(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames32
+#argv <- list(structure(list(trace = 0, fnscale = 1, parscale = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), ndeps = c(0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001), maxit = 100L, abstol = -Inf, reltol = 1.49011611938477e-08, alpha = 1, beta = 0.5, gamma = 2, REPORT = 10, type = 1, lmm = 5, factr = 1e+07, pgtol = 0, tmax = 10, temp = 10), .Names = c('trace', 'fnscale', 'parscale', 'ndeps', 'maxit', 'abstol', 'reltol', 'alpha', 'beta', 'gamma', 'REPORT', 'type', 'lmm', 'factr', 'pgtol', 'tmax', 'temp')));names(argv[[1]]);
+ [1] "trace" "fnscale" "parscale" "ndeps" "maxit" "abstol"
+ [7] "reltol" "alpha" "beta" "gamma" "REPORT" "type"
+[13] "lmm" "factr" "pgtol" "tmax" "temp"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames33
+#argv <- list(structure(list(Df = c(NA, 0L), Deviance = c(NA, 0), `Resid. Df` = c(10L, 10L), `Resid. Dev` = c(2.74035772634541, 2.74035772634541)), .Names = c('Df', 'Deviance', 'Resid. Df', 'Resid. Dev'), row.names = c('NULL', 'x'), class = c('anova', 'data.frame'), heading = 'Analysis of Deviance Table\n\nModel: gaussian, link: identity\n\nResponse: y\n\nTerms added sequentially (first to last)\n\n'));names(argv[[1]]);
+[1] "Df" "Deviance" "Resid. Df" "Resid. Dev"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames35
+#argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c('y', 'x', 'z'), class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ x * z)));names(argv[[1]]);
+[1] "y" "x" "z"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames37
+#argv <- list(structure(list(surname = structure(c('McNeil', 'Ripley', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'AsIs'), nationality = structure(c('Australia', 'UK', 'UK', 'US', 'US', 'Australia'), class = 'AsIs'), deceased = structure(c('no', 'no', 'no', 'no', 'yes', 'no'), class = 'AsIs'), title = structure(c('Interactive Data Analysis', 'Spatial Statistics', 'Stochastic Simulation', 'LISP-STAT', 'Exploratory Data Analysis', 'Modern Applied Statistics ...'), class = 'AsIs'), other.author = structure(c(NA, NA, NA, NA, NA, 'Ripley'), class = 'AsIs')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author')));names(argv[[1]]);
+[1] "surname" "nationality" "deceased" "title" "other.author"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames38
+#argv <- list(structure(list(head = logical(0)), .Names = 'head', class = 'data.frame', row.names = integer(0)));names(argv[[1]]);
+[1] "head"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnames.testnames6
+#argv <- list(structure(list(groups = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('1', '2', '3'), class = 'factor')), .Names = 'groups'));names(argv[[1]]);
+[1] "groups"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnargs.testnargs1
+#nargs( );
+[1] NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnchar.testnchar1
+#argv <- list('DtTmCl> format(.leap.seconds) # all 24 leap seconds in your timezone', 'c', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+[1] 76
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnchar.testnchar10
+#argv <- list(FALSE, 'chars', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+[1] 5
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnchar.testnchar11
+#argv <- list('> contour(x, y, volcano, levels = lev, col=\'yellow\', lty=\'solid\', add=TRUE)', 'c', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+[1] 75
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnchar.testnchar12
+#argv <- list(character(0), 'c', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+integer(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnchar.testnchar2
+#argv <- list(c('\'a\'', '\'b\'', NA, NA, NA, '\'f\'', '\'g\'', '\'h\'', '\'i\'', '\'j\'', '\'k\'', '\'l\''), 'w', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+ [1] 3 3 2 2 2 3 3 3 3 3 3 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnchar.testnchar3
+#argv <- list('\'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz\'', 'w', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+[1] 2602
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnchar.testnchar4
+#argv <- list(structure(c('1', '2', '3', '4', '5', '1', '2', '3', '4', '5'), .Dim = 10L), 'c', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+ [1] 1 1 1 1 1 1 1 1 1 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnchar.testnchar5
+#argv <- list(c('Var1', 'Var2'), 'bytes', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+[1] 4 4
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnchar.testnchar6
+#argv <- list(c('0.0470', '0.0130', '0.0020', '0.0001', '2.3e-05', '4.5e-06'), 'w', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+[1] 6 6 6 6 7 7
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnchar.testnchar7
+#argv <- list(c('x1', 'x.2', 'x3'), 'bytes', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+[1] 2 3 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnchar.testnchar9
+#argv <- list(c('\'1\'', '\'2\'', NA), 'w', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))
+[1] 3 3 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinngettext.testngettext1
+#argv <- list(1L, '%s is not TRUE', '%s are not all TRUE', NULL); .Internal(ngettext(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] "%s is not TRUE"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinngettext.testngettext2
+#argv <- list(2L, '%s is not TRUE', '%s are not all TRUE', NULL); .Internal(ngettext(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] "%s are not all TRUE"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnzchar.testnzchar1
+#argv <- list('./myTst2/man/DocLink-class.Rd');nzchar(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnzchar.testnzchar10
+#argv <- list(logical(0));nzchar(argv[[1]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnzchar.testnzchar2
+#argv <- list(FALSE);nzchar(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnzchar.testnzchar3
+#argv <- list(c('a', 'b', 'c'));nzchar(argv[[1]]);
+[1] TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnzchar.testnzchar4
+#argv <- list(structure('MASS', .Names = ''));nzchar(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnzchar.testnzchar5
+#argv <- list(NULL);nzchar(argv[[1]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnzchar.testnzchar6
+#argv <- list(c('Fr', 'Temp', 'Soft', 'M.user', 'Brand'));nzchar(argv[[1]]);
+[1] TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnzchar.testnzchar7
+#argv <- list(structure('survival', .Names = ''));nzchar(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinnzchar.testnzchar8
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));nzchar(argv[[1]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoldClass.testoldClass1
+#argv <- list(structure(list(`cbind(w = weight, w2 = weight^2)` = structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c('w', 'w2'))), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = c('cbind(w = weight, w2 = weight^2)', 'group'), terms = quote(cbind(w = weight, w2 = weight^2) ~ group), row.names = c(NA, 20L), class = 'data.frame'));oldClass(argv[[1]]);
+[1] "data.frame"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoldClass.testoldClass11
+#argv <- list(structure(list(srcfile = c('/home/lzhao/tmp/RtmpS45wYI/R.INSTALL2aa62411bcd3/rpart/R/rsq.rpart.R', '/home/lzhao/tmp/RtmpS45wYI/R.INSTALL2aa62411bcd3/rpart/R/rsq.rpart.R'), frow = c(7L, 9L), lrow = c(7L, 9L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'));oldClass(argv[[1]]);
+[1] "data.frame"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoldClass.testoldClass13
+#argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));oldClass(argv[[1]]);
+[1] "3.14159265358979"
+attr(,"class")
+[1] "testit"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoldClass.testoldClass14
+#argv <- list(structure(list(`cbind(A, B, C, D)` = structure(c(0.696706709347165, 0.362357754476673, -0.0291995223012888, 0.696706709347165, 0.696706709347165, -0.0291995223012888, 0.696706709347165, -0.0291995223012888, 0.362357754476673, 0.696706709347165, -0.0291995223012888, 0.362357754476673, -0.416146836547142, 0.362357754476673, 0.696706709347165, 0.696706709347165, 0.362357754476673, -0.416146836547142, -0.0291995223012888, -0.416146836547142, 0.696706709347165, -0.416146836547142, 0.362357754476673, -0.0291995223012888, 0.717356090899523, 0.932039085967226, 0.999573603041505, 0.717356090899523, 0.717356090899523, 0.999573603041505, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.909297426825682, 0.932039085967226, 0.717356090899523, 0.717356090899523, 0.932039085967226, 0.909297426825682, 0.999573603041505, 0.909297426825682, 0.717356090899523, 0.909297426825682, 0.932039085967226, 0.999573603041505, -0.0291995223012888, -0.737393715541246, -0.998294775794753, -0.0291995223012888, -0.0291995223012888, -0.998294775794753, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.653643620863612, -0.737393715541246, -0.0291995223012888, -0.0291995223012888, -0.737393715541246, -0.653643620863612, -0.998294775794753, -0.653643620863612, -0.0291995223012888, -0.653643620863612, -0.737393715541246, -0.998294775794753, 0.999573603041505, 0.67546318055115, -0.0583741434275801, 0.999573603041505, 0.999573603041505, -0.0583741434275801, 0.999573603041505, -0.0583741434275801, 0.67546318055115, 0.999573603041505, -0.0583741434275801, 0.67546318055115, -0.756802495307928, 0.67546318055115, 0.999573603041505, 0.999573603041505, 0.67546318055115, -0.756802495307928, -0.0583741434275801, -0.756802495307928, 0.999573603041505, -0.756802495307928, 0.67546318055115, -0.0583741434275801), .Dim = c(24L, 4L), .Dimnames = list(NULL, c('A', 'B', 'C', 'D'))), groups = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('1', '2', '3'), class = 'factor')), .Names = c('cbind(A, B, C, D)', 'groups'), terms = quote(cbind(A, B, C, D) ~ groups), row.names = c(NA, 24L), class = 'data.frame'));oldClass(argv[[1]]);
+[1] "data.frame"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoldClass.testoldClass15
+#argv <- list(structure(list(), .Names = character(0), class = 'data.frame', row.names = c(NA, -10L)));oldClass(argv[[1]]);
+[1] "data.frame"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoldClass.testoldClass16
+#argv <- list(structure(list(y = c(1.08728092481538, 0.0420572471552261, 0.787502161306819, 0.512717751544676, 3.35376639535311, 0.204341510750309, -0.334930602487435, 0.80049208412789, -0.416177803375218, -0.777970346246018, 0.934996808181635, -0.678786709127108, 1.52621589791412, 0.5895781228122, -0.744496121210548, -1.99065153885627, 1.51286447692396, -0.750182409847851), A = c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), U = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('a', 'b', 'c'), class = 'factor'), V = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L), .Label = c('a', 'b', 'c'), class = 'factor')), .Names = c('y', 'A', 'U', 'V'), class = 'data.frame', row.names = c(NA, 18L), terms = quote(y ~ A:U + A:V - 1)));oldClass(argv[[1]]);
+[1] "data.frame"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoldClass.testoldClass17
+#argv <- list(structure(list(surname = structure(integer(0), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(integer(0), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(integer(0), .Label = c('no', 'yes'), class = 'factor'), title = structure(integer(0), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(integer(0), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = integer(0), class = 'data.frame'));oldClass(argv[[1]]);
+[1] "data.frame"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoldClass.testoldClass18
+#argv <- list(structure(list(srcfile = c(NA, NA, '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R'), frow = c(NA, NA, 1739L, 1741L, 1807L, 1868L, 1868L, 1868L, 1870L, 1873L, 1888L, 1888L, 1888L, 1898L, 1898L, 1898L, 1899L, 1905L), lrow = c(NA, NA, 1739L, 1742L, 1807L, 1868L, 1868L, 1868L, 1872L, 1873L, 1888L, 1888L, 1888L, 1898L, 1898L, 1898L, 1901L, 1905L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 18L), class = 'data.frame'));oldClass(argv[[1]]);
+[1] "data.frame"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoldClass.testoldClass19
+#argv <- list(structure(list(double.eps = 2.22044604925031e-16, double.neg.eps = 1.11022302462516e-16, double.xmin = 2.2250738585072e-308, double.xmax = 1.79769313486232e+308, double.base = 2L, double.digits = 53L, double.rounding = 5L, double.guard = 0L, double.ulp.digits = -52L, double.neg.ulp.digits = -53L, double.exponent = 11L, double.min.exp = -1022L, double.max.exp = 1024L, integer.max = 2147483647L, sizeof.long = 8L, sizeof.longlong = 8L, sizeof.longdouble = 16L, sizeof.pointer = 8L), .Names = c('double.eps', 'double.neg.eps', 'double.xmin', 'double.xmax', 'double.base', 'double.digits', 'double.rounding', 'double.guard', 'double.ulp.digits', 'double.neg.ulp.digits', 'double.exponent', 'double.min.exp', 'double.max.exp', 'integer.max', 'sizeof.long', 'sizeof.longlong', 'sizeof.longdouble', 'sizeof.pointer')));oldClass(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoldClass.testoldClass2
+#argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = 'ts'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c('y', 'lag.quarterly.revenue', 'price.index', 'income.level', 'market.potential'), row.names = c('1962.25', '1962.5', '1962.75', '1963', '1963.25', '1963.5', '1963.75', '1964', '1964.25', '1964.5', '1964.75', '1965', '1965.25', '1965.5', '1965.75', '1966', '1966.25', '1966.5', '1966.75', '1967', '1967.25', '1967.5', '1967.75', '1968', '1968.25', '1968.5', '1968.75', '1969', '1969.25', '1969.5', '1969.75', '1970', '1970.25', '1970.5', '1970.75', '1971', '1971.25', '1971.5', '1971.75'), class = 'data.frame'));oldClass(argv[[1]]);
+[1] "data.frame"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoldClass.testoldClass3
+#argv <- list(c(7.50863122075491e-09, 1.87762632589663e-07, 2.29589583061716e-06, 1.83002461474278e-05, 0.000106962770210119, 0.000488992941332962, 0.00182154707835978, 0.0056884235091347, 0.0152093632759767, 0.0353957474549943, 0.0726726073416657, 0.13316547411151));oldClass(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoldClass.testoldClass4
+#argv <- list(c(0.2853725+0.3927816i, -0.07283992154231+0.224178134292i, -0.10883955678256+0.035364093700981i, -0.0449501817243521-0.0326582354266614i, 8.2299281e-09-2.69753665872767e-02i, 0.0105954299973322-0.0076980245688633i, 0.00604728675391113+0.00196488543076221i, 0.00095395849586903+0.00293598723445021i, -0.00088096824266454+0.00121254736140417i, -7.27670402517897e-04-4.44010655e-10i, -2.07656947543323e-04-2.85815671682054e-04i, 5.3003554565545e-05-1.6312776087427e-04i, 7.9199339795869e-05-2.57333559721504e-05i, 3.27089023280074e-05+2.37644512768026e-05i, -1.79660253e-11+1.96291758626278e-05i, -7.70998422901389e-06+5.60161993213361e-06i, -4.4004307139296e-06-1.42979165736404e-06i, -6.9416605906477e-07-2.13643143624753e-06i, 6.41055054129141e-07-8.82334435385704e-07i, 5.29504214700362e-07+6.46186824e-13i));oldClass(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoldClass.testoldClass5
+#argv <- list(structure(list(Subject = structure(c(1L, 3L, 6L, 2L, 4L, 5L), .Label = c('1', '4', '2', '5', '6', '3'), class = c('ordered', 'factor')), conc.0.25 = c(1.5, 2.03, 2.72, 1.85, 2.05, 2.31), conc.0.5 = c(0.94, 1.63, 1.49, 1.39, 1.04, 1.44), conc.0.75 = c(0.78, 0.71, 1.16, 1.02, 0.81, 1.03), conc.1 = c(0.48, 0.7, 0.8, 0.89, 0.39, 0.84), conc.1.25 = c(0.37, 0.64, 0.8, 0.59, 0.3, 0.64), conc.2 = c(0.19, 0.36, 0.39, 0.4, 0.23, 0.42)), row.names = c(1L, 12L, 23L, 34L, 45L, 56L), .Names = c('Subject', 'conc.0.25', 'conc.0.5', 'conc.0.75', 'conc.1', 'conc.1.25', 'conc.2'), class = c('nfnGroupedData', 'nfGroupedData', 'groupedData', 'data.frame')));oldClass(argv[[1]]);
+[1] "nfnGroupedData" "nfGroupedData" "groupedData" "data.frame"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoldClass.testoldClass6
+#argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i), .Dim = c(5L, 5L)));oldClass(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoldClass.testoldClass7
+#argv <- list(3.18309886183791e-301);oldClass(argv[[1]]);
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoldClass.testoldClass8
+#argv <- list(structure(list(visible = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), from = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = 'registered S3method for predict', class = 'factor')), .Names = c('visible', 'from'), row.names = c('predict.Arima', 'predict.HoltWinters', 'predict.StructTS', 'predict.ar', 'predict.arima0', 'predict.bSpline', 'predict.bs', 'predict.glm', 'predict.glmmPQL', 'predict.lda', 'predict.lm', 'predict.loess', 'predict.lqs', 'predict.mca', 'predict.mlm', 'predict.nbSpline', 'predict.nls', 'predict.npolySpline', 'predict.ns', 'predict.pbSpline', 'predict.polr', 'predict.poly', 'predict.polySpline', 'predict.ppolySpline', 'predict.ppr', 'predict.prcomp', 'predict.princomp', 'predict.qda', 'predict.rlm', 'predict.smooth.spline', 'predict.smooth.spline.fit'), class = 'data.frame'));oldClass(argv[[1]]);
+[1] "data.frame"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoldClass.testoldClass9
+#argv <- list(structure(c(4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L), .Label = c('C', 'E', 'D', 'A', 'F', 'B'), class = 'factor', scores = structure(c(14, 16.5, 1.5, 5, 3, 15), .Dim = 6L, .Dimnames = list(c('A', 'B', 'C', 'D', 'E', 'F')))));oldClass(argv[[1]]);
+[1] "factor"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators10
+#argv <- list(1, 0+1i);`+`(argv[[1]],argv[[2]]);
+[1] 1+1i
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators100
+#argv <- list(c(30L, 30L, 60L, 60L, 60L, 60L, 60L, 60L, 30L, 30L, 60L, 60L, 60L, NA, 30L, 30L, 30L, 30L, 60L, 60L, 60L, 60L, 60L, 60L, 30L, 30L, 60L, 60L, 60L, 60L, 30L, 30L, 30L, NA, 30L, 30L, 60L, 60L, 30L, 30L, 30L, 30L, 30L, 60L, 60L, 30L, 30L, 30L, 30L, 60L, NA, 60L, NA, 30L, 60L, 60L, 30L, NA, 30L, 30L, 60L, NA, 30L, 30L, 30L, 30L, 30L, NA, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, NA, 18L, 18L, 30L, 30L, 30L, 30L, 18L, 18L, 30L, 30L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, NA, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, NA, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 30L, 30L, NA, 18L, NA, 30L, 30L, NA, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 30L, 30L, NA, 30L, 18L, 18L, 30L, 30L, 18L, 18L, 7L, 7L, 30L, 30L, 18L, 18L, NA, 30L, 7L, 7L, 7L, NA, 18L, 18L, 7L, 7L, 18L, NA, 30L, 30L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 18L, 18L), 60);`<=`(argv[[1]],argv[[2]]);
+ [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE NA TRUE
+ [16] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [31] TRUE TRUE TRUE NA TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [46] TRUE TRUE TRUE TRUE TRUE NA TRUE NA TRUE TRUE TRUE TRUE NA TRUE TRUE
+ [61] TRUE NA TRUE TRUE TRUE TRUE TRUE NA TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [76] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE NA TRUE TRUE TRUE TRUE TRUE
+ [91] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE NA TRUE TRUE
+[106] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[121] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[136] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE NA TRUE TRUE TRUE
+[151] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE NA TRUE NA TRUE
+[166] TRUE NA TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE NA
+[181] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE NA TRUE
+[196] TRUE TRUE TRUE NA TRUE TRUE TRUE TRUE TRUE NA TRUE TRUE TRUE TRUE TRUE
+[211] TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators103
+#argv <- list(NULL, NULL);`<=`(argv[[1]],argv[[2]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators106
+#argv <- list(0.998212441139784, c(0.999998001700552, -0.0013118835870674, -0.000526551904329415, 0.999999038344567, -0.000903475278483392, -0.000381296378838388, 0.999999057686544, -0.000896140095625969, -0.000373156128147092, 0.999998405868953, -0.00114777435393854, -0.000526063245555164, 0.99999814161282, -0.00120795166706622, -0.000631851641234638, 0.999997792453059, -0.00139185834612791, -0.000519877304541034, 0.999998020546725, -0.00127080900255349, -0.00060373324887666, 0.999998059330159, -0.00123814735894241, -0.000638480377887232, 0.999998337108097, -0.00115570987192407, -0.000572034814304861, 0.999998571810103, -0.00106400147389197, -0.00054414035107764, 0.999999136998844, -0.000829344110491764, -0.000418555560445895, 0.999999436800894, -0.000688792506748533, -0.00029793232712181, 0.999999182435777, -0.000786088000160243, -0.000446798847724984, 0.999998035855459, -0.00125214214514046, -0.000629508325517675, 0.999995461301925, -0.00191759993645823, -0.000928163756226527, 0.999990501294199, -0.00282586497589704, -0.00123008240127283, 0.99998523015117, -0.00349306924843624, -0.00160252859811979, 0.999980247693918, -0.00393070891026528, -0.00207399213858218, 0.999258133391236, -0.0212608113487506, 0.0170086490790013, 0.999752823870685, -0.0151150534926454, -0.00431858671218418, 0.998521231438773, -0.0331918414882689, 0.0193619075348229, 0.973987730061349, 0.0773006134969334, -0.139141104294479, 0.997923156801661, -0.0321910695742469, 0.0321910695742468, 0.999947758503179, -0.00259457124676546, -0.006745885241587, -0.0013118835870674, 0.138748425090248, -0.345681325192261, -0.000903475278483392, 0.151184975864853, -0.358227947918666, -0.000896140095625969, 0.147770769059702, -0.354871477867884, -0.00114777435393854, 0.173602465164251, -0.378765536799718, -0.00120795166706622, 0.214831416406957, -0.410703566802515, -0.00139185834612791, 0.122433312766354, -0.327782640513123, -0.00127080900255349, 0.184140620360657, -0.387596745778816, -0.00123814735894241, 0.21006198499474, -0.407350481092054, -0.00115570987192407, 0.196781639012774, -0.397564195941878, -0.00106400147389197, 0.207318901950479, -0.405384561552842, -0.000829344110491764, 0.203000309817415, -0.402231893588506, -0.000688792506748533, 0.157606764246543, -0.364371236069974, -0.000786088000160243, 0.244176387845927, -0.429597092087573, -0.00125214214514046, 0.201759382472957, -0.401311557517518, -0.00191759993645823, 0.189814026846399, -0.392149187005707, -0.00282586497589704, 0.159305169670633, -0.365949514378666, -0.00349306924843624, 0.173889122744829, -0.378998013455332, -0.00393070891026528, 0.217788926857211, -0.412724435577854, -0.0212608113487506, 0.000452357688250284, -0.00036188615058233, -0.0151150534926454, 0.000228521327097438, 6.52918077527545e-05, -0.0331918414882689, 0.00110332991097693, -0.000643609114746404, 0.0773006134969334, 0.00613496932514866, -0.0110429447852694, -0.0321910695742469, 0.0010384215991718, -0.00103842159917336, -0.00259457124676546, 6.73215168555691e-06, 1.75035942027152e-05, -0.000526551904329415, -0.345681325192261, 0.861253573209199, -0.000381296378838388, -0.358227947918666, 0.848815985790579, -0.000373156128147092, -0.354871477867884, 0.852230173253752, -0.000526063245555164, -0.378765536799718, 0.826399128966796, -0.000631851641234638, -0.410703566802515, 0.785170441980223, -0.000519877304541034, -0.327782640513123, 0.877568894780586, -0.00060373324887666, -0.387596745778816, 0.815861359092619, -0.000638480377887232, -0.407350481092054, 0.789939955675102, -0.000572034814304861, -0.397564195941878, 0.803220023879128, -0.00054414035107764, -0.405384561552842, 0.792682526239419, -0.000418555560445895, -0.402231893588506, 0.797000553183741, -0.00029793232712181, -0.364371236069974, 0.842393798952562, -0.000446798847724984, -0.429597092087573, 0.755824429718295, -0.000629508325517675, -0.401311557517518, 0.798242581671585, -0.000928163756226527, -0.392149187005707, 0.810190511851676, -0.00123008240127283, -0.365949514378666, 0.840704329035169, -0.00160252859811979, -0.378998013455332, 0.826125647104002, -0.00207399213858218, -0.412724435577854, 0.782230825448871, 0.0170086490790013, -0.00036188615058233, 0.00028950892043616, -0.00431858671218418, 6.52918077527545e-05, 1.86548021961656e-05, 0.0193619075348229, -0.000643609114746404, 0.000375438650284673, -0.139141104294479, -0.0110429447852694, 0.0198773006134874, 0.0321910695742468, -0.00103842159917336, 0.00103842159917592, -0.006745885241587, 1.75035942027152e-05, 4.55093454284494e-05));`<=`(argv[[1]],argv[[2]]);
+ [1] TRUE FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE
+ [13] TRUE FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE
+ [25] TRUE FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE
+ [37] TRUE FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE
+ [49] TRUE FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE
+ [61] TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE FALSE FALSE
+ [73] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [97] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[109] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[121] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[133] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[145] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[157] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[169] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[181] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[193] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[205] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators111
+#argv <- list(c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, NA, 2L, 2L, 0L, NA, 1L, 1L), c(0, 0, 0, 0, 0, 0, 0, 0, 1, NA, 2, 2, 0, NA, 1, 1));`==`(argv[[1]],argv[[2]]);
+ [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE NA TRUE TRUE TRUE NA TRUE
+[16] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators114
+#argv <- list(structure(c(1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0), .Dim = 12L), 0);`==`(argv[[1]],argv[[2]]);
+ [1] FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators115
+#argv <- list(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 124, 125, 126, 127, 160, 160, 164, 167, 168, 173, 173, 176, 180, 184, 193, 194, 196, 199, 201, 203, 205, 206, 211, 212, 214, 215, 218, 220, 221, 223, 225, 226, 228, 231, 233, 235, 237, 238, 243, 244, 246, 247, 250, 252, 253, 258, 259, 260, 261, 262, 263, 268, 269, 270, 271, 272, 272, 273, 273, 280, 281, 282, 283, 313, 314, 317, 318, 321, 322, 323, 324, 327, 328, 336, 336, 337, 337, 340, 341, 344, 345, 346, 347, 350, 351, 352, 353, 354, 354, 355, 355, 356, 357, 366, 367, 368, 368, 369, 369, 377, 378, 379, 379, 380, 380, 381, 382, 711, 728, 729, 731, 733), structure(231L, .Names = 'e7', class = c('noquote', 'hexmode')));`==`(argv[[1]],argv[[2]]);
+ [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [13] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [25] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [37] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [49] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [61] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [73] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+ [97] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[109] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[121] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[133] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[145] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[157] FALSE FALSE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[169] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[181] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[193] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[205] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[217] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[229] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators119
+#argv <- list(c(0, 7.93839803127729e-06, 7.93839803127729e-06, 1.58767960625546e-05, 2.38151940938319e-05, 3.96919901563864e-05, 5.5568786218941e-05, 8.73223783440502e-05, 0.000119075970469159, 0.0001746447566881, 0.000230213542907041, 0.000317535921251092, 0.000412796697626419, 0.00055568786218941, 0.000698579026752401, 0.000904977375565611, 0.00112725252044137, 0.00142097324759863, 0.00173057077081845, 0.00213542907041359, 0.00255616416607129, 0.00308803683416687, 0.00364372469635628, 0.00431848852901484, 0.00501706755576725, 0.00585853774708264, 0.00670000793839803, 0.00769230769230769, 0.00869254584424863, 0.00983567516075256, 0.0109629276811939, 0.0122410097642296, 0.0134714614590776, 0.0148448043184885, 0.016146701595618, 0.0175597364451854, 0.0188775105183774, 0.020298483765976, 0.0215606890529491, 0.022902278320235, 0.0240692228308327, 0.0252758593315869, 0.0262602206874653, 0.0272763356354688, 0.0280304834484401, 0.0287925696594427, 0.0292768119393506, 0.0297372390251647, 0.0299118837818528, 0.0300706517424784, 0.0299118837818528, 0.0297372390251647, 0.0292768119393506, 0.0287925696594427, 0.0280304834484401, 0.0272763356354688, 0.0262602206874653, 0.0252758593315869, 0.0240692228308327, 0.022902278320235, 0.0215606890529491, 0.020298483765976, 0.0188775105183774, 0.0175597364451854, 0.016146701595618, 0.0148448043184885, 0.0134714614590776, 0.0122410097642296, 0.0109629276811939, 0.00983567516075256, 0.00869254584424863, 0.00769230769230769, 0.00670000793839803, 0.00585853774708264, 0.00501706755576725, 0.00431848852901484, 0.00364372469635628, 0.00308803683416687, 0.00255616416607129, 0.00213542907041359, 0.00173057077081845, 0.00142097324759863, 0.00112725252044137, 0.000904977375565611, 0.000698579026752401, 0.00055568786218941, 0.000412796697626419, 0.000317535921251092, 0.000230213542907041, 0.0001746447566881, 0.000119075970469159, 8.73223783440502e-05, 5.5568786218941e-05, 3.96919901563864e-05, 2.38151940938319e-05, 1.58767960625546e-05, 7.93839803127729e-06, 7.93839803127729e-06, 0), c(0, 7.93839803127729e-06, 7.93839803127729e-06, 1.58767960625546e-05, 2.38151940938319e-05, 3.96919901563864e-05, 5.5568786218941e-05, 8.73223783440502e-05, 0.000119075970469159, 0.0001746447566881, 0.000230213542907041, 0.000317535921251092, 0.000412796697626419, 0.00055568786218941, 0.000698579026752401, 0.000904977375565611, 0.00112725252044137, 0.00142097324759863, 0.00173057077081845, 0.00213542907041359, 0.00255616416607129, 0.00308803683416687, 0.00364372469635628, 0.00431848852901484, 0.00501706755576725, 0.00585853774708264, 0.00670000793839803, 0.00769230769230769, 0.00869254584424863, 0.00983567516075256, 0.0109629276811939, 0.0122410097642296, 0.0134714614590776, 0.0148448043184885, 0.016146701595618, 0.0175597364451854, 0.0188775105183774, 0.020298483765976, 0.0215606890529491, 0.022902278320235, 0.0240692228308327, 0.0252758593315869, 0.0262602206874653, 0.0272763356354688, 0.0280304834484401, 0.0287925696594427, 0.0292768119393506, 0.0297372390251647, 0.0299118837818528, 0.0300706517424784, 0.0299118837818528, 0.0297372390251647, 0.0292768119393506, 0.0287925696594427, 0.0280304834484401, 0.0272763356354688, 0.0262602206874653, 0.0252758593315869, 0.0240692228308327, 0.022902278320235, 0.0215606890529491, 0.020298483765976, 0.0188775105183774, 0.0175597364451854, 0.016146701595618, 0.0148448043184885, 0.0134714614590776, 0.0122410097642296, 0.0109629276811939, 0.00983567516075256, 0.00869254584424863, 0.00769230769230769, 0.00670000793839803, 0.00585853774708264, 0.00501706755576725, 0.00431848852901484, 0.00364372469635628, 0.00308803683416687, 0.00255616416607129, 0.00213542907041359, 0.00173057077081845, 0.00142097324759863, 0.00112725252044137, 0.000904977375565611, 0.000698579026752401, 0.00055568786218941, 0.000412796697626419, 0.000317535921251092, 0.000230213542907041, 0.0001746447566881, 0.000119075970469159, 8.73223783440502e-05, 5.5568786218941e-05, 3.96919901563864e-05, 2.38151940938319e-05, 1.58767960625546e-05, 7.93839803127729e-06, 7.93839803127729e-06, 0));`==`(argv[[1]],argv[[2]]);
+ [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[16] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[31] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[46] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[61] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[76] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[91] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators123
+#argv <- list(structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 1L, 2L), .Label = c('0-9g/day', '10-19', '20-29', '30+'), class = c('ordered', 'factor'), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88')), structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 1L, 2L), .Label = c('0-9g/day', '10-19', '20-29', '30+'), class = c('ordered', 'factor')));`==`(argv[[1]],argv[[2]]);
+ [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[16] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[31] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[46] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[61] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[76] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators124
+#argv <- list(16L, 8);`%%`(argv[[1]],argv[[2]]);
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators125
+#argv <- list('«Latin-1 accented chars»: ghè øØ å<Å æ<Æ gh ghè', '«Latin-1 accented chars»: ghè øØ å<Å æ<Æ gh ghè');`==`(argv[[1]],argv[[2]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators128
+#argv <- list(c(30000L, 100000L), c(30000, 1e+05));`==`(argv[[1]],argv[[2]]);
+[1] TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators129
+#argv <- list(2L, e2 = 2);`==`(argv[[1]],argv[[2]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators13
+#argv <- list(c(1, 1, 10, 1, 1, 10, 10), 0);`!=`(argv[[1]],argv[[2]]);
+[1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators131
+#argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), 1L);`==`(argv[[1]],argv[[2]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators132
+#argv <- list(NULL, NULL);`==`(argv[[1]],argv[[2]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators134
+#argv <- list(FALSE, 'Sweave');`==`(argv[[1]],argv[[2]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators135
+#argv <- list(1, 26);`%%`(argv[[1]],argv[[2]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators136
+#argv <- list(NULL, NULL);`>`(argv[[1]],argv[[2]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators138
+#argv <- list(structure(NA_real_, class = c('POSIXct', 'POSIXt')), structure(1386394754, class = c('POSIXct', 'POSIXt')));`>`(argv[[1]],argv[[2]]);
+[1] NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators14
+#argv <- list(c(23.454000046244, 23.454000046244, 23.454000046244, 23.454000046244, 28.3020224298599, 28.3020224298599, 28.3020224298599, 28.3020224298599, 30.800519631939, 30.800519631939, 30.800519631939, 30.800519631939, 25.9206422064884, 25.9206422064884, 25.9206422064884, 23.2002066882042, 23.2002066882042, 23.2002066882042, 20.1196890721666, 20.1196890721666, 20.1196890721666, 33.5952341720171, 33.5952341720171, 39.0519830824759, 39.0519830824759, 32.136512000254, 32.136512000254, 40.0046131871928, 40.0046131871928, 36.1899385542654, 36.1899385542654, 36.1899385542654, 36.9107066354437, 36.9107066354437, 30.6345192978006, 30.6345192978006, 34.3113600002908, 34.3113600002908, 38.3947952390571, 38.3947952390571, 31.2256309266188, 31.2256309266188, 31.2256309266188, 31.2256309266188, 31.2302025081837, 31.2302025081837, 31.2302025081837, 31.2302025081837, 19.9976293105352, 19.9976293105352, 19.9976293105352, 37.0952034528547, 37.0952034528547, 37.0952034528547, 32.5940180631865, 32.5940180631865, 32.5940180631865, 30.3755575381127, 30.3755575381127, 30.3755575381127), c(-7.78372381938215, -2.21918545910218, -0.632702831725275, -0.180387300047981, -7.49017129741483, -2.13549190787282, -0.608841307830204, -0.173584239188075, -22.5802449738518, -16.4998575320751, -8.81014962829596, -2.51182549655016, -23.557038894075, -17.2136212906412, -9.19126598036131, -21.8778835738372, -15.9866273589884, -8.53610880037608, -15.0686941140291, -11.0110101269414, -5.87936269076593, -5.59523381317633, -1.59523408160483, -33.4519828181102, -13.051983020203, -16.7365117167447, -8.93651185736664, -28.2046129643012, -11.0046131346857, -24.7866580698756, -18.1121297542524, -9.67102733534973, -10.9107059357263, -3.11070645913868, -6.43451888517834, -1.83451919385285, -19.311359673177, -10.3113598354284, -17.5947943688525, -9.39479451670115, -13.4592527410221, -3.83731214857368, -1.09404027169438, -0.311917318619494, -9.6582725100978, -2.75363032037238, -0.7850762062622, -0.223829845669225, -4.53229442651767, -1.2921838083017, -0.368409206751382, -8.25942763485825, -2.35481141586021, -0.671370589998607, -10.5255747423345, -3.00090328985181, -0.855575184775718, -7.55762449149225, -2.15472321038819, -0.614324265331269));`+`(argv[[1]],argv[[2]]);
+ [1] 15.670276 21.234815 22.821297 23.273613 20.811851 26.166531 27.693181
+ [8] 28.128438 8.220275 14.300662 21.990370 28.288694 2.363603 8.707021
+[15] 16.729376 1.322323 7.213579 14.664098 5.050995 9.108679 14.240326
+[22] 28.000000 32.000000 5.600000 26.000000 15.400000 23.200000 11.800000
+[29] 29.000000 11.403280 18.077809 26.518911 26.000001 33.800000 24.200000
+[36] 28.800000 15.000000 24.000000 20.800001 29.000001 17.766378 27.388319
+[43] 30.131591 30.913714 21.571930 28.476572 30.445126 31.006373 15.465335
+[50] 18.705446 19.629220 28.835776 34.740392 36.423833 22.068443 29.593115
+[57] 31.738443 22.817933 28.220834 29.761233
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators140
+#argv <- list(structure(c(24L, 13L, 15L, 68L, 39L, 74L, 22L, 1L, 8L, 55L, 24L, 20L, 51L, 13L, 3L, 4L, 5L, 6L, 15L, 2L, 8L, 60L, 67L, 23L, 58L, 24L, 22L, 21L, 37L, 74L, 59L, 39L, 14L, 14L, 19L, 23L, 70L, 21L, 22L, 31L, 29L, 30L, 45L, 58L, 17L, 7L, 19L, 26L, 39L, 74L, 57L, 59L, 12L, 72L, 70L, 37L, 64L, 16L, 18L, 21L, 22L, 8L, 62L, 61L, 63L, 71L, 105L, 64L, 10L, 41L, 8L, 27L, 11L, 34L, 32L, 33L, 68L, 107L, NA, 66L, NA, 65L, 48L, 52L, 43L, 47L, 46L, 44L, 41L, 54L, 28L, 50L, 40L, NA, 69L, NA, 75L, 109L, NA, 86L, 112L, 110L, 104L, 24L, 111L, 87L, NA, NA, 92L, 73L, 85L, 90L, 89L, NA, 83L, NA, 102L, NA, 108L, 88L, 91L, 93L, NA, 94L, 84L, NA, 106L, NA, 95L, 82L, 56L, 87L, 109L, 75L, 104L, 110L, 112L, 111L, 24L, 73L, 85L, 86L, 90L, 89L, 102L, 88L, 92L, 9L, 49L, 42L, 38L, 35L, 36L, 25L, NA, NA, 9L, 49L, 42L, NA, 36L, 38L, 25L, 53L, 79L, 78L, 103L, 77L, 80L, 114L, 97L, 113L, 76L, 96L, 81L, 116L, 99L, 117L, 115L, 98L, 101L, 100L), .Label = c('1008', '1011', '1013', '1014', '1015', '1016', '1027', '1028', '1030', '1032', '1051', '1052', '1083', '1093', '1095', '1096', '110', '1102', '111', '1117', '112', '113', '116', '117', '1219', '125', '1250', '1251', '126', '127', '128', '1291', '1292', '1293', '1298', '1299', '130', '1308', '135', '1376', '1377', '1383', '1408', '1409', '141', '1410', '1411', '1413', '1418', '1422', '1438', '1445', '1456', '1492', '2001', '2316', '262', '266', '269', '270', '2708', '2714', '2715', '272', '2728', '2734', '280', '283', '286', '290', '3501', '411', '412', '475', '5028', '5042', '5043', '5044', '5045', '5047', '5049', '5050', '5051', '5052', '5053', '5054', '5055', '5056', '5057', '5058', '5059', '5060', '5061', '5062', '5066', '5067', '5068', '5069', '5070', '5072', '5073', '5115', '5160', '5165', '655', '724', '885', '931', '942', '952', '955', '958', 'c118', 'c168', 'c203', 'c204', 'c266')), 20);`>`(argv[[1]],argv[[2]]);
+ [1] TRUE FALSE FALSE TRUE TRUE TRUE TRUE FALSE FALSE TRUE TRUE FALSE
+ [13] TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE TRUE TRUE
+ [25] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE FALSE FALSE FALSE TRUE
+ [37] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE FALSE FALSE FALSE TRUE
+ [49] TRUE TRUE TRUE TRUE FALSE TRUE TRUE TRUE TRUE FALSE FALSE TRUE
+ [61] TRUE FALSE TRUE TRUE TRUE TRUE TRUE TRUE FALSE TRUE FALSE TRUE
+ [73] FALSE TRUE TRUE TRUE TRUE TRUE NA TRUE NA TRUE TRUE TRUE
+ [85] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE NA TRUE NA
+ [97] TRUE TRUE NA TRUE TRUE TRUE TRUE TRUE TRUE TRUE NA NA
+[109] TRUE TRUE TRUE TRUE TRUE NA TRUE NA TRUE NA TRUE TRUE
+[121] TRUE TRUE NA TRUE TRUE NA TRUE NA TRUE TRUE TRUE TRUE
+[133] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[145] TRUE TRUE TRUE FALSE TRUE TRUE TRUE TRUE TRUE TRUE NA NA
+[157] FALSE TRUE TRUE NA TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[169] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[181] TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators143
+#argv <- list(c(8262, 2889), 1e+05);`>`(argv[[1]],argv[[2]]);
+[1] FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators145
+#argv <- list(c(1, 2, 3, NA, -1, 0, 1, NA), 0);`>`(argv[[1]],argv[[2]]);
+[1] TRUE TRUE TRUE NA FALSE FALSE TRUE NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators146
+#argv <- list(10, 16L);`%%`(argv[[1]],argv[[2]]);
+[1] 10
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators148
+#argv <- list(FALSE, FALSE);`>=`(argv[[1]],argv[[2]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators150
+#argv <- list(NULL, NULL);`>=`(argv[[1]],argv[[2]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators152
+#argv <- list(structure(3.00390625, base = 16, lens = 3L, .classes = c('R_system_version', 'package_version', 'numeric_version')), structure(2.9375, base = 16, lens = 3L, .classes = c('package_version', 'numeric_version')));`>=`(argv[[1]],argv[[2]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators154
+#argv <- list('3.0.1', '2.3.0');`>=`(argv[[1]],argv[[2]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators155
+#argv <- list(c(30L, 30L, 60L, 60L, 60L, 60L, 60L, 60L, 30L, 30L, 60L, 60L, 60L, NA, 30L, 30L, 30L, 30L, 60L, 60L, 60L, 60L, 60L, 60L, 30L, 30L, 60L, 60L, 60L, 60L, 30L, 30L, 30L, NA, 30L, 30L, 60L, 60L, 30L, 30L, 30L, 30L, 30L, 60L, 60L, 30L, 30L, 30L, 30L, 60L, NA, 60L, NA, 30L, 60L, 60L, 30L, NA, 30L, 30L, 60L, NA, 30L, 30L, 30L, 30L, 30L, NA, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, NA, 18L, 18L, 30L, 30L, 30L, 30L, 18L, 18L, 30L, 30L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, NA, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, NA, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 30L, 30L, NA, 18L, NA, 30L, 30L, NA, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 30L, 30L, NA, 30L, 18L, 18L, 30L, 30L, 18L, 18L, 7L, 7L, 30L, 30L, 18L, 18L, NA, 30L, 7L, 7L, 7L, NA, 18L, 18L, 7L, 7L, 18L, NA, 30L, 30L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 18L, 18L), 30);`>=`(argv[[1]],argv[[2]]);
+ [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [13] TRUE NA TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [25] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE NA TRUE TRUE
+ [37] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [49] TRUE TRUE NA TRUE NA TRUE TRUE TRUE TRUE NA TRUE TRUE
+ [61] TRUE NA TRUE TRUE TRUE TRUE TRUE NA TRUE TRUE TRUE TRUE
+ [73] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [85] NA FALSE FALSE TRUE TRUE TRUE TRUE FALSE FALSE TRUE TRUE TRUE
+ [97] TRUE FALSE FALSE FALSE FALSE TRUE NA FALSE FALSE TRUE TRUE FALSE
+[109] FALSE FALSE FALSE TRUE TRUE FALSE FALSE FALSE FALSE TRUE TRUE FALSE
+[121] FALSE FALSE FALSE TRUE TRUE FALSE FALSE FALSE FALSE TRUE TRUE FALSE
+[133] FALSE FALSE FALSE TRUE TRUE FALSE FALSE TRUE TRUE FALSE FALSE FALSE
+[145] FALSE TRUE NA FALSE FALSE TRUE TRUE FALSE FALSE TRUE TRUE FALSE
+[157] FALSE TRUE TRUE TRUE TRUE NA FALSE NA TRUE TRUE NA FALSE
+[169] FALSE TRUE TRUE FALSE FALSE FALSE FALSE TRUE TRUE TRUE TRUE NA
+[181] TRUE FALSE FALSE TRUE TRUE FALSE FALSE FALSE FALSE TRUE TRUE FALSE
+[193] FALSE NA TRUE FALSE FALSE FALSE NA FALSE FALSE FALSE FALSE FALSE
+[205] NA TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[217] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators158
+#argv <- list(c(1.67451869393188, 0.668927329809365, 0.0791361259651342, 0.543924729050942, 0.00967644138302005, 0.464139419264689, 1.12629957234273), 1e-30);`>=`(argv[[1]],argv[[2]]);
+[1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators159
+#argv <- list(c(2.00256647265648e-308, 2.22284878464869e-308, 2.22507363599982e-308, 2.2250738585072e-308, 2.22507408101459e-308, 2.22729893236571e-308, 2.44758124435792e-308, 1.61792382137608e+308, 1.79589544172745e+308, 1.797692955093e+308, 1.79769313486232e+308), 1);`>=`(argv[[1]],argv[[2]]);
+ [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators161
+#argv <- list(structure(c(-0.626453810742332, 0.183643324222082, -0.835628612410047, 1.59528080213779, 0.329507771815361, -0.820468384118015, 0.487429052428485, 0.738324705129217, 0.575781351653492, -0.305388387156356, 1.51178116845085, 0.389843236411431, -0.621240580541804, -2.2146998871775, 1.12493091814311, -0.0449336090152309, -0.0161902630989461, 0.943836210685299, 0.821221195098089, 0.593901321217509, 0.918977371608218, 0.782136300731067, 0.0745649833651906, -1.98935169586337, 0.61982574789471, -0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861, -0.41499456329968, -0.394289953710349, -0.0593133967111857, 1.10002537198388, 0.763175748457544, -0.164523596253587, -0.253361680136508, 0.696963375404737, 0.556663198673657, -0.68875569454952, -0.70749515696212, 0.36458196213683, 0.768532924515416, -0.112346212150228, 0.881107726454215), .Label = structure(list(c(-2.21578569960353, -0.304302574730325), c(-0.689841506975551, -0.0550429271029698), c(-0.254447492562539, 0.3887574239854), c(-0.0548908530089361, 0.620911560320741), c(0.3887574239854, 0.882193538880246), c(0.695877562978706, 1.59636661456382)), class = 'shingleLevel'), class = 'shingle'), -0.254447492562539);`>=`(argv[[1]],argv[[2]]);
+ [1] FALSE TRUE FALSE TRUE TRUE FALSE TRUE TRUE TRUE FALSE TRUE TRUE
+[13] FALSE FALSE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE FALSE
+[25] TRUE TRUE TRUE FALSE FALSE TRUE TRUE TRUE TRUE TRUE FALSE FALSE
+[37] FALSE TRUE TRUE TRUE TRUE TRUE TRUE TRUE FALSE FALSE TRUE TRUE
+[49] TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators162
+#argv <- list(c(1, 2, 3, 4, 5, 6, 7, NA, 9, 10, 11, 12), 1);`>=`(argv[[1]],argv[[2]]);
+ [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE NA TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators163
+#argv <- list(structure(c(18000, 315550800, 631170000, 946702800, 1262322000, 1577854800), class = c('POSIXct', 'POSIXt'), tzone = ''), 28304640);`>=`(argv[[1]],argv[[2]]);
+[1] FALSE TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators164
+#argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));`!`(argv[[1]]);
+ [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [16] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [31] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [46] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [61] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [76] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [91] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators170
+#argv <- list(429204532L, 2L);`%%`(argv[[1]],argv[[2]]);
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators172
+#argv <- list(c(-1, 0, 0, 0, 0, 0, 1, 1, 1), 2L);`%%`(argv[[1]],argv[[2]]);
+[1] 1 0 0 0 0 0 1 1 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators173
+#argv <- list(-65205377L, 1073741824L);`%%`(argv[[1]],argv[[2]]);
+[1] 1008536447
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators174
+#argv <- list(160L, 16);`%%`(argv[[1]],argv[[2]]);
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators176
+#argv <- list(1, 2);`%%`(argv[[1]],argv[[2]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators177
+#argv <- list(c(0, 1, 1, 2, 2, 3, 3, 4, 4), 2L);`%%`(argv[[1]],argv[[2]]);
+[1] 0 1 1 0 0 1 1 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators181
+#argv <- list(0, NA_real_);`%*%`(argv[[1]],argv[[2]]);
+ [,1]
+[1,] NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators187
+#argv <- list(243L, 16);`%/%`(argv[[1]],argv[[2]]);
+[1] 15
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators188
+#argv <- list(4L, 2L);`%/%`(argv[[1]],argv[[2]]);
+[1] 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators189
+#argv <- list(5, 3);`%/%`(argv[[1]],argv[[2]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators190
+#argv <- list(1:2, 4L);`%%`(argv[[1]],argv[[2]]);
+[1] 1 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators191
+#argv <- list(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));`&`(argv[[1]],argv[[2]]);
+[1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators2
+#argv <- list(c(NA, '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'), c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', NA));`!=`(argv[[1]],argv[[2]]);
+ [1] NA FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[13] FALSE FALSE FALSE FALSE NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators201
+#argv <- list(3e+09, 30000L);`%%`(argv[[1]],argv[[2]]);
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators209
+#argv <- list(0.603420215896625, c(0, 0, 0, 0, 0, -0.0303676182248376, -0.0303676182248376, -0.0616574286863247, -0.0616574286863247, -0.0616574286863247, -0.0616574286863247, -0.0616574286863247, -0.0616574286863247, -0.0938974361662337, -0.0938974361662337, -0.0938974361662337, -0.127116495884859, -0.127116495884859, -0.127116495884859, -0.127116495884859, -0.161344339326807, -0.161344339326807, -0.161344339326807, -0.161344339326807, -0.161344339326807, -0.161344339326807, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.270391595295763, -0.270391595295763, -0.270391595295763, -0.270391595295763, -0.270391595295763, -0.348720674486417, -0.389678109021166));`*`(argv[[1]],argv[[2]]);
+ [1] 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 -0.01832443
+ [7] -0.01832443 -0.03720534 -0.03720534 -0.03720534 -0.03720534 -0.03720534
+[13] -0.03720534 -0.05665961 -0.05665961 -0.05665961 -0.07670466 -0.07670466
+[19] -0.07670466 -0.07670466 -0.09735844 -0.09735844 -0.09735844 -0.09735844
+[25] -0.09735844 -0.09735844 -0.11863941 -0.11863941 -0.11863941 -0.11863941
+[31] -0.11863941 -0.11863941 -0.11863941 -0.11863941 -0.11863941 -0.14056665
+[37] -0.14056665 -0.14056665 -0.14056665 -0.14056665 -0.14056665 -0.14056665
+[43] -0.14056665 -0.14056665 -0.14056665 -0.16315975 -0.16315975 -0.16315975
+[49] -0.16315975 -0.16315975 -0.21042510 -0.23513965
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators21
+#argv <- list(1, c(FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE));`+`(argv[[1]],argv[[2]]);
+ [1] 1 1 1 2 1 2 2 1 1 1 1 1 1 1 1 1 1 2 1 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators212
+#argv <- list(0, 0L);`%%`(argv[[1]],argv[[2]]);
+[1] NaN
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators216
+#argv <- list(1, 8);`*`(argv[[1]],argv[[2]]);
+[1] 8
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators217
+#argv <- list(0+1i, 2);`*`(argv[[1]],argv[[2]]);
+[1] 0+2i
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators218
+#argv <- list(2L, 5L);`*`(argv[[1]],argv[[2]]);
+[1] 10
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators219
+#argv <- list(0+2i, 3.14159265358979);`*`(argv[[1]],argv[[2]]);
+[1] 0+6.283185i
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators221
+#argv <- list(3, 0+5i);`+`(argv[[1]],argv[[2]]);
+[1] 3+5i
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators227
+#argv <- list(3.14159265358979, c(8.24339426780198e-14, 8.88066145332545e-14, 3.39607080058103e-14, 2.87112686384263e-14, -5.3372537031158e-14, 9.96185601455202e-14, -3.26659396832497e-14, 1.39086823244366e-13, 1.72881695621852e-13, 4.32507741831361e-14, -9.84603924440361e-14, 9.87208407136427e-14, -2.73032911651077e-14, -1.48736837028697e-13, 2.94392054503409e-14, -1.05171613093738e-13, -1.14029445758562e-13, 5.13338041611324e-15, -1.87531579189825e-13, -1.25627528672486e-13, 4.10267164560562e-14, 1.74236574669889e-13, 8.02066525165472e-14, 1.57764465352e-13, 1.23253351804626e-13, 1.6788749880341e-13, -1.39908165098147e-13, -1.58115885024452e-13, 1.81544497697974e-13, -1.14362367874561e-13, 1.56626365789358e-13, -1.81348445541539e-13, 1.34029870837468e-13, 5.83660521214748e-14, 1.66415892254192e-13, -1.55962501921682e-13, 5.56922447997358e-15, -1.90684901734508e-13, -1.56068620913678e-13, 1.42594677103356e-13, -1.5324035174056e-13, -1.72045664669025e-13, 6.15626207230525e-14, -1.70423231918929e-13, -2.2440318442518e-14, -6.47937716601402e-14, -1.03307295568126e-13, 7.89213836842498e-14, -9.01552844071197e-15, -1.39863491975671e-13, 1.21580502093206e-13, 1.74391617154328e-13, -7.68474764369541e-15, -9.62952541877272e-14, -5.3148471902392e-14, -2.21880305144443e-14, 5.26389742858333e-14, 2.7159840200832e-14, 1.87431554819324e-14, 4.56102486340353e-14, 1.11966090535737e-13, 9.46528420538298e-14, -1.10626253790834e-14, -1.20682584010224e-13, 1.09679727142136e-13, 1.85521222833898e-13, 1.28904258163856e-13, -7.30112958403796e-14, 4.38190249362539e-14, -5.25642067782032e-14, -1.07266296983526e-13, 4.48939091164837e-14, 4.09010010401022e-14, 1.576058154827e-13, -1.65586113176678e-13, 1.64953139323032e-13, -3.61017352519794e-14, -5.98713716165795e-14, 1.5553263601743e-13, -1.40329145253713e-13, -1.34306416738384e-13, 6.33760537168414e-15, -1.47719256195174e-13, 1.30439641217338e-13, -1.9949544714752e-13, 8.89585653992738e-14, 9.03099047696007e-14, -5.47032374550363e-14, 1.44655516265113e-13, 1.70556682807057e-13, -9.71359599142186e-14, -6.53941098287223e-14, -8.38818567534634e-14, 6.7826899389696e-14, 1.86838153280979e-13, 4.37228204318607e-14, 8.3759639291968e-14, -1.92868749423155e-13, -9.13894925944948e-14, 5.76515542011828e-14, 3.92733987046576e-14));`+`(argv[[1]],argv[[2]]);
+ [1] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [9] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [17] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [25] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [33] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [41] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [49] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [57] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [65] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [73] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [81] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [89] 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593 3.141593
+ [97] 3.141593 3.141593 3.141593 3.141593 3.141593
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators228
+#argv <- list(4, 1:5);`+`(argv[[1]],argv[[2]]);
+[1] 5 6 7 8 9
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators23
+#argv <- list(1:2, c(0+8i, 0+9i));`+`(argv[[1]],argv[[2]]);
+[1] 1+8i 2+9i
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators231
+#argv <- list(1, 1);`-`(argv[[1]],argv[[2]]);
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators235
+#argv <- list(FALSE, c(-3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L, 70L));`%%`(argv[[1]],argv[[2]]);
+ [1] 0 0 0 NA 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+[26] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+[51] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+[76] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators24
+#argv <- list(c(14, 2, 2, -7), c(14, 2, 2, -7));`!=`(argv[[1]],argv[[2]]);
+[1] FALSE FALSE FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators242
+#argv <- list(5);`-`(argv[[1]]);
+[1] -5
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators245
+#argv <- list(17L, 10L);`-`(argv[[1]],argv[[2]]);
+[1] 7
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators253
+#argv <- list(c(1, 1, 1, 1, 1), -10);`<`(argv[[1]],argv[[2]]);
+[1] FALSE FALSE FALSE FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators254
+#argv <- list(structure(c(1208822400, 1208908800, 1208995200, 1209081600, 1209168000, 1209254400), class = c('POSIXct', 'POSIXt'), tzone = 'GMT'), structure(1209168000, class = c('POSIXct', 'POSIXt'), tzone = 'GMT'));`<=`(argv[[1]],argv[[2]]);
+[1] TRUE TRUE TRUE TRUE TRUE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators258
+#argv <- list(2L, 1);`==`(argv[[1]],argv[[2]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators259
+#argv <- list(structure(c(2L, NA, NA, 4L, 3L, 2L, 1L, 5L, 5L, 6L), .Label = c('NA', 'a', 'b', 'c', 'd', NA), class = 'factor'), structure(c(2L, NA, NA, 4L, 3L, 2L, 1L, 5L, 5L, 6L), .Label = c('NA', 'a', 'b', 'c', 'd', NA), class = 'factor'));`==`(argv[[1]],argv[[2]]);
+ [1] TRUE NA NA TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators260
+#argv <- list(c(-Inf, Inf), c(-Inf, Inf));`==`(argv[[1]],argv[[2]]);
+[1] TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators263
+#argv <- list(structure(c(1L, 2L, NA), .Label = c('1', '2'), class = 'factor'), structure(c(1L, 2L, NA), .Label = c('1', '2'), class = 'factor'));`==`(argv[[1]],argv[[2]]);
+[1] TRUE TRUE NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators264
+#argv <- list(c(5L, 2L, 4L), c(5, 2, 4));`==`(argv[[1]],argv[[2]]);
+[1] TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators265
+#argv <- list(NULL, 'foo');`==`(argv[[1]],argv[[2]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators267
+#argv <- list(c('1', '2', NA), c('1', '2', NA));`==`(argv[[1]],argv[[2]]);
+[1] TRUE TRUE NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators268
+#argv <- list(-1:12, 2);`%%`(argv[[1]],argv[[2]]);
+ [1] 1 0 1 0 1 0 1 0 1 0 1 0 1 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators269
+#argv <- list(structure('(converted from warning) NAs produced\n', class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(1, sd = Inf))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), '(converted from warning) NAs produced\n');`==`(argv[[1]],argv[[2]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators270
+#argv <- list(75.1931882101063, 0);`>`(argv[[1]],argv[[2]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators271
+#argv <- list(3.001e+155, 0);`>`(argv[[1]],argv[[2]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators276
+#argv <- list(structure(c(13991, 13992, 13993, 13994, 13995), class = 'Date', labels = c('Apr 22', 'Apr 23', 'Apr 24', 'Apr 25', 'Apr 26')), 13991);`>=`(argv[[1]],argv[[2]]);
+[1] TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators277
+#argv <- list(structure(3.00510204081633, base = 14, lens = 3L, .classes = c('R_system_version', 'package_version', 'numeric_version')), structure(2.92857142857143, base = 14, lens = 3L, .classes = c('package_version', 'numeric_version')));`>=`(argv[[1]],argv[[2]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators280
+#argv <- list(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69), 2);`^`(argv[[1]],argv[[2]]);
+ [1] 17.3889 31.1364 26.8324 37.3321 20.2500 21.2521 26.7289 20.5209 28.4089
+[10] 26.4196 23.1361 17.3889 19.4481 12.8881 34.4569 14.6689 36.3609 23.9121
+[19] 18.6624 21.9961
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators287
+#argv <- list(-3:4, 2);`^`(argv[[1]],argv[[2]]);
+[1] 9 4 1 0 1 4 9 16
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators288
+#argv <- list(0.9, Inf);`^`(argv[[1]],argv[[2]]);
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators29
+#argv <- list(c(NA, 6.12, 19.92, 29.64, 35.4, 39.72, 45.24, 52.32, 63.48), c(6.12, 19.92, 29.64, 35.4, 39.72, 45.24, 52.32, 63.48, NA));`+`(argv[[1]],argv[[2]]);
+[1] NA 26.04 49.56 65.04 75.12 84.96 97.56 115.80 NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators291
+#argv <- list(c(-Inf, -2, -1), -3);`^`(argv[[1]],argv[[2]]);
+[1] 0.000 -0.125 -1.000
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators292
+#argv <- list(integer(0), 1:3);`^`(argv[[1]],argv[[2]]);
+numeric(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators297
+#argv <- list(c(-Inf, -2, -1), 0.5);`^`(argv[[1]],argv[[2]]);
+[1] NaN NaN NaN
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators300
+#argv <- list(c(-Inf, -2, -1, 0, 1, 2, Inf, NA, NaN), 0);`^`(argv[[1]],argv[[2]]);
+[1] 1 1 1 1 1 1 1 1 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators306
+#argv <- list(c(1.1, 2, Inf), -Inf);`^`(argv[[1]],argv[[2]]);
+[1] 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators308
+#argv <- list(list());`|`(argv[[1]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators316
+#argv <- list(character(0));`!`(argv[[1]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators328
+#argv <- list(350L, 7);`%/%`(argv[[1]],argv[[2]]);
+[1] 50
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators329
+#argv <- list(34, 2L);`%/%`(argv[[1]],argv[[2]]);
+[1] 17
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators330
+#argv <- list(TRUE, 0:10);`%/%`(argv[[1]],argv[[2]]);
+ [1] NA 1 0 0 0 0 0 0 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators334
+#argv <- list(c(0, -1, 0, -1, -1, 0, NA, NA, 0, 0, 0, 0, 0, 15, 0, 17, 18, 0, 0, 0, NA, 0, 0, 0, 0, 0, NA, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 0, 33, 34, 0, 0, 35, 0, 37, 38, 0), 2);`%/%`(argv[[1]],argv[[2]]);
+ [1] 0 -1 0 -1 -1 0 NA NA 0 0 0 0 0 7 0 8 9 0 0 0 NA 0 0 0 0
+[26] 0 NA 0 0 0 0 0 0 0 0 0 0 15 0 16 17 0 0 17 0 18 19 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators344
+#argv <- list(list());`&`(argv[[1]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators35
+#argv <- list(c(3, 1, 2, 2, 3.2, -1, 1, 3.2, 4, 3, 3.2, 3.2, 202, 241, 243), 0);`!=`(argv[[1]],argv[[2]]);
+ [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators360
+#argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), 'auto');`!=`(argv[[1]],argv[[2]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators365
+#argv <- list(-0.0290053253855826, c(95, 175, 250, 350, 500, 675, 1000));`*`(argv[[1]],argv[[2]]);
+[1] -2.755506 -5.075932 -7.251331 -10.151864 -14.502663 -19.578595 -29.005325
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators366
+#argv <- list(c(2L, 1L), c(2L, 2L));`*`(argv[[1]],argv[[2]]);
+[1] 4 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators368
+#argv <- list(1.5, 1.5);`*`(argv[[1]],argv[[2]]);
+[1] 2.25
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators371
+#argv <- list(TRUE, TRUE);`!=`(argv[[1]],argv[[2]]);
+[1] FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators377
+#argv <- list(30, 1:100);`*`(argv[[1]],argv[[2]]);
+ [1] 30 60 90 120 150 180 210 240 270 300 330 360 390 420 450
+ [16] 480 510 540 570 600 630 660 690 720 750 780 810 840 870 900
+ [31] 930 960 990 1020 1050 1080 1110 1140 1170 1200 1230 1260 1290 1320 1350
+ [46] 1380 1410 1440 1470 1500 1530 1560 1590 1620 1650 1680 1710 1740 1770 1800
+ [61] 1830 1860 1890 1920 1950 1980 2010 2040 2070 2100 2130 2160 2190 2220 2250
+ [76] 2280 2310 2340 2370 2400 2430 2460 2490 2520 2550 2580 2610 2640 2670 2700
+ [91] 2730 2760 2790 2820 2850 2880 2910 2940 2970 3000
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators380
+#argv <- list(-3:3, 0+1i);`*`(argv[[1]],argv[[2]]);
+[1] 0-3i 0-2i 0-1i 0+0i 0+1i 0+2i 0+3i
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators381
+#argv <- list(181L, 3.14159265358979);`*`(argv[[1]],argv[[2]]);
+[1] 568.6283
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators41
+#argv <- list(1.15);`-`(argv[[1]]);
+[1] -1.15
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators43
+#argv <- list(1, c(0.588534374722704, 0.346372710230244, 0.203852246436365, 0.119974054392244, 0.0706088550846872, 0.0244569805019377));`-`(argv[[1]],argv[[2]]);
+[1] 0.4114656 0.6536273 0.7961478 0.8800259 0.9293911 0.9755430
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators45
+#argv <- list(38, 24L);`-`(argv[[1]],argv[[2]]);
+[1] 14
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators48
+#argv <- list(41L, 0L);`-`(argv[[1]],argv[[2]]);
+[1] 41
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators65
+#argv <- list(c(41L, 36L, 12L, 18L, NA, 28L, 23L, 19L, 8L, NA, 7L, 16L, 11L, 14L, 18L, 14L, 34L, 6L, 30L, 11L, 1L, 11L, 4L, 32L, NA, NA, NA, 23L, 45L, 115L, 37L, NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 135L, 49L, 32L, NA, 64L, 40L, 77L, 97L, 97L, 85L, NA, 10L, 27L, NA, 7L, 48L, 35L, 61L, 79L, 63L, 16L, NA, NA, 80L, 108L, 20L, 52L, 82L, 50L, 64L, 59L, 39L, 9L, 16L, 78L, 35L, 66L, 122L, 89L, 110L, NA, NA, 44L, 28L, 65L, NA, 22L, 59L, 23L, 31L, 44L, 21L, 9L, NA, 45L, 168L, 73L, NA, 76L, 118L, 84L, 85L, 96L, 78L, 73L, 91L, 47L, 32L, 20L, 23L, 21L, 24L, 44L, 21L, 28L, 9L, 13L, 46L, 18L, 13L, 24L, 16L, 13L, 23L, 36L, 7L, 14L, 30L, NA, 14L, 18L, 20L));`-`(argv[[1]]);
+ [1] -41 -36 -12 -18 NA -28 -23 -19 -8 NA -7 -16 -11 -14 -18
+ [16] -14 -34 -6 -30 -11 -1 -11 -4 -32 NA NA NA -23 -45 -115
+ [31] -37 NA NA NA NA NA NA -29 NA -71 -39 NA NA -23 NA
+ [46] NA -21 -37 -20 -12 -13 NA NA NA NA NA NA NA NA NA
+ [61] NA -135 -49 -32 NA -64 -40 -77 -97 -97 -85 NA -10 -27 NA
+ [76] -7 -48 -35 -61 -79 -63 -16 NA NA -80 -108 -20 -52 -82 -50
+ [91] -64 -59 -39 -9 -16 -78 -35 -66 -122 -89 -110 NA NA -44 -28
+[106] -65 NA -22 -59 -23 -31 -44 -21 -9 NA -45 -168 -73 NA -76
+[121] -118 -84 -85 -96 -78 -73 -91 -47 -32 -20 -23 -21 -24 -44 -21
+[136] -28 -9 -13 -46 -18 -13 -24 -16 -13 -23 -36 -7 -14 -30 NA
+[151] -14 -18 -20
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators67
+#argv <- list(c(4L, 3L, 2L, 1L, 2L, 3L, 4L, 5L), 0+5i);`-`(argv[[1]],argv[[2]]);
+[1] 4-5i 3-5i 2-5i 1-5i 2-5i 3-5i 4-5i 5-5i
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators68
+#argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), structure(integer(0), .Label = character(0), class = 'factor'));`!=`(argv[[1]],argv[[2]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators78
+#argv <- list(1, 4);`<`(argv[[1]],argv[[2]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators79
+#argv <- list(NULL, NULL);`!=`(argv[[1]],argv[[2]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators8
+#argv <- list(0.5, c(0.0945457474962427, 0.369817831189094, 0.485958087431202, 0.498816870239398, 0.499902671395055));`+`(argv[[1]],argv[[2]]);
+[1] 0.5945457 0.8698178 0.9859581 0.9988169 0.9999027
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators80
+#argv <- list(structure(1L, .Label = c('A', 'B', 'C'), class = c('ordered', 'factor')), structure(3L, .Label = c('A', 'B', 'C'), class = c('ordered', 'factor')));`<`(argv[[1]],argv[[2]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators81
+#argv <- list(structure(1386500270.17764, class = c('POSIXct', 'POSIXt')), structure(c(1383854025.35606, 1386388510.66806), class = c('POSIXct', 'POSIXt')));`<`(argv[[1]],argv[[2]]);
+[1] FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators82
+#argv <- list(c(0.999998001700552, -0.0013118835870674, -0.000526551904329415, 0.999999038344567, -0.000903475278483392, -0.000381296378838388, 0.999999057686544, -0.000896140095625969, -0.000373156128147092, 0.999998405868953, -0.00114777435393854, -0.000526063245555164, 0.99999814161282, -0.00120795166706622, -0.000631851641234638, 0.999997792453059, -0.00139185834612791, -0.000519877304541034, 0.999998020546725, -0.00127080900255349, -0.00060373324887666, 0.999998059330159, -0.00123814735894241, -0.000638480377887232, 0.999998337108097, -0.00115570987192407, -0.000572034814304861, 0.999998571810103, -0.00106400147389197, -0.00054414035107764, 0.999999136998844, -0.000829344110491764, -0.000418555560445895, 0.999999436800894, -0.000688792506748533, -0.00029793232712181, 0.999999182435777, -0.000786088000160243, -0.000446798847724984, 0.999998035855459, -0.00125214214514046, -0.000629508325517675, 0.999995461301925, -0.00191759993645823, -0.000928163756226527, 0.999990501294199, -0.00282586497589704, -0.00123008240127283, 0.99998523015117, -0.00349306924843624, -0.00160252859811979, 0.999980247693918, -0.00393070891026528, -0.00207399213858218, 0.999258133391236, -0.0212608113487506, 0.0170086490790013, 0.999752823870685, -0.0151150534926454, -0.00431858671218418, 0.998521231438773, -0.0331918414882689, 0.0193619075348229, 0.973987730061349, 0.0773006134969334, -0.139141104294479, 0.997923156801661, -0.0321910695742469, 0.0321910695742468, 0.999947758503179, -0.00259457124676546, -0.006745885241587, -0.0013118835870674, 0.138748425090248, -0.345681325192261, -0.000903475278483392, 0.151184975864853, -0.358227947918666, -0.000896140095625969, 0.147770769059702, -0.354871477867884, -0.00114777435393854, 0.173602465164251, -0.378765536799718, -0.00120795166706622, 0.214831416406957, -0.410703566802515, -0.00139185834612791, 0.122433312766354, -0.327782640513123, -0.00127080900255349, 0.184140620360657, -0.387596745778816, -0.00123814735894241, 0.21006198499474, -0.407350481092054, -0.00115570987192407, 0.196781639012774, -0.397564195941878, -0.00106400147389197, 0.207318901950479, -0.405384561552842, -0.000829344110491764, 0.203000309817415, -0.402231893588506, -0.000688792506748533, 0.157606764246543, -0.364371236069974, -0.000786088000160243, 0.244176387845927, -0.429597092087573, -0.00125214214514046, 0.201759382472957, -0.401311557517518, -0.00191759993645823, 0.189814026846399, -0.392149187005707, -0.00282586497589704, 0.159305169670633, -0.365949514378666, -0.00349306924843624, 0.173889122744829, -0.378998013455332, -0.00393070891026528, 0.217788926857211, -0.412724435577854, -0.0212608113487506, 0.000452357688250284, -0.00036188615058233, -0.0151150534926454, 0.000228521327097438, 6.52918077527545e-05, -0.0331918414882689, 0.00110332991097693, -0.000643609114746404, 0.0773006134969334, 0.00613496932514866, -0.0110429447852694, -0.0321910695742469, 0.0010384215991718, -0.00103842159917336, -0.00259457124676546, 6.73215168555691e-06, 1.75035942027152e-05, -0.000526551904329415, -0.345681325192261, 0.861253573209199, -0.000381296378838388, -0.358227947918666, 0.848815985790579, -0.000373156128147092, -0.354871477867884, 0.852230173253752, -0.000526063245555164, -0.378765536799718, 0.826399128966796, -0.000631851641234638, -0.410703566802515, 0.785170441980223, -0.000519877304541034, -0.327782640513123, 0.877568894780586, -0.00060373324887666, -0.387596745778816, 0.815861359092619, -0.000638480377887232, -0.407350481092054, 0.789939955675102, -0.000572034814304861, -0.397564195941878, 0.803220023879128, -0.00054414035107764, -0.405384561552842, 0.792682526239419, -0.000418555560445895, -0.402231893588506, 0.797000553183741, -0.00029793232712181, -0.364371236069974, 0.842393798952562, -0.000446798847724984, -0.429597092087573, 0.755824429718295, -0.000629508325517675, -0.401311557517518, 0.798242581671585, -0.000928163756226527, -0.392149187005707, 0.810190511851676, -0.00123008240127283, -0.365949514378666, 0.840704329035169, -0.00160252859811979, -0.378998013455332, 0.826125647104002, -0.00207399213858218, -0.412724435577854, 0.782230825448871, 0.0170086490790013, -0.00036188615058233, 0.00028950892043616, -0.00431858671218418, 6.52918077527545e-05, 1.86548021961656e-05, 0.0193619075348229, -0.000643609114746404, 0.000375438650284673, -0.139141104294479, -0.0110429447852694, 0.0198773006134874, 0.0321910695742468, -0.00103842159917336, 0.00103842159917592, -0.006745885241587, 1.75035942027152e-05, 4.55093454284494e-05), 0.692636183089874);`<`(argv[[1]],argv[[2]]);
+ [1] FALSE TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE
+ [13] FALSE TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE
+ [25] FALSE TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE
+ [37] FALSE TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE
+ [49] FALSE TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE
+ [61] FALSE TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE
+ [73] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [85] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+ [97] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[109] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[121] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[133] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+[145] TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE FALSE
+[157] TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE FALSE
+[169] TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE FALSE
+[181] TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE FALSE
+[193] TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE TRUE TRUE TRUE TRUE
+[205] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators85
+#argv <- list(c(2.00256647265648e-308, 2.22284878464869e-308, 2.22507363599982e-308, 2.2250738585072e-308, 2.22507408101459e-308, 2.22729893236571e-308, 2.44758124435792e-308, 1.61792382137608e+308, 1.79589544172745e+308, 1.797692955093e+308, 1.79769313486232e+308), 1);`<`(argv[[1]],argv[[2]]);
+ [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE FALSE FALSE FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators88
+#argv <- list(c(1, 2, 3, 4, 5, 6, 7, NA, 9, 10, 11, 12), 2);`<`(argv[[1]],argv[[2]]);
+ [1] TRUE FALSE FALSE FALSE FALSE FALSE FALSE NA FALSE FALSE FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators90
+#argv <- list(c(1, 0, 0, 1, 0, 1, 2, 2, 1, 2, 1, 2, 1, NA, 1, 1, 1, 2, 2, 1, 1, 0, 1, 0, 0, 1, 0, 3, 1, 2, 1, 2, 2, 2, 2, 2, 2, 1, 2, 1, 1, 2, 0, 2, 1, 2, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 2, 1, 1, 2, 1, 1, 1, 1, 2, 2, 0, 0, 1, 0, 1, 2, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 2, 0, 1, 1, 1, 0, 2, 1, 1, 1, 0, 0, 1, 1, 1, 2, 1, 1, 1, 1, 2, 0, 1, 1, 0, 1, 2, 2, 2, 2, 1, 0, 2, 1, 2, 0, 1, 1, 1, 2, 0, 1, 1, 0, 1, 0, 2, 1, 2, 1, 0, 2, 1, 2, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 2, 2, 1, 2, 1, 1, 0, 1, 2, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 2, 1, 1, 0, 0, 0, 0, 1, 0, 0, 2, 0, 1, 0, 1, 2, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 0, 2, 0, 2, 1, 1, 0, 1, 1, 2, 1, 1, 1, 2, 2, 0, 1, 1, 1, 1, 0, 2, 1, 1), 1);`!=`(argv[[1]],argv[[2]]);
+ [1] FALSE TRUE TRUE FALSE TRUE FALSE TRUE TRUE FALSE TRUE FALSE TRUE
+ [13] FALSE NA FALSE FALSE FALSE TRUE TRUE FALSE FALSE TRUE FALSE TRUE
+ [25] TRUE FALSE TRUE TRUE FALSE TRUE FALSE TRUE TRUE TRUE TRUE TRUE
+ [37] TRUE FALSE TRUE FALSE FALSE TRUE TRUE TRUE FALSE TRUE TRUE FALSE
+ [49] TRUE FALSE FALSE TRUE TRUE TRUE FALSE TRUE TRUE TRUE FALSE FALSE
+ [61] TRUE FALSE FALSE FALSE FALSE TRUE TRUE TRUE TRUE FALSE TRUE FALSE
+ [73] TRUE FALSE FALSE FALSE TRUE FALSE TRUE TRUE TRUE FALSE FALSE FALSE
+ [85] FALSE FALSE FALSE TRUE FALSE TRUE TRUE FALSE FALSE FALSE TRUE TRUE
+ [97] FALSE FALSE FALSE TRUE TRUE FALSE FALSE FALSE TRUE FALSE FALSE FALSE
+[109] FALSE TRUE TRUE FALSE FALSE TRUE FALSE TRUE TRUE TRUE TRUE FALSE
+[121] TRUE TRUE FALSE TRUE TRUE FALSE FALSE FALSE TRUE TRUE FALSE FALSE
+[133] TRUE FALSE TRUE TRUE FALSE TRUE FALSE TRUE TRUE FALSE TRUE FALSE
+[145] FALSE FALSE TRUE FALSE TRUE TRUE FALSE TRUE TRUE FALSE TRUE TRUE
+[157] FALSE TRUE FALSE FALSE TRUE FALSE TRUE FALSE FALSE TRUE FALSE TRUE
+[169] FALSE TRUE FALSE TRUE FALSE TRUE FALSE FALSE TRUE FALSE FALSE TRUE
+[181] TRUE TRUE TRUE FALSE TRUE TRUE TRUE TRUE FALSE TRUE FALSE TRUE
+[193] FALSE FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE FALSE TRUE TRUE
+[205] TRUE TRUE TRUE TRUE FALSE FALSE TRUE FALSE FALSE TRUE FALSE FALSE
+[217] FALSE TRUE TRUE TRUE FALSE FALSE FALSE FALSE TRUE TRUE FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators92
+#argv <- list(structure(c(0, 0.414213562373095, 0.732050807568877, 0, 0.23606797749979, 0.449489742783178, 0.645751311064591, 0.82842712474619, 0, 0.16227766016838), id = 'test 1', class = structure('withId', package = '.GlobalEnv')), 0.01);`<`(argv[[1]],argv[[2]]);
+ [1] TRUE FALSE FALSE TRUE FALSE FALSE FALSE FALSE TRUE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators93
+#argv <- list(NULL, NULL);`<`(argv[[1]],argv[[2]]);
+logical(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators94
+#argv <- list('a', 'b');`<`(argv[[1]],argv[[2]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators95
+#argv <- list(structure(c(1386478800, 1386651600, 1386824400, 1386997200, 1387170000, 1387342800, 1387515600, 1387688400, 1387861200, 1388034000, 1388206800, 1388379600, 1388552400, 1388725200), class = c('POSIXct', 'POSIXt'), tzone = ''), structure(1387538790.57927, class = c('POSIXct', 'POSIXt')));`<=`(argv[[1]],argv[[2]]);
+ [1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE FALSE FALSE FALSE FALSE FALSE
+[13] FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators96
+#argv <- list(c(17, 45.1, 39.7, 36.5, 43.5), 6);`<=`(argv[[1]],argv[[2]]);
+[1] FALSE FALSE FALSE FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators98
+#argv <- list(c(0L, 1L, 2L, 2L, 2L, 3L, 4L, 5L, 5L, 5L, 6L, 7L, 7L, 7L, 8L, 9L, 9L, 9L, 10L, 11L, 11L, 11L, 12L, 12L, 12L, 13L, 14L, 14L, 14L), 1L);`<=`(argv[[1]],argv[[2]]);
+ [1] TRUE TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[13] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[25] FALSE FALSE FALSE FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinoperators.testoperators99
+#argv <- list(150000, 3e+09);`<=`(argv[[1]],argv[[2]]);
+[1] TRUE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpaste.testpaste10
+#argv <- list(list('(', structure(c(' 1.124', ' 1.056', ' 1.059', ' 0.932'), .Dim = c(2L, 2L)), ','), '', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))
+[1] "( 1.124," "( 1.056," "( 1.059," "( 0.932,"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpaste.testpaste11
+#argv <- list(list(character(0)), ' ', ''); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))
+[1] ""
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpaste.testpaste3
+#argv <- list(list(), ' ', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))
+character(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpaste.testpaste4
+#argv <- list(list('package', structure('pkgA', .Names = 'name')), ':', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))
+[1] "package:pkgA"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpaste.testpaste5
+#argv <- list(list(c('[', 'as.data.frame', 'plot', 'print', 'summary', 'as.character', 'print', 'print', 'plot', 'update', 'dim', 'dimnames', 'dimnames<-', '[', 't', 'summary', 'print', 'barchart', 'barchart', 'barchart', 'barchart', 'barchart', 'barchart', 'bwplot', 'bwplot', 'densityplot', 'densityplot', 'dotplot', 'dotplot', 'dotplot', 'dotplot', 'dotplot', 'dotplot', 'histogram', 'histogram', 'histogram', 'qqmath', 'qqmath', 'stripplot', 'stripplot', 'qq', 'xyplot', 'xyplot', 'levelplot', 'levelplot', 'levelplot', 'levelplot', 'contourplot', 'contourplot', 'contourplot', 'contourplot', 'cloud', 'cloud', 'cloud', 'wireframe', 'wireframe', 'splom', 'splom', 'splom', 'parallelplot', 'parallelplot', 'parallelplot', 'parallel', 'parallel', 'parallel', 'tmd', 'tmd', 'llines', 'ltext', 'lpoints'), c('shingle', 'shingle', 'shingle', 'shingle', 'shingle', 'shingleLevel', 'shingleLevel', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'summary.trellis', 'formula', 'array', 'default', 'matrix', 'numeric', 'table', 'formula', 'numeric', 'formula', 'numeric', 'formula', 'array', 'default', 'matrix', 'numeric', 'table', 'formula', 'factor', 'numeric', 'formula', 'numeric', 'formula', 'numeric', 'formula', 'formula', 'ts', 'formula', 'table', 'array', 'matrix', 'formula', 'table', 'array', 'matrix', 'formula', 'matrix', 'table', 'formula', 'matrix', 'formula', 'matrix', 'data.frame', 'formula', 'matrix', 'data.frame', 'formula', 'matrix', 'data.frame', 'formula', 'trellis', 'default', 'default', 'default')), '.', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))
+ [1] "[.shingle" "as.data.frame.shingle"
+ [3] "plot.shingle" "print.shingle"
+ [5] "summary.shingle" "as.character.shingleLevel"
+ [7] "print.shingleLevel" "print.trellis"
+ [9] "plot.trellis" "update.trellis"
+[11] "dim.trellis" "dimnames.trellis"
+[13] "dimnames<-.trellis" "[.trellis"
+[15] "t.trellis" "summary.trellis"
+[17] "print.summary.trellis" "barchart.formula"
+[19] "barchart.array" "barchart.default"
+[21] "barchart.matrix" "barchart.numeric"
+[23] "barchart.table" "bwplot.formula"
+[25] "bwplot.numeric" "densityplot.formula"
+[27] "densityplot.numeric" "dotplot.formula"
+[29] "dotplot.array" "dotplot.default"
+[31] "dotplot.matrix" "dotplot.numeric"
+[33] "dotplot.table" "histogram.formula"
+[35] "histogram.factor" "histogram.numeric"
+[37] "qqmath.formula" "qqmath.numeric"
+[39] "stripplot.formula" "stripplot.numeric"
+[41] "qq.formula" "xyplot.formula"
+[43] "xyplot.ts" "levelplot.formula"
+[45] "levelplot.table" "levelplot.array"
+[47] "levelplot.matrix" "contourplot.formula"
+[49] "contourplot.table" "contourplot.array"
+[51] "contourplot.matrix" "cloud.formula"
+[53] "cloud.matrix" "cloud.table"
+[55] "wireframe.formula" "wireframe.matrix"
+[57] "splom.formula" "splom.matrix"
+[59] "splom.data.frame" "parallelplot.formula"
+[61] "parallelplot.matrix" "parallelplot.data.frame"
+[63] "parallel.formula" "parallel.matrix"
+[65] "parallel.data.frame" "tmd.formula"
+[67] "tmd.trellis" "llines.default"
+[69] "ltext.default" "lpoints.default"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpaste.testpaste7
+#argv <- list(list(character(0)), ' ', ' '); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))
+[1] ""
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpaste.testpaste9
+#argv <- list(list('GRID', 'text', '6'), '.', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))
+[1] "GRID.text.6"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpaste0.testpaste01
+#argv <- list(list('2', ': '), NULL); .Internal(paste0(argv[[1]], argv[[2]]))
+[1] "2: "
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpaste0.testpaste010
+#argv <- list(list(structure(c('-0.16', '-0.03', ' 0.11', '-0.19', ' 0.12', ' 0.00', '-0.03', ' 0.18', ' 0.01', '-0.03', '-0.11', '-0.11', ' 0.00', ' 0.09', '-0.15', ' 0.05', '-0.04', ' 0.00', ' 0.04', ' 0.00', ' 0.01', ' 0.04', ' 0.11', ' 0.11', '-0.10', '-0.01', ' 0.04', ' 0.34', '-0.30', ' 0.00', '-0.02', '-0.31', '-0.04', '-0.01', '-0.05', '-0.05', '-0.07', '-0.03', ' 0.02', ' 0.21', '-0.17', ' 0.00', '-0.03', '-0.17', '-0.03', '-0.04', ' 0.28', '-0.45', '-0.24', ' 0.00', ' 0.02', ' 0.25', '-0.28', ' 0.00', '-0.01', '-0.24', '-0.04', '-0.04', '-0.06', '-0.06', '-0.44', '-0.01', ' 0.02', ' 0.18', '-0.26', ' 0.00', ' 0.00', '-0.19', '-0.03', '-0.03', '-0.04', '-0.04', ' 0.01', '-0.03', ' 0.04', ' 0.18', '-0.11', ' 0.00', '-0.02', '-0.15', '-0.02', '-0.02', '-0.06', '-0.06', ' 0.12', ' 0.08', ' 0.07', '-0.01', '-0.03', ' 0.00', '-0.01', ' 0.00', ' 0.00', ' 0.04', '-0.01', '-0.01', ' 0.00', ' 0.01', ' 0.08', '-0.01', ' 0.01', ' 0.00', '-0.02', ' 0.01', ' 0.00', ' 0.03', '-0.07', '-0.07', ' 0.21', ' 0.00', '-0.08', ' 0.04', '-0.42', ' 0.00', ' 0.01', ' 0.01', ' 0.00', ' 0.02', ' 0.05', ' 0.05', ' 0.06', '-0.04', '-0.09', ' 0.01', ' 0.01', ' 0.00', ' 0.01', '-0.02', ' 0.00', ' 0.03', ' 0.04', ' 0.04', '-0.04', '-0.01', ' 0.16', '-0.06', '-0.03', ' 0.00', ' 0.02', '-0.07', ' 0.00', ' 0.06', ' 0.08', ' 0.08', ' 0.47', '-0.15', ' 0.06', ' 0.01', ' 0.18', ' 0.00', '-0.03', ' 0.01', ' 0.00', '-0.02', '-0.06', '-0.06', '-0.04', ' 0.01', ' 0.09', '-0.08', '-0.10', ' 0.00', ' 0.05', '-0.18', ' 0.01', '-0.03', ' 0.12', ' 0.12', ' 0.03', ' 0.02', ' 0.12', '-0.08', '-0.11', ' 0.00', ' 0.03', '-0.14', ' 0.01', '-0.02', ' 0.10', ' 0.10', ' 0.73', '-0.24', '-0.26', '-0.44', '-0.89', ' NaN', ' 0.08', ' 0.45', ' 0.05', ' 0.14', ' 0.64', '-0.64', ' 1.71', ' 2.09', ' 1.86', ' 1.76', ' 0.13', ' NaN', ' 1.63', ' 1.92', ' 1.88', ' 1.60', ' 2.68', ' 2.68', ' 0.04', ' 0.00', ' 0.00', ' 0.01', ' 0.05', ' NaN', ' 0.00', ' 0.01', ' 0.00', ' 0.00', ' 0.03', ' 0.03', ' 0.39', ' 0.43', ' 0.36', ' 0.36', ' 0.06', ' 1.00', ' 0.26', ' 0.40', ' 0.36', ' 0.25', ' 0.57', ' 0.57'), .Dim = c(12L, 19L), .Dimnames = list(c('8', '19', '28', '39', '42', '57', '66', '80', '83', '87', '89', '93'), c('dfb.1_', 'dfb.Wght', 'dfb.Cyl4', 'dfb.Cyl5', 'dfb.Cyl6', 'dfb.Cyl8', 'dfb.Cyln', 'dfb.TypL', 'dfb.TypM', 'dfb.TypSm', 'dfb.TypSp', 'dfb.TypV', 'dfb.EngS', 'dfb.DrTF', 'dfb.DrTR', 'dffit', 'cov.r', 'cook.d', 'hat'))), c('', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '_*', '_*', '_*', '_*', '_*', '', '_*', '_*', '_*', '_*', '_*', '_*', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '_*', '', '', '', '', '_*', '_*')), NULL); .Internal(paste0(argv[[1]], argv[[2]]))
+ [1] "-0.16" "-0.03" " 0.11" "-0.19" " 0.12" " 0.00" "-0.03"
+ [8] " 0.18" " 0.01" "-0.03" "-0.11" "-0.11" " 0.00" " 0.09"
+ [15] "-0.15" " 0.05" "-0.04" " 0.00" " 0.04" " 0.00" " 0.01"
+ [22] " 0.04" " 0.11" " 0.11" "-0.10" "-0.01" " 0.04" " 0.34"
+ [29] "-0.30" " 0.00" "-0.02" "-0.31" "-0.04" "-0.01" "-0.05"
+ [36] "-0.05" "-0.07" "-0.03" " 0.02" " 0.21" "-0.17" " 0.00"
+ [43] "-0.03" "-0.17" "-0.03" "-0.04" " 0.28" "-0.45" "-0.24"
+ [50] " 0.00" " 0.02" " 0.25" "-0.28" " 0.00" "-0.01" "-0.24"
+ [57] "-0.04" "-0.04" "-0.06" "-0.06" "-0.44" "-0.01" " 0.02"
+ [64] " 0.18" "-0.26" " 0.00" " 0.00" "-0.19" "-0.03" "-0.03"
+ [71] "-0.04" "-0.04" " 0.01" "-0.03" " 0.04" " 0.18" "-0.11"
+ [78] " 0.00" "-0.02" "-0.15" "-0.02" "-0.02" "-0.06" "-0.06"
+ [85] " 0.12" " 0.08" " 0.07" "-0.01" "-0.03" " 0.00" "-0.01"
+ [92] " 0.00" " 0.00" " 0.04" "-0.01" "-0.01" " 0.00" " 0.01"
+ [99] " 0.08" "-0.01" " 0.01" " 0.00" "-0.02" " 0.01" " 0.00"
+[106] " 0.03" "-0.07" "-0.07" " 0.21" " 0.00" "-0.08" " 0.04"
+[113] "-0.42" " 0.00" " 0.01" " 0.01" " 0.00" " 0.02" " 0.05"
+[120] " 0.05" " 0.06" "-0.04" "-0.09" " 0.01" " 0.01" " 0.00"
+[127] " 0.01" "-0.02" " 0.00" " 0.03" " 0.04" " 0.04" "-0.04"
+[134] "-0.01" " 0.16" "-0.06" "-0.03" " 0.00" " 0.02" "-0.07"
+[141] " 0.00" " 0.06" " 0.08" " 0.08" " 0.47" "-0.15" " 0.06"
+[148] " 0.01" " 0.18" " 0.00" "-0.03" " 0.01" " 0.00" "-0.02"
+[155] "-0.06" "-0.06" "-0.04" " 0.01" " 0.09" "-0.08" "-0.10"
+[162] " 0.00" " 0.05" "-0.18" " 0.01" "-0.03" " 0.12" " 0.12"
+[169] " 0.03" " 0.02" " 0.12" "-0.08" "-0.11" " 0.00" " 0.03"
+[176] "-0.14" " 0.01" "-0.02" " 0.10" " 0.10" " 0.73" "-0.24"
+[183] "-0.26" "-0.44" "-0.89" " NaN" " 0.08" " 0.45" " 0.05"
+[190] " 0.14" " 0.64" "-0.64" " 1.71_*" " 2.09_*" " 1.86_*" " 1.76_*"
+[197] " 0.13_*" " NaN" " 1.63_*" " 1.92_*" " 1.88_*" " 1.60_*" " 2.68_*"
+[204] " 2.68_*" " 0.04" " 0.00" " 0.00" " 0.01" " 0.05" " NaN"
+[211] " 0.00" " 0.01" " 0.00" " 0.00" " 0.03" " 0.03" " 0.39"
+[218] " 0.43" " 0.36" " 0.36" " 0.06" " 1.00_*" " 0.26" " 0.40"
+[225] " 0.36" " 0.25" " 0.57_*" " 0.57_*"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpaste0.testpaste013
+#argv <- list(list(character(0), '$y'), NULL); .Internal(paste0(argv[[1]], argv[[2]]))
+[1] "$y"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpaste0.testpaste015
+#argv <- list(list('cnstrO> ', 'constrOptim(c(2,-1,-1), fQP, gQP, ui = t(Amat), ci = bvec)'), '\n'); .Internal(paste0(argv[[1]], argv[[2]]))
+[1] "cnstrO> constrOptim(c(2,-1,-1), fQP, gQP, ui = t(Amat), ci = bvec)"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpaste0.testpaste02
+#argv <- list(list(structure(c('-0.20', ' 0.07', ' 0.16', ' 0.55', ' 0.13', '-0.07', '-0.08', '-0.48', ' 0.22', ' 0.04', '-0.34', '-0.38', '-0.02', '-0.23', ' 0.09', '-0.02', ' 0.12', '-0.03', ' 0.23', '-1.02', '-0.46', '-0.25', ' 0.75', '-1.16', ' 0.65', ' 1.66', ' 0.51', ' 2.09', ' 0.04', ' 0.01', ' 0.10', ' 0.27', ' 0.04', ' 0.33', ' 0.06', ' 0.53'), .Dim = c(4L, 9L), .Dimnames = list(c('Chile', 'United States', 'Zambia', 'Libya'), c('dfb.1_', 'dfb.pp15', 'dfb.pp75', 'dfb.dpi', 'dfb.ddpi', 'dffit', 'cov.r', 'cook.d', 'hat'))), c('', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '_*', '', '', '', '_*', '_*', '_*', '_*', '_*', '', '', '', '', '', '_*', '', '_*')), NULL); .Internal(paste0(argv[[1]], argv[[2]]))
+ [1] "-0.20" " 0.07" " 0.16" " 0.55" " 0.13" "-0.07" "-0.08"
+ [8] "-0.48" " 0.22" " 0.04" "-0.34" "-0.38" "-0.02" "-0.23"
+[15] " 0.09" "-0.02" " 0.12" "-0.03" " 0.23" "-1.02_*" "-0.46"
+[22] "-0.25" " 0.75" "-1.16_*" " 0.65_*" " 1.66_*" " 0.51_*" " 2.09_*"
+[29] " 0.04" " 0.01" " 0.10" " 0.27" " 0.04" " 0.33_*" " 0.06"
+[36] " 0.53_*"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpaste0.testpaste03
+#argv <- list(list(c('\'1\'', '\'2\'', NA)), ','); .Internal(paste0(argv[[1]], argv[[2]]))
+[1] "'1','2',NA"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpaste0.testpaste05
+#argv <- list(list(structure(c('coef.aov', 'extractAIC.aov', 'model.tables.aov', 'print.aov', 'proj.aov', 'se.contrast.aov', 'summary.aov', 'TukeyHSD.aov'), class = 'MethodsFunction', info = structure(list(visible = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE), from = structure(c(9L, 9L, 9L, 9L, 9L, 9L, 7L, 7L), .Label = c('CheckExEnv', 'package:base', 'package:datasets', 'package:graphics', 'package:grDevices', 'package:methods', 'package:stats', 'package:utils', 'registered S3method'), class = 'factor')), .Names = c('visible', 'from'), row.names = c('coef.aov', 'extractAIC.aov', 'model.tables.aov', 'print.aov', 'proj.aov', 'se.contrast.aov', 'summary.aov', 'TukeyHSD.aov'), class = 'data.frame')), c('*', '*', '*', '*', '*', '*', '', '')), NULL); .Internal(paste0(argv[[1]], argv[[2]]))
+[1] "coef.aov*" "extractAIC.aov*" "model.tables.aov*"
+[4] "print.aov*" "proj.aov*" "se.contrast.aov*"
+[7] "summary.aov" "TukeyHSD.aov"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpaste0.testpaste06
+#argv <- list(list(character(0), character(0)), '\n'); .Internal(paste0(argv[[1]], argv[[2]]))
+[1] ""
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpaste0.testpaste07
+#argv <- list(list(), NULL); .Internal(paste0(argv[[1]], argv[[2]]))
+character(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpathexpand.testpathexpand1
+#argv <- list('/tmp/RtmptPgrXI/Pkgs/pkgA'); .Internal(path.expand(argv[[1]]))
+[1] "/tmp/RtmptPgrXI/Pkgs/pkgA"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpathexpand.testpathexpand2
+#argv <- list(c('/home/lzhao/hg/r-instrumented/tests/compiler.Rcheck', '/home/lzhao/R/x86_64-unknown-linux-gnu-library/3.0')); .Internal(path.expand(argv[[1]]))
+[1] "/home/lzhao/hg/r-instrumented/tests/compiler.Rcheck"
+[2] "/home/lzhao/R/x86_64-unknown-linux-gnu-library/3.0"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpathexpand.testpathexpand3
+#argv <- list(character(0)); .Internal(path.expand(argv[[1]]))
+character(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpmatch.testpmatch1
+#argv <- list('kendall', c('pearson', 'kendall', 'spearman'), 0L, TRUE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpmatch.testpmatch2
+#argv <- list('month', c('secs', 'mins', 'hours', 'days', 'weeks', 'months', 'years', 'DSTdays'), NA_integer_, FALSE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 6
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpmatch.testpmatch3
+#argv <- list(c(NA_character_, NA_character_, NA_character_, NA_character_), 'NA', NA_integer_, TRUE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 1 1 1 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpmatch.testpmatch4
+#argv <- list('maximum', 'euclidian', NA_integer_, FALSE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpmatch.testpmatch5
+#argv <- list('fanny.object.', 'fanny.object', 0L, FALSE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpmatch.testpmatch6
+#argv <- list(c('alpha', 'col', 'border', 'lty', 'lwd'), c('col', 'border', 'alpha', 'size', 'height', 'angle', 'density'), NA_integer_, TRUE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 3 1 2 NA NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpmatch.testpmatch7
+#argv <- list('unique.', 'unique.array', 0L, FALSE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinpmatch.testpmatch8
+#argv <- list(character(0), c('labels', 'col', 'alpha', 'adj', 'cex', 'lineheight', 'font'), NA_integer_, TRUE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+integer(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinprod.testprod1
+#argv <- list(9L);prod(argv[[1]]);
+[1] 9
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinprod.testprod3
+#argv <- list(c(4, 2.5, 1.3, -1.20673076923077));prod(argv[[1]]);
+[1] -15.6875
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinprod.testprod4
+#argv <- list(structure(c(4L, 4L, 2L), .Names = c('Hair', 'Eye', 'Sex')));prod(argv[[1]]);
+[1] 32
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinprod.testprod6
+#argv <- list(structure(c(2, 0, 1, 2), .Dim = c(2L, 2L), .Dimnames = list(c('A', 'B'), c('A', 'B'))));prod(argv[[1]]);
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinprod.testprod7
+#argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L), .Dimnames = list(c('A', 'B'), c('A', 'B'))));prod(argv[[1]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinqsort.testqsort1
+#argv <- list(3L, FALSE); .Internal(qsort(argv[[1]], argv[[2]]))
+[1] 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinqsort.testqsort10
+#argv <- list(c(1, 13, 26, 38, 51, 14, 39), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))
+[1] 1 13 14 26 38 39 51
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinqsort.testqsort11
+#argv <- list(c(-Inf, -Inf, -Inf, -Inf, -Inf, 0, 1, 2, 3, 4, Inf, Inf, Inf, Inf), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))
+ [1] -Inf -Inf -Inf -Inf -Inf 0 1 2 3 4 Inf Inf Inf Inf
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinqsort.testqsort13
+#argv <- list(c(63, 187, 64, 188), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))
+[1] 63 64 187 188
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinqsort.testqsort2
+#argv <- list(c(306, 455, 1010, 210, 883, 1022, 218, 166, 170, 567, 144, 613, 707, 88, 301, 624, 371, 394, 574, 118, 390, 12, 26, 533, 53, 814, 93, 460, 583, 303, 519, 643, 189, 246, 689, 65, 132, 223, 175, 163, 428, 230, 840, 11, 176, 791, 95, 196, 806, 284, 147, 655, 239, 30, 179, 310, 477, 364, 107, 177, 156, 429, 15, 181, 283, 13, 212, 524, 288, 363, 442, 54, 558, 207, 92, 60, 202, 353, 267, 387, 457, 337, 404, 222, 458, 31, 229, 444, 329, 291, 292, 142, 413, 320, 285, 197, 180, 300, 259, 110, 286, 270, 81, 131, 225, 269, 279, 135, 59, 105, 237, 221, 185, 183, 116, 188, 191, 174), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))
+ [1] 11 12 13 15 26 30 31 53 54 59 60 65 81 88 92
+ [16] 93 95 105 107 110 116 118 131 132 135 142 144 147 156 163
+ [31] 166 170 174 175 176 177 179 180 181 183 185 188 189 191 196
+ [46] 197 202 207 210 212 218 221 222 223 225 229 230 237 239 246
+ [61] 259 267 269 270 279 283 284 285 286 288 291 292 300 301 303
+ [76] 306 310 320 329 337 353 363 364 371 387 390 394 404 413 428
+ [91] 429 442 444 455 457 458 460 477 519 524 533 558 567 574 583
+[106] 613 624 643 655 689 707 791 806 814 840 883 1010 1022
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinqsort.testqsort3
+#argv <- list(numeric(0), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))
+numeric(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinqsort.testqsort6
+#argv <- list(c(1, 2, 4, 6, 8, 3, 5, 7), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))
+[1] 1 2 3 4 5 6 7 8
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinqsort.testqsort7
+#argv <- list(c(1, 173, 346, 518, 691, 174, 519), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))
+[1] 1 173 174 346 518 519 691
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinqsort.testqsort8
+#argv <- list(c(1, 42, 83, 124, 166, 43, 84, 125), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))
+[1] 1 42 43 83 84 124 125 166
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinqsort.testqsort9
+#argv <- list(c(-Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 1, 2, 3, 4, 5, Inf, Inf, Inf, Inf, Inf), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))
+ [1] -Inf -Inf -Inf -Inf -Inf -Inf 0 1 2 3 4 5 Inf Inf Inf
+[16] Inf Inf
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinrowMeans.testrowMeans1
+#argv <- list(structure(c(3, 3, NA, 3, 3, 3, 3, 3, 4, 3, NA, NA, 2, 3, 4, 5), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))), 8, 2, TRUE); .Internal(rowMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 3.5 3.0 NaN 3.0 2.5 3.0 3.5 4.0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinrowMeans.testrowMeans3
+#argv <- list(structure(c(2, 2, NA, 2, 2, 2, 2, 2, -5, -5, NA, NA, -5, -5, -5, -5), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))), 8, 2, TRUE); .Internal(rowMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] -1.5 -1.5 NaN 2.0 -1.5 -1.5 -1.5 -1.5
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinrowSums.testrowSums1
+#argv <- list(structure(c(1L, 0L, 0L, 0L, 2L, 0L, 0L, 0L, 3L), .Dim = c(3L, 3L)), 3, 3, FALSE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 1 2 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinrowSums.testrowSums2
+#argv <- list(structure(c(0.999999999999996, -5.93240323105314e-31, -1.22690013807617e-30, -2.66771163434776e-30, 6.26446113912225e-17, -5.95448228496283e-17, -3.41105197331973e-17, 2.9023639112071e-17, -1.98544126594555e-18, 5.0222594521389e-17, -2.11849144310153e-17, 1.78452635853509e-17, -6.4482597529713e-30, -5.93240323105314e-31, 1, -2.70177878542148e-31, 4.10223078154481e-30, -7.29760565072095e-17, 4.21528303119361e-16, 1.69346505683726e-16, -8.46179388945247e-17, -2.12579366024309e-17, -1.08608258515243e-16, -1.91006916081825e-17, -1.09544412010741e-16, 1.52841800386571e-30, -1.22690013807617e-30, -2.70177878542148e-31, 1, 5.63751592936848e-30, 4.44597451723816e-17, -1.70262938021701e-16, -4.55196812407612e-17, 1.77744051006272e-17, -5.96596846288922e-17, 9.58999363873063e-17, -5.74900426053008e-17, 1.14815157965335e-16, -3.6669706141133e-30, -2.66771163434776e-30, 4.10223078154481e-30, 5.63751592936848e-30, 1, -5.9187048613625e-18, -1.70068399080916e-16, -6.90189597604163e-18, -6.36439216662415e-19, -4.18657854049523e-19, 3.0354538418548e-17, -7.42749951284567e-18, -8.90495022022045e-18, 1.55306990715387e-30, 6.26446113912225e-17, -7.29760565072095e-17, 4.44597451723816e-17, -5.9187048613625e-18, 0.55411820856073, -0.00247216583270833, -0.0121967562426746, -0.0136834443420207, 0.00612437416936414, -0.00919613834986896, -0.017907465564047, 0.0210800496836485, 0, -5.95448228496283e-17, 4.21528303119361e-16, -1.70262938021701e-16, -1.70068399080916e-16, -0.00247216583270833, 0.0915588872840349, 0.00402469784261988, 0.0225004116141538, 0.00428277377776577, 0.0217395090957974, 0.00506691575079725, -0.155787004553276, -1.57863385792422e-15, -3.41105197331973e-17, 1.69346505683726e-16, -4.55196812407612e-17, -6.90189597604163e-18, -0.0121967562426746, 0.00402469784261988, 0.00831687169973403, 0.00905869237132552, 0.00121203034126938, 0.00939616211925082, 0.00270063068023987, -0.0350427136160765, 1.66845523703974e-15, 2.9023639112071e-17, -8.46179388945247e-17, 1.77744051006272e-17, -6.36439216662415e-19, -0.0136834443420207, 0.0225004116141538, 0.00905869237132552, 0.0237646346509256, 0.0107094040391417, 0.0632843775518589, 0.0165995956409034, -0.317638195769953, 3.75582594532732e-16, -1.98544126594555e-18, -2.12579366024309e-17, -5.96596846288922e-17, -4.18657854049523e-19, 0.00612437416936414, 0.00428277377776577, 0.00121203034126938, 0.0107094040391417, 0.000250414165674235, 0.0118733901248423, 0.0032448838873885, -0.0719898325072222, -4.32029144045995e-15, 5.0222594521389e-17, -1.08608258515243e-16, 9.58999363873063e-17, 3.0354538418548e-17, -0.00919613834986896, 0.0217395090957974, 0.00939616211925082, 0.0632843775518589, 0.0118733901248423, 0.0578950164197554, 0.0182925914744869, -0.367565522079614, -1.23944977824402e-15, -2.11849144310153e-17, -1.91006916081825e-17, -5.74900426053008e-17, -7.42749951284567e-18, -0.017907465564047, 0.00506691575079725, 0.00270063068023987, 0.0165995956409034, 0.0032448838873885, 0.0182925914744869, 0.00349919192597366, -0.0788502030216034, 0, 1.78452635853509e-17, -1.09544412010741e-16, 1.14815157965335e-16, -8.90495022022045e-18, 0.0210800496836485, -0.155787004553276, -0.0350427136160765, -0.317638195769953, -0.0719898325072222, -0.367565522079614, -0.0788502030216034, 2.49598569418347, -8.69223914290117e-16, -6.4482597529713e-30, 1.52841800386571e-30, -3.6669706141133e-30, 1.55306990715387e-30, 0, -1.57863385792422e-15, 1.66845523703974e-15, 3.75582594532732e-16, -4.32029144045995e-15, -1.23944977824402e-15, 0, -8.69223914290117e-16, 1), .Dim = c(13L, 13L), .Dimnames = list(c('(Intercept)', 'fac2', 'fac3', 'fac4', '', '', '', '', '', '', '', '', ''), NULL)), 13, 13, FALSE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] 1.000000000 1.000000000 1.000000000 1.000000000 0.525866662
+ [6] -0.009085975 -0.012530385 -0.185404524 -0.034292562 -0.194280614
+[11] -0.047353859 1.490192272 1.000000000
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinrowSums.testrowSums3
+#argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(16L, 16L), .Dimnames = list(NULL, NULL)), 16, 16, TRUE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] 3 2 1 1 3 2 1 1 0 0 0 0 0 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinrowSums.testrowSums4
+#argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(16L, 16L), .Dimnames = list(NULL, NULL)), 16, 16, FALSE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] NA 1 0 0 NA 2 1 1 0 0 0 0 0 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinrowSums.testrowSums5
+#argv <- list(structure(numeric(0), .Dim = c(0L, 3L), .Dimnames = list(NULL, c('wt.loss', 'age', 'I(age)'))), 0, 3, FALSE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+numeric(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinrowSums.testrowSums6
+#argv <- list(structure(c(1L, 0L, 1L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 1L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), .Dim = c(61L, 4L), .Dimnames = list(c('190', '191', '192', '193', '194', '195', '196', '197', '198', '199', '200', '201', '202', '203', '204', '205', '206', '207', '208', '209', '210', '211', '212', '213', '214', '215', '216', '217', '218', '219', '220', '221', '222', '223', '224', '225', '226', '227', '228', '229', '230', '231', '232', '233', '234', '235', '236', '237', '238', '239', '240', '241', '242', '243', '244', '245', '246', '247', '248', '249', '250'), NULL)), 61, 4, FALSE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+[39] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinrowSums.testrowSums7
+#argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(16L, 16L), .Dimnames = list(NULL, NULL)), 16, 16, TRUE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] 1 1 0 0 2 2 1 1 0 0 0 0 0 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsample.testsample1
+#argv <- list(0L, 0L, FALSE, NULL); .Internal(sample(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+integer(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsample.testsample2
+#argv <- list(1L, 1L, FALSE, NULL); .Internal(sample(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsample.testsample3
+#argv <- list(2L, 499, TRUE, c(0, 0.525)); .Internal(sample(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
+ [38] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
+ [75] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
+[112] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
+[149] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
+[186] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
+[223] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
+[260] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
+[297] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
+[334] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
+[371] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
+[408] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
+[445] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
+[482] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsep.testsep1
+#argv <- list(1, 1);`/`(argv[[1]],argv[[2]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsep.testsep12
+#argv <- list(1, c(6.25, 36, 36, 56.25, 64, 64, 256, 36, 25, 36, 784, 25, 90.25, 36, 20.25, 100, 196, 9, 20.25, 30.25, 9, 12.25, 36, 4, 9, 16, 36, 25, 42.25, 25, 100, 36, 324, 20.25, 400));`/`(argv[[1]],argv[[2]]);
+ [1] 0.160000000 0.027777778 0.027777778 0.017777778 0.015625000 0.015625000
+ [7] 0.003906250 0.027777778 0.040000000 0.027777778 0.001275510 0.040000000
+[13] 0.011080332 0.027777778 0.049382716 0.010000000 0.005102041 0.111111111
+[19] 0.049382716 0.033057851 0.111111111 0.081632653 0.027777778 0.250000000
+[25] 0.111111111 0.062500000 0.027777778 0.040000000 0.023668639 0.040000000
+[31] 0.010000000 0.027777778 0.003086420 0.049382716 0.002500000
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsep.testsep19
+#argv <- list(0.5, c(576.899196412178, 48.2726847449981, 4.88037826224117, 1.31852084431627, 1.02614578306738));`/`(argv[[1]],argv[[2]]);
+[1] 0.0008667025 0.0103578246 0.1024510751 0.3792128142 0.4872602005
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsep.testsep27
+#argv <- list(998.602763134667, 78L);`/`(argv[[1]],argv[[2]]);
+[1] 12.8026
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsep.testsep7
+#argv <- list(1e+05, 3);`/`(argv[[1]],argv[[2]]);
+[1] 33333.33
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq1
+#argv <- list(c('y', 'A', 'U', 'V'));seq_along(argv[[1]]);
+[1] 1 2 3 4
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq10
+#argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, -45, -44, -43, -42, -41, -40, -39, -38, -37, -36, -35, -34, -33, -32, -31, -30, -29, -28, -27, NA, -25, -24, -23, -22, -21, -20, -19, -18, -17, -16, -15, -14, -13, -12, -11, -10, -9, -8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, NA, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52), .Dim = c(98L, 2L), .Dimnames = list(NULL, c('intercept', 'trend'))));seq_along(argv[[1]]);
+ [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
+ [19] 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
+ [37] 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
+ [55] 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
+ [73] 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90
+ [91] 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108
+[109] 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126
+[127] 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144
+[145] 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162
+[163] 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180
+[181] 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq11
+#argv <- list(list(structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, 104, 118, 115, 126, 141, 135, 125, 149, 170, 170, 158, 133, 114, 140, 145, 150, 178, 163, 172, 178, 199, 199, 184, 162, 146, 166, 171, 180, 193, 181, 183, 218, 230, 242, 209, 191, 172, 194, 196, 196, 236, 235, 229, 243, 264, 272, 237, 211, 180, 201, 204, 188, 235, 227, 234, 264, 302, 293, 259, 229, 203, 229, 242, 233, 267, 269, 270, 315, 364, 347, 312, 274, 237, 278, 284, 277, 317, 313, 318, 374, 413, 405, 355, 306, 271, 306, 315, 301, 356, 348, 355, 422, 465, 467, 404, 347, 305, 336, 340, 318, 362, 348, 363, 435, 491, 505, 404, 359, 310, 337, 360, 342, 406, 396, 420, 472, 548, 559, 463, 407, 362, 405, 417, 391, 419, 461, 472, 535, 622, 606, 508, 461, 390, 432), .Tsp = c(1949, 1960.91666666667, 12), class = 'ts'), structure(c(419.147602949539, 391.474665943444, 435.919286153217, 443.935203034261, 455.023399013445, 517.28707821144, 589.71337277669, 582.999919227301, 484.573388713116, 428.878182738437, 368.526582998452, 406.728709993152, 415.660571294428, 388.716535970235, 433.006017658935, 440.885684396326, 451.651900136866, 513.051252429496, 584.327164324967, 577.055407135124, 479.076505013118, 423.494870357491, 363.43932958967, 400.592058645117), .Tsp = c(1961, 1962.91666666667, 12), class = 'ts'), structure(c(484.030717075782, 462.954959541421, 526.353307750503, 546.165638262644, 569.502470928676, 657.838443307596, 761.241730163307, 763.280655335144, 642.989004951864, 576.423799567567, 501.429012064338, 559.981301364233, 591.700754553767, 565.210772316967, 642.377841008703, 666.682421047093, 695.547100430962, 804.065022775202, 931.340589597203, 934.837830059897, 788.422986194072, 707.666678543854, 616.37838266375, 689.250456425465), .Tsp = c(1961, 1962.91666666667, 12), class = 'ts')));seq_along(argv[[1]]);
+[1] 1 2 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq12
+#argv <- list(c(0.923879532511287+0.38268343236509i, 0.707106781186548+0.707106781186547i, 0.38268343236509+0.923879532511287i, 0+1i, -0.38268343236509+0.923879532511287i, -0.707106781186547+0.707106781186548i, -0.923879532511287+0.38268343236509i, -1+0i, -0.923879532511287-0.38268343236509i, -0.707106781186548-0.707106781186547i, -0.38268343236509-0.923879532511287i, 0-1i, 0.38268343236509-0.923879532511287i, 0.707106781186547-0.707106781186548i, 0.923879532511287-0.38268343236509i, 1-0i));seq_along(argv[[1]]);
+ [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq14
+#argv <- list(structure(list(g = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L), .Label = c('1', '2', '3', '4'), class = 'factor')), .Names = 'g'));seq_along(argv[[1]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq15
+#argv <- list(structure(list(20), row.names = c(NA, -1L)));seq_along(argv[[1]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq17
+#argv <- list(structure(list(Topic = c('myTst-package', 'foo-class', 'myTst', 'show,foo-method', 'show,foo-method', 'show-methods'), File = c('myTst-package', 'foo-class', 'myTst-package', 'foo-class', 'show-methods', 'show-methods')), .Names = c('Topic', 'File'), row.names = c(3L, 1L, 4L, 2L, 6L, 5L)));seq_along(argv[[1]]);
+[1] 1 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq18
+#argv <- list(structure(list(structure(' A Simple Plot and Legend Demo ', Rd_tag = 'TEXT')), Rd_tag = 'Rd', class = 'Rd'));seq_along(argv[[1]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq19
+#argv <- list(structure(list(Topic = character(0), File = character(0), Title = character(0), Internal = character(0)), .Names = c('Topic', 'File', 'Title', 'Internal'), row.names = integer(0), class = 'data.frame'));seq_along(argv[[1]]);
+[1] 1 2 3 4
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq2
+#argv <- list(structure(c(1, 2, 3, 0, 10, NA), .Dim = c(3L, 2L)));seq_along(argv[[1]]);
+[1] 1 2 3 4 5 6
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq20
+#argv <- list(structure(c(2.21843970753346, 1.80732678656753, -1.09399175987006, 0.585986462327552, -5.68458926982395, 1.23352238598674, 0.457950438444482, 2.51599006679516, -2.28780372840319, 5.53596062467695, 2.17890565095959, -1.59611751350773, -2.9672978602151, 0.745175851232308, 1.93388282434376, -3.03559459078455, 2.19500990255906, 0.0725275773318347, -0.75336064096447, -1.15505962102859, -2.84782886882524, -1.41070341448251, -0.540252474026749, 4.87719739781058, 0.890715639552621, -0.968642103099399, 1.73177156113283, -0.993218102309356, -0.656454198323984, -1.5299506933835, -0.298424468882268, 6.51011264717937, 2.68326774833378, 1.99295445531679, -0.214079422583434, 6.73505308264589, -4.54579214489424, -2.3991834444486, -1.71479569181251, -6.47293095421849, -1.67116930820449, -11.5853328029437, -2.48588878138021, -0.888857646918452, 8.06807102468956, -0.216046323028316, 6.24682938323398, -1.74761908105831, 2.53082303181417, 2.31410662801887, 2.97453294161523, -2.88723068649699, -1.04144266580674, -0.835536300630093, -6.10229135345437, -4.37605802846523, -1.94289029309402e-16, 5.96619037131792, -1.1474434665393, 3.78819830631063, -3.01580771910632, -0.656454198323984, 1.50824785799851, -2.06401783962239, -3.02346226775125, 0.407243897855763, -3.96478352340807, -2.12718621336067, -0.78924288871239, -3.03559459078455, 0.457950438444496, -0.797900839851943, -3.38233849466459, 1.97815029009903, 0.745175851232309, -1.09645503136389, 0.341748714147263, 7.32472922782987, -1.33672649241008, 1.51931399477032, 0.00590129163826772, -4.09533092706814, 0.195481697042187, -2.7736762657602, -3.48737543915568, 0.536312040203338, 0.775871729180551, 4.37979177946206, 1.30271070089245, 4.2132287611068, 7.33457656622414, 3.28311350719274, -1.30271070089245), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93')));seq_along(argv[[1]]);
+ [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
+[26] 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
+[51] 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75
+[76] 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq21
+#argv <- list(structure(list(surname = structure(integer(0), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(integer(0), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(integer(0), .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = integer(0), class = 'data.frame'));seq_along(argv[[1]]);
+[1] 1 2 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq22
+#argv <- list(structure(list(A = 0:10, B = 10:20, `NA` = 20:30), .Names = c('A', 'B', NA), row.names = c(NA, -11L), class = 'data.frame'));seq_along(argv[[1]]);
+[1] 1 2 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq23
+#argv <- list(c(TRUE, TRUE, TRUE));seq_along(argv[[1]]);
+[1] 1 2 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq24
+#argv <- list(structure(c(3, 8), .Dim = 2L, .Dimnames = structure(list(g = c('1', '2')), .Names = 'g'), call = quote(by.data.frame(data = X, INDICES = g, FUN = colMeans)), class = 'by'));seq_along(argv[[1]]);
+[1] 1 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq25
+#argv <- list(structure(list(.Data = 'numeric'), .Names = '.Data'));seq_along(argv[[1]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq7
+#argv <- list(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));seq_along(argv[[1]]);
+ [1] 1 2 3 4 5 6 7 8 9 10 11
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq8
+#argv <- list(structure(list(levels = c('1', '2', NA), class = 'factor'), .Names = c('levels', 'class')));seq_along(argv[[1]]);
+[1] 1 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseq.testseq9
+#argv <- list(list(c(1+1i, 2+1.4142135623731i, 3+1.73205080756888i, 4+2i, 5+2.23606797749979i, 6+2.44948974278318i, 7+2.64575131106459i, 8+2.82842712474619i, 9+3i, 10+3.1622776601684i)));seq_along(argv[[1]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseqint.testseqint10
+#argv <- list(from = 0, to = structure(-1, .Names = 'c0'));seq.int(argv[[1]],argv[[2]]);
+[1] 0 -1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseqint.testseqint13
+#argv <- list(102L, 112L, 1L);seq.int(argv[[1]],argv[[2]],argv[[3]]);
+ [1] 102 103 104 105 106 107 108 109 110 111 112
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseqint.testseqint19
+#argv <- list(0, length.out = 3L);seq.int(argv[[1]],argv[[2]]);
+[1] 0 1 2 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinseqint.testseqint22
+#argv <- list(4, 4L);seq.int(argv[[1]],argv[[2]]);
+[1] 4
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsetseed.testsetseed5
+#argv <- list(1000, 1L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsetseed.testsetseed6
+#argv <- list(0, NULL, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsetseed.testsetseed8
+#argv <- list(NULL, NULL, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames1
+#argv <- list(structure(list(c(8.44399377410362, 28.4640218366572, 12.2441566485997)), row.names = c(NA, -3L), class = 'data.frame'), 1L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+[1] -3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames11
+#argv <- list(structure(list(age = c(40, 60, 80)), .Names = 'age', row.names = c(NA, -3L), class = 'data.frame'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+[1] NA -3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames12
+#argv <- list(structure(list(surname = structure(integer(0), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(integer(0), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(integer(0), .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = integer(0), class = 'data.frame'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames13
+#argv <- list(structure(list(age = 1:65), .Names = 'age'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+NULL
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames14
+#argv <- list(structure(list(variog = c(0.000474498531874882, 0.00702969158809408, 0.00702969158809408, 0.00398874346479977, 0.000383788683835002, 1.20172224431796e-06, 1.20172224431796e-06, 0.122905372955376, 0.378939119261529, 0.00604112083775904, 0.0365586576304611, 2.52242766079251e-05, 0.100345142776916, 0.00940165099100291, 0.149441544291522, 0.0295722090612792), dist = c(36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36)), .Names = c('variog', 'dist'), row.names = c('2.16', '3.16', '4.16', '1.16', '8.16', '5.16', '6.16', '7.16', '11.16', '9.16', '10.16', '12.16', '13.16', '15.16', '14.16', '16.16'), class = c('Variogram', 'data.frame')), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+[1] 16
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames15
+#argv <- list(structure(list(age = c(-1, -0.959071428571429, -0.918142857142857, -0.877214285714286, -0.836285714285714, -0.795357142857143, -0.754428571428571, -0.7135, -0.672571428571429, -0.631642857142857, -0.590714285714286, -0.549785714285714, -0.508857142857143, -0.467928571428571, -0.427, -0.386071428571429, -0.345142857142857, -0.304214285714286, -0.263285714285714, -0.222357142857143, -0.181428571428571, -0.1405, -0.0995714285714285, -0.0586428571428571, -0.0177142857142856, 0.0232142857142859, 0.0641428571428573, 0.105071428571429, 0.146, 0.186928571428572, 0.227857142857143, 0.268785714285714, 0.309714285714286, 0.350642857142857, 0.391571428571429, 0.4325, 0.473428571428572, 0.514357142857143, 0.555285714285714, 0.596214285714286, 0.637142857142857, 0.678071428571429, 0.719, 0.759928571428572, 0.800857142857143, 0.841785714285714, 0.882714285714286, 0.923642857142857, 0.964571428571429, 1.0055), Subject = structure(c(25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L), .Label = c('10', '26', '25', '9', '2', '6', '7', '17', '16', '15', '8', '20', '1', '18', '5', '23', '11', '21', '3', '24', '22', '12', '13', '14', '19', '4'), class = 'factor')), .Names = c('age', 'Subject'), out.attrs = structure(list(dim = structure(c(50L, 26L), .Names = c('age', 'Subject')), dimnames = structure(list( age = c('age=-1.00000000', 'age=-0.95907143', 'age=-0.91814286', 'age=-0.87721429', 'age=-0.83628571', 'age=-0.79535714', 'age=-0.75442857', 'age=-0.71350000', 'age=-0.67257143', 'age=-0.63164286', 'age=-0.59071429', 'age=-0.54978571', 'age=-0.50885714', 'age=-0.46792857', 'age=-0.42700000', 'age=-0.38607143', 'age=-0.34514286', 'age=-0.30421429', 'age=-0.26328571', 'age=-0.22235714', 'age=-0.18142857', 'age=-0.14050000', 'age=-0.09957143', 'age=-0.05864286', 'age=-0.01771429', 'age= 0.02321429', 'age= 0.06414286', 'age= 0.10507143', 'age= 0.14600000', 'age= 0.18692857', 'age= 0.22785714', 'age= 0.26878571', 'age= 0.30971429', 'age= 0.35064286', 'age= 0.39157143', 'age= 0.43250000', 'age= 0.47342857', 'age= 0.51435714', 'age= 0.55528571', 'age= 0.59621429', 'age= 0.63714286', 'age= 0.67807143', 'age= 0.71900000', 'age= 0.75992857', 'age= 0.80085714', 'age= 0.84178571', 'age= 0.88271429', 'age= 0.92364286', 'age= 0.96457143', 'age= 1.00550000'), Subject = c('Subject=10', 'Subject=26', 'Subject=25', 'Subject=9', 'Subject=2', 'Subject=6', 'Subject=7', 'Subject=17', 'Subject=16', 'Subject=15', 'Subject=8', 'Subject=20', 'Subject=1', 'Subject=18', 'Subject=5', 'Subject=23', 'Subject=11', 'Subject=21', 'Subject=3', 'Subject=24', 'Subject=22', 'Subject=12', 'Subject=13', 'Subject=14', 'Subject=19', 'Subject=4')), .Names = c('age', 'Subject'))), .Names = c('dim', 'dimnames')), row.names = 1201:1250, class = 'data.frame'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+[1] 50
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames16
+#argv <- list(structure(list(variog = structure(c('0.007239522', '0.014584634', '0.014207936', '0.018442267', '0.011128505', '0.019910082', '0.027072311', '0.034140379', '0.028320657', '0.037525507'), class = 'AsIs'), dist = structure(c(' 1', ' 6', ' 7', ' 8', '13', '14', '15', '20', '21', '22'), class = 'AsIs'), n.pairs = structure(c(' 16', ' 16', '144', ' 16', ' 16', '128', ' 16', ' 16', '112', ' 16'), .Dim = 10L, .Dimnames = structure(list(c('1', '6', '7', '8', '13', '14', '15', '20', '21', '22')), .Names = ''))), .Names = c('variog', 'dist', 'n.pairs'), row.names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'), class = 'data.frame'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+[1] 10
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames17
+#argv <- list(structure(list(GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962, Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551)), .Names = c('GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year', 'Employed'), row.names = 1947:1962, class = 'data.frame'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+ [1] 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959 1960 1961
+[16] 1962
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames18
+#argv <- list(structure(list(surname = structure(c('McNeil', 'Ripley', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'AsIs'), nationality = structure(c('Australia', 'UK', 'UK', 'US', 'US', 'Australia'), class = 'AsIs'), deceased = structure(c('no', 'no', 'no', 'no', 'yes', 'no'), class = 'AsIs'), title = structure(c('Interactive Data Analysis', 'Spatial Statistics', 'Stochastic Simulation', 'LISP-STAT', 'Exploratory Data Analysis', 'Modern Applied Statistics ...'), class = 'AsIs'), other.author = structure(c(NA, NA, NA, NA, NA, 'Ripley'), class = 'AsIs')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = c('1', '2', '3', '4', '5', '6'), class = 'data.frame'), 1L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+[1] 6
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames19
+#argv <- list(structure(list(`cbind(X, M)` = structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('X', 'M'))), M.user = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L), .Label = c('N', 'Y'), class = 'factor', contrasts = 'contr.treatment'), Temp = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c('High', 'Low'), class = 'factor', contrasts = 'contr.treatment')), .Names = c('cbind(X, M)', 'M.user', 'Temp'), terms = quote(cbind(X, M) ~ M.user + Temp + M.user:Temp), row.names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+[1] 12
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames2
+#argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c('y', 'x', 'z'), terms = quote(y ~ x * z - 1), row.names = c(NA, 10L), class = 'data.frame'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+[1] 10
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames20
+#argv <- list(structure(list(height = numeric(0), weight = numeric(0)), .Names = c('height', 'weight'), row.names = integer(0), class = 'data.frame'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+integer(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames21
+#argv <- list(structure(list(A = c(1, NA, 1), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA_integer_, NA_integer_, NA_integer_), E = c(FALSE, NA, TRUE), F = c('abc', NA, 'def')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+[1] 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames22
+#argv <- list(structure(list(Hair = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('Black', 'Brown', 'Red', 'Blond'), class = 'factor'), Eye = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L), .Label = c('Brown', 'Blue', 'Hazel', 'Green'), class = 'factor'), Sex = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Male', 'Female'), class = 'factor')), .Names = c('Hair', 'Eye', 'Sex'), out.attrs = structure(list(dim = structure(c(4L, 4L, 2L), .Names = c('Hair', 'Eye', 'Sex')), dimnames = structure(list(Hair = c('Hair=Black', 'Hair=Brown', 'Hair=Red', 'Hair=Blond'), Eye = c('Eye=Brown', 'Eye=Blue', 'Eye=Hazel', 'Eye=Green'), Sex = c('Sex=Male', 'Sex=Female')), .Names = c('Hair', 'Eye', 'Sex'))), .Names = c('dim', 'dimnames')), class = 'data.frame', row.names = c(NA, -32L)), 1L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+[1] -32
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames23
+#argv <- list(structure(list(Df = c(NA, 1, 2), Deviance = c(12.2441566485997, 8.44399377410362, 11.9670615295804), AIC = c(73.9421143635373, 72.1419514890412, 77.665019244518)), .Names = c('Df', 'Deviance', 'AIC'), row.names = c('<none>', 'Temp', 'Soft'), class = c('anova', 'data.frame'), heading = c('Single term additions', '\nModel:', 'cbind(X, M) ~ M.user')), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+[1] 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames3
+#argv <- list(structure(list(weight = c(4.17, 5.58), group = structure(c(1L, 1L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = c('weight', 'group'), row.names = 1:2, class = 'data.frame'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+[1] 1 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames6
+#argv <- list(structure(list(c(101, 32741, 2147483621, 1.70141183460469e+38, 8.98846567431158e+307)), row.names = c(NA, -5L), class = 'data.frame'), 1L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+[1] -5
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames7
+#argv <- list(structure(list(srcfile = '/home/lzhao/hg/r-instrumented/library/stats/R/stats', frow = 5139L, lrow = 5139L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames8
+#argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = 'ts'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c('y', 'lag.quarterly.revenue', 'price.index', 'income.level', 'market.potential'), row.names = c('1962.25', '1962.5', '1962.75', '1963', '1963.25', '1963.5', '1963.75', '1964', '1964.25', '1964.5', '1964.75', '1965', '1965.25', '1965.5', '1965.75', '1966', '1966.25', '1966.5', '1966.75', '1967', '1967.25', '1967.5', '1967.75', '1968', '1968.25', '1968.5', '1968.75', '1969', '1969.25', '1969.5', '1969.75', '1970', '1970.25', '1970.5', '1970.75', '1971', '1971.25', '1971.5', '1971.75'), class = 'data.frame'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+[1] 39
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinshortRowNames.testshortRowNames9
+#argv <- list(structure(list(Topic = character(0), File = character(0), Title = character(0), Internal = character(0)), .Names = c('Topic', 'File', 'Title', 'Internal'), row.names = integer(0), class = 'data.frame'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))
+integer(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsin.testsin2
+#argv <- list(c(0.0156298141969641, 0.0312596283939283, 0.0468894425908924, 0.0625192567878566, 0.0781490709848207, 0.0937788851817849, 0.109408699378749, 0.125038513575713, 0.140668327772677, 0.156298141969641, 0.171927956166606, 0.18755777036357, 0.203187584560534, 0.218817398757498, 0.234447212954462, 0.250077027151426, 0.26570684134839, 0.281336655545355, 0.296966469742319, 0.312596283939283, 0.328226098136247, 0.343855912333211, 0.359485726530175, 0.375115540727139, 0.390745354924104, 0.406375169121068, 0.422004983318032, 0.437634797514996, 0.45326461171196, 0.468894425908924, 0.484524240105888, 0.500154054302853, 0.515783868499817, 0.531413682696781, 0.547043496893745, 0.562673311090709, 0.578303125287673, 0.593932939484637, 0.609562753681602, 0.625192567878566, 0.64082238207553, 0.656452196272494, 0.672082010469458, 0.687711824666422, 0.703341638863387, 0.718971453060351, 0.734601267257315, 0.750231081454279, 0.765860895651243, 0.781490709848207, 0.797120524045171, 0.812750338242136, 0.8283801524391, 0.844009966636064, 0.859639780833028, 0.875269595029992, 0.890899409226956, 0.90652922342392, 0.922159037620885, 0.937788851817849, 0.953418666014813, 0.969048480211777, 0.984678294408741, 1.00030810860571, 1.01593792280267, 1.03156773699963, 1.0471975511966, 1.06282736539356, 1.07845717959053, 1.09408699378749, 1.10971680798445, 1.12534662218142, 1.14097643637838, 1.15660625057535, 1.17223606477231, 1.18786587896927, 1.20349569316624, 1.2191255073632, 1.23475532156017, 1.25038513575713, 1.2660149499541, 1.28164476415106, 1.29727457834802, 1.31290439254499, 1.32853420674195, 1.34416402093892, 1.35979383513588, 1.37542364933284, 1.39105346352981, 1.40668327772677, 1.42231309192374, 1.4379429061207, 1.45357272031767, 1.46920253451463, 1.48483234871159, 1.50046216290856, 1.51609197710552, 1.53172179130249, 1.54735160549945, 1.56298141969641));sin(argv[[1]]);
+ [1] 0.01562918 0.03125454 0.04687226 0.06247854 0.07806955 0.09364149
+ [7] 0.10919055 0.12471295 0.14020487 0.15566255 0.17108220 0.18646005
+ [13] 0.20179236 0.21707537 0.23230536 0.24747859 0.26259137 0.27764000
+ [19] 0.29262081 0.30753013 0.32236433 0.33711978 0.35179288 0.36638004
+ [25] 0.38087769 0.39528231 0.40959036 0.42379835 0.43790282 0.45190031
+ [31] 0.46578741 0.47956073 0.49321689 0.50675257 0.52016446 0.53344927
+ [37] 0.54660378 0.55962475 0.57250902 0.58525343 0.59785487 0.61031026
+ [43] 0.62261656 0.63477077 0.64676991 0.65861106 0.67029131 0.68180782
+ [49] 0.69315778 0.70433840 0.71534697 0.72618079 0.73683721 0.74731363
+ [55] 0.75760749 0.76771628 0.77763753 0.78736881 0.79690775 0.80625202
+ [61] 0.81539933 0.82434745 0.83309419 0.84163742 0.84997504 0.85810504
+ [67] 0.86602540 0.87373421 0.88122958 0.88850968 0.89557273 0.90241700
+ [73] 0.90904082 0.91544257 0.92162070 0.92757369 0.93330008 0.93879848
+ [79] 0.94406755 0.94910599 0.95391258 0.95848614 0.96282556 0.96692977
+ [85] 0.97079778 0.97442863 0.97782144 0.98097539 0.98388970 0.98656365
+ [91] 0.98899660 0.99118796 0.99313718 0.99484379 0.99630737 0.99752757
+ [97] 0.99850409 0.99923669 0.99972519 0.99996946
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsin.testsin3
+#argv <- list(c(0.560475646552213, 0.23017748948328, -1.55870831414912, -0.070508391424576, -0.129287735160946, -1.71506498688328, -0.460916205989202, 1.26506123460653, 0.686852851893526, 0.445661970099958, -1.22408179743946, -0.359813827057364, -0.400771450594052, -0.11068271594512, 0.555841134754075, -1.78691313680308, -0.497850478229239, 1.96661715662964, -0.701355901563686, 0.472791407727934, 1.06782370598685, 0.217974914658295, 1.02600444830724, 0.72889122929114, 0.625039267849257, 1.68669331074241, -0.837787044494525, -0.153373117836515, 1.13813693701195, -1.25381492106993, -0.426464221476814, 0.295071482992271, -0.895125661045022, -0.878133487533042, -0.821581081637487, -0.688640254100091, -0.553917653537589, 0.0619117105767217, 0.305962663739917, 0.380471001012383, 0.694706978920513, 0.207917278019599, 1.26539635156826, -2.16895596533851, -1.20796199830499, 1.12310858320335, 0.402884835299076, 0.466655353623219, -0.779965118336318, 0.0833690664718293, -0.253318513994755, 0.028546755348703, 0.0428704572913161, -1.36860228401446, 0.225770985659268, -1.51647060442954, 1.54875280423022, -0.584613749636069, -0.123854243844614, -0.215941568743973, -0.379639482759882, 0.502323453109302, 0.33320738366942, 1.01857538310709, 1.07179122647558, -0.303528641404258, -0.448209778629426, -0.0530042267305041, -0.922267467879738, -2.05008468562714, 0.491031166056535, 2.30916887564081, -1.00573852446226, 0.709200762582393, 0.688008616467358, -1.0255713696967, 0.284773007051009, 1.22071771225454, -0.18130347974915, 0.138891362439045, -0.00576418589988693, -0.38528040112633, 0.370660031792409, -0.644376548518833, 0.220486561818751, -0.331781963915697, -1.09683901314935, -0.435181490833803, 0.325931585531227, -1.14880761845109, -0.993503855962119, -0.54839695950807, -0.238731735111441, 0.627906076039371, -1.36065244853001, 0.600259587147127, -2.18733299301658, -1.53261062618519, 0.235700359100477));sin(argv[[1]]);
+ [1] 0.531589132 0.228150335 -0.999926941 -0.070449985 -0.128927855
+ [6] -0.989611314 -0.444768889 0.953625952 0.634106808 0.431055287
+[11] -0.940494222 -0.352099989 -0.390128779 -0.110456865 0.527657995
+[16] -0.976737516 -0.477538050 0.922680391 -0.645254145 0.455373248
+[21] 0.876153536 0.216252901 0.855235166 0.666042998 0.585129117
+[26] 0.993291459 -0.743164232 -0.152772517 0.907853915 -0.950180641
+[31] -0.413654302 0.290808244 -0.780287678 -0.769548286 -0.732223563
+[36] -0.635487895 -0.526023105 0.061872166 0.301211270 0.371357830
+[41] 0.640160356 0.206422483 0.953726766 -0.826373363 -0.934894605
+[46] 0.901450446 0.392073827 0.449901777 -0.703254621 0.083272525
+[51] -0.250617941 0.028542878 0.042857327 -0.979628330 0.223857848
+[56] -0.998524721 0.999757051 -0.551877320 -0.123537835 -0.214267224
+[61] -0.370585646 0.481463265 0.327075677 0.851361562 0.878059108
+[66] -0.298889400 -0.433352838 -0.052979411 -0.796973251 -0.887323319
+[71] 0.471535469 0.739564951 -0.844557651 0.651227452 0.635000074
+[76] -0.855010647 0.280939608 0.939345753 -0.180311841 0.138445238
+[81] -0.005764154 -0.375818997 0.362230719 -0.600700122 0.218704432
+[86] -0.325728326 -0.889769099 -0.421574983 0.320191465 -0.912276219
+[91] -0.837943373 -0.521319927 -0.236470522 0.587451519 -0.978000912
+[96] 0.564856701 -0.815885890 -0.999271015 0.233524038
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsqrt.testsqrt1
+#argv <- list(12.8025995273675);sqrt(argv[[1]]);
+[1] 3.578072
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsqrt.testsqrt2
+#argv <- list(numeric(0));sqrt(argv[[1]]);
+numeric(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsqrt.testsqrt4
+#argv <- list(1e+07);sqrt(argv[[1]]);
+[1] 3162.278
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsqrt.testsqrt5
+#argv <- list(1);sqrt(argv[[1]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinstoragemodeassign.teststoragemodeassign2
+#argv <- list(3.14159265358979, value = 'complex');`storage.mode<-`(argv[[1]],argv[[2]]);
+[1] 3.141593+0i
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinstrsplit.teststrsplit1
+#argv <- list('exNSS4', '_', TRUE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))
+[[1]]
+[1] "exNSS4"
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinstrsplit.teststrsplit12
+#argv <- list('Keywords: utilities ', '\n[ \t\n]*\n', FALSE, TRUE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))
+[[1]]
+[1] "Keywords: utilities "
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinstrsplit.teststrsplit13
+#argv <- list('x', '', FALSE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))
+[[1]]
+[1] "x"
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinstrsplit.teststrsplit2
+#argv <- list(structure('x, row.names = NULL, ', Rd_tag = 'RCODE'), '', FALSE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))
+[[1]]
+ [1] "x" "," " " "r" "o" "w" "." "n" "a" "m" "e" "s" " " "=" " " "N" "U" "L" "L"
+[20] "," " "
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinstrsplit.teststrsplit4
+#argv <- list('Keywords: device ', '[ \t\n]', FALSE, TRUE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))
+[[1]]
+[1] "Keywords:" "" "device"
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinstrsplit.teststrsplit9
+#argv <- list('M.user:Temp', ':', FALSE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))
+[[1]]
+[1] "M.user" "Temp"
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsub.testsub1
+#argv <- list('^..dfd.', '', c('aa', '..dfd.row.names'), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+[1] "aa" "row.names"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsub.testsub11
+#argv <- list(' +$', '', c(NA, '1', NA, '2', '1', NA, NA, '1', '4', '1', NA, '4', '1', '3', NA, '4', '2', '2', NA, '4', '4', '2', '4', '4', '2', '1', '4', '4', '3', '1', '1', '4', '1', '4', NA, '1', '4', '4', '2', '2', '4', '4', '3', '4', '2', '2', '3', '3', '4', '1', '1', '1', '4', '1', '4', '4', '4', '4', NA, '4', '4', '4', NA, '1', '2', '3', '4', '3', '4', '2', '4', '4', '1', '4', '1', '4', NA, '4', '2', '1', '4', '1', '1', '1', '4', '4', '2', '4', '1', '1', '1', '4', '1', '1', '1', '4', '3', '1', '4', '3', '2', '4', '3', '1', '4', '2', '4', NA, '4', '4', '4', '2', '1', '4', '4', NA, '2', '4', '4', '1', '1', '1', '1', '4', '1', '2', '3', '2', '1', '4', '4', '4', '1', NA, '4', '2', '2', '2', '4', '4', '3', '3', '4', '2', '4', '3', '1', '1', '4', '2', '4', '3', '1', '4', '3', '4', '4', '1', '1', '4', '4', '3', '1', '1', '2', '1', '3', '4', '2', '2', '2', '4', '4', '3', '2', '1', '1', '4', '1', '1', '2', NA, '2', '3', '3', '2', '1', '1', '1', '1', '4', '4', '4', '4', '4', '4', '2', '2', '1', '4', '1', '4', '3', '4', '2', '3', '1', '3', '1', '4', '1', '4', '1', '4', '3', '3', '4', '4', '1', NA, '3', '4', '4', '4', '4', '4', '4', '3', '4', '3', '4', '2', '4', '4', '1', '2', NA, '4', '4', '4', '4', '1', '2', '1', '1', '2', '1', '4', '2', '3', '1', '4', '4', '4', '1', '2', '1', '4', '2', '1', '3', '1', '2', '2', '1', '2', '1', NA, '3', '2', '2', '4', '1', '4', '4', '2', '4', '4', '4', '2', '1', '4', '2', '4', '4', '4', '4', '4', '1', '3', '4', '3', '4', '1', NA, '4', NA, '1', '1', '1', '4', '4', '4', '4', '2', '4', '3', '2', NA, '1', '4', '4', '3', '4', '4', '4', '2', '4', '2', '1', '4', '4', NA, '4', '4', '3', '3', '4', '2', '2', '4', '1', '4', '4', '4', '3', '4', '4', '4', '3', '2', '1', '3', '1', '4', '1', '4', '2', NA, '1', '4', '4', '3', '1', '4', '1', '4', '1', '4', '4', '1', '2', '2', '1', '4', '1', '1', '4', NA, '4', NA, '4', '4', '4', '1', '4', '2', '1', '2', '2', '2', '2', '1', '1', '2', '1', '4', '2', '3', '3', '1', '3', '1', '4', '1', '3', '2', '2', '4', '1', NA, '3', '4', '2', '4', '4', '4', '4', '4', '4', '3', '4', '4', '3', '2', '1', '4', '4', '2', '4', '2', '1', '2', '1', '1', '1', '1', '4', '4', '1', '1', '4', '1', '4', '4', '4', '1', '1', NA, '3', '2', '4', '4', '4', '4', '2', '3', '3', '2', NA, '4', '2', '4', '4', '1', '1', '4', '4', '1', '1', '4', '1', '2', '2', '2', '2', '1', '4', '4', '1', '2', '2', '2', '3', '4', '4', '3', '4', '1', '1', '4', '4', NA, '4', '1', '4', '4', '4', '1', '4', '4', '1', '2', '4', '4', '4', '4', '1', '2', '4', '4', '2', '1', '4', '2', '4', '2', '2', '4', '1', '3', '3', '2', '4', '1', '4', '4', '4', '1', NA, '4', '4', '2', '4', '4', '4', '4', '4', '2', NA, '4', '2', '4', '3', '1', '4', '4', '3', '4', '2', '4', '4', '1', '2', '1', '4', '1', '3', '3', '1', '4', '4', '2', '4', '4', '4', '4', '3', '2', '3', '3', '2', NA, '3', '4', '4', '3', '3', '4', '4', '4', '1', '4', '4', '4', '4', '4', '4', '4', '2', '4', '2', '3', '4', '1', '3', '1', NA, '4', '1', '2', '2', '1', '4', '3', '3', '4', '1', '1', '3'), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+ [1] NA "1" NA "2" "1" NA NA "1" "4" "1" NA "4" "1" "3" NA "4" "2" "2"
+ [19] NA "4" "4" "2" "4" "4" "2" "1" "4" "4" "3" "1" "1" "4" "1" "4" NA "1"
+ [37] "4" "4" "2" "2" "4" "4" "3" "4" "2" "2" "3" "3" "4" "1" "1" "1" "4" "1"
+ [55] "4" "4" "4" "4" NA "4" "4" "4" NA "1" "2" "3" "4" "3" "4" "2" "4" "4"
+ [73] "1" "4" "1" "4" NA "4" "2" "1" "4" "1" "1" "1" "4" "4" "2" "4" "1" "1"
+ [91] "1" "4" "1" "1" "1" "4" "3" "1" "4" "3" "2" "4" "3" "1" "4" "2" "4" NA
+[109] "4" "4" "4" "2" "1" "4" "4" NA "2" "4" "4" "1" "1" "1" "1" "4" "1" "2"
+[127] "3" "2" "1" "4" "4" "4" "1" NA "4" "2" "2" "2" "4" "4" "3" "3" "4" "2"
+[145] "4" "3" "1" "1" "4" "2" "4" "3" "1" "4" "3" "4" "4" "1" "1" "4" "4" "3"
+[163] "1" "1" "2" "1" "3" "4" "2" "2" "2" "4" "4" "3" "2" "1" "1" "4" "1" "1"
+[181] "2" NA "2" "3" "3" "2" "1" "1" "1" "1" "4" "4" "4" "4" "4" "4" "2" "2"
+[199] "1" "4" "1" "4" "3" "4" "2" "3" "1" "3" "1" "4" "1" "4" "1" "4" "3" "3"
+[217] "4" "4" "1" NA "3" "4" "4" "4" "4" "4" "4" "3" "4" "3" "4" "2" "4" "4"
+[235] "1" "2" NA "4" "4" "4" "4" "1" "2" "1" "1" "2" "1" "4" "2" "3" "1" "4"
+[253] "4" "4" "1" "2" "1" "4" "2" "1" "3" "1" "2" "2" "1" "2" "1" NA "3" "2"
+[271] "2" "4" "1" "4" "4" "2" "4" "4" "4" "2" "1" "4" "2" "4" "4" "4" "4" "4"
+[289] "1" "3" "4" "3" "4" "1" NA "4" NA "1" "1" "1" "4" "4" "4" "4" "2" "4"
+[307] "3" "2" NA "1" "4" "4" "3" "4" "4" "4" "2" "4" "2" "1" "4" "4" NA "4"
+[325] "4" "3" "3" "4" "2" "2" "4" "1" "4" "4" "4" "3" "4" "4" "4" "3" "2" "1"
+[343] "3" "1" "4" "1" "4" "2" NA "1" "4" "4" "3" "1" "4" "1" "4" "1" "4" "4"
+[361] "1" "2" "2" "1" "4" "1" "1" "4" NA "4" NA "4" "4" "4" "1" "4" "2" "1"
+[379] "2" "2" "2" "2" "1" "1" "2" "1" "4" "2" "3" "3" "1" "3" "1" "4" "1" "3"
+[397] "2" "2" "4" "1" NA "3" "4" "2" "4" "4" "4" "4" "4" "4" "3" "4" "4" "3"
+[415] "2" "1" "4" "4" "2" "4" "2" "1" "2" "1" "1" "1" "1" "4" "4" "1" "1" "4"
+[433] "1" "4" "4" "4" "1" "1" NA "3" "2" "4" "4" "4" "4" "2" "3" "3" "2" NA
+[451] "4" "2" "4" "4" "1" "1" "4" "4" "1" "1" "4" "1" "2" "2" "2" "2" "1" "4"
+[469] "4" "1" "2" "2" "2" "3" "4" "4" "3" "4" "1" "1" "4" "4" NA "4" "1" "4"
+[487] "4" "4" "1" "4" "4" "1" "2" "4" "4" "4" "4" "1" "2" "4" "4" "2" "1" "4"
+[505] "2" "4" "2" "2" "4" "1" "3" "3" "2" "4" "1" "4" "4" "4" "1" NA "4" "4"
+[523] "2" "4" "4" "4" "4" "4" "2" NA "4" "2" "4" "3" "1" "4" "4" "3" "4" "2"
+[541] "4" "4" "1" "2" "1" "4" "1" "3" "3" "1" "4" "4" "2" "4" "4" "4" "4" "3"
+[559] "2" "3" "3" "2" NA "3" "4" "4" "3" "3" "4" "4" "4" "1" "4" "4" "4" "4"
+[577] "4" "4" "4" "2" "4" "2" "3" "4" "1" "3" "1" NA "4" "1" "2" "2" "1" "4"
+[595] "3" "3" "4" "1" "1" "3"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsub.testsub16
+#argv <- list('^ +', '', c('1_', 'Weight', 'Cylinders4', 'Cylinders5', 'Cylinders6', 'Cylinders8', 'Cylindersrotary', 'TypeLarge', 'TypeMidsize', 'TypeSmall', 'TypeSporty', 'TypeVan', 'EngineSize', 'DriveTrainFront', 'DriveTrainRear'), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+ [1] "1_" "Weight" "Cylinders4" "Cylinders5"
+ [5] "Cylinders6" "Cylinders8" "Cylindersrotary" "TypeLarge"
+ [9] "TypeMidsize" "TypeSmall" "TypeSporty" "TypeVan"
+[13] "EngineSize" "DriveTrainFront" "DriveTrainRear"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsub.testsub19
+#argv <- list('([^:]*):(.*)', '\\2', character(0), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+character(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsub.testsub5
+#argv <- list('./', '', structure(c('./data', './html', './po/en@quot/LC_MESSAGES', './po/en@quot', './po/pl/LC_MESSAGES', './po/pl', './po/de/LC_MESSAGES', './po/de', './po', './doc/SuiteSparse', './doc', './Meta', './include', './R', './help', './libs', './external'), class = 'AsIs'), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))
+ [1] "data" "html" "po/en@quot/LC_MESSAGES"
+ [4] "po/en@quot" "po/pl/LC_MESSAGES" "po/pl"
+ [7] "po/de/LC_MESSAGES" "po/de" "po"
+[10] "doc/SuiteSparse" "doc" "Meta"
+[13] "include" "R" "help"
+[16] "libs" "external"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsubstr.testsubstr1
+#argv <- list('weight', 1L, 2L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))
+[1] "we"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsubstr.testsubstr2
+#argv <- list(c(' ', ' '), 1L, c(4L, -16L)); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))
+[1] " " ""
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsubstr.testsubstr4
+#argv <- list(character(0), 7L, 1000000L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))
+character(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsubstr.testsubstr6
+#argv <- list(character(0), 1L, 5L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))
+character(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsubstr.testsubstr7
+#argv <- list('', 1L, 2L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))
+[1] ""
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsubstrassign.testsubstrassign1
+#argv <- list('(0,5]', 1L, 1L, '['); .Internal(`substr<-`(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] "[0,5]"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum1
+#argv <- list(structure(313, .Names = ''));sum(argv[[1]]);
+[1] 313
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum10
+#argv <- list(structure(c(1.40573809911564e-05, 2.82275077233781e-31, 298891091593544, 127.398214346512, 1.96341150816547e-14, 0.100886417276321, 18137216711891664896, 75471627676.8224, 1.0423615801344e-05, 4184414.04436152, 0.00284364073413795, 0.124845661512668, 6.26689770279226e-09, 137507212543972912, 2.4515242751977e-06, 17279.5247449809, 9.31653241445582, 2.95260115615331e-07, 2.47540394744834e+33, 1.06282257391682e-08, 280.577969261283, 2.2306055461863e-12, 28194894.3770164, 3.27212932994522e+56, 2.35217223982607e-15, 1.93298541124412e-16, 3.82110080220967e-22, 0.020664532453814, 838.952367401989, 1.48989538272057, 58.0422958839475, 25315229.2305008, 1.14418993503202e-07, 0.141089233086962, 385551.97528297, 72589269069.5057, 3.63818589408037, 3.93055539198144e-15, 0.484224006687325, 0.00122384090262982, 509.681530848699, 1.09212481089264e-13, 4.20671904141446e-12, 1.41116557356417, 0.161225941178553, 0.369883152940699, 0.000211066453902523, 1536.88854142326, 1.21220206873588e-13, 18.2818077643159, 67.5636713643055, 33.0891402079429, 1.17150909115673e-23, 304202.728006006, 0.00353331875245541, 4.32607156718415e+28, 776642523346.066, 0.00115835488031795, 0.00496146869860724, 5.31574527522895e-12), .Dim = 60L, .Dimnames = list(c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))));sum(argv[[1]]);
+[1] 3.272129e+56
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum11
+#argv <- list(1:10, 1+1i);sum(argv[[1]],argv[[2]]);
+[1] 56+1i
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum12
+#argv <- list(structure(c(2.19172926547288, 0.330877282992322, 2.43947034322552, 1.27858232527863, 1.34995699383497, 2.31589710162493, -0.100056357529734, 2.12383938264747, 1.1838950457512, 2.61258053432978, -0.0427077741902965, 3.32267292229042, 2.72078100200188, 1.50121623996352, 0.286636947273328, 0.276805761557996, 1.58770673719377, 1.2835349906538, 2.21171702752298, 0.371840556806206, 0.185048028214896, 0.083459109156465, 0.189963621072562, 0.342346999660209, -0.144296693248728, 0.352178185375541, 0.217818647266003, 2.22181318666033, 0.121145321065238, 0.289914009178438, 0.257143390127332, -0.0394307122851858, 2.17200902055199, 0.229288363933891, 1.6805330236497, -0.20328380754072, 0.25058926631711, 1.33428464681067, -0.00502156228152353, NaN, 3.26336745706726, 1.9882766360458, 0.117868259160127, 2.69303413653791, 2.56113239793806, 0.265336044890108, 3.07945609430521, 0.221095709171114, 0.0408573043900261, 0.278444292510551, 1.33428464681067, 1.06801925109484, 0.209625992503226, 3.06212550875829, 0.116229728207572, 1.39280910631599, 2.53602717112413, 0.0457728972476921, 4.7651657207987, 0.194879213930228, 0.114591197255017, 3.26336745706726, 0.0883747020141311, 1.88846207251023, 0.119506790112683, 1.87250223559585, 2.35968057412311, 0.29974519489377, 0.29974519489377, 0.031026118674694, 1.47173382020508, 2.41624560055216, 0.167024187736788, 3.40508627615607, 3.34290799326704, 0.0113637472440299, 0.0588811448681349, 1.54990439966979, 1.35522847629799, 3.07945609430521, 0.224372771076225, 0.129337975828015, 2.99455268975735, 2.83681720000879, 0.0506884901053581, 0.334154344897433, 3.91642660780075, 1.17486192682541, 2.77775688906243, 0.194879213930228, 1.77308062628823, 0.298106663941215, 1.45438038819124, 0.193240682977673, 3.30267449277716, 1.38194860291798, 1.66007135758589, 5.1096442273052, 0.337431406802543, 0.363647902043429), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')));sum(argv[[1]]);
+[1] NaN
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum13
+#argv <- list(numeric(0));sum(argv[[1]]);
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum14
+#argv <- list(c(49, 61, NA, NA));sum(argv[[1]]);
+[1] NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum15
+#argv <- list(1073741824L, 1073741824L, 0);sum(argv[[1]],argv[[2]],argv[[3]]);
+[1] 2147483648
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum17
+#argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Tsp = c(1, 101, 1), class = 'ts'));sum(argv[[1]]);
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum19
+#argv <- list(structure(c(0.0946626763551857, 1.56832184548816e-06, 0.226697441774756, 0.00453708504256956, 0.258320521579932, 2.57680524978307, 0.467122524211721, 5.16534267196331, 0.694563006492192, 0.197723848046524, 0.000799319848162311, 0.000570944537286636, 0.0654689540726797, 0.000146788076901938, 0.00669686464041458, 0.00765355286634145, 0.0786604017778045, 1.25812820036403e-06, 0.167435582495234, 0.00356206279639504, 0.25547689715822, 2.72165076185825, 0.488128793070721, 3.66078502081211, 0.898984802200849, 0.190804322887854, 0.00080933803412378, 0.000578096808847448, 0.0782510283683936, 0.000156595864868186, 0.00698171105046541, 0.00797910506602018), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32')));sum(argv[[1]]);
+[1] 18.32736
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum2
+#argv <- list(structure(c(-3.02896519757699, -2.37177231827064, -2.49295252901048, -2.99672420295655, -2.59773735414265, -2.26026537208028, -2.74080517809177, -3.785668787425, -2.80120311135215, -2.57773983108655, -5.06092522358575, -2.25629807618983), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')));sum(argv[[1]]);
+[1] -34.97106
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum20
+#argv <- list(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));sum(argv[[1]]);
+[1] 93
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum21
+#argv <- list(structure(c(6L, 12L, 18L, 24L, 30L, 36L, 42L, 48L, 54L, 60L, 66L, 72L, 78L, 84L, 90L, 96L, 102L, 108L, 114L, 120L), .Dim = 4:5, .Dimnames = list(NULL, c('V5', 'V6', 'V7', 'V8', 'V9'))));sum(argv[[1]]);
+[1] 1260
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum3
+#argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), class = 'table', .Dim = 60L, .Dimnames = structure(list(r = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60')), .Names = 'r')));sum(argv[[1]]);
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum4
+#argv <- list(structure(c(-1.94895827232912e-306, 0, 9.36477567902783e-210, 3.61651164350633e-272, 0, -6.24957292845831e-288, 8.01866432306958e-186, 8.68951728615672e-228, -4.51587577314873e-307, 3.44824066264446e-249, -3.07734214990199e-295, -1.63737039109249e-287, -6.4228533959362e-323, 1.99299936577426e-196, -3.77967355768316e-310, 2.99503783387623e-261, 3.69173164797792e-278, -1.16866860094119e-314, 3.18619635538936e-115, -9.28843414181544e-322, 2.14105998923225e-270, 0, 5.16415548974996e-245, 6.63795852562496, 0, 0, 0, -3.94804275684608e-291, 5.96425287032638e-268, 7.18607375106076e-283, 6.05285733998884e-274, 3.00167530091305e-245, -1.10890415661145e-316, -2.83304044404219e-287, 2.03740072057053e-254, 7.14727745939762e-228, 1.98119254926182e-280, 0, -4.86004310565019e-285, -5.29597124993551e-297, 4.62156398366003e-269, 0, 0, 4.73760851736069e-283, -5.12888870803705e-287, -1.74386324923243e-285, -1.06055701952213e-300, 1.32316178368225e-266, 0, 1.3776952356639e-276, 1.33745692946041e-273, 3.1799923028917e-275, 0, 6.14747062861386e-255, -8.73416235737445e-295, 5.68676829309248e-139, 1.04052519425852e-222, -4.06077295726178e-297, -4.44772889827087e-294, 0), .Dim = 60L, .Dimnames = list(c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))));sum(argv[[1]]);
+[1] 6.637959
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum5
+#argv <- list(c(2.24999999999999, 0.809999999999997, 3.24, 2.89, 0.0899999999999994, 1.96, 6.25, 0.490000000000001, 9.00000000000001, 0.00999999999999993, 0.249999999999998, 4.41000000000001, 3.24, 3.60999999999999));sum(argv[[1]]);
+[1] 38.5
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum6
+#argv <- list(structure(c(42L, 1L, 0L, 16L, 84L, 0L, 3L, 0L, 0L), .Dim = c(3L, 3L), .Dimnames = structure(list(c('(0,2.5]', '(2.5,4]', NA), c('(2,5.5]', '(5.5,10]', NA)), .Names = c('', '')), class = 'table'));sum(argv[[1]]);
+[1] 146
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum7
+#argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(101L, 3L), .Dimnames = list(NULL, c('t1', '10 * t1', 't1 - 4')), .Tsp = c(1, 101, 1), class = c('mts', 'ts', 'matrix')));sum(argv[[1]]);
+[1] 7
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum8
+#argv <- list(structure(c(1, 0, 0, 0, 1, 0, 0, 0, 1), .Dim = c(3L, 3L)), extrarg = FALSE);sum(argv[[1]],argv[[2]]);
+[1] 3
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsum.testsum9
+#sum( );
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinsysparent.testsysparent1
+#argv <- list(2); .Internal(sys.parent(argv[[1]]))
+[1] 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltintan.testtan2
+#argv <- list(c(0.01, 0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.12, 0.13, 0.14, 0.15, 0.16, 0.17, 0.18, 0.19, 0.2, 0.21, 0.22, 0.23, 0.24, 0.25, 0.26, 0.27, 0.28, 0.29, 0.3, 0.31, 0.32, 0.33, 0.34, 0.35, 0.36, 0.37, 0.38, 0.39, 0.4, 0.41, 0.42, 0.43, 0.44, 0.45, 0.46, 0.47, 0.48, 0.49, 0.5, 0.51, 0.52, 0.53, 0.54, 0.55, 0.56, 0.57, 0.58, 0.59, 0.6, 0.61, 0.62, 0.63, 0.64, 0.65, 0.66, 0.67, 0.68, 0.69, 0.7, 0.71, 0.72, 0.73, 0.74, 0.75, 0.76, 0.77, 0.78, 0.79, 0.8, 0.81, 0.82, 0.83, 0.84, 0.85, 0.86, 0.87, 0.88, 0.89, 0.9, 0.91, 0.92, 0.93, 0.94, 0.95, 0.96, 0.97, 0.98, 0.99));tan(argv[[1]]);
+ [1] 0.01000033 0.02000267 0.03000900 0.04002135 0.05004171 0.06007210
+ [7] 0.07011456 0.08017110 0.09024379 0.10033467 0.11044582 0.12057934
+[13] 0.13073732 0.14092189 0.15113522 0.16137946 0.17165682 0.18196953
+[19] 0.19231984 0.20271004 0.21314244 0.22361942 0.23414336 0.24471670
+[25] 0.25534192 0.26602154 0.27675814 0.28755433 0.29841279 0.30933625
+[31] 0.32032751 0.33138941 0.34252487 0.35373688 0.36502849 0.37640285
+[37] 0.38786316 0.39941272 0.41105492 0.42279322 0.43463120 0.44657255
+[43] 0.45862102 0.47078053 0.48305507 0.49544877 0.50796590 0.52061084
+[49] 0.53338815 0.54630249 0.55935872 0.57256183 0.58591701 0.59942962
+[55] 0.61310521 0.62694954 0.64096855 0.65516845 0.66955565 0.68413681
+[61] 0.69891886 0.71390901 0.72911473 0.74454382 0.76020440 0.77610491
+[67] 0.79225417 0.80866138 0.82533611 0.84228838 0.85952867 0.87706790
+[73] 0.89491753 0.91308953 0.93159646 0.95045146 0.96966833 0.98926154
+[79] 1.00924629 1.02963856 1.05045514 1.07171372 1.09343292 1.11563235
+[85] 1.13833271 1.16155586 1.18532486 1.20966412 1.23459946 1.26015822
+[91] 1.28636938 1.31326370 1.34087383 1.36923448 1.39838259 1.42835749
+[97] 1.45920113 1.49095827 1.52367674
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinunclass.testunclass1
+#argv <- list(c(-1, -1));unclass(argv[[1]]);
+[1] -1 -1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinunclass.testunclass16
+#argv <- list(structure(list(structure(9L, members = 1L, height = 0, label = 9L, leaf = TRUE, value = 2L), structure(list(structure(10L, label = 10L, members = 1L, height = 0, leaf = TRUE, value = 1L), structure(1L, label = 1L, members = 1L, height = 0, leaf = TRUE, value = 10L)), members = 2L, midpoint = 0.5, height = 0.114813676452255, value = 5.5)), members = 3L, midpoint = 0.75, height = 0.241190881793568, value = 3.75));unclass(argv[[1]]);
+[[1]]
+[1] 9
+attr(,"members")
+[1] 1
+attr(,"height")
+[1] 0
+attr(,"label")
+[1] 9
+attr(,"leaf")
+[1] TRUE
+attr(,"value")
+[1] 2
+
+[[2]]
+[[2]][[1]]
+[1] 10
+attr(,"label")
+[1] 10
+attr(,"members")
+[1] 1
+attr(,"height")
+[1] 0
+attr(,"leaf")
+[1] TRUE
+attr(,"value")
+[1] 1
+
+[[2]][[2]]
+[1] 1
+attr(,"label")
+[1] 1
+attr(,"members")
+[1] 1
+attr(,"height")
+[1] 0
+attr(,"leaf")
+[1] TRUE
+attr(,"value")
+[1] 10
+
+attr(,"members")
+[1] 2
+attr(,"midpoint")
+[1] 0.5
+attr(,"height")
+[1] 0.1148137
+attr(,"value")
+[1] 5.5
+
+attr(,"members")
+[1] 3
+attr(,"midpoint")
+[1] 0.75
+attr(,"height")
+[1] 0.2411909
+attr(,"value")
+[1] 3.75
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinunclass.testunclass17
+#argv <- list(c(-1.6, -0.9));unclass(argv[[1]]);
+[1] -1.6 -0.9
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinunclass.testunclass22
+#argv <- list(c(10000, 20000, 30000, 40000, 50000, 60000, 70000, 80000, 90000, 1e+05, 110000, 120000, 130000, 140000, 150000, 160000, 170000, 180000, 190000, 2e+05, 210000, 220000, 230000, 240000, 250000, 260000, 270000, 280000, 290000, 3e+05, 310000, 320000, 330000, 340000, 350000, 360000, 370000, 380000, 390000, 4e+05, 410000, 420000, 430000, 440000, 450000, 460000, 470000, 480000, 490000, 5e+05, 510000, 520000, 530000, 540000, 550000, 560000, 570000, 580000, 590000, 6e+05, 610000, 620000, 630000, 640000, 650000, 660000, 670000, 680000, 690000, 7e+05, 710000, 720000, 730000, 740000, 750000, 760000, 770000, 780000, 790000, 8e+05, 810000, 820000, 830000, 840000, 850000, 860000, 870000, 880000, 890000, 9e+05, 910000, 920000, 930000, 940000, 950000, 960000, 970000, 980000, 990000, 1e+06));unclass(argv[[1]]);
+ [1] 10000 20000 30000 40000 50000 60000 70000 80000 90000
+ [10] 100000 110000 120000 130000 140000 150000 160000 170000 180000
+ [19] 190000 200000 210000 220000 230000 240000 250000 260000 270000
+ [28] 280000 290000 300000 310000 320000 330000 340000 350000 360000
+ [37] 370000 380000 390000 400000 410000 420000 430000 440000 450000
+ [46] 460000 470000 480000 490000 500000 510000 520000 530000 540000
+ [55] 550000 560000 570000 580000 590000 600000 610000 620000 630000
+ [64] 640000 650000 660000 670000 680000 690000 700000 710000 720000
+ [73] 730000 740000 750000 760000 770000 780000 790000 800000 810000
+ [82] 820000 830000 840000 850000 860000 870000 880000 890000 900000
+ [91] 910000 920000 930000 940000 950000 960000 970000 980000 990000
+[100] 1000000
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinunique.testunique1
+#argv <- list(character(0), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+character(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinunique.testunique17
+#argv <- list(c('2.21', '7.6', '18.19', '19.78', '20.23', '27.01', '28.06', '29.28', '32.79', '37.06', '39.72', '41.26', '41.76', '42.5', '42.82', '43.59', '45.29', '47.09', '47.12', '47.68', '48.52', '48.93', '49.26', '49.45', '49.58', '49.69', '51.01', '51.18', '52.24', '52.39', '55.06', '55.25', '55.76', '57.02', '57.21', '57.71', '58.33', '58.84', '59.63', '59.83', '61.54', '62.16', '62.26', '65.35', '72.03', '75.37', '78.22', NA), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+ [1] "2.21" "7.6" "18.19" "19.78" "20.23" "27.01" "28.06" "29.28" "32.79"
+[10] "37.06" "39.72" "41.26" "41.76" "42.5" "42.82" "43.59" "45.29" "47.09"
+[19] "47.12" "47.68" "48.52" "48.93" "49.26" "49.45" "49.58" "49.69" "51.01"
+[28] "51.18" "52.24" "52.39" "55.06" "55.25" "55.76" "57.02" "57.21" "57.71"
+[37] "58.33" "58.84" "59.63" "59.83" "61.54" "62.16" "62.26" "65.35" "72.03"
+[46] "75.37" "78.22" NA
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinunique.testunique6
+#argv <- list(c('colors', 'colours'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))
+[1] "colors" "colours"
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinvector.testvector1
+#argv <- list('integer', 0L); .Internal(vector(argv[[1]], argv[[2]]))
+integer(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinvector.testvector2
+#argv <- list('double', 17.1); .Internal(vector(argv[[1]], argv[[2]]))
+ [1] 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinvector.testvector3
+#argv <- list('list', 1L); .Internal(vector(argv[[1]], argv[[2]]))
+[[1]]
+NULL
+
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinvector.testvector4
+#argv <- list('logical', 15L); .Internal(vector(argv[[1]], argv[[2]]))
+ [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
+[13] FALSE FALSE FALSE
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinvector.testvector5
+#argv <- list('double', 2); .Internal(vector(argv[[1]], argv[[2]]))
+[1] 0 0
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinwhich.testwhich1
+#argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE)); .Internal(which(argv[[1]]))
+ [1] 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
+[26] 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67
+[51] 68 69 70
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinwhich.testwhich2
+#argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L), .Dimnames = list(c('A', 'B'), c('A', 'B')))); .Internal(which(argv[[1]]))
+[1] 1 2 3 4
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinwhich.testwhich3
+#argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE)); .Internal(which(argv[[1]]))
+integer(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinwhich.testwhich5
+#argv <- list(logical(0)); .Internal(which(argv[[1]]))
+integer(0)
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinwhich.testwhich6
+#argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L))); .Internal(which(argv[[1]]))
+[1] 1 2 3 4
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinwhich.testwhich7
+#argv <- list(c(FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE)); .Internal(which(argv[[1]]))
+[1] 2
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinwhich.testwhich8
+#argv <- list(structure(c(FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE), .Dim = 12L)); .Internal(which(argv[[1]]))
+[1] 3 6 9 12
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinwhichmax.testwhichmax1
+#argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = 4:5, .Dimnames = list(c('I(a)', 'b', 'c', 'a'), c('I(a)', 'b', 'c', 'b:c', 'a:x')))); .Internal(which.max(argv[[1]]))
+[1] 1
+
+##com.oracle.truffle.r.test.testrgen.TestrGenBuiltinwhichmax.testwhichmax3
+#argv <- list(c(7985.84636551931, 7366.07281363396, 7342.71367123673, 7315.48787041648, 7290.90503004105)); .Internal(which.max(argv[[1]]))
+[1] 1
+
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/all/AllTests.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/all/AllTests.java
index 4a18b9b9a718b8c57a27460833a4781246121dba..9918a25a2684d19f86b578eaf51deb68c46f224b 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/all/AllTests.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/all/AllTests.java
@@ -25643,5 +25643,18535 @@ public class AllTests extends TestBase {
assertEval("{ x<-5:1 ; x[x[2]<-2] }");
}
+ @Test
+ public void TestrGenBuiltinArg_testArg1_53fffbb7c52c1ba577a8291133bbfdf8() {
+ assertEval("argv <- list(1+2i);Arg(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinArg_testArg2_e284f15d362634951ccd75fb1038bb02() {
+ assertEval("argv <- list(c(1554.86976865791+337.57296578684i, 1953.0195914094+434.16395869265i, 2020.8001333202+267.40279521531i, 12019.4947666225+397.6223289386i, 40989.2104557418+1079.1450107273i, 59779.5384921205+1460.5074297272i, 40703.4141691824+1049.8100128697i, 12234.4562968499+469.0052365648i, 2311.58538965355+142.56529231224i, 2158.93441543181+94.80017111005i, 2768.79882180339+256.05759156168i, 3234.20673958634+282.64174433659i, 2796.76248579155+64.23534085425i, 2030.22757739534-164.56566766766i, 1522.09271008314-273.51503749101i, 1109.23177636373-215.24298332377i, 714.154122222449-75.284630456206i, 509.684427096512-24.577531288476i, 628.214718823948+42.431050163574i, 1053.2295477549+190.4802567974i, 1388.73708931304+133.04405268816i, 1213.97041311196-135.67196064028i, 790.469479873384-232.737914916798i, 503.424076694357-99.275737105817i, 430.214847703846+45.250156289826i, 640.795334515383+121.961327286573i, 794.927869993865+100.643091831764i, 554.394621183915-15.753680159958i, 286.476583987294-104.634488576316i, 232.82067569803-92.469328935268i, 229.472155078088-54.85406188579i, 253.438957119958-65.123390974834i, 285.141954428461-79.653095359009i, 257.168942241366-34.332533775171i, 214.215071612655+18.001149572355i, 199.882436088191+0i));Arg(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinArg_testArg3_62ab5a71bf6d7347d372dc295ef3ea2e() {
+ assertEval("argv <- list(c(-12.561836573133-726.935211685406i, -19.15961591777-1315.40822424617i, -666.84872452586-2013.90899841237i, -5775.9038598237-11495.8986046958i, -19052.0606820086-36788.5714510618i, -27954.209922899-52600.8398855356i, -19930.6456597181-35739.3494902644i, -7168.9170917163-10787.9325286278i, -2331.00733468417-1545.77448035635i, -1953.77845230855-212.90200115993i, -1953.60071030304+1420.43983282655i, -1700.4015174326+2765.31423009739i, -862.10275212019+2693.95914108523i, 163.24691179114+1837.1971341258i, 824.29498680332+1155.03126302727i, 939.495937605926+679.549172893055i, 686.101881005818+305.166761591578i, 460.339323160381-14.067413050801i, 533.688543397269-293.997358985575i, 773.041200043657-698.096300485637i, 716.84959340189-1127.39175172066i, 226.23728166311-1110.40349894929i, -203.687633095422-740.924670781257i, -271.865544904439-437.858153233594i, -316.769706633022-279.671035520361i, -624.842102639273-228.211019456587i, -806.31350008813-164.912647906911i, -506.559675826232+24.376187336594i, -142.784303570554+217.087547410547i, -44.704338624059+260.225831716256i, 10.565037460572+219.942519605707i, 143.643627814428+218.823069474359i, 232.58540850813+214.905815487636i, 223.286482103748+175.139821578561i, 185.008902762186+116.519845434485i, 171.150234739785-0i));Arg(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinArg_testArg4_8dbce6d8ad11f5abcb022249c52f3481() {
+ assertEval("argv <- list(logical(0));Arg(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinArg_testArg5_574cfd79b8ec434d34dc4153642208da() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));Arg(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinArg_testArg6_3e9e9b79224b0ce45e5adea9e0fe0b47() {
+ assertEval("argv <- list(FALSE);Arg(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinConj_testConj1_0e5548c50179ddefd1a7e46fa4ae32e0() {
+ assertEval("argv <- list(NA_complex_);Conj(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinConj_testConj2_0a6659c9b1a639ebb84ae75d70f6cbca() {
+ assertEval("argv <- list(c(-1.18540307978262+0i, 1.21560120163195-1.53371687180917i, 2.77616253887119+2.49241439707552i, -0.34590612779948+5.91601304866405i, -4.79620377219434-5.1021793804514i, -0.76948538129694-3.75787028288235i, 7.35246399396265+3.06008718716048i, 3.29255418488526-1.70891939683671i, -4.06380659430245+3.06999922353505i, -3.09223641978001-1.96417605896538i, -0.92141308753853+1.40901240924205i, -2.00249720671212-2.68610936520658i, -0.36243789137685+2.82396143864819i, 0.970540333825845-0.827296527575657i, -0.71012351273056-1.58808368514905i, 0.65264999887605-1.47950735242131i, 2.37634963276553+0.56734038764123i, 1.07643410940103-0.27130380644466i, -0.75915222215558-1.26274988364837i, 0.27719717365392+1.892240358725i, -0.486365810527362+0.32331047458147i, 0.458815916572034+0.775988009981045i, -1.62795265860628+1.25968253919881i, -0.31369767965175+2.67392540646143i, 1.35480053490252+0i, -0.31369767965175-2.67392540646143i, -1.62795265860628-1.25968253919881i, 0.458815916572035-0.775988009981044i, -0.486365810527364-0.323310474581469i, 0.27719717365392-1.892240358725i, -0.75915222215558+1.26274988364837i, 1.07643410940103+0.27130380644466i, 2.37634963276553-0.56734038764123i, 0.65264999887605+1.47950735242131i, -0.71012351273056+1.58808368514905i, 0.970540333825845+0.827296527575658i, -0.36243789137685-2.82396143864819i, -2.00249720671212+2.68610936520658i, -0.92141308753853-1.40901240924205i, -3.09223641978001+1.96417605896538i, -4.06380659430245-3.06999922353505i, 3.29255418488526+1.70891939683671i, 7.35246399396266-3.06008718716047i, -0.76948538129694+3.75787028288235i, -4.79620377219434+5.10217938045139i, -0.34590612779948-5.91601304866405i, 2.77616253887119-2.49241439707552i, 1.21560120163195+1.53371687180917i));Conj(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinConj_testConj3_3475858a17219d350c90b79dbb2f17da() {
+ assertEval("argv <- list(structure(c(0.087699990825051-0.22507396943778i, 0.543948655831334+0.33174688242063i, 0.162724647304311-0.15004931295852i, 0.433366361691124+0.22116458828042i, 0.237749303783571-0.07502465647926i, 0.322784067550914+0.11058229414021i, 0.312773960262831+0i, 0.212201773410704-0i, 0.387798616742091+0.07502465647926i, 0.101619479270494-0.11058229414021i, 0.462823273221351+0.15004931295852i, -0.008962814869716-0.22116458828042i, 0.537847929700611+0.22507396943778i, -0.119545109009926-0.33174688242063i), .Dim = c(2L, 7L)));Conj(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinConj_testConj4_9a3bc737541cebcaf3921b9495bbbe3d() {
+ assertEval("argv <- list(c(1+0i, 0.985449458355365-0.138495889434283i, 0.942642872008266-0.270298493966801i, 0.874055380411015-0.389154527907249i, 0.783616834775482-0.489658143691394i, 0.676434265976222-0.567595743096322i, 0.558433187362516-0.620202886580765i, 0.435944803381395-0.646314749919218i, 0.315270204563124-0.646399711551264i, 0.202254248593737-0.622474571220695i, 0.101900933636988-0.577908912337521i, 0.018058735786294-0.517134531945579i, -0.046801131817278-0.445283024979697i, -0.091697846014566-0.367779972441526i, -0.117138246792619-0.289927334668645i, -0.125-0.21650635094611i, -0.118311211562746-0.151431445234362i, -0.1009450259937-0.097481478474725i, -0.0772542485937368-0.0561284970724482i, -0.0516755705617768-0.027476388254185i, -0.0283351996132097-0.0103131692411995i, -0.0106874359562526-0.0022716846399295i, -1.21500794451954e-03-8.496163204619e-05i, -1.21500794451956e-03+8.49616320463e-05i, -0.0106874359562525+0.0022716846399297i, -0.0283351996132096+0.0103131692411996i, -0.0516755705617767+0.0274763882541851i, -0.0772542485937367+0.0561284970724481i, -0.1009450259937+0.097481478474725i, -0.118311211562746+0.151431445234362i, -0.125+0.21650635094611i, -0.117138246792619+0.289927334668644i, -0.091697846014566+0.367779972441526i, -0.046801131817278+0.445283024979697i, 0.018058735786294+0.517134531945579i, 0.101900933636988+0.577908912337521i, 0.202254248593737+0.622474571220695i, 0.315270204563124+0.646399711551264i, 0.435944803381395+0.646314749919218i, 0.558433187362516+0.620202886580765i, 0.676434265976221+0.567595743096322i, 0.783616834775482+0.489658143691394i, 0.874055380411015+0.389154527907249i, 0.942642872008266+0.270298493966801i, 0.985449458355365+0.138495889434283i));Conj(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinConj_testConj5_2cc5e68e85d29c1e311ea6502b53f7e4() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));Conj(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinConj_testConj6_d9a4ab8140d0d1b613eeee859a91a41c() {
+ assertEval("argv <- list(FALSE);Conj(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt1_e9d67dbb4cf514bd8b9c18cbb53d29e8() {
+ assertEval("argv <- list(structure(c(14712, 14712), class = 'Date')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt2_9c0e3f153c5ad4d97a73eaa87acfb627() {
+ assertEval("argv <- list(structure(c(11323, NA, NA, 12717), class = 'Date')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt3_fba12ed33293983225e078b7d44deba6() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L), class = 'Date')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt4_bd639259bea77fad892d6d0e1b0a673b() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE), class = 'Date')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt5_ceb868684ad3d7c1310ffae6d5c30066() {
+ assertEval("argv <- list(NULL); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt6_b11d7825ea46ea0b0e7cacbd478097bd() {
+ assertEval("argv <- list(character(0)); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt7_1259bfd5708bd7f10a45556efcdc34f9() {
+ assertEval("argv <- list(structure(11323.9154302836, class = 'Date')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt8_9bc49dc939b9ace7d99616800b8d1cc0() {
+ assertEval("argv <- list(structure(c(-21915, -21550, -21185, -20819, -20454, -20089, -19724, -19358, -18993, -18628, -18263, -17897, -17532, -17167, -16802, -16436, -16071, -15706, -15341, -14975, -14610, -14245, -13880, -13514, -13149, -12784, -12419, -12053, -11688, -11323, -10958, -10592, -10227, -9862, -9497, -9131, -8766, -8401, -8036, -7670, -7305, -6940, -6575, -6209, -5844, -5479, -5114, -4748, -4383, -4018, -3653, -3287, -2922, -2557, -2192, -1826, -1461, -1096, -731, -365, 0, 365, 730, 1096, 1461, 1826, 2191, 2557, 2922, 3287, 3652, 4018, 4383, 4748, 5113, 5479, 5844, 6209, 6574, 6940, 7305, 7670, 8035, 8401, 8766, 9131, 9496, 9862, 10227, 10592), class = 'Date')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt9_bf3dde227e3258e44e9b499785adf609() {
+ assertEval("argv <- list(structure(c(11354, 11382, 11413), class = 'Date')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinEncoding_testEncoding1_4467cf1f6dabf42a77c4a7a6cf7d7bc7() {
+ assertEval("argv <- list('Byte Code Compiler'); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinEncoding_testEncoding2_b202a92e0f6a25d911a92148be580405() {
+ assertEval("argv <- list(c('\n', '\n', '## These cannot be run by examples() but should be OK when pasted\n', '## into an interactive R session with the tcltk package loaded\n', '\n', 'tt <- tktoplevel()\n', 'tkpack(txt.w <- tktext(tt))\n', 'tkinsert(txt.w, \'0.0\', \'plot(1:10)\')\n', '\n', '# callback function\n', 'eval.txt <- function()\n', ' eval(parse(text = tclvalue(tkget(txt.w, \'0.0\', \'end\'))))\n', 'tkpack(but.w <- tkbutton(tt, text = \'Submit\', command = eval.txt))\n', '\n', '## Try pressing the button, edit the text and when finished:\n', '\n', 'tkdestroy(tt)\n', '\n', '\n')); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinEncoding_testEncoding3_5992647ba797230372a412e39cfdd0e8() {
+ assertEval("argv <- list('detaching ‘package:nlme’, ‘package:splines’'); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinEncoding_testEncoding4_e733dc96477d1f79666b1666b3c4fd4e() {
+ assertEval("argv <- list(structure(character(0), class = 'check_code_usage_in_package')); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinEncoding_testEncoding5_90f446f75e96e650fee7029603e82cf5() {
+ assertEval("argv <- list(structure('Type 'demo(PKG::FOO)' to run demonstration 'PKG::FOO'.', .Names = 'demo')); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinEncoding_testEncoding6_e5dcd42337a57d66d553abd63d50b757() {
+ assertEval("argv <- list('A shell of class documentation has been written to the file './myTst2/man/DocLink-class.Rd'.\n'); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinEncoding_testEncoding7_2c0eb43860392c9283fd6cf2df630bdf() {
+ assertEval("argv <- list(c('* Edit the help file skeletons in 'man', possibly combining help files for multiple functions.', '* Edit the exports in 'NAMESPACE', and add necessary imports.', '* Put any C/C++/Fortran code in 'src'.', '* If you have compiled code, add a useDynLib() directive to 'NAMESPACE'.', '* Run R CMD build to build the package tarball.', '* Run R CMD check to check the package tarball.', '', 'Read \'Writing R Extensions\' for more information.')); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinIm_testIm1_5dcbe9036ad8f0dbc0aac39f00ee94a2() {
+ assertEval("argv <- list(c(0.117646597100126-0.573973479297987i, -0.740437474899139-0.482946826369552i, -0.333166449062945-0.753763230370951i, -0.256092192198247+0.707588353835588i, 0.522033838837248+0.102958580568997i, -0.651949901695459+0.059749937384601i, 0.235386572284857-0.70459646368007i, 0.077960849563711-0.71721816157401i, -0.563222209454641-0.518013590538404i, -0.068796124369349+0.97981641556181i, 0.244428915757284-0.330850507052219i, 0.451504053079215-0.090319593965852i, 0.04123292199294+0.214538826629216i, -0.422496832339625-0.738527704739573i, -0.451685375030484+0.126357395265016i, 0.375304016677864+0.436900190874168i, -0.674059300339186+0.084416799015191i, 0.739947510877334+0.418982404924464i, 0.509114684244823-0.086484623694157i, -0.535642839219739+0.289927561259502i, 0.629727249341749+0.707648659913726i, -0.262197489402468-0.502198718342861i, -0.333800277698424-0.317646103980588i, -0.422186107911717+0.317002735170286i, -0.616692335171505+0.068946145379939i, -0.136100485502624-0.487679764177213i, -0.68086000613138+0.047032323152903i, 0.296209908189768+0.585533462557103i, 0.43280012844045+0.136998748692477i, -0.680205941942733-0.256569497284745i, 0.787738847475178-0.375602871669773i, 0.76904224100091-0.561876363549783i, 0.332202578950118-0.343917234128459i, -0.983769553611346-0.088288289740869i, -0.046488672133508-0.622109071207677i, -0.280395335170247-0.088565112138884i, 0.379095891586975-0.727769566649926i, -0.372438756103829+0.630754115650567i, 0.976973386685621-0.113639895506141i, -0.150428076228347+0.615598727377677i, 0.762964492726935+0.377685645913312i, -0.7825325866026+0.365371705974346i, -0.792443423040311-0.029652870362208i, 0.265771060547393-0.106618612674382i, -0.076741350022367-0.422144111460857i, 0.120061986786934-0.623033085890884i, 0.636569674033849-0.133150964328944i, -0.145741981978782+0.529165019069452i, 0.516862044313609-0.388779864071743i, 0.368964527385086+0.089207223073295i, -0.215380507641693+0.845013004067436i, 0.065293033525315+0.962527968484271i, -0.034067253738464+0.684309429416465i, 0.328611964770906+0.215416587846774i, -0.583053183540166-0.668235480667835i, -0.782507286391418+0.318827979750013i, 0.037788399171079+0.174802700161256i, 0.310480749443137+0.074551177173735i, 0.436523478910183+0.428166764970505i, -0.458365332711106+0.02467498282614i, -0.271871452223431+0.426340387811162i, 0.590808184713385-0.344468770084509i, -0.349650387953555+0.386026568349676i, -0.865512862653374-0.265651625278222i, -0.236279568941097+0.118144511046681i, -0.197175894348552+0.134038645368463i, 0.866602113481861-0.172567291859327i, 0.031389337713892-0.607820631329035i, 0.754053785184521-0.219050378933476i, -0.499292017172261+0.168065383884658i, 0.151969488085021-0.827990593142535i, -0.266853748421854-0.866413193943766i, 0.071623062591495-0.867246686843546i, -0.788765741891382+0.508717463380604i, -0.228835546857432-0.349587041980114i, 0.500139791176978-0.016703152458872i, 0.15619107374708-0.485402548890295i, -0.369039310626083+0.398423724273751i, -0.611165916680421+0.020983586354237i, -0.399467692630093-0.421179989556223i, 0.411274074028001+0.133781691724871i, 0.573364366690245+0.328833257005489i, -0.265145056696353-0.938538703606894i, 0.387209171815106+0.750271083217101i, -0.41433994791886-0.437159533180399i, -0.476246894615578+0.331179172958982i, -0.168543113030619+0.43048451175239i, -0.594617267459511+0.211980433372292i, 0.388005062566602-0.290649953587954i, -0.013004326537709-0.490434895455784i, 0.069845221019376-0.762134635168809i, 0.243687429599092+0.756774763795962i, 0.27384734040072+0.383667165938905i, -0.51606383094478-0.601506708006782i, -0.894951082455532+0.317442909372288i, 0.5073401683933-0.213001485168032i, -0.441163216905286-0.105671334003774i, -0.343169835663372+0.597359384628839i, -0.283179001991236-0.385834501657171i, -0.517794900198098-0.36732932802092i));Im(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinIm_testIm2_166a0fbf32802990f21c015412732aeb() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));Im(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinIm_testIm3_d27ce0f974803d2f8fd0655b08226bc7() {
+ assertEval("argv <- list(FALSE);Im(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinIm_testIm4_47291608eaebbbf6c91122907828a4ae() {
+ assertEval("argv <- list(c(0+0i, 0.01-0i, 0.02-0i, 0.03-0i, 0.04-0i, 0.05-0i, 0.06-0i, 0.07-0i, 0.08-0i, 0.09-0i, 0.1-0i, 0.11-0i, 0.12-0i, 0.13-0i, 0.14-0i, 0.15-0i, 0.16-0i, 0.17-0i, 0.18-0i, 0.19-0i, 0.2-0i, 0.21-0i, 0.22-0i, 0.23-0i, 0.24-0i, 0.25-0i, 0.26-0i, 0.27-0i, 0.28-0i, 0.29-0i, 0.3-0i, 0.31-0i, 0.32-0i, 0.33-0i, 0.34-0i, 0.35-0i, 0.36-0i, 0.37-0i, 0.38-0i, 0.39-0i, 0.4-0i, 0.41-0i, 0.42-0i, 0.43-0i, 0.44-0i, 0.45-0i, 0.46-0i, 0.47-0i, 0.48-0i, 0.49-0i, 0.5-0i, 0.51-0i, 0.52-0i, 0.53-0i, 0.54-0i, 0.55-0i, 0.56-0i, 0.57-0i, 0.58-0i, 0.59-0i, 0.6-0i, 0.61-0i, 0.62-0i, 0.63-0i, 0.64-0i, 0.65-0i, 0.66-0i, 0.67-0i, 0.68-0i, 0.69-0i, 0.7-0i, 0.71-0i, 0.72-0i, 0.73-0i, 0.74-0i, 0.75-0i, 0.76-0i, 0.77-0i, 0.78-0i, 0.79-0i, 0.8-0i, 0.81-0i, 0.82-0i, 0.83-0i, 0.84-0i, 0.85-0i, 0.86-0i, 0.87-0i, 0.88-0i, 0.89-0i, 0.9-0i, 0.91-0i, 0.92-0i, 0.93-0i, 0.94-0i, 0.95-0i, 0.96-0i, 0.97-0i, 0.98-0i, 0.99-0i, 1-0i));Im(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinIm_testIm5_daa6f6a7561f0e16ca1b0adc0888bd87() {
+ assertEval("argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))));Im(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinIm_testIm6_ceaffdfb48f484191e3c465d7d171154() {
+ assertEval("argv <- list(c(0.923879532511287+0.38268343236509i, 0.707106781186548+0.707106781186547i, 0.38268343236509+0.923879532511287i, 0+1i, -0.38268343236509+0.923879532511287i, -0.707106781186547+0.707106781186548i, -0.923879532511287+0.38268343236509i, -1+0i, -0.923879532511287-0.38268343236509i, -0.707106781186548-0.707106781186547i, -0.38268343236509-0.923879532511287i, 0-1i, 0.38268343236509-0.923879532511287i, 0.707106781186547-0.707106781186548i, 0.923879532511287-0.38268343236509i, 1-0i));Im(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinLa_testLa1_a2aefe263aade4050c793d072b09f428() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0), .Dim = c(18L, 7L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18'), c('(Intercept)', 'Rail2', 'Rail5', 'Rail1', 'Rail6', 'Rail3', 'Rail4')))); .Internal(La_qr(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinLa_testLa2_82030ef6446bf50aaa3b9b6f8b894e03() {
+ assertEval("argv <- list(structure(c(-4.47213595499958, 0, -6.70820393249937, 2.23606797749979), .Dim = c(2L, 2L), .Dimnames = list(NULL, c('Intercept', 'X'))), structure(c(1, 0, 0, 1), .Dim = c(2L, 2L)), 2.22044604925031e-16); .Internal(La_solve(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinLa_testLa3_eeae722616d628fd6eb05793b1e3c58f() {
+ assertEval("argv <- list(structure(c(-21.2222451396881, 306.936914624821, 0, 0, 0, -101.353437863947, -21.2222451396881, 0, 0, 0, 45.8768670002026, 63.2672432400162, -11.7486843755171, 0, 0, 65.1621918666428, 125.787781278037, -111.869521123473, 61.0965873274467, -54.389932439947, -26.0785375270079, -209.347244886481, 112.817924425406, 108.385517228532, 61.0965873274467), .Dim = c(5L, 5L), .Dimnames = list(NULL, NULL)), FALSE); .Internal(La_rg(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinLa_testLa4_93e4ac1f4bb285b0ed312b1d5e9813a1() {
+ assertEval("argv <- list('S', structure(c(1, 0, 0, 0, 0, 1.4142135623731, 0, 0, 0, 0, 1.73205080756888, 0, 0, 0, 0, 2), .Dim = c(4L, 4L), Dimnames = list(character(0), character(0))), c(2, 1.73205080756888, 1.4142135623731, 1), structure(c(0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0), .Dim = c(4L, 4L)), structure(c(0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0), .Dim = c(4L, 4L))); .Internal(La_svd(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinLa_testLa5_10537d2a8b634e27f7aa11ddfa10a5c6() {
+ assertEval("argv <- list(structure(c(0.842723988615538, 1, 0, 1, 0.636010690700881, 1, 0, 1, 0.842723988615537), .Dim = c(3L, 3L)), FALSE); .Internal(La_rs(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinLa_testLa6_02451222db08157c94b3c22f03639c30() {
+ assertEval("argv <- list('S', structure(c(FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(5L, 5L)), c(3.37916576339493, 1.53572230863579, 1.41421356237309, 0.472012430194285, 3.04287016253022e-18), structure(c(-0.38209344041777, -0.441911867608196, -0.441911867608196, -0.563415484445979, -0.38209344041777, -0.594200765232569, 0.307687929858406, 0.307687929858405, 0.32327569786942, -0.594200765232566, 0.499999999999999, -0.5, 0.500000000000001, 7.42461647718073e-16, -0.500000000000001, 0.0304967766615352, 0.45830343560406, 0.458303435604061, -0.760299819185526, 0.0304967766615352, -0.5, -0.5, 0.5, -1.11022302462516e-16, 0.5), .Dim = c(5L, 5L)), structure(c(-0.41058086214689, 0.0239384830763564, -0.707106781186547, -0.575195883735897, 0, -0.428282990831553, 0.611211774620929, 9.15933995315754e-16, 0.331150287627506, 0.577350269189626, -0.41058086214689, 0.0239384830763538, 0.707106781186548, -0.575195883735897, 5.55111512312578e-17, -0.226146609649533, -0.773838814336698, -1.55431223447522e-15, 0.129220226886747, 0.577350269189625, -0.654429600481086, -0.162627039715767, -5.27355936696949e-16, 0.460370514514253, -0.577350269189626), .Dim = c(5L, 5L))); .Internal(La_svd(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinLa_testLa7_b81d60ca77e69ea47558506a09873227() {
+ assertEval("argv <- list(structure(c(1, 1, 3, 3), .Dim = c(2L, 2L)), 'O'); .Internal(La_dgecon(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinLa_testLa8_6b7d703bb8b3674554638959f10ddc63() {
+ assertEval("argv <- list('N', structure(c(-4, 0, 0, 0, 0, 0, 0, -406.725, 41.7955066364795, 0, 0, 0, 0, 0, -1550.79375, 381.717151319926, 49.8228991342168, 0, 0, 0, 0, -1277.325, 224.617432123818, -31.1858918860748, -282.060212912726, 0, 0, 0, -1042.675, 125.261805546114, -29.9849484767744, 164.425554254677, -170.353263600129, 0, 0, -469.696, 26.3795103523805, 4.19691803785862, -3.18974110831568, 0.0462484557378925, 1.46320172717486, 0, -7818, 18.2758880432689, 1.77525956575195, -1.45298766739792, -0.449176219307484, -0.281900648530911, -0.669305080560524), .Dim = c(7L, 7L), .Dimnames = list(c('1947', '1948', '1949', '1950', '1951', '1952', '1953'), c('(Intercept)', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'))), c(8164.12940108939, 457.24498274114, 324.584423503013, 134.312174464868, 4.95553195929945, 1.41954832076337, 0.000342370904183799), structure(0, .Dim = c(1L, 1L)), structure(0, .Dim = c(1L, 1L))); .Internal(La_svd(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinLa_testLa9_c611268ab5b6a208a3f74df32460fb07() {
+ assertEval("argv <- list(structure(c(-9.64365076099295, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, -29634.0055320061, -5658.08855789941, 0.0595010632288954, 0.0648032071760975, 0.106336668095848, -0.0279843118999398, 0.0762911857283688, 0.188519899277481, 0.0807096390177039, 0.102801905464379, 0.158474416910002, -0.0969121832135675, -0.0447744343994132, 0.0356414154664858, 0.0276881995456826, -5.08106330417909, 3.14280306547868, 3.64768208463163, 0.0962151262827947, -0.216651778533863, -0.0914289830351174, 0.0855052819309283, -0.0191216590449975, 0.0813861110263642, 0.0607902565035442, 0.00888870310603775, -0.027169916923919, -0.0757761335977742, 0.123401654252917, -0.143330536432624, -0.207390338946085, -0.18719988871654, -0.127596387499216, 1.38045811630541, 0.0118370110620473, 0.00504893180870276, 0.0281684584122627, 0.0338400772620966, 0.0283917504929648, 0.0295082108964754, 0.0323216911133222, 0.00156557534974961, 0.00420042190203468, 0.0261141712698031, 0.00786241202554953, -3.21455025366432, -2.66432733346907, -2.18217405946767, -1.0459324747522, 2.77707906967759, -0.000588115022584812, -0.0784367740030637, -0.0437014732535189, -0.0770692424774911, 0.28985899050302, 0.307089887725235, -0.0219216068215179, -0.00578473481976082, -0.0910180640383319, 0.0166427821996303, -0.725866186311298, -0.943724610301472, -0.197997366006898, -0.255325765345392, -1.99736582726463, 1.22009740929232, -0.000660179745382102, 0.118090770461339, 0.00401505451472504, -0.265276591063721, -0.206368639386371, -0.0413572976755921, 0.0138104665936721, -0.0436723349383677, 0.0904843084594291, -0.103695169473043, 0.0314422837299137, -0.171533212490836, -0.0271695331685966, -0.234884785308008, -0.455412006973628, -0.833981960018826, -0.0497205266764892, -0.00169048456815939, 0.0359873442560765, 0.0111849454624309, 0.0174129325629219, -0.00581471075176227, 0.0183876477886015, -0.0380971980704758, -1.14064686420347, -1.21031412747477, -0.546078284372325, -0.385964209884133, -0.535335872363138, 0.617909299639904, 0.034437791264286, -2.66782912116871, -0.0707120154460491, 0.170259689757997, -0.200116024334743, -0.0120487035676503, -0.00787104751465206, -0.0743232096613527, -0.00206481367828156, -2.28129372840694, -1.27183039972242, -0.162921372163874, 0.194143545128708, 0.405329624202872, -0.0239884453210967, 0.161826508366356, 1.47283157923894, -3.57122150532158, 0.0184573285734211, 0.0768346205272587, -0.00300367200170235, -0.047539037475449, -0.0955077077363865, 0.170580587807138, -2.17759855893389, 2.82091161681306, -0.529126651121425, 0.00648102843720064, -0.227590137804697, 0.429332016819553, 0.315382802791974, -0.0921680424483324, 0.358484158960907, 2.74734594573339, -0.00180797874108619, 0.211048746835586, 0.146553774483952, 0.0892496085418831, 0.02104367339158, -1.4517323726226, 0.428703993666521, -0.198393471445493, -0.178300389025286, -0.0518091667043893, 0.133208332446864, -1.01393441911662, 0.520772381447608, 0.936102434059857, -1.6420319436063, 2.59716822825227, 0.194828402482676, 0.15057424104202, -0.232155536267878, -0.0298159890277092, -0.933256525257383, -1.20515451427884, 0.0125087156504907, 0.421920000319943, 0.452875082015975, -0.655679104390575, 0.284781968418535, 0.643096539054797, 1.38165893036928, 0.447700892848835, -0.482856979100538, 1.73960015308741, 0.115853953901054, 0.107343556163412, -0.0385322695831968, -25.7267715462619, -8.40853040573162, -1.45105839286435, -1.58984152452525, -1.59606771970776, 2.79428919380473, 0.596892611732863, -1.03839368638655, -0.0376487500979583, -0.507302835476536, 0.184174590388395, -0.70905481454677, -3.32884312972433, 0.134236291836065, -0.0993249017707237, -6.94757635469386, 1.58613921242054, 0.195741168102286, 0.638223445194413, 1.07571321411184, 0.659104584950073, 0.199707908602043, -0.565980943574209, -0.967985377031296, -0.112927393875596, -0.934672543429794, 0.198159847509218, 0.275086401661377, 3.44668029704689, -0.05066048099299, -1.65912271156868, -1.17593571026872, -0.20132598039105, -0.42732880950559, -1.20727437557593, 0.102943259109259, -0.697974199306205, 0.103630431164098, -0.0620963660266192, -0.16978912837867, 0.739571733406047, -0.872308493604205, -0.757980967070979, -2.00985526447536, -1.92891236077264), .Dim = c(15L, 15L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15'), c('(Intercept)', 'Weight', 'Cylinders4', 'Cylinders5', 'Cylinders6', 'Cylinders8', 'Cylindersrotary', 'TypeLarge', 'TypeMidsize', 'TypeSmall', 'TypeSporty', 'TypeVan', 'EngineSize', 'DriveTrainFront', 'DriveTrainRear'))), 15L); .Internal(La_chol2inv(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinMod_testMod1_fb3b185716d13b0bfe23a137e50488a1() {
+ assertEval("argv <- list(c(0+0i, 0-1.70620776722167e-16i, 0+3.59617031290993e-17i, 3.33066907387547e-16-8.7147236198461e-17i, 3.33066907387547e-16-4.4517026198843e-17i, 5.55111512312578e-16-1.81766397811914e-16i, -2.22044604925031e-16+3.76574595498641e-16i, 3.33066907387547e-16+2.8373545612348e-17i, -6.66133814775094e-16-1.98666621484541e-16i, 1.11022302462516e-15+1.3900988495185e-16i, 0+0i, 1.11022302462516e-16+0i, 0-4.88556439671224e-17i, 1.4432899320127e-15+5.4401706444201e-16i, -6.66133814775094e-16+4.18075097302204e-16i, -1.11022302462516e-15-3.7758383211069e-16i, 1.11022302462516e-16+1.21021749072872e-16i, 5.55111512312578e-16-9.7601012134884e-17i, 0+3.64949907708171e-17i, 2.99760216648792e-15-3.2254749723992e-16i));Mod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinMod_testMod2_dc96f0723575f35d2789efa269c5f470() {
+ assertEval("argv <- list(c(1, 1, 2, 6, 24, 120, 720, 5040, 40320, 362880, 3628800, 39916800, 479001600, 6227020800, 87178291200, 1307674368000, 20922789888000, 355687428096000, 6402373705728000, 121645100408832000));Mod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinMod_testMod3_489e9c3eb0124d4f71c85c0c2a88d0c2() {
+ assertEval("argv <- list(structure(c(-0.00275201701154004+0i, 0.73267342182576+1.53432836384434i, 1.19603180664097+2.58954103250214i, -1.78551995785074+3.6927974843213i, -0.21286727655171-2.24663622584203i, 1.71166744547715-2.14519629896288i, -1.56293209739181+1.57166915011841i, -1.58375104473686+3.6829699402818i, -2.00504145581753-1.3546174582843i, 0.683574008984187+0.815530349018154i, -1.53010401343571-2.36562392372444i, 0.99061039704013+3.53936165201907i, 1.67472443120722-1.95559489480179i, -0.68341618370449-2.47704044044817i, 1.48062655483323-1.57686725056915i, 2.87299425968444+2.35949377337065i, 1.8028932379829+0.54336001329155i, 0.8410445275115-2.79377726088858i, -0.85630340738898+1.95000905938152i, -0.070268282309003-0.407774647142381i, 0.87904100084727+1.42913449570069i, -0.5398835286832-1.49689799587001i, -4.20150499254585-1.17770608296304i, -4.20150499254585+1.17770608296304i, -0.5398835286832+1.49689799587001i, 0.87904100084727-1.42913449570068i, -0.070268282309002+0.407774647142381i, -0.85630340738898-1.95000905938152i, 0.8410445275115+2.79377726088858i, 1.8028932379829-0.54336001329155i, 2.87299425968444-2.35949377337065i, 1.48062655483323+1.57686725056915i, -0.68341618370449+2.47704044044817i, 1.67472443120722+1.95559489480179i, 0.99061039704013-3.53936165201907i, -1.53010401343571+2.36562392372443i, 0.683574008984187-0.815530349018153i, -2.00504145581753+1.3546174582843i, -1.58375104473686-3.6829699402818i, -1.56293209739181-1.57166915011841i, 1.71166744547714+2.14519629896288i, -0.21286727655171+2.24663622584203i, -1.78551995785073-3.6927974843213i, 1.19603180664097-2.58954103250214i, 0.73267342182576-1.53432836384434i), .Dim = c(45L, 1L), '`scaled:center`' = -0.00488570008479763));Mod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinMod_testMod4_011e96e22fc7f31b107ddaf032dd099c() {
+ assertEval("argv <- list(logical(0));Mod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinMod_testMod5_2b50c65c21649a39ef945c735a7f9b8c() {
+ assertEval("argv <- list(c(1, 1, 2, 6, 24, 120, 720, 5040, 40320, 362880, 3628800, 39916800, 479001600, 6227020800, 87178291200, 1307674368000, 20922789888000, 355687428096000, 6402373705728000, 121645100408832000, 2432902008176640000, 51090942171709440000, 1.12400072777761e+21, 2.5852016738885e+22, 6.20448401733239e+23, 1.5511210043331e+25, 4.03291461126606e+26, 1.08888694504184e+28, 3.04888344611714e+29, 8.8417619937397e+30, 2.65252859812191e+32, 8.22283865417792e+33, 2.63130836933694e+35, 8.68331761881189e+36, 2.95232799039604e+38, 1.03331479663861e+40, 3.71993326789901e+41, 1.37637530912263e+43, 5.23022617466601e+44, 2.03978820811974e+46, 8.15915283247898e+47, 3.34525266131638e+49, 1.40500611775288e+51, 6.04152630633738e+52, 2.65827157478845e+54, 1.1962222086548e+56, 5.50262215981209e+57, 2.58623241511168e+59, 1.24139155925361e+61, 6.08281864034268e+62, 3.04140932017134e+64, 1.55111875328738e+66, 8.06581751709439e+67, 4.27488328406003e+69, 2.30843697339241e+71, 1.26964033536583e+73, 7.10998587804863e+74, 4.05269195048772e+76, 2.35056133128288e+78, 1.3868311854569e+80, 8.32098711274139e+81, 5.07580213877225e+83, 3.14699732603879e+85, 1.98260831540444e+87, 1.26886932185884e+89, 8.24765059208247e+90, 5.44344939077443e+92, 3.64711109181887e+94, 2.48003554243683e+96, 1.71122452428141e+98, 1.19785716699699e+100, 8.50478588567862e+101, 6.12344583768861e+103, 4.47011546151268e+105, 3.30788544151939e+107, 2.48091408113954e+109, 1.88549470166605e+111, 1.45183092028286e+113, 1.13242811782063e+115, 8.94618213078298e+116, 7.15694570462638e+118, 5.79712602074737e+120, 4.75364333701284e+122, 3.94552396972066e+124, 3.31424013456535e+126, 2.81710411438055e+128, 2.42270953836727e+130, 2.10775729837953e+132, 1.85482642257398e+134, 1.65079551609085e+136, 1.48571596448176e+138, 1.3520015276784e+140, 1.24384140546413e+142, 1.15677250708164e+144, 1.08736615665674e+146, 1.03299784882391e+148, 9.9167793487095e+149, 9.61927596824821e+151, 9.42689044888325e+153, 9.33262154439442e+155, 9.33262154439442e+157, 9.42594775983836e+159, 9.61446671503513e+161, 9.90290071648618e+163, 1.02990167451456e+166, 1.08139675824029e+168, 1.14628056373471e+170, 1.22652020319614e+172, 1.32464181945183e+174, 1.44385958320249e+176, 1.58824554152274e+178, 1.76295255109024e+180, 1.97450685722107e+182, 2.23119274865981e+184, 2.54355973347219e+186, 2.92509369349302e+188, 3.3931086844519e+190, 3.96993716080872e+192, 4.68452584975429e+194, 5.57458576120761e+196));Mod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date1_c82ebe1758603c6cfc0331e7dfb6b681() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), mday = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), mon = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), year = c(37L, 16L, 13L, 27L, 47L, 13L, 17L, 23L, 21L, 26L, 20L, 15L, 14L, 14L, 14L, 19L, 48L, 11L, 9L, 13L, 25L, 26L, 10L, 17L, 36L, 38L, 60L, 15L, 19L, 24L, 14L, 5L, 21L, 29L, 26L, 21L, 8L, 28L, 19L, 21L, 25L, 34L, 27L, 28L, 34L, 22L, 23L, 15L, 34L, 25L, 22L, 30L, 24L, 23L, 19L, 32L, 30L, 23L, 30L, 22L, 19L, 32L, 39L, 23L, 20L, 19L, 52L, 27L, 24L, 19L, 25L, 45L, 16L, 43L, 20L, 20L, 31L, 24L, 19L, 26L, 20L, 42L, 19L, 30L, 25L, 24L, 26L, 18L, 22L, 21L, 25L, 28L, 25L, 29L, 33L, 47L, 50L, 45L, 24L, 39L, 24L, 33L, 28L), wday = c(5L, 6L, 3L, 6L, 3L, 3L, 1L, 1L, 6L, 5L, 4L, 5L, 4L, 4L, 4L, 3L, 4L, 0L, 5L, 3L, 4L, 5L, 6L, 1L, 3L, 6L, 5L, 5L, 3L, 2L, 4L, 0L, 6L, 2L, 5L, 6L, 3L, 0L, 3L, 6L, 4L, 1L, 6L, 0L, 1L, 0L, 1L, 5L, 1L, 4L, 0L, 3L, 2L, 1L, 3L, 5L, 3L, 1L, 3L, 0L, 3L, 5L, 0L, 1L, 4L, 3L, 2L, 6L, 2L, 3L, 4L, 1L, 6L, 5L, 4L, 4L, 4L, 2L, 3L, 5L, 4L, 4L, 3L, 3L, 4L, 2L, 5L, 2L, 0L, 6L, 4L, 0L, 4L, 2L, 0L, 3L, 0L, 1L, 2L, 0L, 2L, 0L, 0L), yday = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), isdst = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date10_e6077f7ea345f94f07782d6b962053d5() {
+ assertEval("argv <- list(structure(list(sec = 33.1798663139343, min = 47L, hour = 14L, mday = 17L, mon = 2L, year = 114L, wday = 1L, yday = 75L, isdst = 1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date2_9b70b097891341078c7ac3dab244742d() {
+ assertEval("argv <- list(structure(list(sec = c(0, NA), min = c(0L, NA), hour = c(0L, NA), mday = c(6L, NA), mon = c(10L, NA), year = c(107L, NA), wday = c(2L, NA), yday = c(309L, NA), isdst = c(0L, -1L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date3_740afb98118f8d74dd5e20cb76d838f2() {
+ assertEval("argv <- list(structure(list(sec = numeric(0), min = integer(0), hour = integer(0), mday = integer(0), mon = integer(0), year = integer(0), wday = integer(0), yday = integer(0), isdst = integer(0)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date4_9e105e2633d2cea3f6fa583eed648af4() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 79L, wday = 1L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date5_cf0f678e09dfe011d52de2e8ed0d8a51() {
+ assertEval("argv <- list(structure(list(sec = c(0, NA, NA, 0), min = c(0L, NA, NA, 0L), hour = c(0L, NA, NA, 0L), mday = c(1L, NA, NA, 26L), mon = c(0L, NA, NA, 9L), year = c(101L, NA, NA, 104L), wday = c(1L, NA, NA, 2L), yday = c(0L, NA, NA, 299L), isdst = c(0L, -1L, -1L, 0L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT')); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date6_b7ab6b6f393888cd0b7c5ce50c88e360() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = c(0, 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36), year = 100L, wday = 6L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC')); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date7_f57cfa661d06a99778abe1215030336d() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), mday = 1, mon = c(0, 0.5, 1, 1.5, 2, 2.5, 3), year = c(101, 101, 101, 101, 101, 101, 101, 102, 102, 102, 102, 102, 102, 102), wday = c(3L, 0L, 6L, 4L, 2L, 0L, 5L, 3L, 1L, 6L, 4L), yday = c(9L, 111L, 12L, 24L, 36L, 48L, 60L, 72L, 84L, 96L, 108L), isdst = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC')); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date8_9ce4b6ff85a11e255209b4e564736888() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 109L, wday = 4L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date9_8f6981305a5c0c94ba02cd526c71a6db() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L), hour = c(0L, 0L, 0L, 0L, 0L), mday = 22:26, mon = c(3L, 3L, 3L, 3L, 3L), year = c(108L, 108L, 108L, 108L, 108L), wday = 2:6, yday = 112:116, isdst = c(-1L, -1L, -1L, -1L, -1L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT')); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinPrimitive_testPrimitive1_5059794090fe569a9f6b92a2a4a81997() {
+ assertEval("argv <- list('c');.Primitive(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinRe_testRe1_8ac7f13814d8bda52b735f34ddb58f40() {
+ assertEval("argv <- list(c(0.997564050259824+0.069756473744125i, 0.987588409757226+0.069058909006684i, 0.977612769254628+0.068361344269243i, 0.96763712875203+0.067663779531802i, 0.957661488249431+0.06696621479436i, 0.947685847746833+0.066268650056919i, 0.937710207244235+0.065571085319478i, 0.927734566741637+0.064873520582037i, 0.917758926239038+0.064175955844595i, 0.90778328573644+0.063478391107154i, 0.897807645233842+0.062780826369713i, 0.887832004731244+0.062083261632272i, 0.877856364228645+0.06138569689483i, 0.867880723726047+0.060688132157389i, 0.857905083223449+0.059990567419948i, 0.847929442720851+0.059293002682507i, 0.837953802218252+0.058595437945065i, 0.827978161715654+0.057897873207624i, 0.818002521213056+0.057200308470183i, 0.808026880710458+0.056502743732742i, 0.79805124020786+0.0558051789953i, 0.788075599705261+0.055107614257859i, 0.778099959202663+0.054410049520418i, 0.768124318700065+0.053712484782976i, 0.758148678197466+0.053014920045535i, 0.748173037694868+0.052317355308094i, 0.73819739719227+0.051619790570653i, 0.728221756689672+0.050922225833211i, 0.718246116187073+0.05022466109577i, 0.708270475684475+0.049527096358329i, 0.698294835181877+0.048829531620888i, 0.688319194679279+0.048131966883446i, 0.67834355417668+0.047434402146005i, 0.668367913674082+0.046736837408564i, 0.658392273171484+0.046039272671123i, 0.648416632668886+0.045341707933681i, 0.638440992166287+0.04464414319624i, 0.628465351663689+0.043946578458799i, 0.618489711161091+0.043249013721358i, 0.608514070658493+0.042551448983916i, 0.598538430155894+0.041853884246475i, 0.588562789653296+0.041156319509034i, 0.578587149150698+0.040458754771593i, 0.5686115086481+0.039761190034151i, 0.558635868145502+0.03906362529671i, 0.548660227642903+0.038366060559269i, 0.538684587140305+0.037668495821828i, 0.528708946637707+0.036970931084386i, 0.518733306135109+0.036273366346945i, 0.50875766563251+0.035575801609504i, 0.498782025129912+0.034878236872063i, 0.488806384627314+0.034180672134621i, 0.478830744124716+0.03348310739718i, 0.468855103622117+0.032785542659739i, 0.458879463119519+0.032087977922298i, 0.448903822616921+0.031390413184856i, 0.438928182114323+0.030692848447415i, 0.428952541611724+0.029995283709974i, 0.418976901109126+0.029297718972533i, 0.409001260606528+0.028600154235091i, 0.39902562010393+0.02790258949765i, 0.389049979601331+0.027205024760209i, 0.379074339098733+0.026507460022768i, 0.369098698596135+0.025809895285326i, 0.359123058093537+0.025112330547885i, 0.349147417590938+0.024414765810444i, 0.33917177708834+0.023717201073003i, 0.329196136585742+0.023019636335561i, 0.319220496083144+0.02232207159812i, 0.309244855580545+0.021624506860679i, 0.299269215077947+0.020926942123238i, 0.289293574575349+0.020229377385796i, 0.279317934072751+0.019531812648355i, 0.269342293570153+0.018834247910914i, 0.259366653067554+0.018136683173473i, 0.249391012564956+0.017439118436031i, 0.239415372062358+0.01674155369859i, 0.22943973155976+0.016043988961149i, 0.219464091057161+0.015346424223708i, 0.209488450554563+0.014648859486266i, 0.199512810051965+0.013951294748825i, 0.189537169549367+0.013253730011384i, 0.179561529046768+0.012556165273943i, 0.16958588854417+0.011858600536501i, 0.159610248041572+0.01116103579906i, 0.149634607538974+0.010463471061619i, 0.139658967036375+0.009765906324178i, 0.129683326533777+0.009068341586736i, 0.119707686031179+0.008370776849295i, 0.109732045528581+0.007673212111854i, 0.0997564050259824+0.0069756473744125i, 0.0897807645233842+0.0062780826369713i, 0.0798051240207859+0.00558051789953i, 0.0698294835181877+0.0048829531620888i, 0.0598538430155895+0.0041853884246475i, 0.0498782025129912+0.0034878236872063i, 0.039902562010393+0.002790258949765i, 0.0299269215077947+0.0020926942123238i, 0.0199512810051965+0.0013951294748825i, 0.00997564050259824+0.00069756473744125i, 0+0i));Re(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinRe_testRe2_9a7ed4d21d9aba632838b9e48f6bb172() {
+ assertEval("argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))));Re(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinRe_testRe3_d5bef85efc5d2d6ee5a3e5254e7c5db7() {
+ assertEval("argv <- list(c(-0.1-0.9i, -0.2-0.8i, -0.3-0.7i, -0.4-0.6i, -0.1-0.5i, -0.2-0.4i, -0.3-0.3i, -0.4-0.2i, -0.1-0.1i));Re(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinRe_testRe4_b28c6570823c222bbecec308cf7070cc() {
+ assertEval("argv <- list(c(0.923879532511287+0.38268343236509i, 0.707106781186548+0.707106781186547i, 0.38268343236509+0.923879532511287i, 0+1i, -0.38268343236509+0.923879532511287i, -0.707106781186547+0.707106781186548i, -0.923879532511287+0.38268343236509i, -1+0i, -0.923879532511287-0.38268343236509i, -0.707106781186548-0.707106781186547i, -0.38268343236509-0.923879532511287i, 0-1i, 0.38268343236509-0.923879532511287i, 0.707106781186547-0.707106781186548i, 0.923879532511287-0.38268343236509i, 1-0i));Re(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinRe_testRe5_d4d00a88b6ce482ef8691821fa66e1bd() {
+ assertEval("argv <- list(logical(0));Re(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinRe_testRe6_cf742d40ae39c895c4709acd08d93023() {
+ assertEval("argv <- list(FALSE);Re(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinRe_testRe7_404a31d5c5aa9929874204c17998a968() {
+ assertEval("argv <- list(c(0.00086580086580088+0i, 0.00259740259740261+0i, 0.00519480519480521+0i, 0.00865800865800867+0i, 0.012987012987013+0i, 0.0181818181818182+0i, 0.0242424242424242+0i, 0.0303030303030303+0i, 0.0363636363636363+0i, 0.0424242424242424+0i, 0.0484848484848484+0i, 0.0536796536796536+0i, 0.058008658008658+0i, 0.0614718614718614+0i, 0.064069264069264+0i, 0.0649350649350649+0i, 0.064069264069264+0i, 0.0614718614718614+0i, 0.058008658008658+0i, 0.0536796536796536+0i, 0.0484848484848485+0i, 0.0424242424242424+0i, 0.0363636363636363+0i, 0.0303030303030303+0i, 0.0242424242424242+0i, 0.0181818181818182+0i, 0.012987012987013+0i, 0.00865800865800867+0i, 0.00519480519480521+0i, 0.00259740259740261+0i, 0.000865800865800882+0i));Re(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinSyschmod_testSyschmod1_40f07fd2d60a448a3cc4d6f3f7b28367() {
+ assertEval("argv <- list(character(0), structure(integer(0), class = 'octmode'), TRUE); .Internal(Sys.chmod(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinSysgetenv_testSysgetenv1_3d26373139ce17678ed43e72c0d74835() {
+ assertEval("argv <- list('EDITOR', ''); .Internal(Sys.getenv(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinSysgetenv_testSysgetenv2_7f58d5144c6e451bb7b430ea84a62cbf() {
+ assertEval("argv <- list('SWEAVE_OPTIONS', NA_character_); .Internal(Sys.getenv(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinSysglob_testSysglob1_fc87be3ca00889f3e32af348c28c2351() {
+ assertEval("argv <- list('/home/lzhao/hg/r-instrumented/src/library/utils/man/unix/*.rd', FALSE); .Internal(Sys.glob(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinSysreadlink_testSysreadlink1_9113b003b8aef1306ce1a5cee13e047c() {
+ assertEval("argv <- list(character(0)); .Internal(Sys.readlink(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinSyssetenv_testSyssetenv1_d65915a4f194756781adf4ae91003f30() {
+ assertEval("argv <- list('_R_NS_LOAD_', 'Matrix'); .Internal(Sys.setenv(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinSyssetenv_testSyssetenv2_ae39e9c51d2b3ad4538841bf2aa0dac9() {
+ assertEval("argv <- list('_R_NS_LOAD_', 'methods'); .Internal(Sys.setenv(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinSyssetenv_testSyssetenv3_c83106efda39d2bc13cd2e78ce92bd9d() {
+ assertEval("argv <- list(c('BIBINPUTS', 'add'), c('.:.:/home/lzhao/hg/r-instrumented/share/texmf/bibtex/bib::/home/lzhao/hg/r-instrumented/share/texmf/bibtex/bib:', 'TRUE')); .Internal(Sys.setenv(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinSyssetlocale_testSyssetlocale1_ace760dcc6919d504aaeee687218bd42() {
+ assertEval("argv <- list(3L, 'C'); .Internal(Sys.setlocale(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinSyssleep_testSyssleep1_f57bc3a0d3b5ebea6f471c007877a609() {
+ assertEval("argv <- list(0.5); .Internal(Sys.sleep(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinSyssleep_testSyssleep2_095aa5ae488fb09a47367d68bd6461ac() {
+ assertEval("argv <- list(FALSE); .Internal(Sys.sleep(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinSysunsetenv_testSysunsetenv1_ce54c1613ddcccac859ad16f260d079a() {
+ assertEval("argv <- list('_R_NS_LOAD_'); .Internal(Sys.unsetenv(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinSysunsetenv_testSysunsetenv3_aa503b4de73e8d108e2f067e5b8e7b6c() {
+ assertEval("argv <- list(character(0)); .Internal(Sys.unsetenv(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinabbreviate_testabbreviate1_3f8f60358d2852dd79ac261204d4a455() {
+ assertEval("argv <- list('text', 6, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinabbreviate_testabbreviate10_a13dd2733dd648acb226104e63710036() {
+ assertEval("argv <- list('filled.contour', 6, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinabbreviate_testabbreviate11_b298483fb0dea97de75b038946c13bfe() {
+ assertEval("argv <- list(c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), 5, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinabbreviate_testabbreviate12_0cedf2b34efe78f02041ea02771fef5f() {
+ assertEval("argv <- list('dtrMatrix-class', 6, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinabbreviate_testabbreviate2_8ef2508350d61e869159fb1bced52268() {
+ assertEval("argv <- list(c('Alabama', 'Alaska', 'Arizona', 'Arkansas', 'California', 'Colorado', 'Connecticut', 'Delaware', 'Florida', 'Georgia', 'Hawaii', 'Idaho', 'Illinois', 'Indiana', 'Iowa', 'Kansas', 'Kentucky', 'Louisiana', 'Maine', 'Maryland', 'Massachusetts', 'Michigan', 'Minnesota', 'Mississippi', 'Missouri', 'Montana', 'Nebraska', 'Nevada', 'New Hampshire', 'New Jersey', 'New Mexico', 'New York', 'North Carolina', 'North Dakota', 'Ohio', 'Oklahoma', 'Oregon', 'Pennsylvania', 'Rhode Island', 'South Carolina', 'South Dakota', 'Tennessee', 'Texas', 'Utah', 'Vermont', 'Virginia', 'Washington', 'West Virginia', 'Wisconsin', 'Wyoming'), 3, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinabbreviate_testabbreviate3_580ddff10a0a301ebe71f2a52baf10b6() {
+ assertEval("argv <- list('glm', 6, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinabbreviate_testabbreviate4_a56b774e334eb18474503a585fce66c3() {
+ assertEval("argv <- list(c('(Intercept)', 'sin(2 * pi * Time)', 'cos(2 * pi * Time)'), 6, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinabbreviate_testabbreviate5_0af714c5ca5e93f532f86ce88af44784() {
+ assertEval("argv <- list(c('Alabama', 'Alaska', 'Arizona', 'Arkansas', 'California', 'Colorado', 'Connecticut', 'Delaware', 'Florida', 'Georgia', 'Hawaii', 'Idaho', 'Illinois', 'Indiana', 'Iowa', 'Kansas', 'Kentucky', 'Louisiana', 'Maine', 'Maryland', 'Massachusetts', 'Michigan', 'Minnesota', 'Mississippi', 'Missouri', 'Montana', 'Nebraska', 'Nevada', 'New Hampshire', 'New Jersey', 'New Mexico', 'New York', 'North Carolina', 'North Dakota', 'Ohio', 'Oklahoma', 'Oregon', 'Pennsylvania', 'Rhode Island', 'South Carolina', 'South Dakota', 'Tennessee', 'Texas', 'Utah', 'Vermont', 'Virginia', 'Washington', 'West Virginia', 'Wisconsin', 'Wyoming'), 4L, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinabbreviate_testabbreviate6_6a1b4d9720b96acb1c54dbca06ea0759() {
+ assertEval("argv <- list(c('Alabama', 'Alaska', 'Arizona', 'Arkansas', 'California', 'Colorado', 'Connecticut', 'Delaware', 'Florida', 'Georgia', 'Hawaii', 'Idaho', 'Illinois', 'Indiana', 'Iowa', 'Kansas', 'Kentucky', 'Louisiana', 'Maine', 'Maryland', 'Massachusetts', 'Michigan', 'Minnesota', 'Mississippi', 'Missouri', 'Montana', 'Nebraska', 'Nevada', 'New Hampshire', 'New Jersey', 'New Mexico', 'New York', 'North Carolina', 'North Dakota', 'Ohio', 'Oklahoma', 'Oregon', 'Pennsylvania', 'Rhode Island', 'South Carolina', 'South Dakota', 'Tennessee', 'Texas', 'Utah', 'Vermont', 'Virginia', 'Washington', 'West Virginia', 'Wisconsin', 'Wyoming'), 3L, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinabbreviate_testabbreviate7_fd5f0f39da664491433b226014651c8f() {
+ assertEval("argv <- list(c('1_', 'Weight', 'Cylinders4', 'Cylinders5', 'Cylinders6', 'Cylinders8', 'Cylindersrotary', 'TypeLarge', 'TypeMidsize', 'TypeSmall', 'TypeSporty', 'TypeVan', 'EngineSize', 'DriveTrainFront', 'DriveTrainRear'), 4L, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinabbreviate_testabbreviate8_74442740ebecb8edfdbcd6b7b8b9c6e8() {
+ assertEval("argv <- list(c('Alabama', 'Alaska', 'Arizona', 'Arkansas', 'California', 'Colorado', 'Connecticut', 'Delaware', 'Florida', 'Georgia', 'Hawaii', 'Idaho', 'Illinois', 'Indiana', 'Iowa', 'Kansas', 'Kentucky', 'Louisiana', 'Maine', 'Maryland', 'Massachusetts', 'Michigan', 'Minnesota', 'Mississippi', 'Missouri', 'Montana', 'Nebraska', 'Nevada', 'New Hampshire', 'New Jersey', 'New Mexico', 'New York', 'North Carolina', 'North Dakota', 'Ohio', 'Oklahoma', 'Oregon', 'Pennsylvania', 'Rhode Island', 'South Carolina', 'South Dakota', 'Tennessee', 'Texas', 'Utah', 'Vermont', 'Virginia', 'Washington', 'West Virginia', 'Wisconsin', 'Wyoming'), 1L, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinabbreviate_testabbreviate9_dd51a4be360dd74734620aa055df07b4() {
+ assertEval("argv <- list(character(0), 4L, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs1_333a26866cfa971725d2b5d766a7fc29() {
+ assertEval("argv <- list(c(0.9, 0.1, 0.3, 0.5, 0.7, 0.9, 0.1, 0.3, 0.5));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs10_08b98ef9f06bcf064f86f944e67fee55() {
+ assertEval("argv <- list(structure(c(-7.38958333333333, NA, 1.69041666666667, -16.5495833333333, 8.82041666666667, 8.84041666666667, -2.24958333333333, 9.15041666666667, 0.950416666666669, -12.5095833333333, NA, 8.86041666666667, 1.05041666666667, 3.80041666666667, 5.92041666666667, 16.1404166666667, 3.45041666666667, -32.1695833333333, 12.7504166666667, 1.18041666666667, -6.72958333333333, 14.4804166666667, 1.89041666666667, -37.9795833333333, -0.299583333333331, 2.49041666666667, 7.31041666666667, 0.66041666666667, 2.78041666666667, 3.89041666666667, 3.13041666666667, -6.08958333333333, -1.00958333333333, -1.07958333333333, 9.01041666666667, 7.84041666666667, 8.30041666666668, 9.36041666666667, -6.32958333333333, -47.3395833333333, 4.30041666666667, -2.11958333333333, -4.10958333333333, -2.29958333333333, 11.0004166666667, -1.96958333333333, 11.1804166666667, 2.55041666666667, -2.35958333333333, 7.80041666666667), .Names = c('Alabama', 'Alaska', 'Arizona', 'Arkansas', 'California', 'Colorado', 'Connecticut', 'Delaware', 'Florida', 'Georgia', 'Hawaii', 'Idaho', 'Illinois', 'Indiana', 'Iowa', 'Kansas', 'Kentucky', 'Louisiana', 'Maine', 'Maryland', 'Massachusetts', 'Michigan', 'Minnesota', 'Mississippi', 'Missouri', 'Montana', 'Nebraska', 'Nevada', 'New Hampshire', 'New Jersey', 'New Mexico', 'New York', 'North Carolina', 'North Dakota', 'Ohio', 'Oklahoma', 'Oregon', 'Pennsylvania', 'Rhode Island', 'South Carolina', 'South Dakota', 'Tennessee', 'Texas', 'Utah', 'Vermont', 'Virginia', 'Washington', 'West Virginia', 'Wisconsin', 'Wyoming')));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs11_8f6bbf9b3aaf42bdc6650dbf16c6166a() {
+ assertEval("argv <- list(c(NA, 1L));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs12_89bc29cab4456ce9ffd4baf8e12b985a() {
+ assertEval("argv <- list(structure(c(1.47191076131574, 0.586694550701453, NA, 0.258706725324317, 0.948371836939988, 0.396080061109718, NA, 0.350912037541581), .Dim = c(4L, 2L), .Dimnames = list(c('(Intercept)', 'x1', 'x2', 'x3'), c('Estimate', 'Std. Error'))));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs13_db24a189fbd39592132561de9fb97d4a() {
+ assertEval("argv <- list(structure(c(0.839669286317987, -1.37400428670216, 0.22900071445036, 0.305334285933814, 0.34350107167554, -0.0763335714834533, -0.877836072059713, 0.610668571867626, 0.763335714834533, -0.763335714834533, -0.763335714834533, 0.763335714834533, -0.45800142890072, 0.80150250057626, -0.22900071445036, -0.11450035722518, -0.34350107167554, 1.03050321502662, -1.03050321502662, 0.34350107167554, 0.11450035722518, -0.152667142966907, -0.0381667857417267, 0.0763335714834533, 0.496168214642447, -0.725168929092807, -0.0381667857417268, 0.267167500192087, 0.954169643543167, -1.52667142966907, 0.190833928708633, 0.381667857417267, 0.610668571867627, -2.78617535914605, 3.74034500268921, -1.56483821541079, 0.190833928708633, -0.572501786125899, 0.5725017861259, -0.190833928708634, 0.267167500192087, -0.229000714450361, -0.34350107167554, 0.305334285933814, 0.190833928708632, 0.190833928708634, -0.954169643543166, 0.572501786125899, -1.06867000076835, 1.67933857263597, -0.152667142966906, -0.45800142890072, -0.610668571867627, 0.877836072059714, 0.0763335714834535, -0.34350107167554, 0.381667857417267, -0.190833928708634, -0.763335714834533, 0.5725017861259, 0.496168214642447, -0.725168929092807, -0.0381667857417268, 0.267167500192087, 0.5725017861259, -0.763335714834533, -0.190833928708633, 0.381667857417267, 0.305334285933813, -0.534335000384173, 0.152667142966907, 0.076333571483453, -0.534335000384172, 0.839669286317985, -0.0763335714834534, -0.22900071445036, 0.0381667857417273, 0.0763335714834524, -0.267167500192087, 0.152667142966907, -0.22900071445036, 0.496168214642446, -0.305334285933813, 0.0381667857417267, 0, 0.190833928708633, -0.381667857417267, 0.190833928708633, 0.11450035722518, 0.0381667857417268, -0.419834643158993, 0.267167500192087, 0.11450035722518, -0.152667142966907, -0.0381667857417267, 0.0763335714834533, -0.22900071445036, 0.11450035722518, 0.45800142890072, -0.34350107167554, -0.496168214642447, 0.725168929092807, 0.0381667857417269, -0.267167500192087, 0.11450035722518, -0.534335000384173, 0.725168929092806, -0.305334285933813), .Names = c('M01', 'M01', 'M01', 'M01', 'M02', 'M02', 'M02', 'M02', 'M03', 'M03', 'M03', 'M03', 'M04', 'M04', 'M04', 'M04', 'M05', 'M05', 'M05', 'M05', 'M06', 'M06', 'M06', 'M06', 'M07', 'M07', 'M07', 'M07', 'M08', 'M08', 'M08', 'M08', 'M09', 'M09', 'M09', 'M09', 'M10', 'M10', 'M10', 'M10', 'M11', 'M11', 'M11', 'M11', 'M12', 'M12', 'M12', 'M12', 'M13', 'M13', 'M13', 'M13', 'M14', 'M14', 'M14', 'M14', 'M15', 'M15', 'M15', 'M15', 'M16', 'M16', 'M16', 'M16', 'F01', 'F01', 'F01', 'F01', 'F02', 'F02', 'F02', 'F02', 'F03', 'F03', 'F03', 'F03', 'F04', 'F04', 'F04', 'F04', 'F05', 'F05', 'F05', 'F05', 'F06', 'F06', 'F06', 'F06', 'F07', 'F07', 'F07', 'F07', 'F08', 'F08', 'F08', 'F08', 'F09', 'F09', 'F09', 'F09', 'F10', 'F10', 'F10', 'F10', 'F11', 'F11', 'F11', 'F11'), label = 'Standardized residuals'));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs14_be387f0615d6322246a8037f862354b5() {
+ assertEval("argv <- list(numeric(0));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs15_42e368ad587471ee7343923834e662fd() {
+ assertEval("argv <- list(structure(c(NA, NA), .Dim = 1:2, .Dimnames = list('x', c('Estimate', 'Std. Error'))));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs16_24080b327fd1cbc078975d14c69b4b04() {
+ assertEval("argv <- list(-3.31827701955945e-05);abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs17_bdcf9ff077797a5d82eb52c705fcc9e7() {
+ assertEval("argv <- list(structure(c(-1.36919169254062, -0.210726311672344, 0.00840470379579385, 0.0843659249699204, 0.552921941721332), .Names = c('0%', '25%', '50%', '75%', '100%')));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs18_89a19797216cf436f5dc8cd2d8c25ef9() {
+ assertEval("argv <- list(structure(c(8, 7, 6, 5, 4, 3, 2, 1, 0, -1), .Tsp = c(2, 11, 1), class = 'ts'));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs19_c952fb073a27780d3b57a7ff7bd14f88() {
+ assertEval("argv <- list(-32L);abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs2_ff85ac93d5b691cfc0d4ce73ed062f62() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE, TRUE));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs20_6da8d62d68c62f9a305a71448507fb36() {
+ assertEval("argv <- list(structure(c(-0.233156370250776, -0.239412071306507, -0.467754722340573, -0.313136244157115, 0.165043251865522, -0.32096970624939, -0.383377620527381, -0.709110442848008, -0.235393959061767, 0.141653176746209, -0.522836600482894, -0.313130619764979, -0.127866584288678, -0.443661331439424, -0.272181655694344, -0.267312459146771, -0.421687966603442, -0.489456667260012, -1.09136324227316, -0.365563936224476, -0.19497185571599, -0.355887223690607, -0.284861760091765, 0.10349461735987, -0.29203835454261, -0.437137381511441, -0.283258760238879, -0.864706923796918, -0.28069027865338, -0.328236303967812, -0.413280526174513, 0.353631921283964, -0.170574581087077, -0.350164611041975, -0.35509309393052, 0.371846787851152, 0.0662214922636754, -0.38267166577059, -0.76433272993872, 0.337925286731474, -0.316383144846009, 0.872120012008955, -0.1910867580222, -0.27268759462975, 0.561668608501795, -0.414426404256215, 0.306241460697781, -0.475011430441313, -0.18104902231566, -0.313137168940244, -0.162511371099967, -0.332715804582844, -0.264583655672922, -0.27403739912759, 0.292926038918646, -0.0266469304789678, NaN, 0.246014195648949, -0.384306495215891, -0.0754669363487819, -0.19187230661589, -0.28069027865338, -0.310267174936681, -0.218229559122572, -0.132431123435626, -0.632568727580371, -0.025524040198577, -0.208280705060531, -0.339307274267833, -0.267312459146771, -0.38337762052738, -0.527937499202165, -0.0708139839175417, -0.249126729136488, -0.443661331439424, -0.282353670058315, -0.383117955201771, 0.465652476582142, -0.257667111448151, -0.923882106624253, -0.527902200672803, -0.106397317438703, -0.882784314083567, -0.171789859931029, -0.134719406450945, -0.334299917870866, -0.59592895672967, 0.0477670768238039, -1.67777307729147, 0.0145330024207598, 0.465392111094536, -0.188401359782389, -1.67777307729147), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93')));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs21_c8f67db4b1012da2b88cce063f8df68b() {
+ assertEval("argv <- list(structure(c(2671, 6.026e+77, 3.161e+152, 3.501e+299, 2.409e+227, 1.529e+302), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs3_61a9e748aec4fab2ea5137b170509030() {
+ assertEval("argv <- list(c(-0.510763209393394, Inf, 1, 1, Inf, 1, 0, -1.95785440613009, -48.49854545454, -Inf, 1, 1, 0.342969776609699, 0.00707175387211123));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs4_f91888988f43bddc96c668cab13e929b() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs5_95c806ccdfc50e56c5599677ea5257e7() {
+ assertEval("argv <- list(structure(c(-7.0990260398094, -6.52913885777653, -3.11767063409183, -18.6913646342089), .Dim = c(4L, 1L)));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs6_3bc89c2550f27d0855af5dc0db5feb91() {
+ assertEval("argv <- list(structure(c(0, -1, -2, -3, -4, -5, -6, -7, -8, -9, -10, -11, -12, -13, -14, -15, -16, -17, -18, -19, -20, -21, -22, -23, -24, -25, -26, -27, -28, -29, -30, -31, -32, -33, -34, -35, -36, -37, -38, -39, -40, -41, -42, -43, -44, -45, -46, -47, -48, -49, -50, -51, -52, -53, -54, -55, -56, -57, -58, -59, -60, -61, -62, -63, -64, -65, -66, -67, -68, -69, -70, -71, -72, -73, -74, -75, -76, -77, -78, -79, -80, -81, -82, -83, -84, -85, -86, -87, -88, -89, -90, -91, -92, -93, -94, -95, -96, -97, -98, -99, -100, -101, -102, -103, -104, -105, -106, -107, -108, -109, -110, -111, -112, -113, -114, -115, -116, -117, -118, -119, -120, -121, -122, -123, -124, -125, -126, -127, -128, -129, -130, -131, -132, -133, -134, -135, -136, -137, -138, -139, -140, -141, -142, -143, -144, -145, -146, -147, -148, -149), .Tsp = c(4, 153, 1), class = 'ts'));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs7_25211be9b225f212b2c567aa23f96ae0() {
+ assertEval("argv <- list(structure(c(3.5527136788005e-15+2.4168586625265e-16i, 2.4980018054066e-16-2.28189378671807e-16i, 0-6.89814774385614e-17i, 0-1.77454768520688e-17i), .Dim = c(2L, 2L)));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs8_9a62d3bd8e4044a39df40e320957aacb() {
+ assertEval("argv <- list(1e+07);abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinabs_testabs9_c51f8b5e2b9ab2909e26c0abdecd1518() {
+ assertEval("argv <- list(structure(c(56.8666666666667, 52.8833333333333), .Dim = 2L, .Dimnames = structure(list(K = c('0', '1')), .Names = 'K')));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinacos_testacos1_dca730e2e59bcd0e606ec7502fe61a31() {
+ assertEval("argv <- list(c(0.999950000416665, 0.999800006666578, 0.999550033748988, 0.999200106660978, 0.998750260394966, 0.998200539935204, 0.99755100025328, 0.996801706302619, 0.995952733011994, 0.995004165278026, 0.993956097956697, 0.992808635853866, 0.991561893714788, 0.990215996212637, 0.988771077936042, 0.987227283375627, 0.985584766909561, 0.983843692788121, 0.98200423511727, 0.980066577841242, 0.978030914724148, 0.975897449330606, 0.973666395005375, 0.97133797485203, 0.968912421710645, 0.966389978134513, 0.963770896365891, 0.961055438310771, 0.958243875512697, 0.955336489125606, 0.952333569885713, 0.949235418082441, 0.946042343528387, 0.942754665528346, 0.939372712847379, 0.935896823677935, 0.932327345606034, 0.92866463557651, 0.924909059857313, 0.921060994002885, 0.917120822816605, 0.913088940312308, 0.908965749674885, 0.904751663219963, 0.900447102352677, 0.896052497525525, 0.891568288195329, 0.886994922779284, 0.882332858610121, 0.877582561890373, 0.872744507645751, 0.86781917967765, 0.862807070514761, 0.857708681363824, 0.852524522059506, 0.847255111013416, 0.841900975162269, 0.836462649915187, 0.830940679100164, 0.825335614909678, 0.819648017845479, 0.813878456662534, 0.808027508312152, 0.802095757884293, 0.796083798549056, 0.789992231497365, 0.783821665880849, 0.777572718750928, 0.771246014997107, 0.764842187284488, 0.758361875990508, 0.751805729140895, 0.74517440234487, 0.738468558729588, 0.731688868873821, 0.724836010740905, 0.717910669610943, 0.710913538012277, 0.703845315652236, 0.696706709347165, 0.689498432951747, 0.682221207287614, 0.674875760071267, 0.667462825841308, 0.659983145884982, 0.652437468164052, 0.644826547240001, 0.63715114419858, 0.629412026573697, 0.621609968270664, 0.613745749488812, 0.605820156643463, 0.597833982287298, 0.589788025031098, 0.581683089463884, 0.573519986072457, 0.565299531160354, 0.557022546766217, 0.548689860581588));acos(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinacos_testacos2_c1f5aef3c39bb3074ce27fda997574df() {
+ assertEval("argv <- list(1.54308063481524+0i);acos(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinacos_testacos3_8836442fa650e9d601a948339bcfce62() {
+ assertEval("argv <- list(c(-0.7104065636993+1i, 0.25688370915653+1i, -0.24669187846237+1i, -0.34754259939773+1i, -0.95161856726502+1i, -0.04502772480892+1i, -0.78490446945708+1i, -1.66794193658814+1i, -0.38022652028776+1i, 0.91899660906077+1i, -0.57534696260839+1i, 0.60796432222503+1i, -1.61788270828916+1i, -0.05556196552454+1i, 0.51940720394346+1i, 0.30115336216671+1i, 0.10567619414894+1i, -0.64070600830538+1i, -0.84970434603358+1i, -1.02412879060491+1i, 0.11764659710013+1i, -0.9474746141848+1i, -0.49055744370067+1i, -0.25609219219825+1i, 1.84386200523221+1i, -0.65194990169546+1i, 0.23538657228486+1i, 0.07796084956371+1i, -0.96185663413013+1i, -0.0713080861236+1i, 1.44455085842335+1i, 0.45150405307921+1i, 0.04123292199294+1i, -0.42249683233962+1i, -2.05324722154052+1i, 1.13133721341418+1i, -1.46064007092482+1i, 0.73994751087733+1i, 1.90910356921748+1i, -1.4438931609718+1i, 0.70178433537471+1i, -0.26219748940247+1i, -1.57214415914549+1i, -1.51466765378175+1i, -1.60153617357459+1i, -0.5309065221703+1i, -1.4617555849959+1i, 0.68791677297583+1i, 2.10010894052567+1i, -1.28703047603518+1i, 0.78773884747518+1i, 0.76904224100091+1i, 0.33220257895012+1i, -1.00837660827701+1i, -0.11945260663066+1i, -0.28039533517025+1i, 0.56298953322048+1i, -0.37243875610383+1i, 0.97697338668562+1i, -0.37458085776701+1i, 1.05271146557933+1i, -1.04917700666607+1i, -1.26015524475811+1i, 3.2410399349424+1i, -0.41685758816043+1i, 0.29822759154072+1i, 0.63656967403385+1i, -0.48378062570874+1i, 0.51686204431361+1i, 0.36896452738509+1i, -0.21538050764169+1i, 0.06529303352532+1i, -0.03406725373846+1i, 2.12845189901618+1i, -0.74133609627283+1i, -1.09599626707466+1i, 0.03778839917108+1i, 0.31048074944314+1i, 0.43652347891018+1i, -0.45836533271111+1i, -1.06332613397119+1i, 1.26318517608949+1i, -0.34965038795355+1i, -0.86551286265337+1i, -0.2362795689411+1i, -0.19717589434855+1i, 1.10992028971364+1i, 0.0847372921972+1i, 0.75405378518452+1i, -0.49929201717226+1i, 0.2144453095816+1i, -0.32468591149083+1i, 0.09458352817357+1i, -0.89536335797754+1i, -1.31080153332797+1i, 1.99721338474797+1i, 0.60070882367242+1i, -1.25127136162494+1i, -0.61116591668042+1i, -1.18548008459731+1i));acos(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinacos_testacos4_1e8250c2066169e674352f3bf441b007() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));acos(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinacosh_testacosh1_6417e4c770e5dd9138567c123e915f2c() {
+ assertEval("argv <- list(FALSE);acosh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinacosh_testacosh2_34cde32b8509e28f6d93d1c99ffa1b12() {
+ assertEval("argv <- list(logical(0));acosh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinacosh_testacosh3_1812134e9fa54f36f09013a65afa2c65() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));acosh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinacosh_testacosh4_b350d6aea0039cca836edd272bf1a418() {
+ assertEval("argv <- list(c(0+2i, 0.0001+2i, 0-2i, 0-2.0001i));acosh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinacosh_testacosh5_c0722300f2990f4da52ef2da956f429b() {
+ assertEval("argv <- list(c(10.0676619957778, 9.77014619112734, 9.48151278613522, 9.20149937354487, 8.92985138285227, 8.66632184886646, 8.41067118718443, 8.16266697637608, 7.92208374668136, 7.68870277502741, 7.46231188617936, 7.242705259844, 7.02968324355098, 6.82305217114139, 6.62262418669875, 6.42821707376226, 6.23965408966708, 6.05676380486112, 5.87937994705209, 5.70734125004322, 5.54049130712027, 5.37867842885638, 5.22175550520566, 5.06957987175999, 4.92201318004762, 4.77892127175541, 4.64017405676061, 4.50564539486112, 4.3752129810968, 4.24875823455752, 4.12616619057689, 4.00732539621364, 3.89212780892567, 3.78046869834458, 3.67224655106143, 3.56736297833717, 3.46572262665382, 3.36723309102506, 3.27180483098748, 3.17935108919603, 3.0897878125497, 3.00303357577581, 2.91900950740325, 2.83763921805753, 2.75884873101238, 2.68256641493482, 2.60872291876243, 2.53725110865378, 2.46808600695458, 2.40116473312406, 2.33642644656803, 2.27381229132637, 2.21326534256499, 2.1547305548233, 2.09815471197041, 2.04348637882435, 1.99067585439045, 1.93967512667636, 1.89043782904258, 1.84291919804882, 1.7970760327579, 1.75286665546022, 1.71025087378301, 1.66918994414995, 1.62964653655797, 1.59158470063915, 1.55496983297695, 1.51976864564695, 1.48594913595357, 1.45348055733525, 1.42233339141161, 1.39247932114721, 1.36389120510748, 1.33654305278346, 1.31041000096287, 1.28546829112601, 1.26169524784609, 1.23906925817407, 1.21756975198963, 1.19717718330002, 1.17787301247016, 1.15963968936754, 1.14246063740672, 1.12632023847902, 1.11120381875343, 1.09709763533618, 1.0839888637765, 1.07186558640748, 1.06071678151125, 1.05053231329877, 1.04130292269496, 1.033020218921, 1.02567667186589, 1.01926560524059, 1.01378119050839, 1.00921844158588, 1.00557321031002, 1.00284218266684, 1.00102287577853, 1.00011363564622, 1.00011363564622, 1.00102287577853, 1.00284218266684, 1.00557321031002, 1.00921844158588, 1.01378119050839, 1.01926560524059, 1.02567667186589, 1.033020218921, 1.04130292269496, 1.05053231329877, 1.06071678151125, 1.07186558640748, 1.0839888637765, 1.09709763533618, 1.11120381875343, 1.12632023847902, 1.14246063740672, 1.15963968936754, 1.17787301247016, 1.19717718330002, 1.21756975198963, 1.23906925817407, 1.26169524784609, 1.28546829112601, 1.31041000096287, 1.33654305278346, 1.36389120510748, 1.39247932114721, 1.42233339141161, 1.45348055733525, 1.48594913595357, 1.51976864564695, 1.55496983297695, 1.59158470063915, 1.62964653655796, 1.66918994414995, 1.71025087378301, 1.75286665546022, 1.7970760327579, 1.84291919804882, 1.89043782904258, 1.93967512667636, 1.99067585439045, 2.04348637882435, 2.09815471197041, 2.1547305548233, 2.21326534256499, 2.27381229132637, 2.33642644656803, 2.40116473312406, 2.46808600695458, 2.53725110865378, 2.60872291876243, 2.68256641493482, 2.75884873101238, 2.83763921805753, 2.91900950740325, 3.00303357577581, 3.0897878125497, 3.17935108919602, 3.27180483098748, 3.36723309102506, 3.46572262665381, 3.56736297833717, 3.67224655106143, 3.78046869834458, 3.89212780892567, 4.00732539621364, 4.12616619057689, 4.24875823455752, 4.3752129810968, 4.50564539486111, 4.64017405676061, 4.77892127175541, 4.92201318004762, 5.06957987175999, 5.22175550520565, 5.37867842885638, 5.54049130712027, 5.70734125004322, 5.87937994705209, 6.05676380486112, 6.23965408966708, 6.42821707376226, 6.62262418669875, 6.82305217114139, 7.02968324355097, 7.242705259844, 7.46231188617936, 7.68870277502741, 7.92208374668136, 8.16266697637608, 8.41067118718443, 8.66632184886646, 8.92985138285226, 9.20149937354487, 9.48151278613522, 9.77014619112734, 10.0676619957778));acosh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinadist_testadist1_20f330e1a3c56749a78545125e8a8d9c() {
+ assertEval("argv <- list(list(c(107L, 105L, 116L, 116L, 101L, 110L)), list(c(115L, 105L, 116L, 116L, 105L, 110L, 103L)), structure(c(1, 1, 1), .Names = c('insertions', 'deletions', 'substitutions')), FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(adist(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinadist_testadist2_01d983ea87a1f9111ebf0d1d90692dc2() {
+ assertEval("argv <- list(list(c(107L, 105L, 116L, 116L, 101L, 110L), c(115L, 105L, 116L, 116L, 105L, 110L, 103L)), list(c(107L, 105L, 116L, 116L, 101L, 110L), c(115L, 105L, 116L, 116L, 105L, 110L, 103L)), structure(c(1, 1, 1), .Names = c('insertions', 'deletions', 'substitutions')), TRUE, TRUE, FALSE, FALSE, FALSE); .Internal(adist(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinadist_testadist3_80e43d8a43e882613fad25fd88d3d6e1() {
+ assertEval("argv <- list('lasy', '1 lazy 2', c(1L, 1L, 1L), FALSE, TRUE, TRUE, FALSE, FALSE); .Internal(adist(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinadist_testadist4_5cb4c371cce1ef3c985da481867d9904() {
+ assertEval("argv <- list(list(), list(), structure(c(1, 1, 1), .Names = c('insertions', 'deletions', 'substitutions')), FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(adist(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinagrep_testagrep1_522aae7611e04f2ba59151cf01e45992() {
+ assertEval("argv <- list('x86_64-linux-gnu', 'x86_64-linux-gnu', FALSE, FALSE, c(1L, 1L, 1L), c(0.1, NA, NA, NA, NA), FALSE, TRUE); .Internal(agrep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinagrep_testagrep3_33d528b314749f42953d0f4bac45d56b() {
+ assertEval("argv <- list('lasy', c(' 1 lazy 2', '1 lasy 2'), FALSE, FALSE, c(1L, 1L, 1L), structure(c(NA, 0.1, 0.1, 0, 0.1), .Names = c('cost', 'insertions', 'deletions', 'substitutions', 'all')), FALSE, TRUE); .Internal(agrep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinagrep_testagrep4_380a2fc13b70e43d0e289a5420f8149c() {
+ assertEval("argv <- list('laysy', c('1 lazy', '1', '1 LAZY'), FALSE, TRUE, c(1L, 1L, 1L), c(2, NA, NA, NA, NA), FALSE, TRUE); .Internal(agrep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinagrep_testagrep5_9c364500a91a276278593a8605406fea() {
+ assertEval("argv <- list('laysy', c('1 lazy', '1', '1 LAZY'), TRUE, FALSE, c(1L, 1L, 1L), c(2, NA, NA, NA, NA), FALSE, TRUE); .Internal(agrep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinall_testall1_d4e03f5f091e43597610c779529a0edb() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE));all(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinall_testall10_79f23cea4ff6a272d5b2c805c8c4a052() {
+ assertEval("argv <- list(structure(1L, .Names = 'show'));all(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinall_testall11_4577ed9b738ee615b4b69a89f8ee9956() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = 2:3, .Dimnames = list(NULL, c('a', 'b', 'c'))));all(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinall_testall12_56c73c6592eeba0cc82875049fbd8c9f() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, FALSE, TRUE, TRUE), .Tsp = c(1, 5, 1), class = 'ts'));all(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinall_testall14_7aecc62d73f562a89c09e0cb1097e506() {
+ assertEval("argv <- list(NA);all(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinall_testall15_cd49f151b42f0ead5e1182e4f311d78d() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));all(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinall_testall2_f8a73045232379b15a229692f8ba934d() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE), .Names = c('x', 'value')));all(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinall_testall3_4230759bcd3e2b5fecbe340fe103917a() {
+ assertEval("argv <- list(c(1, 1, 3, 1, 1, 3, 3, 3, 3), FALSE, NULL);all(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinall_testall4_2f46bb1732b004009986f99a5653f807() {
+ assertEval("argv <- list(structure(c(0, 0, 3, 0, 0, 0, 1, 0, 0, 2, 2, 3.2, -1, 1, 3.2, 4, 3, 0, 0, 0, 0, 3.2, 0, 0, 3.2, 0, 202, 0, 0, 0, 241, 0, 243, 0, 0), .Dim = c(5L, 7L), .Dimnames = list(c('r1', 'r2', 'r3', 'r4', 'r5'), c('c1', 'c2', 'c3', 'c4', 'c5', 'c6', 'c7'))));all(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinall_testall5_517faf97469b46d6f2993c8b902575db() {
+ assertEval("argv <- list(logical(0));all(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinall_testall6_e6f79c66dc28cd91fd895839af406517() {
+ assertEval("all( );");
+ }
+
+ @Test
+ public void TestrGenBuiltinall_testall7_81aaf5aaf8ce3b4a323e3d92c139dd66() {
+ assertEval("argv <- list(structure(FALSE, .Tsp = c(1, 1, 1), class = 'ts'));all(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinall_testall8_2fd08035a058aae1cdb885c0b407b9bf() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, FALSE), .Tsp = c(-1, 3, 1), class = 'ts'));all(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinall_testall9_d211f0e61ee6fef8feaee7d9b9ebe314() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE), .Names = c('+ Temp', '<none>', '+ Soft', '- M.user')));all(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinallnames_testallnames1_91d2bc6274a765dc9039b8316f7baaa7() {
+ assertEval("argv <- list(quote(y ~ ((g1) * exp((log(g2/g1)) * (1 - exp(-k * (x - Ta)))/(1 - exp(-k * (Tb - Ta)))))), FALSE, -1L, TRUE); .Internal(all.names(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinallnames_testallnames2_37e29563eceee41b9f93dab8ef411e65() {
+ assertEval("argv <- list(logical(0), logical(0), -1L, TRUE); .Internal(all.names(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinallnames_testallnames3_a741436ee90e9dc24d0f9b448e681420() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), TRUE, -1L, FALSE); .Internal(all.names(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinallnames_testallnames4_8502c9c9f94dcf67fc2422000a687a70() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), -1L, FALSE); .Internal(all.names(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinallnames_testallnames5_b7e1ba66ca7346427de4997ca58ae852() {
+ assertEval("argv <- list(0.1, FALSE, -1L, TRUE); .Internal(all.names(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinany_testany1_9dff5f5381db45447427434206acf0c5() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Tsp = c(1, 101, 1), class = 'ts'));any(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinany_testany10_e804db49f5ce242caeb1084c9bbd4305() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE), .Dim = 3L, .Dimnames = structure(list(c('1', '2', NA)), .Names = '')));any(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinany_testany11_a84244cd31d5e70e7655de7bb332969f() {
+ assertEval("argv <- list(logical(0));any(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinany_testany12_3a9a8ae5da75e95339616b69c3fd0fc2() {
+ assertEval("argv <- list(structure(FALSE, .Dim = c(1L, 1L)));any(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinany_testany13_a2f43c0e0dab43170afe57feb1fdbbb6() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 0L)));any(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinany_testany14_07c8fc8a98e515b17d11efb665121835() {
+ assertEval("argv <- list(c(FALSE, TRUE, FALSE));any(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinany_testany15_17d1ea906d0917c8fb76ff7f15b3baa6() {
+ assertEval("argv <- list(structure(c(NA, NA, NA, NA, NA, NA, NA, NA), .Names = c('base', 'utils', 'methods', 'grDevices', 'graphics', 'stats', 'lapack', 'R_X11')));any(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinany_testany2_85d5ac038620bcc76ae08d56e4d9046f() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE), .Dim = 3L, .Dimnames = list(c('A', 'B', 'C'))));any(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinany_testany3_e713cc6fd53e8de21071410ca9506724() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Tsp = c(1949, 1960.91666666667, 12), class = 'ts'));any(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinany_testany4_536f2c741ba0f7e276790c10f5315f85() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE), .Names = c('1', '2', '3', '4', '5'), .Dim = 5L, .Dimnames = list(c('1', '2', '3', '4', '5'))));any(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinany_testany5_34add2b2779dda21f8751fdf1b5df823() {
+ assertEval("argv <- list(structure(c(14, 2, 0, 2, -7, 0), .Dim = c(3L, 2L)));any(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinany_testany6_be999532b3b9e0ef7e597b08d4584662() {
+ assertEval("any( );");
+ }
+
+ @Test
+ public void TestrGenBuiltinany_testany7_5dcc6c174ae2a9f73a94ef0033afc0fc() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = 3:4, .Dimnames = structure(list(x1 = c('a', 'b', 'c'), x2 = c('a', 'b', 'c', NA)), .Names = c('x1', 'x2'))));any(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinany_testany8_ae2c6f3aa133dd43f68d8e197f8c6329() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(4L, 3L), .Dimnames = list(c('<none>', 'Hair:Eye', 'Hair:Sex', 'Eye:Sex'), c('Df', 'Deviance', 'AIC'))));any(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinany_testany9_76fe26b149a33c833befa948073b34a7() {
+ assertEval("argv <- list(c(1L, 1L, 1L, 1L, 1L));any(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinanyDuplicated_testanyDuplicated1_3111d28a39edb29becc03b5cccbd6ccd() {
+ assertEval("argv <- list(c('U', 'V'), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinanyDuplicated_testanyDuplicated10_577cb8bb232d56673692a181b4c1fe62() {
+ assertEval("argv <- list(c(12784, 12874, 12965, 13057, 13149, 13239, 13330, 13422, 13514, 13604, 13695, 13787, 13879, 13970, 14061, 14153, 14245, 14335), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinanyDuplicated_testanyDuplicated11_87522c74d0a74712e3925c82acf53d84() {
+ assertEval("argv <- list(structure(c('A', NA), .Names = c('1', '3')), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinanyDuplicated_testanyDuplicated12_38cf3ea7b69177bcec6434c5ae1bb7a0() {
+ assertEval("argv <- list(c('A', NA), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinanyDuplicated_testanyDuplicated13_3aef2a79ecc1875175c05b31a80d3d60() {
+ assertEval("argv <- list(c(12784, 13149, 13514, 13879, 14245, 14610), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinanyDuplicated_testanyDuplicated14_9f24db37f658b1b16e06ccc66c618359() {
+ assertEval("argv <- list(character(0), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinanyDuplicated_testanyDuplicated15_7594414cedee69465e753bf3fdeaa387() {
+ assertEval("argv <- list(c(1L, 1L, 1L, 1L, 1L), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinanyDuplicated_testanyDuplicated16_58537887c64549359a8a9eb3340717e7() {
+ assertEval("argv <- list(c('1', '4', '6', '9', '11', NA, '15', '16', '17', '20', '21', '23', '29', '41', '45', '48', '55', '62', '63', '65', '70', '74', '82', '83', '85', '86', '92', '93', '97', '98', '99', '103', '104', '106', '108', '109', '112', '113', '120', '126', '127', '128', '132', '139', '142', '145', '148', '151', '159', '164', '165', '169', '171', '173', '175', '189', '191', '193', '194', '195', '198', '200', '202', '209', '212', '213', '215', '216', '221', '223', '224', '227'), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinanyDuplicated_testanyDuplicated2_3116dc305c8bed111494aaa7bfb96764() {
+ assertEval("argv <- list(c('refClassA', 'envRefClass', '.environment', 'refClass', 'environment', 'refObject'), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinanyDuplicated_testanyDuplicated3_da2bc2448e445f5261ef4b6bc38bfcc8() {
+ assertEval("argv <- list(c(0, 0.00165722279589047, 0.00331444559178095, 0.00497166838767142, 0.00662889118356189, 0.00828611397945236, 0.00994333677534284, 0.0116005595712333, 0.0132577823671238, 0.0149150051630143, 0.0165722279589047, 0.0182294507547952, 0.0198866735506857, 0.0215438963465761, 0.0232011191424666, 0.0248583419383571, 0.0265155647342476, 0.028172787530138, 0.0298300103260285, 0.031487233121919, 0.0331444559178094, 0.0348016787136999, 0.0364589015095904, 0.0381161243054809, 0.0397733471013713, 0.0414305698972618, 0.0430877926931523, 0.0447450154890428, 0.0464022382849332, 0.0480594610808237, 0.0497166838767142, 0.0513739066726046, 0.0530311294684951, 0.0546883522643856, 0.0563455750602761, 0.0580027978561665, 0.059660020652057, 0.0613172434479475, 0.062974466243838, 0.0646316890397284, 0.0662889118356189, 0.0679461346315094, 0.0696033574273998, 0.0712605802232903, 0.0729178030191808, 0.0745750258150713, 0.0762322486109617, 0.0778894714068522, 0.0795466942027427, 0.0812039169986331, 0.0828611397945236, 0.0845183625904141, 0.0861755853863046, 0.087832808182195, 0.0894900309780855, 0.091147253773976, 0.0928044765698665, 0.0944616993657569, 0.0961189221616474, 0.0977761449575379, 0.0994333677534284, 0.101090590549319, 0.102747813345209, 0.1044050361411, 0.10606225893699, 0.107719481732881, 0.109376704528771, 0.111033927324662, 0.112691150120552, 0.114348372916443, 0.116005595712333, 0.117662818508224, 0.119320041304114, 0.120977264100004, 0.122634486895895, 0.124291709691785, 0.125948932487676, 0.127606155283566, 0.129263378079457, 0.130920600875347, 0.132577823671238, 0.134235046467128, 0.135892269263019, 0.137549492058909, 0.1392067148548, 0.14086393765069, 0.142521160446581, 0.144178383242471, 0.145835606038362, 0.147492828834252, 0.149150051630143, 0.150807274426033, 0.152464497221923, 0.154121720017814, 0.155778942813704, 0.157436165609595, 0.159093388405485, 0.160750611201376, 0.162407833997266, 0.164065056793157, 0.165722279589047, 0.167379502384938, 0.169036725180828, 0.170693947976719, 0.172351170772609, 0.1740083935685, 0.17566561636439, 0.177322839160281, 0.178980061956171, 0.180637284752062, 0.182294507547952, 0.183951730343842, 0.185608953139733, 0.187266175935623, 0.188923398731514, 0.190580621527404, 0.192237844323295, 0.193895067119185, 0.195552289915076, 0.197209512710966, 0.198866735506857, 0.200523958302747, 0.202181181098638, 0.203838403894528, 0.205495626690419, 0.207152849486309, 0.2088100722822, 0.21046729507809, 0.21212451787398, 0.213781740669871, 0.215438963465761, 0.217096186261652, 0.218753409057542, 0.220410631853433, 0.222067854649323, 0.223725077445214, 0.225382300241104, 0.227039523036995, 0.228696745832885, 0.230353968628776, 0.232011191424666, 0.233668414220557, 0.235325637016447, 0.236982859812338, 0.238640082608228, 0.240297305404119, 0.241954528200009, 0.243611750995899, 0.24526897379179, 0.24692619658768, 0.248583419383571, 0.250240642179461, 0.251897864975352, 0.253555087771242, 0.255212310567133, 0.256869533363023, 0.258526756158914, 0.260183978954804, 0.261841201750695, 0.263498424546585, 0.265155647342476, 0.266812870138366, 0.268470092934257, 0.270127315730147, 0.271784538526038, 0.273441761321928, 0.275098984117818, 0.276756206913709, 0.278413429709599, 0.28007065250549, 0.28172787530138, 0.283385098097271, 0.285042320893161, 0.286699543689052, 0.288356766484942, 0.290013989280833, 0.291671212076723, 0.293328434872614, 0.294985657668504, 0.296642880464395, 0.298300103260285, 0.299957326056176, 0.301614548852066, 0.303271771647956, 0.304928994443847, 0.306586217239737, 0.308243440035628, 0.309900662831518, 0.311557885627409, 0.313215108423299, 0.31487233121919, 0.31652955401508, 0.318186776810971, 0.319843999606861, 0.321501222402752, 0.323158445198642, 0.324815667994533, 0.326472890790423, 0.328130113586314, 0.329787336382204, 0.331444559178095, 0.333101781973985, 0.334759004769875, 0.336416227565766, 0.338073450361656, 0.339730673157547, 0.341387895953437, 0.343045118749328, 0.344702341545218, 0.346359564341109, 0.348016787136999, 0.34967400993289, 0.35133123272878, 0.352988455524671, 0.354645678320561, 0.356302901116452, 0.357960123912342, 0.359617346708233, 0.361274569504123, 0.362931792300013, 0.364589015095904, 0.366246237891794, 0.367903460687685, 0.369560683483575, 0.371217906279466, 0.372875129075356, 0.374532351871247, 0.376189574667137, 0.377846797463028, 0.379504020258918, 0.381161243054809, 0.382818465850699, 0.38447568864659, 0.38613291144248, 0.387790134238371, 0.389447357034261, 0.391104579830152, 0.392761802626042, 0.394419025421932, 0.396076248217823, 0.397733471013713, 0.399390693809604, 0.401047916605494, 0.402705139401385, 0.404362362197275, 0.406019584993166, 0.407676807789056, 0.409334030584947, 0.410991253380837, 0.412648476176728, 0.414305698972618, 0.415962921768509, 0.417620144564399, 0.41927736736029, 0.42093459015618, 0.42259181295207, 0.424249035747961), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinanyDuplicated_testanyDuplicated4_8d7d2d2f2c78051f1411781cfd0ea8a5() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinanyDuplicated_testanyDuplicated5_9492f43b8698c19b9518f1d84c729c41() {
+ assertEval("argv <- list(c(NA, 9L, 13L), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinanyDuplicated_testanyDuplicated6_b626365d229581a047908d500948906f() {
+ assertEval("argv <- list(structure(c('5.1\r3.5\r1.4\r0.2', '4.9\r3\r1.4\r0.2', '4.7\r3.2\r1.3\r0.2', '4.6\r3.1\r1.5\r0.2', '5\r3.6\r1.4\r0.2', '5.4\r3.9\r1.7\r0.4', '4.6\r3.4\r1.4\r0.3', '5\r3.4\r1.5\r0.2', '4.4\r2.9\r1.4\r0.2', '4.9\r3.1\r1.5\r0.1', '5.4\r3.7\r1.5\r0.2', '4.8\r3.4\r1.6\r0.2', '4.8\r3\r1.4\r0.1', '4.3\r3\r1.1\r0.1', '5.8\r4\r1.2\r0.2', '5.7\r4.4\r1.5\r0.4', '5.4\r3.9\r1.3\r0.4', '5.1\r3.5\r1.4\r0.3', '5.7\r3.8\r1.7\r0.3', '5.1\r3.8\r1.5\r0.3', '5.4\r3.4\r1.7\r0.2', '5.1\r3.7\r1.5\r0.4', '4.6\r3.6\r1\r0.2', '5.1\r3.3\r1.7\r0.5', '4.8\r3.4\r1.9\r0.2', '5\r3\r1.6\r0.2', '5\r3.4\r1.6\r0.4', '5.2\r3.5\r1.5\r0.2', '5.2\r3.4\r1.4\r0.2', '4.7\r3.2\r1.6\r0.2', '4.8\r3.1\r1.6\r0.2', '5.4\r3.4\r1.5\r0.4', '5.2\r4.1\r1.5\r0.1', '5.5\r4.2\r1.4\r0.2', '4.9\r3.1\r1.5\r0.2', '5\r3.2\r1.2\r0.2', '5.5\r3.5\r1.3\r0.2', '4.9\r3.6\r1.4\r0.1', '4.4\r3\r1.3\r0.2', '5.1\r3.4\r1.5\r0.2', '5\r3.5\r1.3\r0.3', '4.5\r2.3\r1.3\r0.3', '4.4\r3.2\r1.3\r0.2', '5\r3.5\r1.6\r0.6', '5.1\r3.8\r1.9\r0.4', '4.8\r3\r1.4\r0.3', '5.1\r3.8\r1.6\r0.2', '4.6\r3.2\r1.4\r0.2', '5.3\r3.7\r1.5\r0.2', '5\r3.3\r1.4\r0.2', '7\r3.2\r4.7\r1.4', '6.4\r3.2\r4.5\r1.5', '6.9\r3.1\r4.9\r1.5', '5.5\r2.3\r4\r1.3', '6.5\r2.8\r4.6\r1.5', '5.7\r2.8\r4.5\r1.3', '6.3\r3.3\r4.7\r1.6', '4.9\r2.4\r3.3\r1', '6.6\r2.9\r4.6\r1.3', '5.2\r2.7\r3.9\r1.4', '5\r2\r3.5\r1', '5.9\r3\r4.2\r1.5', '6\r2.2\r4\r1', '6.1\r2.9\r4.7\r1.4', '5.6\r2.9\r3.6\r1.3', '6.7\r3.1\r4.4\r1.4', '5.6\r3\r4.5\r1.5', '5.8\r2.7\r4.1\r1', '6.2\r2.2\r4.5\r1.5', '5.6\r2.5\r3.9\r1.1', '5.9\r3.2\r4.8\r1.8', '6.1\r2.8\r4\r1.3', '6.3\r2.5\r4.9\r1.5', '6.1\r2.8\r4.7\r1.2', '6.4\r2.9\r4.3\r1.3', '6.6\r3\r4.4\r1.4', '6.8\r2.8\r4.8\r1.4', '6.7\r3\r5\r1.7', '6\r2.9\r4.5\r1.5', '5.7\r2.6\r3.5\r1', '5.5\r2.4\r3.8\r1.1', '5.5\r2.4\r3.7\r1', '5.8\r2.7\r3.9\r1.2', '6\r2.7\r5.1\r1.6', '5.4\r3\r4.5\r1.5', '6\r3.4\r4.5\r1.6', '6.7\r3.1\r4.7\r1.5', '6.3\r2.3\r4.4\r1.3', '5.6\r3\r4.1\r1.3', '5.5\r2.5\r4\r1.3', '5.5\r2.6\r4.4\r1.2', '6.1\r3\r4.6\r1.4', '5.8\r2.6\r4\r1.2', '5\r2.3\r3.3\r1', '5.6\r2.7\r4.2\r1.3', '5.7\r3\r4.2\r1.2', '5.7\r2.9\r4.2\r1.3', '6.2\r2.9\r4.3\r1.3', '5.1\r2.5\r3\r1.1', '5.7\r2.8\r4.1\r1.3', '6.3\r3.3\r6\r2.5', '5.8\r2.7\r5.1\r1.9', '7.1\r3\r5.9\r2.1', '6.3\r2.9\r5.6\r1.8', '6.5\r3\r5.8\r2.2', '7.6\r3\r6.6\r2.1', '4.9\r2.5\r4.5\r1.7', '7.3\r2.9\r6.3\r1.8', '6.7\r2.5\r5.8\r1.8', '7.2\r3.6\r6.1\r2.5', '6.5\r3.2\r5.1\r2', '6.4\r2.7\r5.3\r1.9', '6.8\r3\r5.5\r2.1', '5.7\r2.5\r5\r2', '5.8\r2.8\r5.1\r2.4', '6.4\r3.2\r5.3\r2.3', '6.5\r3\r5.5\r1.8', '7.7\r3.8\r6.7\r2.2', '7.7\r2.6\r6.9\r2.3', '6\r2.2\r5\r1.5', '6.9\r3.2\r5.7\r2.3', '5.6\r2.8\r4.9\r2', '7.7\r2.8\r6.7\r2', '6.3\r2.7\r4.9\r1.8', '6.7\r3.3\r5.7\r2.1', '7.2\r3.2\r6\r1.8', '6.2\r2.8\r4.8\r1.8', '6.1\r3\r4.9\r1.8', '6.4\r2.8\r5.6\r2.1', '7.2\r3\r5.8\r1.6', '7.4\r2.8\r6.1\r1.9', '7.9\r3.8\r6.4\r2', '6.4\r2.8\r5.6\r2.2', '6.3\r2.8\r5.1\r1.5', '6.1\r2.6\r5.6\r1.4', '7.7\r3\r6.1\r2.3', '6.3\r3.4\r5.6\r2.4', '6.4\r3.1\r5.5\r1.8', '6\r3\r4.8\r1.8', '6.9\r3.1\r5.4\r2.1', '6.7\r3.1\r5.6\r2.4', '6.9\r3.1\r5.1\r2.3', '5.8\r2.7\r5.1\r1.9', '6.8\r3.2\r5.9\r2.3', '6.7\r3.3\r5.7\r2.5', '6.7\r3\r5.2\r2.3', '6.3\r2.5\r5\r1.9', '6.5\r3\r5.2\r2', '6.2\r3.4\r5.4\r2.3', '5.9\r3\r5.1\r1.8'), .Dim = c(50L, 3L), .Dimnames = list(NULL, c('Setosa', 'Versicolor', 'Virginica'))), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinanyDuplicated_testanyDuplicated7_5eff61780593c0765e281b2683906553() {
+ assertEval("argv <- list(c(-6, -3, 0, 3, 6, 9, 12, 15), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinanyDuplicated_testanyDuplicated8_a89c6f7b004baed832ea9b696d33e29b() {
+ assertEval("argv <- list(c(9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 1L, 2L, 3L, 4L, 5L, 3L, 4L, 5L, 6L, 7L, 0L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L), FALSE, TRUE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinanyDuplicated_testanyDuplicated9_65fcf4553f84fc3ebcf556ac8c264fa4() {
+ assertEval("argv <- list(c(-1.001, -1, -0.999), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm1_8da4b8d9cb3771d63c9ea2e0aa5b4673() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(5L, 14L), .Dimnames = list(c('#ifdef', '\\Sexpr', 'build', 'install', 'render'), NULL)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm10_37e09863e2671c0d1f8ec9eff515bfb0() {
+ assertEval("argv <- list(structure(c(32, 53, 10, 3, 11, 50, 10, 30, 10, 25, 7, 5, 3, 15, 7, 8, 36, 66, 16, 4, 9, 34, 7, 64, 5, 29, 7, 5, 2, 14, 7, 8), .Dim = c(4L, 4L, 2L), .Dimnames = structure(list(Hair = c('Black', 'Brown', 'Red', 'Blond'), Eye = c('Brown', 'Blue', 'Hazel', 'Green'), Sex = c('Male', 'Female')), .Names = c('Hair', 'Eye', 'Sex')), class = 'table'), c(3L, 1L, 2L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm11_3868cd8d06b2ea879d5f457703462036() {
+ assertEval("argv <- list(structure(list(3, 3, 3, 3, 3, 'fred'), .Dim = 2:3), NULL, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm12_341884e85b3bb1579dbfe444c4f1e3c3() {
+ assertEval("argv <- list(structure(c(1, 0, -1, 0.5, -0.5, NA, NA, NA, 0), .Dim = c(3L, 3L)), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm13_140c526c0f2d66f1a82fc644df943648() {
+ assertEval("argv <- list(structure(c(' Null deviance:', 'Residual deviance:', '3.118557', '0.012672', ' on', ' on', '8', '7', ' degrees of freedom\n', ' degrees of freedom\n'), .Dim = c(2L, 5L), .Dimnames = list(c('null.deviance', 'deviance'), NULL)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm14_59178f949f0d55e4cc68c4644ac6d9ed() {
+ assertEval("argv <- list(structure(character(0), .Dim = c(3L, 0L, 2L)), 1:3, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm15_eb1bd69290feb0fdb45126450f7cd867() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(5L, 20L), .Dimnames = list(c('#ifdef', '\\Sexpr', 'build', 'install', 'render'), NULL)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm16_a579fb8cc6bd8d6e2935c7b4d1d100e4() {
+ assertEval("argv <- list(structure(c(0.537261763078809+0i, 0.305061935059249+0.040985454461732i, 0.320062315956695-0.375563080684187i, 0.339383913939873+0.23302799386284i, -0.286918674221019+0.348301421162371i, 0.333809303929022+0i, -0.026432475532662-0.117484096686937i, 0.337897321317337+0.476009430788475i, -0.104431629205049-0.683873316213355i, -0.076600108155357+0.221030150757328i, 0.0283375771475593+0i, -0.439625821284244+0.725562264268455i, -0.093252555843956-0.328135936730845i, 0.099659684890077-0.362886081139892i, -0.146024566266657+0.013219412797458i, 0.437826208287688+0i, -0.047393587739568+0.297523229473226i, 0.053640336864496+0.244704251340016i, 0.189395328272566+0.197948900656662i, 0.744900728861518-0.157648587806964i, -0.63829956885596+0i, 0.190923866036828+0.209348060979014i, 0.478761262752136+0.086103851005322i, 0.365383456834977-0.041833555661111i, 0.222902888615007+0.301211043305794i), .Dim = c(5L, 5L)), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm17_629b4828c12fca35fa61c9b12e115f3f() {
+ assertEval("argv <- list(structure(c('add1', 'anova', 'coef', 'confint', 'drop1', 'extractAIC', 'logLik', 'model.frame', 'predict', 'print', 'print', 'summary', 'vcov', 'coef', 'predict', 'print', 'print', 'summary', 'nnet', 'nnet', 'multinom', 'multinom', 'multinom', 'multinom', 'multinom', 'multinom', 'multinom', 'multinom', 'multinom', 'multinom', 'summary.multinom', 'multinom', 'multinom', 'nnet', 'nnet', 'nnet', 'summary.nnet', 'nnet', 'default', 'formula', NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = c(20L, 3L)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm18_3bf1ef1ff1b7463e6e4cd88abb5cca21() {
+ assertEval("argv <- list(structure(c(NA, NA, NA), .Dim = 3L), 1L, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm19_04dc84bdcf3d22a59a3ef718a56bbb0f() {
+ assertEval("argv <- list(structure(c(4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 4000, 8000, 12000, 16000, 20000, 24000, 28000, 32000, 36000, 40000, 44000, 48000, 8, 16, 24, 32, 40, 48, 56, 64, 72, 80, 88, 96, 8000, 16000, 24000, 32000, 40000, 48000, 56000, 64000, 72000, 80000, 88000, 96000, 12, 24, 36, 48, 60, 72, 84, 96, 108, 120, 132, 144, 12000, 24000, 36000, 48000, 60000, 72000, 84000, 96000, 108000, 120000, 132000, 144000, 16, 32, 48, 64, 80, 96, 112, 128, 144, 160, 176, 192, 16000, 32000, 48000, 64000, 80000, 96000, 112000, 128000, 144000, 160000, 176000, 192000, 20, 40, 60, 80, 100, 120, 140, 160, 180, 200, 220, 240, 20000, 40000, 60000, 80000, 1e+05, 120000, 140000, 160000, 180000, 2e+05, 220000, 240000, 24, 48, 72, 96, 120, 144, 168, 192, 216, 240, 264, 288, 24000, 48000, 72000, 96000, 120000, 144000, 168000, 192000, 216000, 240000, 264000, 288000, 28, 56, 84, 112, 140, 168, 196, 224, 252, 280, 308, 336, 28000, 56000, 84000, 112000, 140000, 168000, 196000, 224000, 252000, 280000, 308000, 336000, 32, 64, 96, 128, 160, 192, 224, 256, 288, 320, 352, 384, 32000, 64000, 96000, 128000, 160000, 192000, 224000, 256000, 288000, 320000, 352000, 384000, 36, 72, 108, 144, 180, 216, 252, 288, 324, 360, 396, 432, 36000, 72000, 108000, 144000, 180000, 216000, 252000, 288000, 324000, 360000, 396000, 432000, 40, 80, 120, 160, 200, 240, 280, 320, 360, 400, 440, 480, 40000, 80000, 120000, 160000, 2e+05, 240000, 280000, 320000, 360000, 4e+05, 440000, 480000, 44, 88, 132, 176, 220, 264, 308, 352, 396, 440, 484, 528, 44000, 88000, 132000, 176000, 220000, 264000, 308000, 352000, 396000, 440000, 484000, 528000, 48, 96, 144, 192, 240, 288, 336, 384, 432, 480, 528, 576, 48000, 96000, 144000, 192000, 240000, 288000, 336000, 384000, 432000, 480000, 528000, 576000, 52, 104, 156, 208, 260, 312, 364, 416, 468, 520, 572, 624, 52000, 104000, 156000, 208000, 260000, 312000, 364000, 416000, 468000, 520000, 572000, 624000, 56, 112, 168, 224, 280, 336, 392, 448, 504, 560, 616, 672, 56000, 112000, 168000, 224000, 280000, 336000, 392000, 448000, 504000, 560000, 616000, 672000, 60, 120, 180, 240, 300, 360, 420, 480, 540, 600, 660, 720, 60000, 120000, 180000, 240000, 3e+05, 360000, 420000, 480000, 540000, 6e+05, 660000, 720000, 64, 128, 192, 256, 320, 384, 448, 512, 576, 640, 704, 768, 64000, 128000, 192000, 256000, 320000, 384000, 448000, 512000, 576000, 640000, 704000, 768000, 68, 136, 204, 272, 340, 408, 476, 544, 612, 680, 748, 816, 68000, 136000, 204000, 272000, 340000, 408000, 476000, 544000, 612000, 680000, 748000, 816000, 72, 144, 216, 288, 360, 432, 504, 576, 648, 720, 792, 864, 72000, 144000, 216000, 288000, 360000, 432000, 504000, 576000, 648000, 720000, 792000, 864000, 76, 152, 228, 304, 380, 456, 532, 608, 684, 760, 836, 912, 76000, 152000, 228000, 304000, 380000, 456000, 532000, 608000, 684000, 760000, 836000, 912000, 80, 160, 240, 320, 400, 480, 560, 640, 720, 800, 880, 960, 80000, 160000, 240000, 320000, 4e+05, 480000, 560000, 640000, 720000, 8e+05, 880000, 960000, 84, 168, 252, 336, 420, 504, 588, 672, 756, 840, 924, 1008, 84000, 168000, 252000, 336000, 420000, 504000, 588000, 672000, 756000, 840000, 924000, 1008000, 88, 176, 264, 352, 440, 528, 616, 704, 792, 880, 968, 1056, 88000, 176000, 264000, 352000, 440000, 528000, 616000, 704000, 792000, 880000, 968000, 1056000, 92, 184, 276, 368, 460, 552, 644, 736, 828, 920, 1012, 1104, 92000, 184000, 276000, 368000, 460000, 552000, 644000, 736000, 828000, 920000, 1012000, 1104000, 96, 192, 288, 384, 480, 576, 672, 768, 864, 960, 1056, 1152, 96000, 192000, 288000, 384000, 480000, 576000, 672000, 768000, 864000, 960000, 1056000, 1152000), .Dim = c(3L, 4L, 2L, 3L, 4L, 2L), .Dimnames = list(c('A', 'B', 'C'), c('D', 'E', 'F', 'G'), c('frequentist', 'bayesian'), NULL, NULL, c('happy', 'sad'))), c(4L, 1L, 5L, 2L, 6L, 3L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm2_08085d9607b7ef91bc0914acf581e31f() {
+ assertEval("argv <- list(structure(c('[', 'as.data.frame', 'plot', 'print', 'summary', 'as.character', 'print', 'print', 'plot', 'update', 'dim', 'dimnames', 'dimnames<-', '[', 't', 'summary', 'print', 'barchart', 'barchart', 'barchart', 'barchart', 'barchart', 'barchart', 'bwplot', 'bwplot', 'densityplot', 'densityplot', 'dotplot', 'dotplot', 'dotplot', 'dotplot', 'dotplot', 'dotplot', 'histogram', 'histogram', 'histogram', 'qqmath', 'qqmath', 'stripplot', 'stripplot', 'qq', 'xyplot', 'xyplot', 'levelplot', 'levelplot', 'levelplot', 'levelplot', 'contourplot', 'contourplot', 'contourplot', 'contourplot', 'cloud', 'cloud', 'cloud', 'wireframe', 'wireframe', 'splom', 'splom', 'splom', 'parallelplot', 'parallelplot', 'parallelplot', 'parallel', 'parallel', 'parallel', 'tmd', 'tmd', 'llines', 'ltext', 'lpoints', 'shingle', 'shingle', 'shingle', 'shingle', 'shingle', 'shingleLevel', 'shingleLevel', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'summary.trellis', 'formula', 'array', 'default', 'matrix', 'numeric', 'table', 'formula', 'numeric', 'formula', 'numeric', 'formula', 'array', 'default', 'matrix', 'numeric', 'table', 'formula', 'factor', 'numeric', 'formula', 'numeric', 'formula', 'numeric', 'formula', 'formula', 'ts', 'formula', 'table', 'array', 'matrix', 'formula', 'table', 'array', 'matrix', 'formula', 'matrix', 'table', 'formula', 'matrix', 'formula', 'matrix', 'data.frame', 'formula', 'matrix', 'data.frame', 'formula', 'matrix', 'data.frame', 'formula', 'trellis', 'default', 'default', 'default', NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = c(70L, 3L)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm20_a60260052b25fde56101fe8dbd0e68d8() {
+ assertEval("argv <- list(structure(1:24, .Dim = c(4L, 6L), .Dimnames = structure(list(happy = c('a', 'b', 'c', 'd'), sad = c('A', 'B', 'C', 'D', 'E', 'F')), .Names = c('happy', 'sad'))), c(2, 1), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm21_ce4c8e2814e108f6506868be605410c5() {
+ assertEval("argv <- list(structure(1:120, .Dim = 2:5, .Dimnames = list(NULL, c('a', 'b', 'c'), NULL, c('V5', 'V6', 'V7', 'V8', 'V9'))), 1:4, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm22_f50d556640063dcbd0714a4bce8ce8f4() {
+ assertEval("argv <- list(structure(c(' Null deviance:', 'Residual deviance:', '67.5316', ' 4.5512', ' on', ' on', '9', '7', ' degrees of freedom\n', ' degrees of freedom\n'), .Dim = c(2L, 5L), .Dimnames = list(c('null.deviance', 'deviance'), NULL)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm23_612171dd55066ba36fe3cbfe213cb44b() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE), .Dim = c(3L, 1L)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm24_bbec9b3d0b9ac37bc11289bead4a9a49() {
+ assertEval("argv <- list(structure(c(3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3, 4, 5), .Dim = c(8L, 2L), .Dimnames = list(c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h'), c('x1', 'x2'))), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm25_1c60d8417af5ed2e2eb30ec63ebc0415() {
+ assertEval("argv <- list(structure(c(0, 1.23517986278748, 1.95771376416406, 2.47035972557496, 2.86799882564536, 3.19289362695154, 3.46758826742286, 3.70553958836244, 3.91542752832811, 4.10317868843284, 4.27302027203108, 4.42807348973901, 4.57070862330685, 4.70276813021034, 4.82571258980942, 4.94071945114991, 5.04875179140451, 5.15060739111559, 5.2469545231864, 5.33835855122032, 5.42530203158692, 5.50820013481856, 5.58741263619316, 5.66325335252649, 5.73599765129073, 5.80588848609433, 5.87314129249217, 5.93794799299782, 6.00048029898585, 6.0608924525969, 6.11932351888589, 6.17589931393739, 6.23073403619514, 6.28393165419199, 6.33558709306823, 6.38578725390307, 6.43461189335533, 6.48213438597388, 6.52842238747091, 6.5735384140078, 6.61754034994095, 6.6604818943744, 6.70241295516147, 6.74337999760604, 6.78342635397348, 6.82259249898064, 6.86091629565604, 6.89843321531397, 6.93517653484573, 6.97117751407821, 7.00646555556857, 7.04106834888181, 7.07501200112497, 7.10832115527965, 7.14101909767645, 7.1731278557853, 7.20466828735046, 7.23566016177333, 7.26612223453848, 7.29607231538438, 7.3255273308395, 7.35450338167337, 7.38301579575098, 7.41107917672487, 7.43870744895221, 7.46591389898262, 7.49271121392624, 7.51911151697947, 7.54512640035722, 7.57076695585571, 7.59604380324749, 7.62096711669055, 7.64554664931599, 7.66979175614282, 7.69371141545478, 7.71731424876136, 7.74060853945395, 7.76360225025839, 7.78630303957574, 7.80871827679528, 7.83085505665623, 7.85272021272842, 7.87432033007586, 7.89566175716188, 7.91675061704988, 7.93759281794895, 7.95819406314991, 7.97855986039352, 7.99869553070936, 8.01860621676096, 8.03829689072971, 8.05777236176812, 8.07703728304995, 8.09609615844352, 8.11495334883177, 8.13361307810145, 8.15207943882202, 8.17035639763321, 8.1884478003592, 8.20635737686569, 5.76558893216369, 5.5342688729893, 5.69366159038267, 6.17674775070929, 6.08762735966107, 6.68653280779044, 6.70253591217234, 6.32938323618963, 6.81735284786279, 6.64835766778347, 6.91213030655848, 7.1496842781073, 7.25682341590407, 7.46164094256645, 7.37149913131863, 7.56470707593246, 7.71334191900841, 7.71375128844693, 7.82793409372511, 7.90749319121623, 7.96255733207686, 8.11381187364273, 8.21211505208663, 8.18427543602736, 8.29133399017863, 8.31295002652197, 8.345677476918, 8.39053879616249, 8.40857122007675, 8.48086068897741, 8.7064475146364, 8.66563269607315, 8.79435721712053, 8.7996087849725, 8.82443395257555, 8.91314507957224, 8.8999544270272, 8.96760168103462, 8.93548690078514, 9.01332239000153, 9.07083338712431, 9.15422051683385, 9.20109302097792, 9.2062218972166, 9.31170984199071, 9.30909253379462, 9.35447695163181, 9.45333740615033, 9.41458248768079, 9.46983861007334, 9.51652628670815, 9.5301888386762, 9.59497468213833, 9.61268143770055, 9.64141492393412, 9.68857453461133, 9.77580537125637, 9.79816256416163, 9.79128849346381, 9.80699184934282, 9.91833626833319, 9.95487179604373, 9.88086373278725, 9.93505313047982, 9.97034080826287, 9.97752630228797, 10.1165750634827, 10.0977558023188, 10.1414502841663, 10.129071787117, 10.166774063688, 10.1792762662323, 10.2172491181904, 10.2670710204409, 10.2742314938915, 10.287876622612, 10.3447249333494, 10.4075370351282, 10.3465199067119, 10.4404223214255, 10.422301774768, 10.4739543513507, 10.5314461891317, 10.4813429169605, 10.5097541699286, 10.5389544549716, 10.5752633644781, 10.6133054015308, 10.6776080133421, 10.6266190058322, 10.6657950921482, 10.7067723709738, 10.7424707425861, 10.7418659657784, 10.7335163259687, 10.780101845273, 10.8334343829096, 10.8616735406708, 10.8535694508523, 10.8900668188725), .Dim = c(100L, 2L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100'), c('log(x)', 'log(z)'))), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm3_f17586cf0eb015a2ca039df0ea6abad8() {
+ assertEval("argv <- list(structure(c(0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667), .Dim = c(1L, 9L)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm4_52333812e34adc3069f9ed6ff713dc9f() {
+ assertEval("argv <- list(structure(c(0L, 0L, 0L, 1L, 0L, 1L, 1L, 1L), .Dim = c(1L, 8L), .Dimnames = list('strata(enum)', c('rx', 'size', 'number', 'strata(enum)', 'cluster(id)', 'rx:strata(enum)', 'size:strata(enum)', 'number:strata(enum)'))), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm5_ebefdb50f4875645f072968aa04168d8() {
+ assertEval("argv <- list(structure(c(9.2319289524956, -0.470372045488369, 186.857050189827), .Dim = c(1L, 3L), .Dimnames = list('118', c('age', 'sex', 'meal.cal'))), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm6_6e6d59a35e60fbcb22d33282bbe6caa3() {
+ assertEval("argv <- list(structure(c(414L, 439L, 382L, 388L, 383L, 364L, 364L, 363L, 349L, 371L, 102L, 388L, 388L, 363L, 367L, 365L, 382L, 362L, 373L, 385L, 376L, 360L, 306L, 160L, 316L, 316L, 315L, 357L, 360L, 347L, 353L, 308L, 327L, 329L, 343L, 251L, 318L, 304L, 316L, 335L, 365L, 336L, 350L, 356L, 339L, 301L, 330L, 300L, 300L, 312L, 334L, 270L, 347L, 293L, 303L, 337L, 287L, 293L, 293L, 318L, 359L, 351L, 322L, 343L, 269L, 286L, 286L, 273L, 297L, 273L, 273L, 273L, 294L, 303L, 281L, 273L, 255L, 269L, 270L, 270L, 276L, 264L, 245L, 261L, 270L, 273L, 306L, 274L, 279L, 278L, 278L, 284L, 276L, 265L, 294L, 277L, 259L, 287L, 263L, 240L, 217L, 271L, 252L, 331L, 255L, 271L, 254L, 185L, 213L, 210L, 203L, 288L, 269L, 269L, 91L, 91L, 192L, 199L, 195L, 198L, 207L, 200L, 197L, 243L, 203L, 197L, 227L, 227L, 219L, 8L, NA, NA, 246L, NA, 292L, NA, 294L, NA, 19L, 373L, NA, 211L, 82L, NA, 334L, 18L, NA, 280L, NA, NA, NA, NA, 146L, NA, NA, NA, 267L, 206L, 175L, NA, NA, NA, NA, 118L, NA, NA, NA, NA, 274L, NA, NA, 187L, NA, 6L, NA, NA, 146L, 304L, NA, 52L, 67L, NA, 265L, NA, 91L, NA, NA, NA, 318L, 57L, 226L, 65L, NA, 264L, NA, NA, NA, 236L, NA, 207L, NA, NA, NA, NA, NA, NA, 23L, NA, NA, NA, NA, NA, NA, 113L, 99L, NA, NA, 14L, NA, NA, NA, NA, NA, NA, NA, 4L, NA, 167L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 165L, NA, NA, NA, NA, NA, NA, NA, NA, 11L, NA, NA, 168L, NA, NA, 120L, NA, 104L, NA, 373L, 26L, NA, NA, 253L, NA, NA, NA, NA, NA, NA, NA, NA, 260L, 114L, NA, 370L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 280L, NA, NA, NA, NA, 240L, NA, NA, NA, NA, 361L, NA, NA, NA, NA, NA, NA, NA, 188L, NA, NA, 65L, 248L, NA, NA, NA, 121L, NA, NA, NA, NA, 121L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 306L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 159L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 22L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 152L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 265L, 337L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 255L, 250L, NA, NA, NA, 203L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 213L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 169L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 241L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 269L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 284L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 249L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 307L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 322L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 350L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = c(128L, 8L), .Dimnames = list( NULL, c('futime', 'e1', 'e2', 'e3', 'e4', 'e5', 'e6', 'e7'))), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm7_7a814cd9669074fa8ca705072433a446() {
+ assertEval("argv <- list(structure(c(0, -10, 0, -10, -10, 0, NA, NA, 0, 0, 0, 0, 0, 150, 0, 170, 180, 0, 0, 0, NA, 0, 0, 0, 0, 0, NA, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 310, 0, 330, 340, 0, 0, 350, 0, 370, 380, 0), .Dim = c(6L, 8L), .Dimnames = list(NULL, NULL)), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm8_4f2fd1ab6e0cf58806847f2f810ba2b9() {
+ assertEval("argv <- list(structure(c(544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 1539.44739946315, 1548.66655077773, 1557.88570209231, 1566.45228027983, 1575.01885846735, 1583.14083472285, 1591.26281097836, 1599.26100149451, 1607.25919201066, 1611.39689466313, 1615.5345973156, 1612.61129444623, 1609.68799157686, 1603.44643859537, 1597.20488561388, 1588.73002343463, 1580.25516125537, 1570.86127478964, 1561.46738832392, 1549.89535441445, 1538.32332050498, 1524.62526591843, 1510.92721133189, 1499.65830819836, 1488.38940506483, 1479.31388700637, 1470.23836894792, 1460.03887936132, 1449.83938977473, 1441.27547309544, 1432.71155641615, 1432.51830671501, 1432.32505701387, 1433.15763708544, 1433.99021715701, 1434.96142536256, 1435.9326335681, 1435.47421580154, 1435.01579803498, 1433.4368629411, 1431.85792784722, 1430.85617066215, 1429.85441347709, 1432.59097206397, 1435.32753065085, 1440.49425642708, 1445.66098220331, 1448.76676550395, 1451.87254880459, 1452.9163236715, 1453.96009853841, 1454.6961768366, 1455.43225513478, 1452.22362902495, 1449.01500291512, 1442.43484036078, 1435.85467780644, 1426.50159512644, 1417.14851244644, 1409.58997614642, 1402.0314398464, 1397.59624058751, 1393.16104132862, 1386.64426440334, 1380.12748747807, 1371.71107833433, 1363.2946691906, 1354.59002807904, 1345.88538696748, 1336.94914699242, 1328.01290701735, 1318.64960669271, 49.7622186359663, -84.1535032467218, -121.764781099341, 37.2870304782966, 82.528433600382, -44.2319392670254, 25.3010406627996, -34.7698782399993, 48.5709781995188, 110.301655093951, -1.96962838525201, -3.7990131710535, -51.4783734777507, 135.066608935635, 114.916035379091, -28.990712676497, -11.7078691876363, 7.04762066618673, -38.9035366827579, 16.5957688400649, -38.4931502947952, 52.0732838386475, 26.6377575984557, 329.153973076816, -13.1797869657194, 872.199160524634, 371.882552045056, -254.299568603192, -95.2920977069916, 8.63342236039193, 16.852295225008, -29.0271834604991, 13.5051131963112, 4.54091267164154, 25.5747517733375, 386.850855912621, 259.276984531009, -199.961168270532, -153.894877042003, 94.302447817031, -20.3106357794875, 21.0527247936745, -6.29056183593116, 13.9001511905426, -29.4973604406664, -31.7957066699985, -224.096013272965, -30.9544842287708, 22.3370692945275, 432.596723859509, 47.1608224545594, -304.956866078466, 50.1150369329559, 24.6852664308792, -14.4511512739648, -4.94371710626865, -19.024507596255, -56.8030453693573, -314.583543516094, 165.222305128756, 316.17817825271, 23.9168069434991, 11.9598796643579, -128.904953645213, 0.419804589665318, -6.80218287850425, 29.2691824505584, 53.9010951754703, 40.9447832426993, -26.2505972353374, -41.4479380870087, -214.837325417531, 2134, 1863, 1877, 1877, 1492, 1249, 1280, 1131, 1209, 1492, 1621, 1846, 2103, 2137, 2153, 1833, 1403, 1288, 1186, 1133, 1053, 1347, 1545, 2066, 2020, 2750, 2283, 1479, 1189, 1160, 1113, 970, 999, 1208, 1467, 2059, 2240, 1634, 1722, 1801, 1246, 1162, 1087, 1013, 959, 1179, 1229, 1655, 2019, 2284, 1942, 1423, 1340, 1187, 1098, 1004, 970, 1140, 1110, 1812, 2263, 1820, 1846, 1531, 1215, 1075, 1056, 975, 940, 1081, 1294, 1341), .Dim = c(72L, 4L), .Dimnames = list(NULL, c('STL.seasonal', 'STL.trend', 'STL.remainder', 'data')), .Tsp = c(1974, 1979.91666666667, 12), class = c('mts', 'ts', 'matrix')), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaperm_testaperm9_24f3176a36b0c1834e883156b6faf749() {
+ assertEval("argv <- list(structure(c(0.36376697930799, 0.252815298286177, 0.144820268657847, 0.059950033165656, 0.0137701755391906, 0.00220408917547991, 6.22489401973083e-05, -0.36376697846279, -0.252815298708777, -0.144820267390048, -0.0599500327958813, -0.0137701747732286, -0.00220408987788688, -6.22486118855004e-05), .Dim = c(7L, 2L, 1L)), 1:3, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaregexec_testaregexec1_2f4a7b39aaa55c7bd0f4dd1ce1c70f08() {
+ assertEval("argv <- list('FALSE', 'FALSE', c(0.1, NA, NA, NA, NA), c(1L, 1L, 1L), FALSE, FALSE, FALSE); .Internal(aregexec(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinaregexec_testaregexec2_6fdabd1a68055d50c3fb04be336568e7() {
+ assertEval("argv <- list('(lay)(sy)', c('1 lazy', '1', '1 LAZY'), c(2, NA, NA, NA, NA), c(1L, 1L, 1L), FALSE, FALSE, FALSE); .Internal(aregexec(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinargs_testargs1_e228d257beb7a361c2a9328dbcdafdb4() {
+ assertEval("argv <- list(NULL); .Internal(args(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinargs_testargs2_295551fb8ac5be183e6f303f793009ac() {
+ assertEval("argv <- list(character(0)); .Internal(args(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinargs_testargs3_1afbe22821276d1edad56f8b6ad497c8() {
+ assertEval("argv <- list(.Primitive(':')); .Internal(args(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinargs_testargs4_05dbfbc92e6317a2709ef399d70b3076() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame')); .Internal(args(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinargs_testargs5_898f905532808c83c90d31d0b8d82dd4() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(args(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray1_a1de33c4f6f10bac0607e47de645a30b() {
+ assertEval("argv <- list(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L), 59L, structure(list(dr = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59.5')), .Names = 'dr')); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray10_6ddc0343d8079a19524667b09a3959d4() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), c(5L, 16L), list(c('#ifdef', '\\Sexpr', 'build', 'install', 'render'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray11_fc08ff0006f401ec4eba037c38fe4082() {
+ assertEval("argv <- list(list(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL), 8L, list(c('1', '2', '3', '4', '5', '6', '7', '8'))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray12_2595909c5219d3b538eb8ff98f62df10() {
+ assertEval("argv <- list(c(-Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 3, 5, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1.5, 3.2, 4.9, Inf, Inf, Inf, -Inf, -Inf, 0.300000000000001, 2, 3.7, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.2, 2, 3.8, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.4, 2, 3.6, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.266666666666667, 2, 3.73333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.275, 2, 3.725, Inf, Inf, Inf, Inf), c(9L, 9L), list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray13_d42dcb8c47dba787b7b37eb7c7d1131f() {
+ assertEval("argv <- list(NA, 1L, list('1')); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray14_dc6255464eaec909d36c5b0c27830892() {
+ assertEval("argv <- list(logical(0), 0L, NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray15_18f6ac9c3f4ae260a2c3467ea13f820a() {
+ assertEval("argv <- list(structure(c(-5.3088868291531, 5.2393213877113, -5.301817110509, 5.29234872074472), .Names = c('5%', '95%', '5%', '95%')), c(2, 2), list(c('5%', '95%'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray16_f502898424bd642a8c883c6cb7ebd14a() {
+ assertEval("argv <- list(c(1L, 0L), 2L, structure(list(object = c('FALSE', NA)), .Names = 'object')); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray17_8dee3182d471f899140d91ec7fb448ff() {
+ assertEval("argv <- list(c('', '', ''), c(3, 1), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray18_13a1b2231ebaeaed22083e9841b6eb2d() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), 0L, NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray19_7ed10b153596c00ee4ab46e0d5cc5c8f() {
+ assertEval("argv <- list(structure(c(31.9166666666667, -5.77777777777778, -10.4101831674686, -2.63888888888889, NA), .Names = c('(Intercept)', 'woolB', 'tens.L', 'tensionM', 'tensionH')), c(5L, 1L), list(c('(Intercept)', 'woolB', 'tens.L', 'tensionM', 'tensionH'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray2_bb91d6a60a5b5541626d911e46859f23() {
+ assertEval("argv <- list(FALSE, FALSE, NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray20_db0e867b3dfd32fd0467655e85128c59() {
+ assertEval("argv <- list(c(0.92317305817397+0i, 0.160449395256071+0.220125597679977i, 0.40353715410585+2.39063261466203i, -3.64092275386503+3.51619480964107i, -0.30877433127864+1.37503901638266i, -0.5590368753986+2.95994484328048i, 2.07117052177259-1.58552086053907i, 5.12796916272868+5.50114308371867i, 0.71791019962021-4.36295436036464i, 3.6182846955548+0.01693946731429i, 5.86560669896785+3.41674024963709i, 7.14153164455803+0i, 5.86560669896785-3.41674024963709i, 3.6182846955548-0.01693946731429i, 0.71791019962021+4.36295436036464i, 5.12796916272868-5.50114308371867i, 2.07117052177259+1.58552086053907i, -0.5590368753986-2.95994484328048i, -0.30877433127864-1.37503901638266i, -3.64092275386503-3.51619480964107i, 0.40353715410585-2.39063261466203i, 0.160449395256071-0.220125597679976i, 0.994686860835215+0i, -0.711636086238366+0.034977366507257i, -3.47255638259391-3.00654729467177i, -1.61617641806619-2.52564108817258i, -1.83729841635945+1.24025696654912i, -0.05940773912914+1.99807537840182i, 2.14861624215501+1.14547234755584i, -0.18935885218927+5.11711397439959i, 3.55025883223277-3.01463113510177i, 0.37587194655463-4.62160286369829i, -0.57999032040714+3.57394816552023i, -3.22078701201057+0i, -0.57999032040714-3.57394816552023i, 0.37587194655463+4.62160286369829i, 3.55025883223277+3.01463113510177i, -0.18935885218927-5.11711397439959i, 2.14861624215501-1.14547234755584i, -0.05940773912914-1.99807537840182i, -1.83729841635945-1.24025696654912i, -1.61617641806619+2.52564108817258i, -3.47255638259391+3.00654729467177i, -0.711636086238366-0.034977366507256i, -0.376031201145236+0i, 0.36561036190112-2.94822783523588i, 2.53378536984825+1.14599403212998i, -0.59345500414631-1.46249091231517i, -5.47371957596241-2.40983118775265i, 0.994698295196402+0.827012883372647i, 4.88614691865207-0.66440097322583i, -1.22869446246947-1.85036568311679i, 4.54719422944744-1.7507307644741i, -1.25805718969215-0.46461775748286i, -6.6950163960079-1.32606545879492i, -1.8510470181104-0i, -6.6950163960079+1.32606545879492i, -1.25805718969215+0.46461775748286i, 4.54719422944744+1.7507307644741i, -1.22869446246947+1.85036568311679i, 4.88614691865207+0.66440097322583i, 0.994698295196402-0.827012883372647i, -5.47371957596241+2.40983118775265i, -0.59345500414631+1.46249091231517i, 2.53378536984825-1.14599403212998i, 0.36561036190112+2.94822783523588i, 1.86949363581639+0i, 3.2510927680528+3.7297126359622i, 5.77117909703734-0.58113122596059i, -2.73489323319193-2.03739778844743i, 1.59256247378073-3.23882870600546i, -2.21652163259476+3.70287191787544i, -6.80966667821261-4.74346958471693i, -0.48551953206469-3.42445496113818i, -4.95350216815663-1.60107509096991i, -0.651322462114205+0.588393022429161i, 3.32067078328635+3.75999833207777i, -1.35013798358527+0i, 3.32067078328635-3.75999833207777i, -0.651322462114205-0.588393022429161i, -4.95350216815663+1.60107509096991i, -0.48551953206469+3.42445496113818i, -6.80966667821261+4.74346958471693i, -2.21652163259476-3.70287191787544i, 1.59256247378073+3.23882870600546i, -2.73489323319193+2.03739778844743i, 5.77117909703734+0.58113122596059i, 3.2510927680528-3.7297126359622i, -3.90806827793786+0i, -4.10078155861753-4.25996878161911i, -0.63461032994351-2.08074582601136i, -0.10593736514835-3.82022652091785i, 6.14817602783479+2.33657685886581i, 0.64431546852762-1.776774088028i, 3.43771282488202-3.00904523977379i, -3.6812061457129+3.53944567666635i, 3.07722382691467+4.5373840425762i, 3.3679046040028+7.20820407858926i, 7.47003475089893-0.4463480891006i, 13.9322715624418-0i, 7.47003475089893+0.4463480891006i, 3.3679046040028-7.20820407858926i, 3.07722382691467-4.5373840425762i, -3.6812061457129-3.53944567666635i, 3.43771282488202+3.00904523977379i, 0.64431546852762+1.776774088028i, 6.14817602783479-2.33657685886581i, -0.10593736514835+3.82022652091785i, -0.63461032994351+2.08074582601136i, -4.10078155861753+4.25996878161911i), c(22, 5), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray21_90629862c2120909e55b516dd705790b() {
+ assertEval("argv <- list(NA, c(1, 4), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray22_47f919ec469babdf3ac7b6a1547c0baa() {
+ assertEval("argv <- list(structure(c(-0.350406242534262, -0.350406242534262, -3.35040624253426, 0.649593757465738, 1.64959375746574, 17.755677101477, 7.755677101477, -11.3171453341876, 5.68285466581244, -11.3171453341876, -2.31714533418756, 6.68285466581244, -16.3171453341876, 8.38722300809366, 42.3872230080937, 13.3872230080937, 27.8866653386156, -25.1133346613844, 7.88666533861561, -21.1133346613844, 9.71094990017841, 5.71094990017841, 26.7109499001784, -7.28905009982159, 21.7109499001784, -20.2890500998216, 6.226070726676, -15.773929273324, -28.773929273324, 14.226070726676, -14.773929273324, 21.226070726676, 6.226070726676, 29.226070726676, 13.226070726676, -1.18678877265756, 15.8132112273424, 1.81321122734244, 25.8132112273424, -0.186788772657565, 3.81321122734244, -10.1867887726576, 15.8132112273424, 9.81321122734244, 9.81321122734244, -35.0551967576179, 14.9448032423821, 13.9448032423821, -17.0551967576179, -6.05519675761792, -17.7296046985831, 14.9139035439664), gradient = structure(c(0, 0, 0, 0, 0, 56.989995924654, 56.989995924654, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 109.608811230383, 109.608811230383, 109.608811230383, 107.478028232287, 107.478028232287, 107.478028232287, 107.478028232287, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 10.7055301785859, 0, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 0.914597467778369, 0.914597467778369, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.599195286063472, 0.599195286063472, 0.599195286063472, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0202635232425103, 2.60032456603692e-08, 0, 0, 0, 0, 0, 0.165626203544259, 0.165626203544259, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.503396799290371, 0.503396799290371, 0.503396799290371, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.984387422945875, 0.999999996451695), .Dim = c(52L, 3L))), c(52L, 1L), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray23_4f99c09a2eb948557496cb06b9c93143() {
+ assertEval("argv <- list(c(1L, 2L, 1L), 3L, structure(list(c('1', '2', NA)), .Names = '')); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray24_e525a38fb98eafddfb77134676d1590b() {
+ assertEval("argv <- list(c(4L, 10L, 16L, 22L, 28L, 34L, 40L, 46L, 52L, 58L, 64L, 70L, 76L, 82L, 88L, 94L, 100L, 106L, 112L, 118L), 4:5, list(NULL, c('V5', 'V6', 'V7', 'V8', 'V9'))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray25_49e01334a43728305198bcc26ef5e133() {
+ assertEval("argv <- list(c(1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 23, 23, 23, 23, 23, 24, 24, 24, 24, 24, 25, 25, 25, 25, 25, 26, 26, 26, 26, 26, 27, 27, 27, 27, 27, 28, 28, 28, 28, 28, 29, 29, 29, 29, 29, 30, 30, 30, 30, 30, 31, 31, 31, 31, 31, 32, 32, 32, 32, 32, 33, 33, 33, 33, 33, 34, 34, 34, 34, 34, 35, 35, 35, 35, 35, 36, 36, 36, 36, 36, 37, 37, 37, 37, 37, 38, 38, 38, 38, 38, 39, 39, 39, 39, 39, 40, 40, 40, 40, 40, 41, 41, 41, 41, 41, 42, 42, 42, 42, 42, 43, 43, 43, 43, 43, 44, 44, 44, 44, 44, 45, 45, 45, 45, 45, 46, 46, 46, 46, 46, 47, 47, 47, 47, 47, 48, 48, 48, 48, 48, 49, 49, 49, 49, 49, 50, 50, 50, 50, 50, 51, 51, 51, 51, 51, 52, 52, 52, 52, 52, 53, 53, 53, 53, 53, 54, 54, 54, 54, 54, 55, 55, 55, 55, 55, 56, 56, 56, 56, 56, 57, 57, 57, 57, 57, 58, 58, 58, 58, 58, 59, 59, 59, 59, 59, 60, 60, 60, 60, 60, 61, 61, 61, 61, 61, 62, 62, 62, 62, 62, 63, 63, 63, 63, 63, 64, 64, 64, 64, 64, 65, 65, 65, 65, 65, 66, 66, 66, 66, 66, 67, 67, 67, 67, 67, 68, 68, 68, 68, 68, 69, 69, 69, 69, 69, 70, 70, 70, 70, 70, 71, 71, 71, 71, 71, 72, 72, 72, 72, 72, 73, 73, 73, 73, 73, 74, 74, 74, 74, 74, 75, 75, 75, 75, 75, 76, 76, 76, 76, 76, 77, 77, 77, 77, 77, 78, 78, 78, 78, 78, 79, 79, 79, 79, 79, 80, 80, 80, 80, 80, 81, 81, 81, 81, 81, 82, 82, 82, 82, 82, 83, 83, 83, 83, 83, 84, 84, 84, 84, 84, 85, 85, 85, 85, 85, 86, 86, 86, 86, 86, 87, 87, 87, 87, 87, 88, 88, 88, 88, 88, 89, 89, 89, 89, 89, 90, 90, 90, 90, 90, 91, 91, 91, 91, 91, 92, 92, 92, 92, 92, 93, 93, 93, 93, 93, 94, 94, 94, 94, 94, 95, 95, 95, 95, 95, 96, 96, 96, 96, 96, 97, 97, 97, 97, 97, 98, 98, 98, 98, 98, 99, 99, 99, 99, 99, 100, 100, 100, 100, 100, 101, 101, 101, 101, 101, 102, 102, 102, 102, 102, 103, 103, 103, 103, 103, 104, 104, 104, 104, 104, 105, 105, 105, 105, 105, 106, 106, 106, 106, 106, 107, 107, 107, 107, 107, 108, 108, 108, 108, 108, 109, 109, 109, 109, 109, 110, 110, 110, 110, 110, 111, 111, 111, 111, 111, 112, 112, 112, 112, 112, 113, 113, 113, 113, 113, 114, 114, 114, 114, 114, 115, 115, 115, 115, 115, 116, 116, 116, 116, 116, 117, 117, 117, 117, 117, 118, 118, 118, 118, 118, 119, 119, 119, 119, 119, 120, 120, 120, 120, 120), c(5, 2, 3, 4, 5), list(NULL, NULL, c('a', 'b', 'c'), NULL, c('V5', 'V6', 'V7', 'V8', 'V9'))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray26_e6384f5348746531ce21c68a02f3b857() {
+ assertEval("argv <- list('', c(4L, 3L), list(c('<none>', 'Hair:Eye', 'Hair:Sex', 'Eye:Sex'), c('Df', 'Deviance', 'AIC'))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray27_f1a8e39e186023ba01b00b56b52f7318() {
+ assertEval("argv <- list(-1, c(3L, 2L), list(c('a', 'b', 'c'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray3_de32a339b0dc2af9cf47144c650e041b() {
+ assertEval("argv <- list(2.10239639473973e-05, c(1L, 1L), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray4_8b677d3b59ed9d33c04042e304f91cca() {
+ assertEval("argv <- list(0, c(105L, 1L), list(NULL, structure('d', .Names = 'CURVE'))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray5_3e426c5821c83699fa2f43bfa0339c27() {
+ assertEval("argv <- list(structure(list(`1` = structure(list(lower = 13.2743449189798, est. = 24.8054653131966, upper = 46.3534067526313), .Names = c('lower', 'est.', 'upper'), row.names = 'reStruct.Rail.sd((Intercept))', class = 'data.frame')), .Names = '1'), c(1L, 1L), list('1', NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray6_cbbc1b10e34aa6fcf55862a2a00c6bc5() {
+ assertEval("argv <- list(0, 61, NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray7_a97bb51db6a4ceaec74f44e9243dc584() {
+ assertEval("argv <- list(c(10L, 10L, 11L, 10L, 12L, 11L, 13L, 12L, 14L, 13L, 15L, 14L, 16L, 15L, 17L, 16L, 18L, 17L, 19L, 18L, 20L, 19L, 21L, 20L, 22L, 21L, 23L, 22L, 24L, 23L, 25L, 24L, 26L, 25L, 27L, 26L, 28L, 27L, 29L, 28L, 30L, 29L, 31L, 30L, 32L, 31L, 33L, 32L, 34L, 33L, 35L, 34L, 36L, 35L, 37L, 36L, 38L, 36L, 39L, 38L, 40L, 39L), c(2L, 31L), list(c('target', 'actual'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray8_851e5847b336faa4e7284352602c9b57() {
+ assertEval("argv <- list(c(NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), c(30L, 1L), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinarray_testarray9_f29da9896c8c017d472961825e98baf2() {
+ assertEval("argv <- list(integer(0), c(1L, 0L), structure(list('1', NULL), .Names = c('', ''))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct1_1c500c86dface041952a145584c63c2e() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 109L, wday = 4L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC'), 'UTC'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct10_6dfad3439678f8b9925922d32bd6d5e2() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1, mon = 1L, year = 109L, wday = 0L, yday = 31L, isdst = -1), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC'), 'UTC'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct11_c7c8157329310d8d280f066b7ff799a9() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49), year = 105L, wday = 6L, yday = 0L, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC'), 'UTC'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct12_a6fc18d74036edb3971879e59186fe09() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 2L, hour = 2L, mday = 2L, mon = 1L, year = c(102L, 1102L), wday = 6L, yday = 32L, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')), ''); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct13_bb025be8ae52c06488f607f8c080f413() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = c(2L, 4L, 6L, 8L, 10L, 12L, 14L, 16L, 18L, 20L, 22L, 24L, 26L, 28L, 30L, 32L), mon = 1L, year = 102L, wday = 6L, yday = 32L, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')), ''); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct2_b62827b33dc8c91662f48606de611b14() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1, mon = c(11, 12, 13, 14), year = 100L, wday = 0L, yday = 365L, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'), 'GMT'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct3_0d65533602d92caa782bd7c735504cab() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = -3L, mon = 1L, year = 102L, wday = 6L, yday = 32L, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')), ''); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct4_48bf2e027fc478152fffa7cd3cc4df32() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 12L, mday = 1L, mon = 0L, year = c(70L, 75L, 80L, 85L, 90L, 95L, 100L, 105L, 110L, 115L), wday = 4L, yday = 0L, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'), 'GMT'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct5_fa3202990ad8785e47e61c5b7d40f715() {
+ assertEval("argv <- list(structure(list(sec = numeric(0), min = integer(0), hour = integer(0), mday = integer(0), mon = integer(0), year = integer(0), wday = integer(0), yday = integer(0), isdst = integer(0)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt')), ''); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct6_e1bce99d059a06199c61fbdd45f53300() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = -5L, wday = 2L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'), 'GMT'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct7_31b4a35e00fc72a0fd76538e2d5731cd() {
+ assertEval("argv <- list(structure(list(sec = NA_real_, min = NA_integer_, hour = NA_integer_, mday = NA_integer_, mon = NA_integer_, year = NA_integer_, wday = NA_integer_, yday = NA_integer_, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'), 'GMT'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct8_3bdcede3f03657e1f6ba172f3757d99f() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 70L, wday = 4L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'), 'GMT'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct9_6fc3b32d94b37559931f24ab21576d10() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 22:27, mon = 3L, year = 108L, wday = 2L, yday = 112L, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'), 'GMT'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt1_00f4e9d0e427a431044a5950735dc978() {
+ assertEval("argv <- list(structure(c(2147483648.4, 2147483648.8), class = c('POSIXct', 'POSIXt'), tzone = ''), ''); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt10_9ffeb4cfe131ce48ac5ffaf8ea44d725() {
+ assertEval("argv <- list(character(0), ''); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt11_ac0307df91add091731446ecf15395cc() {
+ assertEval("argv <- list(NULL, ''); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt2_e4eb7330a95043a34482b38f18f977ee() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE), class = c('POSIXct', 'POSIXt')), ''); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt3_191ee8bdf9c2eaadb31bbb9b1fc300d1() {
+ assertEval("argv <- list(structure(1041324768, class = c('POSIXct', 'POSIXt'), tzone = 'GMT'), 'GMT'); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt4_194e051794fdbd53a792e13196afa3ed() {
+ assertEval("argv <- list(structure(c(1208865600, 1208952000, 1209038400, 1209124800, 1209211200), tzone = 'GMT', class = c('POSIXct', 'POSIXt')), 'GMT'); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt5_8ae3a1410937f690b8025d898298c6ab() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), ''); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt6_05e50fdeac8692aeef0965c86952a8c3() {
+ assertEval("argv <- list(structure(32569542120, class = c('POSIXct', 'POSIXt')), ''); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt7_26776a81744f30b28265ad599ddd1405() {
+ assertEval("argv <- list(structure(c(1012798800, 1013403600, 1014008400, 1014613200), class = c('POSIXct', 'POSIXt'), tzone = ''), ''); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt8_53bbe098ec0b9a7e3c85e948f405f103() {
+ assertEval("argv <- list(structure(c(-1893412800, -1861876800, -1830340800, -1798718400, -1767182400, -1735646400, -1704110400, -1672488000, -1640952000, -1609416000, -1577880000, -1546257600, -1514721600, -1483185600, -1451649600, -1420027200, -1388491200, -1356955200, -1325419200, -1293796800, -1262260800, -1230724800, -1199188800, -1167566400, -1136030400, -1104494400, -1072958400, -1041336000, -1009800000, -978264000, -946728000, -915105600, -883569600, -852033600, -820497600, -788875200, -757339200, -725803200, -694267200, -662644800, -631108800, -599572800, -568036800, -536414400, -504878400, -473342400, -441806400, -410184000, -378648000, -347112000, -315576000, -283953600, -252417600, -220881600, -189345600, -157723200, -126187200, -94651200, -63115200, -31492800, 43200, 31579200, 63115200, 94737600, 126273600, 157809600, 189345600, 220968000, 252504000, 284040000, 315576000, 347198400, 378734400, 410270400, 441806400, 473428800, 504964800, 536500800, 568036800, 599659200, 631195200, 662731200, 694267200, 725889600, 757425600, 788961600, 820497600, 852120000, 883656000, 915192000), class = c('POSIXct', 'POSIXt'), tzone = 'GMT'), 'GMT'); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt9_f67f755c24187b6eedba0e4de4d7a058() {
+ assertEval("argv <- list(list(), ''); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinascall_testascall1_75dad11a1d07a7a5fd405091a76cfe2d() {
+ assertEval("argv <- list(list(quote(quote), c(0.568, 1.432, -1.08, 1.08)));as.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascall_testascall2_449d54ebb2b0ae08e77ca684b2cbd4ae() {
+ assertEval("argv <- list(list(quote(quote), FALSE));as.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascall_testascall3_576f6deb6494b95f0406b343929fc8a4() {
+ assertEval("argv <- list(list(quote(quote), list(NULL, c('time', 'status'))));as.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascall_testascall4_a24d7b5f23702c8c1511b88087dd6969() {
+ assertEval("argv <- list(structure(expression(data.frame, check.names = TRUE, stringsAsFactors = TRUE), .Names = c('', 'check.names', 'stringsAsFactors')));as.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascall_testascall5_051693b1bebf4f33d3241d651c72f4d3() {
+ assertEval("argv <- list(list(quote(quote), 80L));as.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascall_testascall6_a95ff22c9ef3ec6e77ee48b0335377c7() {
+ assertEval("argv <- list(list(quote(quote), NA));as.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter1_eb69a7cc1268d0c212505c08d770cbc4() {
+ assertEval("argv <- list('bessel_y(2,nu=181.2): precision lost in result');as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter10_08071ea6b6634642349c781aef4fef38() {
+ assertEval("argv <- list(structure(character(0), package = character(0), class = structure('ObjectsWithPackage', package = 'methods')));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter11_f25c9dde31b138f9617740679ea10483() {
+ assertEval("argv <- list(c(FALSE, TRUE));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter12_8063ac3b5f6f110091ffdb86859d36cc() {
+ assertEval("argv <- list(structure(1:4, .Dim = c(1L, 4L)));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter13_dcbea80759180295bf754fc304b8847b() {
+ assertEval("argv <- list(structure('1', .Tsp = c(1, 1, 1), class = 'ts'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter14_5d7cae1481640b8b52a874449b58979f() {
+ assertEval("argv <- list(structure('Estimates a probability density function, \n', Rd_tag = 'TEXT'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter15_1fc55ece8504953a234dcd3e84978d9a() {
+ assertEval("argv <- list(c(2L, 1L, 3L, NA, 4L));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter16_768a231ba5495283935e93ca485b4d82() {
+ assertEval("argv <- list(structure(-841, class = 'Date'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter17_b8d4817acc339389b67e95ef294856ed() {
+ assertEval("argv <- list(structure(list(list(structure('x', Rd_tag = 'TEXT')), list(structure('an R object representing a hierarchical clustering.\n', Rd_tag = 'TEXT'), structure(' For the default method, an object of class ', Rd_tag = 'TEXT'), structure(list(structure('\'', Rd_tag = 'RCODE'), structure(list(structure('hclust', Rd_tag = 'TEXT')), Rd_tag = '\\link'), structure('\'', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' or\n', Rd_tag = 'TEXT'), structure(' with a method for ', Rd_tag = 'TEXT'), structure(list( structure(list(structure('as.hclust', Rd_tag = 'TEXT')), Rd_tag = '\\link'), structure('()', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' such as\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(structure('\'', Rd_tag = 'RCODE'), structure(list(structure('agnes', Rd_tag = 'TEXT')), Rd_tag = '\\link', Rd_option = structure('cluster', Rd_tag = 'TEXT')), structure('\'', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' in package ', Rd_tag = 'TEXT'), structure(c('\\href{http://CRAN.R-project.org/package=#1}{\\pkg{#1}}', 'cluster'), Rd_tag = 'USERMACRO'), structure(list(list(structure('http://CRAN.R-project.org/package=cluster', Rd_tag = 'VERB')), list(structure(list(structure('cluster', Rd_tag = 'TEXT')), Rd_tag = '\\pkg'))), Rd_tag = '\\href'), structure('.', Rd_tag = 'TEXT'))), Rd_tag = '\\item'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter18_dcdfc842ff66734c6f72fd5ef017a0cd() {
+ assertEval("argv <- list(list(epsilon = 1e-08, maxit = 25, trace = FALSE));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter19_dc0a0964223c6be5f65112cd869cf0e0() {
+ assertEval("argv <- list(structure(list(structure(list(given = c('George', 'E.', 'P.'), family = 'Box', role = NULL, email = NULL, comment = NULL), .Names = c('given', 'family', 'role', 'email', 'comment')), structure(list(given = c('David', 'R.'), family = 'Cox', role = NULL, email = NULL, comment = NULL), .Names = c('given', 'family', 'role', 'email', 'comment'))), class = 'person'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter2_d0d9d9f37ecbe7234fc7edee2ef45a8c() {
+ assertEval("argv <- list(structure(c(12784, 12874, 12965, 13057, 13149, 13239, 13330, 13422, 13514, 13604, 13695, 13787, 13879, 13970, 14061, 14153, 14245), class = 'Date'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter20_a9bdbf0f8c7344444944aa83181144cd() {
+ assertEval("argv <- list(structure(list(structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure('coerce', Rd_tag = 'TEXT')), list(structure(list(structure('signature(from = \'dgCMatrix\', to =\n', Rd_tag = 'RCODE'), structure('\t\'ngCMatrix\')', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(', and many similar ones; typically you should\n', Rd_tag = 'TEXT'), structure(' coerce to ', Rd_tag = 'TEXT'), structure(list(structure('\'nsparseMatrix\'', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' (or ', Rd_tag = 'TEXT'), structure(list(structure('\'nMatrix\'', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure('). Note that\n', Rd_tag = 'TEXT'), structure(' coercion to a sparse pattern matrix records all the potential\n', Rd_tag = 'TEXT'), structure(' non-zero entries, i.e., explicit (', Rd_tag = 'TEXT'), structure(list(structure('non-structural', Rd_tag = 'TEXT')), Rd_tag = '\\dQuote'), structure(') zeroes\n', Rd_tag = 'TEXT'), structure(' are coerced to ', Rd_tag = 'TEXT'), structure(list(structure('TRUE', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(', not ', Rd_tag = 'TEXT'), structure(list(structure('FALSE', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(', see the example.\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure('t', Rd_tag = 'TEXT')), list(structure(list(structure('signature(x = \'ngCMatrix\')', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(': returns the transpose\n', Rd_tag = 'TEXT'), structure(' of ', Rd_tag = 'TEXT'), structure(list(structure('x', Rd_tag = 'RCODE')), Rd_tag = '\\code'))), Rd_tag = '\\item'), structure('\n', Rd_tag = 'TEXT'), structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure('which', Rd_tag = 'TEXT')), list(structure(list(structure('signature(x = \'lsparseMatrix\')', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(', semantically\n', Rd_tag = 'TEXT'), structure(' equivalent to ', Rd_tag = 'TEXT'), structure(list(structure('base', Rd_tag = 'TEXT')), Rd_tag = '\\pkg'), structure(' function ', Rd_tag = 'TEXT'), structure(list(structure(list(structure('which', Rd_tag = 'TEXT')), Rd_tag = '\\link'), structure('(x, arr.ind)', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(';\n', Rd_tag = 'TEXT'), structure(' for details, see the ', Rd_tag = 'TEXT'), structure(list(structure(list(structure('lMatrix', Rd_tag = 'TEXT')), Rd_tag = '\\linkS4class')), Rd_tag = '\\code'), structure(' class documentation.', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT')), Rd_tag = '\\describe'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter21_c59e7643dd52315ba5744cc5d8a551da() {
+ assertEval("argv <- list(c(3, 3, NA, NA, NA, NA, 4, 3, 4, NA, NA, 2, 3, 3, NA, NA, 2, 4, NA, 2, 5, 2, 2, 4, 3, NA, 2, NA, 3, 3));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter22_fae2b02cf6067c39f3cf522eed4b0381() {
+ assertEval("argv <- list(structure(list(structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure(list(structure('languageEl', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(':', Rd_tag = 'TEXT')), list(structure('\n', Rd_tag = 'TEXT'), structure(' extract an element of a language object, consistently for\n', Rd_tag = 'TEXT'), structure(' different kinds of objects.\n', Rd_tag = 'TEXT'), structure('\n', Rd_tag = 'TEXT'), structure(' The 1st., etc. elements of a function are the corresponding formal\n', Rd_tag = 'TEXT'), structure(' arguments, with the default expression if any as value.\n', Rd_tag = 'TEXT'), structure('\n', Rd_tag = 'TEXT'), structure(' The first element of a call is the name or the function object\n', Rd_tag = 'TEXT'), structure(' being called.\n', Rd_tag = 'TEXT'), structure('\n', Rd_tag = 'TEXT'), structure(' The 2nd, 3rd, etc. elements are the 1st, 2nd, etc. arguments\n', Rd_tag = 'TEXT'), structure(' expressions. Note that the form of the extracted name is\n', Rd_tag = 'TEXT'), structure(' different for R and S-Plus. When the name (the first element) of\n', Rd_tag = 'TEXT'), structure(' a call is replaced, the languageEl replacement function coerces a\n', Rd_tag = 'TEXT'), structure(' character string to the internal form for each system.\n', Rd_tag = 'TEXT'), structure('\n', Rd_tag = 'TEXT'), structure(' The 1st, 2nd, 3rd elements of an ', Rd_tag = 'TEXT'), structure(list(structure('if', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' expression are the\n', Rd_tag = 'TEXT'), structure(' test, first, and second branch.\n', Rd_tag = 'TEXT'), structure('\n', Rd_tag = 'TEXT'), structure(' The 1st element of a ', Rd_tag = 'TEXT'), structure(list(structure('for', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' object is the name (symbol) being\n', Rd_tag = 'TEXT'), structure(' used in the loop, the second is the expression for the range of\n', Rd_tag = 'TEXT'), structure(' the loop, the third is the body of the loop.\n', Rd_tag = 'TEXT'), structure('\n', Rd_tag = 'TEXT'), structure(' The first element of a ', Rd_tag = 'TEXT'), structure(list(structure('while', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' object is the loop test, and\n', Rd_tag = 'TEXT'), structure(' the second the body of the loop.\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure('\n', Rd_tag = 'TEXT'), structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure(list(structure('isGrammarSymbol', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(':', Rd_tag = 'TEXT')), list(structure('\n', Rd_tag = 'TEXT'), structure(' Checks whether the symbol is part of the grammar.\n', Rd_tag = 'TEXT'), structure(' Don't use this function directly.\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT')), Rd_tag = '\\describe'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter23_6fdb82bf5b240f3a1554fd9742383ce3() {
+ assertEval("argv <- list(structure(c(1L, 2L, 2L, 3L, 3L, 1L, NA), .Label = c('Australia', 'UK', 'US'), class = 'factor'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter24_fa6e2ffc98f3b422be091992652cc063() {
+ assertEval("argv <- list(structure(list(4L), class = c('package_version', 'numeric_version')));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter25_4a278ee360572b2fc186c42a35da6cd7() {
+ assertEval("argv <- list(c(-Inf, NaN, Inf));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter26_efcb7ac4d7336a1aa5a21bb154aba5b5() {
+ assertEval("argv <- list(FALSE, useSource = TRUE);as.character(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter27_29b6d978153d83e41e226b193226d861() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, NA, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, NA, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, NA, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, NA, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c('0', '1'), class = 'factor'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter28_be987cc5e86462dab4ec1574a5c96efd() {
+ assertEval("argv <- list(structure(c(11323, 11330, 11337, 11344, 11351, 11358, 11365, 11372, 11379, 11386), class = 'Date'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter29_bef30abe3ae49c76141fa6440f842332() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Dim = c(10L, 2L)));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter3_a18dffd524006e4bec7eeedd1e8f3007() {
+ assertEval("argv <- list(c(2L, 1L, NA));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter30_c6f35b7d77599542ab3ee21bb75f4098() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, NA, NA, FALSE, FALSE, TRUE, FALSE, NA, NA, NA, NA, NA, NA, FALSE, NA, FALSE, FALSE, NA, NA, FALSE, NA, NA, FALSE, FALSE, FALSE, FALSE, FALSE, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, TRUE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, NA, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, NA, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, NA, NA, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, FALSE, TRUE, FALSE, NA, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter31_af72e6e6773af7dbdd47e72d67d32db7() {
+ assertEval("argv <- list(structure(c(1338523200, 1338609600, 1338696000, 1338782400, 1338868800, 1338955200, 1339041600), class = c('POSIXct', 'POSIXt'), tzone = ''));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter32_a11a635f4f38ef064bbb2362dbb2872f() {
+ assertEval("argv <- list(structure(1:4, class = 'roman'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter33_bfd40d27cb62313f8a4f594b48fbffbf() {
+ assertEval("argv <- list(logical(0));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter34_a673b801889dbc1428aae9fe0b85dbfc() {
+ assertEval("argv <- list(structure(c(1104537600, 1107216000, 1109635200, 1112313600, 1114905600, 1117584000, 1120176000, 1122854400, 1125532800, 1128124800, 1130803200, 1133395200, 1136073600, 1138752000, 1141171200, 1143849600, 1146441600, 1149120000, 1151712000, 1154390400, 1157068800, 1159660800, 1162339200, 1164931200, 1167609600, 1170288000, 1172707200, 1175385600, 1177977600, 1180656000, 1183248000, 1185926400, 1188604800, 1191196800, 1193875200, 1196467200, 1199145600, 1201824000, 1204329600, 1207008000, 1209600000, 1212278400, 1214870400, 1217548800, 1220227200, 1222819200, 1225497600, 1228089600, 1230768000), class = c('POSIXct', 'POSIXt'), tzone = 'UTC'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter35_21d5a7a977e1f65845bfc91cde2fecbf() {
+ assertEval("argv <- list(c(-4, 4, 3.99, -1, -3.01));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter36_d62bef6853e53de40aaca7bd0f19cdef() {
+ assertEval("argv <- list(list(exit.code = 0L, send = NULL));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter37_cdb05678b20bc43ff1a5edf88e96310d() {
+ assertEval("argv <- list(c(34L, -45L));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter38_945a289b35a64af860b30dc13577f0f7() {
+ assertEval("argv <- list(structure(c(978307200, 978912000, 979516800, 980121600, 980726400, 981331200, 981936000, 982540800, 983145600, 983750400), class = c('POSIXct', 'POSIXt'), tzone = 'GMT'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter39_d18e175683c639c331c42f4c7a5a5aed() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));as.character(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter4_11f4ff562a49542ee4949e9c4078e4a8() {
+ assertEval("argv <- list(c('### Encoding: UTF-8', '', '### Name: text', '### Title: Add Text to a Plot', '### Aliases: text text.default', '### Keywords: aplot', '', '### ** Examples', '', 'plot(-1:1, -1:1, type = \'n\', xlab = \'Re\', ylab = \'Im\')', 'K <- 16; text(exp(1i * 2 * pi * (1:K) / K), col = 2)', '', '## The following two examples use latin1 characters: these may not', '## appear correctly (or be omitted entirely).', 'plot(1:10, 1:10, main = \'text(...) examples\\n~~~~~~~~~~~~~~\',', ' sub = \'R is GNU ©, but not ® ...\')', 'mtext(\'«Latin-1 accented chars»: éè øØ å<Å æ<Æ\', side = 3)', 'points(c(6,2), c(2,1), pch = 3, cex = 4, col = \'red\')', 'text(6, 2, \'the text is CENTERED around (x,y) = (6,2) by default\',', ' cex = .8)', 'text(2, 1, \'or Left/Bottom - JUSTIFIED at (2,1) by 'adj = c(0,0)'\',', ' adj = c(0,0))', 'text(4, 9, expression(hat(beta) == (X^t * X)^{-1} * X^t * y))', 'text(4, 8.4, \'expression(hat(beta) == (X^t * X)^{-1} * X^t * y)\',', ' cex = .75)', 'text(4, 7, expression(bar(x) == sum(frac(x[i], n), i==1, n)))', '', '## Two more latin1 examples', 'text(5, 10.2,', ' \'Le français, c'est façile: Règles, Liberté, Egalité, Fraternité...\')', 'text(5, 9.8,', ' \'Jetz no chli züritüütsch: (noch ein bißchen Zürcher deutsch)\')', '', '', ''));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter40_2b19c43c5220d4933e35afa1bcc7236c() {
+ assertEval("argv <- list(structure(list(), class = 'numeric_version'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter41_38f994ae887dde2f849bad979235dc68() {
+ assertEval("argv <- list(structure(list(c0 = structure(character(0), class = 'AsIs')), .Names = 'c0', row.names = character(0), class = 'data.frame'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter42_4cd3aed711e78cfcab749a3f20dca4ba() {
+ assertEval("argv <- list(structure(c(12784, 13879), class = 'Date'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter43_19ac265a3caa759bd74a6699ecb410a4() {
+ assertEval("argv <- list(NaN);as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter44_859da2fa62a78157d7c6b7ef4fbcb1e2() {
+ assertEval("argv <- list(Inf);as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter45_08810f19c1e797ff549ac40bac3e0089() {
+ assertEval("argv <- list(c('class', 'names', 'package'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter46_82ba430b0bf2481d1fa0aaf7e48236f6() {
+ assertEval("argv <- list(c(59.5, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59.5));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter5_2c93fd2ee5e7cb09eb618554731299b9() {
+ assertEval("argv <- list(structure(1395082040.29392, class = c('POSIXct', 'POSIXt')));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter6_3a74fb61513825dd5b604943899cea85() {
+ assertEval("argv <- list(structure(2:3, .Label = c('C', 'A', 'B'), class = 'factor'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter7_6150141ca1078d6dd7c0351363c301ea() {
+ assertEval("argv <- list(structure(1:255, class = 'octmode'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter8_34c41c61de16c936dde0a40e462a5503() {
+ assertEval("argv <- list(c(Inf, -Inf, NaN, NA));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascharacter_testascharacter9_790206fdb6bf153d4d3de9d9511867e2() {
+ assertEval("argv <- list(c(1, 2, NA, 2));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascomplex_testascomplex1_02046701d30d830c5bd81ccfe06a0f63() {
+ assertEval("argv <- list(logical(0), logical(0));as.complex(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascomplex_testascomplex10_30e49ba1acb87ff4056fe35381a55a76() {
+ assertEval("argv <- list(structure(list(a = 1), .Names = 'a'));as.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascomplex_testascomplex11_1f940f219e8455931a1dc705ad720aea() {
+ assertEval("argv <- list(NULL, NULL);as.complex(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascomplex_testascomplex2_66b0341a1e8ff24f50aa73250d2f5cd9() {
+ assertEval("argv <- list(FALSE, FALSE);as.complex(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascomplex_testascomplex3_6b1a5856287e1b6f81d7fb7816559fd8() {
+ assertEval("argv <- list(' ');as.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascomplex_testascomplex4_6b7f43ff80f5b6bce19734fce23ab66e() {
+ assertEval("argv <- list(structure(c(-0.626453810742332, 0.183643324222082, -0.835628612410047, 1.59528080213779, 0.329507771815361, -0.820468384118015, 0.487429052428485, 0.738324705129217, 0.575781351653492, -0.305388387156356, 1.51178116845085, 0.389843236411431, -0.621240580541804, -2.2146998871775, 1.12493091814311, -0.0449336090152309, -0.0161902630989461, 0.943836210685299, 0.821221195098089, 0.593901321217509, 0.918977371608218, 0.782136300731067, 0.0745649833651906, -1.98935169586337, 0.61982574789471), .Dim = c(5L, 5L), .Dimnames = list(c('1', '2', '3', '4', '5'), c('a', 'b', 'c', 'd', 'e'))));as.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascomplex_testascomplex5_1614ad635ca864e4c18f7cb7eead4039() {
+ assertEval("argv <- list('1.3');as.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascomplex_testascomplex6_6fba59c292c0f19676b228cbf4c35773() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));as.complex(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascomplex_testascomplex7_5fe78ce599bd28e6b314c3eca83c918e() {
+ assertEval("argv <- list(NA_complex_);as.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascomplex_testascomplex8_172d9473e99bfa0f9d8ce85f102b5109() {
+ assertEval("argv <- list(integer(0));as.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinascomplex_testascomplex9_e58b153afa386b954fc50944b2612096() {
+ assertEval("argv <- list(1L);as.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble1_949937c9a3cc24a49a7010d9421437f7() {
+ assertEval("argv <- list(c(3.14159265358979, 3.14159265358981, 3.14159265358981, 3.14159265358981, 3.14159265358978, 3.1415926535898, 3.1415926535898, 3.14159265358978, 3.14159265358981, 3.14159265358979, 3.14159265358979, 3.14159265358978, 3.14159265358979, 3.14159265358981, 3.1415926535898, 3.14159265358978, 3.14159265358978, 3.14159265358978, 3.14159265358978, 3.14159265358981, 3.14159265358981, 3.14159265358978, 3.14159265358979, 3.14159265358978, 3.14159265358978, 3.14159265358978, 3.1415926535898, 3.14159265358977, 3.14159265358979, 3.14159265358979, 3.1415926535898, 3.14159265358979, 3.1415926535898, 3.14159265358979, 3.14159265358979, 3.14159265358981, 3.14159265358978, 3.1415926535898, 3.14159265358979, 3.14159265358981, 3.1415926535898, 3.14159265358981, 3.14159265358978, 3.1415926535898, 3.14159265358981, 3.1415926535898, 3.14159265358978, 3.14159265358979, 3.14159265358978, 3.14159265358979, 3.1415926535898, 3.14159265358981, 3.14159265358978, 3.1415926535898, 3.14159265358979, 3.1415926535898, 3.14159265358978, 3.1415926535898, 3.14159265358978, 3.14159265358979, 3.1415926535898, 3.14159265358978, 3.1415926535898, 3.14159265358981, 3.14159265358977, 3.14159265358981, 3.14159265358978, 3.14159265358978, 3.14159265358981, 3.14159265358979, 3.14159265358977, 3.14159265358978, 3.14159265358981, 3.14159265358979, 3.14159265358981, 3.1415926535898, 3.14159265358979, 3.14159265358979, 3.1415926535898, 3.14159265358979, 3.14159265358981, 3.14159265358979, 3.14159265358979, 3.14159265358981, 3.14159265358977, 3.1415926535898, 3.14159265358979, 3.1415926535898, 3.14159265358979, 3.1415926535898, 3.1415926535898, 3.1415926535898, 3.14159265358978, 3.1415926535898, 3.1415926535898, 3.1415926535898, 3.14159265358981, 3.14159265358979, 3.14159265358978, 3.14159265358981, 3.14159265358981));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble10_ad3f790c5ef90bf74aed796c4698b54a() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 0, 7, 8, 9, 10, 11, 12), .Dim = c(4L, 3L)));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble11_888f0cba047d3b8e1059f6862b221d2e() {
+ assertEval("argv <- list(c(NA, '0.0021'));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble12_53be43f336b689fd606ea6761c3b1241() {
+ assertEval("argv <- list(character(0));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble13_57b195a68ee0874096e034c3f79b52e4() {
+ assertEval("argv <- list(structure(c(21, 16.4, 18.7, 16.8, 17.8, 10.9, 14, 3.5, 4.3, 3.5, 2.7, 6, 14, 2.3), .Dim = c(7L, 2L), .Dimnames = list(c('L', 'NL', 'D', 'B', 'F', 'IRL', 'UK'), c('x', 'y'))));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble14_70b49c2c7ddf9261cf5c8025bb4af88f() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707712e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.96881154539801e-173, 0, 8.23599653846971e-150, 0, 0, 0, 0, 6.51733217171342e-10, 0, 2.36840184577368e-67, 0, 9.43484083575241e-307, 0, 1.59959906013772e-89, 0, 8.73836857865035e-286, 7.09716190970993e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044552e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.07028772732371e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.75227273320951e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble15_ca6daf04b74655fa737fbef3ebb42f5f() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c('WinF', 'WinNF', 'Veh', 'Con', 'Tabl', 'Head'), class = 'factor'));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble16_aecc96e5426db7d2f179d188c23f236c() {
+ assertEval("argv <- list(structure(28, units = 'days', class = 'difftime'), units = 'secs');as.double(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble17_771eab2b1b80232360bbc5fc57912329() {
+ assertEval("argv <- list(structure(c(0, 0.000202660677936876, 0.00241803309686265, 0.00307283986031733, 0.00265711006681184, 0.00284334291579362, 0.00328411981940272, 0.00355926216704063, 0.00344761438149018, 0.00289210744006633, 0.00204225708046235, 0.00178504641867207, 0.00172572372502035, 0.00159946455058003, 0.00194868716238274, 0.00230753595074067, 0.00246954915831488, 0.00290833971278575, 0.00337412960419987, 0.00358181270769781, 0.00354428559372645, 0.00326334045783046, 0.00298117073292367, 0.00293436142844913, 0.0029459867318606, 0.00298412396438805, 0.00320781989229225, 0.00342867445796099, 0.00405369787195761, 0.00417753179826535, 0.00414267894375602, 0.00407024400729904, 0.00393965520892809, 0.00385238230694322, 0.00383595140804293, 0.00378781523717584, 0.0037736404476557, 0.00382248725149436, 0.00381326514145668, 0.0038973026728862, 0.00395676065396717, 0.00431861015154494, 0.00443079015716877, 0.00450544753584657, 0.00439372971759073, 0.00433442297069524, 0.00429954456230782, 0.00426944313801568, 0.00423795462806802, 0.00417472474765742, 0.0042795282659813, 0.00454163385850258, 0.00473601380444899, 0.00466407336984038, 0.00462392764582444, 0.00456056187379283, 0.0045055003087985, 0.00442670076624794, 0.00431121205766447, 0.00421990442925801, 0.00416971729251421, 0.00407853686842565, 0.00409133004830999, 0.0041364805798209, 0.00427208054940612, 0.0044573146303062, 0.00463786827882152, 0.00462599613024964, 0.00456902544608922, 0.00448500474247415, 0.00443631355776013, 0.0043987926301962, 0.00439976139365821, 0.00444739366229557, 0.00441357461857941, 0.00445091952164202, 0.00450346393728121, 0.00462169457996522, 0.004734024297345, 0.00475873200245829, 0.00475253573403064, 0.00471631526131182, 0.00465515282727091, 0.00464698887217466, 0.00462685789718263, 0.00462996361305565, 0.00464191147874474, 0.00464879307071608, 0.00469113571839472, 0.00476270873398438, 0.00477314235918783, 0.00479544142345609, 0.0047737904084596, 0.00471999826644103, 0.00469372169840419, 0.0046463488677134, 0.00461799759453906, 0.00458947682120691, 0.00460912357592989, 0.00463333675159159, 0.00466732307616235, 0.00471231441093801, 0.00474022677208645, 0.00477297287765633, 0.00476766819213148, 0.00473849505147981, 0.00469782534032621, 0.00463861048753855, 0.00457840111456501, 0.00452291229235016, 0.00446341204452307, 0.00442002128896248, 0.00442991931450486, 0.00446688166198173, 0.00452411449686222, 0.00458536543416883, 0.00454175859707822, 0.00450829288322652, 0.00445725707512455, 0.00439091360820385, 0.00437267387139272, 0.00436951404759565, 0.00439586780117785, 0.00443132731253063, 0.00447997483459774, 0.00446916178054371, 0.00448357738281654, 0.00448976052744213, 0.00450610513067692, 0.00449385388080097, 0.00448875792730345, 0.00450025038413588, 0.00448200635475038, 0.00445933490412089, 0.00437269614488144, 0.00441152247400175, 0.00444283816260407, 0.00446748686328766, 0.00448539598299297, 0.00445924890176085, 0.00444386385593038, 0.00445984197910477, 0.00443574296742794, 0.00440036042966077), .Tsp = c(1949, 1960.91666666667, 12), class = 'ts'));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble18_c5d23a4a19328f2300a28b0ea088a129() {
+ assertEval("argv <- list(c(0.0099, 0.099, 0.99, 9.9, 99, 990, 9900, 99000, 990000, 9900000, 9.9e+07, 9.9e+08, 9.9e+09, 9.9e+10));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble19_1c0639528f35ceceb26fe3eac156aa8a() {
+ assertEval("argv <- list(structure(180.958333333333, units = 'days', class = 'difftime'), units = 'secs');as.double(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble2_0bfae9e14e6f29807a45929a9d755a1e() {
+ assertEval("argv <- list(c('10', '2.7404', '0.27404', ''));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble20_f01381c0a139dfa3415ded1996828da5() {
+ assertEval("argv <- list(NULL);as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble21_5a423bbbaa3b3d9af3d1b35ac7725497() {
+ assertEval("argv <- list(structure(list(foo = 5L, Species = 2L), .Names = c('foo', 'Species'), out.attrs = structure(list(dim = structure(c(6L, 3L), .Names = c('foo', 'Species')), dimnames = structure(list(foo = c('foo=1', 'foo=2', 'foo=3', 'foo=4', 'foo=5', 'foo=6'), Species = c('Species=1', 'Species=2', 'Species=3')), .Names = c('foo', 'Species'))), .Names = c('dim', 'dimnames')), row.names = 11L, class = 'data.frame'));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble22_340fd104c77c03ffa28a68ba601797c8() {
+ assertEval("argv <- list(c(TRUE, FALSE, TRUE));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble23_602314a508c3f3d98485e5b8e4f2c076() {
+ assertEval("argv <- list(c(TRUE, TRUE, FALSE));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble24_9141429e3f0ddd5b3066f5a9d68a6a39() {
+ assertEval("argv <- list(c(NA, NA, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble25_248e4823271ed0c04360f034b891a11c() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L), .Label = c('Rural Male', 'Rural Female', 'Urban Male', 'Urban Female'), class = 'factor', .Dim = c(5L, 4L)));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble26_a6bb7c79ffe4e8b071f239d5f3350fa6() {
+ assertEval("argv <- list(c(NaN, 9.51350769866873, 4.5908437119988, 2.99156898768759, 2.21815954375769, 1.77245385090552, 1.48919224881282, 1.29805533264756, 1.1642297137253, 1.06862870211932, 1));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble27_e25eeefaa5bce829117c2999a4888583() {
+ assertEval("argv <- list(structure(3:5, .Tsp = c(1, 3, 1), class = 'ts'));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble28_8b20b7f87545be17d40c139f2792c87d() {
+ assertEval("argv <- list('Inf');as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble29_485ef8d9b4e59421979c627b3fcd6067() {
+ assertEval("argv <- list(c(' 9', ' 3', ' 3', ' 6.761', '156.678', ' 18.327', ' 11.764', '191.64', '323.56', '197.21', '190.64'));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble3_989f5b7197ccb6c5baa05f4684e7374e() {
+ assertEval("argv <- list(structure(4, tzone = 'GMT', units = 'days', class = 'difftime'), units = 'secs');as.double(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble30_a6e78218be9b105b6012ef1fe4c411d0() {
+ assertEval("argv <- list(structure(c(NA, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L, 70L, 71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 80L, 81L, 82L, 83L, 84L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L, 97L, 98L, 99L, 100L), .Tsp = c(1, 101, 1), class = 'ts'));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble4_a0950698284ee64d6608a2e5bdb92b83() {
+ assertEval("argv <- list('NaN');as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble5_f91f88d89ebae824397bdeb8c2389759() {
+ assertEval("argv <- list(structure(c(1.97479242156194, 1.71068206679967, 1.52241456554483), .Names = c('Bens of Jura', 'Knock Hill', 'Lairig Ghru')));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble6_752d38d8a75436778dc2a1a3f8ecca88() {
+ assertEval("argv <- list(c(856722023.658297, 302896976.260735, 107090252.958018, 37862122.0336249, 13386281.6212132, 4732765.25626924, 1673285.20557359, 591595.661165903, 209160.656540579, 73949.4659102332, 26145.0937553316, 9243.69976775411, 3268.16009484595, 1155.49552841673, 408.56675987247, 144.503039869403, 51.1642500846007, 18.1945635811076, 6.57944169516568, 2.52146555042134, 1.10249557516018, 0.395623281358704, -0.367112032460934, 0.27396220835345, -0.0693674921217567, 0.0814543296800769, 0.0923699793060252, 0.0504684833914985, -0.0498360425475413, 0.00273531641447061, -0.00392881268836618));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble7_4d29d409a409fed21c1bda98325ac766() {
+ assertEval("argv <- list(c(1.90069420068965e+68, 1.85614668036113e+65, 1.81264324254072e+62, 1.77015941654582e+59, 1.72867130522891e+56, 1.68815557154536e+53, 1.64858942546521e+50, 1.60995061130567e+47, 1.57221739580551e+44, 1.53536855821758e+41, 1.49938338742443e+38, 1.46424170564914e+35, 1.42992399523352e+32, 1.39641192722393e+29, 1.36369045875401e+26, 1.33175605805513e+23, 1.30064886911081e+20, 127057845771019376, 124241617095379, 121963623349.57, 121618014.278689, 129184.542208039, 178.330555907964, 0.906701004569228, -0.0905266041439205, 0.141777480680994, 0.0921442943441807, 0.0658533118803105, -0.0402995417166551, 0.0244881559995369, -0.0194680918617461));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble8_8eade01b937fb096c73488398e8454f4() {
+ assertEval("argv <- list(c(3.69420518444359e+25, 2.30887824027777e+24, 1.44304890017492e+23, 9.01905562612606e+21, 5.63690976641081e+20, 35230686042118275072, 2201917878145066496, 137619867512235136, 8601241751556820, 537577617482832, 33598603095309.8, 2099913194115.17, 131244699796.888, 8202825028.58974, 512684387.219832, 32044730.0464007, 2003284.70114408, 125327.674230857, 7863.68742857025, 499.272560819512, 33.2784230289721, 2.7659432263306, 0.488936768533843, -0.282943224311172, 7.32218543045282e-05, -0.00636442868227041, -0.0483709204009262, -0.0704795507649514, 0.0349437746169591, -0.0264830837608839, 0.0200901469411759));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasdouble_testasdouble9_8cb69151782f373c8be02b95f356324b() {
+ assertEval("argv <- list(c('-.1', ' 2.7 ', 'B'));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasin_testasin1_434240b01001b58f44151dc8bf0198f6() {
+ assertEval("argv <- list(c(0.185157057377868, 0.15968866445196, 0.190428414477965, 0.0799378829516562, 0.043979457119882, 0.0348843282121068, 0.0484793103572122, 0.109221220908651, 0.264364324223884, 0.211999913632203, 0.141157385938914, 0.143099951254224, 0.193270515700824, 0.217573738375349, 0.216954681783302, 0.291716047319384, 0.387858840434923, 0.461666520261029, 0.49992310387409, 0.421641232345205, 0.419256648241403, 0.442116045838704, 0.375354272383531, 0.416333612927645, 0.506835005179142, 0.408511923588378, 0.442160540547329, 0.59649385178332, 0.729919018318794, 0.811421169963513, 0.896290688103034, 0.752346465072037, 0.654905104838795, 0.821242494513718, 0.91715624670646, 0.885960209053628));asin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasin_testasin2_491c4b3e1cb2ac77763d88264422d3f4() {
+ assertEval("argv <- list(c(2+0i, 2-0.0001i, -2+0i, -2+0.0001i));asin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasin_testasin3_4b79981613e436caf0aa2740956b68dd() {
+ assertEval("argv <- list(logical(0));asin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasin_testasin4_eac36778e49b62a2cdadde00d617dd3d() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));asin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinh_testasinh1_17b231c174eb6826c7a3339e6d3a6538() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));asinh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinh_testasinh2_16feec78b53e130c27fcea5ecdaf5fed() {
+ assertEval("argv <- list(FALSE);asinh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinh_testasinh3_fd62a29e7b6704ee7f1c2825c236b191() {
+ assertEval("argv <- list(c(-10.0178749274099, -9.71883514604503, -9.428631115578, -9.14699900083883, -8.87368275970178, -8.60843391030797, -8.35101130516145, -8.10118091189307, -7.85871560049306, -7.62339493681878, -7.39500498218993, -7.17333809888897, -6.95819276139009, -6.74937337314489, -6.54669008875839, -6.34995864139355, -6.15900017524753, -5.9736410829473, -5.79371284771676, -5.61905189017195, -5.44949941960501, -5.28490128962169, -5.12510785800119, -4.96997385065093, -4.81935822953248, -4.67312406443873, -4.53113840850555, -4.39327217734495, -4.25940003168967, -4.12940026344266, -4.00315468502777, -3.88054852194104, -3.76147030840502, -3.64581178603109, -3.53346780539777, -3.42433623045557, -3.31831784567124, -3.21531626582739, -3.11523784839505, -3.01799160839986, -2.92348913570423, -2.83164451463048, -2.74237424585168, -2.65559717047939, -2.57123439627907, -2.48920922594631, -2.40944708737842, -2.33187546587824, -2.25642383822831, -2.18302360857567, -2.1116080460688, -2.04211222419016, -1.97447296172911, -1.90862876534153, -1.84451977364398, -1.78208770279149, -1.72127579348957, -1.66202875939226, -1.60429273683927, -1.54801523588655, -1.49314509258573, -1.43963242246912, -1.38742857519786, -1.33648609033215, -1.2867586541832, -1.23820105770775, -1.19076915540686, -1.1444198251916, -1.0991109291792, -1.05480127538394, -1.01145058026799, -0.969019432118151, -0.927469255215247, -0.886762274763496, -0.84686148254806, -0.807730603289509, -0.769334061664634, -0.731636949963607, -0.6946049963541, -0.658204533723497, -0.622402469070884, -0.587166253420983, -0.55246385223268, -0.518263716275245, -0.484534752945762, -0.451246298001703, -0.41836808768293, -0.385870231197804, -0.353723183548358, -0.321897718669858, -0.290364902860306, -0.25909606847575, -0.22806278786747, -0.19723684753736, -0.166590222487993, -0.13609505074407, -0.105723608022064, -0.0754482825250618, -0.0452415498398571, -0.0150759479134945, 0.015075947913494, 0.0452415498398571, 0.0754482825250618, 0.105723608022064, 0.136095050744069, 0.166590222487993, 0.19723684753736, 0.22806278786747, 0.259096068475749, 0.290364902860306, 0.321897718669858, 0.353723183548358, 0.385870231197804, 0.41836808768293, 0.451246298001702, 0.484534752945762, 0.518263716275245, 0.55246385223268, 0.587166253420983, 0.622402469070883, 0.658204533723497, 0.6946049963541, 0.731636949963607, 0.769334061664634, 0.807730603289509, 0.84686148254806, 0.886762274763496, 0.927469255215247, 0.96901943211815, 1.01145058026799, 1.05480127538394, 1.0991109291792, 1.1444198251916, 1.19076915540686, 1.23820105770775, 1.2867586541832, 1.33648609033215, 1.38742857519786, 1.43963242246912, 1.49314509258573, 1.54801523588655, 1.60429273683927, 1.66202875939226, 1.72127579348957, 1.78208770279149, 1.84451977364398, 1.90862876534153, 1.97447296172911, 2.04211222419016, 2.1116080460688, 2.18302360857567, 2.25642383822831, 2.33187546587824, 2.40944708737842, 2.48920922594631, 2.57123439627907, 2.65559717047939, 2.74237424585168, 2.83164451463048, 2.92348913570423, 3.01799160839985, 3.11523784839505, 3.21531626582738, 3.31831784567124, 3.42433623045557, 3.53346780539777, 3.64581178603109, 3.76147030840502, 3.88054852194104, 4.00315468502777, 4.12940026344266, 4.25940003168967, 4.39327217734494, 4.53113840850555, 4.67312406443873, 4.81935822953248, 4.96997385065093, 5.12510785800119, 5.28490128962168, 5.44949941960501, 5.61905189017195, 5.79371284771676, 5.9736410829473, 6.15900017524753, 6.34995864139355, 6.54669008875838, 6.74937337314489, 6.95819276139008, 7.17333809888896, 7.39500498218993, 7.62339493681878, 7.85871560049306, 8.10118091189307, 8.35101130516145, 8.60843391030797, 8.87368275970177, 9.14699900083883, 9.428631115578, 9.71883514604503, 10.0178749274099));asinh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinh_testasinh4_b3a04ee92591d9476b3e306bb9ba5957() {
+ assertEval("argv <- list(c(0+2i, 0.0001+2i, 0-2i, 0-2.0001i));asinh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger1_61bd60c145c6c93f455382050495eff4() {
+ assertEval("argv <- list(structure(c(4L, 5L, 3L, 2L, 2L, 1L, 6L), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables', 'R Core'), class = 'factor'));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger10_1339eee6cc2fbd993df70a1fa8c5959d() {
+ assertEval("argv <- list(c('1', NA, '0'));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger11_ba3f5ab0028149747c7aeb88e4a1f518() {
+ assertEval("argv <- list(c('3', '14159265358979'));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger12_418363e802e121c503e8906e489c1d04() {
+ assertEval("argv <- list(TRUE);as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger13_f9e6d4250375d8906cff5260556cf143() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0), .Dim = c(13L, 1L), .Dimnames = list(c('59', '115', '156', '268', '329', '431', '448', '477', '638', '803', '855', '1040', '1106'), NULL)));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger14_f2134d83fdf785cd1aeeec020c349b0b() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger15_d9368baa187d86d4d3ac59544b8f63c3() {
+ assertEval("argv <- list(character(0));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger16_c17be30e286ea45d7ce7f22d4bd2b90c() {
+ assertEval("argv <- list(4999.0000000001);as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger17_b642a15a779bdcbfaf08ebd6b26a6dc7() {
+ assertEval("argv <- list(structure(c(100, -1e-13, Inf, -Inf, NaN, 3.14159265358979, NA), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger18_07cdcb20bfcc60428de54cbff5734ad7() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 2L), .Label = c('1', '2', NA), class = 'factor'));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger19_b1ac2856065182429238cea650e2e6f3() {
+ assertEval("argv <- list(structure(c(NA, 1L, NA, 2L, 1L, NA, NA, 1L, 4L, 1L, NA, 4L, 1L, 3L, NA, 4L, 2L, 2L, NA, 4L, 4L, 2L, 4L, 4L, 2L, 1L, 4L, 4L, 3L, 1L, 1L, 4L, 1L, 4L, NA, 1L, 4L, 4L, 2L, 2L, 4L, 4L, 3L, 4L, 2L, 2L, 3L, 3L, 4L, 1L, 1L, 1L, 4L, 1L, 4L, 4L, 4L, 4L, NA, 4L, 4L, 4L, NA, 1L, 2L, 3L, 4L, 3L, 4L, 2L, 4L, 4L, 1L, 4L, 1L, 4L, NA, 4L, 2L, 1L, 4L, 1L, 1L, 1L, 4L, 4L, 2L, 4L, 1L, 1L, 1L, 4L, 1L, 1L, 1L, 4L, 3L, 1L, 4L, 3L, 2L, 4L, 3L, 1L, 4L, 2L, 4L, NA, 4L, 4L, 4L, 2L, 1L, 4L, 4L, NA, 2L, 4L, 4L, 1L, 1L, 1L, 1L, 4L, 1L, 2L, 3L, 2L, 1L, 4L, 4L, 4L, 1L, NA, 4L, 2L, 2L, 2L, 4L, 4L, 3L, 3L, 4L, 2L, 4L, 3L, 1L, 1L, 4L, 2L, 4L, 3L, 1L, 4L, 3L, 4L, 4L, 1L, 1L, 4L, 4L, 3L, 1L, 1L, 2L, 1L, 3L, 4L, 2L, 2L, 2L, 4L, 4L, 3L, 2L, 1L, 1L, 4L, 1L, 1L, 2L, NA, 2L, 3L, 3L, 2L, 1L, 1L, 1L, 1L, 4L, 4L, 4L, 4L, 4L, 4L, 2L, 2L, 1L, 4L, 1L, 4L, 3L, 4L, 2L, 3L, 1L, 3L, 1L, 4L, 1L, 4L, 1L, 4L, 3L, 3L, 4L, 4L, 1L, NA, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 3L, 4L, 3L, 4L, 2L, 4L, 4L, 1L, 2L, NA, 4L, 4L, 4L, 4L, 1L, 2L, 1L, 1L, 2L, 1L, 4L, 2L, 3L, 1L, 4L, 4L, 4L, 1L, 2L, 1L, 4L, 2L, 1L, 3L, 1L, 2L, 2L, 1L, 2L, 1L, NA, 3L, 2L, 2L, 4L, 1L, 4L, 4L, 2L, 4L, 4L, 4L, 2L, 1L, 4L, 2L, 4L, 4L, 4L, 4L, 4L, 1L, 3L, 4L, 3L, 4L, 1L, NA, 4L, NA, 1L, 1L, 1L, 4L, 4L, 4L, 4L, 2L, 4L, 3L, 2L, NA, 1L, 4L, 4L, 3L, 4L, 4L, 4L, 2L, 4L, 2L, 1L, 4L, 4L, NA, 4L, 4L, 3L, 3L, 4L, 2L, 2L, 4L, 1L, 4L, 4L, 4L, 3L, 4L, 4L, 4L, 3L, 2L, 1L, 3L, 1L, 4L, 1L, 4L, 2L, NA, 1L, 4L, 4L, 3L, 1L, 4L, 1L, 4L, 1L, 4L, 4L, 1L, 2L, 2L, 1L, 4L, 1L, 1L, 4L, NA, 4L, NA, 4L, 4L, 4L, 1L, 4L, 2L, 1L, 2L, 2L, 2L, 2L, 1L, 1L, 2L, 1L, 4L, 2L, 3L, 3L, 1L, 3L, 1L, 4L, 1L, 3L, 2L, 2L, 4L, 1L, NA, 3L, 4L, 2L, 4L, 4L, 4L, 4L, 4L, 4L, 3L, 4L, 4L, 3L, 2L, 1L, 4L, 4L, 2L, 4L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 4L, 4L, 1L, 1L, 4L, 1L, 4L, 4L, 4L, 1L, 1L, NA, 3L, 2L, 4L, 4L, 4L, 4L, 2L, 3L, 3L, 2L, NA, 4L, 2L, 4L, 4L, 1L, 1L, 4L, 4L, 1L, 1L, 4L, 1L, 2L, 2L, 2L, 2L, 1L, 4L, 4L, 1L, 2L, 2L, 2L, 3L, 4L, 4L, 3L, 4L, 1L, 1L, 4L, 4L, NA, 4L, 1L, 4L, 4L, 4L, 1L, 4L, 4L, 1L, 2L, 4L, 4L, 4L, 4L, 1L, 2L, 4L, 4L, 2L, 1L, 4L, 2L, 4L, 2L, 2L, 4L, 1L, 3L, 3L, 2L, 4L, 1L, 4L, 4L, 4L, 1L, NA, 4L, 4L, 2L, 4L, 4L, 4L, 4L, 4L, 2L, NA, 4L, 2L, 4L, 3L, 1L, 4L, 4L, 3L, 4L, 2L, 4L, 4L, 1L, 2L, 1L, 4L, 1L, 3L, 3L, 1L, 4L, 4L, 2L, 4L, 4L, 4L, 4L, 3L, 2L, 3L, 3L, 2L, NA, 3L, 4L, 4L, 3L, 3L, 4L, 4L, 4L, 1L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 2L, 4L, 2L, 3L, 4L, 1L, 3L, 1L, NA, 4L, 1L, 2L, 2L, 1L, 4L, 3L, 3L, 4L, 1L, 1L, 3L), .Label = c('(1) Approve STRONGLY', '(2) Approve SOMEWHAT', '(3) Disapprove SOMEWHAT', '(4) Disapprove STRONGLY'), class = 'factor'));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger2_09af24ca667cda5ae39d663dacb91980() {
+ assertEval("argv <- list(c(' 33', ' 34', ' 35', ' 36', ' 37', ' 38', ' 18', ' 19', ' 20', ' 21', ' 22', ' 23', ' 36', ' 37', ' 38', ' 39'));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger20_6907bfa086f56b4b0f8b7ecb0f04c55b() {
+ assertEval("argv <- list(39);as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger3_d1dff7e5bb6c4e0191e64cd0294206c7() {
+ assertEval("argv <- list(c(-Inf, -8.5, -2.83333333333333, -1.41666666666667, -0.85, -0.566666666666666, -0.404761904761905, -0.303571428571428, -0.236111111111111, -0.188888888888889));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger4_f8a1a69864f19497f02d86f874cd7f4d() {
+ assertEval("argv <- list(c(0, 1, NA, NA, 1, 1, -1, 1, 3, -2, -2, 7, -1, -1, -1, -1, -1, -1, -1, -1, 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger6_9241a3e961e96c317b2a424da76bbe22() {
+ assertEval("argv <- list(2e+05);as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger7_9e449efb52d7355d0d205d0c066c6d01() {
+ assertEval("argv <- list(NULL);as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger8_0fc8ebea4e4a414c745c201818141791() {
+ assertEval("argv <- list(list(7L, 20, 0L, 1));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasinteger_testasinteger9_60181beb9941783cf99ef25b1f74514e() {
+ assertEval("argv <- list('-1');as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinaslogical_testaslogical1_db22a08a36cc3398d59595d65f1c2673() {
+ assertEval("argv <- list(structure(c(0L, 0L, 0L, 1L), .Names = c('Y', 'B', 'V', 'N')));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinaslogical_testaslogical10_82c48118607a4d0b0109d4516127715d() {
+ assertEval("argv <- list(NULL);as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinaslogical_testaslogical11_fe372f4f9308ccf7e3676261783bb6bb() {
+ assertEval("argv <- list(structure('TRUE', .Names = '.registration'));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinaslogical_testaslogical12_3a053d4fd625950f88f85e74bb3111d6() {
+ assertEval("argv <- list(structure(c(0, 1, 2, 2), .Dim = c(4L, 1L), .Dimnames = list(c('Y', 'B', 'V', 'N'), NULL)));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinaslogical_testaslogical13_0af68fbfe51f44019fcf470e6e0b8099() {
+ assertEval("argv <- list(c(TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinaslogical_testaslogical14_f7cb81cd22d66b840d9d21bbba02c134() {
+ assertEval("argv <- list(structure(list(a = 1), .Names = 'a'));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinaslogical_testaslogical15_d702969df611248c2be15a889c43c53f() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinaslogical_testaslogical17_8d0cd115f4748f037e55cc3823aa375a() {
+ assertEval("argv <- list(c(1, 2, 3, 4, 5, NA, NA, 2, 3, 4, 5, 6));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinaslogical_testaslogical2_0ecbdfa2e3d3b676fe6f0be863c09ff1() {
+ assertEval("argv <- list(structure(c(-4, 1), .Names = c('', '')));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinaslogical_testaslogical3_609e53332f07b15660433b05d3b50e23() {
+ assertEval("argv <- list(structure(c(1L, 0L, 0L, 0L, 0L), .Names = c('bibtype', NA, NA, NA, NA)));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinaslogical_testaslogical4_0f4ba0b664b6395924b3911f3ab25052() {
+ assertEval("argv <- list(c(1L, NA, 0L));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinaslogical_testaslogical7_c77989ba2a3af391b7cc15b93efc3b78() {
+ assertEval("argv <- list('FALSE');as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinaslogical_testaslogical8_2b82034983d46d45f4fc032acd4cacc6() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 0L), .Dimnames = list(NULL, NULL)));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinaslogical_testaslogical9_72b3bddf97bf1e574efee440de8b2e87() {
+ assertEval("argv <- list(c(3.74165738677394, 0, 8.55235974119758, 1.96396101212393));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasraw_testasraw1_fc4732e89db2323c2a805ac2fb6ef44b() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));as.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasraw_testasraw2_fafdfef8c5b6a2548a2cff566c2fc296() {
+ assertEval("argv <- list(integer(0));as.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasraw_testasraw3_0790103721baab75f5e1c92ec78041f5() {
+ assertEval("argv <- list(logical(0));as.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasraw_testasraw4_8f105bcf5fdc6297c4fd59528275141b() {
+ assertEval("argv <- list(character(0));as.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasraw_testasraw5_3d93896369b4932ff20e59e5e151dabc() {
+ assertEval("argv <- list(NULL);as.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasraw_testasraw6_53b22009affe8cd6d2010006cffad0cf() {
+ assertEval("argv <- list(list());as.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector1_6eb97db791064648aa3ddea1d8913575() {
+ assertEval("argv <- list('ylog', 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector10_0fc92c428aac97c21e89922b5ab5fc2a() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render')), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector11_d827720825cadd44936157d0200afa8a() {
+ assertEval("argv <- list(structure(c(0.00290239468554411, 0.00140705152597282, 0.00182415100508824, 0.000171517300342798, 0.0747454613066297, 0.00103234723292905, 0.000179983318697139, 0.035258608446556, 0.00336847595628205, 0.0640696486471418, 0.0132108002751951, 0.00194778778741288, 0.00351950115137134, 0.00070046832029645, 0.00252844357734999, 0.014372012195495, 0.00923422554274329, 7.64817786749709e-06, 0.00387339857745524, 0.00121246491006704, 0.00624917129689857, 0.00187753034805145, 0.000103002251547081, 0.0136703020254034, 0.000349542811339765, 0.00120367047056318, 0.00194205014408536, 0.00462815827742801, 0.000149291834133955, 0.00193441236645678, 9.00084520363788e-05, 0.0160915134527436, 0.00346675958538611, 0.00481936427422656, 3.13343033856204e-05, 0.0564685345533007, 0.00929771993193244, 0.0103876340982415, 0.0133005891226512, 0.0325989357511189, 0.00228122925969392, 0.0460976655088242, 0.00300363745967821, 0.000271060875811077, 0.0301696315261026, 4.72002631048228e-05, 0.0262321004865233, 0.00594174673473013, 0.00288915040856096, 0.00635277836091399, 0.00569342819072193, 0.0163907345734163, 0.000360581939026215, 0.00023772587191537, 0.0164062036225435, 0.0238391417439454, NaN, 0.0421542087325977, 0.00133954856768466, 0.0113421570571088, 0.0081824228772913, 0.000149291834133955, 0.00162069399881579, 0.0018026229128858, 0.0043164627226381, 0.000407784303899559, 0.00876301280354452, 0.00179253664026376, 0.000416739394150718, 0.014372012195495, 0.000179983318697139, 0.00115986529332945, 0.00377736311314377, 0.00219491136307178, 0.00070046832029645, 0.000522557531637993, 9.86336244510646e-05, 0.0216346027446621, 0.000659639144027202, 0.0137501462695058, 5.91425796335962e-08, 0.0279425064631674, 0.000170828237014775, 0.0042454690355613, 0.0114879015536739, 0.000173346990819198, 0.00138111062254461, 0.00772582941114727, 0.0277947034678616, 0.00892024547056825, 0.0618577709874562, 0.0125790610228498, 0.0277947034678616), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93')), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector12_8c045543b2c27854107e4c12f57d7721() {
+ assertEval("argv <- list(structure(c(0.164593338447767, 0.182090654313858, NA, 0.484947927602608), .Names = c('(Intercept)', 'x1', 'x2', 'x3')), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector13_6e7b2cdcf0c9e1f08df457ed8da0e8ad() {
+ assertEval("argv <- list('', 'double'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector14_4022388d9ee34b35dc4cc07a6f404e35() {
+ assertEval("argv <- list(structure(c('myTst', 'Package', 'What the package does (short line)', '1.0', '2014-03-17', 'Who wrote it', 'Who to complain to <yourfault@somewhere.net>', 'More about what it does (maybe more than one line)', 'What license is it under?', 'methods'), .Names = c('Package', 'Type', 'Title', 'Version', 'Date', 'Author', 'Maintainer', 'Description', 'License', 'Depends')), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector15_641808a599c15d882621332b563c020b() {
+ assertEval("argv <- list(quote(sqrt(abs(`Standardized residuals`))), 'expression'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector16_38dd9022074f812abbf876d00b70ac6f() {
+ assertEval("argv <- list(1, 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector17_bce9cbaab33ec90e3982ca66cb3d44cf() {
+ assertEval("argv <- list(quote(list(X[[2L]])), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector18_68aec88466f314cf128c4b6d90509e48() {
+ assertEval("argv <- list(NA, 'logical'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector19_f43e9760a94a58c683196032eac74b60() {
+ assertEval("argv <- list(NULL, 'double'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector2_1c58eef4103f7807e22a56957e97c571() {
+ assertEval("argv <- list(structure(character(0), package = character(0), class = structure('ObjectsWithPackage', package = 'methods')), 'character'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector20_f05fa7e354e24d68f1be267ef2a34300() {
+ assertEval("argv <- list(quote(list(x = c(1, 1, 1, 1, 1, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 11, 12), y = c(73, 73, 70, 74, 75, 115, 105, 107, 124, 107, 116, 125, 102, 144, 178, 149, 177, 124, 157, 128, 169, 165, 186, 152, 181, 139, 173, 151, 138, 181, 152, 188, 173, 196, 180, 171, 188, 174, 198, 172, 176, 162, 188, 182, 182, 141, 191, 190, 159, 170, 163, 197), weight = c(1, rep(0.1, 51)))), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector21_02e138c727ac2284c29f7c70e86a3c53() {
+ assertEval("argv <- list(NULL, 'integer'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector22_e9af305dace4ba5bc12445ad28babd2b() {
+ assertEval("argv <- list(quote(list(ff <- factor(c(1:2, NA, 2), exclude = NULL))), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector23_69e3566cb8ac3cb8973858822c4e853d() {
+ assertEval("argv <- list(c(-1, 3, 1, 1, 5, 1), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector24_5cdc1fcda32283ce36a502b78d38340d() {
+ assertEval("argv <- list(quote(list(y, x1, x2)), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector25_53f65c13af95098541e96e79952cf6f7() {
+ assertEval("argv <- list(structure(c(0.005, 50, 550), .Names = c('k', 'g1', 'g2')), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector26_d932b18bb745eb7bb3be830cd113dee8() {
+ assertEval("argv <- list(quote(list(V1 = c('a', 'd e', 'h'), V2 = c('b'', 'f', 'i'), V3 = c('c', 'g', 'j\nk l m'))), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector27_969430d539bc517c7feaf08be0cd11e6() {
+ assertEval("argv <- list(NA, 'integer'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector28_9733605b0aff3cd718b2cba7a04819ad() {
+ assertEval("argv <- list(c(NA, NaN), 'character'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector29_0b61a2dd41ea5b282f9596b916e435c6() {
+ assertEval("argv <- list(c(NA, NaN), 'integer'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector3_7b639093518aafa976e5da469a309b55() {
+ assertEval("argv <- list(quote(list(ya, x[rep.int(NA_integer_, nyy), nm.x, drop = FALSE])), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector30_148f0bdece4c46d21a45243cfb1720b3() {
+ assertEval("argv <- list(list('a', 'b', 'c'), 'pairlist'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector31_96a7c70d636f9588595c2abd058cb032() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4, .Dimnames = list(c('A', 'B', 'C'), c('D', 'E', 'F', 'G'))), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector32_a21d54f394149e88a72b425a3c0d3e13() {
+ assertEval("argv <- list(quote(list(x = c(2:3, NA), y = c(3:4, NA))), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector33_7f02cce69ded51871ea4562243a768b3() {
+ assertEval("argv <- list(quote(list(cut(Dtimes, '3 months'))), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector34_1287610a4c12b378637c199615a813ea() {
+ assertEval("argv <- list(quote(list(a = I('abc'), b = I('def\'gh'))), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector35_bad463b7583ef0fb9a4c4165281adf20() {
+ assertEval("argv <- list(structure(list(a = 1), .Names = 'a'), 'double'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector36_e54a44e0e1fb2ab67543ab4e6beb0dda() {
+ assertEval("argv <- list(structure(c(0, 0.0123079727211562, 0.00970882237374837, 0.62883302403078, 0.689843718945119, 0.689843718944881, 0.672453157851573, 0.534493702379921, 0.171039529097608, 0.17103952909345, 0.50219835346871, 0.530975095958163, 0.0050966004562048, 0.0106639382954144, 0.811192712625201, 0.0957932531337699), .Names = c('(Intercept)', 'M.userY', 'TempHigh', 'M.userY:TempHigh', 'SoftMedium', 'SoftSoft', 'M.userY:SoftMedium', 'M.userY:SoftSoft', 'TempHigh:SoftMedium', 'TempHigh:SoftSoft', 'M.userY:TempHigh:SoftMedium', 'M.userY:TempHigh:SoftSoft', 'BrandM', 'M.userY:BrandM', 'TempHigh:BrandM', 'M.userY:TempHigh:BrandM')), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector37_66d000b2ee4b760692b42fc6e776b031() {
+ assertEval("argv <- list(c(-2, -1.95959595959596, -1.91919191919192, -1.87878787878788, -1.83838383838384, -1.7979797979798, -1.75757575757576, -1.71717171717172, -1.67676767676768, -1.63636363636364, -1.5959595959596, -1.55555555555556, -1.51515151515152, -1.47474747474747, -1.43434343434343, -1.39393939393939, -1.35353535353535, -1.31313131313131, -1.27272727272727, -1.23232323232323, -1.19191919191919, -1.15151515151515, -1.11111111111111, -1.07070707070707, -1.03030303030303, -0.98989898989899, -0.949494949494949, -0.909090909090909, -0.868686868686869, -0.828282828282828, -0.787878787878788, -0.747474747474747, -0.707070707070707, -0.666666666666667, -0.626262626262626, -0.585858585858586, -0.545454545454545, -0.505050505050505, -0.464646464646465, -0.424242424242424, -0.383838383838384, -0.343434343434343, -0.303030303030303, -0.262626262626263, -0.222222222222222, -0.181818181818182, -0.141414141414141, -0.101010101010101, -0.0606060606060606, -0.0202020202020201, 0.0202020202020203, 0.060606060606061, 0.101010101010101, 0.141414141414141, 0.181818181818182, 0.222222222222222, 0.262626262626263, 0.303030303030303, 0.343434343434343, 0.383838383838384, 0.424242424242424, 0.464646464646465, 0.505050505050505, 0.545454545454546, 0.585858585858586, 0.626262626262626, 0.666666666666667, 0.707070707070707, 0.747474747474748, 0.787878787878788, 0.828282828282829, 0.868686868686869, 0.909090909090909, 0.94949494949495, 0.98989898989899, 1.03030303030303, 1.07070707070707, 1.11111111111111, 1.15151515151515, 1.19191919191919, 1.23232323232323, 1.27272727272727, 1.31313131313131, 1.35353535353535, 1.39393939393939, 1.43434343434343, 1.47474747474747, 1.51515151515152, 1.55555555555556, 1.5959595959596, 1.63636363636364, 1.67676767676768, 1.71717171717172, 1.75757575757576, 1.7979797979798, 1.83838383838384, 1.87878787878788, 1.91919191919192, 1.95959595959596, 2), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector38_7aaa2111f301458b947f5f450287e0ae() {
+ assertEval("argv <- list(integer(0), 'pairlist'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector39_b3ad0403d18d614374f90f68040f352a() {
+ assertEval("argv <- list(structure('lightblue', .Names = 'bg'), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector4_940e4f58ea71be465ddf4fb01f636ab6() {
+ assertEval("argv <- list(NA_character_, 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector40_54eb0c6e97d2cacbe99e0af5d062ddc3() {
+ assertEval("argv <- list(c(NA, NaN), 'logical'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector41_4f49b0ae20115ed8d685c3d0265a7d0e() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'character(0)', row.names = character(0), class = 'data.frame'), 'pairlist'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector42_d3e632bb94b088e676d3ac8136508336() {
+ assertEval("argv <- list(NA, 'double'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector43_92a9d1327d200ede7313eb484607b72d() {
+ assertEval("argv <- list(list('GRID.VP.12'), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector44_9283e342c57c7060c14e47b1c11a79d7() {
+ assertEval("argv <- list(NULL, 'logical'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector45_1d7987070272b9d072c0ef406d5adea8() {
+ assertEval("argv <- list(structure(1:20, .Tsp = c(1, 20, 1), class = 'ts'), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector47_0e424a3b072d8ed4d28e86484131c778() {
+ assertEval("argv <- list(structure(c(0.1, 0.8, 1, 0.5, 0.8, 1, 0, 0.5, 1), .Dim = c(3L, 3L), .Dimnames = list(c('(3.59,4.5]', '(4.5,5.4]', '(5.4,6.31]'), c('ctrl', 'trt1', 'trt2'))), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector48_31dfc011fe7d3700ecda3e636a41e697() {
+ assertEval("argv <- list(integer(0), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector49_99dc571063da15ba4a58ca35ec97d1f3() {
+ assertEval("argv <- list(structure(c(1L, 1L), .Label = 'registered S3method for $', class = 'factor'), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector5_6d566c7b1dd7159a7bb04b7fefe16017() {
+ assertEval("argv <- list(structure(NA_integer_, .Label = c('Australia', 'UK', 'US'), class = 'factor'), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector50_a6fe38d94c1c662bac7214b53af52c2e() {
+ assertEval("argv <- list('1.3', 'double'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector51_a366816320be8412865ca8de315759d6() {
+ assertEval("argv <- list(c(8L, 11L, 14L, 16L, 19L, 4L, 6L, 9L, 15L, NA, 7L, 10L, 20L), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector52_8054ead9a6d6b3bd61e8e2db369f50eb() {
+ assertEval("argv <- list(structure(c(5.4278733372119e-07, 0.000257866433233453, NA), .Names = c('x', 'm', 'Residuals')), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector53_d69fd12a90e8e09f1c201c45d26054e6() {
+ assertEval("argv <- list('1.3', 'pairlist'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector54_c4f9125801103a20de2ccf57a275b64b() {
+ assertEval("argv <- list(1L, 'pairlist'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector55_4667174f615debc01d28cb91e017152c() {
+ assertEval("argv <- list(NULL, 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector56_ff7eee66728f5134d1531ae9e5151258() {
+ assertEval("argv <- list(quote(list(expand.grid(Hair = lab$Hair, Eye = lab$Eye, Sex = lab$Sex, stringsAsFactors = TRUE), Fr = as.vector(HairEyeColor))), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector57_74bb53e8b04fa97bfe2d982e1e8feee8() {
+ assertEval("argv <- list(FALSE, 'pairlist'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector59_9511156e20adbcb6e12a269c51acf406() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'character(0)', row.names = character(0), class = 'data.frame'), 'character'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector6_5c207f02b985422e1ff0f8f2ace0a1fa() {
+ assertEval("argv <- list(structure(list(a1 = 1:3, a2 = 4:6, a3 = 3.14159265358979, a4 = c('a', 'b', 'c')), .Names = c('a1', 'a2', 'a3', 'a4')), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector60_434430ee49ebd64f992ffda10a16e064() {
+ assertEval("argv <- list(1L, 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector61_5ecc3f9ed1b85fcffdd2b0eaf9ab523f() {
+ assertEval("argv <- list(c('The C and R code has been reformatted for legibility.', 'The old compatibility function rpconvert() has been removed.', 'The cross-validation functions allow for user interrupt at the end\nof evaluating each split.', 'Variable Reliability in data set car90 is corrected to be an\nordered factor, as documented.', 'Surrogate splits are now considered only if they send two or more\ncases _with non-zero weight_ each way. For numeric/ordinal\nvariables the restriction to non-zero weights is new: for\ncategorical variables this is a new restriction.', 'Surrogate splits which improve only by rounding error over the\ndefault split are no longer returned. Where weights and missing\nvalues are present, the splits component for some of these was not\nreturned correctly.', 'A fit of class \'rpart\' now contains a component for variable\n‘importance’, which is reported by the summary() method.', 'The text() method gains a minlength argument, like the labels()\nmethod. This adds finer control: the default remains pretty =\nNULL, minlength = 1L.', 'The handling of fits with zero and fractional weights has been\ncorrected: the results may be slightly different (or even\nsubstantially different when the proportion of zero weights is\nlarge).', 'Some memory leaks have been plugged.', 'There is a second vignette, longintro.Rnw, a version of the\noriginal Mayo Tecnical Report on rpart.', 'Added dataset car90, a corrected version of the S-PLUS dataset\ncar.all (used with permission).', 'This version does not use paste0{} and so works with R 2.14.x.', 'Merged in a set of Splus code changes that had accumulated at Mayo\nover the course of a decade. The primary one is a change in how\nindexing is done in the underlying C code, which leads to a major\nspeed increase for large data sets. Essentially, for the lower\nleaves all our time used to be eaten up by bookkeeping, and this\nwas replaced by a different approach. The primary routine also\nuses .Call{} so as to be more memory efficient.', 'The other major change was an error for asymmetric loss matrices,\nprompted by a user query. With L=loss asymmetric, the altered\npriors were computed incorrectly - they were using L' instead of L.\nUpshot - the tree would not not necessarily choose optimal splits\nfor the given loss matrix. Once chosen, splits were evaluated\ncorrectly. The printed “improvement” values are of course the\nwrong ones as well. It is interesting that for my little test\ncase, with L quite asymmetric, the early splits in the tree are\nunchanged - a good split still looks good.', 'Add the return.all argument to xpred.rpart().', 'Added a set of formal tests, i.e., cases with known answers to\nwhich we can compare.', 'Add a usercode vignette, explaining how to add user defined\nsplitting functions.', 'The class method now also returns the node probability.', 'Add the stagec data set, used in some tests.', 'The plot.rpart routine needs to store a value that will be visible\nto the rpartco routine at a later time. This is now done in an\nenvironment in the namespace.', 'Force use of registered symbols in R >= 2.16.0', 'Update Polish translations.', 'Work on message formats.', 'Add Polish translations', 'rpart, rpart.matrix: allow backticks in formulae.', 'tests/backtick.R: regession test', 'src/xval.c: ensure unused code is not compiled in.', 'Change description of margin in ?plot.rpart as suggested by Bill\nVenables.'), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector63_8cfe187b3c710ba9e405c37af5d5825d() {
+ assertEval("argv <- list(2, 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector64_eed65ad16c886bf6e267c8cd02185c19() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector66_adb214adde85e83927d547331de5e0cd() {
+ assertEval("argv <- list(3.18309886183776e-301, 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector67_76929df5f8f314aff439af51175fb2c0() {
+ assertEval("argv <- list(quote(list(a = 1:3, b = letters[1:3])), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector68_2e3ecb8a7fad3ad42219fb4c3c515f1b() {
+ assertEval("argv <- list(NA, 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector69_0013804c7331698e824c0b96b8f4ea76() {
+ assertEval("argv <- list(c(200, 500, 1000, 2000, 5000, 10000, 20000, 50000, 1e+05, 2e+05, 5e+05), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector7_e28d9fbf78037c44d738f3d43d251045() {
+ assertEval("argv <- list(quote(list(ii = 1:10, xx = pi * -3:6)), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector70_61c460361f3764e904cc6b61551e05b6() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i), .Dim = c(5L, 5L)), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector71_9db988c90976aaa6a4b78d004a0bd5a5() {
+ assertEval("argv <- list(structure(c(2.2250738585072e-308, 1.79769313486232e+308), .Names = c('double.xmin', 'double.xmax')), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector72_fdae4e4aff642ddda6cf53a710312b63() {
+ assertEval("argv <- list(structure(1.6, class = 'object_size'), 'character'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector73_faf54fb5fd22ae70e95ee6c7d865dba7() {
+ assertEval("argv <- list(structure(NA_integer_, .Label = c('no', 'yes'), class = 'factor'), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector74_2396d18cb6c4e78082edadd5eeb8d5cd() {
+ assertEval("argv <- list(FALSE, 'character'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector75_8404b961cc1eef89fae8a8981a56db6b() {
+ assertEval("argv <- list(3.14159265358979, 'pairlist'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector76_82c4e8b63b58404186231e6e216abf15() {
+ assertEval("argv <- list(structure(list(c0 = structure(character(0), class = 'AsIs')), .Names = 'c0', row.names = character(0), class = 'data.frame'), 'character'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector77_b27cf581d306a8c0554aa3b25343464c() {
+ assertEval("argv <- list(structure(list(), .Dim = 0L), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector8_42df723da958cee355c79b31755bc315() {
+ assertEval("argv <- list(c(-1L, -2L), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector80_bf5b8d780adfa735092f285288f86e91() {
+ assertEval("argv <- list(structure('1', .Tsp = c(1, 1, 1), class = 'ts'), 'character'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector81_791159cf6f1ff1daba0c82380eb9822e() {
+ assertEval("argv <- list('diff', 'symbol'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinasvector_testasvector9_7676f2a631f4a36e921e0abfa4f463f7() {
+ assertEval("argv <- list(quote(list(x = 1:100, z = 1:100 + rnorm(100, 10))), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinatan_testatan1_859319dc80e97d602300e4b86640c26f() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100', '101', '102', '103', '104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', '115', '116', '117', '118', '119', '120', '121', '122', '123', '124', '125', '126', '127', '128', '129', '130', '131', '132', '133', '134', '135', '136', '137', '138', '139', '140', '141', '142', '143', '144', '145', '146', '147', '148', '149', '150', '151', '152', '153', '154', '155', '156', '157', '158', '159', '160', '161', '162', '163', '164', '165', '166', '167', '168', '169', '170', '171', '172', '173', '174', '175', '176', '177', '178', '179', '180', '181', '182', '183', '184', '185', '186', '187', '188', '189', '190', '191', '192', '193', '194', '195', '196', '197', '198', '199', '200', '201', '202', '203', '204', '205', '206', '207', '208', '209', '210', '211', '212', '213', '214', '215', '216', '217', '218', '219', '220', '221', '222', '223', '224', '225', '226', '227', '228')));atan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinatan_testatan2_7b436c5948dbb30843be0e1a403ddeba() {
+ assertEval("argv <- list(c(-Inf, Inf));atan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinatan_testatan3_12cb5a85d0e92250b0e18fc3b3776819() {
+ assertEval("argv <- list(c(0+2i, 0.0001+2i, 0-2i, 0-2.0001i));atan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinatan_testatan4_dec9b325a2c6f8f20a957e2b505d0878() {
+ assertEval("argv <- list(c(1.24374261655622, 0.0991858914142951, -2.20142053912221, 2.32991997369528, -1.81371893641746, -2.23549697963848, 1.2062731926336, 0.766855355229013, 2.22205301460314, 3.00826513920171, 2.93956891545304, -0.947558891656842, -1.25682397176386, -0.535715772527751, 3.41845348048775, -0.760770219081429, -1.17237584279591, 5.89658401779422, 4.83929989447739, 1.29127425323328, 5.07843950370286, -0.812083060727, 0.688022442899665, 0.51448669913956, -0.286066209156396, -0.571116279122374, 3.99296063466557, 0.543926802451157, 10.5876703046153, -0.012750328000196, 8.35693622233428, -0.357306991432726, 4.27528487251696, 6.30217771913028, 3.89678155886045, -1.57897283794064, -2.06992463735805, 4.67986125893053, -1.26868871126894, 0.0676543743900469, 3.24354507548999, 0.242170808041476, 3.39848727561001, -0.616002138333813, 4.61847372836275, 1.27216752717472, -0.280512588403515, -0.898619929521427, -1.39985243813315, -1.28443284360156, 2.63389613373223, 6.30217771913028, 1.87342709084826, -1.09797072834446, 5.71334116764491, 13.1134896151196, 3.66949044715118, -1.08958378903637, 0.8976473859976, 0.169792654329705, 2.15662832698598, 2.85593682526588, 5.94427279099212, 3.06088249587567, 5.71334116764491, 2.35752884553298, -1.60367725265451, 0.275679954649422, 2.06745683332381, -1.66968494417226, 1.25318650417107, 10.8387072712787, 3.66949044715118, 2.11807401040277, 0.289193352142719, -1.16420273509137, 0.750915507554624, 10.8387072712787, 2.83949743554363, -1.49627880689407, 4.61847372836275, 2.52897165841403, 2.99093712861336, -1.55047774121799, 1.45900279946893, -0.889632055927773, 3.35896467002158, -1.30399295303346, 3.06088249587567, -0.951966998076272, 1.9567142584347, 4.83929989447739, 1.88517906265842, -0.640640247845954, 7.94407524992589, 2.7907339351624, 1.2062731926336, -0.037046093389687, 3.00826513920171, -0.49471891801084, 0.131065830042764, 0.742978487169905, 4.27528487251696, 2.82315118733936, 3.18752185714054, -0.335573516981329, 10.8387072712787, 0.26894691754398, 0.847902962488109, 9.94387770885966, 2.75867688212949, 1.46917954755241, 2.4562951432938, -0.308174402320662, 10.3567386812681, 2.30257280126274, -0.308174402320662, 1.41865102155398, 0.750915507554624, 0.182817981601453, 2.48514643462545, -0.447890214901362, 6.24824895102907, -0.489553106263216, 2.37143299336077, 4.71105188801319, 5.94427279099212, -0.453131097523732, -0.410935024130492, 1.36899222090483, 2.44197697450093, 0.831510275829206, -0.235694520704707, 1.6370875838366, -0.235694520704707, 0.688022442899665, 0.56620571694393, 0.0865319014350673, 0.965336240640277, 2.4562951432938, 0.442174515567164, 2.16959511326347, 5.84967070625675, 0.0802256582898436, 0.807094572229046, 0.831510275829206, 3.06088249587567, 7.84947316519051, 0.939766456519272, 2.08002811722361, 0.169792654329705, 1.16011052636907, 2.74278094610367, 3.18752185714054, 1.03465140856114, 0.742978487169905, 1.38875329192844, 2.7907339351624, 0.649399307990452, 0.588658009946432, 1.62630213168625, 1.37885583765837, 3.4588052584027, 0.378607817368726, 1.64791350682152, 2.55856273925465, 1.11467486151704, 2.75867688212949, 1.44886182210277, 1.29127425323328, 0.872667965105639, 2.51428915807333, 0.603723867107512, 1.27216752717472, 1.33960210165592, 2.77466088473214, 2.68005879999676, 3.39848727561001, 1.61555684891069, 1.30087527736898, 1.45900279946893, 0.856134366332116, 1.58355905227488, 1.37885583765837, 1.00846268026794, 1.44886182210277, 1.72485420222661, 4.19550729872178, 1.43875636487019, 1.60485143740593, 5.07843950370286, 3.69143051554687, 2.13086828897653, 1.61555684891069, 2.13086828897653, 1.90882759744288, 1.51024935267055, 1.54143998175321, 3.6046538963397, 5.15057088795887, 5.99276309359934, 1.94466787312459, 2.44197697450093, 2.00540917116861, 4.32972243262905, 2.14371955784334, 1.9567142584347, 1.98095898169889, 2.88909931785647, 1.80390312212468, 2.18262044053522, 2.69561196483408, 4.71105188801319, 10.3567386812681, 2.16959511326347, 2.5884604688802, 2.72697211153424, 2.31621398549464, 2.85593682526588, 2.51428915807333, 2.42772951300254, 4.04227987136562, 2.64920176692422, 2.60352632604128, 4.32972243262905, 2.87247042403941, 2.82315118733936));atan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinatan_testatan5_651c120ccad79f109880b18b818c9be0() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));atan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinatan_testatan6_e949562583eb064fc97cceca512f8ed4() {
+ assertEval("argv <- list(-1.46941282670977e-16);atan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinatan2_testatan21_ae2e63ba01b311a54346821d48b14d33() {
+ assertEval("argv <- list(structure(0.142857142857143, .Names = 'Var2'), structure(1.75510204081633, .Names = 'Var1')); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinatan2_testatan22_68106313fd1758e602266636ed644cf6() {
+ assertEval("argv <- list(structure(-0.224489795918367, .Names = 'Var2'), structure(-0.816326530612245, .Names = 'Var1')); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinatan2_testatan23_1691a85681428b29f2b8e93909606e43() {
+ assertEval("argv <- list(c(-1.95681154249341, -2.88854075894443, -2.84850921846233, -2.14635417317387, -1.72790445779804, -0.92649412488672, -0.261537463816701, 0.948205247045638, 1.0990096500205, 2.09024037060933, 2.90928417418961, 4.00425294069879, 1.70515935701163), c(-3.2406391957027, -2.61163262017643, -0.21977838696678, 1.24931893031091, 1.6032898858835, 2.16902716372255, 2.15792786802985, 2.10075226013806, 2.04989923648162, 1.49269068253165, 0.515893014329757, -2.61745072267338, -4.64929811590859)); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinatan2_testatan24_c446d53bd8c4c893f98362165043ce44() {
+ assertEval("argv <- list(0+1i, 0+0i); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinatan2_testatan25_e61d7a90cbac83910e9739b5f4bce322() {
+ assertEval("argv <- list(2.43782895752771e-05, 0.999996523206508); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinatan2_testatan26_2faa23c0efa0572ba47394d813dd43b3() {
+ assertEval("argv <- list(logical(0), logical(0)); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinatanh_testatanh1_b6e397b36295a6744d6d5a94d225288e() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));atanh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinatanh_testatanh2_2c9a509396fa6fd1bf0c79240856d8f7() {
+ assertEval("argv <- list(c(0.667355731370168, 0.757545006911892, 0.835315653735585, 0.984260691393257, 0.997724361757832, 0.998320334761744, 0.995857200407461, 0.978447456936914, 0.924289918318784, 0.794303899816803, 0.772144244057747, 0.886598050753707, 0.927287003572071, 0.862971883028345, 0.864426227271356, 0.927240697865085, 0.892356439729065, 0.753876685479294, 0.834371238466667, 0.856663357154979, 0.836217049107607, 0.820080611345367, 0.881122397467922, 0.964328668319385, 0.870112695225674, 0.897689370465451, 0.872889563044137, 0.716354206299899, 0.634385015212608, 0.77586178284932, 0.639202570327528, 0.710504816816848, 0.825388608284517, 0.812993921221196, 0.705406278672692, 0.577944207218662));atanh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinatanh_testatanh3_4d272f9885ca71b427cfa2ef95e1a057() {
+ assertEval("argv <- list(-0.133190890463189);atanh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinatanh_testatanh4_654a64df970645a5797c9f8d6ac2db07() {
+ assertEval("argv <- list(c(2+0i, 2-0.0001i, -2+0i, -2+0.0001i));atanh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr1_61ca8f753c19cebfd2d66dd0acc21339() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1), .Dim = c(32L, 23L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32'), c('(Intercept)', 'HairBrown', 'HairRed', 'HairBlond', 'EyeBlue', 'EyeHazel', 'EyeGreen', 'SexFemale', 'HairBrown:EyeBlue', 'HairRed:EyeBlue', 'HairBlond:EyeBlue', 'HairBrown:EyeHazel', 'HairRed:EyeHazel', 'HairBlond:EyeHazel', 'HairBrown:EyeGreen', 'HairRed:EyeGreen', 'HairBlond:EyeGreen', 'HairBrown:SexFemale', 'HairRed:SexFemale', 'HairBlond:SexFemale', 'EyeBlue:SexFemale', 'EyeHazel:SexFemale', 'EyeGreen:SexFemale')), assign = c(0L, 1L, 1L, 1L, 2L, 2L, 2L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 6L, 6L, 6L), contrasts = structure(list(Hair = 'contr.treatment', Eye = 'contr.treatment', Sex = 'contr.treatment'), .Names = c('Hair', 'Eye', 'Sex'))), 'assign');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr10_acf8f061727bb70d2da211edd7c1edcd() {
+ assertEval("argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c('Employed', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'), terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year), row.names = 1947:1962, class = 'data.frame'), 'terms');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr11_e0efaef4423810ebcfa8e87aceb80628() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0), .Dim = c(12L, 3L), .Dimnames = list(c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), c('(Intercept)', 'M.userY', 'TempLow')), assign = 0:2, contrasts = structure(list(M.user = 'contr.treatment', Temp = 'contr.treatment'), .Names = c('M.user', 'Temp'))), 'contrasts');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr12_0bb3a57aa4ea7975cc40cd2e2eb42209() {
+ assertEval("argv <- list(structure(list(`1000/MPG.city` = c(40, 55.5555555555556, 50, 52.6315789473684, 45.4545454545455, 45.4545454545455, 52.6315789473684, 62.5, 52.6315789473684, 62.5, 62.5, 40, 40, 52.6315789473684, 47.6190476190476, 55.5555555555556, 66.6666666666667, 58.8235294117647, 58.8235294117647, 50, 43.4782608695652, 50, 34.4827586206897, 43.4782608695652, 45.4545454545455, 58.8235294117647, 47.6190476190476, 55.5555555555556, 34.4827586206897, 50, 32.258064516129, 43.4782608695652, 45.4545454545455, 45.4545454545455, 41.6666666666667, 66.6666666666667, 47.6190476190476, 55.5555555555556, 21.7391304347826, 33.3333333333333, 41.6666666666667, 23.8095238095238, 41.6666666666667, 34.4827586206897, 45.4545454545455, 38.4615384615385, 50, 58.8235294117647, 55.5555555555556, 55.5555555555556, 58.8235294117647, 55.5555555555556, 34.4827586206897, 35.7142857142857, 38.4615384615385, 55.5555555555556, 58.8235294117647, 50, 52.6315789473684, 43.4782608695652, 52.6315789473684, 34.4827586206897, 55.5555555555556, 34.4827586206897, 41.6666666666667, 58.8235294117647, 47.6190476190476, 41.6666666666667, 43.4782608695652, 55.5555555555556, 52.6315789473684, 43.4782608695652, 32.258064516129, 43.4782608695652, 52.6315789473684, 52.6315789473684, 52.6315789473684, 50, 35.7142857142857, 30.3030303030303, 40, 43.4782608695652, 25.6410256410256, 31.25, 40, 45.4545454545455, 55.5555555555556, 40, 58.8235294117647, 47.6190476190476, 55.5555555555556, 47.6190476190476, 50), Weight = c(2705L, 3560L, 3375L, 3405L, 3640L, 2880L, 3470L, 4105L, 3495L, 3620L, 3935L, 2490L, 2785L, 3240L, 3195L, 3715L, 4025L, 3910L, 3380L, 3515L, 3085L, 3570L, 2270L, 2670L, 2970L, 3705L, 3080L, 3805L, 2295L, 3490L, 1845L, 2530L, 2690L, 2850L, 2710L, 3735L, 3325L, 3950L, 1695L, 2475L, 2865L, 2350L, 3040L, 2345L, 2620L, 2285L, 2885L, 4000L, 3510L, 3515L, 3695L, 4055L, 2325L, 2440L, 2970L, 3735L, 2895L, 2920L, 3525L, 2450L, 3610L, 2295L, 3730L, 2545L, 3050L, 4100L, 3200L, 2910L, 2890L, 3715L, 3470L, 2640L, 2350L, 2575L, 3240L, 3450L, 3495L, 2775L, 2495L, 2045L, 2490L, 3085L, 1965L, 2055L, 2950L, 3030L, 3785L, 2240L, 3960L, 2985L, 2810L, 2985L, 3245L), Cylinders = structure(c(2L, 4L, 4L, 4L, 2L, 2L, 4L, 4L, 4L, 5L, 5L, 2L, 2L, 4L, 2L, 4L, 4L, 5L, 5L, 4L, 2L, 4L, 2L, 2L, 2L, 4L, 2L, 4L, 2L, 4L, 2L, 2L, 2L, 2L, 2L, 4L, 4L, 5L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 5L, 4L, 4L, 4L, 5L, 2L, 2L, 2L, 4L, 6L, 2L, 4L, 2L, 4L, 2L, 4L, 2L, 2L, 4L, 4L, 2L, 2L, 4L, 4L, 2L, 2L, 2L, 4L, 4L, 4L, 2L, 2L, 1L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 4L, 2L, 3L), .Label = c('3', '4', '5', '6', '8', 'rotary'), class = 'factor'), Type = structure(c(4L, 3L, 1L, 3L, 3L, 3L, 2L, 2L, 3L, 2L, 3L, 1L, 1L, 5L, 3L, 6L, 6L, 2L, 5L, 2L, 1L, 2L, 4L, 4L, 1L, 6L, 3L, 5L, 4L, 2L, 4L, 4L, 1L, 5L, 5L, 6L, 3L, 2L, 4L, 5L, 5L, 4L, 1L, 4L, 4L, 5L, 3L, 3L, 3L, 3L, 3L, 2L, 4L, 4L, 1L, 6L, 5L, 1L, 3L, 5L, 3L, 4L, 3L, 4L, 1L, 6L, 3L, 1L, 3L, 6L, 2L, 5L, 4L, 1L, 5L, 3L, 2L, 1L, 4L, 4L, 4L, 1L, 4L, 4L, 5L, 3L, 6L, 4L, 6L, 1L, 5L, 1L, 3L), .Label = c('Compact', 'Large', 'Midsize', 'Small', 'Sporty', 'Van'), class = 'factor'), EngineSize = c(1.8, 3.2, 2.8, 2.8, 3.5, 2.2, 3.8, 5.7, 3.8, 4.9, 4.6, 2.2, 2.2, 3.4, 2.2, 3.8, 4.3, 5, 5.7, 3.3, 3, 3.3, 1.5, 2.2, 2.5, 3, 2.5, 3, 1.5, 3.5, 1.3, 1.8, 2.3, 2.3, 2, 3, 3, 4.6, 1, 1.6, 2.3, 1.5, 2.2, 1.5, 1.8, 1.5, 2, 4.5, 3, 3, 3.8, 4.6, 1.6, 1.8, 2.5, 3, 1.3, 2.3, 3.2, 1.6, 3.8, 1.5, 3, 1.6, 2.4, 3, 3, 2.3, 2.2, 3.8, 3.8, 1.8, 1.6, 2, 3.4, 3.4, 3.8, 2.1, 1.9, 1.2, 1.8, 2.2, 1.3, 1.5, 2.2, 2.2, 2.4, 1.8, 2.5, 2, 2.8, 2.3, 2.4), DriveTrain = structure(c(2L, 2L, 2L, 2L, 3L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 1L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 1L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 3L, 2L, 3L, 2L, 2L, 2L, 1L, 3L, 3L, 3L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 3L, 2L), .Label = c('4WD', 'Front', 'Rear'), class = 'factor')), .Names = c('1000/MPG.city', 'Weight', 'Cylinders', 'Type', 'EngineSize', 'DriveTrain'), terms = quote(1000/MPG.city ~ Weight + Cylinders + Type + EngineSize + DriveTrain), row.names = c(NA, 93L), class = 'data.frame'), 'row.names');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr13_89046959ae7c784cffcbd22083886607() {
+ assertEval("argv <- list(quote(cbind(X, M) ~ 1), 'term.labels');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr14_f2c4bd8ded4ad8b9bea31309ac90e32f() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor'), 'levels');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr15_b9e5742774bdc377e7ee40f40748e252() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1), Deviance = c(5.65604443125997, 8.44399377410362), AIC = c(71.3540021461976, 72.1419514890413)), .Names = c('Df', 'Deviance', 'AIC'), row.names = c('<none>', '- M.user:Temp'), class = c('anova', 'data.frame'), heading = c('Single term deletions', '\nModel:', 'cbind(X, M) ~ M.user + Temp + M.user:Temp')), 'row.names');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr16_dfdbb5ce8c73fb27f16b81d13908d945() {
+ assertEval("argv <- list(structure(list(`1000/MPG.city` = c(40, 55.5555555555556, 50, 52.6315789473684, 45.4545454545455, 45.4545454545455, 52.6315789473684, 62.5, 52.6315789473684, 62.5, 62.5, 40, 40, 52.6315789473684, 47.6190476190476, 55.5555555555556, 66.6666666666667, 58.8235294117647, 58.8235294117647, 50, 43.4782608695652, 50, 34.4827586206897, 43.4782608695652, 45.4545454545455, 58.8235294117647, 47.6190476190476, 55.5555555555556, 34.4827586206897, 50, 32.258064516129, 43.4782608695652, 45.4545454545455, 45.4545454545455, 41.6666666666667, 66.6666666666667, 47.6190476190476, 55.5555555555556, 21.7391304347826, 33.3333333333333, 41.6666666666667, 23.8095238095238, 41.6666666666667, 34.4827586206897, 45.4545454545455, 38.4615384615385, 50, 58.8235294117647, 55.5555555555556, 55.5555555555556, 58.8235294117647, 55.5555555555556, 34.4827586206897, 35.7142857142857, 38.4615384615385, 55.5555555555556, 58.8235294117647, 50, 52.6315789473684, 43.4782608695652, 52.6315789473684, 34.4827586206897, 55.5555555555556, 34.4827586206897, 41.6666666666667, 58.8235294117647, 47.6190476190476, 41.6666666666667, 43.4782608695652, 55.5555555555556, 52.6315789473684, 43.4782608695652, 32.258064516129, 43.4782608695652, 52.6315789473684, 52.6315789473684, 52.6315789473684, 50, 35.7142857142857, 30.3030303030303, 40, 43.4782608695652, 25.6410256410256, 31.25, 40, 45.4545454545455, 55.5555555555556, 40, 58.8235294117647, 47.6190476190476, 55.5555555555556, 47.6190476190476, 50), Weight = c(2705L, 3560L, 3375L, 3405L, 3640L, 2880L, 3470L, 4105L, 3495L, 3620L, 3935L, 2490L, 2785L, 3240L, 3195L, 3715L, 4025L, 3910L, 3380L, 3515L, 3085L, 3570L, 2270L, 2670L, 2970L, 3705L, 3080L, 3805L, 2295L, 3490L, 1845L, 2530L, 2690L, 2850L, 2710L, 3735L, 3325L, 3950L, 1695L, 2475L, 2865L, 2350L, 3040L, 2345L, 2620L, 2285L, 2885L, 4000L, 3510L, 3515L, 3695L, 4055L, 2325L, 2440L, 2970L, 3735L, 2895L, 2920L, 3525L, 2450L, 3610L, 2295L, 3730L, 2545L, 3050L, 4100L, 3200L, 2910L, 2890L, 3715L, 3470L, 2640L, 2350L, 2575L, 3240L, 3450L, 3495L, 2775L, 2495L, 2045L, 2490L, 3085L, 1965L, 2055L, 2950L, 3030L, 3785L, 2240L, 3960L, 2985L, 2810L, 2985L, 3245L), Cylinders = structure(c(2L, 4L, 4L, 4L, 2L, 2L, 4L, 4L, 4L, 5L, 5L, 2L, 2L, 4L, 2L, 4L, 4L, 5L, 5L, 4L, 2L, 4L, 2L, 2L, 2L, 4L, 2L, 4L, 2L, 4L, 2L, 2L, 2L, 2L, 2L, 4L, 4L, 5L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 5L, 4L, 4L, 4L, 5L, 2L, 2L, 2L, 4L, 6L, 2L, 4L, 2L, 4L, 2L, 4L, 2L, 2L, 4L, 4L, 2L, 2L, 4L, 4L, 2L, 2L, 2L, 4L, 4L, 4L, 2L, 2L, 1L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 4L, 2L, 3L), .Label = c('3', '4', '5', '6', '8', 'rotary'), class = 'factor'), Type = structure(c(4L, 3L, 1L, 3L, 3L, 3L, 2L, 2L, 3L, 2L, 3L, 1L, 1L, 5L, 3L, 6L, 6L, 2L, 5L, 2L, 1L, 2L, 4L, 4L, 1L, 6L, 3L, 5L, 4L, 2L, 4L, 4L, 1L, 5L, 5L, 6L, 3L, 2L, 4L, 5L, 5L, 4L, 1L, 4L, 4L, 5L, 3L, 3L, 3L, 3L, 3L, 2L, 4L, 4L, 1L, 6L, 5L, 1L, 3L, 5L, 3L, 4L, 3L, 4L, 1L, 6L, 3L, 1L, 3L, 6L, 2L, 5L, 4L, 1L, 5L, 3L, 2L, 1L, 4L, 4L, 4L, 1L, 4L, 4L, 5L, 3L, 6L, 4L, 6L, 1L, 5L, 1L, 3L), .Label = c('Compact', 'Large', 'Midsize', 'Small', 'Sporty', 'Van'), class = 'factor'), EngineSize = c(1.8, 3.2, 2.8, 2.8, 3.5, 2.2, 3.8, 5.7, 3.8, 4.9, 4.6, 2.2, 2.2, 3.4, 2.2, 3.8, 4.3, 5, 5.7, 3.3, 3, 3.3, 1.5, 2.2, 2.5, 3, 2.5, 3, 1.5, 3.5, 1.3, 1.8, 2.3, 2.3, 2, 3, 3, 4.6, 1, 1.6, 2.3, 1.5, 2.2, 1.5, 1.8, 1.5, 2, 4.5, 3, 3, 3.8, 4.6, 1.6, 1.8, 2.5, 3, 1.3, 2.3, 3.2, 1.6, 3.8, 1.5, 3, 1.6, 2.4, 3, 3, 2.3, 2.2, 3.8, 3.8, 1.8, 1.6, 2, 3.4, 3.4, 3.8, 2.1, 1.9, 1.2, 1.8, 2.2, 1.3, 1.5, 2.2, 2.2, 2.4, 1.8, 2.5, 2, 2.8, 2.3, 2.4), DriveTrain = structure(c(2L, 2L, 2L, 2L, 3L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 1L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 1L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 3L, 2L, 3L, 2L, 2L, 2L, 1L, 3L, 3L, 3L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 3L, 2L), .Label = c('4WD', 'Front', 'Rear'), class = 'factor')), .Names = c('1000/MPG.city', 'Weight', 'Cylinders', 'Type', 'EngineSize', 'DriveTrain'), terms = quote(1000/MPG.city ~ Weight + Cylinders + Type + EngineSize + DriveTrain), row.names = c(NA, 93L), class = 'data.frame'), 'na.action');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr17_23228c504a51c4f2373362d0208d59f4() {
+ assertEval("argv <- list(structure(c(0.5, 0.5, 0.5, 0.5), gradient = structure(c(NaN, NaN, NaN, NaN), .Dim = c(4L, 1L), .Dimnames = list(NULL, 'L75'))), 'gradient');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr18_87f28ccdb8c7cc7904ecda02b723f8c3() {
+ assertEval("argv <- list(c(NA, NA, '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/histogram.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/histogram.R'), 'levels');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr19_cae0191a553e35fa24cc8fd4b62bbfad() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats'), frow = c(2418L, 2418L, 2418L, 2421L, 2422L, 2424L), lrow = c(2418L, 2418L, 2418L, 2421L, 2426L, 2424L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 6L), class = 'data.frame'), 'row.names');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr2_46b9f3dc9082f361cfacf2980af26745() {
+ assertEval("argv <- list(structure(list(`cbind(X, M)` = structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('X', 'M'))), M.user = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L), .Label = c('N', 'Y'), class = 'factor'), Temp = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c('High', 'Low'), class = 'factor'), Soft = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c('Hard', 'Medium', 'Soft'), class = 'factor')), .Names = c('cbind(X, M)', 'M.user', 'Temp', 'Soft'), terms = quote(cbind(X, M) ~ M.user + Temp + Soft), row.names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), class = 'data.frame'), 'terms');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr20_7e3bce56da8d276dd0bba39ef696d0d5() {
+ assertEval("argv <- list(structure(c('[[.bibentry', '[[.data.frame', '[[.Date', '[[.dendrogram', '[[.factor', '[[.numeric_version', '[[.pdf_doc', '[[.person', '[[.POSIXct'), class = 'MethodsFunction', info = structure(list(visible = c(FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE), from = structure(c(9L, 2L, 2L, 9L, 2L, 2L, 9L, 9L, 2L), .Label = c('CheckExEnv', 'package:base', 'package:datasets', 'package:graphics', 'package:grDevices', 'package:methods', 'package:stats', 'package:utils', 'registered S3method for [['), class = 'factor')), .Names = c('visible', 'from'), row.names = c('[[.bibentry', '[[.data.frame', '[[.Date', '[[.dendrogram', '[[.factor', '[[.numeric_version', '[[.pdf_doc', '[[.person', '[[.POSIXct'), class = 'data.frame')), 'info');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr21_568d1ba9ce0fcabda4b713dcf9088740() {
+ assertEval("argv <- list(structure(list(ID = c(63L, 63L, 63L, 63L, 63L), Age = c(30L, 30L, 30L, 30L, 30L), OME = structure(c(3L, 3L, 3L, 3L, 3L), .Label = c('N/A', 'high', 'low'), class = 'factor'), Loud = c(35L, 40L, 45L, 50L, 55L), Noise = structure(c(2L, 2L, 2L, 2L, 2L), .Label = c('coherent', 'incoherent'), class = 'factor'), Correct = c(1L, 1L, 1L, 3L, 1L), Trials = c(2L, 1L, 1L, 3L, 1L), UID = c(67L, 67L, 67L, 67L, 67L), UIDn = c(67.1, 67.1, 67.1, 67.1, 67.1)), .Names = c('ID', 'Age', 'OME', 'Loud', 'Noise', 'Correct', 'Trials', 'UID', 'UIDn'), row.names = c(635L, 639L, 643L, 647L, 651L), class = 'data.frame'), 'na.action');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr22_fac97e9b6b1519c4963ce01d2437a0b5() {
+ assertEval("argv <- list(structure(c(0, 3, 3, 0), .Dim = c(2L, 2L), counts = structure(c(0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 2L, 2L, 0L), .Dim = c(2L, 2L, 3L), .Dimnames = list(NULL, NULL, c('ins', 'del', 'sub'))), trafos = structure(c('MMMMMM', 'SMMMSMD', 'SMMMSMI', 'MMMMMMM'), .Dim = c(2L, 2L))), 'trafos');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr23_6c484ce28a8ca024d92e01f591414c95() {
+ assertEval("argv <- list(structure(list(y = c(73, 73, 70, 74, 75, 115, 105, 107, 124, 107, 116, 125, 102, 144, 178, 149, 177, 124, 157, 128, 169, 165, 186, 152, 181, 139, 173, 151, 138, 181, 152, 188, 173, 196, 180, 171, 188, 174, 198, 172, 176, 162, 188, 182, 182, 141, 191, 190, 159, 170, 163, 197), x = c(1, 1, 1, 1, 1, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 11, 12), Ta = 1, Tb = 12), .Names = c('y', 'x', 'Ta', 'Tb'), terms = quote(~y + x)), 'terms');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr24_d5d39bccda301a2077ee2742a6caed29() {
+ assertEval("argv <- list(structure(c(804.851443135267, 3.3994157758076, 28.3699038266834, 1.84375046462573), .Dim = c(2L, 2L), .Dimnames = list(c('(Intercept)', 'day'), c('Variance', 'StdDev')), formStr = 'pdLogChol(day)', corr = structure(c('(Intr)', '-0.555'), .Dim = c(2L, 1L), .Dimnames = list(c('(Intercept)', 'day'), 'Corr'))), which = 'corr');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr25_3d3e3a9a8bcf64b85fbaabfa62398a2b() {
+ assertEval("argv <- list(structure(c(0.0319339476375948, 0.0319339476375948, 0.114405269727263, 0.114405269727263, 0.211060625790557, 0.211060625790557, 0.375868556643391, 0.375868556643391, 0.631987388405009, 0.631987388405009, 0.977771587733117, 0.977771587733117, 1.3655287091085, 1.3655287091085, 1.71941659701549, 1.71941659701549), gradient = structure(c(0.013379193963099, 0.013379193963099, 0.0479317593757097, 0.0479317593757097, 0.0884269330704518, 0.0884269330704518, 0.157475623779182, 0.157475623779182, 0.264780350605592, 0.264780350605592, 0.409651693312349, 0.409651693312349, 0.572108204994814, 0.572108204994814, 0.720374706438093, 0.720374706438093, -0.0298119721009501, -0.0298119721009501, -0.103062799493893, -0.103062799493893, -0.182048260790464, -0.182048260790464, -0.299644491810901, -0.299644491810901, -0.439656344689613, -0.439656344689613, -0.546177195068236, -0.546177195068236, -0.552869486814534, -0.552869486814534, -0.454930857067767, -0.454930857067767), .Dim = c(16L, 2L), .Dimnames = list(NULL, c('Asym', 'xmid')))), 'gradient');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr26_f6948f118b0dc25226e634552ed0024c() {
+ assertEval("argv <- list(structure(list(structure(list(structure('Update varFunc Object', Rd_tag = 'TEXT')), Rd_tag = '\\title'), structure(list(structure('update.varFunc', Rd_tag = 'VERB')), Rd_tag = '\\name'), structure(list(structure('update.varExp', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('update.varFunc', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('update.varComb', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('update.varConstPower', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('update.varExpon', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('update.varPower', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('models', Rd_tag = 'TEXT')), Rd_tag = '\\keyword'), structure(list(structure('\n', Rd_tag = 'TEXT'), structure(' If the ', Rd_tag = 'TEXT'), structure(list(structure('formula(object)', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' includes a ', Rd_tag = 'TEXT'), structure(list(structure('\'.\'', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' term, representing\n', Rd_tag = 'TEXT'), structure(' a fitted object, the variance covariate needs to be updated upon\n', Rd_tag = 'TEXT'), structure(' completion of an optimization cycle (in which the variance function\n', Rd_tag = 'TEXT'), structure(' weights are kept fixed). This method function allows a reevaluation of\n', Rd_tag = 'TEXT'), structure(' the variance covariate using the current fitted object and,\n', Rd_tag = 'TEXT'), structure(' optionally, other variables in the original data.\n', Rd_tag = 'TEXT')), Rd_tag = '\\description'), structure(list(structure('\n', Rd_tag = 'RCODE'), structure(list(list(structure('update', Rd_tag = 'TEXT')), list(structure('varFunc', Rd_tag = 'TEXT'))), Rd_tag = '\\method'), structure('(object, data, ', Rd_tag = 'RCODE'), structure(list(), Rd_tag = '\\dots'), structure(')\n', Rd_tag = 'RCODE')), Rd_tag = '\\usage'), structure(list(structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure('object', Rd_tag = 'TEXT')), list(structure('an object inheriting from class ', Rd_tag = 'TEXT'), structure(list(structure('varFunc', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(',\n', Rd_tag = 'TEXT'), structure(' representing a variance function structure.', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure(' \n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure('data', Rd_tag = 'TEXT')), list(structure('a list with a component named ', Rd_tag = 'TEXT'), structure(list(structure('\'.\'', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' with the current\n', Rd_tag = 'TEXT'), structure(' version of the fitted object (from which fitted values, coefficients,\n', Rd_tag = 'TEXT'), structure(' and residuals can be extracted) and, if necessary, other variables\n', Rd_tag = 'TEXT'), structure(' used to evaluate the variance covariate(s).', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure(list(), Rd_tag = '\\dots')), list(structure('some methods for this generic require additional\n', Rd_tag = 'TEXT'), structure(' arguments. None are used in this method.', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure(' \n', Rd_tag = 'TEXT')), Rd_tag = '\\arguments'), structure(list(structure('\n', Rd_tag = 'TEXT'), structure(' if ', Rd_tag = 'TEXT'), structure(list(structure('formula(object)', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' includes a ', Rd_tag = 'TEXT'), structure(list(structure('\'.\'', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' term, an\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(structure('varFunc', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' object similar to ', Rd_tag = 'TEXT'), structure(list(structure('object', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(', but with the \n', Rd_tag = 'TEXT'), structure(' variance covariate reevaluated at the current fitted object value;\n', Rd_tag = 'TEXT'), structure(' else ', Rd_tag = 'TEXT'), structure(list(structure('object', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' is returned unchanged.\n', Rd_tag = 'TEXT')), Rd_tag = '\\value'), structure(list(structure('José Pinheiro and Douglas Bates ', Rd_tag = 'TEXT'), structure(list(structure('bates@stat.wisc.edu', Rd_tag = 'TEXT')), Rd_tag = '\\email')), Rd_tag = '\\author'), structure(list(structure(list(structure(list(structure('needUpdate', Rd_tag = 'TEXT')), Rd_tag = '\\link')), Rd_tag = '\\code'), structure(',\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(structure(list(structure('covariate<-.varFunc', Rd_tag = 'TEXT')), Rd_tag = '\\link')), Rd_tag = '\\code'), structure('\n', Rd_tag = 'TEXT')), Rd_tag = '\\seealso')), Rdfile = '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/man/update.varFunc.Rd', class = 'Rd', meta = structure(list(docType = character(0)), .Names = 'docType'), prepared = 3L), 'prepared');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr27_8047d42ac10204661af2ed864b81fb39() {
+ assertEval("argv <- list(structure(list(structure(list(structure('Print a varFunc Object', Rd_tag = 'TEXT')), Rd_tag = '\\title'), structure(list(structure('print.varFunc', Rd_tag = 'VERB')), Rd_tag = '\\name'), structure(list(structure('print.varFunc', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('print.varComb', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('models', Rd_tag = 'TEXT')), Rd_tag = '\\keyword'), structure(list(structure('\n', Rd_tag = 'TEXT'), structure(' The class and the coefficients associated with ', Rd_tag = 'TEXT'), structure(list(structure('x', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' are printed.\n', Rd_tag = 'TEXT')), Rd_tag = '\\description'), structure(list(structure('\n', Rd_tag = 'RCODE'), structure(list(list(structure('print', Rd_tag = 'TEXT')), list(structure('varFunc', Rd_tag = 'TEXT'))), Rd_tag = '\\method'), structure('(x, ', Rd_tag = 'RCODE'), structure(list(), Rd_tag = '\\dots'), structure(')\n', Rd_tag = 'RCODE')), Rd_tag = '\\usage'), structure(list(structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure('x', Rd_tag = 'TEXT')), list(structure('an object inheriting from class ', Rd_tag = 'TEXT'), structure(list(structure('varFunc', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(', representing a\n', Rd_tag = 'TEXT'), structure(' variance function structure.', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure(list(), Rd_tag = '\\dots')), list(structure('optional arguments passed to ', Rd_tag = 'TEXT'), structure(list(structure('print.default', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure('; see\n', Rd_tag = 'TEXT'), structure(' the documentation on that method function.', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure('\n', Rd_tag = 'TEXT')), Rd_tag = '\\arguments'), structure(list(structure('Jos<U+00E9> Pinheiro and Douglas Bates ', Rd_tag = 'TEXT'), structure(list(structure('bates@stat.wisc.edu', Rd_tag = 'TEXT')), Rd_tag = '\\email')), Rd_tag = '\\author'), structure(list(structure(list( structure(list(structure('summary.varFunc', Rd_tag = 'TEXT')), Rd_tag = '\\link')), Rd_tag = '\\code')), Rd_tag = '\\seealso'), structure(list(structure('\n', Rd_tag = 'RCODE'), structure('vf1 <- varPower(0.3, form = ~age)\n', Rd_tag = 'RCODE'), structure('vf1 <- Initialize(vf1, Orthodont)\n', Rd_tag = 'RCODE'), structure('print(vf1)\n', Rd_tag = 'RCODE')), Rd_tag = '\\examples')), Rdfile = '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/man/print.varFunc.Rd', class = 'Rd', meta = structure(list( docType = character(0)), .Names = 'docType'), prepared = 3L), 'meta');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr28_26f8327ca16c924b0f515a72bbc03498() {
+ assertEval("argv <- list(structure(list(variable1 = c(1, 2, 2), variable2 = c(1, 1, 3)), .Names = c('variable1', 'variable2'), row.names = c(NA, -3L), class = 'data.frame', variable.labels = structure(c('variable1', 'variable2'), .Names = c('variable1', 'variable2')), codepage = 20127L), 'variable.labels');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr29_1b404dab287a7ea4b9927330c38a575c() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')), 'row.names');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr30_d39ac6bcaab0a1a137730a666a99b340() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/graphics/R/graphics', '/home/lzhao/hg/r-instrumented/library/graphics/R/graphics'), frow = 4262:4263, lrow = 4262:4263), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'), 'row.names');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr31_ce0ae9f124b7d41e2d09db2f5f16032b() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c('1', '2', NA), class = c('ordered', 'factor')), 'levels');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr32_812e0a38ea6db8eef66392b6b41b0392() {
+ assertEval("argv <- list(structure(1:10, date = structure(200171400, class = c('POSIXct', 'POSIXt'), tzone = ''), class = 'stamped'), 'date');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr33_dd71b0c6a4afc978f0636908363b1fd5() {
+ assertEval("argv <- list(structure(c(49.9, 52.3, 49.4, 51.1, 49.4, 47.9, 49.8, 50.9, 49.3, 51.9, 50.8, 49.6, 49.3, 50.6, 48.4, 50.7, 50.9, 50.6, 51.5, 52.8, 51.8, 51.1, 49.8, 50.2, 50.4, 51.6, 51.8, 50.9, 48.8, 51.7, 51, 50.6, 51.7, 51.5, 52.1, 51.3, 51, 54, 51.4, 52.7, 53.1, 54.6, 52, 52, 50.9, 52.6, 50.2, 52.6, 51.6, 51.9, 50.5, 50.9, 51.7), .Tsp = c(1, 53, 1)), 'tsp');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr34_0e5ae5f2320f15fd31b8f57c4a654167() {
+ assertEval("argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c('y', 'x', 'z'), class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ x * z)), 'row.names');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr35_f8facb8f29eeeb6c79e6e742b34cacfe() {
+ assertEval("argv <- list(structure(c(123.48457192908, 239.059434652297, 290.055338401838, 18.397281603467, 6.57585722655537, 0.670931786731845, 0.178466148156965, 0.245410750178149, 0.363167328274208, 0.194808268742596, 2172.67583033103, 8.91763605923317e+38), .Dim = c(1L, 12L), .Dimnames = list(NULL, c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))), 'class');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr36_4bbde63d429df160015074b3aa026bbc() {
+ assertEval("argv <- list(structure(c(8.85169533448293e-238, 2.77884205079773e-237, 8.5330427463164e-242, 7.89244209468013e-215, 6.74732964729372e-231, 1.30818670504849e-217, 1.39113376416096e-208, 1.35683278955814e-215, 7.74002099666521e-219, 3.64254537730231e-220, 6.75916981442421e-296, 0), .Dim = c(1L, 12L), .Dimnames = list(NULL, c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))), 'class');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr37_084a9068e43c75c0b820cb9680664ec0() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 1.90299264808673e-318, 0, 0, 0, 0, 0), .Dim = c(1L, 12L), .Dimnames = list(NULL, c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))), 'class');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr38_0f9bf89cd8e65f53d90d4b32800ab066() {
+ assertEval("argv <- list(list(c(57, 95, 8, 69, 92, 90, 15, 2, 84, 6, 127, 36, 51, 2, 69, 71, 87, 72, 5, 39, 22, 16, 72, 4, 130, 4, 114, 9, 20, 24, 10, 51, 43, 28, 60, 5, 17, 7, 81, 71, 12, 29, 44, 77, 4, 27, 47, 76, 8, 72, 13, 57, 4, 81, 20, 61, 80, 114, 39, 14, 86, 55, 3, 19)), 'names');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr39_e24cad64c93baee9ea0fd9d1b9b5e4c2() {
+ assertEval("argv <- list(structure(list(coef = c(0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099), m = 50L), .Names = c('coef', 'm'), name = 'Daniell(50)', class = 'tskernel'), 'name');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr4_129074db1d9dc619344683a3a2b8447a() {
+ assertEval("argv <- list(structure(list(`cbind(w = weight, w2 = weight^2)` = structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c('w', 'w2'))), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = c('cbind(w = weight, w2 = weight^2)', 'group'), terms = quote(cbind(w = weight, w2 = weight^2) ~ group), row.names = c(NA, 20L), class = 'data.frame'), 'terms');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr40_d7646c4b3d85a96ee8173efc064ddfa9() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.0519265581680438, 0.0688412118115477, 0.0907383424760159, 0.11871257874736, 0.153851867351129, 0.197066627437879, 0.248849916275927, 0.309003712276245, 0.376411716520019, 0.448970177554117, 0.523767544415284, 0.560977234455458), .Dim = c(12L, 2L), gradient = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.00738389705040961, -0.00961449255414965, -0.0123746759217436, -0.0156916432890164, -0.0195255505224529, -0.0237326760503604, -0.0280361473696848, -0.032025323792521, -0.035205879677649, -0.0371062207595128, -0.0374120660881388, -0.0369391076611127, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.142994094104604, 0.166962078687643, 0.190145150639427, 0.209729276540067, 0.221920901693929, 0.222272332097609, 0.206504915766748, 0.17183720786829, 0.11849125053358, 0.0506747206505475, -0.0237317230350864, -0.0603708169587119), .Dim = c(12L, 2L, 2L))), 'gradient');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr41_915c9a81816541343b105fd761a2fe64() {
+ assertEval("argv <- list(structure(list(A = 0:10, B = 10:20, `NA` = 20:30), .Names = c('A', 'B', NA), row.names = c(NA, -11L), class = 'data.frame'), 'row.names');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr42_ea8116af3526e58a9c17575e5f3f0945() {
+ assertEval("argv <- list(structure(list(coef = c(0.1, 0.1, 0.1, 0.1, 0.1, 0.05), m = 5L), .Names = c('coef', 'm'), name = 'mDaniell(5)', class = 'tskernel'), 'name');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr43_ff60f9ec231b32bf4671907e2241564d() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Dim = c(10L, 2L), .Dimnames = list(NULL, c('tt', 'tt + 1')), .Tsp = c(1920.5, 1921.25, 12), class = c('mts', 'ts', 'matrix')), 'tsp');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr44_0f33471db81e18094b7c6b6c54a26198() {
+ assertEval("argv <- list(structure(c(2L, NA, NA, 4L, 3L, 2L, 1L, 5L, 5L, 6L), .Label = c('NA', 'a', 'b', 'c', 'd', NA), class = 'factor'), 'levels');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr45_b9bc812ef30319730806f0880bb0d94d() {
+ assertEval("argv <- list(c(35.2589338684655, 59.5005803666983, 12.4529321610302, 2.53579570262684, 10.370198579714, 42.0067149618146, 8.14319638132861, 34.0508943233725, 7.78517191057496, 26.9998965458032, 6.70435391953205, 3.62502215105156, 2.59277105754344, 14.4998960151485, 6.70435391953205, 5.8000097831969, 32.741875696675, 59.5015090627504, 13.5512565366133, 4.46460764999704, 9.62989278443572, 42.0073706103832, 8.86141045052292, 59.9511558158597, 7.22940551532861, 27.0003179651772, 7.29566488446303, 6.38233656214029, 2.40767880256155, 14.5001223322046, 7.29566488446303, 10.2116933242272), 'dim');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr5_ae75e342a79dc0f8c76efbfeadc5b247() {
+ assertEval("argv <- list(structure(list(title = structure(1L, .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(2L, .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('title', 'other.author'), row.names = 1L, class = 'data.frame'), 'row.names');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr6_5abb2a8a9a1bcf68065a89ec00e47ada() {
+ assertEval("argv <- list(structure(list(Y = c(130L, 157L, 174L, 117L, 114L, 161L, 141L, 105L, 140L, 118L, 156L, 61L, 91L, 97L, 100L, 70L, 108L, 126L, 149L, 96L, 124L, 121L, 144L, 68L, 64L, 112L, 86L, 60L, 102L, 89L, 96L, 89L, 129L, 132L, 124L, 74L, 89L, 81L, 122L, 64L, 103L, 132L, 133L, 70L, 89L, 104L, 117L, 62L, 90L, 100L, 116L, 80L, 82L, 94L, 126L, 63L, 70L, 109L, 99L, 53L, 74L, 118L, 113L, 89L, 82L, 86L, 104L, 97L, 99L, 119L, 121L), B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c('I', 'II', 'III', 'IV', 'V', 'VI'), class = 'factor'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c('Golden.rain', 'Marvellous', 'Victory'), class = 'factor'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt'), class = 'factor')), .Names = c('Y', 'B', 'V', 'N'), terms = quote(Y ~ B + V + N + V:N), row.names = 2:72, class = 'data.frame'), 'na.action');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr7_221f132d3449bb7f96ea8f28b223521a() {
+ assertEval("argv <- list(structure('mtext(\'«Latin-1 accented chars»: éè øØ å<Å æ<Æ\', side = 3)\n', Rd_tag = 'RCODE'), 'Rd_tag');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr8_9eba0a5cb6d4ad7791f92bc24a39d8f3() {
+ assertEval("argv <- list(structure(c(72.8922646699554, 72.8922646699554, 72.8922646699554, 72.8922646699554, 72.8922646699554, 99.6344113579063, 99.6344113579063, 122.561298550713, 122.561298550713, 122.561298550713, 122.561298550713, 122.561298550713, 122.561298550713, 140.590935258431, 140.590935258431, 140.590935258431, 153.976908924618, 153.976908924618, 153.976908924618, 153.976908924618, 163.542360717164, 163.542360717164, 163.542360717164, 163.542360717164, 163.542360717164, 163.542360717164, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 177.863643456281, 177.863643456281, 177.863643456281, 177.863643456281, 177.863643456281, 181.334266157228, 182.262171017221), gradient = structure(c(0, 0, 0, 0, 0, 57.4245712142609, 57.4245712142609, 92.0663000396056, 92.0663000396056, 92.0663000396056, 92.0663000396056, 92.0663000396056, 92.0663000396056, 102.603355837019, 102.603355837019, 102.603355837019, 96.1864486469068, 96.1864486469068, 96.1864486469068, 96.1864486469068, 80.9127637202515, 80.9127637202515, 80.9127637202515, 80.9127637202515, 80.9127637202515, 80.9127637202515, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 29.9327435335998, 29.9327435335998, 29.9327435335998, 29.9327435335998, 29.9327435335998, 7.54853144661603, 0, 0.999999995832131, 0.999999995832131, 0.999999995832131, 0.999999995832131, 0.999999995832131, 0.900752404767751, 0.900752404767751, 0.72805882604922, 0.72805882604922, 0.72805882604922, 0.72805882604922, 0.72805882604922, 0.72805882604922, 0.546325339398677, 0.546325339398677, 0.546325339398677, 0.388712482407919, 0.388712482407919, 0.388712482407919, 0.388712482407919, 0.265313345750221, 0.265313345750221, 0.265313345750221, 0.265313345750221, 0.265313345750221, 0.265313345750221, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.0650421524858363, 0.0650421524858363, 0.0650421524858363, 0.0650421524858363, 0.0650421524858363, 0.0138547080588812, -2.61666809427403e-08, 0, 0, 0, 0, 0, 0.186415683651876, 0.186415683651876, 0.381271875735367, 0.381271875735367, 0.381271875735367, 0.381271875735367, 0.381271875735367, 0.381271875735367, 0.552874143045278, 0.552874143045278, 0.552874143045278, 0.689351882872836, 0.689351882872836, 0.689351882872836, 0.689351882872836, 0.791184856858009, 0.791184856858009, 0.791184856858009, 0.791184856858009, 0.791184856858009, 0.791184856858009, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.949854646587551, 0.949854646587551, 0.949854646587551, 0.949854646587551, 0.949854646587551, 0.989368022459573, 0.999999988297389), .Dim = c(52L, 3L))), 'gradient');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattr_testattr9_f1186a22414cef9e8b67270a3c27223e() {
+ assertEval("argv <- list(structure(list(Fr = c(32, 53, 10, 3, 11, 50, 10, 30, 10, 25, 7, 5, 3, 15, 7, 8, 36, 66, 16, 4, 9, 34, 7, 64, 5, 29, 7, 5, 2, 14, 7, 8), Hair = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('Black', 'Brown', 'Red', 'Blond'), class = 'factor'), Eye = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L), .Label = c('Brown', 'Blue', 'Hazel', 'Green'), class = 'factor'), Sex = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Male', 'Female'), class = 'factor')), .Names = c('Fr', 'Hair', 'Eye', 'Sex'), terms = quote(Fr ~ (Hair + Eye + Sex)^2), row.names = c(NA, 32L), class = 'data.frame'), 'terms');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattrassign_testattrassign1_04d2ca7126ca8b16489fda461b4053f0() {
+ assertEval("argv <- list(structure(1, foo = structure(list(a = 'a'), .Names = 'a')), 'foo', value = structure(list(a = 'a'), .Names = 'a'));`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattrassign_testattrassign10_ea8fa32ae9b5f46cc52903a11c737421() {
+ assertEval("argv <- list(structure(list(a = 1:3, b = structure(1:3, .Label = c('a', 'b', 'c'), class = 'factor')), .Names = c('a', 'b'), row.names = c(NA, -3L), class = 'data.frame', foo = 10), 'foo', value = 10);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattrassign_testattrassign11_7f441a46a01ebba5aa1acb7d3c4ee512() {
+ assertEval("argv <- list(structure(c(50.566057038188, 50.566057038188, 102.811023011144, 102.811023011144, 134.361651733496, 134.361651733496, 164.684698598908, 164.684698598908, 190.832887571642, 190.832887571642, 200.968775266774, 200.968775266774), gradient = structure(c(0.237752464043283, 0.237752464043283, 0.483398854556726, 0.483398854556726, 0.631744210319564, 0.631744210319564, 0.774317697987532, 0.774317697987532, 0.897261758147131, 0.897261758147131, 0.944918870762493, 0.944918870762493, -601.11023288912, -601.11023288912, -828.312179323201, -828.312179323201, -771.656323378267, -771.656323378267, -579.628530513078, -579.628530513078, -305.762593240759, -305.762593240759, -172.635625621456, -172.635625621456), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('Vm', 'K')))), 'gradient', value = structure(c(0.237752464043283, 0.237752464043283, 0.483398854556726, 0.483398854556726, 0.631744210319564, 0.631744210319564, 0.774317697987532, 0.774317697987532, 0.897261758147131, 0.897261758147131, 0.944918870762493, 0.944918870762493, -601.11023288912, -601.11023288912, -828.312179323201, -828.312179323201, -771.656323378267, -771.656323378267, -579.628530513078, -579.628530513078, -305.762593240759, -305.762593240759, -172.635625621456, -172.635625621456), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('Vm', 'K'))));`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattrassign_testattrassign12_eebb5dc99978390f979913f24736360e() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 20L)), 'dimnames', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattrassign_testattrassign13_161227039b81862755943625a1ee3a7d() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(19L, 22L)), 'dimnames', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattrassign_testattrassign14_5d3a70529bb7c719fd0ba7d907306e43() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 20L)), 'dimnames', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattrassign_testattrassign15_e7a94642f8935e6167fccae31b9ee078() {
+ assertEval("argv <- list(structure(c('8189464 kB', '52252 kB', '237240 kB', '6704452 kB', '5868 kB', '3947300 kB', '3641700 kB', '521488 kB', '126264 kB', '3425812 kB', '3515436 kB', '0 kB', '0 kB', '20603324 kB', '20546156 kB', '1964 kB', '0 kB', '645292 kB', '12420 kB', '76 kB', '343696 kB', '303404 kB', '40292 kB', '2344 kB', '8464 kB', '0 kB', '0 kB', '0 kB', '24698056 kB', '1053308 kB', '34359738367 kB', '301080 kB', '34359386948 kB', '0 kB', '0', '0', '0', '0', '2048 kB', '7488 kB', '8376320 kB'), .Names = c('MemTotal', 'MemFree', 'Buffers', 'Cached', 'SwapCached', 'Active', 'Inactive', 'Active(anon)', 'Inactive(anon)', 'Active(file)', 'Inactive(file)', 'Unevictable', 'Mlocked', 'SwapTotal', 'SwapFree', 'Dirty', 'Writeback', 'AnonPages', 'Mapped', 'Shmem', 'Slab', 'SReclaimable', 'SUnreclaim', 'KernelStack', 'PageTables', 'NFS_Unstable', 'Bounce', 'WritebackTmp', 'CommitLimit', 'Committed_AS', 'VmallocTotal', 'VmallocUsed', 'VmallocChunk', 'HardwareCorrupted', 'HugePages_Total', 'HugePages_Free', 'HugePages_Rsvd', 'HugePages_Surp', 'Hugepagesize', 'DirectMap4k', 'DirectMap2M'), Name = '/proc/meminfo'), 'Name', value = '/proc/meminfo');`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattrassign_testattrassign16_48ce7a0a9b50187eae4cada4d3353f3a() {
+ assertEval("argv <- list(structure(c(0, -187, -34, 0, 165, 0, -95, 121, 107, 0, 41, 0, 0, 93, 0), .Dim = c(5L, 3L)), 'dimnames', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattrassign_testattrassign2_abd86ae29ccfc9b40b4737b8e494dfa8() {
+ assertEval("argv <- list(structure(c(-99, 123, 0, -27, 0, 136, 3.5527136788005e-14, 0, -89, -59, 54.9999999999999, -260, 30, 47, 0), .Dim = c(5L, 3L)), 'dimnames', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattrassign_testattrassign3_1a9c2fe875d816a85f2166d16f0fa5b6() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, NA, 1, 0, 0, 0, 7, 1, 0, 3, 0, 0, 1), .Dim = c(4L, 4L)), 'dimnames', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattrassign_testattrassign4_b98acf7c3923b80e14228ab644b0a8cc() {
+ assertEval("argv <- list(structure(c(51.4483279898675, 51.4483279898675, 103.874299440142, 103.874299440142, 135.181084465022, 135.181084465022, 165.022949241512, 165.022949241512, 190.564205234787, 190.564205234787, 200.417426252912, 200.417426252912), gradient = structure(c(0.242941154845256, 0.242941154845256, 0.490498782967253, 0.490498782967253, 0.638330730196604, 0.638330730196604, 0.779245262792577, 0.779245262792577, 0.899852140987463, 0.899852140987463, 0.946379462411014, 0.946379462411014, -624.945810835795, -624.945810835795, -849.17029094943, -849.17029094943, -784.456730502965, -784.456730502965, -584.515233856856, -584.515233856856, -306.213585850174, -306.213585850174, -172.428123740936, -172.428123740936), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('Vm', 'K'))), hessian = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2.95102023587733, -2.95102023587733, -4.00981760153928, -4.00981760153928, -3.70423746466663, -3.70423746466663, -2.76010536174851, -2.76010536174851, -1.44595334935665, -1.44595334935665, -0.814212806248508, -0.814212806248508, -2.95102023587733, -2.95102023587733, -4.00981760153928, -4.00981760153928, -3.70423746466663, -3.70423746466663, -2.76010536174851, -2.76010536174851, -1.44595334935665, -1.44595334935665, -0.814212806248508, -0.814212806248508, 15182.5057000153, 15182.5057000153, 13883.8998080881, 13883.8998080881, 9104.41522890179, 9104.41522890179, 4140.73388193682, 4140.73388193682, 984.096252952598, 984.096252952598, 296.69533645543, 296.69533645543), .Dim = c(12L, 2L, 2L), .Dimnames = list(NULL, c('Vm', 'K'), c('Vm', 'K')))), 'hessian', value = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2.95102023587733, -2.95102023587733, -4.00981760153928, -4.00981760153928, -3.70423746466663, -3.70423746466663, -2.76010536174851, -2.76010536174851, -1.44595334935665, -1.44595334935665, -0.814212806248508, -0.814212806248508, -2.95102023587733, -2.95102023587733, -4.00981760153928, -4.00981760153928, -3.70423746466663, -3.70423746466663, -2.76010536174851, -2.76010536174851, -1.44595334935665, -1.44595334935665, -0.814212806248508, -0.814212806248508, 15182.5057000153, 15182.5057000153, 13883.8998080881, 13883.8998080881, 9104.41522890179, 9104.41522890179, 4140.73388193682, 4140.73388193682, 984.096252952598, 984.096252952598, 296.69533645543, 296.69533645543), .Dim = c(12L, 2L, 2L), .Dimnames = list(NULL, c('Vm', 'K'), c('Vm', 'K'))));`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattrassign_testattrassign5_ea7b8da877cef1d0bb9be5bbed138167() {
+ assertEval("argv <- list(structure(c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = 3:4), 'dimnames', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattrassign_testattrassign6_a42c0b9527192cfdaa1d529d11fbcda1() {
+ assertEval("argv <- list(structure(c('o', 'p', 'v', 'i', 'r', 'w', 'b', 'm', 'f', 's'), date = structure(1224086400, class = c('POSIXct', 'POSIXt'), tzone = '')), 'date', value = structure(1224086400, class = c('POSIXct', 'POSIXt'), tzone = ''));`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattrassign_testattrassign7_bd847e61e37d7f5dcfbd609c2cec37e4() {
+ assertEval("argv <- list(structure(list(structure(list(structure(13L, label = 'Illinois', members = 1L, height = 0, leaf = TRUE), structure(32L, label = 'New York', members = 1L, height = 0, leaf = TRUE)), members = 2L, midpoint = 0.5, height = 6.23698645180507), structure(list(structure(22L, label = 'Michigan', members = 1L, height = 0, leaf = TRUE), structure(28L, label = 'Nevada', members = 1L, height = 0, leaf = TRUE)), members = 2L, midpoint = 0.5, height = 13.2973681606549)), members = 4L, midpoint = 1.5, height = 18.4173313943456, class = 'dendrogram', edgePar = structure(list( p.col = 'plum'), .Names = 'p.col'), edgetext = '4 members'), 'edgetext', value = '4 members');`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattrassign_testattrassign8_7f59cde2ae97f9157ae509f2c9eeba78() {
+ assertEval("argv <- list(structure(4, '`Object created`' = 'Sat Dec 7 00:26:20 2013'), 'Object created', value = 'Sat Dec 7 00:26:20 2013');`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattrassign_testattrassign9_c350d08c3f819e62094d9790f710eb94() {
+ assertEval("argv <- list(structure(1:3, .Names = c('a', 'b', 'c')), 'names', value = list('a', 'b', 'c'));`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes1_543e183665b9265ca82b36475781b18f() {
+ assertEval("argv <- list(structure(c(5.79821692617331, 1.82341879820553, 2.78390295547843, 5.76851897647876, 1.96728131351224, 1.64012180629841, 0.76150764829566, 8.78324957466388, 0.711713280005232, 0.0432245134694077, 0.484038236738706, 2.2604286525194), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes10_83450759c0d30e3aad0c208bf50bef19() {
+ assertEval("argv <- list(structure(list(zi.si. = c(-2.73014251717135, -2.16787987308811, -1.61026765290054, -1.06093652746977, -0.523224065200069, 0, 0.506450782357207, 0.994479058519472, 1.46306067722175, 1.91173866627745, 2.34053598638487, 2.74985599456053)), .Names = 'zi.si.', row.names = c(NA, -12L), class = 'data.frame'));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes11_ce8131cc90c422c0b246f4d9189e67ef() {
+ assertEval("argv <- list(structure(c(4L, 5L, 1L, 5L, 3L, 4L, 5L, 3L, 2L, 4L), .Label = c('a', 'c', 'i', 's', 't'), class = 'factor', contrasts = structure(c(1, 0, 0, 0, -1, 0, 1, 0, 0, -1, -0.247125681008604, -0.247125681008604, -0.149872105789645, 0.891249148815458, -0.247125681008604, 0.268816352031209, 0.268816352031209, -0.881781351530059, 0.0753322954364324, 0.268816352031209), .Dim = c(5L, 4L), .Dimnames = list(c('a', 'c', 'i', 's', 't'), NULL))));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes12_5e42d6b658bd9e762e38c93cd90c45f1() {
+ assertEval("argv <- list(structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes13_cfc305b302708bd95f256935c31be9b0() {
+ assertEval("argv <- list(c(FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes14_3240dfa329b15a375585e5317272aa1b() {
+ assertEval("argv <- list(structure(list(a_string = c('foo', 'bar'), a_bool = FALSE, a_struct = structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = 'foo'), .Names = c('a', 'b', 'c')), a_cell = structure(list(1, 'foo', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'bar'), .Dim = c(2L, 2L)), a_complex_scalar = 0+1i, a_list = list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'foo'), a_complex_matrix = structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), a_range = c(1, 2, 3, 4, 5), a_scalar = 1, a_complex_3_d_array = structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), a_3_d_array = structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), a_matrix = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), a_bool_matrix = structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))), .Names = c('a_string', 'a_bool', 'a_struct', 'a_cell', 'a_complex_scalar', 'a_list', 'a_complex_matrix', 'a_range', 'a_scalar', 'a_complex_3_d_array', 'a_3_d_array', 'a_matrix', 'a_bool_matrix')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes15_0b0f228a0f510416c5c8798caf630428() {
+ assertEval("argv <- list(structure(c(1L, NA, 3L), .Label = c('1', '2', NA)));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes16_e5a457258bf54c3f1a74d0709c0dd52a() {
+ assertEval("argv <- list(structure(1, .Dim = c(1L, 1L), a = c(NA, 3, -1, 2), class = structure('B', package = '.GlobalEnv')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes17_2b12f8bdfb0c14648d94300866f8f130() {
+ assertEval("argv <- list(structure(list(L = structure(c('Min. :14.00 ', '1st Qu.:26.00 ', 'Median :29.50 ', 'Mean :36.39 ', '3rd Qu.:49.25 ', 'Max. :70.00 ', 'A:9 ', 'B:9 ', NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c('', '', '', '', '', ''), c(' breaks', 'wool')), class = 'table'), M = structure(c('Min. :12.00 ', '1st Qu.:18.25 ', 'Median :27.00 ', 'Mean :26.39 ', '3rd Qu.:33.75 ', 'Max. :42.00 ', 'A:9 ', 'B:9 ', NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c('', '', '', '', '', ''), c(' breaks', 'wool')), class = 'table'), H = structure(c('Min. :10.00 ', '1st Qu.:15.25 ', 'Median :20.50 ', 'Mean :21.67 ', '3rd Qu.:25.50 ', 'Max. :43.00 ', 'A:9 ', 'B:9 ', NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c('', '', '', '', '', ''), c(' breaks', 'wool')), class = 'table')), .Dim = 3L, .Dimnames = structure(list(`warpbreaks[, 'tension']` = c('L', 'M', 'H')), .Names = 'warpbreaks[, \'tension\']')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes18_fdf0fb6f1408fbe0b47df75c329040a2() {
+ assertEval("argv <- list(structure(3.14159265358979, comment = 'Start with pi'));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes19_f12dc253c2a847b9dc5e8127b263c64c() {
+ assertEval("argv <- list(structure(list(school = c(1L, 1L, 2L, 2L, 3L, 3L), class = c(9L, 10L, 9L, 10L, 9L, 10L), score.1 = c(0.487429052428485, 0.738324705129217, 1.51178116845085, 0.389843236411431, 1.12493091814311, -0.0449336090152309), score.2 = c(0.575781351653492, -0.305388387156356, -0.621240580541804, -2.2146998871775, -0.0161902630989461, 0.943836210685299)), .Names = c('school', 'class', 'score.1', 'score.2'), row.names = c(1L, 2L, 5L, 6L, 9L, 10L), class = 'data.frame', reshapeWide = structure(list(v.names = NULL, timevar = 'time', idvar = c('school', 'class'), times = c(1, 2), varying = structure(c('score.1', 'score.2'), .Dim = 1:2)), .Names = c('v.names', 'timevar', 'idvar', 'times', 'varying'))));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes2_dbd74592cc2cfc09c267e3f318ca4c0f() {
+ assertEval("argv <- list(1386518010.66723);attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes20_15c0bda1f1e62ec9ad81a15e3f7adade() {
+ assertEval("argv <- list(structure(c(-0.927486533732408, -0.13045118082262, -1.45825662858798, -1.81793776180039, -1.62313249921887, 1.26834845395072, -0.994859212587552, -0.60437576902456, -1.06120404454492, 0.877124074149983, 0.824787552890982, 0.704014030529726, -0.702775741558964, 0.544818578451748, 1.48964468805446, 0.13432541283722, -0.128923575804159, -0.354052007275421, 1.0711307633823, -1.33461699082502, 0.380875114294515, -1.07786690183251, 0.810306659502442, -2.17501201437322, -0.407604875801864, -0.462999392844433, 0.194880873045067, 2.65407152575046, 0.564656783773942, 0.906337761254496, -0.631531096896236, -1.27819755429098, -0.538330333636237, 1.00231821330914, -0.286364553583536, 0.469006850788945, 1.05885815169124, 1.21503113231427, 1.44216953152086, 0.486588338054406, 0.268701510628534, -0.463411907566429, 1.02436199321322, -1.39004777906874, 0.999688613035661, -0.916808034628566, -0.502852003923634, 0.212379391073633, -0.0134736853666567, 1.31736970279298, -0.0944249611837457, 0.806746464646202, 0.315038937675493, -1.17340599897154, 0.482494016048211, -0.791050343541626, 0.808325470742601, 0.588652339988029, 1.10512245024341, 1.12322151831428, 0.208749082415184, -0.357070741737234, 0.572101015785145, -0.533738015097777, -0.360034768896796, 0.0342776735716719, -1.99368868442296, 2.04525110526828, 0.854582964377424, -0.292897401378698, -1.18433316855268, -0.376789959833897, -0.538288068463758, -0.232305057346106, -0.375870899318979, -0.359017335348666, -0.741816586737615, -0.269774297924449, -0.796951579131833, 0.0323594165086663, 0.439067375500569, 0.466080486767734, -1.49275492910805, 0.947406234969688, 0.182071046143441, 0.445836300099003, 2.02477378068589, -1.70432399838533, -0.440962927710655, 0.831168740087201, 2.13610340066555, -1.8137969168688, 1.22501979912183, 0.795942206968001, 1.87235555725712, -1.26557065145048, 0.378275537740316, 0.789728084675539, 0.99886763527649, 2.29736830042939, -0.00228198643744461, 0.161544616498807, -1.14848457105275, -1.08025155036982, -1.03819987128219, -0.856130938839897, 1.0042164519591, -0.843667376942675, -1.21154108350058, 0.460882948229546, -0.468389916732288, -0.946568852822378, 1.17783540515932, -0.973911234750034, -0.0639785174878419, -1.1045450251553, 0.442020873295079, 0.0831991221894004, 0.269053190969569, 0.901338595939942, -0.086250034518703, 0.478492308026563, -0.925167039266549, -0.658186865278783, 1.0337884593443, -0.434569632901449, 2.038954875659, 0.202381377518746, 0.484762177881311, -0.360074615793248, -0.129300783906607, 0.651643789311553, 0.934922268235395, -0.0934722501709123, -0.0103213567459648, 1.61917070438612, -1.06268414268298, 0.696244014590397, 0.992388229201836, 0.697363816464206, 0.250252166543902, -0.557960198745092, 0.221087284404152, 0.10961920608307, 0.259174711435693, -0.70162900779778, 1.92431317758909, -0.578758205883074, 1.59171854092147, 0.902876390823624, 0.840275033814991, 1.77586917630517, 0.403033282757909, 0.0539091417299491, -1.26615014148617, 0.0148781649233171, 0.256100494565364, -1.01942222514274, 0.549839939376835, -0.724728578424903, 0.151976282801212, 0.326791648750199, 0.748909789058061, -1.85444018168148, 0.0869984536340467, 1.25350587157032, 0.962041461790638, 0.120578653081864, -0.11935793490114, 0.6951267107979, -1.39729724662012, 1.03310979193329, -0.619324332563388, 0.60759513170927, 0.665670243263983, 1.34746787641065, 0.213814029897928, -0.43608749915348, -0.196912890515945, -0.474024803180795, -0.0932220458288109, -0.739450980689706, -0.299196422560384, -0.765918956807232, -0.374980670595253, 0.65328744055362, -0.552631311606602, -1.24532249102801, 1.50941913047883, -1.79189867145273, -0.892183862327233, 1.20950581962313, 0.454528744013934, 0.266817155028672, 1.65771215541012, 1.00893183514602, 0.761621316769915, 0.262896620317128, -0.128241496594234, 0.980274347240293), .Label = structure(list(c(-2.17503193782145, -0.474004879732569), c(-0.97393115819826, -0.0932021223805848), c(-0.468409840180514, 0.266837078476898), c(-0.086269957966929, 0.696263938038623), c(0.268681587180308, 1.02438191666144), c(0.697343893015979, 2.65409144919869)), class = 'shingleLevel'), class = 'shingle'));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes21_49593ab52328f6b14283dbbfef5b6328() {
+ assertEval("argv <- list(structure(c(82, 82, 82, 75, 63, 50, 43, 35, 35, 54, 54, 54, 39, 36, 0, 0, 57, 57, 57, 51, 45, 45, 39, 39, 36, 32, 25, 25, 25, 25, 32, 32, 59, 74, 74, 71, 71, 71, 71, 71, 71, 71, 73, 73, 73, 71, 71, 75, 75, 63, 62, 60, 57, 49, 49, 52, 57, 61, 62, 66, 66, 62, 61, 61, 72, 72, 78, 78, 78, 71, 71, 74, 74, 64, 62, 62, 73, 73, 69, 69, 69, 69, 64, 63, 62, 56, 46, 44, 44, 44, 44, 44, 44, 44, 44, 44, 59, 65, 65, 65, 61, 56, 53, 52, 51, 51, 49, 49, 49, 49, 0, 0, 44, 44, 40, 28, 27, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = 'ts'));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes22_f44454beb8bccd957653004a6a8241d9() {
+ assertEval("argv <- list(c(1000, 1e+07, 1));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes23_a0a64aefea633b3e370519ba743289ce() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), arguments = structure('object', simpleOnly = TRUE), signatures = list(), generic = structure(function (object) standardGeneric('show'), generic = structure('show', package = 'methods'), package = 'methods', group = list(), valueClass = character(0), signature = structure('object', simpleOnly = TRUE), default = structure(function (object) showDefault(object, FALSE), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'object', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'object', package = 'methods'), generic = structure('show', package = 'methods'), class = structure('derivedDefaultMethod', package = 'methods')), skeleton = quote((function (object) showDefault(object, FALSE))(object)), class = structure('standardGeneric', package = 'methods')), class = structure('listOfMethods', package = 'methods')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes24_61bebe3b9387503ee89a04416423eaf2() {
+ assertEval("argv <- list(structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c('A', 'B', 'C'), class = 'factor')), .Names = c('x', 'y', 'fac'), row.names = c(NA, -10L), class = 'data.frame'));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes25_70c7fa9725d3bf916c0aec236ba4b67b() {
+ assertEval("argv <- list(structure(character(0), package = character(0), class = structure('ObjectsWithPackage', package = 'methods')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes26_237c738df174d934dd9b974e323a6920() {
+ assertEval("argv <- list(structure(list(qr = structure(c(-561841.166008647, 1.48748911573234e-06, 1.62250974987379e-06, 1.29819733159371e-06, 1.3199650315892e-06, 1.59089005368605e-06, 3.38370366592718e-06, 1.54037267089339e-06, 1.26888887472893e-06, 1.66561998324397e-06, 2.71299853206351e-06, 1.82740883826792e-06, 1.69185183297085e-06, 1.36523405858032e-06, 1.55319864307643e-06, 1.56902110896583e-06, 1.3906190700334e-06, 1.2997165800148e-06, 1.56369334788134e-06, 1.43353743471477e-06, 1.74457009494164e-06, 2.03022219956374e-06, 1.73363224357496e-06, 1.47177180858703e-06, 4.47621920517122e-06, 1.45868913292866e-06, 1.67531329485535e-06, 1.56635043280177e-06, 1.90866628223014e-06, 1.54802991445627e-06, 1.60217310325092e-06, 2.68573152311995e-06, 1.55319864307643e-06, 1.65295348775885e-06, 1.41747488364731e-06, 0.999999999831096, 1.61369967706714e-06, 1.31520838537442e-06, 2.44157411192876e-06, 5.1686927260975e-06, 1.81484917852149e-06, 1.50372096623665e-06, 1.91837965937479e-06, 1.68517783522785e-06, 1.65295348775885e-06, 1.58810634192319e-06, 1.77478134630985e-06, 1.66883236806679e-06, 2.2002369936867e-06, 1.56635043280177e-06, 1.31520838537442e-06, 1.23229813671524e-06, 1.69185183297085e-06, 1.77091892313243e-06, 1.92329229138616e-06, 1.33290617468824e-06, 1.64672765212343e-06, 2.17841592228372e-06, 2.07828144894252e-06, 1.72289757538629e-06, 1.92824285888419e-06, 1.81484917852149e-06, 2.01304088471671e-06, 1.47621155263461e-06, 1.91350448082172e-06, 1.47177180858703e-06, 1.60217310325092e-06, 1.53282794306286e-06, 1.53282794306286e-06, 2.24592152723567e-06, 1.3564992660355e-06, 1.61662040285441e-06, 1.78652203450807e-06, 1.84456798315616e-06, 1.83165369610876e-06, 2.34653452685434e-06, 2.12325719919593e-06, 1.37956761746782e-06, 1.32156208605305e-06, 1.77478134630985e-06, 1.66242607813213e-06, 1.88501398961327e-06, 1.75571762111387e-06, 1.71936342279218e-06, 2.15723147161546e-06, 1.48294715363101e-06, 1.94332712676627e-06, 1.26606598163328e-06, 1.70544122262692e-06, 1.72289757538629e-06, 1.44385821185109e-06, 1.53533052096275e-06, 1.35133818480092e-06, 1.72645361131692e-06, 1.82319335667127e-06, 1.32963523435973e-06, 1.41158914936576e-06, 2.12325719919593e-06, 1.47844654491007e-06, 1.44385821185109e-06, 1472023.85454144, -24.6606754318977, 0.101285140222523, 0.12658801819228, 0.124500435606533, 0.103298237275271, 0.0485666635912155, 0.106685971539808, 0.129511920733888, 0.0986636292980589, 0.0605734308209414, 0.0899284547245126, 0.0971338624854, 0.120372186413924, 0.105804979598362, 0.104738008044408, 0.118174850871225, 0.126440048191751, 0.105094868834514, 0.114636830861078, 0.0941986135491651, 0.0809448199785816, 0.0947929347785712, 0.111658733889352, 0.0367127444946359, 0.11266018033215, 0.0980927625103667, 0.104916590166795, 0.0860999235367981, 0.106158253725478, 0.102570773477205, 0.06118841105676, 0.105804979598362, 0.0994196861729652, 0.115935876650863, -0.105466791174436, 0.101838113293825, 0.124950710904606, 0.0673073062385254, 0.0317940330935366, 0.0905508070559734, 0.109286343932539, 0.0856639697119484, 0.0975185539657231, 0.0994196861729652, 0.103479304149645, 0.0925951094262163, 0.0984737080806255, 0.0746900879658086, 0.104916590166795, 0.124950710904606, 0.13335753753099, 0.0971338624854, 0.0927970627378338, 0.0854451586907835, 0.123291662172605, 0.099795566659867, 0.075438259057915, 0.0790730002999382, 0.0953835529495729, 0.0852257858900505, 0.0905508070559734, 0.0816356880948164, 0.111322916452723, 0.085882223247457, 0.111658733889352, 0.102570773477205, 0.10721109183635, 0.10721109183635, 0.0731707992415186, 0.121147290839092, 0.101654123163447, 0.0919865892416036, 0.0890918891744519, 0.0897200446166977, 0.0700334141981384, 0.0773980324983756, 0.119121529360296, 0.124349981516283, 0.0925951094262163, 0.0988531856309209, 0.0871802709827442, 0.093600518723111, 0.095579614648734, 0.0761790825557647, 0.110817282218029, 0.0845642530341719, 0.129800688512867, 0.096359872295819, 0.0953835529495729, 0.113817398381304, 0.107036337986806, 0.121609982184857, 0.0951870874129862, 0.0901363829552483, 0.123594963843665, 0.116419281840054, 0.0773980324983756, 0.111154627274007, 0.113817398381304), .Dim = c(100L, 2L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100'), c('(Intercept)', 'x'))), rank = 2L, qraux = c(1.00000155841949, 1.11047890709071), pivot = 1:2, tol = 1e-11), .Names = c('qr', 'rank', 'qraux', 'pivot', 'tol')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes27_3a6023514a31dc623c83dcc716a56459() {
+ assertEval("argv <- list(structure(list(message = 'NAs produced', call = quote(rnorm(2, numeric()))), .Names = c('message', 'call')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes28_5731e7033a3dab769f197bfd21194cbc() {
+ assertEval("argv <- list(structure(c(7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 8L, 8L, 8L, 8L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 27L, 27L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 17L, 17L, 17L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L), .Label = structure(c('9', '8', '7', '4', '2', '10', '1', '3', '5', '6', '21', '22', '24', '27', '26', '25', '23', '17', '11', '14', '13', '15', '16', '20', '19', '18', '12'), .Names = c('Control1', 'Control2', 'Control3', 'Control4', 'Control5', 'Control6', 'Control7', 'Control8', 'Control9', 'Control10', 'High1', 'High2', 'High3', 'High4', 'High5', 'High6', 'High7', 'Low1', 'Low2', 'Low3', 'Low4', 'Low5', 'Low6', 'Low7', 'Low8', 'Low9', 'Low10')), class = c('ordered', 'factor')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes29_9b16d51d2d501b2ebc100e63dc9684ba() {
+ assertEval("argv <- list(structure(list(tau = c(-0.704193760852047, 0, 1.5847914530377, 2.07658624888165, 2.62779840842982, 3.16900609499152, 3.70430313207003), par.vals = structure(c(1.19410356771918, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 0.0145810141529953, 0.24263452560295, 0.470688037052905, 0.562956252821107, 0.683253495496408, 0.823187854524599, 0.98897386701965), .Dim = c(7L, 2L), .Dimnames = list(NULL, c('a', 'b')))), .Names = c('tau', 'par.vals')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes3_1aa430145ddb87a453eaf87d3c82ac11() {
+ assertEval("argv <- list(structure(list(x = c(55, 55.4, 55.8, 56.2, 56.6, 57, 57.4, 57.8, 58.2, 58.6, 59, 59.4, 59.8, 60.2, 60.6, 61, 61.4, 61.8, 62.2, 62.6, 63, 63.4, 63.8, 64.2, 64.6, 65, 65.4, 65.8, 66.2, 66.6, 67, 67.4, 67.8, 68.2, 68.6, 69, 69.4, 69.8, 70.2, 70.6, 71, 71.4, 71.8, 72.2, 72.6, 73, 73.4, 73.8, 74.2, 74.6, 75), y = c(NA, NA, NA, NA, NA, NA, NA, NA, 115.348528272371, 116.097056544742, 117, 118.121358638144, 119.369358638144, 120.616754451341, 121.816150264538, 123, 124.196077478756, 125.399549206385, 126.598034046405, 127.793047158796, 129, 130.223726064439, 131.424330251242, 132.555722198323, 133.686509958601, 135, 136.60008742339, 138.253074310999, 139.654076730115, 140.802092261622, 142, 143.481497863021, 145.150710102743, 146.833352023286, 148.446781704108, 150, 151.524882658905, 153.128867127397, 154.93285159589, 156.93285159589, 159, 161.026859361644, 163.013429680822, NA, NA, NA, NA, NA, NA, NA, NA)), .Names = c('x', 'y')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes4_f93386493f4a5f6a28697a0256f47990() {
+ assertEval("argv <- list(structure(c(1+1i, 2+1.4142135623731i, 3+1.73205080756888i, 4+2i, 5+2.23606797749979i, 6+2.44948974278318i, 7+2.64575131106459i, 8+2.82842712474619i, 9+3i, 10+3.1622776601684i), id = character(0), class = structure('withId', package = '.GlobalEnv')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes5_5324182e13fb719c21932cc844773123() {
+ assertEval("argv <- list(structure(c('o', 'p', 'v', 'i', 'r', 'w', 'b', 'm', 'f', 's'), date = structure(1224086400, class = c('POSIXct', 'POSIXt'), tzone = ''), .S3Class = 'stamped', class = structure('stamped', package = '.GlobalEnv')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes6_b5da0ca104f0b408b19ff0596419356e() {
+ assertEval("argv <- list(structure(list(loc = c(0.0804034870161223, 10.3548347412639), cov = structure(c(3.01119301965569, 6.14320559215603, 6.14320559215603, 14.7924762275451), .Dim = c(2L, 2L)), d2 = 2, wt = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), sqdist = c(0.439364946869246, 0.0143172566761092, 0.783644692619938, 0.766252947443554, 0.346865912102713, 1.41583192825661, 0.168485512965902, 0.354299830956879, 0.0943280426627965, 1.05001058449122, 1.02875556201707, 0.229332323173361, 0.873263925064789, 2.00000009960498, 0.449304354954282, 0.155023307933165, 0.118273979375253, 0.361693898800799, 0.21462398586105, 0.155558909016629, 0.471723661454506, 0.719528696331092, 0.0738164380664225, 1.46001193111051, 0.140785322548143, 0.127761195166703, 0.048012401156175, 0.811750426884519, 0.425827709817574, 0.163016638545231, 0.557810866640707, 0.277350147637843, 0.0781399119055092, 1.29559183995835, 0.718376405567138, 1.37650242941478, 0.175087780508154, 0.233808973148729, 0.693473805463067, 0.189096604125073, 1.96893781800017, 0.4759756980592, 1.69665760380474, 0.277965749373647, 0.920525436884815, 0.57525234053591, 1.59389578665009, 0.175715364671313, 0.972045794851437, 1.75514684962809, 0.0597413185507202, 0.174340343040626, 0.143421553552865, 0.997322770596838, 1.94096736957465, 2.00000001159796, 0.367000821772989, 0.682474530588235, 1.20976163307984, 1.27031685239035, 1.79775635513363, 0.0857761902860323, 0.435578932929501, 0.214370604878221, 0.494714247412686, 1.78784623754399, 1.24216674083069, 1.87749485326709, 0.0533296334123023, 1.45588362584438, 2.00000000631459, 0.208857144738039, 0.119251291573058, 0.365303924649962, 0.690656674239668, 0.0396958405786268, 0.258262120876164, 1.57360254057537, 0.307548421049514, 0.628417063100241, 1.00647098749202, 0.297624360530352, 0.400289147351669, 1.98298426250944, 0.129127182829694, 0.0794695319493149, 0.991481735944321, 0.444068154119836, 0.206790162395106, 0.574310829851377, 0.181887577583334, 0.433872021297517, 0.802994892604009, 0.293053770941001, 1.7002969001965, 0.77984639982848, 1.36127407487932, 0.761935213110323, 0.597915313430067, 0.237134831067472), prob = NULL, tol = 1e-07, eps = 9.96049758228423e-08, it = 898L, maxit = 5000, ierr = 0L, conv = TRUE), .Names = c('loc', 'cov', 'd2', 'wt', 'sqdist', 'prob', 'tol', 'eps', 'it', 'maxit', 'ierr', 'conv'), class = 'ellipsoid'));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes7_e20ed84eef25740977ac77c9dc39ffc5() {
+ assertEval("argv <- list(NULL);attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes8_7cb7e9f921b881423f60e2ff91021949() {
+ assertEval("argv <- list('Error in setClass(\'class3\', representation(\'class1\', \'class2\')) : \n error in contained classes (\'class2\') for class “class3”; class definition removed from ‘.GlobalEnv’\n');attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributes_testattributes9_686be18f5d20113a553fdb6fd3e8d8cc() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), .S3Class = 'data.frame', extra = character(0)));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributesassign_testattributesassign1_99fdb96ba57d4a61390aecd2dd80e91a() {
+ assertEval("argv <- list(NULL, NULL);`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributesassign_testattributesassign2_dd6c0c71d97a9e1c13c4c26816cc6cd8() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributesassign_testattributesassign3_fb43af51dd5ca868167e7ca42f1d90f4() {
+ assertEval("argv <- list(NA, value = NULL);`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributesassign_testattributesassign4_bf2b722bef5b6a3b671dee345f89e8ba() {
+ assertEval("argv <- list(1:6, value = NULL);`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributesassign_testattributesassign5_d63d100b6eef343732550c12ce558b17() {
+ assertEval("argv <- list(c(2.63548374681491, 2.5910646070265, 2.66370092538965, 2.70586371228392, 2.78247262416629, 2.79379038469082, 2.72835378202123, 2.67394199863409, 2.66370092538965, 2.6222140229663, 2.59217675739587, 2.62013605497376, 2.60745502321467, 2.55870857053317, 2.60959440922522, 2.66558099101795, 2.74741180788642, 2.73878055848437, 2.67394199863409, 2.6232492903979, 2.59769518592551, 2.60852603357719, 2.53402610605613, 2.55630250076729, 2.52762990087134, 2.49136169383427, 2.55509444857832, 2.60638136511061, 2.70329137811866, 2.69108149212297, 2.63848925695464, 2.55990662503611, 2.54157924394658, 2.55870857053317, 2.50242711998443, 2.53147891704225, 2.52633927738984, 2.48429983934679, 2.54032947479087, 2.60638136511061, 2.66931688056611, 2.66745295288995, 2.62531245096167, 2.55022835305509, 2.54157924394658, 2.55144999797288, 2.47856649559384, 2.4983105537896, 2.48572142648158, 2.43296929087441, 2.48572142648158, 2.55022835305509, 2.60745502321467, 2.6159500516564, 2.57287160220048, 2.50242711998443, 2.49554433754645, 2.50105926221775, 2.44247976906445, 2.45331834004704, 2.44404479591808, 2.3747483460101, 2.43775056282039, 2.49415459401844, 2.54032947479087, 2.56110138364906, 2.4983105537896, 2.43136376415899, 2.42975228000241, 2.42651126136458, 2.36735592102602, 2.38381536598043, 2.35983548233989, 2.30749603791321, 2.35983548233989, 2.41329976408125, 2.46686762035411, 2.48000694295715, 2.42160392686983, 2.36921585741014, 2.35602585719312, 2.37106786227174, 2.27415784926368, 2.3096301674259, 2.30319605742049, 2.25527250510331, 2.32428245529769, 2.3747483460101, 2.4345689040342, 2.42160392686983, 2.38560627359831, 2.35983548233989, 2.37106786227174, 2.37291200297011, 2.29225607135648, 2.29225607135648, 2.28780172993023, 2.23552844690755, 2.28103336724773, 2.32014628611105, 2.38381536598043, 2.36172783601759, 2.3384564936046, 2.26245108973043, 2.25767857486918, 2.28555730900777, 2.25527250510331, 2.23299611039215, 2.22010808804005, 2.16435285578444, 2.20951501454263, 2.26481782300954, 2.29885307640971, 2.29885307640971, 2.25042000230889, 2.23552844690755, 2.21218760440396, 2.25042000230889, 2.17609125905568, 2.16136800223497, 2.14612803567824, 2.05690485133647, 2.12385164096709, 2.19865708695442, 2.23044892137827, 2.23044892137827, 2.17318626841227, 2.09691001300806, 2.13033376849501, 2.14921911265538, 2.10037054511756, 2.06069784035361, 2.07188200730613, 2.01703333929878, 2.07554696139253, 2.13353890837022, 2.17026171539496, 2.17026171539496, 2.13033376849501, 2.08278537031645, 2.11058971029925, 2.12057393120585, 2.07188200730613, 2.04921802267018), value = structure(list(tsp = c(1949, 1960.91666666667, 12), class = 'ts'), .Names = c('tsp', 'class')));`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinattributesassign_testattributesassign6_867b0f1e8d3971e8dbde6e10fdab6fc0() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 2, 3), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('I', 'a')), foo = 'bar', class = 'matrix'), value = structure(list(class = 'matrix', foo = 'bar', dimnames = list(NULL, c('I', 'a')), dim = c(3L, 2L)), .Names = c('class', 'foo', 'dimnames', 'dim')));`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinbacksolve_testbacksolve1_5ee3505c4c1ea73736916d63ec9ac952() {
+ assertEval("argv <- list(structure(c(-2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0421675318334475, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0421675318334475, 0, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.445407110781343, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510819156714975, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510819156714975, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510819156714975, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592753100948471, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.428419619610855, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.252201198430086, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.428419619610855, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510819156714975, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592753100948472, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592753100948472, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, -0.252201198430086, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, -0.252201198430086, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, 0, -0.0421675318334475, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, -0.0421675318334475, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, -0.0486697428190666, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, -0.0486697428190666, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, -0.0486697428190666, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, -0.0486697428190666, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.935285871700694), .Dim = c(22L, 22L), .Dimnames = list(c('StripS01', 'StripS02', 'StripS03', 'StripS04', 'StripS05', 'StripS06', 'StripS07', 'StripS08', 'StripS09', 'StripS10', 'StripS11', 'StripS12', 'StripS13', 'StripS14', 'StripS15', 'StripS16', 'StripS17', 'StripS18', 'StripS19', 'StripS20', 'StripS21', ''), c('3', '4', '5', '6', '9', '10', '11', '12', '13', '14', '15', '16', '19', '20', '21', '25', '26', '27', '31', '32', '33', '39'))), structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.00019677474442243), .Dim = c(22L, 1L)), 22L, FALSE, FALSE); .Internal(backsolve(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbacksolve_testbacksolve2_3893cbdf564a0850304c651909a2e046() {
+ assertEval("argv <- list(structure(c(-2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0421590411210753, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0421590411210753, 0, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.445373554228914, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510781706167877, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510781706167877, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510781706167877, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592635069735823, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.428392065749892, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.252172670570357, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.428392065749892, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510781706167877, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592635069735823, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592635069735823, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, -0.252172670570357, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, -0.252172670570357, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, 0, -0.0421590411210753, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, -0.0421590411210753, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, -0.0486599542810648, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, -0.0486599542810647, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, -0.0486599542810648, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, -0.0486599542810648, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.935253697073914), .Dim = c(22L, 22L), .Dimnames = list(c('StripS01', 'StripS02', 'StripS03', 'StripS04', 'StripS05', 'StripS06', 'StripS07', 'StripS08', 'StripS09', 'StripS10', 'StripS11', 'StripS12', 'StripS13', 'StripS14', 'StripS15', 'StripS16', 'StripS17', 'StripS18', 'StripS19', 'StripS20', 'StripS21', ''), c('3', '4', '5', '6', '9', '10', '11', '12', '13', '14', '15', '16', '19', '20', '21', '25', '26', '27', '31', '32', '33', '39'))), structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.20033559004316e-05), .Dim = c(22L, 1L)), 22L, FALSE, FALSE); .Internal(backsolve(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbacksolve_testbacksolve3_693d57e0a462d771e6a8554ddcc2183a() {
+ assertEval("argv <- list(structure(c(-0.91092349872819, -1.26769315823132, 0, -1.11965595698793), .Dim = c(2L, 2L)), structure(c(-0.000210872744086474, 0.000210873298561107), .Dim = c(2L, 1L)), 2L, FALSE, FALSE); .Internal(backsolve(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbasename_testbasename1_b0e9f4ccb9f444e50250d5e015d631b4() {
+ assertEval("argv <- list('/home/roman/r-instrumented/library/base/help/DateTimeClasses'); .Internal(basename(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbasename_testbasename2_35c475ed272bb37ab934ec1d731ac883() {
+ assertEval("argv <- list(structure('myTst', .Names = '')); .Internal(basename(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbasename_testbasename3_e6c86391f62d1c46d448e4d77b5da234() {
+ assertEval("argv <- list(c('file55711ba85492.R', '/file55711ba85492.R')); .Internal(basename(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbasename_testbasename4_985d5562280f6fa4c859c4f1de2ce238() {
+ assertEval("argv <- list(character(0)); .Internal(basename(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbasename_testbasename5_ee1c249cadc9005aac1e41985aac5156() {
+ assertEval("argv <- list(structure('/home/lzhao/hg/r-instrumented/library/utils', .Names = 'Dir')); .Internal(basename(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbasename_testbasename6_d3f4384d0456172037d60db03cb9894a() {
+ assertEval("argv <- list('tk_messageBox.Rd'); .Internal(basename(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbasename_testbasename7_d49399c80a66452a6e31418f3c99ff89() {
+ assertEval("argv <- list(c('.', '.', '.', '.', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'R', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'data', 'inst', 'inst', 'inst/doc', 'inst/doc', 'inst/doc', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'man', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb/figures', 'noweb/figures', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb/rates', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'noweb', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'src', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'tests', 'vignettes', 'vignettes', 'vignettes')); .Internal(basename(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbcVersion_testbcVersion1_729bb985e45c4d519860190fb06be4f8() {
+ assertEval(" .Internal(bcVersion())");
+ }
+
+ @Test
+ public void TestrGenBuiltinbesselI_testbesselI1_c5436c69ddc343ef1a18f4a59c2ba9be() {
+ assertEval("argv <- list(FALSE, FALSE, 1); .Internal(besselI(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbesselI_testbesselI2_56930bf6e5bb6a9cab80491083105b87() {
+ assertEval("argv <- list(logical(0), logical(0), 1); .Internal(besselI(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbesselJ_testbesselJ1_8bea88bac4fe5a1faffa80aa611e7ac7() {
+ assertEval("argv <- list(logical(0), logical(0)); .Internal(besselJ(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbesselJ_testbesselJ2_f6dd8d79d9f0e261e4301bacbcb9ba3e() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(besselJ(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbesselJ_testbesselJ3_09686dced4665337d6e44904ca794b90() {
+ assertEval("argv <- list(c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), 2.5); .Internal(besselJ(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbesselK_testbesselK1_4ffe35847579aa54f93d6f2f4ffcecca() {
+ assertEval("argv <- list(FALSE, FALSE, 1); .Internal(besselK(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbesselK_testbesselK2_f0b03c5877b9cab6dc1769f67437773e() {
+ assertEval("argv <- list(logical(0), logical(0), 1); .Internal(besselK(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbesselK_testbesselK3_f5a232be0559e3c6e7bf8beb20e9c397() {
+ assertEval("argv <- list(c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), 3, 1); .Internal(besselK(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbesselK_testbesselK4_c8f80482f9b97234e6627d284f49d204() {
+ assertEval("argv <- list(c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), 3.5, 1); .Internal(besselK(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbesselY_testbesselY1_2549a2d2eb9b4979431ff63fd45c822c() {
+ assertEval("argv <- list(c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), 20.5); .Internal(besselY(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbesselY_testbesselY2_342040860b9d1b3bd1d5accfa4eb4519() {
+ assertEval("argv <- list(2, c(3, 8.94, 14.88, 20.82, 26.76, 32.7, 38.64, 44.58, 50.52, 56.46, 62.4, 68.34, 74.28, 80.22, 86.16, 92.1, 98.04, 103.98, 109.92, 115.86, 121.8, 127.74, 133.68, 139.62, 145.56, 151.5, 157.44, 163.38, 169.32, 175.26, 181.2, 187.14, 193.08, 199.02, 204.96, 210.9, 216.84, 222.78, 228.72, 234.66, 240.6, 246.54, 252.48, 258.42, 264.36, 270.3, 276.24, 282.18, 288.12, 294.06, 300)); .Internal(besselY(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbesselY_testbesselY3_921e6908d967f09d63ec52e6a52145f7() {
+ assertEval("argv <- list(c(0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2, 2.1, 2.2, 2.3, 2.4, 2.5, 2.6, 2.7, 2.8, 2.9, 3, 3.1, 3.2, 3.3, 3.4, 3.5, 3.6, 3.7, 3.8, 3.9, 4, 4.1, 4.2, 4.3, 4.4, 4.5, 4.6, 4.7, 4.8, 4.9, 5, 5.1, 5.2, 5.3, 5.4, 5.5, 5.6, 5.7, 5.8, 5.9, 6, 6.1, 6.2, 6.3, 6.4, 6.5, 6.6, 6.7, 6.8, 6.9, 7, 7.1, 7.2, 7.3, 7.4, 7.5, 7.6, 7.7, 7.8, 7.9, 8, 8.1, 8.2, 8.3, 8.4, 8.5, 8.6, 8.7, 8.8, 8.9, 9, 9.1, 9.2, 9.3, 9.4, 9.5, 9.6, 9.7, 9.8, 9.9, 10), -0.2); .Internal(besselY(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbesselY_testbesselY4_89fd2343995ff9367e3bad0f94f0c0cc() {
+ assertEval("argv <- list(logical(0), logical(0)); .Internal(besselY(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbeta_testbeta1_198092df6f4981dfea50a44b5128f572() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(beta(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbeta_testbeta2_b1b30c00bfaa20461c510f1709b9e6e6() {
+ assertEval("argv <- list(logical(0), logical(0)); .Internal(beta(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbincode_testbincode1_e436ea1d3aaab4fefa12e74d662f7f1e() {
+ assertEval("argv <- list(c(-1, -1, -1, -1, -1), c(-1.001, -1, -0.999), TRUE, FALSE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbincode_testbincode2_b6b741af966ede0491e114e53bae64a0() {
+ assertEval("argv <- list(c(8.70599232813489e-06, 7.24187268717448e-10, 7.84878459581784e-14), c(0, 0.001, 0.01, 0.05, 0.1, 1), TRUE, TRUE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbincode_testbincode3_abc0e4f9c61cf542638957a3c2d9769d() {
+ assertEval("argv <- list(c(0.00316901674455053, 0.000313731190323184, 2.12051012154177e-05, 0.000158772845963692), c(0, 0.001, 0.01, 0.05, 0.1, 1), TRUE, TRUE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbincode_testbincode4_7763740072b90c291fec944f5de861a4() {
+ assertEval("argv <- list(c(NA, 0.0654707112145736, 0.999999999999999), c(0, 0.001, 0.01, 0.05, 0.1, 1), TRUE, TRUE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbincode_testbincode5_3c74b1204b51b8fcc56aa5910ae2c82b() {
+ assertEval("argv <- list(structure(c(3.00863041155973, 0.411191886071604, -0.690490615408105, -4.08011169113016, -1.74096111020938, 0.149871643848704, -0.617403399223794, 1.77225991336381, 0.70873696276922, 0.831384833755618, 0.760421822835713, -1.43576852408133, -1.06684579764157, 0.112230570314199, 1.7784773190779, 0.601241755061942, 3.2084694607557, 1.30812378137844, 0.548795030131126, -4.19457515085108, -2.57754314942853, -2.82255910587143, -1.79648698551886, 8.02186933983834, -1.32562596449111, 1.07620193452922, 0.454145574974766, -1.70834615344098, -1.67960999025708, -0.580565722061994, 1.46027792034151, 0.274978829340024), class = 'table', .Dim = c(4L, 4L, 2L), .Dimnames = structure(list(Hair = c('Black', 'Brown', 'Red', 'Blond'), Eye = c('Brown', 'Blue', 'Hazel', 'Green'), Sex = c('Male', 'Female')), .Names = c('Hair', 'Eye', 'Sex'))), c(-Inf, -4, -2, 0, 2, 4, Inf), TRUE, FALSE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbincode_testbincode6_6f46fc965845d88d707b390d6d15afbb() {
+ assertEval("argv <- list(c(4L, 8L, 7L, 4L, 8L, 7L, NA, 7L, 6L, 7L, 7L, 8L, 8L, 6L, 7L, 8L, 5L, 4L, 8L, 7L, 5L, 6L, 5L, 6L, 5L, 6L, 7L, 6L, 5L, 7L, 4L, 6L, 6L, 5L, 7L, 5L, 5L, 6L, 6L, 6L, 5L, 7L, 5L, 7L, 5L, 3L, 7L, 6L, 5L, 5L, 6L, 5L, 5L, 6L, 10L, 10L, 6L, 3L, 5L, 8L, 7L, 5L, 6L, 5L, 5L, 5L, 6L, 5L, 6L, 5L, 5L, 6L, 7L, 7L, 6L, 7L, 7L, 8L, 9L, 7L, 8L, 6L, 4L, 7L, 7L, 6L, NA, 8L, 5L, 7L, 6L, 5L, NA, 7L, 6L, 7L, 7L, 9L, 5L, 8L, 6L, 8L, 9L, 6L, 6L, 7L, 8L, 8L, 8L, 7L, 8L, 7L, 6L, 6L, 9L, 7L, 6L, 8L, 5L, 7L, 8L, 8L, 7L, 7L, 7L, 8L, 5L, 6L, 6L, 5L, 7L, 5L, 7L, 7L, 4L, 5L, 8L, 5L, 5L, 6L, 7L, 5L, 9L, 5L, 6L, 7L), c(2, 5.5, 10), TRUE, FALSE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbindtextdomain_testbindtextdomain1_bcf59789c1abf6ce64eef4f6f8a0b970() {
+ assertEval("argv <- list('splines', '/home/roman/r-instrumented/library/translations'); .Internal(bindtextdomain(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbindtextdomain_testbindtextdomain2_8961295a914ee0581df6a90cb6841dd6() {
+ assertEval("argv <- list('utils', '/home/lzhao/hg/r-instrumented/library/translations'); .Internal(bindtextdomain(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbitwiseAnd_testbitwiseAnd1_aa2f5a12e5456739afbe05df58e66002() {
+ assertEval("argv <- list(structure(c(420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 493L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 493L, 493L, 493L, 493L, 493L, 493L, 493L, 493L, 493L, 493L, 493L), class = 'octmode'), structure(256L, class = 'octmode')); .Internal(bitwiseAnd(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbitwiseAnd_testbitwiseAnd2_8337f9a47e6be7ee56fb9e4048479be1() {
+ assertEval("argv <- list(structure(integer(0), class = 'hexmode'), structure(integer(0), class = 'hexmode')); .Internal(bitwiseAnd(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbitwiseNot_testbitwiseNot1_6f4621a85f41aeed410087846823e620() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(bitwiseNot(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbitwiseOr_testbitwiseOr1_2fc068352a4607103b67148f6f3ad61c() {
+ assertEval("argv <- list(15L, 7L); .Internal(bitwiseOr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbitwiseShiftR_testbitwiseShiftR1_ca7b2aa43f08bec7efe9c8fed9d5d0b7() {
+ assertEval("argv <- list(-1, 1:31); .Internal(bitwiseShiftR(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbitwiseXor_testbitwiseXor1_67d355fb00ab2f9ad9cb963a329fe194() {
+ assertEval("argv <- list(-1L, 1L); .Internal(bitwiseXor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbody_testbody1_10aef9003d5613516e7b26cc2253360b() {
+ assertEval("argv <- list(function (x, y) { c(x, y)}); .Internal(body(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbody_testbody2_a717bfb76f7c264fe48c9545caa714cb() {
+ assertEval("argv <- list(function (object) TRUE); .Internal(body(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbody_testbody3_0411bf3456f1132e57c60df35346ad29() {
+ assertEval("argv <- list(function (from, strict = TRUE) from); .Internal(body(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbody_testbody4_b7e309a14448bf6e2de664cba5aa149e() {
+ assertEval("argv <- list(.Primitive('/')); .Internal(body(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbody_testbody5_92c7242ae7caa2e085ae9b673fca3e9e() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame')); .Internal(body(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinbody_testbody6_48c67548bbabd5fee445f7c4e3598da6() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(body(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc1_13cfabacc8bd29f58d0bc467e1990b21() {
+ assertEval("argv <- list(character(0), 'myLib/myTst');c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc10_3698492e4eab2b3a3a2db687ff216bec() {
+ assertEval("argv <- list(NULL, structure(list(class = 'try-error', condition = structure(list(message = 'supply both 'x' and 'y' or a matrix-like 'x'', call = quote(cor(rnorm(10), NULL))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), .Names = c('class', 'condition')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc11_18e746bcf752350618eea6b9c4c7a53d() {
+ assertEval("argv <- list(`(Intercept)` = '(Intercept)', structure(list(B = 'B', V = 'V', N = 'N', `V:N` = c('V', 'N'), Residuals = c('B', 'V', 'N', 'Within')), .Names = c('B', 'V', 'N', 'V:N', 'Residuals')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc12_893306f4fa3242de50b85b43428340ed() {
+ assertEval("argv <- list(structure(c(512, 313, 89, 19, 353, 207, 17, 8, 120, 205, 202, 391, 138, 279, 131, 244, 53, 138, 94, 299, 22, 351, 24, 317), .Dim = c(2L, 2L, 6L), .Dimnames = structure(list(Admit = c('Admitted', 'Rejected'), Gender = c('Male', 'Female'), Dept = c('A', 'B', 'C', 'D', 'E', 'F')), .Names = c('Admit', 'Gender', 'Dept')), class = 'table'));c(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc13_7e670b990ae67b0f24254abc7119fa3c() {
+ assertEval("argv <- list(structure(1208822400, class = c('POSIXct', 'POSIXt')), structure(1209168000, class = c('POSIXct', 'POSIXt')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc14_506a02475a8de3228c830a64becefd5c() {
+ assertEval("argv <- list(`Grand mean` = structure(103.87323943662, class = 'mtable'), structure(list(N = structure(c(78.7365206866197, 98.5088731171753, 113.842206450509, 123.008873117175), .Dim = 4L, .Dimnames = structure(list(N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = 'N'), class = 'mtable'), `V:N` = structure(c(79.5323303457107, 86.1989970123773, 69.7732394366197, 98.0323303457106, 108.032330345711, 89.1989970123773, 114.198997012377, 116.698997012377, 110.365663679044, 124.365663679044, 126.365663679044, 118.032330345711), .Dim = 3:4, .Dimnames = structure(list(V = c('Golden.rain', 'Marvellous', 'Victory'), N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = c('V', 'N')), class = 'mtable')), .Names = c('N', 'V:N')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc15_d681f80055f55318ccbe86713f7dbd71() {
+ assertEval("argv <- list(NULL, structure(list(class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rexp(2, numeric()))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), .Names = c('class', 'condition')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc16_cd54788a659f2aca50dc077592d10374() {
+ assertEval("argv <- list(NULL, structure(list(other = structure(1:3, .Label = c('A', 'B', 'C'), class = 'factor')), .Names = 'other'));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc17_f979dcbdb473f6307110c9317151fe3b() {
+ assertEval("argv <- list(logical(0), structure(1:10, .Tsp = c(1920.5, 1921.25, 12), class = 'ts'), logical(0));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc18_742b442e1270728d9ab7ee9693a04ab6() {
+ assertEval("argv <- list(structure(list(V1 = c(1L, 1L, 2L, 3L), V2 = structure(c(1L, 1L, 2L, 3L), .Label = c('A', 'D', 'E'), class = 'factor'), V3 = c(6, 6, 9, 10)), .Names = c('V1', 'V2', 'V3'), row.names = c(NA, 4L), class = 'data.frame'), sep = '\r');c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc19_2e8d0282a0a7bbf02c3a617d2e01bb12() {
+ assertEval("argv <- list(10L, NULL, 10);c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc2_89de936e2b3fdf73e2ca207e161dcab3() {
+ assertEval("argv <- list(structure(list(names = c('x', 'z')), .Names = 'names'), structure(list(class = 'data.frame', row.names = c(NA, 10L)), .Names = c('class', 'row.names')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc20_9d3caf528f6a98a69bf26725a8ebc298() {
+ assertEval("argv <- list(NULL, structure(list(class = 'try-error', condition = structure(list(message = 'non-numeric argument to mathematical function', call = quote(log('a'))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), .Names = c('class', 'condition')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc21_45e9d2fc217e3ac6ce4f45742d3e75e0() {
+ assertEval("argv <- list(NULL, structure(list(class = 'try-error', condition = structure(list(message = ''x' is empty', call = quote(cor(Z[, FALSE], use = 'pairwise.complete.obs', method = 'kendall'))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), .Names = c('class', 'condition')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc22_55e3dd5f98ae0d4f5b719e08fbb043f4() {
+ assertEval("argv <- list(structure(list(N = structure(c(17, 18, 18, 18), .Dim = 4L, .Dimnames = structure(list(N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = 'N'))), .Names = 'N'), structure(list(`V:N` = structure(c(6, 6, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6), .Dim = 3:4, .Dimnames = structure(list(V = c('Golden.rain', 'Marvellous', 'Victory'), N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = c('V', 'N')))), .Names = 'V:N'));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc23_ebe18420191ea2a9cfe95c94ce2daf01() {
+ assertEval("argv <- list(list(NULL), list(NULL, c('a', 'b', 'c'), NULL, c('V5', 'V6', 'V7', 'V8', 'V9')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc24_60d55ae1b0437e9ee8d5ce03bfda13c5() {
+ assertEval("argv <- list(NULL, structure(list(class = 'try-error', condition = structure(list(message = 'undefined columns selected', call = quote(`[.data.frame`(dd, , 'C'))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), .Names = c('class', 'condition')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc25_b0de35f7a0b133ecefc289a9555804c4() {
+ assertEval("argv <- list(NULL, structure(list(class = 'try-error', condition = structure(list(message = 'line 1 did not have 4 elements', call = quote(scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings, flush, fill, strip.white, quiet, blank.lines.skip, multi.line, comment.char, allowEscapes, encoding))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), .Names = c('class', 'condition')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc26_3eba3e0f23b04fef5933a6407aeed831() {
+ assertEval("argv <- list(0, c(FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc27_19251159fdd9844c75a3c7bc69d316b4() {
+ assertEval("argv <- list(character(0));c(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc28_273f26b579648467b0e4eb9c9ecab497() {
+ assertEval("argv <- list(NULL, structure(list(class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(1, sd = Inf))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), .Names = c('class', 'condition')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc29_3d344ae004452d07033b1fa656a9b7b6() {
+ assertEval("argv <- list(1944, 1944.75, 4);c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc3_5439a00c192768df623645c6942391d2() {
+ assertEval("argv <- list(0.1, 1e+60);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc30_f7132b514812013e2045b7d520186ae2() {
+ assertEval("argv <- list(structure(c(2.8709968773466e-06, -0.000158359165766342, 0.00727428858396739, -0.000819679205658397, -0.000777694946526408, -0.00356554678621684, 0.000131355545630207, 0.0114265093267527, -0.000158359165766342, 5.43254707707774e-06, -0.000158630865337517, 9.73709585506688e-05, 0.000111529300368063, 5.13485783500411e-05, -6.33871099330885e-05, -0.000383481109923256, 0.00727428858396739, -0.000158630865337517, -1.56486391901245e-05, -0.00236056684784514, -0.00652700637569598, 0.00050199030070891, 0.00218994696407579, 0.0203300594009954, -0.000819679205658397, 9.73709585506688e-05, -0.00236056684784514, 7.93209373295412e-07, 0.00187235412049774, 0.00143329638746881, -3.6749249077872e-05, -0.0118829190788863, -0.000777694946526408, 0.000111529300368063, -0.00652700637569598, 0.00187235412049774, 4.25289264915918e-06, 0.00235407805712873, -0.000833270910443051, -0.00229252218256459, -0.00356554678621684, 5.13485783500411e-05, 0.00050199030070891, 0.00143329638746881, 0.00235407805712873, -3.00860514170775e-05, -0.00105162168837414, -0.00640852176345075, 0.000131355545630207, -6.33871099330885e-05, 0.00218994696407579, -3.6749249077872e-05, -0.000833270910443051, -0.00105162168837414, 2.63610545947479e-06, 0.00637158302982355, 0.0114265093267527, -0.000383481109923256, 0.0203300594009954, -0.0118829190788863, -0.00229252218256459, -0.00640852176345075, 0.00637158302982355, -9.55643771360926e-05), .Dim = c(8L, 8L), .Dimnames = list(c('height', 'arm.span', 'forearm', 'lower.leg', 'weight', 'bitro.diameter', 'chest.girth', 'chest.width'), c('height', 'arm.span', 'forearm', 'lower.leg', 'weight', 'bitro.diameter', 'chest.girth', 'chest.width'))));c(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc31_1e2061d029a9a9798a1c732e6f59bdfe() {
+ assertEval("argv <- list(c(-Inf, 2.17292368994844e-311, 4.34584737989688e-311, 8.69169475979376e-311, 1.73833895195875e-310, 3.4766779039175e-310, 6.953355807835e-310, 1.390671161567e-309, 2.781342323134e-309, 5.562684646268e-309, 1.1125369292536e-308, 2.2250738585072e-308, 4.4501477170144e-308, 8.90029543402881e-308, 1.78005908680576e-307, 2.2250738585072e-303, 2.2250738585072e-298, 1.79769313486232e+298, 1.79769313486232e+303, 2.24711641857789e+307, 4.49423283715579e+307, 8.98846567431158e+307, 1.79769313486232e+308, Inf, Inf), c(NaN, NA));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc32_19414b3d9b13941cbdfc7060dde57232() {
+ assertEval("argv <- list(list(structure(list(Ozone = c(NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), Solar.R = c(286L, 287L, 242L, 186L, 220L, 264L, 127L, 273L, 291L, 323L, 259L, 250L, 148L, 332L, 322L, 191L, 284L, 37L, 120L, 137L, 150L, 59L, 91L, 250L, 135L, 127L, 47L, 98L, 31L, 138L), Wind = c(8.6, 9.7, 16.1, 9.2, 8.6, 14.3, 9.7, 6.9, 13.8, 11.5, 10.9, 9.2, 8, 13.8, 11.5, 14.9, 20.7, 9.2, 11.5, 10.3, 6.3, 1.7, 4.6, 6.3, 8, 8, 10.3, 11.5, 14.9, 8), Temp = c(78L, 74L, 67L, 84L, 85L, 79L, 82L, 87L, 90L, 87L, 93L, 92L, 82L, 80L, 79L, 77L, 72L, 65L, 73L, 76L, 77L, 76L, 76L, 76L, 75L, 78L, 73L, 80L, 77L, 83L), Month = c(6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), Day = 1:30), .Names = c('Ozone', 'Solar.R', 'Wind', 'Temp', 'Month', 'Day'), row.names = 32:61, class = 'data.frame')), structure(list(Oz.Z = structure(c(NA, NA, NA, NA, NA, NA, -0.0244094233987339, NA, 2.28228108778162, 0.52480260307278, NA, NA, -0.353936639281642, NA, NA, -0.463779044575945, 0.414960197778477, -0.518700247223096, -0.958069868400307, -0.903148665753156, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = c(30L, 1L), '`scaled:center`' = 29.4444444444444, '`scaled:scale`' = 18.2079042664931)), .Names = 'Oz.Z'));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc33_3d5335bcbee7bbed01d8ae0c1031e531() {
+ assertEval("argv <- list(list('*', ' ', 'skipping installation test', '\n'), sep = '');c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc34_6bcf95c4824c94b3fc52cca45fff89d1() {
+ assertEval("argv <- list('exNSS4', 'myLib', structure(c('1.0', NA, 'methods', NA, NA, NA, NA, 'GPL (>= 2)', NA, NA, NA, NA, NA, NA, '3.0.1'), .Names = c('Version', NA, 'Depends', NA, NA, NA, NA, 'License', NA, NA, NA, NA, NA, NA, 'Built')));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc35_567fe3a2d0c2420533a1e239f41ba3cf() {
+ assertEval("argv <- list(c('‘?’ for shortcuts to help topics.', '', ' ‘help.search()’ or ‘??’ for finding help pages', ' on a vague topic;', ' ‘help.start()’ which opens the HTML version of the R', ' help pages;', ' ‘library()’ for listing available packages and the', ' help objects they contain;', ' ‘data()’ for listing available data sets;', ' ‘methods()’.', '', ' Use ‘prompt'), character(0));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc36_a3da20c87d79ce1832a2dd3463ab8e78() {
+ assertEval("argv <- list(-1, 0+1i);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc37_4cf3f505662cdb08290f624bf14b15ff() {
+ assertEval("argv <- list(c(0, 1, 1.3, 1.8, 2.4), 4.6, NULL);c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc38_c6e0f3056b83a22a71c0ff698798f73e() {
+ assertEval("argv <- list(raw(0), 61);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc39_c59c5db7a032e1ed28c2c178902823e9() {
+ assertEval("argv <- list(structure(list(c(1L, 2L, 4L), 1:3, c(2L, 1L)), class = c('package_version', 'numeric_version')));c(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc4_3468a5495f4d4cd88cde14736d1044c1() {
+ assertEval("argv <- list(1, 1, 1, 1, NA);c(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc40_60e271cb617f781421be07103c224874() {
+ assertEval("argv <- list(structure(list(A = 1, c = 'C'), .Names = c('A', 'c')), d = 1:3);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc41_c4b3650a24121cf377e32a42c7b605bf() {
+ assertEval("argv <- list(structure(list(1:3), class = c('package_version', 'numeric_version')), structure(list(c(2L, 1L)), class = c('package_version', 'numeric_version')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc42_9f902e92152903b224f13251c0b10562() {
+ assertEval("argv <- list(structure(list(Ozone = c(41L, 36L, 12L, 18L, NA, 28L, 23L, 19L, 8L, NA, 7L, 16L, 11L, 14L, 18L, 14L, 34L, 6L, 30L, 11L, 1L, 11L, 4L, 32L, NA, NA, NA, 23L, 45L, 115L, 37L, NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 135L, 49L, 32L, NA, 64L, 40L, 77L, 97L, 97L, 85L, NA, 10L, 27L, NA, 7L, 48L, 35L, 61L, 79L, 63L, 16L, NA, NA, 80L, 108L, 20L, 52L, 82L, 50L, 64L, 59L, 39L, 9L, 16L, 78L, 35L, 66L, 122L, 89L, 110L, NA, NA, 44L, 28L, 65L, NA, 22L, 59L, 23L, 31L, 44L, 21L, 9L, NA, 45L, 168L, 73L, NA, 76L, 118L, 84L, 85L, 96L, 78L, 73L, 91L, 47L, 32L, 20L, 23L, 21L, 24L, 44L, 21L, 28L, 9L, 13L, 46L, 18L, 13L, 24L, 16L, 13L, 23L, 36L, 7L, 14L, 30L, NA, 14L, 18L, 20L), Solar.R = c(190L, 118L, 149L, 313L, NA, NA, 299L, 99L, 19L, 194L, NA, 256L, 290L, 274L, 65L, 334L, 307L, 78L, 322L, 44L, 8L, 320L, 25L, 92L, 66L, 266L, NA, 13L, 252L, 223L, 279L, 286L, 287L, 242L, 186L, 220L, 264L, 127L, 273L, 291L, 323L, 259L, 250L, 148L, 332L, 322L, 191L, 284L, 37L, 120L, 137L, 150L, 59L, 91L, 250L, 135L, 127L, 47L, 98L, 31L, 138L, 269L, 248L, 236L, 101L, 175L, 314L, 276L, 267L, 272L, 175L, 139L, 264L, 175L, 291L, 48L, 260L, 274L, 285L, 187L, 220L, 7L, 258L, 295L, 294L, 223L, 81L, 82L, 213L, 275L, 253L, 254L, 83L, 24L, 77L, NA, NA, NA, 255L, 229L, 207L, 222L, 137L, 192L, 273L, 157L, 64L, 71L, 51L, 115L, 244L, 190L, 259L, 36L, 255L, 212L, 238L, 215L, 153L, 203L, 225L, 237L, 188L, 167L, 197L, 183L, 189L, 95L, 92L, 252L, 220L, 230L, 259L, 236L, 259L, 238L, 24L, 112L, 237L, 224L, 27L, 238L, 201L, 238L, 14L, 139L, 49L, 20L, 193L, 145L, 191L, 131L, 223L), Wind = c(7.4, 8, 12.6, 11.5, 14.3, 14.9, 8.6, 13.8, 20.1, 8.6, 6.9, 9.7, 9.2, 10.9, 13.2, 11.5, 12, 18.4, 11.5, 9.7, 9.7, 16.6, 9.7, 12, 16.6, 14.9, 8, 12, 14.9, 5.7, 7.4, 8.6, 9.7, 16.1, 9.2, 8.6, 14.3, 9.7, 6.9, 13.8, 11.5, 10.9, 9.2, 8, 13.8, 11.5, 14.9, 20.7, 9.2, 11.5, 10.3, 6.3, 1.7, 4.6, 6.3, 8, 8, 10.3, 11.5, 14.9, 8, 4.1, 9.2, 9.2, 10.9, 4.6, 10.9, 5.1, 6.3, 5.7, 7.4, 8.6, 14.3, 14.9, 14.9, 14.3, 6.9, 10.3, 6.3, 5.1, 11.5, 6.9, 9.7, 11.5, 8.6, 8, 8.6, 12, 7.4, 7.4, 7.4, 9.2, 6.9, 13.8, 7.4, 6.9, 7.4, 4.6, 4, 10.3, 8, 8.6, 11.5, 11.5, 11.5, 9.7, 11.5, 10.3, 6.3, 7.4, 10.9, 10.3, 15.5, 14.3, 12.6, 9.7, 3.4, 8, 5.7, 9.7, 2.3, 6.3, 6.3, 6.9, 5.1, 2.8, 4.6, 7.4, 15.5, 10.9, 10.3, 10.9, 9.7, 14.9, 15.5, 6.3, 10.9, 11.5, 6.9, 13.8, 10.3, 10.3, 8, 12.6, 9.2, 10.3, 10.3, 16.6, 6.9, 13.2, 14.3, 8, 11.5), Temp = c(67L, 72L, 74L, 62L, 56L, 66L, 65L, 59L, 61L, 69L, 74L, 69L, 66L, 68L, 58L, 64L, 66L, 57L, 68L, 62L, 59L, 73L, 61L, 61L, 57L, 58L, 57L, 67L, 81L, 79L, 76L, 78L, 74L, 67L, 84L, 85L, 79L, 82L, 87L, 90L, 87L, 93L, 92L, 82L, 80L, 79L, 77L, 72L, 65L, 73L, 76L, 77L, 76L, 76L, 76L, 75L, 78L, 73L, 80L, 77L, 83L, 84L, 85L, 81L, 84L, 83L, 83L, 88L, 92L, 92L, 89L, 82L, 73L, 81L, 91L, 80L, 81L, 82L, 84L, 87L, 85L, 74L, 81L, 82L, 86L, 85L, 82L, 86L, 88L, 86L, 83L, 81L, 81L, 81L, 82L, 86L, 85L, 87L, 89L, 90L, 90L, 92L, 86L, 86L, 82L, 80L, 79L, 77L, 79L, 76L, 78L, 78L, 77L, 72L, 75L, 79L, 81L, 86L, 88L, 97L, 94L, 96L, 94L, 91L, 92L, 93L, 93L, 87L, 84L, 80L, 78L, 75L, 73L, 81L, 76L, 77L, 71L, 71L, 78L, 67L, 76L, 68L, 82L, 64L, 71L, 81L, 69L, 63L, 70L, 77L, 75L, 76L, 68L), Month = c(5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L), Day = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L)), .Names = c('Ozone', 'Solar.R', 'Wind', 'Temp', 'Month', 'Day'), row.names = c(NA, -153L)), list(NULL, NULL));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc43_d815967bd21a32cecae15d8138588d5e() {
+ assertEval("argv <- list(list(structure(list(u = c(5, 10, 15, 20, 30, 40, 60, 80, 100), lot1 = c(118, 58, 42, 35, 27, 25, 21, 19, 18), lot2 = c(69, 35, 26, 21, 18, 16, 13, 12, 12)), .Names = c('u', 'lot1', 'lot2'), row.names = c(NA, -9L), class = 'data.frame')), structure(list(max.level = 0, give.attr = FALSE, digits = 3), .Names = c('max.level', 'give.attr', 'digits')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc44_241c155db6e02bde18e0d42fda6000db() {
+ assertEval("argv <- list(list(structure(list(structure('vpl1', class = c('vpListing', 'gridVectorListing', 'gridListing')), structure('1', class = c('vpUpListing', 'gridVectorListing', 'gridListing'))), class = c('gridListListing', 'gridListing'))), list(structure('vpl2', class = c('vpListing', 'gridVectorListing', 'gridListing'))));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc45_a7053499cff365625c19f72d0a95cb06() {
+ assertEval("argv <- list(1, c(2, 3, 4, 6, 7, 8, 9, 10, 11), c(3, 4, 5, 7, 8, 9, 10, 11), 11L);c(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc46_9dfeee2c774468fd357e08f782bd5ecf() {
+ assertEval("argv <- list(TRUE, NULL);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc47_511cd66c3787d8fd558056bdeccd99e1() {
+ assertEval("argv <- list(NULL, structure(list(names = structure('stats', .Names = 'name')), .Names = 'names'));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc48_4853cf805bc044ab020c2920dccc4fb7() {
+ assertEval("argv <- list(list(c('foo', 'bar'), FALSE, structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = 'foo'), .Names = c('a', 'b', 'c')), structure(list(1, 'foo', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'bar'), .Dim = c(2L, 2L)), 0+1i, list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'foo'), structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), c(1, 2, 3, 4, 5), 1, structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), structure(c(1, 3, 2, 4), .Dim = c(2L, 2L))), list(structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc49_f69e518ac26a9bd750cefa243054199a() {
+ assertEval("argv <- list(c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), structure(c(3.3032627879465, 3.28768675817403, 3.28198500972868, 3.26064954685429, 3.28230636466286, 3.29427556805693, 3.28140319515598, 3.31501132729969, 3.29996451963546, 3.3405648068776, 3.3615463372345, 3.37238152179651, 3.32652089130696, 3.31449399159178, 3.31051950313397, 3.29704421073007, 3.31063284281209, 3.31814807478072, 3.3100622663054, 3.33117177869743, 3.32172069914554, 3.34722215914612, 3.36040087649739, 3.36720656884446), .Tsp = c(1983, 1984.91666666667, 12), class = 'ts'), logical(0));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc5_b887175dd6869fa3dff94a8556d5412b() {
+ assertEval("argv <- list(`difference in location` = -30);c(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc50_51796413bfa878aeb051e63ebcfa741c() {
+ assertEval("argv <- list(1, 1, 1, list());c(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc51_c130eabcfe62b8976961284376eb9d07() {
+ assertEval("argv <- list(list('1: In matrix(1:7, 3, 4) :\n data length [7] is not a sub-multiple or multiple of the number of rows [3]'), list(), fill = TRUE);c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc52_fcc9c300ec65b3e4f07bcdf63f232eea() {
+ assertEval("argv <- list(structure(list(names = c('freq', 'score')), .Names = 'names'), structure(list(class = 'data.frame', row.names = integer(0)), .Names = c('class', 'row.names')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc53_1a42cd3ad426a1d642bbe6fa20891a69() {
+ assertEval("argv <- list(1, FALSE, c(0, 0));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc54_f4bae288fc7fe03624de7ec4a21e4653() {
+ assertEval("argv <- list(structure(list(x = structure(1:8, .Dim = structure(8L, .Names = 'voice.part'))), .Names = 'x'), list(4));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc55_3c62d89c46bca1326a5d310b28821c2e() {
+ assertEval("argv <- list(c(1L, 2L, 3L, NA), c(-1, 0, 1, NA));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc56_54a85870042357920fc143339f08944b() {
+ assertEval("argv <- list(369.430769230769, 4.99999999999983);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc57_d343b21f361fd447fcf56deba09d9d4d() {
+ assertEval("argv <- list(structure(list(structure(list(title = 'boot: Bootstrap R (S-PLUS) Functions', author = structure(list(structure(list(given = 'Angelo', family = 'Canty', role = 'aut', email = NULL, comment = 'S original'), .Names = c('given', 'family', 'role', 'email', 'comment')), structure(list(given = c('Brian', 'D.'), family = 'Ripley', role = c('aut', 'trl', 'cre'), email = 'ripley@stats.ox.ac.uk', comment = 'R port, author of parallel support'), .Names = c('given', 'family', 'role', 'email', 'comment'))), class = 'person'), year = '2012', note = 'R package version 1.3-4', url = 'http://CRAN.R-project.org/package=boot'), .Names = c('title', 'author', 'year', 'note', 'url'), bibtype = 'Manual', key = 'boot-package')), class = 'bibentry'), structure(list(structure(list(title = 'Bootstrap Methods and Their Applications', author = structure(list(structure(list(given = c('Anthony', 'C.'), family = 'Davison', role = 'aut', email = NULL, comment = NULL), .Names = c('given', 'family', 'role', 'email', 'comment')), structure(list( given = c('David', 'V.'), family = 'Hinkley', role = 'aut', email = NULL, comment = NULL), .Names = c('given', 'family', 'role', 'email', 'comment'))), class = 'person'), year = '1997', publisher = 'Cambridge University Press', address = 'Cambridge', isbn = '0-521-57391-2', url = 'http://statwww.epfl.ch/davison/BMA/'), .Names = c('title', 'author', 'year', 'publisher', 'address', 'isbn', 'url'), bibtype = 'Book', key = 'boot-book')), class = 'bibentry'));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc58_ec41b36f831777a5bfba1046ce677d54() {
+ assertEval("argv <- list(FALSE, 'More testing :', 12321, 'B2');c(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc59_3ceb19f8e0a0e07c75cb452291b640e1() {
+ assertEval("argv <- list(1:10, 1+1i, TRUE);c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc6_47528a867859be6d38e0248c312e4a49() {
+ assertEval("argv <- list(TRUE, TRUE, NA);c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc60_bac10ed91f2d379457d8681c2f5cb7cd() {
+ assertEval("argv <- list('ArgMethod', 1.10714871779409);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc61_2dc91c47b53879aa7acf309eb1a19905() {
+ assertEval("argv <- list(structure(list(`ANY#ANY` = .Primitive('==')), .Names = 'ANY#ANY'), list());c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc62_4d5c64f82c088f7a9e8890c4de4d4ba6() {
+ assertEval("argv <- list(list(), list());c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc63_6019f3287e9a3c9ebd97981881fcad29() {
+ assertEval("argv <- list(recursive = TRUE);c(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc64_33cd5cddf08f0b34a933c44cf32ac58a() {
+ assertEval("argv <- list(structure(1386393974.25184, class = c('POSIXct', 'POSIXt')), structure(1386393974.25184, class = c('POSIXct', 'POSIXt')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc65_c46ca5c243b7191eb1a8cf838f2a7243() {
+ assertEval("argv <- list('BiocInstaller', '/home/lzhao/R/x86_64-unknown-linux-gnu-library/3.0', structure(c('1.12.0', NA, 'R (>= 3.0.0)', NA, NA, 'RUnit, BiocGenerics', NA, 'Artistic-2.0', NA, NA, NA, NA, NA, NA, '3.0.1'), .Names = c('Version', NA, 'Depends', NA, NA, 'Suggests', NA, 'License', NA, NA, NA, NA, NA, NA, 'Built')));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc66_3fe042b74973c25d18eb57fb1df2e6c1() {
+ assertEval("argv <- list(NA, 1+2i);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc67_6490c980148fcca0cf688502481f5377() {
+ assertEval("argv <- list(structure(c(0.06, 0.32, 0.63), .Names = c('0%', '25%', '50%')), 909.591818181818, structure(c(0.905, 10000), .Names = c('75%', '100%')));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc68_22e89a3f186018b9dbeccbebe1a88eea() {
+ assertEval("argv <- list(structure(list(ctrl = c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14), trt1 = c(4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69), trt2 = c(6.31, 5.12, 5.54, 5.5, 5.37, 5.29, 4.92, 6.15, 5.8, 5.26)), .Dim = 3L, .Dimnames = list(c('ctrl', 'trt1', 'trt2'))));c(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc69_263623649920155074b6af0ed973bd50() {
+ assertEval("argv <- list(list(NA, FALSE), structure(list(na.rm = TRUE), .Names = 'na.rm'));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc7_2d2083d26d4150b2a7c49acd853790e1() {
+ assertEval("argv <- list(expression(data.frame), list(), check.names = TRUE, stringsAsFactors = TRUE);c(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc70_b3c7975bed1723f6697dfe8ad4ae08f2() {
+ assertEval("argv <- list(structure(list(Topic = character(0), File = character(0)), .Names = c('Topic', 'File'), class = 'data.frame', row.names = integer(0)), sep = '\r');c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc71_1da295315d7894b55682648e0b474e3e() {
+ assertEval("argv <- list(structure(list(Subject = structure(c(1L, 3L, 6L, 2L, 4L, 5L), .Label = c('1', '4', '2', '5', '6', '3'), class = c('ordered', 'factor')), conc.0.25 = c(1.5, 2.03, 2.72, 1.85, 2.05, 2.31), conc.0.5 = c(0.94, 1.63, 1.49, 1.39, 1.04, 1.44), conc.0.75 = c(0.78, 0.71, 1.16, 1.02, 0.81, 1.03), conc.1 = c(0.48, 0.7, 0.8, 0.89, 0.39, 0.84), conc.1.25 = c(0.37, 0.64, 0.8, 0.59, 0.3, 0.64), conc.2 = c(0.19, 0.36, 0.39, 0.4, 0.23, 0.42)), row.names = c(1L, 12L, 23L, 34L, 45L, 56L), .Names = c('Subject', 'conc.0.25', 'conc.0.5', 'conc.0.75', 'conc.1', 'conc.1.25', 'conc.2')), list(NULL));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc72_2a6782ea4aeb0791c02a3fb8ec21aac6() {
+ assertEval("argv <- list(structure(list(x.limits = c(-2.46408176011189, 2.92512533057276), y.limits = structure(c(1386479490.57927, 1387608090.57927), class = c('POSIXct', 'POSIXt')), x.used.at = NULL, y.used.at = NULL, x.num.limit = NULL, y.num.limit = NULL, aspect.ratio = 1, prepanel.default = 'prepanel.default.xyplot', prepanel = NULL), .Names = c('x.limits', 'y.limits', 'x.used.at', 'y.used.at', 'x.num.limit', 'y.num.limit', 'aspect.ratio', 'prepanel.default', 'prepanel')), structure(list(index.cond = list(1:3), perm.cond = 1L), .Names = c('index.cond', 'perm.cond')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc73_7c9d27f7d87d43feb9c87a478f41573f() {
+ assertEval("argv <- list(structure(list(coefficients = structure(c(-0.0529307911108286, -0.200175675120066), .Names = c('(Intercept)', 'xTRUE')), residuals = structure(c(0.196977726701894, -0.102864715594501, -1.21764591766838, -0.425219263997792, 0.671048026430597, 1.41161034263987, 0.150318738887899, 0.440602402670198, 0.19930142564799, -1.32412876571778), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), effects = structure(c(0.483887391035467, -0.316505532770654, -1.29088865053614, -0.430233412486575, 0.597805293562832, 1.40659619415109, 0.0770760060201344, 0.435588254181415, 0.126058692780225, -1.32914291420656), .Names = c('(Intercept)', 'xTRUE', '', '', '', '', '', '', '', '')), rank = 2L), .Names = c('coefficients', 'residuals', 'effects', 'rank')), structure(list(fitted.values = structure(c(-0.253106466230895, -0.0529307911108286, -0.253106466230895, -0.0529307911108285, -0.253106466230895, -0.0529307911108285, -0.253106466230895, -0.0529307911108285, -0.253106466230895, -0.0529307911108285), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), assign = 0:1, qr = structure(list(qr = structure(c(-3.16227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, -1.58113883008419, 1.58113883008419, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634), .Dim = c(10L, 2L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'), c('(Intercept)', 'xTRUE')), assign = 0:1, contrasts = structure(list(x = 'contr.treatment'), .Names = 'x')), qraux = c(1.31622776601684, 1.39220245868163), pivot = 1:2, tol = 1e-07, rank = 2L), .Names = c('qr', 'qraux', 'pivot', 'tol', 'rank'), class = 'qr'), df.residual = 8L), .Names = c('fitted.values', 'assign', 'qr', 'df.residual')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc74_daacdfe4d9d32355603ed5db03b02fe2() {
+ assertEval("argv <- list(structure(list(object = c('time', 'status')), .Names = 'object'), structure(list(max.level = NA, vec.len = 4, digits.d = 3, nchar.max = 128, give.attr = TRUE, give.head = TRUE, width = 80L, envir = NULL, strict.width = 'no', formatNum = function (x, ...) format(x, trim = TRUE, drop0trailing = TRUE, ...), list.len = 99), .Names = c('max.level', 'vec.len', 'digits.d', 'nchar.max', 'give.attr', 'give.head', 'width', 'envir', 'strict.width', 'formatNum', 'list.len')), structure(list(give.length = TRUE, nest.lev = 2, indent.str = ' .. ..'), .Names = c('give.length', 'nest.lev', 'indent.str')));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc8_ac82461a6043ed6d050bae486d8448ae() {
+ assertEval("argv <- list(-0.1, 0.1);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinc_testc9_877d21ddde2b9e653bd8ff400df9eba1() {
+ assertEval("argv <- list(NULL, structure(list(class = 'try-error', condition = structure(list(message = 'more columns than column names', call = quote(read.table('foo6', header = TRUE))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), .Names = c('class', 'condition')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincache_testcache1_45dfd711de8f6014b6f7c2c8b1f1385a() {
+ assertEval("argv <- list('ddenseMatrix', c('ddenseMatrix', 'dMatrix', 'denseMatrix', 'Matrix', 'mMatrix'));.cache_class(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincache_testcache2_4f69f78c4dae96b1c05ec2c77be1a3da() {
+ assertEval("argv <- list('numeric', c('numeric', 'vector', 'atomicVector'));.cache_class(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincat_testcat1_642d53489a80f12335c584966d097d2a() {
+ assertEval("argv <- list('head\n', 1:2, '\n', 3:4, file = 'foo4');cat(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincat_testcat2_7f687b22a78090d3d549bb8b426eeaae() {
+ assertEval("argv <- list(list('Loading required package: splines\n'), structure(2L, class = c('terminal', 'connection')), '', FALSE, NULL, FALSE); .Internal(cat(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincat_testcat3_f9d68c51a73934423be654b766621d46() {
+ assertEval("argv <- list('%comment\n\n%another\n%\n%\n', 'C1\tC2\tC3\n\'Panel\'\t\'Area Examined\'\t\'% Blemishes\'\n', '\'1\'\t\'0.8\'\t\'3\'\n', '\'2\'\t\'0.6\'\t\'2\'\n', '\'3\'\t\'0.8\'\t\'3\'\n', file = 'test.dat', sep = '');cat(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincat_testcat4_38534c795888ef5c7ec99c588ba963d4() {
+ assertEval("argv <- list('#comment\n\n#another\n#\n#\n', 'C1\tC2\tC3\n\'Panel\'\t\'Area Examined\'\t\'# Blemishes\'\n', '\'1\'\t\'0.8\'\t\'3\'\n', '\'2\'\t\'0.6\'\t\'2\'\n', '\'3\'\t\'0.8\'\t\'3\'\n', file = 'test.dat', sep = '');cat(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincat_testcat5_d2734f82b0260e758a74d5215c24db7d() {
+ assertEval("argv <- list('head\n', file = 'foo2');cat(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinceiling_testceiling1_67c5a4fea666b55fc077d2db523f5371() {
+ assertEval("argv <- list(1001);ceiling(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinceiling_testceiling2_f9e5154f2ade7492aca1d04ee70cf8aa() {
+ assertEval("argv <- list(13990.84);ceiling(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinceiling_testceiling3_7f4d4d43975fb78b52c4d190493b3c1d() {
+ assertEval("argv <- list(c(1, 4.5, 8, 11.5, 15));ceiling(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinceiling_testceiling4_5680f88c1fe433bfbac8b092b2274376() {
+ assertEval("argv <- list(c(1, 5.5, 10.5, 15.5, 20));ceiling(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinceiling_testceiling5_fadc7933ff1bd1a97c8ba3d322d1f624() {
+ assertEval("argv <- list(-0.698970004336019);ceiling(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinceiling_testceiling6_95605b294cc537ec6d27a57bc1f90104() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));ceiling(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinceiling_testceiling7_2fb13b9335b8e0692e5224868afa548b() {
+ assertEval("argv <- list(1e+05);ceiling(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincharToRaw_testcharToRaw1_f6ac05ee10c8b34d9c24558aed17abd0() {
+ assertEval("argv <- list(''); .Internal(charToRaw(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincharmatch_testcharmatch1_592336a33e8b20eb04d56e99f31eb9e3() {
+ assertEval("argv <- list(c('x', 'y', 'z'), c('row.names', 'x', 'y', 'z'), 0L); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincharmatch_testcharmatch2_3fed2375b93bb5c2f01e0e9735c087b2() {
+ assertEval("argv <- list(character(0), c('row.names', 'height', 'weight'), 0L); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincharmatch_testcharmatch3_0ee63848773a0524ddc63d996edf54a3() {
+ assertEval("argv <- list('package:methods', c('.GlobalEnv', 'CheckExEnv', 'package:stats', 'package:graphics', 'package:grDevices', 'package:utils', 'package:datasets', 'package:methods', 'Autoloads', 'package:base'), NA_integer_); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincharmatch_testcharmatch4_8c6ebed5cb294d4ba570f479750ef5e0() {
+ assertEval("argv <- list('package:methods', c('.GlobalEnv', 'package:graphics', 'package:stats', 'Autoloads', 'package:base'), NA_integer_); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincharmatch_testcharmatch5_30c07d1ab246e9df0acadf7f38437532() {
+ assertEval("argv <- list(c('0', '1'), c('0', '1'), 0); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincharmatch_testcharmatch6_c905ef74c53eb6a8b9a55f980e35743d() {
+ assertEval("argv <- list(c('m', 'f'), c('male', 'female'), NA_integer_); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincharmatch_testcharmatch7_6c3fdec3d6eaaf2e114300dc865abdcc() {
+ assertEval("argv <- list('me', c('mean', 'median', 'mode'), NA_integer_); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincharmatch_testcharmatch8_60a534fcf3ca2630b7910eaab577fde6() {
+ assertEval("argv <- list(character(0), c('semiTransparency', 'transparentBackground', 'rasterImage', 'capture', 'locator', 'events'), 0L); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinchartr_testchartr1_9279f1e8c0c7e17436b2b5348cb0e604() {
+ assertEval("argv <- list('.', '.', c('0.02', '0.06', '0.11', '0.22', '0.56', '1.1')); .Internal(chartr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinchartr_testchartr2_6b8cc756870f6234be361a5a2c033e15() {
+ assertEval("argv <- list('iXs', 'why', 'MiXeD cAsE 123'); .Internal(chartr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinchartr_testchartr3_d9509ba59c460fd40fd43ef3dec4924f() {
+ assertEval("argv <- list('a-cX', 'D-Fw', 'MiXeD cAsE 123'); .Internal(chartr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinchartr_testchartr4_f13328602f093d30f684732048aa532f() {
+ assertEval("argv <- list('.', '.', character(0)); .Internal(chartr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinchoose_testchoose1_44e127902a215294ccfeae0cb5b8aa75() {
+ assertEval("argv <- list(-1, 3); .Internal(choose(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinchoose_testchoose2_671ebdf57cc92ec28ded2847d0ecde16() {
+ assertEval("argv <- list(9L, c(-14, -13, -12, -11, -10, -9, -8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24)); .Internal(choose(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinchoose_testchoose3_079022733e336ef3136461b44fec0f89() {
+ assertEval("argv <- list(logical(0), logical(0)); .Internal(choose(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinchoose_testchoose4_59bd8875f1d732ab6e0a9ffe3ec36a41() {
+ assertEval("argv <- list(0.5, 0:10); .Internal(choose(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass1_d5e1922da90ab1236e08268a69a020ce() {
+ assertEval("argv <- list(structure(function (x) standardGeneric('exp', .Primitive('exp')), generic = structure('exp', package = 'base'), package = 'base', group = list('Math'), valueClass = character(0), signature = 'x', default = .Primitive('exp'), skeleton = quote(.Primitive('exp')(x)), class = structure('standardGeneric', package = 'methods')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass10_4a41e5c9f81b3cd21b2b843b615bb5c9() {
+ assertEval("argv <- list(structure(list(time = 1:10, y = c(1, 1.4142135623731, 1.73205080756888, 2, 2.23606797749979, 2.44948974278318, 2.64575131106459, 2.82842712474619, 3, 3.16227766016838)), .Names = c('time', 'y'), row.names = c(NA, 10L), .S3Class = 'data.frame', date = structure(16045, class = 'Date'), class = structure('dataFrameD', package = '.GlobalEnv')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass11_e6c20a2bccad55c70d4362733847121e() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), .S3Class = 'data.frame', class = structure('data.frame', package = 'methods')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass12_c23f9e29277c3c4eb8c491f9c088cf07() {
+ assertEval("argv <- list(structure(function (qr, y) .Call(sparseQR_resid_fitted, qr, y, TRUE), target = structure(c('sparseQR', 'ddenseMatrix'), .Names = c('qr', 'y'), package = c('Matrix', 'Matrix'), class = structure('signature', package = 'methods')), defined = structure(c('sparseQR', 'ddenseMatrix'), .Names = c('qr', 'y'), package = c('Matrix', 'Matrix'), class = structure('signature', package = 'methods')), generic = structure('qr.resid', package = 'base'), class = structure('MethodDefinition', package = 'methods')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass13_dc9e81366aff5703cfd8a39c9b439296() {
+ assertEval("argv <- list(structure(c(3.1, 6.695, 8.14, 7.50090909091, 8.95, 9.26), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), class = c('summaryDefault', 'table')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass14_745770bcee31d27cb7a65a9a5c43909f() {
+ assertEval("argv <- list(complex(0));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass15_1acbf9456bfe834e69b0ea44662022bc() {
+ assertEval("argv <- list(structure(c(-0.00225540511921, -0.00045867962383, -8.86739505379e-06, -1.96554854754e-06, 0.000402346479421, 0.00193962597167), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), class = c('summaryDefault', 'table')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass16_67d0e8dbe0df521da8e9d69b2e759754() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, NA, NA, TRUE, TRUE, TRUE, NA, NA, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass17_6b159092139faf96d245b4c4a17c8b52() {
+ assertEval("argv <- list(c(-10, -10, -10, NA, NA, 150, 170, 180, NA, NA, 310, 330, 340, 350, 370, 380));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass18_0994d077e69b51e5a997bd716f08e8a6() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = 0L));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass19_378bc375686344254cb41d8b549be1f0() {
+ assertEval("argv <- list(structure(c(0.5, 0, 0.5, 0, 0, 0.5, 0, 0, 0.0740740740740741, 0, 0, 0.5, 1, 0, 0, 0.5, 1, 0.5), unit = c('char', 'grobheight', 'char', 'grobheight', 'grobheight', 'char', 'mm', 'lines', 'null', 'mm', 'mm', 'char', 'grobheight', 'char', 'grobheight', 'char', 'grobheight', 'char'), valid.unit = c(18L, 22L, 18L, 22L, 22L, 18L, 7L, 3L, 5L, 7L, 7L, 18L, 22L, 18L, 22L, 18L, 22L, 18L), data = list(NULL, structure(list(label = '', x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), just = 'centre', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = 'GRID.text.1', gp = structure(list(), class = 'gpar'), vp = NULL), .Names = c('label', 'x', 'y', 'just', 'hjust', 'vjust', 'rot', 'check.overlap', 'name', 'gp', 'vp'), class = c('text', 'grob', 'gDesc')), NULL, structure(list(label = '', x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), just = 'centre', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = 'GRID.text.2', gp = structure(list(), class = 'gpar'), vp = NULL), .Names = c('label', 'x', 'y', 'just', 'hjust', 'vjust', 'rot', 'check.overlap', 'name', 'gp', 'vp'), class = c('text', 'grob', 'gDesc')), structure(list(label = '', x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), just = 'centre', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = 'GRID.text.3', gp = structure(list(), class = 'gpar'), vp = NULL), .Names = c('label', 'x', 'y', 'just', 'hjust', 'vjust', 'rot', 'check.overlap', 'name', 'gp', 'vp'), class = c('text', 'grob', 'gDesc')), NULL, NULL, NULL, NULL, NULL, NULL, NULL, structure(list(label = 'Column', x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), just = 'centre', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = 'plot_01.xlab', gp = structure(list(fontface = 1, alpha = 1, cex = 1, col = '#000000', lineheight = 1, font = 1L), .Names = c('fontface', 'alpha', 'cex', 'col', 'lineheight', 'font'), class = 'gpar'), vp = NULL), .Names = c('label', 'x', 'y', 'just', 'hjust', 'vjust', 'rot', 'check.overlap', 'name', 'gp', 'vp'), class = c('text', 'grob', 'gDesc')), NULL, structure(list(label = '', x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), just = 'centre', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = 'GRID.text.5', gp = structure(list(), class = 'gpar'), vp = NULL), .Names = c('label', 'x', 'y', 'just', 'hjust', 'vjust', 'rot', 'check.overlap', 'name', 'gp', 'vp'), class = c('text', 'grob', 'gDesc')), NULL, structure(list(label = 'Dimensions: 4 x 54', x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), just = 'centre', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = 'plot_01.sub', gp = structure(list(fontface = 2, alpha = 1, cex = 1, col = '#000000', lineheight = 1, font = 2L), .Names = c('fontface', 'alpha', 'cex', 'col', 'lineheight', 'font'), class = 'gpar'), vp = NULL), .Names = c('label', 'x', 'y', 'just', 'hjust', 'vjust', 'rot', 'check.overlap', 'name', 'gp', 'vp'), class = c('text', 'grob', 'gDesc')), NULL), class = 'unit'));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass2_d07d73484fec37ed72c49e88ef46e8b5() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, 1, 0, 0, 0, 1), .Dim = c(3L, 3L), class = structure('mmat2', package = '.GlobalEnv')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass20_4754e06a72e20ff5539b877984997756() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(24L, 13L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24'), c('(Intercept)', 'block2', 'block3', 'block4', 'block5', 'block6', 'N1', 'P1', 'K1', 'N1:P1', 'N1:K1', 'P1:K1', 'N1:P1:K1')), assign = c(0L, 1L, 1L, 1L, 1L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L), contrasts = structure(list(block = 'contr.treatment', N = 'contr.treatment', P = 'contr.treatment', K = 'contr.treatment'), .Names = c('block', 'N', 'P', 'K'))));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass21_e7e777ce32be8efe2035b119d5bcd3db() {
+ assertEval("argv <- list(.Primitive('dimnames<-'));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass22_e40da0501cf603e9efe571d23474a1d2() {
+ assertEval("argv <- list(c(17, 289, 4913, 83521, 1419857, 24137569, 410338673, 6975757441, 118587876497, 2015993900449, 34271896307633, 582622237229761, 9904578032905936, 168377826559400928, 2862423051509815808, 48661191875666870272, 8.27240261886337e+20, 1.40630844520677e+22, 2.39072435685151e+23, 4.06423140664757e+24, 6.90919339130087e+25, 1.17456287652115e+27, 1.99675689008595e+28, 3.39448671314612e+29, 5.7706274123484e+30, 9.81006660099228e+31, 1.66771132216869e+33, 2.83510924768677e+34, 4.81968572106751e+35, 8.19346572581477e+36, 1.39288917338851e+38, 2.36791159476047e+39, 4.02544971109279e+40, 6.84326450885775e+41, 1.16335496650582e+43, 1.97770344305989e+44, 3.36209585320181e+45, 5.71556295044308e+46, 9.71645701575324e+47, 1.65179769267805e+49, 2.80805607755269e+50, 4.77369533183957e+51, 8.11528206412726e+52, 1.37959795090163e+54, 2.34531651653278e+55, 3.98703807810572e+56, 6.77796473277973e+57, 1.15225400457255e+59, 1.95883180777334e+60, 3.33001407321468e+61, 5.66102392446496e+62, 9.62374067159043e+63, 1.63603591417037e+65, 2.78126105408963e+66, 4.72814379195238e+67, 8.03784444631904e+68, 1.36643355587424e+70, 2.3229370449862e+71, 3.94899297647655e+72, 6.71328806001013e+73, 1.14125897020172e+75, 1.94014024934293e+76, 3.29823842388298e+77, 5.60700532060106e+78, 9.5319090450218e+79, 1.62042453765371e+81, 2.7547217140113e+82, 4.68302691381921e+83, 7.96114575349266e+84, 1.35339477809375e+86, 2.30077112275938e+87, 3.91131090869094e+88, 6.6492285447746e+89, 1.13036885261168e+91, 1.92162704943986e+92, 3.26676598404776e+93, 5.5535021728812e+94, 9.44095369389803e+95, 1.60496212796267e+97, 2.72843561753653e+98, 4.6383405498121e+99, 7.88517893468058e+100, 1.3404804188957e+102, 2.27881671212269e+103, 3.87398841060857e+104, 6.58578029803456e+105, 1.11958265066588e+107, 1.90329050613199e+108, 3.23559386042438e+109, 5.50050956272145e+110, 9.35086625662646e+111, 1.5896472636265e+113, 2.70240034816505e+114, 4.59408059188058e+115, 7.80993700619699e+116, 1.32768929105349e+118, 2.25707179479093e+119, 3.83702205114458e+120, 6.52293748694579e+121, 1.10889937278078e+123, 5.5535021728812e+94, 3.33001407321468e+61, 1.95883180777334e+60, 1.15225400457255e+59, 6.77796473277973e+57, 3.98703807810572e+56, 2.34531651653278e+55, 1.37959795090163e+54, 8.11528206412726e+52, 4.77369533183957e+51, 2.80805607755269e+50, 1.65179769267805e+49, 2015993900449));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass23_0821b526eb4132338803c209df9fe70a() {
+ assertEval("argv <- list(structure(function (a, b, ...) standardGeneric('solve'), generic = structure('solve', package = 'base'), package = 'base', group = list(), valueClass = character(0), signature = c('a', 'b'), default = structure(function (a, b, ...) UseMethod('solve'), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'a', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'a', package = 'methods'), generic = structure('solve', package = 'base'), class = structure('derivedDefaultMethod', package = 'methods')), skeleton = quote((function (a, b, ...) UseMethod('solve'))(a, b, ...)), class = structure('standardGeneric', package = 'methods')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass24_19f8ef72f89f5b1612b8d080e67bd9e8() {
+ assertEval("argv <- list(c(-0.31833672642477-1.38507061859438i, 1.42379885362755+0.0383231810219i, 0.405090858049187-0.763030162361974i, -0.995386565684023+0.212306135525839i, -0.95881778764026+1.42553796686779i, -0.918087896319951+0.744479822333976i, 0.15096960188161+0.70022940298623i, 1.2230687888662-0.22935461345173i, 0.868824288637794+0.197093861895352i, 1.04248536490429+1.20715377387226i));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass25_e9d559b4affb116e734cf903b2e517e1() {
+ assertEval("argv <- list(structure(function (x, type, ...) .Call(dgeMatrix_norm, as(x, 'dgeMatrix'), type), target = structure(c('matrix', 'character'), .Names = c('x', 'type'), package = c('methods', 'methods'), class = structure('signature', package = 'methods')), defined = structure(c('matrix', 'character'), .Names = c('x', 'type'), package = c('methods', 'methods'), class = structure('signature', package = 'methods')), generic = structure('norm', package = 'base'), class = structure('MethodDefinition', package = 'methods')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass26_f1880f9b154b8ebdd15f843d5e7aca15() {
+ assertEval("argv <- list(structure(function (x, mode = 'any') .Internal(as.vector(x, mode)), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass27_0a25331c90c4cf31686b5d1179bcbd91() {
+ assertEval("argv <- list(structure(function (x, uplo) { if (uplo == x@uplo) x else t(x)}, target = structure(c('nsCMatrix', 'character'), .Names = c('x', 'uplo'), package = c('Matrix', 'methods'), class = structure('signature', package = 'methods')), defined = structure(c('nsCMatrix', 'character'), .Names = c('x', 'uplo'), package = c('Matrix', 'methods'), class = structure('signature', package = 'methods')), generic = structure('forceSymmetric', package = 'Matrix'), class = structure('MethodDefinition', package = 'methods')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass28_6ca57b63b30ffee1d60a1a0654d85987() {
+ assertEval("argv <- list(c(1.1+0i, NA, 3+0i));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass29_4c7878007c55310af8683251257665f3() {
+ assertEval("argv <- list(structure(1:10, .Tsp = c(1959.25, 1961.5, 4), class = 'ts'));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass3_b2fecd2e69f3c0a0e09c74d1d15c298c() {
+ assertEval("argv <- list(structure(3.14159265358979, comment = 'Start with pi', class = structure('num1', package = '.GlobalEnv')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass4_4330c00e794713c0207b510ea963bae6() {
+ assertEval("argv <- list(structure(c(1+1i, 2+1.4142135623731i, 3+1.73205080756888i, 4+2i, 5+2.23606797749979i, 6+2.44948974278318i, 7+2.64575131106459i, 8+2.82842712474619i, 9+3i, 10+3.1622776601684i), id = character(0), class = structure('withId', package = '.GlobalEnv')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass5_47597cdbf9ba6db858bb11105f1d333c() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass6_2f95bbbd109424d953a4bcd486bf00b6() {
+ assertEval("argv <- list(structure(list(x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), width = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), height = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), justification = 'centre', gp = structure(list(), class = 'gpar'), clip = TRUE, xscale = c(-15.89, 356.89), yscale = c(0.683750615306643, 5.8340977374556), angle = 0, layout = NULL, layout.pos.row = c(21L, 21L), layout.pos.col = c(17L, 17L), valid.just = c(0.5, 0.5), valid.pos.row = c(21L, 21L), valid.pos.col = c(17L, 17L), name = 'plot_01.panel.3.1.vp'), .Names = c('x', 'y', 'width', 'height', 'justification', 'gp', 'clip', 'xscale', 'yscale', 'angle', 'layout', 'layout.pos.row', 'layout.pos.col', 'valid.just', 'valid.pos.row', 'valid.pos.col', 'name'), class = 'viewport'));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass7_763a4e5c78aa02e0558c6f54e42a8ad9() {
+ assertEval("argv <- list(c(NA, '2', '3'));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass8_7b25cd0a8baf7afb8578b49763aae61c() {
+ assertEval("argv <- list(c(325, 257, 303, 315, 380, 153, 263, 242, 206, 344, 258));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclass_testclass9_5b6a21b67e76eea69dee1b739e52deae() {
+ assertEval("argv <- list(structure(list(message = 'Choosing method ‘sparseMatrix#ANY’ from 2 ambiguous possibilities', call = NULL), .Names = c('message', 'call'), class = c('simpleCondition', 'condition')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign1_de061a60340f3f539d6ca430bc12a4ac() {
+ assertEval("argv <- list(structure(function (x, mode = 'any') .Internal(as.vector(x, mode)), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods')), value = structure('MethodDefinition', package = 'methods'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign10_198eeb8cea17bbf0690d6e8f4ea6ba5f() {
+ assertEval("argv <- list(structure(c('o', 'p', 'v', 'i', 'r', 'w', 'b', 'm', 'f', 's'), date = structure(1224086400, class = c('POSIXct', 'POSIXt'), tzone = ''), class = 'stamped'), value = 'stamped');`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign11_94e6631dce59f50b35fa383e95ded7f5() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')), structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign12_a8ba5c78bb75d4172a3cee15d02ddf55() {
+ assertEval("argv <- list(structure(1, class = 'bar'), value = 'bar');`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign13_0b8b3c700a1c7295f81b886f1731ccae() {
+ assertEval("argv <- list(structure(function (qr, y, k = qr$rank) standardGeneric('qr.fitted'), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'qr', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'qr', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods')), value = structure('MethodDefinition', package = 'methods'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign14_d32f4beaf1ef3258805491fdc2b58d1d() {
+ assertEval("argv <- list(structure(function (x = 1, nrow, ncol) standardGeneric('diag'), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods')), value = structure('MethodDefinition', package = 'methods'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign15_814f8d61bca34c17950b5c7007ee60cc() {
+ assertEval("argv <- list(structure(1:6, class = 'A'), value = 'A');`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign16_302fecacff77ed8b1433b4987b90b1bd() {
+ assertEval("argv <- list(structure(function (x, y, ...) standardGeneric('plot'), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods')), value = structure('MethodDefinition', package = 'methods'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign17_2b608d746bee2050e015f9471e882173() {
+ assertEval("argv <- list(structure(function (x, logarithm = TRUE, ...) UseMethod('determinant'), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods')), value = structure('MethodDefinition', package = 'methods'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign18_c9916c88ca1c01ca81cf81fac2ea6a5f() {
+ assertEval("argv <- list(structure(function (x, y = NULL) .Internal(crossprod(x, y)), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods')), value = structure('MethodDefinition', package = 'methods'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign19_546f785b6e71e56b9e145ee91803d75b() {
+ assertEval("argv <- list(structure(function (obj, force = FALSE) standardGeneric('unname'), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'obj', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'obj', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods')), value = structure('MethodDefinition', package = 'methods'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign2_edd86ab610b77aec088ad3ae7fca2183() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign3_fcbc53d984c1659787a065a92cbe81fa() {
+ assertEval("argv <- list(character(0), character(0));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign4_aaffa3461fa67667672c3ae599414f9c() {
+ assertEval("argv <- list(structure(c(8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14), class = 'anyC'), value = 'anyC');`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign5_28413f4a48f41766956da855b9e8c3b0() {
+ assertEval("argv <- list(structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), value = structure('signature', package = 'methods'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign6_83ed6f05a87f720078d5b5c90223159d() {
+ assertEval("argv <- list(structure(list(par = 5.5, loglik = 0.970661978016996), .Names = c('par', 'loglik'), class = 'pfit'), value = 'pfit');`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign7_b76b84a3a4f3835e50d98dee7a32178a() {
+ assertEval("argv <- list(structure(FALSE, class = 'FALSE'), FALSE);`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign8_9934325af052743d0fcb67710c021259() {
+ assertEval("argv <- list(1:3, value = 'numeric');`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclassassign_testclassassign9_d2c3b1b6171abd4b6d56ad38962c3c96() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, 1, 0, 0, 0, 1), .Dim = c(3L, 3L), class = structure('mmat2', package = '.GlobalEnv')), value = structure('mmat2', package = '.GlobalEnv'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinclearPushBack_testclearPushBack1_60dce03e9c3d4232985f47a71bf13e03() {
+ assertEval("argv <- list(FALSE); .Internal(clearPushBack(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincol_testcol1_63f49fefadf7f7ed0a9f08b7977a237e() {
+ assertEval("argv <- list(c(2L, 2L)); .Internal(col(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincol_testcol3_34fb537a27f9cf5d70c97961115fb97f() {
+ assertEval("argv <- list(c(1L, 0L)); .Internal(col(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolMeans_testcolMeans1_76dd57a81d530cabad65f41bb19675d0() {
+ assertEval("argv <- list(structure(1:5, .Dim = c(5L, 1L), .Dimnames = list(c('1', '2', '3', '4', '5'), 'a')), 5, 1, FALSE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolMeans_testcolMeans10_eaa4ece5285fc47d6ee6e502482147a3() {
+ assertEval("argv <- list(structure(c(NA, 30.6929824561403, 25.6929824561403, 18.6929824561403, 6.69298245614035, -6.30701754385965, -13.3070175438597, -24.3070175438597, -21.3070175438597, 3.69298245614035, -2.30701754385965, -1.30701754385965, -20.3070175438597, -17.3070175438597, NA, NA, 12.6929824561403, 0.692982456140349, 0.692982456140349, -5.30701754385965, -11.3070175438597, -19.3070175438597, -10.3070175438597, -17.3070175438597, -20.3070175438597, -32.3070175438597, -24.3070175438597, -33.3070175438597, -31.3070175438597, -24.3070175438597, NA, -24.3070175438597, 2.69298245614035, 17.6929824561403, 18.6929824561403, 3.69298245614035, 14.6929824561403, 4.69298245614035, 14.6929824561403, 0.692982456140349, 14.6929824561403, 11.6929824561403, 22.6929824561403, 16.6929824561403, 19.6929824561403, 14.6929824561403, 10.6929824561403, 18.6929824561403, 22.6929824561403, 5.69298245614035, 6.69298245614035, 0.692982456140349, 3.69298245614035, -7.30701754385965, -8.30701754385965, -4.30701754385965, 0.692982456140349, 5.69298245614035, 4.69298245614035, 9.69298245614035, 14.6929824561403, 5.69298245614035, 4.69298245614035, 0.692982456140349, 15.6929824561403, 26.6929824561403, 14.6929824561403, 21.6929824561403, 22.6929824561403, 14.6929824561403, 5.69298245614035, 17.6929824561403, 19.6929824561403, 7.69298245614035, 5.69298245614035, 0.692982456140349, 23.6929824561403, 16.6929824561403, 12.6929824561403, 12.6929824561403, 14.6929824561403, 7.69298245614035, 12.6929824561403, 5.69298245614035, 6.69298245614035, -10.3070175438597, -0.307017543859651, -12.3070175438597, -12.3070175438597, -4.30701754385965, -18.3070175438597, -10.3070175438597, -20.3070175438597, -7.30701754385965, -21.3070175438597, -12.3070175438597, 2.69298245614035, 8.69298245614035, 8.69298245614035, -0.307017543859651, 9.69298245614035, -3.30701754385965, 4.69298245614035, -4.30701754385965, -5.30701754385965, -8.30701754385965, -2.30701754385965, -7.30701754385965, -7.30701754385965, 4.69298245614035, NA, NA, 11.6929824561403, -12.3070175438597, -16.3070175438597, -29.3070175438597, -28.3070175438597, -31.3070175438597, -32.3070175438597, -32.3070175438597), .Dim = c(120L, 1L), '`scaled:center`' = 56.3070175438597, .Dimnames = list(NULL, 'Series 1'), .Tsp = c(1, 120, 1), class = 'ts'), 120, 1, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolMeans_testcolMeans2_b0b077a2a8f75855aa334d4f3f6ecc00() {
+ assertEval("argv <- list(structure(c(135L, 49L, 32L, NA, 64L, 40L, 77L, 97L, 97L, 85L, NA, 10L, 27L, NA, 7L, 48L, 35L, 61L, 79L, 63L, 16L, NA, NA, 80L, 108L, 20L, 52L, 82L, 50L, 64L, 59L), .Dim = c(31L, 1L)), 31, 1, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolMeans_testcolMeans3_bc49e9cbcc14eab9656604c9f9b60bb0() {
+ assertEval("argv <- list(structure(c(2, 1, 0, 1, 0, NA, NA, NA, 0), .Dim = c(3L, 3L)), 3, 3, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolMeans_testcolMeans4_7860bec326f5d132177ef3e3858758bc() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), 0, 0, FALSE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolMeans_testcolMeans5_dfc0af973a3a554def7a53fa21e8147d() {
+ assertEval("argv <- list(structure(c(3, 3, NA, 3, 3, 3, 3, 3, 4, 3, NA, NA, 2, 3, 4, 5), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))), 8, 2, FALSE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolMeans_testcolMeans6_9b08b355fabf73bf3c9e15fd9f3efdec() {
+ assertEval("argv <- list(structure(c(2.72365184362824, -0.796449881281511, 0.796148249055565, 2.02271745300814, 1.2802770548002, 1.337056204255, 2.6107240701292, 2.10828628469836, 1.43875587381801, 0.595316954266145, 3.49563715531476, 1.48558049063486, 1.41226464164167, 2.44508400241911, 2.57984360481665, -1.20772288776711, 2.43688378444644, 0.533076425061003, 1.3034273968671, 3.70362282204711, 0.608593870458723, 0.953140512120224, 0.386257122548769, 3.75339780206139, 3.42482460204159, 0.619548124388308, 3.14887764228466, 0.751148471471006, 1.87137783412956, 1.62046400462005, 0.94345287218966, 1.64506447351138, 1.30606946576658, 2.45886447346843, 2.03431588373773, -0.338520676288604, 2.03487908340323, 1.29252851374035, 1.2267540180234, 2.05222753374982, 2.83569182599169, 3.48408642621763, 2.39258208808217, 1.92637187747015, 1.9464722888473, 0.936987622444041, -0.457825141151114, 0.770998483524033, 1.80682914026242, 0.916590155958594, 2.78096073652237, 1.55750387883765, 3.3880545417157, 3.65182127019008, 1.46303726963845, 2.58757002961928, 2.44326477189276, 0.94225036142597, 1.29219317072567, 2.94893881867, 1.24384829814308, 1.84885702049451, 1.32523566412607, 1.28973308890195, 0.395997063065922, 1.22892077218378, 1.7220093913143, 0.805646559888977, 1.01315020534677, 1.31726023805076, 1.72638291442835, 1.7933922500199, 1.62417301864782, 2.84632954278294, 1.06390349068226, 0.393286798351562, 2.85644316208756, 1.17640470313741, 0.528983054741685, 1.96126284937392, 0.917057889286139, 2.45214192885654, 2.46901056075969, 0.964752028993787, 1.15564656732576, 1.8050377493702, 3.92150679994132, 1.89242778597682, 1.79539660063946, 3.11975967552643, 3.60233448863085, 1.28811938153997, 2.49044833125605, 2.82723855540917, 0.488353198794268), .Dim = c(95L, 1L)), 95, 1, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolMeans_testcolMeans7_79edec34f9e369f245cd9514e9e77508() {
+ assertEval("argv <- list(structure(FALSE, .Dim = c(1L, 1L)), 1, 1, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolMeans_testcolMeans8_02a9f5d93f6a558022b5b467a1ff2724() {
+ assertEval("argv <- list(structure(c(234.505586749024, 30.477338238484, 110.520869124744, 10.8182256360112, 147.313169560589, 97.6285379622695, 176.128082322087, 47.2454421006426, 1.90674769458181e-15, 30.477338238484, 416.975499504725, 31.7861370189749, 190.703952476833, 120.117506711705, 442.506661969244, 239.889830502368, 22.2127533877541, 8.96469890623342e-16, 110.520869124744, 31.7861370189749, 1515.40698347813, 93.4417828515041, 178.042033105564, 210.514489336906, 228.304319294085, 24.2402628282532, 9.78296809359315e-16, 10.8182256360112, 190.703952476833, 93.4417828515041, 1736.17011782569, 171.990208955525, 616.163154757563, 314.295577560061, 190.513839846008, 7.68882264110221e-15, 147.313169560589, 120.117506711705, 178.042033105564, 171.990208955525, 4391.22673539453, 270.845832643245, 258.906125067947, 151.459157745218, 6.11264043711995e-15, 97.6285379622695, 442.506661969244, 210.514489336906, 616.163154757563, 270.845832643245, 3843.51687278644, 444.735756817902, 537.305365376654, 2.16847535162432e-14, 176.128082322087, 239.889830502368, 228.304319294085, 314.295577560062, 258.906125067947, 444.735756817902, 5767.34674134268, 307.533224133396, 1.24115309340219e-14, 47.2454421006426, 22.2127533877541, 24.2402628282532, 190.513839846008, 151.459157745218, 537.305365376655, 307.533224133396, 264.760049944031, 1.06852765558369e-14, 1.90674769458181e-15, 8.96469890623341e-16, 9.78296809359316e-16, 7.6888226411022e-15, 6.11264043711995e-15, 2.16847535162432e-14, 1.24115309340219e-14, 1.06852765558369e-14, 4.31240042063952e-31), .Dim = c(9L, 9L)), 9, 9, FALSE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolMeans_testcolMeans9_ee6367d1a136a79f9991f4a0f54174a7() {
+ assertEval("argv <- list(structure(c(NA, 17.4716236802524, 0.424429400003, -2.45474630431729, -8.6855922903657, -11.7956139807344, -8.08147081196715, -13.3123167980156, -1.24650334752019, 21.281002075072, -5.32311940332657, 0.621869751489083, -19.2022951076469, -0.543162784063959, NA, NA, 15.344649382745, -9.74060313555005, 0.149375174081257, -5.85062482591874, -6.90563567110309, -9.96064651628744, 5.6326723568001, -8.78481137542338, -6.01565736147178, -15.543162784064, 2.34681552556734, -13.2465033475202, -3.82901961529671, 1.5226506664314, NA, -5.9777558474085, 22.7534966524798, 15.5010454558094, 4.13857256877024, -11.6855922903657, 11.6768805966734, -7.38893285382193, 10.8527157375375, -11.3889328538219, 14.1493751740813, -0.388932853821931, 13.0835617235859, -1.98225172690947, 5.96273742790618, -1.50975714950164, -1.38893285382193, 9.90772658272184, 7.3144077096343, -12.9822517269095, 2.02855087840155, -4.7956139807344, 3.14937517408126, -10.3231194033266, -2.25730595283121, 2.56685890630474, 4.27019946976097, 5.14937517408126, 0.0285508784015471, 5.85271573753749, 6.73189144185778, -6.38893285382193, 0.0285508784015471, -3.14728426246251, 15.1493751740813, 13.7869022870421, -7.27891116345324, 9.61106714617807, 4.84191313222647, -3.98225172690947, -6.38893285382193, 13.0285508784015, 5.13857256877024, -8.50975714950164, -0.619778839870337, -3.97144912159845, 23.1493751740813, -2.80641658604541, -1.03726257209382, 2.25939686444995, 4.25939686444995, -4.38893285382193, 6.38022116012966, -4.74060313555005, 2.02855087840155, -15.7956139807344, 8.21518862457662, -12.0264599667828, -2.1364816571515, 5.8635183428485, -14.729800530239, 4.80850749766416, -11.7848113754234, 9.45683721593604, -15.2573059528312, 5.28100207507198, 12.8635183428485, 6.50104545580937, 1.55605630099372, -7.44394369900628, 9.9735400332172, -11.2681085581422, 7.44603461062503, -8.14728426246251, -1.72980053023903, -3.90563567110309, 4.56685890630474, -5.37813024851092, -1.25730595283121, 10.7426940471688, NA, NA, 6.24343998511081, -21.9164382764141, -6.1364816571515, -15.8398222206077, -4.12567905184048, -7.94984391097642, -6.4773493335686, -5.65318447443266), .Dim = c(120L, 1L)), 120, 1, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolSums_testcolSums1_9b9818ee0ebdd4ff2d780c6b86b2b005() {
+ assertEval("argv <- list(structure(c(365, 365, 365, 366, 1, 0), .Dim = c(3L, 2L)), 3, 2, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolSums_testcolSums2_9928787590dd7d6e134b1cb157d33511() {
+ assertEval("argv <- list(structure(c(1L, 0L, 0L, 0L, 2L, 0L, 0L, 0L, 3L), .Dim = c(3L, 3L)), 3, 3, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolSums_testcolSums3_b8c4ff6ebe2e86f7f7dcd4ed6925d2b3() {
+ assertEval("argv <- list(structure(c(5, 29, 14, 16, 15, 54, 14, 10, 20, 84, 17, 94, 68, 119, 26, 7), .Dim = c(4L, 4L), .Dimnames = structure(list(Hair = c('Black', 'Brown', 'Red', 'Blond'), Eye = c('Green', 'Hazel', 'Blue', 'Brown')), .Names = c('Hair', 'Eye'))), 4, 4, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolSums_testcolSums4_1f10566ecabfeb829d69a5054bd80868() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, NA, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 49, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 21, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, NA, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 21, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(16L, 16L), .Dimnames = list(NULL, NULL)), 16, 16, TRUE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolSums_testcolSums5_abfa4854c2263a06b1a04fc1782e520f() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(16L, 16L), .Dimnames = list(NULL, NULL)), 16, 16, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolSums_testcolSums6_4b2312face2b669c6d665b57501f1fa1() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), 0, 0, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolSums_testcolSums7_e4d186b078b2fe26b3b24325db350af8() {
+ assertEval("argv <- list(structure(c(-7.5, -6.5, -5.5, -4.5, -3.5, -2.5, -1.5, -0.5, 0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, -421.875, -274.625, -166.375, -91.125, -42.875, -15.625, -3.375, -0.125, 0.125, 3.375, 15.625, 42.875, 91.125, 166.375, 274.625, 421.875, -9187.5, -2866.5, -445.499999999999, -4.5, -283.5, -562.5, -541.5, -220.5, 220.5, 541.5, 562.5, 283.5, 4.49999999999999, 445.5, 2866.5, 9187.5, -139741.875, -4844.38499999995, -10122.255, -28872.045, -28539.315, -15800.625, -4325.535, -178.605, 178.605, 4325.535, 15800.625, 28539.315, 28872.045, 10122.255, 4844.38500000001, 139741.875), .Dim = c(16L, 4L)), 16, 4, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolSums_testcolSums8_a09a5bea37c62032b087b79f7d709c3b() {
+ assertEval("argv <- list(structure(0:1, .Dim = 1:2, .Dimnames = list('strata(grp)', c('x', 'strata(grp)'))), 1, 2, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincolSums_testcolSums9_f9a10b1b29d881aad9fc61b4ab7c66bf() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, -1.43884556914512e-134, 0, 0, 0, -7.95468296571581e-252, 1.76099882882167e-260, 0, -9.38724727098368e-323, -0.738228974836154, 0, 0, 0, 0, 0, 0, 0, 0, 0, -6.84657791618065e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.05931985100232e-174, 0, -3.41789378681991e-150, 0, 0, 0, 0, -1.07225492686949e-10, 0, 1.65068934474523e-67, 0, -6.49830035279282e-307, 0, 5.83184963977238e-90, 0, -9.81722610183938e-287, 6.25336419454196e-54, 0, 0, 0, -1.72840591500382e-274, 1.22894687952101e-13, 0.660132850077566, 0, 0, 7.79918925397516e-200, -2.73162827952857e-178, 1.32195942051179e-41, 0, 0, 0, 0, 2.036057023761e-45, -3.40425060445074e-186, 1.59974269220388e-26, 0, 6.67054294775317e-124, 0.158503117506202, 0, 0, 0, 0, 0, 0, 3.42455724859116e-97, 0, 0, -2.70246891320217e-272, 0, 0, -3.50562438899045e-06, 0, 0, 1.35101732326608e-274, 0, 0, 0, 0, 0, 0, 0, 7.24580295957621e-65, 0, -3.54887341172294e-149, 0, 0, 0, 0, 0, 0, 0, 0, 1.77584594753563e-133, 0, 0, 0, 2.88385135688311e-250, 1.44299633616158e-259, 0, 1.56124744085834e-321, 1.63995835868977, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.01050064173383e-122, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.64868196850938e-172, 0, 6.28699823828692e-149, 0, 0, 0, 0, 5.0552295590188e-09, 0, 2.30420733561404e-66, 0, 7.0823279075443e-306, 0, 2.05009901740696e-88, 0, 7.41800724282869e-285, 7.18347043784483e-53, 0, 0, 0, 1.04251223075649e-273, 9.75816316577433e-13, 4.29519957592147, 0, 0, 1.33541454912682e-198, 2.34606233784019e-176, 8.38236726536896e-41, 0, 0, 0, 0, 1.35710537434521e-43, 1.15710503176511e-185, 1.25601735272233e-25, 0, 4.46811655846376e-123, 4.4196641795634, 0, 0, 0, 0, 0, 0, 3.74179015251531e-93, 0, 0, 3.62662047836582e-271, 0, 0, 1.26220330674453e-05, 0, 0, 1.72715562657338e-273, 0, 0, 0, 0, 0, 0, 0, 5.46372806810809e-64, 0, 2.47081972486962e-148, 0, 0, 0), .Dim = c(100L, 2L)), 100, 2, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincomment_testcomment1_c77b95f769037774163181fe113edc3d() {
+ assertEval("argv <- list(NULL); .Internal(comment(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincomment_testcomment2_c728dc42f3f20134f999f56ab33d24ce() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0'))); .Internal(comment(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincomment_testcomment3_ba1b2dbce7f2b9ab05cb3baf2da79e07() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(comment(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincomment_testcomment4_8cdd9bed472bd6b60605081bf8a10a7b() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4, comment = c('This is my very important data from experiment #0234', 'Jun 5, 1998'))); .Internal(comment(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincommentassign_testcommentassign1_451988423f92f80e38c9ce01b33e468e() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4, comment = c('This is my very important data from experiment #0234', 'Jun 5, 1998')), c('This is my very important data from experiment #0234', 'Jun 5, 1998')); .Internal(`comment<-`(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincommentassign_testcommentassign2_6bff4e1a724433a88f03217bd665d0d1() {
+ assertEval("argv <- list(character(0), NULL); .Internal(`comment<-`(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincommentassign_testcommentassign3_b5cccdd811618e3b3b05560c13209f25() {
+ assertEval("argv <- list(logical(0), NULL); .Internal(`comment<-`(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincomplex_testcomplex1_c8e64b9db6042406775a809244fb45e7() {
+ assertEval("argv <- list(0, numeric(0), numeric(0)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincomplex_testcomplex2_ba0f6ed54256cdb17391e415f3b76e2d() {
+ assertEval("argv <- list(FALSE, FALSE, numeric(0)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincomplex_testcomplex3_b283041a4c005998f8ef9050e5986b9f() {
+ assertEval("argv <- list(0L, 1:10, c(1, 1.4142135623731, 1.73205080756888, 2, 2.23606797749979, 2.44948974278318, 2.64575131106459, 2.82842712474619, 3, 3.16227766016838)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincomplex_testcomplex4_afe1ce19bc7c7ccb959feb4a6ae6045c() {
+ assertEval("argv <- list(0L, NA_real_, NA_real_); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincomplex_testcomplex5_0b2b7428e26e9fb5ca8cf36b981a6159() {
+ assertEval("argv <- list(0L, c(-0.560475646552213, -0.23017748948328, 1.55870831414912, 0.070508391424576, 0.129287735160946, 1.71506498688328, 0.460916205989202, -1.26506123460653, -0.686852851893526, -0.445661970099958, 1.22408179743946, 0.359813827057364, 0.400771450594052, 0.11068271594512, -0.555841134754075, 1.78691313680308, 0.497850478229239, -1.96661715662964, 0.701355901563686, -0.472791407727934, -1.06782370598685, -0.217974914658295, -1.02600444830724, -0.72889122929114, -0.625039267849257, -1.68669331074241, 0.837787044494525, 0.153373117836515, -1.13813693701195, 1.25381492106993, 0.426464221476814, -0.295071482992271, 0.895125661045022, 0.878133487533042, 0.821581081637487, 0.688640254100091, 0.553917653537589, -0.0619117105767217, -0.305962663739917, -0.380471001012383, -0.694706978920513, -0.207917278019599, -1.26539635156826, 2.16895596533851, 1.20796199830499, -1.12310858320335, -0.402884835299076, -0.466655353623219, 0.779965118336318, -0.0833690664718293, 0.253318513994755, -0.028546755348703, -0.0428704572913161, 1.36860228401446, -0.225770985659268, 1.51647060442954, -1.54875280423022, 0.584613749636069, 0.123854243844614, 0.215941568743973, 0.379639482759882, -0.502323453109302, -0.33320738366942, -1.01857538310709, -1.07179122647558, 0.303528641404258, 0.448209778629426, 0.0530042267305041, 0.922267467879738, 2.05008468562714, -0.491031166056535, -2.30916887564081, 1.00573852446226, -0.709200762582393, -0.688008616467358, 1.0255713696967, -0.284773007051009, -1.22071771225454, 0.18130347974915, -0.138891362439045, 0.00576418589988693, 0.38528040112633, -0.370660031792409, 0.644376548518833, -0.220486561818751, 0.331781963915697, 1.09683901314935, 0.435181490833803, -0.325931585531227, 1.14880761845109, 0.993503855962119, 0.54839695950807, 0.238731735111441, -0.627906076039371, 1.36065244853001, -0.600259587147127, 2.18733299301658, 1.53261062618519, -0.235700359100477, -1.02642090030678), c(-0.710406563699301, 0.25688370915653, -0.246691878462374, -0.347542599397733, -0.951618567265016, -0.0450277248089203, -0.784904469457076, -1.66794193658814, -0.380226520287762, 0.918996609060766, -0.575346962608392, 0.607964322225033, -1.61788270828916, -0.0555619655245394, 0.519407203943462, 0.301153362166714, 0.105676194148943, -0.640706008305376, -0.849704346033582, -1.02412879060491, 0.117646597100126, -0.947474614184802, -0.490557443700668, -0.256092192198247, 1.84386200523221, -0.651949901695459, 0.235386572284857, 0.0779608495637108, -0.961856634130129, -0.0713080861235987, 1.44455085842335, 0.451504053079215, 0.0412329219929399, -0.422496832339625, -2.05324722154052, 1.13133721341418, -1.46064007092482, 0.739947510877334, 1.90910356921748, -1.4438931609718, 0.701784335374711, -0.262197489402468, -1.57214415914549, -1.51466765378175, -1.60153617357459, -0.530906522170303, -1.4617555849959, 0.687916772975828, 2.10010894052567, -1.28703047603518, 0.787738847475178, 0.76904224100091, 0.332202578950118, -1.00837660827701, -0.119452606630659, -0.280395335170247, 0.56298953322048, -0.372438756103829, 0.976973386685621, -0.374580857767014, 1.05271146557933, -1.04917700666607, -1.26015524475811, 3.2410399349424, -0.416857588160432, 0.298227591540715, 0.636569674033849, -0.483780625708744, 0.516862044313609, 0.368964527385086, -0.215380507641693, 0.0652930335253153, -0.034067253738464, 2.12845189901618, -0.741336096272828, -1.09599626707466, 0.0377883991710788, 0.310480749443137, 0.436523478910183, -0.458365332711106, -1.06332613397119, 1.26318517608949, -0.349650387953555, -0.865512862653374, -0.236279568941097, -0.197175894348552, 1.10992028971364, 0.0847372921971965, 0.754053785184521, -0.499292017172261, 0.214445309581601, -0.324685911490835, 0.0945835281735714, -0.895363357977542, -1.31080153332797, 1.99721338474797, 0.600708823672418, -1.25127136162494, -0.611165916680421, -1.18548008459731)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincomplex_testcomplex6_87ca22aeafd32c40e7138de5daa874e8() {
+ assertEval("argv <- list(0L, numeric(0), numeric(0)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincomplex_testcomplex7_4ebf0fe01af6e2020d0ae9aebe00e041() {
+ assertEval("argv <- list(0L, NULL, numeric(0)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr1_6170987cc326ac86d91c4c762cf3c51e() {
+ assertEval("argv <- list(structure(list(size = 1056, isdir = FALSE, mode = structure(420L, class = 'octmode'), mtime = structure(1395082115.08988, class = c('POSIXct', 'POSIXt')), ctime = structure(1395082122.18188, class = c('POSIXct', 'POSIXt')), atime = structure(1395082175.70988, class = c('POSIXct', 'POSIXt')), uid = 1001L, gid = 1001L, uname = 'roman', grname = 'roman'), .Names = c('size', 'isdir', 'mode', 'mtime', 'ctime', 'atime', 'uid', 'gid', 'uname', 'grname'), class = 'data.frame', row.names = '/home/roman/r-instrumented/tests/myLib/pkgA/R/pkgA'), structure(list( size = NULL, isdir = NULL, mode = NULL, mtime = NULL, ctime = NULL, atime = NULL, uid = NULL, gid = NULL, uname = NULL, grname = NULL), .Names = c('size', 'isdir', 'mode', 'mtime', 'ctime', 'atime', 'uid', 'gid', 'uname', 'grname'), class = 'data.frame', row.names = '/home/roman/r-instrumented/tests/myLib/pkgA/R/pkgA')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr10_01391651584ab36a196be5f448299419() {
+ assertEval("argv <- list(structure(list(Df = c(1, 1, 1, 1, 16), `Sum Sq` = c(309.6845, 0.420500000000001, 4.90050000000001, 3.9605, 64.924), `Mean Sq` = c(309.6845, 0.420500000000001, 4.90050000000001, 3.9605, 4.05775), `F value` = c(76.3192656028586, 0.103628858357464, 1.20768899020393, 0.976033516111146, NA), `Pr(>F)` = c(1.73825946976405e-07, 0.751685166772039, 0.288052080502172, 0.337885793589305, NA)), .Names = c('Df', 'Sum Sq', 'Mean Sq', 'F value', 'Pr(>F)'), class = c('anova', 'data.frame'), row.names = c('(Intercept) ', 'rate ', 'additive ', 'rate:additive', 'Residuals ')), structure(list(Df = NULL, `Sum Sq` = NULL, `Mean Sq` = NULL, `F value` = NULL, `Pr(>F)` = NULL), .Names = c('Df', 'Sum Sq', 'Mean Sq', 'F value', 'Pr(>F)'), class = c('anova', 'data.frame'), row.names = c('(Intercept) ', 'rate ', 'additive ', 'rate:additive', 'Residuals '))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr11_6c5242f61b0eb0b91cfb6dd7132dc6f3() {
+ assertEval("argv <- list(structure(list(srcfile = c(NA, '/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats'), frow = c(NA, 2228L, 2369L, 2379L), lrow = c(NA, 2228L, 2369L, 2380L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 4L), class = 'data.frame'), structure(list(srcfile = NULL, frow = NULL, lrow = NULL), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 4L), class = 'data.frame')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr12_03c64cb8758a9289891e9d90cfba4daa() {
+ assertEval("argv <- list(structure(list(y = c(73, 73, 70, 74, 75, 115, 105, 107, 124, 107, 116, 125, 102, 144, 178, 149, 177, 124, 157, 128, 169, 165, 186, 152, 181, 139, 173, 151, 138, 181, 152, 188, 173, 196, 180, 171, 188, 174, 198, 172, 176, 162, 188, 182, 182, 141, 191, 190, 159, 170, 163, 197), x = c(1, 1, 1, 1, 1, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 11, 12)), .Names = c('y', 'x'), class = 'data.frame', row.names = c(NA, 52L), terms = quote(~y + x)), structure(list(y = NULL, x = NULL), .Names = c('y', 'x'), class = 'data.frame', row.names = c(NA, 52L), terms = quote(~y + x))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr13_c47695dfcfef753f96549dfb4237a266() {
+ assertEval("argv <- list(structure(list(x = 1:10, y = c(-0.626453810742332, 0.183643324222082, -0.835628612410047, 1.59528080213779, 0.329507771815361, -0.820468384118015, 0.487429052428485, 0.738324705129217, 0.575781351653492, -0.305388387156356), z = structure(c(9L, 3L, 6L, 2L, 10L, 5L, 1L, 4L, 8L, 7L), .Label = c('a', 'c', 'f', 'h', 'i', 'p', 'v', 'x', 'y', 'z'), class = 'factor')), .Names = c('x', 'y', 'z'), row.names = c(NA, 10L), .S3Class = 'data.frame', timestamps = structure(1386392033.84327, class = c('POSIXct', 'POSIXt')), class = structure('myFrame', package = '.GlobalEnv')), structure(list(x = NULL, y = NULL, z = NULL), .Names = c('x', 'y', 'z'), row.names = c(NA, 10L), .S3Class = 'data.frame', timestamps = structure(1386392033.84327, class = c('POSIXct', 'POSIXt')), class = structure('myFrame', package = '.GlobalEnv'))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr14_7f10f9cbbedfd4ce1ef44c09b43a58ed() {
+ assertEval("argv <- list(structure(list(y = c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434)), .Names = 'y', class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ 0)), structure(list(y = NULL), .Names = 'y', class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ 0))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr15_dab7fd2b52400b1ed6d86c6df3465550() {
+ assertEval("argv <- list(structure(list(`cbind(w = weight, w2 = weight^2)` = structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c('w', 'w2'))), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = c('cbind(w = weight, w2 = weight^2)', 'group'), class = 'data.frame', row.names = c(NA, 20L), terms = quote(cbind(w = weight, w2 = weight^2) ~ group)), structure(list(`cbind(w = weight, w2 = weight^2)` = NULL, group = NULL), .Names = c('cbind(w = weight, w2 = weight^2)', 'group'), class = 'data.frame', row.names = c(NA, 20L), terms = quote(cbind(w = weight, w2 = weight^2) ~ group))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr16_696badc92940bd654fb9a3360cff004a() {
+ assertEval("argv <- list(structure(list(Y = c(130L, 157L, 174L, 117L, 114L, 161L, 141L, 105L, 140L, 118L, 156L, 61L, 91L, 97L, 100L, 70L, 108L, 126L, 149L, 96L, 124L, 121L, 144L, 68L, 64L, 112L, 86L, 60L, 102L, 89L, 96L, 89L, 129L, 132L, 124L, 74L, 89L, 81L, 122L, 64L, 103L, 132L, 133L, 70L, 89L, 104L, 117L, 62L, 90L, 100L, 116L, 80L, 82L, 94L, 126L, 63L, 70L, 109L, 99L, 53L, 74L, 118L, 113L, 89L, 82L, 86L, 104L, 97L, 99L, 119L, 121L), B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c('I', 'II', 'III', 'IV', 'V', 'VI'), class = 'factor'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c('Golden.rain', 'Marvellous', 'Victory'), class = 'factor'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt'), class = 'factor')), .Names = c('Y', 'B', 'V', 'N'), terms = quote(Y ~ B + V + N + V:N), row.names = 2:72, class = 'data.frame'), structure(list(Y = NULL, B = NULL, V = NULL, N = NULL), .Names = c('Y', 'B', 'V', 'N'), terms = quote(Y ~ B + V + N + V:N), row.names = 2:72, class = 'data.frame')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr17_1ffdce0a2aeb8529b4bf0b2f95854194() {
+ assertEval("argv <- list(structure(list(Fr = c(32, 53, 10, 3, 11, 50, 10, 30, 10, 25, 7, 5, 3, 15, 7, 8, 36, 66, 16, 4, 9, 34, 7, 64, 5, 29, 7, 5, 2, 14, 7, 8), Hair = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('Black', 'Brown', 'Red', 'Blond'), class = 'factor'), Eye = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L), .Label = c('Brown', 'Blue', 'Hazel', 'Green'), class = 'factor'), Sex = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Male', 'Female'), class = 'factor')), .Names = c('Fr', 'Hair', 'Eye', 'Sex'), class = 'data.frame', row.names = c(NA, 32L), terms = quote(Fr ~ (Hair + Eye + Sex)^2)), structure(list(Fr = NULL, Hair = NULL, Eye = NULL, Sex = NULL), .Names = c('Fr', 'Hair', 'Eye', 'Sex'), class = 'data.frame', row.names = c(NA, 32L), terms = quote(Fr ~ (Hair + Eye + Sex)^2))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr18_ed93cd98b2b1d54aa877c66fdd18a7b7() {
+ assertEval("argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c('Employed', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'), class = 'data.frame', row.names = 1947:1962, terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year)), structure(list(Employed = NULL, GNP.deflator = NULL, GNP = NULL, Unemployed = NULL, Armed.Forces = NULL, Population = NULL, Year = NULL), .Names = c('Employed', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'), class = 'data.frame', row.names = 1947:1962, terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr19_ca805d6f8e051ad3465e8daa8f4c1797() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1, 1, 2), Deviance = c(12.2441566485997, 32.825622681839, 8.44399377410362, 11.9670615295804), AIC = c(73.9421143635373, 92.5235803967766, 72.1419514890412, 77.665019244518)), .Names = c('Df', 'Deviance', 'AIC'), row.names = c('<none>', '- M.user', '+ Temp', '+ Soft'), class = c('anova', 'data.frame')), structure(list(Df = NULL, Deviance = NULL, AIC = NULL), .Names = c('Df', 'Deviance', 'AIC'), row.names = c('<none>', '- M.user', '+ Temp', '+ Soft'), class = c('anova', 'data.frame'))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr2_8303d0877782ef9729ca639780a1a257() {
+ assertEval("argv <- list(structure(list(y = c(2.30923841792462, 3.23011719303818, 2.9161246695212, 3.35931329373059, 5.3777049208621, 5.63518136825043, 7.37725908636056, 7.75621985157329, 10.1175871700049, 8.86877085545769), x1 = 1:10, x2 = 1:10, x3 = c(0.1, 0.4, 0.9, 1.6, 2.5, 3.6, 4.9, 6.4, 8.1, 10)), .Names = c('y', 'x1', 'x2', 'x3'), class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ x1 + x2 + x3)), structure(list(y = NULL, x1 = NULL, x2 = NULL, x3 = NULL), .Names = c('y', 'x1', 'x2', 'x3'), class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ x1 + x2 + x3))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr20_bc61b11b3c96b333a959060f4d8bc936() {
+ assertEval("argv <- list(structure(list(`cbind(X, M)` = structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('X', 'M'))), M.user = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L), .Label = c('N', 'Y'), class = 'factor'), Temp = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c('High', 'Low'), class = 'factor'), Soft = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c('Hard', 'Medium', 'Soft'), class = 'factor')), .Names = c('cbind(X, M)', 'M.user', 'Temp', 'Soft'), class = 'data.frame', row.names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), terms = quote(cbind(X, M) ~ M.user + Temp + Soft)), structure(list(`cbind(X, M)` = NULL, M.user = NULL, Temp = NULL, Soft = NULL), .Names = c('cbind(X, M)', 'M.user', 'Temp', 'Soft'), class = 'data.frame', row.names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), terms = quote(cbind(X, M) ~ M.user + Temp + Soft))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr3_d96137928fe2c219335c64bc0b1f4069() {
+ assertEval("argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c('y', 'x', 'z'), class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ x * z)), structure(list(y = NULL, x = NULL, z = NULL), .Names = c('y', 'x', 'z'), class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ x * z))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr4_9edcdd7bb4b882c051133c2c8048df4b() {
+ assertEval("argv <- list(structure(list(surname = structure(integer(0), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(integer(0), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(integer(0), .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = integer(0), class = 'data.frame'), structure(list(surname = NULL, nationality = NULL, deceased = NULL), .Names = c('surname', 'nationality', 'deceased'), row.names = integer(0), class = 'data.frame')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr5_790637be127d2d13ea042e4385752121() {
+ assertEval("argv <- list(structure(list(A = 0:10, B = 10:20, `NA` = 20:30), .Names = c('A', 'B', NA), row.names = c(NA, -11L), class = 'data.frame'), structure(list(A = NULL, B = NULL, `NA` = NULL), .Names = c('A', 'B', NA), row.names = c(NA, -11L), class = 'data.frame')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr6_a684c9c05d0cb48c619c8461a3818d4d() {
+ assertEval("argv <- list(structure(list(`Surv(stop, status * as.numeric(event), type = 'mstate')` = structure(c(760, 2160, 5441, 277, 1815, 2587, 547, 1125, 2010, 2422, 6155, 1767, 61, 60, 7807, 7732, 6126, 7921, 3590, 5231, 5384, 5934, 6415, 6789, 6778, 3561, 4505, 3987, 4726, 5550, 5216, 5757, 2345, 6931, 6760, 5796, 4810, 5143, 3091, 3316, 700, 1706, 5088, 944, 2466, 1706, 7364, 1857, 9510, 9603, 31, 7479, 2006, 2588, 2983, 8761, 3932, 4201, 5293, 273, 2223, 4249, 5308, 8327, 499, 5789, 7417, 3242, 3275, 10359, 10852, 362, 9993, 1795, 3562, 4139, 4840, 4959, 547, 4119, 8308, 1674, 2953, 3776, 1369, 7911, 7519, 9318, 4370, 7301, 1642, 4169, 7417, 6117, 4536, 7235, 6723, 7397, 7428, 2084, 4066, 1673, 2860, 0, 3773, 4810, 4206, 2314, 4065, 8961, 6143, 517, 3837, 7498, 2815, 8806, 7668, 12457, 8600, 7003, 2435, 1826, 2403, 3805, 4901, 365, 6642, 3318, 3012, 1431, 2223, 4962, 5982, 638, 3346, 4996, 6800, 7454, 8887, 5024, 2833, 4232, 5238, 3186, 3380, 3382, 8100, 1766, 7184, 8059, 6008, 5047, 2236, 8165, 4224, 2844, 6256, 7370, 3560, 4939, 4941, 2230, 3068, 152, 10122, 3226, 3943, 518, 8569, 845, 2099, 8006, 8052, 9560, 0, 7965, 7470, 8133, 809, 153, 1851, 3010, 2121, 7085, 5068, 7093, 5930, 6878, 8080, 791, 6626, 3962, 1116, 1249, 9257, 1077, 566, 174, 4627, 5022, 2070, 3012, 1625, 6607, 8381, 8389, 1005, 3895, 4236, 6970, 8497, 2861, 8487, 3227, 8030, 8023, 31, 2435, 518, 4758, 7958, 7884, 4453, 6349, 7862, 1392, 3167, 6025, 4656, 1767, 7736, 2678, 2191, 3658, 7758, 8009, 2556, 3511, 7954, 822, 4321, 5151, 7545, 7576, 32, 7875, 5236, 7106, 2802, 7898, 3014, 7867, 5354, 2989, 7555, 6089, 8697, 6479, 1826, 5917, 792, 1431, 1434, 4763, 2910, 6209, 5824, 2400, 1400, 3027, 7198, 7247, 2557, 3855, 61, 7410, 1492, 7160, 7899, 5181, 7280, 3448, 7381, 2434, 6763, 7065, 1218, 1554, 7533, 7288, 2922, 5988, 2495, 5234, 9598, 2953, 2961, 4539, 3775, 6524, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 0, 0, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0, 2, 1, 2, 2, 0, 2, 1, 2, 0, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 0, 1, 2, 1, 2, 2, 0, 1, 2, 1, 2, 2, 2, 2, 0, 2, 1, 2, 2, 0, 1, 2, 2, 0, 1, 2, 0, 2, 1, 2, 2, 1, 2, 1, 2, 2, 2, 2, 1, 2, 2, 1, 2, 0, 2, 2, 1, 0, 2, 2, 0, 0, 2, 0, 2, 1, 2, 1, 2, 2, 2, 2, 2, 1, 2, 1, 2, 2, 1, 2, 1, 0, 0, 2, 2, 1, 2, 2, 1, 2, 0, 2, 1, 2, 2, 2, 2, 0, 2, 2, 2, 0, 2, 1, 2, 1, 2, 2, 0, 2, 2, 2, 0, 2, 2, 1, 2, 0, 2, 0, 0, 0, 2, 2, 2, 2, 2, 2, 2, 0, 2, 2, 0, 2, 2, 2, 1, 2, 0, 2, 2, 2, 1, 2, 1, 2, 2, 2, 0, 0, 2, 1, 2, 1, 0, 1, 0, 2, 0, 0, 2, 2, 2, 2, 0, 0, 2, 2, 0, 2, 2, 2, 2, 2, 0, 2, 1, 2, 0, 0, 1, 2, 0, 2, 1, 2, 1, 2, 2, 0, 1, 2, 1, 0, 2, 0, 2, 2, 0, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1, 2, 0, 0, 1, 2, 2, 0, 2, 0, 2, 2, 0, 2, 0, 2, 2, 0, 1, 2, 0, 0, 1, 2, 1, 2, 0, 1, 2, 2, 1, 2), .Dim = c(300L, 2L), .Dimnames = list(NULL, c('time', 'status')), type = 'mright', states = c('1', '2'), class = 'Surv')), .Names = 'Surv(stop, status * as.numeric(event), type = \'mstate\')', class = 'data.frame', row.names = c(NA, 300L)), structure(list(`Surv(stop, status * as.numeric(event), type = 'mstate')` = NULL), .Names = 'Surv(stop, status * as.numeric(event), type = \'mstate\')', class = 'data.frame', row.names = c(NA, 300L))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr7_4f405d4a6fd6c582c696add897152fa5() {
+ assertEval("argv <- list(structure(list(size = 284, isdir = FALSE, mode = structure(436L, class = 'octmode'), mtime = structure(1386397148.36693, class = c('POSIXct', 'POSIXt')), ctime = structure(1386397148.36693, class = c('POSIXct', 'POSIXt')), atime = structure(1386397148.36793, class = c('POSIXct', 'POSIXt')), uid = 501L, gid = 501L, uname = 'lzhao', grname = 'lzhao'), .Names = c('size', 'isdir', 'mode', 'mtime', 'ctime', 'atime', 'uid', 'gid', 'uname', 'grname'), class = 'data.frame', row.names = '/home/lzhao/tmp/RtmpvWhahC/Rex4eb8743f75cc'), structure(list( size = NULL, isdir = NULL, mode = NULL, mtime = NULL, ctime = NULL, atime = NULL, uid = NULL, gid = NULL, uname = NULL, grname = NULL), .Names = c('size', 'isdir', 'mode', 'mtime', 'ctime', 'atime', 'uid', 'gid', 'uname', 'grname'), class = 'data.frame', row.names = '/home/lzhao/tmp/RtmpvWhahC/Rex4eb8743f75cc')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr8_45b5b65223e2bf4b5b7a7f5ba29377d8() {
+ assertEval("argv <- list(structure(list(File = character(0), Title = character(0), PDF = character(0), Depends = list(), Keywords = list()), .Names = c('File', 'Title', 'PDF', 'Depends', 'Keywords'), row.names = integer(0), class = 'data.frame'), structure(list(File = NULL, Title = NULL, PDF = NULL, Depends = NULL, Keywords = NULL), .Names = c('File', 'Title', 'PDF', 'Depends', 'Keywords'), row.names = integer(0), class = 'data.frame')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr9_25caa53459ad07e64061edced34162a1() {
+ assertEval("argv <- list(structure(list(Version = c('2.11.0', '2.11.0', '2.11.0', '2.11.0', '2.11.0', '2.11.0', '2.11.0', '2.11.0', '2.11.0'), Date = c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), Category = c('BUG FIXES', 'BUG FIXES', 'BUG FIXES', 'BUG FIXES', 'BUG FIXES', 'BUG FIXES', 'BUG FIXES', 'BUG FIXES', 'BUG FIXES'), Text = c('Using with(), eval() etc with a list with some unnamed elements now\n works. (PR#14035)', 'cor(A, B) where A is n x 1 and B a 1-dimensional array segfaulted or\n gave an internal error. (The case cor(B, A) was PR#7116.)', 'cut.POSIXt() applied to a start value after the DST transition on a\n DST-change day could give the wrong time for argument breaks in\n units of days or longer. (PR#14208)', 'do_par() UNPROTECTed too early (PR#14214)', 'Subassignment x[[....]] <- y didn't check for a zero-length right\n hand side, and inserted a rubbish value. (PR#14217)', 'Extreme tail behavior of, pbeta() {and hence pf()}, e.g., pbeta(x,\n 3, 2200, lower.tail=FALSE, log.p=TRUE) now returns finite values\n instead of jumping to -Inf too early. (PR#14230).', 'read.fwf() misread multi-line records when n was specified.\n (PR#14241)', 'gzcon( <textConnection> ), an error, no longer damages the\n connection (in a way to have it segfault). (PR#14237)', 'If xy[z].coords (used internally by many graphics functions) are\n given a list as x, they now check that the list has suitable names\n and give a more informative error message. (PR#13936)')), .Names = c('Version', 'Date', 'Category', 'Text'), bad = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), package = 'R', row.names = c(1473L, 1483L, 1484L, 1485L, 1486L, 1493L, 1499L, 1503L, 1505L), class = c('news_db_from_Rd', 'news_db', 'data.frame')), structure(list(Version = NULL, Date = NULL, Category = NULL, Text = NULL), .Names = c('Version', 'Date', 'Category', 'Text'), bad = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), package = 'R', row.names = c(1473L, 1483L, 1484L, 1485L, 1486L, 1493L, 1499L, 1503L, 1505L), class = c('news_db_from_Rd', 'news_db', 'data.frame'))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincos_testcos1_bf4698ad3ab0a3b8360d7770383b6471() {
+ assertEval("argv <- list(c(-6.28318530717959, -6.1261056745001, -5.96902604182061, -5.81194640914112, -5.65486677646163, -5.49778714378214, -5.34070751110265, -5.18362787842316, -5.02654824574367, -4.86946861306418, -4.71238898038469, -4.5553093477052, -4.39822971502571, -4.24115008234622, -4.08407044966673, -3.92699081698724, -3.76991118430775, -3.61283155162826, -3.45575191894877, -3.29867228626928, -3.14159265358979, -2.9845130209103, -2.82743338823081, -2.67035375555132, -2.51327412287183, -2.35619449019234, -2.19911485751286, -2.04203522483337, -1.88495559215388, -1.72787595947439, -1.5707963267949, -1.41371669411541, -1.25663706143592, -1.09955742875643, -0.942477796076938, -0.785398163397448, -0.628318530717959, -0.471238898038469, -0.314159265358979, -0.15707963267949, 0, 0.15707963267949, 0.314159265358979, 0.471238898038469, 0.628318530717959, 0.785398163397448, 0.942477796076938, 1.09955742875643, 1.25663706143592, 1.41371669411541, 1.5707963267949, 1.72787595947439, 1.88495559215388, 2.04203522483337, 2.19911485751286, 2.35619449019234, 2.51327412287183, 2.67035375555133, 2.82743338823081, 2.9845130209103, 3.14159265358979, 3.29867228626928, 3.45575191894877, 3.61283155162826, 3.76991118430775, 3.92699081698724, 4.08407044966673, 4.24115008234622, 4.39822971502571, 4.5553093477052, 4.71238898038469, 4.86946861306418, 5.02654824574367, 5.18362787842316, 5.34070751110265, 5.49778714378214, 5.65486677646163, 5.81194640914112, 5.96902604182061, 6.1261056745001, 6.28318530717959, 6.44026493985908, 6.59734457253857, 6.75442420521805, 6.91150383789754, 7.06858347057704, 7.22566310325652, 7.38274273593601, 7.5398223686155, 7.69690200129499, 7.85398163397448, 8.01106126665397, 8.16814089933346, 8.32522053201295, 8.48230016469244, 8.63937979737193, 8.79645943005142, 8.95353906273091, 9.1106186954104, 9.26769832808989, 9.42477796076938));cos(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincos_testcos2_339a77b6e10125d7528921979c37ab17() {
+ assertEval("argv <- list(c(0-3i, 0-2.96984924623116i, 0-2.93969849246231i, 0-2.90954773869347i, 0-2.87939698492462i, 0-2.84924623115578i, 0-2.81909547738693i, 0-2.78894472361809i, 0-2.75879396984925i, 0-2.7286432160804i, 0-2.69849246231156i, 0-2.66834170854271i, 0-2.63819095477387i, 0-2.60804020100502i, 0-2.57788944723618i, 0-2.54773869346734i, 0-2.51758793969849i, 0-2.48743718592965i, 0-2.4572864321608i, 0-2.42713567839196i, 0-2.39698492462312i, 0-2.36683417085427i, 0-2.33668341708543i, 0-2.30653266331658i, 0-2.27638190954774i, 0-2.24623115577889i, 0-2.21608040201005i, 0-2.18592964824121i, 0-2.15577889447236i, 0-2.12562814070352i, 0-2.09547738693467i, 0-2.06532663316583i, 0-2.03517587939699i, 0-2.00502512562814i, 0-1.9748743718593i, 0-1.94472361809045i, 0-1.91457286432161i, 0-1.88442211055276i, 0-1.85427135678392i, 0-1.82412060301508i, 0-1.79396984924623i, 0-1.76381909547739i, 0-1.73366834170854i, 0-1.7035175879397i, 0-1.67336683417085i, 0-1.64321608040201i, 0-1.61306532663317i, 0-1.58291457286432i, 0-1.55276381909548i, 0-1.52261306532663i, 0-1.49246231155779i, 0-1.46231155778894i, 0-1.4321608040201i, 0-1.40201005025126i, 0-1.37185929648241i, 0-1.34170854271357i, 0-1.31155778894472i, 0-1.28140703517588i, 0-1.25125628140704i, 0-1.22110552763819i, 0-1.19095477386935i, 0-1.1608040201005i, 0-1.13065326633166i, 0-1.10050251256281i, 0-1.07035175879397i, 0-1.04020100502513i, 0-1.01005025125628i, 0-0.979899497487437i, 0-0.949748743718593i, 0-0.919597989949749i, 0-0.889447236180905i, 0-0.859296482412061i, 0-0.829145728643216i, 0-0.798994974874372i, 0-0.768844221105528i, 0-0.738693467336684i, 0-0.70854271356784i, 0-0.678391959798995i, 0-0.648241206030151i, 0-0.618090452261307i, 0-0.587939698492463i, 0-0.557788944723618i, 0-0.527638190954774i, 0-0.49748743718593i, 0-0.467336683417086i, 0-0.437185929648241i, 0-0.407035175879397i, 0-0.376884422110553i, 0-0.346733668341709i, 0-0.316582914572864i, 0-0.28643216080402i, 0-0.256281407035176i, 0-0.226130653266332i, 0-0.195979899497488i, 0-0.165829145728643i, 0-0.135678391959799i, 0-0.105527638190955i, 0-0.0753768844221105i, 0-0.0452261306532664i, 0-0.0150753768844223i, 0+0.0150753768844218i, 0+0.0452261306532664i, 0+0.0753768844221105i, 0+0.105527638190955i, 0+0.135678391959799i, 0+0.165829145728643i, 0+0.195979899497488i, 0+0.226130653266332i, 0+0.256281407035176i, 0+0.28643216080402i, 0+0.316582914572864i, 0+0.346733668341709i, 0+0.376884422110553i, 0+0.407035175879397i, 0+0.437185929648241i, 0+0.467336683417085i, 0+0.49748743718593i, 0+0.527638190954774i, 0+0.557788944723618i, 0+0.587939698492462i, 0+0.618090452261306i, 0+0.648241206030151i, 0+0.678391959798995i, 0+0.708542713567839i, 0+0.738693467336683i, 0+0.768844221105527i, 0+0.798994974874372i, 0+0.829145728643216i, 0+0.85929648241206i, 0+0.889447236180904i, 0+0.919597989949748i, 0+0.949748743718593i, 0+0.979899497487437i, 0+1.01005025125628i, 0+1.04020100502513i, 0+1.07035175879397i, 0+1.10050251256281i, 0+1.13065326633166i, 0+1.1608040201005i, 0+1.19095477386935i, 0+1.22110552763819i, 0+1.25125628140704i, 0+1.28140703517588i, 0+1.31155778894472i, 0+1.34170854271357i, 0+1.37185929648241i, 0+1.40201005025126i, 0+1.4321608040201i, 0+1.46231155778894i, 0+1.49246231155779i, 0+1.52261306532663i, 0+1.55276381909548i, 0+1.58291457286432i, 0+1.61306532663317i, 0+1.64321608040201i, 0+1.67336683417085i, 0+1.7035175879397i, 0+1.73366834170854i, 0+1.76381909547739i, 0+1.79396984924623i, 0+1.82412060301507i, 0+1.85427135678392i, 0+1.88442211055276i, 0+1.91457286432161i, 0+1.94472361809045i, 0+1.9748743718593i, 0+2.00502512562814i, 0+2.03517587939698i, 0+2.06532663316583i, 0+2.09547738693467i, 0+2.12562814070352i, 0+2.15577889447236i, 0+2.18592964824121i, 0+2.21608040201005i, 0+2.24623115577889i, 0+2.27638190954774i, 0+2.30653266331658i, 0+2.33668341708543i, 0+2.36683417085427i, 0+2.39698492462312i, 0+2.42713567839196i, 0+2.4572864321608i, 0+2.48743718592965i, 0+2.51758793969849i, 0+2.54773869346734i, 0+2.57788944723618i, 0+2.60804020100502i, 0+2.63819095477387i, 0+2.66834170854271i, 0+2.69849246231156i, 0+2.7286432160804i, 0+2.75879396984925i, 0+2.78894472361809i, 0+2.81909547738693i, 0+2.84924623115578i, 0+2.87939698492462i, 0+2.90954773869347i, 0+2.93969849246231i, 0+2.96984924623116i, 0+3i));cos(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincos_testcos3_bc9e503f08a0258f02e22e558a5b5b0f() {
+ assertEval("argv <- list(structure(c(2, 3, 4, 5, 6, 2, 5, 10, 17, 26, 5, 15, 31, 53, 81), .Dim = c(5L, 3L)));cos(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincos_testcos4_cd1e0548b716bf3adea131c4306fe8e6() {
+ assertEval("argv <- list(Inf);cos(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincos_testcos5_03fe7fa09a10338ab1ba2184765ea57b() {
+ assertEval("argv <- list(c(3.14159265358979, 6.28318530717959, 1.5707963267949, 3.14159265358979, 4.71238898038469, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 0.785398163397448, 1.5707963267949, 2.35619449019234, 3.14159265358979, 3.92699081698724, 4.71238898038469, 5.49778714378214, 6.28318530717959, 2.0943951023932, 4.18879020478639, 6.28318530717959, 3.14159265358979, 6.28318530717959, 0.897597901025655, 1.79519580205131, 2.69279370307697, 3.59039160410262, 4.48798950512828, 5.38558740615393, 6.28318530717959, 2.0943951023932, 4.18879020478639, 6.28318530717959, 1.25663706143592, 2.51327412287183, 3.76991118430775, 5.02654824574367, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 2.0943951023932, 4.18879020478639, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 1.25663706143592, 2.51327412287183, 3.76991118430775, 5.02654824574367, 6.28318530717959, 3.14159265358979, 6.28318530717959, 2.0943951023932, 4.18879020478639, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959));cos(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincos_testcos6_08b6658fe8d63c9a74d13b67013518d0() {
+ assertEval("argv <- list(logical(0));cos(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincosh_testcosh1_20ccc954af21fb9b8111f1f0f1137b1c() {
+ assertEval("argv <- list(logical(0));cosh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincosh_testcosh2_984508ed4a4b936c7642567475ef5555() {
+ assertEval("argv <- list(FALSE);cosh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincosh_testcosh3_755ab1bec442f9e66324f126ef1547ba() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));cosh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincosh_testcosh4_d597223fb0b3486e140eaabfe5036fd2() {
+ assertEval("argv <- list(c(-3, -2.96984924623116, -2.93969849246231, -2.90954773869347, -2.87939698492462, -2.84924623115578, -2.81909547738693, -2.78894472361809, -2.75879396984925, -2.7286432160804, -2.69849246231156, -2.66834170854271, -2.63819095477387, -2.60804020100502, -2.57788944723618, -2.54773869346734, -2.51758793969849, -2.48743718592965, -2.4572864321608, -2.42713567839196, -2.39698492462312, -2.36683417085427, -2.33668341708543, -2.30653266331658, -2.27638190954774, -2.24623115577889, -2.21608040201005, -2.18592964824121, -2.15577889447236, -2.12562814070352, -2.09547738693467, -2.06532663316583, -2.03517587939699, -2.00502512562814, -1.9748743718593, -1.94472361809045, -1.91457286432161, -1.88442211055276, -1.85427135678392, -1.82412060301508, -1.79396984924623, -1.76381909547739, -1.73366834170854, -1.7035175879397, -1.67336683417085, -1.64321608040201, -1.61306532663317, -1.58291457286432, -1.55276381909548, -1.52261306532663, -1.49246231155779, -1.46231155778894, -1.4321608040201, -1.40201005025126, -1.37185929648241, -1.34170854271357, -1.31155778894472, -1.28140703517588, -1.25125628140704, -1.22110552763819, -1.19095477386935, -1.1608040201005, -1.13065326633166, -1.10050251256281, -1.07035175879397, -1.04020100502513, -1.01005025125628, -0.979899497487437, -0.949748743718593, -0.919597989949749, -0.889447236180905, -0.859296482412061, -0.829145728643216, -0.798994974874372, -0.768844221105528, -0.738693467336684, -0.708542713567839, -0.678391959798995, -0.648241206030151, -0.618090452261307, -0.587939698492463, -0.557788944723618, -0.527638190954774, -0.49748743718593, -0.467336683417086, -0.437185929648241, -0.407035175879397, -0.376884422110553, -0.346733668341709, -0.316582914572864, -0.28643216080402, -0.256281407035176, -0.226130653266332, -0.195979899497488, -0.165829145728643, -0.135678391959799, -0.105527638190955, -0.0753768844221105, -0.0452261306532664, -0.0150753768844223, 0.0150753768844218, 0.0452261306532664, 0.0753768844221105, 0.105527638190955, 0.135678391959799, 0.165829145728643, 0.195979899497488, 0.226130653266332, 0.256281407035176, 0.28643216080402, 0.316582914572864, 0.346733668341709, 0.376884422110553, 0.407035175879397, 0.437185929648241, 0.467336683417085, 0.49748743718593, 0.527638190954774, 0.557788944723618, 0.587939698492462, 0.618090452261306, 0.648241206030151, 0.678391959798995, 0.708542713567839, 0.738693467336683, 0.768844221105527, 0.798994974874372, 0.829145728643216, 0.85929648241206, 0.889447236180904, 0.919597989949748, 0.949748743718593, 0.979899497487437, 1.01005025125628, 1.04020100502513, 1.07035175879397, 1.10050251256281, 1.13065326633166, 1.1608040201005, 1.19095477386935, 1.22110552763819, 1.25125628140704, 1.28140703517588, 1.31155778894472, 1.34170854271357, 1.37185929648241, 1.40201005025126, 1.4321608040201, 1.46231155778894, 1.49246231155779, 1.52261306532663, 1.55276381909548, 1.58291457286432, 1.61306532663317, 1.64321608040201, 1.67336683417085, 1.7035175879397, 1.73366834170854, 1.76381909547739, 1.79396984924623, 1.82412060301507, 1.85427135678392, 1.88442211055276, 1.91457286432161, 1.94472361809045, 1.9748743718593, 2.00502512562814, 2.03517587939698, 2.06532663316583, 2.09547738693467, 2.12562814070352, 2.15577889447236, 2.18592964824121, 2.21608040201005, 2.24623115577889, 2.27638190954774, 2.30653266331658, 2.33668341708543, 2.36683417085427, 2.39698492462312, 2.42713567839196, 2.4572864321608, 2.48743718592965, 2.51758793969849, 2.54773869346734, 2.57788944723618, 2.60804020100502, 2.63819095477387, 2.66834170854271, 2.69849246231156, 2.7286432160804, 2.75879396984925, 2.78894472361809, 2.81909547738693, 2.84924623115578, 2.87939698492462, 2.90954773869347, 2.93969849246231, 2.96984924623116, 3));cosh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincrossprod_testcrossprod1_496feac2c05adaac7abc87ed0989191c() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1), .Dim = c(60L, 5L)), structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), .Dim = c(60L, 6L))); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincrossprod_testcrossprod2_edbdbf76aa8a1d0221e1c34b76704969() {
+ assertEval("argv <- list(numeric(0), numeric(0)); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincrossprod_testcrossprod3_8f42f69e42d50b3ceb4c5ffa207d4765() {
+ assertEval("argv <- list(c(1.078125, 0.603125, -0.90625, 0.984375, 1.359375, -2.21875, -0.5, 1.2, 0.5), c(3.1859635002998, 2.5309880107589, 0.0716489644728567, 1.23651898905887, 1.28393932315826, -0.671528370670039, 0.873486219199556, 1.05088299688189, 0.0536562654335257)); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincrossprod_testcrossprod4_a4adca0a8360d553e862ca4526e74f3d() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6), .Dim = 2:3), c(2, 1)); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincrossprod_testcrossprod5_eeb03f4aa2de2e8b22b83059dc82f95a() {
+ assertEval("argv <- list(c(1, 2, 3), structure(c(1, 3, 5, 2, 4, 6), .Dim = c(3L, 2L))); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincrossprod_testcrossprod6_0cca3fb331bcfa11fff2875dc5b1c263() {
+ assertEval("argv <- list(structure(c(0, 0, 1, 0), .Dim = c(2L, 2L), .Dimnames = list(NULL, NULL)), c(2, 3)); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincrossprod_testcrossprod7_b4528343aba7117da1739a5a98fa7f82() {
+ assertEval("argv <- list(structure(c(-0.409148064492827, 0, 0.486127240746069, 0.000757379686646223), .Dim = c(2L, 2L), .Dimnames = list(c('Vm', 'K'), NULL)), structure(c(0, 6.20800822278518, 6.20800822278518, -25013.7571686415), .Dim = c(2L, 2L))); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincrossprod_testcrossprod8_6cd3666a64d15a75044342b441f542b2() {
+ assertEval("argv <- list(structure(c(-0.0972759604917099, -0.0972759604917099, -0.197781705719934, -0.197781705719934, -0.258476920906799, -0.258476920906799, -0.31681058743414, -0.31681058743414, -0.36711291168933, -0.36711291168933, -0.386611727075222, -0.386611727075222, -0.339690730499459, -0.33969073049946, -0.392353467475584, -0.392353467475584, -0.277328754578855, -0.277328754578855, -0.062581948827679, -0.062581948827679, 0.204605005658209, 0.204605005658209, 0.32860008733551, 0.32860008733551, 0.504748197638673, 0.504748197638673, 0.0398546163039329, 0.039854616303933, -0.269613788250837, -0.269613788250837, -0.312096598983548, -0.312096598983548, 0.0190548270250438, 0.0190548270250438, 0.270521530002251, 0.270521530002251), .Dim = c(12L, 3L)), structure(c(-2.82631170793264, -2.82631170793264, -3.89457420977924, -3.89457420977924, -3.62818861156626, -3.62818861156626, -2.72530862462141, -2.72530862462141, -1.437640468988, -1.437640468988, -0.811701520293695, -0.811701520293695, 14291.543903102, 14291.543903102, 13346.8386233407, 13346.8386233407, 8863.44390274002, 8863.44390274002, 4080.15117667984, 4080.15117667984, 979.818149952962, 979.818149952962, 296.593928028368, 296.593928028368), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('Vm', 'K')))); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltincummax_testcummax1_393519eff86db4fd40fc81955350b2eb() {
+ assertEval("argv <- list(c(3L, 2L, 1L, 2L, 1L, 0L, 4L, 3L, 2L));cummax(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincummax_testcummax2_e88327f3ca38d52e61049f7c03f9d9b6() {
+ assertEval("argv <- list(c(1.4124321047876e-05, 0.00123993824202733, 0.00149456828694326, 0.00559442649445619, 0.00589461369451042, 0.00682814400910408, 0.00716033530387356, 0.00831306755655091, 0.0117236981036592, 0.0193564395772821, 0.0305747157670471, 0.0790837327244679, 0.158516621910594, 0.166302063477173, 0.240901842706431, 0.30743590191449, 0.310605928993035, 0.378620529843491, 0.394843673266257, 0.463217214123843, 0.846006725553553, 1.91986719718639, 2.30025314520167, 2.31702860292334, 2.66225504155806, 2.89838614884136, 2.93533263484596, 3.92915929103845, 6.05054801269533, 6.38133071205875, 6.62764115953293, 8.28240123423701, 8.53690564463391, 12.5838414070157, 12.5601043160765, 12.3043865122123, 12.7666868655065, 13.228566067383, 12.7230281716064, 12.9903781159995, 12.727240095027, 12.2523157614464, 11.8051459071199, 11.7060028009859, 11.5037817968679, 12.2693077958414, 11.5842811936712, 11.6626896867753, 10.9424154292091, 10.3816792396216));cummax(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincummax_testcummax3_5020287ebc0d6f79ae90f4c53533f49b() {
+ assertEval("argv <- list(list());cummax(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincummax_testcummax4_e4554d10246899a05ed0db6a6901b063() {
+ assertEval("argv <- list(FALSE);cummax(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincummax_testcummax5_f778a9778b592554044e72e9dea8c595() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')));cummax(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincummax_testcummax6_9af39ec7776a8c7b39a3e651c5d2f951() {
+ assertEval("argv <- list(NULL);cummax(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincummax_testcummax7_ad5b5b276fe8ff3b170420c1844e6649() {
+ assertEval("argv <- list(character(0));cummax(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincummax_testcummax8_22ebd9e10da90fc68829e323c0d06ba1() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));cummax(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincummin_testcummin1_be92de38e3657e3c71152b2d0bfedc94() {
+ assertEval("argv <- list(c(3L, 2L, 1L, 2L, 1L, 0L, 4L, 3L, 2L));cummin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincummin_testcummin2_c8fb106e3bdea040b6736d80089e0599() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')));cummin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincummin_testcummin3_8b2324730fcf1be9dc471d6c1a45386b() {
+ assertEval("argv <- list(c(0.943789021783783, 0.931269398230562, 0.936135627032134, 0.76691878645786, 0.751187345517812, 0.732102071759373, 0.736981399184748, 0.745009176294265, 0.742307320914255, 0.711777799810146, 0.726511637567943, 0.690091181919273, 0.656233947317988, 0.662510996891949, 0.657978635660952, 0.44347561790306, 0.428400063839846, 0.342071801782345, 0.329359004493355, 0.312959379967, 0.204112170963036, 0.153481444959266, 0.152881906752072, 0.141986935549763, 0.125244789347208, 0.126329692184989, 0.107405157884553, 0.0483432414602031, 0.0271151539974933, 0.0237499953844365, 0.0234803429360305, 0.0199319312722803, 0.0204957267942993, 0.0167583890578386, 0.0121314575180917, 0.0121935863008149, 0.00645581491628309, 0.00266833883057866, 0.00182178254845008, 0.00120243057473427, 0.000941101987534066, 0.000909248927476008, 0.000993184583142412, 0.00101050520477321, 0.00117777399883288, 0.000412294699846418, 0.000504381657773829, 1.12994568383008e-05));cummin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincummin_testcummin4_4af18cddd7d30ef6ff6b608feba77782() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));cummin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincummin_testcummin5_5046057aaf673e398ea07866d9018f1d() {
+ assertEval("argv <- list(logical(0));cummin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincummin_testcummin6_aa92d67fba07ba69fc3802b31648d35f() {
+ assertEval("argv <- list(character(0));cummin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincummin_testcummin7_d0e6506a3d5fcc64094c04e797bafde6() {
+ assertEval("argv <- list(NULL);cummin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincummin_testcummin8_d301ee1f064e011d4e4f123cea8c48d2() {
+ assertEval("argv <- list(FALSE);cummin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumprod_testcumprod1_f6452c6d48f5a47b78ef112147b731b3() {
+ assertEval("argv <- list(structure(c(1, 60, 60, 24, 7), .Names = c('secs', 'mins', 'hours', 'days', 'weeks')));cumprod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumprod_testcumprod10_16049ecdebe48c8193d945f4d2dbeb8d() {
+ assertEval("argv <- list(c(0.982149602642989, 0.91866776738084, 0.859369083800704, 0.921182928974104));cumprod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumprod_testcumprod2_d026178a9359de54125a8dc9c8322a6f() {
+ assertEval("argv <- list(c(0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i));cumprod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumprod_testcumprod3_527c41663c53321801df6929cd09354c() {
+ assertEval("argv <- list(c(1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49));cumprod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumprod_testcumprod4_641317eb0e68dcb1aea937a320fcefc6() {
+ assertEval("argv <- list(structure(0L, .Names = 'l0'));cumprod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumprod_testcumprod5_3934815317abc9da531aa6bc50d4ade1() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')));cumprod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumprod_testcumprod6_9580c6c2cf854436aa9008a9fa22b5ba() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));cumprod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumprod_testcumprod7_ac2f65845ff68f5ea676d359f6291667() {
+ assertEval("argv <- list(structure(list(), .Names = character(0)));cumprod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumprod_testcumprod8_29a226c1ef3f74cd0525a361e76d00ca() {
+ assertEval("argv <- list(NULL);cumprod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumprod_testcumprod9_2d74d9a74cbd64b2d2acf43351ecd709() {
+ assertEval("argv <- list(character(0));cumprod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumsum_testcumsum1_082932f0ddabd17575a8de00f2185ab9() {
+ assertEval("argv <- list(c(9L, 5L, 13L));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumsum_testcumsum10_c380a82970eeeafd83a538b1acb116c1() {
+ assertEval("argv <- list(structure(c(-0.233567190135781, 1.27766471142225), .Names = c('Low|Medium', 'Medium|High')));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumsum_testcumsum11_067ca75243f1d9e8659f9e95a35080e1() {
+ assertEval("argv <- list(c(8L, 2L, 12L, 6L, 4L, 5L, 13L));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumsum_testcumsum12_e5bd6800c0788e69ec647359ff76fce6() {
+ assertEval("argv <- list(c(0.535137960496205, -0.371944875163495, -1.02554224849711, -0.582401674605252, 0.342888392897331, -0.450934647056651, 0.51423012023069, -0.334338052169782, -0.105559908794475, -0.730509672807828, 1.9050435849087, 0.332621731470394, 0.230633640499451, -1.69186241488407, 0.659791899549327, -1.02362358887971, -0.891521574354298, 0.918341171021649, -0.45270064650823, -1.74837228000318, 1.76990410988936, -2.37740692539252, 0.572811529859585, 1.01724924908461, -0.630967866660535, 0.444287051411554, 0.439130388388555, 1.04062315291451, 0.484099387952522, -0.244883779092525, 0.915992057940211, 0.800622356509766, -0.936569034135793, -1.40078743399573, 0.160277539993178, -0.273962374775183, -0.985539112562296, 0.0839306795150329, -1.31999652648691, 0.161226351326199, -0.62492838754192, 0.957164274192481, 2.42448914116153, -0.915979243686792, 1.05766417094298, 0.825149727768283, -0.0701942243053587, -0.453646374057015, 1.57530770683748, -2.00545781823625, -0.643194791593663, -1.43684344365778, 1.39531343894608, -0.190703432644857, -0.524671199469671, 3.18404447406633, -0.0500372678876282, -0.443749311866524, 0.299865250136145, -1.56842462075497, 0.490302642672068, -0.0961632010799668, 0.468525122530146, -0.982370635937854, -1.02298384214794, -0.693414663276185, -0.767989573092782, 1.29904996668359, 1.57914556180809, -0.156891953039067, -0.35893656058468, -0.329038830421669, 0.0692364778530165, 0.0969042337010548, 0.290034387765571, -0.746678941046256, -0.846896388820319, 1.19707766374608, -0.548627361103323, 0.303045695225451, -0.056970533803332, -0.957849392150669, 0.591061909411507, 0.173104873492955, 1.39978335621251, 0.117459584626988, -0.331545758200853, 0.278294913305364, -1.18559164903534, -0.835894053393597, 0.510273251139431, -0.333120901223949, -0.0659609463524635, -0.11522170942195, -0.650512618774529, -2.01868865908242, 0.348834970176592, 0.761639507646859, -1.28871623535013, 1.48240271845861));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumsum_testcumsum13_0298b864c44c0a081b772effed45a904() {
+ assertEval("argv <- list(c(23L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, 15L, 15L, 15L, 15L, 15L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, -9L, -9L, -9L, -9L, -9L, -9L, -9L, -9L, -9L, -9L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -6L, -6L, -6L, -6L, -6L, -6L, -6L, -6L, -6L, -1L, -1L, -1L, -1L, -1L, -1L, -1L, -1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, NA, NA, 3L, 3L, 3L, -19L, -19L, -19L, -19L, -19L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumsum_testcumsum14_64af9ace40950ef3dffee02764812756() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumsum_testcumsum15_e97c74140b2b113cbc3c2864c9b9db27() {
+ assertEval("argv <- list(character(0));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumsum_testcumsum2_be86846a919ba81fefaabd5a6528d0f7() {
+ assertEval("argv <- list(structure(c(15L, 14L), .Names = c('bibentry', NA)));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumsum_testcumsum3_aecce4763dc43e0b775a6f4803029558() {
+ assertEval("argv <- list(structure(c(79.3831968838961, 8.55983483385341e+101), .Names = c('', '')));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumsum_testcumsum4_7727124ea7142cc5308a437e1929385d() {
+ assertEval("argv <- list(structure(c(-191.999930599838, 7.71626352011359e-309), .Names = c('', '')));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumsum_testcumsum5_6ea15d6d7d928dc01be41f5c71bae0d6() {
+ assertEval("argv <- list(NULL);cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumsum_testcumsum6_202374fac271db11bbfd1306a466d7c8() {
+ assertEval("argv <- list(structure(c(5L, 8L, 4L, 19L, 26L, 18L, 41L, 42L, 51L, 90L, 97L, 95L, 122L, 134L, 195L, 215L, 225L, 237L, 274L, 291L, 305L, 333L, 353L, 330L, 363L, 376L, 365L, 393L, 409L, 407L, 376L, 371L, 366L, 337L, 307L, 333L, 290L, 244L, 224L, 218L, 209L, 144L, 147L, 112L, 91L, 79L, 69L, 58L, 54L, 38L, 27L, 17L, 30L, 10L, 7L, 19L), .Dim = 56L, .Dimnames = structure(list(c('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55')), .Names = ''), class = 'table'));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumsum_testcumsum7_5f3ec5a67c3c5a2950029dfb8aea181a() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumsum_testcumsum8_e940d652057a9d8c00d5e999cb20d7e0() {
+ assertEval("argv <- list(c(6, 6, 5));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltincumsum_testcumsum9_fa751c69135f64f00362025e64e38311() {
+ assertEval("argv <- list(structure(c(7, 7, 7, 7), .Dim = 4L, .Dimnames = list(c('Urban Female', 'Urban Male', 'Rural Female', 'Rural Male'))));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse1_7ae61a4f4be1c4b4d86e1415251bd2c3() {
+ assertEval("argv <- list(quote(rsp), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse10_cd1e1bc0422783123d12c2c80f3815b6() {
+ assertEval("argv <- list(quote(1:10), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse11_9b2a35fa73423a17a2fcab54b586ea7a() {
+ assertEval("argv <- list(quote(x[[i]]), 500L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse12_30845a3b9b1112ca17301586dad021df() {
+ assertEval("argv <- list(quote(t1 - 4), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse13_8fc268a320fcdf031fb33102b081cd81() {
+ assertEval("argv <- list(quote(read.table('foo1')), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse14_4970db23380dafd3acfcca4c3eaaca24() {
+ assertEval("argv <- list(quote(`[.data.frame`(dd, , 'x')), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse15_2c2f3aaf0b6c48f604ea265d681bb53f() {
+ assertEval("argv <- list(1e-07, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse16_e45cc6e67e33cce70ced05c64e86f1b3() {
+ assertEval("argv <- list('coef.corStruct', 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse17_1722d32a004dc5dbd0e8352f8ee8df87() {
+ assertEval("argv <- list('Version of 'graph' is too old --- no tests done here!\n', 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse18_44481931a91fff22b73921a5e9604597() {
+ assertEval("argv <- list(Inf, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse19_0cae08a0b7588af95925c4c8427c1e79() {
+ assertEval("argv <- list(structure(list(Sex = structure(c(2L, 2L, 1L, 1L, 2L, 2L), .Label = c('Female', 'Male'), class = 'factor'), age = c(15, 20, 10, 12, 2, 4), Subject = structure(c(2L, 2L, 1L, 1L, 3L, 3L), .Label = c('F30', 'M01', 'M04'), class = 'factor')), .Names = c('Sex', 'age', 'Subject'), row.names = c(NA, -6L), class = 'data.frame'), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse2_a87859f9f0b6057892823c6b6438da57() {
+ assertEval("argv <- list(quote(rnorm(1, sd = Inf)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse20_432130c3fbc28e0a271e9be3923336dd() {
+ assertEval("argv <- list(TRUE, 500L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse21_1155a0796d6a6f3294123cd8e56fa45a() {
+ assertEval("argv <- list(.Primitive('interactive'), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse22_33ac29ab628e9983ded5b0f946c3edd5() {
+ assertEval("argv <- list(0+1i, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse23_488a683b049d80acbbf7c29ad0a0f5a1() {
+ assertEval("argv <- list(quote(cor(Z[, FALSE], use = 'pairwise.complete.obs', method = 'kendall')), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse24_e198632176b3a427c25dcedc82e12ef4() {
+ assertEval("argv <- list(c(7.4, 8, 12.6, 11.5, 14.3, 14.9, 8.6, 13.8, 20.1, 8.6, 6.9, 9.7, 9.2, 10.9, 13.2, 11.5, 12, 18.4, 11.5, 9.7, 9.7, 16.6, 9.7, 12, 16.6, 14.9, 8, 12, 14.9, 5.7, 7.4, 8.6, 9.7, 16.1, 9.2, 8.6, 14.3, 9.7, 6.9, 13.8, 11.5, 10.9, 9.2, 8, 13.8, 11.5, 14.9, 20.7, 9.2, 11.5, 10.3, 6.3, 1.7, 4.6, 6.3, 8, 8, 10.3, 11.5, 14.9, 8, 6.9, 13.8, 7.4, 6.9, 7.4, 4.6, 4, 10.3, 8, 8.6, 11.5, 11.5, 11.5, 9.7, 11.5, 10.3, 6.3, 7.4, 10.9, 10.3, 15.5, 14.3, 12.6, 9.7, 3.4, 8, 5.7, 9.7, 2.3, 6.3, 6.3, 6.9, 5.1, 2.8, 4.6, 7.4, 15.5, 10.9, 10.3, 10.9, 9.7, 14.9, 15.5, 6.3, 10.9, 11.5, 6.9, 13.8, 10.3, 10.3, 8, 12.6, 9.2, 10.3, 10.3, 16.6, 6.9, 13.2, 14.3, 8, 11.5), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse25_779fcd632c0ec46a745ee45c21b0b48f() {
+ assertEval("argv <- list(1e+05, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse26_f484f6617e69cdfc523d02a61c2dc7c9() {
+ assertEval("argv <- list(structure(list(distance = c(26, 25, 29, 31, 21.5, 22.5), age = c(8, 10, 12, 14, 8, 10), Subject = structure(c(2L, 2L, 2L, 2L, 1L, 1L), .Label = c('M02', 'M01'), class = c('ordered', 'factor')), Sex = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = c('Male', 'Female'), class = 'factor')), .Names = c('distance', 'age', 'Subject', 'Sex'), row.names = c('1', '2', '3', '4', '5', '6'), class = 'data.frame'), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse27_3ab13d32e7f008df59e46256ab396e9f() {
+ assertEval("argv <- list('\t *ERROR* !!\n', 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse28_32e9ed41cd9dafb761d9a9893953a7ed() {
+ assertEval("argv <- list('\n\f\n', 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse29_9361ca808d4a44a691ca5a3856932751() {
+ assertEval("argv <- list(' +\\.', 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse3_754683fb01ea52f4cb99fe7aab211dcc() {
+ assertEval("argv <- list(quote(rnorm(2, c(1, NA))), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse30_bd96596fb124b6dcb823a4c9189d02a2() {
+ assertEval("argv <- list(structure(FALSE, .Dim = 1L), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse31_4196bfc79e33f9f637ef031e9b2b1319() {
+ assertEval("argv <- list(c(0, 0.587785252292473, 0.951056516295154, 0.951056516295154, 0.587785252292473, 1.22464679914735e-16, -0.587785252292473, -0.951056516295154, -0.951056516295154, -0.587785252292473, -2.44929359829471e-16, 0.587785252292473, 0.951056516295154), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse32_ab009b68cd09e62904ae4bf32cb60d9d() {
+ assertEval("argv <- list(structure(c(39.384847580955, 40.3469409309138, 42.6018205723052, 46.6665176252597, 51.3438205965467, 60.0069972599329, 64.6480892875058, 62.5709232928432, 57.679739382496, 49.5060394945433, 43.474726406114, 39.8236314289602, 38.361391396627, 37.9275637097922, 43.6868952734483, 45.1919846859641, 51.722520194987, 59.3399821539983, 61.9345241730145, 62.1515308754468, 57.6561604617486, 49.2849925780811, 42.606775772378, 39.6394677676018, 38.6328048791077, 38.4418602988203, 43.1520834957543, 45.6551746936999, 51.7999631155049, 59.5021948495759, 62.9217123388139, 62.0751910659837, 57.8048619656866, 49.5091658164884, 42.8045075272742, 40.2515159054665), .Tsp = c(1937, 1939.91666666667, 12), class = 'ts'), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse33_dfb17cc2d1b6d1a8b29fa1a9f290952b() {
+ assertEval("argv <- list(NA_real_, 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse34_baf9120031c9a91b15009eb0ee6cb37e() {
+ assertEval("argv <- list(quote(lm(formula = y ~ x1 + x2 + x3)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse35_42f0244360834a25e6cc46affd79ffa2() {
+ assertEval("argv <- list(structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, 104, 118, 115, 126, 141, 135, 125, 149, 170, 170, 158, 133, 114, 140, 145, 150, 178, 163, 172, 178, 199, 199, 184, 162, 146, 166, 171, 180, 193, 181, 183, 218, 230, 242, 209, 191, 172, 194, 196, 196, 236, 235, 229, 243, 264, 272, 237, 211, 180, 201, 204, 188, 235, 227, 234, 264, 302, 293, 259, 229, 203, 229, 242, 233, 267, 269, 270, 315, 364, 347, 312, 274, 237, 278, 284, 277, 317, 313, 318, 374, 413, 405, 355, 306, 271, 306, 315, 301, 356, 348, 355, 422, 465, 467, 404, 347, 305, 336, 340, 318, 362, 348, 363, 435, 491, 505, 404, 359, 310, 337, 360, 342, 406, 396, 420, 472, 548, 559, 463, 407, 362, 405, 417, 391, 419, 461, 472, 535, 622, 606, 508, 461, 390, 432, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 419.147602949539, 391.474665943444, 435.919286153217, 443.935203034261, 455.023399013445, 517.28707821144, 589.71337277669, 582.999919227301, 484.573388713116, 428.878182738437, 368.526582998452, 406.728709993152, 415.660571294428, 388.716535970235, 433.006017658935, 440.885684396326, 451.651900136866, 513.051252429496, 584.327164324967, 577.055407135124, 479.076505013118, 423.494870357491, 363.43932958967, 400.592058645117, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 484.030717075782, 462.954959541421, 526.353307750503, 546.165638262644, 569.502470928676, 657.838443307596, 761.241730163307, 763.280655335144, 642.989004951864, 576.423799567567, 501.429012064338, 559.981301364233, 591.700754553767, 565.210772316967, 642.377841008703, 666.682421047093, 695.547100430962, 804.065022775202, 931.340589597203, 934.837830059897, 788.422986194072, 707.666678543854, 616.37838266375, 689.250456425465), .Dim = c(168L, 3L), .Dimnames = list(NULL, c('structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, ', 'structure(c(419.147602949539, 391.474665943444, 435.919286153217, ', 'structure(c(484.030717075782, 462.954959541421, 526.353307750503, ')), .Tsp = c(1949, 1962.91666666667, 12), class = c('mts', 'ts', 'matrix')), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse36_46119f0ae8d107bff03cbcc039babfa1() {
+ assertEval("argv <- list(numeric(0), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse37_178005eb5188b54c4b7cf6a85b8a7e1d() {
+ assertEval("argv <- list(0:12, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse38_4cf9485403d3449b436689e452490705() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse39_b0de79fadb65a2d071f9580391c84ae6() {
+ assertEval("argv <- list(NA, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse4_fa0bbfe31a2db219d167908688741736() {
+ assertEval("argv <- list(quote(unclass(x)), 500, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse40_25b2d5f06b44a03edaa3ec556d624994() {
+ assertEval("argv <- list(logical(0), logical(0), FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse41_9228c5da5749430b9ce5b6d95bfcbcef() {
+ assertEval("argv <- list(FALSE, 50L, FALSE, 69, 2L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse42_d3e2f069e992239a91955b159fcf315f() {
+ assertEval("argv <- list(c(FALSE, FALSE), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse43_41753e19f3646fae0856097348637c85() {
+ assertEval("argv <- list(quote(glm(formula = y ~ x, family = poisson(identity), start = c(1, 0))), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse44_20082db53bb6d9abd9e399d7757394fa() {
+ assertEval("argv <- list(quote(lm(formula = 1000/MPG.city ~ Weight + Cylinders + Type + EngineSize + DriveTrain, data = Cars93)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse45_79171d035d8ae6785f1ed3270c07d236() {
+ assertEval("argv <- list(0.333333333333333, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse46_13d24ad485cf5ef61c563fd1e619f790() {
+ assertEval("argv <- list(quote(Fr ~ (Hair + Eye + Sex)^2), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse47_f647df210f1d05f3d2ec0885eae4a457() {
+ assertEval("argv <- list(quote(glm(formula = cbind(X, M) ~ M.user + Temp + M.user:Temp, family = binomial, data = detg1)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse5_6e7ee541c99dcc23234ca7fb3c6be010() {
+ assertEval("argv <- list(quote(cor(rnorm(10), NULL)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse6_e88fa87223f550b4600b60d4249b9219() {
+ assertEval("argv <- list(quote(5 * exp(-x)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse7_6e9ac472093e9b62411a594d4785594b() {
+ assertEval("argv <- list(quote(y ~ ((g1) * exp((log(g2/g1)) * (1 - exp(-k * (x - Ta)))/(1 - exp(-k * (Tb - Ta)))))), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse8_206a5412e5a18813064a97da71237bc1() {
+ assertEval("argv <- list(quote(tt <- table(c(rep(0, 7), rep(1, 4), rep(5, 3)))), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindeparse_testdeparse9_c38fd230efc5fbeef93dba49f21bd19e() {
+ assertEval("argv <- list(quote(utils::str), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindet_testdet1_a27f74f97071a95b0cc464c97b5af70f() {
+ assertEval("argv <- list(structure(c(FALSE, TRUE, TRUE, FALSE), .Dim = c(2L, 2L), .Dimnames = list(c('A', 'B'), c('A', 'B'))), TRUE); .Internal(det_ge_real(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindet_testdet2_93f9a336427be46ee880f88e91d8e7e9() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L), .Dimnames = list(c('A', 'B'), c('A', 'B'))), TRUE); .Internal(det_ge_real(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindet_testdet3_0cdaab5297f5d77bcece794dee4ccb32() {
+ assertEval("argv <- list(structure(c(2, 1, 1, 2), .Dim = c(2L, 2L), .Dimnames = list(c('A', 'B'), c('A', 'B'))), TRUE); .Internal(det_ge_real(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindfltWarn_testdfltWarn1_920f2a48e04481397a39d20a18ba824f() {
+ assertEval("argv <- list(''f' is deprecated.\nUse 'convertY' instead.\nSee help(\'Deprecated\')', NULL); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindfltWarn_testdfltWarn10_496ced09b4bc31ecb0004845fe98b8af() {
+ assertEval("argv <- list(''x' is neither a vector nor a matrix: using as.numeric(x)', quote(dotchart(table(infert$education)))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindfltWarn_testdfltWarn11_5ea27bcd41e393b94d089c33a8e1918c() {
+ assertEval("argv <- list('Invalid file name(s) for R code in ./myTst/R:\n 'file55711ba85492'\n are now renamed to 'z<name>.R'', quote(package.skeleton('myTst', code_files = tmp))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindfltWarn_testdfltWarn12_0d266dfcfa18dea174b0cf2c2651b847() {
+ assertEval("argv <- list('incomplete final line found by readTableHeader on 'foo4'', quote(read.table('foo4', header = TRUE))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindfltWarn_testdfltWarn2_1c1c654619fed5304352eb9a6edb4c1f() {
+ assertEval("argv <- list('bessel_y(2,nu=288.12): precision lost in result', quote(besselY(2, nu = nu <- seq(3, 300, len = 51)))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindfltWarn_testdfltWarn3_f8a16d1072620ab00a1a523d135e9be1() {
+ assertEval("argv <- list('glm.fit: algorithm stopped at boundary value', NULL); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindfltWarn_testdfltWarn4_70190ede9f79f44b95547557bcb59d52() {
+ assertEval("argv <- list('header and 'col.names' are of different lengths', quote(read.table('foo3', header = TRUE, col.names = letters[1:4]))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindfltWarn_testdfltWarn5_0eb756c16e0d906d9985c702671abaca() {
+ assertEval("argv <- list('‘graphics’ namespace cannot be unloaded:\n namespace ‘graphics’ is imported by ‘stats’ so cannot be unloaded', NULL); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindfltWarn_testdfltWarn6_76e512cadea250843b7d50181d84701c() {
+ assertEval("argv <- list('NaNs produced', quote(log(ifelse(y == 0, 1, y/mu)))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindfltWarn_testdfltWarn7_54c04621103e396452234ead834cb506() {
+ assertEval("argv <- list(''drop' argument will be ignored', quote(`[.data.frame`(women, 'height', drop = FALSE))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindfltWarn_testdfltWarn8_3da9fa8d645a6d1c3b36e05705a8f985() {
+ assertEval("argv <- list('prediction from a rank-deficient fit may be misleading', quote(predict.lm(object, newdata, se.fit, scale = residual.scale, type = ifelse(type == 'link', 'response', type), terms = terms, na.action = na.action))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindfltWarn_testdfltWarn9_b5132a898a7b9fe484376a1938df66d5() {
+ assertEval("argv <- list('1 y value <= 0 omitted from logarithmic plot', quote(xy.coords(x, NULL, log = log))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindiag_testdiag1_2cf53a7b80c10d00d3e9d568fa60f11e() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 4L, 1L), .Dim = 5L), 5L, 5L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindiag_testdiag10_6936852e307afa7eb18ec9f64aa19841() {
+ assertEval("argv <- list(structure(c(-268.831499270454, 5.6415423423032, 14.3443760756611, -6.07661158322081, -7.61383061715105, 3.28804653251744, 13.7579673886322, 2.89856286229343, -9.75713414208632, 4.61320568224165), .Names = c('(Intercept)', 'block2', 'block3', 'block4', 'block5', 'block6', 'N1', 'P1', 'K1', 'N1:P1')), 24L, 10L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindiag_testdiag11_fb2b9ee0e9ec83629adcc07220610963() {
+ assertEval("argv <- list(structure(c(0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285), .Dim = 10L, .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'))), 10L, 10L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindiag_testdiag12_e5201367e1710a44426acb3e705dbb58() {
+ assertEval("argv <- list(list(1, 1, 1), 3L, 3L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindiag_testdiag13_f65d784ab56b6f9ec814137fc2e420e2() {
+ assertEval("argv <- list(list(), 0L, 0L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindiag_testdiag14_a9a938a94b31748f71849e3ce0d47f26() {
+ assertEval("argv <- list(character(0), 0L, 0L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindiag_testdiag2_1c9b37b819d68b346b4c55be76ce2c25() {
+ assertEval("argv <- list(NULL, 0L, 0L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindiag_testdiag3_2b525912e9ac50630dc47425ecf6c99e() {
+ assertEval("argv <- list(structure(c(0.00258017518312032, 0.00371592854270272, 4.74358130918145e-05, 0.00490111130607204, 0.000101990092933588, 0.00674107947251412, 0.000239828967315095, 0.00980847069198632, 0.000617541923597065, 0.0155189333862593, 0.00178497855501229, 0.0281274123275302, 0.00633033372222146, 0.0642581517771313, 0.0351608933185668, 0.151097171670205, 0.967636582993474, 0.0809667077153405), .Names = c('Xr1', 'Xr2', 'Xr3', 'Xr4', 'Xr5', 'Xr6', 'Xr7', 'Xr8', 'Xr9', 'Xr10', 'Xr11', 'Xr12', 'Xr13', 'Xr14', 'Xr15', 'Xr16', 'Xr17', 'Xr18')), 18L, 18L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindiag_testdiag4_0dea8eecba555ce5748bf6bce5e066fb() {
+ assertEval("argv <- list(c(FALSE, TRUE, TRUE, TRUE), 4L, 4L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindiag_testdiag5_f123c582c1ff3d8b1fddd02682c8af84() {
+ assertEval("argv <- list(c(-2.80063713410797-0i, 2.40432724210166-0i, -1.40502612938985+0i, 1.39344241164891+0i, 0.785422253492721+0i), 5L, 5L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindiag_testdiag6_5989b4cdb499e5cca58c45e3e7681a2d() {
+ assertEval("argv <- list(structure(c(0.662193594830517, 0.883082096514931, 0.80211645621425, 0.806993241239092, 0.593615611337433, 0.55837479933202, 0.531727869384763, 0.696607367099979, 0.506321785494117, 0.489681023915914, 0.742249020738322, 0.65965217395585, 0.700437655250271, 0.80388520340336, 0.834325796707322, 0.741083805719802, 0.77320911661894, 0.76968452857621, 0.872531808824412, 0.769100148773066, 0.763385216756006, 0.775173380089108, 0.705125971098107, 0.706916424657676), .Names = c('VisualPerception', 'Cubes', 'PaperFormBoard', 'Flags', 'GeneralInformation', 'PargraphComprehension', 'SentenceCompletion', 'WordClassification', 'WordMeaning', 'Addition', 'Code', 'CountingDots', 'StraightCurvedCapitals', 'WordRecognition', 'NumberRecognition', 'FigureRecognition', 'ObjectNumber', 'NumberFigure', 'FigureWord', 'Deduction', 'NumericalPuzzles', 'ProblemReasoning', 'SeriesCompletion', 'ArithmeticProblems')), 24L, 24L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindiag_testdiag7_a2bfe1c42bd44e520df419a87fba51e1() {
+ assertEval("argv <- list(1, 0L, 0L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindiag_testdiag8_75c15ca9b4479ad1ad1d9365178ff7f9() {
+ assertEval("argv <- list(structure(c(0.553622032575332, 1.83583330034692, 0.540309168173204, 0.347171956892285), .Names = c('A', 'B', 'C', 'D')), 4L, 4L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindiag_testdiag9_9a54cc1fac7d63b62cf56fea77305c8f() {
+ assertEval("argv <- list(structure(c(-875.251472917967, 12.8319913648351, -28.2155558559225, -27.6015982680416, -70.4377976184188, -98.9293825275015, 32.8291346503008, -20.6544753576079, 26.3486263439148, -42.5376299218819, -131.164911564755, -12.7775395276621, 3.34207338870892, -6.39516049903921, 5.97199502480298, 9.16451921253422, 4.70193189358059), .Names = c('(Intercept)', 'BII', 'BIII', 'BIV', 'BV', 'BVI', 'VMarvellous', 'VVictory', 'N0.2cwt', 'N0.4cwt', 'N0.6cwt', 'VMarvellous:N0.2cwt', 'VVictory:N0.2cwt', 'VMarvellous:N0.4cwt', 'VVictory:N0.4cwt', 'VMarvellous:N0.6cwt', 'VVictory:N0.6cwt')), 71L, 17L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindigamma_testdigamma1_e32f802ab40f75a90f63bcc0b243b64f() {
+ assertEval("argv <- list(structure(c(3.80516394437114, 12.8051639443711, 15.8051639443711, 6.80516394437114, 6.80516394437114, 14.8051639443711, 21.8051639443711, 23.8051639443711, 7.80516394437114, 7.80516394437114, 16.8051639443711, 8.80516394437114, 15.8051639443711, 7.80516394437114, 33.8051639443711, 54.8051639443711, 58.8051639443711, 15.8051639443711, 17.8051639443711, 17.8051639443711, 18.8051639443711, 41.8051639443711, 44.8051639443711, 47.8051639443711, 9.80516394437114, 24.8051639443711, 24.8051639443711, 29.8051639443711, 35.8051639443711, 37.8051639443711, 39.8051639443711, 4.80516394437114, 6.80516394437114, 12.8051639443711, 25.8051639443711, 46.8051639443711, 6.80516394437114, 7.80516394437114, 7.80516394437114, 10.8051639443711, 14.8051639443711, 24.8051639443711, 26.8051639443711, 33.8051639443711, 54.8051639443711, 55.8051639443711, 6.80516394437114, 6.80516394437114, 12.8051639443711, 18.8051639443711, 20.8051639443711, 9.80516394437114, 14.8051639443711, 15.8051639443711, 21.8051639443711, 48.8051639443711, 49.8051639443711, 61.8051639443711, 82.8051639443711, 3.80516394437114, 1.80516394437114, 3.80516394437114, 4.80516394437114, 6.80516394437114, 11.8051639443711, 15.8051639443711, 22.8051639443711, 37.8051639443711, 41.8051639443711, 7.80516394437114, 18.8051639443711, 68.8051639443711, 1.80516394437114, 1.80516394437114, 3.80516394437114, 8.80516394437114, 12.8051639443711, 13.8051639443711, 1.80516394437114, 1.80516394437114, 6.80516394437114, 6.80516394437114, 6.80516394437114, 12.8051639443711, 18.8051639443711, 4.80516394437114, 5.80516394437114, 23.8051639443711, 31.8051639443711, 37.8051639443711, 9.80516394437114, 1.80516394437114, 2.80516394437114, 6.80516394437114, 8.80516394437114, 17.8051639443711, 28.8051639443711, 1.80516394437114, 31.8051639443711, 11.8051639443711, 15.8051639443711, 28.8051639443711, 42.8051639443711, 70.8051639443711, 26.8051639443711, 11.8051639443711, 12.8051639443711, 21.8051639443711, 34.8051639443711, 6.80516394437114, 8.80516394437114, 1.80516394437114, 2.80516394437114, 6.80516394437114, 6.80516394437114, 6.80516394437114, 6.80516394437114, 8.80516394437114, 12.8051639443711, 16.8051639443711, 6.80516394437114, 15.8051639443711, 7.80516394437114, 7.80516394437114, 8.80516394437114, 29.8051639443711, 1.80516394437114, 6.80516394437114, 15.8051639443711, 3.80516394437114, 3.80516394437114, 4.80516394437114, 9.80516394437114, 11.8051639443711, 13.8051639443711, 2.80516394437114, 2.80516394437114, 10.8051639443711, 23.8051639443711, 4.80516394437114, 4.80516394437114, 6.80516394437114, 16.8051639443711, 19.8051639443711, 23.8051639443711, 38.8051639443711), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100', '101', '102', '103', '104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', '115', '116', '117', '118', '119', '120', '121', '122', '123', '124', '125', '126', '127', '128', '129', '130', '131', '132', '133', '134', '135', '136', '137', '138', '139', '140', '141', '142', '143', '144', '145', '146')));digamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindigamma_testdigamma2_38076dd6fdca87ce2c2023a9c5f4acae() {
+ assertEval("argv <- list(structure(c(9.16602330897621, 9.16602330897621, 1.16602330897621, 1.16602330897621, 3.16602330897621, 3.16602330897621, 6.16602330897621, 6.16602330897621, 6.16602330897621, 6.16602330897621, 2.16602330897621, 2.16602330897621, 8.16602330897621, 8.16602330897621, 1.16602330897621, 1.16602330897621, 7.16602330897621, 7.16602330897621, 19.1660233089762, 19.1660233089762, 2.16602330897621, 2.16602330897621), .Names = c('1', '1.1', '2', '2.1', '3', '3.1', '4', '4.1', '5', '5.1', '6', '6.1', '7', '7.1', '8', '8.1', '9', '9.1', '10', '10.1', '11', '11.1')));digamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindigamma_testdigamma3_35bc2b429287d7c3663bca301962ffee() {
+ assertEval("argv <- list(FALSE);digamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindigamma_testdigamma4_cf92788d674cba9c1ad909bfdf8fed1c() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));digamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindigamma_testdigamma5_34b5cce1c3064786a8ccf95dc13ed751() {
+ assertEval("argv <- list(c(1e+30, 1e+60, 1e+90, 1e+120, 1e+150, 1e+180, 1e+210, 1e+240, 1e+270, 1e+300));digamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim1_5189b26d80f89098cd36096788640eb9() {
+ assertEval("argv <- list(structure(c(3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3, 4, 5), .Dim = c(8L, 2L), .Dimnames = list(c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h'), c('x1', 'x2'))));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim10_6d6e0b0145f9f546997903f0937acfa0() {
+ assertEval("argv <- list(structure(c(93.3042409622253, 72.8638419893434, 65.9708818502055, 74.2809886424684, 79.8889070755712, 100.233809580112, 104.965351919781, 83.86798597082, 105.795365211341, 108.580858711588, 95.3646703714076, 98.1558192431132, 5.58314117171466, 29.7542740978848, 32.2224082035474, 27.8665232792916, 25.046508702598, 23.5818201384803, 35.0327999599812, 33.2751275770215, 43.2947043117474, 39.1828378794408, 11.7874053171943, 57.3766532219607), .Dim = c(12L, 2L)));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim11_e3e9e2b1621dab33179912e2c8f2f3a9() {
+ assertEval("argv <- list(structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim12_8c5f373eb9a0adf77827b91707b83af5() {
+ assertEval("argv <- list(structure(list(height = numeric(0), weight = numeric(0)), .Names = c('height', 'weight'), class = 'data.frame', row.names = integer(0)));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim13_c4781b1b96f373f822c9c8ec8439a31d() {
+ assertEval("argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim14_f85569c867ee43a9db482cf22af2c862() {
+ assertEval("argv <- list(c(99, 1, 2, -3, 4, 3, NA));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim15_353ff3a5bff7c9cd6c55178d8418b3d2() {
+ assertEval("argv <- list(structure(c('‘[,1]’', '‘[,2]’', '‘height’', '‘weight’', 'numeric', 'numeric', 'Height (in) ', 'Weight (lbs)'), .Dim = c(2L, 4L)));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim16_823a3b782507d6e2c2fd62a1d3434af9() {
+ assertEval("argv <- list(structure(list(V1 = c(0.497699242085218, 0.991906094830483), V2 = c(0.668466738192365, 0.107943625887856), V3 = c(0.0994661601725966, 0.518634263193235), V4 = c(0.892198335845023, 0.389989543473348), V5 = c(0.79730882588774, 0.410084082046524)), .Names = c('V1', 'V2', 'V3', 'V4', 'V5'), row.names = c(16L, 18L), class = 'data.frame'));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim17_af5c16907423bf16bb3b302933855944() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(5L, 21L), .Dimnames = list(c('#ifdef', '\\Sexpr', 'build', 'install', 'render'), NULL)));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim18_d7be8c4dcecf3ccd33bae6aae6592035() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, -1.43884556914512e-134, 0, 0, 0, -7.95468296571581e-252, 1.76099882882167e-260, 0, -9.38724727098368e-323, -0.738228974836154, 0, 0, 0, 0, 0, 0, 0, 0, 0, -6.84657791618065e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.05931985100232e-174, 0, -3.41789378681991e-150, 0, 0, 0, 0, -1.07225492686949e-10, 0, 1.65068934474523e-67, 0, -6.49830035279282e-307, 0, 5.83184963977238e-90, 0, -9.81722610183938e-287, 6.25336419454196e-54, 0, 0, 0, -1.72840591500382e-274, 1.22894687952101e-13, 0.660132850077566, 0, 0, 7.79918925397516e-200, -2.73162827952857e-178, 1.32195942051179e-41, 0, 0, 0, 0, 2.036057023761e-45, -3.40425060445074e-186, 1.59974269220388e-26, 0, 6.67054294775317e-124, 0.158503117506202, 0, 0, 0, 0, 0, 0, 3.42455724859116e-97, 0, 0, -2.70246891320217e-272, 0, 0, -3.50562438899045e-06, 0, 0, 1.35101732326608e-274, 0, 0, 0, 0, 0, 0, 0, 7.24580295957621e-65, 0, -3.54887341172294e-149, 0, 0, 0, 0, 0, 0, 0, 0, 1.77584594753563e-133, 0, 0, 0, 2.88385135688311e-250, 1.44299633616158e-259, 0, 1.56124744085834e-321, 1.63995835868977, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.01050064173383e-122, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.64868196850938e-172, 0, 6.28699823828692e-149, 0, 0, 0, 0, 5.0552295590188e-09, 0, 2.30420733561404e-66, 0, 7.0823279075443e-306, 0, 2.05009901740696e-88, 0, 7.41800724282869e-285, 7.18347043784483e-53, 0, 0, 0, 1.04251223075649e-273, 9.75816316577433e-13, 4.29519957592147, 0, 0, 1.33541454912682e-198, 2.34606233784019e-176, 8.38236726536896e-41, 0, 0, 0, 0, 1.35710537434521e-43, 1.15710503176511e-185, 1.25601735272233e-25, 0, 4.46811655846376e-123, 4.4196641795634, 0, 0, 0, 0, 0, 0, 3.74179015251531e-93, 0, 0, 3.62662047836582e-271, 0, 0, 1.26220330674453e-05, 0, 0, 1.72715562657338e-273, 0, 0, 0, 0, 0, 0, 0, 5.46372806810809e-64, 0, 2.47081972486962e-148, 0, 0, 0), .Dim = c(100L, 2L)));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim19_49c89bad8da52cdae9df4ea7f708c728() {
+ assertEval("argv <- list(structure(c(0, 87, 82, 75, 63, 50, 43, 32, 35, 60, 54, 55, 36, 39, 0, 0, 69, 57, 57, 51, 45, 37, 46, 39, 36, 24, 32, 23, 25, 32, 0, 32, 59, 74, 75, 60, 71, 61, 71, 57, 71, 68, 79, 73, 76, 71, 67, 75, 79, 62, 63, 57, 60, 49, 48, 52, 57, 62, 61, 66, 71, 62, 61, 57, 72, 83, 71, 78, 79, 71, 62, 74, 76, 64, 62, 57, 80, 73, 69, 69, 71, 64, 69, 62, 63, 46, 56, 44, 44, 52, 38, 46, 36, 49, 35, 44, 59, 65, 65, 56, 66, 53, 61, 52, 51, 48, 54, 49, 49, 61, 0, 0, 68, 44, 40, 27, 28, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = 'ts'));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim2_8c07afdb6d64b9d681737c4d38598a28() {
+ assertEval("argv <- list(structure(list(surname = structure(1:5, .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(c(1L, 2L, 3L, 3L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor'), title = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = c(5L, 4L, 3L, 1L, 2L), class = 'data.frame'));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim20_e218a0ea14e6739e72863341b51e0df7() {
+ assertEval("argv <- list(structure(raw(0), .Dim = c(0L, 0L)));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim21_675c54ade8e5e786fb5862512ec2c896() {
+ assertEval("argv <- list(c(0, 1, 131072, 129140163, 17179869184, 762939453125, 16926659444736, 232630513987207, 2251799813685248, 16677181699666568, 1e+17));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim22_dbd536e4dcbb0dcd157f463ab19cdefb() {
+ assertEval("argv <- list(structure(1:20, .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim23_7d6bfc802870e148e3bc1b9d6b4ed77a() {
+ assertEval("argv <- list(structure(c(1, 0, -1, 0.5, -0.5, NA, NA, NA, 0), .Dim = c(3L, 3L)));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim24_2b8314a447ee0c197c0bdf4c104be2ad() {
+ assertEval("argv <- list(c(NA, NA, NA, NA, NA, 'Ripley', 'Venables & Smith'));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim25_8b62b4ee036d5eb0d569d7aad04ad2c4() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim26_d8acbcb0723d186f3891661bc92487f2() {
+ assertEval("argv <- list(structure(c(31.9624451639742, -0.0105001367774998, 0.669596455370805, 5.14945152173688, 4.36500574231155, 6.30517873115649, 2.15562516502081, 1.77361974340981, 1.31721464996217, -6.23951992881235, -3.14333173153233, 3.7074414096456, 0.619951366669834, -3.31636282291298, -1.38277940327151, -0.0105001367774998, 4.92314051157491e-06, -0.00208176000671443, -0.00393685976143421, -0.00306114840585819, -0.00304239831702958, -0.00360485387426285, -0.000776863531985863, -0.000930425548039592, 0.00177325947012459, 0.000873478088813267, -0.00222133591240768, -0.0010997058222662, 0.000971542840761233, 0.000408638350886089, 0.669596455370805, -0.00208176000671443, 6.25966104941131, 7.27107350691908, 7.1568051334171, 7.69164996000523, 6.38546846168565, 0.584255359868468, 0.425893553320666, -0.302152926219182, -0.539719353375365, 0.767832198930969, -0.0339253942409593, -0.954875198336619, -0.44454733172958, 5.14945152173688, -0.00393685976143421, 7.27107350691908, 16.9287891082998, 9.68170957680298, 10.1927925852141, 8.31848730773964, 0.0225771728679827, -0.13423885912137, -0.952279072677042, -1.28303151957048, -0.309366054071832, 0.277949783704086, -1.95357808926458, -1.1490330193693, 4.36500574231155, -0.00306114840585819, 7.1568051334171, 9.68170957680298, 10.6200372990959, 12.0025058084698, 7.09661626032293, 0.00831356355794886, -0.18522684338686, -1.13540989802495, -1.33382692805767, 0.308573868840132, -0.809762853334073, -1.09668270906855, -0.213078730283059, 6.30517873115649, -0.00304239831702958, 7.69164996000523, 10.1927925852141, 12.0025058084698, 17.4522685874698, 6.92295996047857, -0.125541819250371, -0.215552520930932, -1.84365094178865, -1.59654434238815, 0.684384781199279, -1.93856751571012, -1.02265709591595, -0.303713451023131, 2.15562516502081, -0.00360485387426285, 6.38546846168565, 8.31848730773964, 7.09661626032293, 6.92295996047857, 23.2114402831465, -0.28786423278137, 0.360665125986693, -0.292516552346824, -1.61368872459996, 0.400045448449001, 1.49305046916227, -1.52595532739395, -2.45569084011985, 1.77361974340981, -0.000776863531985863, 0.584255359868468, 0.0225771728679827, 0.00831356355794886, -0.125541819250371, -0.28786423278137, 3.63382138185307, 1.73220942447866, 0.201523343362283, 0.961824629517822, 2.18512927857691, -0.299291412368627, -0.222951433523371, 0.190518621032026, 1.31721464996217, -0.000930425548039592, 0.425893553320666, -0.13423885912137, -0.18522684338686, -0.215552520930932, 0.360665125986693, 1.73220942447866, 2.07264968016672, 0.409359459121014, 0.882002960805309, 1.87214770160952, 0.189008347036503, -0.266586895155729, -0.112011626327013, -6.23951992881235, 0.00177325947012459, -0.302152926219182, -0.952279072677042, -1.13540989802495, -1.84365094178865, -0.292516552346824, 0.201523343362283, 0.409359459121014, 2.48234483048294, 1.19369459724506, -0.189893084140488, 0.16622651987368, 0.28664359918476, -0.0113387579323685, -3.14333173153233, 0.000873478088813267, -0.539719353375365, -1.28303151957048, -1.33382692805767, -1.59654434238815, -1.61368872459996, 0.961824629517822, 0.882002960805309, 1.19369459724506, 2.16828149626507, 0.76585533428598, 0.0326711935947258, 0.375684864300291, 0.0175473410796721, 3.7074414096456, -0.00222133591240768, 0.767832198930969, -0.309366054071832, 0.308573868840132, 0.684384781199279, 0.400045448449001, 2.18512927857691, 1.87214770160952, -0.189893084140488, 0.76585533428598, 4.87998635701286, 0.240260053826388, 0.639583107689077, 1.24508720406537, 0.619951366669834, -0.0010997058222662, -0.0339253942409593, 0.277949783704086, -0.809762853334073, -1.93856751571012, 1.49305046916227, -0.299291412368627, 0.189008347036503, 0.16622651987368, 0.0326711935947258, 0.240260053826388, 1.27358692244222, -0.271133086074816, -0.61768767314107, -3.31636282291298, 0.000971542840761233, -0.954875198336619, -1.95357808926458, -1.09668270906855, -1.02265709591595, -1.52595532739395, -0.222951433523371, -0.266586895155729, 0.28664359918476, 0.375684864300291, 0.639583107689077, -0.271133086074816, 2.24773578295184, 2.00648977390012, -1.38277940327151, 0.000408638350886089, -0.44454733172958, -1.1490330193693, -0.213078730283059, -0.303713451023131, -2.45569084011985, 0.190518621032026, -0.112011626327013, -0.0113387579323685, 0.0175473410796721, 1.24508720406537, -0.61768767314107, 2.00648977390012, 3.44090885157986), .Dim = c(15L, 15L), .Dimnames = list(c('(Intercept)', 'Weight', 'Cylinders4', 'Cylinders5', 'Cylinders6', 'Cylinders8', 'Cylindersrotary', 'TypeLarge', 'TypeMidsize', 'TypeSmall', 'TypeSporty', 'TypeVan', 'EngineSize', 'DriveTrainFront', 'DriveTrainRear'), c('(Intercept)', 'Weight', 'Cylinders4', 'Cylinders5', 'Cylinders6', 'Cylinders8', 'Cylindersrotary', 'TypeLarge', 'TypeMidsize', 'TypeSmall', 'TypeSporty', 'TypeVan', 'EngineSize', 'DriveTrainFront', 'DriveTrainRear'))));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim27_d62086d348302132de1d2c85ee171e62() {
+ assertEval("argv <- list(structure(c(-3.001e+155, -1.067e+107, -1.976e+62, -9.961e+152, -2.059e+23, 1), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), class = 'table'));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim28_0f4bb02c9c34a1cda7dae0ffcb48a97c() {
+ assertEval("argv <- list(structure(1395082220.91387, class = c('POSIXct', 'POSIXt')));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim3_ede012d5bf21a72ae7446f0b9c30f51d() {
+ assertEval("argv <- list(structure(c(0.100837939896365, 0.100837939896365, -2.89916206010363, 1.10083793989637, 2.10083793989637, 15.3663689601092, 5.36636896010918, -15.5557367724452, 1.44426322755481, -15.5557367724452, -6.55573677244519, 2.44426322755481, -20.5557367724452, 3.41611550389052, 37.4161155038905, 8.41611550389052, 23.0292477138695, -29.9707522861305, 3.02924771386952, -25.9707522861305, 5.46163181127829, 1.46163181127829, 22.4616318112783, -11.5383681887217, 17.4616318112783, -24.5383681887217, 2.79509291794369, -19.2049070820563, -32.2049070820563, 10.7950929179437, -18.2049070820563, 17.7950929179437, 2.79509291794369, 25.7950929179437, 9.79509291794369, -3.77239539978251, 13.2276046002175, -0.772395399782511, 23.2276046002175, -2.77239539978251, 1.22760460021749, -12.7723953997825, 13.2276046002175, 7.22760460021749, 7.22760460021749, -36.8669529292102, 13.1330470707898, 12.1330470707898, -18.8669529292102, -7.86695292921016, -18.3408059382389, 14.7301967628363), .Dim = c(52L, 1L)));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim4_2339d5d8c715d2be6265e7cbaf617cb8() {
+ assertEval("argv <- list(structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c('Golden.rain', 'Marvellous', 'Victory'), class = 'factor', contrasts = 'contr.treatment'));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim5_ba5af3063254b246de00069ef5275c48() {
+ assertEval("argv <- list(structure(list(df = 10L, ss = 2.74035772634541, ms = 0.274035772634541, f = NA_real_, P = NA_real_), .Names = c('df', 'ss', 'ms', 'f', 'P'), row.names = c(NA, -1L), class = 'data.frame'));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim6_0ae19243562a055ec33747e2a211c538() {
+ assertEval("argv <- list(structure(list(File = c('GOusage.Rnw', 'annotate.Rnw', 'chromLoc.Rnw', 'prettyOutput.Rnw', 'query.Rnw', 'useDataPkgs.Rnw', 'useHomology.Rnw', 'useProbeInfo.Rnw'), Title = c('Basic GO Usage', 'Annotation Overview', 'HowTo: use chromosomal information', 'HowTo: Get HTML Output', 'HOWTO: Use the online query tools', 'Using Data Packages', 'Using the homology package', 'Using Affymetrix Probe Level Data'), PDF = c('GOusage.pdf', 'annotate.pdf', 'chromLoc.pdf', 'prettyOutput.pdf', 'query.pdf', 'useDataPkgs.pdf', 'useHomology.pdf', 'useProbeInfo.pdf'), Depends = list(c('GO.db', 'hgu95av2.db', 'Biobase'), c('Biobase', 'genefilter', 'annotate', 'hgu95av2.db'), c('annotate', 'hgu95av2.db'), c('annotate', 'hgu95av2.db'), c('annotate', 'hgu95av2.db'), c('hgu95av2.db', 'GO.db'), 'hom.Hs.inp.db', c('hgu95av2.db', 'rae230a.db', 'rae230aprobe', 'Biostrings')), Keywords = list(c('GO', 'ontology'), c('Expression Analysis', 'Annotation'), c('Expression Analysis', 'Annotation'), c('Expression Analysis', 'Annotation'), c('Expression Analysis', 'Annotation'), 'Annotation', 'Annotation', 'Annotation'), R = c('GOusage.R', 'annotate.R', 'chromLoc.R', 'prettyOutput.R', 'query.R', 'useDataPkgs.R', 'useHomology.R', 'useProbeInfo.R')), .Names = c('File', 'Title', 'PDF', 'Depends', 'Keywords', 'R'), row.names = c(NA, -8L), class = 'data.frame'));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim7_74c1ebb8d5d4a9c15d4b284551c0e68e() {
+ assertEval("argv <- list(c(2832L, 2836L, 2836L, 2833L, 2833L));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim8_d094ebb71c2f525a747f39dd7ef4d547() {
+ assertEval("argv <- list(structure(list(day = structure(1:6, .Label = c('2012-06-01', '2012-06-02', '2012-06-03', '2012-06-04', '2012-06-05', '2012-06-06', '2012-06-07'), class = 'factor')), .Names = 'day', row.names = c(1L, 5L, 9L, 13L, 17L, 21L), class = 'data.frame'));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindim_testdim9_9c9fcfe145be7317323510b1c1895def() {
+ assertEval("argv <- list(c(NA, NA, '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R'));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimassign_testdimassign1_3eead01e130c9d1d0b1ec749a83e79c2() {
+ assertEval("argv <- list(structure(c(300, 3000, 400, 4000), .Dim = c(2L, 2L, 1L)), value = c(2, 2, 1));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimassign_testdimassign10_f061f5e4e077d48fa7f9fcb163102022() {
+ assertEval("argv <- list(structure(c(1, 0.870865388077469, -0.224541709419829, -0.331803324650025, -0.493630926048296, -0.413999601257247, 0.00943216495885559, -0.569185666759019, 0.183501080823027, -0.658299946719611, -0.563901271084431, -0.104454834691276, 0.715158727414282, -0.0805825981616209, -0.773816895694757, -0.253034783981378, -0.783775136777695, -0.439357063536005, -0.941680494841322, 0.227158249206389, -0.50752863656701, -0.0658964161620369, -0.0689244902651806, 0.185611518464636, 0.378167766177418, -0.0629003710494349, 0.487507055153686, -0.148876486655171), .Dim = c(1L, 28L)), value = c(1, 28));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimassign_testdimassign11_70bfb5d8e830bdd4b6b23b9e8f39a2eb() {
+ assertEval("argv <- list(structure(NA, .Dim = c(1L, 1L)), value = c(1L, 1L));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimassign_testdimassign2_179396ed607465d5099dd6183bdfe3a5() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 0L)), value = c(0L, 0L));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimassign_testdimassign3_23de6f8b26a12ea0166df91fdae43298() {
+ assertEval("argv <- list(structure(1:12, .Dim = 12L), value = 12L);`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimassign_testdimassign4_c28644b1576feb38f0fb71ea8b49996c() {
+ assertEval("argv <- list(structure(list(1:3, 4:6, 3.14159265358979, c('a', 'b', 'c')), .Dim = c(2L, 2L)), value = c(2, 2));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimassign_testdimassign5_1e03916cb62f6bb0e9d7b2d2f163c66f() {
+ assertEval("argv <- list(structure(list(NULL, NULL, NULL, NULL, NULL, NULL), .Dim = 2:3), value = c(2, 3));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimassign_testdimassign6_eecec1df4c04a202c8ed7f2c0b42d49c() {
+ assertEval("argv <- list(structure(list(1L, 3.14159265358979, 3+5i, 'testit', TRUE, structure(1L, .Label = 'foo', class = 'factor')), .Dim = c(1L, 6L)), value = c(1, 6));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimassign_testdimassign7_1583db6ffa1027613c4879b74aa827a7() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4), value = 3:4);`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimassign_testdimassign8_6a4f2e50c1edf9a2e317a8810f1618b7() {
+ assertEval("argv <- list(NULL, NULL);`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimassign_testdimassign9_4c2875c3873ef5256c0b15362aec5209() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 1L, 2L, 3L, 4L, 5L, 6L, 7L), .Dim = c(3L, 4L, 2L)), value = c(3, 4, 2));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames1_ac4c6d82d6be6eadd7ea07b592d0882d() {
+ assertEval("argv <- list(structure(c(4L, 3L, 2L, 1L, 2L), .Label = c('0.6', '0.8', 'Area Examined', 'C2'), class = 'factor'));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames10_da41734c9ce715711b88d9e542001083() {
+ assertEval("argv <- list(structure(list(Ozone = c(41L, 36L, 12L, 18L, NA, 28L, 23L, 19L, 8L, NA, 7L, 16L, 11L, 14L, 18L, 14L, 34L, 6L, 30L, 11L, 1L, 11L, 4L, 32L, NA, NA, NA, 23L, 45L, 115L, 37L), Solar.R = c(190L, 118L, 149L, 313L, NA, NA, 299L, 99L, 19L, 194L, NA, 256L, 290L, 274L, 65L, 334L, 307L, 78L, 322L, 44L, 8L, 320L, 25L, 92L, 66L, 266L, NA, 13L, 252L, 223L, 279L), Wind = c(7.4, 8, 12.6, 11.5, 14.3, 14.9, 8.6, 13.8, 20.1, 8.6, 6.9, 9.7, 9.2, 10.9, 13.2, 11.5, 12, 18.4, 11.5, 9.7, 9.7, 16.6, 9.7, 12, 16.6, 14.9, 8, 12, 14.9, 5.7, 7.4), Temp = c(67L, 72L, 74L, 62L, 56L, 66L, 65L, 59L, 61L, 69L, 74L, 69L, 66L, 68L, 58L, 64L, 66L, 57L, 68L, 62L, 59L, 73L, 61L, 61L, 57L, 58L, 57L, 67L, 81L, 79L, 76L), Month = c(5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L), Day = 1:31, Oz.Z = c(0.782229292792786, 0.557251841325834, -0.522639925715534, -0.252666983955192, NA, 0.197287918978711, -0.0276895324882403, -0.207671493661802, -0.702621886889095, NA, -0.747617377182486, -0.342657964541973, -0.567635416008924, -0.432648945128753, -0.252666983955192, -0.432648945128753, 0.467260860739053, -0.792612867475876, 0.287278899565492, -0.567635416008924, -1.01759031894283, -0.567635416008924, -0.882603848062657, 0.377269880152273, NA, NA, NA, -0.0276895324882403, 0.962211253966347, 4.11189557450367, 0.602247331619224)), .Names = c('Ozone', 'Solar.R', 'Wind', 'Temp', 'Month', 'Day', 'Oz.Z'), row.names = c(NA, 31L), class = 'data.frame'));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames11_f44840df0061cd2baa8b1ca6f6ae5e28() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames12_8b6d7112561e7cdfaf4fd26ab613c1b3() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 4L), .Dimnames = list(NULL, c('Estimate', 'Std. Error', 't value', 'Pr(>|t|)'))));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames13_5294693d3ce3c30011a963b4169ac0e8() {
+ assertEval("argv <- list(structure(c(1.00000000141919, 1.00000000141919, 1.00000000141919, 1.00000000141919, 1.00000000141919, 1.00000003943081, 0.999999963407572, 1.00000003943081, 0.999999887384338, 0.999999887384338, 1.00000110375608, 0.999998671012596, 1.00000353649956, 0.999993805525628, 1.0000132674735, 0.999993805525628, 0.999954881629886, 1.00003272942137, 1.00018842500434, 1.00018842500434, 0.998942860340576, 0.998942860340576, 1.00143398966811, 1.00641624832317, 0.996451731013043, 0.996451731013043, 0.996451731013043, 0.956593661772521, 1.11602593873461, 0.956593661772521, 0.637729107848348, 1.2754582156967, 0, 5.10183286278678, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.94013552497596, 3.76412613616612, 7.30291496677768, 14.1686451539795, 27.4890922070583, 53.3325661305982, 103.472408672272, 200.750502109581, 389.483191189237, 755.650202381997, 1466.06384193569, 2844.36258373045, 5518.44906703615, 10706.5393765913, 20772.1380196383, 40300.7636161042, 78188.9463884664, 151697.155845212, 294313.049942543, 571007.218374244, 1107831.42112573, 2149343.17429151, 4170017.13104157, 8090398.61389002, 15696470.311059, 30453280.1141634, 59083492.559312, 114629985.805561, 222397713.850125, 431481718.951103, 837133036.93017, 1624151587.48205, 3151074263.75394, 6113511302.83196, 11861040827.0204, 23012027206.5324, 44646452442.3573, 86620170794.9288, 168054874821.487, 326049245490.904, 632579733498.458, 1227290450360.24, 2381109863489.76, 4619676014664.61, 8962797733853.2, 17389042711398.3, 33737100912048.4, 65454549040847.5, 126990699928896, 246379175201939, 478009006423530, 927402279739830, 1799286146937082, 3490859083252747, 6772739936266967, 13140033736528760, 25493446790450148, 49460743386475336, 95960547120913696, 186176471759588736, 361207596842468544, 700791709787994368, 1359630936550262016, 2637868362903399936, 5117822236182886400, 9929268960054196224, 19264127970060791808, 37375020125774807040, 72512606973297393664, 1.40684287014036e+20, 2.7294659047997e+20, 5.29553390729944e+20, 1.02740538360686e+21, 1.99330573047582e+21, 3.86728338996836e+21, 7.50305404171627e+21, 1.45569421000466e+22, 2.82424412804067e+22, 5.47941653460064e+22, 1.06308109216746e+23, 2.06252146205912e+23, 4.00157124688985e+23, 7.76359070435321e+23, 1.50624186823988e+24, 2.9223134410489e+24, 5.66968428254813e+24, 1.09999562078627e+25, 2.13414063286361e+25, 4.14052220754691e+25, 8.03317433205064e+25, 1.55854473744651e+26, 3.02378808245954e+26, 5.8665589378512e+26, 1.1381919629553e+27, 2.20824672789753e+27, 4.28429802210817e+27, 8.31211904202342e+27, 1.6126637849175e+28, 3.12878639712715e+28, 6.07026977774323e+28, -1.69869203952449, -6.59138547321901, -19.1822720729097, -49.6216113971901, -120.340815686727, -280.172995242172, -634.16918707159, -1406.14196698717, -3069.11929954479, -6616.11942037001, -14119.7855095835, -29884.6887074354, -62812.0433183954, -131238.022320374, -272806.670597037, -564567.387887297, -1163795.8381508, -2390740.65186453, -4896047.65118829, -9998943.37840444, -20369271.0188994, -41401011.400719, -83974646.5467737, -170005771.46876, -343577337.860415, -693250079.585253, -1396729874.79437, -2810209917.82931, -5646909305.11788, -11333554766.2687, -22721587164.2141, -45504990439.9914, -91044782407.2254, -181991924578.337, -363473977210.141, -725337050553.89, -1446342551648.47, -2881941162160.65, -5738497521398.03, -11418936575319.8, -22708142164275.2, -45131432245311.6, -89645884346409.8, -177969941625094, -353133219287688, -700351348689777, -1388315183960579, -2750828581307066, -5448167546359572, -10785901526178346, -21344633431230288, -42223472396959864, -83494631109252016, -165047335865753888, -326144099824872960, -644268556323104896, -1272289222665704960, -2511719077288045568, -4957094068295422976, -9780441891046391808, -1.9291639356539e+19, -38041976425069862912, -74997019625717596160, -1.47813980522732e+20, -2.91260085798056e+20, -5.73777646929122e+20, -1.13007319819804e+21, -2.22521899361014e+21, -4.38071519248462e+21, -8.62235781974388e+21, -1.69675222834625e+22, -3.33829458816692e+22, -6.56669878434099e+22, -1.2914810481395e+23, -2.53950840681221e+23, -4.99268379737403e+23, -9.81393715458217e+23, -1.92876460684381e+24, -3.79004004348997e+24, -7.44626980645141e+24, -1.46273574426805e+25, -2.87294154406129e+25, -5.64187042306716e+25, -1.10778729236262e+26, -2.1748439290622e+26, -4.26913311245721e+26, -8.37900750248964e+26, -1.64432657900359e+27, -3.22646894393502e+27, -6.33012184999843e+27, -1.24177532894999e+28, -2.4356873672908e+28, -4.77692848222753e+28, -9.36754365223252e+28, -1.83676481719521e+29, -3.60108404728876e+29, -7.05936824038065e+29, -1.38373288587828e+30, -2.71202352823357e+30, -5.31484173040654e+30), .Dim = c(100L, 3L)));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames14_b6a8bb5d4f6e9806cd71dda17a40f422() {
+ assertEval("argv <- list(structure(c(0.0267062896727757, 0.0288568829806391, 0.0492797675063702, -0.0572758706635325, 0.0323212080834915, 0.0153959090462038, -0.0926263811460125, 0.063635852899097, -0.0487298690847772, 0.0550557154550753, -0.0198673280094324, -0.0926263811460125, 0.0140766975562449, 0.0582283948223117, 0.00131213541438663, 0.091788691086849, -0.047804624481445, 0.0620410336020094, -0.0572622511611348, 0.0287132484691924, -0.083909175260886, -0.078402304235417, 0.0355405280997754, 0.0717493130601819, -0.0215453924782896, 0.0433187167027035, -0.0391463972547204, 0.0355405280997753, -0.101433295142967, -0.0534964348088565, -0.0100532600167173, 0.115085165377514), .Dim = c(16L, 2L), .Dimnames = list(structure(c('M1', 'M2', 'M4', 'M5', 'BF', 'HF', 'NM', 'SF', 'U1', 'U2', 'U3', 'C0', 'C1', 'C2', 'C3', 'C4'), .Names = c('Mois1', 'Mois2', 'Mois3', 'Mois4', 'Manag1', 'Manag2', 'Manag3', 'Manag4', 'Use1', 'Use2', 'Use3', 'Manure1', 'Manure2', 'Manure3', 'Manure4', 'Manure5')), c('1', '2'))));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames15_39cfa2c447c2aa8ff0cdf28a265261f1() {
+ assertEval("argv <- list(structure('foo', .Dim = c(1L, 1L), .Dimnames = list(NULL, structure('object', simpleOnly = TRUE))));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames16_4066274e36828142845cd4a81fcd34a2() {
+ assertEval("argv <- list(structure(c('4.1-0', '4.1-0', '4.1-0', '4.1-0', '4.1-0', '4.1-0', '4.0-3', '4.0-3', '4.0-3', '4.0-3', '4.0-3', '4.0-2', '4.0-2', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '3.1-55', '3.1-55', '3.1-55', '3.1-54', '3.1-53', '3.1-53', '3.1-52', '3.1-51', NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 'The C and R code has been reformatted for legibility.', 'The old compatibility function rpconvert() has been removed.', 'The cross-validation functions allow for user interrupt at the end\nof evaluating each split.', 'Variable Reliability in data set car90 is corrected to be an\nordered factor, as documented.', 'Surrogate splits are now considered only if they send two or more\ncases _with non-zero weight_ each way. For numeric/ordinal\nvariables the restriction to non-zero weights is new: for\ncategorical variables this is a new restriction.', 'Surrogate splits which improve only by rounding error over the\ndefault split are no longer returned. Where weights and missing\nvalues are present, the splits component for some of these was not\nreturned correctly.', 'A fit of class \'rpart\' now contains a component for variable\n‘importance’, which is reported by the summary() method.', 'The text() method gains a minlength argument, like the labels()\nmethod. This adds finer control: the default remains pretty =\nNULL, minlength = 1L.', 'The handling of fits with zero and fractional weights has been\ncorrected: the results may be slightly different (or even\nsubstantially different when the proportion of zero weights is\nlarge).', 'Some memory leaks have been plugged.', 'There is a second vignette, longintro.Rnw, a version of the\noriginal Mayo Tecnical Report on rpart.', 'Added dataset car90, a corrected version of the S-PLUS dataset\ncar.all (used with permission).', 'This version does not use paste0{} and so works with R 2.14.x.', 'Merged in a set of Splus code changes that had accumulated at Mayo\nover the course of a decade. The primary one is a change in how\nindexing is done in the underlying C code, which leads to a major\nspeed increase for large data sets. Essentially, for the lower\nleaves all our time used to be eaten up by bookkeeping, and this\nwas replaced by a different approach. The primary routine also\nuses .Call{} so as to be more memory efficient.', 'The other major change was an error for asymmetric loss matrices,\nprompted by a user query. With L=loss asymmetric, the altered\npriors were computed incorrectly - they were using L' instead of L.\nUpshot - the tree would not not necessarily choose optimal splits\nfor the given loss matrix. Once chosen, splits were evaluated\ncorrectly. The printed “improvement” values are of course the\nwrong ones as well. It is interesting that for my little test\ncase, with L quite asymmetric, the early splits in the tree are\nunchanged - a good split still looks good.', 'Add the return.all argument to xpred.rpart().', 'Added a set of formal tests, i.e., cases with known answers to\nwhich we can compare.', 'Add a usercode vignette, explaining how to add user defined\nsplitting functions.', 'The class method now also returns the node probability.', 'Add the stagec data set, used in some tests.', 'The plot.rpart routine needs to store a value that will be visible\nto the rpartco routine at a later time. This is now done in an\nenvironment in the namespace.', 'Force use of registered symbols in R >= 2.16.0', 'Update Polish translations.', 'Work on message formats.', 'Add Polish translations', 'rpart, rpart.matrix: allow backticks in formulae.', 'tests/backtick.R: regession test', 'src/xval.c: ensure unused code is not compiled in.', 'Change description of margin in ?plot.rpart as suggested by Bill\nVenables.'), .Dim = c(29L, 4L)));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames17_8f0c8cf3ab42a2546f5981ddaaef2141() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, -1.43884556914512e-134, 0, 0, 0, -7.95468296571581e-252, 1.76099882882167e-260, 0, -9.38724727098368e-323, -0.738228974836154, 0, 0, 0, 0, 0, 0, 0, 0, 0, -6.84657791618065e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.05931985100232e-174, 0, -3.41789378681991e-150, 0, 0, 0, 0, -1.07225492686949e-10, 0, 1.65068934474523e-67, 0, -6.49830035279282e-307, 0, 5.83184963977238e-90, 0, -9.81722610183938e-287, 6.25336419454196e-54, 0, 0, 0, -1.72840591500382e-274, 1.22894687952101e-13, 0.660132850077566, 0, 0, 7.79918925397516e-200, -2.73162827952857e-178, 1.32195942051179e-41, 0, 0, 0, 0, 2.036057023761e-45, -3.40425060445074e-186, 1.59974269220388e-26, 0, 6.67054294775317e-124, 0.158503117506202, 0, 0, 0, 0, 0, 0, 3.42455724859116e-97, 0, 0, -2.70246891320217e-272, 0, 0, -3.50562438899045e-06, 0, 0, 1.35101732326608e-274, 0, 0, 0, 0, 0, 0, 0, 7.24580295957621e-65, 0, -3.54887341172294e-149, 0, 0, 0, 0, 0, 0, 0, 0, 1.77584594753563e-133, 0, 0, 0, 2.88385135688311e-250, 1.44299633616158e-259, 0, 1.56124744085834e-321, 1.63995835868977, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.01050064173383e-122, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.64868196850938e-172, 0, 6.28699823828692e-149, 0, 0, 0, 0, 5.0552295590188e-09, 0, 2.30420733561404e-66, 0, 7.0823279075443e-306, 0, 2.05009901740696e-88, 0, 7.41800724282869e-285, 7.18347043784483e-53, 0, 0, 0, 1.04251223075649e-273, 9.75816316577433e-13, 4.29519957592147, 0, 0, 1.33541454912682e-198, 2.34606233784019e-176, 8.38236726536896e-41, 0, 0, 0, 0, 1.35710537434521e-43, 1.15710503176511e-185, 1.25601735272233e-25, 0, 4.46811655846376e-123, 4.4196641795634, 0, 0, 0, 0, 0, 0, 3.74179015251531e-93, 0, 0, 3.62662047836582e-271, 0, 0, 1.26220330674453e-05, 0, 0, 1.72715562657338e-273, 0, 0, 0, 0, 0, 0, 0, 5.46372806810809e-64, 0, 2.47081972486962e-148, 0, 0, 0), .Dim = c(100L, 2L)));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames18_04ea7e0965e5d50325e7f2cb47d24b91() {
+ assertEval("argv <- list(structure(list(Ozone = c(39L, 9L, 16L, 78L, 35L, 66L, 122L, 89L, 110L, NA, NA, 44L, 28L, 65L, NA, 22L, 59L, 23L, 31L, 44L, 21L, 9L, NA, 45L, 168L, 73L, NA, 76L, 118L, 84L, 85L), Solar.R = c(83L, 24L, 77L, NA, NA, NA, 255L, 229L, 207L, 222L, 137L, 192L, 273L, 157L, 64L, 71L, 51L, 115L, 244L, 190L, 259L, 36L, 255L, 212L, 238L, 215L, 153L, 203L, 225L, 237L, 188L), Wind = c(6.9, 13.8, 7.4, 6.9, 7.4, 4.6, 4, 10.3, 8, 8.6, 11.5, 11.5, 11.5, 9.7, 11.5, 10.3, 6.3, 7.4, 10.9, 10.3, 15.5, 14.3, 12.6, 9.7, 3.4, 8, 5.7, 9.7, 2.3, 6.3, 6.3), Temp = c(81L, 81L, 82L, 86L, 85L, 87L, 89L, 90L, 90L, 92L, 86L, 86L, 82L, 80L, 79L, 77L, 79L, 76L, 78L, 78L, 77L, 72L, 75L, 79L, 81L, 86L, 88L, 97L, 94L, 96L, 94L), Month = c(8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L), Day = 1:31, Oz.Z = c(-0.528248463997741, -1.28427378861836, -1.10786787954022, 0.454584458009066, -0.629051840613824, 0.152174328160817, 1.56342160078598, 0.731793743703293, 1.26101147093773, NA, NA, -0.402244243227638, -0.805457749691969, 0.126973484006797, NA, -0.956662814616093, -0.0242315809173275, -0.931461970462072, -0.729855217229907, -0.402244243227638, -0.981863658770114, -1.28427378861836, NA, -0.377043399073617, 2.72266043187093, 0.328580237238962, NA, 0.404182769701024, 1.46261822416989, 0.60578952293319, 0.63099036708721)), .Names = c('Ozone', 'Solar.R', 'Wind', 'Temp', 'Month', 'Day', 'Oz.Z'), row.names = 93:123, class = 'data.frame'));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames19_779659f57349d1262608b25317f10391() {
+ assertEval("argv <- list(structure(c(28L, 138L, 16L), .Dim = 3L, .Dimnames = structure(list(object = c('FALSE', 'TRUE', NA)), .Names = 'object'), class = 'table'));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames2_528bb8f75bffaf611d9b24a4e9226dc5() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 56.989995924654, 56.989995924654, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 109.608811230383, 109.608811230383, 109.608811230383, 107.478028232287, 107.478028232287, 107.478028232287, 107.478028232287, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 10.7055301785859, 0, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 0.914597467778369, 0.914597467778369, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.599195286063472, 0.599195286063472, 0.599195286063472, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0202635232425103, 2.60032456603692e-08, 0, 0, 0, 0, 0, 0.165626203544259, 0.165626203544259, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.503396799290371, 0.503396799290371, 0.503396799290371, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.984387422945875, 0.999999996451695), .Dim = c(52L, 3L)));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames20_1573415146735e089dae921ddf40c88f() {
+ assertEval("argv <- list(structure(c('myTst', 'myLib', '1.0', NA, 'methods', NA, NA, NA, NA, 'What license is it under?', NA, NA, NA, NA, NA, NA, '3.0.1'), .Dim = c(1L, 17L), .Dimnames = list('ret0', c('Package', 'LibPath', 'Version', 'Priority', 'Depends', 'Imports', 'LinkingTo', 'Suggests', 'Enhances', 'License', 'License_is_FOSS', 'License_restricts_use', 'OS_type', 'Archs', 'MD5sum', 'NeedsCompilation', 'Built'))));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames21_c04fd9b9915522614a7bfc6b06ffd8f2() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1, 1, 2), Deviance = c(12.2441566485997, 32.825622681839, 8.44399377410362, 11.9670615295804), AIC = c(73.9421143635373, 92.5235803967766, 72.1419514890412, 77.665019244518)), .Names = c('Df', 'Deviance', 'AIC'), row.names = c('<none>', '- M.user', '+ Temp', '+ Soft'), class = c('anova', 'data.frame')));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames22_b1374989046d10e736aafe896ba59c94() {
+ assertEval("argv <- list(structure(c(1L, 2L, 1L), .Dim = 3L, .Dimnames = structure(list(c('1', '2', NA)), .Names = ''), class = 'table'));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames23_9993a9a887ae4731beb68f1275e4127b() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Dim = c(10L, 2L), .Dimnames = list(NULL, c('tt', 'tt + 1')), .Tsp = c(1920.5, 1921.25, 12), class = c('mts', 'ts', 'matrix')));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames24_352a6cb0fa893c457c3141a4e1621e96() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 2L, 1L, NA), .Label = c('no', 'yes'), class = 'factor'));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames26_8daa46dd266ca3124ee14488675413db() {
+ assertEval("argv <- list(structure(c(-15.7095066647243, 0.26727943386171, 0.297238382214578, 0.257897591876632, 0.340108731286838, 0.236310380889319, 0.317311605722827, 0.262866287094154, 0.338086383499512, 0.234905236792884, 0.325336667185977, 0.218927692395608, -7.51574917378772, 7.84743436370915, -0.381048703752012, -0.330615253498497, 0.244844953659604, 0.170120314286586, -0.406781840034597, -0.336984938523255, 0.243389061455961, 0.169108748250409, -0.417069674483433, -0.280657271719851, -5.36168424071406, 0.204399594459056, 7.44580265802875, 0.18731755950565, -0.56882795084156, -0.395226400731518, -0.439007571789656, -0.363681278343691, 0.147865047400615, 0.10273786720867, 0.236300269698257, 0.159012733501467, -5.07819471343419, -0.0276453301370831, -3.65602301353979, 6.37342950130462, 0.0099206539914638, 0.0068929530698134, 0.118301269982087, 0.0980027677458417, -0.620575419067553, -0.431180972906935, -0.48536920518568, -0.326617841666301), .Dim = c(12L, 4L), .Dimnames = list(c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), c('(Intercept)', 'M.userY', 'SoftMedium', 'SoftSoft'))));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames3_18d9ddea3bae17f431f776f1a5921678() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE), .Dim = c(3L, 1L)));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames4_8f24676d18287d5905f7a39929d537bc() {
+ assertEval("argv <- list(structure(c(NA, 1, 2, 5.65604443125997, 8.44399377410362, 5.49523049516867, 71.3540021461976, 72.1419514890413, 75.1931882101063), .Dim = c(3L, 3L), .Dimnames = list(c('<none>', '- M.user:Temp', '+ Soft'), c('Df', 'Deviance', 'AIC'))));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames5_bc4751c067ac8fd0cbb06c71788dedff() {
+ assertEval("argv <- list(structure(c(0.0495149735282523, -0.108383943640066, 0.077846206317523, -0.0237949779538032, 0.00481774174809338, -0.108383943640066, 0.280303242453237, -0.276080245636638, 0.130604235856321, -0.0264432890328551, 0.077846206317523, -0.276080245636638, 0.443183251704797, -0.364557026828347, 0.119607814442664, -0.0237949779538032, 0.130604235856321, -0.364557026828347, 0.44886505191838, -0.191117282992552, 0.00481774174809338, -0.0264432890328551, 0.119607814442664, -0.191117282992552, 0.0931350158346494), .Dim = c(5L, 5L)));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames6_b57e2b4318ce1f3796fcaec016ccd382() {
+ assertEval("argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames7_cae169d9a5ebf5191a1dd46561c4679a() {
+ assertEval("argv <- list(structure(c(13.0879058831551, -0.0481782079188499, 0.0648397936975344, -0.0703016880559154, -0.433062454113996, -0.000149473169823967, -16.3229386445345, -0.0481782079188499, 1.42936577525521, 0.00346026862477374, 0.000168722552167122, -0.00850959684180395, -9.2926002743558e-06, -1.44812039916227, 0.0648397936975344, 0.00346026862477374, 0.0649221455479854, 1.50206888047831e-06, 0.0303152177308945, -5.59890220792902e-06, -0.238079760031664, -0.0703016880559154, 0.000168722552167122, 1.50206888047831e-06, 0.00876007504795771, 0.000744776618395879, -6.15610217329725e-06, -0.0811419414051802, -0.433062454113996, -0.00850959684180395, 0.0303152177308945, 0.000744776618395879, 10.728754385628, -6.46786616103191e-05, -11.116657381748, -0.000149473169823967, -9.2926002743558e-06, -5.59890220792902e-06, -6.15610217329725e-06, -6.46786616103191e-05, 0.00193527894824396, -0.000812297378584339, -16.3229386445345, -1.44812039916227, -0.238079760031664, -0.0811419414051802, -11.116657381748, -0.000812297378584339, 249.99918229946), .Dim = c(7L, 7L)));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames8_28f564b6e9cdfd539566df046ae8ab02() {
+ assertEval("argv <- list(structure(list(visible = c(TRUE, TRUE, TRUE, TRUE, TRUE), from = structure(c(2L, 2L, 2L, 2L, 2L), .Label = c('CheckExEnv', 'package:base', 'package:datasets', 'package:graphics', 'package:grDevices', 'package:methods', 'package:stats', 'package:utils'), class = 'factor')), .Names = c('visible', 'from'), row.names = c('[[.data.frame', '[[.Date', '[[.factor', '[[.numeric_version', '[[.POSIXct'), class = 'data.frame'));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnames_testdimnames9_2c360797a364c449c337f5e3bff63e90() {
+ assertEval("argv <- list(structure(c(-0.148741651280925, -0.200659450546418, -0.0705810742857073, -0.356547323513813, -0.214670164989233, -0.161150909262745, -0.0362121726544447, -0.259637310505756, -0.142667503568732, -0.113509274827518, -0.0362121726544447, -0.221848749616356, -0.0809219076239261, -0.0969100130080564, 0, -0.113509274827518, -0.0362121726544447, 0, 0.0934216851622351, 0, 0.0644579892269184, 0.113943352306837, 0.161368002234975, 0.0969100130080564, 0.100370545117563, 0.139879086401236, 0.269512944217916, 0.193124598354462, 0.184691430817599, 0.201397124320452, 0.262451089730429, 0.269512944217916, 0.184691430817599, 0.315970345456918, 0.369215857410143, 0.352182518111362, 0.334453751150931, 0.385606273598312, 0.431363764158987, 0.352182518111362, 0.445604203273598, 0.534026106056135, 0.56702636615906, 0.556302500767287, 0.556302500767287, 0.635483746814912, 0.635483746814912, 0.607455023214668, 0.686636269262293, 0.702430536445525, 0.702430536445525, 0.644438589467839, 0.746634198937579, 0.76715586608218, 0.817565369559781, 0.725094521081469, 0.780317312140151, 0.8055008581584, 0.840733234611807, 0.76715586608218, 0.840733234611807, 0.888740960682893, 0.893761762057943, 0.786751422145561, 0.888740960682893, 0.949877704036875, 0.91803033678488, 0.835056101720116, 0.979548374704095, 1.0111473607758, 0.979548374704095, 0.94101424370557, 1.07481644064517, 1.08134730780413, 1.08457627793433, 0.949877704036875, 1.14736710779379, 1.11260500153457, 1.17172645365323, 0.999565488225982, 1.20951501454263, 1.16643011384328, 1.20466251174822, 1.06483221973857, -0.159187512164844, -0.175393808396786, -0.187687755757946, -0.207642507026642, -0.198621515607727, -0.176754605786408, -0.158836651491979, -0.149428697683695, -0.140952828307713, -0.131024527567456, -0.123872539048553, -0.114280817787828, -0.0994047163123464, -0.087368495856282, -0.0695543741081212, -0.0471907302590792, -0.0252858368758202, -0.00046875732235226, 0.0256791224090317, 0.0513817320777501, 0.0766209131410961, 0.0968522890603896, 0.10926580806596, 0.12423159770419, 0.140017729684574, 0.160995251972733, 0.186207523410629, 0.20145502677125, 0.212779940301236, 0.218492043424262, 0.230096897140732, 0.249642407137453, 0.267032743986859, 0.296832600908836, 0.324482776968729, 0.34857076887723, 0.365213423984069, 0.378158595546285, 0.395931013687348, 0.419646007489754, 0.460582747648703, 0.501139500862399, 0.536421474743013, 0.565667794936187, 0.583727648968917, 0.604807814936374, 0.625205889668605, 0.647621016647276, 0.667938096838737, 0.680279300032779, 0.691704012845436, 0.70875844749856, 0.731043761734682, 0.751082618736354, 0.768818358528044, 0.778037539482349, 0.783883770017724, 0.793567437831882, 0.808497952330164, 0.824527436015885, 0.837662628092942, 0.850394585087975, 0.86126020516377, 0.869685339227116, 0.881257746828503, 0.896341202762879, 0.909788792806972, 0.926007182864941, 0.946255773007512, 0.966071629523008, 0.986442844639348, 1.01212132840619, 1.03013203323943, 1.04537749097574, 1.05767268306294, 1.06939407179363, 1.08529788756315, 1.10060754122045, 1.11720247611807, 1.12845012932749, 1.1415063364534, 1.15405124613828, 1.16739846403236, 1.18260472251233, -0.500829194148537, -0.52138894326571, -0.395290556425639, -0.612473674589852, -0.501276350125614, -0.491690167245187, -0.390354415846618, -0.612811414694937, -0.50108691493379, -0.487593021259144, -0.410519772822145, -0.60198159752223, -0.486883827608277, -0.503288363976579, -0.42574385459525, -0.568147157695982, -0.507959098850015, -0.498398837847198, -0.433186387433784, -0.55201418458838, -0.518671455596172, -0.493155285150245, -0.444313944722341, -0.526234257426627, -0.532725645126928, -0.515368327315997, -0.429924874711845, -0.513474228757053, -0.535827355681639, -0.509755301472591, -0.457834384119355, -0.484020307382735, -0.566550518367581, -0.484439669223823, -0.460465869949124, -0.506741194861463, -0.536243725945176, -0.486859832443798, -0.457576573769744, -0.545126578784142, -0.515794992319117, -0.47384137864798, -0.476642594236321, -0.523341985476231, -0.522293038769951, -0.469249989654994, -0.486003635866052, -0.541938916235621, -0.49102139505142, -0.478259440132195, -0.481086490677911, -0.556698657805247, -0.48671796302777, -0.486157330493723, -0.461848039861244, -0.556823945253764, -0.498054862552783, -0.480860984756722, -0.4661755221955, -0.561135228990277, -0.497359948541683, -0.46413941340098, -0.470914891619888, -0.579021563367855, -0.488243746349874, -0.449175409103654, -0.488562751281115, -0.586017616755797, -0.467647247160106, -0.454360847750584, -0.499693656171344, -0.581118529375087, -0.458579410956407, -0.467570268776559, -0.473550583747953, -0.613665700345632, -0.438534120752666, -0.486034341320657, -0.452438304433326, -0.626272401483727, -0.43259461595065, -0.48652221719006, -0.460246994058915, -0.618889869869875), .Dim = c(84L, 3L), .Dimnames = list(NULL, c('JJ', 'sm[, 1]', 'sm[, 3] - 0.5')), .Tsp = c(1960, 1980.75, 4), class = c('mts', 'ts', 'matrix')));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign1_85a4bcd14ac2f0302bbcd5b6ee789a64() {
+ assertEval("argv <- list(structure(c(300, 3000, 400, 4000), .Dim = c(2L, 2L, 1L), .Dimnames = list(c('happy', 'sad'), NULL, '')), value = list(c('happy', 'sad'), NULL, ''));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign10_fecdd3f25422c943a3c93559f1d67428() {
+ assertEval("argv <- list(structure(1:9, .Dim = c(3L, 3L), .Dimnames = list(c('x', 'y', NA), c('1', NA, '3'))), value = list(c('x', 'y', NA), c('1', NA, '3')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign11_195379d284b3534b1d8ca733a2a27f13() {
+ assertEval("argv <- list(structure(c(0-0.5i, 0-0.577350269189626i, 0-0.707106781186548i, 0-1i, Inf+0i, 1+0i, 0.707106781186548+0i, 0.577350269189626+0i, 0.5+0i, 0.447213595499958+0i, 0.408248290463863+0i, 0.377964473009227+0i, 0.353553390593274+0i, 0.333333333333333+0i, 0.316227766016838+0i, 0.301511344577764+0i, 0.288675134594813+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 0+2i, 0+1.73205080756888i, 0+1.41421356237309i, 0+1i, 0+0i, 1+0i, 1.41421356237309+0i, 1.73205080756888+0i, 2+0i, 2.23606797749979+0i, 2.44948974278318+0i, 2.64575131106459+0i, 2.82842712474619+0i, 3+0i, 3.16227766016838+0i, 3.3166247903554+0i, 3.46410161513775+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, 0-8i, 0-5.19615242270663i, 0-2.82842712474619i, 0-1i, 0+0i, 1+0i, 2.82842712474619+0i, 5.19615242270663+0i, 8+0i, 11.1803398874989+0i, 14.6969384566991+0i, 18.5202591774521+0i, 22.6274169979695+0i, 27+0i, 31.6227766016838+0i, 36.4828726939094+0i, 41.5692193816531+0i, 16+0i, 9+0i, 4+0i, 1+0i, 0+0i, 1+0i, 4+0i, 9+0i, 16+0i, 25+0i, 36+0i, 49+0i, 64+0i, 81+0i, 100+0i, 121+0i, 144+0i), .Dim = c(17L, 6L), .Dimnames = structure(list(c('-4', '-3', '-2', '-1', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12'), `^` = c('-0.5', '0', '0.5', '1', '1.5', '2')), .Names = c('', '^'))), value = structure(list(c('-4', '-3', '-2', '-1', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12'), `^` = c('-0.5', '0', '0.5', '1', '1.5', '2')), .Names = c('', '^')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign12_320da4e5ed35221c7e08dc50b8d5848d() {
+ assertEval("argv <- list(structure(list(fair = c(326L, 688L, 343L, 98L), red = c(38L, 116L, 84L, 48L), medium = c(241L, 584L, 909L, 403L), dark = c(110L, 188L, 412L, 681L), black = c(3L, 4L, 26L, 85L)), .Names = c('fair', 'red', 'medium', 'dark', 'black'), class = 'data.frame', row.names = c('blue', 'light', 'medium', 'dark')), value = list(c('blue', 'light', 'medium', 'dark'), c('F', 'R', 'M', 'D', 'B')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign13_a76c2982657b5ba62c5d7b8b5e1726a1() {
+ assertEval("argv <- list(structure(c(4L, 96L, 0L, 99L, 0L, 1L, 91L, 0L, 9L, 99L, 0L, 1L, 4L, 0L, 96L, 82L, 18L, 0L, 87L, 13L, 0L, 92L, 0L, 8L, 2L, 1L, 97L, 81L, 19L, 0L, 44L, 56L, 0L, 12L, 88L, 0L, 22L, 78L, 0L, 5L, 95L, 0L, 1L, 99L, 0L, 57L, 43L, 0L, 24L, 76L, 0L, 1L, 99L, 0L, 13L, 87L, 0L, 2L, 0L, 98L, 4L, 0L, 96L, 4L, 0L, 96L, 8L, 0L, 92L, 2L, 0L, 98L), .Dim = c(3L, 24L), .Dimnames = structure(list(cluster = c('1', '2', '3'), obs = c(' 30', ' 243', ' 245', ' 309', ' 562', ' 610', ' 708', ' 727', ' 770', '1038', '1081', '1120', '1248', '1289', '1430', '1610', '1644', '1683', '1922', '2070', '2380', '2662', '2821', '2983')), .Names = c('cluster', 'obs'))), value = structure(list(cluster = c('1', '2', '3'), obs = c(' 30', ' 243', ' 245', ' 309', ' 562', ' 610', ' 708', ' 727', ' 770', '1038', '1081', '1120', '1248', '1289', '1430', '1610', '1644', '1683', '1922', '2070', '2380', '2662', '2821', '2983')), .Names = c('cluster', 'obs')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign14_79176686a8205a5b942a062a6f6cdf29() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0), .Dim = c(2L, 2L), .Dimnames = list(NULL, c('A', 'B'))), value = list(NULL, c('A', 'B')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign15_2fec4a61520a7cdef28d061f2124d41e() {
+ assertEval("argv <- list(structure(c('NULL', 'double', 'integer', 'complex', 'list', 'list', 'pairlist', 'builtin', 'closure', 'symbol', 'symbol', 'language', 'language', 'symbol', 'symbol', 'NULL', 'double', 'integer', 'complex', 'list', 'list', 'pairlist', 'function', 'function', 'symbol', 'symbol', 'language', 'language', 'symbol', 'symbol', 'NULL', 'numeric', 'numeric', 'complex', 'list', 'list', 'pairlist', 'function', 'function', 'name', 'name', 'call', '(', 'name', 'name'), .Dim = c(15L, 3L), .Dimnames = list( c('NULL', '1', '1:1', '1i', 'list(1)', 'data.frame(x = 1)', 'pairlist(pi)', 'c', 'lm', 'formals(lm)[[1]]', 'formals(lm)[[2]]', 'y ~ x', 'expression((1))[[1]]', '(y ~ x)[[1]]', 'expression(x <- pi)[[1]][[1]]'), c('typeof(.)', 'storage.mode(.)', 'mode(.)'))), value = list(c('NULL', '1', '1:1', '1i', 'list(1)', 'data.frame(x = 1)', 'pairlist(pi)', 'c', 'lm', 'formals(lm)[[1]]', 'formals(lm)[[2]]', 'y ~ x', 'expression((1))[[1]]', '(y ~ x)[[1]]', 'expression(x <- pi)[[1]][[1]]'), c('typeof(.)', 'storage.mode(.)', 'mode(.)')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign2_4251a701e45fc2053b85ce4a2fc3b2f2() {
+ assertEval("argv <- list(structure(1:24, .Dim = 2:4, .Dimnames = list(c('A', 'B'), NULL, NULL)), value = list(c('A', 'B'), NULL, NULL));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign3_bcc5c5fefc9508adde5f97b51ea68153() {
+ assertEval("argv <- list(structure(c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = 3:4), value = NULL);`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign4_999d9b3fdc47c06993e12bafb99a00e0() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 20L)), value = NULL);`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign5_f8344ff7cf66a126932cf5f9a6e8e30b() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 22, 0, 0, 25, 0, 0, 0, 0, 30, 0, 0, 0, 0, 0, 0, 0, 38, 39, 0, 0, 0, 0, 0, 86, 0, 0, 0, 90, 91, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 103, 0, 0, 0, 0, 0, 0, 0, 0, 0, 113, 114, 0, 0, 0, 0, 0, 0, 121, 0, 0, 0, 0, 0, 128, 129, 0, 0, 132, 133, 0, 0, 0, 0, 138, 0, 0, 141, 142, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 159, 0, 1, 0, 0, 0, 2, 0, 0, 0, 1, 171, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 187, 0, 1, 0, 0, 0, 193, 0, 0, 196, 0, 0, 0, 1, 1, 202, 0, 0, 3, 0, 208, 0, 2, 0, 212, 0, 0, 0, 0, 0, 218, 0, 220, 1, 0, 0, 0, 0, 226, 227, 0, 2, 230, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 241, 0, 0, 0, 0, 0, 0, 0, 250, 251, 0, 0, 0, 255, 256, 257, 0, 0, 0, 261, 262, 0, 264, 0, 0, 0, 268, 0, 0, 0, 0, 0, 0, 275, 276, 0, 0, 0, 0, 0, 0, 0, 0, 0, 287, 0, 0, 290, 0, 292, 293, 0, 0, 0, 0, 0, 0, 300, 0, 0, 0, 0, 305, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 319, 0, 0, 0, 324, 0, 0, 0, 328, 329, 0, 0, 0, 0, 0, 335, 0, 0, 0, 339, 340, 0, 0, 343, 0, 0, 0, 0, 0, 0, 0, 351, 0, 0, 354, 0, 0, 0, 0, 0, 360, 0, 0, 0, 0, 0, 0, 0, 0, 0, 371, 0, 0, 0, 0, 0, 0, 0, 379, 0, 0, 0, 0, 0, 385, 0, 387, 0, 389, 0, 391, 0, 393, 394, 395, 396, 0, 0, 399, 0, 0, 0, 0, 405, 1, 407, 408, 0, 2, 0, 0, 0, 414, 415, 0, 417, 0, 0, 0, 0, 0, 0, 424, 0, 0, 0, 428, 1, 0, 431, 0, 433, 0, 435, 0, 0, 0, 439, 1, 441, 0, 0, 0, 0, 0, 0, 0, 0, 0, 452, 0, 0, 0, 0, 457, 0, 0, 0, 461, 0, 463, 0, 0, 0, 0, 0, 0, 0, 0, 0, 473, 474, 475, 0, 477, 0, 0, 0, 0, 482, 484, 0, 0, 487, 0, 0, 490, 491, 492, 0, 0, 0, 0, 0, 0, 499, 0, 501, 502, 0, 0, 0, 0, 0, 0, 0, 510, 0, 0, 0, 0, 515, 516, 0, 0, 519, 0, 0, 522, 524, 0, 0, 527, 528, 529, 530, 0, 532, 533, 0, 0, 0, 0, 538, 0, 0, 0, 0, 0, 0, 0, 0, 0, 548, 0, 0, 0, 0, 553, 0, 555, 0, 0, 0, 0, 560, 561, 0, 564, 0, 566, 0, 568, 0, 570, 0, 0, 0, 0, 0, 0, 0, 0, 0, 580, 0, 0, 0, 0, 0, 586, 0, 0, 589, 0, 0, 592, 593, 594, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 608, 0, 0, 0, 0, 0, 614, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 625, 626, 0, 628, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 640, 0, 0, 0, 645, 1, 0, 648, 0, 0, 0, 0, 653, 0, 0, 0, 657, 0, 0, 0, 0, 0, 0, 0, 665, 0, 0, 0, 0, 670, 671, 0, 0, 0, 675, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 691, 0, 0, 0, 695, 0, 697, 0, 0, 700, 0, 702, 0, 0, 0, 0, 0, 708, 0, 710, 711, 0, 0, 0, 0, 716, 0, 718, 0, 0, 0, 722, 0, 0, 0, 727, 728, 729, 0, 731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 745, 0, 747, 0, 0, 750, 0, 0, 0, 0, 0, 0, 0, 0, 0, 760, 0, 0, 764, 0, 2, 0, 0, 0, 0, 0, 772, 0, 0, 0, 776, 777, 0, 0, 0, 1, 0, 0, 784, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 796, 0, 0, 0, 1), .Dim = c(39L, 19L)), value = NULL);`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign6_cb86439752d354feeda3bd68427a8c76() {
+ assertEval("argv <- list(structure(c(-75, 0, 103, 0, 124, -1, 0, -2.77555756156289e-17, 0, -1.66533453693773e-16, 0, 0, 0, 178, 0), .Dim = c(5L, 3L)), value = NULL);`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign7_47b50de393c11c26b384b2e6d037878c() {
+ assertEval("argv <- list(structure(c(-0.0124410638457178, NA, 0.00669768951701377, NA, 0.00669754897238661, NA, 3.45036480545864, 2.52673085623929, 1, 2.64771226663238, 0.0632378108418818, 0.404928794321981), .Dim = c(2L, 6L), .Dimnames = list(c('linear', 'nonlin'), NULL)), value = list(c('linear', 'nonlin'), NULL));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign8_e437904b8ed2d74ac08e0e359881eb80() {
+ assertEval("argv <- list(structure(c(300, 3000, 400, 4000), .Dim = c(2L, 2L)), value = NULL);`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign9_26f351722c791bca85c2f501f0768985() {
+ assertEval("argv <- list(structure(c(1259, 1360, 845, 1053, 719, 774, 390, 413), .Dim = c(2L, 4L), .Dimnames = list(c('a', 'b'), NULL)), value = list(c('a', 'b')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindircreate_testdircreate1_330a42e830fe7a29c1ad63a7b51eb8d2() {
+ assertEval("argv <- list('/home/lzhao/tmp/RtmptS6o2G/translations', FALSE, FALSE, structure(511L, class = 'octmode')); .Internal(dir.create(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindirname_testdirname1_b188a0e26d83fc9ecb63d673701490b9() {
+ assertEval("argv <- list('/home/roman/r-instrumented/library/graphics'); .Internal(dirname(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindirname_testdirname2_b05651976b5873328367d421007b779b() {
+ assertEval("argv <- list('/home/lzhao/hg/r-instrumented/tests/Packages/survival/inst/CITATION'); .Internal(dirname(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindirname_testdirname3_b6d378933dc0d5b022c5c8ee4469cf96() {
+ assertEval("argv <- list(character(0)); .Internal(dirname(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindirname_testdirname4_ff3263428c608fd317fde2029f463c35() {
+ assertEval("argv <- list(c('ChangeLog', 'DESCRIPTION', 'INDEX', 'MD5', 'NAMESPACE', 'PORTING', 'R/0aaa.R', 'R/agnes.q', 'R/clara.q', 'R/clusGap.R', 'R/coef.R', 'R/daisy.q', 'R/diana.q', 'R/ellipsoidhull.R', 'R/fanny.q', 'R/internal.R', 'R/mona.q', 'R/pam.q', 'R/plothier.q', 'R/plotpart.q', 'R/silhouette.R', 'R/zzz.R', 'README', 'data/agriculture.tab', 'data/animals.tab', 'data/chorSub.rda', 'data/flower.R', 'data/plantTraits.rda', 'data/pluton.tab', 'data/ruspini.tab', 'data/votes.repub.tab', 'data/xclara.rda', 'inst/CITATION', 'inst/po/de/LC_MESSAGES/R-cluster.mo', 'inst/po/en@quot/LC_MESSAGES/R-cluster.mo', 'inst/po/pl/LC_MESSAGES/R-cluster.mo', 'man/agnes.Rd', 'man/agnes.object.Rd', 'man/agriculture.Rd', 'man/animals.Rd', 'man/bannerplot.Rd', 'man/chorSub.Rd', 'man/clara.Rd', 'man/clara.object.Rd', 'man/clusGap.Rd', 'man/clusplot.default.Rd', 'man/clusplot.partition.Rd', 'man/cluster-internal.Rd', 'man/coef.hclust.Rd', 'man/daisy.Rd', 'man/diana.Rd', 'man/dissimilarity.object.Rd', 'man/ellipsoidhull.Rd', 'man/fanny.Rd', 'man/fanny.object.Rd', 'man/flower.Rd', 'man/lower.to.upper.tri.inds.Rd', 'man/mona.Rd', 'man/mona.object.Rd', 'man/pam.Rd', 'man/pam.object.Rd', 'man/partition.object.Rd', 'man/plantTraits.Rd', 'man/plot.agnes.Rd', 'man/plot.diana.Rd', 'man/plot.mona.Rd', 'man/plot.partition.Rd', 'man/pltree.Rd', 'man/pltree.twins.Rd', 'man/pluton.Rd', 'man/predict.ellipsoid.Rd', 'man/print.agnes.Rd', 'man/print.clara.Rd', 'man/print.diana.Rd', 'man/print.dissimilarity.Rd', 'man/print.fanny.Rd', 'man/print.mona.Rd', 'man/print.pam.Rd', 'man/ruspini.Rd', 'man/silhouette.Rd', 'man/sizeDiss.Rd', 'man/summary.agnes.Rd', 'man/summary.clara.Rd', 'man/summary.diana.Rd', 'man/summary.mona.Rd', 'man/summary.pam.Rd', 'man/twins.object.Rd', 'man/volume.ellipsoid.Rd', 'man/votes.repub.Rd', 'man/xclara.Rd', 'po/R-cluster.pot', 'po/R-de.po', 'po/R-en@quot.po', 'po/R-pl.po', 'po/update-me.sh', 'src/clara.c', 'src/cluster.h', 'src/daisy.f', 'src/dysta.f', 'src/fanny.c', 'src/ind_2.h', 'src/init.c', 'src/mona.f', 'src/pam.c', 'src/sildist.c', 'src/spannel.c', 'src/twins.c', 'tests/agnes-ex.R', 'tests/agnes-ex.Rout.save', 'tests/clara-NAs.R', 'tests/clara-NAs.Rout.save', 'tests/clara-ex.R', 'tests/clara.R', 'tests/clara.Rout.save', 'tests/clusplot-out.R', 'tests/clusplot-out.Rout.save', 'tests/daisy-ex.R', 'tests/daisy-ex.Rout.save', 'tests/diana-boots.R', 'tests/diana-ex.R', 'tests/diana-ex.Rout.save', 'tests/ellipsoid-ex.R', 'tests/ellipsoid-ex.Rout.save', 'tests/fanny-ex.R', 'tests/mona.R', 'tests/mona.Rout.save', 'tests/pam.R', 'tests/pam.Rout.save', 'tests/silhouette-default.R', 'tests/silhouette-default.Rout.save', 'tests/sweep-ex.R')); .Internal(dirname(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindirname_testdirname5_ce4b69b7bd7834a6303e4e791aa6c051() {
+ assertEval("argv <- list(structure('/home/lzhao/hg/r-instrumented/library/utils', .Names = 'Dir')); .Internal(dirname(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindoTrace_testdoTrace1_ddcd3f64b9f15a9d7ab031d4fd632472() {
+ assertEval("argv <- list(c(1, 1, 2));.doTrace(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltindput_testdput1_13e57556ea92b275460a4cf536a7c6fa() {
+ assertEval("argv <- list(logical(0), structure(1L, class = c('terminal', 'connection')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindput_testdput2_49535106681b131c08bed169ad6eee4b() {
+ assertEval("argv <- list(structure(1, .Dim = 1L), structure(1L, class = c('terminal', 'connection')), 95); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindput_testdput3_09fa7b5e74174c70851c49ad93ae7635() {
+ assertEval("argv <- list(character(0), structure(1L, class = c('terminal', 'connection')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindput_testdput4_f7a75e3bfd9049b64077a13f2659cd55() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), structure(1L, class = c('terminal', 'connection')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindput_testdput5_73817a9226702e69b6277c05bec3ae8d() {
+ assertEval("argv <- list(NULL, structure(1L, class = c('terminal', 'connection')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindput_testdput6_79110d5bdc310dc7e12d4ca11f48da06() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), structure(1L, class = c('terminal', 'connection')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindput_testdput7_de1647a0d34feff88308694be2816ac6() {
+ assertEval("argv <- list(FALSE, structure(1L, class = c('terminal', 'connection')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindput_testdput8_06ac0c8f01e2f86cb8f043b347b3a042() {
+ assertEval("argv <- list(c(0.00508571428571428, 0.876285714285715), structure(1L, class = c('terminal', 'connection')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindrop_testdrop1_435233a57444df0f45863f7b8b1b6ad6() {
+ assertEval("argv <- list(structure(c(1.50117937791368, 1.64775918264914, 1.38492642933039, 2.16331573723593, 2.09255307288088, 1.44052566560935, 0.318431987979291, 1.53656071009121, 2.26440525774314, 1.31416376497534, 0.495338648866914, 1.09176681985947, 1.27372795677245, 1.95608222019614, 1.5112883299644, 1.48096147381224, 1.88531955584109, 2.15826126121057, 1.49107042586296, 1.77412108328316, 1.19791081639204, 0.884533302819684, 1.21307424446813, 1.68314051482667, 0.181961135294554, 1.71346737097883, 1.29900033689926, 1.4860159498376, 1.00078625140298, 1.52139728201513, 1.42030776150791, 0.505447600917635, 1.5112883299644, 1.33438166907678, 1.81455689148604, -1.61842961254877e-09, 1.40008985740647, 2.10771650095696, 0.611591597450209, 0.136470851066308, 1.10693024793555, 1.61237785047162, 0.990677299352257, 1.28383690882317, 1.33438166907678, 1.44558014163472, 1.15747500818916, 1.30910928894998, 0.753116926160307, 1.4860159498376, 2.10771650095696, 2.40087611042788, 1.27372795677245, 1.16252948421452, 0.985622823326897, 2.05211726467799, 1.3444906211275, 0.768280354236389, 0.844097494616799, 1.22823767254421, 0.980568347301536, 1.10693024793555, 0.899696730895766, 1.67303156277594, 0.995731775377618, 1.68314051482667, 1.42030776150791, 1.55172413816729, 1.55172413816729, 0.722790070008143, 1.98135460032294, 1.39503538138111, 1.14231158011308, 1.07154891575803, 1.08671234383411, 0.662136357703815, 0.808716162439274, 1.91564641199326, 2.08749859685552, 1.15747500818916, 1.3192182410007, 1.02605863152978, 1.18274738831596, 1.23329214856957, 0.783443782312471, 1.65786813469986, 0.965404919225454, 2.27451420979386, 1.25351005267101, 1.22823767254421, 1.74884870315635, 1.54666966214193, 1.99651802839903, 1.22318319651885, 1.09682129588483, 2.06222621672871, 1.82972031956212, 0.808716162439274, 1.66797708675058, 1.74884870315635), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100'))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindrop_testdrop10_b2d97f724d1dfde490e0b550e91dc5bf() {
+ assertEval("argv <- list(structure(c(-2.12168716972669e-05, 7.51519194600216e-05, -6.21732236176711e-06), .Dim = c(3L, 1L))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindrop_testdrop11_dd679b9a609f4fb003b37d3b053c3905() {
+ assertEval("argv <- list(structure(c(' 16', ' 16', '144', ' 16', ' 16', '128', ' 16', ' 16', '112', ' 16'), .Dim = 10L, .Dimnames = structure(list(c('1', '6', '7', '8', '13', '14', '15', '20', '21', '22')), .Names = ''))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindrop_testdrop2_639fdca1d0b5d22b4845f579ecb2fa9d() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE), .Dim = c(40L, 1L), .Dimnames = list(c('r1', 'r2', 'r3', 'r4', 'r5', 'r6', 'r7', 'r8', 'r9', 'r10', 'r11', 'r12', 'r13', 'r14', 'r15', 'r16', 'r17', 'r18', 'r19', 'r20', 'r21', 'r22', 'r23', 'r24', 'r25', 'r26', 'r27', 'r28', 'r29', 'r30', 'r31', 'r32', 'r33', 'r34', 'r35', 'r36', 'r37', 'r38', 'r39', 'r40'), 'c1'))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindrop_testdrop3_48afea2c0db4a591b2689306fa2b2014() {
+ assertEval("argv <- list(structure(c(-0.146170181357627, 24.3243243243243, NA, 84.2105263157895, 2.13784643479304), .Dim = c(5L, 1L))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindrop_testdrop4_d4365e445536d969a0e444bcc82d14fd() {
+ assertEval("argv <- list(structure(1, .Dim = c(1L, 1L))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindrop_testdrop5_c1e1cfd2a3a4207e864c703843d7784b() {
+ assertEval("argv <- list(structure(1:4, .Dim = c(4L, 1L), .Dimnames = list(c('a', 'b', 'c', 'd'), NULL))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindrop_testdrop6_a6b5e8feda8f1ba92b7dc96d419b63c9() {
+ assertEval("argv <- list(structure(c(0.0394556761478965, 0.0353930191803619, 0.0421772348795039, 0.0302920451103359, 0.0377457762283076, 0.0338591835815583, 0.0403493901288877, 0.0289792716248635, 0.0342125137383397, 0.0306897327119817, 0.0365724115929804, 0.0262666138482847, 0.0422657427158027, 0.0379137398889158, 0.0451811331581029, 0.032449470138841), .Dim = c(1L, 4L, 4L), .Dimnames = list('1', c('DAX', 'SMI', 'CAC', 'FTSE'), c('DAX', 'SMI', 'CAC', 'FTSE')))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindrop_testdrop7_b9790c234e422b9e1e9c75d711fc8586() {
+ assertEval("argv <- list(c(10.8924449093617, 19.1956646477802, 5.83862354833301, 8.94491073999977, 10.0151293814506)); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindrop_testdrop8_8ba3a8cad6f3b271481cc8936dd99036() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0'))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltindrop_testdrop9_1e829615fd7d3b3e88a407a5ee0c79c6() {
+ assertEval("argv <- list(structure(FALSE, .Tsp = c(1, 1, 1), class = 'ts')); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinduplicated_testduplicated1_ebbff31c5b633382ddc43f32a68390ba() {
+ assertEval("argv <- list(c('methods', 'base'), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinduplicated_testduplicated10_4978231584e6d9c3e467766333acb8d3() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinduplicated_testduplicated11_616d0bc61740d01e3b62ffc4103ef85d() {
+ assertEval("argv <- list(c('\\title', '\\name', '\\alias', '\\alias', '\\keyword', '\\keyword', '\\description', '\\usage', '\\arguments', '\\details', '\\value', '\\section', '\\section', '\\seealso', '\\examples'), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinduplicated_testduplicated12_f6bc49e7c5d274babebbdfd75ec6701b() {
+ assertEval("argv <- list(structure(c(-0.838428742794102, 0.838428742794102, 0.838428742794102, 0.838428742794102, -0.838428742794102, -0.838428742794102), .Dim = c(6L, 1L), .Dimnames = list(c('1', '3', '4', '5', '6', '7'), NULL)), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinduplicated_testduplicated13_3f0e75f1a33167fc0f02129bd32c813b() {
+ assertEval("argv <- list(c(-1628571, -1628571, -1200000, -1200000, -1057143, -914286, -771429, -771429, -771429, -628571, -628571, -485714, -485714, -485714, -485714, -342857, -342857, -342857, -342857, -2e+05, -2e+05, -2e+05, -2e+05, -57143, -57143, -57143, 85714, 85714, 228571, 228571, 228571, 371429, 371429, 371429, 371429, 514286, 514286, 514286, 657143, 657143, 657143, 657143, 657143, 942857, 1085714, 1228571, 1228571, 1228571, 1228571, 1371429), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinduplicated_testduplicated14_455550a693986066ccba4f1532c78dc2() {
+ assertEval("argv <- list(c(1, 0.778249191273129, 0.65570344192776, 0.65570344192776, 0.105668080308148, 0.0451091129154675, 0.0451091129154675, 1.49604383156071e-06, 8.3976239365668e-11, 2.13195391672632e-15, 1.4298180954663e-20, 1.47541167362595e-26, 1.09353648287987e-33, 1.6858825926109e-42, 1.6858825926109e-42, 1.6858825926109e-42), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinduplicated_testduplicated2_f45b04e1ebbfd66578da13d0f9208ad4() {
+ assertEval("argv <- list(list('!', '%%', '%*%', '%/%', '&', '*', '+', '-', '/', 'Arith', 'BunchKaufman', 'Cholesky', 'Compare', 'Logic', 'Math2', 'Math', 'Ops', 'Schur', 'Summary', '[', '[<-', '^', 'all.equal', 'all', 'any', 'as.array', 'as.integer', 'as.logical', 'as.matrix', 'as.numeric', 'as.vector', 'band', 'cbind2', 'chol2inv', 'chol', 'coerce', 'coerce<-', 'colMeans', 'colSums', 'cov2cor', 'crossprod', 'determinant', 'diag', 'diag<-', 'diff', 'dim', 'dim<-', 'dimnames', 'dimnames<-', 'drop', 'expand', 'expm', 'facmul', 'forceSymmetric', 'format', 'head', 'image', 'initialize', 'is.finite', 'is.infinite', 'is.na', 'isDiagonal', 'isSymmetric', 'isTriangular', 'kronecker', 'length', 'lu', 'mean', 'nnzero', 'norm', 'pack', 'print', 'prod', 'qr.Q', 'qr.R', 'qr.coef', 'qr.fitted', 'qr.qty', 'qr.qy', 'qr.resid', 'qr', 'rbind2', 'rcond', 'rep', 'rowMeans', 'rowSums', 'show', 'skewpart', 'solve', 'sum', 'summary', 'symmpart', 't', 'tail', 'tcrossprod', 'toeplitz', 'tril', 'triu', 'unname', 'unpack', 'update', 'updown', 'which', 'writeMM', 'zapsmall', 'Ops', '[', 'Math'), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinduplicated_testduplicated3_220c131e8e0d0ca88a0473048f8fa866() {
+ assertEval("argv <- list(c(3L, 8L, 18L), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinduplicated_testduplicated4_f613a3f31b44df89aed8b7b372f2dd1f() {
+ assertEval("argv <- list(c(0, 0.700492869640978, NA), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinduplicated_testduplicated5_fbcc5b30556eb2be228dc3340d32a072() {
+ assertEval("argv <- list(1L, FALSE, TRUE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinduplicated_testduplicated6_fb0cbc2fd8d70e762e57c4b8115526b7() {
+ assertEval("argv <- list(character(0), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinduplicated_testduplicated7_cf71ecdaebaaf336de9c408760d9b969() {
+ assertEval("argv <- list(list('plot', 'Ops', '[', 'Math'), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinduplicated_testduplicated8_b2e3eb12bea436f4da7ee9ea9d66aa29() {
+ assertEval("argv <- list(structure('lattice', .Names = ''), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinenc2native_testenc2native1_a6da7a9fef635308ebd71b543b33fbf5() {
+ assertEval("argv <- list(character(0));enc2native(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinenc2native_testenc2native3_4f2b48aeefda7af6afa824204677a599() {
+ assertEval("argv <- list(structure(character(0), .Names = character(0)));enc2native(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinenc2native_testenc2native4_e57d82a06016614422ffb0154b4bbd51() {
+ assertEval("argv <- list('José Pinheiro [aut] (S version)');enc2native(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinenc2utf8_testenc2utf81_eab3b90f52ba25877d127108892fb87f() {
+ assertEval("argv <- list('Add Text to a Plot');enc2utf8(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinenc2utf8_testenc2utf82_cf0b7dd72652f6d19f39f30bff83d0ec() {
+ assertEval("argv <- list('Modes');enc2utf8(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinenc2utf8_testenc2utf83_910f21599e1a260c1ed408534d623827() {
+ assertEval("argv <- list(c('', '(De)compress I/O Through Connections'));enc2utf8(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinenc2utf8_testenc2utf84_0675cbb9c58edf63fe728dd3932430f7() {
+ assertEval("argv <- list(character(0));enc2utf8(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinencodeString_testencodeString1_5395d35fd6d3afc1b2b8e8637612dce0() {
+ assertEval("argv <- list(c('1', '2', NA), 0L, '\'', 0L, FALSE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinencodeString_testencodeString10_5efc60150193802dcba95d470735bbb2() {
+ assertEval("argv <- list('\'class\' is a reserved slot name and cannot be redefined', 0L, '\'', 0L, FALSE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinencodeString_testencodeString11_a186848248673e940f898376211d6f40() {
+ assertEval("argv <- list(structure(character(0), .Dim = c(0L, 0L)), 0L, '', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinencodeString_testencodeString12_eb815ee5980af6899684228ad9431e6e() {
+ assertEval("argv <- list(character(0), logical(0), '', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinencodeString_testencodeString13_a9d38a032220f760686d7c3cb8761b7c() {
+ assertEval("argv <- list(structure('integer(0)', .Names = 'c0', row.names = character(0)), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), '', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinencodeString_testencodeString3_9624c56f6e6d4dd46aa2b2de59c39af9() {
+ assertEval("argv <- list(c('a', 'ab', 'abcde'), NA, '', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinencodeString_testencodeString4_67c14cb555c78b46df7bb1b92577933b() {
+ assertEval("argv <- list(c('a', 'ab', 'abcde'), NA, '', 1L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinencodeString_testencodeString6_f03c0de881c17e3ebc0c8c95eb2e9ef2() {
+ assertEval("argv <- list(c('NA', 'a', 'b', 'c', 'd', NA), 0L, '', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinencodeString_testencodeString7_483afa40b1cf12620d175f3f7015292a() {
+ assertEval("argv <- list('ab\bc\ndef', 0L, '', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinencodeString_testencodeString8_4e3c870248142ce48a8f7df557408d15() {
+ assertEval("argv <- list(c('FALSE', NA), 0L, '', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinencodeString_testencodeString9_402192e57b16c2e06288758280cb1ec9() {
+ assertEval("argv <- list(structure('integer(0)', .Names = 'c0', row.names = character(0)), 0L, '', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinenvironment_testenvironment1_b876a8115264bd157cd5359f11e3ab8b() {
+ assertEval("argv <- list(quote(cbind(X, M) ~ M.user + Temp + M.user:Temp + Soft)); .Internal(environment(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinenvironment_testenvironment2_166e181a90361c68e69e4c67b89423b1() {
+ assertEval("argv <- list(FALSE); .Internal(environment(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinenvironment_testenvironment3_ba12eb7692db76bfb5f96ba74bc20d4c() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(environment(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinenvironment_testenvironment4_274795dc375cc18448d42b62af76d266() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0'))); .Internal(environment(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinenvironmentName_testenvironmentName1_f71ee3e9fc58793f3350e648b315a7d0() {
+ assertEval("argv <- list(FALSE); .Internal(environmentName(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinenvironmentName_testenvironmentName2_10b35a4db0372364b078b61e81e2f330() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0'))); .Internal(environmentName(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinenvironmentName_testenvironmentName3_efde5de9e7f1716ed84af42dbe2f7efa() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(environmentName(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinenvironmentassign_testenvironmentassign1_e7d1897ac0f6b1cd0f4b3d8d7187eec3() {
+ assertEval("argv <- list(NULL, NULL);`environment<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinexp_testexp1_8815fef99ba42aa35942a1b0cffd8c22() {
+ assertEval("argv <- list(-3.99290891786396);exp(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinexp_testexp10_37d07ab33adb8aa318383f2302accf5f() {
+ assertEval("argv <- list(c(47.5645940356179, -6.38155741912049, -4.72835558025993, -9.12276173822938, 16.7269898773273, 1.72738845624351, 2.57214256243276, -6.38155741912049, 54.3235157345705, -1.01577550708815, 1.03229146110395, -7.85550713095368, -0.907238963715769, -0.92327375484205, -4.72835558025993, -1.01577550708815, 46.5450612116912, 4.59443066488959, -2.69397762349353, -13.3238428844397, -4.89920529326131, -9.12276173822938, 1.03229146110395, 4.59443066488959, 47.7416929123262, -3.84567249122941, -9.99434616922533, -0.0518296900644576, 16.7269898773273, -7.85550713095368, -2.69397762349353, -3.84567249122941, 49.4381847193856, 8.76151535039852, 0.371991514317358, 1.72738845624351, -0.907238963715769, -13.3238428844397, -9.99434616922533, 8.76151535039852, 50.1823716395239, -1.41801229530673, 2.57214256243276, -0.92327375484205, -4.89920529326131, -0.0518296900644576, 0.371991514317358, -1.41801229530673, 44.6019728197531));exp(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinexp_testexp11_8bfb5fb384aa724444aeb2b3f699aa64() {
+ assertEval("argv <- list(c(-745, -744, -743, -742, -741, -740, -730, -720, -710, -709, -708, -707, -706, -705));exp(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinexp_testexp2_41a840cb78df971739449cb9646270c1() {
+ assertEval("argv <- list(structure(3.3059560902335, .Names = 'lymax'));exp(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinexp_testexp3_526113e4ff81742afe10d844db202818() {
+ assertEval("argv <- list(structure(c(-0.00324566582797463, -0.0174366299092001, -0.0697465196367962, -0.00678668749718479, -0.0364599944879883, -0.145839977951944, -0.014190964081224, -0.0762378512927396, -0.304951405170939, -0.0296733069908004, -0.159413352946301, -0.637653411785165, -0.0620468872115091, -0.333333333333361, -1.33333333333336, -0.129740045955487, -0.697000025766712, -2.78800010306667, -0.271286446121824, -1.45742710775627, -5.8297084310247, -0.567259979811165, -3.04748019497741, -12.1899207799089, -1.18614066163432, -6.37228132326786, -25.4891252930698), .Dim = c(3L, 9L), .Dimnames = list(c('x', 'x', ''), NULL)));exp(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinexp_testexp4_01c9e67c1ef9e8c84e1badf8a42dd514() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 0.312525079410893, 0.312525079410893, 0.519628781161469, 0.519628781161469, 0.519628781161469, 0.519628781161469, 0.519628781161469, 0.519628781161469, 0.656871985321733, 0.656871985321733, 0.656871985321733, 0.747820128348458, 0.747820128348458, 0.747820128348458, 0.747820128348458, 0.808089522163767, 0.808089522163767, 0.808089522163767, 0.808089522163767, 0.808089522163767, 0.808089522163767, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.892034685155886, 0.892034685155886, 0.892034685155886, 0.892034685155886, 0.892034685155886, 0.911359578074335, 0.916463626041527));exp(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinexp_testexp5_8f48399be0133d423dce07c8c94b08f2() {
+ assertEval("argv <- list(c(0+0.392699081698724i, 0+0.785398163397448i, 0+1.17809724509617i, 0+1.5707963267949i, 0+1.96349540849362i, 0+2.35619449019234i, 0+2.74889357189107i, 0+3.14159265358979i, 0+3.53429173528852i, 0+3.92699081698724i, 0+4.31968989868597i, 0+4.71238898038469i, 0+5.10508806208341i, 0+5.49778714378214i, 0+5.89048622548086i, 0+6.28318530717959i));exp(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinexp_testexp6_dd0f0e60e688b17f8f079377818c4449() {
+ assertEval("argv <- list(c(-0.1, -3.16227766016838, -100));exp(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinexp_testexp8_47ea460679ebf012ce9bd2a35e00dc81() {
+ assertEval("argv <- list(logical(0));exp(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinexp_testexp9_ad858b8f053cccbae0b12905af7b0962() {
+ assertEval("argv <- list(c(4.92585186838819, 4.80249477012754, 4.18570927882429, 4.06235218056364, 3.81563798404234, 3.32220959099974, 3.19885249273909, 2.95213829621779, 2.45870990317518, 2.33535280491453, 2.08863860839323, 1.59521021535063, 1.47185311708998, 1.34849601882933, 0.608353429265429, 0.361639232744128, -0.131789160298473, -0.255146258559123, -1.11864594638368, -1.24200304464433, -1.85878853594758, -1.98214563420823, -2.84564532203278, -3.09235951855408, -3.70914500985733));exp(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinexpm1_testexpm11_eec24e73f02be80ff61911e98a7373b3() {
+ assertEval("argv <- list(-0.518798300715899);expm1(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinexpm1_testexpm12_2ba9235989f7f326def41dca4adc1ff8() {
+ assertEval("argv <- list(-1.5314339531682e-113);expm1(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinexpm1_testexpm13_441a22fbf6b1ac9945d36bc193eca8e1() {
+ assertEval("argv <- list(structure(c(-0.0996985539253204, -0.208486018303182, -0.412624920187971, -0.781459230080118, -1.41933833538431, -2.49413413365086, -4.24041092023363, -7.0213317713299), .Names = c('1', '2', '3', '4', '5', '6', '7', '8')));expm1(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinexpm1_testexpm14_037d8ddcf55f9ef5e60e1cb0e06f13c5() {
+ assertEval("argv <- list(logical(0));expm1(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinexpm1_testexpm15_c34e4628d1d9ea43404c7d952da1b6e2() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));expm1(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinfileaccess_testfileaccess1_a68a2b3dafefd9bbb0b07782040a2c5e() {
+ assertEval("argv <- list(character(0), 0); .Internal(file.access(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfileaccess_testfileaccess2_fdc65135c7d9f00afb7df74d52a77230() {
+ assertEval("argv <- list('/home/lzhao/R/x86_64-unknown-linux-gnu-library/3.0/FALSE', 5); .Internal(file.access(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfilecreate_testfilecreate1_20acc30661eb48496a511d1af73eca26() {
+ assertEval("argv <- list('codetools-manual.log', TRUE); .Internal(file.create(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfilecreate_testfilecreate2_a1a3ab4024228627e7c5a1aa6971c649() {
+ assertEval("argv <- list(character(0), TRUE); .Internal(file.create(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfileexists_testfileexists1_af5295e67dcc3eeeb4188c86026ce6cd() {
+ assertEval("argv <- list('/home/lzhao/hg/r-instrumented/library/methods/data/Rdata.rdb'); .Internal(file.exists(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfileexists_testfileexists2_c22a2da0472718210847b4f2dd0713bf() {
+ assertEval("argv <- list(c('src/Makevars', 'src/Makevars.in')); .Internal(file.exists(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfileexists_testfileexists3_1ad91518d248221e5c51860a89bbafe6() {
+ assertEval("argv <- list(character(0)); .Internal(file.exists(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfileinfo_testfileinfo1_a99b095a177ec7e9005fb967dfaec9a9() {
+ assertEval("argv <- list('/home/lzhao/hg/r-instrumented/library/codetools/data'); .Internal(file.info(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfileinfo_testfileinfo2_708c61ffc98b05b30ad963c97d62ca84() {
+ assertEval("argv <- list(character(0)); .Internal(file.info(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfilepath_testfilepath1_4891bfe76b5039bb7d713b8b97a6d90b() {
+ assertEval("argv <- list(list('/home/lzhao/hg/r-instrumented/tests/Packages/rpart/R', 'summary.rpart.R'), '/'); .Internal(file.path(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfilepath_testfilepath2_8dc49591cce79c3379317ea44b20ce7f() {
+ assertEval("argv <- list(list('/home/lzhao/hg/r-instrumented/src/library/parallel/R/unix', c('forkCluster.R', 'mcfork.R', 'mclapply.R', 'mcmapply.R', 'mcparallel.R', 'pvec.R')), '/'); .Internal(file.path(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfilepath_testfilepath3_51d61b5343bbd639bb542130edb19827() {
+ assertEval("argv <- list(list('/home/lzhao/hg/r-instrumented/tests/tcltk.Rcheck', structure('tcltk', .Names = 'Package'), 'help'), '/'); .Internal(file.path(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfilepath_testfilepath4_a21c2e0517b16ea6baf221c7fc9a0cbc() {
+ assertEval("argv <- list(list(character(0), 'DESCRIPTION'), '/'); .Internal(file.path(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfilepath_testfilepath5_f7ea14b938d3877211be03b90f7f73cc() {
+ assertEval("argv <- list(list(structure(character(0), .Dim = c(0L, 0L))), '/'); .Internal(file.path(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfileremove_testfileremove1_c4820e8d8e834d15a4b1027c78194762() {
+ assertEval("argv <- list(character(0)); .Internal(file.remove(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfilerename_testfilerename1_06452042fc3fa93b87998ff944a9b2c6() {
+ assertEval("argv <- list(character(0), character(0)); .Internal(file.rename(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfindInterval_testfindInterval1_e0dec5063cbb7dee5518f5e2ec455b18() {
+ assertEval("argv <- list(c(1, 2, 3, 4, 5, 6, 7, 8, 9), c(3, 3.25, 3.5, 3.75, 4, 4.25, 4.5, 4.75, 5, 5.25, 5.5, 5.75, 6), FALSE, FALSE); .Internal(findInterval(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfindInterval_testfindInterval2_07ddf6b4673e54fe2d0a9931982938ad() {
+ assertEval("argv <- list(NA_real_, NA_real_, FALSE, FALSE); .Internal(findInterval(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfindInterval_testfindInterval3_ef2bb28755527226b38a27050a632fc6() {
+ assertEval("argv <- list(numeric(0), numeric(0), FALSE, FALSE); .Internal(findInterval(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfindInterval_testfindInterval4_8b524104567c383bbd58f9bb60e35690() {
+ assertEval("argv <- list(c(5, 10, 15), c(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18), FALSE, FALSE); .Internal(findInterval(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinfloor_testfloor1_a7a8b94b8b11a3044e5d0063d8fb9ad7() {
+ assertEval("argv <- list(c(2.2, 3.3, 4.4, 5.5, 6.6, 7.7, 8.8, 9.9, 11));floor(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinfloor_testfloor2_232439c78517613667452a41e21ea610() {
+ assertEval("argv <- list(structure(c(12784, 13149, 13514, 13879, 14245, 14610), tzone = 'UTC'));floor(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinfloor_testfloor3_f255bfbe788c20ff2f52b22c9a785660() {
+ assertEval("argv <- list(c(-0.783587745879035, -0.739712343519063, -0.314304892261569));floor(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinfloor_testfloor4_f528a920e5b4dfa2c269af223cfeafd6() {
+ assertEval("argv <- list(structure(c(1920.5, 1920.5833, 1920.6667, 1920.75, 1920.8333, 1920.9167, 1921, 1921.0833, 1921.1667, 1921.25), .Tsp = c(1920.5, 1921.25, 12), class = 'ts'));floor(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinfloor_testfloor5_ba571b7dc68783c4eed3c6b22fe5a324() {
+ assertEval("argv <- list(c(-1.94786705265839, 0.813844117537122));floor(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinfloor_testfloor6_5d0419e1d9f4dedfd47750bc1624dfb5() {
+ assertEval("argv <- list(structure(c(0.555857947411444, 2.74659181662125, NA, 6.01634386021798, 3.26975214359673, 2.19073396920981, 2.74659181662125, NA, 0.555857947411444, 3.82560999100817, 0.555857947411444, 2.19073396920981, 2.74659181662125, 2.74659181662125, 1.07901827438692, 4.38146783841962, 1.11171579482289, 1e-07, 7.09536203460491, 11.9999901, 4.93732568583106, 5.46048601280654), .Dim = c(22L, 1L)));floor(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinfloor_testfloor7_d9dabc6a6507a3c055b48d3f34ba68be() {
+ assertEval("argv <- list(structure(c(3.08577921002324, 0.531033162063639, 1.47434325842442, 5.64214292692797, 6.21994378924106, 2.27200744902353, 11.9999901, 0.424434048635841, 0.549397569660826, 0.973929660925175, 1e-07, 3.54172739357752, 11.9999901, 2.27200744902353, 4.47284349010678, 6.43648940805496, 7.50963843787849, 7.11757579203344, 11.9999901, 3.54172739357752, 6.21994378924106, 5.1224060214714, 6.89175397596987, 6.52603528890926, 11.9999901, 7.11757579203344, 1e-07, 5.64214292692797, 6.00414304408873, 9.63018799510384, 11.9999901, 6.52603528890926, 7.50963843787849, 0.973929660925175, 1.47434325842442, 4.2100341139702, 11.9999901, 9.63018799510384, 6.89175397596987, 6.43648940805496, 0.549397569660826, 0.531033162063639, 11.9999901, 4.2100341139702, 6.00414304408873, 5.1224060214714, 4.47284349010678, 0.424434048635841, 3.08577921002324), .Dim = c(7L, 7L), .Dimnames = list(c('privileges', 'rating', 'complaints', 'learning', 'raises', 'critical', 'advance'), c('advance', 'critical', 'raises', 'learning', 'complaints', 'rating', 'privileges'))));floor(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinfloor_testfloor8_7b7dd783ca8b1592a2ce4332b6f92e94() {
+ assertEval("argv <- list(structure(c(1976, 1976.0833, 1976.1667, 1976.25, 1976.3333, 1976.4167, 1976.5, 1976.5833, 1976.6667, 1976.75, 1976.8333, 1976.9167, 1977, 1977.0833, 1977.1667, 1977.25, 1977.3333, 1977.4167, 1977.5, 1977.5833, 1977.6667, 1977.75, 1977.8333, 1977.9167, 1978), .Tsp = c(1976, 1978, 12), class = 'ts'));floor(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinfloor_testfloor9_e3dc151195686912a99ef5cdb618d0bd() {
+ assertEval("argv <- list(logical(0));floor(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinflush_testflush1_62a79a5a829dfd705d4a2fce830b5f61() {
+ assertEval("argv <- list(structure(1L, class = c('terminal', 'connection'))); .Internal(flush(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinflush_testflush2_da52d0b7accd547c69fae6d1a7d265e2() {
+ assertEval("argv <- list(structure(2L, class = c('terminal', 'connection'))); .Internal(flush(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformals_testformals1_414d0aa292b8fe651fd894cc27d91a2a() {
+ assertEval("argv <- list(.Primitive('length<-')); .Internal(formals(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformals_testformals2_8a64ee0c4211f679fdf6007427609b58() {
+ assertEval("argv <- list(logical(0)); .Internal(formals(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformals_testformals3_6ccf46eb1cfc68ddb502cbc6507ddbd1() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(formals(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformals_testformals4_fb0e228a262455d61c48088dda3fa8a3() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame')); .Internal(formals(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat1_a6c317e3ccc98d283572f1fc7c06f4db() {
+ assertEval("argv <- list(structure(c(0, 72.7, 56.4, 72.7, 0, 63.3, 56.4, 63.3, 0), .Dim = c(3L, 3L), .Dimnames = list(c('Girth', 'Height', 'Volume'), c('Girth', 'Height', 'Volume'))), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat10_530fd3e454bd612504e946d9a09c4c8f() {
+ assertEval("argv <- list(c(FALSE, NA, TRUE), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat11_66856e3cd12ec5a5a3141bc567dd660a() {
+ assertEval("argv <- list(structure(c(1L, 2L, 1L), .Dim = 3L, .Dimnames = structure(list(c('1', '2', NA)), .Names = '')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat12_34233dd4aa9e3cc90ae4208b0dd61975() {
+ assertEval("argv <- list(c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat13_91e3260aec96210d97891e48280ff207() {
+ assertEval("argv <- list(c(1L, 2L, 3L, 4L, 5L, -1L, -2L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat14_4f62576bac9db986d57e08b6dee333b3() {
+ assertEval("argv <- list(structure(c(NA, 1, 1, 1), .Names = c('<none>', '- x4', '- x2', '- x1')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat15_8dc93a27f7955ed280c983fb98764a4f() {
+ assertEval("argv <- list(2.22044604925031e-16, FALSE, 1, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat16_cfd43f3d744099a8a88014de0200a6ec() {
+ assertEval("argv <- list(structure(c(1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat17_7006548c9195832e9fc9b74506ebaab4() {
+ assertEval("argv <- list(c(2.3e-05, 4.5e-06), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat18_8cbb0da79c547f78740b05138e91ac3a() {
+ assertEval("argv <- list(c(2L, 4L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat19_f9a5159dea617c3d4acdd63caea2d418() {
+ assertEval("argv <- list(c(1L, NA, 1L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat2_2379abf58df1090ec0ae2cf27bf4007d() {
+ assertEval("argv <- list('\\ab\\c', FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat20_99f36a1aec1fb60cf061c0bf64134fa1() {
+ assertEval("argv <- list(c('abc', NA, 'def'), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat23_02f91866c8ca2d894b4c94302ce7c0a1() {
+ assertEval("argv <- list(c(NA, 2L, 4L, 7L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat24_2edaeb1fc36007ae10c643e105f90fc7() {
+ assertEval("argv <- list(c(1.1+0i, NA, 3+0i), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat25_9dfce0e9dc2b41e8d9f4e713f5c6911d() {
+ assertEval("argv <- list(c(' 9 ', ' 13 ', ' 13+', ' 18 ', ' 23 ', ' 28+', ' 31 ', ' 34 ', ' 45+', ' 48 '), TRUE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat26_6c9940be88163a7cf41458afe1234418() {
+ assertEval("argv <- list(c(172, 88, 88, 55, 92, 92, 72, 72, 63, 63), TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat27_1cc79e9dc7f5f26a2892efc843d3453c() {
+ assertEval("argv <- list(structure(c(142L, 104L, 71L, 250L), .Dim = 4L, .Dimnames = structure(list(c('(1) Approve STRONGLY', '(2) Approve SOMEWHAT', '(3) Disapprove SOMEWHAT', '(4) Disapprove STRONGLY')), .Names = '')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat28_461389e9acea0b8a68568773e9048049() {
+ assertEval("argv <- list(structure(c('***', '*', ' ', ' ', ' '), legend = '0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1', class = 'noquote'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat29_9452d2b344aba593e81f244ee327e204() {
+ assertEval("argv <- list(structure(c(0, 5, 118, 57, 0, 1, 4, 140, 0, 11, 154, 14, 0, 13, 13, 80, 35, 13, 387, 75, 17, 14, 89, 76, 0, 0, 670, 192, 0, 0, 3, 20), .Dim = c(1L, 32L), row.vars = structure(list(), .Names = character(0)), col.vars = structure(list(Class = c('1st', '2nd', '3rd', 'Crew'), Sex = c('Male', 'Female'), Age = c('Child', 'Adult'), Survived = c('No', 'Yes')), .Names = c('Class', 'Sex', 'Age', 'Survived'))), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat3_99a2a6623dbee8b0d0b4ae8ba99d4aca() {
+ assertEval("argv <- list(c('Inf', '-Inf', 'NaN', 'NA'), FALSE, NULL, 0L, 4, 1L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat30_e0591066d60f824cbf2c2a251e884b36() {
+ assertEval("argv <- list(c('', '', '\'Adult\'', '\'No\'', '', '387'), FALSE, NULL, 0L, NULL, 1L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat31_e679c52ca84336f14651365b9e8b0ecf() {
+ assertEval("argv <- list(2.2250738585072e-308, TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat32_564f3f0835c39663b9863ed7cecdd68f() {
+ assertEval("argv <- list(c(-0.318309886183791+0i, 0-0.564189583547756i, 1+0i, 0+1.77245385090552i, -3.14159265358979+0i), TRUE, 2, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat33_a51c14c289f8d5aba09e63def94da3db() {
+ assertEval("argv <- list(0+1i, TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat34_a3f66c5a92c04bf290549711f083c8b0() {
+ assertEval("argv <- list(structure(c(-Inf, -Inf, -2.248e+263, -Inf, -3.777e+116, -1), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat35_923e224325d2647e54c3448654a51f6e() {
+ assertEval("argv <- list(c(-41L, -36L, -12L, -18L, NA, -28L, -23L, -19L, -8L, NA, -7L, -16L, -11L, -14L, -18L, -14L, -34L, -6L, -30L, -11L, -1L, -11L, -4L, -32L, NA, NA, NA, -23L, -45L, -115L, -37L, NA, NA, NA, NA, NA, NA, -29L, NA, -71L, -39L, NA, NA, -23L, NA, NA, -21L, -37L, -20L, -12L, -13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, -135L, -49L, -32L, NA, -64L, -40L, -77L, -97L, -97L, -85L, NA, -10L, -27L, NA, -7L, -48L, -35L, -61L, -79L, -63L, -16L, NA, NA, -80L, -108L, -20L, -52L, -82L, -50L, -64L, -59L, -39L, -9L, -16L, -78L, -35L, -66L, -122L, -89L, -110L, NA, NA, -44L, -28L, -65L, NA, -22L, -59L, -23L, -31L, -44L, -21L, -9L, NA, -45L, -168L, -73L, NA, -76L, -118L, -84L, -85L, -96L, -78L, -73L, -91L, -47L, -32L, -20L, -23L, -21L, -24L, -44L, -21L, -28L, -9L, -13L, -46L, -18L, -13L, -24L, -16L, -13L, -23L, -36L, -7L, -14L, -30L, NA, -14L, -18L, -20L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat36_eb59ebdf73f9e3f49367702d00c98afb() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), TRUE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat37_16d5c15cfad16e060ba5e6dad2ba14b4() {
+ assertEval("argv <- list(structure(c(213198964, 652424.52183908), .Names = c('null.deviance', 'deviance')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat38_738c71770669352f00cac777676b9c79() {
+ assertEval("argv <- list(structure(integer(0), .Dim = c(1L, 0L), row.vars = structure(list(), .Names = character(0)), col.vars = structure(list(df0 = NULL), .Names = 'df0')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat39_74fb008552c9bf121a5c4122bfe370e3() {
+ assertEval("argv <- list(FALSE, FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat4_acdd5e79e5a4aa0b40e0b9ba902f8854() {
+ assertEval("argv <- list(structure(c('axx', 'b', 'c', 'd', 'e', 'f', 'g', 'h'), .Dim = c(2L, 4L)), FALSE, NULL, 0L, NULL, 1L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat40_441455babedf9f5c230fbad6f959658b() {
+ assertEval("argv <- list(1e-07, TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat41_a2b92dcfe960670655b754686fa96c9c() {
+ assertEval("argv <- list(structure(c(3035, 2552, 2704, 2554, 2014, 1655, 1721, 1524, 1596, 2074, 2199, 2512, 2933, 2889, 2938, 2497, 1870, 1726, 1607, 1545, 1396, 1787, 2076, 2837, 2787, 3891, 3179, 2011, 1636, 1580, 1489, 1300, 1356, 1653, 2013, 2823, 3102, 2294, 2385, 2444, 1748, 1554, 1498, 1361, 1346, 1564, 1640, 2293, 2815, 3137, 2679, 1969, 1870, 1633, 1529, 1366, 1357, 1570, 1535, 2491, 3084, 2605, 2573, 2143, 1693, 1504, 1461, 1354, 1333, 1492, 1781, 1915), .Tsp = c(1973, 1978.91666666667, 12), class = 'ts'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat42_cd88964f0ad50b515c252a3b9cbf9858() {
+ assertEval("argv <- list(c(2.5, 97.5), TRUE, 3, 0L, NULL, 3L, TRUE, FALSE); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat43_14c58c1e783fcf23dc375364b7800428() {
+ assertEval("argv <- list(structure(c(9.4, 10.2, 9.2, 4.4, 3.5, 2.7), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('Estimate', 'Std.Err'))), FALSE, 2, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat44_37b05269abb1c3a9279c669279747530() {
+ assertEval("argv <- list(95, 2, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat46_4e6148de5c1f2f3182f9d30560610a34() {
+ assertEval("argv <- list(1.2e+07, FALSE, NULL, 9L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat47_f701b122cac00dd351c59fea448dd861() {
+ assertEval("argv <- list(-0.01234+3.14159265358979i, FALSE, NULL, 14L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat48_17f0718b7395ff4eef2da8c980a7759d() {
+ assertEval("argv <- list(c(TRUE, FALSE, TRUE, FALSE, FALSE, FALSE), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat49_e5b8308012067f5e6258700142a2f70f() {
+ assertEval("argv <- list(3.141, FALSE, NULL, 13L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat50_9261d1984d2b7978032f7f6e44f5c60e() {
+ assertEval("argv <- list(c(Inf, -Inf), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat51_824eb64b80a9cd5f4c92000f270e70e2() {
+ assertEval("argv <- list(structure(c(2, NA), .Names = c('N:P:K', 'Residuals')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat52_cbf311f0ce8ecdf66494d5f807da3d23() {
+ assertEval("argv <- list(structure('def\'gh', class = 'AsIs'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat53_c357713a88a6ac7b1ec719afd9459389() {
+ assertEval("argv <- list(structure(4:9, .Dim = c(3L, 2L), .Dimnames = list(NULL, c('a', 'b'))), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat54_7687d00d72c2971e729b6ebe0f39bfb7() {
+ assertEval("argv <- list(c(NA, NA, NA, NA, NA, 'Ripley', 'Venables & Smith'), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat55_5aa9cd93366d2ef32c58e7447d7fc8ea() {
+ assertEval("argv <- list(1e-11, FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat6_231ca0602afea092e4fe9c9dac9c4150() {
+ assertEval("argv <- list(structure(c(47.97, 57.9, 74.76, 868.88), .Names = c('<none>', '- x4', '- x2', '- x1')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat7_a6d605b0310b67e55c4c0a58ab3f4d3b() {
+ assertEval("argv <- list(c('a', 'NA', NA, 'b'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat8_304270986a3de2993a3e66f0cdccaee3() {
+ assertEval("argv <- list(NA_real_, FALSE, 4L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformat_testformat9_bb40b3e92eba1eeee00292ef79c2657e() {
+ assertEval("argv <- list(integer(0), TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatC_testformatC1_bd7a557060cd5a3ab0f34b0aad496b22() {
+ assertEval("argv <- list(c(3.14159265358979, 3.1415926535898, 1), 'double', 10, 4L, 'g', '', c(12L, 12L, 12L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatC_testformatC10_7e2f803907747c949ea546a5221ff168() {
+ assertEval("argv <- list(c(20, 30, 40, 50, 60, 70, 80, 90, 100), 'double', 1, 7L, 'fg', '', c(15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatC_testformatC11_ccf0cdc249847f056ed1a264c6007359() {
+ assertEval("argv <- list(c(0, 25, 50, 75, 100), 'double', 1, 6L, 'fg', '', c(14L, 13L, 13L, 13L, 13L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatC_testformatC12_9e9819c4a2fb3e09fbad617bd26a77f7() {
+ assertEval("argv <- list(5L, 'integer', 2, 2L, 'd', '', 10L); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatC_testformatC13_03a2dec900d7d715899c39a38a87425f() {
+ assertEval("argv <- list(c(3.14159265358979e-05, 0.000314159265358979, 0.00314159265358979, 0.0314159265358979, 0.314159265358979, 3.14159265358979, 31.4159265358979, 314.159265358979, 3141.59265358979, 31415.9265358979), 'double', 5, 4, 'fg', '', c(15, 14, 13, 12, 11, 10, 9, 9, 9, 9)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatC_testformatC14_21bbac62acd44703aba6b8805e56d60c() {
+ assertEval("argv <- list(structure(c(1962.25, 1962.5, 1962.75, 1963, 1963.25, 1963.5, 1963.75, 1964, 1964.25, 1964.5, 1964.75, 1965, 1965.25, 1965.5, 1965.75, 1966, 1966.25, 1966.5, 1966.75, 1967, 1967.25, 1967.5, 1967.75, 1968, 1968.25, 1968.5, 1968.75, 1969, 1969.25, 1969.5, 1969.75, 1970, 1970.25, 1970.5, 1970.75, 1971, 1971.25, 1971.5, 1971.75), .Tsp = c(1962.25, 1971.75, 4), class = 'ts'), 'double', 1, 4L, 'g', '', c(12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatC_testformatC2_678523811eba4bed56c354e38f6e583a() {
+ assertEval("argv <- list(1, 'double', 8, 5, 'g', '-', 13); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatC_testformatC3_ece303f2ddc7cc7c6df4e68a3feb63b8() {
+ assertEval("argv <- list(structure(c(1.5, 13.3414265412268, 1e-15, 8, 1, 500, 28), .Dim = c(7L, 1L), .Dimnames = list(c('m.ship.expon.', 'objective', 'tolerance', 'iterations', 'converged', 'maxit', 'n'), ' ')), 'double', 8L, 7L, 'g', '', c(15L, 15L, 15L, 15L, 15L, 15L, 15L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatC_testformatC4_4c0260136615fc31af18166e8e089291() {
+ assertEval("argv <- list(c(1000, 1e+07, 1), 'double', 5, 4L, 'g', '', c(12L, 12L, 12L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatC_testformatC5_68e13fb70e755f43ae4bbdeaf7e8d947() {
+ assertEval("argv <- list(c(-3, -2, -1, 0, 1, 2, 3), 'double', 1L, 4L, 'g', '', c(12L, 12L, 12L, 12L, 12L, 12L, 12L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatC_testformatC6_6fa2892fcd8f80bdaf44016d691b096c() {
+ assertEval("argv <- list(3L, 'integer', 3, 2L, 'd', '0', 10L); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatC_testformatC7_ec7629c2ed63f2159f58d6029355d607() {
+ assertEval("argv <- list(c(0, 25, 50, 75, 100), 'double', 1, 7L, 'fg', '', c(16L, 15L, 15L, 15L, 15L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatC_testformatC8_6e81ff5de54c57eeb8f785702db441c6() {
+ assertEval("argv <- list(structure(48.4333681840033, .Names = 'value'), 'double', 5L, 4L, 'g', '', 12L); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatC_testformatC9_fd98253fa4006b6a866a101a837e2996() {
+ assertEval("argv <- list(c(0.0599, 0.00599, 0.000599, 5.99e-05, 5.99e-06, 5.99e-07), 'double', 3, -2, 'fg', '#', c(10, 11, 12, 13, 14, 15)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt1_7cc49787e49d64ce0c328250ee3df4c8() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L), hour = c(0L, 0L, 0L, 0L, 0L), mday = c(1L, 1L, 1L, 1L, 1L), mon = c(0L, 0L, 0L, 0L, 0L), year = 105:109, wday = c(6L, 0L, 1L, 2L, 4L), yday = c(0L, 0L, 0L, 0L, 0L), isdst = c(0L, 0L, 0L, 0L, 0L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC'), '%Y-%m-%d', FALSE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt2_618d6b93f0d6301c0ac99d428c9613e2() {
+ assertEval("argv <- list(structure(list(sec = 10.7712235450745, min = 48L, hour = 14L, mday = 17L, mon = 2L, year = 114L, wday = 1L, yday = 75L, isdst = 1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')), '%Y-%m-%d', FALSE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt3_8220b474a017ef4be8079adff0ad19f1() {
+ assertEval("argv <- list(structure(list(sec = 59.7693939208984, min = 47L, hour = 18L, mday = 17L, mon = 2L, year = 114L, wday = 1L, yday = 75L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'), '%Y-%m-%d %H:%M:%S', TRUE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt4_a8c206210ddaf4f613af4d98541d8d13() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(20L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 19L, 19L, 19L, 20L, 20L, 20L, 19L, 20L, 19L, 19L, 19L, 20L), mday = c(30L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 30L, 30L, 30L, 30L, 31L, 31L, 31L, 30L, 30L, 30L, 31L, 30L, 31L, 31L, 31L, 30L), mon = c(5L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 5L, 5L, 5L, 5L, 11L, 11L, 11L, 5L, 5L, 5L, 11L, 5L, 11L, 11L, 11L, 5L), year = c(72L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 81L, 82L, 83L, 85L, 87L, 89L, 90L, 92L, 93L, 94L, 95L, 97L, 98L, 105L, 108L, 112L), wday = c(5L, 0L, 1L, 2L, 3L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 0L, 4L, 0L, 1L, 2L, 3L, 4L, 0L, 1L, 4L, 6L, 3L, 6L), yday = c(181L, 365L, 364L, 364L, 364L, 365L, 364L, 364L, 364L, 180L, 180L, 180L, 180L, 364L, 364L, 364L, 181L, 180L, 180L, 364L, 180L, 364L, 364L, 365L, 181L), isdst = c(1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 1L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')), '%Y-%m-%d %H:%M:%S', TRUE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt5_b1f3c5b53e70df36d35f99e0a12b13eb() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 19L, mday = 31L, mon = 11L, year = 69L, wday = 3L, yday = 364L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')), '%Y-%m-%d %H:%M:%S', TRUE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt6_e1345bc5ba72d75ef3c8389d8fe46f93() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L), hour = c(0L, 0L, 0L, 0L, 0L, 0L), mday = 6:11, mon = 0:5, year = -10:-5, wday = c(1L, 6L, 2L, 0L, 4L, 2L), yday = c(5L, 37L, 67L, 98L, 129L, 161L), isdst = c(0L, 0L, 0L, 0L, 0L, 0L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC'), '%Y', FALSE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt7_2376a795a93f62dbddd2e9af32a51ceb() {
+ assertEval("argv <- list(structure(list(sec = c(0, NA, NA, 0), min = c(0L, NA, NA, 0L), hour = c(0L, NA, NA, 0L), mday = c(1L, NA, NA, 26L), mon = c(0L, NA, NA, 9L), year = c(101L, NA, NA, 104L), wday = c(1L, NA, NA, 2L), yday = c(0L, NA, NA, 299L), isdst = c(0L, -1L, -1L, 0L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC'), '%Y-%m-%d', FALSE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt8_75cd49d9918e433136df2406ca59410f() {
+ assertEval("argv <- list(structure(list(sec = 11.3034093379974, min = 37L, hour = 7L, mday = 7L, mon = 11L, year = 113L, wday = 6L, yday = 340L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')), '%H:%M:%OS3', FALSE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt9_513125df94e8f7e95e17d9524967da07() {
+ assertEval("argv <- list(structure(list(sec = numeric(0), min = integer(0), hour = integer(0), mday = integer(0), mon = integer(0), year = integer(0), wday = integer(0), yday = integer(0), isdst = integer(0)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC'), '%Y-%m-%d', TRUE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatinfo_testformatinfo1_b142f7c9c7c086832b3e99225b1af15c() {
+ assertEval("argv <- list(c(0.099999994, 0.2), 7L, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatinfo_testformatinfo10_519a6135aa7ce22f4afbcd865d83853b() {
+ assertEval("argv <- list(structure(c(2, 0, 0, 0, 0, 1, 0, 0, 0, 0, 3, 0, 6, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Names = c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y')), NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatinfo_testformatinfo11_344b2c8629595ce4b6c1507a40fa3d9c() {
+ assertEval("argv <- list(structure(c(-3.14159265358979e-05, 3.14159265358979e-05, -0.000314159265358979, 0.000314159265358979, -0.00314159265358979, 0.00314159265358979, -0.0314159265358979, 0.0314159265358979, -0.314159265358979, 0.314159265358979, -3.14159265358979, 3.14159265358979, -31.4159265358979, 31.4159265358979, -314.159265358979, 314.159265358979, -3141.59265358979, 3141.59265358979, -31415.9265358979, 31415.9265358979, -314159.265358979, 314159.265358979, -1e-05, 1e-05, -1e-04, 1e-04, -0.001, 0.001, -0.01, 0.01, -0.1, 0.1), .Dim = c(2L, 16L)), NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatinfo_testformatinfo12_caced8cffbf9008b9f5dd456065219cb() {
+ assertEval("argv <- list(c(NaN, NA), NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatinfo_testformatinfo2_af31558d035f21b11bccaf076d2fe46a() {
+ assertEval("argv <- list(c(0.099999994, 0.2), 6L, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatinfo_testformatinfo3_7a660d51fdfb66339a935a5ce4255565() {
+ assertEval("argv <- list(c(Inf, -Inf), NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatinfo_testformatinfo4_d06e86184a351c9455b2d0edf9470128() {
+ assertEval("argv <- list(FALSE, NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatinfo_testformatinfo5_39c34bd94eed85a62a7912525f2379e9() {
+ assertEval("argv <- list(3.14159265358979e-10, NULL, 8); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatinfo_testformatinfo6_e1c61760a0e144328bce2c3d8c1e734f() {
+ assertEval("argv <- list(1e+08, NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatinfo_testformatinfo7_b33a6a563f156588908896e0152f8ead() {
+ assertEval("argv <- list(1e+222, NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatinfo_testformatinfo8_1c612fbf884c7c00a586bf1517c3a5e3() {
+ assertEval("argv <- list(31.4159265358979, NULL, 8); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinformatinfo_testformatinfo9_d7a265e3dcfdde1e1a8705246eba6e24() {
+ assertEval("argv <- list(712L, NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuilting_testg1_69fdaadd6caf1b78953c6456e5338881() {
+ assertEval("argv <- list(1);g(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltingamma_testgamma1_4473df9bd72c23be2ed976ce0c151278() {
+ assertEval("argv <- list(c(0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1));gamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltingamma_testgamma2_3c1e6c332ebaf637fa5a376412ad2e4f() {
+ assertEval("argv <- list(FALSE);gamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltingamma_testgamma3_c8855947f731e45b12c1022a76d9fc34() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));gamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltingamma_testgamma5_7e0de8863fa730bf16f1a456f762a037() {
+ assertEval("argv <- list(101);gamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltingamma_testgamma6_18d2777c36611ccc829aaa07cf7944a7() {
+ assertEval("argv <- list(c(-3.000001, -3, -3, -2.999999, -2.965, -2.93, -2.895, -2.86, -2.825, -2.79, -2.755, -2.72, -2.685, -2.65, -2.615, -2.58, -2.545, -2.51, -2.475, -2.44, -2.405, -2.37, -2.335, -2.3, -2.265, -2.23, -2.195, -2.16, -2.125, -2.09, -2.055, -2.02, -2.000001, -2, -1.999999, -1.985, -1.95, -1.915, -1.88, -1.845, -1.81, -1.775, -1.74, -1.705, -1.67, -1.635, -1.6, -1.565, -1.53, -1.495, -1.46, -1.425, -1.39, -1.355, -1.32, -1.285, -1.25, -1.215, -1.18, -1.145, -1.11, -1.075, -1.04, -1.005, -1.000001, -1, -0.999999, -0.97, -0.935, -0.9, -0.865, -0.83, -0.795, -0.76, -0.725, -0.69, -0.655, -0.62, -0.585, -0.55, -0.515, -0.48, -0.445, -0.41, -0.375, -0.34, -0.305, -0.27, -0.235, -0.2, -0.165, -0.13, -0.0949999999999998, -0.0599999999999996, -0.0249999999999999, -1e-06, 0, 1e-06, 0.0100000000000002, 0.0450000000000004, 0.0800000000000001, 0.115, 0.15, 0.185, 0.22, 0.255, 0.29, 0.325, 0.36, 0.395, 0.43, 0.465, 0.5, 0.535, 0.57, 0.605, 0.640000000000001, 0.675, 0.71, 0.745000000000001, 0.78, 0.815, 0.850000000000001, 0.885, 0.92, 0.955000000000001, 0.99, 1.025, 1.06, 1.095, 1.13, 1.165, 1.2, 1.235, 1.27, 1.305, 1.34, 1.375, 1.41, 1.445, 1.48, 1.515, 1.55, 1.585, 1.62, 1.655, 1.69, 1.725, 1.76, 1.795, 1.83, 1.865, 1.9, 1.935, 1.97, 2.005, 2.04, 2.075, 2.11, 2.145, 2.18, 2.215, 2.25, 2.285, 2.32, 2.355, 2.39, 2.425, 2.46, 2.495, 2.53, 2.565, 2.6, 2.635, 2.67, 2.705, 2.74, 2.775, 2.81, 2.845, 2.88, 2.915, 2.95, 2.985, 3.02, 3.055, 3.09, 3.125, 3.16, 3.195, 3.23, 3.265, 3.3, 3.335, 3.37, 3.405, 3.44, 3.475, 3.51, 3.545, 3.58, 3.615, 3.65, 3.685, 3.72, 3.755, 3.79, 3.825, 3.86, 3.895, 3.93, 3.965, 4));gamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltingcinfo_testgcinfo1_b2679704d2e2bea4b77293ecd030ef48() {
+ assertEval("argv <- list(list()); .Internal(gcinfo(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingcinfo_testgcinfo2_0779a52aeb463f411790aaa4a825b3fd() {
+ assertEval("argv <- list(FALSE); .Internal(gcinfo(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingctorture2_testgctorture21_e3e9375b04b511497bc2ab9a8841f2a4() {
+ assertEval("argv <- list(NULL, NULL, FALSE); .Internal(gctorture2(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingctorture2_testgctorture22_6c6266118bdd19a452f184283188d78b() {
+ assertEval("argv <- list(FALSE, FALSE, FALSE); .Internal(gctorture2(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingetConnection_testgetConnection1_dd59c6908024de836332c3e6bf9f05d0() {
+ assertEval("argv <- list(FALSE); .Internal(getConnection(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingetRestart_testgetRestart1_05c269c4e9ce65babe2285b34e6070b2() {
+ assertEval("argv <- list(2L); .Internal(.getRestart(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingetRestart_testgetRestart2_5a1b43cdb8efed31809e39583630da8b() {
+ assertEval("argv <- list(1L); .Internal(.getRestart(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingetSymbolInfo_testgetSymbolInfo1_bf8e2ec15e02b34e7cd84158ebb69d15() {
+ assertEval("argv <- list('FALSE', '', FALSE); .Internal(getSymbolInfo(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingetconst_testgetconst1_1c8d7b8f47e3a5d04dc34b03e40855ba() {
+ assertEval("argv <- list(list(list(), NULL), 1); .Internal(getconst(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingetconst_testgetconst2_1887a2463f5a964af3e11d158b66282c() {
+ assertEval("argv <- list(list(FALSE), 1); .Internal(getconst(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingettext_testgettext1_a8ccfdab226247b491c718a3dd65fe5c() {
+ assertEval("argv <- list(NULL, 'Loading required package: %s'); .Internal(gettext(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingettext_testgettext2_d9f1074928cc0ee117e127336f7e33d8() {
+ assertEval("argv <- list(NULL, ''); .Internal(gettext(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingettext_testgettext3_75727c605d955fb5d3bc5b8d3a34e9d4() {
+ assertEval("argv <- list(NULL, 'The following object is masked from ‘package:base’:\n\n det\n'); .Internal(gettext(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingettext_testgettext4_7d50415aaad5c76a036dff32913b3235() {
+ assertEval("argv <- list(NULL, c('/', ' not meaningful for factors')); .Internal(gettext(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingettext_testgettext5_aff449a3d088232d28ccde3a1f3e669c() {
+ assertEval("argv <- list(NULL, character(0)); .Internal(gettext(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingettext_testgettext6_c0981cbb8176433c2aacfa88540062b1() {
+ assertEval("argv <- list(NULL, NULL); .Internal(gettext(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingregexpr_testgregexpr1_8ebb964270131521a289c8b842b3fcba() {
+ assertEval("argv <- list('', 'abc', FALSE, FALSE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingregexpr_testgregexpr10_79a4a279cb790d9b8986dd8c9ae87ed3() {
+ assertEval("argv <- list('(?<first>[[:upper:]][[:lower:]]+) (?<last>[[:upper:]][[:lower:]]+)', c(' Ben Franklin and Jefferson Davis', '\tMillard Fillmore'), FALSE, TRUE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingregexpr_testgregexpr11_e7b8ea8fe8346e4d530edf2d4a4e7c6d() {
+ assertEval("argv <- list('?', 'utils::data', FALSE, FALSE, TRUE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingregexpr_testgregexpr12_53bc669706df0f168f4787b0d37c4bed() {
+ assertEval("argv <- list('[[', 'utils:::.show_help_on_topic_', FALSE, FALSE, TRUE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingregexpr_testgregexpr2_540b5d24bf3cbb6c069e64f2f1366e6c() {
+ assertEval("argv <- list('[^\\.\\w:?$@[\\]]+', 'version$m', FALSE, TRUE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingregexpr_testgregexpr3_3d5ebc42c16e2fd7abdb096d6054ef5c() {
+ assertEval("argv <- list('$', 'version$m', FALSE, FALSE, TRUE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingregexpr_testgregexpr4_1a125740d7a3da09fcf8564bdfabefba() {
+ assertEval("argv <- list('éè', '«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè', FALSE, FALSE, TRUE, TRUE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingregexpr_testgregexpr5_f764145d181601e386edf4bf100ea063() {
+ assertEval("argv <- list('', 'abc', FALSE, TRUE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingregexpr_testgregexpr6_c0be4735e63ad80413f96c0e2efba3e4() {
+ assertEval("argv <- list('', 'abc', FALSE, FALSE, TRUE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingregexpr_testgregexpr7_d7b33db339b072daf4ce027a0e0b256a() {
+ assertEval("argv <- list('éè', '«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè', TRUE, FALSE, FALSE, TRUE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingregexpr_testgregexpr8_e55bbcf6904da0f9774f58b95674d356() {
+ assertEval("argv <- list('[[:space:]]?(,|,?[[:space:]]and)[[:space:]]+', character(0), FALSE, FALSE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingregexpr_testgregexpr9_6a65e3564db15d010d2c8992d7905509() {
+ assertEval("argv <- list('\\[[^]]*\\]', 'FALSE', FALSE, FALSE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrep_testgrep1_70629a9cc66605e0c03e43e58b2c5ddf() {
+ assertEval("argv <- list('|', 'wool', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrep_testgrep10_bf80b8be3e8617de496a7c73791f704d() {
+ assertEval("argv <- list('-package$', structure(c('bkde', 'bkde2D', 'bkfe', 'dpih', 'dpik', 'dpill', 'locpoly'), .Names = c('/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/bkde.tex', '/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/bkde2D.tex', '/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/bkfe.tex', '/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/dpih.tex', '/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/dpik.tex', '/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/dpill.tex', '/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/locpoly.tex')), FALSE, FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrep_testgrep11_773cfe620d510a73eb654257fbd221e1() {
+ assertEval("argv <- list('.__T__unname:', c('.__T__!:base', '.__T__%%:base', '.__T__%*%:base', '.__T__%/%:base', '.__T__&:base', '.__T__*:base', '.__T__+:base', '.__T__-:base', '.__T__/:base', '.__T__Arith:base', '.__T__BunchKaufman:Matrix', '.__T__Cholesky:Matrix', '.__T__Compare:methods', '.__T__Logic:base', '.__T__Math2:methods', '.__T__Math:base', '.__T__Ops:base', '.__T__Schur:Matrix', '.__T__Summary:base', '.__T__[:base', '.__T__[<-:base', '.__T__^:base', '.__T__all.equal:base', '.__T__all:base', '.__T__any:base', '.__T__as.array:base', '.__T__as.integer:base', '.__T__as.logical:base', '.__T__as.matrix:base', '.__T__as.numeric:base', '.__T__as.vector:base', '.__T__band:Matrix', '.__T__cbind2:methods', '.__T__chol2inv:base', '.__T__chol:base', '.__T__coerce:methods', '.__T__coerce<-:methods', '.__T__colMeans:base', '.__T__colSums:base', '.__T__cov2cor:stats', '.__T__crossprod:base', '.__T__determinant:base', '.__T__diag:base', '.__T__diag<-:base', '.__T__diff:base', '.__T__dim:base', '.__T__dim<-:base', '.__T__dimnames:base', '.__T__dimnames<-:base', '.__T__drop:base', '.__T__expand:Matrix', '.__T__expm:Matrix', '.__T__facmul:Matrix', '.__T__forceSymmetric:Matrix', '.__T__format:base', '.__T__head:utils', '.__T__image:graphics', '.__T__initialize:methods', '.__T__is.finite:base', '.__T__is.infinite:base', '.__T__is.na:base', '.__T__isDiagonal:Matrix', '.__T__isSymmetric:base', '.__T__isTriangular:Matrix', '.__T__kronecker:base', '.__T__length:base', '.__T__lu:Matrix', '.__T__mean:base', '.__T__nnzero:Matrix', '.__T__norm:base', '.__T__pack:Matrix', '.__T__print:base', '.__T__prod:base', '.__T__qr.Q:base', '.__T__qr.R:base', '.__T__qr.coef:base', '.__T__qr.fitted:base', '.__T__qr.qty:base', '.__T__qr.qy:base', '.__T__qr.resid:base', '.__T__qr:base', '.__T__rbind2:methods', '.__T__rcond:base', '.__T__rep:base', '.__T__rowMeans:base', '.__T__rowSums:base', '.__T__show:methods', '.__T__skewpart:Matrix', '.__T__solve:base', '.__T__sum:base', '.__T__summary:base', '.__T__symmpart:Matrix', '.__T__t:base', '.__T__tail:utils', '.__T__tcrossprod:base', '.__T__toeplitz:stats', '.__T__tril:Matrix', '.__T__triu:Matrix', '.__T__unname:base', '.__T__unpack:Matrix', '.__T__update:stats', '.__T__updown:Matrix', '.__T__which:base', '.__T__writeMM:Matrix', '.__T__zapsmall:base'), FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrep_testgrep12_18115d5a8d82913ec61839f7735654a9() {
+ assertEval("argv <- list('^[[:blank:]]*$', 'mtext(\'«Latin-1 accented chars»: éè øØ å<Å æ<Æ\', side = 3)', FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrep_testgrep2_7ff292414afc18691db76a418ba76343() {
+ assertEval("argv <- list('éè', '«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè', TRUE, FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrep_testgrep3_a6fd4a3dee9bae2217251a0e9b9a92f4() {
+ assertEval("argv <- list('[', '^\\.__[MT]', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrep_testgrep4_877851792c5d826188329cdf348f1d35() {
+ assertEval("argv <- list('éè', '«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrep_testgrep5_7f275b6cc2bfc209871dbebe0e4690b2() {
+ assertEval("argv <- list('[', '^[[:alpha:]]+', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrep_testgrep6_31adf2c86a8c87cbe4fb4e7d7a36ce7e() {
+ assertEval("argv <- list('.__T__[:', c('.__T__plot:graphics', '.__T__$:base', '.__T__$<-:base', '.__T__Arith:base', '.__T__Compare:methods', '.__T__Complex:base', '.__T__Logic:base', '.__T__Math2:methods', '.__T__Math:base', '.__T__Ops:base', '.__T__Summary:base', '.__T__[:base', '.__T__addNextMethod:methods', '.__T__body<-:base', '.__T__cbind2:methods', '.__T__coerce:methods', '.__T__coerce<-:methods', '.__T__initialize:methods', '.__T__kronecker:base', '.__T__loadMethod:methods', '.__T__rbind2:methods', '.__T__show:methods', '.__T__slotsFromS3:methods'), FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrep_testgrep7_50dd34ac32afe0b8905f9f6eb5352e40() {
+ assertEval("argv <- list(''', structure('exNSS4_1.0.tar.gz', .Names = ''), FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrep_testgrep9_621dac8dcf4bd0e5b0878e1937c98fba() {
+ assertEval("argv <- list('^[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789]', 'all.R', FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrepl_testgrepl1_94d39cdd4f642ebbdcb25309a1cb2e8e() {
+ assertEval("argv <- list('([[:digit:]]+[.-]){1,}[[:digit:]]+', c('1.0', '1.0'), FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrepl_testgrepl10_2677a335c1dd0d73e25673e66cadcefa() {
+ assertEval("argv <- list('{refObject}', c('\\section{Extends}{', 'Class \\code{\'\\linkS4class{refClassA}\'}, directly.', 'Class \\code{\'\\linkS4class{envRefClass}\'}, by class \'refClassA\', distance 2.', 'Class \\code{\'\\linkS4class{.environment}\'}, by class \'refClassA\', distance 3.', 'Class \\code{\'\\linkS4class{refClass}\'}, by class \'refClassA\', distance 3.', 'Class \\code{\'\\linkS4class{environment}\'}, by class \'refClassA\', distance 4, with explicit coerce.', 'Class \\code{\'\\linkS4class{refObject}\'}, by class \'refClassA\', distance 4.', '}'), FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrepl_testgrepl11_94af6bace9fdd71cbe37d0ad44c816fb() {
+ assertEval("argv <- list('^prepare_Rd', structure(character(0), class = 'checkRd'), FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrepl_testgrepl3_739ee281866def5d2420234dc276ae13() {
+ assertEval("argv <- list('\n', structure('c(person(\'José\', \'Pinheiro\', role = \'aut\',\n comment = \'S version\'),\n person(\'Douglas\', \'Bates\', role = \'aut\',\n comment = \'up to 2007\'),\n person(\'Saikat\', \'DebRoy\', role = \'ctb\',\n comment = \'up to 2002\'),\n person(\'Deepayan\', \'Sarkar\', role = \'ctb\',\n comment = \'up to 2005\'),\n\t person(\'R-core\', email = \'R-core@R-project.org\',\n role = c(\'aut\', \'cre\')),\n person(\'EISPACK authors\', role = \'ctb\'))', .Names = 'Authors@R'), FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrepl_testgrepl4_b324803d2aa77454f85f6ab70d4982cc() {
+ assertEval("argv <- list('([[:digit:]]+[.-]){1,}[[:digit:]]+', structure('7.3-26', .Names = 'Version'), FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrepl_testgrepl5_f56f17e876235e379635150100dc7984() {
+ assertEval("argv <- list('\n', c('### Encoding: UTF-8', '', '### Name: text', '### Title: Add Text to a Plot', '### Aliases: text text.default', '### Keywords: aplot', '', '### ** Examples', '', 'plot(-1:1, -1:1, type = \'n\', xlab = \'Re\', ylab = \'Im\')', 'K <- 16; text(exp(1i * 2 * pi * (1:K) / K), col = 2)', '', '## The following two examples use latin1 characters: these may not', '## appear correctly (or be omitted entirely).', 'plot(1:10, 1:10, main = \'text(...) examples\\n~~~~~~~~~~~~~~\',', ' sub = \'R is GNU ©, but not ® ...\')', 'mtext(\'«Latin-1 accented chars»: éè øØ å<Å æ<Æ\', side = 3)', 'points(c(6,2), c(2,1), pch = 3, cex = 4, col = \'red\')', 'text(6, 2, \'the text is CENTERED around (x,y) = (6,2) by default\',', ' cex = .8)', 'text(2, 1, \'or Left/Bottom - JUSTIFIED at (2,1) by 'adj = c(0,0)'\',', ' adj = c(0,0))', 'text(4, 9, expression(hat(beta) == (X^t * X)^{-1} * X^t * y))', 'text(4, 8.4, \'expression(hat(beta) == (X^t * X)^{-1} * X^t * y)\',', ' cex = .75)', 'text(4, 7, expression(bar(x) == sum(frac(x[i], n), i==1, n)))', '', '## Two more latin1 examples', 'text(5, 10.2,', ' \'Le français, c'est façile: Règles, Liberté, Egalité, Fraternité...\')', 'text(5, 9.8,', ' \'Jetz no chli züritüütsch: (noch ein bißchen Zürcher deutsch)\')', '', '', ''), FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrepl_testgrepl6_504d34d923143716a28efe7a26ca53a0() {
+ assertEval("argv <- list('x', 'x', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrepl_testgrepl7_e07b8a94fb311d6d9f0f627db2941ff4() {
+ assertEval("argv <- list('^[[:space:]]*## No test:', 'Diagonal(3)', FALSE, FALSE, TRUE, FALSE, TRUE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrepl_testgrepl8_8d05330cbac1d6f43bf41736cc8f9978() {
+ assertEval("argv <- list('\\\\keyword\\{\\s*internal\\s*\\}', c('\\inputencoding{utf8}', '\\HeaderA{condest}{Compute Approximate CONDition number and 1-Norm of (Large) Matrices}{condest}', '\\aliasA{onenormest}{condest}{onenormest}', '%', '\\begin{Description}\\relax', '``Estimate'', i.e. compute approximately the CONDition number of', 'a (potentially large, often sparse) matrix \\code{A}.', 'It works by apply a fast approximation of the 1-norm,', '\\code{norm(A,\'1\')}, through \\code{onenormest(.)}.', '\\end{Description}', '%', '\\begin{Usage}', '\\begin{verbatim}', 'condest(A, t = min(n, 5), normA = norm(A, \'1\'),', ' silent = FALSE, quiet = TRUE)', '', 'onenormest(A, t = min(n, 5), A.x, At.x, n,', ' silent = FALSE, quiet = silent,', ' iter.max = 10, eps = 4 * .Machine$double.eps)', '\\end{verbatim}', '\\end{Usage}', '%', '\\begin{Arguments}', '\\begin{ldescription}', '\\item[\\code{A}] a square matrix, optional for \\code{onenormest()}, where', 'instead of \\code{A}, \\code{A.x} and \\code{At.x} can be specified,', 'see there.', '\\item[\\code{t}] number of columns to use in the iterations.', '\\item[\\code{normA}] number; (an estimate of) the 1-norm of \\code{A}, by', 'default \\code{\\LinkA{norm}{norm}(A, \'1\')}; may be replaced by an estimate.', '\\item[\\code{silent}] logical indicating if warning and (by default)', 'convergence messages should be displayed.', '\\item[\\code{quiet}] logical indicating if convergence messages should be', 'displayed.', '\\item[\\code{A.x, At.x}] when \\code{A} is missing, these two must be given as', 'functions which compute \\code{A \\%\\% x}, or \\code{t(A) \\%\\% x},', 'respectively.', '\\item[\\code{n}] \\code{ == nrow(A)}, only needed when \\code{A} is not specified.', '\\item[\\code{iter.max}] maximal number of iterations for the 1-norm estimator.', '\\item[\\code{eps}] the relaive change that is deemed irrelevant.', '\\end{ldescription}', '\\end{Arguments}', '%', '\\begin{Value}', 'Both functions return a \\code{\\LinkA{list}{list}};', '\\code{onenormest()} with components,', '\\begin{ldescription}', '\\item[\\code{est}] a number \\eqn{> 0}{}, the estimated \\code{norm(A, \'1\')}.', '\\item[\\code{v}] the maximal \\eqn{A X}{} column.', '', '\\end{ldescription}', 'The function \\code{condest()} returns a list with components,', '\\begin{ldescription}', '\\item[\\code{est}] a number \\eqn{> 0}{}, the estimated condition number', '\\eqn{\\hat\\kappa}{}; when \\eqn{r :=}{}\\code{rcond(A)},', '\\eqn{1/\\hat\\kappa \\approx r}{}.', '\\item[\\code{v}] integer vector length \\code{n}, with an \\code{1} at the index', '\\code{j} with maximal column \\code{A[,j]} in \\eqn{A}{}.', '\\item[\\code{w}] numeric vector, the largest \\eqn{A x}{} found.', '\\item[\\code{iter}] the number of iterations used.', '\\end{ldescription}', '\\end{Value}', '%', '\\begin{Author}\\relax', 'This is based on octave's \\code{condest()} and', '\\code{onenormest()} implementations with original author', 'Jason Riedy, U Berkeley; translation to \\R{} and', 'adaption by Martin Maechler.', '\\end{Author}', '%', '\\begin{References}\\relax', '', 'Nicholas J. Higham and Fran\303\247oise Tisseur (2000).', 'A Block Algorithm for Matrix 1-Norm Estimation, with an Application to 1-Norm', 'Pseudospectra.', '\\emph{SIAM J. Matrix Anal. Appl.} \\bold{21}, 4, 1185--1201.', '\\url{http://dx.doi.org/10.1137/S0895479899356080}', '', '', 'William W. Hager (1984).', 'Condition Estimates.', '\\emph{SIAM J. Sci. Stat. Comput.} \\bold{5}, 311--316.', '\\end{References}', '%', '\\begin{SeeAlso}\\relax', '\\code{\\LinkA{norm}{norm}}, \\code{\\LinkA{rcond}{rcond}}.', '\\end{SeeAlso}', '%', '\\begin{Examples}', '\\begin{ExampleCode}', 'data(KNex)', 'mtm <- with(KNex, crossprod(mm))', 'system.time(ce <- condest(mtm))', '## reciprocal', '1 / ce$est', 'system.time(rc <- rcond(mtm)) # takes ca 3 x longer', 'rc', 'all.equal(rc, 1/ce$est) # TRUE -- the approxmation was good', '\\end{ExampleCode}', '\\end{Examples}'), FALSE, FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrepl_testgrepl9_cf99924a4d09f09fe5a41d99d99367e7() {
+ assertEval("argv <- list('\n', '\nqr(x, ...)\nqrR(qr, complete=FALSE, backPermute=TRUE)\n', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingrowconst_testgrowconst1_2dba37c5effe26a881d42ae71454c753() {
+ assertEval("argv <- list(list(list())); .Internal(growconst(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub1_6862b1f6b580f2cb75c68786214ced70() {
+ assertEval("argv <- list('([[:alnum:]])--([[:alnum:]])', '\\1-\\2', 'Date-Time Classes', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub10_7529e46e81c5d0bbdbbf668805584e03() {
+ assertEval("argv <- list('a*', 'x', 'baaac', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub11_d31bfededee14fdb6a627695e0f38800() {
+ assertEval("argv <- list('é', 'gh', '«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub12_9bf8c305d1d11c2a8494d767cd412f45() {
+ assertEval("argv <- list('([[:digit:]]+[.-]){1,}[[:digit:]]+', '', 'pkgB_1.0.tar.gz', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub13_2ef41fee82759a1d26e6d66fa737e380() {
+ assertEval("argv <- list('\\b', '|', 'The quick brown èé', FALSE, TRUE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub14_7f464b230b39683811a6f51cd43771bc() {
+ assertEval("argv <- list('/home/lzhao/hg/r-instrumented/src/library/utils', '', '/home/lzhao/hg/r-instrumented/src/library/utils/vignettes', FALSE, FALSE, TRUE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub15_a7b6d1115d0187f2fb16378a392a1b1b() {
+ assertEval("argv <- list('(‘|’)', ''', c('', '', '> library(survival)', 'Loading required package: splines', '> options(na.action=na.exclude) # preserve missings', '> options(contrasts=c('contr.treatment', 'contr.poly')) #ensure constrast type', '> ', '> #', '> # Simple tests of concordance. These numbers were derived in multiple', '> # codes.', '> #', '> aeq <- function(x,y, ...) all.equal(as.vector(x), as.vector(y), ...)', '> ', '> grank <- function(x, time, grp, wt) ', '+ unlist(tapply(x, grp, rank))', '> grank2 <- function(x, time, grp, wt) { #for case weights', '+ if (length(wt)==0) wt <- rep(1, length(x))', '+ z <- double(length(x))', '+ for (i in unique(grp)) {', '+ indx <- which(grp==i)', '+ temp <- tapply(wt[indx], x[indx], sum)', '+ temp <- temp/2 + c(0, cumsum(temp)[-length(temp)])', '+ z[indx] <- temp[match(x[indx], names(temp))]', '+ }', '+ z', '+ }', '> ', '> ', '> tdata <- aml[aml$x=='Maintained',]', '> tdata$y <- c(1,6,2,7,3,7,3,8,4,4,5)', '> tdata$wt <- c(1,2,3,2,1,2,3,4,3,2,1)', '> fit <- survConcordance(Surv(time, status) ~y, tdata)', '> aeq(fit$stats[1:4], c(14,24,2,0))', '[1] TRUE', '> cfit <- coxph(Surv(time, status) ~ tt(y), tdata, tt=grank, method='breslow',', '+ iter=0, x=T)', '> cdt <- coxph.detail(cfit)', '> aeq(4*sum(cdt$imat),fit$stats[5]^2) ', '[1] TRUE', '> aeq(2*sum(cdt$score), diff(fit$stats[2:1]))', '[1] TRUE', '> ', '> ', '> # Lots of ties', '> tempx <- Surv(c(1,2,2,2,3,4,4,4,5,2), c(1,0,1,0,1,0,1,1,0,1))', '> tempy <- c(5,5,4,4,3,3,7,6,5,4)', '> fit2 <- survConcordance(tempx ~ tempy)', '> aeq(fit2$stats[1:4], c(13,13,5,2))', '[1] TRUE', '> cfit2 <- coxph(tempx ~ tt(tempy), tt=grank, method='breslow', iter=0)', '> aeq(4/cfit2$var, fit2$stats[5]^2)', '[1] TRUE', '> ', '> # Bigger data', '> fit3 <- survConcordance(Surv(time, status) ~ age, lung)', '> aeq(fit3$stats[1:4], c(10717, 8706, 591, 28))', '[1] TRUE', '> cfit3 <- coxph(Surv(time, status) ~ tt(age), lung, ', '+ iter=0, method='breslow', tt=grank, x=T)', '> cdt <- coxph.detail(cfit3)', '> aeq(4*sum(cdt$imat),fit3$stats[5]^2) ', '[1] TRUE', '> aeq(2*sum(cdt$score), diff(fit3$stats[2:1]))', '[1] TRUE', '> ', '> ', '> # More ties', '> fit4 <- survConcordance(Surv(time, status) ~ ph.ecog, lung)', '> aeq(fit4$stats[1:4], c(8392, 4258, 7137, 28))', '[1] TRUE', '> cfit4 <- coxph(Surv(time, status) ~ tt(ph.ecog), lung, ', '+ iter=0, method='breslow', tt=grank)', '> aeq(4/cfit4$var, fit4$stats[5]^2)', '[1] TRUE', '> ', '> # Case weights', '> fit5 <- survConcordance(Surv(time, status) ~ y, tdata, weight=wt)', '> fit6 <- survConcordance(Surv(time, status) ~y, tdata[rep(1:11,tdata$wt),])', '> aeq(fit5$stats[1:4], c(70, 91, 7, 0)) # checked by hand', '[1] TRUE', '> aeq(fit5$stats[1:3], fit6$stats[1:3]) #spurious \'tied on time\' value, ignore', '[1] TRUE', '> aeq(fit5$std, fit6$std)', '[1] TRUE', '> cfit5 <- coxph(Surv(time, status) ~ tt(y), tdata, weight=wt, ', '+ iter=0, method='breslow', tt=grank2)', '> cfit6 <- coxph(Surv(time, status) ~ tt(y), tdata[rep(1:11,tdata$wt),], ', '+ iter=0, method='breslow', tt=grank)', '> aeq(4/cfit6$var, fit6$stats[5]^2)', '[1] TRUE', '> aeq(cfit5$var, cfit6$var)', '[1] TRUE', '> ', '> # Start, stop simplest cases', '> fit7 <- survConcordance(Surv(rep(0,11), time, status) ~ y, tdata)', '> aeq(fit7$stats, fit$stats)', '[1] TRUE', '> aeq(fit7$std.err, fit$std.err)', '[1] TRUE', '> fit7 <- survConcordance(Surv(rep(0,11), time, status) ~ y, tdata, weight=wt)', '> aeq(fit5$stats, fit7$stats)', '[1] TRUE', '> ', '> # Multiple intervals for some, but same risk sets as tdata', '> tdata2 <- data.frame(time1=c(0,3, 5, 6,7, 0, 4,17, 7, 0,16, 2, 0, ', '+ 0,9, 5),', '+ time2=c(3,9, 13, 7,13, 18, 17,23, 28, 16,31, 34, 45, ', '+ 9,48, 60),', '+ status=c(0,1, 1, 0,0, 1, 0,1, 0, 0,1, 1, 0, 0,1, 0),', '+ y = c(1,1, 6, 2,2, 7, 3,3, 7, 3,3, 8, 4, 4,4, 5),', '+ wt= c(1,1, 2, 3,3, 2, 1,1, 2, 3,3, 4, 3, 2,2, 1))', '> fit8 <- survConcordance(Surv(time1, time2, status) ~y, tdata2, weight=wt)', '> aeq(fit5$stats, fit8$stats)', '[1] TRUE', '> aeq(fit5$std.err, fit8$std.err)', '[1] TRUE', '> cfit8 <- coxph(Surv(time1, time2, status) ~ tt(y), tdata2, weight=wt, ', '+ iter=0, method='breslow', tt=grank2)', '> aeq(4/cfit8$var, fit8$stats[5]^2)', '[1] TRUE', '> aeq(fit8$stats[5]/(2*sum(fit8$stats[1:3])), fit8$std.err)', '[1] TRUE', '> ', '> # Stratified', '> tdata3 <- data.frame(time1=c(tdata2$time1, rep(0, nrow(lung))),', '+ time2=c(tdata2$time2, lung$time),', '+ status = c(tdata2$status, lung$status -1),', '+ x = c(tdata2$y, lung$ph.ecog),', '+ wt= c(tdata2$wt, rep(1, nrow(lung))),', '+ grp=rep(1:2, c(nrow(tdata2), nrow(lung))))', '> fit9 <- survConcordance(Surv(time1, time2, status) ~x + strata(grp),', '+ data=tdata3, weight=wt)', '> aeq(fit9$stats[1,], fit5$stats)', '[1] TRUE', '> aeq(fit9$stats[2,], fit4$stats)', '[1] TRUE', '> '), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub16_bd3432a922b4c5d9ebd3d9b1dd495a7a() {
+ assertEval("argv <- list('[[:blank:][:cntrl:]]*', '', structure(' unix\n', Rd_tag = 'TEXT'), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub17_5fd72f4acbaee95f55027cdb7077debc() {
+ assertEval("argv <- list('(\\w)(\\w*)', '\\U\\1\\L\\2', 'a test of capitalizing', FALSE, TRUE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub18_9c9b0986b812fb3350129dc696b4b83e() {
+ assertEval("argv <- list('\\.', '\\\\.', '^*.t??$', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub19_fc1aed630791e65902a1cd16e44925db() {
+ assertEval("argv <- list('(\\w)(\\w*)(\\w)', '\\U\\1\\E\\2\\U\\3', 'useRs may fly into JFK or laGuardia', FALSE, TRUE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub2_db79850a79f3e275e30cca6833d4ede0() {
+ assertEval("argv <- list('\\\\(link|var)\\{([^}]+)\\}', '\\2', structure(' \'Jetz no chli züritüütsch: (noch ein bißchen Zürcher deutsch)\')\n', Rd_tag = 'RCODE'), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub20_b2e54deb11ac9c1dcf5a3c3bc02cc4af() {
+ assertEval("argv <- list('([&$%_#])', '\\\\\\1', structure('with 5% of the range added to each end.\n', Rd_tag = 'TEXT'), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub21_a511599b9b3dc6f4d585b3df77380d4d() {
+ assertEval("argv <- list('[[:space:]]*%+[[:space:]]*\\\\VignetteEngine\\{([^}]*)\\}', '\\1', character(0), FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub22_cdf1d39e99834f76f846857b1962a249() {
+ assertEval("argv <- list('^\\s+', '', ' utilities ', FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub23_24c7f4280cb9e17296b2900efe3abeca() {
+ assertEval("argv <- list('([^\\])\\[', '\\1\\\\[', '^.*[.*$', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub24_6e8e97bf9ed8d22ed9bb4a5f63a698da() {
+ assertEval("argv <- list('.__M__(.*):([^:]+)', '\\1', character(0), FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub25_c84090e7745ac39bf6a65962c24e3105() {
+ assertEval("argv <- list('%', '\\\\%', structure('foo', .Names = 'object'), FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub26_b4fd1906517c4fff92985b92ef148397() {
+ assertEval("argv <- list('\\\\(l|)dots', '...', structure('plot(1:10, 1:10, main = \'text(...) examples\\n~~~~~~~~~~~~~~\',\n', Rd_tag = 'RCODE'), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub27_e88d227fdaa3393ab66a96eb72310524() {
+ assertEval("argv <- list('.__T__(.*):([^:]+(.*))', '\\2', c('.__T__!:base', '.__T__%%:base', '.__T__%*%:base', '.__T__%/%:base', '.__T__&:base', '.__T__*:base', '.__T__+:base', '.__T__-:base', '.__T__/:base', '.__T__Arith:base', '.__T__BunchKaufman:Matrix', '.__T__Cholesky:Matrix', '.__T__Compare:methods', '.__T__Logic:base', '.__T__Math2:methods', '.__T__Math:base', '.__T__Ops:base', '.__T__Schur:Matrix', '.__T__Summary:base', '.__T__[:base', '.__T__[<-:base', '.__T__^:base', '.__T__all.equal:base', '.__T__all:base', '.__T__any:base', '.__T__as.array:base', '.__T__as.integer:base', '.__T__as.logical:base', '.__T__as.matrix:base', '.__T__as.numeric:base', '.__T__as.vector:base', '.__T__band:Matrix', '.__T__cbind2:methods', '.__T__chol2inv:base', '.__T__chol:base', '.__T__coerce:methods', '.__T__coerce<-:methods', '.__T__colMeans:base', '.__T__colSums:base', '.__T__cov2cor:stats', '.__T__crossprod:base', '.__T__determinant:base', '.__T__diag:base', '.__T__diag<-:base', '.__T__diff:base', '.__T__dim:base', '.__T__dim<-:base', '.__T__dimnames:base', '.__T__dimnames<-:base', '.__T__drop:base', '.__T__expand:Matrix', '.__T__expm:Matrix', '.__T__facmul:Matrix', '.__T__forceSymmetric:Matrix', '.__T__format:base', '.__T__head:utils', '.__T__image:graphics', '.__T__initialize:methods', '.__T__is.finite:base', '.__T__is.infinite:base', '.__T__is.na:base', '.__T__isDiagonal:Matrix', '.__T__isSymmetric:base', '.__T__isTriangular:Matrix', '.__T__kronecker:base', '.__T__length:base', '.__T__lu:Matrix', '.__T__mean:base', '.__T__nnzero:Matrix', '.__T__norm:base', '.__T__pack:Matrix', '.__T__print:base', '.__T__prod:base', '.__T__qr.Q:base', '.__T__qr.R:base', '.__T__qr.coef:base', '.__T__qr.fitted:base', '.__T__qr.qty:base', '.__T__qr.qy:base', '.__T__qr.resid:base', '.__T__qr:base', '.__T__rbind2:methods', '.__T__rcond:base', '.__T__rep:base', '.__T__rowMeans:base', '.__T__rowSums:base', '.__T__show:methods', '.__T__skewpart:Matrix', '.__T__solve:base', '.__T__sum:base', '.__T__summary:base', '.__T__symmpart:Matrix', '.__T__t:base', '.__T__tail:utils', '.__T__tcrossprod:base', '.__T__toeplitz:stats', '.__T__tril:Matrix', '.__T__triu:Matrix', '.__T__unname:base', '.__T__unpack:Matrix', '.__T__update:stats', '.__T__updown:Matrix', '.__T__which:base', '.__T__writeMM:Matrix', '.__T__zapsmall:base'), FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub28_082b53f46c6e1bb38540caf17807f627() {
+ assertEval("argv <- list('([^\\])\\(', '\\1\\\\(', '^.*{n.*$', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub3_9fa529d1bacfe64c7757061ea7e7a4c9() {
+ assertEval("argv <- list('\\bsl', '\\bsl{}', structure(' knots).\n', Rd_tag = 'TEXT'), FALSE, FALSE, TRUE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub4_4c1275bfdb19de4085a3a0c362191d1c() {
+ assertEval("argv <- list('\\bsl', '\\bsl{}', structure(' ', Rd_tag = 'TEXT'), FALSE, FALSE, TRUE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub5_2c1ecbf3e09b66f3c4902da755f32f10() {
+ assertEval("argv <- list('([{}$#_])', '\\\\\\1', structure('2013-03-19 13:18:58', .Names = 'Date/Publication'), FALSE, FALSE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub6_e97bd074be3d9178ffea993c6e0a6de8() {
+ assertEval("argv <- list('é', 'gh', '«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè', FALSE, FALSE, TRUE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub7_3f85b62a95e499fb630f66dae3126636() {
+ assertEval("argv <- list('([&$%_#])', '\\\\\\1', structure(', then ', Rd_tag = 'TEXT'), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub8_10009d0364aad477fa28beae10e89bd8() {
+ assertEval("argv <- list(''([^']*)'', '‘\\1’', '‘/home/lzhao/hg/r-instrumented/tests/rpart.Rcheck’', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltingsub_testgsub9_ddc531c33ecf239b007ac0aad1598c9f() {
+ assertEval("argv <- list('\\', '\\bsl', structure('range specified by ', Rd_tag = 'TEXT'), FALSE, FALSE, TRUE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltiniconv_testiconv1_cc788a1d2b5ae32c2bbc512e71d2014b() {
+ assertEval("argv <- list('Report Information on C Stack Size and Usage', 'UTF-8', '', 'byte', FALSE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltiniconv_testiconv2_83efbe1df805ba105c39fda056c8d672() {
+ assertEval("argv <- list('façile' , 'latin1', 'ASCII', NA_character_, TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltiniconv_testiconv3_5d8d294e86f52185db6f47140fd26a89() {
+ assertEval("argv <- list(c('% This file is part of the 'foreign' package for R', '% It is distributed under the GPL version 2 or later', '', '\\name{S3 read functions}', '\\alias{data.restore}', '\\alias{read.S}', '\\title{Read an S3 Binary or data.dump File}', '\\description{', ' Reads binary data files or \\code{data.dump} files that were produced', ' in S version 3.', '}', '\\usage{', ' data.restore(file, print = FALSE, verbose = FALSE, env = .GlobalEnv)', ' read.S(file)', '}', '\\arguments{', ' \\item{file}{the filename of the S-PLUS \\code{data.dump} or binary', ' file.}', ' \\item{print}{whether to print the name of each object as read from the', ' file.}', ' \\item{verbose}{whether to print the name of every subitem within each', ' object.}', ' \\item{env}{environment within which to create the restored object(s).}', '}', '\\value{', ' For \\code{read.S}, an R version of the S3 object.', '', ' For \\code{data.restore}, the name of the file.', '}', '\\details{', ' \\code{read.S} can read the binary files produced in some older', ' versions of S-PLUS on either Windows (versions 3.x, 4.x, 2000) or Unix', ' (version 3.x with 4 byte integers). It automatically detects whether', ' the file was produced on a big- or little-endian machine and adapts', ' itself accordingly.', '', ' \\code{data.restore} can read a similar range of files produced by', ' \\code{data.dump} and for newer versions of S-PLUS, those from', ' \\code{data.dump(....., oldStyle=TRUE)}.', '', ' Not all S3 objects can be handled in the current version. The most', ' frequently encountered exceptions are functions and expressions; you', ' will also have trouble with objects that contain model formulas. In', ' particular, comments will be lost from function bodies, and the', ' argument lists of functions will often be changed.', '}', '\\author{', ' Duncan Murdoch', '}', '\\examples{', '\\dontrun{read.S(file.path(\'_Data\', \'myobj\'))', 'data.restore(\'dumpdata\', print = TRUE)', '}}', '\\keyword{data}', '\\keyword{file}'), '', 'ASCII', NA_character_, TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltiniconv_testiconv4_ea055c7e95c8deaa7d9d2e060c5ccf8a() {
+ assertEval("argv <- list(c('', 'Compute a Survival Curve for Censored Data'), 'UTF-8', '', 'byte', FALSE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltiniconv_testiconv5_ee2365cbc2576f192e2ed30552707e1a() {
+ assertEval("argv <- list(character(0), 'latin1', 'ASCII', NA_character_, TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltiniconv_testiconv6_e13a6b665d6f41270fe5914650017137() {
+ assertEval("argv <- list(list(), 'latin1', 'ASCII', NA_character_, TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltiniconv_testiconv7_5136fb34863ba18cfa72ee2fa450f451() {
+ assertEval("argv <- list('façile' , 'latin1', 'ASCII', '', TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltiniconv_testiconv8_60993ad6adafa3101de15be38263cffc() {
+ assertEval("argv <- list(structure('Prediction matrix for soap film smooth', Rd_tag = 'TEXT'), 'UTF-8', 'ASCII', NA_character_, FALSE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltiniconv_testiconv9_4ddd37a63b4115f8f20cea7195287015() {
+ assertEval("argv <- list(structure(c('Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance'), .Names = c('Q1_MISSING_NONE', 'Q1_MISSING_1', 'Q1_MISSING_2', 'Q1_MISSING_3', 'Q1_MISSING_RANGE', 'Q1_MISSING_LOW', 'Q1_MISSING_HIGH', 'Q1_MISSING_RANGE_1', 'Q1_MISSING_LOW_1', 'Q1_MISSING_HIGH_1')), 'latin1', '', NA_character_, TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinicuSetCollate_testicuSetCollate1_e6b72f4268a1f77ea1f1aa28a891c91f() {
+ assertEval(" .Internal(icuSetCollate())");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical1_2e525e7cd7a5376385507a4cf0144f9f() {
+ assertEval("argv <- list('oats[-1, ]', 'newdata', TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical10_5c2d2df41b5d1ccf953b13d1414883ba() {
+ assertEval("argv <- list(complex(0), complex(0), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical11_a7d68a0668694193786ad623fc295df1() {
+ assertEval("argv <- list(NULL, '\\link', TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical12_36fe2f12bdd5b5a2d716e6dca4768090() {
+ assertEval("argv <- list(c(TRUE, TRUE, NA), c(TRUE, TRUE, NA), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical13_a57349cf39ffef9133cde9aacb3d55ef() {
+ assertEval("argv <- list(NA_complex_, NA_complex_, TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical14_64c0a8092307ad9d5a2738803b159969() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 2, 3), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('I', 'a')), foo = 'bar', class = 'matrix'), structure(c(1, 1, 1, 1, 2, 3), .Dim = c(3L, 2L), class = 'matrix', foo = 'bar', .Dimnames = list(NULL, c('I', 'a'))), TRUE, TRUE, FALSE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical15_838fbb2684b3da3926a311ed019f4137() {
+ assertEval("argv <- list(structure(list(x = 1L), .Names = 'x', row.names = c(NA, -1L), class = 'data.frame'), structure(list(x = 1L), .Names = 'x', row.names = c(NA, -1L), class = 'data.frame'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical16_d75fe7faf37da9b7c9ccf7de042689c7() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L), .Label = c('1', '2'), class = 'factor'), structure(list(f = structure(c(1L, 1L, 1L), .Label = c('1', '2'), class = 'factor'), u = structure(12:14, unit = 'kg', class = 'avector')), .Names = c('f', 'u'), row.names = 2:4, class = 'data.frame'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical17_b6504f50cf209c94858f3cbc7275b87a() {
+ assertEval("argv <- list(raw(0), raw(0), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical18_5864a64f55eba01ac85a1cde8989f06d() {
+ assertEval("argv <- list(c(1, 1, 0.5, 1, 1, 1, 1, 1, 0, 0, 0.5, 1, 0, 1, 0, 1, 0.5, 1, NA, 0.75, 0.5, 0, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 1, 1, 0.666666666666667, 1, 0.666666666666667, 0.666666666666667, 0.333333333333333, 0.5, 1, 0, 1, 0.5, 1, 1, 1, 0, 1, 0.5, 1, 1, 0.5, 1, 1, 1, 0.5, 1, 1, NA, 0.5), c(1, 1, 0.5, 1, 1, 1, 1, 1, 0, 0, 0.5, 1, 0, 1, 0, 1, 0.5, 1, NA, 0.75, 0.5, 0, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 1, 1, 0.666666666666667, 1, 0.666666666666667, 0.666666666666667, 0.333333333333333, 0.5, 1, 0, 1, 0.5, 1, 1, 1, 0, 1, 0.5, 1, 1, 0.5, 1, 1, 1, 0.5, 1, 1, NA, 0.5), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical19_133433b56bb566502db9cc4533c74fc1() {
+ assertEval("argv <- list(c(0.0804034870161223, 10.3548347412639), structure(list(loc = c(0.0804034870161223, 10.3548347412639), cov = structure(c(3.01119301965569, 6.14320559215603, 6.14320559215603, 14.7924762275451), .Dim = c(2L, 2L)), d2 = 2, wt = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), sqdist = c(0.439364946869246, 0.0143172566761092, 0.783644692619938, 0.766252947443554, 0.346865912102713, 1.41583192825661, 0.168485512965902, 0.354299830956879, 0.0943280426627965, 1.05001058449122, 1.02875556201707, 0.229332323173361, 0.873263925064789, 2.00000009960498, 0.449304354954282, 0.155023307933165, 0.118273979375253, 0.361693898800799, 0.21462398586105, 0.155558909016629, 0.471723661454506, 0.719528696331092, 0.0738164380664225, 1.46001193111051, 0.140785322548143, 0.127761195166703, 0.048012401156175, 0.811750426884519, 0.425827709817574, 0.163016638545231, 0.557810866640707, 0.277350147637843, 0.0781399119055092, 1.29559183995835, 0.718376405567138, 1.37650242941478, 0.175087780508154, 0.233808973148729, 0.693473805463067, 0.189096604125073, 1.96893781800017, 0.4759756980592, 1.69665760380474, 0.277965749373647, 0.920525436884815, 0.57525234053591, 1.59389578665009, 0.175715364671313, 0.972045794851437, 1.75514684962809, 0.0597413185507202, 0.174340343040626, 0.143421553552865, 0.997322770596838, 1.94096736957465, 2.00000001159796, 0.367000821772989, 0.682474530588235, 1.20976163307984, 1.27031685239035, 1.79775635513363, 0.0857761902860323, 0.435578932929501, 0.214370604878221, 0.494714247412686, 1.78784623754399, 1.24216674083069, 1.87749485326709, 0.0533296334123023, 1.45588362584438, 2.00000000631459, 0.208857144738039, 0.119251291573058, 0.365303924649962, 0.690656674239668, 0.0396958405786268, 0.258262120876164, 1.57360254057537, 0.307548421049514, 0.628417063100241, 1.00647098749202, 0.297624360530352, 0.400289147351669, 1.98298426250944, 0.129127182829694, 0.0794695319493149, 0.991481735944321, 0.444068154119836, 0.206790162395106, 0.574310829851377, 0.181887577583334, 0.433872021297517, 0.802994892604009, 0.293053770941001, 1.7002969001965, 0.77984639982848, 1.36127407487932, 0.761935213110323, 0.597915313430067, 0.237134831067472), prob = NULL, tol = 1e-07, eps = 9.96049758228423e-08, it = 898L, maxit = 5000, ierr = 0L, conv = TRUE), .Names = c('loc', 'cov', 'd2', 'wt', 'sqdist', 'prob', 'tol', 'eps', 'it', 'maxit', 'ierr', 'conv'), class = 'ellipsoid'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical2_3beeb211017fc7c5e36f89078c23ba43() {
+ assertEval("argv <- list(structure(c(NA, 2, NA, 1, NA, 0), .Dim = 2:3), structure(c(NA, 2, NA, 1, NA, 0), .Dim = 2:3), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical20_1af12ffb649546231e8f20d7f6b93c6a() {
+ assertEval("argv <- list(NaN, NaN, TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical21_2bd255b24406f5a9b93558124935fed6() {
+ assertEval("argv <- list(c('«', '»', '¿', '?'), 'TeX', TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical22_fbc65b1c19b2aff7dee41b38219ed601() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')), 42, TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical23_4eb44d9d217c38caa488b3c35166451f() {
+ assertEval("argv <- list(c(3L, 3L, NA, 3L), c(3L, 3L, NA, 3L), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical24_67b2fe6dbf438c15ec908556159f926d() {
+ assertEval("argv <- list(list(c('r1', 'r3', 'r4', 'r5', 'r6', 'r7', 'r8', 'r9', 'r10', 'r11', 'r12', 'r13', 'r14', 'r15', 'r16', 'r17', 'r18', 'r19', 'r20', 'r21', 'r22', 'r23', 'r24', 'r25', 'r26', 'r27', 'r28', 'r29', 'r30', 'r31', 'r32', 'r33', 'r34', 'r35', 'r36', 'r37', 'r38', 'r39', 'r40'), c('c1', 'c2', 'c3', 'c4', 'c5', 'c6', 'c7', 'c8', 'c9', 'c10', 'c11', 'c12', 'c13', 'c14', 'c15', 'c16', 'c17', 'c18', 'c19', 'c20')), list(character(0), character(0)), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical25_a83a3629d1a811ceb317b76a5ccaf11a() {
+ assertEval("argv <- list(c('object', NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), c('object', NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical26_0809ba1f180897c13de79035932cf30c() {
+ assertEval("argv <- list(3.04888344611714e+29, 3.04888344611714e+29, TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical27_b4438c320651e925e91febf5dff91267() {
+ assertEval("argv <- list(structure('BunchKaufman', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), structure('Matrix', .Names = 'x', package = 'Matrix', class = structure('signature', package = 'methods')), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical28_de293a9e5ae455f54063652ce73ddd52() {
+ assertEval("argv <- list(structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c('A', 'B', 'C'), class = 'factor')), .Names = c('x', 'y', 'fac'), row.names = c(NA, -10L), class = 'data.frame'), structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c('A', 'B', 'C'), class = 'factor')), .Names = c('x', 'y', 'fac'), row.names = c(NA, 10L), class = 'data.frame'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical29_aed8b2c8169173ba9697637d93cd1671() {
+ assertEval("argv <- list(c('1', '2', NA), c('1', '2', NA), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical3_ae488584380826d82a07e30c967d3b24() {
+ assertEval("argv <- list(structure(c('dgTMatrix', 'matrix.coo'), .Names = c('from', 'to'), package = c('Matrix', ''), class = structure('signature', package = 'methods')), structure(c('dgTMatrix', 'matrix.coo'), .Names = c('from', 'to'), package = c('Matrix', ''), class = structure('signature', package = 'methods')), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical30_a1a87d269d3739cd9bf558f2fdb066ec() {
+ assertEval("argv <- list(c(-9.42477796076938, -6.28318530717959, -3.14159265358979, 0, 3.14159265358979, 6.28318530717959, 9.42477796076938, 12.5663706143592, 15.707963267949, 18.8495559215388), c(-9.42477796076938, -6.28318530717959, -3.14159265358979, 0, 3.14159265358979, 6.28318530717959, 9.42477796076938, 12.5663706143592, 15.707963267949, 18.8495559215388), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical31_be779c11d478d30decee8bd1d6e59c2f() {
+ assertEval("argv <- list(structure('classGeneratorFunction', package = 'methods'), structure('classGeneratorFunction', package = 'methods'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical32_f812c0ab82842b9131b133ac2fcaedeb() {
+ assertEval("argv <- list(structure(function (x) standardGeneric('cosh', .Primitive('cosh')), generic = structure('cosh', package = 'base'), package = 'base', group = list('Math'), valueClass = character(0), signature = 'x', default = .Primitive('cosh'), skeleton = quote(.Primitive('cosh')(x)), class = structure('standardGeneric', package = 'methods')), FALSE, TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical33_b8ee9b1ce3c55d83417394acb877108f() {
+ assertEval("argv <- list(structure(1L, match.length = 8L, useBytes = TRUE), structure(1L, match.length = 8L, useBytes = TRUE), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical4_a1f9d0a3519c9dae72256307fc6b02c9() {
+ assertEval("argv <- list(structure(3.14159265358979, comment = 'Start with pi', class = structure('num1', package = '.GlobalEnv')), structure(3.14159265358979, comment = 'Start with pi', class = structure('num1', package = '.GlobalEnv')), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical5_a49793f9fcd10d986b6fbda840ab252c() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')), structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical6_c5726d2da35d0f9d79c0ca28babc7a3a() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'), structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical7_bc852606780831574a1b6acdc0434aab() {
+ assertEval("argv <- list(c(-1.38507061859438+0.31833672642477i, 0.0383231810219-1.42379885362755i, -0.763030162361974-0.405090858049187i, 0.212306135525839+0.995386565684023i, 1.42553796686779+0.95881778764026i, 0.744479822333976+0.918087896319951i, 0.70022940298623-0.15096960188161i, -0.22935461345173-1.2230687888662i, 0.197093861895352-0.868824288637794i, 1.20715377387226-1.04248536490429i), c(-1.38507061859438+0.31833672642477i, 0.0383231810219-1.42379885362755i, -0.763030162361974-0.405090858049187i, 0.212306135525839+0.995386565684023i, 1.42553796686779+0.95881778764026i, 0.744479822333976+0.918087896319951i, 0.70022940298623-0.15096960188161i, -0.22935461345173-1.2230687888662i, 0.197093861895352-0.868824288637794i, 1.20715377387226-1.04248536490429i), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical8_efe4e4741e3c2e339c2f713c30cfe015() {
+ assertEval("argv <- list(structure(list(a = 1), .Names = 'a', .Tsp = c(1, 1, 1), class = 'ts'), structure(list(a = 1), .Names = 'a', .Tsp = c(1, 1, 1), class = 'ts'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinidentical_testidentical9_62b4c0e7b380cb98f1d7e543c63eb8d7() {
+ assertEval("argv <- list(c(TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE), c(TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits1_5852f5e4a22632721d6bb9b9d48ececc() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Names = c('dtrMatrix', 'MatrixFactorization', 'ddenseMatrix', 'triangularMatrix', 'dMatrix', 'denseMatrix', 'Matrix', 'mMatrix')), 'factor', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits10_bfc23af919b4e6f2d873f276adc380ec() {
+ assertEval("argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))), 'data.frame', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits11_8c529af4565809c23bdffe92a87d56d2() {
+ assertEval("argv <- list(structure(list(srcfile = '/home/lzhao/hg/r-instrumented/library/stats/R/stats', frow = 853L, lrow = 853L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame'), 'data.frame', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits12_1f7dbbb7c4fdb734473fe1f498b037a0() {
+ assertEval("argv <- list(quote(y ~ a + b:c + d + e + e:d), 'formula', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits13_959db2f8d77d85225b98710dba01850e() {
+ assertEval("argv <- list(structure(10, class = c('a', 'b')), c('a', 'b', 'c'), TRUE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits14_9f1ce228f8988ed683801408a8c74419() {
+ assertEval("argv <- list(complex(0), 'try-error', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits15_5e1d54d32123ac2c52587e44303c9abf() {
+ assertEval("argv <- list(structure(FALSE, .Tsp = c(0, 0, 1), class = 'ts'), 'ts', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits16_925b6cb42e331e2f2828af7691fc7f60() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')), 'try-error', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits17_70d3fab8595162e95e13b7db07f45c41() {
+ assertEval("argv <- list(raw(0), 'try-error', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits18_d781b396952ff9122e41a153a75d74d1() {
+ assertEval("argv <- list(structure(c(-1.5116089581734, 0.200010507218348, 0.266001075015567, 0.339550302820724, 0.425045882083188, 0.496549005782181, 0.576998440511346, -0.909988579721932, -1.06576984591386, 0.174059431391812, -0.0372498129362256, -0.282881300668478, -0.488312023557303, -0.719445779363312), gradient = structure(c(0.160743714207466, 0.251172444221428, 0.307513919261763, 0.350467096622222, 0.367731527586793, 0.346345778958899, 0.262925702855199, -0.160743714207466, -0.251172444221428, -0.307513919261763, -0.350467096622222, -0.367731526984617, -0.346345778958899, -0.262925703156287), .Dim = c(7L, 2L, 1L)), .Dim = c(7L, 2L)), 'data.frame', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits19_64e6a33e7740524c906e66eba5f6b508() {
+ assertEval("argv <- list(structure(3.14159265358979, comment = 'Start with pi'), 'try-error', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits2_5c30e2dfc726fd31c1059134d956e1f7() {
+ assertEval("argv <- list(structure(list(x = numeric(0), y = numeric(0), fac = structure(integer(0), .Label = c('A', 'B', 'C'), class = 'factor')), .Names = c('x', 'y', 'fac'), row.names = integer(0), class = 'data.frame'), 'data.frame', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits20_8d3c9192e97a2014de6628ccf63700e8() {
+ assertEval("argv <- list(c(TRUE, NA, FALSE, TRUE), 'Date', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits21_90b160c051a4bdbf47eb57e20af1fa68() {
+ assertEval("argv <- list(c(-1, 1, -1, 2, 1, NA, -1, 1, 4, 1, NA, 4, 1, 3, NA, 4, 2, 2, NA, 4, 4, 2, 4, 4, 2, 1, 4, 4, 3, 1, 1, 4, 1, 4, NA, 1, 4, 4, 2, 2, 4, 4, 3, 4, 2, 2, 3, 3, 4, 1, 1, 1, 4, 1, 4, 4, 4, 4, NA, 4, 4, 4, NA, 1, 2, 3, 4, 3, 4, 2, 4, 4, 1, 4, 1, 4, NA, 4, 2, 1, 4, 1, 1, 1, 4, 4, 2, 4, 1, 1, 1, 4, 1, 1, 1, 4, 3, 1, 4, 3, 2, 4, 3, 1, 4, 2, 4, NA, 4, 4, 4, 2, 1, 4, 4, NA, 2, 4, 4, 1, 1, 1, 1, 4, 1, 2, 3, 2, 1, 4, 4, 4, 1, NA, 4, 2, 2, 2, 4, 4, 3, 3, 4, 2, 4, 3, 1, 1, 4, 2, 4, 3, 1, 4, 3, 4, 4, 1, 1, 4, 4, 3, 1, 1, 2, 1, 3, 4, 2, 2, 2, 4, 4, 3, 2, 1, 1, 4, 1, 1, 2, NA, 2, 3, 3, 2, 1, 1, 1, 1, 4, 4, 4, 4, 4, 4, 2, 2, 1, 4, 1, 4, 3, 4, 2, 3, 1, 3, 1, 4, 1, 4, 1, 4, 3, 3, 4, 4, 1, NA, 3, 4, 4, 4, 4, 4, 4, 3, 4, 3, 4, 2, 4, 4, 1, 2, NA, 4, 4, 4, 4, 1, 2, 1, 1, 2, 1, 4, 2, 3, 1, 4, 4, 4, 1, 2, 1, 4, 2, 1, 3, 1, 2, 2, 1, 2, 1, NA, 3, 2, 2, 4, 1, 4, 4, 2, 4, 4, 4, 2, 1, 4, 2, 4, 4, 4, 4, 4, 1, 3, 4, 3, 4, 1, NA, 4, NA, 1, 1, 1, 4, 4, 4, 4, 2, 4, 3, 2, NA, 1, 4, 4, 3, 4, 4, 4, 2, 4, 2, 1, 4, 4, NA, 4, 4, 3, 3, 4, 2, 2, 4, 1, 4, 4, 4, 3, 4, 4, 4, 3, 2, 1, 3, 1, 4, 1, 4, 2, NA, 1, 4, 4, 3, 1, 4, 1, 4, 1, 4, 4, 1, 2, 2, 1, 4, 1, 1, 4, NA, 4, NA, 4, 4, 4, 1, 4, 2, 1, 2, 2, 2, 2, 1, 1, 2, 1, 4, 2, 3, 3, 1, 3, 1, 4, 1, 3, 2, 2, 4, 1, NA, 3, 4, 2, 4, 4, 4, 4, 4, 4, 3, 4, 4, 3, 2, 1, 4, 4, 2, 4, 2, 1, 2, 1, 1, 1, 1, 4, 4, 1, 1, 4, 1, 4, 4, 4, 1, 1, NA, 3, 2, 4, 4, 4, 4, 2, 3, 3, 2, NA, 4, 2, 4, 4, 1, 1, 4, 4, 1, 1, 4, 1, 2, 2, 2, 2, 1, 4, 4, 1, 2, 2, 2, 3, 4, 4, 3, 4, 1, 1, 4, 4, NA, 4, 1, 4, 4, 4, 1, 4, 4, 1, 2, 4, 4, 4, 4, 1, 2, 4, 4, 2, 1, 4, 2, 4, 2, 2, 4, 1, 3, 3, 2, 4, 1, 4, 4, 4, 1, NA, 4, 4, 2, 4, 4, 4, 4, 4, 2, NA, 4, 2, 4, 3, 1, 4, 4, 3, 4, 2, 4, 4, 1, 2, 1, 4, 1, 3, 3, 1, 4, 4, 2, 4, 4, 4, 4, 3, 2, 3, 3, 2, NA, 3, 4, 4, 3, 3, 4, 4, 4, 1, 4, 4, 4, 4, 4, 4, 4, 2, 4, 2, 3, 4, 1, 3, 1, NA, 4, 1, 2, 2, 1, 4, 3, 3, 4, 1, 1, 3), 'Date', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits22_ef4c22e216fdb8fb9212efaabe0fb202() {
+ assertEval("argv <- list(.Primitive('['), 'try-error', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits23_2af129258b24daf188cb3dc63da6b833() {
+ assertEval("argv <- list(structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790, 800, 810, 820, 830, 840, 850, 860, 870, 880, 890, 900, 910, 920, 930, 940, 950, 960, 970, 980, 990, 1000, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96), .Dim = c(101L, 3L), .Dimnames = list(NULL, c('t1', '10 * t1', 't1 - 4')), .Tsp = c(1, 101, 1), class = c('mts', 'ts', 'matrix')), 'ts', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits24_970b3922e6046530a588b13a248e8feb() {
+ assertEval("argv <- list(c(10000, 20000, 30000, 40000, 50000, 60000, 70000, 80000, 90000, 1e+05, 110000, 120000, 130000, 140000, 150000, 160000, 170000, 180000, 190000, 2e+05, 210000, 220000, 230000, 240000, 250000, 260000, 270000, 280000, 290000, 3e+05, 310000, 320000, 330000, 340000, 350000, 360000, 370000, 380000, 390000, 4e+05, 410000, 420000, 430000, 440000, 450000, 460000, 470000, 480000, 490000, 5e+05, 510000, 520000, 530000, 540000, 550000, 560000, 570000, 580000, 590000, 6e+05, 610000, 620000, 630000, 640000, 650000, 660000, 670000, 680000, 690000, 7e+05, 710000, 720000, 730000, 740000, 750000, 760000, 770000, 780000, 790000, 8e+05, 810000, 820000, 830000, 840000, 850000, 860000, 870000, 880000, 890000, 9e+05, 910000, 920000, 930000, 940000, 950000, 960000, 970000, 980000, 990000, 1e+06), 'POSIXlt', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits25_b0acf814f6c9a65f00051ccc7119efab() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/grid/R/grid', '/home/lzhao/hg/r-instrumented/library/grid/R/grid'), frow = 3581:3582, lrow = c(3581L, 3590L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'), 'data.frame', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits26_5d8a3118674679ed2b9d0fa342bc1411() {
+ assertEval("argv <- list(' Running ‘scales.R’', 'condition', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits27_41438db3de15f4bfd089ae3fb3591be5() {
+ assertEval("argv <- list(c(0.923879532511287+0.38268343236509i, 0.707106781186548+0.707106781186547i, 0.38268343236509+0.923879532511287i, 0+1i, -0.38268343236509+0.923879532511287i, -0.707106781186547+0.707106781186548i, -0.923879532511287+0.38268343236509i, -1+0i, -0.923879532511287-0.38268343236509i, -0.707106781186548-0.707106781186547i, -0.38268343236509-0.923879532511287i, 0-1i, 0.38268343236509-0.923879532511287i, 0.707106781186547-0.707106781186548i, 0.923879532511287-0.38268343236509i, 1-0i), 'ts', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits28_08c15f87e4c62f40a972605387f1f878() {
+ assertEval("argv <- list(structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), 'try-error', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits29_cc26944155345177f9c0ce297d4fa1c6() {
+ assertEval("argv <- list(structure(c(11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'), 'ts', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits3_a70d84bf3ea82b20a36d92ee781d294c() {
+ assertEval("argv <- list(structure(c(2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Tsp = c(2, 11, 1)), 'data.frame', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits30_a388a479684973ef42ee7ca9a189f163() {
+ assertEval("argv <- list(structure(list(coefficients = numeric(0), residuals = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), fitted.values = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), weights = NULL, rank = 0L, df.residual = 10L, call = quote(lm(formula = y ~ 0)), terms = quote(y ~ 0), model = structure(list(y = c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434)), .Names = 'y', terms = quote(y ~ 0), row.names = c(NA, 10L), class = 'data.frame')), .Names = c('coefficients', 'residuals', 'fitted.values', 'weights', 'rank', 'df.residual', 'call', 'terms', 'model'), class = 'lm'), 'lm', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits31_939b703cc3e03c5b28905642d731b7ed() {
+ assertEval("argv <- list(structure(c(-0.562441486309934, -0.588967592535822, 0.0277608937997097, 0.568074124752969, 3.89980510825846, -0.428174866497729, -0.343990813420242, -0.260996370058754, -2.31774610938305, 0.314764947225063, -0.455124436264437, -0.0444006414474544, -0.27748974692001, -0.303134023269405, -0.670168347915028, 2.92643313367, -0.749546667806845, -0.410394401887929, -0.203261263063707, 0.1847365997012, 0.128559671155683, 0.313558179929332, -0.0668425264405297, -0.106427678524531, -0.523747793519006, -0.402585404761851, 0.0642079595716389, -0.779859286629166, 0.356484381211739, -0.625053119472271, 1.31547628490512, -0.21959878152752, -0.102402088986461), .Names = c('Craig Dunain', 'Ben Rha', 'Ben Lomond', 'Goatfell', 'Bens of Jura', 'Cairnpapple', 'Scolty', 'Traprain', 'Lairig Ghru', 'Dollar', 'Lomonds', 'Cairn Table', 'Eildon Two', 'Cairngorm', 'Seven Hills', 'Knock Hill', 'Black Hill', 'Creag Beag', 'Kildcon Hill', 'Meall Ant-Suidhe', 'Half Ben Nevis', 'Cow Hill', 'N Berwick Law', 'Creag Dubh', 'Burnswark', 'Largo Law', 'Criffel', 'Acmony', 'Ben Nevis', 'Knockfarrel', 'Two Breweries', 'Cockleroi', 'Moffat Chase')), 'factor', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits32_c391f3a754cfff3c7aa64e12633ddfca() {
+ assertEval("argv <- list(quote(breaks ~ (wool + tension) - tension), 'formula', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits4_e07da4d4627a5678d119bd7b434c837c() {
+ assertEval("argv <- list(structure(list(Sepal.Length = c(4.7, 4.8, 5.4, 5.2, 5.5, 4.9, 5, 5.5, 4.9, 4.4, 5.1, 5, 4.5, 4.4, 5, 5.1, 4.8, 5.1, 4.6, 5.3, 5, 7, 6.4, 6.9, 5.5, 6.5, 5.7, 6.3, 4.9, 6.6, 5.2, 5, 5.9, 6, 6.1, 5.6, 6.7, 5.6, 5.8, 6.2, 5.6, 5.9, 6.1, 6.3, 6.1, 6.4, 6.6, 6.8, 6.7, 6, 5.7, 5.5, 5.5, 5.8, 6, 5.4, 6, 6.7, 6.3, 5.6, 5.5, 5.5, 6.1, 5.8, 5, 5.6, 5.7, 5.7, 6.2, 5.1, 5.7, 6.3, 5.8, 7.1, 6.3, 6.5, 7.6, 4.9, 7.3, 6.7, 7.2, 6.5, 6.4, 6.8, 5.7, 5.8, 6.4, 6.5, 7.7, 7.7, 6, 6.9, 5.6, 7.7, 6.3, 6.7, 7.2, 6.2, 6.1, 6.4, 7.2), Sepal.Width = c(3.2, 3.1, 3.4, 4.1, 4.2, 3.1, 3.2, 3.5, 3.6, 3, 3.4, 3.5, 2.3, 3.2, 3.5, 3.8, 3, 3.8, 3.2, 3.7, 3.3, 3.2, 3.2, 3.1, 2.3, 2.8, 2.8, 3.3, 2.4, 2.9, 2.7, 2, 3, 2.2, 2.9, 2.9, 3.1, 3, 2.7, 2.2, 2.5, 3.2, 2.8, 2.5, 2.8, 2.9, 3, 2.8, 3, 2.9, 2.6, 2.4, 2.4, 2.7, 2.7, 3, 3.4, 3.1, 2.3, 3, 2.5, 2.6, 3, 2.6, 2.3, 2.7, 3, 2.9, 2.9, 2.5, 2.8, 3.3, 2.7, 3, 2.9, 3, 3, 2.5, 2.9, 2.5, 3.6, 3.2, 2.7, 3, 2.5, 2.8, 3.2, 3, 3.8, 2.6, 2.2, 3.2, 2.8, 2.8, 2.7, 3.3, 3.2, 2.8, 3, 2.8, 3), Petal.Length = c(1.6, 1.6, 1.5, 1.5, 1.4, 1.5, 1.2, 1.3, 1.4, 1.3, 1.5, 1.3, 1.3, 1.3, 1.6, 1.9, 1.4, 1.6, 1.4, 1.5, 1.4, 4.7, 4.5, 4.9, 4, 4.6, 4.5, 4.7, 3.3, 4.6, 3.9, 3.5, 4.2, 4, 4.7, 3.6, 4.4, 4.5, 4.1, 4.5, 3.9, 4.8, 4, 4.9, 4.7, 4.3, 4.4, 4.8, 5, 4.5, 3.5, 3.8, 3.7, 3.9, 5.1, 4.5, 4.5, 4.7, 4.4, 4.1, 4, 4.4, 4.6, 4, 3.3, 4.2, 4.2, 4.2, 4.3, 3, 4.1, 6, 5.1, 5.9, 5.6, 5.8, 6.6, 4.5, 6.3, 5.8, 6.1, 5.1, 5.3, 5.5, 5, 5.1, 5.3, 5.5, 6.7, 6.9, 5, 5.7, 4.9, 6.7, 4.9, 5.7, 6, 4.8, 4.9, 5.6, 5.8 ), Petal.Width = c(0.2, 0.2, 0.4, 0.1, 0.2, 0.2, 0.2, 0.2, 0.1, 0.2, 0.2, 0.3, 0.3, 0.2, 0.6, 0.4, 0.3, 0.2, 0.2, 0.2, 0.2, 1.4, 1.5, 1.5, 1.3, 1.5, 1.3, 1.6, 1, 1.3, 1.4, 1, 1.5, 1, 1.4, 1.3, 1.4, 1.5, 1, 1.5, 1.1, 1.8, 1.3, 1.5, 1.2, 1.3, 1.4, 1.4, 1.7, 1.5, 1, 1.1, 1, 1.2, 1.6, 1.5, 1.6, 1.5, 1.3, 1.3, 1.3, 1.2, 1.4, 1.2, 1, 1.3, 1.2, 1.3, 1.3, 1.1, 1.3, 2.5, 1.9, 2.1, 1.8, 2.2, 2.1, 1.7, 1.8, 1.8, 2.5, 2, 1.9, 2.1, 2, 2.4, 2.3, 1.8, 2.2, 2.3, 1.5, 2.3, 2, 2, 1.8, 2.1, 1.8, 1.8, 1.8, 2.1, 1.6)), .Names = c('Sepal.Length', 'Sepal.Width', 'Petal.Length', 'Petal.Width'), row.names = 30:130, class = 'data.frame'), 'data.frame', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits5_7ec226f51c308eb70a590e3fc8a446c0() {
+ assertEval("argv <- list(structure(1L, .Dim = 1L), 'try-error', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits6_79af8490d40c99d57a6db5e87203fd95() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), 'Surv', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits7_3195fee38890f15a30b702227568c326() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('Ctl', 'A', 'B'), class = 'factor', contrasts = 'contr.treatment'), 'factor', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits8_32611a32fa4bc56ac1b85bbe6005530c() {
+ assertEval("argv <- list(c(NA, NA, '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/groupedData.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/groupedData.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/groupedData.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/groupedData.R'), 'ordered', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininherits_testinherits9_e4cfef91439ea6e7df461daee1f749c1() {
+ assertEval("argv <- list(list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit'))), 'try-error', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinintToBits_testintToBits1_8dcf932acd5e3b3ccf1448cb2645ddb7() {
+ assertEval("argv <- list(list()); .Internal(intToBits(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinintToBits_testintToBits2_9ca4884c79d6174b2ebb62f73a8f41ad() {
+ assertEval("argv <- list(NULL); .Internal(intToBits(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinintToUtf8_testintToUtf81_85be9fa767479aa6a70148af54a747bb() {
+ assertEval("argv <- list(NULL, FALSE); .Internal(intToUtf8(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinintToUtf8_testintToUtf82_852fb44f5b58696388588b830de7c7b6() {
+ assertEval("argv <- list(list(), FALSE); .Internal(intToUtf8(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinintToUtf8_testintToUtf83_337738aec4a636878fbe8338a9232e10() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(intToUtf8(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible1_617e6f35a107a4d2bd98f7c28bdfcc67() {
+ assertEval("argv <- list(c(3.14159265358977, 3.14159265358981));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible10_0ea1a02b76f917729ffb5550cdc79c49() {
+ assertEval("argv <- list(structure(list(surname = structure(1:5, .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(c(1L, 2L, 3L, 3L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor'), title = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = c(NA, -5L), class = 'data.frame'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible11_696d919e811af02b1d6ebe4e8f01a0b6() {
+ assertEval("argv <- list(structure('Error in `[.data.frame`(dd, , \'x\') : undefined columns selected\n', class = 'try-error', condition = structure(list(message = 'undefined columns selected', call = quote(`[.data.frame`(dd, , 'x'))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible12_7d603b5ccd663d875b03404bf3cebed3() {
+ assertEval("argv <- list(structure(list(value = structure(c(NA, NA, 1L, 9L), .Names = c('size', 'current', 'direction', 'eval_depth')), visible = TRUE), .Names = c('value', 'visible')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible13_975c56f76490a5754564443a34069769() {
+ assertEval("argv <- list(structure(function (...) new('test1', ...), className = structure('test1', package = '.GlobalEnv'), package = '.GlobalEnv', class = structure('classGeneratorFunction', package = 'methods')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible14_0429d9d268d0ca8370cb89a5195e0b57() {
+ assertEval("argv <- list(structure(list(coefficients = structure(c(-0.0880891704401362, -0.508170309402877, -0.00510235947825228, 0.0737329622006759), .Names = c('(Intercept)', 'x1', 'z', 'x1:z')), residuals = structure(c(0.471500137591588, -0.418206002310214, -1.08038471222353, -0.582889907355648, 0.671048026430597, 1.41161034263987, 0.0130575334430522, 0.598273046028054, -0.0752209852417045, -1.00878747900206), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), effects = structure(c(0.483887391035467, -0.316505532770654, -0.0456368905560498, -0.659487662652535, 0.502868792132386, 1.20242722895332, -0.301792379913696, 0.0429789614006214, -0.536741577656989, -1.91019253457038), .Names = c('(Intercept)', 'x1', 'z', 'x1:z', '', '', '', '', '', '')), rank = 4L, fitted.values = structure(c(-0.527628877120589, 0.262410495604884, -0.390367671675741, 0.104739852247028, -0.253106466230895, -0.0529307911108283, -0.115845260786048, -0.210601434468685, 0.0214159446587994, -0.368272077826542), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), assign = 0:3, qr = structure(list(qr = structure(c(-3.16227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0, 3.16227766016838, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634, -17.3925271309261, -1.58113883008419, 8.94427190999916, 0.0204447427551466, -0.048810308101025, -0.203162054994832, -0.272417105851004, -0.426768852744811, -0.496023903600983, -0.65037565049479, 1.58113883008419, 17.3925271309261, 2.77555756156289e-17, -8.94427190999916, 0.202312619197469, -0.0523458957441388, 0.422028033632482, -0.279844076809084, 0.641743448067495, -0.507342257874029), .Dim = c(10L, 4L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'), c('(Intercept)', 'x1', 'z', 'x1:z')), assign = 0:3, contrasts = structure(list( x = 'contr.helmert'), .Names = 'x')), qraux = c(1.31622776601684, 1.39220245868163, 1.17479648964895, 1.17515228532081), pivot = 1:4, tol = 1e-07, rank = 4L), .Names = c('qr', 'qraux', 'pivot', 'tol', 'rank'), class = 'qr'), df.residual = 6L, contrasts = structure(list(x = 'contr.helmert'), .Names = 'x'), xlevels = structure(list(), .Names = character(0)), call = quote(lm(formula = y ~ x * z)), terms = quote(y ~ x * z), model = structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c('y', 'x', 'z'), terms = quote(y ~ x * z), row.names = c(NA, 10L), class = 'data.frame')), .Names = c('coefficients', 'residuals', 'effects', 'rank', 'fitted.values', 'assign', 'qr', 'df.residual', 'contrasts', 'xlevels', 'call', 'terms', 'model'), class = 'lm'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible15_95c5d6587a9f07375c773c41f4b0aad2() {
+ assertEval("argv <- list(structure('Error in scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings, : \n line 1 did not have 4 elements\n', class = 'try-error', condition = structure(list(message = 'line 1 did not have 4 elements', call = quote(scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings, flush, fill, strip.white, quiet, blank.lines.skip, multi.line, comment.char, allowEscapes, encoding))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible16_b7e4cfdbe1ace38051b7aca810a931ae() {
+ assertEval("argv <- list(structure('Error in cor(Z[, FALSE], use = \'pairwise.complete.obs\', method = \'kendall\') : \n 'x' is empty\n', class = 'try-error', condition = structure(list(message = ''x' is empty', call = quote(cor(Z[, FALSE], use = 'pairwise.complete.obs', method = 'kendall'))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible17_8ea03ab2d62ec0fb64963c404516b53b() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible18_6c78d740829bc1cb9a9c0ad9032914b3() {
+ assertEval("argv <- list(structure(c(3, 8), .Dim = 2L, .Dimnames = structure(list(g = c('1', '2')), .Names = 'g'), call = quote(by.data.frame(data = X, INDICES = g, FUN = colMeans)), class = 'by'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible19_ad14344db8f0251cc37de03b05bb6144() {
+ assertEval("argv <- list(structure('Error in rnorm(2, c(1, NA)) : (converted from warning) NAs produced\n', class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(2, c(1, NA)))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible2_f2c65f2710fecc128ccf9bc1d312135f() {
+ assertEval("argv <- list(structure('Error in cov(rnorm(10), NULL) : \n supply both 'x' and 'y' or a matrix-like 'x'\n', class = 'try-error', condition = structure(list(message = 'supply both 'x' and 'y' or a matrix-like 'x'', call = quote(cov(rnorm(10), NULL))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible20_b55d9d7a68b893fb8589c2395ab94271() {
+ assertEval("argv <- list(structure(list(z = structure(c(1395082040.29392, 1395082040.29392, 1395082040.29392, 1395082040.29392, 1395082040.29392), class = c('AsIs', 'POSIXct', 'POSIXt'))), .Names = 'z', row.names = c(NA, -5L), class = 'data.frame'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible21_cec5e2edce17bb8145b060a6eba3bd65() {
+ assertEval("argv <- list(quote(~a + b:c + d + e + e:d));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible22_dbcbe9c02e4985a6d6ba50db32513413() {
+ assertEval("argv <- list(structure(list(tables = structure(list(`Grand mean` = 103.87323943662, N = structure(c(78.7365206866197, 98.5088731171753, 113.842206450509, 123.008873117175), .Dim = 4L, .Dimnames = structure(list(N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = 'N'), class = 'mtable'), `V:N` = structure(c(79.5323303457107, 86.1989970123773, 69.7732394366197, 98.0323303457106, 108.032330345711, 89.1989970123773, 114.198997012377, 116.698997012377, 110.365663679044, 124.365663679044, 126.365663679044, 118.032330345711), .Dim = 3:4, .Dimnames = structure(list(V = c('Golden.rain', 'Marvellous', 'Victory'), N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = c('V', 'N')), class = 'mtable')), .Names = c('Grand mean', 'N', 'V:N')), n = structure(list(N = structure(c(17, 18, 18, 18), .Dim = 4L, .Dimnames = structure(list(N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = 'N')), `V:N` = structure(c(6, 6, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6), .Dim = 3:4, .Dimnames = structure(list(V = c('Golden.rain', 'Marvellous', 'Victory'), N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = c('V', 'N')))), .Names = c('N', 'V:N'))), .Names = c('tables', 'n'), type = 'means', class = c('tables_aov', 'list.of')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible23_9107ab6d914c0c01314300b9d122cdbf() {
+ assertEval("argv <- list(structure(list(A = 0:10, `NA` = 20:30), .Names = c('A', NA), class = 'data.frame', row.names = c(NA, -11L)));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible24_b3c39c78a239b1a4e5711335c090a1f2() {
+ assertEval("argv <- list(structure(c(-Inf, -Inf, -2.248e+263, -Inf, -3.777e+116, -1), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), class = 'table'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible25_6398318a0787764c91a77e3b4fc26c35() {
+ assertEval("argv <- list(structure(list(Df = c(1, 1, NA, 2), Deviance = c(12.2441566485997, 28.4640218366572, 32.825622681839, 32.4303239692005), AIC = c(73.9421143635373, 90.1619795515948, 92.5235803967766, 96.1282816841381)), .Names = c('Df', 'Deviance', 'AIC'), row.names = c('+ M.user', '+ Temp', '<none>', '+ Soft'), class = c('anova', 'data.frame')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible26_20fd9d28871341957354286067b772a3() {
+ assertEval("argv <- list(c(-1, -0.5, 0, 0.5, 1));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible27_9d6359ac126c998e0e4fad50f84fa57b() {
+ assertEval("argv <- list(structure(c('Min. : 5.00 ', '1st Qu.: 12.50 ', 'Median : 23.00 ', 'Mean : 29.48 ', '3rd Qu.: 33.50 ', 'Max. :161.00 ', 'Min. :0.0000 ', '1st Qu.:1.0000 ', 'Median :1.0000 ', 'Mean :0.7826 ', '3rd Qu.:1.0000 ', 'Max. :1.0000 ', 'Maintained :11 ', 'Nonmaintained:12 ', NA, NA, NA, NA), .Dim = c(6L, 3L), .Dimnames = list(c('', '', '', '', '', ''), c(' time', ' status', ' x')), class = 'table'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible28_423581922e5ae91f02e80638072e19f0() {
+ assertEval("argv <- list(structure(list(latin1 = 0L, utf8 = 0L, bytes = 0L, unknown = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c('non_ASCII', 'where')))), .Names = c('latin1', 'utf8', 'bytes', 'unknown'), class = 'check_package_datasets'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible29_2701d0d8939ad9536cc9716e46feb080() {
+ assertEval("argv <- list(structure(NA, .Tsp = c(1, 1, 1), class = 'ts'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible3_305f44fe65c4ff50c6b1dc176c6c399a() {
+ assertEval("argv <- list(quote(Y ~ X));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible30_6896f742c1f16d75602045edbc79a02a() {
+ assertEval("argv <- list(structure(list(), class = 'formula'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible31_156f43d2bebed7008a153d5df86d06b9() {
+ assertEval("argv <- list(structure(list(strip.vp = structure(list(x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), width = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), height = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), justification = 'centre', gp = structure(list(), class = 'gpar'), clip = FALSE, xscale = c(-0.0330971105140634, 1.03229244338581), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = c(1L, 1L), layout.pos.col = c(1L, 1L), valid.just = c(0.5, 0.5), valid.pos.row = c(1L, 1L), valid.pos.col = c(1L, 1L), name = 'GRID.VP.40'), .Names = c('x', 'y', 'width', 'height', 'justification', 'gp', 'clip', 'xscale', 'yscale', 'angle', 'layout', 'layout.pos.row', 'layout.pos.col', 'valid.just', 'valid.pos.row', 'valid.pos.col', 'name'), class = 'viewport'), plot.vp = structure(list(x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), width = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), height = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), justification = 'centre', gp = structure(list(), class = 'gpar'), clip = FALSE, xscale = c(-0.0330971105140634, 1.03229244338581), yscale = c(-0.0353837383445352, 1.04704589419998), angle = 0, layout = NULL, layout.pos.row = c(2L, 2L), layout.pos.col = c(1L, 1L), valid.just = c(0.5, 0.5), valid.pos.row = c(2L, 2L), valid.pos.col = c(1L, 1L), name = 'GRID.VP.41'), .Names = c('x', 'y', 'width', 'height', 'justification', 'gp', 'clip', 'xscale', 'yscale', 'angle', 'layout', 'layout.pos.row', 'layout.pos.col', 'valid.just', 'valid.pos.row', 'valid.pos.col', 'name'), class = 'viewport')), .Names = c('strip.vp', 'plot.vp')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible32_6bbea709b64ef4974de0248dcc6ad2e0() {
+ assertEval("argv <- list(structure(list(name = 'list', objs = structure(list(`package:base` = .Primitive('list'), .Primitive('list')), .Names = c('package:base', '')), where = c('package:base', 'namespace:base'), visible = c(TRUE, FALSE), dups = c(FALSE, TRUE)), .Names = c('name', 'objs', 'where', 'visible', 'dups'), class = 'getAnywhere'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible33_1356f4f5c749535180ae7615c6fe7d0d() {
+ assertEval("argv <- list(structure(list(GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962, Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551)), .Names = c('GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year', 'Employed'), row.names = 1947:1962, class = 'data.frame'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible34_837f9af5584ebfa9bdd284710d213824() {
+ assertEval("argv <- list(structure(list(sec = 59.7693939208984, min = 47L, hour = 18L, mday = 17L, mon = 2L, year = 114L, wday = 1L, yday = 75L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible35_95a3a6e7b953ad9a8b4d348d6bf7583f() {
+ assertEval("argv <- list(structure(list(x = structure(c(63.8079770211941, 64.1015289795127, 64.3950809378313, 64.6886328961499, 64.9821848544685, 65.2757368127871, 65.5692887711057, 65.8628407294243, 66.1563926877429, 66.4499446460616, 66.7434966043802, 67.0370485626988, 67.3306005210174, 67.624152479336, 67.9177044376546, 68.2112563959732, 68.5048083542918, 68.7983603126104, 69.091912270929, 69.3854642292476, 69.6790161875662, 69.9725681458849, 70.2661201042035, 70.5596720625221, 70.8532240208407, 71.1467759791593, 71.4403279374779, 71.7338798957965, 72.0274318541151, 72.3209838124337, 72.6145357707524, 72.908087729071, 73.2016396873896, 73.4951916457082, 73.7887436040268, 74.0822955623454, 74.375847520664, 74.6693994789826, 74.9629514373012, 75.2565033956198, 75.5500553539384, 75.843607312257, 76.1371592705757, 76.4307112288943, 76.7242631872129, 77.0178151455315, 77.3113671038501, 77.6049190621687, 77.8984710204873, 78.1920229788059), unit = 'native', valid.unit = 4L, class = 'unit'), y = structure(c(0.000292389503184205, 0.000897790147984954, 0.00234624782100963, 0.00521720896677798, 0.00989423163518025, 0.015999825469344, 0.0221693602680603, 0.0266484406702544, 0.0287592128884921, 0.0302032637184832, 0.0349150884986298, 0.0473117449499264, 0.069811568153779, 0.101849712371392, 0.14014558800306, 0.179532924691013, 0.213121481011927, 0.233373692723354, 0.235396372946243, 0.221556776074102, 0.201658872746641, 0.187397555681655, 0.184299939839784, 0.187901304936084, 0.186879499085897, 0.171534710980926, 0.140953197828419, 0.103411084284294, 0.0700968149951466, 0.0478115464491638, 0.0363916682131507, 0.0310202066683672, 0.0267344490723088, 0.0212112857883806, 0.0149149265224817, 0.00956339674119522, 0.00665150505587597, 0.00689835920722663, 0.010231338259878, 0.0157315524205489, 0.0215689799990253, 0.0254154063025622, 0.0255363521874538, 0.0218531199052928, 0.0159232922023665, 0.00987834564939972, 0.00521442208935573, 0.00234582757042574, 0.000897736459776011, 0.000292383673435392), unit = 'native', valid.unit = 4L, class = 'unit'), arrow = NULL, name = 'plot_02.density.lines.panel.3.1', gp = structure(list(lty = 1, col = '#0080ff', lwd = 1, alpha = 1), .Names = c('lty', 'col', 'lwd', 'alpha'), class = 'gpar'), vp = NULL), .Names = c('x', 'y', 'arrow', 'name', 'gp', 'vp'), class = c('lines', 'grob', 'gDesc')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible37_2f3bd500af8625f0f1b6c0bc2896dd0a() {
+ assertEval("argv <- list(structure(list(sec = numeric(0), min = integer(0), hour = integer(0), mday = integer(0), mon = integer(0), year = integer(0), wday = integer(0), yday = integer(0), isdst = integer(0)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible38_c70c2774d6796dc6a64ef225992330e8() {
+ assertEval("argv <- list(structure(list(value = 4.94065645841247e-324, visible = TRUE), .Names = c('value', 'visible')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible39_8159f8ac05fe20dd4389e561b862fdb3() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor'), c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = c('c0', 'c0'), row.names = integer(0), class = 'data.frame'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible4_70fbe8ede7b0f5f5c7e8813d35dd20e4() {
+ assertEval("argv <- list(structure(list(height = numeric(0), weight = numeric(0)), .Names = c('height', 'weight'), row.names = integer(0), class = 'data.frame'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible40_0df6e2d8ec6995f7bc86b592b20008f8() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible41_a29afbe597cee1fbb67c29dd2fd1a72d() {
+ assertEval("argv <- list(c(1e-10, 1e+49, 1e+108, 1e+167, 1e+226));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible42_c9d5585333ea8506fd33360cf9a7a110() {
+ assertEval("argv <- list(structure('checkRd: (-3) Surv.Rd:90: Unnecessary braces at ‘{time2}’', class = 'checkRd'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible43_8c4a58085ea7fd3a2d6695118743f21a() {
+ assertEval("argv <- list(structure(list(raster = structure('#000000', .Dim = c(1L, 1L), class = 'raster'), x = structure(0, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), width = NULL, height = NULL, just = 'centre', hjust = NULL, vjust = NULL, interpolate = TRUE, name = 'GRID.rastergrob.785', gp = structure(list(), class = 'gpar'), vp = NULL), .Names = c('raster', 'x', 'y', 'width', 'height', 'just', 'hjust', 'vjust', 'interpolate', 'name', 'gp', 'vp'), class = c('rastergrob', 'grob', 'gDesc')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible44_bd7126349ba627ff21ae3cea3d9e32d3() {
+ assertEval("argv <- list(structure(c('0', 'NULL', 'NULL'), .Names = c('Length', 'Class', 'Mode'), class = c('summaryDefault', 'table')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible45_080a0da4f591d3a497be5a98c56c9eff() {
+ assertEval("argv <- list(structure(list(TEST = structure(c(1L, 2L, 6L, 3L, 4L, 5L, 10L, 11L, 9L, 7L, 8L), .Label = c('1', '2', '4', '5', '\\040', '\\b', '\\n', '\\r', '\\t', '\\x20', 'c:\\spencer\\tests'), class = 'factor')), .Names = 'TEST', class = 'data.frame', row.names = c(NA, -11L)));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible46_36112746bbcb8f587cea3b35923b948e() {
+ assertEval("argv <- list(structure(list(size = numeric(0), isdir = logical(0), mode = structure(integer(0), class = 'octmode'), mtime = structure(numeric(0), class = c('POSIXct', 'POSIXt')), ctime = structure(numeric(0), class = c('POSIXct', 'POSIXt')), atime = structure(numeric(0), class = c('POSIXct', 'POSIXt')), uid = integer(0), gid = integer(0), uname = character(0), grname = character(0)), .Names = c('size', 'isdir', 'mode', 'mtime', 'ctime', 'atime', 'uid', 'gid', 'uname', 'grname'), class = 'data.frame', row.names = character(0)));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible47_b695abc2e9c49487a19967aaee12b78c() {
+ assertEval("argv <- list(structure(list(a = c(1L, 4L, 7L), b = c(2L, 5L, 8L), c = c(3L, 6L, 9L)), .Names = c('a', 'b', 'c'), class = 'data.frame', row.names = c(NA, -3L)));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible49_f15fdde460ea0cea4a5129e29c8a0f23() {
+ assertEval("argv <- list(structure('Error in rnorm(1, sd = Inf) : (converted from warning) NAs produced\n', class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(1, sd = Inf))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible5_8f52a048e7a1cec98a3a0b5a0e5cc34e() {
+ assertEval("argv <- list(structure(c('Min. : 1.000 ', '1st Qu.: 9.000 ', 'Median :18.000 ', 'Mean :14.742 ', '3rd Qu.:20.000 ', 'Max. :23.000 ', NA, 'Min. :5.0000 ', '1st Qu.:5.3000 ', 'Median :6.1000 ', 'Mean :6.0841 ', '3rd Qu.:6.6000 ', 'Max. :7.7000 ', NA, 'Min. : 1.000 ', '1st Qu.: 24.250 ', 'Median : 56.500 ', 'Mean : 56.928 ', '3rd Qu.: 86.750 ', 'Max. :117.000 ', 'NA's :16 ', 'Min. : 0.500 ', '1st Qu.: 11.325 ', 'Median : 23.400 ', 'Mean : 45.603 ', '3rd Qu.: 47.550 ', 'Max. :370.000 ', NA, 'Min. :0.00300 ', '1st Qu.:0.04425 ', 'Median :0.11300 ', 'Mean :0.15422 ', '3rd Qu.:0.21925 ', 'Max. :0.81000 ', NA), .Dim = c(7L, 5L), .Dimnames = list(c('', '', '', '', '', '', ''), c(' event', ' mag', ' station', ' dist', ' accel')), class = 'table'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible50_cbd167372895093e2d28ea5d8e4aa7ad() {
+ assertEval("argv <- list(structure(1395078479.75887, class = c('POSIXct', 'POSIXt')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible51_f5485da8c3a11764c09c8e2d16e710de() {
+ assertEval("argv <- list(structure('Error in read.table(\'foo1\') : no lines available in input\n', class = 'try-error', condition = structure(list(message = 'no lines available in input', call = quote(read.table('foo1'))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible52_f2e6728eb51989ba4c939d45e547314e() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Dim = c(10L, 2L), .Dimnames = list(NULL, c('tt', 'tt + 1')), .Tsp = c(1920.5, 1921.25, 12), class = c('mts', 'ts', 'matrix')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible6_40df8f181221be318c35ef164cf2d10d() {
+ assertEval("argv <- list(structure(list(call = quote(lm(formula = y ~ x1 + x2 + x3)), terms = quote(y ~ x1 + x2 + x3), residuals = structure(c(0.224762433374997, 0.4813346401898, -0.548705796690786, -0.873306430909872, 0.3255545927283, -0.288240908441576, 0.530823516045489, -0.0649703574297026, 1.2699009772491, -1.05715266611575), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), coefficients = structure(c(1.47191076131574, 0.586694550701453, 0.258706725324317, 0.948371836939988, 0.396080061109718, 0.350912037541581, 1.55203972111298, 1.48125242421363, 0.737240953991673, 0.164593338447767, 0.182090654313858, 0.484947927602608), .Dim = 3:4, .Dimnames = list(c('(Intercept)', 'x1', 'x3'), c('Estimate', 'Std. Error', 't value', 'Pr(>|t|)'))), aliased = structure(c(FALSE, FALSE, TRUE, FALSE), .Names = c('(Intercept)', 'x1', 'x2', 'x3')), sigma = 0.806334473232766, df = c(3L, 7L, 4L), r.squared = 0.932605950232242, adj.r.squared = 0.913350507441455, fstatistic = structure(c(48.4333681840033, 2, 7), .Names = c('value', 'numdf', 'dendf')), cov.unscaled = structure(c(1.38333333333333, -0.525000000000001, 0.416666666666667, -0.525000000000001, 0.241287878787879, -0.208333333333334, 0.416666666666667, -0.208333333333334, 0.18939393939394), .Dim = c(3L, 3L), .Dimnames = list(c('(Intercept)', 'x1', 'x3'), c('(Intercept)', 'x1', 'x3'))), correlation = structure(c(1, -0.908715905467124, 0.814033538872717, -0.908715905467124, 1, -0.974558628915209, 0.814033538872717, -0.974558628915209, 1), .Dim = c(3L, 3L), .Dimnames = list( c('(Intercept)', 'x1', 'x3'), c('(Intercept)', 'x1', 'x3'))), symbolic.cor = FALSE), .Names = c('call', 'terms', 'residuals', 'coefficients', 'aliased', 'sigma', 'df', 'r.squared', 'adj.r.squared', 'fstatistic', 'cov.unscaled', 'correlation', 'symbolic.cor'), class = 'summary.lm'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible7_a5f3c84a06fa5286ea8195ce6130e445() {
+ assertEval("argv <- list(structure(list(call = quote(lm(formula = y ~ 0)), terms = quote(y ~ 0), aliased = logical(0), residuals = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), df = c(0L, 10L, 0L), coefficients = structure(logical(0), .Dim = c(0L, 4L), .Dimnames = list(NULL, c('Estimate', 'Std. Error', 't value', 'Pr(>|t|)'))), sigma = 0.523484262069588, adj.r.squared = 0, r.squared = 0), .Names = c('call', 'terms', 'aliased', 'residuals', 'df', 'coefficients', 'sigma', 'adj.r.squared', 'r.squared'), class = 'summary.lm'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible8_3cf4a7fccc369e7f23487c93513eb6d7() {
+ assertEval("argv <- list(structure(list(width = 80L, minIndent = 10L, extraIndent = 4L, sectionIndent = 5L, sectionExtra = 2L, itemBullet = '• ', enumFormat = function (n) sprintf('%d. ', n), showURLs = FALSE, code_quote = TRUE, underline_titles = FALSE), .Names = c('width', 'minIndent', 'extraIndent', 'sectionIndent', 'sectionExtra', 'itemBullet', 'enumFormat', 'showURLs', 'code_quote', 'underline_titles')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltininvisible_testinvisible9_cd7f44c88712d72f69696d5053761563() {
+ assertEval("argv <- list(quote(breaks ~ (wool + tension)^2));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisNamespaceEnv_testisNamespaceEnv1_1118796780eb467db770c3578d5271c0() {
+ assertEval("argv <- list(FALSE); .Internal(isNamespaceEnv(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisNamespaceEnv_testisNamespaceEnv2_ef0ec9653df3ba8cc68cec0a9ccafe4c() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(isNamespaceEnv(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisNamespaceEnv_testisNamespaceEnv3_2f32d4a6a135fac444e8c9f6d951a185() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame')); .Internal(isNamespaceEnv(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisOpen_testisOpen1_5a795842bfaa3be0d7b7f7c5a95f4edc() {
+ assertEval("argv <- list(structure(2L, class = c('terminal', 'connection')), 0L); .Internal(isOpen(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisOpen_testisOpen3_1fa961444bd5aaedc5e755eec3fe9aa6() {
+ assertEval("argv <- list(FALSE, 2L); .Internal(isOpen(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisS4_testisS41_4907b7a4490b3f1a958ab27c3810a7e5() {
+ assertEval("argv <- list(c('time', 'status'));isS4(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisS4_testisS410_229aadb560bf0ed9f80b0fb684501f90() {
+ assertEval("argv <- list(structure(list(coefficients = structure(c(62.4053692999179, 1.55110264750845, 0.510167579684914, 0.101909403579661, -0.144061029071015), .Names = c('(Intercept)', 'x1', 'x2', 'x3', 'x4')), residuals = structure(c(0.00476041849820263, 1.51120069970905, -1.67093753208295, -1.72710025504269, 0.250755561773019, 3.92544270216433, -1.44866908650026, -3.17498851728652, 1.3783494772083, 0.281547998741553, 1.99098357125943, 0.972989034920119, -2.2943340733616), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13')), effects = structure(c(-344.052796708698, 38.0798677535417, -34.7531619513928, -3.12951579377076, 0.496965514049109, 4.50219669010871, -0.53327716269669, -2.71488989732451, 1.79317596396333, 1.57288365899254, 2.82474425399188, 1.8967418325489, -1.63480882826157), .Names = c('(Intercept)', 'x1', 'x2', 'x3', 'x4', '', '', '', '', '', '', '', '')), rank = 5L, fitted.values = structure(c(78.4952395815018, 72.7887993002909, 105.970937532083, 89.3271002550427, 95.649244438227, 105.274557297836, 104.1486690865, 75.6749885172865, 91.7216505227917, 115.618452001258, 81.8090164287406, 112.32701096508, 111.694334073362), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13')), assign = 0:4, qr = structure(list(qr = structure(c(-3.60555127546399, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, -26.9029595169236, 20.3772120082893, -0.178565892506596, -0.178565892506596, 0.0177318148722558, -0.178565892506596, 0.214029522251108, 0.312178375940534, 0.263103949095821, -0.669310160953726, 0.312178375940534, -0.178565892506596, -0.129491465661883, -173.621161418497, 12.3214560939341, -52.4773668110126, -0.304364982610169, 0.171821393780133, 0.152975037639542, 0.609896101816292, -0.114330335930658, 0.304950385474031, -0.189506282456539, 0.0571721716629835, 0.362589213587327, 0.41970434660942, -42.43456501123, -18.2858864335223, -1.11991681104158, -12.5171816310368, -0.405342735734607, 0.108637576500954, 0.150506108798058, 0.497910771855039, 0.197741319088291, 0.429225499683342, 0.557905444893665, 0.0843208353807417, -0.0702259750833564, -108.16653826392, -14.2315837849668, 54.6072781350954, 12.8688326829848, -3.44968738078449, -0.0383654655076831, 0.50336264362848, 0.326250451511037, -0.0404173233188265, 0.0147578414456289, 0.526049642157631, 0.437713824243366, 0.410519010978314), .Dim = c(13L, 5L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13'), c('(Intercept)', 'x1', 'x2', 'x3', 'x4')), assign = 0:4), qraux = c(1.27735009811261, 1.31217837594053, 1.17203087181661, 1.08180209589898, 1.00399408483144), pivot = 1:5, tol = 1e-07, rank = 5L), .Names = c('qr', 'qraux', 'pivot', 'tol', 'rank'), class = 'qr'), df.residual = 8L, xlevels = structure(list(), .Names = character(0)), call = quote(lm(formula = y ~ x1 + x2 + x3 + x4, data = d2)), terms = quote(y ~ x1 + x2 + x3 + x4), model = structure(list(y = c(78.5, 74.3, 104.3, 87.6, 95.9, 109.2, 102.7, 72.5, 93.1, 115.9, 83.8, 113.3, 109.4), x1 = c(7, 1, 11, 11, 7, 11, 3, 1, 2, 21, 1, 11, 10), x2 = c(26, 29, 56, 31, 52, 55, 71, 31, 54, 47, 40, 66, 68), x3 = c(6, 15, 8, 8, 6, 9, 17, 22, 18, 4, 23, 9, 8), x4 = c(60, 52, 20, 47, 33, 22, 6, 44, 22, 26, 34, 12, 12)), .Names = c('y', 'x1', 'x2', 'x3', 'x4'), terms = quote(y ~ x1 + x2 + x3 + x4), row.names = c(NA, 13L), class = 'data.frame'), formula = quote(y ~ x1 + x2 + x3 + x4)), .Names = c('coefficients', 'residuals', 'effects', 'rank', 'fitted.values', 'assign', 'qr', 'df.residual', 'xlevels', 'call', 'terms', 'model', 'formula'), class = 'lm'));isS4(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisS4_testisS411_7bcfc47416f17173466c77fb3260721f() {
+ assertEval("argv <- list(3.14159265358979);isS4(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisS4_testisS412_28509e9d38b33852b4cd80036380c413() {
+ assertEval("argv <- list(structure(1, .Dim = 1L));isS4(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisS4_testisS413_ce949e8b406386f3078929c59d56426d() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c('1', '2', NA), class = 'factor'));isS4(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisS4_testisS414_36040d9253fd152e991de71f4f66d25d() {
+ assertEval("argv <- list(structure(list(usr = c(0.568, 1.432, -1.08, 1.08), xaxp = c(0.6, 1.4, 4), yaxp = c(-1, 1, 4)), .Names = c('usr', 'xaxp', 'yaxp')));isS4(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisS4_testisS415_381af965b65bfc6ebfba9f54181f3203() {
+ assertEval("argv <- list(structure(list(row.names = c('rate', 'additive', 'rate:additive', 'Residuals'), SS = structure(list(rate = structure(c(1.7405, -1.5045, 0.855500000000001, -1.5045, 1.3005, -0.739500000000001, 0.855500000000001, -0.739500000000001, 0.420500000000001), .Dim = c(3L, 3L), .Dimnames = list(c('tear', 'gloss', 'opacity'), c('tear', 'gloss', 'opacity'))), additive = structure(c(0.760499999999999, 0.682499999999998, 1.9305, 0.682499999999998, 0.612499999999998, 1.7325, 1.9305, 1.7325, 4.90050000000001), .Dim = c(3L, 3L), .Dimnames = list(c('tear', 'gloss', 'opacity'), c('tear', 'gloss', 'opacity'))), `rate:additive` = structure(c(0.000500000000000012, 0.0165000000000002, 0.0445000000000006, 0.0165000000000002, 0.5445, 1.4685, 0.0445000000000006, 1.4685, 3.9605), .Dim = c(3L, 3L), .Dimnames = list(c('tear', 'gloss', 'opacity'), c('tear', 'gloss', 'opacity'))), Residuals = structure(c(1.764, 0.0200000000000005, -3.07, 0.0200000000000005, 2.628, -0.551999999999994, -3.07, -0.551999999999994, 64.924), .Dim = c(3L, 3L), .Dimnames = list(c('tear', 'gloss', 'opacity'), c('tear', 'gloss', 'opacity')))), .Names = c('rate', 'additive', 'rate:additive', 'Residuals')), Eigenvalues = structure(c(1.61877188028067, 0.911918322770912, 0.286826136427727, -8.75998844614162e-17, -6.73817551294033e-18, 8.58370095630716e-18, 1.36263996836868e-17, -6.73817551294033e-18, -2.24871081520413e-19), .Dim = c(3L, 3L), .Dimnames = list(c('rate', 'additive', 'rate:additive'), NULL)), stats = structure(c(1, 1, 1, 16, 0.618141615338857, 0.476965104581081, 0.222894242126575, NA, 7.55426877464313, 4.25561883959759, 1.33852196999606, NA, 3, 3, 3, NA, 14, 14, 14, NA, 0.00303404516026092, 0.0247452809990207, 0.301781645099671, NA), .Dim = c(4L, 6L), .Dimnames = list(c('rate', 'additive', 'rate:additive', 'Residuals'), c('Df', 'Pillai', 'approx F', 'num Df', 'den Df', 'Pr(>F)')))), .Names = c('row.names', 'SS', 'Eigenvalues', 'stats'), class = 'summary.manova'));isS4(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisS4_testisS416_5ed692d682105e7526f4932f68448923() {
+ assertEval("argv <- list(4.94065645841247e-324);isS4(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisS4_testisS417_eb07cb6703e420cc46d139bac4ea1a99() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'));isS4(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisS4_testisS42_89311a46b53222efcd83e2a3fb7442b8() {
+ assertEval("argv <- list(structure(1:10, .Tsp = c(1959.25, 1961.5, 4), class = 'ts'));isS4(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisS4_testisS43_0243b655aa32aad303463319d8c2b35e() {
+ assertEval("argv <- list(1.79769313486232e+308);isS4(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisS4_testisS44_19684e71a196f8905d1d69c0e80fb057() {
+ assertEval("argv <- list(structure(c('a1', NA, NA, 'a4'), class = 'AsIs'));isS4(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisS4_testisS45_6b63f0ec318201753dea78cbcaf045b8() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 2L, 2L), Deviance = c(NA, 5.45230478674972, 2.66453525910038e-15), `Resid. Df` = c(8L, 6L, 4L), `Resid. Dev` = c(10.5814458637509, 5.12914107700115, 5.12914107700115)), .Names = c('Df', 'Deviance', 'Resid. Df', 'Resid. Dev'), row.names = c('NULL', 'outcome', 'treatment'), class = c('anova', 'data.frame'), heading = 'Analysis of Deviance Table\n\nModel: poisson, link: log\n\nResponse: counts\n\nTerms added sequentially (first to last)\n\n'));isS4(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisS4_testisS46_82ec71b947496974e016ebf683a05418() {
+ assertEval("argv <- list(structure(list(f = structure(c(1L, 1L, 1L), .Label = c('1', '2'), class = 'factor'), u = structure(12:14, unit = 'kg', class = 'avector')), .Names = c('f', 'u'), row.names = 2:4, class = 'data.frame'));isS4(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisS4_testisS47_84787b337c26b3938c46f7e6d5a9ee4f() {
+ assertEval("argv <- list(structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)));isS4(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisS4_testisS48_d5c3338735fe723136d03cec064a48d4() {
+ assertEval("argv <- list(structure(list(a = c(1L, 2L, 3L, NA), b = c(NA, 3.14159265358979, 3.14159265358979, 3.14159265358979), c = c(TRUE, NA, FALSE, TRUE), d = structure(c(1L, 2L, NA, 3L), .Label = c('aa', 'bb', 'dd'), class = 'factor'), e = structure(c(1L, NA, NA, 2L), .Label = c('a1', 'a4'), class = 'factor'), f = structure(c(11323, NA, NA, 12717), class = 'Date')), .Names = c('a', 'b', 'c', 'd', 'e', 'f'), row.names = c(NA, -4L), class = 'data.frame', data_types = c('N', 'N', 'L', 'C', 'C', 'D')));isS4(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisS4_testisS49_e6a2a00f25b763e507fca1fcd0bb912e() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));isS4(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray1_0d3d50edcf282c3164a3221aa0ceea6f() {
+ assertEval("argv <- list(structure(list(weight = c(4.17, 5.58), group = structure(c(1L, 1L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = c('weight', 'group'), row.names = 1:2, class = 'data.frame'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray10_88fcff87e58d6ff40b04f5a3df0e233e() {
+ assertEval("argv <- list(structure(integer(0), .Names = character(0)));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray11_5b6873df0dabaaa05273dec606e1303c() {
+ assertEval("argv <- list(structure(list(c0 = logical(0)), .Names = 'c0', row.names = integer(0), class = 'difftime'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray12_21fc70ffd6e9e25979c4df0809605fb4() {
+ assertEval("argv <- list(structure(list(B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c('I', 'II', 'III', 'IV', 'V', 'VI'), class = 'factor'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c('Golden.rain', 'Marvellous', 'Victory'), class = 'factor'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt'), class = 'factor'), Y = c(130L, 157L, 174L, 117L, 114L, 161L, 141L, 105L, 140L, 118L, 156L, 61L, 91L, 97L, 100L, 70L, 108L, 126L, 149L, 96L, 124L, 121L, 144L, 68L, 64L, 112L, 86L, 60L, 102L, 89L, 96L, 89L, 129L, 132L, 124L, 74L, 89L, 81L, 122L, 64L, 103L, 132L, 133L, 70L, 89L, 104L, 117L, 62L, 90L, 100L, 116L, 80L, 82L, 94L, 126L, 63L, 70L, 109L, 99L, 53L, 74L, 118L, 113L, 89L, 82L, 86L, 104L, 97L, 99L, 119L, 121L)), .Names = c('B', 'V', 'N', 'Y'), row.names = 2:72, class = 'data.frame'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray13_41fc271437dbcce88681e9bf60c8e180() {
+ assertEval("argv <- list(1.79769313486232e+308);is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray14_ead6e2f5c831513e9268c3fc834bddb6() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray15_030c86ef40225016a8412ec6f922668c() {
+ assertEval("argv <- list(structure(c(-0.826728474083517, -0.154469781470927, 0.390336546510923, 1.36531474451071, 2.06722571939869, 1.96521311125433, 1.45602298338166, 0.730191404067138, -0.941608750081938, -0.839732558506723, -0.0905911085922035, 0.450465973953452, 1.12065714554563, 1.45760317860118, 1.25109677501882, 1.2162018587134, 1.45496813096317, -0.271923056200992, -2.39070401244086, -2.40312653243942, 1.3490211050246, 0.723634003520978, -0.525571703048375, -2.20018568844273, -1.57021740950431, -1.15394138529193, -0.771438011070496, 0.948968136215006, 1.11028283982967, 1.3490211050246, 0.723634003520978, -0.771438011070496, -1.76787333029837, -2.97849067734298, -2.56564546193719, -1.42386100140387, -0.482534191368393, 0.15506930200634, 0.878254497780181, 1.05319014844382, 0.0786502243396558, -0.896275208780418, -0.852907979665288, -1.36905276490888, -0.852907979665288, 0.378793517229249, 1.51661659600387, 1.37393548755461, -1.19044178751146, -1.01371204398328, -0.413541319881442, -0.0155111902607956, 0.511260101660621, 1.1596935438887, 1.49073250236106, 1.90481616825336, 1.72198968844944, 1.06922804353907, -0.525571703048375, -2.20018568844273, -1.57021740950431, -1.15394138529193, -0.771438011070496, 0.948968136215006, 1.11028283982967, 1.3490211050246, 0.723634003520978, -0.771438011070496, -1.76787333029837, 1.90481616825336, -1.15394138529193, -0.771438011070496, 0.948968136215006, 1.11028283982967, 1.3490211050246, 0.723634003520978, -0.771438011070496, -1.76787333029837, 1.17726251300777, 0.873546391155001, -0.257195249490748, -1.08470959372261, -1.32132136208769, -1.28389495656857, -0.471605120836204, 0.606878400401293, 1.31985237043395, 2.02783906485667, 1.57046182864688, -0.252818874890949, -1.24388962195487, -0.626057778621366, 1.49073250236106, 1.90481616825336, 1.72198968844944, 1.06922804353907, -0.525571703048375, -2.20018568844273, -1.57021740950431, -1.15394138529193, -0.771438011070496, 0.948968136215006, 1.11028283982967, 1.45760317860118, 1.25109677501882, 1.2162018587134, 1.45496813096317, -0.271923056200992, -2.39070401244086, -2.40312653243942, -2.10302193998908, -1.35143116355906, -0.796191750223435, 0.24658809164983), .Dim = c(114L, 1L), .Dimnames = list(NULL, 'Series 1'), .Tsp = c(1, 114, 1), class = 'ts'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray16_ac51cb19ad9dc83e3dccf6bbe8cb212e() {
+ assertEval("argv <- list(structure(c(1.82608695652174, 1.17391304347826, 1.17391304347826, 4.17391304347826, 1.82608695652174, 1.82608695652174, 2.17391304347826, 0.173913043478262, 4.17391304347826, 0.826086956521738, 2.17391304347826, 2.17391304347826, 2.17391304347826, 4.17391304347826, 2.82608695652174, 2.17391304347826, 2.17391304347826, 0.826086956521738, 3.82608695652174, 1.82608695652174, 4.82608695652174, 0.173913043478262, 7.82608695652174, 1.15, 5.15, 0.85, 1.15, 2.85, 2.85, 1.85, NA, 6.15, 2.85, 0.15, 3.15, 0.15, NA, NA, 1.15, 1.85, 0.15, 0.85, 0.85, 2.15, 2.85, 2.85, 32.2608695652174, 54.2608695652174, 36.2608695652174, 45.2608695652174, 194.739130434783, 130.739130434783, 35.2608695652174, 59.2608695652174, 63.2608695652174, 25.7391304347826, 25.2608695652174, 44.2608695652174, 16.2608695652174, 63.2608695652174, 53.2608695652174, 56.2608695652174, 19.2608695652174, 35.2608695652174, 39.2608695652174, 7.26086956521739, 38.2608695652174, 213.739130434783, 158.739130434783, 8.09999999999999, 94.9, 59.9, 49.9, 176.1, 11.1, 59.9, NA, 100.1, 15.1, 21.1, 84.1, 65.1, NA, NA, 63.9, 37.9, 26.9, 128.9, 42.1, 87.9, 118.1, 30.9), .Dim = c(23L, 4L), .Dimnames = list(NULL, c('V1', 'V2', 'V3', 'V4')), '`scaled:center`' = structure(c(10.8260869565217, 3.85, 95.2608695652174, 137.9), .Names = c('V1', 'V2', 'V3', 'V4'))));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray17_88afa3e7a5a1bcfd2df4c48a1368061b() {
+ assertEval("argv <- list(c('1', '2', NA));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray18_c3923ad852a8da4673f4620be0a4596c() {
+ assertEval("argv <- list(structure(list(y = c(0.219628047744843, 0.360454661130887, NA, 0.114681204747219, -1.14267533343616, 0.772374419482067, 0.681741904304867, 0.171869265068012, 2.08409180391906, 0.367547276775469), x1 = c(1L, 2L, 3L, NA, 5L, 6L, 7L, 8L, 9L, 10L), x2 = 1:10, x3 = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), wt = c(0, 1, 1, 1, 1, 1, 1, 1, 1, 1)), .Names = c('y', 'x1', 'x2', 'x3', 'wt'), row.names = c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j'), class = 'data.frame'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray19_a7af74f10258ccced4eb182c506533ba() {
+ assertEval("argv <- list(structure(list(x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861)), .Names = c('x', 'y'), row.names = c(NA, -10L), class = 'data.frame'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray2_9a04fcce999c578c3425570b128a58fe() {
+ assertEval("argv <- list(structure(list(weight = c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = c('weight', 'group'), row.names = c(NA, -20L), class = 'data.frame'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray20_b2073f65aff5589a27cf4fe47e6af40b() {
+ assertEval("argv <- list(structure(c(365, 365, 365, 366, 1, 0), .Dim = c(3L, 2L)));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray21_92d45cfdd9c02f04e0d22900b19fc4d2() {
+ assertEval("argv <- list(integer(0));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray22_c670debb7d36b5f500c3374ede380770() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4, .Dimnames = list(c('A', 'B', 'C'), c('D', 'E', 'F', 'G'))));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray23_e216af7fc7279afd7fb7bc919ff96fe1() {
+ assertEval("argv <- list(c(0.568, 1.432, -1.08, 1.08));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray3_8dd8ad8387d0cdcb917df4215fd0df18() {
+ assertEval("argv <- list(structure(c(3.3675190249981e-55, 0.765191717864009, 1.84321904447013e-13, 0.270563224172485, 1.09996038197079, 1.31584681249013e-26, 0.00018392029356426, 0.515909871821833, 3.2666146281237e-45, -9.79475754683005e-56, -0.139604410987981, -1.56689901864133e-13, -0.285096750996398, -0.00590762252543826, -1.87837727043588e-27, -1.95765906855729e-05, -0.587847588896037, -1.0000270983218e-45), .Dim = c(9L, 2L), .Dimnames = list(NULL, c('Comp.1', 'Comp.2'))));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray4_b004adff6d04b601171db3d813b117aa() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray5_17b3162bba911f09b913189190d33f76() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE), .Dim = c(11L, 2L)));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray6_b76037451a26fe2cfbb32861e0c755dd() {
+ assertEval("argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray7_a77560243cad5f50886f1d915fb0e178() {
+ assertEval("argv <- list(c('2001-01-01', NA, NA, '2004-10-26'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray8_47f56e7652ab2b32f7fd10e753471722() {
+ assertEval("argv <- list(structure(list(breaks = c(26, 30, 54, 25, 70, 52, 51, 26, 67, 27, 14, 29, 19, 29, 31, 41, 20, 44), wool = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('A', 'B'), class = 'factor'), tension = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c('L', 'M', 'H'), class = 'factor')), .Names = c('breaks', 'wool', 'tension'), row.names = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L), class = 'data.frame'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisarray_testisarray9_55946626bc3990fee5da18646e3b11a3() {
+ assertEval("argv <- list(structure(list(carb = c(33, 40, 37, 27, 30, 43, 34, 48, 30, 38, 50, 51, 30, 36, 41, 42, 46, 24, 35, 37), age = c(33, 47, 49, 35, 46, 52, 62, 23, 32, 42, 31, 61, 63, 40, 50, 64, 56, 61, 48, 28), wgt = c(100, 92, 135, 144, 140, 101, 95, 101, 98, 105, 108, 85, 130, 127, 109, 107, 117, 100, 118, 102), prot = c(14, 15, 18, 12, 15, 15, 14, 17, 15, 14, 17, 19, 19, 20, 15, 16, 18, 13, 18, 14)), .Names = c('carb', 'age', 'wgt', 'prot'), row.names = c(NA, -20L), class = 'data.frame'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic1_0200c5d21332e873cc40a92a21854959() {
+ assertEval("argv <- list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12'));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic10_e84a07ff40047b27d5c41908ec79f522() {
+ assertEval("argv <- list(structure(c(123.263157894737, 88.6052631578949, 77.0526315789476, 60.9473684210528, 54.3947368421055, 43.8421052631581, 34.2894736842107, 14.7368421052633, 10.6315789473686, 1.07894736842124, -9.47368421052613, -11.0263157894735, -16.1315789473682, -13.6842105263156, -3.23684210526298, -1.34210526315772, 11.1052631578949, -0.44736842105246, 7.00000000000017, 7.4473684210528, 6.89473684210543, 5.34210526315806, -8.21052631578931, -15.7631578947367, -3.31578947368405, 24.5789473684212, 27.0263157894738, 26.4736842105265, 21.9210526315791, 23.3684210526317, 27.263157894737, 19.6052631578949, 21.0526315789475, 26.5000000000001, 22.9473684210528, 12.3947368421054, 1.84210526315803, 5.28947368421066, -1.81578947368408, 4.63157894736855, 24.5263157894738, 10.9736842105264, 4.42105263157907, -10.1315789473683, -10.6842105263157, 12.763157894737, 33.2105263157896, 35.1052631578949, 44.5526315789475, 41.0000000000001, 46.4473684210527, 59.8947368421054, 69.342105263158, 64.7894736842106, 48.6842105263159, 63.1315789473685, 54.0263157894738, 46.4736842105264, 41.921052631579, 35.3684210526317, 27.8157894736843, 32.2631578947369, 36.7105263157896, 32.1578947368422, 23.6052631578948, 14.0526315789475, 12.5000000000001, -5.05263157894728, 9.84210526315798, 7.28947368421061, 16.7368421052632, 13.1842105263159, 13.6315789473685, 7.07894736842113, 9.52631578947376, 6.42105263157902, 4.31578947368428, -7.23684210526309, -15.7894736842105, 0.657894736842167, -5.8947368421052, 0.552631578947427, 7.44736842105269, -10.1052631578947, -3.65789473684205, 0.789473684210577, 7.23684210526321, 16.6842105263158, 7.13157894736847, -4.4210526315789, -5.97368421052627, -11.5263157894736, -4.07894736842101, -16.6315789473684, -14.1842105263158, -19.7368421052631, -11.2894736842105, -5.84210526315786, -13.3947368421052, -14.9473684210526, -15.5, -21.0526315789473, -6.60526315789471, -14.1578947368421, -8.71052631578945, -6.26315789473682, -11.8157894736842, -19.3684210526316, -6.92105263157893, -18.4736842105263, -19.0263157894737, -15.578947368421, -16.1315789473684, -12.6842105263158, 5.76315789473685, 3.21052631578948, 2.65789473684211, 5.10526315789474, 11.5526315789474), .Names = c('11', '12', '13', '15', '26', '30', '31', '53', '54', '59', '60', '65', '71', '81', '88', '92', '93', '95', '105', '107', '110', '116', '118', '131', '132', '135', '142', '144', '147', '156', '163', '166', '170', '174', '175', '176', '177', '179', '180', '181', '183', '185', '188', '189', '191', '196', '197', '202', '207', '210', '212', '218', '221', '222', '223', '225', '229', '230', '237', '239', '246', '259', '267', '269', '270', '279', '283', '284', '285', '286', '288', '291', '292', '300', '301', '303', '306', '310', '320', '329', '337', '353', '363', '364', '371', '387', '390', '394', '404', '413', '428', '429', '442', '444', '455', '457', '458', '460', '477', '519', '524', '533', '558', '567', '574', '583', '613', '624', '643', '655', '689', '707', '791', '806', '814', '840', '883', '1010', '1022')));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic11_45dfb74919538825a9c2e0bc30b87404() {
+ assertEval("argv <- list(structure(c(0, -0.0555555555555556, 0.02, 0.0625, 0.0625, 0.04, 0, 0), .Dim = c(8L, 1L), .Dimnames = list(c('2', '3', '6', '7', '8', '9', '14', '17'), 'x')));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic12_0738066a3b4efdd1d250f76e523aed75() {
+ assertEval("argv <- list(structure(c(2.21843970753346, 1.80732678656753, -1.09399175987006, 0.585986462327552, -5.68458926982395, 1.23352238598674, 0.457950438444482, 2.51599006679516, -2.28780372840319, 5.53596062467695, 2.17890565095959, -1.59611751350773, -2.9672978602151, 0.745175851232308, 1.93388282434376, -3.03559459078455, 2.19500990255906, 0.0725275773318347, -0.75336064096447, -1.15505962102859, -2.84782886882524, -1.41070341448251, -0.540252474026749, 4.87719739781058, 0.890715639552621, -0.968642103099399, 1.73177156113283, -0.993218102309356, -0.656454198323984, -1.5299506933835, -0.298424468882268, 6.51011264717937, 2.68326774833378, 1.99295445531679, -0.214079422583434, 6.73505308264589, -4.54579214489424, -2.3991834444486, -1.71479569181251, -6.47293095421849, -1.67116930820449, -11.5853328029437, -2.48588878138021, -0.888857646918452, 8.06807102468956, -0.216046323028316, 6.24682938323398, -1.74761908105831, 2.53082303181417, 2.31410662801887, 2.97453294161523, -2.88723068649699, -1.04144266580674, -0.835536300630093, -6.10229135345437, -4.37605802846523, -1.94289029309402e-16, 5.96619037131792, -1.1474434665393, 3.78819830631063, -3.01580771910632, -0.656454198323984, 1.50824785799851, -2.06401783962239, -3.02346226775125, 0.407243897855763, -3.96478352340807, -2.12718621336067, -0.78924288871239, -3.03559459078455, 0.457950438444496, -0.797900839851943, -3.38233849466459, 1.97815029009903, 0.745175851232309, -1.09645503136389, 0.341748714147263, 7.32472922782987, -1.33672649241008, 1.51931399477032, 0.00590129163826772, -4.09533092706814, 0.195481697042187, -2.7736762657602, -3.48737543915568, 0.536312040203338, 0.775871729180551, 4.37979177946206, 1.30271070089245, 4.2132287611068, 7.33457656622414, 3.28311350719274, -1.30271070089245), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93')));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic13_e719aa75e3239b1bb5e96f2d4f6acfff() {
+ assertEval("argv <- list(c(1, 0, 2, NA, 3));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic14_b2e13e656aac92d2917521a72f6a9e21() {
+ assertEval("argv <- list(c(1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.00566013786017473, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.00900237050730269, -0.728901016108085, 1, 0, 0, 0, 0, 0, 0, 0, 0, -0.0165439610603712, 0.195986923200517, -0.65974257839475, 1, 0, 0, 0, 0, 0, 0, 0, -0.066085607580362, -0.0156976524162818, 0.173905017001082, -0.499536921684336, 1, 0, 0, 0, 0, 0, 0, -0.0738085645370442, -0.0203225592950423, -0.115986092442635, 0.0129919901272555, -0.442920654638837, 1, 0, 0, 0, 0, 0, 0.0393894522336503, -0.0197375262983596, -0.124011676515792, -0.217221939591068, -0.129869023991585, -0.565387274218169, 1, 0, 0, 0, 0, 0.0607863121945582, -0.0166644168652946, -0.107337280394758, -0.197961946387821, -0.278643450192551, -0.207586147284064, -0.767412521925717, 1, 0, 0, 0, 0.062350529551034, -0.00752786862124525, -0.0512212310455943, -0.0966787787982999, -0.13451920005707, -0.183723918913255, -0.15174930099133, -1.08016400642495, 1, 0, 0, 0.00956599068508591, -0.00134207672049057, -0.00895378984363029, -0.0175914048294707, -0.0252596683886793, -0.0334470581271047, -0.0623904491074943, 0.117178336161866, -1.32461347964996, 1, 0, -0.000288769768734922, -7.2526747819756e-05, -0.000396728614559744, -0.000760325293277726, -0.00119170347009929, -0.00158048211775626, -0.00256503558312322, -0.00605270851626604, 0.3995724375217, -0.740914424130097, 1));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic15_fe7a61b459706d9eba4f71d4d69410fa() {
+ assertEval("argv <- list(structure(list(age = 62.4473684210526, age.strata.sex.sex.2 = 24.109649122807), .Names = c('age', 'age.strata.sex.sex.2'), row.names = c(NA, -1L), class = 'data.frame'));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic16_13250ffe89b48db1d9c7f00bdb25d2fc() {
+ assertEval("argv <- list(structure(list(base = c(11L, 11L, 6L, 8L, 66L, 27L, 12L, 52L, 23L, 10L, 52L, 33L, 18L, 42L, 87L, 50L, 18L, 111L, 18L, 20L, 12L, 9L, 17L, 28L, 55L, 9L, 10L, 47L, 76L, 38L, 19L, 10L, 19L, 24L, 31L, 14L, 11L, 67L, 41L, 7L, 22L, 13L, 46L, 36L, 38L, 7L, 36L, 11L, 151L, 22L, 41L, 32L, 56L, 24L, 16L, 22L, 25L, 13L, 12L)), .Names = 'base', class = 'data.frame', row.names = c(1L, 5L, 9L, 13L, 17L, 21L, 25L, 29L, 33L, 37L, 41L, 45L, 49L, 53L, 57L, 61L, 65L, 69L, 73L, 77L, 81L, 85L, 89L, 93L, 97L, 101L, 105L, 109L, 113L, 117L, 121L, 125L, 129L, 133L, 137L, 141L, 145L, 149L, 153L, 157L, 161L, 165L, 169L, 173L, 177L, 181L, 185L, 189L, 193L, 197L, 201L, 205L, 209L, 213L, 217L, 221L, 225L, 229L, 233L)));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic17_ece48bbf7cead7f3fbeae3ea87593a5c() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 0, 2.47032822920623e-323, 0, 0, 0, 0, 0));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic18_7ffe4032ea96868faf0485e5a8e7779b() {
+ assertEval("argv <- list(structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic19_d514e7e885a60614e861834a6e8ec1d6() {
+ assertEval("argv <- list(c(NA, 'Ripley', 'Venables & Smith'));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic2_061a3bc4d98c43ea0b5fb783b287bd3b() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 0, 10, NA), .Dim = c(3L, 2L)));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic20_daa6a103c57b01e1fd1321f459314cb0() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic21_afe002f64a5559c31efb0c1be32ef5c9() {
+ assertEval("argv <- list(structure(FALSE, .Tsp = c(1, 1, 1), class = 'ts'));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic22_62c9d7835a3a3aa3077d36787c6af373() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(4L, 0L)));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic23_60fa3dbb259b85adfc4917b6e518edac() {
+ assertEval("argv <- list(structure(1:3, .Label = c('4', '5', '6'), class = 'factor'));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic24_fb855967e68768a0cc15a307d7cbddc0() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L, 4L, 4L, 4L), .Label = c('freckle', 'superficial', 'nodular', 'indeterminate'), class = 'factor', contrasts = 'contr.treatment'));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic25_8d4f26b51a2ff1c7b4b17369dfd82ffb() {
+ assertEval("argv <- list(raw(0));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic26_879a930fb0ee28aa2a0817e7d9f53ada() {
+ assertEval("argv <- list(c(19.7787405591752, 12504507.4953993, 12504507.4953993, 5.96190157728191e+41));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic27_504e7611e2c16e742c496baa98bfe41b() {
+ assertEval("argv <- list(character(0));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic28_843c5dce114c40aaad50b81af217259b() {
+ assertEval("argv <- list(structure(list(a1 = 1:3, a2 = 4:6, a3 = 3.14159265358979, a4 = c('a', 'b', 'c')), .Names = c('a1', 'a2', 'a3', 'a4')));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic29_e7ba38d99c82ac07d2bf16aec10cfd1d() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c('1', '2', NA), class = 'factor'));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic3_a3cf0fdfa26309f5c960a05b331ea727() {
+ assertEval("argv <- list(structure(list(x = 1:10, yyy = 11:20), .Names = c('x', 'yyy'), row.names = c(NA, -10L), class = 'data.frame'));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic30_f8b97f270cef89e38127b86ad7af58df() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic31_44a0e5b3823f2dc3c7d795846a316578() {
+ assertEval("argv <- list(c(2L, 1L, NA));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic32_1b10484ac617b34ce2a1abaff7b3e3fa() {
+ assertEval("argv <- list(structure(1:20, .Tsp = c(1, 20, 1), class = 'ts'));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic4_5abee546e5f427687eeda09829d637f7() {
+ assertEval("argv <- list(c(-1.12778377684043, -12820.0784261145, -21650982809.6744, -473300382255715392, -6.08456909882282e+25, -3.04622557026196e+34, -4.60125024792566e+43, -1.76183826972506e+53, -1.5069799345972e+63, -2.61556777274611e+73, -8.54170618068872e+83, -4.9383857330861e+94, -4.80716085942859e+105, -7.55412056676629e+116, -1.84898368353639e+128, -6.83535188151783e+139, -3.71562599613334e+151, -2.90089508183654e+163, -3.18582547396557e+175, -4.83110332887119e+187, -9.94902790498679e+199, -2.74100158340596e+212, -9.96611412047338e+224, -4.72336572671053e+237, -2.88514442494869e+250, -2.24780296109123e+263, -2.21240023126594e+276, -2.72671165723473e+289, -4.17369555651928e+302, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic5_c620a04d64726581b3369416bee96bf1() {
+ assertEval("argv <- list(c(2.5, 6, 6, 7.5, 8, 8, 16, 6, 5, 6, 28, 5, 9.5, 6, 4.5, 10, 14, 3, 4.5, 5.5, 3, 3.5, 6, 2, 3, 4, 6, 5, 6.5, 5, 10, 6, 18, 4.5, 20));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic6_be07ea104a46adabbc27c2833d654dfe() {
+ assertEval("argv <- list(structure(c(1, 2, 2, 3, 3, 3, 4, 5), .Names = c('dsyMatrix', 'ddenseMatrix', 'symmetricMatrix', 'dMatrix', 'denseMatrix', 'compMatrix', 'Matrix', 'mMatrix')));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic7_9fb4238144fe5cbb3e40eeb4ca79322f() {
+ assertEval("argv <- list(c(-Inf, -Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic8_02259ed2edceec23c5d95f2f8872fb28() {
+ assertEval("argv <- list(structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c('w', 'w2'))));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisatomic_testisatomic9_5cdbc4b782070b6ce79647feae16892c() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE), .Names = c('1', '2', '3', '4', '5', '6', '7', '8')));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall1_58cc63932aefc74f583a8a46b83c8190() {
+ assertEval("argv <- list(structure(list(dim = c(93L, 19L), dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93'), c('dfb.1_', 'dfb.Wght', 'dfb.Cyl4', 'dfb.Cyl5', 'dfb.Cyl6', 'dfb.Cyl8', 'dfb.Cyln', 'dfb.TypL', 'dfb.TypM', 'dfb.TypSm', 'dfb.TypSp', 'dfb.TypV', 'dfb.EngS', 'dfb.DrTF', 'dfb.DrTR', 'dffit', 'cov.r', 'cook.d', 'hat'))), .Names = c('dim', 'dimnames')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall10_fc0284be75adb571fd60bdaecf982457() {
+ assertEval("argv <- list(structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall11_18cd2720f3b966a9b71da861ff0f847d() {
+ assertEval("argv <- list(c(TRUE, FALSE, TRUE, NA, FALSE, FALSE, TRUE));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall12_17d8d3b4173d3328ba2ec30e60900fc6() {
+ assertEval("argv <- list(structure(c(NA, 9.93, 26.79, 820.91), .Names = c('<none>', '- x4', '- x2', '- x1')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall13_8dca671237f8d70e844115833d098282() {
+ assertEval("argv <- list(structure(list(nationality = structure(c(1L, 2L, 2L, 3L, 3L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(1L, 1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor'), title = structure(c(3L, 6L, 7L, 4L, 2L, 5L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, NA, NA, NA, NA, 1L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('nationality', 'deceased', 'title', 'other.author'), class = 'data.frame', row.names = c(NA, -6L)));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall14_a69cf172a063a50ff0ab75c661eacf0d() {
+ assertEval("argv <- list(structure(c(10L, 10L, 10L, 10L, 10L), .Dim = 5L, .Dimnames = structure(list(a = c('0.333333333333333', '0.5', '1', 'Inf', NA)), .Names = 'a')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall15_6b3488297eea7c500984075b5b0bca0f() {
+ assertEval("argv <- list(1.79769313486232e+308);is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall16_c3f281c408bb9fb99bd82206642ab0ea() {
+ assertEval("argv <- list(c(3.71357206670431, 3.58351893845611, 2.484906649788, 2.89037175789616, NA, 3.3322045101752, 3.13549421592915, 2.94443897916644, 2.07944154167984, NA, 1.94591014905531, 2.77258872223978, 2.39789527279837, 2.63905732961526, 2.89037175789616, 2.63905732961526, 3.52636052461616, 1.79175946922805, 3.40119738166216, 2.39789527279837, 0, 2.39789527279837, 1.38629436111989, 3.46573590279973, NA, NA, NA, 3.13549421592915, 3.80666248977032, 4.74493212836325, 3.61091791264422, NA, NA, NA, NA, NA, NA, 3.36729582998647, NA, 4.26267987704132, 3.66356164612965, NA, NA, 3.13549421592915, NA, NA, 3.04452243772342, 3.61091791264422, 2.99573227355399, 2.484906649788, 2.56494935746154, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 4.90527477843843, 3.89182029811063, 3.46573590279973, NA, 4.15888308335967, 3.68887945411394, 4.34380542185368, 4.57471097850338, 4.57471097850338, 4.44265125649032, NA, 2.30258509299405, 3.29583686600433, NA, 1.94591014905531, 3.87120101090789, 3.55534806148941, 4.11087386417331, 4.36944785246702, 4.14313472639153, 2.77258872223978, NA, NA, 4.38202663467388, 4.68213122712422, 2.99573227355399, 3.95124371858143, 4.40671924726425, 3.91202300542815, 4.15888308335967, 4.07753744390572, 3.66356164612965, 2.19722457733622, 2.77258872223978, 4.35670882668959, 3.55534806148941, 4.18965474202643, 4.80402104473326, 4.48863636973214, 4.70048036579242, NA, NA, 3.78418963391826, 3.3322045101752, 4.17438726989564, NA, 3.09104245335832, 4.07753744390572, 3.13549421592915, 3.43398720448515, 3.78418963391826, 3.04452243772342, 2.19722457733622, NA, 3.80666248977032, 5.12396397940326, 4.29045944114839, NA, 4.33073334028633, 4.77068462446567, 4.43081679884331, 4.44265125649032, 4.56434819146784, 4.35670882668959, 4.29045944114839, 4.51085950651685, 3.85014760171006, 3.46573590279973, 2.99573227355399, 3.13549421592915, 3.04452243772342, 3.17805383034795, 3.78418963391826, 3.04452243772342, 3.3322045101752, 2.19722457733622, 2.56494935746154, 3.8286413964891, 2.89037175789616, 2.56494935746154, 3.17805383034795, 2.77258872223978, 2.56494935746154, 3.13549421592915, 3.58351893845611, 1.94591014905531, 2.63905732961526, 3.40119738166216, NA, 2.63905732961526, 2.89037175789616, 2.99573227355399));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall17_c1d26a1b8d1d135130cafc4ef2018403() {
+ assertEval("argv <- list(c(1.1+0i, NA, 3+0i));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall18_15ddb4f832d8cdc442a67f7f03fdbb01() {
+ assertEval("argv <- list(structure(c('***', '***', '*', '*'), legend = '0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1', class = 'noquote'));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall19_f320e2877e275ee4ab4aa9b21fd92e44() {
+ assertEval("argv <- list(structure(3.14159265358979, .Tsp = c(1, 1, 1), class = 'ts'));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall2_cb95b1c5fe6a6949bf4d015ef04e3f68() {
+ assertEval("argv <- list(structure(1:10, .Tsp = c(1920.5, 1921.25, 12), class = 'ts'));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall20_8bcca7a03c20204d86699a078ac00f2f() {
+ assertEval("argv <- list(structure(c(0.00290239468554394, 0.00140705152597278, 0.00182415100508828, 0.000171517300342801, 0.0747454613066304, 0.00103234723292907, 0.000179983318697126, 0.0352586084465556, 0.00336847595628202, 0.0640696486471412, 0.013210800275195, 0.00194778778741287, 0.00351950115137133, 0.000700468320296444, 0.00252844357735001, 0.0143720121954949, 0.0092342255427433, 7.64817786749446e-06, 0.00387339857745543, 0.00121246491006704, 0.00624917129689855, 0.00187753034805145, 0.000103002251547083, 0.0136703020254034, 0.000349542811339773, 0.00120367047056317, 0.00194205014408538, 0.00462815827742801, 0.000149291834133954, 0.00193441236645676, 9.00084520363835e-05, 0.0160915134527436, 0.0034667595853861, 0.00481936427422654, 3.13343033856193e-05, 0.0564685345533007, 0.00929771993193245, 0.0103876340982416, 0.0133005891226511, 0.0325989357511191, 0.00228122925969391, 0.0460976655088242, 0.0030036374596782, 0.000271060875811076, 0.0301696315261026, 4.72002631048293e-05, 0.0262321004865234, 0.00594174673473018, 0.00288915040856097, 0.00635277836091401, 0.00569342819072192, 0.0163907345734164, 0.000360581939026221, 0.000237725871915377, 0.0164062036225434, 0.0238391417439455, NaN, 0.0421542087325977, 0.00133954856768466, 0.0113421570571087, 0.00818242287729128, 0.000149291834133954, 0.00162069399881579, 0.00180262291288582, 0.0043164627226381, 0.000407784303899558, 0.0087630128035445, 0.00179253664026378, 0.000416739394150714, 0.0143720121954949, 0.000179983318697137, 0.00115986529332947, 0.00377736311314377, 0.00219491136307178, 0.000700468320296447, 0.000522557531637987, 9.86336244510677e-05, 0.0216346027446621, 0.000659639144027213, 0.0137501462695059, 5.91425796333253e-08, 0.0279425064631674, 0.000170828237014783, 0.00424546903556132, 0.0114879015536739, 0.000173346990819205, 0.00138111062254461, 0.00772582941114727, 0.0277947034678616, 0.00892024547056825, 0.061857770987456, 0.0125790610228498, 0.0277947034678616), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall21_aefe4bc913613a410aa52558947016e3() {
+ assertEval("argv <- list(structure(c(1920, 1920, 1920, 1920, 1920, 1920, 1921, 1921, 1921, 1921), .Tsp = c(1920.5, 1921.25, 12), class = 'ts'));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall23_110664c3946fb03aaf62a18f4e3242d4() {
+ assertEval("argv <- list(structure(c(2671, 6.026e+77, 3.161e+152, 3.501e+299, 2.409e+227, 1.529e+302), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall24_11a9c7a4ec902444dc294953be024a8d() {
+ assertEval("argv <- list(structure(c(1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 7, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 10, 11, 11, 11, 12, 13, 13, 14, 14, 14, 14, 15, 15, 15, 15, 16, 16, 16, 17, 17, 17, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 7, 7.4, 7.4, 7.4, 7.4, 7.4, 7.4, 7.4, 7.4, 7.4, 7.4, 5.3, 6.1, 6.1, 6.1, 6.1, 6.1, 6.1, 6.1, 6.1, 6.1, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 5.6, 5.7, 5.3, 5.3, 5.3, 5.3, 5.3, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 5.3, 7.7, 7.7, 7.7, 6.2, 5.6, 5.6, 5.2, 5.2, 5.2, 5.2, 6, 6, 6, 6, 5.1, 5.1, 5.1, 7.6, 7.6, 7.6, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.5, 5.5, 5.5, 5.5, 5.5, 5.5, 5.5, 5.5, 5.5, 5.5, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 24, 13, 15, 68, 39, 74, 22, 1, 8, 55, 24, 20, 51, 13, 3, 4, 5, 6, 15, 2, 8, 60, 67, 23, 58, 24, 22, 21, 37, 74, 59, 39, 14, 14, 19, 23, 70, 21, 22, 31, 29, 30, 45, 58, 17, 7, 19, 26, 39, 74, 57, 59, 12, 72, 70, 37, 64, 16, 18, 21, 22, 8, 62, 61, 63, 71, 105, 64, 10, 41, 8, 27, 11, 34, 32, 33, 68, 107, NA, 66, NA, 65, 48, 52, 43, 47, 46, 44, 41, 54, 28, 50, 40, NA, 69, NA, 75, 109, NA, 86, 112, 110, 104, 24, 111, 87, NA, NA, 92, 73, 85, 90, 89, NA, 83, NA, 102, NA, 108, 88, 91, 93, NA, 94, 84, NA, 106, NA, 95, 82, 56, 87, 109, 75, 104, 110, 112, 111, 24, 73, 85, 86, 90, 89, 102, 88, 92, 9, 49, 42, 38, 35, 36, 25, NA, NA, 9, 49, 42, NA, 36, 38, 25, 53, 79, 78, 103, 77, 80, 114, 97, 113, 76, 96, 81, 116, 99, 117, 115, 98, 101, 100, 12, 148, 42, 85, 107, 109, 156, 224, 293, 359, 370, 8, 16.1, 63.6, 6.6, 9.3, 13, 17.3, 105, 112, 123, 105, 122, 141, 200, 45, 130, 147, 187, 197, 203, 211, 62, 62, 19, 21, 13, 22, 29, 17, 19.6, 20.2, 21.1, 21.9, 24.2, 66, 87, 23.4, 24.6, 25.7, 28.6, 37.4, 46.7, 56.9, 60.7, 61.4, 62, 64, 82, 88, 91, 31, 45, 145, 300, 5, 50, 16, 17, 8, 10, 10, 8, 32, 30, 31, 2.9, 3.2, 7.6, 25.4, 32.9, 92.2, 1.2, 1.6, 9.1, 3.7, 5.3, 7.4, 17.9, 19.2, 23.4, 30, 38.9, 23.5, 26, 0.5, 0.6, 1.3, 1.4, 2.6, 3.8, 4, 5.1, 6.2, 6.8, 7.5, 7.6, 8.4, 8.5, 8.5, 10.6, 12.6, 12.7, 12.9, 14, 15, 16, 17.7, 18, 22, 22, 23, 23.2, 29, 32, 32.7, 36, 43.5, 49, 60, 64, 7.5, 8.8, 8.9, 9.4, 9.7, 9.7, 10.5, 10.5, 12, 12.2, 12.8, 14.6, 14.9, 17.6, 23.9, 25, 10.8, 15.7, 16.7, 20.8, 28.5, 33.1, 40.3, 4, 10.1, 11.1, 17.7, 22.5, 26.5, 29, 30.9, 37.8, 48.3, 5.8, 12, 12.1, 20.5, 20.5, 25.3, 35.9, 36.1, 36.3, 38.5, 41.4, 43.6, 44.4, 46.1, 47.1, 47.7, 49.2, 53.1, 0.359, 0.014, 0.196, 0.135, 0.062, 0.054, 0.014, 0.018, 0.01, 0.004, 0.004, 0.127, 0.411, 0.018, 0.509, 0.467, 0.279, 0.072, 0.012, 0.006, 0.003, 0.018, 0.048, 0.011, 0.007, 0.142, 0.031, 0.006, 0.01, 0.01, 0.006, 0.013, 0.005, 0.003, 0.086, 0.179, 0.205, 0.073, 0.045, 0.374, 0.2, 0.147, 0.188, 0.204, 0.335, 0.057, 0.021, 0.152, 0.217, 0.114, 0.15, 0.148, 0.112, 0.043, 0.057, 0.03, 0.027, 0.028, 0.034, 0.03, 0.039, 0.03, 0.11, 0.01, 0.01, 0.39, 0.031, 0.13, 0.011, 0.12, 0.17, 0.14, 0.11, 0.04, 0.07, 0.08, 0.21, 0.39, 0.28, 0.16, 0.064, 0.09, 0.42, 0.23, 0.13, 0.26, 0.27, 0.26, 0.11, 0.12, 0.038, 0.044, 0.046, 0.17, 0.21, 0.32, 0.52, 0.72, 0.32, 0.81, 0.64, 0.56, 0.51, 0.4, 0.61, 0.26, 0.24, 0.46, 0.22, 0.23, 0.28, 0.38, 0.27, 0.31, 0.2, 0.11, 0.43, 0.27, 0.15, 0.15, 0.15, 0.13, 0.19, 0.13, 0.066, 0.35, 0.1, 0.16, 0.14, 0.049, 0.034, 0.264, 0.263, 0.23, 0.147, 0.286, 0.157, 0.237, 0.133, 0.055, 0.097, 0.129, 0.192, 0.147, 0.154, 0.06, 0.057, 0.12, 0.154, 0.052, 0.045, 0.086, 0.056, 0.065, 0.259, 0.267, 0.071, 0.275, 0.058, 0.026, 0.039, 0.112, 0.065, 0.026, 0.123, 0.133, 0.073, 0.097, 0.096, 0.23, 0.082, 0.11, 0.11, 0.094, 0.04, 0.05, 0.022, 0.07, 0.08, 0.033, 0.017, 0.022), .Dim = c(182L, 5L), .Dimnames = list(NULL, c('event', 'mag', 'station', 'dist', 'accel'))));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall25_afa1e7dab50a2eb395a37ffd214b4009() {
+ assertEval("argv <- list(structure(c(8.444, 12.244, 11.967, 32.826), .Names = c('+ Temp', '<none>', '+ Soft', '- M.user')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall26_753ff719553b6809d09c4ecb670b117d() {
+ assertEval("argv <- list(quote(cbind(X, M) ~ M.user + Temp + M.user:Temp));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall3_83c5f1c2f55a01e76ee822daeeec9fa4() {
+ assertEval("argv <- list(structure(c(1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall4_93f6446c525a6b0e9b6d9033aaf9cf81() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall5_67d7298b77d8d467940bd28b72487479() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall6_51480772477c17a739826be9731bcda1() {
+ assertEval("argv <- list(structure(list(var = structure(c(4L, 4L, 1L, 2L, 1L, 2L, 3L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 2L, 3L, 2L, 1L, 3L, 1L, 1L, 1L, 3L, 1L, 1L), .Label = c('<leaf>', 'Age', 'Number', 'Start'), class = 'factor'), wt = c(318, 244, 114, 130, 49, 81, 65, 34, 31, 17, 14, 3, 11, 16, 74, 42, 35, 16, 19, 10, 9, 7, 32, 3, 29), dev = c(95.4, 34.5652173913044, 0, 34.5652173913044, 0, 34.5652173913044, 15.2086956521739, 0, 15.2086956521739, 0, 5.36385542168675, 0, 0, 3.57590361445783, 53.6385542168675, 22.1217391304348, 12.4434782608696, 0, 12.4434782608696, 0, 0, 0, 7.15180722891566, 0, 1.78795180722892), yval = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 1, 1, 1, 1, 1, 2, 2, 2, 1, 2), complexity = c(0.165415284325709, 0.0551384281085695, 0.039, 0.0551384281085695, 0.039, 0.0551384281085695, 0.0515976951283394, 0.039, 0.0515976951283394, 0.039, 0.0515976951283394, 0.039, 0.039, 0.039, 0.165415284325709, 0.101449275362319, 0.0652173913043478, 0.039, 0.0652173913043478, 0.039, 0.039, 0.039, 0.0562248995983936, 0.039, 0.039), ncompete = c(2L, 2L, 0L, 2L, 0L, 2L, 2L, 0L, 2L, 0L, 2L, 0L, 0L, 0L, 2L, 2L, 2L, 0L, 2L, 0L, 0L, 0L, 2L, 0L, 0L), nsurrogate = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), yval2 = structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 1, 1, 1, 1, 1, 2, 2, 2, 1, 2, 249, 219, 114, 105, 49, 56, 54, 34, 20, 17, 3, 3, 0, 2, 30, 26, 26, 16, 10, 10, 0, 0, 4, 3, 1, 69, 25, 0, 25, 0, 25, 11, 0, 11, 0, 11, 0, 11, 14, 44, 16, 9, 0, 9, 0, 9, 7, 28, 0, 28, 0.7, 0.849942146369685, 1, 0.730869001297017, 1, 0.591562233449249, 0.760430333245867, 1, 0.540359120657828, 1, 0.149906890130354, 1, 0, 0.0845588235294117, 0.305967312808818, 0.512362301101591, 0.651314765831648, 1, 0.418073227733056, 1, 0, 0, 0.0845588235294117, 1, 0.0225711481844946, 0.3, 0.150057853630315, 0, 0.269130998702983, 0, 0.408437766550751, 0.239569666754133, 0, 0.459640879342172, 0, 0.850093109869646, 0, 1, 0.915441176470588, 0.694032687191182, 0.487637698898409, 0.348685234168352, 0, 0.581926772266944, 0, 1, 1, 0.915441176470588, 0, 0.977428851815505, 1, 0.724358302776323, 0.320481927710843, 0.403876375065479, 0.137751004016064, 0.266125371049415, 0.199633315872184, 0.095582329317269, 0.104050986554915, 0.0477911646586345, 0.0562598218962808, 0.00843373493975903, 0.0478260869565217, 0.0664920551772307, 0.275641697223677, 0.142657586869216, 0.11222280426052, 0.0449799196787148, 0.0672428845818055, 0.0281124497991968, 0.0391304347826087, 0.0304347826086957, 0.132984110354461, 0.00843373493975903, 0.124550375414702), .Dim = c(25L, 6L), .Dimnames = list(NULL, c('', '', '', '', '', 'nodeprob')))), .Names = c('var', 'wt', 'dev', 'yval', 'complexity', 'ncompete', 'nsurrogate', 'yval2'), class = 'data.frame', row.names = c(1L, 2L, 4L, 5L, 10L, 11L, 22L, 44L, 45L, 90L, 91L, 182L, 183L, 23L, 3L, 6L, 12L, 24L, 25L, 50L, 51L, 13L, 7L, 14L, 15L)));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall7_58253c68cd3f834cf3505bd19f652504() {
+ assertEval("argv <- list(structure(c(2.828, -1.04, -2.738, 3.084), .Names = c('(Intercept)', 'age', 'wgt', 'prot')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall8_26ae835c4720fb4206f0c5e77c3dbabe() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscall_testiscall9_6f52a977e120b514c37cd9f5cf69465c() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.call(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinischaracter_testischaracter1_3e5d540071f306d0e750e8ea1065aae3() {
+ assertEval("argv <- list('pch');is.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinischaracter_testischaracter2_de0f4feb255e655479b7b3067713a84f() {
+ assertEval("argv <- list(structure(list(mai = c(0.51, 0.41, 0.41, 0.21), mar = c(5.1, 4.1, 4.1, 2.1), cex = 1, yaxs = 'r'), .Names = c('mai', 'mar', 'cex', 'yaxs')));is.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinischaracter_testischaracter3_c4ce3e4c849ee317df8ea3da506d64ff() {
+ assertEval("argv <- list(structure(list(usr = c(-0.04, 1.04, -0.04, 1.04), mgp = c(3, 1, 0)), .Names = c('usr', 'mgp')));is.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinischaracter_testischaracter4_27ae71169988468319e602866048f759() {
+ assertEval("argv <- list(c(-1, 1, -1, 1));is.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinischaracter_testischaracter5_865c5b83ce73215164094ddb46c0b970() {
+ assertEval("argv <- list(structure(list(usr = c(-4.82721591443179, -1.44459960821772, -4.82721591443179, -1.44459960821772)), .Names = 'usr'));is.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinischaracter_testischaracter6_b5810baa50e9584b08113fec7db13d5e() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'character(0)', row.names = character(0), class = 'data.frame'));is.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinischaracter_testischaracter7_d061659e7c853b40683ae679f335cd6f() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinischaracter_testischaracter8_da295379c48d2ec91f30e34ec1ea0789() {
+ assertEval("argv <- list(structure(c(238L, 154L, 73L), .Dim = c(3L, 1L), .Dimnames = list(c('red', 'green', 'blue'), NULL)));is.character(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscomplex_testiscomplex1_17447fc6bc5a3e7948bf6ca58776a1c8() {
+ assertEval("argv <- list(integer(0));is.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscomplex_testiscomplex2_356b15c403d8de1d0b6bcce5c7b1e0c8() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'character(0)', row.names = character(0), class = 'data.frame'));is.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscomplex_testiscomplex3_eb73621e38a6e14443b9706f57adaa79() {
+ assertEval("argv <- list(structure(1:24, .Dim = 2:4));is.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscomplex_testiscomplex4_7f99f72176d8256c0360850982256f99() {
+ assertEval("argv <- list(NA_complex_);is.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscomplex_testiscomplex5_9e92a5cbe2f2b7eff9e6f542de02acdf() {
+ assertEval("argv <- list(1.3+0i);is.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscomplex_testiscomplex6_ca95380e2af079a3aee43e7854a4f9c3() {
+ assertEval("argv <- list(complex(0));is.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltiniscomplex_testiscomplex7_9a174690f6aae6e113cb1bedb494f693() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisdouble_testisdouble1_7531b9df5250f930cc4d588e5a0f71dc() {
+ assertEval("argv <- list(list(1, list(3, 'A')));is.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisdouble_testisdouble2_6e749770b99b58faf298175e8fab0e92() {
+ assertEval("argv <- list(structure(1:7, .Names = c('a1', 'a2', 'a3', 'a4', 'a5', 'a6', 'a7')));is.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisdouble_testisdouble3_ec0d2c1288d7fce606bf7667517476c3() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisdouble_testisdouble4_eec40fbd2cfeb998c1010abc1380a8cc() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'character(0)', row.names = character(0), class = 'data.frame'));is.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisdouble_testisdouble5_d1e684f171a9c3d26905cd6c0a19e1f7() {
+ assertEval("argv <- list(structure(1:24, .Dim = 2:4));is.double(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisenvironment_testisenvironment1_d2b4f79f9372d89f58f41542428fae4a() {
+ assertEval("argv <- list(structure(list(B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c('I', 'II', 'III', 'IV', 'V', 'VI'), class = 'factor'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c('Golden.rain', 'Marvellous', 'Victory'), class = 'factor'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt'), class = 'factor'), Y = c(130L, 157L, 174L, 117L, 114L, 161L, 141L, 105L, 140L, 118L, 156L, 61L, 91L, 97L, 100L, 70L, 108L, 126L, 149L, 96L, 124L, 121L, 144L, 68L, 64L, 112L, 86L, 60L, 102L, 89L, 96L, 89L, 129L, 132L, 124L, 74L, 89L, 81L, 122L, 64L, 103L, 132L, 133L, 70L, 89L, 104L, 117L, 62L, 90L, 100L, 116L, 80L, 82L, 94L, 126L, 63L, 70L, 109L, 99L, 53L, 74L, 118L, 113L, 89L, 82L, 86L, 104L, 97L, 99L, 119L, 121L)), .Names = c('B', 'V', 'N', 'Y'), row.names = 2:72, class = 'data.frame'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisenvironment_testisenvironment10_b8acfc7e6ad045f39c928a88fc68ae25() {
+ assertEval("argv <- list(structure(list(breaks = c(26, 30, 54, 25, 70, 52, 51, 26, 67, 18, 21, 29, 17, 12, 18, 35, 30, 36, 36, 21, 24, 18, 10, 43, 28, 15, 26, 27, 14, 29, 19, 29, 31, 41, 20, 44, 42, 26, 19, 16, 39, 28, 21, 39, 29, 20, 21, 24, 17, 13, 15, 15, 16, 28), wool = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('A', 'B'), class = 'factor'), tension = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('L', 'M', 'H'), class = 'factor')), .Names = c('breaks', 'wool', 'tension'), row.names = c(NA, -54L), class = 'data.frame'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisenvironment_testisenvironment11_14837fa2da15aa6ed326eb777388e337() {
+ assertEval("argv <- list(structure(list(y = c(0.219628047744843, 0.360454661130887, NA, 0.114681204747219, -1.14267533343616, 0.772374419482067, 0.681741904304867, 0.171869265068012, 2.08409180391906, 0.367547276775469), x1 = c(1L, 2L, 3L, NA, 5L, 6L, 7L, 8L, 9L, 10L), x2 = 1:10, x3 = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), wt = c(0, 1, 1, 1, 1, 1, 1, 1, 1, 1)), .Names = c('y', 'x1', 'x2', 'x3', 'wt'), row.names = c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j'), class = 'data.frame'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisenvironment_testisenvironment12_98594ede282c2086af54f76a125554a4() {
+ assertEval("argv <- list(structure(list(x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861)), .Names = c('x', 'y'), row.names = c(NA, -10L), class = 'data.frame'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisenvironment_testisenvironment13_77a1342d12b4f17598ae66de3d5c1598() {
+ assertEval("argv <- list(structure(list(weight = c(1.9, 3.1, 3.3, 4.8, 5.3, 6.1, 6.4, 7.6, 9.8, 12.4), depression = c(2, 1, 5, 5, 20, 20, 23, 10, 30, 25)), .Names = c('weight', 'depression'), row.names = c(NA, -10L), class = 'data.frame'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisenvironment_testisenvironment14_3aa2d2d22485e4db5358ba65ee94986e() {
+ assertEval("argv <- list(structure(list(loglik = c(-577.080015666702, -568.702653976085, -567.639101463216, -565.252511135152), Chisq = c(NA, 16.7547233812336, 2.12710502573896, 4.77318065612872), Df = c(NA, 1, 1, 3), `Pr(>|Chi|)` = c(NA, 4.25362427346476e-05, 0.144713844418628, 0.189179603743297)), .Names = c('loglik', 'Chisq', 'Df', 'Pr(>|Chi|)'), row.names = c('NULL', 'ph.ecog', 'wt.loss', 'poly(age, 3)'), class = c('anova', 'data.frame'), heading = 'Analysis of Deviance Table\n Cox model: response is Surv(time, status)\nTerms added sequentially (first to last)\n'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisenvironment_testisenvironment16_dc7a61a64702dfae96009368d918ccfa() {
+ assertEval("argv <- list(numeric(0));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisenvironment_testisenvironment2_cb4012012a965951be24a9126f599d5a() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisenvironment_testisenvironment3_246a7355a410de372c26ec0763ea969a() {
+ assertEval("argv <- list(structure(list(ID = c(65L, 65L), Age = c(18L, 18L), OME = structure(c(1L, 1L), .Label = c('N/A', 'high', 'low'), class = 'factor'), Loud = c(35L, 50L), Noise = structure(c(2L, 2L), .Label = c('coherent', 'incoherent'), class = 'factor'), Correct = 0:1, Trials = c(1L, 1L), UID = c(71L, 71L), UIDn = c(71.1, 71.1)), .Names = c('ID', 'Age', 'OME', 'Loud', 'Noise', 'Correct', 'Trials', 'UID', 'UIDn'), row.names = c(691L, 701L), class = 'data.frame'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisenvironment_testisenvironment4_f226b9ea4254d2b62b6e92cd48c48dc6() {
+ assertEval("argv <- list(c(1.21066831870929-1.66634219937781i, -1.3109785475009-4.03477541783013i, -8.31047673770943-2.70023589529419i, -14.5607479203187+10.5790080335186i, 0.0000113099668+37.0708585836817i, 61.7727497177743+44.8804951883406i, 149.572574104172-48.599145973822i, 100.099969025816-308.076538446181i, -392.173075447774-539.779307378543i, -1374.2485561312+0.00083854036i, -1663.75779164483+2289.96937670968i, 1801.61375934412+5544.78319295828i, 11420.6629218159+3710.7883116515i, 20010.0779347631-14538.198725138i, -0.0466281166-50944.5738831589i, -84891.1497420117-61676.9039120865i, -205549.85324714+66787.431606375i, -137561.979567894+423373.822075425i, 538943.735314369+741790.604941508i, 1888559.09402798-2.30472576i));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisenvironment_testisenvironment5_54cb9e3dda1a5d97554c60ad0cf56406() {
+ assertEval("argv <- list(structure(c(FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(5L, 5L)));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisenvironment_testisenvironment6_28372b784bae09d0732af189030024c1() {
+ assertEval("argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = 'ts'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c('y', 'lag.quarterly.revenue', 'price.index', 'income.level', 'market.potential'), row.names = c('1962.25', '1962.5', '1962.75', '1963', '1963.25', '1963.5', '1963.75', '1964', '1964.25', '1964.5', '1964.75', '1965', '1965.25', '1965.5', '1965.75', '1966', '1966.25', '1966.5', '1966.75', '1967', '1967.25', '1967.5', '1967.75', '1968', '1968.25', '1968.5', '1968.75', '1969', '1969.25', '1969.5', '1969.75', '1970', '1970.25', '1970.5', '1970.75', '1971', '1971.25', '1971.5', '1971.75'), class = 'data.frame'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisenvironment_testisenvironment7_f32b937c6b6405ed777f5d7b29e2aa54() {
+ assertEval("argv <- list(structure(c(1+0i, 5+0i, 9+0i, 13+0i, 17+0i, 21+0i, 2+0i, 6+0i, 10+0i, 14+0i, 18+0i, 22+0i, 3+0i, 7+0i, 11+0i, 15+0i, 19+0i, 23+0i, 4+0i, 8+0i, 12+0i, 16+0i, 20+0i, 24+0i), .Dim = c(6L, 4L)));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisenvironment_testisenvironment8_52f864cd221cb93895b3e18261c6fb52() {
+ assertEval("argv <- list(structure(list(z = c(-3.32814298919898, -2.50040106767383, -1.77388580318944, -1.1253131847654, -0.538436159302777, 0, 0.494272294062615, 0.955576378633541, 1.38763151510367, 1.79457990658358, 2.17975641634868, 2.54588157879649, 2.89520069061619), par.vals = structure(c(14.1116522107389, 16.2879401909036, 18.4642281710683, 20.640516151233, 22.8168041313977, 24.9930921115624, 27.1693800917271, 29.3456680718919, 31.5219560520566, 33.6982440322213, 35.874532012386, 38.0508199925507, 40.2271079727154, 9.77292620586829, 6.94555751970939, 5.3344468962477, 4.29948550876711, 3.58192055542193, 3.05706219239734, 2.6578922832996, 2.34490705796319, 2.09354140228955, 1.88766190416604, 1.71625883349025, 1.57157057930468, 1.44797941211333), .Dim = c(13L, 2L), .Dimnames = list(NULL, c('ymax', 'xhalf')))), .Names = c('z', 'par.vals'), row.names = c(NA, -13L), class = 'data.frame'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisenvironment_testisenvironment9_b71c1cc390dee8fc663b1a9a055b23c2() {
+ assertEval("argv <- list(structure(list(GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962, Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551)), .Names = c('GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year', 'Employed'), row.names = 1947:1962, class = 'data.frame'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression1_a2b1412034cd5dcb15cf18edb97bc8df() {
+ assertEval("argv <- list(c(20L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 19L, 19L, 19L, 20L, 20L, 20L, 19L, 20L, 19L, 19L, 19L, 20L));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression10_6a300aa4d132c081766793438d8212d0() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression11_47dfc502c584198b390333a908821bf6() {
+ assertEval("argv <- list(structure(list(var = structure(c(3L, 5L, 3L, 1L, 1L, 1L, 3L, 4L, 1L, 2L, 1L, 1L, 1L), .Label = c('<leaf>', 'frost', 'life.exp', 'population', 'region'), class = 'factor'), n = c(50L, 21L, 13L, 10L, 3L, 8L, 29L, 21L, 4L, 17L, 9L, 8L, 8L), wt = c(50, 21, 13, 10, 3, 8, 29, 21, 4, 17, 9, 8, 8), dev = c(667.7458, 87.3866666666667, 18.8523076923077, 6.989, 2.84666666666667, 28.2, 222.311724137931, 116.909523809524, 10.18, 50.8823529411765, 24.24, 11.62, 14.415), yval = c(7.378, 4.23333333333333, 3.14615384615385, 2.69, 4.66666666666667, 6, 9.6551724137931, 8.56190476190476, 5.2, 9.35294117647059, 8.46666666666667, 10.35, 12.525), complexity = c(0.536203161735203, 0.0604037628905475, 0.0135031040639133, 0.00508384221318095, 0.01, 0.01, 0.136260236048519, 0.0836353757198433, 0.01, 0.0224971133344103, 0.01, 0.01, 0.01), ncompete = c(4L, 4L, 4L, 0L, 0L, 0L, 4L, 4L, 0L, 4L, 0L, 0L, 0L), nsurrogate = c(5L, 4L, 1L, 0L, 0L, 0L, 4L, 3L, 0L, 5L, 0L, 0L, 0L)), .Names = c('var', 'n', 'wt', 'dev', 'yval', 'complexity', 'ncompete', 'nsurrogate'), row.names = c(1L, 2L, 4L, 8L, 9L, 5L, 3L, 6L, 12L, 13L, 26L, 27L, 7L), class = 'data.frame'));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression12_e825bbf1c4f53d4c36c549c5813d427c() {
+ assertEval("argv <- list(structure(c(1, 24.25, 56.5, 56.92771, 86.75, 117), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression13_05f67ed6bebb14c352861e54b309ea04() {
+ assertEval("argv <- list(1.79769313486232e+308);is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression14_9b8f0753ee0353aa1fe1484f38395fac() {
+ assertEval("argv <- list(c(1.1+0i, NA, 3+0i));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression15_242a24c63fec2e05a2a7dd3b78b4a9f6() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression16_e83ee4466b61c3d6c4ecd515aadbf420() {
+ assertEval("argv <- list(structure(c('***', '***', '*', '*'), legend = '0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1', class = 'noquote'));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression17_aae8e3cbada491710f88a76977aada1d() {
+ assertEval("argv <- list(structure(c(-0.0880891704401362, -0.508170309402877, -0.00510235947825228, 0.0737329622006759), .Names = c('(Intercept)', 'x1', 'z', 'x1:z')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression18_ef3967ff7fa4aa53c58fb0c330baaaaf() {
+ assertEval("argv <- list(structure(c(-Inf, -Inf, -2.248e+263, -Inf, -3.777e+116, -1), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression19_75fceb2060f0e6db20cbddbcd82f4897() {
+ assertEval("argv <- list(quote(print(.leap.seconds, tz = 'PST8PDT')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression2_ad5dc0c89aa44f12d807e0f87ad52552() {
+ assertEval("argv <- list(structure(list(class = c('ordered', 'factor'), levels = character(0)), .Names = c('class', 'levels')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression20_8972221e6d3cf4d0b9013b825d81f926() {
+ assertEval("argv <- list(c(-0.5, -0.47979797979798, -0.45959595959596, -0.439393939393939, -0.419191919191919, -0.398989898989899, -0.378787878787879, -0.358585858585859, -0.338383838383838, -0.318181818181818, -0.297979797979798, -0.277777777777778, -0.257575757575758, -0.237373737373737, -0.217171717171717, -0.196969696969697, -0.176767676767677, -0.156565656565657, -0.136363636363636, -0.116161616161616, -0.0959595959595959, -0.0757575757575757, -0.0555555555555555, -0.0353535353535353, -0.0151515151515151, 0.00505050505050508, 0.0252525252525253, 0.0454545454545455, 0.0656565656565657, 0.0858585858585859, 0.106060606060606, 0.126262626262626, 0.146464646464647, 0.166666666666667, 0.186868686868687, 0.207070707070707, 0.227272727272727, 0.247474747474748, 0.267676767676768, 0.287878787878788, 0.308080808080808, 0.328282828282828, 0.348484848484849, 0.368686868686869, 0.388888888888889, 0.409090909090909, 0.429292929292929, 0.44949494949495, 0.46969696969697, 0.48989898989899, 0.51010101010101, 0.53030303030303, 0.550505050505051, 0.570707070707071, 0.590909090909091, 0.611111111111111, 0.631313131313131, 0.651515151515152, 0.671717171717172, 0.691919191919192, 0.712121212121212, 0.732323232323232, 0.752525252525253, 0.772727272727273, 0.792929292929293, 0.813131313131313, 0.833333333333333, 0.853535353535354, 0.873737373737374, 0.893939393939394, 0.914141414141414, 0.934343434343434, 0.954545454545455, 0.974747474747475, 0.994949494949495, 1.01515151515152, 1.03535353535354, 1.05555555555556, 1.07575757575758, 1.0959595959596, 1.11616161616162, 1.13636363636364, 1.15656565656566, 1.17676767676768, 1.1969696969697, 1.21717171717172, 1.23737373737374, 1.25757575757576, 1.27777777777778, 1.2979797979798, 1.31818181818182, 1.33838383838384, 1.35858585858586, 1.37878787878788, 1.3989898989899, 1.41919191919192, 1.43939393939394, 1.45959595959596, 1.47979797979798, 1.5));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression21_655a6c93630463bd3ab42e4670faf5c1() {
+ assertEval("argv <- list(structure(list(dim = 1L, dimnames = list('a')), .Names = c('dim', 'dimnames')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression22_d34a057f543873cc84b0a3e1eed92ade() {
+ assertEval("argv <- list(structure(c(NA, 6346.2), .Names = c('1', '2')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression23_e9f4286e3fa1bd7af640d03674c4d5c1() {
+ assertEval("argv <- list(3.97376540705816e-12);is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression3_c2920fedbc680959c7ec16efaf7d8f5e() {
+ assertEval("argv <- list(c(TRUE, FALSE, TRUE, NA, FALSE, FALSE, TRUE));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression4_5538c7c1639cff4a47de31477a0559e8() {
+ assertEval("argv <- list(structure(list(nationality = structure(c(1L, 2L, 2L, 3L, 3L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(1L, 1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor'), title = structure(c(3L, 6L, 7L, 4L, 2L, 5L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, NA, NA, NA, NA, 1L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('nationality', 'deceased', 'title', 'other.author'), class = 'data.frame', row.names = c(NA, -6L)));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression5_feae30b860857adc604c469183ee4e34() {
+ assertEval("argv <- list(structure(c('Min. :10.00 ', '1st Qu.:15.25 ', 'Median :20.50 ', 'Mean :21.67 ', '3rd Qu.:25.50 ', 'Max. :43.00 ', 'A:9 ', 'B:9 ', NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c('', '', '', '', '', ''), c(' breaks', 'wool'))));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression6_5d3cc0d08cc69ed69277201896807d2d() {
+ assertEval("argv <- list(structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression7_bfa698468fb326588799962bf4e7d0c8() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression8_51e1b78530537945f4c60bac1d6bcc47() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisexpression_testisexpression9_00f6e18781caa73308e99e2ef1dd5c34() {
+ assertEval("argv <- list(structure(3.14159265358979, .Tsp = c(1, 1, 1), class = 'ts'));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite1_2120c12ec104ec195efeb4d1edfa946f() {
+ assertEval("argv <- list(c(20.1635649375266, 0.00464806897188935, 7.66871331765456, 12.5627629785965, 11.5797681339384, 12.9719582729673, 25.2769526097163, -1.81739378653632, 0.81215865601413, -3.83170645669318, -0.246853801421158, 3.46135095276697, 2.4554639832607, -3.21187324485145, -3.0183971859156));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite10_a54ba2260a5c0bbf3588f18e608b5096() {
+ assertEval("argv <- list(structure(c(-32.6915744137254, -24.6945405669482, -24.6945405669482, -357.79068676373), .Dim = c(2L, 2L)));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite11_b6751158b339a2506c899b42d2a3efb9() {
+ assertEval("argv <- list(3.18309886183776e-301);is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite12_cda886e60fa6f180ff78b306a7dd258b() {
+ assertEval("argv <- list(c(0.0599, 0.00599, 0.000599, 5.99e-05, 5.99e-06, 5.99e-07));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite13_2a107a5b4998978c3c23deab93132e9a() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i), .Dim = c(5L, 5L)));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite14_a884b2a8cf5fc7ccc5357176c8cf5dc0() {
+ assertEval("argv <- list(structure(2L, .Label = c('Northeast', 'South', 'North Central', 'West'), class = 'factor'));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite15_4f881d4c9e2847c6ff0b7dcf80817c62() {
+ assertEval("argv <- list(c(0.0099, 0.099, 0.99, 9.9, 99, 990, 9900, 99000, 990000, 9900000, 9.9e+07, 9.9e+08, 9.9e+09, 9.9e+10));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite16_9fc9d36f86b99b9abad740b8ffdc4f14() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite17_176feeed2a9e8f8b58798be0d5465736() {
+ assertEval("argv <- list(NULL);is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite18_822134d6f5d8cbf2f5a015d450cf3729() {
+ assertEval("argv <- list(structure(1, .Tsp = c(1, 1, 1), class = 'ts'));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite19_525d6af261dc35fb6b967b8e5e0bdef7() {
+ assertEval("argv <- list(structure(c(100, -1e-13, Inf, -Inf, NaN, 3.14159265358979, NA), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite2_277ad456390bc3b8b39fbb74084dcc0c() {
+ assertEval("argv <- list(c(NA, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite20_d32f8543c755faee4b81fd27c1eae483() {
+ assertEval("argv <- list(structure(c(100L, 0L, NA, NA, NA, 3L, NA), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite21_bf3fd9b9a60c358669bbcd4ca3c17a15() {
+ assertEval("argv <- list(c(1.86606598307361, 339033474310168, 6.15968019059533e+28, 1.11911250438065e+43, 2.03324321833028e+57, 3.69406826275609e+71, 6.71151400229846e+85, 1.21937162496937e+100, 2.2153975381282e+114, 4.02501267984465e+128, 7.31278553581751e+142, 1.32861276588395e+157, 2.41387071044804e+171, 4.38560576593759e+185, 7.96792382084694e+199, 1.44764060891943e+214, 2.63012470966353e+228, 4.77850368783602e+242, 8.6817546752692e+256, 1.57733192575377e+271));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite22_c5a79ff572df7b2853a67b1278b288dd() {
+ assertEval("argv <- list(structure(1:7, .Dim = c(1L, 7L)));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite23_e0e28e2d33c142874a4d372c08259afd() {
+ assertEval("argv <- list(structure(c(-4, 0, 0, 0, 0, 0, 0, -406.725, 41.7955066364795, 0, 0, 0, 0, 0, -1550.79375, 381.717151319926, 49.8228991342168, 0, 0, 0, 0, -1277.325, 224.617432123818, -31.1858918860748, -282.060212912726, 0, 0, 0, -1042.675, 125.261805546114, -29.9849484767744, 164.425554254677, -170.353263600129, 0, 0, -469.696, 26.3795103523805, 4.19691803785862, -3.18974110831568, 0.0462484557378925, 1.46320172717486, 0, -7818, 18.2758880432689, 1.77525956575195, -1.45298766739792, -0.449176219307484, -0.281900648530911, -0.669305080560524), .Dim = c(7L, 7L), .Dimnames = list(c('1947', '1948', '1949', '1950', '1951', '1952', '1953'), c('(Intercept)', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'))));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite24_d92d28815ee0026457e1457a0a8ca0b6() {
+ assertEval("argv <- list(c(13L, 13L));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite25_2aa8da1e1ced7fc8f3c0103b3676ee90() {
+ assertEval("argv <- list(structure(c(13991, 13995), class = 'Date'));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite3_f084456956dc7ed4a7f1daf485d1396c() {
+ assertEval("argv <- list(structure(485.051413351662, .Names = 'value'));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite4_d10e62cb2a9cf92411587d5cda23700f() {
+ assertEval("argv <- list(151.670620533678);is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite5_f274c8af4d63c42e5df0decdd91d393f() {
+ assertEval("argv <- list(c(NA, 5, 9, 1, 2, 5, 6, 7, 8, 3, 8));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite6_6013de97886e633dc2f3906d44fcde8f() {
+ assertEval("argv <- list(structure(1.27861470300044, .Dim = c(1L, 1L), .Dimnames = list('(Intercept)', '(Intercept)')));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite7_abad0209e2315b3923a92d5bd2842f1b() {
+ assertEval("argv <- list(c(3.16233404821525, 0.257188565034331, -0.453229834209339, 0.242190153165057, -0.923637244637281, -0.792686406797337, -0.000583432444331871, -0.115409318984254, 0.305847927531439, 0.0246693430266492, 0.461347310132161, -0.236100949717949, 0.28892702011061, -0.134702428025256, -0.00354133265015019, -0.239319416508562, -0.657338306370259, 0.617201588652923, 0.864066808989359, 0.903680787204032, 0.524476724719486, 1.12851069606821, -0.0690532444696005, 0.111965689984579, -0.494558736384601, -0.26678456955063, -0.953423764504691, 0.0388401464034938, -0.280977489674148, -0.0317343673308523, 0.332270617799988, -0.0953997363217814));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite8_a65e1c1ac1bf0df95fa6d07ef5e4443a() {
+ assertEval("argv <- list(c(96L, 78L, 73L, 91L, 47L, 32L, 20L, 23L, 21L, 24L, 44L, 21L, 28L, 9L, 13L, 46L, 18L, 13L, 24L, 16L, 13L, 23L, 36L, 7L, 14L, 30L, NA, 14L, 18L, 20L));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfinite_testisfinite9_93add09c39c9f62fc3ce16cdf807599f() {
+ assertEval("argv <- list(structure(c(0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.0220588235294118, 0.00735294117647059, 0.0147058823529412, 0.0110294117647059, 0.0257352941176471, 0.00735294117647059, 0.0294117647058824, 0.0147058823529412, 0.00735294117647059, 0.00735294117647059, 0.00367647058823529, 0.0110294117647059, 0.0110294117647059, 0.0147058823529412, 0.0110294117647059, 0.00735294117647059, 0.00367647058823529, 0.00735294117647059, 0.0110294117647059, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.00367647058823529, 0.0110294117647059, 0.00367647058823529, 0.00735294117647059, 0.00735294117647059, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.00735294117647059, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.00735294117647059, 0.0147058823529412, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.00367647058823529, 0.0183823529411765, 0.00735294117647059, 0.00367647058823529, 0.0110294117647059, 0.00735294117647059, 0.00367647058823529, 0.00367647058823529, 0.0220588235294118, 0.00735294117647059, 0.00367647058823529, 0.00735294117647059, 0.0183823529411765, 0.00735294117647059, 0.00735294117647059, 0.00735294117647059, 0.0147058823529412, 0.0147058823529412, 0.00367647058823529, 0.00367647058823529, 0.0110294117647059, 0.0147058823529412, 0.00735294117647059, 0.00735294117647059, 0.00735294117647059, 0.00367647058823529, 0.0183823529411765, 0.0147058823529412, 0.00367647058823529, 0.0110294117647059, 0.00367647058823529, 0.00367647058823529, 0.0147058823529412, 0.00735294117647059, 0.0110294117647059, 0.00735294117647059, 0.00367647058823529, 0.0294117647058824, 0.00367647058823529, 0.0183823529411765, 0.00367647058823529, 0.0110294117647059, 0.0147058823529412, 0.0147058823529412, 0.00367647058823529, 0.0110294117647059, 0.00367647058823529, 0.00735294117647059, 0.0220588235294118, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.0220588235294118, 0.00735294117647059, 0.00735294117647059, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.0110294117647059, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529), class = 'table', .Dim = 126L, .Dimnames = structure(list(fe = c('1.6', '1.667', '1.7', '1.733', '1.75', '1.783', '1.8', '1.817', '1.833', '1.85', '1.867', '1.883', '1.917', '1.933', '1.95', '1.967', '1.983', '2', '2.017', '2.033', '2.067', '2.083', '2.1', '2.133', '2.15', '2.167', '2.183', '2.2', '2.217', '2.233', '2.25', '2.267', '2.283', '2.3', '2.317', '2.333', '2.35', '2.367', '2.383', '2.4', '2.417', '2.483', '2.617', '2.633', '2.8', '2.883', '2.9', '3.067', '3.317', '3.333', '3.367', '3.417', '3.45', '3.5', '3.567', '3.6', '3.683', '3.717', '3.733', '3.75', '3.767', '3.817', '3.833', '3.85', '3.883', '3.917', '3.95', '3.966', '3.967', '4', '4.033', '4.05', '4.067', '4.083', '4.1', '4.117', '4.133', '4.15', '4.167', '4.183', '4.2', '4.233', '4.25', '4.267', '4.283', '4.3', '4.317', '4.333', '4.35', '4.366', '4.367', '4.383', '4.4', '4.417', '4.433', '4.45', '4.467', '4.483', '4.5', '4.517', '4.533', '4.55', '4.567', '4.583', '4.6', '4.617', '4.633', '4.65', '4.667', '4.7', '4.716', '4.733', '4.75', '4.767', '4.783', '4.8', '4.817', '4.833', '4.85', '4.883', '4.9', '4.933', '5', '5.033', '5.067', '5.1')), .Names = 'fe')));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction1_2346ff9bfb1b82dd835cff3a31719bb0() {
+ assertEval("argv <- list(function (x, y) { c(x, y)});is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction10_563a07bfa9e149ea701db69fb5610e05() {
+ assertEval("argv <- list(structure(c(FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(5L, 5L)));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction11_758254bdeb5cd140cfeec2692939c602() {
+ assertEval("argv <- list(c(0.2853725+0.3927816i, -0.07283992154231+0.224178134292i, -0.10883955678256+0.035364093700981i, -0.0449501817243521-0.0326582354266614i, 8.2299281e-09-2.69753665872767e-02i, 0.0105954299973322-0.0076980245688633i, 0.00604728675391113+0.00196488543076221i, 0.00095395849586903+0.00293598723445021i, -0.00088096824266454+0.00121254736140417i, -7.27670402517897e-04-4.44010655e-10i, -2.07656947543323e-04-2.85815671682054e-04i, 5.3003554565545e-05-1.6312776087427e-04i, 7.9199339795869e-05-2.57333559721505e-05i, 3.27089023280074e-05+2.37644512768026e-05i, -1.79660253e-11+1.96291758626278e-05i, -7.70998422901389e-06+5.60161993213361e-06i, -4.4004307139296e-06-1.42979165736404e-06i, -6.9416605906477e-07-2.13643143624753e-06i, 6.4105505412914e-07-8.82334435385704e-07i, 5.29504214700362e-07+6.46186824e-13i));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction12_be269c67bb1d26df96c1001879ee2131() {
+ assertEval("argv <- list(structure(c(9, 13, 13, 18, 23, 28, 31, 34, 45, 48, 161, 5, 5, 8, 8, 12, 16, 23, 27, 30, 33, 43, 45, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1), .Dim = c(23L, 2L), .Dimnames = list(NULL, c('time', 'status')), type = 'right', class = 'Surv'));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction13_d1251f6260511dbe7ff930a97b89d837() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction14_637e7db5053f1b2dcfee3b53831ba043() {
+ assertEval("argv <- list(structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c('A', 'B', 'C'), class = 'factor')), .Names = c('x', 'y', 'fac'), row.names = c(NA, -10L), class = 'data.frame'));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction15_dd13fdc47c7f20e0567c1f3aaf36d13a() {
+ assertEval("argv <- list(structure(function (x) standardGeneric('dim', .Primitive('dim')), generic = structure('dim', package = 'base'), package = 'base', group = list(), valueClass = character(0), signature = 'x', default = .Primitive('dim'), skeleton = quote(.Primitive('dim')(x)), class = structure('standardGeneric', package = 'methods')));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction16_b764d9f0f945e0d31b68b3867f95d2ea() {
+ assertEval("argv <- list(structure(function (x, na.rm = FALSE, dims = 1, ...) standardGeneric('rowMeans'), generic = structure('rowMeans', package = 'base'), package = 'base', group = list(), valueClass = character(0), signature = c('x', 'na.rm', 'dims'), default = structure(function (x, na.rm = FALSE, dims = 1, ...) base::rowMeans(x, na.rm = na.rm, dims = dims, ...), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = structure('rowMeans', package = 'base'), class = structure('derivedDefaultMethod', package = 'methods')), skeleton = quote((function (x, na.rm = FALSE, dims = 1, ...) base::rowMeans(x, na.rm = na.rm, dims = dims, ...))(x, na.rm, dims, ...)), class = structure('standardGeneric', package = 'methods')));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction17_63672070125ce0865db04f99aefd1988() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c('1', '2', NA), class = c('ordered', 'factor')));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction18_7b42163b183135e5c32bcbae5db926fa() {
+ assertEval("argv <- list(structure(list(usr = c(0.568, 1.432, -1.08, 1.08), xaxp = c(0.6, 1.4, 4), yaxp = c(-1, 1, 4)), .Names = c('usr', 'xaxp', 'yaxp')));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction19_710e97b2c4df526c9240dc1d0b69a9ff() {
+ assertEval("argv <- list(structure(list(double.eps = 2.22044604925031e-16, double.neg.eps = 1.11022302462516e-16, double.xmin = 2.2250738585072e-308, double.xmax = 1.79769313486232e+308, double.base = 2L, double.digits = 53L, double.rounding = 5L, double.guard = 0L, double.ulp.digits = -52L, double.neg.ulp.digits = -53L, double.exponent = 11L, double.min.exp = -1022L, double.max.exp = 1024L, integer.max = 2147483647L, sizeof.long = 8L, sizeof.longlong = 8L, sizeof.longdouble = 16L, sizeof.pointer = 8L), .Names = c('double.eps', 'double.neg.eps', 'double.xmin', 'double.xmax', 'double.base', 'double.digits', 'double.rounding', 'double.guard', 'double.ulp.digits', 'double.neg.ulp.digits', 'double.exponent', 'double.min.exp', 'double.max.exp', 'integer.max', 'sizeof.long', 'sizeof.longlong', 'sizeof.longdouble', 'sizeof.pointer')));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction2_ce530197637b204eff56771230a9f40f() {
+ assertEval("argv <- list(c('a', 'b', NA, NA, NA, 'f', 'g', 'h', 'i', 'j', 'k', 'l'));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction20_bde4d27b02aeffddbf233a7495c890f6() {
+ assertEval("argv <- list(structure(list(extra = c(0.7, -1.6, -0.2, -1.2, -0.1, 3.4, 3.7, 0.8, 0, 2, 1.9, 0.8, 1.1, 0.1, -0.1, 4.4, 5.5, 1.6, 4.6, 3.4), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('1', '2'), class = 'factor'), ID = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L), .Label = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'), class = 'factor')), .Names = c('extra', 'group', 'ID'), row.names = c(NA, -20L), class = 'data.frame'));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction3_183b621151a3700ce39c58765a15df43() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction4_08973abf26e091c1d720d0c1484577db() {
+ assertEval("argv <- list(structure(c(1, 0.341108926893721, 7.03552967282433, 0.0827010685995216, 2.31431632448833, 2.09774421189194, 17.4719768806091, 0.00710660186854106, 0.341108926893721, 6.24415190746514, 0.0686360870302571, 2.93161486304804, 1, 20.6254633582673, 0.242447681896313, 6.78468413466471, 6.14977811045541, 51.2211071100253, 0.02083381966358, 1, 18.3054485390546, 0.201214572879361, 0.142135709250525, 0.0484837592557245, 1, 0.0117547750411693, 0.328946992211217, 0.298164361383444, 2.48339182593415, 0.00101010189694619, 0.0484837592557245, 0.887516960035576, 0.00975563891022635, 12.0917421858535, 4.12460120129202, 85.071810944714, 1, 27.984116332225, 25.3653821820638, 211.266639917518, 0.0859311976119033, 4.12460120129202, 75.5026750343739, 0.829929869015672, 0.432093050296869, 0.147390796704999, 3.04000347678479, 0.0357345569939779, 1, 0.906420695258988, 7.54951978505874, 0.00307071327862333, 0.147390796704999, 2.69805464421362, 0.0296571762053451, 0.476702542822467, 0.16260749282968, 3.35385488513828, 0.0394238096955273, 1.10324047677913, 1, 8.32893580712171, 0.00338773518156042, 0.16260749282968, 2.97660309205839, 0.0327189972167077, 0.0572345079685763, 0.0195232015944512, 0.402675079122419, 0.00473335496976909, 0.132458756115733, 0.120063357811564, 1, 0.000406742861274512, 0.0195232015944512, 0.357380962104814, 0.00392835267006514, 140.714228614202, 47.998879521268, 989.999130803802, 11.6372170735519, 325.65723636963, 295.182458606281, 2458.55574912007, 1, 47.998879521268, 878.641019008853, 9.65807404155984, 2.93161486304804, 1, 20.6254633582673, 0.242447681896313, 6.78468413466471, 6.14977811045541, 51.2211071100253, 0.02083381966358, 1, 18.3054485390546, 0.201214572879361, 0.160149851384054, 0.0546285439478035, 1.12673903151092, 0.0132445638455158, 0.370637415422497, 0.335953423776254, 2.79813450081517, 0.00113812123309249, 0.0546285439478035, 1, 0.0109920591374787, 14.5695951396408, 4.96981896335886, 102.50481892598, 1.20492108711069, 33.7186518728567, 30.5632838737905, 254.559629439639, 0.103540312043258, 4.96981896335886, 90.9747652821832, 1), .Dim = c(11L, 11L), .Dimnames = list(c('ATS', 'BEF', 'DEM', 'ESP', 'FIM', 'FRF', 'IEP', 'ITL', 'LUF', 'NLG', 'PTE'), c('ATS', 'BEF', 'DEM', 'ESP', 'FIM', 'FRF', 'IEP', 'ITL', 'LUF', 'NLG', 'PTE'))));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction5_55e924b83dcc1d9b20a0ca01396fc2bb() {
+ assertEval("argv <- list(structure(c(1+0i, 5+0i, 9+0i, 13+0i, 17+0i, 21+0i, 2+0i, 6+0i, 10+0i, 14+0i, 18+0i, 22+0i, 3+0i, 7+0i, 11+0i, 15+0i, 19+0i, 23+0i, 4+0i, 8+0i, 12+0i, 16+0i, 20+0i, 24+0i), .Dim = c(6L, 4L)));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction6_061f37b4d9927b654255093c915cf1a9() {
+ assertEval("argv <- list(structure(list(Df = c(1L, 7L), `Sum Sq` = c(158.407612694902, 204.202165082876), `Mean Sq` = c(158.407612694902, 29.1717378689823), `F value` = c(5.43017400630538, NA), `Pr(>F)` = c(0.052592726218915, NA)), .Names = c('Df', 'Sum Sq', 'Mean Sq', 'F value', 'Pr(>F)'), row.names = c('depression', 'Residuals'), class = c('anova', 'data.frame'), heading = c('Analysis of Variance Table\n', 'Response: weight')));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction7_cdd24e600b04db832f5ffa0400ac1a62() {
+ assertEval("argv <- list(structure(list(GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962, Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551)), .Names = c('GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year', 'Employed'), row.names = 1947:1962, class = 'data.frame'));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction8_bd440f664b9e14f1dc49580ff843cf7a() {
+ assertEval("argv <- list(structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, 104, 118, 115, 126, 141, 135, 125, 149, 170, 170, 158, 133, 114, 140, 145, 150, 178, 163, 172, 178, 199, 199, 184, 162, 146, 166, 171, 180, 193, 181, 183, 218, 230, 242, 209, 191, 172, 194, 196, 196, 236, 235, 229, 243, 264, 272, 237, 211, 180, 201, 204, 188, 235, 227, 234, 264, 302, 293, 259, 229, 203, 229, 242, 233, 267, 269, 270, 315, 364, 347, 312, 274, 237, 278, 284, 277, 317, 313, 318, 374, 413, 405, 355, 306, 271, 306, 315, 301, 356, 348, 355, 422, 465, 467, 404, 347, 305, 336, 340, 318, 362, 348, 363, 435, 491, 505, 404, 359, 310, 337, 360, 342, 406, 396, 420, 472, 548, 559, 463, 407, 362, 405, 417, 391, 419, 461, 472, 535, 622, 606, 508, 461, 390, 432), .Tsp = c(1949, 1960.91666666667, 12), class = 'ts'));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisfunction_testisfunction9_e82c7d1967f1b530c04bcafdf10a5cda() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.function(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinfinite_testisinfinite1_916582d63a82f7a69dc06e75cd480704() {
+ assertEval("argv <- list(structure(c(100L, 0L, NA, NA, NA, 3L, NA), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinfinite_testisinfinite10_01a212eca696cbaf20d1f527b70eb29e() {
+ assertEval("argv <- list(structure(c(100, -1e-13, Inf, -Inf, NaN, 3.14159265358979, NA), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinfinite_testisinfinite11_9c296861ac65b4ef655c523ca32c19f0() {
+ assertEval("argv <- list(structure(c(0.140840156507829, 0.04056135019562, 0.0029302031336855, 0.244192917875952, 0.613916838192149, 0.0888451715064135, 0.0786481028238466, 0.000549230092684491, 0.00048785961836479, 0.235214398525727, 0.000402612842061681, 0.00423992719924668, 0.0355604120039037, 0.00432748168352161, 0.170388213068447, 0.466682597016338), .Names = c('1947', '1948', '1949', '1950', '1951', '1952', '1953', '1954', '1955', '1956', '1957', '1958', '1959', '1960', '1961', '1962')));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinfinite_testisinfinite12_c71e68e48aacdf0c74d5c2d5d55d8bf8() {
+ assertEval("argv <- list(4);is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinfinite_testisinfinite13_d9ec13b8644d211fa07bd8d52f11583b() {
+ assertEval("argv <- list(structure(1:24, .Dim = 2:4));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinfinite_testisinfinite14_4874e151ae66dd14368e5a9bd78318c9() {
+ assertEval("argv <- list(structure(c(1, 0.5, 0.5, 1), .Dim = c(2L, 2L), .Dimnames = list(c('A', 'B'), c('A', 'B'))));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinfinite_testisinfinite15_5ceb7ccbf0cffa18fceb1836cfd0a687() {
+ assertEval("argv <- list(c(21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 36L, 51L, 66L, 81L, 96L, 111L, 126L, 141L, 156L, 171L, 178L, 185L, 192L, 199L, 206L, 213L, 220L, 227L, 234L, 241L, 248L, 250L, 252L, 254L, 256L, 258L, 260L, 262L, 264L, 266L, 268L, 270L, 267L, 264L, 261L, 258L, 255L, 242L, 229L, 216L, 203L, 190L, 177L, 164L, 151L, 138L, 125L, 112L, 111L, 110L, 109L, 108L, 107L, 106L, 105L, 104L, 103L, 102L, 101L, 100L, 99L, 102L, 105L, 108L, 111L, 114L, 117L, 120L, 123L, 126L, 129L, 132L, 141L, 150L, 159L, 168L, 177L, 186L, 195L, 204L, 213L, 222L, 231L, 240L, 257L, 274L, 291L, 308L, 325L, 342L, 359L, 376L, 393L, 384L, 375L, 366L, 357L, 348L, 339L, 330L, 321L, 312L, 303L, 294L, 285L, 286L, 287L, 288L, 289L, 290L, 291L, 292L, 293L, 294L, 295L, 296L, 282L, 268L, 254L, 240L, 226L, 212L, 198L, 184L, 170L, 156L, 142L, 128L, 114L, 100L, 86L, 72L, 58L, 44L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinfinite_testisinfinite2_cd0f1fb7f584cd1f6a0924da17901f2b() {
+ assertEval("argv <- list(c(Inf, -Inf));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinfinite_testisinfinite3_e9b6f5d320af80742d6bbd98d0b84c9e() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 0L)));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinfinite_testisinfinite4_60c792df0e06d97bbb168d46ec958a97() {
+ assertEval("argv <- list(structure(c(0.00241725013897913, 2.73568372449633e-07, 0.00400531454105884, 0.0305181933571734, 0.022064930648429, 0.000416097494498381, 0.0186357510997526, 0.00896237344987589, 0.00202331168264955, 0.00279067096737535, 0.0447487811957221, 0.000577210896095096, 0.00782925975125774, 0.033211430744327, 0.0093483442273581, 0.00136284952207105, 0.0275004422708864, 0.0135979349769553, 0.000181644594904405, 0.00803803085466393, 0.00350275333198457, 0.014998898960339, 5.39459255498146e-05, 0.00123860219686858, 1.13323906102913e-05, 0.0297916373848854, 0.0312890114433758, 5.85350754663798e-05, 0.0131002435454964, 0.00277072267615578, 0.0222123285012571, 0.00194205331979335, 0.0103231522531299, 0.0261098279661105, 0.0358853728812373, 1.13323906102913e-05, 0.0486308859679786, 0.000674881587747117, 0.0218633172580077, 0.000558592420498928, 0.000802158707806158, 0.0581913205761545, 0.000436809276845313, 0.00631994234432259, 0.000141965876420771, 0.000262833357340149, 0.0055965687842748, 0.000654737007593888, 0.0140931986366498, 0.00241538552182261, 0.00414822230660342, 0.00884150659070285, 0.0647626092888162, 0.0935599413167129, 0.00117891119201738, 0.00742609802768654, 0.0306399064130622, 0.0274290617824389, 0.00217883778937331, 0.0108387379377857, 0.0242348837396833, 0.0168720396936779, 0.022211269097018, 0.0355286679037712, 0.00017126708391638, 0.00443642409999561, 0.0068913158904869, 0.0635882367317516, 0.0566932963429416, 0.00904861729235097, 0.00038919481466495), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71')));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinfinite_testisinfinite5_f03ade80b432565603edd692566c6f97() {
+ assertEval("argv <- list(structure(c(80, 80, 75, 62, 62, 62, 62, 62, 58, 58, 58, 58, 58, 58, 50, 50, 50, 50, 50, 56, 70, 27, 27, 25, 24, 22, 23, 24, 24, 23, 18, 18, 17, 18, 19, 18, 18, 19, 19, 20, 20, 20, 89, 88, 90, 87, 87, 87, 93, 93, 87, 80, 89, 88, 82, 93, 89, 86, 72, 79, 80, 82, 91, 42, 37, 37, 28, 18, 18, 19, 20, 15, 14, 14, 13, 11, 12, 8, 7, 8, 8, 9, 15, 15), .Dim = c(21L, 4L), .Dimnames = list(NULL, c('Air.Flow', 'Water.Temp', 'Acid.Conc.', 'stack.loss'))));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinfinite_testisinfinite6_7c185cb2979af2ca62ef273fb43c76bb() {
+ assertEval("argv <- list(structure(c(1.12411954394441, -0.567321126080105, 1.28594901629635, -0.519809468914999, -1.485548782458, -0.435305441405687, -0.281625943801696, -0.527525498975648, 2.60041695299567, NA), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinfinite_testisinfinite7_75732102df565ade7f1ae65f031ffb61() {
+ assertEval("argv <- list(NULL);is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinfinite_testisinfinite8_a9d6033608b9c036c49a85d29d905676() {
+ assertEval("argv <- list(structure(c(0.00544194018731062, 0.00542949133552226, 1.20718999105839e-05, 0.00505497198006266, 0.827687885653788, 0.00315385274195005, 0.0023164952286401, 0.00117183915211372, 2.09167441982205, 0.00193959227691399, 0.00358084102808485, 3.39138861812986e-05, 0.00163051710052444, 0.00168735925488057, 0.0167253073891896, 0.237074502262169, 0.0118967636015583, 0.00307437031103621, 0.00114371252369823, 0.000860763872820255, 0.00028432076263802, 0.00329557354736053, 0.000123683950933913, 0.00026114238659798, 0.00471892942651347, 0.00317288091968884, 6.76955217513137e-05, 0.0119061189538054, 0.00233356124758579, 0.00672098496026968, 0.134965372025281, 0.00102115420103838, 0.00114816901125044), .Names = c('Craig Dunain', 'Ben Rha', 'Ben Lomond', 'Goatfell', 'Bens of Jura', 'Cairnpapple', 'Scolty', 'Traprain', 'Lairig Ghru', 'Dollar', 'Lomonds', 'Cairn Table', 'Eildon Two', 'Cairngorm', 'Seven Hills', 'Knock Hill', 'Black Hill', 'Creag Beag', 'Kildcon Hill', 'Meall Ant-Suidhe', 'Half Ben Nevis', 'Cow Hill', 'N Berwick Law', 'Creag Dubh', 'Burnswark', 'Largo Law', 'Criffel', 'Acmony', 'Ben Nevis', 'Knockfarrel', 'Two Breweries', 'Cockleroi', 'Moffat Chase')));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinfinite_testisinfinite9_5d40116aebd0246ba08e197374041229() {
+ assertEval("argv <- list(structure(c(0.648648743252693, 0.52170345712821, -0.338075767187078, 0.169770656775468, -1.86324282017776, 0.362268009067608, 0.136032794890515, 0.901814933704047, -0.671639624694386, 1.79387977353953, 0.714576709724596, -0.471811539980989, -0.857026690426369, 0.226899513968796, 0.568565310101759, -0.944564385994918, 0.693403222263985, 0.02231307737364, -0.276817414323803, -0.344452836733253, -0.844829717537689, -0.421779195680793, -0.154748062715674, 1.43960300137753, 0.256965508768852, -0.295370227475694, 0.507911869619344, -0.346156318366332, -0.187948961031579, -0.454073164294974, -0.0895014237058297, 1.91227371168715, 0.779246572061347, 0.606406152381391, -0.0628430973426908, 2.1063179091687, -1.32672093069913, -0.754254955100625, -0.59565543740158, -1.95946772292555, -0.495798772099865, -3.58086046245482, -0.721772682345538, -0.254468243441054, 2.41750264738881, -0.0647957309150968, 1.87354174039771, -0.552199273430865, 0.732944502427441, 0.703597322009966, 0.875011400025303, -0.916329805907907, -0.297942295133666, -0.239141969395332, -1.79620422664673, -1.34633804643361, -Inf, 1.84762640960041, -0.344523591926435, 1.12935189480329, -0.902874350916712, -0.187948961031579, 0.444184743731147, -0.595767030989317, -0.878351658910786, 0.131398128073247, -1.16349118303155, -0.612790192876235, -0.231519954928205, -0.944564385994918, 0.136032794890519, -0.250233723215235, -0.972829009134415, 0.576852333601859, 0.226899513968797, -0.316245505808486, 0.101419270213227, 2.16953626752671, -0.383691077846572, 0.547999893193889, 0.00183871707028874, -1.28758691932778, 0.0676445397107313, -0.809987759639438, -1.04896153736838, 0.156556073105978, 0.248659709506608, 1.27246860456928, 0.554771572109539, 1.2326801378144, 2.2926344791142, 1.00034303387372, -0.554771572109538), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93')));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinteger_testisinteger1_af7539af8a7568de36162faf39ea6f5f() {
+ assertEval("argv <- list(2.74035772634541);is.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinteger_testisinteger2_840ae7248cf23a609c76391826d1dfff() {
+ assertEval("argv <- list(c(NA, 9, 3, 3));is.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinteger_testisinteger3_4fd53a5341da67beae7d9b7d98d6a2b3() {
+ assertEval("argv <- list(c(NA, 0L));is.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinteger_testisinteger4_dd690f6b34ecc73790c6021d9f0cfd8e() {
+ assertEval("argv <- list(c(NA, -4.19095158576965e-09));is.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinteger_testisinteger5_a1360344cd140f1a2fb0926ac462d115() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'character(0)', row.names = character(0), class = 'data.frame'));is.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinteger_testisinteger6_31976787145244819cef98007ff78247() {
+ assertEval("argv <- list(c(-0.6, -0.6, -0.6, -0.6, -0.6, -0.6, -0.6, -0.6, -0.3, -0.3, -0.3, -0.3, -0.3, -0.3, -0.3, -0.3, 0.3, 0.3, 0.3, 0.3, 0.3, 0.3, 0.3, 0.3, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6));is.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinteger_testisinteger7_bad6719af8d5cb48d786b853390020c9() {
+ assertEval("argv <- list(c(NA, 1L));is.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinteger_testisinteger8_1ee07eaf05755f149f0fc3e6caefce7d() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisinteger_testisinteger9_d5e6ffc1921f24d2d01bb13f8581af3c() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1), .Dim = 1:3));is.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage1_327c01febbf4792b7e1561d77b5afed5() {
+ assertEval("argv <- list(c(3.14159265358988, 3.14159265358988, 3.14159265358983, 3.14159265358982, 3.14159265358974, 3.14159265358989, 3.14159265358976, 3.14159265358993, 3.14159265358997, 3.14159265358984, 3.14159265358969, 3.14159265358989, 3.14159265358977, 3.14159265358964, 3.14159265358982, 3.14159265358969, 3.14159265358968, 3.1415926535898, 3.14159265358961, 3.14159265358967, 3.14159265358983, 3.14159265358997, 3.14159265358987, 3.14159265358995, 3.14159265358992, 3.14159265358996, 3.14159265358965, 3.14159265358964, 3.14159265358997, 3.14159265358968, 3.14159265358995, 3.14159265358961, 3.14159265358993, 3.14159265358985, 3.14159265358996, 3.14159265358964, 3.1415926535898, 3.1415926535896, 3.14159265358964, 3.14159265358994, 3.14159265358964, 3.14159265358962, 3.14159265358985, 3.14159265358962, 3.14159265358977, 3.14159265358973, 3.14159265358969, 3.14159265358987, 3.14159265358978, 3.14159265358965, 3.14159265358991, 3.14159265358997, 3.14159265358979, 3.1415926535897, 3.14159265358974, 3.14159265358977, 3.14159265358985, 3.14159265358982, 3.14159265358981, 3.14159265358984, 3.14159265358991, 3.14159265358989, 3.14159265358978, 3.14159265358967, 3.1415926535899, 3.14159265358998, 3.14159265358992, 3.14159265358972, 3.14159265358984, 3.14159265358974, 3.14159265358969, 3.14159265358984, 3.14159265358983, 3.14159265358995, 3.14159265358963, 3.14159265358996, 3.14159265358976, 3.14159265358973, 3.14159265358995, 3.14159265358965, 3.14159265358966, 3.1415926535898, 3.14159265358965, 3.14159265358992, 3.14159265358959, 3.14159265358988, 3.14159265358988, 3.14159265358974, 3.14159265358994, 3.14159265358996, 3.1415926535897, 3.14159265358973, 3.14159265358971, 3.14159265358986, 3.14159265358998, 3.14159265358984, 3.14159265358988, 3.1415926535896, 3.1415926535897, 3.14159265358985, 3.14159265358983));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage10_c669cd69fe84102c27dd81bb2c33a5f9() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage11_a0e16f9b02699f3cafa5876c9b96d4e0() {
+ assertEval("argv <- list(numeric(0));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage12_34b10ca0a691e5b6043ec38bdd3ebdc8() {
+ assertEval("argv <- list(expression(sqrt(abs(`Standardized residuals`))));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage13_fc828389d297e2e8837d0de7d7c3e8d6() {
+ assertEval("argv <- list(structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage14_1a0caa4e83bea2f59af048e5d5c876f0() {
+ assertEval("argv <- list(c(NA, NA, 0, NA, NA, NA, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 0, NA, NA, NA, NA, NA, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage15_b629fcf6211935ee0e3ffeec045d43d0() {
+ assertEval("argv <- list(c(3L, 3L, NA, 3L, 4L, 3L, NA, 3L, 3L, 3L, 3L, 2L, 3L, 3L, 4L, 3L, 2L, 2L, 3L, 5L, 2L, 2L, 2L, 4L, 3L, 3L, 3L, 3L, 4L, 4L, 3L, 3L, 4L, 3L, 4L, 3L, 3L, 4L, 3L, 1L, 3L, 3L, 5L, 3L, NA, 2L, 4L, 1L, 3L, 3L, NA, 2L, 5L, 3L, 4L, 4L, 5L, 4L, 4L, 3L, 5L, 4L, 4L, NA, 3L, 5L, 5L, 5L, 5L, 4L, 5L, 4L, 4L, 5L));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage16_4623a1a38899c1d717efcaefcc53d883() {
+ assertEval("argv <- list(structure(list(nationality = structure(c(1L, 2L, 2L, 3L, 3L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(1L, 1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor'), title = structure(c(3L, 6L, 7L, 4L, 2L, 5L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, NA, NA, NA, NA, 1L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('nationality', 'deceased', 'title', 'other.author'), class = 'data.frame', row.names = c(NA, -6L)));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage17_c6c740213eeedc7db94ebb47343d5d1d() {
+ assertEval("argv <- list(structure(list(x = c(0.3, 3.6, 6.2, 3.8, 3.1, 4.1, 6), y = c(6.1, 6.2, 5.2, 2.3, 1.1, 0.8, 0.1)), .Names = c('x', 'y'), row.names = c(1L, 4L, 12L, 31L, 37L, 48L, 50L), class = 'data.frame'));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage18_f817734849ace02a4b78f1dc15a8e28c() {
+ assertEval("argv <- list(c('1', '2', NA));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage19_231cba816882c73689515ad2e707b0ac() {
+ assertEval("argv <- list(structure(c(9, 13, 13, 18, 23, 28, 31, 34, 45, 48, 161, 5, 5, 8, 8, 12, 16, 23, 27, 30, 33, 43, 45, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1), .Dim = c(23L, 2L), .Dimnames = list(NULL, c('time', 'status')), type = 'right', class = 'Surv'));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage2_c2448845d319c76c038234b04067efc0() {
+ assertEval("argv <- list(structure(c(FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE), .Dim = 16:17));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage20_58742ea4e4797d34fd690ab97bac349c() {
+ assertEval("argv <- list(c(0.923879532511287+0.38268343236509i, 0.707106781186548+0.707106781186547i, 0.38268343236509+0.923879532511287i, 0+1i, -0.38268343236509+0.923879532511287i, -0.707106781186547+0.707106781186548i, -0.923879532511287+0.38268343236509i, -1+0i, -0.923879532511287-0.38268343236509i, -0.707106781186548-0.707106781186547i, -0.38268343236509-0.923879532511287i, 0-1i, 0.38268343236509-0.923879532511287i, 0.707106781186547-0.707106781186548i, 0.923879532511287-0.38268343236509i, 1-0i));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage21_d1f696aa0be107f871ba066380417897() {
+ assertEval("argv <- list(integer(0));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage22_a54958869c85ae9f07c016a10837f0fb() {
+ assertEval("argv <- list(structure(0:100, .Tsp = c(1, 101, 1), class = 'ts'));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage23_1399036a1f5d3f40dac88ff46e373bb0() {
+ assertEval("argv <- list(c(0.568, 1.432, -1.08, 1.08));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage24_c3af82c60d6f22a175609874aae28f33() {
+ assertEval("argv <- list('«Latin-1 accented chars»: éè øØ å<Å æ<Æ');is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage3_f2f8f5732ac2a1bc3a25a968937f6176() {
+ assertEval("argv <- list(structure(c(-5.96781464124519, -6.49437440734601, -3.09795335180399, -6.0516983940436, 2.94181419227242, 1.32243907887975, -6.14000748997388, -1.17705131190311), .Dim = c(4L, 2L), .Dimnames = list(c('Murder', 'Assault', 'UrbanPop', 'Rape'), c('PC1', 'PC2'))));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage4_7f868ea150950b397c0ca33d75b93e87() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage6_eb50ed93da325e9bb8feb3a612440db5() {
+ assertEval("argv <- list(1.79769313486232e+308);is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage7_c82b4286cd46170d368c9a154248cd22() {
+ assertEval("argv <- list(c('2001-01-01', NA, NA, '2004-10-26'));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage8_a96effb32ba55172e0e41d9238a505f0() {
+ assertEval("argv <- list(c(0+0i, 0.00809016994374947-0.00587785252292473i, 0.0161803398874989-0.0117557050458495i, 0.0242705098312484-0.0176335575687742i, 0.0323606797749979-0.0235114100916989i, 0.0404508497187474-0.0293892626146237i, 0.0485410196624968-0.0352671151375484i, 0.0566311896062463-0.0411449676604731i, 0.0647213595499958-0.0470228201833979i, 0.0728115294937453-0.0529006727063226i, 0.0809016994374947-0.0587785252292473i, 0.0889918693812442-0.0646563777521721i, 0.0970820393249937-0.0705342302750968i, 0.105172209268743-0.076412082798022i, 0.113262379212493-0.082289935320946i, 0.121352549156242-0.088167787843871i, 0.129442719099992-0.094045640366796i, 0.137532889043741-0.09992349288972i, 0.14562305898749-0.105801345412645i, 0.15371322893124-0.11167919793557i, 0.16180339887499-0.117557050458495i, 0.169893568818739-0.123434902981419i, 0.177983738762488-0.129312755504344i, 0.186073908706238-0.135190608027269i, 0.194164078649987-0.141068460550194i, 0.202254248593737-0.146946313073118i, 0.210344418537486-0.152824165596043i, 0.218434588481236-0.158702018118968i, 0.226524758424985-0.164579870641893i, 0.234614928368735-0.170457723164817i, 0.242705098312484-0.176335575687742i, 0.250795268256234-0.182213428210667i, 0.258885438199983-0.188091280733591i, 0.266975608143733-0.193969133256516i, 0.275065778087482-0.199846985779441i, 0.283155948031232-0.205724838302366i, 0.291246117974981-0.21160269082529i, 0.29933628791873-0.217480543348215i, 0.30742645786248-0.22335839587114i, 0.315516627806229-0.229236248394065i, 0.323606797749979-0.235114100916989i, 0.331696967693728-0.240991953439914i, 0.339787137637478-0.246869805962839i, 0.347877307581227-0.252747658485764i, 0.355967477524977-0.258625511008688i, 0.364057647468726-0.264503363531613i, 0.372147817412476-0.270381216054538i, 0.380237987356225-0.276259068577462i, 0.388328157299975-0.282136921100387i, 0.396418327243724-0.288014773623312i, 0.404508497187474-0.293892626146237i, 0.412598667131223-0.299770478669161i, 0.420688837074973-0.305648331192086i, 0.428779007018722-0.311526183715011i, 0.436869176962472-0.317404036237936i, 0.444959346906221-0.32328188876086i, 0.453049516849971-0.329159741283785i, 0.46113968679372-0.33503759380671i, 0.469229856737469-0.340915446329634i, 0.477320026681219-0.346793298852559i, 0.485410196624968-0.352671151375484i, 0.493500366568718-0.358549003898409i, 0.501590536512467-0.364426856421333i, 0.509680706456217-0.370304708944258i, 0.517770876399966-0.376182561467183i, 0.525861046343716-0.382060413990108i, 0.533951216287465-0.387938266513032i, 0.542041386231215-0.393816119035957i, 0.550131556174964-0.399693971558882i, 0.558221726118714-0.405571824081807i, 0.566311896062463-0.411449676604731i, 0.574402066006213-0.417327529127656i, 0.582492235949962-0.423205381650581i, 0.590582405893712-0.429083234173506i, 0.598672575837461-0.43496108669643i, 0.60676274578121-0.440838939219355i, 0.61485291572496-0.44671679174228i, 0.62294308566871-0.452594644265205i, 0.631033255612459-0.458472496788129i, 0.639123425556208-0.464350349311054i, 0.647213595499958-0.470228201833979i, 0.655303765443707-0.476106054356903i, 0.663393935387457-0.481983906879828i, 0.671484105331206-0.487861759402753i, 0.679574275274956-0.493739611925678i, 0.687664445218705-0.499617464448602i, 0.695754615162455-0.505495316971527i, 0.703844785106204-0.511373169494452i, 0.711934955049954-0.517251022017377i, 0.720025124993703-0.523128874540301i, 0.728115294937453-0.529006727063226i, 0.736205464881202-0.534884579586151i, 0.744295634824952-0.540762432109075i, 0.752385804768701-0.546640284632i, 0.76047597471245-0.552518137154925i, 0.7685661446562-0.55839598967785i, 0.77665631459995-0.564273842200774i, 0.784746484543699-0.570151694723699i, 0.792836654487448-0.576029547246624i, 0.800926824431198-0.581907399769549i, 0.809016994374947-0.587785252292473i));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislanguage_testislanguage9_f495084544910b82dec8434a106461f5() {
+ assertEval("argv <- list(structure(c(-0.148741651280925, -0.200659450546418, -0.0705810742857073, -0.356547323513813, -0.214670164989233, -0.161150909262745, -0.0362121726544447, -0.259637310505756, -0.142667503568732, -0.113509274827518, -0.0362121726544447, -0.221848749616356, -0.0809219076239261, -0.0969100130080564, 0, -0.113509274827518, -0.0362121726544447, 0, 0.0934216851622351, 0, 0.0644579892269184, 0.113943352306837, 0.161368002234975, 0.0969100130080564, 0.100370545117563, 0.139879086401236, 0.269512944217916, 0.193124598354462, 0.184691430817599, 0.201397124320452, 0.262451089730429, 0.269512944217916, 0.184691430817599, 0.315970345456918, 0.369215857410143, 0.352182518111362, 0.334453751150931, 0.385606273598312, 0.431363764158987, 0.352182518111362, 0.445604203273598, 0.534026106056135, 0.56702636615906, 0.556302500767287, 0.556302500767287, 0.635483746814912, 0.635483746814912, 0.607455023214668, 0.686636269262293, 0.702430536445525, 0.702430536445525, 0.644438589467839, 0.746634198937579, 0.76715586608218, 0.817565369559781, 0.725094521081469, 0.780317312140151, 0.8055008581584, 0.840733234611807, 0.76715586608218, 0.840733234611807, 0.888740960682893, 0.893761762057943, 0.786751422145561, 0.888740960682893, 0.949877704036875, 0.91803033678488, 0.835056101720116, 0.979548374704095, 1.0111473607758, 0.979548374704095, 0.94101424370557, 1.07481644064517, 1.08134730780413, 1.08457627793433, 0.949877704036875, 1.14736710779379, 1.11260500153457, 1.17172645365323, 0.999565488225982, 1.20951501454263, 1.16643011384328, 1.20466251174822, 1.06483221973857), .Tsp = c(1960, 1980.75, 4), class = 'ts'));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist1_0bf5b5d95d10bfb449f032407218a5a6() {
+ assertEval("argv <- list(structure(function (e1, e2) standardGeneric('/', .Primitive('/')), generic = structure('/', package = 'base'), package = 'base', group = list('Arith'), valueClass = character(0), signature = c('e1', 'e2'), default = .Primitive('/'), skeleton = quote(.Primitive('/')(e1, e2)), class = structure('standardGeneric', package = 'methods')));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist10_6bcdd07568de3bab716692c9cbcb22c6() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist11_942f7b1f8628b32a57c455f4676acdbe() {
+ assertEval("argv <- list(structure(list(a_string = c('foo', 'bar'), a_bool = FALSE, a_struct = structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = 'foo'), .Names = c('a', 'b', 'c')), a_cell = structure(list(1, 'foo', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'bar'), .Dim = c(2L, 2L)), a_complex_scalar = 0+1i, a_list = list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'foo'), a_complex_matrix = structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), a_range = c(1, 2, 3, 4, 5), a_scalar = 1, a_complex_3_d_array = structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), a_3_d_array = structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), a_matrix = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), a_bool_matrix = structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))), .Names = c('a_string', 'a_bool', 'a_struct', 'a_cell', 'a_complex_scalar', 'a_list', 'a_complex_matrix', 'a_range', 'a_scalar', 'a_complex_3_d_array', 'a_3_d_array', 'a_matrix', 'a_bool_matrix')));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist12_f7cb481f158d7520a09f259bf80b08f1() {
+ assertEval("argv <- list(5e-14);is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist13_e9d76c8a2a8816193e088d04e89ae710() {
+ assertEval("argv <- list(structure(c(NA, 6346.2), .Names = c('1', '2')));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist14_7325d7c2dfc0f8ba856abad64bc390f4() {
+ assertEval("argv <- list(c(1.1+0i, NA, 3+0i));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist15_944245ec1e7ece56d30b09efe2d86e49() {
+ assertEval("argv <- list(structure(list(Ozone = c(NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), Solar.R = c(286L, 287L, 242L, 186L, 220L, 264L, 127L, 273L, 291L, 323L, 259L, 250L, 148L, 332L, 322L, 191L, 284L, 37L, 120L, 137L, 150L, 59L, 91L, 250L, 135L, 127L, 47L, 98L, 31L, 138L), Wind = c(8.6, 9.7, 16.1, 9.2, 8.6, 14.3, 9.7, 6.9, 13.8, 11.5, 10.9, 9.2, 8, 13.8, 11.5, 14.9, 20.7, 9.2, 11.5, 10.3, 6.3, 1.7, 4.6, 6.3, 8, 8, 10.3, 11.5, 14.9, 8), Temp = c(78L, 74L, 67L, 84L, 85L, 79L, 82L, 87L, 90L, 87L, 93L, 92L, 82L, 80L, 79L, 77L, 72L, 65L, 73L, 76L, 77L, 76L, 76L, 76L, 75L, 78L, 73L, 80L, 77L, 83L), Month = c(6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), Day = 1:30), .Names = c('Ozone', 'Solar.R', 'Wind', 'Temp', 'Month', 'Day'), row.names = 32:61, class = 'data.frame'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist16_b976b233dd944413df2ebaffbdbd7327() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4), .Tsp = c(1945, 1974.75, 4), class = 'ts'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist17_28fe52c5b0041c4bc715980a7250ac50() {
+ assertEval("argv <- list(structure(c('***', '***', '*', '*'), legend = '0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1', class = 'noquote'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist18_92ea6d7642d3d8891cb7219974a73eb0() {
+ assertEval("argv <- list(structure(list(`/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/lookup.xport.Rd` = structure(c('read.xport', ''), .Dim = 1:2, .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.S.Rd` = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.arff.Rd` = structure(c('connection', 'write.arff', '', ''), .Dim = c(2L, 2L), .Dimnames = list( NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.dbf.Rd` = structure(c('make.names', 'write.dbf', '', ''), .Dim = c(2L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.dta.Rd` = structure(c('write.dta', 'attributes', 'Date', 'factor', '', '', '', ''), .Dim = c(4L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.epiinfo.Rd` = structure(c('Date', 'DateTimeClasses', '', ''), .Dim = c(2L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.mtp.Rd` = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.octave.Rd` = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.spss.Rd` = structure(c('sub', 'iconv', 'iconvlist', '', '', ''), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.ssd.Rd` = structure(c('read.xport', ''), .Dim = 1:2, .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.systat.Rd` = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.xport.Rd` = structure(c('lookup.xport', ''), .Dim = 1:2, .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.arff.Rd` = structure(c('make.names', 'read.arff', '', ''), .Dim = c(2L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.dbf.Rd` = structure(c('read.dbf', ''), .Dim = 1:2, .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.dta.Rd` = structure(c('drop', 'read.dta', 'attributes', 'DateTimeClasses', 'abbreviate', '', '', '', '', ''), .Dim = c(5L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.foreign.Rd` = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c('Target', 'Anchor')))), .Names = c('/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/lookup.xport.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.S.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.arff.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.dbf.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.dta.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.epiinfo.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.mtp.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.octave.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.spss.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.ssd.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.systat.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.xport.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.arff.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.dbf.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.dta.Rd', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.foreign.Rd')));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist19_15a436e8375018427e81460ab9ab2815() {
+ assertEval("argv <- list(3.14159265358979e+20);is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist2_922d65499c4e724a6ce2a349254c0f6f() {
+ assertEval("argv <- list(structure(c(2671, 6.026e+77, 3.161e+152, 3.501e+299, 2.409e+227, 1.529e+302), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist20_852dc7ee3e65c01bd6ea529f19066902() {
+ assertEval("argv <- list(structure(list(srcfile = c(NA, '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R'), frow = c(NA, 88L, 89L, 89L, 90L, 90L, 90L, 88L, 88L, 92L, 92L, 92L, 92L, 92L, 94L, 94L, 100L, 103L, 108L, 108L, 128L, 131L, 138L, 142L, 160L, 160L), lrow = c(NA, 91L, 89L, 89L, 90L, 90L, 90L, 91L, 91L, 93L, 93L, 93L, 93L, 93L, 95L, 95L, 100L, 104L, 108L, 108L, 132L, 131L, 138L, 144L, 160L, 160L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 26L)));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist21_707f8f00b27f5523422179ff84ee1d3b() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/R_systat.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/R_systat.R'), frow = 21:22, lrow = 21:22), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist22_7b7fd327b172c207fd61ec22fc89b380() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, NA, NA, NA, NA, NA), .Label = c('[0,2)', '[2,4)', '[4,6)', '[6,8)'), class = 'factor'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist23_e6134625f7ed2bc36a8168ec2926d068() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10), .Dim = c(10L, 2L), .Dimnames = list(NULL, c('x', 'y'))));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist24_78394f050fd3204021866646f6aadfbd() {
+ assertEval("argv <- list(structure(list(loc = c(0.0804034870161223, 10.3548347412639), cov = structure(c(3.01119301965569, 6.14320559215603, 6.14320559215603, 14.7924762275451), .Dim = c(2L, 2L)), d2 = 2, wt = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), sqdist = c(0.439364946869246, 0.0143172566761092, 0.783644692619938, 0.766252947443554, 0.346865912102713, 1.41583192825661, 0.168485512965902, 0.354299830956879, 0.0943280426627965, 1.05001058449122, 1.02875556201707, 0.229332323173361, 0.873263925064789, 2.00000009960498, 0.449304354954282, 0.155023307933165, 0.118273979375253, 0.361693898800799, 0.21462398586105, 0.155558909016629, 0.471723661454506, 0.719528696331092, 0.0738164380664225, 1.46001193111051, 0.140785322548143, 0.127761195166703, 0.048012401156175, 0.811750426884519, 0.425827709817574, 0.163016638545231, 0.557810866640707, 0.277350147637843, 0.0781399119055092, 1.29559183995835, 0.718376405567138, 1.37650242941478, 0.175087780508154, 0.233808973148729, 0.693473805463067, 0.189096604125073, 1.96893781800017, 0.4759756980592, 1.69665760380474, 0.277965749373647, 0.920525436884815, 0.57525234053591, 1.59389578665009, 0.175715364671313, 0.972045794851437, 1.75514684962809, 0.0597413185507202, 0.174340343040626, 0.143421553552865, 0.997322770596838, 1.94096736957465, 2.00000001159796, 0.367000821772989, 0.682474530588235, 1.20976163307984, 1.27031685239035, 1.79775635513363, 0.0857761902860323, 0.435578932929501, 0.214370604878221, 0.494714247412686, 1.78784623754399, 1.24216674083069, 1.87749485326709, 0.0533296334123023, 1.45588362584438, 2.00000000631459, 0.208857144738039, 0.119251291573058, 0.365303924649962, 0.690656674239668, 0.0396958405786268, 0.258262120876164, 1.57360254057537, 0.307548421049514, 0.628417063100241, 1.00647098749202, 0.297624360530352, 0.400289147351669, 1.98298426250944, 0.129127182829694, 0.0794695319493149, 0.991481735944321, 0.444068154119836, 0.206790162395106, 0.574310829851377, 0.181887577583334, 0.433872021297517, 0.802994892604009, 0.293053770941001, 1.7002969001965, 0.77984639982848, 1.36127407487932, 0.761935213110323, 0.597915313430067, 0.237134831067472), prob = NULL, tol = 1e-07, eps = 9.96049758228423e-08, it = 898L, maxit = 5000, ierr = 0L, conv = TRUE), .Names = c('loc', 'cov', 'd2', 'wt', 'sqdist', 'prob', 'tol', 'eps', 'it', 'maxit', 'ierr', 'conv'), class = 'ellipsoid'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist25_dd69ac317f87b85a9552eb6b2a4827b4() {
+ assertEval("argv <- list(structure(c(NA, 1, 1, 2), .Names = c('<none>', 'M.user', 'Temp', 'Soft')));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist26_312b3238ec796f804cc94376d5924f07() {
+ assertEval("argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c('y', 'x', 'z'), terms = quote(y ~ x * z), row.names = c(NA, 10L), class = 'data.frame'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist27_645f23c0f5bccd75f3a2a38bc0a67ce4() {
+ assertEval("argv <- list(structure(c(1920, 1920, 1920, 1920, 1920, 1920, 1921, 1921, 1921, 1921), .Tsp = c(1920.5, 1921.25, 12), class = 'ts'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist29_647350c844ea5952913dfc47c75c1d17() {
+ assertEval("argv <- list(structure(1, .Dim = 1L));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist3_e2510bb0103191ac09896f8dc0f22b6b() {
+ assertEval("argv <- list('• ');is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist30_691af5dcfb99b8bde8a6088f9b8ff9b9() {
+ assertEval("argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c('Employed', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'), terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year), row.names = 1947:1962, class = 'data.frame'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist4_2deebef32feb63174f3a40462af38b9e() {
+ assertEval("argv <- list(13186.6170826564);is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist5_d127df94946c9b47fb8b281425d0a0bb() {
+ assertEval("argv <- list(structure(list(object = c(0.568, 1.432, -1.08, 1.08), max.level = NA, vec.len = 4, digits.d = 3, nchar.max = 128, give.attr = TRUE, give.head = TRUE, width = 80L, envir = NULL, strict.width = 'no', formatNum = function (x, ...) format(x, trim = TRUE, drop0trailing = TRUE, ...), list.len = 99, give.length = TRUE, nest.lev = 1, indent.str = ' ..'), .Names = c('object', 'max.level', 'vec.len', 'digits.d', 'nchar.max', 'give.attr', 'give.head', 'width', 'envir', 'strict.width', 'formatNum', 'list.len', 'give.length', 'nest.lev', 'indent.str')));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist6_0795f84c85869473e7a96f10d33217c4() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c('1', '2', NA), class = 'factor'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist7_57b253161992881cff0827d7fd4bef5b() {
+ assertEval("argv <- list(structure(list(y = c(1.08728092481538, 0.0420572471552261, 0.787502161306819, 0.512717751544676, 3.35376639535311, 0.204341510750309, -0.334930602487435, 0.80049208412789, -0.416177803375218, -0.777970346246018, 0.934996808181635, -0.678786709127108, 1.52621589791412, 0.5895781228122, -0.744496121210548, -1.99065153885627, 1.51286447692396, -0.750182409847851), A = c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), U = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('a', 'b', 'c'), class = 'factor'), V = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L), .Label = c('a', 'b', 'c'), class = 'factor')), .Names = c('y', 'A', 'U', 'V'), terms = quote(y ~ A:U + A:V - 1), row.names = c(NA, 18L), class = 'data.frame'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist8_0866b83ae49166e4e8c454247513ea1d() {
+ assertEval("argv <- list(structure(list(title = structure(1L, .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(2L, .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('title', 'other.author'), row.names = 1L, class = 'data.frame'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislist_testislist9_571c605bb48b59a9a84844d5f9b15bbe() {
+ assertEval("argv <- list(structure(list(srcfile = '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', frow = 612L, lrow = 612L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L)));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor1_11e42d3fdb31e174af970cd806b20e0e() {
+ assertEval("argv <- list(list(structure(list(structure('R Core', class = 'AsIs')), row.names = c(NA, -1L), class = 'data.frame'), structure(list(structure(NA_character_, class = 'AsIs')), row.names = c(NA, -1L), class = 'data.frame'), structure(list(structure(NA_character_, class = 'AsIs')), row.names = c(NA, -1L), class = 'data.frame'), structure(list(structure('An Introduction to R', class = 'AsIs')), row.names = c(NA, -1L), class = 'data.frame'), structure(list(structure('Venables & Smith', class = 'AsIs')), row.names = c(NA, -1L), class = 'data.frame')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor10_2a8d8eb6392df15688244afca7f2edab() {
+ assertEval("argv <- list(list(structure(c(0, 1, 1, 2, 2, 4, NA), .Names = c('ddiMatrix', 'diagonalMatrix', 'dMatrix', 'sparseMatrix', 'Matrix', 'mMatrix', 'ANY')), structure(c(0, 1, 1, 1, 2, 2, 2, 3, 4, NA), .Names = c('dgCMatrix', 'CsparseMatrix', 'dsparseMatrix', 'generalMatrix', 'dMatrix', 'sparseMatrix', 'compMatrix', 'Matrix', 'mMatrix', 'ANY'))), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor11_e03f9fe5b02cecc1c013f17910a74046() {
+ assertEval("argv <- list(list(structure(0, .Dim = c(1L, 1L)), structure(-4.9497224423095e-07, .Dim = c(1L, 1L)), structure(0, .Dim = c(1L, 1L)), structure(-7.44931694456399e-07, .Dim = c(1L, 1L))), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor12_6b31e3550a2a6b06373bdab71efda50b() {
+ assertEval("argv <- list(structure(list(event = c('Min. : 1.00 ', '1st Qu.: 9.00 ', 'Median :18.00 ', 'Mean :14.74 ', '3rd Qu.:20.00 ', 'Max. :23.00 ', NA), mag = c('Min. :5.000 ', '1st Qu.:5.300 ', 'Median :6.100 ', 'Mean :6.084 ', '3rd Qu.:6.600 ', 'Max. :7.700 ', NA), station = c('117 : 5 ', '1028 : 4 ', '113 : 4 ', '112 : 3 ', '135 : 3 ', '(Other):147 ', 'NA's : 16 '), dist = c('Min. : 0.50 ', '1st Qu.: 11.32 ', 'Median : 23.40 ', 'Mean : 45.60 ', '3rd Qu.: 47.55 ', 'Max. :370.00 ', NA), accel = c('Min. :0.00300 ', '1st Qu.:0.04425 ', 'Median :0.11300 ', 'Mean :0.15422 ', '3rd Qu.:0.21925 ', 'Max. :0.81000 ', NA)), .Names = c('event', 'mag', 'station', 'dist', 'accel')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor13_6e172d4486c1d4b1ebdbf88990fea80b() {
+ assertEval("argv <- list(structure(list(`1` = 1.97626258336499e-323), .Names = '1'), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor14_cbcca9f80f4a7a82f0125ca89f1ab028() {
+ assertEval("argv <- list(structure(list(name = structure(c('McNeil', 'Ripley', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'AsIs'), title = structure(c('Interactive Data Analysis', 'Spatial Statistics', 'Stochastic Simulation', 'LISP-STAT', 'Exploratory Data Analysis', 'Modern Applied Statistics ...'), class = 'AsIs'), other.author = structure(c(NA, NA, NA, NA, NA, 'Ripley'), class = 'AsIs'), nationality = structure(c('Australia', 'UK', 'UK', 'US', 'US', 'Australia'), class = 'AsIs'), deceased = structure(c('no', 'no', 'no', 'no', 'yes', 'no'), class = 'AsIs')), .Names = c('name', 'title', 'other.author', 'nationality', 'deceased'), row.names = c('1', '2', '3', '4', '5', '6')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor15_c1bc23c40d6d56921ab2f902c93fa1ae() {
+ assertEval("argv <- list(structure(list(`1` = 8.91763605923317e+38), .Names = '1'), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor16_9098c50a1d8e9a99857bc8e6aa56814b() {
+ assertEval("argv <- list(structure(list(V1 = c(0.908207789994776, 0.62911404389888, 0.205974574899301), V2 = c(0.125555095961317, 0.86969084572047, 0.482080115471035), V3 = c(0.553036311641335, 0.7323137386702, 0.477619622135535), V4 = c(0.332394674187526, 0.0842469143681228, 0.339072937844321), V5 = c(0.325352151878178, 0.245488513959572, 0.239629415096715)), .Names = c('V1', 'V2', 'V3', 'V4', 'V5'), row.names = c(4L, 9L, 11L)), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor17_1d82f55cc4296469207e51563e99d021() {
+ assertEval("argv <- list(structure(list(V1 = c(0.497699242085218, 0.991906094830483), V2 = c(0.668466738192365, 0.107943625887856), V3 = c(0.0994661601725966, 0.518634263193235), V4 = c(0.892198335845023, 0.389989543473348), V5 = c(0.79730882588774, 0.410084082046524)), .Names = c('V1', 'V2', 'V3', 'V4', 'V5'), row.names = c(16L, 18L)), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor18_aaaf0dd5540e1378abc44a29d1b603b5() {
+ assertEval("argv <- list(list(structure(list(structure('rm', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('remove', Rd_tag = 'VERB')), Rd_tag = '\\alias')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor19_7cc4ac8e193ec3d3bbaf311d190aefb0() {
+ assertEval("argv <- list(list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render'))), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor2_704f71ef7f34671dd86d105a76a03456() {
+ assertEval("argv <- list(list(c(TRUE, FALSE, FALSE, FALSE, FALSE), c(TRUE, TRUE, TRUE, TRUE, NA)), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor20_b798a712b7d5e0e143b3010162eadf3e() {
+ assertEval("argv <- list(list(c(0.92317305817397+0i, 0.160449395256071+0.220125597679977i, 0.40353715410585+2.39063261466203i, -3.64092275386503+3.51619480964107i, -0.30877433127864+1.37503901638266i, -0.5590368753986+2.95994484328048i, 2.07117052177259-1.58552086053907i, 5.12796916272868+5.50114308371867i, 0.71791019962021-4.36295436036464i, 3.6182846955548+0.01693946731429i, 5.86560669896785+3.41674024963709i, 7.14153164455803+0i, 5.86560669896785-3.41674024963709i, 3.6182846955548-0.01693946731429i, 0.71791019962021+4.36295436036464i, 5.12796916272868-5.50114308371867i, 2.07117052177259+1.58552086053907i, -0.5590368753986-2.95994484328048i, -0.30877433127864-1.37503901638266i, -3.64092275386503-3.51619480964107i, 0.40353715410585-2.39063261466203i, 0.160449395256071-0.220125597679976i), c(0.994686860835215+0i, -0.711636086238366+0.034977366507257i, -3.47255638259391-3.00654729467177i, -1.61617641806619-2.52564108817258i, -1.83729841635945+1.24025696654912i, -0.05940773912914+1.99807537840182i, 2.14861624215501+1.14547234755584i, -0.18935885218927+5.11711397439959i, 3.55025883223277-3.01463113510177i, 0.37587194655463-4.62160286369829i, -0.57999032040714+3.57394816552023i, -3.22078701201057+0i, -0.57999032040714-3.57394816552023i, 0.37587194655463+4.62160286369829i, 3.55025883223277+3.01463113510177i, -0.18935885218927-5.11711397439959i, 2.14861624215501-1.14547234755584i, -0.05940773912914-1.99807537840182i, -1.83729841635945-1.24025696654912i, -1.61617641806619+2.52564108817258i, -3.47255638259391+3.00654729467177i, -0.711636086238366-0.034977366507256i), c(-0.376031201145236+0i, 0.36561036190112-2.94822783523588i, 2.53378536984825+1.14599403212998i, -0.59345500414631-1.46249091231517i, -5.47371957596241-2.40983118775265i, 0.994698295196402+0.827012883372647i, 4.88614691865207-0.66440097322583i, -1.22869446246947-1.85036568311679i, 4.54719422944744-1.7507307644741i, -1.25805718969215-0.46461775748286i, -6.6950163960079-1.32606545879492i, -1.8510470181104-0i, -6.6950163960079+1.32606545879492i, -1.25805718969215+0.46461775748286i, 4.54719422944744+1.7507307644741i, -1.22869446246947+1.85036568311679i, 4.88614691865207+0.66440097322583i, 0.994698295196402-0.827012883372647i, -5.47371957596241+2.40983118775265i, -0.59345500414631+1.46249091231517i, 2.53378536984825-1.14599403212998i, 0.36561036190112+2.94822783523588i), c(1.86949363581639+0i, 3.2510927680528+3.7297126359622i, 5.77117909703734-0.58113122596059i, -2.73489323319193-2.03739778844743i, 1.59256247378073-3.23882870600546i, -2.21652163259476+3.70287191787544i, -6.80966667821261-4.74346958471693i, -0.48551953206469-3.42445496113818i, -4.95350216815663-1.60107509096991i, -0.651322462114205+0.588393022429161i, 3.32067078328635+3.75999833207777i, -1.35013798358527+0i, 3.32067078328635-3.75999833207777i, -0.651322462114205-0.588393022429161i, -4.95350216815663+1.60107509096991i, -0.48551953206469+3.42445496113818i, -6.80966667821261+4.74346958471693i, -2.21652163259476-3.70287191787544i, 1.59256247378073+3.23882870600546i, -2.73489323319193+2.03739778844743i, 5.77117909703734+0.58113122596059i, 3.2510927680528-3.7297126359622i), c(-3.90806827793786+0i, -4.10078155861753-4.25996878161911i, -0.63461032994351-2.08074582601136i, -0.10593736514835-3.82022652091785i, 6.14817602783479+2.33657685886581i, 0.64431546852762-1.776774088028i, 3.43771282488202-3.00904523977379i, -3.6812061457129+3.53944567666635i, 3.07722382691467+4.5373840425762i, 3.3679046040028+7.20820407858926i, 7.47003475089893-0.4463480891006i, 13.9322715624418-0i, 7.47003475089893+0.4463480891006i, 3.3679046040028-7.20820407858926i, 3.07722382691467-4.5373840425762i, -3.6812061457129-3.53944567666635i, 3.43771282488202+3.00904523977379i, 0.64431546852762+1.776774088028i, 6.14817602783479-2.33657685886581i, -0.10593736514835+3.82022652091785i, -0.63461032994351+2.08074582601136i, -4.10078155861753+4.25996878161911i)), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor21_3afbb38616984e26266943404c131210() {
+ assertEval("argv <- list(structure(list(), .Names = character(0)), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor22_159e67ec14852a9a3690b970aecceb18() {
+ assertEval("argv <- list(structure(list(a = 'a', b = 2, c = 3.14159265358979+2i), .Names = c('a', 'b', 'c')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor23_ac38f19802468836f4005883b96a1525() {
+ assertEval("argv <- list(list(structure(list(surname = structure(2L, .Label = c('McNeil', 'R Core', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(NA_integer_, .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(NA_integer_, .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = 1L, class = 'data.frame'), structure(list(title = structure(1L, .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(2L, .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('title', 'other.author'), row.names = 1L, class = 'data.frame')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor25_562825b2f061ee0db050701aabe6e44a() {
+ assertEval("argv <- list(list(structure(list(structure(c('', '+ M.user', '+ Temp', '+ M.user:Temp'), class = 'AsIs')), row.names = c(NA, -4L), class = 'data.frame'), structure(list(c(NA, -1, -1, -1)), row.names = c(NA, -4L), class = 'data.frame'), structure(list(c(NA, 20.5814660332393, 3.80016287449608, 2.78794934284365)), row.names = c(NA, -4L), class = 'data.frame'), structure(list(c(11, 10, 9, 8)), row.names = c(NA, -4L), class = 'data.frame'), structure(list(c(32.825622681839, 12.2441566485997, 8.44399377410362, 5.65604443125997)), row.names = c(NA, -4L), class = 'data.frame'), structure(list(c(92.5235803967766, 73.9421143635373, 72.1419514890413, 71.3540021461976)), row.names = c(NA, -4L), class = 'data.frame')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor26_fd88fb80b8a7575ff3d5aa064219b6c8() {
+ assertEval("argv <- list(structure(list(`2005` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12')), .Names = ''), class = 'table'), `2006` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12')), .Names = ''), class = 'table'), `2007` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12')), .Names = ''), class = 'table'), `2008` = structure(c(31L, 29L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12')), .Names = ''), class = 'table'), `2009` = structure(1L, .Dim = 1L, .Dimnames = structure(list('01'), .Names = ''), class = 'table')), .Names = c('2005', '2006', '2007', '2008', '2009')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor27_46464897805d31f9af26346f8f3c2b3d() {
+ assertEval("argv <- list(structure('mtext(\'«Latin-1 accented chars»: éè øØ å<Å æ<Æ\', side = 3)\n', Rd_tag = 'RCODE'), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor28_d9a89f240020611a863ca072bc71c833() {
+ assertEval("argv <- list(structure(list(V1 = structure(c('head', '1', '3', '6'), class = 'AsIs'), V2 = structure(c('NA', ' 2', ' 4', ' 7'), class = 'AsIs'), V3 = structure(c('NA', 'NA', ' 5', ' 8'), class = 'AsIs'), V4 = structure(c('NA', 'NA', 'NA', ' 9'), class = 'AsIs')), .Names = c('V1', 'V2', 'V3', 'V4'), row.names = c('1', '2', '3', '4')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor29_46c11b5a9d7bb9bb992e67a05ed2b6ac() {
+ assertEval("argv <- list(structure(list(`1 sec` = 345600, `2 secs` = 172800, `5 secs` = 69120, `10 secs` = 34560, `15 secs` = 23040, `30 secs` = 11520, `1 min` = 5760, `2 mins` = 2880, `5 mins` = 1152, `10 mins` = 576, `15 mins` = 384, `30 mins` = 192, `1 hour` = 96, `3 hours` = 32, `6 hours` = 16, `12 hours` = 8, `1 DSTday` = 4, `2 DSTdays` = 2, `1 week` = 0.571428571428571, halfmonth = 0.262833675564682, `1 month` = 0.131416837782341, `3 months` = 0.0438056125941136, `6 months` = 0.0219028062970568, `1 year` = 0.0109514031485284, `2 years` = 0.0054757015742642, `5 years` = 0.00219028062970568, `10 years` = 0.00109514031485284, `20 years` = 0.00054757015742642, `50 years` = 0.000219028062970568, `100 years` = 0.000109514031485284, `200 years` = 5.4757015742642e-05, `500 years` = 2.19028062970568e-05, `1000 years` = 1.09514031485284e-05), .Names = c('1 sec', '2 secs', '5 secs', '10 secs', '15 secs', '30 secs', '1 min', '2 mins', '5 mins', '10 mins', '15 mins', '30 mins', '1 hour', '3 hours', '6 hours', '12 hours', '1 DSTday', '2 DSTdays', '1 week', 'halfmonth', '1 month', '3 months', '6 months', '1 year', '2 years', '5 years', '10 years', '20 years', '50 years', '100 years', '200 years', '500 years', '1000 years')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor3_d8292e70762644e8793b001f9b4c18db() {
+ assertEval("argv <- list(structure(list(a = 6:10), .Names = 'a', row.names = 6:10), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor4_21fc784e9c177b5f9e48207f9bf7cc10() {
+ assertEval("argv <- list(structure(list(k = 0.413311097189709, g1 = 72.8306629700373, g2 = 181.793153976139), .Names = c('k', 'g1', 'g2')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor5_5a22ee1dde97af09d6cbd8e4a4b68dff() {
+ assertEval("argv <- list(list(structure(list(structure('text', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('text.default', Rd_tag = 'VERB')), Rd_tag = '\\alias')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor6_ddd1b417b71ccb33b951f1fc1f03cfe5() {
+ assertEval("argv <- list(list(structure(list(surname = structure(c(4L, 5L, 3L, 2L, 2L, 1L, 6L), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables', 'R Core'), class = 'factor'), nationality = structure(c(3L, 1L, 3L, 2L, 2L, 1L, NA), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(2L, 1L, 1L, 1L, 1L, 1L, NA), .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = c('1', '2', '3', '4', '4.1', '5', '7'), class = 'data.frame'), structure(list(title = structure(c(2L, 5L, 4L, 6L, 7L, 3L, 1L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, 1L, NA, NA, NA, NA, 2L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('title', 'other.author'), row.names = c(NA, 7L), class = 'data.frame')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor7_76122c593e5959d5f57a314601361b65() {
+ assertEval("argv <- list(list(c(' The binary arithmetic operators are generic functions: methods can', ' be written for them individually or via the ‘Ops’ group generic', ' function. (See ‘Ops’ for how dispatch is computed.)')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor8_63def84a0ffa79732d4fad9d531278f4() {
+ assertEval("argv <- list(list(structure(list(structure(1:4, .Label = c('0', '1', '2', '3'), class = 'factor')), row.names = c(NA, -4L), class = 'data.frame')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislistfactor_testislistfactor9_4c59dc0a1fca5a3e86054aadedcf83e2() {
+ assertEval("argv <- list(structure(list(`1` = c(2, 1, 4, 3), `2` = c(3, 1.5, 5, 4, 1.5), `3` = c(6.5, 1.5, 9, 8, 1.5, 6.5, 4, 4, 4), `4` = c(7, 1.5, 10, 9, 1.5, 7, 4, 4, 4, 7)), .Dim = 4L, .Dimnames = list(c('1', '2', '3', '4'))), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisloaded_testisloaded1_220ceb2147278a6f97c31fd69353e397() {
+ assertEval("argv <- list('PDF', '', 'External'); .Internal(is.loaded(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisloaded_testisloaded2_30b0aadc29d88b90168e554485b40aac() {
+ assertEval("argv <- list('supsmu', '', ''); .Internal(is.loaded(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinislogical_testislogical1_0823134dcecb9262120e44ea6976c89c() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(22L, 13L), .Dimnames = list(c('r39', 'r17', 'r39', 'r14', 'r39', 'r8', 'r25', 'r9', 'r17', 'r27', 'r17', 'r14', 'r39', 'r27', 'r9', 'r25', 'r8', 'r17', 'r9', 'r8', 'r25', 'r5'), c('c4', 'c1', 'c13', 'c13', 'c1', 'c20', 'c20', 'c13', 'c20', 'c8', 'c8', 'c8', 'c13'))));is.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislogical_testislogical2_9a7597d16b5376eadf8dd69b84cffce5() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'character(0)', row.names = character(0), class = 'data.frame'));is.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislogical_testislogical3_61ae2ece0eba0e47768e35172bfc770b() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislogical_testislogical4_653b0b9707c8713f830bc087103c8ec4() {
+ assertEval("argv <- list(structure(c(1, 4.16333634234434e-17, 5.55111512312578e-17, -1.38777878078145e-17, 2.77555756156289e-17, 4.16333634234434e-17, 1, -1.11022302462516e-16, -2.77555756156289e-17, -5.55111512312578e-17, 5.55111512312578e-17, -1.11022302462516e-16, 1, 5.55111512312578e-17, 0, -1.38777878078145e-17, -2.77555756156289e-17, 5.55111512312578e-17, 1, -1.11022302462516e-16, 2.77555756156289e-17, -5.55111512312578e-17, 0, -1.11022302462516e-16, 1), .Dim = c(5L, 5L)));is.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinislogical_testislogical5_d5543e0d201f118e6e70e5f959c95bc6() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, NA, 6, 0, 0, 0, 14, 3, 0, 15, 0, 0, 8), .Dim = c(4L, 4L)));is.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix1_dae7d36208604c0fa5f64d0e33a03490() {
+ assertEval("argv <- list(c(-3.44, 62.44));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix10_428a871e7486fabd6efea3517f4faabd() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(25L, 0L)));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix11_cd6318cec32acb7939c2280e70c635e0() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/arff.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/arff.R'), frow = c(86L, 86L), lrow = c(88L, 88L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix12_d839da23e106b1d13ce276fb8f6ff95a() {
+ assertEval("argv <- list(structure(c(-15.8396536770559, 0.267020886067525, -10.0516337591148, 7.62751967585832), .Dim = c(2L, 2L), .Dimnames = list(c('1', '3'), c('(Intercept)', 'TempLow'))));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix13_3fa584c1a0328be8e35cc253f69c0678() {
+ assertEval("argv <- list(structure(list(srcfile = c(NA, '/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats'), frow = c(NA, 16987L, 16991L), lrow = c(NA, 16987L, 16991L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 3L), class = 'data.frame'));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix14_d59dd47658e9f2963bf293502d5b8152() {
+ assertEval("argv <- list(structure(list(V1 = c(NA, 2, NA, 4, 5), V2 = c(NA, NA, 3, 4, 5)), .Names = c('V1', 'V2'), class = 'data.frame', row.names = c(NA, -5L)));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix15_edf48bcf82ea762e0e47caa10376d305() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 56.989995924654, 56.989995924654, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 109.608811230383, 109.608811230383, 109.608811230383, 107.478028232287, 107.478028232287, 107.478028232287, 107.478028232287, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 10.7055301785859, 0, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 0.914597467778369, 0.914597467778369, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.599195286063472, 0.599195286063472, 0.599195286063472, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0202635232425103, 2.60032456603692e-08, 0, 0, 0, 0, 0, 0.165626203544259, 0.165626203544259, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.503396799290371, 0.503396799290371, 0.503396799290371, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.984387422945875, 0.999999996451695), .Dim = c(52L, 3L)));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix16_22e37c9fc22368d3547f329400d396aa() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1), Deviance = c(12.2441566485997, 32.825622681839), AIC = c(73.9421143635373, 92.5235803967766)), .Names = c('Df', 'Deviance', 'AIC'), row.names = c('<none>', '- M.user'), class = c('anova', 'data.frame'), heading = c('Single term deletions', '\nModel:', 'cbind(X, M) ~ M.user')));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix17_96c98a5007bab1e693dacef46aeea1a0() {
+ assertEval("argv <- list(structure(list(V1 = 1L, V2 = structure(1L, .Label = c('A', 'D', 'E'), class = 'factor'), V3 = 6), .Names = c('V1', 'V2', 'V3'), class = 'data.frame', row.names = c(NA, -1L)));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix18_d27ad38b99b90b4a67f9813c51dc5f4c() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(10L, 0L)));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix19_9636acdda14f212058906537355d0593() {
+ assertEval("argv <- list(c(-1.12778377684043, -12820.0784261145, -21650982809.6744, -473300382255715392, -6.08456909882282e+25, -3.04622557026196e+34, -4.60125024792566e+43, -1.76183826972506e+53, -1.5069799345972e+63, -2.61556777274611e+73, -8.54170618068872e+83, -4.9383857330861e+94, -4.80716085942859e+105, -7.55412056676629e+116, -1.84898368353639e+128, -6.83535188151783e+139, -3.71562599613334e+151, -2.90089508183654e+163, -3.18582547396557e+175, -4.83110332887119e+187, -9.94902790498679e+199, -2.74100158340596e+212, -9.96611412047338e+224, -4.72336572671053e+237, -2.88514442494869e+250, -2.24780296109123e+263, -2.21240023126594e+276, -2.72671165723473e+289, -4.17369555651928e+302, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix2_24d3c1c015000b8897c2e601ecd8d5f1() {
+ assertEval("argv <- list(structure(list(surname = structure(2L, .Label = c('McNeil', 'R Core', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(NA_integer_, .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(NA_integer_, .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = 1L, class = 'data.frame'));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix20_bc38e9365b2ae9a4709c6c8a7d689541() {
+ assertEval("argv <- list(structure(c(-15.7116658409483, 0.267197739695975, -7.51681521806951, 7.8485143735526), .Dim = c(2L, 2L), .Dimnames = list(c('1', '3'), c('(Intercept)', 'M.userY'))));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix21_d782f152367a94a7a20c42835cce749d() {
+ assertEval("argv <- list(structure(c(NA, NA, NA, NA), .Dim = c(1L, 4L), .Dimnames = list('x', c('Estimate', 'Std. Error', 't value', 'Pr(>|t|)'))));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix3_4e3a7abe023a4cbbc487f85244861445() {
+ assertEval("argv <- list(structure(list(visible = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), from = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = 'registered S3method for summary', class = 'factor')), .Names = c('visible', 'from'), row.names = c('summary.aspell', 'summary.ecdf', 'summary.loess', 'summary.nls', 'summary.packageStatus', 'summary.PDF_Dictionary', 'summary.PDF_Stream', 'summary.ppr', 'summary.prcomp', 'summary.princomp', 'summary.stl', 'summary.tukeysmooth'), class = 'data.frame'));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix4_68d791e7effdd030a576f9b6f0536f40() {
+ assertEval("argv <- list(structure(c(0, 87, 82, 75, 63, 50, 43, 32, 35, 60, 54, 55, 36, 39, 0, 0, 69, 57, 57, 51, 45, 37, 46, 39, 36, 24, 32, 23, 25, 32, 0, 32, 59, 74, 75, 60, 71, 61, 71, 57, 71, 68, 79, 73, 76, 71, 67, 75, 79, 62, 63, 57, 60, 49, 48, 52, 57, 62, 61, 66, 71, 62, 61, 57, 72, 83, 71, 78, 79, 71, 62, 74, 76, 64, 62, 57, 80, 73, 69, 69, 71, 64, 69, 62, 63, 46, 56, 44, 44, 52, 38, 46, 36, 49, 35, 44, 59, 65, 65, 56, 66, 53, 61, 52, 51, 48, 54, 49, 49, 61, 0, 0, 68, 44, 40, 27, 28, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = 'ts'));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix5_0a3aee8b4b8d4092727d423a399203ea() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R'), frow = c(112L, 114L, 115L, 116L, 127L, 130L, 130L, 130L, 133L, 133L, 133L, 136L, 136L, 136L, 140L, 140L, 140L, 143L, 143L, 143L, 147L, 147L, 147L, 147L, 150L, 150L, 150L, 155L, 161L), lrow = c(156L, 114L, 115L, 116L, 127L, 130L, 130L, 130L, 133L, 133L, 133L, 136L, 136L, 136L, 140L, 140L, 140L, 143L, 143L, 143L, 147L, 147L, 147L, 147L, 150L, 150L, 150L, 155L, 178L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 29L), class = 'data.frame'));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix6_89f5dc0599b95df6edaf038fff686849() {
+ assertEval("argv <- list(structure(list(a_string = c('foo', 'bar'), a_bool = FALSE, a_struct = structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = 'foo'), .Names = c('a', 'b', 'c')), a_cell = structure(list(1, 'foo', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'bar'), .Dim = c(2L, 2L)), a_complex_scalar = 0+1i, a_list = list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'foo'), a_complex_matrix = structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), a_range = c(1, 2, 3, 4, 5), a_scalar = 1, a_complex_3_d_array = structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), a_3_d_array = structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), a_matrix = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), a_bool_matrix = structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))), .Names = c('a_string', 'a_bool', 'a_struct', 'a_cell', 'a_complex_scalar', 'a_list', 'a_complex_matrix', 'a_range', 'a_scalar', 'a_complex_3_d_array', 'a_3_d_array', 'a_matrix', 'a_bool_matrix')));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix7_737d368a60805525729ca3b618845161() {
+ assertEval("argv <- list(c(1.2e+100, 1.3e+100));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix8_e30de8ecc4d15b5ed1fa78ead2350a64() {
+ assertEval("argv <- list(structure(c(1.46658790096676e-05, -0.00015671726259936, -4.04552045434325e-05, 0.00255024941225984, -0.00162786181391528, 8.23090637551149e-05, -0.00015671726259936, 3.72287793770631e-05, 0.000886372801540247, -0.0567316142279179, 0.0349990628241952, -0.00175223081612341, -4.04552045434325e-05, 0.000886372801540247, 2.56091878967357e-05, -0.000729189497559513, -0.000975857105361189, 4.86109322531125e-05, 0.00255024941225984, -0.0567316142279179, -0.000729189497559513, 0.000230331183246113, 0.0612339887096517, -0.00297447704687248, -0.00162786181391528, 0.0349990628241952, -0.000975857105361189, 0.0612339887096517, -1.91064691608123e-05, -0.000246257006748074, 8.23090637551149e-05, -0.00175223081612341, 4.86109322531125e-05, -0.00297447704687248, -0.000246257006748074, 2.51870808007926e-05), .Dim = c(6L, 6L), .Dimnames = list(c('v1', 'v2', 'v3', 'v4', 'v5', 'v6'), c('v1', 'v2', 'v3', 'v4', 'v5', 'v6'))));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinismatrix_testismatrix9_c4e53120716a1262d9f7e126f929de29() {
+ assertEval("argv <- list(structure(list(Topic = c('myTst-package', 'foo-class', 'myTst', 'show,foo-method', 'show,foo-method', 'show-methods'), File = c('myTst-package', 'foo-class', 'myTst-package', 'foo-class', 'show-methods', 'show-methods')), .Names = c('Topic', 'File'), row.names = c(3L, 1L, 4L, 2L, 6L, 5L), class = 'data.frame'));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna1_2aa32c618593d36d7fa5423df4517180() {
+ assertEval("argv <- list(8.21977282218514e-09);is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna10_1408809efbe7a7f813755b6174502419() {
+ assertEval("argv <- list(structure(TRUE, .Names = NA_character_));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna11_c22576b815a1bb8a0cfbd38e7d01cf18() {
+ assertEval("argv <- list('•');is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna12_5edfe99c1a8b2e978985ca8e685798d7() {
+ assertEval("argv <- list(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, NA, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, NA, 16L, NA, NA, 17L, 18L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 19L, 20L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 21L, 22L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 23L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 24L, 25L, NA, NA, NA, NA, NA, 26L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 27L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 28L, NA, NA, NA, NA, NA, NA, NA));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna13_1a5ea677fcf7838e65232d60dc685a93() {
+ assertEval("argv <- list(structure(list(VAR1 = c(1, 2, 3, 4, 5), VAR3 = c(1, 1, 1, 1, NA)), .Names = c('VAR1', 'VAR3'), class = 'data.frame', row.names = c(NA, -5L)));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna14_fd2cc8d3a14401702d075cf77fa72977() {
+ assertEval("argv <- list(structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c('High', 'Low'), class = 'factor'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna15_08a187241e684f3f72938ec3f81b57ab() {
+ assertEval("argv <- list(structure('graphics', .Names = 'plot'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna16_4d6d28463f55138b166017be10b6602a() {
+ assertEval("argv <- list(structure(c(1.47191076131574, 0.586694550701453, NA, 0.258706725324317), .Names = c('(Intercept)', 'x1', 'x2', 'x3')));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna17_8c1746cfb2d6dd44e9e941f70b7fcaf0() {
+ assertEval("argv <- list(structure(0.0129709025545593, .Names = 'value'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna18_fae4bd537754ed46847cbe178553d5c4() {
+ assertEval("argv <- list(c(1.15623864987889e-07, 2.29156215117184e-06, 2.23566813947706e-05, 0.000143191143888661, 0.000677580461489631, 0.00252801907454942, 0.00775156037133752, 0.0201095764491411, 0.0451105149252681, 0.0890234210350955, 0.15678837112652, 0.249535722442692, 0.362988194603088, 0.487807940725587, 0.611969188999548, 0.724126192770213, 0.816469100858263, 0.885981556331846, 0.933947517503216, 0.964353470219262, 0.982092072679401, 0.991629921792979));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna19_f4d7f6f33831f931ea01d2bc102803bd() {
+ assertEval("argv <- list(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna2_1e158b5c0273c887f2af4bbabe23701c() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 0, 10, NA), .Dim = c(3L, 2L)));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna20_7e7410bf8b5627962fcc4d0622a5bd04() {
+ assertEval("argv <- list(structure(list(conc = c(NA, 1.4, NA, NA, NA, NA, NA, NA, 2.2, NA, NA, 0.6)), .Names = 'conc', row.names = 407:418, class = 'data.frame'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna21_f71736784acf6cd7e64ca317c379f565() {
+ assertEval("argv <- list(structure(c(-0.435358622483264, -0.0335050551134034, 0.133034650300067, -0.159998333048696, 0.195871393282558, 0.350272600548034, 0.39175188095922, 0.80136172049434, 0.278604939810076, 0.226807608071186, -0.705366153102363, -0.673376038650154, 1.0575405448001, -0.361896730525493, -0.183063001472974, 0.770224627641576, -0.723327517911943, 0.641508754101234, -0.497966152633253, -0.565883899194175, -0.163154615929682, -1.04605311744929, 0.345822472294285, -0.120642075306238, -0.310915191264717, -0.421459810417331, 0.127313193315093, 0.0460216192070582, -0.571263568938105, -0.255068194977355, 0.466680400648398, -0.577405253130228, 0.427189001707599, -0.117526978398191, 0.338157182237428, 0.106063414615583, 0.0652166343937516, 0.113976880905178, -0.508973211491926, -0.0281367896906678, 0.0255810420505139, -0.0895312259800421, 0.343273059276787, 0.25878029892501, 0.178005594248437, 0.616202813145647, -0.223306051799002, -0.822237650949987, 0.181243736532592, 1.03805050988759, -0.535064558180362, 0.629967292956912, -0.206091625685159, -0.0982523326578774, 0.414371639034748, -0.332128640110978, 0.0280866409684434, -0.53195331347224, -0.0381291521565174, -0.0522348719327905, 0.221019543981438, -0.306904771316101, 0.553064781030607, -0.15705513179628, 0.740342712486913, -0.307570821127478, -0.952143530102099, -0.691835269560791, -0.27190785111766, -0.196035414096589, -0.970405281846342, -0.177170015488179, -0.885843727603163, 0.429176556994819, 0.310459328495626, -0.258604904263182, -1.18516758379134, -0.690975294813695, 0.965849167652318, 0.44535708731974, -0.0846102375086248, -0.32082832908822, 0.528416539604261, 0.620184198607294, 0.317666232431379, 0.283097649168652, 0.223675435302281, -0.697584545802335, 1.0301502006605, 0.452533534739715, 0.264750609900989, 0.267980537616643, 0.0973596082099813, 0.161838610289358, 0.612946027273891, 0.816578471249094, -1.15340096289088, -1.01680545446605, 0.422976667855578, -0.23961110455947, 0.0316786188682291, -0.797164261874229, 0.184311996008136, 0.0876867376986658, 0.312240812855443, 0.0432826980205777, -0.00317515675173313, -0.296692321406956, 0.598755930788477, 0.298681977334167, 0.258864357137695, 0.126248580888692, 0.318393890044881, 0.316636862337678), .Tsp = c(1, 114, 1), class = 'ts'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna22_6c1b4ce8bdd54c4a96e9f37d9387551a() {
+ assertEval("argv <- list(c(-Inf, 2.17292368994844e-311, 4.34584737989688e-311, 8.69169475979376e-311, 1.73833895195875e-310, 3.4766779039175e-310, 6.953355807835e-310, 1.390671161567e-309, 2.781342323134e-309, 5.562684646268e-309, 1.1125369292536e-308, 2.2250738585072e-308, 4.4501477170144e-308, 8.90029543402881e-308, 1.78005908680576e-307, 2.2250738585072e-303, 2.2250738585072e-298, 1.79769313486232e+298, 1.79769313486232e+303, 2.24711641857789e+307, 4.49423283715579e+307, 8.98846567431158e+307, 1.79769313486232e+308, Inf, Inf, NaN, NA));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna23_41b3186fdac0bca647f163b1e86b8e2e() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 105L, wday = 6L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna24_0a2422ef574162a9ab887775f3975750() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna25_e0ae32baaa99ed736ec6689db23bd043() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 60L, wday = 5L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna26_2a434b0ada52407a9e835d2698ae4088() {
+ assertEval("argv <- list(structure(list(conc = c(NA, NA, NA, NA, NA, NA, NA, 1.4, NA, NA, NA, NA, NA, NA, NA, 3)), .Names = 'conc', row.names = c(NA, 16L), class = 'data.frame'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna27_d72c37b302b3b55042b674e1c541e194() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna28_84b0514d3ad0bdabdceba5bbfdd9ed99() {
+ assertEval("argv <- list(structure(list(conc = c(NA, 3.6)), .Names = 'conc', row.names = 419:420, class = 'data.frame'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna29_9d0f053684ba87cbe5eb248372acea93() {
+ assertEval("argv <- list(NULL);is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna3_3a76894b87301cd131b3ccc6beb02b8a() {
+ assertEval("argv <- list(structure(c(17L, 18L, 18L, 18L), .Dim = 4L, .Dimnames = structure(list(N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = 'N')));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna30_02682b27be50ef5425c8edd7a6bd73ea() {
+ assertEval("argv <- list(structure(list(sec = NA_real_, min = NA_integer_, hour = NA_integer_, mday = NA_integer_, mon = NA_integer_, year = NA_integer_, wday = NA_integer_, yday = NA_integer_, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna31_fe88c79430b0b7872af42d872546cd8d() {
+ assertEval("argv <- list(structure(c('R (>= 2.10.0), methods, DBI (>= 0.2-5)', 'methods, DBI (>= 0.2-3)', NA), .Names = c('Depends', 'Imports', 'LinkingTo')));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna32_20c3552db16069719f196255548a41c8() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 12L, mon = 2L, year = 112L, wday = 1L, yday = 71L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna33_3368e9fdee86508475174b85f9fcb4fc() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(8L, 5L)));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna34_e26dee73698813118118fe9b6a849231() {
+ assertEval("argv <- list(structure(c('Min. : 1.00 ', '1st Qu.: 9.00 ', 'Median :18.00 ', 'Mean :14.74 ', '3rd Qu.:20.00 ', 'Max. :23.00 ', NA, 'Min. :5.000 ', '1st Qu.:5.300 ', 'Median :6.100 ', 'Mean :6.084 ', '3rd Qu.:6.600 ', 'Max. :7.700 ', NA, '117 : 5 ', '1028 : 4 ', '113 : 4 ', '112 : 3 ', '135 : 3 ', '(Other):147 ', 'NA's : 16 ', 'Min. : 0.50 ', '1st Qu.: 11.32 ', 'Median : 23.40 ', 'Mean : 45.60 ', '3rd Qu.: 47.55 ', 'Max. :370.00 ', NA, 'Min. :0.00300 ', '1st Qu.:0.04425 ', 'Median :0.11300 ', 'Mean :0.15422 ', '3rd Qu.:0.21925 ', 'Max. :0.81000 ', NA), .Dim = c(7L, 5L), .Dimnames = list(c('', '', '', '', '', '', ''), c(' event', ' mag', ' station', ' dist', ' accel')), class = 'table'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna35_3a958646dfd6addce10492f5e23b6947() {
+ assertEval("argv <- list(NA_complex_);is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna36_6f95a351890ed461e95ef71d6360b137() {
+ assertEval("argv <- list(complex(0));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna37_1dee0e5e27f42092b55314e66ddc2e5c() {
+ assertEval("argv <- list(structure(list(sec = 40, min = 24L, hour = 11L, mday = 15L, mon = 11L, year = 100L, wday = 5L, yday = 349L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt')));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna38_2357f4b62dba8861119a17a95e31748f() {
+ assertEval("argv <- list(structure(c(2L, 6L, 2L, 5L, 4L, 2L, 5L, 4L), .Dim = 8L, .Dimnames = structure(list(statef = c('act', 'nsw', 'nt', 'qld', 'sa', 'tas', 'vic', 'wa')), .Names = 'statef'), class = 'table'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna39_9f8a962233b053dc539d9519852d5b05() {
+ assertEval("argv <- list(structure(c(2, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 0), .Dim = 3:4, .Dimnames = structure(list(x1 = c('a', 'b', 'c'), x2 = c('a', 'b', 'c', NA)), .Names = c('x1', 'x2')), class = c('xtabs', 'table')));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna4_e67de1263aa17ec0a862b5061ae8201b() {
+ assertEval("argv <- list(structure(0:100, .Tsp = c(1, 101, 1), class = 'ts'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna40_eaabd3c5490543c81a8811dc06da1d7d() {
+ assertEval("argv <- list(structure(list(1L, 3L), class = structure('L', package = '.GlobalEnv')));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna41_ed8ed62d5491439bc1a2cfadb679d9f3() {
+ assertEval("argv <- list(c('«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè', 'éè'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna42_701aa58042a8a186a089ba27db950974() {
+ assertEval("argv <- list(c(-Inf, -Inf, -Inf, 0, 1, 2, Inf, Inf));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna43_086ff06b1c65751ad82bab53679fdedf() {
+ assertEval("argv <- list(structure(c(-3.001e+155, -1.067e+107, -1.976e+62, -9.961e+152, -2.059e+23, 0.5104), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), class = c('summaryDefault', 'table')));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna44_9f4ecab2273d91a954b8f023ab2c59f2() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 70L, wday = 4L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna45_a6a4c956b4218eaa37939fac1a5ec3d9() {
+ assertEval("argv <- list(119:120);is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna46_ef68fa67dfb668e50afe626f1ad8848e() {
+ assertEval("argv <- list(integer(0));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna6_1c50315d21da008e68803040ab060aad() {
+ assertEval("argv <- list(list(list(1)));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna7_384496152a4a590ca86a7655b5c6aca2() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 9L, mon = 9L, year = 103L, wday = 4L, yday = 281L, isdst = 1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt')));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisna_testisna8_f36aa043bdbd7d62cb9a7b6fbdff82cf() {
+ assertEval("argv <- list(structure(c(23L, 24L, 47L, 48L, 71L, 72L, 95L, 96L, 119L, 120L), .Dim = c(2L, 5L), .Dimnames = list(NULL, c('V5', 'V6', 'V7', 'V8', 'V9'))));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnan_testisnan1_f1f605a8362425117d7d0f088f6b419d() {
+ assertEval("argv <- list(NA);is.nan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnan_testisnan10_ac1aae3fc8a6bffc4887ffa94dba3a5d() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1), .Dim = 1:3));is.nan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnan_testisnan2_590632285048b0eb0ad330c5d0abf1a6() {
+ assertEval("argv <- list(structure(1:7, .Names = c('a1', 'a2', 'a3', 'a4', 'a5', 'a6', 'a7')));is.nan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnan_testisnan3_f4ed9ecd1bdabc11bbaa46c6fe47cac0() {
+ assertEval("argv <- list(1:3);is.nan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnan_testisnan4_da2b4392fba4e3a55021d23db0c7a264() {
+ assertEval("argv <- list(structure(NaN, .Dim = c(1L, 1L)));is.nan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnan_testisnan5_e40af0b6987cdff5f008d12ff177b849() {
+ assertEval("argv <- list(3.14159265358979);is.nan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnan_testisnan6_259e9ea42382ad8e6e3ebb8978d2ec67() {
+ assertEval("argv <- list(NULL);is.nan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnan_testisnan7_09d8b88da3658280c474240252fce4e6() {
+ assertEval("argv <- list(structure(1:3, .Dim = c(3L, 1L)));is.nan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnan_testisnan9_2b940567bf3f4e734a1a778e1edea354() {
+ assertEval("argv <- list(c(-Inf, 2.17292368994844e-311, 4.34584737989688e-311, 8.69169475979376e-311, 1.73833895195875e-310, 3.4766779039175e-310, 6.953355807835e-310, 1.390671161567e-309, 2.781342323134e-309, 5.562684646268e-309, 1.1125369292536e-308, 2.2250738585072e-308, 4.4501477170144e-308, 8.90029543402881e-308, 1.78005908680576e-307, 2.2250738585072e-303, 2.2250738585072e-298, 1.79769313486232e+298, 1.79769313486232e+303, 2.24711641857789e+307, 4.49423283715579e+307, 8.98846567431158e+307, 1.79769313486232e+308, Inf, Inf, NaN, NA));is.nan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnull_testisnull1_f744bc6a72e13cbb6c90528cf54d92fc() {
+ assertEval("argv <- list(c('a', 'b', 'c'));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnull_testisnull10_adab7fa7ade3f0945cfc8d6b25e36308() {
+ assertEval("argv <- list(structure(list(coefficients = numeric(0), residuals = structure(c(-68.7898369431611, -71.7713382904347, -44.0000000000001, -56.5455568546283, -29.303772984227), .Dim = c(5L, 1L), .Dimnames = list(c('2', '3', '4', '5', '6'), NULL)), fitted.values = structure(c(0, 0, 0, 0, 0), .Dim = c(5L, 1L), .Dimnames = list(c('2', '3', '4', '5', '6'), NULL)), weights = NULL, rank = 0L, df.residual = 5L), .Names = c('coefficients', 'residuals', 'fitted.values', 'weights', 'rank', 'df.residual'), class = c('aov', 'lm')));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnull_testisnull11_7323eeeb4b6fb829f9d8f15a0a29bcfe() {
+ assertEval("argv <- list(complex(0));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnull_testisnull12_76214e6ba4f965107bcf63723d87fa95() {
+ assertEval("argv <- list(1.74126257032961e-18);is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnull_testisnull13_00bd79a89201e1b4a022b76dd4ba89a5() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnull_testisnull2_b57bd3ebab7b4ffdddfad6d413687b43() {
+ assertEval("argv <- list(structure(c(NA, NA, 159.125, 204, 221.25, 245.125, 319.75, 451.5, 561.125, 619.25, 615.625, 548, 462.125, 381.125, 316.625, 264, 228.375, 210.75, 188.375, 199, 207.125, 191, 166.875, 72, -9.25, -33.125, -36.75, 36.25, 103, 131.625, NA, NA), .Tsp = c(1951, 1958.75, 4), class = 'ts'));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnull_testisnull3_2daa94d7c01db7581c78bed9ff478bbc() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('L', 'M', 'H'), class = 'factor'));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnull_testisnull4_db5d3708e3d15036ca260ac8e314afe2() {
+ assertEval("argv <- list(c('(2,5.5]', '(5.5,10]', NA));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnull_testisnull5_c5424bb2bddbdf933b516e9e69ac081b() {
+ assertEval("argv <- list(structure(list(z = c(-2.71928906935559, -2.42170276502517, -2.09964379178171, -1.74953243478614, -1.36765437050161, -0.950481896729501, -0.49514368442691, 0, 0.534774072422106, 1.1067130528647, 1.71078417306203, 2.33938293418822, 2.98268239609615), par.vals = structure(c(0.707463571249756, 0.714694094477037, 0.725412821685713, 0.74111612512182, 0.763750498997247, 0.795678221483334, 0.839503022768249, 0.897728639347183, 0.972289000300049, 1.06404105741634, 1.1722925771844, 1.29437141627989, 1.42522018859931, -3.11497037357416, -3.12714840246737, -3.14532049441438, -3.17220876767473, -3.21154655520113, -3.26827705075488, -3.34869944608425, -3.46054428079529, -3.61294451442018, -3.81614134368036, -4.08060875057211, -4.41549521607872, -4.82702626542922, -0.0255577133668773, -0.0384397882414428, -0.0575047563177536, -0.085367554260897, -0.125387593962273, -0.181561305237101, -0.258149413255891, -0.359008117508679, -0.486728760637899, -0.641785962540215, -0.821841695092364, -1.02123122113516, -1.23065013245083, 7.95100998228548, 7.54634587182367, 7.14890399737901, 6.76196968783309, 6.39005226899545, 6.03912521056563, 5.71679838524513, 5.43240185128028, 5.19696909896364, 5.02301800418124, 4.92391121830517, 4.91279665045699, 5.00177553632184, -9.53200922191114, -8.69335766510962, -7.8547061083081, -7.01605455150657, -6.17740299470505, -5.33875143790352, -4.500099881102, -3.66144832430047, -2.82279676749895, -1.98414521069743, -1.1454936538959, -0.306842097094378, 0.531809459707146), .Dim = c(13L, 5L), .Dimnames = list( NULL, c('(Intercept)', 'PS', 'AI', 'VS', 'PS:AI')))), .Names = c('z', 'par.vals'), row.names = c(NA, 13L), class = 'data.frame'));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnull_testisnull6_61f56aaf144548bd4908fa369ebdba7f() {
+ assertEval("argv <- list(structure(c(-4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96), .Tsp = c(1, 101, 1), class = 'ts'));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnull_testisnull7_2a4c14addaf82d8a13169854a8c1792a() {
+ assertEval("argv <- list(numeric(0));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnull_testisnull8_45a422014a6e6771472228993bdf8a3a() {
+ assertEval("argv <- list(structure(c(2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Tsp = c(1920.5, 1921.25, 12), class = 'ts'));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric1_c9bebb9517f1ba58fe9f59d6e3c53c1c() {
+ assertEval("argv <- list(structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c('w', 'w2'))));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric10_4c65759dda183eb15818bcdae176748e() {
+ assertEval("argv <- list(structure(c(1L, 2L, NA, 3L), .Label = c('aa', 'bb', 'dd')));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric11_864ee53c6963c6fa1ab6f54668ff8bbd() {
+ assertEval("argv <- list(structure(c(1120, 1160, 963, 1210, 1160, 1160, 813, 1230, 1370, 1140, 995, 935, 1110, 994, 1020, 960, 1180, 799, 958, 1140, 1100, 1210, 1150, 1250, 1260, 1220, 1030, 1100, 774, 840, 874, 694, 940, 833, 701, 916, 692, 1020, 1050, 969, 831, 726, 456, 824, 702, 1120, 1100, 832, 764, 821, 768, 845, 864, 862, 698, 845, 744, 796, 1040, 759, 781, 865, 845, 944, 984, 897, 822, 1010, 771, 676, 649, 846, 812, 742, 801, 1040, 860, 874, 848, 890, 744, 749, 838, 1050, 918, 986, 797, 923, 975, 815, 1020, 906, 901, 1170, 912, 746, 919, 718, 714, 740), .Tsp = c(1871, 1970, 1), class = 'ts'));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric12_b15bd89dead6fc01d2da7cbf75ca5caf() {
+ assertEval("argv <- list(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric13_868f8d2fea575e42581615cece943f06() {
+ assertEval("argv <- list(structure(c(39.7, 27.7, 43.5, 89.7, 70.2, 63.5, 36.5, 15.2, 35.3, 45.2, 1.2, 49.5, 63.1, 34, 17, 17.6, 67.8, 45.1, 50.9, 64.9, 59.8, 73, 37.6, 60.7, 60.8, 69.3, 71.2, 64.5, 75.9, 7.7, 72.6, 18.7, 78.2, 55.1, 58.1, 62, 53.3, 85.9, 67.5, 16.7, 46.6, 84.9, 19.4, 38.4, 5, 22, 17, 5, 16, 6, 12, 31, 9, 16, 37, 15, 13, 17, 15, 35, 14, 6, 22, 7, 22, 19, 15, 19, 16, 22, 12, 14, 9, 29, 18, 25, 12, 14, 14, 21, 12, 3, 14, 22, 16, 7, 26, 26, 5, 29, 15, 2, 7, 3, 7, 20, 7, 13, 53, 8, 13, 8, 12, 32, 8, 9, 12, 3, 10, 9, 7, 12, 10, 5, 1, 6, 9, 11, 2, 7, 6, 3, 8, 12, 7, 2, 7, 13, 29, 6, 28, 12, 93.4, 58.33, 5.16, 100, 92.85, 2.56, 33.77, 2.15, 90.57, 91.38, 42.34, 6.1, 96.83, 3.3, 9.96, 16.92, 97.16, 84.84, 15.14, 98.22, 5.23, 2.84, 4.97, 4.43, 7.72, 2.82, 2.4, 98.61, 99.06, 13.79, 24.2, 8.65, 98.96, 4.52, 5.23, 8.52, 97.67, 99.71, 2.27, 11.22, 50.43, 99.68, 12.11, 5.62, 20.2, 19.3, 20.6, 18.3, 23.6, 18, 20.3, 10.8, 26.6, 24.4, 18, 22.5, 18.1, 20, 22.2, 23, 24.9, 22.2, 16.7, 20.2, 18, 20, 20, 22.7, 16.3, 18.7, 21, 24.5, 17.8, 20.5, 21.2, 19.5, 19.4, 22.4, 23.8, 16.5, 21, 15.1, 19.1, 18.9, 18.2, 19.8, 20.2, 20.3), .Dim = c(44L, 5L), .Dimnames = list(c('Franches-Mnt', 'Rive Gauche', 'Neuveville', 'Herens', 'Broye', 'Paysd'enhaut', 'Moutier', 'La Vallee', 'Porrentruy', 'Sarine', 'V. De Geneve', 'Yverdon', 'Sion', 'Grandson', 'Courtelary', 'Neuchatel', 'Glane', 'Delemont', 'Nyone', 'Monthey', 'Morges', 'Lavaux', 'Val de Ruz', 'Avenches', 'Rolle', 'Cossonay', 'Oron', 'Veveyse', 'St Maurice', 'La Chauxdfnd', 'Echallens', 'ValdeTravers', 'Martigwy', 'Moudon', 'Payerne', 'Aigle', 'Gruyere', 'Conthey', 'Aubonne', 'Le Locle', 'Rive Droite', 'Entremont', 'Lausanne', 'Boudry'), c('Agriculture', 'Examination', 'Education', 'Catholic', 'Infant.Mortality'))));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric14_0d4c589b64aa0937df11da7a713fe795() {
+ assertEval("argv <- list(structure(c(1386439154.20645, 1386469154.20645, 1386499154.20645, 1386529154.20645, 1386559154.20645, 1386589154.20645, 1386619154.20645, 1386649154.20645, 1386679154.20645, 1386709154.20645, 1386739154.20645, 1386769154.20645, 1386799154.20645, 1386829154.20645, 1386859154.20645, 1386889154.20645, 1386919154.20645, 1386949154.20645, 1386979154.20645, 1387009154.20645, 1387039154.20645, 1387069154.20645, 1387099154.20645, 1387129154.20645, 1387159154.20645, 1387189154.20645, 1387219154.20645, 1387249154.20645, 1387279154.20645, 1387309154.20645, 1387339154.20645, 1387369154.20645, 1387399154.20645, 1387429154.20645), class = c('POSIXct', 'POSIXt')));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric15_8e30cfc20c7c6c30b1bfbb3324622541() {
+ assertEval("argv <- list(c('2001-01-01', NA, NA, '2004-10-26'));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric16_7e27987a8f5132eb5f793f77133bbb00() {
+ assertEval("argv <- list(c(1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374947, 0.707106781186547, 0.587785252292473, 0.453990499739547, 0.309016994374947, 0.156434465040231, -1.83697019872103e-16, -0.156434465040231, -0.309016994374948, -0.453990499739547, -0.587785252292473, -0.707106781186548, -0.809016994374948, -0.891006524188368, -0.951056516295154, -0.987688340595138, -1, -0.987688340595138, -0.951056516295154, -0.891006524188368, -0.809016994374947, -0.707106781186547, -0.587785252292473, -0.453990499739547, -0.309016994374947, -0.156434465040231, 6.12323399573677e-17, 0.156434465040231, 0.309016994374947, 0.453990499739547, 0.587785252292473, 0.707106781186548, 0.809016994374947, 0.891006524188368, 0.951056516295154, 0.987688340595138, 1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374947, 0.707106781186548, 0.587785252292473, 0.453990499739547, 0.309016994374947, 0.156434465040231, 6.12323399573677e-17, -0.15643446504023, -0.309016994374947, -0.453990499739548, -0.587785252292473, -0.707106781186547, -0.809016994374947, -0.891006524188368, -0.951056516295154, -0.987688340595138, -1, -0.987688340595138, -0.951056516295154, -0.891006524188368, -0.809016994374948, -0.707106781186547, -0.587785252292473, -0.453990499739548, -0.309016994374948, -0.15643446504023, -1.83697019872103e-16, 0.15643446504023, 0.309016994374947, 0.453990499739547, 0.587785252292473, 0.707106781186547, 0.809016994374947, 0.891006524188368, 0.951056516295154, 0.987688340595138, 1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374948, 0.707106781186547, 0.587785252292473, 0.453990499739548, 0.309016994374948, 0.15643446504023, 3.06161699786838e-16, -0.15643446504023, -0.309016994374947, -0.453990499739547, -0.587785252292473, -0.707106781186547, -0.809016994374947, -0.891006524188368, -0.951056516295153, -0.987688340595138, -1));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric17_7afbabf760efba4000ddf7a1a596e381() {
+ assertEval("argv <- list(structure(c(0.696706709347165, 0.362357754476673, -0.0291995223012888, 0.696706709347165, 0.696706709347165, -0.0291995223012888, 0.696706709347165, -0.0291995223012888, 0.362357754476673, 0.696706709347165, -0.0291995223012888, 0.362357754476673, -0.416146836547142, 0.362357754476673, 0.696706709347165, 0.696706709347165, 0.362357754476673, -0.416146836547142, -0.0291995223012888, -0.416146836547142, 0.696706709347165, -0.416146836547142, 0.362357754476673, -0.0291995223012888, 0.717356090899523, 0.932039085967226, 0.999573603041505, 0.717356090899523, 0.717356090899523, 0.999573603041505, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.909297426825682, 0.932039085967226, 0.717356090899523, 0.717356090899523, 0.932039085967226, 0.909297426825682, 0.999573603041505, 0.909297426825682, 0.717356090899523, 0.909297426825682, 0.932039085967226, 0.999573603041505, -0.0291995223012888, -0.737393715541246, -0.998294775794753, -0.0291995223012888, -0.0291995223012888, -0.998294775794753, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.653643620863612, -0.737393715541246, -0.0291995223012888, -0.0291995223012888, -0.737393715541246, -0.653643620863612, -0.998294775794753, -0.653643620863612, -0.0291995223012888, -0.653643620863612, -0.737393715541246, -0.998294775794753, 0.999573603041505, 0.67546318055115, -0.0583741434275801, 0.999573603041505, 0.999573603041505, -0.0583741434275801, 0.999573603041505, -0.0583741434275801, 0.67546318055115, 0.999573603041505, -0.0583741434275801, 0.67546318055115, -0.756802495307928, 0.67546318055115, 0.999573603041505, 0.999573603041505, 0.67546318055115, -0.756802495307928, -0.0583741434275801, -0.756802495307928, 0.999573603041505, -0.756802495307928, 0.67546318055115, -0.0583741434275801), .Dim = c(24L, 4L), .Dimnames = list(NULL, c('A', 'B', 'C', 'D'))));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric18_adbb5a811c1903ab63dcc27f8b509514() {
+ assertEval("argv <- list(c(1, 1, NA, 2));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric19_9ea96d9d1c35f3abf34aec535c5a403b() {
+ assertEval("argv <- list(structure(c(79.5323303457107, 6, 86.1989970123773, 6, 69.7732394366197, 5, 98.0323303457106, 6, 108.032330345711, 6, 89.1989970123773, 6, 114.198997012377, 6, 116.698997012377, 6, 110.365663679044, 6, 124.365663679044, 6, 126.365663679044, 6, 118.032330345711, 6), .Dim = c(6L, 4L), .Dimnames = structure(list(V = c('Golden.rain', 'rep ', 'Marvellous ', 'rep ', 'Victory ', 'rep '), N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = c('V', 'N'))));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric2_65df4b81dfebff773417ef0966f2eb24() {
+ assertEval("argv <- list(structure(c(12784, 12874, 12965, 13057, 13149, 13239, 13330, 13422, 13514, 13604, 13695, 13787, 13879, 13970, 14061, 14153, 14245, 14335), class = 'Date'));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric20_ea66a7a4749f3346e17ec7e8b91e3f85() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(3L, 0L)));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric21_6162f05d2d6b02de4d99d1614956adba() {
+ assertEval("argv <- list(structure(16146, class = 'Date'));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric22_345046d6fe4f843f8dfb82f255892f67() {
+ assertEval("argv <- list(structure(c(-3.001e+155, -1.067e+107, -1.976e+62, -9.961e+152, -2.059e+23, 0.5104), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), class = c('summaryDefault', 'table')));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric3_0231f35ea9cec7a1da59c388e4d0eec3() {
+ assertEval("argv <- list(c(1.4615016373309e+48, 5.70899077082384e+45, 2.23007451985306e+43, 8.71122859317602e+40, 3.40282366920938e+38, 1.32922799578492e+36, 5.19229685853483e+33, 2.02824096036517e+31, 7.92281625142643e+28, 3.09485009821345e+26, 1.20892581961463e+24, 4.72236648286965e+21, 18446744073709551616, 72057594037927936, 281474976710656, 1099511627776, 4294967296, 16777216, 65536, 256, 1, 0.00390625, 1.52587890625e-05, 5.96046447753906e-08, 2.3283064365387e-10, 9.09494701772928e-13, 3.5527136788005e-15, 1.38777878078145e-17, 5.42101086242752e-20, 2.11758236813575e-22, 8.27180612553028e-25));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric4_287931cac0e03e61e2906b34212fa7d5() {
+ assertEval("argv <- list(integer(0));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric5_03ac46ff8d646dee6345a1332d60b364() {
+ assertEval("argv <- list(c(16.4, 11.4, 7.8, 14, 10.9, 16.8, 16.6, 5.9, 21));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric6_03023678d0aad7db3442ef3f2da45525() {
+ assertEval("argv <- list(c(0, 0, 0, 1, 0, 0, 0, 0, 1, 0, NA, NA, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, NA, 1, 0, 1, 0, NA, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, NA, 0, 1, 0, 0, 0, 0, NA, 1, 1));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric7_43490d397bf4ba47c8eeadd07586add6() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric8_fceea99a30ce4a375543349c0ed02a20() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('1', '2', '3', '4'), class = 'factor'));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisnumeric_testisnumeric9_e6a39de8ab1be1e8b1e103a2f13b465c() {
+ assertEval("argv <- list(structure(list(a_string = c('foo', 'bar'), a_bool = FALSE, a_struct = structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = 'foo'), .Names = c('a', 'b', 'c')), a_cell = structure(list(1, 'foo', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'bar'), .Dim = c(2L, 2L)), a_complex_scalar = 0+1i, a_list = list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'foo'), a_complex_matrix = structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), a_range = c(1, 2, 3, 4, 5), a_scalar = 1, a_complex_3_d_array = structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), a_3_d_array = structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), a_matrix = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), a_bool_matrix = structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))), .Names = c('a_string', 'a_bool', 'a_struct', 'a_cell', 'a_complex_scalar', 'a_list', 'a_complex_matrix', 'a_range', 'a_scalar', 'a_complex_3_d_array', 'a_3_d_array', 'a_matrix', 'a_bool_matrix')));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisobject_testisobject1_7b2e1f9a0af7347865cb15839cffe013() {
+ assertEval("argv <- list(c(45.0314849918875, 57.5361690778799, 61.7043971065441, 61.7043971065441, 128.39604556517, 45.0314849918875, 36.6950289345592, 45.0314849918875, 228.43351825311, 36.6950289345592, 74.2090811925365, 45.0314849918875, 32.5268009058951, 78.3773092212007, 111.723133450514, 20.0221168199027, 32.5268009058951, 40.8632569632234, 20.0221168199027, 24.1903448485668, 45.0314849918875, 11.6856607625744, 20.0221168199027, 28.3585728772309, 45.0314849918875, 36.6950289345592, 49.1997130205517, 36.6950289345592, 78.3773092212007, 45.0314849918875, 145.068957679827, 32.5268009058951, 161.741869794484));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisobject_testisobject10_93eb1f1bf7a7f45fa1f288334dccd3fb() {
+ assertEval("argv <- list(structure(c(-0.562441486309934, -0.588967592535822, 0.0277608937997097, 0.568074124752969, 3.89980510825846, -0.428174866497729, -0.343990813420242, -0.260996370058754, -2.31774610938305, 0.314764947225063, -0.455124436264437, -0.0444006414474544, -0.27748974692001, -0.303134023269405, -0.670168347915028, 2.92643313367, -0.749546667806845, -0.410394401887929, -0.203261263063707, 0.1847365997012, 0.128559671155683, 0.313558179929332, -0.0668425264405297, -0.106427678524531, -0.523747793519006, -0.402585404761851, 0.0642079595716389, -0.779859286629166, 0.356484381211739, -0.625053119472271, 1.31547628490512, -0.21959878152752, -0.102402088986461), .Names = c('Craig Dunain', 'Ben Rha', 'Ben Lomond', 'Goatfell', 'Bens of Jura', 'Cairnpapple', 'Scolty', 'Traprain', 'Lairig Ghru', 'Dollar', 'Lomonds', 'Cairn Table', 'Eildon Two', 'Cairngorm', 'Seven Hills', 'Knock Hill', 'Black Hill', 'Creag Beag', 'Kildcon Hill', 'Meall Ant-Suidhe', 'Half Ben Nevis', 'Cow Hill', 'N Berwick Law', 'Creag Dubh', 'Burnswark', 'Largo Law', 'Criffel', 'Acmony', 'Ben Nevis', 'Knockfarrel', 'Two Breweries', 'Cockleroi', 'Moffat Chase')));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisobject_testisobject11_697e4aa08b9944afd759eb59fda6da07() {
+ assertEval("argv <- list(integer(0));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisobject_testisobject12_c7139499ed1fd281646ab5c6156eeade() {
+ assertEval("argv <- list(c(25, 50, 100, 250, 500, 1e+05));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisobject_testisobject13_4b455f302ebbbf08518ce4d640d65c8c() {
+ assertEval("argv <- list(numeric(0));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisobject_testisobject14_d1b7dc01aafa7546ec13f0a7635bb61d() {
+ assertEval("argv <- list(c(TRUE, FALSE));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisobject_testisobject2_316c5973813fab05cf7d4542462d61c1() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L), .Label = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59'), class = 'factor'));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisobject_testisobject3_e38080aaa14c55e03aa5d665b51cd9f8() {
+ assertEval("argv <- list(c(-2.97525100835805, -2.82075793382799, -2.66593061478436, -2.51078653265898, -2.35534314690423, -2.19961777085284, -2.04362765822923, -1.88739011884942, -1.73092311663886, -1.57424503752904, -1.41737428587374, -1.26032952797003, -1.10312969205829, -0.945793720579289, -0.788340724666015, -0.630790076924443, -0.473161172617641, -0.315473462875692, -0.157746535777026, -4.9960036108132e-16, 0.157746535777027, 0.315473462875696, 0.473161172617647, 0.630790076924451, 0.788340724666025, 0.9457937205793, 1.1031296920583, 1.26032952797003, 1.41737428587374, 1.57424503752905, 1.73092311663887, 1.88739011884943, 2.04362765822924, 2.19961777085286, 2.35534314690424, 2.510786532659, 2.66593061478437, 2.82075793382801, 2.97525100835807));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisobject_testisobject4_54283110b11dae933285b296d1f678bd() {
+ assertEval("argv <- list(structure(c(-0.266501885293689, -3.8931863588937, -0.272681427089914, 0.685830427280619, 0.146697567632144, -0.178509228122189, -0.827954133483467, -0.00847153748452917, -0.439077730128206, -0.100627762490786, 1.90697806298419, 0.534191446603769, 0.118116488305486, 0.266107216595585, 1.09677961111435, 0.294604712451767, 1.26527267402907, -1.37468346842381, -0.501152044022612, 0.277514706049866, 0.080458897112638, 0.0436443543043109, -0.480973816036986, 1.25647294144768, 0.371150285558408), .Dim = 25L, .Dimnames = list( c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisobject_testisobject5_0f210d5873969d46ac95cdf46815b5e1() {
+ assertEval("argv <- list(c(0.3814, 1.0281, 0.3814, 0.1202, -0.3385, 0.6757, 0.6757, -0.5422, -1.0914, 1.0281, -0.3385, 0.3814, 0.3814, -1.0914, -0.7326, 0.6757, 1.5128, 0.6757, 1.0281, 0.6757, 1.0281, -1.0914, -0.7326, 0.1202, -0.3385, 0.3814, 0.6757, 1.5128, 0.1202, -0.7326, 1.5128, -1.0914, 0.6757, 2.4608, 0.3814, 0.6757, -0.8176, 1.0281, 0.1202, 2.4404, -0.5422, 0.1202, -0.1182, 0.3814, -0.5422, -0.5422, 0.6757, -0.3385, -1.6508, 0.6757, -0.7326, -0.1182, -1.0914, 0.3814, 0.3814, -0.1182, 0.3814, 0.1202, 0.6757, 0.6757, 0.1202, -0.5422, 1.5128, 0.3814, -1.2692, 1.0281, 0.6757, 0.1202, -0.5422, 0.3814, -0.3385, 1.0281, -0.1182, 0.1202, 1.5128, 2.4608, 0.6757, -1.0914, -0.9144, -0.3385, 0.1202, 0.1202, 0.1202, 0.3814, -0.13, -0.5422, 0.1202, -0.1182, 0.3814, 1.0281, 0.6757, 1.0281, -1.2692, 0.1202, 0.3814, 1.5128, -0.1182, 0.3814, 1.0281, 0.3814, 0.1202, -0.3385, 0.6757, 0.6757, -0.5422, -1.0914, 1.0281, -0.3385, 0.3814, 0.3814, -1.0914, -0.7326, 0.6757, 1.5128, 0.6757, 1.0281, 0.6757, 1.0281, -1.0914, -0.7326, 0.1202, -0.3385, 0.3814, 0.6757, 1.5128, 0.1202, -0.7326, 1.5128, -1.0914, 0.6757, 2.4608, 0.3814, 0.6757, -0.8176, 1.0281, 0.1202, 2.4404, -0.5422, 0.1202, -0.1182, 0.3814, -0.5422, -0.5422, 0.6757, -0.3385, -1.6508, 0.6757, -0.7326, -0.1182, -1.0914, 0.3814, 0.3814, -0.1182, 0.3814, 0.1202, 0.6757, 0.6757, 0.1202, -0.5422, 1.5128, 0.3814, -1.2692, 1.0281, 0.6757, 0.1202, -0.5422, 0.3814, -0.3385, 1.0281, -0.1182, 0.1202, 1.5128, 2.4608, 0.6757, -1.0914, -0.9144, -0.3385, 0.1202, 0.1202, 0.1202, 0.3814, -0.13, -0.5422, 0.1202, -0.1182, 0.3814, 1.0281, 0.6757, 1.0281, -1.2692, 0.1202, 0.3814, 1.5128, -0.1182, 0.3814, 1.0281, 0.3814, 0.1202, -0.3385, 0.6757, 0.6757, -0.5422, -1.0914, 1.0281, -0.3385, 0.3814, 0.3814, -1.0914, -0.7326, 0.6757, 1.5128, 0.6757, 1.0281, 0.6757, 1.0281, -1.0914, -0.7326, 0.1202, -0.3385, 0.3814, 0.6757, 1.5128, 0.1202, -0.7326, 1.5128, -1.0914, 0.6757, 2.4608, 0.3814, 0.6757, -0.8176, 1.0281, 0.1202, 2.4404, -0.5422, 0.1202, -0.1182, 0.3814, -0.5422, -0.5422, 0.6757, -0.3385, -1.6508, 0.6757, -0.7326, -0.1182, -1.0914, 0.3814, 0.3814, -0.1182, 0.3814, 0.1202, 0.6757, 0.6757, 0.1202, -0.5422, 1.5128, 0.3814, -1.2692, 1.0281, 0.6757, 0.1202, -0.5422, 0.3814, -0.3385, 1.0281, -0.1182, 0.1202, 1.5128, 2.4608, 0.6757, -1.0914, -0.9144, -0.3385, 0.1202, 0.1202, 0.1202, 0.3814, -0.13, -0.5422, 0.1202, -0.1182, 0.3814, 1.0281, 0.6757, 1.0281, -1.2692, 0.1202, 0.3814, 1.5128, -0.1182, NA, NA, NA));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisobject_testisobject6_1acdf7cf12f48ea1395384dd0aeb1de0() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisobject_testisobject7_24c904d3f839ac0e23de1968bd5811ed() {
+ assertEval("argv <- list(structure(c(-0.00544194018731062, -0.00542949133552226, -1.20718999105839e-05, -0.00505497198006266, -0.827687885653788, -0.00315385274195005, -0.0023164952286401, -0.00117183915211372, -2.09167441982205, -0.00193959227691399, -0.00358084102808485, -3.39138861812986e-05, -0.00163051710052444, -0.00168735925488057, -0.0167253073891896, -0.237074502262169, -0.0118967636015583, -0.00307437031103621, -0.00114371252369823, -0.000860763872820255, -0.00028432076263802, -0.00329557354736053, -0.000123683950933913, -0.00026114238659798, -0.00471892942651347, -0.00317288091968884, -6.76955217513137e-05, -0.0119061189538054, -0.00233356124758579, -0.00672098496026968, -0.134965372025281, -0.00102115420103838, -0.00114816901125044), .Names = c('Craig Dunain', 'Ben Rha', 'Ben Lomond', 'Goatfell', 'Bens of Jura', 'Cairnpapple', 'Scolty', 'Traprain', 'Lairig Ghru', 'Dollar', 'Lomonds', 'Cairn Table', 'Eildon Two', 'Cairngorm', 'Seven Hills', 'Knock Hill', 'Black Hill', 'Creag Beag', 'Kildcon Hill', 'Meall Ant-Suidhe', 'Half Ben Nevis', 'Cow Hill', 'N Berwick Law', 'Creag Dubh', 'Burnswark', 'Largo Law', 'Criffel', 'Acmony', 'Ben Nevis', 'Knockfarrel', 'Two Breweries', 'Cockleroi', 'Moffat Chase')));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisobject_testisobject8_76324acc4cb42b1efa66444a711100d7() {
+ assertEval("argv <- list(c(FALSE, FALSE));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisobject_testisobject9_b168c31a45220942fed34dad5e2967fd() {
+ assertEval("argv <- list(structure(2L, .Label = c('McNeil', 'R Core', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinispairlist_testispairlist1_db6c39c12453440de8b0ef05575339f5() {
+ assertEval("argv <- list(list(NULL, c('time', 'status')));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinispairlist_testispairlist10_9be26a1f4860200be61193dc0d6a82a8() {
+ assertEval("argv <- list(structure(list(height = c(58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72), weight = c(115, 117, 120, 123, 126, 129, 132, 135, 139, 142, 146, 150, 154, 159, 164)), .Names = c('height', 'weight'), row.names = c(NA, -15L), class = 'data.frame'));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinispairlist_testispairlist11_3ee468c08980ae40bd0ae526dd49e604() {
+ assertEval("argv <- list(structure(list(a_string = c('foo', 'bar'), a_bool = FALSE, a_struct = structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = 'foo'), .Names = c('a', 'b', 'c')), a_cell = structure(list(1, 'foo', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'bar'), .Dim = c(2L, 2L)), a_complex_scalar = 0+1i, a_list = list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'foo'), a_complex_matrix = structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), a_range = c(1, 2, 3, 4, 5), a_scalar = 1, a_complex_3_d_array = structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), a_3_d_array = structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), a_matrix = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), a_bool_matrix = structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))), .Names = c('a_string', 'a_bool', 'a_struct', 'a_cell', 'a_complex_scalar', 'a_list', 'a_complex_matrix', 'a_range', 'a_scalar', 'a_complex_3_d_array', 'a_3_d_array', 'a_matrix', 'a_bool_matrix')));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinispairlist_testispairlist12_0422756eea495f21f2ba7f144d6978b5() {
+ assertEval("argv <- list(structure(list(f = structure(c(1L, 1L, 1L), .Label = c('1', '2'), class = 'factor'), u = structure(12:14, unit = 'kg', class = 'avector')), .Names = c('f', 'u'), row.names = 2:4, class = 'data.frame'));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinispairlist_testispairlist13_3135b2e8b8f51724131db98ccb3d3bbc() {
+ assertEval("argv <- list(structure(list(a = c(1L, 2L, 3L, NA), b = c(NA, 3.14159265358979, 3.14159265358979, 3.14159265358979), c = c(TRUE, NA, FALSE, TRUE), d = structure(c(1L, 2L, NA, 3L), .Label = c('aa', 'bb', 'dd'), class = 'factor'), e = structure(c('a1', NA, NA, 'a4'), class = 'AsIs'), f = structure(c(11323, NA, NA, 12717), class = 'Date')), .Names = c('a', 'b', 'c', 'd', 'e', 'f'), row.names = c(NA, -4L), class = 'data.frame'));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinispairlist_testispairlist14_3749046b87144ce14034a498d5db7080() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinispairlist_testispairlist2_e6f8d3cc9bacd1ab68044ed1dc4189af() {
+ assertEval("argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = 'ts'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c('y', 'lag.quarterly.revenue', 'price.index', 'income.level', 'market.potential'), row.names = c('1962.25', '1962.5', '1962.75', '1963', '1963.25', '1963.5', '1963.75', '1964', '1964.25', '1964.5', '1964.75', '1965', '1965.25', '1965.5', '1965.75', '1966', '1966.25', '1966.5', '1966.75', '1967', '1967.25', '1967.5', '1967.75', '1968', '1968.25', '1968.5', '1968.75', '1969', '1969.25', '1969.5', '1969.75', '1970', '1970.25', '1970.5', '1970.75', '1971', '1971.25', '1971.5', '1971.75'), class = 'data.frame'));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinispairlist_testispairlist3_a3fa23ae464d6a76e5ac937369cbc2de() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinispairlist_testispairlist4_43172b276329fd074713a79317711ede() {
+ assertEval("argv <- list(structure(list(double.eps = 2.22044604925031e-16, double.neg.eps = 1.11022302462516e-16, double.xmin = 2.2250738585072e-308, double.xmax = 1.79769313486232e+308, double.base = 2L, double.digits = 53L, double.rounding = 5L, double.guard = 0L, double.ulp.digits = -52L, double.neg.ulp.digits = -53L, double.exponent = 11L, double.min.exp = -1022L, double.max.exp = 1024L, integer.max = 2147483647L, sizeof.long = 8L, sizeof.longlong = 8L, sizeof.longdouble = 16L, sizeof.pointer = 8L), .Names = c('double.eps', 'double.neg.eps', 'double.xmin', 'double.xmax', 'double.base', 'double.digits', 'double.rounding', 'double.guard', 'double.ulp.digits', 'double.neg.ulp.digits', 'double.exponent', 'double.min.exp', 'double.max.exp', 'integer.max', 'sizeof.long', 'sizeof.longlong', 'sizeof.longdouble', 'sizeof.pointer')));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinispairlist_testispairlist5_197f6b4c5c902946000b77ccf71fb38e() {
+ assertEval("argv <- list(structure(list(widths = structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.880387330793302, 0.872694837975491, 0.862482627238653, 0.85694743348285, 0.844691564126209, 0.837992157219203, 0.826065549537932, 0.821813943091766, 0.801815430713592, 0.777814415451275, 0.862246453969427, 0.852609391860845, 0.852456189097792, 0.852184980555031, 0.847433895388854, 0.847321709738264, 0.843043642624801, 0.839180526055581, 0.838791375904974, 0.832684615585117, 0.829332878628487, 0.818738807141856, 0.817393740696655, 0.795187378905238, 0.771817782697421, 0.644452148607831, 0.532190150080465, 0.330404926016424), .Dim = c(28L, 3L), .Dimnames = list(c('10', '9', '2', '4', '8', '7', '6', '3', '1', '5', '22', '19', '11', '13', '18', '15', '16', '23', '24', '12', '14', '20', '21', '17', '25', '27', '28', '26'), c('cluster', 'neighbor', 'sil_width'))), clus.avg.widths = c(0.838270528963027, 0.778192810753059), avg.width = 0.799649138685191), .Names = c('widths', 'clus.avg.widths', 'avg.width')));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinispairlist_testispairlist6_d7294744f7d45292001059134e173744() {
+ assertEval("argv <- list(structure(list(loc = c(0.0804034870161223, 10.3548347412639), cov = structure(c(3.01119301965569, 6.14320559215603, 6.14320559215603, 14.7924762275451), .Dim = c(2L, 2L)), d2 = 2, wt = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), sqdist = c(0.439364946869246, 0.0143172566761092, 0.783644692619938, 0.766252947443554, 0.346865912102713, 1.41583192825661, 0.168485512965902, 0.354299830956879, 0.0943280426627965, 1.05001058449122, 1.02875556201707, 0.229332323173361, 0.873263925064789, 2.00000009960498, 0.449304354954282, 0.155023307933165, 0.118273979375253, 0.361693898800799, 0.21462398586105, 0.155558909016629, 0.471723661454506, 0.719528696331092, 0.0738164380664225, 1.46001193111051, 0.140785322548143, 0.127761195166703, 0.048012401156175, 0.811750426884519, 0.425827709817574, 0.163016638545231, 0.557810866640707, 0.277350147637843, 0.0781399119055092, 1.29559183995835, 0.718376405567138, 1.37650242941478, 0.175087780508154, 0.233808973148729, 0.693473805463067, 0.189096604125073, 1.96893781800017, 0.4759756980592, 1.69665760380474, 0.277965749373647, 0.920525436884815, 0.57525234053591, 1.59389578665009, 0.175715364671313, 0.972045794851437, 1.75514684962809, 0.0597413185507202, 0.174340343040626, 0.143421553552865, 0.997322770596838, 1.94096736957465, 2.00000001159796, 0.367000821772989, 0.682474530588235, 1.20976163307984, 1.27031685239035, 1.79775635513363, 0.0857761902860323, 0.435578932929501, 0.214370604878221, 0.494714247412686, 1.78784623754399, 1.24216674083069, 1.87749485326709, 0.0533296334123023, 1.45588362584438, 2.00000000631459, 0.208857144738039, 0.119251291573058, 0.365303924649962, 0.690656674239668, 0.0396958405786268, 0.258262120876164, 1.57360254057537, 0.307548421049514, 0.628417063100241, 1.00647098749202, 0.297624360530352, 0.400289147351669, 1.98298426250944, 0.129127182829694, 0.0794695319493149, 0.991481735944321, 0.444068154119836, 0.206790162395106, 0.574310829851377, 0.181887577583334, 0.433872021297517, 0.802994892604009, 0.293053770941001, 1.7002969001965, 0.77984639982848, 1.36127407487932, 0.761935213110323, 0.597915313430067, 0.237134831067472), prob = NULL, tol = 1e-07, eps = 9.96049758228423e-08, it = 898L, maxit = 5000, ierr = 0L, conv = TRUE), .Names = c('loc', 'cov', 'd2', 'wt', 'sqdist', 'prob', 'tol', 'eps', 'it', 'maxit', 'ierr', 'conv'), class = 'ellipsoid'));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinispairlist_testispairlist7_d7660417cc13603425ea61f7e9cd5a86() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(20L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 19L, 19L, 19L, 20L, 20L, 20L, 19L, 20L, 19L, 19L, 19L, 20L), mday = c(30L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 30L, 30L, 30L, 30L, 31L, 31L, 31L, 30L, 30L, 30L, 31L, 30L, 31L, 31L, 31L, 30L), mon = c(5L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 5L, 5L, 5L, 5L, 11L, 11L, 11L, 5L, 5L, 5L, 11L, 5L, 11L, 11L, 11L, 5L), year = c(72L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 81L, 82L, 83L, 85L, 87L, 89L, 90L, 92L, 93L, 94L, 95L, 97L, 98L, 105L, 108L, 112L), wday = c(5L, 0L, 1L, 2L, 3L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 0L, 4L, 0L, 1L, 2L, 3L, 4L, 0L, 1L, 4L, 6L, 3L, 6L), yday = c(181L, 365L, 364L, 364L, 364L, 365L, 364L, 364L, 364L, 180L, 180L, 180L, 180L, 364L, 364L, 364L, 181L, 180L, 180L, 364L, 180L, 364L, 364L, 365L, 181L), isdst = c(1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 1L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), tzone = c('', 'EST', 'EDT')));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinispairlist_testispairlist8_f7b5b1d899524061cb911e1149930e1f() {
+ assertEval("argv <- list(structure(list(usr = c(0.568, 1.432, -1.08, 1.08), xaxp = c(0.6, 1.4, 4), yaxp = c(-1, 1, 4)), .Names = c('usr', 'xaxp', 'yaxp')));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinispairlist_testispairlist9_bcb10d005e00fb0725cdcc8d363fa291() {
+ assertEval("argv <- list(structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c('A', 'B', 'C'), class = 'factor')), .Names = c('x', 'y', 'fac'), row.names = c(NA, -10L), class = 'data.frame'));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisraw_testisraw1_d148567121be7cd4b4a77737e0b4101a() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'character(0)', row.names = character(0), class = 'data.frame'));is.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisraw_testisraw2_28d1b3147bab31bca153b550f8a5f20e() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisraw_testisraw3_086e92ae75e8f861dc82c25c7de069fe() {
+ assertEval("argv <- list(c(0.367649186507741, -0.792514168501158, 0.0770550181313438, 0.193209990320579, 0.556026088821232, -1.90995675991293, 1.21007077813812, -1.22764970620883));is.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisraw_testisraw4_0705c1ae2ce308fd0dcffe6942e7c7c1() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1), .Dim = 1:3));is.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisraw_testisraw5_b389b1885f663e83d60ef98213d54902() {
+ assertEval("argv <- list(raw(0));is.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisrecursive_testisrecursive1_ceceb25a2b5f4d00268083c33a86bed2() {
+ assertEval("argv <- list(c(1, 5.75, 10.5, 15.25, 20));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisrecursive_testisrecursive10_a200939ef5f5f086629c17fdc1f11737() {
+ assertEval("argv <- list(logical(0));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisrecursive_testisrecursive11_130e194f558037f211bc6c15fc34709d() {
+ assertEval("argv <- list(structure(list(Df = c(1L, 7L), `Sum Sq` = c(158.407612694902, 204.202165082876), `Mean Sq` = c(158.407612694902, 29.1717378689823), `F value` = c(5.43017400630538, NA), `Pr(>F)` = c(0.052592726218915, NA)), .Names = c('Df', 'Sum Sq', 'Mean Sq', 'F value', 'Pr(>F)'), row.names = c('depression', 'Residuals'), class = c('anova', 'data.frame'), heading = c('Analysis of Variance Table\n', 'Response: weight')));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisrecursive_testisrecursive2_83b9d081114612fdffc759c577e32f01() {
+ assertEval("argv <- list(structure(c(1+0i, 5+0i, 9+0i, 13+0i, 17+0i, 21+0i, 2+0i, 6+0i, 10+0i, 14+0i, 18+0i, 22+0i, 3+0i, 7+0i, 11+0i, 15+0i, 19+0i, 23+0i, 4+0i, 8+0i, 12+0i, 16+0i, 20+0i, 24+0i), .Dim = c(6L, 4L)));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisrecursive_testisrecursive3_a28b54d2c0c3431da2adb0b94ddebf21() {
+ assertEval("argv <- list(structure(list(var = structure(c(2L, 5L, 1L, 1L, 4L, 5L, 5L, 1L, 3L, 1L, 1L, 2L, 1L, 6L, 1L, 1L, 1L), .Label = c('<leaf>', 'hs.grad', 'illiteracy', 'murder', 'population', 'region'), class = 'factor'), n = c(50L, 10L, 7L, 3L, 40L, 32L, 13L, 3L, 10L, 6L, 4L, 19L, 4L, 15L, 11L, 4L, 8L), wt = c(50, 10, 7, 3, 40, 32, 13, 3, 10, 6, 4, 19, 4, 15, 11, 4, 8), dev = c(18501092, 668812.4, 269049.714285714, 40824, 9908099.1, 5718045.5, 2592172, 97824.6666666667, 1337366.4, 249796.833333333, 155810.75, 2105534.63157895, 276864.75, 1264031.6, 209138.181818182, 224618.75, 2526229.5), yval = c(4435.8, 3639.6, 3515.57142857143, 3929, 4634.85, 4532.875, 4317, 3772.33333333333, 4480.4, 4231.16666666667, 4854.25, 4680.57894736842, 4346.75, 4769.6, 4627.72727272727, 5159.75, 5042.75), complexity = c(0.42830879928601, 0.0194009459395308, 0.01, 0.01, 0.089931129470628, 0.0588430078006851, 0.0588430078006851, 0.01, 0.050362368700543, 0.01, 0.01, 0.0376981247853036, 0.01, 0.0376981247853036, 0.00682341562063013, 0.01, 0.01), ncompete = c(4L, 3L, 0L, 0L, 4L, 4L, 4L, 0L, 4L, 0L, 0L, 4L, 0L, 4L, 0L, 0L, 0L), nsurrogate = c(3L, 0L, 0L, 0L, 2L, 4L, 0L, 0L, 4L, 0L, 0L, 2L, 0L, 3L, 0L, 0L, 0L)), .Names = c('var', 'n', 'wt', 'dev', 'yval', 'complexity', 'ncompete', 'nsurrogate'), row.names = c(1L, 2L, 4L, 5L, 3L, 6L, 12L, 24L, 25L, 50L, 51L, 13L, 26L, 27L, 54L, 55L, 7L), class = 'data.frame'));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisrecursive_testisrecursive4_4c8716f64b0f85a54b37b4467186a764() {
+ assertEval("argv <- list(structure(c(0, 0.693147180559945, 1.09861228866811, 1.38629436111989, 1.6094379124341, 1.79175946922805, 1.94591014905531, 2.07944154167984, 2.19722457733622, 2.30258509299405, 2.39789527279837, 2.484906649788, 2.56494935746154, 2.63905732961526, 2.70805020110221, 2.77258872223978, 2.83321334405622, 2.89037175789616, 2.94443897916644, 2.99573227355399, 3.04452243772342, 3.09104245335832, 3.13549421592915, 3.17805383034795, 3.2188758248682, 3.25809653802148, 3.29583686600433, 3.3322045101752, 3.36729582998647, 3.40119738166216, 3.43398720448515, 3.46573590279973, 3.49650756146648, 3.52636052461616, 3.55534806148941, 3.58351893845611, 3.61091791264422, 3.63758615972639, 3.66356164612965, 3.68887945411394, 3.71357206670431, 3.73766961828337, 3.76120011569356, 3.78418963391826, 3.80666248977032, 3.8286413964891, 3.85014760171006, 3.87120101090789, 3.89182029811063, 3.91202300542815, 3.93182563272433, 3.95124371858143, 3.97029191355212, 3.98898404656427, 4.00733318523247, 4.02535169073515, 4.04305126783455, 4.06044301054642, 4.07753744390572, 4.0943445622221, 4.11087386417331, 4.12713438504509, 4.14313472639153, 4.15888308335967, 4.17438726989564, 4.18965474202643, 4.20469261939097, 4.21950770517611, 4.23410650459726, 4.24849524204936, 4.26267987704132, 4.27666611901606, 4.29045944114839, 4.30406509320417, 4.31748811353631, 4.33073334028633, 4.34380542185368, 4.35670882668959, 4.36944785246702, 4.38202663467388, 4.39444915467244, 4.40671924726425, 4.4188406077966, 4.43081679884331, 4.44265125649032, 4.45434729625351, 4.46590811865458, 4.47733681447821, 4.48863636973214, 4.49980967033027, 4.51085950651685, 4.52178857704904, 4.53259949315326, 4.54329478227, 4.55387689160054, 4.56434819146784, 4.57471097850338, 4.58496747867057, 4.59511985013459, 4.60517018598809), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisrecursive_testisrecursive5_45a0f6fc8fcf695b5db31fba069d467f() {
+ assertEval("argv <- list(c(4.2946094590101+0i, -3.25699475013756-2.24807847868298i, -7.95013358893225-2.01799537233252i, -3.67333331331688+0.2922506370947i, 10.1942090590333+0.2633318847587i, -3.52243716497356+3.01559327870726i, 0.840489557961749+0.760755891710788i, 0.34614657901946+3.92303947429563i, 1.25203951718932-0.04113309513059i, 1.25203951718932+0.04113309513059i, 0.34614657901946-3.92303947429563i, 0.840489557961749-0.760755891710788i, -3.52243716497356-3.01559327870726i, 10.1942090590333-0.2633318847587i, -3.67333331331688-0.2922506370947i, -7.95013358893225+2.01799537233252i, -3.25699475013756+2.24807847868298i));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisrecursive_testisrecursive6_78561e332bf37da54600cc99f68614cf() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('age', 'eet', 'g2', 'grade', 'gleason', 'ploidy')));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisrecursive_testisrecursive7_9070190af699638cfd2bad437fcfb511() {
+ assertEval("argv <- list(structure(list(var = structure(c(2L, 1L, 1L), .Label = c('<leaf>', 'Start'), class = 'factor'), n = c(81L, 62L, 19L), wt = c(81, 62, 19), dev = c(24.3, 8.57647058823529, 14.175), yval = c(1, 1, 2), complexity = c(0.0637254901960785, 0, 1e-15), ncompete = c(2L, 0L, 0L), nsurrogate = c(0L, 0L, 0L), yval2 = structure(c(1, 1, 2, 64, 56, 8, 17, 6, 11, 0.7, 0.852610030706244, 0.310704960835509, 0.3, 0.147389969293756, 0.689295039164491, 0.999999999999999, 0.718382352941176, 0.281617647058824), .Dim = c(3L, 6L), .Dimnames = list(NULL, c('', '', '', '', '', 'nodeprob')))), .Names = c('var', 'n', 'wt', 'dev', 'yval', 'complexity', 'ncompete', 'nsurrogate', 'yval2'), row.names = c(NA, 3L), class = 'data.frame'));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisrecursive_testisrecursive8_297a38e888dbb102becc25b3e0250e04() {
+ assertEval("argv <- list(1e+09);is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisrecursive_testisrecursive9_6fae02b30f2dbc270e746b4dbe76a694() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinissymbol_testissymbol1_01f0099cae053857119018a9553dd51c() {
+ assertEval("argv <- list(0.05);is.symbol(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinissymbol_testissymbol2_bcdefb2320c991d9907697680005eb4f() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1), .Dim = 1:3));is.symbol(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinissymbol_testissymbol3_57a98844a92e7a21d4dcbb89bebd85ad() {
+ assertEval("argv <- list(numeric(0));is.symbol(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinissymbol_testissymbol4_ff91be8ead829c2a21f97f7c240ebf5c() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.symbol(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinisunsorted_testisunsorted1_c3485d6926cdf5fc4d281e28e1379264() {
+ assertEval("argv <- list(c(1L, 2L, 4L), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisunsorted_testisunsorted2_79ed5403651526c7d5283a519f3b7a30() {
+ assertEval("argv <- list(c(10.7041467781967, 11.5754756379084, 12.524991240374, 13.5975143137056, 14.4688431734172, 15.4183587758829, 16.4908818492144, 17.7566218541999, 19.1425780866377, 20.5285343190754, 22.0685075746448, 23.9825281292691, 26.4455166737415, 29.7592803351446, 34.4380365011698, 41.4254228764895, 44.7391865378926, 49.4179427039178, 56.4053290792375), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisunsorted_testisunsorted3_cfb0d49ba707d9da2e3c4f469dfa200f() {
+ assertEval("argv <- list(c(-19, -12.21, -7.07, -6.14, -4.56, -4.09, -3.8, -2.22, -1.97, -1.95, -1.83, -1.82, -1.77, -1.56, -1.48, -1.42, -1.19, -1.12, -1.09, -1.04, -0.96, -0.89, -0.87, -0.87, -0.78, -0.77, -0.77, -0.74, -0.71, -0.63, -0.61, -0.59, -0.54, -0.51, -0.5, -0.5, -0.44, -0.4, -0.4, -0.37, -0.33, -0.28, -0.21, -0.2, -0.16, -0.16, -0.12, -0.1, -0.05, -0.01, -0.01, 0.04, 0.11, 0.13, 0.14, 0.15, 0.15, 0.25, 0.25, 0.26, 0.34, 0.42, 0.44, 0.46, 0.48, 0.48, 0.49, 0.49, 0.51, 0.57, 0.58, 0.64, 0.66, 0.7, 0.74, 0.8, 0.83, 0.94, 0.94, 1.02, 1.09, 1.12, 1.15, 1.18, 1.19, 1.63, 1.86, 1.92, 2.11, 2.17, 2.21, 2.22, 2.25, 2.64, 2.75, 4.18, 4.6, 5.74, 22.42, 44.32), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisunsorted_testisunsorted4_f750d9183d0a3c9b4d2449f9c925b563() {
+ assertEval("argv <- list(c('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z'), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisunsorted_testisunsorted5_8f45d461532eee2e3e72ea7a7abc20e7() {
+ assertEval("argv <- list(c(8, 6, 9, 4, 3, 7, 1, 5, 2), TRUE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisunsorted_testisunsorted6_94a63ef33eb40aae5b9ad33116c2fc19() {
+ assertEval("argv <- list(c(1, 2, 3, 2), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisunsorted_testisunsorted7_40e5a970eb27718fdd45159ea51d915e() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisunsorted_testisunsorted8_11ae4c3220969aa40b1c466715158380() {
+ assertEval("argv <- list(c(2L, 1L, 0L, 3L), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisunsorted_testisunsorted9_a5df55a2234e73b32b8841cab83ecafb() {
+ assertEval("argv <- list(c(1L, 3L, 2L, 4L), TRUE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector1_42c54d30e5634b6fd8d6f93a3ccfc735() {
+ assertEval("argv <- list(list(structure(0, class = c('POSIXct', 'POSIXt'), tzone = 'GMT'), 1262304000), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector10_2b88f7577de5a7671397e0a86f036aba() {
+ assertEval("argv <- list(structure(list(`1` = c(0, 0, 0, 0, 0, 0, 2.96439387504748e-323, 0, 0, 0, 0, 0)), .Names = '1'), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector11_697b68c3c4eaea023ea003847f542380() {
+ assertEval("argv <- list(list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/methods/R/methods', '/home/lzhao/hg/r-instrumented/library/methods/R/methods'), frow = c(6030L, 6032L), lrow = c(6031L, 6063L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'), structure(list(srcfile = '/home/lzhao/hg/r-instrumented/library/methods/R/methods', frow = 6036L, lrow = 6055L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector12_ff1c9811d9d08f6118fd36a26895eb4a() {
+ assertEval("argv <- list(structure(list(B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c('I', 'II', 'III', 'IV', 'V', 'VI'), class = 'factor'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c('Golden.rain', 'Marvellous', 'Victory'), class = 'factor'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt'), class = 'factor')), .Names = c('B', 'V', 'N'), class = 'data.frame', row.names = 2:72), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector13_3c7ac081ff7fffe6badfb6cb2413d826() {
+ assertEval("argv <- list(list('‘FUN’ is found by a call to ‘match.fun’ and typically is specified as a function or a symbol (e.g. a backquoted name) or a character string specifying a function to be searched for from the environment of the call to ‘lapply’.'), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector14_7ff0f762532c06903c827be7e30beee8() {
+ assertEval("argv <- list(list(c(35, 232, 232, 355, 1041, 1510, 1525, 1548, 1560, 1560, 1563, 1641, 1648, 1652, 1654, 1654, 1690, 1690, 1710, 1710, 1710, 1710, 1779, 1779, 1779, 1779, 1787, 1804, 1812, 1836, 1854, 1864, 1899, 1919, 1920, 1958, 1963, 2007, 2011, 2024, 2024, 2024, 2028, 2061, 2061, 2061, 2062, 2062, 2075, 2085, 2103, 2156, 2227, 2264, 2339, 2339, 2361, 2361, 2387, 2387, 2388, 2426, 2431, 2460, 2493, 2493, 2542, 2559, 2559, 2570, 2676, 2738, 2782, 2984, 3067, 3144, 3154, 3199, 3228, 3297, 3328, 3328, 3330, 3383, 3384, 3384, 3402, 3402, 3441, 3458, 3459, 3459, 3476, 3476, 3695, 3695, 3776, 3776, 3776, 3830, 3856, 3909, 3909, 3968, 3968, 4001, 4119, 4124, 4207, 4207, 4310, 4390, 4479, 4479, 4688), c(0, 0, 0, 0, -1, 0, 0, -1, -1, -1, 0, 0, 0, 0, 0, 0, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector15_2da6838d8ffd988056b23c8f4bcb8b88() {
+ assertEval("argv <- list(structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector16_e03614b44d7f8704c727cfbfffebc1db() {
+ assertEval("argv <- list(structure(list(row.names = character(0), A = numeric(0), B = numeric(0), C = complex(0), D = integer(0), E = logical(0), F = character(0)), .Names = c('row.names', 'A', 'B', 'C', 'D', 'E', 'F')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector17_529481023d00e056845723c8af9629a9() {
+ assertEval("argv <- list(structure(c(315.42, 316.32, 316.49, 317.56, 318.13, 318, 316.39, 314.66, 313.68, 313.18, 314.66, 315.43, 316.27, 316.81, 317.42, 318.87, 319.87, 319.43, 318.01, 315.75, 314, 313.68, 314.84, 316.03, 316.73, 317.54, 318.38, 319.31, 320.42, 319.61, 318.42, 316.64, 314.83, 315.15, 315.95, 316.85, 317.78, 318.4, 319.53, 320.41, 320.85, 320.45, 319.44, 317.25, 316.12, 315.27, 316.53, 317.53, 318.58, 318.92, 319.7, 321.22, 322.08, 321.31, 319.58, 317.61, 316.05, 315.83, 316.91, 318.2, 319.41, 320.07, 320.74, 321.4, 322.06, 321.73, 320.27, 318.54, 316.54, 316.71, 317.53, 318.55, 319.27, 320.28, 320.73, 321.97, 322, 321.71, 321.05, 318.71, 317.65, 317.14, 318.71, 319.25, 320.46, 321.43, 322.22, 323.54, 323.91, 323.59, 322.26, 320.21, 318.48, 317.94, 319.63, 320.87, 322.17, 322.34, 322.88, 324.25, 324.83, 323.93, 322.39, 320.76, 319.1, 319.23, 320.56, 321.8, 322.4, 322.99, 323.73, 324.86, 325.41, 325.19, 323.97, 321.92, 320.1, 319.96, 320.97, 322.48, 323.52, 323.89, 325.04, 326.01, 326.67, 325.96, 325.13, 322.9, 321.61, 321.01, 322.08, 323.37, 324.34, 325.3, 326.29, 327.54, 327.54, 327.21, 325.98, 324.42, 322.91, 322.9, 323.85, 324.96, 326.01, 326.51, 327.01, 327.62, 328.76, 328.4, 327.2, 325.28, 323.2, 323.4, 324.64, 325.85, 326.6, 327.47, 327.58, 329.56, 329.9, 328.92, 327.89, 326.17, 324.68, 325.04, 326.34, 327.39, 328.37, 329.4, 330.14, 331.33, 332.31, 331.9, 330.7, 329.15, 327.34, 327.02, 327.99, 328.48, 329.18, 330.55, 331.32, 332.48, 332.92, 332.08, 331.02, 329.24, 327.28, 327.21, 328.29, 329.41, 330.23, 331.24, 331.87, 333.14, 333.8, 333.42, 331.73, 329.9, 328.4, 328.17, 329.32, 330.59, 331.58, 332.39, 333.33, 334.41, 334.71, 334.17, 332.88, 330.77, 329.14, 328.77, 330.14, 331.52, 332.75, 333.25, 334.53, 335.9, 336.57, 336.1, 334.76, 332.59, 331.41, 330.98, 332.24, 333.68, 334.8, 335.22, 336.47, 337.59, 337.84, 337.72, 336.37, 334.51, 332.6, 332.37, 333.75, 334.79, 336.05, 336.59, 337.79, 338.71, 339.3, 339.12, 337.56, 335.92, 333.74, 333.7, 335.13, 336.56, 337.84, 338.19, 339.9, 340.6, 341.29, 341, 339.39, 337.43, 335.72, 335.84, 336.93, 338.04, 339.06, 340.3, 341.21, 342.33, 342.74, 342.07, 340.32, 338.27, 336.52, 336.68, 338.19, 339.44, 340.57, 341.44, 342.53, 343.39, 343.96, 343.18, 341.88, 339.65, 337.8, 337.69, 339.09, 340.32, 341.2, 342.35, 342.93, 344.77, 345.58, 345.14, 343.81, 342.22, 339.69, 339.82, 340.98, 342.82, 343.52, 344.33, 345.11, 346.88, 347.25, 346.61, 345.22, 343.11, 340.9, 341.17, 342.8, 344.04, 344.79, 345.82, 347.25, 348.17, 348.75, 348.07, 346.38, 344.52, 342.92, 342.63, 344.06, 345.38, 346.12, 346.79, 347.69, 349.38, 350.04, 349.38, 347.78, 345.75, 344.7, 344.01, 345.5, 346.75, 347.86, 348.32, 349.26, 350.84, 351.7, 351.11, 349.37, 347.97, 346.31, 346.22, 347.68, 348.82, 350.29, 351.58, 352.08, 353.45, 354.08, 353.66, 352.25, 350.3, 348.58, 348.74, 349.93, 351.21, 352.62, 352.93, 353.54, 355.27, 355.52, 354.97, 353.74, 351.51, 349.63, 349.82, 351.12, 352.35, 353.47, 354.51, 355.18, 355.98, 356.94, 355.99, 354.58, 352.68, 350.72, 350.92, 352.55, 353.91), .Tsp = c(1959, 1990.91666666667, 12), class = 'ts'), 'symbol'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector18_3f5da0689e1c16ad25d3b56342abccc6() {
+ assertEval("argv <- list(structure(list(age = 60), .Names = 'age', row.names = c(NA, -1L), class = 'data.frame'), 'numeric'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector19_e9f2d957bdafadb86220e6707618fbad() {
+ assertEval("argv <- list(c(1.00000001+1.00000001i, 1.00000002+1.00000002i, 1.00000003+1.00000003i, 1.00000004+1.00000004i, 1.00000005+1.00000005i, 1.00000006+1.00000006i, 1.00000007+1.00000007i, 1.00000008+1.00000008i, 1.00000009+1.00000009i, 1.0000001+1.0000001i), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector2_acc10347b6fc6cea6261f757ee57db8e() {
+ assertEval("argv <- list(list(c(' 1', 'NA', ' 1'), c('1.1', ' NA', '2.0'), c('1.1+0i', ' NA', '3.0+0i'), c('NA', 'NA', 'NA'), c('FALSE', ' NA', ' TRUE'), c('abc', NA, 'def')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector20_d6cd3470e89b8c40830e59e561dc9207() {
+ assertEval("argv <- list(list(), 'list'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector21_bb275d6274fd37a7d24c9c08d21738f7() {
+ assertEval("argv <- list(structure(list(`1` = c(256.266652076228, 529.998452486383, 655.612271403493, 31.5607377310524, 10.1780771257452, 0.82654086298349, 0.192588149393303, 0.27340160887417, 0.420761091220242, 0.212073424883136, 6006.37649011526, 8.9782737548589e+42)), .Names = '1'), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector22_b4f96e97f3e91a67ec34690975124d39() {
+ assertEval("argv <- list(structure(list(Subject = structure(c(40L, 40L, 40L, 40L, 40L, 40L, 40L, 40L), .Label = c('42', '28', '30', '56', '46', '5', '55', '32', '43', '29', '3', '11', '45', '22', '40', '47', '31', '14', '7', '41', '33', '44', '23', '57', '34', '18', '36', '21', '15', '38', '10', '1', '58', '51', '4', '6', '19', '2', '27', '53', '37', '20', '12', '9', '17', '26', '8', '49', '39', '54', '25', '35', '52', '13', '16', '59', '48', '24', '50'), class = c('ordered', 'factor')), Wt = c(1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7), Apgar = structure(c(8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L), .Label = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'), class = c('ordered', 'factor')), ApgarInd = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('< 5', '>= 5'), class = 'factor'), time = c(0, 4, 6, 23.8, 27, 28, 39.5, 47), dose = c(17, 17, NA, 4, 7.5, 4, 4, NA), conc = c(NA, NA, 19.1, NA, NA, NA, NA, 33.3)), .Names = c('Subject', 'Wt', 'Apgar', 'ApgarInd', 'time', 'dose', 'conc'), row.names = c('669', '670', '671', '672', '673', '674', '675', '676'), class = 'data.frame'), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector23_a0115f063007587243256acc89acea7b() {
+ assertEval("argv <- list(list(structure(c(0.445983387275159, 0.0291424961297979, 0.305722673636889, 0.0640910333172597, 6.1841587262516e-05, 0.000608774190997193, 0.00533346072966287, 1.87468589092225, 0.00776943250876635, 0.00695873604736988), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), 0), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector24_18c3ede115b0f7230cea3ec81473abd7() {
+ assertEval("argv <- list(structure(list(`1` = structure(list(stats = c(-9.90250128905181, -7.70852699427806, -5.13496062122677, -3.95948091921295, 1.46970778502994), n = 29L, conf = c(-6.23492561965266, -4.03499562280088), out = numeric(0)), .Names = c('stats', 'n', 'conf', 'out')), `2` = structure(list(stats = c(-11.1332994435188, -6.39592651878103, -4.21825647639093, -2.4710346135438, 0.142332232638518), n = 27L, conf = c(-5.41170283935282, -3.02481011342905), out = c(5.49660997093232, 3.55716552721441)), .Names = c('stats', 'n', 'conf', 'out')), `3` = structure(list(stats = c(-6.21825647639093, -4.89504044270307, -3.50339002906768, -2.12460329098075, 1.68674122392151), n = 27L, conf = c(-4.34580001700278, -2.66098004113257), out = 3.49961675599928), .Names = c('stats', 'n', 'conf', 'out')), `4` = structure(list(stats = c(-5.85766776736148, -2.17391966458661, -1.21825647639093, 0.620760276498144, 4.06758688195534), n = 27L, conf = c(-2.06803799696724, -0.368474955814626), out = numeric(0)), .Names = c('stats', 'n', 'conf', 'out')), `5` = structure(list(stats = c(-7.47307099543129, -3.31679346391683, -0.571500134198763, 0.883997101871453, 5.68320653608317), n = 29L, conf = c(-1.8040063492643, 0.661006080866776), out = numeric(0)), .Names = c('stats', 'n', 'conf', 'out')), `6` = structure(list(stats = c(-5.74371144541934, -1.32005454439779, -0.0691719185754582, 1.68918858100201, 5.88399710187145), n = 25L, conf = c(-1.02009274620179, 0.881748909050878), out = numeric(0)), .Names = c('stats', 'n', 'conf', 'out')), `7` = structure(list( stats = c(-0.959725366614089, 1.04051908078705, 2.68320653608317, 4.68320653608317, 6.86503937877323), n = 29L, conf = c(1.61444701144563, 3.7519660607207), out = c(10.4020441274641, 11.9338597320297)), .Names = c('stats', 'n', 'conf', 'out')), `8` = structure(list(stats = c(-4.31872184443094, -0.341901367712618, 2.09749871094819, 4.42849305489153, 9.86504029478776), n = 29L, conf = c(0.69787150218962, 3.49712591970676), out = numeric(0)), .Names = c('stats', 'n', 'conf', 'out')), `9` = structure(list( stats = c(-4.47307099543129, 1.46970778502994, 3.27573063223268, 6.09749871094819, 8.5266833961141), n = 29L, conf = c(1.91794309465097, 4.63351816981439), out = numeric(0)), .Names = c('stats', 'n', 'conf', 'out')), `10` = structure(list(stats = c(-5.31679346391683, -1.04725655125673, 2.61440793064106, 7.68320653608317, 14.5985362650564), n = 26L, conf = c(-0.0908438616349159, 5.31965972291703), out = numeric(0)), .Names = c('stats', 'n', 'conf', 'out')), `11` = structure(list(stats = c(-4.26322883423527, -1.27884444060771, 1.37070166144218, 5.85051662661329, 10.1854674121229), n = 31L, conf = c(-0.65244259398095, 3.39384591686531), out = numeric(0)), .Names = c('stats', 'n', 'conf', 'out'))), .Dim = 11L, .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11'))), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector25_e8017b586d2cc7a961614de273025e39() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector26_0d9067a68be1780690f6c7e92dd5f497() {
+ assertEval("argv <- list(list(structure(list(srcfile = c(NA, '/home/lzhao/hg/r-instrumented/library/graphics/R/graphics'), frow = c(NA, 3990L), lrow = c(NA, 3991L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'), structure(list(srcfile = '/home/lzhao/hg/r-instrumented/library/graphics/R/graphics', frow = 3998L, lrow = 4009L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector27_945852aaaf4656d431c607a1a29a10df() {
+ assertEval("argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c('y', 'x', 'z'), terms = quote(y ~ x * z), row.names = c(NA, 10L), class = 'data.frame'), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector28_0f0699e35c04a67c2b75c6b19ef9b580() {
+ assertEval("argv <- list(list(structure(c(-1L, -2L, -3L, -4L, -5L, -6L, -7L, -8L, -9L, -10L), .Dim = c(2L, 5L)), structure(list(V1 = 1:5, V2 = 6:10, V3 = 11:15, V4 = 16:20, V5 = 21:25), .Names = c('V1', 'V2', 'V3', 'V4', 'V5'), row.names = c(NA, -5L), class = 'data.frame')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector29_a5b7c53f099d0b31ebd86ed92404d78c() {
+ assertEval("argv <- list(structure(list(group = structure(c(1L, 1L), .Label = c('Ctl', 'Trt'), class = 'factor', contrasts = 'contr.treatment')), .Names = 'group', class = 'data.frame', row.names = 1:2), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector3_35ecca1873ab4b686ee24b1da714b2de() {
+ assertEval("argv <- list(structure(list(A = c(1, NA, 1), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA_integer_, NA_integer_, NA_integer_), E = c(FALSE, NA, TRUE), F = c('abc', NA, 'def')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector30_535d7ed78376038d2f7f3539b89ab606() {
+ assertEval("argv <- list(structure(c(12L, 120L, 116L), .Dim = 3L, .Dimnames = structure(list(c('0-5yrs', '6-11yrs', '12+ yrs')), .Names = ''), class = 'table'), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector31_f471effc213210eebd8495532f46529f() {
+ assertEval("argv <- list(structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c('A', 'B', 'C'), class = 'factor'), 'symbol'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector32_7feeaf1fe0d62a0c235db6a33a2a3e0d() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 0L), Deviance = c(NA, 0), `Resid. Df` = c(10L, 10L), `Resid. Dev` = c(2.74035772634541, 2.74035772634541)), .Names = c('Df', 'Deviance', 'Resid. Df', 'Resid. Dev'), row.names = c('NULL', 'x'), class = c('anova', 'data.frame'), heading = 'Analysis of Deviance Table\n\nModel: gaussian, link: identity\n\nResponse: y\n\nTerms added sequentially (first to last)\n\n'), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector4_d13bdc66e1db2576ce64e641b9320d3f() {
+ assertEval("argv <- list(structure(list(character = character(0), numeric = numeric(0), numeric = numeric(0), complex = complex(0), integer = integer(0), logical = logical(0), character = character(0)), .Names = c('character', 'numeric', 'numeric', 'complex', 'integer', 'logical', 'character')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector5_12ca163cf37508e1273956276c05ec6c() {
+ assertEval("argv <- list(structure(list(group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = 'group', class = 'data.frame', row.names = c(NA, 20L)), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector6_71ba534dc7089197ef2421a67361f418() {
+ assertEval("argv <- list(structure(list(y = c(1.08728092481538, 0.0420572471552261, 0.787502161306819, 0.512717751544676, 3.35376639535311, 0.204341510750309, -0.334930602487435, 0.80049208412789, -0.416177803375218, -0.777970346246018, 0.934996808181635, -0.678786709127108, 1.52621589791412, 0.5895781228122, -0.744496121210548, -1.99065153885627, 1.51286447692396, -0.750182409847851), A = c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), U = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('a', 'b', 'c'), class = 'factor'), V = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L), .Label = c('a', 'b', 'c'), class = 'factor')), .Names = c('y', 'A', 'U', 'V'), terms = quote(y ~ A:U + A:V - 1), row.names = c(NA, 18L), class = 'data.frame'), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector7_6c2750df863488e5e40f5126d26588ae() {
+ assertEval("argv <- list(list(integer(0)), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector8_78fb80b6caff0f1f9f2433e58a77af3e() {
+ assertEval("argv <- list(list(structure(0:100, .Tsp = c(1, 101, 1), class = 'ts'), structure(c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790, 800, 810, 820, 830, 840, 850, 860, 870, 880, 890, 900, 910, 920, 930, 940, 950, 960, 970, 980, 990, 1000), .Tsp = c(1, 101, 1), class = 'ts'), structure(c(-4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96), .Tsp = c(1, 101, 1), class = 'ts')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinisvector_testisvector9_7a2d368cebf0e8bcc64da81916c4dd08() {
+ assertEval("argv <- list(structure(list(Plant = structure(c(5L, 5L, 5L, 5L, 5L, 5L, 5L), .Label = c('Qn1', 'Qn2', 'Qn3', 'Qc1', 'Qc3', 'Qc2', 'Mn3', 'Mn2', 'Mn1', 'Mc2', 'Mc3', 'Mc1'), class = c('ordered', 'factor')), Type = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c('Quebec', 'Mississippi'), class = 'factor'), Treatment = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('nonchilled', 'chilled'), class = 'factor')), .Names = c('Plant', 'Type', 'Treatment'), class = 'data.frame', row.names = 36:42), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinlazyLoadDBflush_testlazyLoadDBflush1_cef4a1af4e9fa39cdf8f736e988487cd() {
+ assertEval("argv <- list('/home/roman/r-instrumented/library/tools/R/tools.rdb'); .Internal(lazyLoadDBflush(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinlazyLoadDBflush_testlazyLoadDBflush2_9a5760c0187e982262284ceb02d2e117() {
+ assertEval("argv <- list('/home/lzhao/hg/r-instrumented/library/stats4/R/stats4.rdb'); .Internal(lazyLoadDBflush(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinlbeta_testlbeta1_09a92ce71a1f383c2304c1f8fc433817() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(lbeta(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinlchoose_testlchoose1_aea5cb7166dbc2c24ee4d66a3285b134() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(lchoose(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinlchoose_testlchoose2_eef92f0b2715df9ec5ebab185e89a3b8() {
+ assertEval("argv <- list(50L, 0:48); .Internal(lchoose(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinlchoose_testlchoose3_1c1480efe394bbd1018556b13b24cb31() {
+ assertEval("argv <- list(0.5, 1:9); .Internal(lchoose(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength1_90a6bd65881b7e6afd2cd642265ffd2d() {
+ assertEval("argv <- list('~ . + Soft+M.user:Temp');length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength10_e01839516cabe2758ead9c61132e6fbc() {
+ assertEval("argv <- list(list(structure(c(-1L, -2L, -3L, -4L, -5L, -6L, -7L, -8L, -9L, -10L), .Dim = c(2L, 5L)), structure(list(V1 = 1:5, V2 = 6:10, V3 = 11:15, V4 = 16:20, V5 = 21:25), .Names = c('V1', 'V2', 'V3', 'V4', 'V5'), row.names = c(NA, -5L), class = 'data.frame')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength11_059a5093010aa6e9bdfac01d6235afd2() {
+ assertEval("argv <- list(structure(list(weight = c(4.17, 5.58), group = structure(c(1L, 1L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = c('weight', 'group'), row.names = 1:2, class = 'data.frame'));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength12_9301367856ba463ffbd2cf050e2c249d() {
+ assertEval("argv <- list(quote(cbind(X, M) ~ M.user + Temp + M.user:Temp));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength13_a0ed1d13c72f9168ae0d83d562eeabe5() {
+ assertEval("argv <- list(structure(c(-Inf, -Inf, 0, 0, 1, 2, Inf, Inf, Inf, -Inf, -Inf, 0, 0.5, 1, 2, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 1, 2, 2, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.8, 1.6, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.3, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.4, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.2, 1.9, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.499999999999999, 1.33333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.325, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL)));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength14_d903a460277a926797dc14b29e8e5e75() {
+ assertEval("argv <- list(structure(list(character = character(0), numeric = numeric(0), numeric = numeric(0), complex = complex(0), integer = integer(0), logical = logical(0), character = character(0)), .Names = c('character', 'numeric', 'numeric', 'complex', 'integer', 'logical', 'character')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength15_c9a1aeb0017dad5b429f386a8cae8206() {
+ assertEval("argv <- list(structure(list(loc = c(0.0804034870161223, 10.3548347412639), cov = structure(c(3.01119301965569, 6.14320559215603, 6.14320559215603, 14.7924762275451), .Dim = c(2L, 2L)), d2 = 2, wt = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), sqdist = c(0.439364946869246, 0.0143172566761092, 0.783644692619938, 0.766252947443554, 0.346865912102713, 1.41583192825661, 0.168485512965902, 0.354299830956879, 0.0943280426627965, 1.05001058449122, 1.02875556201707, 0.229332323173361, 0.873263925064789, 2.00000009960498, 0.449304354954282, 0.155023307933165, 0.118273979375253, 0.361693898800799, 0.21462398586105, 0.155558909016629, 0.471723661454506, 0.719528696331092, 0.0738164380664225, 1.46001193111051, 0.140785322548143, 0.127761195166703, 0.048012401156175, 0.811750426884519, 0.425827709817574, 0.163016638545231, 0.557810866640707, 0.277350147637843, 0.0781399119055092, 1.29559183995835, 0.718376405567138, 1.37650242941478, 0.175087780508154, 0.233808973148729, 0.693473805463067, 0.189096604125073, 1.96893781800017, 0.4759756980592, 1.69665760380474, 0.277965749373647, 0.920525436884815, 0.57525234053591, 1.59389578665009, 0.175715364671313, 0.972045794851437, 1.75514684962809, 0.0597413185507202, 0.174340343040626, 0.143421553552865, 0.997322770596838, 1.94096736957465, 2.00000001159796, 0.367000821772989, 0.682474530588235, 1.20976163307984, 1.27031685239035, 1.79775635513363, 0.0857761902860323, 0.435578932929501, 0.214370604878221, 0.494714247412686, 1.78784623754399, 1.24216674083069, 1.87749485326709, 0.0533296334123023, 1.45588362584438, 2.00000000631459, 0.208857144738039, 0.119251291573058, 0.365303924649962, 0.690656674239668, 0.0396958405786268, 0.258262120876164, 1.57360254057537, 0.307548421049514, 0.628417063100241, 1.00647098749202, 0.297624360530352, 0.400289147351669, 1.98298426250944, 0.129127182829694, 0.0794695319493149, 0.991481735944321, 0.444068154119836, 0.206790162395106, 0.574310829851377, 0.181887577583334, 0.433872021297517, 0.802994892604009, 0.293053770941001, 1.7002969001965, 0.77984639982848, 1.36127407487932, 0.761935213110323, 0.597915313430067, 0.237134831067472), prob = NULL, tol = 1e-07, eps = 9.96049758228423e-08, it = 898L, maxit = 5000, ierr = 0L, conv = TRUE), .Names = c('loc', 'cov', 'd2', 'wt', 'sqdist', 'prob', 'tol', 'eps', 'it', 'maxit', 'ierr', 'conv'), class = 'ellipsoid'));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength16_0338d96fa69ba60ea0aa87bd7a954c2d() {
+ assertEval("argv <- list(c(-167.089651989438, -122.420302709026));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength17_1c296838f12e655ab5806567b7ec064e() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils'), frow = c(1809L, 1810L, 1811L, 1812L, 1802L, 1827L, 1840L), lrow = c(1809L, 1814L, 1811L, 1813L, 1816L, 1834L, 1842L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 7L)));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength18_1a24a4cb2f8b5becb3b0ca1a821b110a() {
+ assertEval("argv <- list(structure(list(object = structure(3.14159265358979, comment = 'Start with pi'), slots = 'comment', dataPart = TRUE), .Names = c('object', 'slots', 'dataPart')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength19_8c23b2b3840c4553d32e153b5e3b3efb() {
+ assertEval("argv <- list(structure(list(name = structure(c('McNeil', 'Ripley', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'AsIs'), title = structure(c(3L, 6L, 7L, 4L, 2L, 5L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, NA, NA, NA, NA, 1L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor'), nationality = structure(c(1L, 2L, 2L, 3L, 3L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(1L, 1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor')), .Names = c('name', 'title', 'other.author', 'nationality', 'deceased'), row.names = c(6L, 4L, 5L, 3L, 1L, 2L), class = 'data.frame'));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength2_15a243a1b29ca1826ddc56b51fc03a76() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength20_989cfcad7be3991b4b4b95143e174c88() {
+ assertEval("argv <- list(c(' These operators return vectors containing the result of the element', ' by element operations. The elements of shorter vectors are recycled', ' as necessary (with a ‘warning’ when they are recycled only', ' _fractionally_). The operators are ‘+’ for addition,', ' ‘-’ for subtraction, ‘*’ for multiplication, ‘/’ for', ' division and ‘^’ for exponentiation.', '', ' ‘%%’ indicates ‘x mod y’ and ‘%/%’ indicates', ' integer division. It is guaranteed that '));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength21_9c206267710771cf09bb0b35799222e4() {
+ assertEval("argv <- list(structure(c(3.14475800140539, 3.11465478132706, 3.10630529271564, 3.0844667956717, 3.10602734436792, 3.1179780987041, 3.10510218928681, 3.13870964347838, 3.1236627058491, 3.16426296817658, 3.18524449375727, 3.19607967740367, 3.12404668400251, 3.1073799072767, 3.10252776401906, 3.0888846453793, 3.10244112014795, 3.1099501880355, 3.10186319790916, 3.12297248377609, 3.11352136079872, 3.13902281247452, 3.1522015282299, 3.15900722027104), .Tsp = c(1983, 1984.91666666667, 12), class = 'ts'));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength22_4a3e426fad30063219b818faba3b2b1c() {
+ assertEval("argv <- list(c(3.14159265358979e-10, 0.0314159265358979, 3.14159265358979, 31.4159265358979, 314.159265358979, 314159265.358979, 3.14159265358979e+20));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength23_6064af32457f6a822cf0fb8a236db4d3() {
+ assertEval("argv <- list(structure(list(names = character(0), row.names = integer(0), class = 'data.frame'), .Names = c('names', 'row.names', 'class')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength24_115f386f038f3aa9eb3bfc138798354a() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength25_ff31f57b0a19d5e8f5a0d3b86d4febb9() {
+ assertEval("argv <- list(c(0+0i, -0.740437474899139-0.482946826369552i, -0.333166449062945-0.753763230370951i, 0+0i, 0.522033838837248+0.102958580568997i, 0+0i, 0+0i, 0+0i, -0.563222209454641-0.518013590538404i, -0.068796124369349+0.97981641556181i, 0.244428915757284-0.330850507052219i, 0+0i, 0+0i, 0+0i, -0.451685375030484+0.126357395265016i, 0.375304016677864+0.436900190874168i, -0.674059300339186+0.084416799015191i, 0+0i, 0.509114684244823-0.086484623694157i, -0.535642839219739+0.289927561259502i, 0.629727249341749+0.707648659913726i, 0+0i, -0.333800277698424-0.317646103980588i, -0.422186107911717+0.317002735170286i, -0.616692335171505+0.068946145379939i, -0.136100485502624-0.487679764177213i, -0.68086000613138+0.047032323152903i, 0.296209908189768+0.585533462557103i, 0.43280012844045+0.136998748692477i, -0.680205941942733-0.256569497284745i, 0+0i, 0+0i, 0+0i, -0.983769553611346-0.088288289740869i, -0.046488672133508-0.622109071207677i, 0+0i, 0.379095891586975-0.727769566649926i, 0+0i, 0+0i, -0.150428076228347+0.615598727377677i, 0.762964492726935+0.377685645913312i, -0.7825325866026+0.365371705974346i, -0.792443423040311-0.029652870362208i, 0.265771060547393-0.106618612674382i, -0.076741350022367-0.422144111460857i, 0.120061986786934-0.623033085890884i, 0+0i, -0.145741981978782+0.529165019069452i, 0+0i, 0+0i, 0+0i, 0+0i, 0+0i, 0.328611964770906+0.215416587846774i, -0.583053183540166-0.668235480667835i, -0.782507286391418+0.318827979750013i, 0+0i, 0+0i, 0+0i, 0+0i, -0.271871452223431+0.426340387811162i, 0.590808184713385-0.344468770084509i, 0+0i, 0+0i, 0+0i, 0+0i, 0.866602113481861-0.172567291859327i, 0.031389337713892-0.607820631329035i, 0+0i, 0+0i, 0.151969488085021-0.827990593142535i, -0.266853748421854-0.866413193943766i, 0.071623062591495-0.867246686843546i, -0.788765741891382+0.508717463380604i, -0.228835546857432-0.349587041980114i, 0.500139791176978-0.016703152458872i, 0.15619107374708-0.485402548890295i, -0.369039310626083+0.398423724273751i, 0+0i, -0.399467692630093-0.421179989556223i, 0.411274074028001+0.133781691724871i, 0.573364366690245+0.328833257005489i, 0+0i, 0.387209171815106+0.750271083217101i, 0+0i, 0+0i, -0.168543113030619+0.43048451175239i, 0+0i, 0.388005062566602-0.290649953587954i, -0.013004326537709-0.490434895455784i, 0.069845221019376-0.762134635168809i, 0+0i, 0.27384734040072+0.383667165938905i, 0+0i, -0.894951082455532+0.317442909372288i, 0.5073401683933-0.213001485168032i, 0+0i, -0.343169835663372+0.597359384628839i, -0.283179001991236-0.385834501657171i, -0.517794900198098-0.36732932802092i));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength26_48abde75e1aa7d159270fa39ef5d6099() {
+ assertEval("argv <- list(structure(list(sec = numeric(0), min = integer(0), hour = integer(0), mday = integer(0), mon = integer(0), year = integer(0), wday = integer(0), yday = integer(0), isdst = integer(0)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength27_bda867ccdd04e5a2b1840d527dcde9c4() {
+ assertEval("argv <- list(c(FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength28_c97d155abc2b8f1850dad9e0d5d18233() {
+ assertEval("argv <- list(structure(list(A = c(1, NA, 1), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA_integer_, NA_integer_, NA_integer_), E = c(FALSE, NA, TRUE), F = c('abc', NA, 'def')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength29_ab5bb4e6b7a00d8483025f10d34c8a00() {
+ assertEval("argv <- list(list(structure(list(srcfile = c('/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R'), frow = 122:123, lrow = 122:123), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'), structure(list(srcfile = '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R', frow = 124L, lrow = 124L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength3_fb936f411c3de80b60a56e700117f1e3() {
+ assertEval("argv <- list(structure(' \'Le français, c'est façile: Règles, Liberté, Egalité, Fraternité...\')\n', Rd_tag = 'RCODE'));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength30_dd28151021a91fbc9f4aaffcbe802583() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1, 1, 1), `Sum of Sq` = c(NA, 820.907401534698, 26.7893827563485, 9.93175377572661), RSS = c(47.9727294003871, 868.880130935086, 74.7621121567356, 57.9044831761137), AIC = c(24.9738836085411, 60.6293256496563, 28.7417044039189, 25.4199908988691)), .Names = c('Df', 'Sum of Sq', 'RSS', 'AIC'), row.names = c('<none>', '- x1', '- x2', '- x4'), class = c('anova', 'data.frame')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength31_a7415ccc9043f2c6f9eda5d18dac24c8() {
+ assertEval("argv <- list(list(structure(c(30.3398431424662, 53.0273088677942, 11.6721423374092, 3.1219098789343, 9.58888402166762, 41.0027598267751, 8.26816396385794, 46.7997906867199, 7.96616780447507, 27.2952699050281, 7.05399789883986, 5.03904688224502, 2.61409832611023, 14.9537930856989, 7.22312484916424, 8.25480759597494, 37.7467076615774, 65.972863357068, 14.5216619125438, 3.88406159493231, 10.6419076139158, 45.5055646732323, 9.17614988785547, 51.9392087455927, 7.84624470450625, 26.8843655076016, 6.94780665155944, 4.96318881123281, 2.45558360989303, 14.0470191347445, 6.78512618085463, 7.75424934595279), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32')), 2.22044604925031e-16));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength32_cf4d43f1ad6d5ed45759331530072503() {
+ assertEval("argv <- list(structure(c(78796800, 94694400, 126230400, 157766400, 189302400, 220924800, 252460800, 283996800, 315532800, 362793600, 394329600, 425865600, 489024000, 567993600, 631152000, 662688000, 709948800, 741484800, 773020800, 820454400, 867715200, 915148800, 1136073600, 1230768000, 1341100800), class = c('POSIXct', 'POSIXt')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength33_ba0e63404765da175661379aa4ea511b() {
+ assertEval("argv <- list(c(1.03711990677284e+29, 4.58346574364236e+27, 2.02562481791768e+26, 8.95208153058638e+24, 3.95629847255715e+23, 1.7484534240517e+22, 7.7271454561408e+20, 34149480972585590784, 1509208102926327040, 66698206089453432, 2947672264272576, 130269967045726, 5757178273805.44, 254434569303.796, 11244672651.0134, 496975017.177538, 21967997.2327598, 971670.715389718, 43086.3667907314, 1929.95757399166, 90.0797181275922, 5.03402841668789, 0.625146618950265, -0.304867530220417, -0.123332207492738, 0.0884498083502638, 0.0243523396488189, -0.0527015109337102, -3.68088311960635e-05, -0.0351989174304481, 0.024656114194774));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength34_0ca346ad2e372d804830373668004383() {
+ assertEval("argv <- list(structure(c('1.0', NA, NA, 'methods, graphics, pkgA', NA, NA, NA, 'GPL (>= 2)', NA, NA, NA, NA, NA, NA, 'R 3.0.1; ; 2014-03-17 18:49:56 UTC; unix'), .Names = c('Version', NA, NA, 'Imports', NA, NA, NA, 'License', NA, NA, NA, NA, NA, NA, 'Built')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength35_d7413460d341d304da1390df666b760b() {
+ assertEval("argv <- list(structure(c(-1, 0, 1, 2, 3), .Tsp = c(-1, 3, 1)));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength4_8db75decea0f9cad725875ec9edecc41() {
+ assertEval("argv <- list(structure(list(a = 6:10), .Names = 'a', row.names = 6:10, class = 'data.frame'));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength5_bea1d3b9768614cdcd4d033fb443548f() {
+ assertEval("argv <- list(structure(list(`log(x)` = c(0, 0.693147180559945, 1.09861228866811, 1.38629436111989, 1.6094379124341, 1.79175946922805, 1.94591014905531, 2.07944154167984, 2.19722457733622, 2.30258509299405, 2.39789527279837, 2.484906649788, 2.56494935746154, 2.63905732961526, 2.70805020110221, 2.77258872223978, 2.83321334405622, 2.89037175789616, 2.94443897916644, 2.99573227355399, 3.04452243772342, 3.09104245335832, 3.13549421592915, 3.17805383034795, 3.2188758248682, 3.25809653802148, 3.29583686600433, 3.3322045101752, 3.36729582998647, 3.40119738166216, 3.43398720448515, 3.46573590279973, 3.49650756146648, 3.52636052461616, 3.55534806148941, 3.58351893845611, 3.61091791264422, 3.63758615972639, 3.66356164612965, 3.68887945411394, 3.71357206670431, 3.73766961828337, 3.76120011569356, 3.78418963391826, 3.80666248977032, 3.8286413964891, 3.85014760171006, 3.87120101090789, 3.89182029811063, 3.91202300542815, 3.93182563272433, 3.95124371858143, 3.97029191355212, 3.98898404656427, 4.00733318523247, 4.02535169073515, 4.04305126783455, 4.06044301054642, 4.07753744390572, 4.0943445622221, 4.11087386417331, 4.12713438504509, 4.14313472639153, 4.15888308335967, 4.17438726989564, 4.18965474202643, 4.20469261939097, 4.21950770517611, 4.23410650459726, 4.24849524204936, 4.26267987704132, 4.27666611901606, 4.29045944114839, 4.30406509320417, 4.31748811353631, 4.33073334028633, 4.34380542185368, 4.35670882668959, 4.36944785246702, 4.38202663467388, 4.39444915467244, 4.40671924726425, 4.4188406077966, 4.43081679884331, 4.44265125649032, 4.45434729625351, 4.46590811865458, 4.47733681447821, 4.48863636973214, 4.49980967033027, 4.51085950651685, 4.52178857704904, 4.53259949315326, 4.54329478227, 4.55387689160054, 4.56434819146784, 4.57471097850338, 4.58496747867057, 4.59511985013459, 4.60517018598809), `log(z)` = c(2.39789527279837, 2.484906649788, 2.56494935746154, 2.63905732961526, 2.70805020110221, 2.77258872223978, 2.83321334405622, 2.89037175789616, 2.94443897916644, 2.99573227355399, 3.04452243772342, 3.09104245335832, 3.13549421592915, 3.17805383034795, 3.2188758248682, 3.25809653802148, 3.29583686600433, 3.3322045101752, 3.36729582998647, 3.40119738166216, 3.43398720448515, 3.46573590279973, 3.49650756146648, 3.52636052461616, 3.55534806148941, 3.58351893845611, 3.61091791264422, 3.63758615972639, 3.66356164612965, 3.68887945411394, 3.71357206670431, 3.73766961828337, 3.76120011569356, 3.78418963391826, 3.80666248977032, 3.8286413964891, 3.85014760171006, 3.87120101090789, 3.89182029811063, 3.91202300542815, 3.93182563272433, 3.95124371858143, 3.97029191355212, 3.98898404656427, 4.00733318523247, 4.02535169073515, 4.04305126783455, 4.06044301054642, 4.07753744390572, 4.0943445622221, 4.11087386417331, 4.12713438504509, 4.14313472639153, 4.15888308335967, 4.17438726989564, 4.18965474202643, 4.20469261939097, 4.21950770517611, 4.23410650459726, 4.24849524204936, 4.26267987704132, 4.27666611901606, 4.29045944114839, 4.30406509320417, 4.31748811353631, 4.33073334028633, 4.34380542185368, 4.35670882668959, 4.36944785246702, 4.38202663467388, 4.39444915467244, 4.40671924726425, 4.4188406077966, 4.43081679884331, 4.44265125649032, 4.45434729625351, 4.46590811865458, 4.47733681447821, 4.48863636973214, 4.49980967033027, 4.51085950651685, 4.52178857704904, 4.53259949315326, 4.54329478227, 4.55387689160054, 4.56434819146784, 4.57471097850338, 4.58496747867057, 4.59511985013459, 4.60517018598809, 4.61512051684126, 4.62497281328427, 4.63472898822964, 4.64439089914137, 4.65396035015752, 4.66343909411207, 4.67282883446191, 4.68213122712422, 4.69134788222914, 4.70048036579242)), .Names = c('log(x)', 'log(z)'), class = 'data.frame', row.names = c(NA, 100L), terms = quote(~log(x) + log(z))));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength6_5059a25bf1b1d3661d481a4ea56e7924() {
+ assertEval("argv <- list(list('Residuals vs Fitted', 'Normal Q-Q', 'Scale-Location', 'Cook's distance', 'Residuals vs Leverage', expression('Cook's dist vs Leverage ' * h[ii]/(1 - h[ii]))));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength7_55a83c0818d69a7b7df3c3826e85718b() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(20L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 19L, 19L, 19L, 20L, 20L, 20L, 19L, 20L, 19L, 19L, 19L, 20L), mday = c(30L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 30L, 30L, 30L, 30L, 31L, 31L, 31L, 30L, 30L, 30L, 31L, 30L, 31L, 31L, 31L, 30L), mon = c(5L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 5L, 5L, 5L, 5L, 11L, 11L, 11L, 5L, 5L, 5L, 11L, 5L, 11L, 11L, 11L, 5L), year = c(72L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 81L, 82L, 83L, 85L, 87L, 89L, 90L, 92L, 93L, 94L, 95L, 97L, 98L, 105L, 108L, 112L), wday = c(5L, 0L, 1L, 2L, 3L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 0L, 4L, 0L, 1L, 2L, 3L, 4L, 0L, 1L, 4L, 6L, 3L, 6L), yday = c(181L, 365L, 364L, 364L, 364L, 365L, 364L, 364L, 364L, 180L, 180L, 180L, 180L, 364L, 364L, 364L, 181L, 180L, 180L, 364L, 180L, 364L, 364L, 365L, 181L), isdst = c(1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 1L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength8_736bdb3eaa2236c08ce3e04c3b76b5e2() {
+ assertEval("argv <- list(complex(0));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlength_testlength9_e4ba5d4bf05853e0cd04b88b4b83c679() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));length(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlengthassign_testlengthassign1_1481d9482e1473ce157eb39230fd0d48() {
+ assertEval("argv <- list(c('A', 'B'), value = 5);`length<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlengthassign_testlengthassign2_4b74e5d4e2ac239ec628941b8135d6b2() {
+ assertEval("argv <- list(list(list(2, 2, 6), list(2, 2, 0)), value = 0);`length<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlengthassign_testlengthassign3_fb7e9cceeb4e47802113806aa49cb1a4() {
+ assertEval("argv <- list(list(list(2, 2, 6), list(1, 3, 9), list(1, 3, -1)), value = 1);`length<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlengthassign_testlengthassign4_8dce4e78e2538e574d9a637fd328c8de() {
+ assertEval("argv <- list(c(28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1), value = 0L);`length<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlengthassign_testlengthassign5_6fada3a1873cba1852cb1cddccd5e4a8() {
+ assertEval("argv <- list(c(0L, 1L, 2L, 3L, 4L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 5L, 6L), value = 0L);`length<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlengthassign_testlengthassign6_ca074e784907db67ace5265cf4864a14() {
+ assertEval("argv <- list(list(), value = 0L);`length<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlevelsassign_testlevelsassign1_32eaaa5f66a2124bd48f233b7d004572() {
+ assertEval("argv <- list(structure(1:2, .Label = c('a', 'b'), class = 'factor'), value = structure(list(C = 'C', A = 'a', B = 'b'), .Names = c('C', 'A', 'B')));`levels<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlevelsassign_testlevelsassign2_87535052709adcabc481eb8c7a94c28b() {
+ assertEval("argv <- list(structure(c(24L, 13L, 15L, 68L, 39L, 74L, 22L, 1L, 8L, 55L, 24L, 20L, 51L, 13L, 3L, 4L, 5L, 6L, 15L, 2L, 8L, 60L, 67L, 23L, 58L, 24L, 22L, 21L, 37L, 74L, 59L, 39L, 14L, 14L, 19L, 23L, 70L, 21L, 22L, 31L, 29L, 30L, 45L, 58L, 17L, 7L, 19L, 26L, 39L, 74L, 57L, 59L, 12L, 72L, 70L, 37L, 64L, 16L, 18L, 21L, 22L, 8L, 62L, 61L, 63L, 71L, 105L, 64L, 10L, 41L, 8L, 27L, 11L, 34L, 32L, 33L, 68L, 107L, NA, 66L, NA, 65L, 48L, 52L, 43L, 47L, 46L, 44L, 41L, 54L, 28L, 50L, 40L, NA, 69L, NA, 75L, 109L, NA, 86L, 112L, 110L, 104L, 24L, 111L, 87L, NA, NA, 92L, 73L, 85L, 90L, 89L, NA, 83L, NA, 102L, NA, 108L, 88L, 91L, 93L, NA, 94L, 84L, NA, 106L, NA, 95L, 82L, 56L, 87L, 109L, 75L, 104L, 110L, 112L, 111L, 24L, 73L, 85L, 86L, 90L, 89L, 102L, 88L, 92L, 9L, 49L, 42L, 38L, 35L, 36L, 25L, NA, NA, 9L, 49L, 42L, NA, 36L, 38L, 25L, 53L, 79L, 78L, 103L, 77L, 80L, 114L, 97L, 113L, 76L, 96L, 81L, 116L, 99L, 117L, 115L, 98L, 101L, 100L), .Label = c('1008', '1011', '1013', '1014', '1015', '1016', '1027', '1028', '1030', '1032', '1051', '1052', '1083', '1093', '1095', '1096', '110', '1102', '111', '1117', '112', '113', '116', '117', '1219', '125', '1250', '1251', '126', '127', '128', '1291', '1292', '1293', '1298', '1299', '130', '1308', '135', '1376', '1377', '1383', '1408', '1409', '141', '1410', '1411', '1413', '1418', '1422', '1438', '1445', '1456', '1492', '2001', '2316', '262', '266', '269', '270', '2708', '2714', '2715', '272', '2728', '2734', '280', '283', '286', '290', '3501', '411', '412', '475', '5028', '5042', '5043', '5044', '5045', '5047', '5049', '5050', '5051', '5052', '5053', '5054', '5055', '5056', '5057', '5058', '5059', '5060', '5061', '5062', '5066', '5067', '5068', '5069', '5070', '5072', '5073', '5115', '5160', '5165', '655', '724', '885', '931', '942', '952', '955', '958', 'c118', 'c168', 'c203', 'c204', 'c266'), class = 'factor'), value = c('1008', '1011', '1013', '1014', '1015', '1016', '1027', '1028', '1030', '1032', '1051', '1052', '1083', '1093', '1095', '1096', '110', '1102', '111', '1117', '112', '113', '116', 'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz', '1219', '125', '1250', '1251', '126', '127', '128', '1291', '1292', '1293', '1298', '1299', '130', '1308', '135', '1376', '1377', '1383', '1408', '1409', '141', '1410', '1411', '1413', '1418', '1422', '1438', '1445', '1456', '1492', '2001', '2316', '262', '266', '269', '270', '2708', '2714', '2715', '272', '2728', '2734', '280', '283', '286', '290', '3501', '411', '412', '475', '5028', '5042', '5043', '5044', '5045', '5047', '5049', '5050', '5051', '5052', '5053', '5054', '5055', '5056', '5057', '5058', '5059', '5060', '5061', '5062', '5066', '5067', '5068', '5069', '5070', '5072', '5073', '5115', '5160', '5165', '655', '724', '885', '931', '942', '952', '955', '958', 'c118', 'c168', 'c203', 'c204', 'c266'));`levels<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlevelsassign_testlevelsassign4_2f1ede8e983680131664ece8e9e96e2e() {
+ assertEval("argv <- list(structure(c(1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L), .Label = c('1', '2', '3'), class = 'factor'), value = structure(list(A = c(1, 3), B = 2), .Names = c('A', 'B')));`levels<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlevelsassign_testlevelsassign5_934190e4c01e8683a4f138e15ee5129f() {
+ assertEval("argv <- list(structure(FALSE, .Label = FALSE), FALSE);`levels<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlevelsassign_testlevelsassign6_76f3c73d8ae11833c5a065ddae27d835() {
+ assertEval("argv <- list(NULL, NULL);`levels<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlevelsassign_testlevelsassign7_232e9f1995c24d418cd95448f6b30997() {
+ assertEval("argv <- list(structure(list(), .Label = list()), list());`levels<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlgamma_testlgamma1_e95a91f28a8a65ed9285324833de381f() {
+ assertEval("argv <- list(structure(c(2, 1, 1, 1, 3, 1, 1, 1, 4), .Dim = c(3L, 3L)));lgamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlgamma_testlgamma2_541d5022d92bebe4392512ddba8a4fe5() {
+ assertEval("argv <- list(structure(c(2, 3, 2, 1, 4, 4, 7, 2, 11, 11, 15, 10, 7, 8, 13, 12), .Dim = c(4L, 4L), .Dimnames = structure(list(income = c('< 15k', '15-25k', '25-40k', '> 40k'), satisfaction = c('VeryD', 'LittleD', 'ModerateS', 'VeryS')), .Names = c('income', 'satisfaction'))));lgamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlgamma_testlgamma3_e1f937d8e3d529f3446a378b383421db() {
+ assertEval("argv <- list(1.72926007700446);lgamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlgamma_testlgamma4_fea0f0854c103e5b079d4af35013e0a7() {
+ assertEval("argv <- list(0.999935539560166);lgamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlgamma_testlgamma5_d46e90324c6f0cef7d5ecc4ea27da104() {
+ assertEval("argv <- list(FALSE);lgamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlgamma_testlgamma6_2cf9fc6844d0327b2c4b1b109635cc7f() {
+ assertEval("argv <- list(numeric(0));lgamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlgamma_testlgamma7_6c68b8e517127bdb8de22aa4b23c1458() {
+ assertEval("argv <- list(structure(c(11.4065045686104, 9.40650456861037, 8.40650456861037, 11.4065045686104, 9.40650456861037, 6.40650456861036, 15.4065045686104, 9.40650456861037, 9.40650456861037, 8.40650456861037, 6.40650456861036, 7.40650456861036, 8.40650456861037, 7.40650456861036, 9.40650456861037, 13.4065045686104, 10.4065045686104, 11.4065045686104, 14.4065045686104, 10.4065045686104, 16.4065045686104, 10.4065045686104, 7.40650456861036, 9.40650456861037, 7.40650456861036, 13.4065045686104, 17.4065045686104, 4.40650456861036, 10.4065045686104, 5.40650456861036, 6.40650456861036, 4.40650456861036, 5.40650456861036, 4.40650456861036, 4.40650456861036, 8.40650456861037, 9.40650456861037, 5.40650456861036, 9.40650456861037, 7.40650456861036, 7.40650456861036, 8.40650456861037), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42')));lgamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist1_65944132382d44701c1261f0a0b25eee() {
+ assertEval("argv <- list(surname = structure(c('McNeil', 'Ripley', 'Ripley', 'Tierney', 'Tukey', 'Venables', 'R Core'), class = 'AsIs'), nationality = structure(c('Australia', 'UK', 'UK', 'US', 'US', 'Australia', NA), class = 'AsIs'), deceased = structure(c('no', 'no', 'no', 'no', 'yes', 'no', NA), class = 'AsIs'), title = structure(c('Interactive Data Analysis', 'Spatial Statistics', 'Stochastic Simulation', 'LISP-STAT', 'Exploratory Data Analysis', 'Modern Applied Statistics ...', 'An Introduction to R'), class = 'AsIs'), other.author = structure(c(NA, NA, NA, NA, NA, 'Ripley', 'Venables & Smith'), class = 'AsIs'));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist10_0d91de5fcb12ceb1b94df1e95266e389() {
+ assertEval("argv <- list(linkfun = function (mu) .Call(C_logit_link, mu), linkinv = function (eta) .Call(C_logit_linkinv, eta), mu.eta = function (eta) .Call(C_logit_mu_eta, eta), valideta = function (eta) TRUE, name = 'logit');list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist11_606357090d4876929a9f1b147d4d012b() {
+ assertEval("argv <- list(linkfun = function (mu) log(mu), linkinv = function (eta) pmax(exp(eta), .Machine$double.eps), mu.eta = function (eta) pmax(exp(eta), .Machine$double.eps), valideta = function (eta) TRUE, name = 'log');list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist12_c9a9c06a59bcfbcc26056a024fa8f34b() {
+ assertEval("argv <- list(class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(2, numeric()))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist13_e0df2faaf5e788dce11bc91c59bea571() {
+ assertEval("argv <- list(class = 'try-error', condition = structure(list(message = 'undefined columns selected', call = quote(`[.data.frame`(dd, , 'x'))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist14_9d1e92da0bd42ea748d9dfddfdaec73b() {
+ assertEval("argv <- list(error = function (e) -1);list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist15_2d8f9ab564302c573c8f25ed43ea614a() {
+ assertEval("argv <- list(error = function (e) warning(gettextf('%s namespace cannot be unloaded:\n ', sQuote(pkgname)), conditionMessage(e), call. = FALSE, domain = NA));list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist16_fcd9aa17d77c957c43e29af4028b0ba2() {
+ assertEval("argv <- list(aa = structure(c('1', '2', '3'), class = 'AsIs'), ..dfd.row.names = structure(c('4', '5', '6', '7', '8', '9'), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('a', 'b'))));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist17_5260c9430ad2029dd0d65545cdb9ddf6() {
+ assertEval("argv <- list(deviance.resid = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), coefficients = structure(logical(0), .Dim = c(0L, 4L), .Dimnames = list(NULL, c('Estimate', 'Std. Error', 't value', 'Pr(>|t|)'))), aliased = structure(TRUE, .Names = 'x'), dispersion = 0.274035772634541, df = c(0L, 10L, 1L), cov.unscaled = structure(logical(0), .Dim = c(0L, 0L)), cov.scaled = structure(logical(0), .Dim = c(0L, 0L)));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist18_9373dc5de31b96619dee3afffa3c1d99() {
+ assertEval("argv <- list(date = structure(1065672000, class = c('POSIXct', 'POSIXt'), tzone = ''));list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist19_29ed23ccf1ca95ee0a511ae40ef50e31() {
+ assertEval("argv <- list(arguments = structure('object', simpleOnly = TRUE), generic = structure(function (object) standardGeneric('show'), generic = structure('show', package = 'methods'), package = 'methods', group = list(), valueClass = character(0), signature = structure('object', simpleOnly = TRUE), default = structure(function (object) showDefault(object, FALSE), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'object', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'object', package = 'methods'), generic = structure('show', package = 'methods'), class = structure('derivedDefaultMethod', package = 'methods')), skeleton = quote((function (object) showDefault(object, FALSE))(object)), class = structure('standardGeneric', package = 'methods')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist2_79f3cfd82a7b2ff7a9e2638890c47890() {
+ assertEval("argv <- list(`_R_NS_LOAD_` = structure('survival', .Names = 'name'));list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist20_ceb11b13da5bb4a3654ebbde24fbe656() {
+ assertEval("argv <- list('Residuals vs Fitted', 'Normal Q-Q', 'Scale-Location', 'Cook's distance', 'Residuals vs Leverage', expression('Cook's dist vs Leverage ' * h[ii]/(1 - h[ii])));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist21_4d399388cb66e8dc6719b175b6bad72f() {
+ assertEval("argv <- list(Df = structure(c(NA, 2, 1), .Names = c('<none>', 'Soft', 'M.user:Temp')), Deviance = structure(c(8.44399377410362, 8.2279889309135, 5.65604443125997), .Names = c('<none>', 'Soft', 'M.user:Temp')), AIC = structure(c(72.1419514890413, 75.9259466458512, 71.3540021461976), .Names = c('<none>', 'Soft', 'M.user:Temp')));list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist22_f8a01089f8b49a095631588012c7523a() {
+ assertEval("argv <- list(structure(TRUE, .Dim = c(1L, 1L)));list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist23_263a4a24553cb6d6be3064b518bd40c8() {
+ assertEval("argv <- list(V1 = c(1L, 1L, 2L, 3L), V2 = structure(c(1L, 1L, 2L, 3L), .Label = c('A', 'D', 'E'), class = 'factor'), V3 = c(6, 6, 9, 10));list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist24_63693ede58a1f13ade4fef7fa41e43d4() {
+ assertEval("argv <- list(structure(1:5, .Tsp = c(-1, 3, 1), class = 'ts'), structure(1:5, .Tsp = c(1, 5, 1), class = 'ts'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist25_4ecd613920cab7b38e6e0da43bbb3b69() {
+ assertEval("argv <- list(structure(list(x = 1L, y = structure(1L, .Label = c('A', 'D', 'E'), class = 'factor'), z = 6), .Names = c('x', 'y', 'z'), row.names = 1L, class = 'data.frame'), structure(list(), .Names = character(0), row.names = 1L, class = 'data.frame'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist26_c29455e4cb5728a6620b481d828e99a2() {
+ assertEval("argv <- list(1L, 3.14159265358979, 3+5i, 'testit', TRUE, structure(1L, .Label = 'foo', class = 'factor'));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist27_07f5ff63af8a66f0ff454aec8a76e873() {
+ assertEval("argv <- list(structure(c(24L, 13L, 15L, 68L, 39L, 74L, 22L, 1L, 8L, 55L, 24L, 20L, 51L, 13L, 3L, 4L, 5L, 6L, 15L, 2L, 8L, 60L, 67L, 23L, 58L, 24L, 22L, 21L, 37L, 74L, 59L, 39L, 14L, 14L, 19L, 23L, 70L, 21L, 22L, 31L, 29L, 30L, 45L, 58L, 17L, 7L, 19L, 26L, 39L, 74L, 57L, 59L, 12L, 72L, 70L, 37L, 64L, 16L, 18L, 21L, 22L, 8L, 62L, 61L, 63L, 71L, 105L, 64L, 10L, 41L, 8L, 27L, 11L, 34L, 32L, 33L, 68L, 107L, NA, 66L, NA, 65L, 48L, 52L, 43L, 47L, 46L, 44L, 41L, 54L, 28L, 50L, 40L, NA, 69L, NA, 75L, 109L, NA, 86L, 112L, 110L, 104L, 24L, 111L, 87L, NA, NA, 92L, 73L, 85L, 90L, 89L, NA, 83L, NA, 102L, NA, 108L, 88L, 91L, 93L, NA, 94L, 84L, NA, 106L, NA, 95L, 82L, 56L, 87L, 109L, 75L, 104L, 110L, 112L, 111L, 24L, 73L, 85L, 86L, 90L, 89L, 102L, 88L, 92L, 9L, 49L, 42L, 38L, 35L, 36L, 25L, NA, NA, 9L, 49L, 42L, NA, 36L, 38L, 25L, 53L, 79L, 78L, 103L, 77L, 80L, 114L, 97L, 113L, 76L, 96L, 81L, 116L, 99L, 117L, 115L, 98L, 101L, 100L), .Label = c('1008', '1011', '1013', '1014', '1015', '1016', '1027', '1028', '1030', '1032', '1051', '1052', '1083', '1093', '1095', '1096', '110', '1102', '111', '1117', '112', '113', '116', '117', '1219', '125', '1250', '1251', '126', '127', '128', '1291', '1292', '1293', '1298', '1299', '130', '1308', '135', '1376', '1377', '1383', '1408', '1409', '141', '1410', '1411', '1413', '1418', '1422', '1438', '1445', '1456', '1492', '2001', '2316', '262', '266', '269', '270', '2708', '2714', '2715', '272', '2728', '2734', '280', '283', '286', '290', '3501', '411', '412', '475', '5028', '5042', '5043', '5044', '5045', '5047', '5049', '5050', '5051', '5052', '5053', '5054', '5055', '5056', '5057', '5058', '5059', '5060', '5061', '5062', '5066', '5067', '5068', '5069', '5070', '5072', '5073', '5115', '5160', '5165', '655', '724', '885', '931', '942', '952', '955', '958', 'c118', 'c168', 'c203', 'c204', 'c266'), class = 'factor'));list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist28_a79fa150e524419f2c7f8e0a51f5a30f() {
+ assertEval("argv <- list(3.14159265358979, 'C', NaN, Inf, 1:3, c(0, NA), NA);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist29_34d4615e7ae4dcbb36f04e41af7ce028() {
+ assertEval("argv <- list(assign = c(0L, 1L, 1L, 1L), qr = structure(list(qr = structure(c(-28.8270706107991, 0.273146306828071, 0.312206540911182, 0.247733407426682, 0.216636580341913, 0.0849718577324175, 0.298411357268471, 0.294351149612123, 0.247733407426682, 0.308328048219576, 0.125075187976724, 0.138758462627192, 0.190002850064127, 0.1835601922086, 0.232705016165824, 0.069379231313596, 0.120168353625222, 0.222121918799273, 0.190002850064127, 0.247733407426682, 0.0917800961043001, -10.2334366187554, 13.7940847818881, 0.190374922931528, 0.151060987411652, 0.132099001405849, -0.125761881229701, -0.441661211981173, -0.435651935890569, -0.366655739827817, -0.45633832676795, -0.185116476853374, 0.084611076858457, 0.115858488525451, 0.111929933764425, 0.141897089628727, 0.0423055384292285, 0.0732753420009814, 0.13544380924692, 0.115858488525451, 0.151060987411652, 0.0559649668822123, -4.26682272578616, -3.16543363464969, 9.7352069177467, 0.118607830555703, 0.10371953900067, 0.00616533725634264, 0.0216519528674631, 0.0213573547475655, 0.0179748924786157, 0.0223714822011986, 0.00907513071804667, -0.344446140042991, -0.471652301867824, -0.45565941330494, -0.577653737792655, -0.172223070021495, 0.0575332486360618, 0.106345765721762, 0.0909680534393656, 0.118607830555703, 0.0439417444752447, -4.89123580760852, -3.62866782508622, -3.32364207119197, 9.63649238427318, 0.135617489972887, 0.00806142768852949, 0.0283108036266689, 0.0279256046761512, 0.0235028985277947, 0.0292516173165799, 0.0118661002643811, 0.0254562434016423, 0.0348573968510539, 0.0336754446773372, 0.0426914180233895, 0.0127281217008212, -0.284250391934964, -0.525414891452651, -0.449439332155022, -0.585997195035538, -0.217099822893807), assign = c(0L, 1L, 1L, 1L), contrasts = structure(list(trt = 'contr.treatment'), .Names = 'trt'), .Dim = c(21L, 4L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21'), c('(Intercept)', 'trt2', 'trt3', 'trt4'))), qraux = c(1.21663658034191, 1.16655707135303, 1.14947576464323, 1.15508453302121), pivot = 1:4, tol = 1e-07, rank = 4L), .Names = c('qr', 'qraux', 'pivot', 'tol', 'rank'), class = 'qr'), df.residual = 17L);list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist3_8edad12272a87d59515743661ee54343() {
+ assertEval("argv <- list(x = c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), y = c(3.69420518444359e+25, 2.30887824027777e+24, 1.44304890017492e+23, 9.01905562612606e+21, 5.63690976641081e+20, 35230686042118275072, 2201917878145066496, 137619867512235136, 8601241751556820, 537577617482832, 33598603095309.8, 2099913194115.17, 131244699796.888, 8202825028.58974, 512684387.219832, 32044730.0464007, 2003284.70114408, 125327.674230857, 7863.68742857025, 499.272560819512, 33.2784230289721, 2.7659432263306, 0.488936768533843, -0.282943224311172, 7.32218543045282e-05, -0.00636442868227041, -0.0483709204009262, -0.0704795507649514, 0.0349437746169591, -0.0264830837608839, 0.0200901469411759), xlab = NULL, ylab = NULL);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist30_f4754177d06cebd5d79b82e41866666d() {
+ assertEval("argv <- list(function (x, i, j, ...) x@aa[[i]]);list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist31_787ffb18410a33d3e9f4b0023b38fec6() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = 2:3, .Dimnames = list(NULL, c('a', 'b', 'c'))), structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L, 5L)), TRUE);list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist32_797fed8ad8319694c26d1d29321f4b05() {
+ assertEval("argv <- list(structure(function (e1, e2) standardGeneric('Ops'), generic = structure('Ops', package = 'base'), package = 'base', group = list(), valueClass = character(0), signature = c('e1', 'e2'), default = quote(`\001NULL\001`), skeleton = quote((function (e1, e2) stop('invalid call in method dispatch to 'Ops' (no default method)', domain = NA))(e1, e2)), groupMembers = list('Arith', 'Compare', 'Logic'), class = structure('groupGenericFunction', package = 'methods')));list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist33_406d36e77264830713bc65f7f714ff95() {
+ assertEval("argv <- list(tables = structure(list(`Grand mean` = 103.87323943662, N = structure(c(78.7365206866197, 98.5088731171753, 113.842206450509, 123.008873117175), .Dim = 4L, .Dimnames = structure(list(N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = 'N'), class = 'mtable'), `V:N` = structure(c(79.5323303457107, 86.1989970123773, 69.7732394366197, 98.0323303457106, 108.032330345711, 89.1989970123773, 114.198997012377, 116.698997012377, 110.365663679044, 124.365663679044, 126.365663679044, 118.032330345711), .Dim = 3:4, .Dimnames = structure(list(V = c('Golden.rain', 'Marvellous', 'Victory'), N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = c('V', 'N')), class = 'mtable')), .Names = c('Grand mean', 'N', 'V:N')), n = structure(list(N = structure(c(17, 18, 18, 18), .Dim = 4L, .Dimnames = structure(list(N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = 'N')), `V:N` = structure(c(6, 6, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6), .Dim = 3:4, .Dimnames = structure(list(V = c('Golden.rain', 'Marvellous', 'Victory'), N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = c('V', 'N')))), .Names = c('N', 'V:N')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist34_a5fd3bcd29b52fea51a2ac4e060853d8() {
+ assertEval("argv <- list(itemBullet = '• ');list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist35_50462cb2c743764a9dafd135bfb1acec() {
+ assertEval("argv <- list(class = 'try-error', condition = structure(list(message = 'more columns than column names', call = quote(read.table('foo6', header = TRUE))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist36_87e5f530ae12133d74365a5addcaa350() {
+ assertEval("argv <- list(name = 'list', objs = structure(list(`package:base` = .Primitive('list'), .Primitive('list')), .Names = c('package:base', '')), where = c('package:base', 'namespace:base'), visible = c(TRUE, FALSE), dups = c(FALSE, TRUE));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist37_1c436ec1fd79c3179b14c6b4bbdb2ba9() {
+ assertEval("argv <- list(structure(-1.81670076485116, .Names = '5%'), structure(c(-0.569903669351869, -3.58817618394987, 1.7002237104195, 0.247262299686774, -1.6099565644337, -0.117004990933267, 2.26201852051082, 1.27765184061634, -0.585159452768219, 0.777745165779344, -0.299055554574658, -0.10613560158199, -0.96347850905908, 2.01298478288055, -0.65898967614864, 0.497719980170775, 0.113843920033269, -0.766958149949393, 3.9222560854539, -0.936533336103743, 0.287536526568389, -1.36853788163704, 0.875060974238616, 6.63795852562496, -1.7181964535622, -1.84566355665129, -2.51563250429738, -0.197885450775488, 0.343408036526242, 0.0203380393884578, 0.207160904400713, 0.869565410777187, -0.815315222368209, -0.0998963343276999, 0.656114271672876, 1.27566552196184, 0.0658788246994603, -1.69200573781689, -0.0369929356350034, -0.342061734014624, 0.31798622848054, -1.52242182038666, -1.33617654990952, 0.0175687049379899, -0.093090859182165, -0.0507330478224399, -0.431715933999334, 0.37428759377223, -1.51710077889452, 0.148230661369186, 0.214909263767934, 0.178494903424769, -2.69339417614172, 0.644025806665703, -0.287978582462478, 3.36345700350871, 1.39656784449323, -0.344866954524567, -0.270662469024608, -1.32424067954204), .Dim = 60L, .Dimnames = list(c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))), c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L));list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist38_884f5056f11619f1d3003cba61fbbb5e() {
+ assertEval("argv <- list(srcfile = '/home/lzhao/hg/r-instrumented/library/utils/R/utils', frow = 1271L, lrow = 1273L);list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist39_6b37a56e317d3893c6da994c28fc51cb() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils'), frow = c(6889L, 6893L, 6897L, 6901L, 6902L, 6903L, 6903L, 6917L, 6918L, 6919L, 6919L, 6927L, 6928L), lrow = c(6889L, 6893L, 6900L, 6901L, 6902L, 6903L, 6903L, 6917L, 6918L, 6919L, 6919L, 6927L, 6928L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 13L), class = 'data.frame'), structure(list( srcfile = '/home/lzhao/hg/r-instrumented/library/utils/R/utils', frow = 6928L, lrow = 6928L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist4_d9d0349db6a6cf11ebfa764878f9793a() {
+ assertEval("argv <- list(class = 'try-error', condition = structure(list(message = 'line 1 did not have 4 elements', call = quote(scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings, flush, fill, strip.white, quiet, blank.lines.skip, multi.line, comment.char, allowEscapes, encoding))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist40_2160e3cc6bceff5f47c039ebfaa38743() {
+ assertEval("argv <- list(x = c(190, 118, 149, 313, NA, NA, 299, 99, 19, 194, NA, 256, 290, 274, 65, 334, 307, 78, 322, 44, 8, 320, 25, 92, 66, 266, NA, 13, 252, 223, 279, 286, 287, 242, 186, 220, 264, 127, 273, 291, 323, 259, 250, 148, 332, 322, 191, 284, 37, 120, 137, 150, 59, 91, 250, 135, 127, 47, 98, 31, 138, 269, 248, 236, 101, 175, 314, 276, 267, 272, 175, 139, 264, 175, 291, 48, 260, 274, 285, 187, 220, 7, 258, 295, 294, 223, 81, 82, 213, 275, 253, 254, 83, 24, 77, NA, NA, NA, 255, 229, 207, 222, 137, 192, 273, 157, 64, 71, 51, 115, 244, 190, 259, 36, 255, 212, 238, 215, 153, 203, 225, 237, 188, 167, 197, 183, 189, 95, 92, 252, 220, 230, 259, 236, 259, 238, 24, 112, 237, 224, 27, 238, 201, 238, 14, 139, 49, 20, 193, 145, 191, 131, 223), y = c(7.4, 8, 12.6, 11.5, 14.3, 14.9, 8.6, 13.8, 20.1, 8.6, 6.9, 9.7, 9.2, 10.9, 13.2, 11.5, 12, 18.4, 11.5, 9.7, 9.7, 16.6, 9.7, 12, 16.6, 14.9, 8, 12, 14.9, 5.7, 7.4, 8.6, 9.7, 16.1, 9.2, 8.6, 14.3, 9.7, 6.9, 13.8, 11.5, 10.9, 9.2, 8, 13.8, 11.5, 14.9, 20.7, 9.2, 11.5, 10.3, 6.3, 1.7, 4.6, 6.3, 8, 8, 10.3, 11.5, 14.9, 8, 4.1, 9.2, 9.2, 10.9, 4.6, 10.9, 5.1, 6.3, 5.7, 7.4, 8.6, 14.3, 14.9, 14.9, 14.3, 6.9, 10.3, 6.3, 5.1, 11.5, 6.9, 9.7, 11.5, 8.6, 8, 8.6, 12, 7.4, 7.4, 7.4, 9.2, 6.9, 13.8, 7.4, 6.9, 7.4, 4.6, 4, 10.3, 8, 8.6, 11.5, 11.5, 11.5, 9.7, 11.5, 10.3, 6.3, 7.4, 10.9, 10.3, 15.5, 14.3, 12.6, 9.7, 3.4, 8, 5.7, 9.7, 2.3, 6.3, 6.3, 6.9, 5.1, 2.8, 4.6, 7.4, 15.5, 10.9, 10.3, 10.9, 9.7, 14.9, 15.5, 6.3, 10.9, 11.5, 6.9, 13.8, 10.3, 10.3, 8, 12.6, 9.2, 10.3, 10.3, 16.6, 6.9, 13.2, 14.3, 8, 11.5), xlab = NULL, ylab = NULL);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist41_c5b0b665bdce6d19b95fd76a087b6953() {
+ assertEval("argv <- list(properties = structure(list(.Data = 'numeric', comment = 'character'), .Names = c('.Data', 'comment')), prototype = structure(3.14159265358979, comment = 'Start with pi'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist42_9ebbfe4daa70ca2ef7e6172007134076() {
+ assertEval("argv <- list(structure(c(NA, NA, FALSE), .Names = c('perm', 'LDL', 'super')));list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist43_b64ca362409030a667ca156deb17fb99() {
+ assertEval("argv <- list(raster = structure('#000000', .Dim = c(1L, 1L), class = 'raster'), x = structure(0, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), width = NULL, height = NULL, just = 'centre', hjust = NULL, vjust = NULL, interpolate = TRUE, name = NULL, gp = structure(list(), class = 'gpar'), vp = NULL);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]],argv[[8]],argv[[9]],argv[[10]],argv[[11]],argv[[12]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist44_4a5d7768a000d47fabc9464a9ef26fb7() {
+ assertEval("argv <- list(trace = 0, fnscale = 1, parscale = 1, ndeps = 0.001, maxit = 100L, abstol = -Inf, reltol = 1.49011611938477e-08, alpha = 1, beta = 0.5, gamma = 2, REPORT = 10, type = 1, lmm = 5, factr = 1e+07, pgtol = 0, tmax = 10, temp = 10);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]],argv[[8]],argv[[9]],argv[[10]],argv[[11]],argv[[12]],argv[[13]],argv[[14]],argv[[15]],argv[[16]],argv[[17]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist45_72dab5449d87d4d567bf6a84441b8a5b() {
+ assertEval("argv <- list(error = function (...) {});list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist46_f1d3dc269e74b9cc9dc41830ba680647() {
+ assertEval("argv <- list(structure(list(srcfile = c(NA, '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R'), frow = c(NA, 832L, 833L, 834L, 842L, 845L, 845L, 849L, 858L, 860L, 862L, 863L), lrow = c(NA, 832L, 833L, 834L, 842L, 846L, 846L, 851L, 859L, 860L, 862L, 863L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 12L), class = 'data.frame'), structure(list( srcfile = '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', frow = 863L, lrow = 863L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist48_26d67bf37ae3bc21b10c95570f25244b() {
+ assertEval("argv <- list(structure(list(Month = c(5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L)), .Names = 'Month', class = 'data.frame', row.names = c(1L, 2L, 3L, 4L, 6L, 7L, 8L, 9L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 28L, 29L, 30L, 31L, 38L, 40L, 41L, 44L, 47L, 48L, 49L, 50L, 51L, 62L, 63L, 64L, 66L, 67L, 68L, 69L, 70L, 71L, 73L, 74L, 76L, 77L, 78L, 79L, 80L, 81L, 82L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L, 97L, 98L, 99L, 100L, 101L, 104L, 105L, 106L, 108L, 109L, 110L, 111L, 112L, 113L, 114L, 116L, 117L, 118L, 120L, 121L, 122L, 123L, 124L, 125L, 126L, 127L, 128L, 129L, 130L, 131L, 132L, 133L, 134L, 135L, 136L, 137L, 138L, 139L, 140L, 141L, 142L, 143L, 144L, 145L, 146L, 147L, 148L, 149L, 151L, 152L, 153L)));list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist49_28ca3680b9ecafefae85c2bef52ef2c8() {
+ assertEval("argv <- list(structure(list(stats = c(7, 35, 60, 80, 135), n = 26L, conf = c(46.0561427916751, 73.9438572083249), out = integer(0)), .Names = c('stats', 'n', 'conf', 'out')));list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist5_6fca78e57d388cc155e7fb56357c6e5d() {
+ assertEval("argv <- list(structure(list(Hair = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('Black', 'Brown', 'Red', 'Blond'), class = 'factor'), Eye = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L), .Label = c('Brown', 'Blue', 'Hazel', 'Green'), class = 'factor'), Sex = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Male', 'Female'), class = 'factor')), .Names = c('Hair', 'Eye', 'Sex'), out.attrs = structure(list(dim = structure(c(4L, 4L, 2L), .Names = c('Hair', 'Eye', 'Sex')), dimnames = structure(list(Hair = c('Hair=Black', 'Hair=Brown', 'Hair=Red', 'Hair=Blond'), Eye = c('Eye=Brown', 'Eye=Blue', 'Eye=Hazel', 'Eye=Green'), Sex = c('Sex=Male', 'Sex=Female')), .Names = c('Hair', 'Eye', 'Sex'))), .Names = c('dim', 'dimnames')), class = 'data.frame', row.names = c(NA, -32L)), Fr = c(32, 53, 10, 3, 11, 50, 10, 30, 10, 25, 7, 5, 3, 15, 7, 8, 36, 66, 16, 4, 9, 34, 7, 64, 5, 29, 7, 5, 2, 14, 7, 8));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist50_10b0daf050ae2f781bb97ae427b20730() {
+ assertEval("argv <- list('‘', 'Matrix', '’');list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist51_41e7fb6b4456303d154b8e3a8a4863a3() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist52_6835c28230d6b56ec666e683fbbebf58() {
+ assertEval("argv <- list(structure(1386392034.50546, class = c('POSIXct', 'POSIXt')));list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist53_eb76241f6d6432c150f4fb4dbcca24e9() {
+ assertEval("argv <- list(structure(list(sec = 54.5054557323456, min = 53L, hour = 23L, mday = 6L, mon = 11L, year = 113L, wday = 5L, yday = 339L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')));list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist54_84ecc4e1bb9ddeae41aea8fd438ee141() {
+ assertEval("argv <- list(values = c(0.266917355843816, 0.00557315714782281, 0.00229578896250102, 0.000615239459643172, 8.19421206363694e-05), vectors = structure(c(-0.452472222108953, -0.386550651250976, -0.453293999783174, -0.439775552409852, -0.496960255453506, -0.157430201026812, 0.910628681750865, -0.204120426456847, -0.072367418669335, -0.314752194584169, 0.437863914035591, 0.0975567326834968, -0.370843683888789, -0.67178336056532, 0.458192050652246, 0.752103796361061, -0.0893037594956476, 0.0198033027727173, 0.0214021063919376, -0.652314722415877, 0.114453887261006, -0.0619800003080987, -0.784182499538679, 0.591277842073673, 0.136040832629847), .Dim = c(5L, 5L)));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist55_597ad833137e56c8f697416c3a92b072() {
+ assertEval("argv <- list(object = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist56_82925c617c1df362116464d8fc7d6495() {
+ assertEval("argv <- list(class = 'data.frame', row.names = c(NA, 32L));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist57_abfd321152229b78af86a9b83cb8c3cd() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R'), frow = 164:165, lrow = c(164L, 169L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'), structure(list(srcfile = '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', frow = 170L, lrow = 177L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist58_6661234bd12ddd632ed34fb8e88598e7() {
+ assertEval("argv <- list(structure(FALSE, .Names = 'Series 1', .Tsp = c(0, 0, 1), class = 'ts'), structure(FALSE, .Names = 'Series 1', .Tsp = c(1, 1, 1), class = 'ts'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist59_ad6b0a2f60cb8fbea8659597bc59e579() {
+ assertEval("argv <- list(structure(FALSE, .Tsp = c(1, 1, 1), class = 'ts'), structure(FALSE, .Tsp = c(1, 1, 1), class = 'ts'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist6_93b61fc100f555c4e5c217b8c362ccf7() {
+ assertEval("argv <- list(deviance.resid = structure(c(0.979005810350303, 0.190415231217834, -0.262041786489909, -1.18856115310823, -0.0713326116251696, 0.258231444611709, 0.637403312181204, -1.72855514890285, -0.632723785156881, -0.819071604478243, 2.23780874325045, -0.472376375886729), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')), coefficients = structure(c(0.291009862544455, -0.575062166945441, 0.0881289026086606, 0.127412648101879, 3.30209334202984, -4.5133836829576, 0.00095966129066828, 6.38014475989249e-06), .Dim = c(2L, 4L), .Dimnames = list(c('(Intercept)', 'M.userY'), c('Estimate', 'Std. Error', 'z value', 'Pr(>|z|)'))), aliased = structure(c(FALSE, FALSE), .Names = c('(Intercept)', 'M.userY')), dispersion = 1, df = c(2L, 10L, 2L), cov.unscaled = structure(c(0.00776670347500679, -0.00776670347500679, -0.00776670347500679, 0.0162339828963334), .Dim = c(2L, 2L), .Dimnames = list(c('(Intercept)', 'M.userY'), c('(Intercept)', 'M.userY'))), cov.scaled = structure(c(0.00776670347500679, -0.00776670347500679, -0.00776670347500679, 0.0162339828963334), .Dim = c(2L, 2L), .Dimnames = list(c('(Intercept)', 'M.userY'), c('(Intercept)', 'M.userY'))));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist60_a9ad16230ee856fa1e2de0ad4b2722a1() {
+ assertEval("argv <- list(Depends = structure(logical(0), .Dim = c(0L, 3L)), Installed = structure(logical(0), .Dim = c(0L, 3L)), R = structure(logical(0), .Dim = c(0L, 3L)));list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist61_deed697ac277f9b718644ae227607a84() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(12L, 1L), .Dimnames = structure(list(` p L s` = c('. . .', '| . .', '. | .', '| | .', '. . |', '| . |', '. | |', '| | |', '. . ?', '| . ?', '. | ?', '| | ?'), NULL), .Names = c(' p L s', ''))));list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist62_89e0f10f5d47b77f291683f2cfefcbc3() {
+ assertEval("argv <- list(values = c(-2572.90550008339+0i, -915.064609071159+0i, -456.632018115023+0i, 419.980933101553+0i, -366.745362912885+0i, -308.301779528581+0i, -258.104614655539+0i, -208.43876984087+0i, -174.152165416129+0i, 166.131403923756+0i, -153.932564395224+31.248756965275i, -153.932564395224-31.248756965275i, -145.261798316303+0i, -140.969649074553+0i, -109.026224585292+37.27313202252i, -109.026224585292-37.27313202252i, -95.4200045428049+0i, -94.2845517186135+0i, 93.6287479850051+0i, -83.7083948970612+39.7221174209657i, -83.7083948970612-39.7221174209657i, -89.7405335285911+14.6972603541884i, -89.7405335285911-14.6972603541884i, -90.4677652619726+0i, 80.9227484547009+0i, -79.2808369338756+0i, -67.7641499054793+34.4882180369511i, -67.7641499054793-34.4882180369511i, -74.7131802385517+0i, -72.7892236613541+0i, -70.8748882290923+0i, -65.326216345093+24.6325729497989i, -65.326216345093-24.6325729497989i, -65.6613463045206+12.2012477360608i, -65.6613463045206-12.2012477360608i, -64.009437139127+0i, -53.8555784147338+28.3814233344012i, -53.8555784147338-28.3814233344012i, -60.372612826631+0i, -55.598407412763+0i, -53.8337490558365+13.1765372798343i, -53.8337490558365-13.1765372798343i, -48.7010835501729+24.5244827641945i, -48.7010835501729-24.5244827641945i, -51.620171425175+0i, -49.1047272072286+7.0804434036442i, -49.1047272072286-7.0804434036442i, -44.0755122578262+21.8965512206582i, -44.0755122578262-21.8965512206582i, -47.6686025497685+0i, -47.0350049752776+0i, 43.2054741656531+0i, -42.0546965543942+0i, -41.4311176038551+0i, -36.4574226401686+16.1634950480082i, -36.4574226401686-16.1634950480082i, -39.2901755793811+0i, -36.5376333751307+11.2152902727145i, -36.5376333751307-11.2152902727145i, -38.0398197891428+0i, -32.9946255929378+12.9867445602001i, -32.9946255929378-12.9867445602001i, -34.7321001383969+0i, -32.0667502593492+12.342590095597i, -32.0667502593492-12.342590095597i, -27.2830437098322+11.6992356475951i, -27.2830437098322-11.6992356475951i, -29.1247671355682+2.0847233845627i, -29.1247671355682-2.0847233845627i, -28.1216021055426+0i, -27.0745572919711+0i, 26.1565478253913+0i, -23.4210302095847+1.8723763695687i, -23.4210302095847-1.8723763695687i, 20.782836979896+0i, 16.5058357149619+0i, -15.9316203363047+0i, 13.2377600042936+0i, -11.9119569568831+0i, -11.1832867499603+0i, 8.99100195370794+0i, 7.62805946796798+0i, -7.44159556589097+0i, -6.46699019595805+0i, 5.57838460483725+0i, 5.07382264677001+0i, -4.77172378340461+0i, 4.21976444063592+0i, -2.86123099075901+0i, -2.69814683135512+0i, -2.29820560404041+0i, 2.05951624519943+0i, -1.8306332549612+0i, 1.66021670517454+0i, 1.03505989993491+0i, -0.773887754953459+0i, -0.416100454072758+0i, 0.213086170361661+0i, -3.42336062193255e-06+0i, 3.42336057523814e-06+0i), vectors = NULL);list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist63_57e9ee99d343467289929b11e2c0c47c() {
+ assertEval("argv <- list(x = 2.28125, y = 1.70580465116279, xlab = NULL, ylab = NULL);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist64_776b21324b07dad034b97f2090e8bb61() {
+ assertEval("argv <- list(fit = structure(numeric(0), .Dim = c(10L, 0L), constant = 0), se.fit = structure(numeric(0), .Dim = c(10L, 0L)), df = 10L, residual.scale = 0.523484262069588);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist65_9d360c20fd362699811b32986b23c4e6() {
+ assertEval("argv <- list(ANY = structure(function (x, y = NULL) .Internal(crossprod(x, y)), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = structure('crossprod', package = 'base'), class = structure('derivedDefaultMethod', package = 'methods')));list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist7_a7db077994e64d0c603e8f245c1891b2() {
+ assertEval("argv <- list(class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(1, sd = Inf))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist8_762414fc367763cc9598767d3fd83093() {
+ assertEval("argv <- list(upper = quote(~M.user * Temp * Soft));list(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlist_testlist9_28502366b65077f736dbe37796188c4d() {
+ assertEval("argv <- list(label = '', x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), just = 'centre', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = NULL, gp = structure(list(), class = 'gpar'), vp = NULL);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]],argv[[8]],argv[[9]],argv[[10]],argv[[11]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlistdirs_testlistdirs1_507c79e25c5ba58e0585049412e0c824() {
+ assertEval("argv <- list('/home/lzhao/hg/r-instrumented/library/rpart/doc', TRUE, FALSE); .Internal(list.dirs(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinlistfiles_testlistfiles1_13009139ebbfa92701a1f8ac5ced3974() {
+ assertEval("argv <- list('.', 'myTst_.*tar\\.gz$', FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(list.files(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinlistfiles_testlistfiles2_ddfe3735d68bc1d5cda87086abe5993d() {
+ assertEval("argv <- list('./myTst/data', NULL, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(list.files(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinlistfiles_testlistfiles3_208f0e08c809f563500b4c3637be477c() {
+ assertEval("argv <- list('.', '^CITATION.*', FALSE, FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(list.files(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinlistfiles_testlistfiles4_ac0902d5453c9f76cbcb2c321295c947() {
+ assertEval("argv <- list('mgcv', NULL, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(list.files(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinlog10_testlog101_ecc24c44ed8ddfa6018ff0514176ad32() {
+ assertEval("argv <- list(c(0.047, 0.013, 0.002, 1e-04, 2.3e-05, 4.5e-06));log10(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlog10_testlog102_9372967cb32bd4fcb312d70281766e91() {
+ assertEval("argv <- list(1.529e+302);log10(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlog10_testlog103_7de2a7ef5c0e3097db0c53c9e451eebf() {
+ assertEval("argv <- list(structure(7.94649180820227e-05, .Names = 'value'));log10(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlog10_testlog104_59f55d661983699bc555ecc87c9868cb() {
+ assertEval("argv <- list(c(0.0654707112145738, 0.999999999999999));log10(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlog10_testlog105_e6ea277d55371da6a195368c6435e823() {
+ assertEval("argv <- list(structure(c(160.1, 129.7, 84.8, 120.1, 160.1, 124.9, 84.8, 116.9, 169.7, 140.9, 89.7, 123.3, 187.3, 144.1, 92.9, 120.1, 176.1, 147.3, 89.7, 123.3, 185.7, 155.3, 99.3, 131.3, 200.1, 161.7, 102.5, 136.1, 204.9, 176.1, 112.1, 140.9, 227.3, 195.3, 115.3, 142.5, 244.9, 214.5, 118.5, 153.7, 244.9, 216.1, 188.9, 142.5, 301, 196.9, 136.1, 267.3, 317, 230.5, 152.1, 336.2, 371.4, 240.1, 158.5, 355.4, 449.9, 286.6, 179.3, 403.4, 491.5, 321.8, 177.7, 409.8, 593.9, 329.8, 176.1, 483.5, 584.3, 395.4, 187.3, 485.1, 669.2, 421, 216.1, 509.1, 827.7, 467.5, 209.7, 542.7, 840.5, 414.6, 217.7, 670.8, 848.5, 437, 209.7, 701.2, 925.3, 443.4, 214.5, 683.6, 917.3, 515.5, 224.1, 694.8, 989.4, 477.1, 233.7, 730, 1087, 534.7, 281.8, 787.6, 1163.9, 613.1, 347.4, 782.8), .Tsp = c(1960, 1986.75, 4), class = 'ts'));log10(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlog10_testlog106_d964329cd3dcf7956a6cd82c4f6ea162() {
+ assertEval("argv <- list(c(10, 100, 1000, 10000, 1e+05));log10(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlog10_testlog107_503c096025a4b93a75b0148ebd7255ba() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(20L, 0L), .Dimnames = list(c('ant', 'bee', 'cat', 'cpl', 'chi', 'cow', 'duc', 'eag', 'ele', 'fly', 'fro', 'her', 'lio', 'liz', 'lob', 'man', 'rab', 'sal', 'spi', 'wha'), NULL)));log10(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlog1p_testlog1p1_c023c918bddc95b0e1cfd60af87a9763() {
+ assertEval("argv <- list(c(-0.160475096572577, -0.953101214495634, -0.329547420118877, -0.234819677566528, -0.108178529791777, -0.0994458210555148, -0.282992873965743, -0.731707656126625, -0.866467764292465, -0.76039953639421, -0.3580569675068, -0.52382260076554, -0.240530699925064, -0.236619747356161, -0.811827419307205, -0.154911720192001, -0.97472580847241, -0.464016625026599, -0.58493655376716, -0.230096919024049));log1p(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlog1p_testlog1p2_81b25cc10d353414f1f37782c032d890() {
+ assertEval("argv <- list(-7e-04);log1p(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlog2_testlog21_fc038e122267912e7786ebe0a8cbc813() {
+ assertEval("argv <- list(48L);log2(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlog2_testlog22_43b705a6a4c410cceffa89c5116e2edd() {
+ assertEval("argv <- list(FALSE);log2(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinlog2_testlog23_66b4617ac1c0af36b59782d5eb124e01() {
+ assertEval("argv <- list(2.2250738585072e-308);log2(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmakenames_testmakenames1_898df0e3a59db50576c53c531d007018() {
+ assertEval("argv <- list('head', TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmakenames_testmakenames10_4aa926b564582b235ded66f082258d20() {
+ assertEval("argv <- list(c('', '', 'bady'), TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmakenames_testmakenames11_22d9a3235e2cab99684db62ef344d299() {
+ assertEval("argv <- list(character(0), TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmakenames_testmakenames2_67e507c1d0708a736eec9c03185c6352() {
+ assertEval("argv <- list('FALSE', TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmakenames_testmakenames3_03ae4bfa7f133486b1910528c62665f6() {
+ assertEval("argv <- list(c('.Call', '.Call numParameters', '.Fortran', '.Fortran numParameters'), TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmakenames_testmakenames4_0560c1f540e0b5bb98fcdbd018329fc5() {
+ assertEval("argv <- list('..adfl.row.names', TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmakenames_testmakenames5_f52ad37b2de0be513050a1de0e3b9418() {
+ assertEval("argv <- list(c('name', 'title', 'other.author'), TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmakenames_testmakenames6_7255cfa6a5dc8bed4e0627ee7a2e2cbf() {
+ assertEval("argv <- list('.2a', TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmakenames_testmakenames7_b3f46c6d69eea518172590428806ddf3() {
+ assertEval("argv <- list('', TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmakenames_testmakenames8_514336d382135927daedea4cc7e645e3() {
+ assertEval("argv <- list(NA_character_, TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmakenames_testmakenames9_c1f23c2ec8890fbb500886c5fcf439da() {
+ assertEval("argv <- list(c('Subject', 'predict.fixed', 'predict.Subject'), TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmakeunique_testmakeunique1_a259d93b75237c2f9d87f1469dcda44d() {
+ assertEval("argv <- list(c('A', 'B', 'C', 'D', 'E', 'F'), '.'); .Internal(make.unique(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmakeunique_testmakeunique2_ae9ba0d71a11d834ed5d0de6377fda42() {
+ assertEval("argv <- list(c('b', 'NA', 'NA'), '.'); .Internal(make.unique(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmakeunique_testmakeunique3_6d802924a5fd45b9d969c974781e035c() {
+ assertEval("argv <- list(c('1', '2', '3', '6', '7', '7', '7', '8', '8', '10', '11', '12', '12', '12', '15', '15', '16', '17', '19', '20', '21', '21', '23'), '.'); .Internal(make.unique(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmakeunique_testmakeunique4_90b66112232aa7fab5580ae74b7da5fa() {
+ assertEval("argv <- list(character(0), '.'); .Internal(make.unique(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmapply_testmapply1_4c9b17d42aa71ef6fbf0ca38186bc614() {
+ assertEval("argv <- list(.Primitive('c'), list(list(), list(), list()), NULL); .Internal(mapply(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch1_d020a7104509bc56383efa46056cc122() {
+ assertEval("argv <- list('corMatrix', c('dpoMatrix', 'dsyMatrix', 'ddenseMatrix', 'symmetricMatrix', 'dMatrix', 'denseMatrix', 'compMatrix', 'Matrix', 'mMatrix'), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch10_b875d387d67d1ef0f56c56c455bfd57f() {
+ assertEval("argv <- list(structure(1:27, .Label = c('M16', 'M05', 'M02', 'M11', 'M07', 'M08', 'M03', 'M12', 'M13', 'M14', 'M09', 'M15', 'M06', 'M04', 'M01', 'M10', 'F10', 'F09', 'F06', 'F01', 'F05', 'F07', 'F02', 'F08', 'F03', 'F04', 'F11'), class = c('ordered', 'factor')), structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 11L, 11L, 11L, 11L, 12L, 12L, 12L, 12L, 13L, 13L, 13L, 13L, 14L, 14L, 14L, 14L, 15L, 15L, 15L, 15L, 16L, 16L, 16L, 16L, 17L, 17L, 17L, 17L, 18L, 18L, 18L, 18L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 21L, 21L, 21L, 21L, 22L, 22L, 22L, 22L, 23L, 23L, 23L, 23L, 24L, 24L, 24L, 24L, 25L, 25L, 25L, 25L, 26L, 26L, 26L, 26L, 27L, 27L, 27L, 27L), .Label = c('M16', 'M05', 'M02', 'M11', 'M07', 'M08', 'M03', 'M12', 'M13', 'M14', 'M09', 'M15', 'M06', 'M04', 'M01', 'M10', 'F10', 'F09', 'F06', 'F01', 'F05', 'F07', 'F02', 'F08', 'F03', 'F04', 'F11'), class = c('ordered', 'factor')), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch11_ad5a24d20daaf4db398e63fff34a57d2() {
+ assertEval("argv <- list('g', 'l', NA_character_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch12_cee6fb20eea0fbc7856e888bfd3ecd51() {
+ assertEval("argv <- list(1:4, 3L, 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch13_25cf9facfc1ed4731e49e4127211f298() {
+ assertEval("argv <- list(c('0.5', '0.5', '0.5', '0.5', '0.5'), 0.5, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch14_7c330871ec8b196a483f4903400f3702() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch15_b8b9158f5fdd986b9e94f2fa7cd29189() {
+ assertEval("argv <- list(c('May', 'Jun', 'Jul', 'Aug', 'Sep'), c(NA, NaN), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch16_2cadff6a2c81472c865f72832d616d99() {
+ assertEval("argv <- list(c(1L, 2L, 4L, 13L, 14L, 15L, 16L, 17L, 18L, 23L), c(23L, 28L), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch17_344af6a846f688dddd5d64acf3f37f97() {
+ assertEval("argv <- list(c('dMatrix', 'nonStructure', 'structure'), c('nonStructure', 'structure'), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch18_7932dbd8e54f03fac0e51f0166c093ed() {
+ assertEval("argv <- list(structure(c(0, 1), .Names = c('Domestic', 'Foreign')), NA_integer_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch19_a89b2507cc4a06ba1f61c1d516284135() {
+ assertEval("argv <- list(structure(list(col = 1, cellvp = structure(list(structure(list(x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), width = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), height = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), justification = 'centre', gp = structure(list(), class = 'gpar'), clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = c(1L, 1L), layout.pos.col = c(1L, 1L), valid.just = c(0.5, 0.5), valid.pos.row = c(1L, 1L), valid.pos.col = c(1L, 1L), name = 'GRID.VP.8'), .Names = c('x', 'y', 'width', 'height', 'justification', 'gp', 'clip', 'xscale', 'yscale', 'angle', 'layout', 'layout.pos.row', 'layout.pos.col', 'valid.just', 'valid.pos.row', 'valid.pos.col', 'name'), class = 'viewport'), structure(list(x = structure(1, unit = 'lines', valid.unit = 3L, data = list(NULL), class = 'unit'), y = structure(1, unit = 'lines', valid.unit = 3L, data = list( NULL), class = 'unit'), width = structure(list(fname = '-', arg1 = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), arg2 = structure(list(fname = 'sum', arg1 = structure(c(1, 1), unit = c('lines', 'lines'), valid.unit = c(3L, 3L), data = list(NULL, NULL), class = 'unit'), arg2 = NULL), .Names = c('fname', 'arg1', 'arg2'), class = c('unit.arithmetic', 'unit'))), .Names = c('fname', 'arg1', 'arg2'), class = c('unit.arithmetic', 'unit')), height = structure(list(fname = '-', arg1 = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), arg2 = structure(list(fname = 'sum', arg1 = structure(c(1, 1), unit = c('lines', 'lines'), valid.unit = c(3L, 3L), data = list(NULL, NULL), class = 'unit'), arg2 = NULL), .Names = c('fname', 'arg1', 'arg2'), class = c('unit.arithmetic', 'unit'))), .Names = c('fname', 'arg1', 'arg2'), class = c('unit.arithmetic', 'unit')), justification = c('left', 'bottom'), gp = structure(list(), class = 'gpar'), clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0, 0), valid.pos.row = NULL, valid.pos.col = NULL, name = 'GRID.VP.9'), .Names = c('x', 'y', 'width', 'height', 'justification', 'gp', 'clip', 'xscale', 'yscale', 'angle', 'layout', 'layout.pos.row', 'layout.pos.col', 'valid.just', 'valid.pos.row', 'valid.pos.col', 'name'), class = 'viewport')), class = c('vpStack', 'viewport'))), .Names = c('col', 'cellvp')), c('children', 'childrenOrder'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch2_29bd92c9f6e9120c5e3e171dc63d231d() {
+ assertEval("argv <- list(c('ANY', 'abIndex', 'ddenseMatrix', 'diagonalMatrix', 'dsparseMatrix', 'lMatrix', 'nMatrix', 'nsparseVector', 'pMatrix', 'sparseVector'), 'ANY', NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch20_71d4c7ed78e2bd22690ea39eb14219dd() {
+ assertEval("argv <- list(structure(c(1, 1, 6, 2, 2, 7, 3, 3, 7, 3, 3, 8, 4, 4, 4, 5), .Dim = c(16L, 1L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16'), 'y')), c(1, 2, 3, 4, 5, 6, 7, 8), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch21_ce59bdde030e15182688c25018a2792e() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3), .Tsp = c(1959, 1997.91666667, 12), class = 'ts'), c(0, 1, 2, 3), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch22_6ea69490e3c0b9d94d2f4df21d5ce4ef() {
+ assertEval("argv <- list(c(NA, NA, 3, 4, 5), c(NA, NA, 4, 5), 0L, NA); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch23_2dafa7d1f48daf6d915168c9bde59a3d() {
+ assertEval("argv <- list(structure('tools', .Names = 'name'), c('base', 'utils'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch24_2e0690ab98bb8e121fd4f5fa1fab0cf2() {
+ assertEval("argv <- list(structure(list(framevp = structure(list(x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), width = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), height = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), justification = 'centre', gp = structure(list(), class = 'gpar'), clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(nrow = 1L, ncol = 1L, widths = structure(list( fname = 'sum', arg1 = structure(c(1, 1, 1), unit = c('lines', 'lines', 'lines'), valid.unit = c(3L, 3L, 3L), data = list(NULL, NULL, NULL), class = 'unit'), arg2 = NULL), .Names = c('fname', 'arg1', 'arg2'), class = c('unit.arithmetic', 'unit')), heights = structure(list(fname = 'sum', arg1 = structure(c(1, 1, 1), unit = c('lines', 'lines', 'lines'), valid.unit = c(3L, 3L, 3L), data = list(NULL, NULL, NULL), class = 'unit'), arg2 = NULL), .Names = c('fname', 'arg1', 'arg2'), class = c('unit.arithmetic', 'unit')), respect = FALSE, valid.respect = 0L, respect.mat = structure(0L, .Dim = c(1L, 1L)), just = 'centre', valid.just = c(0.5, 0.5)), .Names = c('nrow', 'ncol', 'widths', 'heights', 'respect', 'valid.respect', 'respect.mat', 'just', 'valid.just'), class = 'layout'), layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, name = 'GRID.VP.33'), .Names = c('x', 'y', 'width', 'height', 'justification', 'gp', 'clip', 'xscale', 'yscale', 'angle', 'layout', 'layout.pos.row', 'layout.pos.col', 'valid.just', 'valid.pos.row', 'valid.pos.col', 'name'), class = 'viewport')), .Names = 'framevp'), c('children', 'childrenOrder'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch25_0f5d2a3c386c3caee76592a216c61557() {
+ assertEval("argv <- list(' *** Run successfully completed ***', c('', '> ### R code from vignette source 'Design-issues.Rnw'', '> ', '> ###################################################', '> ### code chunk number 1: preliminarie .... [TRUNCATED] ', '', '> ###################################################', '> ### code chunk number 2: diag-class', '> ###################################################', '> li .... [TRUNCATED] ', 'Loading required package: lattice', '', 'Attaching package: ‘Matrix’', '', 'The following object is masked from ‘package:base’:', '', ' det', '', '', '> (D4 <- Diagonal(4, 10*(1:4)))', '4 x 4 diagonal matrix of class \'ddiMatrix\'', ' [,1] [,2] [,3] [,4]', '[1,] 10 . . .', '[2,] . 20 . .', '[3,] . . 30 .', '[4,] . . . 40', '', '> str(D4)', 'Formal class 'ddiMatrix' [package \'Matrix\'] with 4 slots', ' ..@ diag : chr \'N\'', ' ..@ Dim : int [1:2] 4 4', ' ..@ Dimnames:List of 2', ' .. ..$ : NULL', ' .. ..$ : NULL', ' ..@ x : num [1:4] 10 20 30 40', '', '> diag(D4)', '[1] 10 20 30 40', '', '> ###################################################', '> ### code chunk number 3: diag-2', '> ###################################################', '> diag(D .... [TRUNCATED] ', '', '> D4', '4 x 4 diagonal matrix of class \'ddiMatrix\'', ' [,1] [,2] [,3] [,4]', '[1,] 11 . . .', '[2,] . 22 . .', '[3,] . . 33 .', '[4,] . . . 44', '', '> ###################################################', '> ### code chunk number 4: unit-diag', '> ###################################################', '> str .... [TRUNCATED] ', 'Formal class 'ddiMatrix' [package \'Matrix\'] with 4 slots', ' ..@ diag : chr \'U\'', ' ..@ Dim : int [1:2] 3 3', ' ..@ Dimnames:List of 2', ' .. ..$ : NULL', ' .. ..$ : NULL', ' ..@ x : num(0) ', '', '> getClass(\'diagonalMatrix\') ## extending \'denseMatrix\'', 'Virtual Class \'diagonalMatrix\' [package \'Matrix\']', '', 'Slots:', ' ', 'Name: diag Dim Dimnames', 'Class: character integer list', '', 'Extends: ', 'Class \'sparseMatrix\', directly', 'Class \'Matrix\', by class \'sparseMatrix\', distance 2', 'Class \'mMatrix\', by class \'Matrix\', distance 3', '', 'Known Subclasses: \'ddiMatrix\', \'ldiMatrix\'', '', '> ###################################################', '> ### code chunk number 5: Matrix-ex', '> ###################################################', '> (M .... [TRUNCATED] ', '4 x 4 sparse Matrix of class \'dgTMatrix\'', ' ', '[1,] . . 4 .', '[2,] . 1 . .', '[3,] 4 . . .', '[4,] . . . 8', '', '> m <- as(M, \'matrix\')', '', '> (M. <- Matrix(m)) # dsCMatrix (i.e. *symmetric*)', '4 x 4 sparse Matrix of class \'dsCMatrix\'', ' ', '[1,] . . 4 .', '[2,] . 1 . .', '[3,] 4 . . .', '[4,] . . . 8', '', '> ###################################################', '> ### code chunk number 6: sessionInfo', '> ###################################################', '> t .... [TRUNCATED] ', '\\begin{itemize}\\raggedright', ' \\item R version 3.0.1 (2013-05-16), \\verb|x86_64-unknown-linux-gnu|', ' \\item Locale: \\verb|LC_CTYPE=en_US.UTF-8|, \\verb|LC_NUMERIC=C|, \\verb|LC_TIME=en_US.UTF-8|, \\verb|LC_COLLATE=C|, \\verb|LC_MONETARY=en_US.UTF-8|, \\verb|LC_MESSAGES=en_US.UTF-8|, \\verb|LC_PAPER=C|, \\verb|LC_NAME=C|, \\verb|LC_ADDRESS=C|, \\verb|LC_TELEPHONE=C|, \\verb|LC_MEASUREMENT=en_US.UTF-8|, \\verb|LC_IDENTIFICATION=C|', ' \\item Base packages: base, datasets, grDevices, graphics,', ' methods, stats, utils', ' \\item Other packages: Matrix~1.0-12, lattice~0.20-15', ' \\item Loaded via a namespace (and not attached): grid~3.0.1,', ' tools~3.0.1', '\\end{itemize}', '', ' *** Run successfully completed ***', '> proc.time()', ' user system elapsed ', '157.417 4.183 161.773 '), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch26_ef49e3e3a7e3e2ed99c17791f089b393() {
+ assertEval("argv <- list(c(NA, NA, NA, NA, NA, NA, NA, NA), c('real', 'double'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch27_8d1444ca46ce1631988cc24ddb5c3996() {
+ assertEval("argv <- list(c('2005-01-01', '2006-01-01', '2007-01-01', '2008-01-01', '2009-01-01'), c(NA, NaN), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch28_4d42acd02ffc54a97b2e8a28cfcf59e5() {
+ assertEval("argv <- list(c(NA, NA), c('real', 'double'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch29_f242dbcdfd33e6330f2bbaacb42ade66() {
+ assertEval("argv <- list(c('TRUE', 'FALSE', 'TRUE', 'FALSE', 'TRUE', 'FALSE', 'TRUE', 'FALSE', 'TRUE', 'FALSE'), c(FALSE, TRUE), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch3_38fa1994a4e75a99e8edee8ecb0f22fb() {
+ assertEval("argv <- list(character(0), NA_integer_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch30_48397e5539abbde8b5c7dbbe0aa14e71() {
+ assertEval("argv <- list(c('2005-01-01', '2005-02-01', '2005-03-01', '2005-04-01', '2005-05-01', '2005-06-01', '2005-07-01', '2005-08-01', '2005-09-01', '2005-10-01', '2005-11-01', '2005-12-01', '2006-01-01', '2006-02-01', '2006-03-01', '2006-04-01', '2006-05-01', '2006-06-01', '2006-07-01', '2006-08-01', '2006-09-01', '2006-10-01', '2006-11-01', '2006-12-01', '2007-01-01', '2007-02-01', '2007-03-01', '2007-04-01', '2007-05-01', '2007-06-01', '2007-07-01', '2007-08-01', '2007-09-01', '2007-10-01', '2007-11-01', '2007-12-01', '2008-01-01', '2008-02-01', '2008-03-01', '2008-04-01', '2008-05-01', '2008-06-01', '2008-07-01', '2008-08-01', '2008-09-01', '2008-10-01', '2008-11-01', '2008-12-01', '2009-01-01'), NA_integer_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch31_07e0d2d5804d08f12b5996eda8071b74() {
+ assertEval("argv <- list(c(1, 2, 3, 4, 8, 12), c(1, 2, 3, 4, 8, 12), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch32_4f5c4e853d9d5dd310b4b6e9435a3794() {
+ assertEval("argv <- list(c('.__C__classA', '.__T__$:base', '.__T__$<-:base', '.__T__[:base', '.__T__plot:graphics', 'plot'), c('.__NAMESPACE__.', '.__S3MethodsTable__.', '.packageName', '.First.lib', '.Last.lib', '.onLoad', '.onAttach', '.onDetach', '.conflicts.OK', '.noGenerics'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch4_1cc99c7481426681808921dc446883ca() {
+ assertEval("argv <- list(c('1', '2', NA), NA_real_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch5_e7ce470446c8830a4ed057bfee119064() {
+ assertEval("argv <- list(c(0.00711247435174189, 0.251292124343149, -0.319172743733056, 5.75733114833721e-05, -0.35788385867217, -0.423873493915367, -0.440922191441033, 0.454737405613056, -0.337349081024889, -0.340540089756868, 0.0142999714851724, -0.337349081024889, 0.16929974943645, 0.0119141094780619, 0.0237947544260095, 0.481799107922823, -0.398620160881439, 0.112296211162227, 0.124500575635478, -0.423873493915367, 0.476631055345105, -0.201544176575946, 0.0504435384277691, 0.0142999714851724, 0.0859627732681778, -0.402191440217491, 0.0237947544260095, -0.35788385867217, 0.131606068222389, -0.328335725283617, -0.366873527650917, 0.855944113774621, 0.0506448607016037, -0.540294711232517, 0.365377890605673, 0.122315677921641, 0.122315677921641, 0.476631055345105, 0.0859627732681778, 0.028962807003728, 0.130710526672205, 0.704128425262244, 0.0119141094780619, 0.0506448607016037, 0.0859627732681778, 0.131606068222389, 0.122315677921641, -0.429041546493085, 0.0506448607016037, -0.35788385867217, 0.746844979419744, -0.158827622418446, -0.340540089756868, 0.130710526672205, -0.429041546493085, 0.126579318324608, 0.0119141094780619, 0.251292124343149, -0.283536551482645, 0.107466982896435, 0.586499858105134, -0.402392762491326, -0.85437461044313, 0.133663557186039, -0.328335725283617, 0.124500575635478, 0.0237947544260095, 0.133663557186039, 0.133663557186039, 0.656149860060726, 0.579415619243703, 0.107466982896435, -0.599127482939288, -0.326256982594487, 0.746844979419744, -0.452778727607612, -0.328335725283617, 0.0119141094780619, -0.340540089756868, -0.319172743733056, -0.725390113737062, 0.503481161620698, -0.661275243349858, -0.402392762491326, 0.476631055345105, 0.126579318324608, 0.251292124343149, -0.0874584103134217, 0.107466982896435, -0.201544176575946, 0.0734191385691725), c(-0.85437461044313, -0.725390113737062, -0.661275243349858, -0.599127482939288, -0.540294711232517, -0.452778727607612, -0.440922191441033, -0.429041546493085, -0.423873493915367, -0.402392762491326, -0.402191440217491, -0.398620160881439, -0.366873527650917, -0.35788385867217, -0.340540089756868, -0.337349081024889, -0.328335725283617, -0.326256982594487, -0.319172743733056, -0.283536551482645, -0.201544176575946, -0.158827622418446, -0.0874584103134217, 5.75733114833721e-05, 0.00711247435174189, 0.0119141094780619, 0.0142999714851724, 0.0237947544260095, 0.028962807003728, 0.0504435384277691, 0.0506448607016037, 0.0734191385691725, 0.0859627732681778, 0.107466982896435, 0.112296211162227, 0.122315677921641, 0.124500575635478, 0.126579318324608, 0.130710526672205, 0.131606068222389, 0.133663557186039, 0.16929974943645, 0.251292124343149, 0.365377890605673, 0.454737405613056, 0.476631055345105, 0.481799107922823, 0.503481161620698, 0.579415619243703, 0.586499858105134, 0.656149860060726, 0.704128425262244, 0.746844979419744, 0.855944113774621), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch6_8bf990f52ace5ead2f5837f2d97b000b() {
+ assertEval("argv <- list(c('1008', '1011', '1013', '1014', '1015', '1016', '1027', '1028', '1030', '1032', '1051', '1052', '1083', '1093', '1095', '1096', '110', '1102', '111', '1117', '112', '113', '116', '117', '1219', '125', '1250', '1251', '126', '127', '128', '1291', '1292', '1293', '1298', '1299', '130', '1308', '135', '1376', '1377', '1383', '1408', '1409', '141', '1410', '1411', '1413', '1418', '1422', '1438', '1445', '1456', '1492', '2001', '2316', '262', '266', '269', '270', '2708', '2714', '2715', '272', '2728', '2734', '280', '283', '286', '290', '3501', '411', '412', '475', '5028', '5042', '5043', '5044', '5045', '5047', '5049', '5050', '5051', '5052', '5053', '5054', '5055', '5056', '5057', '5058', '5059', '5060', '5061', '5062', '5066', '5067', '5068', '5069', '5070', '5072', '5073', '5115', '5160', '5165', '655', '724', '885', '931', '942', '952', '955', '958', 'c118', 'c168', 'c203', 'c204', 'c266'), NA_integer_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch7_08e7cc0f7a5302c6b24d95450f3c0872() {
+ assertEval("argv <- list(character(0), c('methods', 'utils', 'XML', 'RCurl'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch8_b64a75e4392b4dfae4b3d1f590ed408b() {
+ assertEval("argv <- list(c('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15'), NA_real_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatch_testmatch9_bbbab40f7e37fd84ee0401c59c3a99e5() {
+ assertEval("argv <- list(c(-1628571, -1628571, -1200000, -1200000, -1057143, -914286, -771429, -771429, -771429, -628571, -628571, -485714, -485714, -485714, -485714, -342857, -342857, -342857, -342857, -2e+05, -2e+05, -2e+05, -2e+05, -57143, -57143, -57143, 85714, 85714, 228571, 228571, 228571, 371429, 371429, 371429, 371429, 514286, 514286, 514286, 657143, 657143, 657143, 657143, 657143, 942857, 1085714, 1228571, 1228571, 1228571, 1228571, 1371429), c(-1628571, -1200000, -1057143, -914286, -771429, -628571, -485714, -342857, -2e+05, -57143, 85714, 228571, 371429, 514286, 657143, 942857, 1085714, 1228571, 1371429), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix1_129288927fd1c25bf4d36562e3de1510() {
+ assertEval("argv <- list(NA_real_, 1L, 5L, FALSE, list('Residuals', c('Df', 'Sum Sq', 'Mean Sq', 'F value', 'Pr(>F)')), FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix10_dc72c70f5d57aa08375ee046e1463966() {
+ assertEval("argv <- list(c(1, 1, 1, 1, 1, 1), 1, 1, FALSE, NULL, TRUE, TRUE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix11_8bb57d223d3bbb1fa5c36bb7da3f2aa9() {
+ assertEval("argv <- list(c(420.223016031624, 290.609964753365, 290.609964753365, 200), 2, 2, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix12_660a31cd914f52ab4f6919d35f20c3ec() {
+ assertEval("argv <- list(1:4, 1, 2, FALSE, NULL, TRUE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix13_5bc9087ec092f4378bfbcdc1f03fd169() {
+ assertEval("argv <- list(c(0, 0, 0, 0), 4L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix14_b606b1e87cf667c98cdfc1c3885e78f0() {
+ assertEval("argv <- list(0+0i, 7L, 2L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix15_62e089343cf28ce959a6a8a376ccf37b() {
+ assertEval("argv <- list(0L, 1L, 2L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix16_f6948d866815804b1c4dc7a631aed1b9() {
+ assertEval("argv <- list(0, 12L, 12L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix17_f7707e6cfec1d1efa2e7cbec9b3fe58e() {
+ assertEval("argv <- list(NA, 240, 4L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix18_393309cf06a3a9fef66141fb3de3c314() {
+ assertEval("argv <- list(c(1448665, 18316380, 77.4, 139.8, 2251281, 26424236, 120.3, 201.7, NA, NA, 1835812, 22608335, 98.1, 172.5), 2L, 7L, FALSE, list(c('Ncells', 'Vcells'), c('used', '(Mb)', 'gc trigger', '(Mb)', 'limit (Mb)', 'max used', '(Mb)')), FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix19_8a96511b22d03016e2ca47f9db8ab269() {
+ assertEval("argv <- list(c('315.45', '363.01', '405.02', '443.06', '478.09', '510.72'), 1L, 1, TRUE, list('1979', c('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun')), FALSE, TRUE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix2_71d70e49707ce1e73538dd863ad3fb0f() {
+ assertEval("argv <- list(c(NA, 'a', 'b', '10', NA, NA, 'd', '12', NA, NA, NA, '14'), 1, 4, TRUE, NULL, TRUE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix20_6f82cce7d3c8240d77530591c2510e14() {
+ assertEval("argv <- list('', 0L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix21_ae5da2827444c941a6ee957caf47ba78() {
+ assertEval("argv <- list(character(0), 0L, 2L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix22_5d1009ae9762a3be8ec35e26bae759fd() {
+ assertEval("argv <- list(raw(0), 0L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix23_99a98909f36d6952fbe497c259b0467d() {
+ assertEval("argv <- list(character(0), 0L, 17L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix24_593fcf38d2384a24b7ece626a1275db0() {
+ assertEval("argv <- list(c(TRUE, FALSE, FALSE, TRUE), 2L, 2L, TRUE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix25_02c656525f8d9af8a83980a72d34fb51() {
+ assertEval("argv <- list(c(0.342020143325669, 0, -0.939692620785908, 0, 1, 0, 0.939692620785908, 0, 0.342020143325669), 3, 3, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix26_bfe592ed5c2b4ae50f83e71cf4db5c51() {
+ assertEval("argv <- list(NA_integer_, 1L, 1L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix27_364ae3cbbe01436b2a6bc69a1df5c9e4() {
+ assertEval("argv <- list(numeric(0), 1, 1L, FALSE, NULL, TRUE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix28_41e0446a1e0ca65f255d4d46f04b6f03() {
+ assertEval("argv <- list(NA_complex_, 5L, 1L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix29_eb80b03f9fa1526f108b3e3ab317fd08() {
+ assertEval("argv <- list(NA_character_, 4L, 17L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix3_874bd2e083c0a84dacffd9d54a7d9d64() {
+ assertEval("argv <- list(NA, 0L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix30_a92ef267a111bca7ffc2045040cd4c2f() {
+ assertEval("argv <- list(c(2.8421709430404e-14, 0, 0, 0, 0, 0, 0, -4.44089209850063e-16, 0, 0, 0, 0, 0, 0, 4.44089209850063e-16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7.105427357601e-15), 6L, 6L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix31_6d32b187f736788253ce3f8eb39682bb() {
+ assertEval("argv <- list(structure(integer(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c('row', 'col'))), 0, 2, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix32_aaf4f96745b0450a07ce25d6b8f9cc51() {
+ assertEval("argv <- list(c(24.2407407407407, 22.3953488372093, 24.4761904761905, 25.625, 24.3518518518519, 30.8333333333333, 30.8333333333333, 30.8333333333333, 24.2037037037037, 30.5, 30.5, 30.5, 24.4444444444444, 30.8571428571429, 30.8571428571429, 30.8571428571429, 24.2037037037037, 30.5, 30.5, 30.5, 24.2407407407407, 31.4545454545455, 31.4545454545455, 31.4545454545455, 24.8333333333333, 30.7857142857143, 30.7857142857143, 30.7857142857143, 24.7777777777778, 31.1428571428571, 31.1428571428571, 31.1428571428571, 24.2407407407407, 31.4545454545455, 31.4545454545455, 31.4545454545455, 24.2407407407407, 31.4545454545455, 31.4545454545455, 31.4545454545455, 24.2037037037037, 30.5, 30.5, 30.5, 24.5185185185185, 30.6428571428571, 30.6428571428571, 30.6428571428571, 24.8333333333333, 31.2857142857143, 31.2857142857143, 31.2857142857143, 24.8333333333333, 22.75, 20.5789473684211, 20.5789473684211, 24.5185185185185, 22.375, 24.4, 23.5833333333333, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.4444444444444, 22.2, 24.05, 24.05, 24.3518518518519, 30.8333333333333, 30.8333333333333, 30.8333333333333, 24.8148148148148, 22.4615384615385, 24.3809523809524, 25.5714285714286, 24.8333333333333, 22.575, 24.3333333333333, 23.5384615384615, 24.4444444444444, 22.2, 24.05, 24.05, 24.3518518518519, 30.8333333333333, 30.8333333333333, 30.8333333333333, 24.2037037037037, 22.4047619047619, 24.4761904761905, 24.4761904761905, 24.8148148148148, 22.4615384615385, 24.3809523809524, 25.5714285714286, 24.8148148148148, 22.4615384615385, 24.3809523809524, 25.5714285714286, 24.3518518518519, 22.5, 20.695652173913, 20.695652173913, 24.2407407407407, 22.3953488372093, 24.4761904761905, 25.625, 24.5185185185185, 22.375, 24.4, 23.5833333333333, 24.2407407407407, 22.3953488372093, 24.4761904761905, 23.7692307692308, 24.4444444444444, 22.2, 24.05, 24.05, 24.5185185185185, 22.375, 20.35, 20.35, 24.5185185185185, 22.375, 24.4, 23.5833333333333, 24.7777777777778, 22.55, 24.65, 26, 24.8148148148148, 30.9333333333333, 30.9333333333333, 30.9333333333333, 24.7777777777778, 22.55, 24.65, 23.9230769230769, 24.8333333333333, 22.575, 24.3333333333333, 23.5384615384615, 24.7777777777778, 22.55, 24.65, 23.9230769230769, 24.8333333333333, 22.575, 20.6315789473684, 20.6315789473684, 24.8333333333333, 22.75, 24.7142857142857, 24.7142857142857, 24.8333333333333, 22.75, 24.7142857142857, 24.7142857142857, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.2037037037037, 22.4047619047619, 20.3333333333333, 20.3333333333333, 24.7777777777778, 22.55, 20.45, 20.45, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.3518518518519, 22.5, 24.6842105263158, 24.6842105263158, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.4444444444444, 22.2, 20.35, 20.35, 24.2037037037037, 22.4047619047619, 24.4761904761905, 24.4761904761905, 24.5185185185185, 22.375, 20.35, 20.35, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.3518518518519, 22.5, 20.695652173913, 20.695652173913, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.8333333333333, 22.575, 20.6315789473684, 20.6315789473684, 24.7777777777778, 22.55, 20.45, 20.45, 24.8333333333333, 22.75, 20.5789473684211, 20.5789473684211, 24.8333333333333, 22.575, 20.6315789473684, 20.6315789473684, 24.8333333333333, 22.75, 20.5789473684211, 20.5789473684211, 24.4444444444444, 22.2, 20.35, 20.35, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222), 60L, 1, TRUE, list(c('Eagle Summit 4', 'Ford Escort 4', 'Ford Festiva 4', 'Honda Civic 4', 'Mazda Protege 4', 'Mercury Tracer 4', 'Nissan Sentra 4', 'Pontiac LeMans 4', 'Subaru Loyale 4', 'Subaru Justy 3', 'Toyota Corolla 4', 'Toyota Tercel 4', 'Volkswagen Jetta 4', 'Chevrolet Camaro V8', 'Dodge Daytona', 'Ford Mustang V8', 'Ford Probe', 'Honda Civic CRX Si 4', 'Honda Prelude Si 4WS 4', 'Nissan 240SX 4', 'Plymouth Laser', 'Subaru XT 4', 'Audi 80 4', 'Buick Skylark 4', 'Chevrolet Beretta 4', 'Chrysler Le Baron V6', 'Ford Tempo 4', 'Honda Accord 4', 'Mazda 626 4', 'Mitsubishi Galant 4', 'Mitsubishi Sigma V6', 'Nissan Stanza 4', 'Oldsmobile Calais 4', 'Peugeot 405 4', 'Subaru Legacy 4', 'Toyota Camry 4', 'Volvo 240 4', 'Acura Legend V6', 'Buick Century 4', 'Chrysler Le Baron Coupe', 'Chrysler New Yorker V6', 'Eagle Premier V6', 'Ford Taurus V6', 'Ford Thunderbird V6', 'Hyundai Sonata 4', 'Mazda 929 V6', 'Nissan Maxima V6', 'Oldsmobile Cutlass Ciera 4', 'Oldsmobile Cutlass Supreme V6', 'Toyota Cressida 6', 'Buick Le Sabre V6', 'Chevrolet Caprice V8', 'Ford LTD Crown Victoria V8', 'Chevrolet Lumina APV V6', 'Dodge Grand Caravan V6', 'Ford Aerostar V6', 'Mazda MPV V6', 'Mitsubishi Wagon 4', 'Nissan Axxess 4', 'Nissan Van 4'), structure(c('0.79767456', '0.28300396', '0.04154257', '0.01132626'), .Names = c('1', '2', '3', '4'))), FALSE, TRUE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix33_21a29d0ff4b7c9df7579311e16a9997c() {
+ assertEval("argv <- list(c(1+2i, 3-4i, 5+0i, -6+0i), 2L, 2L, TRUE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix34_f4beefcfa24319d680cab49233e6468d() {
+ assertEval("argv <- list(NA, 2, 5, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix35_bb801e30e125bd792e0933c8e180f381() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(1L, 0L), .Dimnames = list('r', NULL)), 0L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix36_2a0583afdbde06aa275d16f2da8d090c() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 0, 4.94065645841247e-324, 0, 0, 0, 0, 0), structure(12L, .Names = '1'), 1L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix37_a7d353e4c41d248a0e708e7f3224bf20() {
+ assertEval("argv <- list(1:7, 3, 4, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix38_d7b8d0c95b8472f4b5e6ea3f362c4d3d() {
+ assertEval("argv <- list(c(1, 3, 2, -2, 16, 4, 3, 3, 1, 32, -3, 2, 3, 2, 5, 1, 3, 4, 9, 0, 4, 16, 3, 5, 1, -1, 3, 2, -3, 4, 1, 2, 8, 0, 8, 5, 4, 2, 6, 5, 3, 1, 3, 1), 4L, 4L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix39_53c38f6077dd7aaca90c51c383503499() {
+ assertEval("argv <- list(c(-1, 4, 4, 9, 5, 1, 4, 8, 8, 2, 6, 0, 2, 3, 8, 8, 4, 4, 2, 3, 4, 0, -1, 7, 2, 4, 2, 3, 5, 6, 6, 5, 4, 3, 7, -1, 3, 1, -1, 2, 32, 1, 4, 4), 2L, 5L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix4_58ce8e56a3cf85efe057af9b7ffb9083() {
+ assertEval("argv <- list('foo', 1L, 1, FALSE, list(structure('object', simpleOnly = TRUE), NULL), FALSE, TRUE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix40_69bb81d6b630e72206f900d1505098f2() {
+ assertEval("argv <- list(c(1259, 845, 719, 390, 1360, 1053, 774, 413), 2, 1, TRUE, NULL, FALSE, TRUE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix41_4506ed270fec0fcccd716ed15003e8f4() {
+ assertEval("argv <- list(1:2, 2, 12, TRUE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix42_fa537b7a32d8b9000388c2008d68fb0c() {
+ assertEval("argv <- list(NA_character_, 1L, 17L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix43_8dec6c4c3a34100792db0fbe3738f2ed() {
+ assertEval("argv <- list(c('', '', '', '', '', '', ' 1', ' 2', ' 3', ' 4', ' 5', ' 6', ' 7', ' 8', ' 9', '10', '', '', '', '', '', '', '', ''), 1, 12, TRUE, list(c('1920', '1921'), c('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec')), TRUE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix44_4d002852813ae5281c78de2a673a8c83() {
+ assertEval("argv <- list(structure(list(a1 = 1:3, a2 = 4:6, a3 = 3.14159265358979, a4 = c('a', 'b', 'c')), .Names = c('a1', 'a2', 'a3', 'a4')), 2, 2, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix5_53b963b380fc4d60eb89161fd2eeba7d() {
+ assertEval("argv <- list(c(1, 2, 3, 0, 10, NA), 3, 2, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix6_e183e3544a3231d469a485ce85faba69() {
+ assertEval("argv <- list(1:25, 5, 5, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix7_28825920bfff0474f4ddb03ff8fadbe3() {
+ assertEval("argv <- list('ANY', 2L, 3L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix8_a78ed9549cf7519d0e8e57abcfd32e8d() {
+ assertEval("argv <- list(0L, 1L, 1L, TRUE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmatrix_testmatrix9_fd4685d9a4c85ee9a108cda523251ccb() {
+ assertEval("argv <- list(0L, 0L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax1_db816396e29ab361c6a6f3a51c12817e() {
+ assertEval("argv <- list(10L, 1L);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax10_aae6b99c2f95cc53388a3e2e8cff1c1a() {
+ assertEval("argv <- list(c(FALSE, FALSE));max(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax11_8608c8811b4335b2c8da107e4440edf0() {
+ assertEval("argv <- list(numeric(0));max(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax12_710462e2d6241e41aa7f635ca3b99fdd() {
+ assertEval("argv <- list(4L, numeric(0));max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax13_d6310bbca9db3c386cc7fa4fddc520e4() {
+ assertEval("argv <- list(6L, numeric(0));max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax14_ac71da5a49734dbb190f580e8382a85e() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));max(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax15_0cbe44fbb30efebcb583382fe042cea9() {
+ assertEval("argv <- list(c(1.2e+100, 1.3e+100));max(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax16_5a290edcdd81e3b471f2df6b0f5b65cf() {
+ assertEval("argv <- list(structure(c(11368.8306749654, 11347.7238090355, 11341.9182102121, 11392.4878842821, 11367.3445285107, 11337.9245694652, 11332.0560643654, 11356.4682624019, 11387.6852128883, 11364.9132677, 11391.3319486445, 11374.2254758319, 11347.9708838458, 11353.2031583386, 11333.3748092474, 11323.9154302836, 11373.0896246266, 11330.2228965024, 11354.2399044028, 11367.8070731596, 11392.4287034031, 11357.6915504499, 11356.9044667059, 11335.1409634408, 11375.8374661156, 11354.7726842454, 11358.781884864, 11337.5281579299, 11339.0060699913, 11364.6998397419, 11363.2410538797, 11328.3945066198, 11325.487840571, 11367.9956844538, 11388.0030639744, 11364.8664695648, 11362.2630523606, 11359.821940674, 11391.9566656714, 11358.5349275633, 11370.7951655071, 11365.1078852355, 11339.7208074429, 11341.0716148671, 11374.0516736354, 11354.6799581982, 11335.2588737891, 11375.2688788734, 11330.349134828, 11383.518146432, 11366.0251480173, 11362.0011677193, 11346.0144123337, 11354.7192011815, 11358.0308680837, 11335.6606452791, 11360.0741421962, 11328.2693021996, 11342.4429152855, 11337.8889663466, 11342.9353336683, 11385.6565872063, 11354.2364726327, 11377.5989422849, 11384.6433324409, 11351.9186946652, 11327.4665936357, 11346.4841244179, 11373.6608162634, 11346.6330733448, 11367.1289885738, 11381.8430187805, 11382.9292165297, 11350.3951496719, 11349.6345719923, 11385.6811798196, 11368.1021034038, 11374.8755054101, 11365.3712412571, 11386.2157128048, 11343.5611108569, 11336.3882076922, 11385.0515660313, 11358.2337640012, 11384.3940280117, 11336.2435535709, 11376.0672136671, 11373.7149224868, 11389.0607372806, 11361.3352610911, 11372.8220707406, 11350.2233569878, 11330.0611188328, 11387.9111462012, 11342.8262750218, 11364.340121117, 11330.7252423461, 11381.8354922482, 11345.257457911, 11377.7995935893), class = 'Date'), na.rm = TRUE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax17_846546dbc304f70557403d1282159159() {
+ assertEval("argv <- list(structure(c(3L, 2L, 1L), .Label = c('A', 'B', 'C'), class = c('ordered', 'factor')), na.rm = FALSE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax18_85d9a59ed8eff6f67794e6d1917503eb() {
+ assertEval("argv <- list(structure(c(1338544800L, 1338566400L, 1338588000L, 1338609600L, 1338631200L, 1338652800L, 1338674400L, 1338696000L, 1338717600L, 1338739200L, 1338760800L, 1338782400L, 1338804000L, 1338825600L, 1338847200L, 1338868800L, 1338890400L, 1338912000L, 1338933600L, 1338955200L, 1338976800L, 1338998400L, 1339020000L, 1339041600L), class = c('POSIXct', 'POSIXt'), tzone = ''), na.rm = TRUE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax19_1107df5692a44807570b7e1e965400bd() {
+ assertEval("argv <- list(structure(list(c(1L, 2L, 4L), 1:3, c(2L, 1L)), class = c('package_version', 'numeric_version')), na.rm = FALSE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax2_9e35ea358a88ecb88dd7f0f80d0db911() {
+ assertEval("argv <- list(structure(c(1208822400, 1209168000, 1208822400, 1209168000), class = c('POSIXct', 'POSIXt')), na.rm = TRUE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax20_821788b353e2614d4780d52d65a432e5() {
+ assertEval("argv <- list(structure(c(1208822400, 1209168000), class = c('POSIXct', 'POSIXt'), tzone = 'GMT'), na.rm = FALSE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax21_d39d45770d39e8317748f016d8b9ab72() {
+ assertEval("argv <- list(structure(c(13823, NA), class = 'Date'), na.rm = TRUE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax22_31bdd9740ffcce5ce8d2ea3c3d373c15() {
+ assertEval("argv <- list(structure(c(7L, 4L, 3L), .Dim = 3L, .Dimnames = structure(list(c('0', '1', '5')), .Names = ''), class = 'table'));max(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax23_bae62384648b5f4cefe834870254d4a3() {
+ assertEval("argv <- list(structure(c(0, 1, 1, 1, 1), .Names = c('Hair', 'Eye', 'Sex', 'Hair:Eye', 'Hair:Sex')));max(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax24_1b04e27762beea11589c1800adba0560() {
+ assertEval("argv <- list(structure(c(Inf, Inf, 2.248e+263, Inf, 3.777e+116, 1.128), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')));max(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax25_fa768e0c00299531d7dfbd981df08824() {
+ assertEval("argv <- list(structure(c(-11.3814849918875, -11.9361690778798, 0.562602893455921, 11.5126028934559, 76.2209544348296, -8.66448499188751, -6.94502893455923, -5.28148499188751, -35.7665182531098, 6.35497106544077, -9.20908119253651, -0.898484991887508, -5.59380090589508, -6.12730922120065, -13.3061334505138, 58.6278831800973, -15.1098009058951, -8.29625696322337, -4.07211681990265, 3.7096551514332, 2.60151500811249, 6.24733923742563, -1.33911681990266, -2.14157287723094, -10.5984849918875, -8.12802893455923, 1.30028697944835, -15.7450289345592, 7.20569077879935, -12.6484849918875, 25.1810423201731, -4.42680090589508, -1.90886979448351), .Names = c('Craig Dunain', 'Ben Rha', 'Ben Lomond', 'Goatfell', 'Bens of Jura', 'Cairnpapple', 'Scolty', 'Traprain', 'Lairig Ghru', 'Dollar', 'Lomonds', 'Cairn Table', 'Eildon Two', 'Cairngorm', 'Seven Hills', 'Knock Hill', 'Black Hill', 'Creag Beag', 'Kildcon Hill', 'Meall Ant-Suidhe', 'Half Ben Nevis', 'Cow Hill', 'N Berwick Law', 'Creag Dubh', 'Burnswark', 'Largo Law', 'Criffel', 'Acmony', 'Ben Nevis', 'Knockfarrel', 'Two Breweries', 'Cockleroi', 'Moffat Chase')));max(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax26_10e90b2dd304926ccf27c9c4fbba56f7() {
+ assertEval("argv <- list(c(1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374947, 0.707106781186547, 0.587785252292473, 0.453990499739547, 0.309016994374947, 0.156434465040231, -1.83697019872103e-16, -0.156434465040231, -0.309016994374948, -0.453990499739547, -0.587785252292473, -0.707106781186548, -0.809016994374948, -0.891006524188368, -0.951056516295154, -0.987688340595138, -1, -0.987688340595138, -0.951056516295154, -0.891006524188368, -0.809016994374947, -0.707106781186547, -0.587785252292473, -0.453990499739547, -0.309016994374947, -0.156434465040231, 6.12323399573677e-17, 0.156434465040231, 0.309016994374947, 0.453990499739547, 0.587785252292473, 0.707106781186548, 0.809016994374947, 0.891006524188368, 0.951056516295154, 0.987688340595138, 1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374947, 0.707106781186548, 0.587785252292473, 0.453990499739547, 0.309016994374947, 0.156434465040231, 6.12323399573677e-17, -0.15643446504023, -0.309016994374947, -0.453990499739548, -0.587785252292473, -0.707106781186547, -0.809016994374947, -0.891006524188368, -0.951056516295154, -0.987688340595138, -1, -0.987688340595138, -0.951056516295154, -0.891006524188368, -0.809016994374948, -0.707106781186547, -0.587785252292473, -0.453990499739548, -0.309016994374948, -0.15643446504023, -1.83697019872103e-16, 0.15643446504023, 0.309016994374947, 0.453990499739547, 0.587785252292473, 0.707106781186547, 0.809016994374947, 0.891006524188368, 0.951056516295154, 0.987688340595138, 1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374948, 0.707106781186547, 0.587785252292473, 0.453990499739548, 0.309016994374948, 0.15643446504023, 3.06161699786838e-16, -0.15643446504023, -0.309016994374947, -0.453990499739547, -0.587785252292473, -0.707106781186547, -0.809016994374947, -0.891006524188368, -0.951056516295153, -0.987688340595138, -1));max(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax3_1c9af6b2ed8692613f579104f1967de7() {
+ assertEval("argv <- list(5, 1, 0);max(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax4_98b63530746239442da45bb5206423dc() {
+ assertEval("argv <- list(c(NA, 1, 2, 3, -Inf, NaN, Inf));max(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax5_5ebe9da0be4eef7e8bde44e34019b2e2() {
+ assertEval("max( );");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax6_9c3ab3fc27d45d6f0b8d5c6a8791347f() {
+ assertEval("argv <- list(1L, structure(1:10, .Label = c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j'), class = 'factor'));max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax7_e867d6a95b2a75886cdbe954a3270e7a() {
+ assertEval("argv <- list(1573.05073007216, 1000);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax8_6a4db49e9be73681652dff7a15f10f48() {
+ assertEval("argv <- list(structure(c(6L, 3L, 8L, 4L, 4L, 5L, 7L, 8L, 5L), .Dim = 9L, .Dimnames = structure(list(state.division = c('New England', 'Middle Atlantic', 'South Atlantic', 'East South Central', 'West South Central', 'East North Central', 'West North Central', 'Mountain', 'Pacific')), .Names = 'state.division'), class = 'table'));max(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmax_testmax9_6b37ac20bbd5f6968bbbd7156f6f87c5() {
+ assertEval("argv <- list(structure(list(x = c(-1, 1, 1, -1, -1, 1, 1, -1), y = c(-0.701149425287356, -0.701149425287356, -0.701149425287356, -0.701149425287356, 0.701149425287356, 0.701149425287356, 0.701149425287356, 0.701149425287356), z = c(-0.4, -0.4, 0.4, 0.4, -0.4, -0.4, 0.4, 0.4)), .Names = c('x', 'y', 'z'), row.names = c(NA, -8L), class = 'data.frame'), na.rm = FALSE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmaxcol_testmaxcol1_df8662b0e48cf725d3be6b778572cdc3() {
+ assertEval("argv <- list(structure(c(80.2, 17, 15, 12, 9.96, 22.2, 83.1, 45.1, 6, 9, 84.84, 22.2, 92.5, 39.7, 5, 5, 93.4, 20.2, 85.8, 36.5, 12, 7, 33.77, 20.3, 76.9, 43.5, 17, 15, 5.16, 20.6, 76.1, 35.3, 9, 7, 90.57, 26.6, 83.8, 70.2, 16, 7, 92.85, 23.6, 92.4, 67.8, 14, 8, 97.16, 24.9, 82.4, 53.3, 12, 7, 97.67, 21, 82.9, 45.2, 16, 13, 91.38, 24.4, 87.1, 64.5, 14, 6, 98.61, 24.5, 64.1, 62, 21, 12, 8.52, 16.5, 66.9, 67.5, 14, 7, 2.27, 19.1, 68.9, 60.7, 19, 12, 4.43, 22.7, 61.7, 69.3, 22, 5, 2.82, 18.7, 68.3, 72.6, 18, 2, 24.2, 21.2, 71.7, 34, 17, 8, 3.3, 20, 55.7, 19.4, 26, 28, 12.11, 20.2, 54.3, 15.2, 31, 20, 2.15, 10.8, 65.1, 73, 19, 9, 2.84, 20, 65.5, 59.8, 22, 10, 5.23, 18, 65, 55.1, 14, 3, 4.52, 22.4, 56.6, 50.9, 22, 12, 15.14, 16.7, 57.4, 54.1, 20, 6, 4.2, 15.3, 72.5, 71.2, 12, 1, 2.4, 21, 74.2, 58.1, 14, 8, 5.23, 23.8, 72, 63.5, 6, 3, 2.56, 18, 60.5, 60.8, 16, 10, 7.72, 16.3, 58.3, 26.8, 25, 19, 18.46, 20.9, 65.4, 49.5, 15, 8, 6.1, 22.5, 75.5, 85.9, 3, 2, 99.71, 15.1, 69.3, 84.9, 7, 6, 99.68, 19.8, 77.3, 89.7, 5, 2, 100, 18.3, 70.5, 78.2, 12, 6, 98.96, 19.4, 79.4, 64.9, 7, 3, 98.22, 20.2, 65, 75.9, 9, 9, 99.06, 17.8, 92.2, 84.6, 3, 3, 99.46, 16.3, 79.3, 63.1, 13, 13, 96.83, 18.1, 70.4, 38.4, 26, 12, 5.62, 20.3, 65.7, 7.7, 29, 11, 13.79, 20.5, 72.7, 16.7, 22, 13, 11.22, 18.9, 64.4, 17.6, 35, 32, 16.92, 23, 77.6, 37.6, 15, 7, 4.97, 20, 67.6, 18.7, 25, 7, 8.65, 19.5, 35, 1.2, 37, 53, 42.34, 18, 44.7, 46.6, 16, 29, 50.43, 18.2, 42.8, 27.7, 22, 29, 58.33, 19.3), .Dim = c(6L, 47L), .Dimnames = list(c('Fertility', 'Agriculture', 'Examination', 'Education', 'Catholic', 'Infant.Mortality'), c('Courtelary', 'Delemont', 'Franches-Mnt', 'Moutier', 'Neuveville', 'Porrentruy', 'Broye', 'Glane', 'Gruyere', 'Sarine', 'Veveyse', 'Aigle', 'Aubonne', 'Avenches', 'Cossonay', 'Echallens', 'Grandson', 'Lausanne', 'La Vallee', 'Lavaux', 'Morges', 'Moudon', 'Nyone', 'Orbe', 'Oron', 'Payerne', 'Paysd'enhaut', 'Rolle', 'Vevey', 'Yverdon', 'Conthey', 'Entremont', 'Herens', 'Martigwy', 'Monthey', 'St Maurice', 'Sierre', 'Sion', 'Boudry', 'La Chauxdfnd', 'Le Locle', 'Neuchatel', 'Val de Ruz', 'ValdeTravers', 'V. De Geneve', 'Rive Droite', 'Rive Gauche'))), 1L); .Internal(max.col(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmaxcol_testmaxcol2_3e069e10258ed1d236f496c702d847de() {
+ assertEval("argv <- list(structure(c(0.0140185568997224, 0.0152950000405453, 0.013933189413423, 0.0141545247888734, 0.0144656253644622, 0.0138841285101751, 0.014995293880605, 0.0135531935867069, 0.0136464824425927, 0.0139216121812551, 0.0150015663096977, 0.0141230892456885, 0.013614290948012, 0.0169498879707739, 0.0167919904349555, 0.0164281655519131, 0.0145450130659148, 0.0154935322596005, 0.0140566103751186, 0.0137862479562347, 0.0138916844301758, 0.0144143878263478, 0.0153699249520618, 0.0156955405518398, 0.0143684930741837, 0.991123944314599, 0.772371856665358, 0.998388573397845, 0.997744681008954, 0.935000528851613, 0.995759465226583, 0.998319991897437, 0.998446741491899, 0.997291233910865, 0.998453850443283, 0.449550979690061, 0.99765492178392, 0.0744670889060699, 0.997953251276348, 0.998367231220745, 0.998303801028119, 0.996490251221358, 0.987068752837462, 0.963362766144961, 0.997745619693091, 0.998180187351627, 0.995230116685749, 0.99834615324817, 0.998224606721368, 0.998138182928866, 0.000101796455995556, 0.0169548122668949, 0.00010041243364593, 0.994976075194857, 0.000116262428296307, 0.000266333816370553, 0.000213420942072358, 0.000150164062855871, 9.91852669694001e-05, 0.962237984681016, 0.000109709045973819, 0.363503438381572, 0.000165884012322677, 0.000404227768170316, 0.000101407372837694, 0.000138346452367636, 0.76867700377653, 0.000101067307394145, 0.000798310678132636, 0.439735407970107, 0.000105640126458538, 0.000103729730504055, 0.000157422658078269, 0.00062878104546921, 0.000140302481934868, 0.987636544924171, 0.986762198204236, 0.987695606647598, 0.987542563977846, 0.987328468487257, 0.987729584212166, 0.986966061808917, 0.987959390267427, 0.987894530108167, 0.987703622276188, 0.986961786481457, 0.987564327481863, 0.987916920251847, 0.98565103396999, 0.98575611086066, 0.985998830615913, 0.98727397408636, 0.986627618096195, 0.987610242071539, 0.987797448350422, 0.987724349638781, 0.987363673212559, 0.986711269247982, 0.986491053812255, 0.987395229430566, 0.0127450421932153, 0.00673790924500044, 0.0168765170487183, 0.015797380803532, 0.00875985277873091, 0.0142537568101031, 0.0172964637554702, 0.0177648866573519, 0.0158550778308362, 0.0172334564486378, 0.00522951225361075, 0.016267073149734, 0.00347221059583105, 0.0218803200901225, 0.0183403081414579, 0.0180163362514856, 0.0146261930363668, 0.0119682371438135, 0.00971509310832369, 0.0157071233034631, 0.017455515535567, 0.0139105878597395, 0.0174050248646065, 0.0173796025035352, 0.0168918350504782, 0.00106971573173608, 0.0026383344434856, 0.00106703814487522, 0.0135614845327103, 0.0010949673490627, 0.00126684800065677, 0.0012190851300456, 0.00114670950680761, 0.00106469628452917, 0.00946684926508704, 0.00108427378412549, 0.00489096395354091, 0.00116581741675497, 0.00136406369196257, 0.00106938597766297, 0.00112914854449728, 0.00664571845549644, 0.00106837166942789, 0.00153810249624049, 0.0051794966429432, 0.00107683746869901, 0.00107356047093305, 0.00115632815053843, 0.001475874716352, 0.00113310775095649, 0.000705529701133523, 0.000706190813132159, 0.000705483416292851, 0.000705607277564461, 0.000705767694047911, 0.000705456690994395, 0.000706040550884142, 0.000705277731844386, 0.000705325918720134, 0.00070547711802582, 0.000706043725519247, 0.000705586003991082, 0.000705308033747408, 0.000706976814055453, 0.000706900888924168, 0.000706734153004456, 0.000705809204506355, 0.000706288779684405, 0.000705550244606539, 0.000705403095546089, 0.000705460812978617, 0.000705740784771567, 0.000706233802920496, 0.000706387215078423, 0.000705716602186515, 0.00537527373619432, 0.193553056279976, 0.000869791621482113, 0.00126068143747944, 0.0477132994644455, 0.00247011263414166, 0.000876993026210466, 0.000793804652755058, 0.00147446124252569, 0.000818798505743392, 0.527720370257185, 0.0012613575859543, 0.931485133910046, 0.000794860447953985, 0.000799403966921179, 0.000843774285071599, 0.00203097055872496, 0.00804383321163345, 0.0255537088264535, 0.00126855734163029, 0.000930853589102135, 0.00281671019786704, 0.000858777960111907, 0.000915470358337216, 0.000986308498091386, 0.999944492377256, 0.98624753604171, 0.999945310582066, 0.00303527549384713, 0.999935958318038, 0.99984366374275, 0.999876760118408, 0.999915533835607, 0.999946031942947, 0.0270168111120999, 0.999939809617296, 0.622685795280626, 0.999906081646851, 0.999754847875723, 0.999944697838299, 0.999922757726417, 0.198924025871316, 0.99994491987507, 0.99948964681356, 0.539122196215121, 0.999942224996369, 0.999943338667082, 0.999911124821608, 0.999605022779117, 0.999921489451661), .Dim = c(75L, 3L), .Dimnames = list( NULL, c('c', 's', 'v'))), 1L); .Internal(max.col(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmaxcol_testmaxcol3_207ddcc22fe384dfefb0977a8c29e2d4() {
+ assertEval("argv <- list(structure(list(), .Dim = 0:1), 1L); .Internal(max.col(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmean_testmean1_6d63044d182de4a3362485ccc134f396() {
+ assertEval("argv <- list(c(95.4489970123773, 98.5489970123773, 98.5489970123773, 98.5489970123773, 98.5489970123773, 98.5489970123773)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmean_testmean10_c131cf0ff3309cb502d49c3a8e5928ab() {
+ assertEval("argv <- list(c(TRUE, FALSE, TRUE, TRUE)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmean_testmean11_d6c85ab05506b4304e0869814432bd72() {
+ assertEval("argv <- list(structure(c(103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662), .Names = c('2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72'))); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmean_testmean12_eca7c9ecabad037b71ed081282c83c5c() {
+ assertEval("argv <- list(c(-1.12778377684043, -12820.0784261145, -21650982809.6744, -473300382255715392, -6.08456909882282e+25, -3.04622557026196e+34, -4.60125024792566e+43, -1.76183826972506e+53, -1.5069799345972e+63, -2.61556777274611e+73, -8.54170618068872e+83, -4.9383857330861e+94, -4.80716085942859e+105, -7.55412056676629e+116, -1.84898368353639e+128, -6.83535188151783e+139, -3.71562599613334e+151, -2.90089508183654e+163, -3.18582547396557e+175, -4.83110332887119e+187, -9.94902790498679e+199, -2.74100158340596e+212, -9.96611412047338e+224, -4.72336572671053e+237, -2.88514442494869e+250, -2.24780296109123e+263, -2.21240023126594e+276, -2.72671165723473e+289, -4.17369555651928e+302, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmean_testmean13_46152cb9e4ab3bed2c659c2bc5b7cc8a() {
+ assertEval("argv <- list(1:10); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmean_testmean14_290156131741c9e227df181becc40a71() {
+ assertEval("argv <- list(c(-2.16610675289233, 2.16610675289233)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmean_testmean15_9abd3e7f781e3925216367ec53ddb5c4() {
+ assertEval("argv <- list(c(-Inf, Inf)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmean_testmean16_da3df535b6e27638cb42086b8ae57a46() {
+ assertEval("argv <- list(numeric(0)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmean_testmean17_3ff1f045467adce67fbf87c1dec8e1f2() {
+ assertEval("argv <- list(c(1.77635683940025e-15, 7.105427357601e-14, 4.54747350886464e-13, 4.54747350886464e-13, 1.81898940354586e-12, 7.27595761418343e-12, 7.27595761418343e-12, 1.45519152283669e-11, 2.91038304567337e-11, 5.82076609134674e-11)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmean_testmean2_5b80432d7da7d000026ef5f85256359c() {
+ assertEval("argv <- list(c(0.104166666666667, 0.285714285714286, 0.285714285714286, NA)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmean_testmean3_3acc6ba76dfd344245f73f1dbe114f2c() {
+ assertEval("argv <- list(structure(c(59.8164361195774, 16.3642182644146, 111.747292631572, 33.1308121255244, 111.087966260681, 17.8530570409338, 109.920202428016, 21.131775457295, 0, 0, 16.3642182644146, 161.535939255833, 37.6748802609012, 67.2883398244609, 38.6252764993654, 76.8303935707398, 28.4778348377214, 75.3935967432183, 0, 0, 111.747292631572, 37.6748802609012, 398.433064545232, 41.228743361535, 56.6580728922266, 34.5026155985806, 59.292325604515, 36.0412835987832, 0, 0, 33.1308121255244, 67.2883398244609, 41.228743361535, 1176.45954558834, 42.4165944769534, 69.928075668575, 32.9974365646273, 68.4061187132491, 0, 0, 111.087966260681, 38.6252764993654, 56.6580728922266, 42.4165944769534, 1738.19143232074, 35.3995546471346, 61.6125843485971, 37.0026062612778, 0, 0, 17.8530570409338, 76.8303935707398, 34.5026155985806, 69.928075668575, 35.3995546471346, 3334.81773597237, 25.0719711616328, 77.7527739510622, 0, 0, 109.920202428016, 28.4778348377214, 59.292325604515, 32.9974365646273, 61.6125843485971, 25.0719711616328, 3310.21623403309, 26.7939833992556, 0, 0, 21.131775457295, 75.3935967432183, 36.0412835987832, 68.4061187132491, 37.0026062612778, 77.7527739510622, 26.7939833992556, 6145.64636329227, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(10L, 10L))); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmean_testmean4_982f7402dc23c0b0c4a2881a2c631c83() {
+ assertEval("argv <- list(structure(c(36, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 33, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 40, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 28, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 50, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 47, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 55, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 38, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 42), .Dim = c(10L, 10L), .Dimnames = list(c('a1', 'a2', 'a3', 'a4', 'a5', 'a6', 'a7', 'a8', 'a9', 'a10'), c('a1', 'a2', 'a3', 'a4', 'a5', 'a6', 'a7', 'a8', 'a9', 'a10')))); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmean_testmean5_21e9580475604a7da578856f01a44fa0() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmean_testmean6_d1689d9f0deb0058fec8487bd4b1c53e() {
+ assertEval("argv <- list(c(-0.207917278019599, -0.0833690664718293, 0.878133487533042, 0.070508391424576, 0.460916205989202, 0.497850478229239, 0.400771450594052, 0.400771450594052, -0.380471001012383, -0.686852851893526, 1.25381492106993, 0.821581081637487, -0.402884835299076, 0.821581081637487, 0.11068271594512, -0.560475646552213, 1.55870831414912, -0.686852851893526, -1.26539635156826, 1.55870831414912, 0.11068271594512, 1.20796199830499, 0.153373117836515, -0.694706978920513, -0.466655353623219, 0.821581081637487, -1.06782370598685, 0.779965118336318, -0.402884835299076, -1.68669331074241, 0.460916205989202, -0.295071482992271, -0.207917278019599, 0.460916205989202, 1.25381492106993, -0.0833690664718293, 0.359813827057364, -1.06782370598685, 1.71506498688328, 0.11068271594512, 0.837787044494525, 1.78691313680308, 0.426464221476814, -0.0833690664718293, 0.426464221476814, -1.26506123460653, 0.688640254100091, 0.878133487533042, 0.497850478229239, -0.217974914658295)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmean_testmean7_242eb54544a2161448a58f7f14b6dbd6() {
+ assertEval("argv <- list(1.47130567537631e-314); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmean_testmean8_a91ee89ef035cbad22852b11a3531341() {
+ assertEval("argv <- list(4.9306115419259e+108); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmean_testmean9_09c9d5009e4805408150b2a3a66ca4ee() {
+ assertEval("argv <- list(structure(c(2134, 1863, 1877, 1877, 1492, 1249, 1280, 1131, 1209, 1492, 1621, 1846, 2103, 2137, 2153, 1833, 1403, 1288, 1186, 1133, 1053, 1347, 1545, 2066, 2020, 2750, 2283, 1479, 1189, 1160, 1113, 970, 999, 1208, 1467, 2059, 2240, 1634, 1722, 1801, 1246, 1162, 1087, 1013, 959, 1179, 1229, 1655, 2019, 2284, 1942, 1423, 1340, 1187, 1098, 1004, 970, 1140, 1110, 1812, 2263, 1820, 1846, 1531, 1215, 1075, 1056, 975), .Tsp = c(1974, 1979.58333333333, 12), class = 'ts')); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmerge_testmerge1_67f3d35bee7a44212d18c4947fe9cd45() {
+ assertEval("argv <- list(c(0L, 0L, 0L, 0L, 0L), 0L, FALSE, TRUE); .Internal(merge(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmerge_testmerge2_5e73e0cf406f0165a44a7bd568061a10() {
+ assertEval("argv <- list(c(0L, 0L, 0L, 0L, 0L), 0L, TRUE, FALSE); .Internal(merge(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmerge_testmerge3_ab877162a6a6d8ad05f8a857a91d8755() {
+ assertEval("argv <- list(c(0L, 0L, 0L, 3L, 4L), c(0L, 0L, 0L, 3L, 4L), FALSE, FALSE); .Internal(merge(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin1_9fb43b17d6d8bc2e8f0f54b45dcca106() {
+ assertEval("argv <- list(c(10L, 1L));min(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin10_3eff33ade5effcf4f29e3a2b76c52f0e() {
+ assertEval("argv <- list(c(2.00256647265648e-308, 2.22284878464869e-308, 2.22507363599982e-308, 2.2250738585072e-308, 2.22507408101459e-308, 2.22729893236571e-308, 2.44758124435792e-308));min(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin11_44b9e8718656525c9d5c10c50d0eb959() {
+ assertEval("argv <- list(c(FALSE, FALSE));min(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin12_7c86bff658ab8866c2cb751607271b09() {
+ assertEval("argv <- list(c(2, 13954490295224484, 9.73638996997572e+31, 6.79331796732739e+47, 4.73986448237219e+63, 3.30711964599708e+79, 2.30745845026066e+95, 1.60997032753976e+111, 1.12331576556267e+127, 7.83764947450857e+142, 5.46852017646992e+158, 3.8155205865895e+174, 2.66218224983966e+190, 1.85746981847535e+206, 1.29600222777925e+222, 9.04252525506755e+237, 6.30919154580821e+253, 4.40207760983472e+269, 3.07143746426322e+285, 2.14301721437253e+301));min(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin13_341893ea4787c250bc3e31fa673bb2f5() {
+ assertEval("min( );");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin14_268ff60da1e88efcacbc32726f1ff677() {
+ assertEval("argv <- list(structure(c(13823, NA), class = 'Date'), na.rm = TRUE);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin15_e4f80ff9bce87b9dc26b274dbfdd036c() {
+ assertEval("argv <- list(structure(c(1208822400, 1209168000), class = c('POSIXct', 'POSIXt'), tzone = 'GMT'), na.rm = FALSE);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin16_5973a8bf09d0a8d665236ec9ad4c5ef9() {
+ assertEval("argv <- list(3L, 7);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin17_4ccc1bfc8bf36a5afc7cbb6d5592b4e3() {
+ assertEval("argv <- list(c(-7, -5.6, -4.2, -2.8, -1.4, 0, 1.4, 2.8, 4.2, 5.6, 7));min(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin18_3dcb0e94d45cec63699680dc9ec09005() {
+ assertEval("argv <- list(c(4.5241870901798, 0.211646098116025, 1.86003798801034e-43));min(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin19_16be5bbb78cfa3d6cf57e7848eac025c() {
+ assertEval("argv <- list(structure(c(-0.562441486309934, -0.588967592535822, 0.0277608937997097, 0.568074124752969, 3.89980510825846, -0.428174866497729, -0.343990813420242, -0.260996370058754, -2.31774610938305, 0.314764947225063, -0.455124436264437, -0.0444006414474544, -0.27748974692001, -0.303134023269405, -0.670168347915028, 2.92643313367, -0.749546667806845, -0.410394401887929, -0.203261263063707, 0.1847365997012, 0.128559671155683, 0.313558179929332, -0.0668425264405297, -0.106427678524531, -0.523747793519006, -0.402585404761851, 0.0642079595716389, -0.779859286629166, 0.356484381211739, -0.625053119472271, 1.31547628490512, -0.21959878152752, -0.102402088986461), .Names = c('Craig Dunain', 'Ben Rha', 'Ben Lomond', 'Goatfell', 'Bens of Jura', 'Cairnpapple', 'Scolty', 'Traprain', 'Lairig Ghru', 'Dollar', 'Lomonds', 'Cairn Table', 'Eildon Two', 'Cairngorm', 'Seven Hills', 'Knock Hill', 'Black Hill', 'Creag Beag', 'Kildcon Hill', 'Meall Ant-Suidhe', 'Half Ben Nevis', 'Cow Hill', 'N Berwick Law', 'Creag Dubh', 'Burnswark', 'Largo Law', 'Criffel', 'Acmony', 'Ben Nevis', 'Knockfarrel', 'Two Breweries', 'Cockleroi', 'Moffat Chase')));min(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin2_1b48d9e77f21ab2b4adba5adb1cb2da0() {
+ assertEval("argv <- list(structure(c(0.25069599964819, 0.252830784944624), .Dim = 1:2));min(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin20_574784a10aa58b754300bd8152cf28f2() {
+ assertEval("argv <- list(numeric(0));min(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin3_de90589d947add75f389d19743d98c52() {
+ assertEval("argv <- list(c(-3.37619548064471, -3.28575139573497, -3.19530731082523, -3.10486322591549, -3.01441914100575, -2.923975056096, -2.83353097118626, -2.74308688627652, -2.65264280136678, -2.56219871645704, -2.4717546315473, -2.38131054663755, -2.29086646172781, -2.20042237681807, -2.10997829190833, -2.01953420699859, -1.92909012208884, -1.8386460371791, -1.74820195226936, -1.65775786735962, -1.56731378244988, -1.47686969754013, -1.38642561263039, -1.29598152772065, -1.20553744281091, -1.11509335790117, -1.02464927299142, -0.934205188081682, -0.84376110317194, -0.753317018262198, -0.662872933352456, -0.572428848442715, -0.481984763532973, -0.39154067862323, -0.301096593713489, -0.210652508803747, -0.120208423894005, -0.029764338984263, 0.0606797459254791, 0.151123830835221, 0.241567915744963, 0.332012000654705, 0.422456085564447, 0.512900170474189, 0.603344255383931, 0.693788340293673, 0.784232425203414, 0.874676510113156, 0.965120595022898, 1.05556467993264, 1.14600876484238, 1.23645284975212, 1.32689693466187, 1.41734101957161, 1.50778510448135, 1.59822918939109, 1.68867327430083, 1.77911735921058, 1.86956144412032, 1.96000552903006, 2.0504496139398, 2.14089369884954, 2.23133778375928, 2.32178186866903, 2.41222595357877, 2.50267003848851, 2.59311412339825, 2.68355820830799, 2.77400229321774, 2.86444637812748, 2.95489046303722, 3.04533454794696, 3.1357786328567, 3.22622271776645, 3.31666680267619, 3.40711088758593, 3.49755497249567, 3.58799905740541, 3.67844314231516, 3.7688872272249, 3.85933131213464, 3.94977539704438, 4.04021948195412, 4.13066356686387, 4.22110765177361, 4.31155173668335, 4.40199582159309, 4.49243990650283, 4.58288399141258, 4.67332807632232, 4.76377216123206, 4.8542162461418, 4.94466033105154, 5.03510441596129, 5.12554850087103, 5.21599258578077, 5.30643667069051, 5.39688075560025, 5.48732484051, 5.57776892541974, 5.66821301032948, 5.75865709523922, 5.84910118014896, 5.9395452650587, 6.02998934996845, 6.12043343487819, 6.21087751978793, 6.30132160469767, 6.39176568960741, 6.48220977451716, 6.5726538594269, 6.66309794433664, 6.75354202924638, 6.84398611415612, 6.93443019906586, 7.02487428397561, 7.11531836888535, 7.20576245379509, 7.29620653870483, 7.38665062361457, 7.47709470852432, 7.56753879343406, 7.6579828783438, 7.74842696325354, 7.83887104816328, 7.92931513307303, 8.01975921798277, 8.11020330289251));min(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin4_7a8b139c2389992575b5615a63b50dab() {
+ assertEval("argv <- list(c(NA, 1, 2, 3, -Inf, NaN, Inf));min(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin5_cea78acf4c8889e24182ccb6af340f77() {
+ assertEval("argv <- list(structure(list(c(1L, 2L, 4L), 1:3, c(2L, 1L)), class = c('package_version', 'numeric_version')), na.rm = FALSE);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin6_a4ec5c86068ddf5916f2532ecc622948() {
+ assertEval("argv <- list(structure(c(1338544800L, 1338566400L, 1338588000L, 1338609600L, 1338631200L, 1338652800L, 1338674400L, 1338696000L, 1338717600L, 1338739200L, 1338760800L, 1338782400L, 1338804000L, 1338825600L, 1338847200L, 1338868800L, 1338890400L, 1338912000L, 1338933600L, 1338955200L, 1338976800L, 1338998400L, 1339020000L, 1339041600L), class = c('POSIXct', 'POSIXt'), tzone = ''), na.rm = TRUE);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin7_63b353dc1cec76c9466ce39a256673e1() {
+ assertEval("argv <- list(1.234e+100);min(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin8_64e6a569096300db1b5d75de4779ab74() {
+ assertEval("argv <- list(structure(c(3L, 2L, 1L), .Label = c('A', 'B', 'C'), class = c('ordered', 'factor')), na.rm = FALSE);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinmin_testmin9_6a1c474d9c4291af3bd1ac906811bb9e() {
+ assertEval("argv <- list(structure(c(11368.8306749654, 11347.7238090355, 11341.9182102121, 11392.4878842821, 11367.3445285107, 11337.9245694652, 11332.0560643654, 11356.4682624019, 11387.6852128883, 11364.9132677, 11391.3319486445, 11374.2254758319, 11347.9708838458, 11353.2031583386, 11333.3748092474, 11323.9154302836, 11373.0896246266, 11330.2228965024, 11354.2399044028, 11367.8070731596, 11392.4287034031, 11357.6915504499, 11356.9044667059, 11335.1409634408, 11375.8374661156, 11354.7726842454, 11358.781884864, 11337.5281579299, 11339.0060699913, 11364.6998397419, 11363.2410538797, 11328.3945066198, 11325.487840571, 11367.9956844538, 11388.0030639744, 11364.8664695648, 11362.2630523606, 11359.821940674, 11391.9566656714, 11358.5349275633, 11370.7951655071, 11365.1078852355, 11339.7208074429, 11341.0716148671, 11374.0516736354, 11354.6799581982, 11335.2588737891, 11375.2688788734, 11330.349134828, 11383.518146432, 11366.0251480173, 11362.0011677193, 11346.0144123337, 11354.7192011815, 11358.0308680837, 11335.6606452791, 11360.0741421962, 11328.2693021996, 11342.4429152855, 11337.8889663466, 11342.9353336683, 11385.6565872063, 11354.2364726327, 11377.5989422849, 11384.6433324409, 11351.9186946652, 11327.4665936357, 11346.4841244179, 11373.6608162634, 11346.6330733448, 11367.1289885738, 11381.8430187805, 11382.9292165297, 11350.3951496719, 11349.6345719923, 11385.6811798196, 11368.1021034038, 11374.8755054101, 11365.3712412571, 11386.2157128048, 11343.5611108569, 11336.3882076922, 11385.0515660313, 11358.2337640012, 11384.3940280117, 11336.2435535709, 11376.0672136671, 11373.7149224868, 11389.0607372806, 11361.3352610911, 11372.8220707406, 11350.2233569878, 11330.0611188328, 11387.9111462012, 11342.8262750218, 11364.340121117, 11330.7252423461, 11381.8354922482, 11345.257457911, 11377.7995935893), class = 'Date'), na.rm = TRUE);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames1_3355b6e340b2d268485ee587b823330f() {
+ assertEval("argv <- list(structure(list(size = 113, isdir = FALSE, mode = structure(436L, class = 'octmode'), mtime = structure(1395082088.72988, class = c('POSIXct', 'POSIXt')), ctime = structure(1395082088.72988, class = c('POSIXct', 'POSIXt')), atime = structure(1395082088.77388, class = c('POSIXct', 'POSIXt')), uid = 1001L, gid = 1001L, uname = 'roman', grname = 'roman'), .Names = c('size', 'isdir', 'mode', 'mtime', 'ctime', 'atime', 'uid', 'gid', 'uname', 'grname'), class = 'data.frame', row.names = '/tmp/RtmptPgrXI/file55711ba85492'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames10_8a197025890e8bc6eab59f7e6840b866() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames11_4acabe50ac6945499e65f537a2ccd957() {
+ assertEval("argv <- list(structure(c(NA, NA, NA, NA, NA, 1L, 2L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames12_6c9070b386e6a9d43001ad4a2a80b1f4() {
+ assertEval("argv <- list(structure(list(V1 = c(-1L, -2L, 1L, 2L, 3L, 4L, 5L), V2 = c(-3L, -4L, 6L, 7L, 8L, 9L, 10L), V3 = c(-5L, -6L, 11L, 12L, 13L, 14L, 15L), V4 = c(-7L, -8L, 16L, 17L, 18L, 19L, 20L), V5 = c(-9L, -10L, 21L, 22L, 23L, 24L, 25L)), .Names = c('V1', 'V2', 'V3', 'V4', 'V5'), row.names = c(NA, 7L), class = 'data.frame'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames13_1fbe113577e256d270a7514197b8a703() {
+ assertEval("argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c('Employed', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'), class = 'data.frame', row.names = 1947:1962, terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year)));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames14_8b3eec9237f086d76f8f8f6de18ed4af() {
+ assertEval("argv <- list(structure(list(ii = 1:10, xx = c(-9.42477796076938, -6.28318530717959, -3.14159265358979, 0, 3.14159265358979, 6.28318530717959, 9.42477796076938, 12.5663706143592, 15.707963267949, 18.8495559215388)), .Names = c('ii', 'xx')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames15_419a73a144622b0f43878d69287aff5e() {
+ assertEval("argv <- list(structure(list(`cbind(X, M)` = structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('X', 'M'))), M.user = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L), .Label = c('N', 'Y'), class = 'factor'), Temp = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c('High', 'Low'), class = 'factor'), Soft = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c('Hard', 'Medium', 'Soft'), class = 'factor')), .Names = c('cbind(X, M)', 'M.user', 'Temp', 'Soft'), class = 'data.frame', row.names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), terms = quote(cbind(X, M) ~ M.user + Temp + Soft)));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames16_7c2429941efa2966c421240e10bf6879() {
+ assertEval("argv <- list(structure(list(), .Names = character(0)));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames17_fad62e5287858a683361909d8dad38b7() {
+ assertEval("argv <- list(c(1281L, 1283L));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames18_5a295b807d2b56126dbac07686ac5dfb() {
+ assertEval("argv <- list(structure(list(itemBullet = '• '), .Names = 'itemBullet'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames19_51cdb7b68468aee6aa02978ba6a46fe0() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils'), frow = c(2417L, 2417L, 2418L, 2418L, 2420L, 2420L, 2422L, 2422L, 2423L, 2424L, 2426L, 2426L, 2426L, 2426L), lrow = c(2417L, 2417L, 2419L, 2419L, 2421L, 2421L, 2422L, 2422L, 2434L, 2425L, 2433L, 2433L, 2433L, 2433L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 14L), class = 'data.frame'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames2_29141832f4c3c28823f2d5cddd732819() {
+ assertEval("argv <- list(list(character(0), numeric(0), numeric(0), complex(0), integer(0), logical(0), character(0)));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames20_fdc832784b9229270806ce5882aefef9() {
+ assertEval("argv <- list(c(-21.222245139688+176.377752294836i, -21.222245139688-176.377752294836i, 61.0965873274464+76.7794305756989i, 61.0965873274464-76.7794305756989i, -11.748684375517+0i));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames21_0f71460a2e421a30a961f445640b3845() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames22_e36559d882b21d52c899aacff82f670b() {
+ assertEval("argv <- list(structure(list(`Surv(time, status)` = structure(c(9, 1, 1, 6, 6, 8, 1, 1, 0, 1, 1, 0), .Dim = c(6L, 2L), .Dimnames = list(NULL, c('time', 'status')), class = 'Surv', type = 'right'), x = c(0, 1, 1, 1, 0, 0)), .Names = c('Surv(time, status)', 'x'), class = 'data.frame', row.names = c(1L, 3L, 4L, 5L, 6L, 7L)));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames23_99aa6cad36e0d65c886f1bc72501d62d() {
+ assertEval("argv <- list(structure(list(xlev = structure(list(), .Names = character(0))), .Names = 'xlev'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames24_6b011f295a2c6c3b3ebf7f5bbcf81669() {
+ assertEval("argv <- list(structure(c(0.434200949779115, NA, 0.907914219551846, 0.907914219551846, 0.907914219551846, 0.434200949779115, 0.434200949779115), .Names = c('1', NA, '3', '4', '5', '6', '7')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames25_a87e2b2072b78cc63d1e5fe12d1a4e79() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames26_4e5ee3c1d25474beae3404ba8ef3aa83() {
+ assertEval("argv <- list(structure(c(3.22711508258913, 3.17840134153376, 3.17811325231463, 3.14144977340047, 3.21272015441784, 3.17926446433903, 3.19284611518884, 3.21218760440396, 3.19838213000829, 3.21827285357145, 3.33284226699435, 3.33203427702752, 3.24353410183206, 3.24674470972384, 3.23477029516092, 3.19256745333655, 3.19728055812562, 3.18184358794477, 3.25647720624168, 3.25527250510331, 3.23527587668705, 3.30276370847298, 3.35063560825895, 3.39410130204004, 3.30749603791321, 3.21879799811174, 3.22865695810894, 3.21031851982623, 3.25647720624168, 3.24204423936955, 3.25406445291434, 3.28465628278852, 3.20924684875337, 3.29928933408768, 3.34888872307144, 3.34084054981233, 3.31806333496276, 3.24748226067705, 3.26363606858811, 3.19562294358694, 3.29578694025161, 3.2678754193189, 3.29336255471145, 3.22762964957101, 3.24993175663419, 3.29578694025161, 3.37966803403365, 3.42390091852842, 3.32159843046534, 3.29292029960001, 3.22453306260609, 3.28802553538836, 3.30168094929358, 3.25839780409551, 3.30362797638389, 3.28148788794008, 3.31889771462749, 3.31806333496276, 3.32592595577147, 3.33243845991561, 3.20628604441243, 3.17695898058691, 3.18977095634687, 3.14050804303818, 3.23829706787539, 3.25478968739721, 3.25017594808393, 3.27577190016493, 3.30189771719521, 3.3174364965351, 3.32056168019524, 3.31196566036837, 3.1978316933289, 3.13225968953104, 3.21801004298436, 3.14050804303818, 3.18155777386279, 3.15259407792747, 3.15896526038341, 3.18836592606315, 3.21906033244886, 3.19340290306242, 3.27989498001164, 3.34222522936079, 3.16820274684263, 3.21879799811174, 3.14829409743475, 3.14457420760962, 3.1846914308176, 3.11693964655076, 3.18355453361886, 3.12287092286444, 3.21138755293686, 3.24254142829838, 3.29181268746712, 3.35679046035172, 3.2169572073611, 3.14643813528577, 3.14952701375435, 3.14705767102836, 3.14426277376199, 3.18184358794477, 3.18412335423967, 3.21563756343506, 3.18041263283832, 3.22659990520736, 3.30102999566398, 3.34537373055909, 3.29136885045158, 3.16494737262184, 3.19395897801919, 3.16405529189345, 3.16016829295851, 3.21005084987514, 3.21932250841934, 3.2143138974244, 3.21563756343506, 3.22608411597582, 3.31175386105575, 3.35449260058944, 3.25839780409551, 3.15986784709257, 3.24600590407603, 3.1646502159343, 3.19200959265367, 3.15563963375978, 3.15442397311465, 3.1914510144649, 3.21616590228599, 3.21827285357145, 3.30449052777349, 3.34380233316165, 3.22141423784234, 3.13385812520333, 3.17782497186468, 3.13353890837022, 3.16226561429802, 3.18241465243455, 3.16435285578444, 3.19089171692217, 3.18977095634687, 3.26173854735254, 3.2397998184471, 3.28802553538836, 3.16849748352303, 3.16375752398196, 3.18808437371494, 3.14736710779379, 3.18241465243455, 3.14144977340047, 3.21510858105309, 3.17897694729317, 3.22556771343947, 3.28735377271475, 3.27137687189407, 3.23704079137919, 3.16316137497702, 3.15986784709257, 3.16316137497702, 3.13513265137677, 3.17231096852195, 3.19256745333655, 3.17260293120986, 3.22634208716363, 3.20248831706009, 3.26717172840301, 3.30059548388996, 3.31785448933147), .Tsp = c(1969, 1982.91666666667, 12), class = 'ts'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames27_4cbc1ecf95ba4ac13ad590ef3cd3a405() {
+ assertEval("argv <- list(structure(list(object = structure(3.14159265358979, comment = 'Start with pi'), slots = 'comment', dataPart = TRUE, class = structure('classPrototypeDef', package = 'methods')), .Names = c('object', 'slots', 'dataPart', 'class')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames28_0a39e6652b9fd217185619ebc849cf61() {
+ assertEval("argv <- list(list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render'))));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames29_064751dbabc6a3f4b7bf64f6db1f0fe1() {
+ assertEval("argv <- list(structure(list(zz = complex(0)), .Names = 'zz'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames3_f58a94174b84f011c06f49d69307153c() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames31_a981017279aa1fa70133e594242c6c41() {
+ assertEval("argv <- list(list(structure(list(srcfile = c('/home/lzhao/tmp/RtmpTzriDZ/R.INSTALL30d4108a07be/mgcv/R/gam.fit3.r', '/home/lzhao/tmp/RtmpTzriDZ/R.INSTALL30d4108a07be/mgcv/R/gam.fit3.r'), frow = c(1287L, 1289L), lrow = c(1287L, 1289L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'), structure(list(srcfile = '/home/lzhao/tmp/RtmpTzriDZ/R.INSTALL30d4108a07be/mgcv/R/gam.fit3.r', frow = 1289L, lrow = 1289L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames32_b74257b2b5f05ae12c663b5e6d0c4df5() {
+ assertEval("argv <- list(structure(list(trace = 0, fnscale = 1, parscale = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), ndeps = c(0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001), maxit = 100L, abstol = -Inf, reltol = 1.49011611938477e-08, alpha = 1, beta = 0.5, gamma = 2, REPORT = 10, type = 1, lmm = 5, factr = 1e+07, pgtol = 0, tmax = 10, temp = 10), .Names = c('trace', 'fnscale', 'parscale', 'ndeps', 'maxit', 'abstol', 'reltol', 'alpha', 'beta', 'gamma', 'REPORT', 'type', 'lmm', 'factr', 'pgtol', 'tmax', 'temp')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames33_c8387d54e6c54a1372edefb41a83adc1() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 0L), Deviance = c(NA, 0), `Resid. Df` = c(10L, 10L), `Resid. Dev` = c(2.74035772634541, 2.74035772634541)), .Names = c('Df', 'Deviance', 'Resid. Df', 'Resid. Dev'), row.names = c('NULL', 'x'), class = c('anova', 'data.frame'), heading = 'Analysis of Deviance Table\n\nModel: gaussian, link: identity\n\nResponse: y\n\nTerms added sequentially (first to last)\n\n'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames34_e01202ee07ca89d878b085ed5dc115c2() {
+ assertEval("argv <- list(structure(c(100, -1e-13, Inf, -Inf, NaN, 3.14159265358979, NA), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames35_f006217cacd4d80e05366cac9d08f9df() {
+ assertEval("argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c('y', 'x', 'z'), class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ x * z)));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames36_a08bc967a7cff498129089e75a758ad5() {
+ assertEval("argv <- list(structure(c(2671, 6.026e+77, 3.161e+152, 3.501e+299, 2.409e+227, 1.529e+302), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), class = 'table'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames37_51ca21efc2a58c68dfc52063ba1aee4d() {
+ assertEval("argv <- list(structure(list(surname = structure(c('McNeil', 'Ripley', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'AsIs'), nationality = structure(c('Australia', 'UK', 'UK', 'US', 'US', 'Australia'), class = 'AsIs'), deceased = structure(c('no', 'no', 'no', 'no', 'yes', 'no'), class = 'AsIs'), title = structure(c('Interactive Data Analysis', 'Spatial Statistics', 'Stochastic Simulation', 'LISP-STAT', 'Exploratory Data Analysis', 'Modern Applied Statistics ...'), class = 'AsIs'), other.author = structure(c(NA, NA, NA, NA, NA, 'Ripley'), class = 'AsIs')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames38_9ea8f5404d412cedbb05c97dacebb613() {
+ assertEval("argv <- list(structure(list(head = logical(0)), .Names = 'head', class = 'data.frame', row.names = integer(0)));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames4_1b914f06686de899d8349e5b6d7052ba() {
+ assertEval("argv <- list(structure(list(A = NULL, B = NULL, `NA` = NULL), .Names = c('A', 'B', NA)));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames6_f1ed573a769973d0b06294c4d9aa252e() {
+ assertEval("argv <- list(structure(list(groups = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('1', '2', '3'), class = 'factor')), .Names = 'groups'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames7_59202cac432980298c07321b47b4b369() {
+ assertEval("argv <- list(structure(1:20, .Tsp = c(1, 20, 1), class = 'ts'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames8_f2412a65720f15cc266a28f73140351b() {
+ assertEval("argv <- list(structure(c(12L, 120L, 116L), .Dim = 3L, .Dimnames = structure(list(c('0-5yrs', '6-11yrs', '12+ yrs')), .Names = ''), class = 'table'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnames_testnames9_6e1968ccfccc93a03e8acbbbb8051d44() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(20L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 19L, 19L, 19L, 20L, 20L, 20L, 19L, 20L, 19L, 19L, 19L, 20L), mday = c(30L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 30L, 30L, 30L, 30L, 31L, 31L, 31L, 30L, 30L, 30L, 31L, 30L, 31L, 31L, 31L, 30L), mon = c(5L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 5L, 5L, 5L, 5L, 11L, 11L, 11L, 5L, 5L, 5L, 11L, 5L, 11L, 11L, 11L, 5L), year = c(72L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 81L, 82L, 83L, 85L, 87L, 89L, 90L, 92L, 93L, 94L, 95L, 97L, 98L, 105L, 108L, 112L), wday = c(5L, 0L, 1L, 2L, 3L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 0L, 4L, 0L, 1L, 2L, 3L, 4L, 0L, 1L, 4L, 6L, 3L, 6L), yday = c(181L, 365L, 364L, 364L, 364L, 365L, 364L, 364L, 364L, 180L, 180L, 180L, 180L, 364L, 364L, 364L, 181L, 180L, 180L, 364L, 180L, 364L, 364L, 365L, 181L), isdst = c(1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 1L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnamesassign_testnamesassign1_c44fb91da1834d486b0a8d373c6bf3e4() {
+ assertEval("argv <- list(structure(list(happy = c('a', 'b', 'c', 'd'), sad = c('A', 'B', 'C', 'D', 'E', 'F')), .Names = c('happy', 'sad')), value = c('happy', 'sad'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnamesassign_testnamesassign10_1f4572801fee52230ec08e51f3383ab0() {
+ assertEval("argv <- list(structure(list(), .Names = character(0)), character(0));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnamesassign_testnamesassign11_60898f011311f7c472fd9b77cb639a40() {
+ assertEval("argv <- list(structure(list(save.object = NULL, panel.error = NULL, drop.unused.levels = NULL, default.theme = NULL, legend.bbox = NULL, banking = NULL, default.args = NULL, axis.padding = NULL, skip.boundary.labels = NULL, interaction.sep = NULL, panel.contourplot = NULL, panel.levelplot = NULL, panel.levelplot.raster = NULL, panel.parallel = NULL, panel.densityplot = NULL, panel.splom = NULL, panel.wireframe = NULL, panel.dotplot = NULL, panel.qq = NULL, panel.stripplot = NULL, panel.xyplot = NULL, panel.qqmath = NULL, panel.barchart = NULL, panel.bwplot = NULL, panel.histogram = NULL, panel.cloud = NULL, panel.pairs = NULL, prepanel.default.bwplot = NULL, prepanel.default.cloud = NULL, prepanel.default.densityplot = NULL, prepanel.default.histogram = NULL, prepanel.default.levelplot = NULL, prepanel.default.parallel = NULL, prepanel.default.qq = NULL, prepanel.default.qqmath = NULL, prepanel.default.splom = NULL, prepanel.default.xyplot = NULL, prepanel.default.dotplot = NULL, prepanel.default.barchart = NULL, prepanel.default.wireframe = NULL, prepanel.default.contourplot = NULL, axis.units = NULL, layout.heights = NULL, layout.widths = NULL, highlight.gpar = NULL), .Names = c('save.object', 'panel.error', 'drop.unused.levels', 'default.theme', 'legend.bbox', 'banking', 'default.args', 'axis.padding', 'skip.boundary.labels', 'interaction.sep', 'panel.contourplot', 'panel.levelplot', 'panel.levelplot.raster', 'panel.parallel', 'panel.densityplot', 'panel.splom', 'panel.wireframe', 'panel.dotplot', 'panel.qq', 'panel.stripplot', 'panel.xyplot', 'panel.qqmath', 'panel.barchart', 'panel.bwplot', 'panel.histogram', 'panel.cloud', 'panel.pairs', 'prepanel.default.bwplot', 'prepanel.default.cloud', 'prepanel.default.densityplot', 'prepanel.default.histogram', 'prepanel.default.levelplot', 'prepanel.default.parallel', 'prepanel.default.qq', 'prepanel.default.qqmath', 'prepanel.default.splom', 'prepanel.default.xyplot', 'prepanel.default.dotplot', 'prepanel.default.barchart', 'prepanel.default.wireframe', 'prepanel.default.contourplot', 'axis.units', 'layout.heights', 'layout.widths', 'highlight.gpar')), value = c('save.object', 'panel.error', 'drop.unused.levels', 'default.theme', 'legend.bbox', 'banking', 'default.args', 'axis.padding', 'skip.boundary.labels', 'interaction.sep', 'panel.contourplot', 'panel.levelplot', 'panel.levelplot.raster', 'panel.parallel', 'panel.densityplot', 'panel.splom', 'panel.wireframe', 'panel.dotplot', 'panel.qq', 'panel.stripplot', 'panel.xyplot', 'panel.qqmath', 'panel.barchart', 'panel.bwplot', 'panel.histogram', 'panel.cloud', 'panel.pairs', 'prepanel.default.bwplot', 'prepanel.default.cloud', 'prepanel.default.densityplot', 'prepanel.default.histogram', 'prepanel.default.levelplot', 'prepanel.default.parallel', 'prepanel.default.qq', 'prepanel.default.qqmath', 'prepanel.default.splom', 'prepanel.default.xyplot', 'prepanel.default.dotplot', 'prepanel.default.barchart', 'prepanel.default.wireframe', 'prepanel.default.contourplot', 'axis.units', 'layout.heights', 'layout.widths', 'highlight.gpar'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnamesassign_testnamesassign12_e3d0daa8144432e6fedd2a4f5e011407() {
+ assertEval("argv <- list(structure(c(100, -1e-13, Inf, -Inf, NaN, 3.14159265358979, NA), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')), value = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnamesassign_testnamesassign13_c7cf2abd9ec68e911725ad041ff08e7a() {
+ assertEval("argv <- list(structure(list(A = 0:10, B = 10:20, `NA` = 20:30), .Names = c('A', 'B', NA), row.names = c(NA, -11L), class = 'data.frame'), value = c('A', 'B', NA));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnamesassign_testnamesassign15_3e225c9fab805c5b349c8be6d91fba69() {
+ assertEval("argv <- list(structure(list(surname = structure(c(5L, 6L, 4L, 3L, 3L, 1L, 2L), .Label = c('McNeil', 'R Core', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), title = structure(c(2L, 5L, 4L, 6L, 7L, 3L, 1L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, 1L, NA, NA, NA, NA, 2L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'title', 'other.author'), row.names = c(NA, -7L), class = 'data.frame'), value = c('surname', 'title', 'other.author'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnamesassign_testnamesassign16_dff1df9e7c45c2fe150395b86ab66d9c() {
+ assertEval("argv <- list(structure(1:3, .Names = c('foo', 'bar', 'baz')), value = c('foo', 'bar', 'baz'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnamesassign_testnamesassign17_4ccd1d67e1bca4cd0ce4f0154f00805f() {
+ assertEval("argv <- list(structure(c(1+1i, 1.2+10i), .Names = c('a', 'b')), value = c('a', 'b'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnamesassign_testnamesassign18_3d3c6ead4cfdc16d64872dfa468d41f5() {
+ assertEval("argv <- list(structure(c(67L, 34L), .Dim = 2L, .Dimnames = list(c('\'actual\'', 'virtual')), class = 'table'), value = c('\'actual\'', 'virtual'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnamesassign_testnamesassign2_fef1858659664db592c6d712de19a5d1() {
+ assertEval("argv <- list(structure(list(population = c(3615, 365, 2212, 2110, 21198, 2541, 3100, 579, 8277, 4931, 868, 813, 11197, 5313, 2861, 2280, 3387, 3806, 1058, 4122, 5814, 9111, 3921, 2341, 4767, 746, 1544, 590, 812, 7333, 1144, 18076, 5441, 637, 10735, 2715, 2284, 11860, 931, 2816, 681, 4173, 12237, 1203, 472, 4981, 3559, 1799, 4589, 376), income = c(3624, 6315, 4530, 3378, 5114, 4884, 5348, 4809, 4815, 4091, 4963, 4119, 5107, 4458, 4628, 4669, 3712, 3545, 3694, 5299, 4755, 4751, 4675, 3098, 4254, 4347, 4508, 5149, 4281, 5237, 3601, 4903, 3875, 5087, 4561, 3983, 4660, 4449, 4558, 3635, 4167, 3821, 4188, 4022, 3907, 4701, 4864, 3617, 4468, 4566), illiteracy = c(2.1, 1.5, 1.8, 1.9, 1.1, 0.7, 1.1, 0.9, 1.3, 2, 1.9, 0.6, 0.9, 0.7, 0.5, 0.6, 1.6, 2.8, 0.7, 0.9, 1.1, 0.9, 0.6, 2.4, 0.8, 0.6, 0.6, 0.5, 0.7, 1.1, 2.2, 1.4, 1.8, 0.8, 0.8, 1.1, 0.6, 1, 1.3, 2.3, 0.5, 1.7, 2.2, 0.6, 0.6, 1.4, 0.6, 1.4, 0.7, 0.6), life.exp = c(69.05, 69.31, 70.55, 70.66, 71.71, 72.06, 72.48, 70.06, 70.66, 68.54, 73.6, 71.87, 70.14, 70.88, 72.56, 72.58, 70.1, 68.76, 70.39, 70.22, 71.83, 70.63, 72.96, 68.09, 70.69, 70.56, 72.6, 69.03, 71.23, 70.93, 70.32, 70.55, 69.21, 72.78, 70.82, 71.42, 72.13, 70.43, 71.9, 67.96, 72.08, 70.11, 70.9, 72.9, 71.64, 70.08, 71.72, 69.48, 72.48, 70.29), murder = c(15.1, 11.3, 7.8, 10.1, 10.3, 6.8, 3.1, 6.2, 10.7, 13.9, 6.2, 5.3, 10.3, 7.1, 2.3, 4.5, 10.6, 13.2, 2.7, 8.5, 3.3, 11.1, 2.3, 12.5, 9.3, 5, 2.9, 11.5, 3.3, 5.2, 9.7, 10.9, 11.1, 1.4, 7.4, 6.4, 4.2, 6.1, 2.4, 11.6, 1.7, 11, 12.2, 4.5, 5.5, 9.5, 4.3, 6.7, 3, 6.9), hs.grad = c(41.3, 66.7, 58.1, 39.9, 62.6, 63.9, 56, 54.6, 52.6, 40.6, 61.9, 59.5, 52.6, 52.9, 59, 59.9, 38.5, 42.2, 54.7, 52.3, 58.5, 52.8, 57.6, 41, 48.8, 59.2, 59.3, 65.2, 57.6, 52.5, 55.2, 52.7, 38.5, 50.3, 53.2, 51.6, 60, 50.2, 46.4, 37.8, 53.3, 41.8, 47.4, 67.3, 57.1, 47.8, 63.5, 41.6, 54.5, 62.9), frost = c(20, 152, 15, 65, 20, 166, 139, 103, 11, 60, 0, 126, 127, 122, 140, 114, 95, 12, 161, 101, 103, 125, 160, 50, 108, 155, 139, 188, 174, 115, 120, 82, 80, 186, 124, 82, 44, 126, 127, 65, 172, 70, 35, 137, 168, 85, 32, 100, 149, 173), area = c(50708, 566432, 113417, 51945, 156361, 103766, 4862, 1982, 54090, 58073, 6425, 82677, 55748, 36097, 55941, 81787, 39650, 44930, 30920, 9891, 7826, 56817, 79289, 47296, 68995, 145587, 76483, 109889, 9027, 7521, 121412, 47831, 48798, 69273, 40975, 68782, 96184, 44966, 1049, 30225, 75955, 41328, 262134, 82096, 9267, 39780, 66570, 24070, 54464, 97203), region = structure(c(2L, 4L, 4L, 2L, 4L, 4L, 1L, 2L, 2L, 2L, 4L, 4L, 3L, 3L, 3L, 3L, 2L, 2L, 1L, 2L, 1L, 3L, 3L, 2L, 3L, 4L, 3L, 4L, 1L, 1L, 4L, 1L, 2L, 3L, 3L, 2L, 4L, 1L, 1L, 2L, 3L, 2L, 2L, 4L, 1L, 2L, 4L, 2L, 3L, 4L), .Label = c('Northeast', 'South', 'North Central', 'West'), class = 'factor')), .Names = c('population', 'income', 'illiteracy', 'life.exp', 'murder', 'hs.grad', 'frost', 'area', 'region'), row.names = c('Alabama', 'Alaska', 'Arizona', 'Arkansas', 'California', 'Colorado', 'Connecticut', 'Delaware', 'Florida', 'Georgia', 'Hawaii', 'Idaho', 'Illinois', 'Indiana', 'Iowa', 'Kansas', 'Kentucky', 'Louisiana', 'Maine', 'Maryland', 'Massachusetts', 'Michigan', 'Minnesota', 'Mississippi', 'Missouri', 'Montana', 'Nebraska', 'Nevada', 'New Hampshire', 'New Jersey', 'New Mexico', 'New York', 'North Carolina', 'North Dakota', 'Ohio', 'Oklahoma', 'Oregon', 'Pennsylvania', 'Rhode Island', 'South Carolina', 'South Dakota', 'Tennessee', 'Texas', 'Utah', 'Vermont', 'Virginia', 'Washington', 'West Virginia', 'Wisconsin', 'Wyoming'), class = 'data.frame'), value = c('population', 'income', 'illiteracy', 'life.exp', 'murder', 'hs.grad', 'frost', 'area', 'region'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnamesassign_testnamesassign3_ec03de1267625939fcd9937f724189ff() {
+ assertEval("argv <- list(structure(list(`Sepal Length` = c(5.1, 4.9, 4.7, 4.6, 5, 5.4, 4.6, 5, 4.4, 4.9, 5.4, 4.8, 4.8, 4.3, 5.8, 5.7, 5.4, 5.1, 5.7, 5.1, 5.4, 5.1, 4.6, 5.1, 4.8, 5, 5, 5.2, 5.2, 4.7, 4.8, 5.4, 5.2, 5.5, 4.9, 5, 5.5, 4.9, 4.4, 5.1, 5, 4.5, 4.4, 5, 5.1, 4.8, 5.1, 4.6, 5.3, 5, 7, 6.4, 6.9, 5.5, 6.5, 5.7, 6.3, 4.9, 6.6, 5.2, 5, 5.9, 6, 6.1, 5.6, 6.7, 5.6, 5.8, 6.2, 5.6, 5.9, 6.1, 6.3, 6.1, 6.4, 6.6, 6.8, 6.7, 6, 5.7, 5.5, 5.5, 5.8, 6, 5.4, 6, 6.7, 6.3, 5.6, 5.5, 5.5, 6.1, 5.8, 5, 5.6, 5.7, 5.7, 6.2, 5.1, 5.7, 6.3, 5.8, 7.1, 6.3, 6.5, 7.6, 4.9, 7.3, 6.7, 7.2, 6.5, 6.4, 6.8, 5.7, 5.8, 6.4, 6.5, 7.7, 7.7, 6, 6.9, 5.6, 7.7, 6.3, 6.7, 7.2, 6.2, 6.1, 6.4, 7.2, 7.4, 7.9, 6.4, 6.3, 6.1, 7.7, 6.3, 6.4, 6, 6.9, 6.7, 6.9, 5.8, 6.8, 6.7, 6.7, 6.3, 6.5, 6.2, 5.9), `Sepal Width` = c(3.5, 3, 3.2, 3.1, 3.6, 3.9, 3.4, 3.4, 2.9, 3.1, 3.7, 3.4, 3, 3, 4, 4.4, 3.9, 3.5, 3.8, 3.8, 3.4, 3.7, 3.6, 3.3, 3.4, 3, 3.4, 3.5, 3.4, 3.2, 3.1, 3.4, 4.1, 4.2, 3.1, 3.2, 3.5, 3.6, 3, 3.4, 3.5, 2.3, 3.2, 3.5, 3.8, 3, 3.8, 3.2, 3.7, 3.3, 3.2, 3.2, 3.1, 2.3, 2.8, 2.8, 3.3, 2.4, 2.9, 2.7, 2, 3, 2.2, 2.9, 2.9, 3.1, 3, 2.7, 2.2, 2.5, 3.2, 2.8, 2.5, 2.8, 2.9, 3, 2.8, 3, 2.9, 2.6, 2.4, 2.4, 2.7, 2.7, 3, 3.4, 3.1, 2.3, 3, 2.5, 2.6, 3, 2.6, 2.3, 2.7, 3, 2.9, 2.9, 2.5, 2.8, 3.3, 2.7, 3, 2.9, 3, 3, 2.5, 2.9, 2.5, 3.6, 3.2, 2.7, 3, 2.5, 2.8, 3.2, 3, 3.8, 2.6, 2.2, 3.2, 2.8, 2.8, 2.7, 3.3, 3.2, 2.8, 3, 2.8, 3, 2.8, 3.8, 2.8, 2.8, 2.6, 3, 3.4, 3.1, 3, 3.1, 3.1, 3.1, 2.7, 3.2, 3.3, 3, 2.5, 3, 3.4, 3), `Petal Length` = c(1.4, 1.4, 1.3, 1.5, 1.4, 1.7, 1.4, 1.5, 1.4, 1.5, 1.5, 1.6, 1.4, 1.1, 1.2, 1.5, 1.3, 1.4, 1.7, 1.5, 1.7, 1.5, 1, 1.7, 1.9, 1.6, 1.6, 1.5, 1.4, 1.6, 1.6, 1.5, 1.5, 1.4, 1.5, 1.2, 1.3, 1.4, 1.3, 1.5, 1.3, 1.3, 1.3, 1.6, 1.9, 1.4, 1.6, 1.4, 1.5, 1.4, 4.7, 4.5, 4.9, 4, 4.6, 4.5, 4.7, 3.3, 4.6, 3.9, 3.5, 4.2, 4, 4.7, 3.6, 4.4, 4.5, 4.1, 4.5, 3.9, 4.8, 4, 4.9, 4.7, 4.3, 4.4, 4.8, 5, 4.5, 3.5, 3.8, 3.7, 3.9, 5.1, 4.5, 4.5, 4.7, 4.4, 4.1, 4, 4.4, 4.6, 4, 3.3, 4.2, 4.2, 4.2, 4.3, 3, 4.1, 6, 5.1, 5.9, 5.6, 5.8, 6.6, 4.5, 6.3, 5.8, 6.1, 5.1, 5.3, 5.5, 5, 5.1, 5.3, 5.5, 6.7, 6.9, 5, 5.7, 4.9, 6.7, 4.9, 5.7, 6, 4.8, 4.9, 5.6, 5.8, 6.1, 6.4, 5.6, 5.1, 5.6, 6.1, 5.6, 5.5, 4.8, 5.4, 5.6, 5.1, 5.1, 5.9, 5.7, 5.2, 5, 5.2, 5.4, 5.1), `Petal Width` = c(0.2, 0.2, 0.2, 0.2, 0.2, 0.4, 0.3, 0.2, 0.2, 0.1, 0.2, 0.2, 0.1, 0.1, 0.2, 0.4, 0.4, 0.3, 0.3, 0.3, 0.2, 0.4, 0.2, 0.5, 0.2, 0.2, 0.4, 0.2, 0.2, 0.2, 0.2, 0.4, 0.1, 0.2, 0.2, 0.2, 0.2, 0.1, 0.2, 0.2, 0.3, 0.3, 0.2, 0.6, 0.4, 0.3, 0.2, 0.2, 0.2, 0.2, 1.4, 1.5, 1.5, 1.3, 1.5, 1.3, 1.6, 1, 1.3, 1.4, 1, 1.5, 1, 1.4, 1.3, 1.4, 1.5, 1, 1.5, 1.1, 1.8, 1.3, 1.5, 1.2, 1.3, 1.4, 1.4, 1.7, 1.5, 1, 1.1, 1, 1.2, 1.6, 1.5, 1.6, 1.5, 1.3, 1.3, 1.3, 1.2, 1.4, 1.2, 1, 1.3, 1.2, 1.3, 1.3, 1.1, 1.3, 2.5, 1.9, 2.1, 1.8, 2.2, 2.1, 1.7, 1.8, 1.8, 2.5, 2, 1.9, 2.1, 2, 2.4, 2.3, 1.8, 2.2, 2.3, 1.5, 2.3, 2, 2, 1.8, 2.1, 1.8, 1.8, 1.8, 2.1, 1.6, 1.9, 2, 2.2, 1.5, 1.4, 2.3, 2.4, 1.8, 1.8, 2.1, 2.4, 2.3, 1.9, 2.3, 2.5, 2.3, 1.9, 2, 2.3, 1.8), Species = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('setosa', 'versicolor', 'virginica'), class = 'factor')), .Names = c('Sepal Length', 'Sepal Width', 'Petal Length', 'Petal Width', 'Species'), row.names = c(NA, -150L), class = 'data.frame'), value = c('Sepal Length', 'Sepal Width', 'Petal Length', 'Petal Width', 'Species'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnamesassign_testnamesassign4_571457ff282b2b58734f08c37e80fe16() {
+ assertEval("argv <- list(structure(list(y = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962, Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551)), .Names = c('y', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year', 'Employed'), row.names = 1947:1962, class = 'data.frame'), value = c('y', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year', 'Employed'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnamesassign_testnamesassign5_bde39c5ab7dde3476ffcf87c2751ce07() {
+ assertEval("argv <- list(c(-3.21402130636699, 101.08748330158, -8.50234284659562), value = NULL);`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnamesassign_testnamesassign6_0cf4c2e0535758cbacbc67772a034b0b() {
+ assertEval("argv <- list(structure(1:3, .Names = c(NA, 'b', NA)), value = c(NA, 'b'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnamesassign_testnamesassign7_df031072453201d0946b8bca52750b0c() {
+ assertEval("argv <- list(structure(c(3.14159265358979e-10, 0.0314159265358979, 3.14159265358979, 31.4159265358979, 314.159265358979, 314159265.358979, 3.14159265358979e+20), .Names = c('3.14e-10', '0.0314', '3.14', '31.4', '314', '3.14e+08', '3.14e+20')), value = c('3.14e-10', '0.0314', '3.14', '31.4', '314', '3.14e+08', '3.14e+20'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnamesassign_testnamesassign8_3efb9d815294bd2f6ecd3caba5d856f3() {
+ assertEval("argv <- list(structure(c('variable1', 'variable2'), .Names = c('variable1', 'variable2')), value = c('variable1', 'variable2'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnamesassign_testnamesassign9_b5e889e6c25360b1386457344188535d() {
+ assertEval("argv <- list(structure(c(NA, FALSE, TRUE), .Names = c(NA, 'FALSE', 'TRUE')), value = c(NA, 'FALSE', 'TRUE'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnargs_testnargs1_35e8cf47fabc8d470c2af44252848aa2() {
+ assertEval("nargs( );");
+ }
+
+ @Test
+ public void TestrGenBuiltinnchar_testnchar1_a610f732c5a1940289995b9fb820a25f() {
+ assertEval("argv <- list('DtTmCl> format(.leap.seconds) # all 24 leap seconds in your timezone', 'c', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinnchar_testnchar10_251ebbf780a19ad3b15cbaa06485443a() {
+ assertEval("argv <- list(FALSE, 'chars', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinnchar_testnchar11_c6e9d266fa0add4c5b5881ae663c23e8() {
+ assertEval("argv <- list('> contour(x, y, volcano, levels = lev, col=\'yellow\', lty=\'solid\', add=TRUE)', 'c', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinnchar_testnchar12_95206bbb1214fc52a45098b99c88c274() {
+ assertEval("argv <- list(character(0), 'c', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinnchar_testnchar13_4de0e6231ac52311fe5e97213f4a491a() {
+ assertEval("argv <- list(structure(c('rpart', 'recommended', '4.1-1', '2013-03-20', 'c(person(\'Terry\', \'Therneau\', role = \'aut\',\n\t email = \'therneau@mayo.edu\'),\n person(\'Beth\', \'Atkinson\', role = \'aut\',\t\n\t email = \'atkinson@mayo.edu\'),\n person(\'Brian\', \'Ripley\', role = c(\'aut\', \'trl\', \'cre\'),\n email = \'ripley@stats.ox.ac.uk\',\n\t\t comment = \'author of R port\'))', 'Recursive partitioning and regression trees', 'Recursive Partitioning', 'R (>= 2.14.0), graphics, stats, grDevices', 'survival', 'GPL-2 | GPL-3', 'yes', 'yes', 'Maintainers are not available to give advice on using a package\nthey did not author.', '2013-03-20 07:27:05 UTC; ripley', 'Terry Therneau [aut],\n Beth Atkinson [aut],\n Brian Ripley [aut, trl, cre] (author of R port)', 'Brian Ripley <ripley@stats.ox.ac.uk>'), .Names = c('Package', 'Priority', 'Version', 'Date', 'Authors@R', 'Description', 'Title', 'Depends', 'Suggests', 'License', 'LazyData', 'ByteCompile', 'Note', 'Packaged', 'Author', 'Maintainer')), 'c', TRUE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinnchar_testnchar2_dfbcae2ccba05526fdad770d7948884b() {
+ assertEval("argv <- list(c('\'a\'', '\'b\'', NA, NA, NA, '\'f\'', '\'g\'', '\'h\'', '\'i\'', '\'j\'', '\'k\'', '\'l\''), 'w', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinnchar_testnchar3_cab8fd10f080fd0fc15375797144a963() {
+ assertEval("argv <- list('\'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz\'', 'w', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinnchar_testnchar4_b07205078ea7e27711aa42aa85191257() {
+ assertEval("argv <- list(structure(c('1', '2', '3', '4', '5', '1', '2', '3', '4', '5'), .Dim = 10L), 'c', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinnchar_testnchar5_b0cf3dcbb7959533f7618618d685ac98() {
+ assertEval("argv <- list(c('Var1', 'Var2'), 'bytes', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinnchar_testnchar6_9fd1a08d73fc5dc4e5292e0c237efba5() {
+ assertEval("argv <- list(c('0.0470', '0.0130', '0.0020', '0.0001', '2.3e-05', '4.5e-06'), 'w', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinnchar_testnchar7_701af2518e7fb1448b6556b3970a7b00() {
+ assertEval("argv <- list(c('x1', 'x.2', 'x3'), 'bytes', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinnchar_testnchar9_e1dc8e13afe2993c2d4239169dbdb422() {
+ assertEval("argv <- list(c('\'1\'', '\'2\'', NA), 'w', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinngettext_testngettext1_e60c984c37d44bb2e1b0d0e4400fc4fd() {
+ assertEval("argv <- list(1L, '%s is not TRUE', '%s are not all TRUE', NULL); .Internal(ngettext(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinngettext_testngettext2_8e8385c8ba3b950733b9696784090e85() {
+ assertEval("argv <- list(2L, '%s is not TRUE', '%s are not all TRUE', NULL); .Internal(ngettext(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinnormalizePath_testnormalizePath1_defa49a5aa65d3b1cd9f4f65281f4477() {
+ assertEval("argv <- list(c('/home/lzhao/hg/r-instrumented/library', '/home/lzhao/R/x86_64-unknown-linux-gnu-library/3.0', '/home/lzhao/hg/r-instrumented/library'), '/', NA); .Internal(normalizePath(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinnzchar_testnzchar1_7fe11de9f0d4d849d14655c9af1e07cd() {
+ assertEval("argv <- list('./myTst2/man/DocLink-class.Rd');nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnzchar_testnzchar10_13f035fda81410f5f66689719efb3f01() {
+ assertEval("argv <- list(logical(0));nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnzchar_testnzchar2_25803bc3565c771121f600cc2f891bdb() {
+ assertEval("argv <- list(FALSE);nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnzchar_testnzchar3_55e864e7a72cb8e14573f424ad35221c() {
+ assertEval("argv <- list(c('a', 'b', 'c'));nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnzchar_testnzchar4_dd6ae9d00129a1b85512689e85633298() {
+ assertEval("argv <- list(structure('MASS', .Names = ''));nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnzchar_testnzchar5_09d62a8033aaeafda827066246963926() {
+ assertEval("argv <- list(NULL);nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnzchar_testnzchar6_2d0c181647c30155434cfc7664a32a4d() {
+ assertEval("argv <- list(c('Fr', 'Temp', 'Soft', 'M.user', 'Brand'));nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnzchar_testnzchar7_602ede2f528fd400bc9149d4ea9d5b75() {
+ assertEval("argv <- list(structure('survival', .Names = ''));nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnzchar_testnzchar8_8e4e09a5b8d988f19bc369b7438dda12() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinnzchar_testnzchar9_3290dd2c704fc6a73840ca036445e0b6() {
+ assertEval("argv <- list(c(' \036 The other major change was an error for asymmetric loss matrices,', ' prompted by a user query. With L=loss asymmetric, the altered', ' priors were computed incorrectly - they were using L' instead of L.', ' Upshot - the tree would not not necessarily choose optimal splits', ' for the given loss matrix. Once chosen, splits were evaluated', ' correctly. The printed “improvement” values are of course the', ' wrong ones as well. It is interesting that for my little test', ' case, with L quite asymmetric, the early splits in the tree are', ' unchanged - a good split still looks good.'));nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass1_5dc242e3a7882519857877b9fdbdab26() {
+ assertEval("argv <- list(structure(list(`cbind(w = weight, w2 = weight^2)` = structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c('w', 'w2'))), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = c('cbind(w = weight, w2 = weight^2)', 'group'), terms = quote(cbind(w = weight, w2 = weight^2) ~ group), row.names = c(NA, 20L), class = 'data.frame'));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass10_228a45b48d4b1c5e1bfbc9abf13f9416() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass11_8c8a6f747c67917bd6ad8e206bc5e420() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/tmp/RtmpS45wYI/R.INSTALL2aa62411bcd3/rpart/R/rsq.rpart.R', '/home/lzhao/tmp/RtmpS45wYI/R.INSTALL2aa62411bcd3/rpart/R/rsq.rpart.R'), frow = c(7L, 9L), lrow = c(7L, 9L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass12_6d9013ed182f2b17dcb2aa8bdb29a990() {
+ assertEval("argv <- list(structure(1:5, .Tsp = c(1, 5, 1), class = 'ts'));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass13_7c0ff7d4a196df33487f5ee659122e21() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass14_adf2de1af5747684549badc07a79c5e9() {
+ assertEval("argv <- list(structure(list(`cbind(A, B, C, D)` = structure(c(0.696706709347165, 0.362357754476673, -0.0291995223012888, 0.696706709347165, 0.696706709347165, -0.0291995223012888, 0.696706709347165, -0.0291995223012888, 0.362357754476673, 0.696706709347165, -0.0291995223012888, 0.362357754476673, -0.416146836547142, 0.362357754476673, 0.696706709347165, 0.696706709347165, 0.362357754476673, -0.416146836547142, -0.0291995223012888, -0.416146836547142, 0.696706709347165, -0.416146836547142, 0.362357754476673, -0.0291995223012888, 0.717356090899523, 0.932039085967226, 0.999573603041505, 0.717356090899523, 0.717356090899523, 0.999573603041505, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.909297426825682, 0.932039085967226, 0.717356090899523, 0.717356090899523, 0.932039085967226, 0.909297426825682, 0.999573603041505, 0.909297426825682, 0.717356090899523, 0.909297426825682, 0.932039085967226, 0.999573603041505, -0.0291995223012888, -0.737393715541246, -0.998294775794753, -0.0291995223012888, -0.0291995223012888, -0.998294775794753, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.653643620863612, -0.737393715541246, -0.0291995223012888, -0.0291995223012888, -0.737393715541246, -0.653643620863612, -0.998294775794753, -0.653643620863612, -0.0291995223012888, -0.653643620863612, -0.737393715541246, -0.998294775794753, 0.999573603041505, 0.67546318055115, -0.0583741434275801, 0.999573603041505, 0.999573603041505, -0.0583741434275801, 0.999573603041505, -0.0583741434275801, 0.67546318055115, 0.999573603041505, -0.0583741434275801, 0.67546318055115, -0.756802495307928, 0.67546318055115, 0.999573603041505, 0.999573603041505, 0.67546318055115, -0.756802495307928, -0.0583741434275801, -0.756802495307928, 0.999573603041505, -0.756802495307928, 0.67546318055115, -0.0583741434275801), .Dim = c(24L, 4L), .Dimnames = list(NULL, c('A', 'B', 'C', 'D'))), groups = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('1', '2', '3'), class = 'factor')), .Names = c('cbind(A, B, C, D)', 'groups'), terms = quote(cbind(A, B, C, D) ~ groups), row.names = c(NA, 24L), class = 'data.frame'));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass15_b38bd26f241c6079334b1f24b3897ebf() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), class = 'data.frame', row.names = c(NA, -10L)));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass16_e97f7baf489bbc91cff69cd2c0890211() {
+ assertEval("argv <- list(structure(list(y = c(1.08728092481538, 0.0420572471552261, 0.787502161306819, 0.512717751544676, 3.35376639535311, 0.204341510750309, -0.334930602487435, 0.80049208412789, -0.416177803375218, -0.777970346246018, 0.934996808181635, -0.678786709127108, 1.52621589791412, 0.5895781228122, -0.744496121210548, -1.99065153885627, 1.51286447692396, -0.750182409847851), A = c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), U = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('a', 'b', 'c'), class = 'factor'), V = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L), .Label = c('a', 'b', 'c'), class = 'factor')), .Names = c('y', 'A', 'U', 'V'), class = 'data.frame', row.names = c(NA, 18L), terms = quote(y ~ A:U + A:V - 1)));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass17_630eff674d690f2158501694ec6ef51d() {
+ assertEval("argv <- list(structure(list(surname = structure(integer(0), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(integer(0), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(integer(0), .Label = c('no', 'yes'), class = 'factor'), title = structure(integer(0), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(integer(0), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = integer(0), class = 'data.frame'));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass18_798bb2053c646768bd6b5795580415f8() {
+ assertEval("argv <- list(structure(list(srcfile = c(NA, NA, '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R'), frow = c(NA, NA, 1739L, 1741L, 1807L, 1868L, 1868L, 1868L, 1870L, 1873L, 1888L, 1888L, 1888L, 1898L, 1898L, 1898L, 1899L, 1905L), lrow = c(NA, NA, 1739L, 1742L, 1807L, 1868L, 1868L, 1868L, 1872L, 1873L, 1888L, 1888L, 1888L, 1898L, 1898L, 1898L, 1901L, 1905L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 18L), class = 'data.frame'));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass19_05d9fe4374b77833aa05f590a10a1dd3() {
+ assertEval("argv <- list(structure(list(double.eps = 2.22044604925031e-16, double.neg.eps = 1.11022302462516e-16, double.xmin = 2.2250738585072e-308, double.xmax = 1.79769313486232e+308, double.base = 2L, double.digits = 53L, double.rounding = 5L, double.guard = 0L, double.ulp.digits = -52L, double.neg.ulp.digits = -53L, double.exponent = 11L, double.min.exp = -1022L, double.max.exp = 1024L, integer.max = 2147483647L, sizeof.long = 8L, sizeof.longlong = 8L, sizeof.longdouble = 16L, sizeof.pointer = 8L), .Names = c('double.eps', 'double.neg.eps', 'double.xmin', 'double.xmax', 'double.base', 'double.digits', 'double.rounding', 'double.guard', 'double.ulp.digits', 'double.neg.ulp.digits', 'double.exponent', 'double.min.exp', 'double.max.exp', 'integer.max', 'sizeof.long', 'sizeof.longlong', 'sizeof.longdouble', 'sizeof.pointer')));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass2_0cdab6a0f3bb36a790cbae2f7df7555f() {
+ assertEval("argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = 'ts'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c('y', 'lag.quarterly.revenue', 'price.index', 'income.level', 'market.potential'), row.names = c('1962.25', '1962.5', '1962.75', '1963', '1963.25', '1963.5', '1963.75', '1964', '1964.25', '1964.5', '1964.75', '1965', '1965.25', '1965.5', '1965.75', '1966', '1966.25', '1966.5', '1966.75', '1967', '1967.25', '1967.5', '1967.75', '1968', '1968.25', '1968.5', '1968.75', '1969', '1969.25', '1969.5', '1969.75', '1970', '1970.25', '1970.5', '1970.75', '1971', '1971.25', '1971.5', '1971.75'), class = 'data.frame'));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass20_f44bcceb81148df6530188fb3a03e4b0() {
+ assertEval("argv <- list(structure(list(Model = 1:2, df = c(5, 6), AIC = c('1571.455', '1570.925'), BIC = c('1590.056', '1593.247'), logLik = c(-780.727255295109, -779.462624623506), Test = structure(1:2, .Label = c('', '1 vs 2'), class = 'factor'), L.Ratio = c(NA, 2.52926134320705), `p-value` = c(NA, 0.111752518719366)), .Names = c('Model', 'df', 'AIC', 'BIC', 'logLik', 'Test', 'L.Ratio', 'p-value'), row.names = c('fm1', 'fm2'), class = 'data.frame'));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass3_2a45705d29cf78fb12ead355cd7d5319() {
+ assertEval("argv <- list(c(7.50863122075491e-09, 1.87762632589663e-07, 2.29589583061716e-06, 1.83002461474278e-05, 0.000106962770210119, 0.000488992941332962, 0.00182154707835978, 0.0056884235091347, 0.0152093632759767, 0.0353957474549943, 0.0726726073416657, 0.13316547411151));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass4_538abc70adf6c7c18e995e60289072ea() {
+ assertEval("argv <- list(c(0.2853725+0.3927816i, -0.07283992154231+0.224178134292i, -0.10883955678256+0.035364093700981i, -0.0449501817243521-0.0326582354266614i, 8.2299281e-09-2.69753665872767e-02i, 0.0105954299973322-0.0076980245688633i, 0.00604728675391113+0.00196488543076221i, 0.00095395849586903+0.00293598723445021i, -0.00088096824266454+0.00121254736140417i, -7.27670402517897e-04-4.44010655e-10i, -2.07656947543323e-04-2.85815671682054e-04i, 5.3003554565545e-05-1.6312776087427e-04i, 7.9199339795869e-05-2.57333559721504e-05i, 3.27089023280074e-05+2.37644512768026e-05i, -1.79660253e-11+1.96291758626278e-05i, -7.70998422901389e-06+5.60161993213361e-06i, -4.4004307139296e-06-1.42979165736404e-06i, -6.9416605906477e-07-2.13643143624753e-06i, 6.41055054129141e-07-8.82334435385704e-07i, 5.29504214700362e-07+6.46186824e-13i));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass5_07b8d459e5106e4835f55df08083a072() {
+ assertEval("argv <- list(structure(list(Subject = structure(c(1L, 3L, 6L, 2L, 4L, 5L), .Label = c('1', '4', '2', '5', '6', '3'), class = c('ordered', 'factor')), conc.0.25 = c(1.5, 2.03, 2.72, 1.85, 2.05, 2.31), conc.0.5 = c(0.94, 1.63, 1.49, 1.39, 1.04, 1.44), conc.0.75 = c(0.78, 0.71, 1.16, 1.02, 0.81, 1.03), conc.1 = c(0.48, 0.7, 0.8, 0.89, 0.39, 0.84), conc.1.25 = c(0.37, 0.64, 0.8, 0.59, 0.3, 0.64), conc.2 = c(0.19, 0.36, 0.39, 0.4, 0.23, 0.42)), row.names = c(1L, 12L, 23L, 34L, 45L, 56L), .Names = c('Subject', 'conc.0.25', 'conc.0.5', 'conc.0.75', 'conc.1', 'conc.1.25', 'conc.2'), class = c('nfnGroupedData', 'nfGroupedData', 'groupedData', 'data.frame')));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass6_0568d97da6231fe99136cd3f14528ac2() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i), .Dim = c(5L, 5L)));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass7_a5065df8e4e3755172d75f32fc691746() {
+ assertEval("argv <- list(3.18309886183791e-301);oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass8_78954c7f24747d548d7a8eedafc40e2b() {
+ assertEval("argv <- list(structure(list(visible = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), from = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = 'registered S3method for predict', class = 'factor')), .Names = c('visible', 'from'), row.names = c('predict.Arima', 'predict.HoltWinters', 'predict.StructTS', 'predict.ar', 'predict.arima0', 'predict.bSpline', 'predict.bs', 'predict.glm', 'predict.glmmPQL', 'predict.lda', 'predict.lm', 'predict.loess', 'predict.lqs', 'predict.mca', 'predict.mlm', 'predict.nbSpline', 'predict.nls', 'predict.npolySpline', 'predict.ns', 'predict.pbSpline', 'predict.polr', 'predict.poly', 'predict.polySpline', 'predict.ppolySpline', 'predict.ppr', 'predict.prcomp', 'predict.princomp', 'predict.qda', 'predict.rlm', 'predict.smooth.spline', 'predict.smooth.spline.fit'), class = 'data.frame'));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClass_testoldClass9_bf0780fcf0f2a52873498cfb1ed987df() {
+ assertEval("argv <- list(structure(c(4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L), .Label = c('C', 'E', 'D', 'A', 'F', 'B'), class = 'factor', scores = structure(c(14, 16.5, 1.5, 5, 3, 15), .Dim = 6L, .Dimnames = list(c('A', 'B', 'C', 'D', 'E', 'F')))));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClassassign_testoldClassassign1_6991d782cda33c6d2408210d55154932() {
+ assertEval("argv <- list(list(), NULL);`oldClass<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoldClassassign_testoldClassassign2_d28917eb4a217d340a8f63b40b45fd24() {
+ assertEval("argv <- list(NULL, NULL);`oldClass<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators1_8eef79c9520b9bb26857d9f27101c73f() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));`!`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators10_7bd5aac02a80b1ceccac55bbfd30ea67() {
+ assertEval("argv <- list(1, 0+1i);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators100_7620ba83953ed9b09aade4a0e47cd3e5() {
+ assertEval("argv <- list(c(30L, 30L, 60L, 60L, 60L, 60L, 60L, 60L, 30L, 30L, 60L, 60L, 60L, NA, 30L, 30L, 30L, 30L, 60L, 60L, 60L, 60L, 60L, 60L, 30L, 30L, 60L, 60L, 60L, 60L, 30L, 30L, 30L, NA, 30L, 30L, 60L, 60L, 30L, 30L, 30L, 30L, 30L, 60L, 60L, 30L, 30L, 30L, 30L, 60L, NA, 60L, NA, 30L, 60L, 60L, 30L, NA, 30L, 30L, 60L, NA, 30L, 30L, 30L, 30L, 30L, NA, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, NA, 18L, 18L, 30L, 30L, 30L, 30L, 18L, 18L, 30L, 30L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, NA, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, NA, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 30L, 30L, NA, 18L, NA, 30L, 30L, NA, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 30L, 30L, NA, 30L, 18L, 18L, 30L, 30L, 18L, 18L, 7L, 7L, 30L, 30L, 18L, 18L, NA, 30L, 7L, 7L, 7L, NA, 18L, 18L, 7L, 7L, 18L, NA, 30L, 30L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 18L, 18L), 60);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators101_a3d29b3b8a08e460c98746854862b767() {
+ assertEval("argv <- list(structure(c(21, 0, 77, 0, 0, 96, 0, 0, 0, 0, 0, 0, 0, 0, 77, 0, 325, 0, 0, 288, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 361, 0, 513, 96, 0, 288, 0, 0, 576, 0, 0, 0, 0, 0, 513, 0, 729), .Dim = c(7L, 7L), .Dimnames = list(NULL, NULL)), 0);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators102_e392242864b10272f401db17c62e9107() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), 0L);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators103_f0ea13d83ab8332f565106c4f4645bfd() {
+ assertEval("argv <- list(NULL, NULL);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators104_e51827e9b2d50627855ed2a4a0b67006() {
+ assertEval("argv <- list(structure(c(-1.47120249322699, 0.791288894530825, 4.43110323863505), .Dim = c(1L, 3L)), 0.0031308);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators105_de95372e5d098bc1f1a0fe7801412028() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`<=`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators106_c66ead3208dbe3bf44e371bf8275b7b7() {
+ assertEval("argv <- list(0.998212441139784, c(0.999998001700552, -0.0013118835870674, -0.000526551904329415, 0.999999038344567, -0.000903475278483392, -0.000381296378838388, 0.999999057686544, -0.000896140095625969, -0.000373156128147092, 0.999998405868953, -0.00114777435393854, -0.000526063245555164, 0.99999814161282, -0.00120795166706622, -0.000631851641234638, 0.999997792453059, -0.00139185834612791, -0.000519877304541034, 0.999998020546725, -0.00127080900255349, -0.00060373324887666, 0.999998059330159, -0.00123814735894241, -0.000638480377887232, 0.999998337108097, -0.00115570987192407, -0.000572034814304861, 0.999998571810103, -0.00106400147389197, -0.00054414035107764, 0.999999136998844, -0.000829344110491764, -0.000418555560445895, 0.999999436800894, -0.000688792506748533, -0.00029793232712181, 0.999999182435777, -0.000786088000160243, -0.000446798847724984, 0.999998035855459, -0.00125214214514046, -0.000629508325517675, 0.999995461301925, -0.00191759993645823, -0.000928163756226527, 0.999990501294199, -0.00282586497589704, -0.00123008240127283, 0.99998523015117, -0.00349306924843624, -0.00160252859811979, 0.999980247693918, -0.00393070891026528, -0.00207399213858218, 0.999258133391236, -0.0212608113487506, 0.0170086490790013, 0.999752823870685, -0.0151150534926454, -0.00431858671218418, 0.998521231438773, -0.0331918414882689, 0.0193619075348229, 0.973987730061349, 0.0773006134969334, -0.139141104294479, 0.997923156801661, -0.0321910695742469, 0.0321910695742468, 0.999947758503179, -0.00259457124676546, -0.006745885241587, -0.0013118835870674, 0.138748425090248, -0.345681325192261, -0.000903475278483392, 0.151184975864853, -0.358227947918666, -0.000896140095625969, 0.147770769059702, -0.354871477867884, -0.00114777435393854, 0.173602465164251, -0.378765536799718, -0.00120795166706622, 0.214831416406957, -0.410703566802515, -0.00139185834612791, 0.122433312766354, -0.327782640513123, -0.00127080900255349, 0.184140620360657, -0.387596745778816, -0.00123814735894241, 0.21006198499474, -0.407350481092054, -0.00115570987192407, 0.196781639012774, -0.397564195941878, -0.00106400147389197, 0.207318901950479, -0.405384561552842, -0.000829344110491764, 0.203000309817415, -0.402231893588506, -0.000688792506748533, 0.157606764246543, -0.364371236069974, -0.000786088000160243, 0.244176387845927, -0.429597092087573, -0.00125214214514046, 0.201759382472957, -0.401311557517518, -0.00191759993645823, 0.189814026846399, -0.392149187005707, -0.00282586497589704, 0.159305169670633, -0.365949514378666, -0.00349306924843624, 0.173889122744829, -0.378998013455332, -0.00393070891026528, 0.217788926857211, -0.412724435577854, -0.0212608113487506, 0.000452357688250284, -0.00036188615058233, -0.0151150534926454, 0.000228521327097438, 6.52918077527545e-05, -0.0331918414882689, 0.00110332991097693, -0.000643609114746404, 0.0773006134969334, 0.00613496932514866, -0.0110429447852694, -0.0321910695742469, 0.0010384215991718, -0.00103842159917336, -0.00259457124676546, 6.73215168555691e-06, 1.75035942027152e-05, -0.000526551904329415, -0.345681325192261, 0.861253573209199, -0.000381296378838388, -0.358227947918666, 0.848815985790579, -0.000373156128147092, -0.354871477867884, 0.852230173253752, -0.000526063245555164, -0.378765536799718, 0.826399128966796, -0.000631851641234638, -0.410703566802515, 0.785170441980223, -0.000519877304541034, -0.327782640513123, 0.877568894780586, -0.00060373324887666, -0.387596745778816, 0.815861359092619, -0.000638480377887232, -0.407350481092054, 0.789939955675102, -0.000572034814304861, -0.397564195941878, 0.803220023879128, -0.00054414035107764, -0.405384561552842, 0.792682526239419, -0.000418555560445895, -0.402231893588506, 0.797000553183741, -0.00029793232712181, -0.364371236069974, 0.842393798952562, -0.000446798847724984, -0.429597092087573, 0.755824429718295, -0.000629508325517675, -0.401311557517518, 0.798242581671585, -0.000928163756226527, -0.392149187005707, 0.810190511851676, -0.00123008240127283, -0.365949514378666, 0.840704329035169, -0.00160252859811979, -0.378998013455332, 0.826125647104002, -0.00207399213858218, -0.412724435577854, 0.782230825448871, 0.0170086490790013, -0.00036188615058233, 0.00028950892043616, -0.00431858671218418, 6.52918077527545e-05, 1.86548021961656e-05, 0.0193619075348229, -0.000643609114746404, 0.000375438650284673, -0.139141104294479, -0.0110429447852694, 0.0198773006134874, 0.0321910695742468, -0.00103842159917336, 0.00103842159917592, -0.006745885241587, 1.75035942027152e-05, 4.55093454284494e-05));`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators107_52d36541c4857242e673678de2671c5c() {
+ assertEval("argv <- list(structure(0:100, .Tsp = c(1, 101, 1), class = 'ts'), 0);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators108_8181ca7c1c37c1e17e3a5c89f7e343b4() {
+ assertEval("argv <- list(structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790, 800, 810, 820, 830, 840, 850, 860, 870, 880, 890, 900, 910, 920, 930, 940, 950, 960, 970, 980, 990, 1000, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96), .Dim = c(101L, 3L), .Dimnames = list(NULL, c('t1', '10 * t1', 't1 - 4')), .Tsp = c(1, 101, 1), class = c('mts', 'ts', 'matrix')), 0);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators109_92586c40bacb2026c7d5368eaee757ed() {
+ assertEval("argv <- list(structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, 104, 118, 115, 126, 141, 135, 125, 149, 170, 170, 158, 133, 114, 140, 145, 150, 178, 163, 172, 178, 199, 199, 184, 162, 146, 166, 171, 180, 193, 181, 183, 218, 230, 242, 209, 191, 172, 194, 196, 196, 236, 235, 229, 243, 264, 272, 237, 211, 180, 201, 204, 188, 235, 227, 234, 264, 302, 293, 259, 229, 203, 229, 242, 233, 267, 269, 270, 315, 364, 347, 312, 274, 237, 278, 284, 277, 317, 313, 318, 374, 413, 405, 355, 306, 271, 306, 315, 301, 356, 348, 355, 422, 465, 467, 404, 347, 305, 336, 340, 318, 362, 348, 363, 435, 491, 505, 404, 359, 310, 337, 360, 342, 406, 396, 420, 472, 548, 559, 463, 407, 362, 405, 417, 391, 419, 461, 472, 535, 622, 606, 508, 461, 390, 432, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 419.147602949539, 391.474665943444, 435.919286153217, 443.935203034261, 455.023399013445, 517.28707821144, 589.71337277669, 582.999919227301, 484.573388713116, 428.878182738437, 368.526582998452, 406.728709993152, 415.660571294428, 388.716535970235, 433.006017658935, 440.885684396326, 451.651900136866, 513.051252429496, 584.327164324967, 577.055407135124, 479.076505013118, 423.494870357491, 363.43932958967, 400.592058645117, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 484.030717075782, 462.954959541421, 526.353307750503, 546.165638262644, 569.502470928676, 657.838443307596, 761.241730163307, 763.280655335144, 642.989004951864, 576.423799567567, 501.429012064338, 559.981301364233, 591.700754553767, 565.210772316967, 642.377841008703, 666.682421047093, 695.547100430962, 804.065022775202, 931.340589597203, 934.837830059897, 788.422986194072, 707.666678543854, 616.37838266375, 689.250456425465), .Dim = c(168L, 3L), .Dimnames = list(NULL, c('structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, ', 'structure(c(419.147602949539, 391.474665943444, 435.919286153217, ', 'structure(c(484.030717075782, 462.954959541421, 526.353307750503, ')), .Tsp = c(1949, 1962.91666666667, 12), class = c('mts', 'ts', 'matrix')), 0);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators11_6a358875184a74ecf0766766ccec2b9c() {
+ assertEval("argv <- list(structure(68.6851383798793, .Names = ''), structure(35.9756377289347, .Names = 'Var1'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators110_5e09a2dbdb2811ad41daadd0ac7279bd() {
+ assertEval("argv <- list(structure(list(Fertility = c(80.2, 83.1, 92.5, 85.8, 76.9), Agriculture = c(17, 45.1, 39.7, 36.5, 43.5), Examination = c(15L, 6L, 5L, 12L, 17L), Education = c(12L, 9L, 5L, 7L, 15L)), .Names = c('Fertility', 'Agriculture', 'Examination', 'Education'), row.names = c('Courtelary', 'Delemont', 'Franches-Mnt', 'Moutier', 'Neuveville'), class = 'data.frame'), 6);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators111_39ef0f9f082756ba98b3e8184c7f5937() {
+ assertEval("argv <- list(c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, NA, 2L, 2L, 0L, NA, 1L, 1L), c(0, 0, 0, 0, 0, 0, 0, 0, 1, NA, 2, 2, 0, NA, 1, 1));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators112_3963dd31b169d53844495e248c650658() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`!`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators113_01361d047460f0e4f1c56abbee309be7() {
+ assertEval("argv <- list(structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c('fm2', 'original'), class = c('ordered', 'factor')), 'original');`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators114_ef431cadb4a367930deaa9ff6d9e5c96() {
+ assertEval("argv <- list(structure(c(1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0), .Dim = 12L), 0);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators115_c9dd25c8ca9417269ad19d66070149ac() {
+ assertEval("argv <- list(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 124, 125, 126, 127, 160, 160, 164, 167, 168, 173, 173, 176, 180, 184, 193, 194, 196, 199, 201, 203, 205, 206, 211, 212, 214, 215, 218, 220, 221, 223, 225, 226, 228, 231, 233, 235, 237, 238, 243, 244, 246, 247, 250, 252, 253, 258, 259, 260, 261, 262, 263, 268, 269, 270, 271, 272, 272, 273, 273, 280, 281, 282, 283, 313, 314, 317, 318, 321, 322, 323, 324, 327, 328, 336, 336, 337, 337, 340, 341, 344, 345, 346, 347, 350, 351, 352, 353, 354, 354, 355, 355, 356, 357, 366, 367, 368, 368, 369, 369, 377, 378, 379, 379, 380, 380, 381, 382, 711, 728, 729, 731, 733), structure(231L, .Names = 'e7', class = c('noquote', 'hexmode')));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators116_ed9ba3527bf5fa5c67a461a914e1d462() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L), .Dim = 3:4), structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L, 4L, 4L, 4L), .Dim = 3:4));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators117_f4d25de202ad38dda3ae11229b98daf1() {
+ assertEval("argv <- list(structure(c(9L, 4L, 6L, 5L, 3L, 10L, 5L, 3L, 5L), .Dim = 9L, .Dimnames = structure(list(x = c('0', '1', '2', '3', '4', '5', '6', '7', '8')), .Names = 'x'), class = 'table'), c(9, 4, 6, 5, 3, 10, 5, 3, 5));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators118_b18ea452ac5c1a357275e5976a3933e6() {
+ assertEval("argv <- list(structure(c('white', 'aquamarine3', 'bisque2', 'blueviolet', 'burlywood4', 'chartreuse4', 'coral4', 'cyan3', 'darkgreen', 'darkorange1', 'aliceblue', 'white', 'white', 'white', 'white', 'chocolate', 'cornflowerblue', 'cyan4', 'darkgrey', 'darkorange2', 'antiquewhite', 'white', 'white', 'white', 'white', 'chocolate1', 'cornsilk', 'darkblue', 'darkkhaki', 'darkorange3', 'antiquewhite1', 'white', 'white', 'white', 'white', 'chocolate2', 'cornsilk1', 'darkcyan', 'darkmagenta', 'darkorange4', 'antiquewhite2', 'azure2', 'blanchedalmond', 'brown3', 'cadetblue3', 'chocolate3', 'cornsilk2', 'darkgoldenrod', 'darkolivegreen', 'darkorchid', 'antiquewhite3', 'azure3', 'blue', 'brown4', 'cadetblue4', 'chocolate4', 'cornsilk3', 'darkgoldenrod1', 'darkolivegreen1', 'darkorchid1', 'antiquewhite4', 'azure4', 'blue1', 'burlywood', 'chartreuse', 'coral', 'cornsilk4', 'darkgoldenrod2', 'darkolivegreen2', 'darkorchid2', 'aquamarine', 'beige', 'blue2', 'burlywood1', 'chartreuse1', 'coral1', 'cyan', 'darkgoldenrod3', 'darkolivegreen3', 'darkorchid3', 'aquamarine1', 'bisque', 'blue3', 'burlywood2', 'chartreuse2', 'coral2', 'cyan1', 'darkgoldenrod4', 'darkolivegreen4', 'darkorchid4', 'aquamarine2', 'bisque1', 'blue4', 'burlywood3', 'chartreuse3', 'coral3', 'cyan2', 'darkgray', 'darkorange', 'darkred'), .Dim = c(10L, 10L), class = 'raster'), 'white');`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators119_18ff5f870ad0a7bca01d4b9db0267b70() {
+ assertEval("argv <- list(c(0, 7.93839803127729e-06, 7.93839803127729e-06, 1.58767960625546e-05, 2.38151940938319e-05, 3.96919901563864e-05, 5.5568786218941e-05, 8.73223783440502e-05, 0.000119075970469159, 0.0001746447566881, 0.000230213542907041, 0.000317535921251092, 0.000412796697626419, 0.00055568786218941, 0.000698579026752401, 0.000904977375565611, 0.00112725252044137, 0.00142097324759863, 0.00173057077081845, 0.00213542907041359, 0.00255616416607129, 0.00308803683416687, 0.00364372469635628, 0.00431848852901484, 0.00501706755576725, 0.00585853774708264, 0.00670000793839803, 0.00769230769230769, 0.00869254584424863, 0.00983567516075256, 0.0109629276811939, 0.0122410097642296, 0.0134714614590776, 0.0148448043184885, 0.016146701595618, 0.0175597364451854, 0.0188775105183774, 0.020298483765976, 0.0215606890529491, 0.022902278320235, 0.0240692228308327, 0.0252758593315869, 0.0262602206874653, 0.0272763356354688, 0.0280304834484401, 0.0287925696594427, 0.0292768119393506, 0.0297372390251647, 0.0299118837818528, 0.0300706517424784, 0.0299118837818528, 0.0297372390251647, 0.0292768119393506, 0.0287925696594427, 0.0280304834484401, 0.0272763356354688, 0.0262602206874653, 0.0252758593315869, 0.0240692228308327, 0.022902278320235, 0.0215606890529491, 0.020298483765976, 0.0188775105183774, 0.0175597364451854, 0.016146701595618, 0.0148448043184885, 0.0134714614590776, 0.0122410097642296, 0.0109629276811939, 0.00983567516075256, 0.00869254584424863, 0.00769230769230769, 0.00670000793839803, 0.00585853774708264, 0.00501706755576725, 0.00431848852901484, 0.00364372469635628, 0.00308803683416687, 0.00255616416607129, 0.00213542907041359, 0.00173057077081845, 0.00142097324759863, 0.00112725252044137, 0.000904977375565611, 0.000698579026752401, 0.00055568786218941, 0.000412796697626419, 0.000317535921251092, 0.000230213542907041, 0.0001746447566881, 0.000119075970469159, 8.73223783440502e-05, 5.5568786218941e-05, 3.96919901563864e-05, 2.38151940938319e-05, 1.58767960625546e-05, 7.93839803127729e-06, 7.93839803127729e-06, 0), c(0, 7.93839803127729e-06, 7.93839803127729e-06, 1.58767960625546e-05, 2.38151940938319e-05, 3.96919901563864e-05, 5.5568786218941e-05, 8.73223783440502e-05, 0.000119075970469159, 0.0001746447566881, 0.000230213542907041, 0.000317535921251092, 0.000412796697626419, 0.00055568786218941, 0.000698579026752401, 0.000904977375565611, 0.00112725252044137, 0.00142097324759863, 0.00173057077081845, 0.00213542907041359, 0.00255616416607129, 0.00308803683416687, 0.00364372469635628, 0.00431848852901484, 0.00501706755576725, 0.00585853774708264, 0.00670000793839803, 0.00769230769230769, 0.00869254584424863, 0.00983567516075256, 0.0109629276811939, 0.0122410097642296, 0.0134714614590776, 0.0148448043184885, 0.016146701595618, 0.0175597364451854, 0.0188775105183774, 0.020298483765976, 0.0215606890529491, 0.022902278320235, 0.0240692228308327, 0.0252758593315869, 0.0262602206874653, 0.0272763356354688, 0.0280304834484401, 0.0287925696594427, 0.0292768119393506, 0.0297372390251647, 0.0299118837818528, 0.0300706517424784, 0.0299118837818528, 0.0297372390251647, 0.0292768119393506, 0.0287925696594427, 0.0280304834484401, 0.0272763356354688, 0.0262602206874653, 0.0252758593315869, 0.0240692228308327, 0.022902278320235, 0.0215606890529491, 0.020298483765976, 0.0188775105183774, 0.0175597364451854, 0.016146701595618, 0.0148448043184885, 0.0134714614590776, 0.0122410097642296, 0.0109629276811939, 0.00983567516075256, 0.00869254584424863, 0.00769230769230769, 0.00670000793839803, 0.00585853774708264, 0.00501706755576725, 0.00431848852901484, 0.00364372469635628, 0.00308803683416687, 0.00255616416607129, 0.00213542907041359, 0.00173057077081845, 0.00142097324759863, 0.00112725252044137, 0.000904977375565611, 0.000698579026752401, 0.00055568786218941, 0.000412796697626419, 0.000317535921251092, 0.000230213542907041, 0.0001746447566881, 0.000119075970469159, 8.73223783440502e-05, 5.5568786218941e-05, 3.96919901563864e-05, 2.38151940938319e-05, 1.58767960625546e-05, 7.93839803127729e-06, 7.93839803127729e-06, 0));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators12_6205823d8ab8658ab17ce459ccb7a435() {
+ assertEval("argv <- list(structure(0.070387338608913, .Names = 'Var1'), structure(0.00374843815077052, .Names = 'Var2'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators120_571abbafc889c01f539529e23ed0df5e() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12), .Tsp = c(1959, 1997.91666666667, 12), class = 'ts'), 10L);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators121_1130a49b1be28115d545ef8a5bcd5ef2() {
+ assertEval("argv <- list(structure(c(0.86317353889998+0i, -3.79913366221062+3.31244294914647i, 1.55614767167993-1.74174276171448i, -2.23430861671215-1.65262168622253i, -2.23430861671215+1.65262168622253i, 1.55614767167993+1.74174276171448i, -3.79913366221062-3.31244294914647i, -3.33827801689622+0i, -0.24558402446046-1.38976239274682i, 0.38994543428825+2.49010387459687i, 1.4081214006546+1.81482300583077i, 1.4081214006546-1.81482300583077i, 0.38994543428825-2.49010387459687i, -0.24558402446046+1.38976239274682i, -2.31885928035568+0i, -4.19304293056817-0.22777444729915i, 0.98896416070392-1.81216964948694i, 1.39179443748361-4.40983340277928i, 1.39179443748361+4.40983340277928i, 0.98896416070392+1.81216964948694i, -4.19304293056817+0.22777444729915i, -1.0554525205105+0i, -0.26365333042432+1.4074399019829i, 0.40560122186879+3.13070845018955i, -1.20041403617116-3.43234427504359i, -1.20041403617116+3.43234427504359i, 0.40560122186879-3.13070845018955i, -0.26365333042432-1.4074399019829i, 0.0498590799965546+0i, 1.83744919383128-0.49050274510365i, -0.24547773966823+4.86316579489277i, -0.99323533469825+1.90306050881202i, -0.99323533469825-1.90306050881202i, -0.24547773966823-4.86316579489277i, 1.83744919383128+0.49050274510365i), .Dim = c(7L, 5L)), structure(c(0.86317353889998+0i, -3.79913366221062+3.31244294914647i, 1.55614767167993-1.74174276171448i, -2.23430861671215-1.65262168622253i, -2.23430861671215+1.65262168622253i, 1.55614767167993+1.74174276171448i, -3.79913366221062-3.31244294914647i, -3.33827801689622+0i, -0.24558402446046-1.38976239274682i, 0.38994543428825+2.49010387459687i, 1.4081214006546+1.81482300583077i, 1.4081214006546-1.81482300583077i, 0.38994543428825-2.49010387459687i, -0.24558402446046+1.38976239274682i, -2.31885928035568+0i, -4.19304293056817-0.22777444729915i, 0.98896416070392-1.81216964948694i, 1.39179443748361-4.40983340277928i, 1.39179443748361+4.40983340277928i, 0.98896416070392+1.81216964948694i, -4.19304293056817+0.22777444729915i, -1.0554525205105+0i, -0.26365333042432+1.4074399019829i, 0.40560122186879+3.13070845018955i, -1.20041403617116-3.43234427504359i, -1.20041403617116+3.43234427504359i, 0.40560122186879-3.13070845018955i, -0.26365333042432-1.4074399019829i, 0.0498590799965546+0i, 1.83744919383128-0.49050274510365i, -0.24547773966823+4.86316579489277i, -0.99323533469825+1.90306050881202i, -0.99323533469825-1.90306050881202i, -0.24547773966823-4.86316579489277i, 1.83744919383128+0.49050274510365i), .Dim = c(7L, 5L)));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators122_c75082b19991bf7920694eed1fee3d97() {
+ assertEval("argv <- list(c(1.22408179743946+0i, 0.359813827057364+0i, 0.400771450594052+0i, 0.11068271594512+0i, -0.555841134754075+0i), structure(c(1.22408179743946+0i, 0.359813827057364+0i, 0.400771450594052+0i, 0.11068271594512+0i, -0.555841134754075+0i), .Dim = c(1L, 5L)));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators123_3d5f0458d6bd1687da7ecd92cba98837() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 1L, 2L), .Label = c('0-9g/day', '10-19', '20-29', '30+'), class = c('ordered', 'factor'), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88')), structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 1L, 2L), .Label = c('0-9g/day', '10-19', '20-29', '30+'), class = c('ordered', 'factor')));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators124_cb7441cc3f31f179330a8cb99f5e97d2() {
+ assertEval("argv <- list(16L, 8);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators125_e65451fa1de50d528ef263eae64a568f() {
+ assertEval("argv <- list('«Latin-1 accented chars»: ghè øØ å<Å æ<Æ gh ghè', '«Latin-1 accented chars»: ghè øØ å<Å æ<Æ gh ghè');`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators126_b247bd4cada9ea987df987f69c0254ca() {
+ assertEval("argv <- list(structure(list(cde = 2L, cd = 4L), .Names = c('cde', 'cd'), row.names = 'ab', class = 'data.frame'), c(2, 4));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators127_6a0d217be60a9da4937ee648681aba86() {
+ assertEval("argv <- list(1, structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Names = c('is.array', 'is.atomic', 'is.call', 'is.character', 'is.complex', 'is.data.frame', 'is.double', 'is.environment', 'is.expression', 'is.factor', 'is.finite', 'is.function', 'is.infinite', 'is.integer', 'is.language', 'is.list', 'is.logical', 'is.matrix', 'is.na', 'is.name', 'is.nan', 'is.null', 'is.numeric', 'is.numeric_version', 'is.object', 'is.ordered', 'is.package_version', 'is.pairlist', 'is.primitive', 'is.qr', 'is.raw', 'is.recursive', 'is.symbol', 'is.table', 'is.vector')));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators128_7b120e81ea0d8f35f230a4922e1f760d() {
+ assertEval("argv <- list(c(30000L, 100000L), c(30000, 1e+05));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators129_3f3afd468d1af420af4c5d5ccb287469() {
+ assertEval("argv <- list(2L, e2 = 2);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators13_4be7d73f8ee55def375a1ec509e68ba2() {
+ assertEval("argv <- list(c(1, 1, 10, 1, 1, 10, 10), 0);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators130_3c02add1a8cf420daac6027427811d6e() {
+ assertEval("argv <- list(2, structure(list(2L), class = structure('L', package = '.GlobalEnv')));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators131_915f10ceaf99047d9064536431c6510a() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), 1L);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators132_876d39eec749c4e2a684714378a6b91a() {
+ assertEval("argv <- list(NULL, NULL);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators133_e32b26a50a63f1258a04c3a15f9dcf48() {
+ assertEval("argv <- list(structure(c(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2), .Dim = 5:6), structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Dim = 5:6, .Dimnames = structure(list(blocks = c('1', '2', '3', '4', '5'), varieties = c('1', '2', '3', '4', '5', '6')), .Names = c('blocks', 'varieties')), class = 'table'));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators134_52935d1beb1ada309db7c36152b6ff78() {
+ assertEval("argv <- list(FALSE, 'Sweave');`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators135_8b5105c25a2df0f39751993061d1323b() {
+ assertEval("argv <- list(1, 26);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators136_0b97efb881fe16cb890d44ecbb8d3a59() {
+ assertEval("argv <- list(NULL, NULL);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators137_d7562afd541b429a3dd6aa47e2c317ed() {
+ assertEval("argv <- list(structure(c(2, 1, 0, 1, 2), .Tsp = c(-1, 3, 1), class = 'ts'), 1e-05);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators138_57c685cf0cbd0a921fc8be7b9380461e() {
+ assertEval("argv <- list(structure(NA_real_, class = c('POSIXct', 'POSIXt')), structure(1386394754, class = c('POSIXct', 'POSIXt')));`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators139_036cb373bde70ef5d936dbeefe146080() {
+ assertEval("argv <- list(structure(c(-0.626453810742332, 0.183643324222082, -0.835628612410047, 1.59528080213779, 0.329507771815361, -0.820468384118015, 0.487429052428485, 0.738324705129217, 0.575781351653492, -0.305388387156356, 1.51178116845085, 0.389843236411431, -0.621240580541804, -2.2146998871775, 1.12493091814311, -0.0449336090152309, -0.0161902630989461, 0.943836210685299, 0.821221195098089, 0.593901321217509, 0.918977371608218, 0.782136300731067, 0.0745649833651906, -1.98935169586337, 0.61982574789471, -0.0561287395290008, -0.155795506705329, -1.47075238389927), .Dim = c(4L, 7L)), 0);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators14_f97458c4c3339655fae6ddedc5fa49a0() {
+ assertEval("argv <- list(c(23.454000046244, 23.454000046244, 23.454000046244, 23.454000046244, 28.3020224298599, 28.3020224298599, 28.3020224298599, 28.3020224298599, 30.800519631939, 30.800519631939, 30.800519631939, 30.800519631939, 25.9206422064884, 25.9206422064884, 25.9206422064884, 23.2002066882042, 23.2002066882042, 23.2002066882042, 20.1196890721666, 20.1196890721666, 20.1196890721666, 33.5952341720171, 33.5952341720171, 39.0519830824759, 39.0519830824759, 32.136512000254, 32.136512000254, 40.0046131871928, 40.0046131871928, 36.1899385542654, 36.1899385542654, 36.1899385542654, 36.9107066354437, 36.9107066354437, 30.6345192978006, 30.6345192978006, 34.3113600002908, 34.3113600002908, 38.3947952390571, 38.3947952390571, 31.2256309266188, 31.2256309266188, 31.2256309266188, 31.2256309266188, 31.2302025081837, 31.2302025081837, 31.2302025081837, 31.2302025081837, 19.9976293105352, 19.9976293105352, 19.9976293105352, 37.0952034528547, 37.0952034528547, 37.0952034528547, 32.5940180631865, 32.5940180631865, 32.5940180631865, 30.3755575381127, 30.3755575381127, 30.3755575381127), c(-7.78372381938215, -2.21918545910218, -0.632702831725275, -0.180387300047981, -7.49017129741483, -2.13549190787282, -0.608841307830204, -0.173584239188075, -22.5802449738518, -16.4998575320751, -8.81014962829596, -2.51182549655016, -23.557038894075, -17.2136212906412, -9.19126598036131, -21.8778835738372, -15.9866273589884, -8.53610880037608, -15.0686941140291, -11.0110101269414, -5.87936269076593, -5.59523381317633, -1.59523408160483, -33.4519828181102, -13.051983020203, -16.7365117167447, -8.93651185736664, -28.2046129643012, -11.0046131346857, -24.7866580698756, -18.1121297542524, -9.67102733534973, -10.9107059357263, -3.11070645913868, -6.43451888517834, -1.83451919385285, -19.311359673177, -10.3113598354284, -17.5947943688525, -9.39479451670115, -13.4592527410221, -3.83731214857368, -1.09404027169438, -0.311917318619494, -9.6582725100978, -2.75363032037238, -0.7850762062622, -0.223829845669225, -4.53229442651767, -1.2921838083017, -0.368409206751382, -8.25942763485825, -2.35481141586021, -0.671370589998607, -10.5255747423345, -3.00090328985181, -0.855575184775718, -7.55762449149225, -2.15472321038819, -0.614324265331269));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators140_3952187a30b7a37d82d63ff4776f6bda() {
+ assertEval("argv <- list(structure(c(24L, 13L, 15L, 68L, 39L, 74L, 22L, 1L, 8L, 55L, 24L, 20L, 51L, 13L, 3L, 4L, 5L, 6L, 15L, 2L, 8L, 60L, 67L, 23L, 58L, 24L, 22L, 21L, 37L, 74L, 59L, 39L, 14L, 14L, 19L, 23L, 70L, 21L, 22L, 31L, 29L, 30L, 45L, 58L, 17L, 7L, 19L, 26L, 39L, 74L, 57L, 59L, 12L, 72L, 70L, 37L, 64L, 16L, 18L, 21L, 22L, 8L, 62L, 61L, 63L, 71L, 105L, 64L, 10L, 41L, 8L, 27L, 11L, 34L, 32L, 33L, 68L, 107L, NA, 66L, NA, 65L, 48L, 52L, 43L, 47L, 46L, 44L, 41L, 54L, 28L, 50L, 40L, NA, 69L, NA, 75L, 109L, NA, 86L, 112L, 110L, 104L, 24L, 111L, 87L, NA, NA, 92L, 73L, 85L, 90L, 89L, NA, 83L, NA, 102L, NA, 108L, 88L, 91L, 93L, NA, 94L, 84L, NA, 106L, NA, 95L, 82L, 56L, 87L, 109L, 75L, 104L, 110L, 112L, 111L, 24L, 73L, 85L, 86L, 90L, 89L, 102L, 88L, 92L, 9L, 49L, 42L, 38L, 35L, 36L, 25L, NA, NA, 9L, 49L, 42L, NA, 36L, 38L, 25L, 53L, 79L, 78L, 103L, 77L, 80L, 114L, 97L, 113L, 76L, 96L, 81L, 116L, 99L, 117L, 115L, 98L, 101L, 100L), .Label = c('1008', '1011', '1013', '1014', '1015', '1016', '1027', '1028', '1030', '1032', '1051', '1052', '1083', '1093', '1095', '1096', '110', '1102', '111', '1117', '112', '113', '116', '117', '1219', '125', '1250', '1251', '126', '127', '128', '1291', '1292', '1293', '1298', '1299', '130', '1308', '135', '1376', '1377', '1383', '1408', '1409', '141', '1410', '1411', '1413', '1418', '1422', '1438', '1445', '1456', '1492', '2001', '2316', '262', '266', '269', '270', '2708', '2714', '2715', '272', '2728', '2734', '280', '283', '286', '290', '3501', '411', '412', '475', '5028', '5042', '5043', '5044', '5045', '5047', '5049', '5050', '5051', '5052', '5053', '5054', '5055', '5056', '5057', '5058', '5059', '5060', '5061', '5062', '5066', '5067', '5068', '5069', '5070', '5072', '5073', '5115', '5160', '5165', '655', '724', '885', '931', '942', '952', '955', '958', 'c118', 'c168', 'c203', 'c204', 'c266')), 20);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators141_eca21abeb74fdc0d611c2a4db296a15d() {
+ assertEval("argv <- list(structure(c(2, 2, 1, 1, 1, 0, 1, 2, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0), .Dim = 18L, .Dimnames = list(c('5', '8', '9', '12', '13', '16', '18', '23', '27', '28', '30', '31', '33', '34', '43', '45', '48', '161'))), 0);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators142_465d2b76c425c07e19e8cc91d98b7adf() {
+ assertEval("argv <- list(structure(list(c(3L, 0L, 1L)), class = c('R_system_version', 'package_version', 'numeric_version')), structure('2.13.2', .Names = 'SweaveListingUtils'));`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators143_13577c3a1c5688412b32e3f1068a5279() {
+ assertEval("argv <- list(c(8262, 2889), 1e+05);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators144_2c2a189933293f0c5f22857e79b2ce05() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`>`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators145_3d3d8e1ff0d28f2ad3d31638e6dfb398() {
+ assertEval("argv <- list(c(1, 2, 3, NA, -1, 0, 1, NA), 0);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators146_a732d60c42e411f8b9f881b700d9260c() {
+ assertEval("argv <- list(10, 16L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators147_462aea9b8c69f122f1fbbf5284cb92ad() {
+ assertEval("argv <- list(structure(0, .Tsp = c(1, 1, 1), class = 'ts'), 1e-05);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators148_aff2bc0695daed09ac523ad1fa4340e2() {
+ assertEval("argv <- list(FALSE, FALSE);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators149_87fdd96024fbf3cfb8357070b43cc815() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`>=`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators15_be9fcc00dbcfc2be825cda4e77962a47() {
+ assertEval("argv <- list(structure(c(1976, 1976.08333333333, 1976.16666666667, 1976.25, 1976.33333333333, 1976.41666666667, 1976.5, 1976.58333333333, 1976.66666666667, 1976.75, 1976.83333333333, 1976.91666666667, 1977, 1977.08333333333, 1977.16666666667, 1977.25, 1977.33333333333, 1977.41666666667, 1977.5, 1977.58333333333, 1977.66666666667, 1977.75, 1977.83333333333, 1977.91666666667, 1978), .Tsp = c(1976, 1978, 12), class = 'ts'), 0.001);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators150_20776e8a9cc54e11f6c045695ef8a2e6() {
+ assertEval("argv <- list(NULL, NULL);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators151_3209b807e669f4a6a3baf1f44553e5a9() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 6L, 2L, 4L, 3L, 7L, 2L, 8L, 4L, 2L, 2L, 1L, 3L, 3L, 4L, 3L, 2L, 1L, 2L, 3L, 1L, 1L, 2L, 1L, 3L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 4L, 1L, 1L, 1L, 1L, 2L, 1L, 5L, 2L, 1L, 3L, 2L, 2L, 6L, 2L, 1L, 2L, 5L, 2L, 2L, 2L, 4L, 4L, 1L, 1L, 3L, 4L, 2L, 2L, 2L, 1L, 5L, 4L, 4L, 1L, 1L, 4L, 2L, 3L, 2L, 1L, 8L, 1L, 5L, 1L, 3L, 4L, 4L, 1L, 3L, 1L, 2L, 6L, 1L, 1L, 1L, 1L, 1L, 6L, 2L, 2L, 1L, 1L, 2L, 3L, 1L, 1L, 1L, 1L), .Dim = 124L, .Dimnames = structure(list(ne60 = c('96', '100', '102', '104', '105', '107', '108', '109', '110', '111', '112', '113', '115', '116', '117', '118', '119', '120', '121', '122', '124', '125', '126', '128', '129', '130', '131', '132', '133', '134', '135', '136', '137', '138', '139', '140', '141', '142', '143', '144', '145', '149', '157', '158', '168', '173', '174', '184', '199', '200', '202', '205', '207', '210', '214', '216', '221', '223', '224', '225', '226', '229', '230', '231', '233', '235', '237', '238', '240', '242', '243', '244', '245', '246', '247', '248', '249', '250', '251', '252', '254', '255', '256', '257', '258', '259', '260', '261', '262', '263', '264', '265', '266', '267', '268', '269', '270', '271', '272', '273', '274', '275', '276', '277', '278', '279', '280', '282', '283', '284', '285', '286', '287', '288', '289', '290', '291', '293', '294', '296', '300', '302', '304', '306')), .Names = 'ne60'), class = 'table'), 4);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators152_f984e3d1cf8f830252f19a61daddb068() {
+ assertEval("argv <- list(structure(3.00390625, base = 16, lens = 3L, .classes = c('R_system_version', 'package_version', 'numeric_version')), structure(2.9375, base = 16, lens = 3L, .classes = c('package_version', 'numeric_version')));`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators153_53bf623e542834ecf368110a92e1b750() {
+ assertEval("argv <- list(structure(list(2L), class = 'numeric_version'), '2');`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators154_36372853a5822031d60aba017ba8ef46() {
+ assertEval("argv <- list('3.0.1', '2.3.0');`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators155_523905e7d430f9ee4653fde1280d3e9a() {
+ assertEval("argv <- list(c(30L, 30L, 60L, 60L, 60L, 60L, 60L, 60L, 30L, 30L, 60L, 60L, 60L, NA, 30L, 30L, 30L, 30L, 60L, 60L, 60L, 60L, 60L, 60L, 30L, 30L, 60L, 60L, 60L, 60L, 30L, 30L, 30L, NA, 30L, 30L, 60L, 60L, 30L, 30L, 30L, 30L, 30L, 60L, 60L, 30L, 30L, 30L, 30L, 60L, NA, 60L, NA, 30L, 60L, 60L, 30L, NA, 30L, 30L, 60L, NA, 30L, 30L, 30L, 30L, 30L, NA, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, NA, 18L, 18L, 30L, 30L, 30L, 30L, 18L, 18L, 30L, 30L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, NA, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, NA, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 30L, 30L, NA, 18L, NA, 30L, 30L, NA, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 30L, 30L, NA, 30L, 18L, 18L, 30L, 30L, 18L, 18L, 7L, 7L, 30L, 30L, 18L, 18L, NA, 30L, 7L, 7L, 7L, NA, 18L, 18L, 7L, 7L, 18L, NA, 30L, 30L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 18L, 18L), 30);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators156_92d8a04bcf943e9f86c8d50b69d67ca6() {
+ assertEval("argv <- list(structure(c(0L, 1L, 1L, 3L), .Names = c('1', '2', '3', '4')), 0:3);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators157_d8f8ba1efa573693d94bd11b792c7b0e() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators158_f0f008d07f04c29b16d239e376942902() {
+ assertEval("argv <- list(c(1.67451869393188, 0.668927329809365, 0.0791361259651342, 0.543924729050942, 0.00967644138302005, 0.464139419264689, 1.12629957234273), 1e-30);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators159_b92d5a6dc2cb55921488f6fa0abe9b7a() {
+ assertEval("argv <- list(c(2.00256647265648e-308, 2.22284878464869e-308, 2.22507363599982e-308, 2.2250738585072e-308, 2.22507408101459e-308, 2.22729893236571e-308, 2.44758124435792e-308, 1.61792382137608e+308, 1.79589544172745e+308, 1.797692955093e+308, 1.79769313486232e+308), 1);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators16_b33d95bb17cd4c1e8d54410f54d9518b() {
+ assertEval("argv <- list(1.678932e-305, 0+0i);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators160_b692fc7bd38881f9d5ce030e5d67a055() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1), .Dim = c(4L, 4L)), 0);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators161_7c3f8b86ca755678e540a58438ac88b5() {
+ assertEval("argv <- list(structure(c(-0.626453810742332, 0.183643324222082, -0.835628612410047, 1.59528080213779, 0.329507771815361, -0.820468384118015, 0.487429052428485, 0.738324705129217, 0.575781351653492, -0.305388387156356, 1.51178116845085, 0.389843236411431, -0.621240580541804, -2.2146998871775, 1.12493091814311, -0.0449336090152309, -0.0161902630989461, 0.943836210685299, 0.821221195098089, 0.593901321217509, 0.918977371608218, 0.782136300731067, 0.0745649833651906, -1.98935169586337, 0.61982574789471, -0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861, -0.41499456329968, -0.394289953710349, -0.0593133967111857, 1.10002537198388, 0.763175748457544, -0.164523596253587, -0.253361680136508, 0.696963375404737, 0.556663198673657, -0.68875569454952, -0.70749515696212, 0.36458196213683, 0.768532924515416, -0.112346212150228, 0.881107726454215), .Label = structure(list(c(-2.21578569960353, -0.304302574730325), c(-0.689841506975551, -0.0550429271029698), c(-0.254447492562539, 0.3887574239854), c(-0.0548908530089361, 0.620911560320741), c(0.3887574239854, 0.882193538880246), c(0.695877562978706, 1.59636661456382)), class = 'shingleLevel'), class = 'shingle'), -0.254447492562539);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators162_bbda2aa021c4b483d7e84ae684f6a3ae() {
+ assertEval("argv <- list(c(1, 2, 3, 4, 5, 6, 7, NA, 9, 10, 11, 12), 1);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators163_8ee4d83a20842d0a6d2b337a0f06957c() {
+ assertEval("argv <- list(structure(c(18000, 315550800, 631170000, 946702800, 1262322000, 1577854800), class = c('POSIXct', 'POSIXt'), tzone = ''), 28304640);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators164_83ec8330d181c5944a42981a0e425ba1() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));`!`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators165_e47c850c387aba4a4529f76eb65e816c() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));`!`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators166_34af1db046624def67055f7f7b56a597() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE), .Dim = c(5L, 2L), .Dimnames = list(NULL, c('VAR1', 'VAR3'))));`!`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators167_88f90f0ef9f9eceefdd23aea5fd81f76() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')), structure(c(TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators168_9356a73e37f1d5b19b01f02fad7cfd07() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`%%`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators169_f1b2742960c9b0c8374d37ebe067c38e() {
+ assertEval("argv <- list(structure(1:3, .Label = c('1', '2', NA), class = 'factor'), structure(1:3, .Label = c('1', '2', NA), class = 'factor'));`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators17_da8bd2475d66e2c4c431ce6c6efac096() {
+ assertEval("argv <- list(4.40646552950873, structure(c(2.62980519617636, 3.871217247387, 4.50132920500077, 4.98499803067693, 5.10709299286893, 5.03983500591087, 4.63030887318817, 5.53509956067429, 5.33332559980012, 5.70084841033141, 4.71574513022187, 4.22037009914704, 3.98171648049174, 4.03049403236714, 4.12846177743637, 4.47709151156657, 5.3332151234887, 5.63317778205492, 5.92697054095118, 6.19581080008781, 6.04311655609605, 6.94831988490059, 6.18986185304067, 5.62147157665625, 4.74634441202163, 4.26914765102244, 5.32109627677161, 6.60533693281051, 5.67035960484307, 5.44401652160046, 3.65126501643718, 3.93293892861635, 3.04580339357603, 3.07640267537579, 2.77049106976243, 2.76443164640389, 3.33918351115387, 4.07927158424254, 4.04908494376122, 4.33034621462195, 3.99989475056739, 4.25702880430535), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42')));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators170_7d7fa6127f4a729ea766cfcd8987903a() {
+ assertEval("argv <- list(429204532L, 2L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators171_e4cdd0497655c9b378c2cbdbe765935b() {
+ assertEval("argv <- list(structure(c(1960.08433333333, 1960.16766666667, 1960.251, 1960.33433333333, 1960.41766666667, 1960.501, 1960.58433333333, 1960.66766666667, 1960.751, 1960.83433333333, 1960.91766666667, 1961.001, 1961.08433333333, 1961.16766666667, 1961.251, 1961.33433333333, 1961.41766666667, 1961.501, 1961.58433333333, 1961.66766666667), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'), 1);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators172_7b3d87c5dee287217059b9854f22c227() {
+ assertEval("argv <- list(c(-1, 0, 0, 0, 0, 0, 1, 1, 1), 2L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators173_8471a4eeb676329a94182bd1ac7317ed() {
+ assertEval("argv <- list(-65205377L, 1073741824L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators174_99887ed6af06e95156b785b51524703f() {
+ assertEval("argv <- list(160L, 16);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators175_4f0517c2fac61231fd6eb92180045897() {
+ assertEval("argv <- list(structure(c(52L, 52L, 1L, 1L), .Names = c('y', 'x', 'Ta', 'Tb')), 52L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators176_633afef6de40470ec922f868b89bdc22() {
+ assertEval("argv <- list(1, 2);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators177_41175b39cc02e7a62a0b77604d4af2de() {
+ assertEval("argv <- list(c(0, 1, 1, 2, 2, 3, 3, 4, 4), 2L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators178_e404a08113583901f6b0ee9f40642ff9() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0), .Dim = c(12L, 4L), .Dimnames = list(c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), c('(Intercept)', 'M.userY', 'TempLow', 'M.userY:TempLow')), assign = 0:3, contrasts = structure(list(M.user = 'contr.treatment', Temp = 'contr.treatment'), .Names = c('M.user', 'Temp'))), c(0.262364229584951, -0.851832547542732, 0.0441056253109867, 0.444266588736502));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators179_94961e98abe4ea3c17f840200b6529e8() {
+ assertEval("argv <- list(structure(c(1976.001, 1976.08433333333, 1976.16766666667, 1976.251, 1976.33433333333, 1976.41766666667, 1976.501, 1976.58433333333, 1976.66766666667, 1976.751, 1976.83433333333, 1976.91766666667, 1977.001, 1977.08433333333, 1977.16766666667, 1977.251, 1977.33433333333, 1977.41766666667, 1977.501, 1977.58433333333, 1977.66766666667, 1977.751, 1977.83433333333, 1977.91766666667, 1978.001), .Tsp = c(1976, 1978, 12), class = 'ts'), 1);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators18_a5183b1ed31b7c2449b7c920f7faa7be() {
+ assertEval("argv <- list(100.35609040323, c(16.9869197055322, 32.9569269674228, 63.9409059420178, 124.054025326065, 240.681625836759, 466.954980809107, 905.955962962971, 1757.67737910411, 3410.13238536472, 6616.11910351861, 12836.1679387595, 24903.9058659644, 48316.9533415093, 93741.4393055559, 181871.099797343, 352854.587965931, 684585.733452663, 1328189.12501195, 2576866.95120412, 4999471.20418434, 9699651.86203691, 18818639.4925072, 36510711.6612103, 70835729.9973146, 137430918.652385, 266634612.255063, 517307292.635014, 1003646273.64047, 1947209824.67014, 3777851022.69026, 7329543107.69234, 14220307218.2724, 27589323701.4766, 53527027976.3571, 103849690372.38, 201482477136.65, 390903318513.094, 758405428581.828, 1471409340525, 2854733584163.2, 5538570139592.47, 10745576876721.9, 20847875806089.6, 40447705191861.9, 78474031143733.8, 152250258320878, 295386140114522, 573089154225693, 1111870646888807, 2157179779616058, 4185221198711724, 8119896472079771, 15753699885107074, 30564313341110788, 59298911165416064, 115047926192872144, 223208572655883520, 433054888999496256, 840185189372140416, 1630073162483360512, 3162562907154039296, 6135800755390145536, 11904285231665293312, 23095927088628809728, 44809229424741679104, 86935979401654583296, 1.68667585038894e+20, 3.27237979472409e+20, 6.34886040400066e+20, 1.23176498322335e+21, 2.3897910449238e+21, 4.63651858608037e+21, 8.99547458123233e+21, 1.74524401098118e+22, 3.38600996574481e+22, 6.56931833943232e+22, 1.2745368112143e+23, 2.47277418935474e+23, 4.79751713543167e+23, 9.30783359186e+23, 1.80584589336672e+24, 3.50358583273485e+24, 6.79743145992125e+24, 1.31879384887967e+25, 2.55863884188836e+25, 4.96410620111801e+25, 9.63103896202531e+25, 1.8685521165353e+26, 3.62524440610747e+26, 7.03346558424191e+26, 1.36458766866515e+27, 2.64748506006045e+27, 5.13647990832267e+27, 9.96546732089944e+27, 1.93343575165167e+28, 3.75112745382766e+28, 7.27769576146466e+28, 1.41197163381895e+29, 2.73941637580644e+29, 5.31483912303488e+29));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators180_0a6e3f794ff2a7db32d9cdf5748cd729() {
+ assertEval("argv <- list(structure(c(1, 0, NA, 1), .Dim = c(2L, 2L)), structure(c(1, 2, 0, 1, 0, 0), .Dim = 2:3));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators181_aa5e75608f75711c7b0ab9ce4579a550() {
+ assertEval("argv <- list(0, NA_real_);`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators182_7ccd4493bbbe1b9fc4ee89461780fe08() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.35, 0.64, 0.12, 1.66, 1.52, 0.23, -1.99, 0.42, 1.86, -0.02, -1.64, -0.46, -0.1, 1.25, 0.37, 0.31, 1.11, 1.65, 0.33, 0.89, -0.25, -0.87, -0.22, 0.71, -2.26, 0.77, -0.05, 0.32, -0.64, 0.39, 0.19, -1.62, 0.37, 0.02, 0.97, -2.62, 0.15, 1.55, -1.41, -2.35, -0.43, 0.57, -0.66, -0.08, 0.02, 0.24, -0.33, -0.03, -1.13, 0.32, 1.55, 2.13, -0.1, -0.32, -0.67, 1.44, 0.04, -1.1, -0.95, -0.19, -0.68, -0.43, -0.84, 0.69, -0.65, 0.71, 0.19, 0.45, 0.45, -1.19, 1.3, 0.14, -0.36, -0.5, -0.47, -1.31, -1.02, 1.17, 1.51, -0.33, -0.01, -0.59, -0.28, -0.18, -1.07, 0.66, -0.71, 1.88, -0.14, -0.19, 0.84, 0.44, 1.33, -0.2, -0.45, 1.46, 1, -1.02, 0.68, 0.84), .Dim = c(100L, 2L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100'), c('(Intercept)', 'x')), assign = 0:1), c(1.15937252188199, 0.442508987631707));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators183_b023dc44c55f056cf7a6b66b76a1eaff() {
+ assertEval("argv <- list(c(-3, -2, -1, 0, 1, 2, 3, 4, 5), structure(c(-3, -2, -1, 0, 1, 2, 3, 4, 5), .Dim = c(1L, 9L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators184_92452e14882c5ca276a090555de4213a() {
+ assertEval("argv <- list(c(4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 4000, 8000, 12000, 16000, 20000, 24000, 28000, 32000, 36000, 40000, 44000, 48000), structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24), .Dim = c(1L, 24L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators185_fb8e8d4281a54bf250bed4f01eefbfab() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(10L, 0L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'), NULL)), structure(numeric(0), .Names = character(0)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators186_8ac8d377f486f1b899533c7cc99143d1() {
+ assertEval("argv <- list(structure(c(0.553622032575332, 0, 0, 0, 0, 1.83583330034692, 0, 0, 0, 0, 0.540309168173204, 0, 0, 0, 0, 0.347171956892285), .Dim = c(4L, 4L)), structure(c(3.26267089696047, -0.712693854979374, 2.39769041729195, 5.15111718577956, -0.712693854979374, 0.296710908544859, -1.00753262176762, -0.987904999293151, 2.39769041729195, -1.00753262176762, 3.42543180838832, 3.32535677689614, 5.15111718577956, -0.987904999293151, 3.32535677689614, 8.29680198510459), .Dim = c(4L, 4L), .Dimnames = list(c('A', 'B', 'C', 'D'), c('A', 'B', 'C', 'D'))));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators187_d39f06463cb53ab21d6054ade90cbbf7() {
+ assertEval("argv <- list(243L, 16);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators188_e071ec67ab64339ac7ad2b45b81672f5() {
+ assertEval("argv <- list(4L, 2L);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators189_6c71d1ce548b8bc33b8d61839c637155() {
+ assertEval("argv <- list(5, 3);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators19_35579b6bb06ebf62a6bd7cd24bb396bb() {
+ assertEval("argv <- list(structure(c(798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988), .Tsp = c(1971, 2000, 1), class = 'ts'), structure(c(96.1627886140128, 99.5328179233045, 102.792420797859, 105.951789523417, 109.019638748919, 112.00348906474, 114.909884224142, 117.744560053261, 120.512577567101, 123.218429147578, 125.866124161059, 128.459258681722, 131.001072784874, 133.494498015905, 135.942197018618, 138.34659685001, 140.70991716901, 143.034194231449, 145.321301429523, 147.572966965162, 149.790789131479, 151.976249586445, 154.130724932091, 156.255496856342, 158.351761049736, 160.420635073182, 162.463165323754, 164.480333221768, 166.473060722972, 168.442215243699), .Tsp = c(1971, 2000, 1), class = 'ts'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators190_1fa4eab5b248ef009677e44da0cf7bad() {
+ assertEval("argv <- list(1:2, 4L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators191_432424538837fc2084cefb55baba35d3() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators192_aa8cb7d7de7b90b7539ec5efc857a229() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, NA), .Dim = c(5L, 2L), .Dimnames = list(NULL, c('VAR1', 'VAR3'))), structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE), .Dim = c(5L, 2L), .Dimnames = list(NULL, c('VAR1', 'VAR3'))));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators193_50aa9cab26d3dc948abc88e58ec229fd() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')), structure(c(TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators195_1f782bffbabe014b420a84d687c86893() {
+ assertEval("argv <- list(7);`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators196_142ffc9dea969943aeb191a1afc8cbfb() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c('NA', 'a', 'b'), class = 'factor'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators197_18c86837ef5f2eba92f53fec19141f30() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators198_602c14ccaf426a573c611426bbd5ffb2() {
+ assertEval("argv <- list(structure(c(0.500999999999976, 0.584333333333234, 0.667666666666719, 0.750999999999976, 0.834333333333234, 0.917666666666719, 0.000999999999976353, 0.0843333333332339, 0.167666666666719, 0.250999999999976), .Tsp = c(1920.5, 1921.25, 12), class = 'ts'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators2_e4866e4719eeee72471ec3c4037c585d() {
+ assertEval("argv <- list(c(NA, '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'), c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', NA));`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators20_07aa2ed9c77431e83e27219551fdf866() {
+ assertEval("argv <- list(structure(978350400, class = c('POSIXct', 'POSIXt'), tzone = 'GMT'), c(1605796.39468342, 2250605.34500331, 3464617.14155227, 5492840.71388841, 1219772.31891453, 5433460.81468463, 5713396.02452517, 3996505.04896045, 3804881.73750043, 373683.36378783, 1245734.22899097, 1067815.23929536, 4155114.17658627, 2323059.28775668, 4656000.90815127, 3010085.0161314, 4340156.73798323, 5999048.06153476, 2298452.76521891, 4701988.69854212, 5653097.23772854, 1283037.96871752, 3941322.93728739, 759357.220374048, 1616150.60446411, 2335218.03170443, 80984.7349449992, 2312682.3643595, 5259890.2349174, 2058430.73196709, 2915620.53836882, 3626174.11217093, 2984937.82503158, 1126244.053334, 5003953.83093506, 4042886.83258742, 4803562.677674, 652843.049369752, 4377003.8016513, 2487387.75048405, 4965083.1868127, 3913420.05222291, 4735177.34632641, 3344763.6128068, 3203744.02103573, 4774026.48925781, 141107.11171478, 2886287.43334115, 4429033.49147737, 4189640.45360684, 2888643.47467571, 5208594.91588175, 2649611.30449176, 1480533.93148631, 427466.877132654, 601571.336723864, 1912811.28504127, 3136700.02379268, 4003806.70217425, 2460508.97211581, 5521073.589921, 1775713.19845319, 2776429.51241881, 2010322.98948616, 3936464.58484232, 1560485.48977822, 2894241.66157097, 4634646.93606645, 509525.338098407, 5293943.40406358, 2050713.12808245, 5076935.23793668, 2096741.74243212, 2018670.78146338, 2880972.33020514, 5396015.5351907, 5227525.11837333, 2358656.75892681, 4701235.58655381, 5809817.647174, 2628820.56391239, 4309288.77686709, 2419165.9430936, 1967729.81455922, 4578863.07127029, 1225882.75911659, 4300861.15349829, 735992.738373578, 1484714.53242749, 866704.886756837, 1449278.70250493, 356435.113750398, 3884559.38760191, 5299676.19835585, 4710875.96918643, 4822123.77896905, 2753499.89549071, 2480188.52821738, 4904143.22827756, 3658636.53959334));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators200_5366838236a082b9786d7f10e8ca6b3c() {
+ assertEval("argv <- list(structure(list(coefficients = structure(NA_real_, .Names = 'x'), residuals = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), effects = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c('', '', '', '', '', '', '', '', '', '')), rank = 0L, fitted.values = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), assign = 1L, qr = structure(list(qr = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(10L, 1L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'), 'x'), assign = 1L), qraux = 0, pivot = 1L, tol = 1e-07, rank = 0L), .Names = c('qr', 'qraux', 'pivot', 'tol', 'rank'), class = 'qr'), df.residual = 10L, xlevels = structure(list(), .Names = character(0)), call = quote(lm(formula = y ~ x + 0)), terms = quote(y ~ x + 0), model = structure(list(y = c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), x = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), .Names = c('y', 'x'), terms = quote(y ~ x + 0), row.names = c(NA, 10L), class = 'data.frame')), .Names = c('coefficients', 'residuals', 'effects', 'rank', 'fitted.values', 'assign', 'qr', 'df.residual', 'xlevels', 'call', 'terms', 'model'), class = 'lm'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators201_c7297bd2185297fd8af2318f390871b9() {
+ assertEval("argv <- list(3e+09, 30000L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators202_b3fbde75053cf8633e601c73255f8b01() {
+ assertEval("argv <- list(structure(list(A = c(1, NA, 1), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA_integer_, NA_integer_, NA_integer_), E = c(FALSE, NA, TRUE), F = c('abc', NA, 'def')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators203_40af1d5a95cb0b7cc8dc9bc1497098f5() {
+ assertEval("argv <- list(structure(1395082079.73982, class = c('POSIXct', 'POSIXt')));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators204_b266862648145727fc3cdb5da5b70ae1() {
+ assertEval("argv <- list(quote(y ~ a + b:c + d + e + e:d));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators205_f7746e8d4d0d3c6b787e72d1c465d3fd() {
+ assertEval("argv <- list(structure(c(-Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, 0, 0, 1, 1, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, Inf, -Inf, -Inf, -Inf, -Inf, 0, 1, 1, 1, Inf, -Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.6, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.4, 0.8, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.533333333333334, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.525, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 0, 1, 2, Inf, Inf, Inf, -Inf, -Inf, 0, 0.5, 1, 2, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 1, 2, 2, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.8, 1.6, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.3, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.4, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.2, 1.9, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.499999999999999, 1.33333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.325, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.6, 2.7, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.1, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.2, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.13333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.125, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 3, 4, Inf, Inf, Inf, -Inf, -Inf, 0, 1.5, 3, 4, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 4, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.4, 3.8, Inf, Inf, Inf, -Inf, -Inf, 0.100000000000001, 1.5, 2.9, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1.5, 3, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.2, 1.5, 2.8, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.0666666666666664, 1.5, 2.93333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.0750000000000002, 1.5, 2.925, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 3, 5, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1.5, 3.2, 4.9, Inf, Inf, Inf, -Inf, -Inf, 0.300000000000001, 2, 3.7, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.2, 2, 3.8, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.4, 2, 3.6, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.266666666666667, 2, 3.73333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.275, 2, 3.725, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L, 6L), .Dimnames = list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL, NULL)));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators206_5b1d50338aecad5d6bc7dd1668bf3be7() {
+ assertEval("argv <- list(structure(character(0), .Dim = c(0L, 7L), .Dimnames = list(NULL, c('description', 'class', 'mode', 'text', 'isopen', 'can read', 'can write'))));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators207_aaa3ff64d428394173323d4657ee2d20() {
+ assertEval("argv <- list(structure(list(coefficients = structure(c(1.47191076131574, 0.586694550701453, NA, 0.258706725324317), .Names = c('(Intercept)', 'x1', 'x2', 'x3')), residuals = structure(c(0.224762433374997, 0.4813346401898, -0.548705796690786, -0.873306430909872, 0.3255545927283, -0.288240908441576, 0.530823516045489, -0.0649703574297026, 1.2699009772491, -1.05715266611575), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), effects = structure(c(-18.0083860263211, 7.91372047070235, 0.594462796282497, -0.733976126666906, 0.546582698364345, -0.032332374655677, 0.774795104738016, 0.120246912926227, 1.34954655602521, -1.1298961521627), .Names = c('(Intercept)', 'x1', 'x3', '', '', '', '', '', '', '')), rank = 3L, fitted.values = structure(c(2.08447598454963, 2.74878255284838, 3.46483046621199, 4.23261972464046, 5.0521503281338, 5.923422276692, 6.84643557031507, 7.821190209003, 8.84768619275579, 9.92592352157344), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), assign = 0:3, qr = structure(list( qr = structure(c(-3.16227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, -17.3925271309261, 9.08295106229247, 0.15621147358221, 0.0461150970695743, -0.0639812794430617, -0.174077655955698, -0.284174032468334, -0.39427040898097, -0.504366785493606, -0.614463162006242, -12.1747689916483, 9.99124616852172, 2.29782505861521, 0.388354773181155, 0.471167347118467, 0.46694109307793, 0.375676011059543, 0.197372101063308, -0.0679706369107753, -0.420352202862709, -17.3925271309261, 9.08295106229247, 1.30962518065979e-16, -1.00907321685019e-15, 0.0501848681992808, -0.170313338748631, 0.0400139169574381, -0.419073670426332, -0.887431917453648, -0.0447724572319277), .Dim = c(10L, 4L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'), c('(Intercept)', 'x1', 'x3', 'x2')), assign = 0:3), qraux = c(1.31622776601684, 1.26630785009485, 1.21850337126599, 1.04136435435488 ), pivot = c(1L, 2L, 4L, 3L), tol = 1e-07, rank = 3L), .Names = c('qr', 'qraux', 'pivot', 'tol', 'rank'), class = 'qr'), df.residual = 7L, xlevels = structure(list(), .Names = character(0)), call = quote(lm(formula = y ~ x1 + x2 + x3)), terms = quote(y ~ x1 + x2 + x3), model = structure(list(y = c(2.30923841792462, 3.23011719303818, 2.9161246695212, 3.35931329373059, 5.3777049208621, 5.63518136825043, 7.37725908636056, 7.75621985157329, 10.1175871700049, 8.86877085545769), x1 = 1:10, x2 = 1:10, x3 = c(0.1, 0.4, 0.9, 1.6, 2.5, 3.6, 4.9, 6.4, 8.1, 10)), .Names = c('y', 'x1', 'x2', 'x3'), terms = quote(y ~ x1 + x2 + x3), row.names = c(NA, 10L), class = 'data.frame')), .Names = c('coefficients', 'residuals', 'effects', 'rank', 'fitted.values', 'assign', 'qr', 'df.residual', 'xlevels', 'call', 'terms', 'model'), class = 'lm'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators208_d6135a5c1fd8c793308d0a92ea418c1a() {
+ assertEval("argv <- list(structure(c(1L, 2L, 1L), .Dim = 3L, .Dimnames = structure(list(c('1', '2', NA)), .Names = ''), class = 'table'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators209_3fbb0ff71799cfed6d2ed45eba3267d4() {
+ assertEval("argv <- list(0.603420215896625, c(0, 0, 0, 0, 0, -0.0303676182248376, -0.0303676182248376, -0.0616574286863247, -0.0616574286863247, -0.0616574286863247, -0.0616574286863247, -0.0616574286863247, -0.0616574286863247, -0.0938974361662337, -0.0938974361662337, -0.0938974361662337, -0.127116495884859, -0.127116495884859, -0.127116495884859, -0.127116495884859, -0.161344339326807, -0.161344339326807, -0.161344339326807, -0.161344339326807, -0.161344339326807, -0.161344339326807, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.270391595295763, -0.270391595295763, -0.270391595295763, -0.270391595295763, -0.270391595295763, -0.348720674486417, -0.389678109021166));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators21_30213f0314c03b7467110a6a5de96c5b() {
+ assertEval("argv <- list(1, c(FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators210_5fee067a6a6c55474cc3d775a8abfea9() {
+ assertEval("argv <- list(5, c(0.90483741803596, 0.042329219623205, 3.72007597602068e-44));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators211_e0e106f9cf904f38c74793ad7272f6b6() {
+ assertEval("argv <- list(structure(c(110, 72, 89, 67, 116, 56, 102, 70, 116, 56, 106, 48), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')), structure(c(0.618181818181818, 0.583333333333333, 0.415730337078652, 0.358208955223881, 0.568965517241379, 0.589285714285714, 0.46078431372549, 0.328571428571429, 0.543103448275862, 0.517857142857143, 0.537735849056604, 0.395833333333333), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators212_cde36360fb36e0671c4a7eccd9dee60c() {
+ assertEval("argv <- list(0, 0L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators213_a769d7e73dada97662d9bbc94c82bb63() {
+ assertEval("argv <- list(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), structure(c(110, 72, 89, 67, 116, 56, 102, 70, 116, 56, 106, 48), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators214_e86dfb64edf5c64c80b37aab6ef2ff32() {
+ assertEval("argv <- list(0+6.28318530717959i, 1:16);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators215_22855dfc79710f2336fabc9d12331c1f() {
+ assertEval("argv <- list(10, structure(0:100, .Tsp = c(1, 101, 1), class = 'ts'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators216_e44392a679e9a10e5c467455dcc1fae6() {
+ assertEval("argv <- list(1, 8);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators217_a367a1c05bb1cc9587b410760078978d() {
+ assertEval("argv <- list(0+1i, 2);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators218_728b0d82ec18d0f94430ccabf9b89820() {
+ assertEval("argv <- list(2L, 5L);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators219_c3b54be8731ee8aba9f4f418c55a6c07() {
+ assertEval("argv <- list(0+2i, 3.14159265358979);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators22_c319a61658a9bb5ea5bc872037a09b0b() {
+ assertEval("argv <- list(1, structure(list(x = 1:9, y = c(-0.626453810742332, 0.183643324222082, -0.835628612410047, 1.59528080213779, 0.329507771815361, -0.820468384118015, 0.487429052428485, 0.738324705129217, 0.575781351653492)), .Names = c('x', 'y'), row.names = c(NA, -9L), class = 'data.frame'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators220_5263155c59a61b91d81ea9cfd5dd43bc() {
+ assertEval("argv <- list(structure(11323, class = 'Date'), c(12, 24, 36, 48, 60, 72, 84, 96, 108));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators221_5430d4c897e782303ef7852d62d9c6f9() {
+ assertEval("argv <- list(3, 0+5i);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators222_ddf0ae9b02746dd60685473279e17959() {
+ assertEval("argv <- list(structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')), structure(c(42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators224_c4a594dd6b36fb91cc376311c8250d06() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4), 3);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators225_4d607c89fbaa4ebbf274606dec675a0f() {
+ assertEval("argv <- list(0.02);`+`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators226_1a3b907b3ae8e622718ee00e0bb4e27f() {
+ assertEval("argv <- list(1, structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators227_bbe5b3c017b67404606553acdd1b0ffb() {
+ assertEval("argv <- list(3.14159265358979, c(8.24339426780198e-14, 8.88066145332545e-14, 3.39607080058103e-14, 2.87112686384263e-14, -5.3372537031158e-14, 9.96185601455202e-14, -3.26659396832497e-14, 1.39086823244366e-13, 1.72881695621852e-13, 4.32507741831361e-14, -9.84603924440361e-14, 9.87208407136427e-14, -2.73032911651077e-14, -1.48736837028697e-13, 2.94392054503409e-14, -1.05171613093738e-13, -1.14029445758562e-13, 5.13338041611324e-15, -1.87531579189825e-13, -1.25627528672486e-13, 4.10267164560562e-14, 1.74236574669889e-13, 8.02066525165472e-14, 1.57764465352e-13, 1.23253351804626e-13, 1.6788749880341e-13, -1.39908165098147e-13, -1.58115885024452e-13, 1.81544497697974e-13, -1.14362367874561e-13, 1.56626365789358e-13, -1.81348445541539e-13, 1.34029870837468e-13, 5.83660521214748e-14, 1.66415892254192e-13, -1.55962501921682e-13, 5.56922447997358e-15, -1.90684901734508e-13, -1.56068620913678e-13, 1.42594677103356e-13, -1.5324035174056e-13, -1.72045664669025e-13, 6.15626207230525e-14, -1.70423231918929e-13, -2.2440318442518e-14, -6.47937716601402e-14, -1.03307295568126e-13, 7.89213836842498e-14, -9.01552844071197e-15, -1.39863491975671e-13, 1.21580502093206e-13, 1.74391617154328e-13, -7.68474764369541e-15, -9.62952541877272e-14, -5.3148471902392e-14, -2.21880305144443e-14, 5.26389742858333e-14, 2.7159840200832e-14, 1.87431554819324e-14, 4.56102486340353e-14, 1.11966090535737e-13, 9.46528420538298e-14, -1.10626253790834e-14, -1.20682584010224e-13, 1.09679727142136e-13, 1.85521222833898e-13, 1.28904258163856e-13, -7.30112958403796e-14, 4.38190249362539e-14, -5.25642067782032e-14, -1.07266296983526e-13, 4.48939091164837e-14, 4.09010010401022e-14, 1.576058154827e-13, -1.65586113176678e-13, 1.64953139323032e-13, -3.61017352519794e-14, -5.98713716165795e-14, 1.5553263601743e-13, -1.40329145253713e-13, -1.34306416738384e-13, 6.33760537168414e-15, -1.47719256195174e-13, 1.30439641217338e-13, -1.9949544714752e-13, 8.89585653992738e-14, 9.03099047696007e-14, -5.47032374550363e-14, 1.44655516265113e-13, 1.70556682807057e-13, -9.71359599142186e-14, -6.53941098287223e-14, -8.38818567534634e-14, 6.7826899389696e-14, 1.86838153280979e-13, 4.37228204318607e-14, 8.3759639291968e-14, -1.92868749423155e-13, -9.13894925944948e-14, 5.76515542011828e-14, 3.92733987046576e-14));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators228_e95abf1ec46a13106cb73f83b8865237() {
+ assertEval("argv <- list(4, 1:5);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators229_b1474c2eea0cccc436d601ae8766dfbb() {
+ assertEval("argv <- list(structure(c(1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')), 0.1);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators23_9af6f26de83109d547826242c152ade4() {
+ assertEval("argv <- list(1:2, c(0+8i, 0+9i));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators230_9b8fcc67ae4bc76690c713e51ddb4e64() {
+ assertEval("argv <- list(structure(1:10, .Tsp = c(1920.5, 1921.25, 12), class = 'ts'), 1);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators231_69a760411aff0641c9e1c661dabebc9f() {
+ assertEval("argv <- list(1, 1);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators232_e3df0a91b3c4778c1d4bae8f85308786() {
+ assertEval("argv <- list(structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), c('X', 'M'))), structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), c('X', 'M'))));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators233_2f935b5e8e410108e11f647cdc663a73() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Tsp = c(3, 10, 1), class = 'ts'), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Tsp = c(3, 10, 1), class = 'ts'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators234_712dc2f75f71128c9b32cabf45b45568() {
+ assertEval("argv <- list(c(-1.04843842027757e+143, -9.998687937523e+136, -9.53549188377803e+130, -9.09375370386458e+124, -8.67247934711978e+118, -8.27072081298779e+112, -7.88757401780305e+106, -7.52217676063816e+100, -7.17370678430818e+94, -6.84137992972049e+88, -6.5244483891549e+82, -6.22219909169008e+76, -5.93395235884653e+70, -5.65906136797865e+64, -5.39691448428537e+58, -5.14694833309681e+52, -4.90870165301755e+46, -4.68202458334831e+40, -4.46788150641526e+34, -4.27143012156591e+28, -4.11397031483551e+22, -40816513889983680, -45637199262.2201, -83492.8982026505, -1.56717399085881, -0.0019371698216247, -0.0388983050293216, 0.00184649674288725, -0.049895679671468, 0.0161192923654623, -0.0169866996250208));`-`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators235_a8e35f57650faabace4e3045fcb0a6df() {
+ assertEval("argv <- list(FALSE, c(-3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L, 70L));`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators236_8c9f50adf9e2f881ade79b39fa098979() {
+ assertEval("argv <- list(structure(1395082079.75887, class = c('POSIXct', 'POSIXt')), 3600);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators237_ac592d4e38c58a1d1144e14738aa4bb7() {
+ assertEval("argv <- list(structure(c(2, 1, 0, 1, 0, NA, NA, NA, 0), .Dim = c(3L, 3L)), structure(c(1, 1, 1, 0.5, 0.5, 0.5, 0, 0, 0), .Dim = c(3L, 3L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators238_861e6ce652bbbabc9f8e1cff5660a21f() {
+ assertEval("argv <- list(structure(2:10, .Tsp = c(2, 10, 1), class = 'ts'), structure(1:9, .Tsp = c(2, 10, 1), class = 'ts'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators239_e51bfdc9a9d8984829ec62ef60b55381() {
+ assertEval("argv <- list(structure(0:100, .Tsp = c(1, 101, 1), class = 'ts'), 4);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators24_5dd96f014c3cb4980e5f1f3475781a42() {
+ assertEval("argv <- list(c(14, 2, 2, -7), c(14, 2, 2, -7));`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators240_aae6e5e7305a3bb322f3ea667431da37() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 4L)), structure(numeric(0), .Dim = c(0L, 4L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators241_ae3ad235a8d0266f24112d4d0b6f0c0a() {
+ assertEval("argv <- list(structure(c(1L, 0L, 0L, 1L), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c('1', '2'), y = c('1', '2')), .Names = c('x', 'y')), class = 'table'), 1);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators242_8c0997436a810c9e32c21d0dc11c0312() {
+ assertEval("argv <- list(5);`-`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators243_e085feeb1c2febcb7a806385a1c8a090() {
+ assertEval("argv <- list(structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')), structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators244_9a65cfac70238a0414e8b3c3b5e589bf() {
+ assertEval("argv <- list(10, structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), .Tsp = c(1, 10, 1), class = 'ts'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators245_e806671ecda09a86ecb14bc505e6dc94() {
+ assertEval("argv <- list(17L, 10L);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators246_abf1c4e100d87b2622343eb1f536ca03() {
+ assertEval("argv <- list(structure(100L, .Names = 'expsumNoisy'), 100L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators247_9fdf83a940a8bcab06a67e3de62b8e6f() {
+ assertEval("argv <- list(50, 51);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators248_85f4772e959deebbadece4f185c7ee15() {
+ assertEval("argv <- list(-1, 1);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators249_cda9a5e8de2675d38da1f68773327db1() {
+ assertEval("argv <- list(1L, structure(15L, .Names = 'nc'));`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators25_94848b7ea7d53e36131ab0bc83cf147f() {
+ assertEval("argv <- list(c(-1, -2, -3, -4, -5, -6, -7, -8, -9, -10, -11, -12, -13, -14, -15, -16, -17, -18, -19, -20, -21, -22, -23, -24, -25, -26, -27, -28, -29, -30, -31, -32, -33, -34, -35, -36, -37, -38, -39, -40, -41, -42, -43, -44, -45, -46, -47, -48, -49, -50, -1000, -10000, -1e+05, -1e+06, -1e+07, -1e+08, -1e+09, -1e+10, -1e+20, -1e+50, -1e+150, -1e+250, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 1000, 10000, 1e+05, 1e+06, 1e+07, 1e+08, 1e+09, 1e+10, 1e+20, 1e+50, 1e+150, 1e+250));`+`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators250_27d6c85002551534a37a3c6fddf4e7a8() {
+ assertEval("argv <- list(-20, 10);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators251_4acd567774644f8db8d564451d988926() {
+ assertEval("argv <- list(-7L, -1L);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators252_b71e2a9f6e34a49be8ea7ba8f3f6e1b0() {
+ assertEval("argv <- list(structure(c(0.618181818181818, 0.583333333333333, 0.415730337078652, 0.358208955223881, 0.568965517241379, 0.589285714285714, 0.46078431372549, 0.328571428571429, 0.543103448275862, 0.517857142857143, 0.537735849056604, 0.395833333333333), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')), 0);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators253_cde8cdf1996f47d9f89d475ee389e7d8() {
+ assertEval("argv <- list(c(1, 1, 1, 1, 1), -10);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators254_f143b7039eb8befb458d688da130fda5() {
+ assertEval("argv <- list(structure(c(1208822400, 1208908800, 1208995200, 1209081600, 1209168000, 1209254400), class = c('POSIXct', 'POSIXt'), tzone = 'GMT'), structure(1209168000, class = c('POSIXct', 'POSIXt'), tzone = 'GMT'));`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators257_2a7b56ed5b37bd0f3f27ae78c16117bb() {
+ assertEval("argv <- list(structure(c(1, 1.4142135623731, 1.73205080756888, 2, 2.23606797749979, 2.44948974278318, 2.64575131106459, 2.82842712474619, 3, 3.16227766016838), id = 'test 1', class = structure('withId', package = '.GlobalEnv')), 1);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators258_be0134a61489dd3b3bae614af3f37523() {
+ assertEval("argv <- list(2L, 1);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators259_32510af4973912debd26325bb2099e79() {
+ assertEval("argv <- list(structure(c(2L, NA, NA, 4L, 3L, 2L, 1L, 5L, 5L, 6L), .Label = c('NA', 'a', 'b', 'c', 'd', NA), class = 'factor'), structure(c(2L, NA, NA, 4L, 3L, 2L, 1L, 5L, 5L, 6L), .Label = c('NA', 'a', 'b', 'c', 'd', NA), class = 'factor'));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators26_afc6633c2f1cbf34a1ded26bfdb5f905() {
+ assertEval("argv <- list(structure(c(1+1i, 2+2i, 1.2+10i, 2.4+20i), .Dim = c(2L, 2L), .Dimnames = list(c('x', ''), c('a', 'b'))), 3.14159265358979);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators260_8abe64f648df7b5454f2830e31fc2bf4() {
+ assertEval("argv <- list(c(-Inf, Inf), c(-Inf, Inf));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators261_cba752dcaf75cdd4235e6d15b592d9fa() {
+ assertEval("argv <- list(structure(list(VAR1 = c(1, 2, 3, 4, 5), VAR3 = c(1, 1, 1, 1, NA)), .Names = c('VAR1', 'VAR3'), class = 'data.frame', row.names = c(NA, -5L)), 1);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators262_c67c1aae833d575239e4a0c13e072aa3() {
+ assertEval("argv <- list(structure(1:20, .Dim = c(2L, 2L, 5L)), structure(1:20, .Dim = c(2L, 2L, 5L)));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators263_149aa38ab8c2611bb60adbe938c1aa58() {
+ assertEval("argv <- list(structure(c(1L, 2L, NA), .Label = c('1', '2'), class = 'factor'), structure(c(1L, 2L, NA), .Label = c('1', '2'), class = 'factor'));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators264_b1abf5d8e7f67b9f2a8ceb970c035417() {
+ assertEval("argv <- list(c(5L, 2L, 4L), c(5, 2, 4));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators265_a1c877dfcfc231be6b91d17faf3aa2e2() {
+ assertEval("argv <- list(NULL, 'foo');`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators266_8d4256f76180b87427b2f3c367efdb26() {
+ assertEval("argv <- list(structure(FALSE, .Names = 'd'), FALSE);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators267_afe0922b01cde0784db521458f6c94a7() {
+ assertEval("argv <- list(c('1', '2', NA), c('1', '2', NA));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators268_15d5159b800edb68bc00d655c7636119() {
+ assertEval("argv <- list(-1:12, 2);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators269_5d2818c24c7dafb0bfdb79a8a4efcad7() {
+ assertEval("argv <- list(structure('(converted from warning) NAs produced\n', class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(1, sd = Inf))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), '(converted from warning) NAs produced\n');`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators27_8bc9eeb8190ce6f5a7ffcfafaab905a1() {
+ assertEval("argv <- list(structure(c(1, 0.81, 0.64, 0.49, 0.36, 0.25, 0.16, 0.09, 0.04, 0.01, 0.81, 1, 0.81, 0.64, 0.49, 0.36, 0.25, 0.16, 0.09, 0.04, 0.64, 0.81, 1, 0.81, 0.64, 0.49, 0.36, 0.25, 0.16, 0.09, 0.49, 0.64, 0.81, 1, 0.81, 0.64, 0.49, 0.36, 0.25, 0.16, 0.36, 0.49, 0.64, 0.81, 1, 0.81, 0.64, 0.49, 0.36, 0.25, 0.25, 0.36, 0.49, 0.64, 0.81, 1, 0.81, 0.64, 0.49, 0.36, 0.16, 0.25, 0.36, 0.49, 0.64, 0.81, 1, 0.81, 0.64, 0.49, 0.09, 0.16, 0.25, 0.36, 0.49, 0.64, 0.81, 1, 0.81, 0.64, 0.04, 0.09, 0.16, 0.25, 0.36, 0.49, 0.64, 0.81, 1, 0.81, 0.01, 0.04, 0.09, 0.16, 0.25, 0.36, 0.49, 0.64, 0.81, 1), .Dim = c(10L, 10L)), structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), .Dim = c(10L, 10L)));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators270_7c792f35574302bbf88ed34b49012038() {
+ assertEval("argv <- list(75.1931882101063, 0);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators271_a0ea3d069004978fe3c702d25cae6379() {
+ assertEval("argv <- list(3.001e+155, 0);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators272_b8f9baa9b9d7a0fe22ff221de6356d02() {
+ assertEval("argv <- list(structure(c(4, 3, 2, 1, 0), .Tsp = c(-1, 3, 1), class = 'ts'), 1e-05);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators273_eb353fb902d9f06ec127617a590d9be6() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(12L, 2L), .Dimnames = list(c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), c('X', 'M'))), 0.001);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators274_18bb93365d1d611cdc2cf75e55aa7f4c() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 3.5527136788005e-15, 0, 0), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')), 0.001);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators275_29b7b05d53003db4b3a2643bf427ddca() {
+ assertEval("argv <- list(structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8), .Tsp = c(3, 11, 1), class = 'ts'), 1e-05);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators276_ffe21cf52c288763ca4c4b725aeb57c9() {
+ assertEval("argv <- list(structure(c(13991, 13992, 13993, 13994, 13995), class = 'Date', labels = c('Apr 22', 'Apr 23', 'Apr 24', 'Apr 25', 'Apr 26')), 13991);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators277_943419b8535959a708046d0e6032737a() {
+ assertEval("argv <- list(structure(3.00510204081633, base = 14, lens = 3L, .classes = c('R_system_version', 'package_version', 'numeric_version')), structure(2.92857142857143, base = 14, lens = 3L, .classes = c('package_version', 'numeric_version')));`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators278_792332dbd82da01c08d0f16ca5dba9e2() {
+ assertEval("argv <- list(2, c(1, 53.6315789473684, 106.263157894737, 158.894736842105, 211.526315789474, 264.157894736842, 316.789473684211, 369.421052631579, 422.052631578947, 474.684210526316, 527.315789473684, 579.947368421053, 632.578947368421, 685.210526315789, 737.842105263158, 790.473684210526, 843.105263157895, 895.736842105263, 948.368421052632, 1001));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators279_25ec5fd216f350a8e493e5cb105d8e09() {
+ assertEval("argv <- list(structure(1:12, .Dim = 12L), 3);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators28_e3ab70d0575681abda58935190fa8422() {
+ assertEval("argv <- list(structure(5.5965311794562, .Names = 'thetas'), structure(c(3, 2, 2, 1, 1, 2), .Dim = 6L, .Dimnames = list(c('1', '2', '3', '4', '5', '6'))));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators280_b487ff1c37ad65aa84c650d2ae4e6dc8() {
+ assertEval("argv <- list(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69), 2);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators281_675f8f4e7f7bd537b62f36ad4ed49a8e() {
+ assertEval("argv <- list(c(2, 13954490295224484, 9.73638996997572e+31, 6.79331796732739e+47, 4.73986448237219e+63, 3.30711964599708e+79, 2.30745845026066e+95, 1.60997032753976e+111, 1.12331576556267e+127, 7.83764947450857e+142, 5.46852017646992e+158, 3.8155205865895e+174, 2.66218224983966e+190, 1.85746981847535e+206, 1.29600222777925e+222, 9.04252525506755e+237, 6.30919154580821e+253, 4.40207760983472e+269, 3.07143746426322e+285, 2.14301721437253e+301), 0.9);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators282_21c31be1ca71a4646c1b8576f4d897b3() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')), structure(c(TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators283_08daf5a5098696a0e77f2715e68cca0b() {
+ assertEval("argv <- list(10, structure(c(2.62236698682835, 2.59270366218715, 2.63940608371058, 2.64731958493827, 2.65803373028597, 2.71373162990423, 2.77064097627242, 2.76566849458896, 2.68535956033309, 2.6323339540094, 2.56646882037186, 2.60930482928073, 2.61873883018004, 2.58963301587663, 2.63649393196055, 2.64432599746861, 2.65480384168506, 2.71016075212057, 2.76665607635342, 2.76121751481566, 2.68040487260442, 2.62684815424423, 2.56043192269559, 2.60270233556967), .Tsp = c(1961, 1962.91666666667, 12), class = 'ts'));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators284_43753229a309be4dc33d779a1b8db7c0() {
+ assertEval("argv <- list(10, -324:-307);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators285_d32d88c9bb4acfefd7eab0a6f1185807() {
+ assertEval("argv <- list(structure(c(2, -2, -2, 2), .Dim = c(2L, 2L), .Dimnames = list(c('Milk', 'Tea'), c('Milk', 'Tea'))), 2);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators286_ff3ef1d5b2c96bd936ec4586644beb36() {
+ assertEval("argv <- list(c(-0.672916599964862, -0.584338371560402, 0.572115715156077, -0.341116997543456, -0.218053452331652, 0.603114283893957, -0.415268358002702, -0.0134950134274691, 0.76321585191833, 0.804319710846886, 0.0536892937002835, 1.74635019377278, -0.471646028332481, 1.63758588525433, -0.578351427808452, 0.946667542637206, -0.329423655668059, -0.187791022191408, 0.794323068130594, 0.894218687970535, -1.22656982031204, 1.0590522527981, 0.612808669537666, -0.939425042488798, 2.69005530237799, -5.30421668373535, 2.81829750013497, -0.200427817155017, 0.828486397910241, 0.279395276763307, 0.0200169554117855, -0.787735991519008, -1.29364959334893, -0.511638483749587, 0.113049755514737, 1.10102046217428, -0.306657900899176, 0.268100169311174, -0.305146107712725, 0.396162277846222, 0.0150939553276523, 1.49211381144096, -1.92447564755755, 0.872283353434605, -1.19828539105242, 0.249023119183754, -0.888972367366677, -0.343085496017779, -0.789859289813313, 2.25212409468034, 2.24112978772768, -0.268185452742113, -0.258069470254978, -1.83609460856723, -0.0896167695808968, -0.0862703217063487, -0.00265875112142955, -0.414323880711934, -0.87767314293053, -2.22003587446461, -0.8313148988929, 0.832662806275473, -0.671837383858861, -1.85809916947114, -0.433937023889368, -0.851823367571459, -1.57641862799745, -0.880161315252144, -0.658071675968036, -1.21910415241982, -0.103154147995399, -1.92102359833593, 0.794527839025225, -1.0143657782449, 0.633288668140732, -0.0981774734963654, -0.927622152862583, -1.15272382197142, 3.28038998456465, -2.43807429671523, 0.0242203067253644, -0.377015290181077, 1.18353877313309, -5.69817122824189, -0.316441438096387, -0.0880345184260629, -0.161984388003683, -1.04890926431944, 3.34283466347557, -1.14655469197163, -0.0469559138168916, 4.57732396845363, -1.10972642208237, 6.74369483998494, -4.51689622564278, -0.942648739247179, 2.19288903907033, 1.26921808442688, -0.705352464586085, 0.00567568850361933), 2);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators287_0b689ea36ad607b8249192a6dca887c6() {
+ assertEval("argv <- list(-3:4, 2);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators288_4e1e2aca091cc8ca4e826fd072a33f04() {
+ assertEval("argv <- list(0.9, Inf);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators289_19fc834348250e6c771211b9164d49d4() {
+ assertEval("argv <- list(0+0i, -3:3);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators29_e5e282c3dfa759f4ea9ceca28892c945() {
+ assertEval("argv <- list(c(NA, 6.12, 19.92, 29.64, 35.4, 39.72, 45.24, 52.32, 63.48), c(6.12, 19.92, 29.64, 35.4, 39.72, 45.24, 52.32, 63.48, NA));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators290_8fc106e6afc8829d4999756810e9668f() {
+ assertEval("argv <- list(structure(c(8L, 8L), .Names = c('y', 'x')), 8L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators291_4bca051d75b7a9864aa1795d2c7081cb() {
+ assertEval("argv <- list(c(-Inf, -2, -1), -3);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators292_bae7e393c0b30412c5f11eaabc45c1a5() {
+ assertEval("argv <- list(integer(0), 1:3);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators293_568ce8a6aca5a836a71cd668a1f5efe3() {
+ assertEval("argv <- list(c(NA, -2L, -1L, 0L, 1L, 2L, NA, NA, NA), 0L);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators294_1cd1748b71932f9d34d8b2c9ef3c983d() {
+ assertEval("argv <- list(c(-4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i), c(-0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators295_854d9cba92f5be9c9feaae0d0b4993b8() {
+ assertEval("argv <- list(structure(c(26.2845882236184, 26.2845882236184, 26.2845882236184, 19.6276109953659, 19.6276109953659, 19.6276109953659, 19.6276109953659, 19.6276109953659, 16.7854987799975, 16.7854987799975, 16.7854987799975, 12.5343124120522, 12.5343124120522, 28.7031306388734, 28.7031306388734, 28.7031306388734, 28.7031306388734, 21.4336202544253, 21.4336202544253, 21.4336202544253, 21.4336202544253, 21.4336202544253, 21.4336202544253, 21.4336202544253, 28.044754781901, 28.044754781901, 28.044754781901, 28.044754781901, 28.044754781901, 28.044754781901, 28.044754781901, 24.2091543637699, 18.0778127599455, 18.0778127599455, 18.0778127599455, 18.0778127599455, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 11.5446017812987, 11.5446017812987, 11.5446017812987, 11.5446017812987, 11.5446017812987, 26.436728414697, 26.436728414697, 26.436728414697, 26.436728414697, 26.436728414697, 26.436728414697, 26.436728414697, 26.436728414697, 19.7412193373284, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 14.8736630467598, 14.8736630467598, 14.8736630467598, 11.1066785552923, 11.1066785552923, 11.1066785552923, 11.1066785552923, 11.1066785552923, 11.1066785552923, 9.49841217984702, 9.49841217984702, 9.49841217984702, 9.49841217984702, 9.49841217984702, 9.49841217984702, 9.49841217984702, 7.0927928470328, 7.0927928470328, 16.2422439293196, 16.2422439293196, 16.2422439293196, 12.1286452283118, 12.1286452283118, 12.1286452283118, 12.1286452283118, 12.1286452283118, 12.1286452283118, 12.1286452283118, 15.8696887052689, 15.8696887052689, 15.8696887052689, 15.8696887052689, 15.8696887052689, 15.8696887052689, 15.8696887052689, 13.6992370430272, 10.2296940445213, 10.2296940445213, 10.2296940445213, 10.2296940445213, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 6.53274517535593, 6.53274517535593, 6.53274517535593, 6.53274517535593, 6.53274517535593, 6.53274517535593, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 11.170966121195, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100', '101', '102', '103', '104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', '115', '116', '117', '118', '119', '120', '121', '122', '123', '124', '125', '126', '127', '128', '129', '130', '131', '132', '133', '134', '135', '136', '137', '138', '139', '140', '141', '142', '143', '144', '145', '146')), 2);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators296_51f2c48689a0bed4d74857a288e4a9a8() {
+ assertEval("argv <- list(17L, c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L, 70L, 71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 80L, 81L, 82L, 83L, 84L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L, 97L, 98L, 99L, 100L, 77L, 50L, 49L, 48L, 47L, 46L, 45L, 44L, 43L, 42L, 41L, 40L, 10L));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators297_136837e2792e7d0f9192e946bc84e8e1() {
+ assertEval("argv <- list(c(-Inf, -2, -1), 0.5);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators298_34c8f553c73b10b2f2843a40e4dd7eac() {
+ assertEval("argv <- list(structure(c(4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L), .Dim = 27L, .Dimnames = structure(list(groups = c('M01', 'M02', 'M03', 'M04', 'M05', 'M06', 'M07', 'M08', 'M09', 'M10', 'M11', 'M12', 'M13', 'M14', 'M15', 'M16', 'F01', 'F02', 'F03', 'F04', 'F05', 'F06', 'F07', 'F08', 'F09', 'F10', 'F11')), .Names = 'groups'), class = 'table'), 2);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators299_803a78a849a6a41a75f52a25d181628d() {
+ assertEval("argv <- list(NA_integer_, structure(-2, .Names = 'power'));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators3_c66be1d536a6f13e7f65182c12d8efdf() {
+ assertEval("argv <- list(2.2250738585072e-308, c(0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 1e+05, 1e+10));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators30_0bfe9d1e193d8b5ba535dfcd6894b791() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0i, 1.39139505579429+0i, 0.928710764113827+0i, -0.469267985412949+0i, 0.7424437487+0i, 0.460916205989202+0i, -0.452623703774585+0i, -0.0945011868321433+0i, -0.331818442379127+0i, 1.39139505579429+0i, -0.452623703774585+0i, 0.400771450594052+0i, -0.927967220342259+0i, -0.790922791530657+0i, 0.928710764113827+0i, -0.0945011868321433+0i, -0.927967220342259+0i, 0.701355901563686+0i, -0.600841318509537+0i, -0.469267985412949+0i, -0.331818442379127+0i, -0.790922791530657+0i, -0.600841318509537+0i, -0.625039267849257+0i), .Dim = c(5L, 5L)), c(0-1.68669331074241i, 0+0.837787044494525i, 0+0.153373117836515i, 0-1.13813693701195i, 0+1.25381492106993i, 0+0.426464221476814i, 0-0.295071482992271i, 0+0.895125661045022i, 0+0.878133487533042i, 0+0.821581081637487i, 0+0.688640254100091i, 0+0.553917653537589i, 0-0.0619117105767217i, 0-0.305962663739917i, 0-0.380471001012383i, 0-0.694706978920513i, 0-0.207917278019599i, 0-1.26539635156826i, 0+2.16895596533851i, 0+1.20796199830499i, 0-1.12310858320335i, 0-0.402884835299076i, 0-0.466655353623219i, 0+0.779965118336318i, 0-0.0833690664718293i));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators300_9d4fd2b549ca831aa30b92a1efff9a58() {
+ assertEval("argv <- list(c(-Inf, -2, -1, 0, 1, 2, Inf, NA, NaN), 0);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators301_419ba6d2586f5d54bb5da4e268240187() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4, .Dimnames = list(c('Case_1', 'Case_2', 'Case_3'), NULL)), 5);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators302_acee8449332136984a3bb662a8f77934() {
+ assertEval("argv <- list(structure(c(2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L), .Names = c('2:', '3:', '4:', '5:', '6:', '7:', '8:', '2:', '3:', '4:', '5:', '6:', '7:', '8:', '2:', '3:', '4:', '5:', '6:', '7:', '8:', '2:', '3:', '4:', '5:', '6:', '7:', '8:', '2:', '3:', '4:', '5:', '6:', '7:', '8:', '2:', '3:', '4:', '5:', '6:', '7:', '8:', '2:', '3:', '4:', '5:', '6:', '7:', '8:', '2:', '3:', '4:', '5:', '6:', '7:', '8:', '2:', '3:', '4:', '5:', '6:', '7:', '8:')), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 9L), .Names = c('1', '1', '1', '1', '1', '1', '1', '2', '2', '2', '2', '2', '2', '2', '3', '3', '3', '3', '3', '3', '3', '4', '4', '4', '4', '4', '4', '4', '5', '5', '5', '5', '5', '5', '5', '6', '6', '6', '6', '6', '6', '6', '7', '7', '7', '7', '7', '7', '7', '8', '8', '8', '8', '8', '8', '8', '9', '9', '9', '9', '9', '9', '9')));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators303_5bcf0f1b3564d3793debc5b173a9e2fc() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`^`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators304_6d1a4736b65b7a8f4e0304f2ea213ebc() {
+ assertEval("argv <- list(0.8, structure(c(0L, 1L, 2L, 1L, 0L, 1L, 2L, 1L, 0L), .Dim = c(3L, 3L)));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators305_0e573d01ff9ad80504dc392e75931176() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 6, 0, 0, 0, 0, 6, 0, 0, 0, 0, 6, 0), .Dim = c(4L, 4L)), structure(c(0, 0, 0, 0, 6, 0, 0, 0, 0, 6, 0, 0, 0, 0, 6, 0), .Dim = c(4L, 4L)));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators306_147fbf9c60e5a87f07998df0fdc11cc1() {
+ assertEval("argv <- list(c(1.1, 2, Inf), -Inf);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators307_97f4b55ca348d8b64508588c17130859() {
+ assertEval("argv <- list(logical(0), structure(logical(0), .Dim = c(0L, 0L), .Dimnames = list(NULL, NULL)));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators308_5772295f6362383b9b22ac53e9f048b9() {
+ assertEval("argv <- list(list());`|`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators309_9ec3da2f1e356943247d1511092d3fec() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, TRUE, TRUE), .Dim = c(2L, 2L), .Dimnames = list(NULL, NULL)), structure(c(FALSE, FALSE, FALSE, FALSE), .Dim = c(2L, 2L), .Dimnames = list(NULL, NULL)));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators31_259b3b45a792b07127e7cd32b902540e() {
+ assertEval("argv <- list(structure(FALSE, class = structure('foo', package = '.GlobalEnv')), NA);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators310_20b9553f46260b6031a95c78ac89daf3() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L)), structure(c(FALSE, FALSE, FALSE, FALSE), .Dim = c(2L, 2L)));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators311_04db700a9465788e9c82c65d059de7eb() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53')));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators312_f0e28dda5fd6a79f4fce4f88da41e681() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0), .Dim = c(6L, 3L), .Dimnames = structure(list(` p L s` = c('. . .', '. | .', '. . |', '. | |', '. . ?', '. | ?'), c('perm', 'LDL', 'super')), .Names = c(' p L s', ''))), c(4, 2, 1));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators313_752d12f515bacd25ca236c8fb4b76e1f() {
+ assertEval("argv <- list(structure(c(NA, FALSE, TRUE, NA, FALSE, TRUE, NA, FALSE, TRUE), .Names = c(NA, 'FALSE', 'TRUE', NA, 'FALSE', 'TRUE', NA, 'FALSE', 'TRUE')), structure(c(NA, NA, NA, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE), .Names = c(NA, NA, NA, 'FALSE', 'FALSE', 'FALSE', 'TRUE', 'TRUE', 'TRUE')));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators314_9be667d83c3750672072fb07114a3b67() {
+ assertEval("argv <- list(structure(120L, class = 'octmode'), '644');`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators315_56ce43a2563e7f87e2d356df25867b95() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1), .Dim = c(9L, 5L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9'), c('(Intercept)', 'outcome2', 'outcome3', 'treatment2', 'treatment3')), assign = c(0L, 1L, 1L, 2L, 2L), contrasts = structure(list(outcome = 'contr.treatment', treatment = 'contr.treatment'), .Names = c('outcome', 'treatment'))), c(3.04452243772342, -0.454255272277594, -0.292987124681473, 1.33790930192987e-15, 1.42108546079721e-15));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators316_27678b6d196228b5c7da92058db53dba() {
+ assertEval("argv <- list(character(0));`!`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators317_54b87160badbcd3407996ed86531d66d() {
+ assertEval("argv <- list(structure(c(-1, 2), .Dim = c(2L, 1L), .Dimnames = list(NULL, 'x')), c(-1, 2));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators318_cc9d41b8e5eef0396492bba89e9b17f4() {
+ assertEval("argv <- list(structure(c(0.94232064077615, 0.62152295589611, 0.178333356339776, 0.0222599883329273), .Dim = c(4L, 1L)), structure(c(0.941251786864296, 0.603637002512359, 0.159215730735261, 0.0172717433258791), .Dim = c(1L, 4L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators319_4ffa5f7a2e3b74ef1e6bc38226056fb0() {
+ assertEval("argv <- list(numeric(0), structure(numeric(0), .Dim = c(1L, 0L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators32_338604cfde32bbdbf22f1013a56d41aa() {
+ assertEval("argv <- list(2.11111111111111, structure(c(3, 2, 2, 1, 1, 2), .Dim = 6L, .Dimnames = list(c('1', '2', '3', '4', '5', '6'))));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators320_8d5e6b6029ca80c38dd0fb444ba7b92c() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 68, 56, 60, 68, 71, 61, 68, 60, 63, 56, 49, 58, 72, 60, 70, 74, 73, 48, 60, 61, 62, 65, 74, 73, 59, 60, 76, 74, 74, 63, 68, 58, 62, 65, 57, 75, 68, 67, 64, 68, 63, 74, 51, 81, 73, 59, 61, 72, 63, 69, 72, 70, 58, 59, 75, 69, 75, 76, 49, 68, 66, 75, 60, 72, 70, 77, 48, 47, 67, 74, 56, 56, 73, 76, 71, 82, 59, 60, 62, 55, 69, 62, 62, 69, 57, 46, 65, 58, 43, 56, 74, 60, 39, 66, 51, 45, 72, 58, 53, 52, 70, 52, 63, 50, 63, 62, 55, 50, 60, 64, 76, 70, 57, 39, 75, 0, 0, 0, 0, 0, 0, 0, NA, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, NA, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, NA, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(115L, 5L), .Dimnames = list(c('2', '3', '5', '7', '8', '10', '12', '14', '18', '19', '22', '24', '25', '27', '28', '30', '32', '33', '34', '35', '36', '37', '39', '42', '43', '44', '46', '47', '49', '52', '53', '54', '56', '57', '58', '61', '66', '67', '68', '69', '71', '73', '77', '79', '80', '81', '88', '90', '91', '95', '96', '100', '101', '105', '110', '111', '114', '116', '117', '118', '119', '121', '122', '124', '125', '129', '130', '133', '135', '136', '138', '140', '141', '143', '147', '149', '150', '152', '153', '155', '156', '158', '161', '163', '166', '168', '170', '172', '174', '177', '180', '181', '182', '183', '185', '186', '187', '188', '190', '192', '196', '199', '203', '204', '205', '206', '207', '208', '211', '214', '218', '219', '220', '225', '226'), c('(Intercept)', 'age', 'factor(ph.ecog)1', 'factor(ph.ecog)2', 'factor(ph.ecog)3')), assign = c(0L, 1L, 2L, 2L, 2L), contrasts = structure(list(`factor(ph.ecog)` = 'contr.treatment'), .Names = 'factor(ph.ecog)')), structure(c(6.76534252253894, -0.00731543889899693, -0.256632132912267, -0.629047717825279, -1.48257717514349), .Names = c('(Intercept)', 'age', 'factor(ph.ecog)1', 'factor(ph.ecog)2', 'factor(ph.ecog)3')));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators321_7d4be7d56da1ccc9c1be92716d37490d() {
+ assertEval("argv <- list(structure(c(544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 1539.44739946315, 1548.66655077773, 1557.88570209231, 1566.45228027983, 1575.01885846735, 1583.14083472285, 1591.26281097836, 1599.26100149451, 1607.25919201066, 1611.39689466313, 1615.5345973156, 1612.61129444623, 1609.68799157686, 1603.44643859537, 1597.20488561388, 1588.73002343463, 1580.25516125537, 1570.86127478964, 1561.46738832392, 1549.89535441445, 1538.32332050498, 1524.62526591843, 1510.92721133189, 1499.65830819836, 1488.38940506483, 1479.31388700637, 1470.23836894792, 1460.03887936132, 1449.83938977473, 1441.27547309544, 1432.71155641615, 1432.51830671501, 1432.32505701387, 1433.15763708544, 1433.99021715701, 1434.96142536256, 1435.9326335681, 1435.47421580154, 1435.01579803498, 1433.4368629411, 1431.85792784722, 1430.85617066215, 1429.85441347709, 1432.59097206397, 1435.32753065085, 1440.49425642708, 1445.66098220331, 1448.76676550395, 1451.87254880459, 1452.9163236715, 1453.96009853841, 1454.6961768366, 1455.43225513478, 1452.22362902495, 1449.01500291512, 1442.43484036078, 1435.85467780644, 1426.50159512644, 1417.14851244644, 1409.58997614642, 1402.0314398464, 1397.59624058751, 1393.16104132862, 1386.64426440334, 1380.12748747807, 1371.71107833433, 1363.2946691906, 1354.59002807904, 1345.88538696748, 1336.94914699242, 1328.01290701735, 1318.64960669271, 49.7622186359663, -84.1535032467218, -121.764781099341, 37.2870304782966, 82.528433600382, -44.2319392670254, 25.3010406627996, -34.7698782399993, 48.5709781995188, 110.301655093951, -1.96962838525201, -3.7990131710535, -51.4783734777507, 135.066608935635, 114.916035379091, -28.990712676497, -11.7078691876363, 7.04762066618673, -38.9035366827579, 16.5957688400649, -38.4931502947952, 52.0732838386475, 26.6377575984557, 329.153973076816, -13.1797869657194, 872.199160524634, 371.882552045056, -254.299568603192, -95.2920977069916, 8.63342236039193, 16.852295225008, -29.0271834604991, 13.5051131963112, 4.54091267164154, 25.5747517733375, 386.850855912621, 259.276984531009, -199.961168270532, -153.894877042003, 94.302447817031, -20.3106357794875, 21.0527247936745, -6.29056183593116, 13.9001511905426, -29.4973604406664, -31.7957066699985, -224.096013272965, -30.9544842287708, 22.3370692945275, 432.596723859509, 47.1608224545594, -304.956866078466, 50.1150369329559, 24.6852664308792, -14.4511512739648, -4.94371710626865, -19.024507596255, -56.8030453693573, -314.583543516094, 165.222305128756, 316.17817825271, 23.9168069434991, 11.9598796643579, -128.904953645213, 0.419804589665318, -6.80218287850425, 29.2691824505584, 53.9010951754703, 40.9447832426993, -26.2505972353374, -41.4479380870087, -214.837325417531), .Dim = c(72L, 3L), .Dimnames = list(NULL, c('seasonal', 'trend', 'remainder')), .Tsp = c(1974, 1979.91666666667, 12), class = c('mts', 'ts', 'matrix')), c(1, 1, 1));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators322_ed681ed33cdeef811466737c3229607a() {
+ assertEval("argv <- list(c(-1, 1), structure(c(1e-05, 1e-04, 0.001, 0.01, 0.1, 1, 10, 100, 1000, 10000, 1e+05), .Dim = c(1L, 11L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators323_e8ea49f245470e4d26873635f08e993f() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i), .Dim = c(5L, 5L)), structure(c(0.63829956885596+0i, -0.190923866036828-0.209348060979014i, -0.478761262752136-0.086103851005322i, -0.365383456834977+0.041833555661111i, -0.222902888615007-0.301211043305794i, 0.537261763078809+0i, 0.305061935059249+0.040985454461732i, 0.320062315956695-0.375563080684186i, 0.339383913939873+0.23302799386284i, -0.286918674221019+0.348301421162371i, 0.428338589082996+0.09065231252407i, -0.107969030611945+0.281263066654197i, 0.001811723298003+0.250507832255811i, 0.144305664871353+0.232873855829054i, 0.761400139936914+0i, -0.050390571101999+0.329984002238884i, 0.120127927801654-0.008394623232215i, -0.521562263306688+0.262168616442556i, 0.691801039177503+0i, -0.206933988216912-0.109088169082914i, -0.014684754774299-0.0242358465049725i, 0.848358097780775+0i, -0.232315601522623+0.249797304698912i, -0.362004462885974+0.102815998405382i, 0.086977040883207+0.118037795588006i), .Dim = c(5L, 5L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators324_744b448ab3e9e46915e83b1eb4e308d2() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 0, 4.94065645841247e-324, 0, 0, 0, 0, 0), structure(c(73.0102287440125, 79.6161885135717, 81.5497837663961, 53.9710956454646, 43.6831159601594, 20.8581884349194, 7.6155030786098, 10.8008470888011, 14.7201505829463, 8.49167208457355, 101.686214382123, 921.711710792497), .Names = c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1')));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators325_6668953f1fc8490e749d28b763fc05cd() {
+ assertEval("argv <- list(-97.5074316406251, structure(c(73.0102287440125, 79.6161885135717, 81.5497837663961, 53.9710956454646, 43.6831159601594, 20.8581884349194, 7.6155030786098, 10.8008470888011, 14.7201505829463, 8.49167208457355, 101.686214382123, 921.711710792497), .Dim = c(1L, 12L), .Dimnames = list(NULL, c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators326_f247208782bd8a99a4f6e62217b5255f() {
+ assertEval("argv <- list(structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Tsp = c(1959, 1997.91666667, 12), class = 'ts'), 3);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators327_e76388a62ca23ccc1a5929ac901a11a2() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE), .Dim = 4L, .Dimnames = list(c('8', '10', '12', '14'))));`!`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators328_07c6da76dfaac93c74df3c963ffd40c4() {
+ assertEval("argv <- list(350L, 7);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators329_d1e7a5a4099c8ed9a6c59d267adf8857() {
+ assertEval("argv <- list(34, 2L);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators33_387f9c3bc12cdddae9e3506225704deb() {
+ assertEval("argv <- list(c(20.8, 11.2, 6.2, 12.8, 43.4), c(10.4, 5.6, 3.1, 6.4, 21.7, 0, 10.4, 5.6, 3.1, 6.4, 21.7));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators330_7e395d20772b2784a043f52df964cc7c() {
+ assertEval("argv <- list(TRUE, 0:10);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators331_a54de142b530670ac28eab0e45f98a6e() {
+ assertEval("argv <- list(structure(1L, .Names = 'rate'), 2);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators332_4b661d693bc24e5b6c1cf0482e8f57ad() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));`%/%`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators333_83e8ac52e6dbb558fd0e9f9b2b4c1ac9() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators334_bc3860eb6eeb071dbc62229acd028591() {
+ assertEval("argv <- list(c(0, -1, 0, -1, -1, 0, NA, NA, 0, 0, 0, 0, 0, 15, 0, 17, 18, 0, 0, 0, NA, 0, 0, 0, 0, 0, NA, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 0, 33, 34, 0, 0, 35, 0, 37, 38, 0), 2);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators335_4513ed2131010d4541a678d4e469a791() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));`&`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators336_84591dff930b3cd2863d554b6e159dc8() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`&`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators337_0a2327b7e83d6accfbb3a38e14d5e48a() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE), c(TRUE, TRUE, TRUE, NA, FALSE, FALSE, TRUE, NA));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators338_b7dabc5cf6e9f60b10e4e4450324e94d() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE), .Names = c('(Intercept)', 'age')));`!`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators339_70a0543f4eb2cd03d720673d5a19191b() {
+ assertEval("argv <- list(c(FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE), structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Names = c('is.R', 'is.array', 'is.atomic', 'is.call', 'is.character', 'is.complex', 'is.data.frame', 'is.double', 'is.element', 'is.environment', 'is.expression', 'is.factor', 'is.finite', 'is.function', 'is.infinite', 'is.integer', 'is.language', 'is.list', 'is.loaded', 'is.logical', 'is.matrix', 'is.na', 'is.na.POSIXlt', 'is.na.data.frame', 'is.na.numeric_version', 'is.name', 'is.nan', 'is.null', 'is.numeric', 'is.numeric.Date', 'is.numeric.POSIXt', 'is.numeric.difftime', 'is.numeric_version', 'is.object', 'is.ordered', 'is.package_version', 'is.pairlist', 'is.primitive', 'is.qr', 'is.raw', 'is.recursive', 'is.single', 'is.symbol', 'is.table', 'is.unsorted', 'is.vector')));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators34_a9431d2364dde2ac140f6f17c920c1ad() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators340_5de6be3139e1e0e5b5026fe8834a3ed0() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Tsp = c(1790, 1970, 0.1), class = 'ts'), c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators341_7aebbf647e9c2fe68e5efbab86240d11() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(101L, 3L), .Dimnames = list(NULL, c('t1', '10 * t1', 't1 - 4')), .Tsp = c(1, 101, 1), class = c('mts', 'ts', 'matrix')), structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(101L, 3L), .Dimnames = list(NULL, c('t1', '10 * t1', 't1 - 4'))));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators342_21dec62d790ce46198eed22072f9caab() {
+ assertEval("argv <- list(structure(c(NA, FALSE, TRUE, NA, FALSE, TRUE, NA, FALSE, TRUE), .Names = c(NA, 'FALSE', 'TRUE', NA, 'FALSE', 'TRUE', NA, 'FALSE', 'TRUE')), structure(c(NA, NA, NA, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE), .Names = c(NA, NA, NA, 'FALSE', 'FALSE', 'FALSE', 'TRUE', 'TRUE', 'TRUE')));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators343_3d4847ee88a4b4979dc54cafab35e84a() {
+ assertEval("argv <- list(structure(508L, class = 'octmode'), '755');`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators344_bbca0752cce9fb6149fb196dbe7584df() {
+ assertEval("argv <- list(list());`&`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators345_a476b48d092a98b21d8ad887beeed08d() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100', '101', '102', '103', '104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', '115', '116', '117', '118', '119', '120', '121', '122', '123', '124', '125', '126', '127', '128', '129', '130', '131', '132', '133', '134', '135', '136', '137', '138', '139', '140', '141', '142', '143', '144', '145', '146')));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators347_1a6bed128c33140ae5f6a70936a745bf() {
+ assertEval("argv <- list(c(1-0i, 1+0i, 1+0i, 9.99999999999989e-01-5e-15i, 1+0i, 1+0i, 1-0i, 1e+00+9e-16i, 9.99999999999999e-01+3e-15i, 9.99999999999997e-01-3e-15i, 1e+00-1e-15i, 1+0i, 1+0i, 1e+00+1e-15i, 1+0i, 1+0i, 1+0i, 1-0i, 1+0i, 1e+00-5e-15i, 1-0i, 1+0i, 1+0i, 1+0i));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators348_cd8f8ec9fbb0a04a43be226a60707ff1() {
+ assertEval("argv <- list(structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Tsp = c(1959, 1997.91666667, 12), class = 'ts'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators349_c628b0a3d64528cef7cb4b63442bf1dc() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE), .Dim = c(3L, 3L)));`!`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators35_b48f9032d80e571c82930417dbc2457b() {
+ assertEval("argv <- list(c(3, 1, 2, 2, 3.2, -1, 1, 3.2, 4, 3, 3.2, 3.2, 202, 241, 243), 0);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators350_a66990bf7e845b028582f04842722d5e() {
+ assertEval("argv <- list(c(-Inf, 2.17292368994844e-311, 4.34584737989688e-311, 8.69169475979376e-311, 1.73833895195875e-310, 3.4766779039175e-310, 6.953355807835e-310, 1.390671161567e-309, 2.781342323134e-309, 5.562684646268e-309, 1.1125369292536e-308, 2.2250738585072e-308, 4.4501477170144e-308, 8.90029543402881e-308, 1.78005908680576e-307, 2.2250738585072e-303, 2.2250738585072e-298, 1.79769313486232e+298, 1.79769313486232e+303, 2.24711641857789e+307, 4.49423283715579e+307, 8.98846567431158e+307, 1.79769313486232e+308, Inf, Inf, NaN, NA));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators351_8cf32aacc01e6b2ace8b819878dc8625() {
+ assertEval("argv <- list(.Primitive('log'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators352_b5dd8cea1c51a401abfff6601fe327b1() {
+ assertEval("argv <- list(structure(NA, .Dim = c(1L, 1L)));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators353_adf9f5554ce1ffd74a5c3e6486b3c9bb() {
+ assertEval("argv <- list(structure(c(NA, 2, NA, 1, NA, 0), .Dim = 2:3));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators354_70c9a579d18440b16c9bdad49315dcb3() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators355_c86e91fabf47d6ef8bc249654ea515a6() {
+ assertEval("argv <- list(structure(NA, .Dim = c(1L, 1L), name = 'Sam', class = structure('Foo', package = '.GlobalEnv')));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators356_ecee1d15848f5d89b938900ee0b4a7af() {
+ assertEval("argv <- list(structure(list(x = numeric(0), y = numeric(0), fac = structure(integer(0), .Label = c('A', 'B', 'C'), class = 'factor')), .Names = c('x', 'y', 'fac'), row.names = integer(0), class = 'data.frame'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators357_19050f75331a154db43726b1d2e60849() {
+ assertEval("argv <- list(structure(list(x = c(-2, -2, -2, -2, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2), y = c(1, 4, 5, 9, 0, 0, 1, 1, 1, 1, 2, 2, 2, 3, 3, 4, 4, 5, 5, 5, 6, 7, 8, 8, 9, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 8, 8, 9, 9, 9, 0, 1, 1, 1, 1, 2, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 7, 8, 8, 9, 9, 9, 9, 10, 10, 10, 1, 2, 3, 5, 5, 10), z = c(-2, 5, -1, 7, -8, 17, -4, -2, -1, 0, -8, -3, 6, -9, 4, -10, 4, -9, -3, 4, -3, 8, 2, 8, 14, -14, -2, -1, 8, 9, -13, -12, -9, 0, 0, 5, 12, 14, -3, -1, 3, 4, 6, 18, 2, 8, 12, -23, 0, 2, 3, 13, -12, -6, -2, 3, 5, 8, -1, 12, 15, -11, 3, 4, 8, 10, 0, -8, -5, 7, 8, 1, -11, -10, -7, -3, 2, 4, 18, -5, -3, 0, -18, -7, -16, -10, -5, -6, -5, -3, -3, -11, -1, 2, 20, 0, -7, -1, 9, 3), u = c(12, 2, 6, 36, 17, 38, 24, 25, 19, 21, 6, 5, 28, 41, 28, 10, 6, 48, 33, 2, 45, 45, 37, 0, 29, 8, 23, 21, 1, 48, 20, 24, 26, 34, 35, 5, 35, 26, 33, 20, 7, 17, 40, 9, 17, 48, 50, 47, 46, 42, 28, 1, 14, 17, 32, 48, 14, 20, 2, 19, 27, 37, 44, 41, 23, 50, 30, 19, 42, 16, 12, 35, 38, 30, 33, 17, 32, 4, 41, 13, 9, 41, 39, 31, 32, 32, 36, 33, 32, 19, 37, 27, 17, 39, 19, 48, 33, 33, 42, 44)), .Names = c('x', 'y', 'z', 'u'), row.names = c(67L, 84L, 24L, 14L, 81L, 28L, 97L, 98L, 99L, 72L, 46L, 74L, 91L, 75L, 1L, 45L, 35L, 6L, 3L, 58L, 54L, 65L, 80L, 13L, 52L, 71L, 12L, 86L, 32L, 89L, 78L, 5L, 88L, 2L, 90L, 57L, 66L, 76L, 77L, 41L, 62L, 23L, 27L, 16L, 33L, 29L, 47L, 82L, 26L, 79L, 49L, 53L, 34L, 38L, 17L, 42L, 69L, 7L, 36L, 37L, 10L, 64L, 51L, 60L, 100L, 30L, 85L, 48L, 8L, 44L, 92L, 22L, 9L, 31L, 94L, 63L, 20L, 87L, 21L, 73L, 39L, 59L, 55L, 40L, 96L, 68L, 15L, 43L, 83L, 25L, 50L, 18L, 19L, 93L, 56L, 70L, 4L, 61L, 95L, 11L), class = 'data.frame'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators358_05697e03a2d3c814c02dc993266134ee() {
+ assertEval("argv <- list(structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 2L, 2L, 3L, 1L, 3L, 3L, 2L, 2L, 1L), .Label = c('A', 'B', 'C'), class = 'factor'), char = structure(c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j'), class = 'AsIs')), .Names = c('x', 'y', 'fac', 'char'), row.names = c(NA, -10L), class = 'data.frame'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators359_3f252a21ebcd0b7100ba72debb0bd167() {
+ assertEval("argv <- list(c('«L', 'tin-1 ', '', '', 'ented ', 'h', 'rs»: éè øØ å<Å æ<Æ é éè'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators36_393411150d7d235ce6042d7b8fc25908() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`+`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators360_40a11106e99806648458c2c136d3f553() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), 'auto');`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators361_a33df53e888079e0f847f2a7f2588c43() {
+ assertEval("argv <- list(structure(c(6.36917889425777, 5.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 4.36917889425777, 5.36917889425777, 5.36917889425777, 6.36917889425777, 6.36917889425777, 4.36917889425777, 5.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 4.36917889425777, 5.36917889425777, 5.36917889425777), .Dim = 38L, .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38'))));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators362_a9b4729b7ef08573a3554910ac113ecb() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE), .Dim = c(14L, 11L), .Dimnames = list(c('0-18', '18-19', '19-20', '20-21', '21-22', '22-23', '23-24', '24-25', '25-26', '26-27', '27-28', '28-29', '29-30', '30-31'), c('1954', '1955', '1956', '1957', '1958', '1959', '1960', '1961', '1962', '1963', '1964'))));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators363_cc36bb60b0bda47b76e479e8781483f8() {
+ assertEval("argv <- list(structure(NA, .Tsp = c(1, 1, 1), .S3Class = 'ts', class = structure('ts', package = 'methods')));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators364_b27dd42d73e531297f5126ff5fe33e98() {
+ assertEval("argv <- list(6, structure(c(-1, 1, -1), .Dim = 3L, .Dimnames = list(c('73', '312', '674'))));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators365_8ddb23b3c40aaa6da0491b28fe2fbc6e() {
+ assertEval("argv <- list(-0.0290053253855826, c(95, 175, 250, 350, 500, 675, 1000));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators366_e91af57427e7ba567ce1c8b8a0c0c0ea() {
+ assertEval("argv <- list(c(2L, 1L), c(2L, 2L));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators367_3cf392c34b45b624cb1ea835f4e26482() {
+ assertEval("argv <- list(c(2.80068140446062, 1.8317224411983, 1.22900361620513, 0.0769946405427206, 2.80068140446062e-07), structure(c(-0.579458297883801, 0.378144472053104, 0.289151395420297, -0.322488635437406, 0.577604873429495, -0.439515769918701, -0.563213485796381, 0.19897761279598, -0.497766353148047, -0.449725499265461, -0.183421202297383, -0.367349618966443, -0.8113056422696, -0.10946638264776, 0.401511127970965, 0.369976492463818, -0.594590295135748, 0.453781444579942, 0.0303676587408212, 0.550218122031705, 0.548204365705284, 0.22652586176497, -0.112538595641497, -0.797072552569732, 0.012977588540091), .Dim = c(5L, 5L)));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators368_43df624651faf30fa6c50610edb6ce0e() {
+ assertEval("argv <- list(1.5, 1.5);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators369_3d8814961cb52c9a6eec5d1906bd4170() {
+ assertEval("argv <- list(structure(c(0.853345363892062, -0.0256071578412401, -0.0612813871821256, -0.0612813871821256, -0.0256071578412401, -0.0612813871821256, -0.0256071578412401, -0.0612813871821256, -0.0256071578412401, 0, 0, 0.0786725879812683, 0.0786725879812683, 0.22692030644121, -0.254660745352065, -0.106413026892124, -0.254660745352065, -0.106413026892124, 0, 0, 0.11837902431235, 0.11837902431235, 0.243512113989909, -0.322431463531475, -0.134731829015137, -0.322431463531475, -0.134731829015137, 0, 0, 0.186882435497702, 0.186882435497702, 0.272137080615963, -0.439352693506895, -0.18358875815211, -0.439352693506895, -0.18358875815211, 0, 0, 0, 0, 0, 0, 0, 0.172822903136154, -0.345645806272308), .Dim = c(9L, 5L)), structure(c(1.03259546878074, -0.967404531219257, 0.032595468780743, 0.032595468780743, -0.967404531219257, 0.032595468780743, -0.967404531219257, 0.032595468780743, -0.967404531219257, 1.15961954033819, -0.840380459661814, 0.159619540338186, 0.159619540338186, -0.840380459661814, 0.159619540338186, -0.840380459661814, 0.159619540338186, -0.840380459661814, 1.16167819481816, -0.838321805181836, 0.161678194818164, 0.161678194818164, -0.838321805181836, 0.161678194818164, -0.838321805181836, 0.161678194818164, -0.838321805181836, 1.1652298823369, -0.834770117663101, 0.165229882336899, 0.165229882336899, -0.834770117663101, 0.165229882336899, -0.834770117663101, 0.165229882336899, -0.834770117663101, 1.17282290313615, -0.827177096863846, 0.172822903136154, 0.172822903136154, -0.827177096863846, 0.172822903136154, -0.827177096863846, 0.172822903136154, -0.827177096863846), .Dim = c(9L, 5L)));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators37_a466125eb44850549344dd78e172c12f() {
+ assertEval("argv <- list(logical(0));`+`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators370_cfe2c46217b6bded9aad304c663f829e() {
+ assertEval("argv <- list(0.5, structure(c(-1.12095129310443+0i, 1.4848874974+0.41132282301771i, 2.78279011158859-0.53526713626358i, 1.85742152822765-0.44342995809143i, -0.9385359708259+2.37692350427328i, 1.4848874974-0.41132282301771i, 0.921832411978405+0i, -0.90524740754917+0.341208007507433i, -0.18900237366429+1.08605076555264i, -0.66363688475825+1.22446591693656i, 2.78279011158859+0.53526713626358i, -0.90524740754917-0.341208007507433i, 0.801542901188104+0i, -1.85593444068452+0.95943368782835i, -1.58184558306131+0.08618435261084i, 1.85742152822765+0.44342995809143i, -0.18900237366429-1.08605076555264i, -1.85593444068452-0.95943368782835i, 1.40271180312737+0i, -1.20168263701907+0.42799687996867i, -0.9385359708259-2.37692350427328i, -0.66363688475825-1.22446591693656i, -1.58184558306131-0.08618435261084i, -1.20168263701907-0.42799687996867i, -1.25007853569851+0i), .Dim = c(5L, 5L)));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators371_ab89fcfdf6aa5da4935878ac00757f8e() {
+ assertEval("argv <- list(TRUE, TRUE);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators372_c5d80ae20fcf4ba75c360f9c13256170() {
+ assertEval("argv <- list(structure(1.6768574855882, .Names = 'x'), c(1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, NA));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators373_986bb5c9ad613c5c848601d3f10439b5() {
+ assertEval("argv <- list(structure(c(2134, 1863, 1877, 1877, 1492, 1249, 1280, 1131, 1209, 1492, 1621, 1846, 2103, 2137, 2153, 1833, 1403, 1288, 1186, 1133, 1053, 1347, 1545, 2066, 2020, 2750, 2283, 1479, 1189, 1160, 1113, 970, 999, 1208, 1467, 2059, 2240, 1634, 1722, 1801, 1246, 1162, 1087, 1013, 959, 1179, 1229, 1655, 2019, 2284, 1942, 1423, 1340, 1187, 1098, 1004, 970, 1140, 1110, 1812, 2263, 1820, 1846, 1531, 1215, 1075, 1056, 975), .Tsp = c(1974, 1979.58333333333, 12), class = 'ts'), c(-33.5, -32.5, -31.5, -30.5, -29.5, -28.5, -27.5, -26.5, -25.5, -24.5, -23.5, -22.5, -21.5, -20.5, -19.5, -18.5, -17.5, -16.5, -15.5, -14.5, -13.5, -12.5, -11.5, -10.5, -9.5, -8.5, -7.5, -6.5, -5.5, -4.5, -3.5, -2.5, -1.5, -0.5, 0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5, 10.5, 11.5, 12.5, 13.5, 14.5, 15.5, 16.5, 17.5, 18.5, 19.5, 20.5, 21.5, 22.5, 23.5, 24.5, 25.5, 26.5, 27.5, 28.5, 29.5, 30.5, 31.5, 32.5, 33.5));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators374_fdf08b71abd4499ba6010e31a9aeebf7() {
+ assertEval("argv <- list(c(0.0125360439090882, 0.109084258765985, 0.283058130441221, 0.5, 0.716941869558779, 0.890915741234015, 0.987463956090912, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.987463956090912, 0.890915741234015, 0.716941869558779, 0.5, 0.283058130441221, 0.109084258765985, 0.0125360439090882), structure(c(430.689117199391, 165.5304253221, 185.371733444809, 191.213041567518, -187.945650309773, -425.104342187064, -388.263034064356, -531.421725941647, -447.580417818938, -158.739109696229, -23.8978015735202, 206.943506549189, 469.784814671898, 509.626122794606, 531.467430917315, 217.308739040024, -206.849952837267, -316.008644714558, -412.167336591849, -459.32602846914, -533.484720346432, -233.643412223723, -29.8021041010139, 497.039204021695, 456.880512144404, 1192.72182026711, 731.563128389821, -66.5955634874696, -350.754255364761, -373.912947242052, -415.071639119343, -552.230330996634, -517.389022873925, -302.547714751216, -37.7064066285076, 560.134901494201, 746.97620961691, 146.817517739619, 240.658825862328, 325.500133985037, -223.658557892254, -301.817249769546, -370.975941646837, -439.134633524128, -487.293325401419, -261.45201727871, -205.610709156001, 226.230598966708, 596.071907089416, 866.913215212125, 530.754523334834, 17.5958314575429, -59.5628604197482, -206.721552297039, -289.880244174331, -378.038936051622, -406.197627928913, -230.356319806204, -254.515011683495, 453.326296439214, 910.167604561923, 473.008912684631, 504.85022080734, 195.691528930049, -114.467162947242, -248.625854824533, -261.784546701824, -336.943238579115, -366.101930456407, -219.260622333698, -0.419314210988802, 52.4219939117201), .Tsp = c(1974, 1979.91666666667, 12), class = 'ts'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators375_770aa8990070feabf2be7828a67eb84d() {
+ assertEval("argv <- list(structure(c(12L, 23L), .Dim = 2L, .Dimnames = structure(list(c('1', '2')), .Names = ''), class = 'table'), 1:2);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators376_58682f35159aaf389c643c8893f3af01() {
+ assertEval("argv <- list(3, structure(2.39313505864491, .Names = 'x'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators377_7bbcebfa98161ba870f075281f97428c() {
+ assertEval("argv <- list(30, 1:100);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators378_83f6ad26b6082331973f16992bc90047() {
+ assertEval("argv <- list(1, structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE), .Dim = c(14L, 11L), .Dimnames = list(c('0-18', '18-19', '19-20', '20-21', '21-22', '22-23', '23-24', '24-25', '25-26', '26-27', '27-28', '28-29', '29-30', '30-31'), c('1954', '1955', '1956', '1957', '1958', '1959', '1960', '1961', '1962', '1963', '1964'))));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators379_9a343c37cef7e71237404a338a047007() {
+ assertEval("argv <- list(structure(c(125.462606837607, 127.867786930034, 130.144676735994, 132.324464274255, 134.336734211717, 136.082072800639, 137.721118421779, 140.845055930758, 143.28591535884, 145.768223343737, 146.185327931547, 145.802002908545, 149.002460060179, 153.598715100046, 155.183805036251, 159.724429366298, 161.673726141005, 170.116738471067, 169.947660568386, 170.006973600711, 170.719702563484, 171.765986080317, 174.613600436266, 179.048948110372, 179.883872548102, 181.827282092545, 184.331859119525, 182.743207226061, 183.03021399043, 184.153788490888, 191.745076839764, 194.148810101473, 199.10701170422, 199.286358868728, 202.588173234443, 206.570808710438, 208.901416980527, 210.197793333945, 208.990030330146, 213.988947898492, 221.910492791482, 225.858547195805, 224.629928649936, 225.693827143939, 226.925133971988, 227.909074259919, 228.294198948883, 226.413286455683, 224.858486784216, 224.205996780539, 218.296565215286, 217.952397420454, 218.203297324152, 222.634503912979, 229.136665168488, 238.199012563706, 241.084558136518, 244.474599589944, 246.541678441215, 249.943070595034, 252.738029658228, 257.655553126827, 261.948737901648, 259.38828865138, 260.581624400595, 261.35845107056, 266.721536928548, 274.727021103557, 279.519739428079, 285.613419212625, 290.081183406543, 292.578703689536, 298.536510073918, 301.854944861174, 306.72012690062, 308.552564035999, 308.960906756251, 310.45531361152, 314.471901471993, 316.180279500694, 321.131980519447, 324.487238338646, 326.432439140534, 330.587069598829, 332.257828918305, 334.897103376149, 336.500107838622, 341.040184577164, 343.37680996925, 346.04109648055, 350.540519967376, 353.909804788829, 360.713606630499, 365.246028758837, 368.653301499587, 371.870254918956, 371.890026901483, 370.974100279234, 368.423988230309, 364.248564265975, 359.879991232458, 359.533794053725, 361.493423852232, 366.272105696357, 374.712558672268, 373.691234302716, 377.311059795731, 378.958918379956, 378.434557854932, 383.493556594665, 388.051875855736, 394.72909801417, 399.975945122541, 406.14684914494, 404.223720368284, 407.657133649615, 412.1384117511, 418.253339402259, 423.102585806067, 430.610654889479, 439.381586214864, 443.452574204404, 446.154893648303, 437.948767898975, 448.065211483223, 452.98477480065, 456.22724907891, 460.426882491713, 459.053158913271, 461.490725714314, 468.825080012951, 470.090114620358), .Tsp = c(1950, 1960.91666666667, 12), class = 'ts'), structure(c(0.885377815022177, 0.956702662008391, 1.05604790005129, 0.99999180855271, 0.919180306022048, 1.08513403180744, 1.17950860096112, 1.17526020717901, 1.07399050289666, 0.935173924204861, 0.814655016855593, 0.918977224438701, 0.904886860495219, 0.974651014130265, 1.07318431817519, 1.01267995772422, 0.926294652616773, 1.09129604332202, 1.2136804527299, 1.19513265851781, 1.09196097114148, 0.920716625833028, 0.792428126174694, 0.944665370656132, 0.947060673767712, 0.975861204272186, 1.11889468518085, 1.01760687119493, 1.00966041750694, 1.06261400924208, 1.18646278417314, 1.17953219321689, 1.08299041001682, 0.934768432861068, 0.819582111385122, 0.933541960135008, 0.949299218066574, 0.984712956742138, 1.07274478711742, 1.00035738265237, 1.00344619530389, 1.136720297344, 1.19466716852011, 1.22110179994975, 1.06180417436075, 0.949583554116272, 0.837964127353819, 0.93707048913996, 0.942302022727904, 0.95126138690835, 1.10787035072032, 1.06044554393152, 1.0212841877174, 1.09777947829535, 1.18237485006198, 1.21101795468964, 1.05077474260124, 0.934482494680629, 0.806219558496273, 0.905507672627939, 0.919955309911582, 0.877743501942818, 1.0879384725907, 1.04844380534261, 1.05308404040641, 1.15209925173403, 1.2652951992685, 1.2229795664526, 1.06552999327079, 0.93588195611389, 0.816986956383517, 0.912235531149947, 0.943381852486145, 0.894360852742568, 1.04386693859046, 1.0412387923364, 1.04235110100738, 1.18519852082375, 1.32667886524828, 1.24804193460951, 1.09707745322343, 0.950576085705186, 0.817003170713368, 0.935893112057161, 0.94836946371363, 0.908951898620782, 1.03731973240637, 1.02419763657726, 1.03406277428866, 1.19743269363204, 1.31822462831668, 1.26862748613699, 1.10235655952769, 0.945803515760855, 0.82528228386107, 0.929397385899463, 0.948173569563647, 0.902518233330453, 1.05026106742455, 1.02180458893893, 1.03392834532348, 1.21128679495018, 1.32344975581348, 1.30039314766586, 1.11343783106856, 0.948475302349546, 0.826576551185179, 0.912962090088511, 0.926561968385747, 0.87353380715788, 1.00678775995668, 0.979149663293728, 1.01788806209298, 1.21041189004384, 1.34524520684843, 1.34901427843594, 1.0909897186673, 0.956150231433401, 0.823434379283845, 0.897915761073492, 0.942043948926554, 0.884990150921632, 1.03141421940795, 0.994229969777015, 1.03800763998638, 1.17962620510919, 1.3518161330406, 1.3629765592452, 1.11127249087291, 0.966786065425125, 0.843497574054032, 0.924445014403716), .Tsp = c(1950, 1960.91666666667, 12), class = 'ts'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators38_fff6b4f6a5c0480606d9ad4715487b2e() {
+ assertEval("argv <- list(structure(c(0.2, -1.84560926910116e-17, -3.69226410848886e-17, 2.11212282911474e-17, 9.44321399451751e-18, 3.05608209061811e-17, 0.2, -5.35638147485559e-17, 5.12150597333887e-17, 1.92692213766805e-17, 6.57361167807833e-17, -7.28393619263486e-17, 0.2, 7.17735727503349e-17, 3.10850404080861e-17, -2.28831714606547e-17, 2.83709294123644e-17, 7.98995130974544e-17, 0.2, 0, 8.8841915809257e-17, -1.17177477007305e-16, -1.30709215062431e-16, 1.04641694001652e-16, 0.2), .Dim = c(5L, 5L), fracs = c('1/5', '0', '0', '0', '0', '0', '1/5', '0', '0', '0', '0', '0', '1/5', '0', '0', '0', '0', '0', '1/5', '0', '0', '0', '0', '0', '1/5'), class = c('fractions', 'matrix')), 1);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators380_064e7b5f95dff505770db9cb655de454() {
+ assertEval("argv <- list(-3:3, 0+1i);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators381_5a71164222f6dd729c257b5ee4c90667() {
+ assertEval("argv <- list(181L, 3.14159265358979);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators39_59a97f812dab51944914195424a8c0df() {
+ assertEval("argv <- list(structure(c(-24.5833333333333, -5.08333333333333, 10.25, 19.4166666666667), .Dim = 4L, .Dimnames = structure(list(N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = 'N'), strata = structure('Within', .Names = 'N'), class = 'mtable'), structure(103.972222222222, class = 'mtable'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators4_127bc640f730d79c6d94fa078081d44e() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators40_c911f0a8d5fa0c4585743e1cb48f8b6f() {
+ assertEval("argv <- list(structure(1.2728543779194, .Names = 'Var1'), 1);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators41_2bbeb2c4b43d6d571b9b8f011abeb075() {
+ assertEval("argv <- list(1.15);`-`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators42_89809c64e640833cc0e1a7e4a6b8c9d4() {
+ assertEval("argv <- list(structure(c(6316.53846153846, 6350.69230769231), .Dim = 2L, .Dimnames = list(c('1', '2'))), c(6314.13609467456, 6338.60946745562));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators43_db4f558d3fde50ee63c3bbc5c2e88038() {
+ assertEval("argv <- list(1, c(0.588534374722704, 0.346372710230244, 0.203852246436365, 0.119974054392244, 0.0706088550846872, 0.0244569805019377));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators44_75fd2f5250d77fabf7fff7354b33670a() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0i, 1.39139505579429+0i, 0.928710764113827+0i, -0.469267985412949+0i, 0.7424437487+0i, 0.460916205989202+0i, -0.452623703774585+0i, -0.0945011868321433+0i, -0.331818442379127+0i, 1.39139505579429+0i, -0.452623703774585+0i, 0.400771450594052+0i, -0.927967220342259+0i, -0.790922791530657+0i, 0.928710764113827+0i, -0.0945011868321433+0i, -0.927967220342259+0i, 0.701355901563686+0i, -0.600841318509537+0i, -0.469267985412949+0i, -0.331818442379127+0i, -0.790922791530657+0i, -0.600841318509537+0i, -0.625039267849257+0i), .Dim = c(5L, 5L)), structure(c(-0.560475646552213+0i, 0.742443748700001+0i, 1.39139505579429+0i, 0.928710764113827+0i, -0.469267985412949+0i, 0.742443748700001+0i, 0.460916205989202+0i, -0.452623703774585+0i, -0.094501186832143+0i, -0.331818442379127+0i, 1.39139505579429+0i, -0.452623703774585+0i, 0.400771450594052+0i, -0.927967220342258+0i, -0.790922791530656+0i, 0.928710764113827+0i, -0.094501186832143+0i, -0.927967220342258+0i, 0.701355901563685+0i, -0.600841318509537+0i, -0.469267985412949+0i, -0.331818442379127+0i, -0.790922791530656+0i, -0.600841318509537+0i, -0.625039267849256+0i), .Dim = c(5L, 5L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators45_f386977db58411e99c401bc40cbf8f86() {
+ assertEval("argv <- list(38, 24L);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators46_112dff108345b63dff44cfa8ca6b8eb5() {
+ assertEval("argv <- list(structure(c(14, 2, 0, 2, -7, 0), .Dim = c(3L, 2L)), 0);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators47_004d505cabef4c851408b39ee6342899() {
+ assertEval("argv <- list(1979.91666666667, structure(1979.91666666667, .Names = 'data'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators48_15274220eadcf64fe7c91cd00a354e6f() {
+ assertEval("argv <- list(41L, 0L);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators49_ff8926894b4e2be54401ffce65e0f538() {
+ assertEval("argv <- list(7.12801378828154e+22);`-`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators5_7a41350b82fb48cc09b7c6a7562749da() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`*`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators50_30436ed25394cd65c2763b6febb31068() {
+ assertEval("argv <- list(structure(c(315.42, 316.31, 316.5, 317.56, 318.13, 318, 316.39, 314.65, 313.68, 313.18, 314.66, 315.43, 316.27, 316.81, 317.42, 318.87, 319.87, 319.43, 318.01, 315.74, 314, 313.68, 314.84, 316.03), .Tsp = c(1959, 1960.91666666667, 12), class = 'ts'), structure(c(-0.234444444444459, 0.192638888888913, 0.743888888888894, 2.15972222222219, 3.13138888888888, 2.65888888888892, 0.480138888888822, -1.31611111111111, -2.34527777777775, -2.93819444444447, -1.58527777777776, -0.947361111111074, -0.234444444444459, 0.192638888888913, 0.743888888888894, 2.15972222222219, 3.13138888888888, 2.65888888888892, 0.480138888888822, -1.31611111111111, -2.34527777777775, -2.93819444444447, -1.58527777777776, -0.947361111111074), .Tsp = c(1959, 1960.91666666667, 12), class = 'ts'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators51_67e818b19655041f681c5fe551540318() {
+ assertEval("argv <- list(structure(c(94694400, 126230400, 157766400, 189302400, 220924800, 252460800, 283996800, 315532800, 362793600, 394329600, 425865600, 489024000, 567993600, 631152000, 662688000, 709948800, 741484800, 773020800, 820454400, 867715200, 915148800, 1136073600, 1230768000, 1341100800), class = c('POSIXct', 'POSIXt')), structure(c(78796800, 94694400, 126230400, 157766400, 189302400, 220924800, 252460800, 283996800, 315532800, 362793600, 394329600, 425865600, 489024000, 567993600, 631152000, 662688000, 709948800, 741484800, 773020800, 820454400, 867715200, 1136073600, 1230768000, 1341100800), class = c('POSIXct', 'POSIXt')));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators52_0ae639664f63b4b213e6235475e82a0a() {
+ assertEval("argv <- list(structure(c(9, 12, 12, 15, 9, 9, 13, 11, 15, 10, 13, 13, 13, 15, 8, 13, 13, 10, 7, 9, 6, 11, 3, 5, 9, 3, 5, 1, 1, 2, NA, 10, 1, 4, 7, 4, NA, NA, 5, 2, 4, 3, 3, 6, 1, 1, 63, 41, 59, 50, 290, 226, 60, 36, 32, 121, 70, 51, 79, 32, 42, 39, 76, 60, 56, 88, 57, 309, 254, 146, 43, 78, 88, 314, 149, 78, NA, 238, 153, 159, 222, 203, NA, NA, 74, 100, 111, 9, 180, 50, 256, 107), .Dim = c(23L, 4L), .Dimnames = list(NULL, c('V1', 'V2', 'V3', 'V4'))), structure(c(10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9), .Dim = c(23L, 4L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators53_d09611c4d741d140b72bf840cb9c2bf6() {
+ assertEval("argv <- list(structure(c(58.56, 2.776, 61.341, 0, 0), .Names = c('user.self', 'sys.self', 'elapsed', 'user.child', 'sys.child'), class = 'proc_time'), structure(c(40.692, 0.307, 41, 0, 0), .Names = c('user.self', 'sys.self', 'elapsed', 'user.child', 'sys.child'), class = 'proc_time'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators54_7eab8aab925a8f7cd595f02382af0f44() {
+ assertEval("argv <- list(0+1e-04i);`-`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators55_93055e2ebb1267648154087f79912659() {
+ assertEval("argv <- list(structure(c(1.05569354979237, 0.694336127879446, -0.0222037058662105), .Dim = c(1L, 3L)), 0.055);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators56_e107f5595f71e9658509b9604452bd28() {
+ assertEval("argv <- list(structure(c(-50, 175, 149, 214, 247, 237, 225, 329, 729, 809, 530, 489, 540, 457, 195, 176, 337, 239, 128, 102, 232, 429, 3, 98, 43, -141, -77, -13, 125, 361, -45, 184), .Tsp = c(1951, 1958.75, 4), class = 'ts'), structure(c(NA, NA, 159.125, 204, 221.25, 245.125, 319.75, 451.5, 561.125, 619.25, 615.625, 548, 462.125, 381.125, 316.625, 264, 228.375, 210.75, 188.375, 199, 207.125, 191, 166.875, 72, -9.25, -33.125, -36.75, 36.25, 103, 131.625, NA, NA), .Tsp = c(1951, 1958.75, 4), class = 'ts'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators57_a043bf021bbe07951af4a2cfbdfc7b3a() {
+ assertEval("argv <- list(structure(c(0, 1, 0, 2), .Names = c('age', 'strata(ss)', 'age2', 'age:strata(ss)')), 1);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators58_db0f2e287893afc566c292115e43b72c() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), 1L);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators59_67c2304ac16ab62f71e0c5ccef44d380() {
+ assertEval("argv <- list(50, structure(c(1, 2, 1, 3, 4, 4, 4, 1, 2, 2, 1, 4, 2, 1, 5, 5, 5, 1, 1, 5, 2, 4, 5, 2, 3, 2, 1, 1, 1, 3, 2, 2, 5, 5, 2, 1, 1, 4, 1, 1, 1, 6, 4, 1, 4, 2, 4, 1, 1, 1, 7, 7, 7, 8, 8, 9, 10, 7, 7, 10, 8, 7, 8, 9, 11, 7, 9, 10, 12, 7, 9, 7, 12, 9, 7, 7, 8, 8, 9, 11, 7, 7, 7, 13, 9, 10, 7, 8, 10, 8, 9, 9, 7, 7, 9, 10, 10, 7, 11, 10, 14, 14, 12, 14, 14, 15, 14, 14, 15, 13, 8, 12, 12, 15, 15, 12, 13, 13, 15, 15, 12, 14, 15, 12, 13, 13, 12, 13, 15, 13, 15, 13, 15, 13, 14, 12, 14, 13, 9, 12, 12, 8, 14, 14, 12, 12, 12, 12, 13, 13, 4, 1, 4, 2, 1, 1, 1, 4, 3, 3, 4, 3, 1, 4, 1, 4, 1, 4, 2, 4, 3, 1, 4, 1, 4, 3, 2, 4, 2, 2, 3, 1, 4, 4, 1, 2, 2, 1, 4, 2, 4, 2, 1, 4, 3, 1, 1, 4, 4, 2, 10, 10, 8, 12, 7, 10, 7, 10, 8, 7, 7, 10, 7, 10, 7, 11, 10, 7, 8, 10, 13, 11, 13, 10, 10, 10, 7, 9, 10, 7, 8, 10, 10, 14, 10, 7, 10, 12, 7, 7, 13, 10, 10, 10, 10, 7, 7, 10, 7, 7, 15, 15, 15, 13, 15, 14, 13, 15, 14, 12, 9, 15, 13, 14, 14, 13, 14, 14, 14, 14, 13, 13, 14, 8, 14, 14, 8, 9, 14, 12, 12, 9, 14, 9, 13, 15, 13, 14, 13, 8, 15, 12, 15, 15, 15, 8, 15, 13, 14, 14), .Dim = c(150L, 2L), .Dimnames = list(NULL, c('cluster', 'neighbor'))));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators6_bbbef4fda2917510d998fda8479720ee() {
+ assertEval("argv <- list(structure(5.34872109992236, .Names = 'x'), structure(-17494.4659893938, .Names = 'x'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators60_16866adaaa4b504b7e8dace1699caf3c() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L), .Dim = c(3L, 3L)), structure(c(1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L), .Dim = c(3L, 3L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators61_4e49d9069bded39a1c7e10b74423c638() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1), .Dim = c(7L, 7L), .Dimnames = list(NULL, NULL)), c(1, 0, 0, 0, 0, 0, 0));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators62_55cd425e9582fb6629492cdbeaa85177() {
+ assertEval("argv <- list(c(1, 0, 0, 0, 0, 0, 0, 0, 0, 0), structure(c(1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1), .Dim = c(10L, 10L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators63_3284f8169b83e55f63c16b6a572bf1b4() {
+ assertEval("argv <- list(structure(list(war = c(1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L), fly = c(1L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), ver = c(1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 2L), end = c(1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 2L, 1L, NA, 1L, 1L, 2L, 1L, 1L, NA, 2L), gro = c(2L, 2L, 1L, 1L, 2L, 2L, 2L, 1L, 2L, 1L, NA, 2L, 2L, 1L, NA, 2L, 2L, NA, 1L, 2L), hai = c(1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 2L, 1L)), .Names = c('war', 'fly', 'ver', 'end', 'gro', 'hai'), class = 'data.frame', row.names = c('ant', 'bee', 'cat', 'cpl', 'chi', 'cow', 'duc', 'eag', 'ele', 'fly', 'fro', 'her', 'lio', 'liz', 'lob', 'man', 'rab', 'sal', 'spi', 'wha')), 1);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators64_529a2b478d936e5c96057f626febbb41() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`-`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators65_44ff7fe551cb1f95bfe43e5cdb4f708f() {
+ assertEval("argv <- list(c(41L, 36L, 12L, 18L, NA, 28L, 23L, 19L, 8L, NA, 7L, 16L, 11L, 14L, 18L, 14L, 34L, 6L, 30L, 11L, 1L, 11L, 4L, 32L, NA, NA, NA, 23L, 45L, 115L, 37L, NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 135L, 49L, 32L, NA, 64L, 40L, 77L, 97L, 97L, 85L, NA, 10L, 27L, NA, 7L, 48L, 35L, 61L, 79L, 63L, 16L, NA, NA, 80L, 108L, 20L, 52L, 82L, 50L, 64L, 59L, 39L, 9L, 16L, 78L, 35L, 66L, 122L, 89L, 110L, NA, NA, 44L, 28L, 65L, NA, 22L, 59L, 23L, 31L, 44L, 21L, 9L, NA, 45L, 168L, 73L, NA, 76L, 118L, 84L, 85L, 96L, 78L, 73L, 91L, 47L, 32L, 20L, 23L, 21L, 24L, 44L, 21L, 28L, 9L, 13L, 46L, 18L, 13L, 24L, 16L, 13L, 23L, 36L, 7L, 14L, 30L, NA, 14L, 18L, 20L));`-`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators66_867b493aca979de2a18f3f040a27eebf() {
+ assertEval("argv <- list(structure(c(0.163529648037515, 0.690300939958932, 1.33873438218701, 1.66977334065937, 2.08385700655167, 1.90103052674775, 1.24826888183738, -0.346530864750065, -2.02114485014442, -1.391176571206, -0.974900546993623, -0.592397172772186, 1.12800897451332, 1.28932367812798, 1.52806194332292, 0.902674841819288, -0.592397172772186, -1.58883249200006, -2.79944983904467, -2.38660462363888, 1.11301751209174, 0.656516272159253, 0.0219290473645453, -0.905668755424301, -1.30280742075591, -1.17239032526075, -0.455509560368709, -0.00488221008611145, 1.01557266990962, 1.33518324209154, 1.7902682423845, 1.2223240303426, -0.642532985196542, -2.3156528876666, -2.94255068268534, -2.71429203070436, -2.52857488490927, -1.36967036598504, -0.673867141366977, 0.557834355527559, -1.17239032526075, -0.455509560368709, -0.00488221008611145, 1.01557266990962, 1.33518324209154, 1.7902682423845, 1.2223240303426, -0.642532985196542, -2.3156528876666, -2.94255068268534, -2.71429203070436, -2.52857488490927, -1.36967036598504, -0.673867141366977, 0.557834355527559, 1.69565743430218, 1.55297632585292, -0.231087508986891, -1.95215197865747, -1.57567440742255, 1.27884061694483, 1.52424121861625, -1.01140094921315, -0.834671205684972, -0.234500481583131, 0.163529648037515, 0.690300939958932, 1.33873438218701, 1.66977334065937, 2.08385700655167, 1.90103052674775, 1.24826888183738, -0.346530864750065, -2.02114485014442, -1.391176571206, -0.974900546993623, -0.592397172772186, 1.12800897451332, 1.28932367812798, 1.52806194332292, -0.720008297364832, -0.01169886906521, 0.795118935598027, 1.30411137828236, 1.35630335130608, 1.05258722945331, -0.0781544111924379, -0.905668755424301, -1.14228052378938, -1.10485411827026, -0.292564282537893, 0.785919238699603, 1.49889320873226, 2.20687990315498, 1.74950266694519, -0.073778036592639, -1.06484878365656, -0.447016940323056, -0.725579342414288, 0.0582966915354195, 1.55297632585292, -0.231087508986891, -1.95215197865747, -1.57567440742255, -0.647687635785206, 0.0245710568273836, 0.569377384809234, 1.54435558280902, 2.246266557697, 2.14425394955264, 1.63506382167997, 0.909232242365448, -0.762567911783628, -0.660691720208413), .Dim = c(114L, 1L), .Dimnames = list(NULL, 'Series 1'), .Tsp = c(1, 114, 1), class = 'ts'), structure(c(-1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16), .Dim = c(114L, 1L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators67_8ea536baa2b57a7d94f88bc4e4695ed0() {
+ assertEval("argv <- list(c(4L, 3L, 2L, 1L, 2L, 3L, 4L, 5L), 0+5i);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators68_f1540a8012879e2a647c922c47accb41() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), structure(integer(0), .Label = character(0), class = 'factor'));`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators69_3e4d9eaf39e34462e19dbfa8d2c7b211() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators7_dafb4aedf08e215f91359f39b7aa316a() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0.5, 0.5, 1, 1, 0, 0, 0, 0, 0, 1), .Dim = c(6L, 4L)), c(1, 1, 1, 0, 0, 0));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators70_cb674c96a72fd23a2806d6bcfde9279d() {
+ assertEval("argv <- list(1, structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59), .Tsp = c(0, 59, 1), class = 'ts'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators71_70a913feb66e0efec9f0702fc6af8acd() {
+ assertEval("argv <- list(-3.14159265358979, 3.14159265358979);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators72_431e8cc2a0b044fc61ea748ab8c3aa75() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 2L, 2L, 2L), .Label = c('1', '2'), class = 'factor'), structure(c(1L, 1L, 2L, 2L, 3L, 3L), .Label = c('1', '2', '3'), class = 'factor'));`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators74_5b50a50a9885bf8dcc8824cfcc05e747() {
+ assertEval("argv <- list(0.5, -0.5);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators75_0ce7c915b675de1f6c7fea9721dffc1f() {
+ assertEval("argv <- list(101L, 1L);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators76_f10b2d4f6acf109ab618ca932a774116() {
+ assertEval("argv <- list(FALSE, 1);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators77_c86400159e14a11194cafaf0b160f4b6() {
+ assertEval("argv <- list(structure(c(0, 4.44089209850063e-16, 8.88178419700125e-16, 1.66533453693773e-15, 2.22044604925031e-16, 3.33066907387547e-16, 2.77555756156289e-16, 5.55111512312578e-17, 8.32667268468867e-17, 1.66533453693773e-16, 8.88178419700125e-16, 1.11022302462516e-16, 2.44249065417534e-15, 2.22044604925031e-16, 1.11022302462516e-16, 1.88737914186277e-15, 1.11022302462516e-16, 2.22044604925031e-16, 1.4432899320127e-15, 8.88178419700125e-16, 3.33066907387547e-16, 1.66533453693773e-16, 1.11022302462516e-16, 7.7715611723761e-16, 1.11022302462516e-16), .Dim = c(5L, 5L)), 2.22044604925031e-13);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators78_0e5e5aa23d45a0eb760442d8c94b582c() {
+ assertEval("argv <- list(1, 4);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators79_1b02b2bcc8a81eb4797dad388b4d8e89() {
+ assertEval("argv <- list(NULL, NULL);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators8_09b87f76dec8ce2f32b01d45f21f3a6d() {
+ assertEval("argv <- list(0.5, c(0.0945457474962427, 0.369817831189094, 0.485958087431202, 0.498816870239398, 0.499902671395055));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators80_3d8e7f6ddcdf80fa474104c35ac62cbe() {
+ assertEval("argv <- list(structure(1L, .Label = c('A', 'B', 'C'), class = c('ordered', 'factor')), structure(3L, .Label = c('A', 'B', 'C'), class = c('ordered', 'factor')));`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators81_4880d489ca04b9f3aefe5ec1ec758796() {
+ assertEval("argv <- list(structure(1386500270.17764, class = c('POSIXct', 'POSIXt')), structure(c(1383854025.35606, 1386388510.66806), class = c('POSIXct', 'POSIXt')));`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators82_52ef4b93cf91fcfbfce242f36ae87d19() {
+ assertEval("argv <- list(c(0.999998001700552, -0.0013118835870674, -0.000526551904329415, 0.999999038344567, -0.000903475278483392, -0.000381296378838388, 0.999999057686544, -0.000896140095625969, -0.000373156128147092, 0.999998405868953, -0.00114777435393854, -0.000526063245555164, 0.99999814161282, -0.00120795166706622, -0.000631851641234638, 0.999997792453059, -0.00139185834612791, -0.000519877304541034, 0.999998020546725, -0.00127080900255349, -0.00060373324887666, 0.999998059330159, -0.00123814735894241, -0.000638480377887232, 0.999998337108097, -0.00115570987192407, -0.000572034814304861, 0.999998571810103, -0.00106400147389197, -0.00054414035107764, 0.999999136998844, -0.000829344110491764, -0.000418555560445895, 0.999999436800894, -0.000688792506748533, -0.00029793232712181, 0.999999182435777, -0.000786088000160243, -0.000446798847724984, 0.999998035855459, -0.00125214214514046, -0.000629508325517675, 0.999995461301925, -0.00191759993645823, -0.000928163756226527, 0.999990501294199, -0.00282586497589704, -0.00123008240127283, 0.99998523015117, -0.00349306924843624, -0.00160252859811979, 0.999980247693918, -0.00393070891026528, -0.00207399213858218, 0.999258133391236, -0.0212608113487506, 0.0170086490790013, 0.999752823870685, -0.0151150534926454, -0.00431858671218418, 0.998521231438773, -0.0331918414882689, 0.0193619075348229, 0.973987730061349, 0.0773006134969334, -0.139141104294479, 0.997923156801661, -0.0321910695742469, 0.0321910695742468, 0.999947758503179, -0.00259457124676546, -0.006745885241587, -0.0013118835870674, 0.138748425090248, -0.345681325192261, -0.000903475278483392, 0.151184975864853, -0.358227947918666, -0.000896140095625969, 0.147770769059702, -0.354871477867884, -0.00114777435393854, 0.173602465164251, -0.378765536799718, -0.00120795166706622, 0.214831416406957, -0.410703566802515, -0.00139185834612791, 0.122433312766354, -0.327782640513123, -0.00127080900255349, 0.184140620360657, -0.387596745778816, -0.00123814735894241, 0.21006198499474, -0.407350481092054, -0.00115570987192407, 0.196781639012774, -0.397564195941878, -0.00106400147389197, 0.207318901950479, -0.405384561552842, -0.000829344110491764, 0.203000309817415, -0.402231893588506, -0.000688792506748533, 0.157606764246543, -0.364371236069974, -0.000786088000160243, 0.244176387845927, -0.429597092087573, -0.00125214214514046, 0.201759382472957, -0.401311557517518, -0.00191759993645823, 0.189814026846399, -0.392149187005707, -0.00282586497589704, 0.159305169670633, -0.365949514378666, -0.00349306924843624, 0.173889122744829, -0.378998013455332, -0.00393070891026528, 0.217788926857211, -0.412724435577854, -0.0212608113487506, 0.000452357688250284, -0.00036188615058233, -0.0151150534926454, 0.000228521327097438, 6.52918077527545e-05, -0.0331918414882689, 0.00110332991097693, -0.000643609114746404, 0.0773006134969334, 0.00613496932514866, -0.0110429447852694, -0.0321910695742469, 0.0010384215991718, -0.00103842159917336, -0.00259457124676546, 6.73215168555691e-06, 1.75035942027152e-05, -0.000526551904329415, -0.345681325192261, 0.861253573209199, -0.000381296378838388, -0.358227947918666, 0.848815985790579, -0.000373156128147092, -0.354871477867884, 0.852230173253752, -0.000526063245555164, -0.378765536799718, 0.826399128966796, -0.000631851641234638, -0.410703566802515, 0.785170441980223, -0.000519877304541034, -0.327782640513123, 0.877568894780586, -0.00060373324887666, -0.387596745778816, 0.815861359092619, -0.000638480377887232, -0.407350481092054, 0.789939955675102, -0.000572034814304861, -0.397564195941878, 0.803220023879128, -0.00054414035107764, -0.405384561552842, 0.792682526239419, -0.000418555560445895, -0.402231893588506, 0.797000553183741, -0.00029793232712181, -0.364371236069974, 0.842393798952562, -0.000446798847724984, -0.429597092087573, 0.755824429718295, -0.000629508325517675, -0.401311557517518, 0.798242581671585, -0.000928163756226527, -0.392149187005707, 0.810190511851676, -0.00123008240127283, -0.365949514378666, 0.840704329035169, -0.00160252859811979, -0.378998013455332, 0.826125647104002, -0.00207399213858218, -0.412724435577854, 0.782230825448871, 0.0170086490790013, -0.00036188615058233, 0.00028950892043616, -0.00431858671218418, 6.52918077527545e-05, 1.86548021961656e-05, 0.0193619075348229, -0.000643609114746404, 0.000375438650284673, -0.139141104294479, -0.0110429447852694, 0.0198773006134874, 0.0321910695742468, -0.00103842159917336, 0.00103842159917592, -0.006745885241587, 1.75035942027152e-05, 4.55093454284494e-05), 0.692636183089874);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators83_adbe70163788812890663b6cfac81a3f() {
+ assertEval("argv <- list(20, structure(c(-1, -1, -1, -1, -1, -1, -1, 8, 9, 10, 11, 12, 13, 14, 15, 100, 17, 18, 19, 20, 21, 200, 200, 24, 25, 26, 27, 28), .Dim = c(7L, 4L), .Dimnames = list(NULL, NULL)));`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators84_0b8c0a2654c4ce5e45e8671469b93766() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`<`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators85_2a425065f8fd161af4521727e182a635() {
+ assertEval("argv <- list(c(2.00256647265648e-308, 2.22284878464869e-308, 2.22507363599982e-308, 2.2250738585072e-308, 2.22507408101459e-308, 2.22729893236571e-308, 2.44758124435792e-308, 1.61792382137608e+308, 1.79589544172745e+308, 1.797692955093e+308, 1.79769313486232e+308), 1);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators86_ee952f9a096e44a2b425997a9508cd7e() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), 1L);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators87_541f65844067c8848bc2876cd063e9e5() {
+ assertEval("argv <- list(structure(c(629, 1026, 1422, 1819, 2214, 2611), class = 'difftime', units = 'days', .Names = c('1', '2', '3', '4', '5', '6')), 0);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators88_4e9991c34147796ace6452f71e4e2999() {
+ assertEval("argv <- list(c(1, 2, 3, 4, 5, 6, 7, NA, 9, 10, 11, 12), 2);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators89_605cdc2157455f7b9d86542420344cba() {
+ assertEval("argv <- list(structure(3.0625, base = 4, lens = 3L, .classes = c('R_system_version', 'package_version', 'numeric_version')), structure(3.25, .Names = 'gridSVG2', base = 4, lens = structure(2L, .Names = 'gridSVG2'), .classes = 'numeric_version'));`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators9_a4164cd5db80ec4decee818ad0c32ff3() {
+ assertEval("argv <- list(structure(1:10, class = structure('NumericNotStructure', package = '.GlobalEnv')), 1);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators90_9482056ed84b5a4b5c28420ed970de9a() {
+ assertEval("argv <- list(c(1, 0, 0, 1, 0, 1, 2, 2, 1, 2, 1, 2, 1, NA, 1, 1, 1, 2, 2, 1, 1, 0, 1, 0, 0, 1, 0, 3, 1, 2, 1, 2, 2, 2, 2, 2, 2, 1, 2, 1, 1, 2, 0, 2, 1, 2, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 2, 1, 1, 2, 1, 1, 1, 1, 2, 2, 0, 0, 1, 0, 1, 2, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 2, 0, 1, 1, 1, 0, 2, 1, 1, 1, 0, 0, 1, 1, 1, 2, 1, 1, 1, 1, 2, 0, 1, 1, 0, 1, 2, 2, 2, 2, 1, 0, 2, 1, 2, 0, 1, 1, 1, 2, 0, 1, 1, 0, 1, 0, 2, 1, 2, 1, 0, 2, 1, 2, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 2, 2, 1, 2, 1, 1, 0, 1, 2, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 2, 1, 1, 0, 0, 0, 0, 1, 0, 0, 2, 0, 1, 0, 1, 2, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 0, 2, 0, 2, 1, 1, 0, 1, 1, 2, 1, 1, 1, 2, 2, 0, 1, 1, 1, 1, 0, 2, 1, 1), 1);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators91_ea8f9fb6c82f6c1347f50271dd107aab() {
+ assertEval("argv <- list(structure(list(c(3L, 0L, 1L)), class = c('R_system_version', 'package_version', 'numeric_version')), structure('3.1', .Names = 'gridSVG2'));`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators92_e568e9569d5263980cab39657cde38c4() {
+ assertEval("argv <- list(structure(c(0, 0.414213562373095, 0.732050807568877, 0, 0.23606797749979, 0.449489742783178, 0.645751311064591, 0.82842712474619, 0, 0.16227766016838), id = 'test 1', class = structure('withId', package = '.GlobalEnv')), 0.01);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators93_eb22783200cb7cb4d8d95072e96431e2() {
+ assertEval("argv <- list(NULL, NULL);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators94_b4150048a0faa7e88777fd0c8da01bd3() {
+ assertEval("argv <- list('a', 'b');`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators95_f9f046285f2753b8be9254faa61d2dda() {
+ assertEval("argv <- list(structure(c(1386478800, 1386651600, 1386824400, 1386997200, 1387170000, 1387342800, 1387515600, 1387688400, 1387861200, 1388034000, 1388206800, 1388379600, 1388552400, 1388725200), class = c('POSIXct', 'POSIXt'), tzone = ''), structure(1387538790.57927, class = c('POSIXct', 'POSIXt')));`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators96_6de3a8b0fde8e62cb78c26ceae30d9fe() {
+ assertEval("argv <- list(c(17, 45.1, 39.7, 36.5, 43.5), 6);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators97_492a99a4e43c2a0c330b804f6a117fa5() {
+ assertEval("argv <- list(structure(c(69, 35, 26, 21, 18, 16, 13, 12, 12), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9')), 0);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators98_4946a5826fc211e1d4f0d5c023cbe92b() {
+ assertEval("argv <- list(c(0L, 1L, 2L, 2L, 2L, 3L, 4L, 5L, 5L, 5L, 6L, 7L, 7L, 7L, 8L, 9L, 9L, 9L, 10L, 11L, 11L, 11L, 12L, 12L, 12L, 13L, 14L, 14L, 14L), 1L);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoperators_testoperators99_df2c5ec19aa2ace37c8ee6ae0cdc3366() {
+ assertEval("argv <- list(150000, 3e+09);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinoptions_testoptions1_586db7ee2d654fc308a8a8f7f814af60() {
+ assertEval("argv <- list('survfit.print.n'); .Internal(options(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinoptions_testoptions2_3a14a4a4ae8bc90f17baefacbc0635ec() {
+ assertEval("argv <- list('contrasts'); .Internal(options(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinoptions_testoptions3_1bff83820277ac04f2a918a2929f2990() {
+ assertEval("argv <- list('str'); .Internal(options(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinoptions_testoptions4_e4b37bd554474a05d6e509754da1ca16() {
+ assertEval("argv <- list('ts.eps'); .Internal(options(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinoptions_testoptions5_cea0be88dce9581c7f5cb930acc71943() {
+ assertEval("argv <- list(NULL); .Internal(options(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder1_8208900ec849d6be472bc8d5a115cee7() {
+ assertEval("argv <- list(TRUE, FALSE, structure(c(1, 1, 1, 2, 2, 2, 3, 4), .Names = c('CsparseMatrix', 'nsparseMatrix', 'generalMatrix', 'nMatrix', 'sparseMatrix', 'compMatrix', 'Matrix', 'mMatrix'))); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder10_2ad5d031690d4e42a91da016b012beff() {
+ assertEval("argv <- list(TRUE, FALSE, c(1L, 1L), c(5L, 5L)); .Internal(order(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder11_acd78c183ca36d45c403db16d2149ea6() {
+ assertEval("argv <- list(TRUE, FALSE, structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75')), structure(c(-0.57247143337844, -0.539950178656569, -0.58297623976228, -0.439751638938155, -0.617930515617237, -0.533331856784678, -0.289352731546361, -0.478093191632667, -0.602269400145547, -0.580175322433967, -0.49540432777895, -0.513696058484476, -0.458241390525053, -0.626325772726431, -0.638174891061199, -0.617196984678001, -0.64409821087924, -0.612729425695224, -0.60380450668859, -0.478765912376981, -0.577566470585813, -0.611603489866172, -0.630689749726753, -0.617142933166765, -0.649085924500709, -0.663752033681209, -0.644167702381979, -0.638179039688751, -0.597653338464853, -0.60376057262344, -0.663213279051883, -0.675292341303314, -0.666589501747572, -0.670209631751109, -0.683375351812861, -0.683923564367218, -0.679841016050066, -0.687830656102281, -0.686865903442208, -0.681095489258746, -0.579001929374462, -0.669393058957547, -0.678452540432172, -0.638743740817659, -0.558515347237012, -0.337270659711893, -0.279950203607686, -0.295246094585692, -0.592252570503069, -0.558321756708791, -0.597079745476187, -0.573971559450555, -0.603793132961681, -0.544974758961613, -0.495274888248239, -0.488092985753192, -0.528409363716152, -0.552865045250698, -0.502907194303865, -0.482819909399495, -0.590008262166764, -0.582409343486053, -0.548676506410172, -0.642096376280899, -0.622604552864479, -0.581608072840875, -0.637160558239849, -0.640205884259342, -0.643944208731097, -0.627870005742383, -0.638070667609366, -0.648245104552262, -0.582808968033345, -0.593416716949551, -0.631441868159251), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75'))); .Internal(order(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder12_c16da230db465313234909766e203678() {
+ assertEval("argv <- list(TRUE, FALSE, c(FALSE, FALSE)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder13_f77f7f5459a22d13b45b25c6364371bd() {
+ assertEval("argv <- list(TRUE, FALSE, structure(c(-0.00544194018731062, -0.00542949133552226, -1.20718999105839e-05, -0.00505497198006266, -0.827687885653788, -0.00315385274195005, -0.0023164952286401, -0.00117183915211372, -2.09167441982205, -0.00193959227691399, -0.00358084102808485, -3.39138861812986e-05, -0.00163051710052444, -0.00168735925488057, -0.0167253073891896, -0.237074502262169, -0.0118967636015583, -0.00307437031103621, -0.00114371252369823, -0.000860763872820255, -0.00028432076263802, -0.00329557354736053, -0.000123683950933913, -0.00026114238659798, -0.00471892942651347, -0.00317288091968884, -6.76955217513137e-05, -0.0119061189538054, -0.00233356124758579, -0.00672098496026968, -0.134965372025281, -0.00102115420103838, -0.00114816901125044), .Names = c('Craig Dunain', 'Ben Rha', 'Ben Lomond', 'Goatfell', 'Bens of Jura', 'Cairnpapple', 'Scolty', 'Traprain', 'Lairig Ghru', 'Dollar', 'Lomonds', 'Cairn Table', 'Eildon Two', 'Cairngorm', 'Seven Hills', 'Knock Hill', 'Black Hill', 'Creag Beag', 'Kildcon Hill', 'Meall Ant-Suidhe', 'Half Ben Nevis', 'Cow Hill', 'N Berwick Law', 'Creag Dubh', 'Burnswark', 'Largo Law', 'Criffel', 'Acmony', 'Ben Nevis', 'Knockfarrel', 'Two Breweries', 'Cockleroi', 'Moffat Chase'))); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder14_38de0ee06cda03e9e31fc7a8ced3666a() {
+ assertEval("argv <- list(TRUE, FALSE, c(2L, 1L, NA)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder15_dc039d1a1d15d15305f83479730a022b() {
+ assertEval("argv <- list(TRUE, FALSE, structure(c(1, 2, 2, 2, 2), .Names = c('character', 'vector', 'data.frameRowLabels', 'SuperClassMethod', 'atomicVector'))); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder16_947d3b097e030544b9997563cc6b0b66() {
+ assertEval("argv <- list(TRUE, FALSE, c(1, 2, NA)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder17_37812381788d588ad2c4dd70a7946164() {
+ assertEval("argv <- list(TRUE, FALSE, c(39.39, NA, 60.99, 45.82, 55.4, 59.49, 63.73, 55.09, 57.2, 33.22, 61.18, 59.52, 59.9, 59.06, 65.44, 54.3, 53.28, 70.87, 60.04, 59.33, 55.63, 53.68, 24.46, 49.87, 57.13, 65.51, 57.97, 66.11, 64.68, 57.81, 61.2, 49.34, 61.72, 61.11, 55.13, 55.25, 56.49, 58.31, 25.18, 58.39, 49.21, 55.27, 64.56, 72.18, 55.37, 53.91, 54.08, 61.58)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder18_8f9fd8750b182eb6177a98ac180ea0c6() {
+ assertEval("argv <- list(TRUE, FALSE, c(FALSE, TRUE)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder19_5f063f3d90c3d2aaca78211936083c01() {
+ assertEval("argv <- list(TRUE, TRUE, c(2572.90550008339, 915.064609071159, 419.980933101553, 456.632018115023, 366.745362912885, 308.301779528581, 258.104614655539, 166.131403923756, 208.43876984087, 174.152165416129, 157.072337453686, 157.072337453686, 93.6287479850051, 145.261798316303, 140.969649074553, 80.9227484547009, 115.221543203043, 115.221543203043, 43.2054741656531, 92.6549620292801, 92.6549620292801, 90.9360919542674, 90.9360919542674, 95.4200045428049, 94.2845517186135, 90.4677652619726, 76.0356310934324, 76.0356310934324, 26.1565478253913, 79.2808369338756, 69.8160310537133, 69.8160310537133, 74.7131802385517, 72.7892236613541, 20.782836979896, 60.876337906218, 60.876337906218, 70.8748882290923, 66.7853490283529, 66.7853490283529, 16.5058357149619, 54.5274774202162, 54.5274774202162, 64.009437139127, 13.2377600042936, 49.2149340764437, 49.2149340764437, 60.372612826631, 55.4228623592615, 55.4228623592615, 55.598407412763, 8.99100195370794, 49.6125680940682, 49.6125680940682, 51.620171425175, 39.8798475138868, 39.8798475138868, 7.62805946796798, 35.458438379179, 35.458438379179, 38.2201699179466, 38.2201699179466, 29.6856293315566, 29.6856293315566, 34.3600931672689, 34.3600931672689, 47.6686025497685, 47.0350049752776, 5.57838460483725, 5.07382264677001, 15.9316203363047, 23.4957538578271, 23.4957538578271, 41.4311176038551, 11.9119569568831, 34.7321001383969, 4.21976444063592, 39.2901755793811, 29.1992830783774, 29.1992830783774, 11.1832867499603, 42.0546965543942, 27.0745572919711, 7.44159556589097, 28.1216021055426, 6.46699019595805, 2.05951624519943, 4.77172378340461, 38.0398197891428, 1.66021670517454, 1.03505989993491, 2.69814683135512, 1.8306332549612, 2.29820560404041, 3.42336057523814e-06, 3.42336062193255e-06, 2.86123099075901, 0.773887754953459, 0.213086170361661, 0.416100454072758)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder2_51e8bd6df64d6662758fe23e5802641d() {
+ assertEval("argv <- list(TRUE, FALSE, structure(c(1, 2, 2.1, 2.3, 2.3, 3, 4, 5, 7, 8, 11, 13, 14, 15), .Names = c('\\title', '\\name', '\\alias', '\\keyword', '\\keyword', '\\description', '\\usage', '\\arguments', '\\details', '\\value', '\\author', '\\references', '\\seealso', '\\examples')), c('', '', 'LOGLIN', '', '', '', '', '', '', '', '', '', '', ''), c('', '', 'loglin', '', '', '', '', '', '', '', '', '', '', '')); .Internal(order(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder3_5d33747ed78c617856053bf4acc5204d() {
+ assertEval("argv <- list(TRUE, FALSE, c(NA, 'Ripley', 'Venables & Smith')); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder4_6bd340990ea137d1593afc77fda46aad() {
+ assertEval("argv <- list(TRUE, TRUE, structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 4L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 1L, 3L, 4L, 2L, 5L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 3L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 3L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L), .Names = c('1008', '1011', '1013', '1014', '1015', '1016', '1027', '1028', '1030', '1032', '1051', '1052', '1083', '1093', '1095', '1096', '110', '1102', '111', '1117', '112', '113', '116', '117', '1219', '125', '1250', '1251', '126', '127', '128', '1291', '1292', '1293', '1298', '1299', '130', '1308', '135', '1376', '1377', '1383', '1408', '1409', '141', '1410', '1411', '1413', '1418', '1422', '1438', '1445', '1456', '1492', '2001', '2316', '262', '266', '269', '270', '2708', '2714', '2715', '272', '2728', '2734', '280', '283', '286', '290', '3501', '411', '412', '475', '5028', '5042', '5043', '5044', '5045', '5047', '5049', '5050', '5051', '5052', '5053', '5054', '5055', '5056', '5057', '5058', '5059', '5060', '5061', '5062', '5066', '5067', '5068', '5069', '5070', '5072', '5073', '5115', '5160', '5165', '655', '724', '885', '931', '942', '952', '955', '958', 'c118', 'c168', 'c203', 'c204', 'c266'))); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder5_53923bee08e5df9d21fd981ab899c4ea() {
+ assertEval("argv <- list(TRUE, FALSE); .Internal(order(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder6_0ea94d85e22b5ed044a53258ffb14224() {
+ assertEval("argv <- list(TRUE, FALSE, c(25, 50, 100, 250, 500, 1e+05)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder7_13eaf18114ac611963e74022c6f2e6a8() {
+ assertEval("argv <- list(TRUE, FALSE, c(1L, 2L, NA)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder8_c706cdc95e9d77ea9a179c023ab2b08e() {
+ assertEval("argv <- list(TRUE, FALSE, c(-1.90479340955971, 0.152878714793717)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinorder_testorder9_42d8ed7bb8eeb033e13cf656745cfdaa() {
+ assertEval("argv <- list(TRUE, FALSE, structure(numeric(0), .Dim = c(0L, 0L), .Dimnames = list(NULL, NULL))); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste_testpaste1_1543225e717fb89dcb7c9c6f03821542() {
+ assertEval("argv <- list(list('%% ~~objects to See Also as', '\\code{\\link{~~fun~~}}, ~~~'), ' ', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste_testpaste10_e53217a5d27295c7a7162333a3eac050() {
+ assertEval("argv <- list(list('(', structure(c(' 1.124', ' 1.056', ' 1.059', ' 0.932'), .Dim = c(2L, 2L)), ','), '', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste_testpaste11_1f3538f5a3d358ca53afdff83bb0c3ad() {
+ assertEval("argv <- list(list(character(0)), ' ', ''); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste_testpaste2_1c0fae68b1698b436ba6c15093bdcdc7() {
+ assertEval("argv <- list(list(c('[', 'cox.zph', NA)), ' ', '\r'); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste_testpaste3_f018ff0ed6764403217af266d102164a() {
+ assertEval("argv <- list(list(), ' ', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste_testpaste4_7e9209fb64750e82cccbfc41ecc5db26() {
+ assertEval("argv <- list(list('package', structure('pkgA', .Names = 'name')), ':', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste_testpaste5_d02f97a1a9cc3cac568f0e34c2e12a70() {
+ assertEval("argv <- list(list(c('[', 'as.data.frame', 'plot', 'print', 'summary', 'as.character', 'print', 'print', 'plot', 'update', 'dim', 'dimnames', 'dimnames<-', '[', 't', 'summary', 'print', 'barchart', 'barchart', 'barchart', 'barchart', 'barchart', 'barchart', 'bwplot', 'bwplot', 'densityplot', 'densityplot', 'dotplot', 'dotplot', 'dotplot', 'dotplot', 'dotplot', 'dotplot', 'histogram', 'histogram', 'histogram', 'qqmath', 'qqmath', 'stripplot', 'stripplot', 'qq', 'xyplot', 'xyplot', 'levelplot', 'levelplot', 'levelplot', 'levelplot', 'contourplot', 'contourplot', 'contourplot', 'contourplot', 'cloud', 'cloud', 'cloud', 'wireframe', 'wireframe', 'splom', 'splom', 'splom', 'parallelplot', 'parallelplot', 'parallelplot', 'parallel', 'parallel', 'parallel', 'tmd', 'tmd', 'llines', 'ltext', 'lpoints'), c('shingle', 'shingle', 'shingle', 'shingle', 'shingle', 'shingleLevel', 'shingleLevel', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'summary.trellis', 'formula', 'array', 'default', 'matrix', 'numeric', 'table', 'formula', 'numeric', 'formula', 'numeric', 'formula', 'array', 'default', 'matrix', 'numeric', 'table', 'formula', 'factor', 'numeric', 'formula', 'numeric', 'formula', 'numeric', 'formula', 'formula', 'ts', 'formula', 'table', 'array', 'matrix', 'formula', 'table', 'array', 'matrix', 'formula', 'matrix', 'table', 'formula', 'matrix', 'formula', 'matrix', 'data.frame', 'formula', 'matrix', 'data.frame', 'formula', 'matrix', 'data.frame', 'formula', 'trellis', 'default', 'default', 'default')), '.', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste_testpaste6_1c1060f13cf8614d615905186e5165cb() {
+ assertEval("argv <- list(list(c('dotplot', 'table', NA)), ' ', '\r'); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste_testpaste7_7c9133081de4bb7c0552e5efe82eac57() {
+ assertEval("argv <- list(list(character(0)), ' ', ' '); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste_testpaste8_0012f49a694cd90311369d96ca41099a() {
+ assertEval("argv <- list(list('detaching', '‘package:splines’'), ' ', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste_testpaste9_c5bd8c8828c51d091313173124559d7d() {
+ assertEval("argv <- list(list('GRID', 'text', '6'), '.', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste0_testpaste01_41fd17e7a064a5dce1a0473504e6648a() {
+ assertEval("argv <- list(list('2', ': '), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste0_testpaste010_216367c2f846e81bf0b134ecbbf9bb8f() {
+ assertEval("argv <- list(list(structure(c('-0.16', '-0.03', ' 0.11', '-0.19', ' 0.12', ' 0.00', '-0.03', ' 0.18', ' 0.01', '-0.03', '-0.11', '-0.11', ' 0.00', ' 0.09', '-0.15', ' 0.05', '-0.04', ' 0.00', ' 0.04', ' 0.00', ' 0.01', ' 0.04', ' 0.11', ' 0.11', '-0.10', '-0.01', ' 0.04', ' 0.34', '-0.30', ' 0.00', '-0.02', '-0.31', '-0.04', '-0.01', '-0.05', '-0.05', '-0.07', '-0.03', ' 0.02', ' 0.21', '-0.17', ' 0.00', '-0.03', '-0.17', '-0.03', '-0.04', ' 0.28', '-0.45', '-0.24', ' 0.00', ' 0.02', ' 0.25', '-0.28', ' 0.00', '-0.01', '-0.24', '-0.04', '-0.04', '-0.06', '-0.06', '-0.44', '-0.01', ' 0.02', ' 0.18', '-0.26', ' 0.00', ' 0.00', '-0.19', '-0.03', '-0.03', '-0.04', '-0.04', ' 0.01', '-0.03', ' 0.04', ' 0.18', '-0.11', ' 0.00', '-0.02', '-0.15', '-0.02', '-0.02', '-0.06', '-0.06', ' 0.12', ' 0.08', ' 0.07', '-0.01', '-0.03', ' 0.00', '-0.01', ' 0.00', ' 0.00', ' 0.04', '-0.01', '-0.01', ' 0.00', ' 0.01', ' 0.08', '-0.01', ' 0.01', ' 0.00', '-0.02', ' 0.01', ' 0.00', ' 0.03', '-0.07', '-0.07', ' 0.21', ' 0.00', '-0.08', ' 0.04', '-0.42', ' 0.00', ' 0.01', ' 0.01', ' 0.00', ' 0.02', ' 0.05', ' 0.05', ' 0.06', '-0.04', '-0.09', ' 0.01', ' 0.01', ' 0.00', ' 0.01', '-0.02', ' 0.00', ' 0.03', ' 0.04', ' 0.04', '-0.04', '-0.01', ' 0.16', '-0.06', '-0.03', ' 0.00', ' 0.02', '-0.07', ' 0.00', ' 0.06', ' 0.08', ' 0.08', ' 0.47', '-0.15', ' 0.06', ' 0.01', ' 0.18', ' 0.00', '-0.03', ' 0.01', ' 0.00', '-0.02', '-0.06', '-0.06', '-0.04', ' 0.01', ' 0.09', '-0.08', '-0.10', ' 0.00', ' 0.05', '-0.18', ' 0.01', '-0.03', ' 0.12', ' 0.12', ' 0.03', ' 0.02', ' 0.12', '-0.08', '-0.11', ' 0.00', ' 0.03', '-0.14', ' 0.01', '-0.02', ' 0.10', ' 0.10', ' 0.73', '-0.24', '-0.26', '-0.44', '-0.89', ' NaN', ' 0.08', ' 0.45', ' 0.05', ' 0.14', ' 0.64', '-0.64', ' 1.71', ' 2.09', ' 1.86', ' 1.76', ' 0.13', ' NaN', ' 1.63', ' 1.92', ' 1.88', ' 1.60', ' 2.68', ' 2.68', ' 0.04', ' 0.00', ' 0.00', ' 0.01', ' 0.05', ' NaN', ' 0.00', ' 0.01', ' 0.00', ' 0.00', ' 0.03', ' 0.03', ' 0.39', ' 0.43', ' 0.36', ' 0.36', ' 0.06', ' 1.00', ' 0.26', ' 0.40', ' 0.36', ' 0.25', ' 0.57', ' 0.57'), .Dim = c(12L, 19L), .Dimnames = list(c('8', '19', '28', '39', '42', '57', '66', '80', '83', '87', '89', '93'), c('dfb.1_', 'dfb.Wght', 'dfb.Cyl4', 'dfb.Cyl5', 'dfb.Cyl6', 'dfb.Cyl8', 'dfb.Cyln', 'dfb.TypL', 'dfb.TypM', 'dfb.TypSm', 'dfb.TypSp', 'dfb.TypV', 'dfb.EngS', 'dfb.DrTF', 'dfb.DrTR', 'dffit', 'cov.r', 'cook.d', 'hat'))), c('', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '_*', '_*', '_*', '_*', '_*', '', '_*', '_*', '_*', '_*', '_*', '_*', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '_*', '', '', '', '', '_*', '_*')), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste0_testpaste011_34534ace7b59ff6e0e685b184f7584f2() {
+ assertEval("argv <- list(list(character(0), character(0), character(0)), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste0_testpaste012_2e843bcfd580993c0e7479e6ee343c68() {
+ assertEval("argv <- list(list(c('Package:', 'Type:', 'Version:', 'Date:', 'License:', 'Depends:'), ' \\tab ', structure(c('myTst2', 'Package', '1.0', '2014-03-17', 'What license is it under?', 'methods'), .Names = c('Package', 'Type', 'Version', 'Date', 'License', 'Depends')), '\\cr'), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste0_testpaste013_d2a50585629d8f1ef1f27849a74b81d7() {
+ assertEval("argv <- list(list(character(0), '$y'), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste0_testpaste014_54ce05485d1f2bd4a5b895fb01b24244() {
+ assertEval("argv <- list(list(c('text> ', 'text> ', 'text> ', 'text+ '), c('## The following two examples use latin1 characters: these may not', '## appear correctly (or be omitted entirely).', 'plot(1:10, 1:10, main = \'text(...) examples\\n~~~~~~~~~~~~~~\',', ' sub = \'R is GNU ©, but not ® ...\')')), '\n'); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste0_testpaste015_6cd387c7a12a643d7dbba5fbd6b6211d() {
+ assertEval("argv <- list(list('cnstrO> ', 'constrOptim(c(2,-1,-1), fQP, gQP, ui = t(Amat), ci = bvec)'), '\n'); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste0_testpaste02_b92e9ed16f3795f830c0bd6c1be89b3a() {
+ assertEval("argv <- list(list(structure(c('-0.20', ' 0.07', ' 0.16', ' 0.55', ' 0.13', '-0.07', '-0.08', '-0.48', ' 0.22', ' 0.04', '-0.34', '-0.38', '-0.02', '-0.23', ' 0.09', '-0.02', ' 0.12', '-0.03', ' 0.23', '-1.02', '-0.46', '-0.25', ' 0.75', '-1.16', ' 0.65', ' 1.66', ' 0.51', ' 2.09', ' 0.04', ' 0.01', ' 0.10', ' 0.27', ' 0.04', ' 0.33', ' 0.06', ' 0.53'), .Dim = c(4L, 9L), .Dimnames = list(c('Chile', 'United States', 'Zambia', 'Libya'), c('dfb.1_', 'dfb.pp15', 'dfb.pp75', 'dfb.dpi', 'dfb.ddpi', 'dffit', 'cov.r', 'cook.d', 'hat'))), c('', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '_*', '', '', '', '_*', '_*', '_*', '_*', '_*', '', '', '', '', '', '_*', '', '_*')), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste0_testpaste03_10fdddfdd71dda5ca2c8cdc1aeec3962() {
+ assertEval("argv <- list(list(c('\'1\'', '\'2\'', NA)), ','); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste0_testpaste04_e19fbe568bc46124144590de6db0559b() {
+ assertEval("argv <- list(list(' ‘help.search()’ or ‘', '??'), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste0_testpaste05_82aa5d3a2f29add0579e525a6b8dc765() {
+ assertEval("argv <- list(list(structure(c('coef.aov', 'extractAIC.aov', 'model.tables.aov', 'print.aov', 'proj.aov', 'se.contrast.aov', 'summary.aov', 'TukeyHSD.aov'), class = 'MethodsFunction', info = structure(list(visible = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE), from = structure(c(9L, 9L, 9L, 9L, 9L, 9L, 7L, 7L), .Label = c('CheckExEnv', 'package:base', 'package:datasets', 'package:graphics', 'package:grDevices', 'package:methods', 'package:stats', 'package:utils', 'registered S3method'), class = 'factor')), .Names = c('visible', 'from'), row.names = c('coef.aov', 'extractAIC.aov', 'model.tables.aov', 'print.aov', 'proj.aov', 'se.contrast.aov', 'summary.aov', 'TukeyHSD.aov'), class = 'data.frame')), c('*', '*', '*', '*', '*', '*', '', '')), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste0_testpaste06_265e07a9bca314868e9010530a3830b9() {
+ assertEval("argv <- list(list(character(0), character(0)), '\n'); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpaste0_testpaste07_eef9cdf37b4bc261aa466e661fedcea7() {
+ assertEval("argv <- list(list(), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpathexpand_testpathexpand1_1a68995a5581546a3639af338c7a6d87() {
+ assertEval("argv <- list('/tmp/RtmptPgrXI/Pkgs/pkgA'); .Internal(path.expand(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpathexpand_testpathexpand2_d83c2f739e4661f9fb81bacc702e7257() {
+ assertEval("argv <- list(c('/home/lzhao/hg/r-instrumented/tests/compiler.Rcheck', '/home/lzhao/R/x86_64-unknown-linux-gnu-library/3.0')); .Internal(path.expand(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpathexpand_testpathexpand3_ff7b424e39d830e16bdcda9e3ec5ba62() {
+ assertEval("argv <- list(character(0)); .Internal(path.expand(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmatch_testpmatch1_4fa2310cd81e29b80f38f8e4507dd9f2() {
+ assertEval("argv <- list('kendall', c('pearson', 'kendall', 'spearman'), 0L, TRUE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmatch_testpmatch2_7eef0f043e23b1b8329986d35526b4e2() {
+ assertEval("argv <- list('month', c('secs', 'mins', 'hours', 'days', 'weeks', 'months', 'years', 'DSTdays'), NA_integer_, FALSE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmatch_testpmatch3_0749573973ff3c02405efd8fb006ce16() {
+ assertEval("argv <- list(c(NA_character_, NA_character_, NA_character_, NA_character_), 'NA', NA_integer_, TRUE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmatch_testpmatch4_6b8ff817b0f7f3efdf80533d50c1e210() {
+ assertEval("argv <- list('maximum', 'euclidian', NA_integer_, FALSE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmatch_testpmatch5_e2740d93e8aac67c0f6a2ff2b49ed71e() {
+ assertEval("argv <- list('fanny.object.', 'fanny.object', 0L, FALSE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmatch_testpmatch6_e7bd047e5190e0bce3596cf408f19cc6() {
+ assertEval("argv <- list(c('alpha', 'col', 'border', 'lty', 'lwd'), c('col', 'border', 'alpha', 'size', 'height', 'angle', 'density'), NA_integer_, TRUE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmatch_testpmatch7_3e0ba970b44a4b95df9f2f19e0a1a560() {
+ assertEval("argv <- list('unique.', 'unique.array', 0L, FALSE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmatch_testpmatch8_05d87f8539db78d8be2bc87e75cd0aaa() {
+ assertEval("argv <- list(character(0), c('labels', 'col', 'alpha', 'adj', 'cex', 'lineheight', 'font'), NA_integer_, TRUE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmax_testpmax1_577dbb437ac154628f077467816101fe() {
+ assertEval("argv <- list(FALSE, 5L, 12); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmax_testpmax10_e76c5f2bff2d1ed705c10245445ec187() {
+ assertEval("argv <- list(FALSE, c(1.05, 1.92, 0.36, 4.98, 4.56, 0.69, -5.97, 1.26, 5.58, -0.06, -4.92, -1.38, -0.3, 3.75, 1.11, 0.93, 3.33, 4.95, 0.99, 2.67, -0.75, -2.61, -0.66, 2.13, -6.78, 2.31, -0.15, 0.96, -1.92, 1.17, 0.57, -4.86, 1.11, 0.06, 2.91, -7.86, 0.45, 4.65, -4.23, -7.05, -1.29, 1.71, -1.98, -0.24, 0.06, 0.72, -0.99, -0.09, -3.39, 0.96, 4.65, 6.39, -0.3, -0.96, -2.01, 4.32, 0.12, -3.3, -2.85, -0.57, -2.04, -1.29, -2.52, 2.07, -1.95, 2.13, 0.57, 1.35, 1.35, -3.57, 3.9, 0.42, -1.08, -1.5, -1.41, -3.93, -3.06, 3.51, 4.53, -0.99, -0.03, -1.77, -0.84, -0.54, -3.21, 1.98, -2.13, 5.64, -0.42, -0.57, 2.52, 1.32, 3.99, -0.6, -1.35, 4.38, 3, -3.06, 2.04, 2.52), 0); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmax_testpmax11_4028665897dd35dd481469eba539d54c() {
+ assertEval("argv <- list(FALSE, c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L), 7L, c(7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 6L)); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmax_testpmax12_e6edb5d0881bbda799bf365556658391() {
+ assertEval("argv <- list(FALSE, 1:7, structure(c(2, 3, 4, 2, 2, 2), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('a', '')))); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmax_testpmax13_1600b3cabda6c0beb7c32b97933824dd() {
+ assertEval("argv <- list(FALSE, c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE)); .Internal(pmax(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmax_testpmax14_80e524df95a2776589a3d3ad4eea1117() {
+ assertEval("argv <- list(FALSE, structure(c(0, 0, -0.0906283137921162, -0.0801994352402973, -0.0235093686536505, -0.131187875867331, -0.131187875867331, -0.131187875867331, -0.131187875867331, 0, 0, 0, -0.106539777104723, -0.106539777104723, -0.106539777104723, 0, 0, 0.126786975893341, 0.126786975893341, 0.126786975893341, 0, -0.131187875867331, -0.131187875867331, -0.131187875867331, 0, -0.106539777104723, -0.106539777104723, -0.106539777104723, 0, 0, 0, -0.106539777104723, 0.172297822926899, 0.172297822926899, 0, 0, 0, 0, 0, -0.106539777104723, -0.106539777104723, -0.106539777104723, -0.106539777104723, 0, 0, 0, 0.172297822926899, 0.172297822926899), .Dim = c(12L, 4L)), 0); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmax_testpmax2_17ea7566c426093659e50e7e5f08d0aa() {
+ assertEval("argv <- list(FALSE, -100, structure(c(-Inf, 82.9775012103133, 8.55983483385341e+101, -Inf, 79.3831968838961, 8.55983483385341e+101), .Names = c('', '', '', '', '', ''))); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmax_testpmax3_e2111b6921e28636ab438e66f1b7aceb() {
+ assertEval("argv <- list(FALSE, c(0L, 1L, 1L, 1L, 2L), 5L, c(6L, 5L, 5L, 5L, 4L)); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmax_testpmax4_c2a123a6b1fc765eba27203547ed16a4() {
+ assertEval("argv <- list(FALSE, 0, numeric(0)); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmax_testpmax5_53770b6669953d0dc54a256d5f75a6d1() {
+ assertEval("argv <- list(FALSE, structure(c(63.5607991023966, 46.8465846258113, 40.7088275958184, 31.3395189414991, 42.5666751143734, 47.0610532806931, 23.9315410227325, 43.0690616089581, 66.7869292908986, 49.2243580808943, 31.6784834018036, 24.3875466143556, 48.4619434336134, 53.5787701502931, 25.0466211495357, 45.0758464889871, 66.9256619232735, 49.3266089980428, 31.7843035976521, 24.4690118450696, 50.7406402769298, 56.0980619029545, 17.201254072711, 30.956714016252), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24')), 2.22044604925031e-16); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmax_testpmax6_463977440101226b958d5647d70733a7() {
+ assertEval("argv <- list(FALSE, FALSE, FALSE); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmax_testpmax7_12e4d25d490485d4ce70627b29b17cf2() {
+ assertEval("argv <- list(FALSE, 1L, c(15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L)); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmax_testpmax8_e23c4e0c8028a272a8a0fabc6dfc87cd() {
+ assertEval("argv <- list(FALSE, structure(c(0.0193057433072215, 0.00434780301273374, 0.0549750394687487, 0.510714717273168, 0.0482077179041234, 0.349752997299534, 0.15114556457294, 0.614610341225044, 0.270367074042314, 0.376738504472563, 0.00100006670765362, 0.616978737736246, 0.000115089535300671, 0.114479803728228, 0.0345012755277619, 0.520238904129887, 0.0177036726480846, 0.00345369763623826, 0.0372744005491215, 0.245210198359521, 0.0651842100459408, 0.4506670448926, 0.178923774229777, 0.332256206500317, 0.402299202627705, 0.380395198873703, 0.000984316947253816, 0.403063829062269, 0.000174431720286923, 0.138958543973059, 0.0379750520636422, 0.379247258699123), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32')), 0); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmax_testpmax9_c038e74f3e217137c0de9c9808766677() {
+ assertEval("argv <- list(FALSE, structure(c(35.2592591597479, 59.4999999843455, 12.4507044164935, 2.53543312099158, 10.3703703404756, 42.0000005728299, 8.14084538858294, 34.04724471918, 7.77778142338517, 26.9999999889474, 6.70422536805755, 3.62204828940961, 2.59259259558406, 14.4999999939529, 6.70422536805755, 5.79527724426002, 32.7407408614199, 59.5000000376209, 13.54929592464, 4.46456690511876, 9.62962966454155, 42.0000006104361, 8.85915523787816, 59.9527554977598, 7.22222565443263, 27.0000000131229, 7.29577463400041, 6.37795443616981, 2.40740742585304, 14.500000006936, 7.29577463400041, 10.2047270647755), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32')), 2.22044604925031e-16); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmin_testpmin1_72e68bfc3fae179c2ac94236955f06ae() {
+ assertEval("argv <- list(FALSE, c(0, 0.25, 0.5, 0.75, 1), 1); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmin_testpmin10_04ee451767a8d8cae02fb34ae2a41eae() {
+ assertEval("argv <- list(FALSE, 1, 0.341867139159); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmin_testpmin11_96e9aae810452d3c92e783cf262716d8() {
+ assertEval("argv <- list(FALSE, c(2.35405350797934e-06, 0.000210159024072429, 0.000257684187404011, 0.000981478332360736, 0.00105260958830543, 0.00124148072892802, 0.00132598801923585, 0.00156850331255678, 0.00225455732762676, 0.003795380309271, 0.00611494315340942, 0.0161395372907077, 0.0330242962313738, 0.0353834177611007, 0.0523699658057458, 0.068319089314331, 0.0705922565893261, 0.0880512860101142, 0.0940103983967277, 0.112979808322889, 0.211501681388388, 0.492273640304204, 0.605329775053071, 0.626223946736039, 0.739515289321684, 0.828110328240387, 0.86333312789587, 1.19065433061771, 1.89079625396729, 2.05849377808347, 2.20921371984431, 2.85600042559897, 3.04889487308354, 4.66068200259841, 4.83080935233713, 4.92175460488491, 5.31945286062773, 5.75155046407955, 5.78319462345744), 0.943789021783783); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmin_testpmin2_e54be3c218a34fb4c1b808215121e317() {
+ assertEval("argv <- list(FALSE, c(1.01547865839261, 1.01252937204691, 1.00644625408792, 0.998699246049516, 0.989861830865133, 0.980229984263028, 0.969980509594864, 0.959229159804225, 0.948056660278026, 0.948056660278026, 0.936413637553504, 0.924430242566905, 0.924430242566905, 0.912012661079992, 0.912012661079992, 0.912012661079992, 0.912012661079992, 0.912012661079992, 0.912012661079992, 0.89856564301575, 0.89856564301575, 0.89856564301575, 0.89856564301575, 0.884221004526004, 0.884221004526004, 0.884221004526004, 0.884221004526004, 0.868846889674391, 0.852918138766346, 0.852918138766346, 0.852918138766346, 0.836013989965276, 0.836013989965276, 0.818281118997659, 0.818281118997659, 0.799674858806929, 0.78048190648179, 0.760752205123712, 0.740524405390135, 0.698688252548957, 0.677121358432204, 0.677121358432204, 0.677121358432204, 0.653968759838845, 0.630226345284056, 0.60591293760604, 0.5810405538867, 0.5810405538867, 0.554772713636871, 0.554772713636871, 0.526885054753327, 0.526885054753327, 0.497124929362659, 0.497124929362659, 0.465290373327728, 0.431410832191818, 0.395597572090297, 0.358012869967492, 0.358012869967492, 0.358012869967492, 0.390645999939295, 0.390645999939295, 1.00856963764107, 1.00691545377429, 1.00354783420184, 0.994430782349702, 0.989161076962549, 0.983568844113983, 0.971651869906627, 0.965403818059832, 0.958998025317496, 0.952453588123512, 0.945785731840592, 0.939006829762577, 0.932127100227826, 0.925155098145928, 0.918098070593368, 0.910962219832367, 0.903752901643838, 0.896474777439562, 0.889131932689408, 0.874266085562073, 0.866749125736792, 0.85917963981466, 0.85917963981466, 0.85917963981466, 0.851432533571458, 0.851432533571458, 0.835646571743332, 0.819657377450186, 0.811591248493136, 0.811591248493136, 0.803403072648503, 0.803403072648503, 0.803403072648503, 0.79500789222886, 0.79500789222886, 0.78647848620035, 0.777810139927498, 0.777810139927498, 0.768997769554365, 0.760132009504045, 0.751214427604144, 0.751214427604144, 0.751214427604144, 0.742042333451995, 0.742042333451995, 0.732706928458195, 0.723314130803801, 0.713865427684027, 0.713865427684027, 0.704242881823747, 0.704242881823747, 0.694438026993695, 0.684573363315093, 0.674650164742493, 0.664669564073024, 0.664669564073024, 0.664669564073024, 0.654342845821626, 0.643951412016272, 0.633496370097346, 0.633496370097346, 0.622814395282618, 0.622814395282618, 0.611712238653597, 0.600530813249145, 0.589271296091113, 0.577934661160654, 0.577934661160654, 0.554603983179207, 0.542813560886543, 0.530698712197854, 0.530698712197854, 0.518231810914377, 0.518231810914377, 0.518231810914377, 0.505091485230836, 0.491816896403255, 0.478408881208852, 0.464867758182769, 0.464867758182769, 0.450831087639633, 0.43663736059032, 0.422285766886131, 0.422285766886131, 0.407334269006221, 0.392187384239101, 0.376842383287708, 0.376842383287708, 0.36074886771613, 0.344393472477708, 0.327769800745284, 0.310869313273075, 0.293681131444043, 0.27619182464681, 0.258385252532011, 0.240242648154923, 0.221743435532848, 0.202868148187672, 0.183607543425597, 0.183607543425597, 0.16434288099768, 0.16434288099768, 0.16434288099768, 0.16434288099768, 1.01958384078021, 1.0158820929578, 1.00818641731953, 0.998355892450852, 0.98711678103063, 0.974844224342501, 0.961762390694789, 0.94801800556359, 0.933713296997721, 0.918922795982771, 0.918922795982771, 0.903505632185222, 0.887664218536847, 0.8714385967694, 0.854601072478364, 0.837400228461143, 0.81986117753083, 0.80200434269104, 0.783846415628184, 0.765401054645917, 0.746679400612251, 0.727690462294359, 0.70844140545579, 0.688937769124757, 0.669183625153216, 0.649181692191925, 0.628933411668998, 0.608438990755048, 0.608438990755048, 0.587078835123946, 0.565417411428399, 0.543452081149807, 0.521178337588507, 0.498589701519445, 0.475677565090786, 0.475677565090786, 0.451501204504207, 0.426861888982249, 0.401742325799741, 0.376120821121693, 0.349971441565183, 0.323265236972233, 0.323265236972233, 0.294966951140867, 0.265661696527275, 0.265661696527275, 0.24198035833067, 0.229359831745471, NA, NA), 1); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmin_testpmin3_897bd631d9a55fa318b4b3de23375478() {
+ assertEval("argv <- list(FALSE, c(19.7787405591752, 12504507.4953993, 12504507.4953993, 5.96190157728191e+41), 1); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmin_testpmin4_47bf1e411d8a55724829d60837438c00() {
+ assertEval("argv <- list(FALSE, structure(c(2, 3, 4, 2, 2, 2), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('a', ''))), 1:7); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmin_testpmin5_2406b271107468c875aa9afae3f93b53() {
+ assertEval("argv <- list(FALSE, structure(c(-2.30560410637911, -1.56788329848973, -0.885216282233891, -0.246592299284877, 0.350190802022645, 0.913941628350052, 1.44466017969734, 1.94895291106052), .Names = c('1', '2', '3', '4', '5', '6', '7', '8')), 700); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmin_testpmin6_b00af5eb9844ca72a2a0c5e51c4b6be1() {
+ assertEval("argv <- list(FALSE, 1, structure(numeric(0), .Dim = c(4L, 0L))); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmin_testpmin7_12e21777f7ad77dd64c735ce36ccc26c() {
+ assertEval("argv <- list(FALSE, FALSE, FALSE); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmin_testpmin8_636bcd8067c2ba4023c0db564bad03dc() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(pmin(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpmin_testpmin9_4ec25d509351b9f32214421601e1a414() {
+ assertEval("argv <- list(FALSE, 48L, 19L); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpolyroot_testpolyroot1_a4e8741b0d2003d978ab0e51bbe41355() {
+ assertEval("argv <- list(1:2); .Internal(polyroot(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpolyroot_testpolyroot2_d20692084f8b005f6ccd4c11912ac209() {
+ assertEval("argv <- list(FALSE); .Internal(polyroot(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpolyroot_testpolyroot3_b1546bf612d8703e9484476c76b78305() {
+ assertEval("argv <- list(structure(c(1, 0.035205614861993, 0.237828814667385), .Names = c('', '', ''))); .Internal(polyroot(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpolyroot_testpolyroot4_fdfc6ad09a4ee5deaf5df7ba216824e9() {
+ assertEval("argv <- list(c(1, -1.16348488318732, 0.667550726251972, -0.342308178637008)); .Internal(polyroot(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpolyroot_testpolyroot5_ff2fc3d87ee4382c27712c5bc1df637d() {
+ assertEval("argv <- list(c(1, 0.0853462951557329, -0.433003162033324, 0.141816558560935, -0.268523717394886, -0.0970671649038473)); .Internal(polyroot(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpolyroot_testpolyroot6_50b8cdf9a18ab7584669e0d574175105() {
+ assertEval("argv <- list(c(1, 8, 28, 56, 70, 56, 28, 8, 1)); .Internal(polyroot(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpretty_testpretty1_c23f2c6b50cc60e61b467e4afc8f808e() {
+ assertEval("argv <- list(0L, 3L, 5, 1, 0.75, c(1.5, 2.75), 0); .Internal(pretty(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpretty_testpretty2_c739b1c7e19b698c84aa9eff7e8703dd() {
+ assertEval("argv <- list(-0.03, 1.11, 5, 1, 0.75, c(1.5, 2.75), 0); .Internal(pretty(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpretty_testpretty3_f41f610e453ef5de72a0ad299177795a() {
+ assertEval("argv <- list(-6.64448090063514e-06, 6.64454021993011e-06, 1, 0, 0.75, c(1.5, 2.75), 0); .Internal(pretty(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpretty_testpretty4_f1466620b57e5d6dcf45b3ca7d1bed44() {
+ assertEval("argv <- list(1.234e+100, 1.234e+100, 5, 1, 0.75, c(1.5, 2.75), 0); .Internal(pretty(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprimUntrace_testprimUntrace1_ac44135078d6ab04298e590c5b38ccad() {
+ assertEval("argv <- list(.Primitive('sum'));.primUntrace(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintDeferredWarnings_testprintDeferredWarnings1_9d57a763c4d8b3a0c2a28b3867340b7f() {
+ assertEval(" .Internal(printDeferredWarnings())");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault1_8035e1afca7a694d20dfb499572c06fb() {
+ assertEval("argv <- list(structure(c('-3.001e+155', '-1.067e+107', ' -1.976e+62', '-9.961e+152', ' -2.059e+23', ' 1.000e+00'), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault10_debed0ed7e3f01a1c9b38c30b28b14ff() {
+ assertEval("argv <- list(structure(c(245L, 250L, 255L, 260L, 265L, 270L, 275L, 280L, 285L, 290L, 295L, 300L, 305L, 310L, 315L, 320L, 325L, 330L, 335L, 340L, 345L, 350L, 355L, 360L), .Dim = 2:4, .Dimnames = list(NULL, c('a', 'b', 'c'), NULL)), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault11_fff18ae211ec81454dbfb6c7fa7d9651() {
+ assertEval("argv <- list(Inf, NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault12_eaba7de6f0345c99d4f72f5a287d052e() {
+ assertEval("argv <- list(structure(c(' 79.53', ' 6.00', ' 86.20', ' 6.00', ' 69.77', ' 5.00', ' 98.03', ' 6.00', '108.03', ' 6.00', ' 89.20', ' 6.00', '114.20', ' 6.00', '116.70', ' 6.00', '110.37', ' 6.00', '124.37', ' 6.00', '126.37', ' 6.00', '118.03', ' 6.00'), .Dim = c(6L, 4L), .Dimnames = structure(list(V = c('Golden.rain', 'rep ', 'Marvellous ', 'rep ', 'Victory ', 'rep '), N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = c('V', 'N'))), NULL, FALSE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault13_2a24ecd809633ebe8d7a2fab1a1fc637() {
+ assertEval("argv <- list('2014-03-17 13:47:59 EDT', NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault14_5dfd929919e8e43b125de2ca0ba57679() {
+ assertEval("argv <- list(structure(1:120, .Dim = 2:5, .Dimnames = list(NULL, c('a', 'b', 'c'), NULL, c('V5', 'V6', 'V7', 'V8', 'V9'))), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault15_2eb347d14508384843a03f2f30c4d71a() {
+ assertEval("argv <- list(structure(c('1', '2', '1'), .Dim = 3L, .Dimnames = structure(list(c('1', '2', NA)), .Names = '')), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault17_adf3e5b45d62c6143fa1b00e231ddc22() {
+ assertEval("argv <- list(NULL, NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault18_7d7546758745d5b299e18a5d25ae5f58() {
+ assertEval("argv <- list(quote(breaks ~ (wool + tension) - tension), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault19_e805e1cd6f15c4ba02a94c0582cf413b() {
+ assertEval("argv <- list(c('2007-11-06', '2007-11-06'), NULL, TRUE, NULL, NULL, FALSE, 99999L, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault2_27174360a207a522fae66ced2ce8da07() {
+ assertEval("argv <- list(structure(c(' 1', 'NA', ' 1', '1.1', ' NA', '2.0', '1.1+0i', ' NA', '3.0+0i', 'NA', 'NA', 'NA', 'FALSE', ' NA', ' TRUE', 'abc', NA, 'def'), .Dim = c(3L, 6L), .Dimnames = list(c('1', '2', '3'), c('A', 'B', 'C', 'D', 'E', 'F'))), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault20_678b62c688c1cadfe200447c4fbfc2d2() {
+ assertEval("argv <- list(structure(c(NA, NA, 1L, 9L), .Names = c('size', 'current', 'direction', 'eval_depth')), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault21_a68b584a75d77dc4d708d78a6f135fdd() {
+ assertEval("argv <- list(character(0), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault22_0f627e45d3c52657463cd1ad09c99649() {
+ assertEval("argv <- list(structure('0.01587', .Names = '(Intercept)'), NULL, FALSE, NULL, 2, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault23_b30e52c67dfe3ffe71f84e37b1dbabb6() {
+ assertEval("argv <- list(quote(Y ~ X), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault24_f65eb8d38408e35038adf456a2c709c1() {
+ assertEval("argv <- list(c(0.944550219923258, 0.336629745550454, 0.629688071087003, 0.591416056267917), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault25_988e96057fa22eace51b735a957e593f() {
+ assertEval("argv <- list(c('surname', 'nationality', 'deceased', 'title', 'other.author'), NULL, FALSE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault26_cec4fade4a795b697c881e853f77cddb() {
+ assertEval("argv <- list(structure(c('-0.91', ' 0.81', '', '-0.97'), .Dim = c(2L, 2L), .Dimnames = list(c('x1', 'x3'), c('(Intercept)', 'x1'))), NULL, FALSE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault27_36e8770a7279149786e089ca506fbbcc() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault28_2e54c65c960e6cd4e3cd18db68641fa1() {
+ assertEval("argv <- list(c(1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault29_c07c828534b882f795742b74a73660bb() {
+ assertEval("argv <- list(structure(c('', ' 1', ' 1', ' 1', '', ' 9.93', ' 26.79', '820.91', ' 47.97', ' 57.90', ' 74.76', '868.88', '24.974', '25.420', '28.742', '60.629'), .Dim = c(4L, 4L), .Dimnames = list(c('<none>', '- x4', '- x2', '- x1'), c('Df', 'Sum of Sq', 'RSS', 'AIC'))), NULL, FALSE, '', NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault3_2c992cb06f5f83388b7f5355d9b12698() {
+ assertEval("argv <- list(structure(c('1', '2', '\\b', '4', '5', '\\040', '\\x20', 'c:\\spencer\\tests', '\\t', '\\n', '\\r'), .Dim = c(11L, 1L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11'), 'TEST')), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault30_df344f2be7f9f62a9f8544f8fecc43ba() {
+ assertEval("argv <- list(structure(c(78.7365206866197, 17, 98.5088731171753, 18, 113.842206450509, 18, 123.008873117175, 18), .Dim = c(2L, 4L), .Dimnames = list(c('', 'rep'), c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt'))), 4L, TRUE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault31_0ccbf4015939043bb4c517a3af46a50e() {
+ assertEval("argv <- list(structure(1:3, class = 'myClass'), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault32_a5a182e31db5352633b5bfb4fe8f1f48() {
+ assertEval("argv <- list(structure(c(495L, 515L, 535L, 555L, 575L, 595L, 615L, 635L, 655L, 675L, 695L, 715L), .Dim = 3:4, .Dimnames = list(c('a', 'b', 'c'), NULL)), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault4_07a408c4f936125cc7834ead16815d31() {
+ assertEval("argv <- list(quote(~a + b:c + d + e + e:d), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault5_95a8cbc9ecf7d4ce071eb164f1fc0d11() {
+ assertEval("argv <- list(structure(c(-1.05715, -0.48359, 0.0799, 0.44239, 1.2699), .Names = c('Min', '1Q', 'Median', '3Q', 'Max')), 4L, TRUE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault6_34e55c8f6d989981cad39721a3a95a9d() {
+ assertEval("argv <- list(quote(y ~ A:U + A:V - 1), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault7_c3fb3a6848f651750242692a255a062b() {
+ assertEval("argv <- list(structure(c(NA, NA, NA, 'a', NA, NA, 'b', 'd', NA, '10', '12', '14'), .Dim = 3:4), NULL, TRUE, '----', NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault8_db719c261c43833a18399eb27b8295d2() {
+ assertEval("argv <- list(c('Alb', 'Als', 'Arz', 'Ark', 'Clf', 'Clr', 'Cn', 'Dl', 'Fl', 'Gr', 'Hw', 'Id', 'Il', 'In', 'Iw', 'Kns', 'Knt', 'Ls', 'Man', 'Mr', 'Mssc', 'Mc', 'Mnn', 'Msss', 'Mssr', 'Mnt', 'Nb', 'Nv', 'NH', 'NJ', 'NM', 'NY', 'NC', 'ND', 'Oh', 'Ok', 'Or', 'Pn', 'RI', 'SC', 'SD', 'Tn', 'Tx', 'Ut', 'Vrm', 'Vrg', 'Wsh', 'WV', 'Wsc', 'Wy'), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintdefault_testprintdefault9_b35b730d4fa3b9c61575f789b019336a() {
+ assertEval("argv <- list(structure(c('abc', 'def\'gh'), .Dim = 1:2, .Dimnames = list('1', c('a', 'b'))), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintfunction_testprintfunction1_1021d86ad524e541a9e62f3bebedf3e3() {
+ assertEval("argv <- list(.Primitive('+'), TRUE); .Internal(print.function(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintfunction_testprintfunction2_7841a6fd4b7f2d015cae574dc09db85e() {
+ assertEval("argv <- list(.Primitive('if'), TRUE); .Internal(print.function(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintfunction_testprintfunction3_dab1c69d5d496ff15cb56eb6d8a68170() {
+ assertEval("argv <- list(.Primitive('c'), TRUE); .Internal(print.function(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintfunction_testprintfunction4_e6dc900fb27246048b43ec42f83eb5d0() {
+ assertEval("argv <- list(.Primitive('.Internal'), TRUE); .Internal(print.function(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprintfunction_testprintfunction5_6be715f4c61b9c874a7c0f88aec283b5() {
+ assertEval("argv <- list(.Primitive('log'), TRUE); .Internal(print.function(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprmatrix_testprmatrix1_60cb396f76ef6a0a993cbb6a8046f8b7() {
+ assertEval("argv <- list(structure(c(1, 6, 9, 6, 4, 1, 1, 2, 1, 0.305397625390859, 0.00170825768891124, 8.51556634078892e-12, 0.64987756971621, 0.0197968749793939, 5.28672163823767e-10, 0.00471555351643001, 2.33367394341443e-13, 1.21630438148624e-64, 1, 1, 1), .Dim = c(3L, 7L), .Dimnames = list(NULL, c('time', 'n.risk', 'n.event', 'survival', 'std.err', 'lower 95% CI', 'upper 95% CI'))), c('', '', ''), c('time', 'n.risk', 'n.event', 'survival', 'std.err', 'lower 95% CI', 'upper 95% CI'), TRUE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprmatrix_testprmatrix2_ebeed9735842cb288d5c6274d3905e4f() {
+ assertEval("argv <- list(structure(FALSE, .Dim = c(1L, 1L)), NULL, NULL, TRUE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprmatrix_testprmatrix3_c92fff4f442fac61d8bfb57b40e354ae() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 8, 11, 12, 15, 17, 22, 23, 21, 19, 17, 16, 14, 12, 8, 6, 4, 3, 2, 1, 2, 2, 1, 2, 2, 4, 2, 2, 1, 1, 1, 1, 0.904761904761905, 0.80952380952381, 0.761904761904762, 0.666666666666667, 0.571428571428571, 0.380952380952381, 0.285714285714286, 0.19047619047619, 0.142857142857143, 0.0952380952380952, 0.0476190476190476, 0, 0.0640564484890047, 0.0856890867468988, 0.0929428640903365, 0.102868899974728, 0.107989849431208, 0.105971169574131, 0.0985807941917649, 0.0856890867468988, 0.0763603548321212, 0.0640564484890047, 0.0464714320451682, NaN, 0.670045882235034, 0.568905059924173, 0.519391415328429, 0.425350435565247, 0.337976953859493, 0.183066548820394, 0.116561326436765, 0.0594817013611753, 0.0356573551906667, 0.016259260212247, 0.00332446304253118, NA, 0.975294149038113, 0.923888828559295, 0.893257109782487, 0.82504400879734, 0.749240709943216, 0.577788677745831, 0.481819648009025, 0.37743489058515, 0.321161574680869, 0.261249981968687, 0.197044905698946, NA), .Dim = c(12L, 7L), .Dimnames = list(NULL, c('time', 'n.risk', 'n.event', 'survival', 'std.err', 'lower 95% CI', 'upper 95% CI'))), c('', '', '', '', '', '', '', '', '', '', '', ''), c('time', 'n.risk', 'n.event', 'survival', 'std.err', 'lower 95% CI', 'upper 95% CI'), TRUE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprmatrix_testprmatrix4_b248179e13be08e76e43608895dce796() {
+ assertEval("argv <- list(structure(c(952L, 3622L, 202L, 406L), .Dim = c(2L, 2L), .Dimnames = list(c('subcohort', 'cohort'), c('1', '2'))), c('subcohort', 'cohort'), c('1', '2'), FALSE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprmatrix_testprmatrix5_d5511f65bf3cef3bd9075a4969ad40f1() {
+ assertEval("argv <- list(structure(c(-1.89646294299258, 1.16675019914746, -8.10054918052941, -5.02922966334328, -0.332284173685658, -0.370285767776029, -0.422218802914528, 0.27824687717147, NA, 0.150098588668891, 3.21153879975245, 0.000303372486059531, 0.00654384959664698, 0.717283460804982, 0.690536969224971, 0.655590578569862, 1.32081223535046, NA, 1.38078223740269, 0.565646487676971, 0.698724423746393, 0.770086232143856, 0.0568682431416458, 0.116409970657657, 0.0584328435912827, 0.0510212342180821, 0, -1.37346997348395, 2.06268442316178, -11.5933390979754, -6.53073571948212, -5.84305326362929, -3.1808767383421, -7.22571035337252, 5.45355049590036, NA, 0.17, 0.039, 0, 6.5e-11, 5.1e-09, 0.0015, 5e-13, 4.9e-08, NA), .Dim = c(9L, 5L), .Dimnames = list(c('toccfarm', 'toccoperatives', 'toccprofessional', 'toccsales', 'tocccraftsmen:education', 'toccfarm:education', 'toccoperatives:education', 'toccprofessional:education', 'toccsales:education'), c('coef', 'exp(coef)', 'se(coef)', 'z', 'p'))), c('toccfarm', 'toccoperatives', 'toccprofessional', 'toccsales', 'tocccraftsmen:education', 'toccfarm:education', 'toccoperatives:education', 'toccprofessional:education', 'toccsales:education'), c('coef', 'exp(coef)', 'se(coef)', 'z', 'p'), TRUE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprmatrix_testprmatrix6_63a9003a721f9c1e855e025666d1abf2() {
+ assertEval("argv <- list(structure(c('splines-package', 'as.polySpline', 'asVector', 'backSpline', 'bs', 'interpSpline', 'ns', 'periodicSpline', 'polySpline', 'predict.bs', 'predict.bSpline', 'predict.nbSpline', 'predict.npolySpline', 'predict.ns', 'predict.pbSpline', 'predict.ppolySpline', 'spline.des', 'splineDesign', 'splineKnots', 'splineOrder', 'splines', 'xyVector', 'splines-package', 'polySpline', 'asVector', 'backSpline', 'bs', 'interpSpline', 'ns', 'periodicSpline', 'polySpline', 'predict.bs', 'predict.bSpline', 'predict.bSpline', 'predict.bSpline', 'predict.bs', 'predict.bSpline', 'predict.bSpline', 'splineDesign', 'splineDesign', 'splineKnots', 'splineOrder', 'splines-package', 'xyVector'), .Dim = c(22L, 2L)), NULL, c('Column 1', 'Column 2', 'Column 3'), FALSE, TRUE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprmatrix_testprmatrix7_91f847560597d197de0592dbb3433eb7() {
+ assertEval("argv <- list(structure(c(' 0.228763', '-0.000666', '', '0.08909', '0.00426', '', '0.08899', '0.00426', '', '6.59', '0.02', '6.02', '1.00', '1.00', '3.06', '0.01', '0.88', '0.12'), .Dim = c(3L, 6L), .Dimnames = list(c('male', 'tt(agechf), linear', 'tt(agechf), nonlin'), c('coef', 'se(coef)', 'se2', 'Chisq', 'DF', 'p'))), c('male', 'tt(agechf), linear', 'tt(agechf), nonlin'), c('coef', 'se(coef)', 'se2', 'Chisq', 'DF', 'p'), FALSE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprmatrix_testprmatrix8_610234c13c958d0245568ec14852ecfd() {
+ assertEval("argv <- list(structure(c(' 0.00561', '-1.65487', '', '0.012', '0.483', '', '0.00872', '0.38527', '', ' 0.22', '11.74', '20.33', ' 1.0', ' 1.0', '13.9', '0.64000', '0.00061', '0.12000'), .Dim = c(3L, 6L), .Dimnames = list(c('age', 'sex', 'frailty(id, dist = \'t\', c'), c('coef', 'se(coef)', 'se2', 'Chisq', 'DF', 'p'))), c('age', 'sex', 'frailty(id, dist = \'t\', c'), c('coef', 'se(coef)', 'se2', 'Chisq', 'DF', 'p'), FALSE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinprod_testprod1_e3c10d1288d5b888cbc0c7c52578d5e3() {
+ assertEval("argv <- list(9L);prod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinprod_testprod10_e1494e05b9107ae9c2d91b8ea3945c61() {
+ assertEval("prod( );");
+ }
+
+ @Test
+ public void TestrGenBuiltinprod_testprod11_444155a2fd66d2da798ec4400cbed401() {
+ assertEval("argv <- list(numeric(0));prod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinprod_testprod2_d5fed814f10821c421305e0e621257d9() {
+ assertEval("argv <- list(c(1000L, 1000L));prod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinprod_testprod3_9794849bdb6575f5379fbffa56c0639f() {
+ assertEval("argv <- list(c(4, 2.5, 1.3, -1.20673076923077));prod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinprod_testprod4_3d86cf121e4561b572662e1723a632bf() {
+ assertEval("argv <- list(structure(c(4L, 4L, 2L), .Names = c('Hair', 'Eye', 'Sex')));prod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinprod_testprod5_ddf539c72d5be0c972f23ef5743443b4() {
+ assertEval("argv <- list(integer(0));prod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinprod_testprod6_9de3cf7cd25bd6f50a017e40ee6796b2() {
+ assertEval("argv <- list(structure(c(2, 0, 1, 2), .Dim = c(2L, 2L), .Dimnames = list(c('A', 'B'), c('A', 'B'))));prod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinprod_testprod7_472b609d0fff03bcbc5fe3f118074597() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L), .Dimnames = list(c('A', 'B'), c('A', 'B'))));prod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinprod_testprod8_f63c0acc4c4aa52ea474e1811bc7a816() {
+ assertEval("argv <- list(c(0.138260298853371, 0.000636169906925458));prod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinprod_testprod9_1b54654e4fc4c2ca1eb33a3d5d9120f7() {
+ assertEval("argv <- list(NA_integer_);prod(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsigamma_testpsigamma1_b3ce0b3a4e9f00cae261ee1e1fdf25fe() {
+ assertEval("argv <- list(c(-100, -3, -2, -1, 0, 1, 2, -99.9, -7.7, -3, -2.9, -2.8, -2.7, -2.6, -2.5, -2.4, -2.3, -2.2, -2.1, -2, -1.9, -1.8, -1.7, -1.6, -1.5, -1.4, -1.3, -1.2, -1.1, -1, -0.9, -0.8, -0.7, -0.6, -0.5, -0.4, -0.3, -0.2, -0.0999999999999996, 0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2, 2.1, 2.2, 2.3, 2.4, 2.5, 2.6, 2.7, 2.8, 2.9, 3, 5.1, 77), 1); .Internal(psigamma(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsigamma_testpsigamma2_b5501ab01e61fc203ea02dd23a8bf50f() {
+ assertEval("argv <- list(c(1e+30, 1e+45, 1e+60, 1e+75, 1e+90), 2); .Internal(psigamma(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsigamma_testpsigamma3_82d1df5018204925e2ea7e2e7f75b101() {
+ assertEval("argv <- list(c(1e+20, 1e+30, 1e+40, 1e+50, 1e+60), 5); .Internal(psigamma(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsigamma_testpsigamma4_b95dcdcb5d051b464b6c40439dc6c93a() {
+ assertEval("argv <- list(c(-100, -3, -2, -1, 0, 1, 2, -99.9, -7.7, -3, -2.9, -2.8, -2.7, -2.6, -2.5, -2.4, -2.3, -2.2, -2.1, -2, -1.9, -1.8, -1.7, -1.6, -1.5, -1.4, -1.3, -1.2, -1.1, -1, -0.9, -0.8, -0.7, -0.6, -0.5, -0.4, -0.3, -0.2, -0.0999999999999996, 0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2, 2.1, 2.2, 2.3, 2.4, 2.5, 2.6, 2.7, 2.8, 2.9, 3, 5.1, 77), 0); .Internal(psigamma(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsort_testpsort1_172f2c78025ed325182f497c9584531a() {
+ assertEval("argv <- list(7:8, 1:2); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsort_testpsort10_e5ec8754c5ebb7064bf2ffe927cb7e00() {
+ assertEval("argv <- list(c(-1.05715266611575, -0.873306430909872, -0.548705796690786, -0.288240908441576, -0.0649703574297026, 0.224762433374997, 0.3255545927283, 0.4813346401898, 0.530823516045489, 1.2699009772491), c(1L, 3L, 4L, 5L, 6L, 7L, 8L, 10L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsort_testpsort11_48b2eaf2776e92ef0affd17e60356d35() {
+ assertEval("argv <- list(c(-1.05715266611575, -0.873306430909873, -0.548705796690787, -0.288240908441577, -0.0649703574297025, 0.224762433374994, 0.3255545927283, 0.481334640189799, 0.530823516045488, 1.2699009772491), c(1L, 3L, 4L, 5L, 6L, 7L, 8L, 10L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsort_testpsort12_57d6bd2c7042ca399ffcdefe60086ee0() {
+ assertEval("argv <- list(c(-Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -4.17369555651928e+302, -2.72671165723473e+289, -2.21240023126594e+276, -2.24780296109123e+263, -2.88514442494869e+250, -4.72336572671053e+237, -9.96611412047338e+224, -2.74100158340596e+212, -9.94902790498679e+199, -4.83110332887119e+187, -3.18582547396557e+175, -2.90089508183654e+163, -3.71562599613334e+151, -6.83535188151783e+139, -1.84898368353639e+128, -7.55412056676629e+116, -4.80716085942859e+105, -4.9383857330861e+94, -8.54170618068872e+83, -2.61556777274611e+73, -1.5069799345972e+63, -1.76183826972506e+53, -4.60125024792566e+43, -3.04622557026196e+34, -6.08456909882282e+25, -473300382255715392, -21650982809.6744, -12820.0784261145, -1.12778377684043), c(1L, 13L, 14L, 26L, 38L, 39L, 51L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsort_testpsort13_604221e547b97e1d9794ea4ad42fa86f() {
+ assertEval("argv <- list(c(0.5, 0.6, 1.2, 1.3, 1.6, 5.8, 6.2, 3.7, 5.1, 5, 4, 4, 5.3, 1.4, 6.6, 3.8, 2.6, 3.2, 2.9, 6.8, 10.6, 7.6, 9.3, 8, 10, 10, 8, 10.5, 10.5, 9.7, 9.7, 9.4, 8.9, 8.8, 8, 10.1, 8.5, 9.1, 7.5, 7.4, 7.5, 7.6, 8.4, 8.5, 10.8, 11.1, 12, 12, 18, 17.7, 16, 15, 14, 12.9, 12.7, 12.6, 17.9, 12.1, 17.7, 16.1, 13, 17.3, 17, 16.7, 13, 15.7, 19, 16, 17, 12, 12.2, 12.8, 14.6, 14.9, 17.6, 21, 20.5, 19.6, 20.2, 20.8, 21.1, 21.9, 20.5, 19.2, 22.5, 22, 23.2, 23, 22, 22, 23.4, 23.4, 23.5, 29, 26, 25, 28.5, 25.4, 29, 24.2, 23.9, 24.6, 25.7, 25.3, 28.6, 26.5, 29, 37.8, 30.9, 42, 31, 38.5, 41.4, 43.6, 46.7, 37.4, 45, 35.9, 36.1, 32, 44.4, 40.3, 30, 31, 32, 32.7, 36, 43.5, 33.1, 32.9, 36.3, 38.9, 30, 46.1, 45, 47.1, 47.7, 187, 147, 130, 49.2, 62, 141, 122, 105, 62, 64, 123, 112, 105, 63.6, 60, 49, 66, 87, 56.9, 60.7, 61.4, 156, 62, 64, 82, 88, 48.3, 109, 107, 85, 91, 148, 145, 53.1, 50, 92.2, 224, 293, 300, 211, 200, 197, 203, 359, 370), c(1L, 46L, 47L, 91L, 92L, 136L, 137L, 182L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsort_testpsort14_1f46479d96526c8280961374a4437883() {
+ assertEval("argv <- list(c(-1.36919169254062, -0.667819876370237, -0.253162069270378, -0.0834190388782434, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, 0.0881443844426084, 0.170711734013213, 0.552921941721332), c(1L, 3L, 4L, 5L, 6L, 7L, 8L, 10L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsort_testpsort2_ffa274c0158bcb248ad74c3c91dbf08f() {
+ assertEval("argv <- list(c(0.0499999999999972, 0.300000000000004, 1.1, 0.0500000000000007, 0, 0.25, 1, 2.15, 1.95, 2.09999999999999, 1.95, 2.04999999999999, 2.59999999999999, 2.59999999999999, 2.6, 4.25, 3.45, 2.65000000000001, 3.49999999999999, 3.75000000000001, 2.75, 3.05, 2.8, 4.45, 3.35, 7.7, 14.2), 14L); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsort_testpsort3_0f3c20da4c3fec6bc4e005ac32d2bcea() {
+ assertEval("argv <- list(c(4.23272528138341e-16, 5.68989300120393e-16, 0.0499999999999982, 3.05311331771918e-16, 0.049999999999999, 0.0499999999999994, 3.05311331771918e-16, 0.0499999999999994, 0.100000000000001, 0.0999999999999994, 0.0999999999999994, 0.0500000000000006, 0.15, 0.15, 0.100000000000001, 0.0499999999999997, 0.150000000000001, 0.0999999999999995, 0.0999999999999993, 0.100000000000001, 0.0999999999999994, 0.100000000000001, 0.250000000000001, 0.250000000000001, 0.299999999999999, 0.199999999999999, 0.200000000000001, 0.3, 0.25, 0.199999999999999, 0.199999999999999, 0.150000000000001, 0.200000000000001, 0.199999999999998, 0.249999999999999, 0.199999999999999, 0.3, 0.350000000000001, 0.35, 0.300000000000001, 0.3, 0.350000000000002, 0.35, 0.35, 0.300000000000001, 0.350000000000001, 0.399999999999999, 0.4, 0.349999999999999, 0.350000000000001, 0.400000000000001, 0.300000000000001, 0.400000000000001, 0.449999999999999, 0.45, 0.450000000000001, 0.45, 0.450000000000001, 1.05, 0.7, 0.6, 1, 0.500000000000001, 0.5, 0.699999999999999, 1.05, 0.850000000000001, 0.650000000000001, 0.750000000000001, 0.75, 1, 0.699999999999999, 0.749999999999999, 1.05, 0.549999999999999, 0.500000000000001, 0.7, 0.8, 0.500000000000001, 0.650000000000001, 0.700000000000001, 0.599999999999999, 0.9, 0.75, 0.949999999999999, 0.899999999999999, 0.550000000000001, 1, 1.05, 1.05, 0.600000000000001, 0.6, 1.05, 0.749999999999999, 0.949999999999999, 1.1, 2.15, 1.45, 1.3, 2.1, 4.85, 3.7, 2.05, 1.2, 1.4, 1.3, 1.2, 1.85), 54:55); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsort_testpsort4_1eeecdb14cfb1f3797c171260ca41765() {
+ assertEval("argv <- list(c(0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.0499999999999998, 0.05, 0.05, 0.05, 0.0499999999999999, 0.05, 0.0499999999999999, 0.05, 0.0499999999999999, 0.0499999999999999, 0.05, 0.0499999999999999, 0.0499999999999999, 0.05, 0.05, 0.0499999999999998, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.0499999999999999, 0.05, 0.05, 0.05, 0.0499999999999999, 0.0499999999999999, 0.0499999999999999, 0.05, 0.05, 0.0499999999999999, 0.05, 0.0499999999999999, 0.05, 0.05, 0.05, 0.0499999999999998, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.0555556, 0.05555554, 0.05555556, 0.05555556, 0.05555554, 0.0555556, 0.0555555, 0.0555556, 0.0555555, 0.0555556, 0.0555555, 0.0555556, 0.0555556, 0.0555555, 0.0555555999999999, 0.0555555000000001, 0.0555555999999999, 0.0555555000000001, 0.0555555999999999, 0.0555555, 0.0555556, 0.0555559999999999, 0.055555, 0.0555559999999999, 0.0526315, 0.05263162, 0.05263158, 0.05263158, 0.05263162, 0.0526315, 0.0526316, 0.0526316, 0.0526316, 0.0526316, 0.0526315, 0.0526316, 0.0526316, 0.0526316, 0.0526316, 0.0526315000000001, 0.0526316, 0.0526315999999999, 0.0526316, 0.0526315000000001, 0.0526316, 0.0526316, 0.052632, 0.0526310000000001, 0.0526319999999998, 0.08333333, 0.08333333, 0.08333334, 0.08333333, 0.08333333, 0.08333337, 0.0833333, 0.0833333, 0.0833333, 0.0833333, 0.0833333, 0.0833333, 0.0833333000000001, 0.0833333000000001, 0.0833333999999999, 0.0833333000000001, 0.0833333000000001, 0.0833333999999999, 0.0833333000000001, 0.0833333000000001, 0.0833333999999999, 0.0833333000000001, 0.0833333000000001, 0.0833330000000001, 0.0833330000000001), 76:77); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsort_testpsort5_a40a0e38ca26f6979dc545dcdafed14f() {
+ assertEval("argv <- list(c(-3.35281542033775, -3.57533122743112, -3.23282496934355, -3.3903449466851, -3.39757437954971, -3.36251831175626, -3.22932468384763, -3.22295685034786, -3.21402130636699, -3.11638102275539, -3.09226646401048, -3.21757818016328, -3.0862187014408, -3.08484132891786), 7:8); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsort_testpsort6_8dcabc555fafc94927b76ab4d466d2db() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE), c(66L, 195L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsort_testpsort7_5990e812938cfd9eb62f0df0b062b0d9() {
+ assertEval("argv <- list(c(1, 2, 2, 3, 3, 4, 4, 5), 1:8); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsort_testpsort8_946b48319923464cb51dd074faa98f7c() {
+ assertEval("argv <- list(27:28, 1:2); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpsort_testpsort9_b0e933f6019db4b3a3adda026c3a99e8() {
+ assertEval("argv <- list(c(-Inf, -Inf, Inf, Inf), 1:4); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinpushBackLength_testpushBackLength1_dcfa067b5a946b8102d8e24955cd3eb9() {
+ assertEval("argv <- list(FALSE); .Internal(pushBackLength(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinputconst_testputconst1_905e389d73f4641d410a3185a03514a6() {
+ assertEval("argv <- list(list(NULL), 0, NULL); .Internal(putconst(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinputconst_testputconst2_73c58d71316b1a0596190d1ecdc2c100() {
+ assertEval("argv <- list(list(list(), NULL), 1, list()); .Internal(putconst(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinqr_testqr1_5e55b02e718782ee5db58f9f80b58a00() {
+ assertEval("argv <- list(structure(list(qr = structure(c(-2.99896066496855+0i, 0.0864255261791181+0i, -0.13772470327145+0i, -0.49098351645158+0i, 0.249389337649224+0i, 1.17331892183982+0i, -1.54960102684918+0i, -0.573648421141553+0i, 0.376760682628698+0i, 0.412090084647403+0i, 0.603959683330493+0i, -0.0216928335770876+0i, -1.2469936242596+0i, 0.224366164923213+0i, 0.341798188737913+0i, 1.04294423444024+0i, 0.270564951504877+0i, -0.315381666175534+0i, 0.787566751532822+0i, 0.229154517629245+0i, -2.25109940279642+0i, 0.530750192641659+0i, -0.0977755443891602+0i, 0.6614171819615+0i, -0.0856949989622426+0i), .Dim = c(5L, 5L), .Dimnames = list(c('1', '2', '3', '4', '5'), c('c', 'a', 'd', 'b', 'e'))), rank = 5L, qraux = c(1.50410169966891+0i, 1.21888836143069+0i, 1.71355205288103+0i, 1.90021623833265+0i, 0+0i), pivot = c(3L, 1L, 4L, 2L, 5L)), .Names = c('qr', 'rank', 'qraux', 'pivot'), class = 'qr'), structure(1:5, .Dim = c(5L, 1L))); .Internal(qr_coef_cmplx(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinqr_testqr2_6dcba0e0aead37a7ec4cb919f7a2a5c7() {
+ assertEval("argv <- list(structure(list(qr = structure(c(-2.79657712283236, 0.0791500442336917, 0.123755637403102, 0.089607462331441, 0.175462651449591, 0.0695565565709435, 0.129006956605315, 0.206583197284758, 0.0227114114395308, 0.235970456809858, 0.0914077988155571, 0.226297607634113, 0.0934594628258066, 0.0899795540097744, 0.12841549388179, 0.240520185730483, 0.233009950431413, 0.105133974880502, 0.2095512974465, 0.258964862210899, -2.07025325833148, -1.85301582498188, 0.139094572499947, 0.342556683478902, -0.102024562608463, 0.360699451256097, 0.315324737973941, 0.0873752715112826, 0.2823485467872, -0.239863332146733, -0.00369181667619238, -0.172536775168022, 0.229736826805589, 0.0852501914884386, 0.230310089401495, -0.0314168397035678, 0.0849707357385819, 0.365804687920591, -0.0536336269418447, 0.0845797169641211, -2.03746531175251, -0.489461063366758, -1.40644653583967, -0.00873041883181913, 0.0708276075409328, 0.153420226417602, -0.370069917481653, -0.112816417432651, 0.240125650075004, 0.138426195987046, 0.128552669396225, 0.217325815608225, -0.0223361051263949, -0.0526633296159945, -0.296094517820351, -0.327346352864029, -0.249917267465335, -0.0672115093838751, 0.0654426021596298, -0.240131194574062, -2.06587739268838, -0.339470951293598, -0.49608488205654, 1.14277258876071, 0.201196269542128, 0.0348254315928563, 0.145314253550005, 0.131380830586619, -0.387015716398766, 0.283849139598354, -0.0827284627849877, 0.132994279479374, -0.113393410148955, 0.0518736136418599, -0.422882666833989, -0.141635274746576, -0.181291088091223, 0.196913259592121, -0.0460107390352923, 0.15597817986415), .Dim = c(20L, 4L)), rank = 4L, qraux = c(1.32642615746455, 1.10105053486773, 1.21513331337829, 1.21397558590595), pivot = c(4L, 1L, 3L, 2L)), .Names = c('qr', 'rank', 'qraux', 'pivot'), useLAPACK = TRUE, class = 'qr'), structure(c(0.434659484773874, 0.712514678714797, 0.399994368897751, 0.325352151878178, 0.757087148027495, 0.202692255144939, 0.711121222469956, 0.121691921027377, 0.245488513959572, 0.14330437942408, 0.239629415096715, 0.0589343772735447, 0.642288258532062, 0.876269212691113, 0.778914677444845, 0.79730882588774, 0.455274453619495, 0.410084082046524, 0.810870242770761, 0.604933290276676, 0.654723928077146, 0.353197271935642, 0.270260145887733, 0.99268406117335, 0.633493264438584, 0.213208135217428, 0.129372348077595, 0.478118034312502, 0.924074469832703, 0.59876096714288, 0.976170694921166, 0.731792511884123, 0.356726912083104, 0.431473690550774, 0.148211560677737, 0.0130775754805654, 0.715566066093743, 0.103184235747904, 0.446284348610789, 0.640101045137271, 1.00298403897323, 0.272296643047594, 0.67556063386146, 0.151371688628569, 0.340151631063782, 0.431371175684035, 0.0309030100004748, 0.457057784032077, 0.880189609760418, 0.426803491590545, 0.543544612638652, 0.655281779309735, 0.526419038954191, 0.231530745956115, 0.877417415869422, 0.686553374305367, 0.847202921006829, 0.115471200458705, 0.751486539305188, 0.432544381567277, 0.682788078673184, 0.601541217649356, 0.238868677755818, 0.258165926672518, 0.729309623362496, 0.452570831403136, 0.175126768415794, 0.746698269620538, 0.104987640399486, 0.864544949028641, 0.614644971676171, 0.557159538846463, 0.328777319053188, 0.453131445450708, 0.500440972624347, 0.180866361130029, 0.529630602803081, 0.0752757457084954, 0.277755932649598, 0.212699519237503, 0.0904899418726564, 0.0829104807786643, 0.140637623313814, 0.186663761837408, 0.0510252129565924, 0.195122500695288, 0.189470667047426, 0.14745507678017, 0.160610442608595, 0.0259712139610201, 0.0604781195987016, 0.0592939835228026, 0.157146221613511, 0.0842694476991892, 0.187063216743991, 0.126278517944738, 0.175293296081945, 0.202698964001611, 0.104955473728478, 0.1719400214497, 0.293730155099183, 0.19126010988839, 0.886450943304226, 0.503339485730976, 0.877057543024421, 0.189193622441962, 0.758103052387014, 0.724498892668635, 0.943724818294868, 0.547646587016061, 0.711743867723271, 0.388905099825934, 0.100873126182705, 0.927302088588476, 0.283232500310987, 0.59057315881364, 0.110360604943708, 0.840507032116875, 0.317963684443384, 0.782851336989552, 0.267508207354695, 0.218645284883678, 0.516796836396679, 0.268950592027977, 0.181168327340856, 0.518576137488708, 0.562782935798168, 0.129156854469329, 0.256367604015395, 0.717935275984928, 0.961409936426207, 0.100140846567228, 0.763222689507529, 0.947966354666278, 0.818634688388556, 0.308292330708355, 0.649579460499808, 0.953355451114476, 0.953732650028542, 0.339979203417897), .Dim = c(20L, 7L)), TRUE); .Internal(qr_qy_real(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinqsort_testqsort1_7b537b2f7433445efd77c9d3ec3b790b() {
+ assertEval("argv <- list(3L, FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinqsort_testqsort10_ff147ff6575aaac6502a71f7e941d2d6() {
+ assertEval("argv <- list(c(1, 13, 26, 38, 51, 14, 39), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinqsort_testqsort11_26b6c094621d4545c9cc22d019bcb146() {
+ assertEval("argv <- list(c(-Inf, -Inf, -Inf, -Inf, -Inf, 0, 1, 2, 3, 4, Inf, Inf, Inf, Inf), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinqsort_testqsort12_d466c56eb29c28b1ba088d9084e2eb02() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinqsort_testqsort13_e9ed826951f853f0e59bbcdc5ffda716() {
+ assertEval("argv <- list(c(63, 187, 64, 188), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinqsort_testqsort2_1aa071f2c58ce02b6f73dbf0557c29a3() {
+ assertEval("argv <- list(c(306, 455, 1010, 210, 883, 1022, 218, 166, 170, 567, 144, 613, 707, 88, 301, 624, 371, 394, 574, 118, 390, 12, 26, 533, 53, 814, 93, 460, 583, 303, 519, 643, 189, 246, 689, 65, 132, 223, 175, 163, 428, 230, 840, 11, 176, 791, 95, 196, 806, 284, 147, 655, 239, 30, 179, 310, 477, 364, 107, 177, 156, 429, 15, 181, 283, 13, 212, 524, 288, 363, 442, 54, 558, 207, 92, 60, 202, 353, 267, 387, 457, 337, 404, 222, 458, 31, 229, 444, 329, 291, 292, 142, 413, 320, 285, 197, 180, 300, 259, 110, 286, 270, 81, 131, 225, 269, 279, 135, 59, 105, 237, 221, 185, 183, 116, 188, 191, 174), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinqsort_testqsort3_5b472027dadddd939494ac31fc52b038() {
+ assertEval("argv <- list(numeric(0), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinqsort_testqsort4_445d53daa7494cf807aeee0fa73fef8e() {
+ assertEval("argv <- list(c(1.64819754690779, 0.502718643389684, 0.845467412356198, 0.467247395729231, -0.402055063696625, 0.923526703253396, -0.0080556407117813, 1.03378423761425, -0.799126981726699, 1.00423302095334, -0.311973356192691, -0.88614958536232, -1.9222548962705, 1.61970074406333, 0.519269904664384, -0.055849931834021, 0.696417610118512), TRUE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinqsort_testqsort5_733d7ca9e3a4e2fc1cd05745154d86a1() {
+ assertEval("argv <- list(c(1L, 7L, 11L, 12L, 13L, 19L, 25L, 3L, 8L), TRUE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinqsort_testqsort6_edf82063f39d7d60c84fbebc1aeb88c1() {
+ assertEval("argv <- list(c(1, 2, 4, 6, 8, 3, 5, 7), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinqsort_testqsort7_d2b69f38a06503f8fa8ffe49c19127b7() {
+ assertEval("argv <- list(c(1, 173, 346, 518, 691, 174, 519), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinqsort_testqsort8_fd648fbc1c53d26c3db961b13b45fca3() {
+ assertEval("argv <- list(c(1, 42, 83, 124, 166, 43, 84, 125), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinqsort_testqsort9_0e9137109cb0b330c8e78d07d5edb347() {
+ assertEval("argv <- list(c(-Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 1, 2, 3, 4, 5, Inf, Inf, Inf, Inf, Inf), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinradixsort_testradixsort1_fe1a2a01b922c06c8309859de7af216e() {
+ assertEval("argv <- list(structure(1L, .Label = c('Ctl', 'Trt'), class = 'factor'), TRUE, FALSE); .Internal(radixsort(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinradixsort_testradixsort2_358c949e727b1b7dd2ca071741ce125f() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c('1', '2', NA), class = 'factor'), TRUE, FALSE); .Internal(radixsort(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinradixsort_testradixsort3_f73b54c6836e13bb4f2e62466ea5dd50() {
+ assertEval("argv <- list(structure(c(3L, 7L, 1L, 5L, 10L, 8L, 2L, 6L, 4L, 9L), .Label = c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), class = 'factor'), TRUE, FALSE); .Internal(radixsort(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinradixsort_testradixsort5_5b4f8d55cb71b3d200570fbcb536500d() {
+ assertEval("argv <- list(structure(c(64L, 67L, 92L, 71L, 74L, 69L, 78L, 94L, 95L, 80L, 119L, 114L, 97L, 72L, 75L, 96L, 99L, 54L, 101L, 93L, 58L, 138L, NA, 139L, 126L, 84L, 79L, 62L, 52L, 68L, 81L, 87L, 109L, 35L, 51L, 61L, 59L, 131L, 137L, 73L, 77L, 70L, 90L, 107L, 29L, 89L, 57L, 66L, 76L, 37L, 155L, 16L, 102L, 56L, 123L, 36L, 60L, 40L, 43L, 85L, 65L, 11L, 47L, 103L, 86L, 13L, 63L, 132L, 91L, 98L, 105L, 134L, 14L, 124L, 117L, 55L, 41L, 24L, 50L, 110L, 129L, 88L, 141L, 145L, 133L, 25L, 46L, 120L, 83L, 121L, 104L, 53L, 44L, 113L, 100L, 19L, 108L, 31L, 82L, 127L, 111L, 116L, 38L, 150L, 48L, 22L, 112L, 140L, 27L, 149L, 115L, 130L, 8L, 28L, 106L, 23L, 125L, 33L, 39L, 32L, 15L, 49L, 144L, 7L, 17L, 122L, 118L, 5L, 128L, 12L, 45L, 21L, 42L, 147L, 26L, 1L, 4L, 153L, 151L, 3L, 136L), .Label = c('(360,365]', '(365,370]', '(370,375]', '(375,380]', '(380,385]', '(385,390]', '(390,395]', '(395,400]', '(400,405]', '(405,410]', '(410,415]', '(415,420]', '(420,425]', '(425,430]', '(430,435]', '(435,440]', '(440,445]', '(445,450]', '(450,455]', '(455,460]', '(460,465]', '(465,470]', '(470,475]', '(475,480]', '(480,485]', '(485,490]', '(490,495]', '(495,500]', '(500,505]', '(505,510]', '(510,515]', '(515,520]', '(520,525]', '(525,530]', '(530,535]', '(535,540]', '(540,545]', '(545,550]', '(550,555]', '(555,560]', '(560,565]', '(565,570]', '(570,575]', '(575,580]', '(580,585]', '(585,590]', '(590,595]', '(595,600]', '(600,605]', '(605,610]', '(610,615]', '(615,620]', '(620,625]', '(625,630]', '(630,635]', '(635,640]', '(640,645]', '(645,650]', '(650,655]', '(655,660]', '(660,665]', '(665,670]', '(670,675]', '(675,680]', '(680,685]', '(685,690]', '(690,695]', '(695,700]', '(700,705]', '(705,710]', '(710,715]', '(715,720]', '(720,725]', '(725,730]', '(730,735]', '(735,740]', '(740,745]', '(745,750]', '(750,755]', '(755,760]', '(760,765]', '(765,770]', '(770,775]', '(775,780]', '(780,785]', '(785,790]', '(790,795]', '(795,800]', '(800,805]', '(805,810]', '(810,815]', '(815,820]', '(820,825]', '(825,830]', '(830,835]', '(835,840]', '(840,845]', '(845,850]', '(850,855]', '(855,860]', '(860,865]', '(865,870]', '(870,875]', '(875,880]', '(880,885]', '(885,890]', '(890,895]', '(895,900]', '(900,905]', '(905,910]', '(910,915]', '(915,920]', '(920,925]', '(925,930]', '(930,935]', '(935,940]', '(940,945]', '(945,950]', '(950,955]', '(955,960]', '(960,965]', '(965,970]', '(970,975]', '(975,980]', '(980,985]', '(985,990]', '(990,995]', '(995,1000]', '(1000,1005]', '(1005,1010]', '(1010,1015]', '(1015,1020]', '(1020,1025]', '(1025,1030]', '(1030,1035]', '(1035,1040]', '(1040,1045]', '(1045,1050]', '(1050,1055]', '(1055,1060]', '(1060,1065]', '(1065,1070]', '(1070,1075]', '(1075,1080]', '(1080,1085]', '(1085,1090]', '(1090,1095]', '(1095,1100]', '(1100,1105]', '(1105,1110]', '(1110,1115]', '(1115,1120]', '(1120,1125]', '(1125,1130]', '(1130,1135]'), class = 'factor'), TRUE, FALSE); .Internal(radixsort(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinradixsort_testradixsort6_6527ae8e8bfa9b6ef80afe1471d4a9c0() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), TRUE, FALSE); .Internal(radixsort(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange1_95f6ba5e1e205865d332388bdf381467() {
+ assertEval("argv <- list(c(0.0303542455381287, 0.030376780241572, 0.030376780241572, 0.0317964665585001, 0.0332612222823148, 0.0332612222823148, 0.0332612222823148, 0.0332612222823148, 0.0332612222823148, 0.0332612222823148, 0.0332612222823148, 0.0334189652064179, 0.0352217414818821, 0.0354245538128718, 0.0354245538128718, 0.0376780241572021, 0.0376780241572021, 0.0376780241572021, 0.0376780241572021, 0.0406300703082748, 0.0406300703082748, 0.0406300703082748, 0.0440778799351001, 0.048021453037678, 0.0524607896160087, 0.0524607896160087, 0.0524607896160087, 0.0628267531999279, 0.0693167477915991, 0.0981611681990265, 0.134937804218497, 0.179646655850009, 0.437804218496485), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange10_50d77fbfd0a7e8211b21107dda47c157() {
+ assertEval("argv <- list(structure(c(-3.5527136788005e-14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -6.21724893790088e-15, -1.77635683940025e-15, -8.88178419700125e-16, -1.33226762955019e-15, -1.22124532708767e-15, -8.88178419700125e-16, -1.33226762955019e-15, -1.22124532708767e-15, -1.33226762955019e-15, -1.11022302462516e-15, -8.88178419700125e-16, -1.33226762955019e-15, -8.88178419700125e-16, -8.88178419700125e-16, -4.44089209850063e-16, -4.44089209850063e-16, -1.22124532708767e-15, -1.22124532708767e-15, -8.88178419700125e-16, -1.33226762955019e-15, -8.88178419700125e-16, -4.44089209850063e-16, -6.66133814775094e-16, -7.7715611723761e-16, -4.44089209850063e-16, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -1.33226762955019e-15, -1.33226762955019e-15, -1.33226762955019e-15, -8.88178419700125e-16, -1.11022302462516e-15, -4.44089209850063e-16, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -1.33226762955019e-15, -1.33226762955019e-15, -8.88178419700125e-16, -4.44089209850063e-16, -1.22124532708767e-15, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -1.33226762955019e-15, -1.22124532708767e-15, 5.91171556152403e-12, -1.59161572810262e-12, 4.54747350886464e-13, 1.02318153949454e-12, 1.13686837721616e-12, 4.54747350886464e-13, 9.09494701772928e-13, 9.09494701772928e-13, 1.02318153949454e-12, 9.09494701772928e-13, 0, 9.09494701772928e-13, 4.54747350886464e-13, 0, 0, 3.41060513164848e-13, 9.66338120633736e-13, 1.19371179607697e-12, 2.27373675443232e-13, 9.66338120633736e-13, 2.27373675443232e-13, 0, 4.54747350886464e-13, 9.66338120633736e-13, 0, 6.82121026329696e-13, 4.54747350886464e-13, 2.27373675443232e-13, 4.54747350886464e-13, 1.08002495835535e-12, 1.02318153949454e-12, 8.5265128291212e-13, 7.38964445190504e-13, 9.09494701772928e-13, 4.54747350886464e-13, 5.6843418860808e-13, 7.105427357601e-13, 3.41060513164848e-13, 0, 0, 9.66338120633736e-13, 1.02318153949454e-12, 0, 4.54747350886464e-13, 1.13686837721616e-12, 1.05160324892495e-12, 9.09494701772928e-13, 3.41060513164848e-13, 8.38440428196918e-13, 1.4210854715202e-12, 1.15463194561016e-14, -8.88178419700125e-16, -1.33226762955019e-15, -2.02615701994091e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.77635683940025e-15, 8.88178419700125e-16, 2.22044604925031e-15, 1.77635683940025e-15, 0, 1.33226762955019e-15, 8.88178419700125e-16, 2.22044604925031e-15, 2.22044604925031e-15, 1.77635683940025e-15, 1.77635683940025e-15, 8.88178419700125e-16, 4.44089209850063e-16, 0, 1.77635683940025e-15, 8.88178419700125e-16, 1.77635683940025e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.11022302462516e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.55431223447522e-15, 1.66533453693773e-15, 2.66453525910038e-15, 8.88178419700125e-16, 8.88178419700125e-16, 8.88178419700125e-16, 8.88178419700125e-16, 8.88178419700125e-16, 8.88178419700125e-16, 1.77635683940025e-15, 2.22044604925031e-15, 8.88178419700125e-16, 2.22044604925031e-15, 3.77475828372553e-15, 1.77635683940025e-15, 0, 1.33226762955019e-15, 0, 2.66453525910038e-15), .Dim = c(50L, 4L), .Dimnames = list(c('Australia', 'Austria', 'Belgium', 'Bolivia', 'Brazil', 'Canada', 'Chile', 'China', 'Colombia', 'Costa Rica', 'Denmark', 'Ecuador', 'Finland', 'France', 'Germany', 'Greece', 'Guatamala', 'Honduras', 'Iceland', 'India', 'Ireland', 'Italy', 'Japan', 'Korea', 'Luxembourg', 'Malta', 'Norway', 'Netherlands', 'New Zealand', 'Nicaragua', 'Panama', 'Paraguay', 'Peru', 'Philippines', 'Portugal', 'South Africa', 'South Rhodesia', 'Spain', 'Sweden', 'Switzerland', 'Turkey', 'Tunisia', 'United Kingdom', 'United States', 'Venezuela', 'Zambia', 'Jamaica', 'Uruguay', 'Libya', 'Malaysia'), c('pop15', 'pop75', 'dpi', 'ddpi'))), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange11_69ed5df91e9420b3a2564f75bbdaa3ef() {
+ assertEval("argv <- list(structure(c(4L, 5L, 1L, 5L, 3L, 4L, 5L, 3L, 2L, 4L), .Label = c('a', 'c', 'i', 's', 't'), class = c('ordered', 'factor')), structure(c(4L, 2L, 3L, 5L, 4L, 3L, 5L, 1L, 5L, 4L), .Label = c('a', 'c', 'i', 's', 't'), class = c('ordered', 'factor')), na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange12_83e6d67fe82289bfffd0da8c2bb638fd() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101), .Tsp = c(1, 101, 1), class = 'ts'), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange13_a6bcd01bfb554f1fa83fc60b021cd511() {
+ assertEval("argv <- list(c(NA, 1, 2, 3, -Inf, NaN, Inf), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange14_3cb130d9fab66d6ae5325c61692d575e() {
+ assertEval("argv <- list(c(14.43333, 65.7667), finite = TRUE, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange15_ca33af557f9f65ece5455d08667d5268() {
+ assertEval("argv <- list(structure(c(1, 13, 31), .Dim = 3L, .Dimnames = list(c('1st', '2nd', '3rd'))), finite = TRUE, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange16_c6aec537e2da44ae13fb9e0e8ba97611() {
+ assertEval("argv <- list(list(), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange17_50bd91c099c0512c4786b2764443f68d() {
+ assertEval("argv <- list(structure(c(1012633320L, 1012633620L), class = c('POSIXct', 'POSIXt'), tzone = ''), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange18_579ff4b80053125d3d9eb42d91a28b20() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange19_17532a327c2ebd9a94c3aafe60e07348() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 0L), .Dimnames = list(NULL, NULL)), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange2_1362736cb70ab0f34f0f333e9432899a() {
+ assertEval("argv <- list(structure(c(52L, 52L), .Names = c('y', 'x')), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange20_772434a75f08cf2ecb4b077af62de65e() {
+ assertEval("argv <- list(c(2.00256647265648e-308, 2.22284878464869e-308, 2.22507363599982e-308, 2.2250738585072e-308, 2.22507408101459e-308, 2.22729893236571e-308, 2.44758124435792e-308), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange21_4ba0cfb76b1b3e24a83c17c361f306c7() {
+ assertEval("argv <- list(structure(c(12053, 12054, 12055, 12056, 12057, 12058, 12059, 12060, 12061, 12062), class = 'Date'), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange22_5b633751a5bba349521423ba544a71f8() {
+ assertEval("argv <- list(structure(c(1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 2L, 1L, NA, 1L, 1L, 2L, 1L, 1L, NA, 2L, 2L, 2L, 1L, 1L, 2L, 2L, 2L, 1L, 2L, 1L, NA, 2L, 2L, 1L, NA, 2L, 2L, NA, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 2L, 1L), .Dim = c(20L, 6L), .Dimnames = list(c('ant', 'bee', 'cat', 'cpl', 'chi', 'cow', 'duc', 'eag', 'ele', 'fly', 'fro', 'her', 'lio', 'liz', 'lob', 'man', 'rab', 'sal', 'spi', 'wha'), c('war', 'fly', 'ver', 'end', 'gro', 'hai'))), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange23_43b1c1ab220765390328bc4be46dc1fb() {
+ assertEval("argv <- list(structure(c(13823, NA), class = 'Date'), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange24_eee651b51c64b5a1a3fba55059aa8c11() {
+ assertEval("range( );");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange25_ee5e5b6cad1371347dac9cb7c17bc335() {
+ assertEval("argv <- list(structure(c(1949, 1949.08333333333, 1949.16666666667, 1949.25, 1949.33333333333, 1949.41666666667, 1949.5, 1949.58333333333, 1949.66666666667, 1949.75, 1949.83333333333, 1949.91666666667, 1950, 1950.08333333333, 1950.16666666667, 1950.25, 1950.33333333333, 1950.41666666667, 1950.5, 1950.58333333333, 1950.66666666667, 1950.75, 1950.83333333333, 1950.91666666667, 1951, 1951.08333333333, 1951.16666666667, 1951.25, 1951.33333333333, 1951.41666666667, 1951.5, 1951.58333333333, 1951.66666666667, 1951.75, 1951.83333333333, 1951.91666666667, 1952, 1952.08333333333, 1952.16666666667, 1952.25, 1952.33333333333, 1952.41666666667, 1952.5, 1952.58333333333, 1952.66666666667, 1952.75, 1952.83333333333, 1952.91666666667, 1953, 1953.08333333333, 1953.16666666667, 1953.25, 1953.33333333333, 1953.41666666667, 1953.5, 1953.58333333333, 1953.66666666667, 1953.75, 1953.83333333333, 1953.91666666667, 1954, 1954.08333333333, 1954.16666666667, 1954.25, 1954.33333333333, 1954.41666666667, 1954.5, 1954.58333333333, 1954.66666666667, 1954.75, 1954.83333333333, 1954.91666666667, 1955, 1955.08333333333, 1955.16666666667, 1955.25, 1955.33333333333, 1955.41666666667, 1955.5, 1955.58333333333, 1955.66666666667, 1955.75, 1955.83333333333, 1955.91666666667, 1956, 1956.08333333333, 1956.16666666667, 1956.25, 1956.33333333333, 1956.41666666667, 1956.5, 1956.58333333333, 1956.66666666667, 1956.75, 1956.83333333333, 1956.91666666667, 1957, 1957.08333333333, 1957.16666666667, 1957.25, 1957.33333333333, 1957.41666666667, 1957.5, 1957.58333333333, 1957.66666666667, 1957.75, 1957.83333333333, 1957.91666666667, 1958, 1958.08333333333, 1958.16666666667, 1958.25, 1958.33333333333, 1958.41666666667, 1958.5, 1958.58333333333, 1958.66666666667, 1958.75, 1958.83333333333, 1958.91666666667, 1959, 1959.08333333333, 1959.16666666667, 1959.25, 1959.33333333333, 1959.41666666667, 1959.5, 1959.58333333333, 1959.66666666667, 1959.75, 1959.83333333333, 1959.91666666667, 1960, 1960.08333333333, 1960.16666666667, 1960.25, 1960.33333333333, 1960.41666666667, 1960.5, 1960.58333333333, 1960.66666666667, 1960.75, 1960.83333333333, 1960.91666666667, 1961, 1961.08333333333, 1961.16666666667, 1961.25, 1961.33333333333, 1961.41666666667, 1961.5, 1961.58333333333, 1961.66666666667, 1961.75, 1961.83333333333, 1961.91666666667, 1962, 1962.08333333333, 1962.16666666667, 1962.25, 1962.33333333333, 1962.41666666667, 1962.5, 1962.58333333333, 1962.66666666667, 1962.75, 1962.83333333333, 1962.91666666667), .Tsp = c(1949, 1962.91666666667, 12), class = 'ts'), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange26_c7d2bd70b884cb82f056c09219b3e0f4() {
+ assertEval("argv <- list(c(1.47191076131574, 0.586694550701453, 0.258706725324317, 0.948371836939988, 0.396080061109718, 0.350912037541581), finite = TRUE, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange27_126a6575d96a29afa3a975e38e8aa25a() {
+ assertEval("argv <- list(structure(c(-11.3814849918875, -11.9361690778798, 0.562602893455921, 11.5126028934559, 76.2209544348296, -8.66448499188751, -6.94502893455923, -5.28148499188751, -35.7665182531098, 6.35497106544077, -9.20908119253651, -0.898484991887508, -5.59380090589508, -6.12730922120065, -13.3061334505138, 58.6278831800973, -15.1098009058951, -8.29625696322337, -4.07211681990265, 3.7096551514332, 2.60151500811249, 6.24733923742563, -1.33911681990266, -2.14157287723094, -10.5984849918875, -8.12802893455923, 1.30028697944835, -15.7450289345592, 7.20569077879935, -12.6484849918875, 25.1810423201731, -4.42680090589508, -1.90886979448351), .Names = c('Craig Dunain', 'Ben Rha', 'Ben Lomond', 'Goatfell', 'Bens of Jura', 'Cairnpapple', 'Scolty', 'Traprain', 'Lairig Ghru', 'Dollar', 'Lomonds', 'Cairn Table', 'Eildon Two', 'Cairngorm', 'Seven Hills', 'Knock Hill', 'Black Hill', 'Creag Beag', 'Kildcon Hill', 'Meall Ant-Suidhe', 'Half Ben Nevis', 'Cow Hill', 'N Berwick Law', 'Creag Dubh', 'Burnswark', 'Largo Law', 'Criffel', 'Acmony', 'Ben Nevis', 'Knockfarrel', 'Two Breweries', 'Cockleroi', 'Moffat Chase')), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange28_e01b3941375b3911bf122bef2bfe26b1() {
+ assertEval("argv <- list(c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange29_7369459f26f470e858c22f6787a64cf7() {
+ assertEval("argv <- list(structure(c(1208822400, 1209168000, 1208822400, 1209168000), class = c('POSIXct', 'POSIXt'), tzone = 'GMT'), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange3_4289c23d042dd8efaa4b5d9e7fd3c226() {
+ assertEval("argv <- list(c(-2.92498527625946, 2.46253591019012), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange30_15ae0b8e159ef110c0dce995ee0bc74c() {
+ assertEval("argv <- list(c(1.86606598307361, 339033474310168, 6.15968019059533e+28, 1.11911250438065e+43, 2.03324321833028e+57, 3.69406826275609e+71, 6.71151400229846e+85, 1.21937162496937e+100, 2.2153975381282e+114, 4.02501267984465e+128, 7.31278553581751e+142, 1.32861276588395e+157, 2.41387071044804e+171, 4.38560576593759e+185, 7.96792382084694e+199, 1.44764060891943e+214, 2.63012470966353e+228, 4.77850368783602e+242, 8.6817546752692e+256, 1.57733192575377e+271), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange31_3ac1afb082bd87784fd8014ccb720338() {
+ assertEval("argv <- list(structure(c(1, 0.666666666666667, 0.333333333333333, 0, -0.333333333333333, -0.666666666666667, -1, -1.33333333333333, -1.66666666666667, 1.5, 1, 0.5, 0, -0.5, -1, -1.5, -2, -2.5, 3, 2, 1, 0, -1, -2, -3, -4, -5, -Inf, -Inf, -Inf, NaN, Inf, Inf, Inf, Inf, Inf, -3, -2, -1, 0, 1, 2, 3, 4, 5, -1.5, -1, -0.5, 0, 0.5, 1, 1.5, 2, 2.5, -1, -0.666666666666667, -0.333333333333333, 0, 0.333333333333333, 0.666666666666667, 1, 1.33333333333333, 1.66666666666667, -0.75, -0.5, -0.25, 0, 0.25, 0.5, 0.75, 1, 1.25, -0.6, -0.4, -0.2, 0, 0.2, 0.4, 0.6, 0.8, 1), .Dim = c(9L, 9L)), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange4_e37a3d2afb86c64c2d3f34b91e8b52d7() {
+ assertEval("argv <- list(c(1.4615016373309e+48, 5.70899077082384e+45, 2.23007451985306e+43, 8.71122859317602e+40, 3.40282366920938e+38, 1.32922799578492e+36, 5.19229685853483e+33, 2.02824096036517e+31, 7.92281625142643e+28, 3.09485009821345e+26, 1.20892581961463e+24, 4.72236648286965e+21, 18446744073709551616, 72057594037927936, 281474976710656, 1099511627776, 4294967296, 16777216, 65536, 256, 1, 0.00390625, 1.52587890625e-05, 5.96046447753906e-08, 2.3283064365387e-10, 9.09494701772928e-13, 3.5527136788005e-15, 1.38777878078145e-17, 5.42101086242752e-20, 2.11758236813575e-22, 8.27180612553028e-25), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange5_483d5a9433b8af77923bfc55085857b7() {
+ assertEval("argv <- list(1:3, finite = TRUE, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange6_543a7d7f0eb4e10169280ee4e6d9f297() {
+ assertEval("argv <- list(c(1L, 3L, 7L, 14L, 21L, 20L, 19L, 9L, 4L, 2L), 0, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange7_d23b14406a15403ccb13aec607da16dd() {
+ assertEval("argv <- list(c(8.2, 9.7, 12.25, 16.5, 21.5, 14.5, 20, 23.45, 25.8, 27.3, 22.4, 24.5, 25.95, 27.3, 30.9), numeric(0), NULL, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange8_ed3c132e8605a668d3e363e592c434a9() {
+ assertEval("argv <- list(structure(c(3L, 2L, 1L), .Label = c('A', 'B', 'C'), class = c('ordered', 'factor')), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrange_testrange9_50e22ebb3787e7b87ac286566ba149d6() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L), hour = c(8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 10L, 10L, 11L, 11L, 11L, 11L, 11L, 11L, 12L, 12L, 12L, 12L, 12L, 12L, 13L, 13L, 13L, 13L, 13L, 13L, 14L, 14L, 14L, 14L, 14L, 14L, 15L, 15L, 15L, 15L, 15L, 15L, 16L, 16L, 16L, 16L, 16L, 16L, 17L, 17L, 17L, 17L, 17L, 17L, 18L, 18L, 18L, 18L, 18L, 18L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 20L, 20L, 21L, 21L, 21L, 21L, 21L, 21L, 22L, 22L, 22L, 22L, 22L, 23L, 23L, 23L, 23L, 23L, 23L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L), mday = c(12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L), mon = c(11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L), year = c(90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L), wday = c(3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L), yday = c(345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L), isdst = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt')), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrank_testrank1_48a4b5446a8501dc2186dfdfff23c3e5() {
+ assertEval("argv <- list(c(1, 2, 3), 3L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrank_testrank10_df0c906064ab3f8e2500083304c7406d() {
+ assertEval("argv <- list(c(0.0244473121385049, 0.0208069652959635, 0.00198363254553387, -0.0529221973952693, 0.0164890605562422, -0.00149317802331189, -0.00414458668937225, -0.0391260369607497, -0.0127200995448093, 0.0111183888673723, 0.03614459302116, -0.00273443474452932, 0.0103131254237995, -0.00143136127438401, -0.0366335514444555, -0.0110399906877088, -0.0104891914308669, -0.00157789861665007, 0.0292636842429564, 0.0203025627349537, -0.0043767777488601, -0.00674011381520054, 0.0185411324740319, 0.0148087639526725, -0.0183227857094651, -0.018821306675337, 0.00969887758262181, 0.0204450782737623, -0.00298871658962484, 0.0234398759771181, 0.0105907055191967, -0.0162815763859567, 0.00907471699575067, -0.0300441479633801, 0.0381223507996197, 0.0526840550960561, -0.00976909588473167, -0.0277768375074461, 0.0151561006764977, -0.00359282193318711, 0.0638896025542924, -0.0010438914218908, 0.0183489539666666, 0.00074493402929487, -0.0197731007347187, 0.00502239164768132, -0.048016837368221, 0.0389877686476984, 0.00407695805281634, 0.057797414062711, 0.0126498543239424, -0.0188865172686347, 0.0162469917717659, -0.0248495524200794, -0.0333500780212535, 0.00775326717655591, -0.0117927765447241, 2.9405377320478e-05, 0.00197768259858777, -0.0156828699257579, -0.0151281440045609, -0.00359612097150966, 0.0313403370108415, -0.0405310449252812, 0.0158005934542395, 0.00885739072926609, 0.0282813640022565, -0.00809212452705879, 0.00984351260718323, 0.00710555853883393, -0.0144325170007544, 0.0321325880127445, 0.0308698841001781, 0.0186275986571656, 0.0422141110037264, 0.0148572667758066, -0.033960845128472, -0.0152504283054679, -0.0325780457387957, -0.0125937520151832, -0.0165034507562293, 0.00112039744236678, -0.0242330078671155, 0.00420399766652167, -0.0174137422806726, 0.047014676147193, 0.0190663795644171, 0.0242131244754732, 0.0102203815371289, 0.0447504856843389, -0.0169123288643312, -0.0122810127527625, 0.0381026258511537, -0.0173103031132602, -0.00551689511296685, -0.0104497655309428, -0.00851268571043338, -0.00742517743166594, 0.0131467615666842, -0.00471747595278646, -1.01191492422851, 2.68607765034082, -0.429158817093737, -0.359113060086774, -0.200381482427124, 1.42533261410281, -0.147128808252653, -0.0752683429340958, -1.36332095751131, -0.648540544492638, 0.12032088086903, -1.17778897251933, 1.06299238526514, -3.03678816357357, 0.613115721579531, -3.07289964707517, -0.601952253673221, -1.05655980889001, -1.304189561362, -0.113793555694785, -3.82871885136002, 2.35316662403712, -3.32994487242401, -0.927060802944771, -2.23184021008569, -1.5016380023869, 4.17433309125669, 0.0347912393865033, -2.57260106086865, -3.28121106883716, 0.900374202545311, -0.037119665429276, -0.636136749087689, -1.8587242949074, -2.97492062028297, -2.15038459323136, 2.00005760742783, -1.24253338959365, -2.76885369476898, 3.73858124484716, 0.850200754744896, -0.477294201826066, 2.11696609741804, 1.77284530274987, -1.23848609646229, 4.41220492908093, -0.51005406028203, -2.84898930042562, -0.288799203908439, 0.41507667846469, 4.61595679811872, 0.211604735787423, 0.913997610846827, -0.154305870713062, -0.668001684733089, -0.0694520566225524, 1.57527921126032, 4.15049001730457, 2.05478487752754, 2.41581679677341, -2.46264684311609, 1.96779114010676, 0.439849607321303, -2.93450005818449, 1.04204548529628, -0.317509209432032, 2.92917462393959, -1.53216399920933, -0.860423507857093, -1.85221899475487, -0.354207922873081, 0.804023558972676, -1.46349634623921, 1.66074633596335, -2.41616557260893, -2.09596882561548, 2.88231541368856, -2.0316949306093, 0.82394942463503, -0.762152102217839, 0.818803679301868, 3.37774657240809, 3.17317686688394, -0.661815601365533, -4.57047107058493, 4.99532317966833, 1.33413233353099, 1.0826546719274, -0.0267990462918174, 1.02021684590585, -0.328751663539334, 0.841389286509026, -0.800493487955288, -2.74041575509492, 1.97567653490976, 3.03949005099909, -0.617481138451227, -2.50657951121538, 1.28448261135565, -0.0894182737879582), 200L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrank_testrank11_307c7ca3820dfbd7de9ffcdec7964b6b() {
+ assertEval("argv <- list(structure(c(4, 7, 6, 0, 0, 2, 4, 9, 3, 6, 0, 1, 5.5, 0.5, 4.5, 5.5, 0.5, 2.5, 0.5, 0.5, 2.5, 4.5, 9.5, 3.5, 1.5, 0.5, 5.5, 0.5, 1.5, 0.5, 0.5, 0.5, 1.5, 1.5, 0.5, 2.5, 2, 0, 7, 1, 1, 2, 0, 0, 0, 0, 3, 1, 0, 2, 0, 2, 0, 3, 2, 2, 0, 1, 3, 1, 4, 6, 0, 7, 0, 1, 2, 5, 11, 11, 9, 2), .Dim = 72L, .Dimnames = list(c('A', 'A', 'A', 'A', 'A', 'A', 'A', 'A', 'A', 'A', 'A', 'A', 'B', 'B', 'B', 'B', 'B', 'B', 'B', 'B', 'B', 'B', 'B', 'B', 'C', 'C', 'C', 'C', 'C', 'C', 'C', 'C', 'C', 'C', 'C', 'C', 'D', 'D', 'D', 'D', 'D', 'D', 'D', 'D', 'D', 'D', 'D', 'D', 'E', 'E', 'E', 'E', 'E', 'E', 'E', 'E', 'E', 'E', 'E', 'E', 'F', 'F', 'F', 'F', 'F', 'F', 'F', 'F', 'F', 'F', 'F', 'F'))), 72L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrank_testrank2_e96f4bc1436e47e4ba7c28e7ef589724() {
+ assertEval("argv <- list(list(), 0L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrank_testrank3_efb65e5226bdb9cf3130ca584be1d750() {
+ assertEval("argv <- list(c(FALSE, FALSE), 2L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrank_testrank4_8a5c34bac583832006afb3d9ea771c82() {
+ assertEval("argv <- list(c(2, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60), 60L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrank_testrank5_a3e4671ab4282ff6205f3cea7793ebc9() {
+ assertEval("argv <- list(structure(c(9.96, 84.84, 93.4, 33.77, 5.16, 90.57, 92.85, 97.16, 97.67, 91.38, 98.61, 8.52, 2.27, 4.43, 2.82, 24.2, 3.3, 12.11, 2.15, 2.84, 5.23, 4.52, 15.14, 4.2, 5.23, 2.56, 7.72, 18.46, 6.1, 99.71, 99.68, 100, 98.96, 98.22, 99.06, 99.46, 96.83, 5.62, 13.79, 11.22, 16.92, 4.97, 8.65, 42.34, 50.43, 58.33), .Names = c('Courtelary', 'Delemont', 'Franches-Mnt', 'Moutier', 'Neuveville', 'Porrentruy', 'Broye', 'Glane', 'Gruyere', 'Sarine', 'Veveyse', 'Aigle', 'Aubonne', 'Avenches', 'Cossonay', 'Echallens', 'Grandson', 'Lausanne', 'La Vallee', 'Lavaux', 'Morges', 'Moudon', 'Nyone', 'Orbe', 'Payerne', 'Paysd'enhaut', 'Rolle', 'Vevey', 'Yverdon', 'Conthey', 'Entremont', 'Herens', 'Martigwy', 'Monthey', 'St Maurice', 'Sierre', 'Sion', 'Boudry', 'La Chauxdfnd', 'Le Locle', 'Neuchatel', 'Val de Ruz', 'ValdeTravers', 'V. De Geneve', 'Rive Droite', 'Rive Gauche')), 46L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrank_testrank6_37a92e56c64fdd44c2cc0d2d8a870a7e() {
+ assertEval("argv <- list(structure(c(3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5), .Names = c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k')), 11L, 'max'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrank_testrank7_3c88f1c0257cc66b5b6794363847a1b1() {
+ assertEval("argv <- list(c('9', '9', '8', '7', '6', '5', '4', '3', '2', '1'), 10L, 'min'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrank_testrank8_0547e2f92789138f7dd8d8a903bf4109() {
+ assertEval("argv <- list(c(2, 1, 3, 4, 5), 5L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrank_testrank9_061a8da99833b1bef5bcf0b2c3a0f511() {
+ assertEval("argv <- list(structure(c('Tukey', 'Venables', 'Tierney', 'Ripley', 'Ripley', 'McNeil', 'R Core'), class = 'AsIs'), 7L, 'min'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinregexec_testregexec1_3e88cb17b9f87db5c0838bf7c74781c7() {
+ assertEval("argv <- list('^(([^:]+)://)?([^:/]+)(:([0-9]+))?(/.*)', 'http://stat.umn.edu:80/xyz', FALSE, FALSE, FALSE); .Internal(regexec(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinregexpr_testregexpr1_b6f240f11cc3b7b8fc6e7bc2efc9eb7f() {
+ assertEval("argv <- list('package:', 'exNSS4', FALSE, FALSE, TRUE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinregexpr_testregexpr10_d1b7d2bb0a0f4cbd12d1f8326aad6f20() {
+ assertEval("argv <- list('package:', 'environmental', FALSE, FALSE, TRUE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinregexpr_testregexpr2_37eb3a0d2845e2d64e3ffc123bd3ce86() {
+ assertEval("argv <- list('éè', '«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè', FALSE, FALSE, TRUE, TRUE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinregexpr_testregexpr3_609f90bdd5d9471e4763c2fccc70a56d() {
+ assertEval("argv <- list('package:', 'graphics', FALSE, FALSE, TRUE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinregexpr_testregexpr4_a4d8a25c4b68282be877713726517424() {
+ assertEval("argv <- list('^.*\\{n', 'my(ugly[file{name', FALSE, FALSE, FALSE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinregexpr_testregexpr5_bb7b5863e60527d381c984f858dcb42e() {
+ assertEval("argv <- list('(\\\\S4method\\{([._[:alnum:]]*|\\$|\\[\\[?|\\+|\\-|\\*|\\/|\\^|<=?|>=?|!=?|==|\\&|\\||\\%[[:alnum:][:punct:]]*\\%)\\}\\{((([._[:alnum:]]+|`[^`]+`),)*([._[:alnum:]]+|`[^`]+`))\\})', '\nread.00Index(file)\n', FALSE, FALSE, FALSE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinregexpr_testregexpr6_ac0c04aab94c40f64d4ef55c4ca3ec7c() {
+ assertEval("argv <- list('\\.([[:alnum:]]+)$', character(0), FALSE, FALSE, FALSE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinregexpr_testregexpr7_136d322b2859044c0aefdd019822e832() {
+ assertEval("argv <- list('(?<first>[[:upper:]][[:lower:]]+) (?<last>[[:upper:]][[:lower:]]+)', c(' Ben Franklin and Jefferson Davis', '\tMillard Fillmore'), FALSE, TRUE, FALSE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinregexpr_testregexpr8_8b3efe350b2d09c965024ae2a6bd5c52() {
+ assertEval("argv <- list('^[[:space:]]*@(?i)attribute', '% 4. Relevant Information Paragraph:', FALSE, TRUE, FALSE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinregexpr_testregexpr9_5eee8b3990bbc5e93332018a33b16837() {
+ assertEval("argv <- list('package:', 'dummy', FALSE, FALSE, TRUE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep1_5e493322b4bfdd64b2fb95fe6a03e8c6() {
+ assertEval("argv <- list(NA, 7); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep10_b7a5fa11e9dcec70c91ff849955a0d6a() {
+ assertEval("argv <- list(c(NA, 3L, 4L), 3L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep11_79d039b793cf3e88291b3fe8e1cb8210() {
+ assertEval("argv <- list(c(NA, NA, 30, -30), 4L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep12_3f14b0c0bca6186ed94b3278e97ee046() {
+ assertEval("argv <- list(c(2, 3, 4, 5, 6, 7, 12, 22), 8L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep13_776ad0510cfff52576d2b20c978b09a8() {
+ assertEval("argv <- list(c('50-54', '55-59', '60-64', '65-69', '70-74'), 20L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep14_be4fd5623a2368997245762295e06dd9() {
+ assertEval("argv <- list(987.338461538462, 2L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep15_681303e0eea3dc333c43568cbcb72655() {
+ assertEval("argv <- list(1:5, 15); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep16_e84dbb7d0ef75d4529e03c5bd7296462() {
+ assertEval("argv <- list(c(NA, 'green', 'black', 'blue'), 4L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep17_8b56a1d3bc47d92eeb60e7bf9fda900e() {
+ assertEval("argv <- list(1, 2L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep18_3629b7d2f81b6878c96475fb0a4d39b6() {
+ assertEval("argv <- list(0, 0L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep19_c90d87666174b1cfb7ae81bcc7d07e42() {
+ assertEval("argv <- list(FALSE, 1L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep2_bcb444aa19088f71b0d6b2b016b227fc() {
+ assertEval("argv <- list(NA, 4L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep3_d2a3119b0e10744506c211eace51d218() {
+ assertEval("argv <- list(-Inf, 1L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep4_4218006633b3483f90e20df8b96786d8() {
+ assertEval("argv <- list(list(), 0L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep5_10b307732bfe2bb0c3299565142503ce() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep6_85dd5457d73c966d7b92a10752cb66a4() {
+ assertEval("argv <- list(c(4.60173175921079, 4.46741031725783, 4.30749719409961, 4.12438637683712, 4.51499342053481, 4.24874137138388, 3.92699081698724, 3.6052402625906, 3.92699081698724), 9L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep7_a315b6cdc653bb0b6be35ac49c198496() {
+ assertEval("argv <- list(c(3L, 6L), 2L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep8_539f77294b46ae29056f304f387342a6() {
+ assertEval("argv <- list(list(c(' ', ' ')), 1L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrep_testrep9_3cc63793e525424d43ae3ba907a85d7a() {
+ assertEval("argv <- list(structure(1:4, .Label = c('A', 'B', 'C', 'D'), class = 'factor', .Names = c('a', 'b', 'c', 'd')), 10); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint1_fbe28e100992f28d660ee44ea6b19f9c() {
+ assertEval("argv <- list(1, 6); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint10_dde17f705e40806f5b55beae204599b7() {
+ assertEval("argv <- list(c(1L, 1L, 2L, 2L), 6); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint11_dc5555706a58d904ec53294c83e09cb1() {
+ assertEval("argv <- list(NA_character_, 3L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint12_2fceba3e68686a96a699896208cf3bb3() {
+ assertEval("argv <- list(NA_character_, 5L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint13_d31b70d4e01d550889ad6d9cb34b03cf() {
+ assertEval("argv <- list(structure(1:4, .Label = c('A', 'B', 'C', 'D'), class = 'factor', .Names = c('a', 'b', 'c', 'd')), 2); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint14_eb20631d35776b024d237f0e37558b93() {
+ assertEval("argv <- list(2e-08, 9); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint15_72dbe7ea9ad32b3c02d87025ccf0d013() {
+ assertEval("argv <- list(c('A', 'B'), structure(list(A = 2L, B = 1L), .Names = c('A', 'B'))); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint16_6f01ab7fcbd2cdcbe7eadd25fae98baf() {
+ assertEval("argv <- list(0.8625, 2); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint17_7a1213eafa82541b8a351bd5838a5af6() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint18_89d713aa24d3bbc416b09d5b3a7c0fcb() {
+ assertEval("argv <- list(c(-1.74520963996789, -1.58308930128988, NA), 100L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint19_a0cb39e445a0be8ce39e2e8af9675046() {
+ assertEval("argv <- list(structure(c(1974, 1974.08333333333, 1974.16666666667, 1974.25, 1974.33333333333, 1974.41666666667, 1974.5, 1974.58333333333, 1974.66666666667, 1974.75, 1974.83333333333, 1974.91666666667, 1975, 1975.08333333333, 1975.16666666667, 1975.25, 1975.33333333333, 1975.41666666667, 1975.5, 1975.58333333333, 1975.66666666667, 1975.75, 1975.83333333333, 1975.91666666667, 1976, 1976.08333333333, 1976.16666666667, 1976.25, 1976.33333333333, 1976.41666666667, 1976.5, 1976.58333333333, 1976.66666666667, 1976.75, 1976.83333333333, 1976.91666666667, 1977, 1977.08333333333, 1977.16666666667, 1977.25, 1977.33333333333, 1977.41666666667, 1977.5, 1977.58333333333, 1977.66666666667, 1977.75, 1977.83333333333, 1977.91666666667, 1978, 1978.08333333333, 1978.16666666667, 1978.25, 1978.33333333333, 1978.41666666667, 1978.5, 1978.58333333333, 1978.66666666667, 1978.75, 1978.83333333333, 1978.91666666667, 1979, 1979.08333333333, 1979.16666666667, 1979.25, 1979.33333333333, 1979.41666666667, 1979.5, 1979.58333333333, 1979.66666666667, 1979.75, 1979.83333333333, 1979.91666666667), .Tsp = c(1974, 1979.91666666667, 12), class = 'ts'), 3L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint2_ca8c9ff757cce553d63bd138ba246ff3() {
+ assertEval("argv <- list(NA_integer_, 1L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint20_491b0390b66db6a67cedcc2a42873e5a() {
+ assertEval("argv <- list(NA, 10L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint21_9def2cb6d04767c085709850cd2ffe4f() {
+ assertEval("argv <- list(c('C', 'A', 'B'), structure(list(C = 1L, A = 1L, B = 1L), .Names = c('C', 'A', 'B'))); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint22_f2fd241b8d4ce0b1ff5bfb591fa47510() {
+ assertEval("argv <- list(NA_real_, 4L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint23_bdda819c0da849cbde62418e7b2971da() {
+ assertEval("argv <- list(0.26784, 49); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint24_8280666f60f8465e6eefa702e913cf63() {
+ assertEval("argv <- list(3.1e-06, 49); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint25_c8eaf452f45b00ae42d98c734a5cfffd() {
+ assertEval("argv <- list(NA, 5L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint26_ab3b24b0c9725d38798a7ad9e4076d5e() {
+ assertEval("argv <- list(TRUE, 6L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint27_b45f722a4cdcfb40e5a382638ffba402() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101), .Tsp = c(1, 101, 1), class = 'ts'), 3L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint3_12ea0e40b7fdb3806e381d36b4426013() {
+ assertEval("argv <- list(1L, 4L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint4_20bb6f9af6b07b4403c6affda51252a6() {
+ assertEval("argv <- list(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), 1); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint5_cb990b8179a6fb9eaae1bb541f1d9486() {
+ assertEval("argv <- list(FALSE, 0L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint6_60b5d716f4193007885ccd48d6926060() {
+ assertEval("argv <- list('', 2L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint7_6887e9ead03307d35952a52816eb9b4c() {
+ assertEval("argv <- list(TRUE, 1L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint8_9413b63b5614160b672d94658dba7cdd() {
+ assertEval("argv <- list(' ', 8L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrepint_testrepint9_3889d482cede0ab2e2d07cba84508d13() {
+ assertEval("argv <- list(c(-4L, 11L, 23L, -3L, -2L, -1L, -6L, 0L, 8L, -13L, 6L, -32L, -8L, NA, 0L), c(10L, 9L, 11L, 17L, 9L, 18L, 8L, 11L, 8L, 15L, 4L, 12L, 12L, 1L, 34L)); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinretracemem_testretracemem1_2962f142b007b2052ba94b324866fab4() {
+ assertEval("argv <- list(FALSE, FALSE);retracemem(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinretracemem_testretracemem2_b724e20006280d50a74dedd24698da53() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')), structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));retracemem(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinrow_testrow1_5c4018cec2b22b156d9045a745051036() {
+ assertEval("argv <- list(c(14L, 14L)); .Internal(row(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrow_testrow2_af1faf60e4447806565d7ab283e7dcb5() {
+ assertEval("argv <- list(c(4L, 3L)); .Internal(row(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrow_testrow3_767666747903f41a8cf76b34905b7e08() {
+ assertEval("argv <- list(0:1); .Internal(row(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowMeans_testrowMeans1_f2b11fb46152ced5234cd53b6c3721b5() {
+ assertEval("argv <- list(structure(c(3, 3, NA, 3, 3, 3, 3, 3, 4, 3, NA, NA, 2, 3, 4, 5), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))), 8, 2, TRUE); .Internal(rowMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowMeans_testrowMeans2_afea9f4775c378f648a4877db86eff1d() {
+ assertEval("argv <- list(structure(c(50.7138381326659, 6.51590327164277, 24.9887625571708, 6.50401666172534, 16.6227411608333, 24.2873904534041, 56.036205319809, 9.42637482307856, 6.7207351702689e-16, 6.51590327164276, 106.05353593478, 13.0563348605106, 29.556736958112, 26.535297847233, 83.1597312749807, 86.1180411620546, 4.28836475146602, 3.05748120025494e-16, 24.9887625571708, 13.0563348605107, 382.901882167719, 28.709795659465, 7.19910301202793, 51.849911207061, 76.6652389324741, 13.4232601222667, 9.57039987233639e-16, 6.50401666172536, 29.556736958112, 28.709795659465, 286.290790661071, 29.5533327979648, 105.611010510127, 106.256264404531, 22.4644024278478, 1.60164752950704e-15, 16.6227411608333, 26.535297847233, 7.19910301202793, 29.5533327979648, 611.022025519874, 52.7749434153259, 19.5698513619914, 23.9507376116895, 1.70761896956049e-15, 24.2873904534041, 83.1597312749807, 51.849911207061, 105.611010510127, 52.7749434153259, 736.165134132116, 133.440685552903, 91.9053353168322, 6.55258708668096e-15, 56.036205319809, 86.1180411620546, 76.6652389324741, 106.256264404531, 19.5698513619915, 133.440685552903, 1401.55449200362, 107.582093653927, 7.67029504004995e-15, 9.42637482307856, 4.28836475146602, 13.4232601222667, 22.4644024278478, 23.9507376116895, 91.9053353168321, 107.582093653927, 57.6052682140803, 4.10709057665822e-15, 6.7207351702689e-16, 3.05748120025493e-16, 9.57039987233639e-16, 1.60164752950703e-15, 1.70761896956049e-15, 6.55258708668095e-15, 7.67029504004995e-15, 4.10709057665822e-15, 2.92823790737107e-31), .Dim = c(9L, 9L)), 9, 9, FALSE); .Internal(rowMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowMeans_testrowMeans3_2e1c51d17a332a5d29882b8fd55f1197() {
+ assertEval("argv <- list(structure(c(2, 2, NA, 2, 2, 2, 2, 2, -5, -5, NA, NA, -5, -5, -5, -5), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))), 8, 2, TRUE); .Internal(rowMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowSums_testrowSums1_04f3d92be3209b25c1d2beefd72183ca() {
+ assertEval("argv <- list(structure(c(1L, 0L, 0L, 0L, 2L, 0L, 0L, 0L, 3L), .Dim = c(3L, 3L)), 3, 3, FALSE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowSums_testrowSums2_afdd0ae5c49672498b8348b7c5a18cc2() {
+ assertEval("argv <- list(structure(c(0.999999999999996, -5.93240323105314e-31, -1.22690013807617e-30, -2.66771163434776e-30, 6.26446113912225e-17, -5.95448228496283e-17, -3.41105197331973e-17, 2.9023639112071e-17, -1.98544126594555e-18, 5.0222594521389e-17, -2.11849144310153e-17, 1.78452635853509e-17, -6.4482597529713e-30, -5.93240323105314e-31, 1, -2.70177878542148e-31, 4.10223078154481e-30, -7.29760565072095e-17, 4.21528303119361e-16, 1.69346505683726e-16, -8.46179388945247e-17, -2.12579366024309e-17, -1.08608258515243e-16, -1.91006916081825e-17, -1.09544412010741e-16, 1.52841800386571e-30, -1.22690013807617e-30, -2.70177878542148e-31, 1, 5.63751592936848e-30, 4.44597451723816e-17, -1.70262938021701e-16, -4.55196812407612e-17, 1.77744051006272e-17, -5.96596846288922e-17, 9.58999363873063e-17, -5.74900426053008e-17, 1.14815157965335e-16, -3.6669706141133e-30, -2.66771163434776e-30, 4.10223078154481e-30, 5.63751592936848e-30, 1, -5.9187048613625e-18, -1.70068399080916e-16, -6.90189597604163e-18, -6.36439216662415e-19, -4.18657854049523e-19, 3.0354538418548e-17, -7.42749951284567e-18, -8.90495022022045e-18, 1.55306990715387e-30, 6.26446113912225e-17, -7.29760565072095e-17, 4.44597451723816e-17, -5.9187048613625e-18, 0.55411820856073, -0.00247216583270833, -0.0121967562426746, -0.0136834443420207, 0.00612437416936414, -0.00919613834986896, -0.017907465564047, 0.0210800496836485, 0, -5.95448228496283e-17, 4.21528303119361e-16, -1.70262938021701e-16, -1.70068399080916e-16, -0.00247216583270833, 0.0915588872840349, 0.00402469784261988, 0.0225004116141538, 0.00428277377776577, 0.0217395090957974, 0.00506691575079725, -0.155787004553276, -1.57863385792422e-15, -3.41105197331973e-17, 1.69346505683726e-16, -4.55196812407612e-17, -6.90189597604163e-18, -0.0121967562426746, 0.00402469784261988, 0.00831687169973403, 0.00905869237132552, 0.00121203034126938, 0.00939616211925082, 0.00270063068023987, -0.0350427136160765, 1.66845523703974e-15, 2.9023639112071e-17, -8.46179388945247e-17, 1.77744051006272e-17, -6.36439216662415e-19, -0.0136834443420207, 0.0225004116141538, 0.00905869237132552, 0.0237646346509256, 0.0107094040391417, 0.0632843775518589, 0.0165995956409034, -0.317638195769953, 3.75582594532732e-16, -1.98544126594555e-18, -2.12579366024309e-17, -5.96596846288922e-17, -4.18657854049523e-19, 0.00612437416936414, 0.00428277377776577, 0.00121203034126938, 0.0107094040391417, 0.000250414165674235, 0.0118733901248423, 0.0032448838873885, -0.0719898325072222, -4.32029144045995e-15, 5.0222594521389e-17, -1.08608258515243e-16, 9.58999363873063e-17, 3.0354538418548e-17, -0.00919613834986896, 0.0217395090957974, 0.00939616211925082, 0.0632843775518589, 0.0118733901248423, 0.0578950164197554, 0.0182925914744869, -0.367565522079614, -1.23944977824402e-15, -2.11849144310153e-17, -1.91006916081825e-17, -5.74900426053008e-17, -7.42749951284567e-18, -0.017907465564047, 0.00506691575079725, 0.00270063068023987, 0.0165995956409034, 0.0032448838873885, 0.0182925914744869, 0.00349919192597366, -0.0788502030216034, 0, 1.78452635853509e-17, -1.09544412010741e-16, 1.14815157965335e-16, -8.90495022022045e-18, 0.0210800496836485, -0.155787004553276, -0.0350427136160765, -0.317638195769953, -0.0719898325072222, -0.367565522079614, -0.0788502030216034, 2.49598569418347, -8.69223914290117e-16, -6.4482597529713e-30, 1.52841800386571e-30, -3.6669706141133e-30, 1.55306990715387e-30, 0, -1.57863385792422e-15, 1.66845523703974e-15, 3.75582594532732e-16, -4.32029144045995e-15, -1.23944977824402e-15, 0, -8.69223914290117e-16, 1), .Dim = c(13L, 13L), .Dimnames = list(c('(Intercept)', 'fac2', 'fac3', 'fac4', '', '', '', '', '', '', '', '', ''), NULL)), 13, 13, FALSE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowSums_testrowSums3_61adb3b2a4f1e60aaca19178ceeaa542() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(16L, 16L), .Dimnames = list(NULL, NULL)), 16, 16, TRUE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowSums_testrowSums4_ced4b843187a15d76b7b1e0a22f30da9() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(16L, 16L), .Dimnames = list(NULL, NULL)), 16, 16, FALSE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowSums_testrowSums5_01e2be80a89f008d7cdf7abc2f991f73() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 3L), .Dimnames = list(NULL, c('wt.loss', 'age', 'I(age)'))), 0, 3, FALSE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowSums_testrowSums6_530c0000fa80b684cdc0ffd3897eda4b() {
+ assertEval("argv <- list(structure(c(1L, 0L, 1L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 1L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), .Dim = c(61L, 4L), .Dimnames = list(c('190', '191', '192', '193', '194', '195', '196', '197', '198', '199', '200', '201', '202', '203', '204', '205', '206', '207', '208', '209', '210', '211', '212', '213', '214', '215', '216', '217', '218', '219', '220', '221', '222', '223', '224', '225', '226', '227', '228', '229', '230', '231', '232', '233', '234', '235', '236', '237', '238', '239', '240', '241', '242', '243', '244', '245', '246', '247', '248', '249', '250'), NULL)), 61, 4, FALSE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowSums_testrowSums7_536f1fe1efe9da8546620e09eb0770e9() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(16L, 16L), .Dimnames = list(NULL, NULL)), 16, 16, TRUE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowsum_testrowsum1_0037d75acd771be7e1c7bacbaf186765() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4), c('Y', 'X', 'Y'), c('X', 'Y'), FALSE, c('X', 'Y')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowsum_testrowsum2_e77888066b8558d6090381bac88a7e3b() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.83678930089809, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.807183221448213, 0, 0, 0, 0, 0, 0, 0, 2.28512598329689, 0, 2.63247834995855, 0, 2.20238351041917, 0, 0.769295244943351, 0, 0, 0, 0, 0, 2.39247868547682, 2.35872046276927, 0, 1.96863683476113, 1.77908247814048, 0, 0, 0, 1.30635392456315, 0, 1.90387659717817, 0, 0.869405556702986, 1.81335102661978, 2.03683243726846, 0, 0.594853387563489, 0, 0, 0.546043346519582, 2.43847447982989, 0, 0, 2.01202685781755, 0, 2.67064226802904, 2.9177625705488, 0.566296850563958, 0, 1.07001449051313, 1.02747153153177, 0, 1.14719850081019, 2.56380862975493, 0.760732567403466, 0.778199262684211, 0, 0.871444851625711, 2.75724254851229, 1.6366914055543, 0.606628090143204, 1.09201998403296, 0.729518678388558, 2.26406822516583, 2.41699231159873, 1.90058654651511), .Names = c('7', '8', '12', '13', '19', '22', '26', '31', '34', '36', '38', '40', '42', '43', '44', '46', '50', '51', '57', '59', '60', '61', '64', '67', '68', '72', '75', '76', '77', '78', '84', '87', '89', '94', '95', '100', '101', '102', '107', '110', '114', '115', '122', '123', '129', '130', '131', '134', '136', '137', '141', '144', '146', '150', '153', '154', '157', '160', '161', '162', '166', '167', '172', '174', '176', '178', '179', '180', '183', '184', '185', '186', '187', '197', '199', '201', '203', '204', '205', '207', '208', '210', '211', '214', '217', '219', '220', '222', '226', '228')), structure(c(310, 361, 654, 728, 61, 81, 520, 473, 107, 122, 965, 731, 153, 433, 145, 95, 765, 735, 5, 687, 345, 444, 60, 208, 821, 305, 226, 426, 705, 363, 167, 641, 740, 245, 588, 166, 559, 450, 529, 351, 201, 524, 199, 550, 551, 543, 293, 511, 511, 371, 201, 62, 356, 340, 315, 182, 364, 376, 384, 268, 266, 194, 348, 382, 296, 186, 145, 269, 350, 272, 292, 332, 285, 243, 276, 79, 240, 202, 235, 224, 239, 173, 252, 92, 192, 211, 175, 203, 105, 177), .Names = c('7', '8', '12', '13', '19', '22', '26', '31', '34', '36', '38', '40', '42', '43', '44', '46', '50', '51', '57', '59', '60', '61', '64', '67', '68', '72', '75', '76', '77', '78', '84', '87', '89', '94', '95', '100', '101', '102', '107', '110', '114', '115', '122', '123', '129', '130', '131', '134', '136', '137', '141', '144', '146', '150', '153', '154', '157', '160', '161', '162', '166', '167', '172', '174', '176', '178', '179', '180', '183', '184', '185', '186', '187', '197', '199', '201', '203', '204', '205', '207', '208', '210', '211', '214', '217', '219', '220', '222', '226', '228')), c(5, 60, 61, 62, 79, 81, 92, 95, 105, 107, 122, 145, 153, 166, 167, 173, 175, 177, 182, 186, 192, 194, 199, 201, 202, 203, 208, 211, 224, 226, 235, 239, 240, 243, 245, 252, 266, 268, 269, 272, 276, 285, 292, 293, 296, 305, 310, 315, 332, 340, 345, 348, 350, 351, 356, 361, 363, 364, 371, 376, 382, 384, 426, 433, 444, 450, 473, 511, 520, 524, 529, 543, 550, 551, 559, 588, 641, 654, 687, 705, 728, 731, 735, 740, 765, 821, 965), FALSE, c('5', '60', '61', '62', '79', '81', '92', '95', '105', '107', '122', '145', '153', '166', '167', '173', '175', '177', '182', '186', '192', '194', '199', '201', '202', '203', '208', '211', '224', '226', '235', '239', '240', '243', '245', '252', '266', '268', '269', '272', '276', '285', '292', '293', '296', '305', '310', '315', '332', '340', '345', '348', '350', '351', '356', '361', '363', '364', '371', '376', '382', '384', '426', '433', '444', '450', '473', '511', '520', '524', '529', '543', '550', '551', '559', '588', '641', '654', '687', '705', '728', '731', '735', '740', '765', '821', '965')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowsum_testrowsum3_b49348678422be87022f6b41f7e0055c() {
+ assertEval("argv <- list(numeric(0), numeric(0), numeric(0), FALSE, character(0)); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowsum_testrowsum4_4b94f446be24947b32223c727b09d1b6() {
+ assertEval("argv <- list(structure(c(0.432389384893196, 2.31273022636069, 0, 2.31273022636069, 0.432389384893196, 0), .Names = c('1', '3', '4', '5', '6', '7')), structure(c(9, 1, 1, 6, 6, 8), .Names = c('1', '3', '4', '5', '6', '7')), c(1, 6, 8, 9), FALSE, c('1', '6', '8', '9')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowsum_testrowsum5_f3643fe89b210518899cf09f8f24ee0c() {
+ assertEval("argv <- list(structure(c(0.102430555555556, 0.102430555555556, 0.102430555555556, 0.546875, -0.078125, 0.477430555555556, -0.0642361111111111, 0.102430555555556), .Names = c('1', '2', '3', '4', '5', '6', '7', '8')), structure(1:8, .Label = c('1', '2', '3', '4', '5', '6', '7', '8'), class = 'factor'), structure(1:8, .Label = c('1', '2', '3', '4', '5', '6', '7', '8'), class = 'factor'), FALSE, c('1', '2', '3', '4', '5', '6', '7', '8')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowsum_testrowsum6_b46f61e9e4e3fe58cf0ee0cba39dfb19() {
+ assertEval("argv <- list(structure(c(0, 0.719170679378362, -0.280829320621638, 0, -0.43834135875385, 0, -0.0525040127116955, 0.783590877798991, -0.365543432545085, -0.0525040127116955, -0.31303941983339, 0, 0, NA), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14')), c(3, 3, 4, 5, 5, 6, 6, 6, 7, 1, 1, 1, 1, 2), c(1, 2, 3, 4, 5, 6, 7), FALSE, c('1', '2', '3', '4', '5', '6', '7')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowsum_testrowsum7_d66396fb53df90189a0ddccdd4ffc3ed() {
+ assertEval("argv <- list(structure(c(0.10270237599789, 2.6083215370191, 11.0196744330572, 2.6083215370191, 0.10270237599789, 0.10270237599789, 0.10270237599789, -0.441795512568419, 2.6083215370191, 0.10270237599789, -0.441795512568419), .Dim = c(11L, 1L), .Dimnames = list(c('11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21'), 'x')), structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Names = c('11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21')), c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), FALSE, c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinrowsum_testrowsum8_6573139ef6d44c9969a20e8b3b202a15() {
+ assertEval("argv <- list(structure(c(1.33333333333333, -1.33333333333333, 1, 1.33333333333333, -2, 0.666666666666667, -0.666666666666667, 0.666666666666667, -0.666666666666667), .Dim = c(9L, 1L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9'), 'x')), structure(c(1, 1, 2, 2, 2, 2, 3, 4, 5), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9')), c(1, 2, 3, 4, 5), FALSE, c('1', '2', '3', '4', '5')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsample_testsample1_23543f512dec63d4d0321295beb65b7f() {
+ assertEval("argv <- list(0L, 0L, FALSE, NULL); .Internal(sample(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsample_testsample2_376937b93fdfd3bcd6fe6b289d99a14e() {
+ assertEval("argv <- list(1L, 1L, FALSE, NULL); .Internal(sample(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsample_testsample3_d3aa572ac3d9a73465f750a9bdb00661() {
+ assertEval("argv <- list(2L, 499, TRUE, c(0, 0.525)); .Internal(sample(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep1_06353b269fd1370b26199688ee5935dd() {
+ assertEval("argv <- list(1, 1);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep10_9596f004e63a224f53f1c0735d3e7751() {
+ assertEval("argv <- list(c(0, 9.88131291682493e-324, 1.03753785626662e-322, 1.02271588689138e-321, 1.02320995253722e-320, 1.02330876566639e-319, 1.02329394369701e-318, 1.02329295556572e-317, 1.02329300497229e-316, 1.02329299015032e-315, 1.02329299212658e-314, 1.0232929922748e-313, 1.02329299227974e-312, 1.02329299228073e-311, 1.02329299228073e-310, 1.02329299228073e-309, 1.02329299228073e-308, 1.02329299228073e-307), 1.02329299228075);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep11_9a29f18830b924d836e51cf4e1f44a1f() {
+ assertEval("argv <- list(structure(c(29.35, 23.32, 23.8, 41.89, 42.19, 31.72, 39.74, 44.75, 46.64, 47.64, 24.42, 46.31, 27.84, 25.06, 23.31, 25.62, 46.05, 47.32, 34.03, 41.31, 31.16, 24.52, 27.01, 41.74, 21.8, 32.54, 25.95, 24.71, 32.61, 45.04, 43.56, 41.18, 44.19, 46.26, 28.96, 31.94, 31.92, 27.74, 21.44, 23.49, 43.42, 46.12, 23.27, 29.81, 46.4, 45.25, 41.12, 28.13, 43.69, 47.2, 2.86999999999999, 4.41, 4.43, 1.67, 0.829999999999999, 2.85, 1.34, 0.669999999999999, 1.06, 1.14, 3.93, 1.19, 2.37, 4.7, 3.35, 3.1, 0.869999999999999, 0.579999999999999, 3.08, 0.959999999999999, 4.19, 3.48, 1.91, 0.909999999999999, 3.73, 2.47, 3.67, 3.25, 3.17, 1.21, 1.2, 1.05, 1.28, 1.12, 2.85, 2.28, 1.52, 2.87, 4.54, 3.73, 1.08, 1.21, 4.46, 3.43, 0.899999999999999, 0.559999999999999, 1.73, 2.72, 2.07, 0.659999999999999, 2329.68000000001, 1507.99, 2108.47, 189.130000000001, 728.470000000001, 2982.88, 662.860000000001, 289.520000000001, 276.650000000001, 471.240000000001, 2496.53, 287.770000000001, 1681.25, 2213.82, 2457.12, 870.85, 289.710000000001, 232.440000000001, 1900.1, 88.940000000001, 1139.95, 1390, 1257.28, 207.680000000001, 2449.39, 601.050000000001, 2231.03, 1740.7, 1487.52, 325.540000000001, 568.560000000001, 220.560000000001, 400.060000000001, 152.010000000001, 579.51, 651.110000000001, 250.960000000001, 768.79, 3299.49, 2630.96, 389.660000000001, 249.870000000001, 1813.93, 4001.89, 813.390000000001, 138.330000000001, 380.470000000001, 766.54, 123.580000000001, 242.690000000001, 2.87000000000001, 3.93, 3.82, 0.219999999999998, 4.56, 2.43, 2.67, 6.51, 3.08, 2.8, 3.99, 2.19, 4.32, 4.52, 3.44, 6.28, 1.48, 3.19, 1.12, 1.54, 2.99, 3.54, 8.21, 5.81, 1.57, 8.12, 3.62, 7.66, 1.76, 2.48, 3.61, 1.03, 0.670000000000002, 2, 7.48, 2.19, 2, 4.35, 3.01, 2.7, 2.96, 1.13, 2.01, 2.45, 0.530000000000004, 5.14, 10.23, 1.88, 16.71, 5.08), .Dim = c(50L, 4L), .Dimnames = list(c('Australia', 'Austria', 'Belgium', 'Bolivia', 'Brazil', 'Canada', 'Chile', 'China', 'Colombia', 'Costa Rica', 'Denmark', 'Ecuador', 'Finland', 'France', 'Germany', 'Greece', 'Guatamala', 'Honduras', 'Iceland', 'India', 'Ireland', 'Italy', 'Japan', 'Korea', 'Luxembourg', 'Malta', 'Norway', 'Netherlands', 'New Zealand', 'Nicaragua', 'Panama', 'Paraguay', 'Peru', 'Philippines', 'Portugal', 'South Africa', 'South Rhodesia', 'Spain', 'Sweden', 'Switzerland', 'Turkey', 'Tunisia', 'United Kingdom', 'United States', 'Venezuela', 'Zambia', 'Jamaica', 'Uruguay', 'Libya', 'Malaysia'), c('pop15', 'pop75', 'dpi', 'ddpi'))), structure(c(29.35, 23.32, 23.8, 41.89, 42.19, 31.72, 39.74, 44.75, 46.64, 47.64, 24.42, 46.31, 27.84, 25.06, 23.31, 25.62, 46.05, 47.32, 34.03, 41.31, 31.16, 24.52, 27.01, 41.74, 21.8, 32.54, 25.95, 24.71, 32.61, 45.04, 43.56, 41.18, 44.19, 46.26, 28.96, 31.94, 31.92, 27.74, 21.44, 23.49, 43.42, 46.12, 23.27, 29.81, 46.4, 45.25, 41.12, 28.13, 43.69, 47.2, 2.87, 4.41, 4.43, 1.67, 0.83, 2.85, 1.34, 0.67, 1.06, 1.14, 3.93, 1.19, 2.37, 4.7, 3.35, 3.1, 0.87, 0.58, 3.08, 0.96, 4.19, 3.48, 1.91, 0.91, 3.73, 2.47, 3.67, 3.25, 3.17, 1.21, 1.2, 1.05, 1.28, 1.12, 2.85, 2.28, 1.52, 2.87, 4.54, 3.73, 1.08, 1.21, 4.46, 3.43, 0.9, 0.56, 1.73, 2.72, 2.07, 0.66, 2329.68, 1507.99, 2108.47, 189.130000000001, 728.470000000001, 2982.88, 662.860000000001, 289.520000000001, 276.650000000001, 471.240000000001, 2496.53, 287.770000000001, 1681.25, 2213.82, 2457.12, 870.85, 289.710000000001, 232.440000000001, 1900.1, 88.9400000000012, 1139.95, 1390, 1257.28, 207.680000000001, 2449.39, 601.050000000001, 2231.03, 1740.7, 1487.52, 325.540000000001, 568.560000000001, 220.560000000001, 400.060000000001, 152.010000000001, 579.51, 651.11, 250.960000000001, 768.79, 3299.49, 2630.96, 389.660000000001, 249.870000000001, 1813.93, 4001.89, 813.390000000001, 138.330000000001, 380.470000000001, 766.54, 123.580000000001, 242.690000000001, 2.87, 3.92999999999999, 3.82, 0.22, 4.56, 2.43, 2.67, 6.51, 3.08, 2.8, 3.99, 2.19, 4.32, 4.52, 3.44, 6.28, 1.48, 3.19, 1.12, 1.54, 2.99, 3.54, 8.21, 5.81, 1.57, 8.12, 3.62, 7.66, 1.76, 2.48, 3.61, 1.03, 0.670000000000002, 2, 7.48, 2.19, 2, 4.35, 3.01, 2.7, 2.96, 1.13, 2.01, 2.45, 0.530000000000002, 5.14, 10.23, 1.88, 16.71, 5.08), .Dim = c(50L, 4L), .Dimnames = list(NULL, c('pop15', 'pop75', 'dpi', 'ddpi'))));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep12_1625ec591dac90f3b7a85ff2f151ef29() {
+ assertEval("argv <- list(1, c(6.25, 36, 36, 56.25, 64, 64, 256, 36, 25, 36, 784, 25, 90.25, 36, 20.25, 100, 196, 9, 20.25, 30.25, 9, 12.25, 36, 4, 9, 16, 36, 25, 42.25, 25, 100, 36, 324, 20.25, 400));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep13_3feeb0a231d4f13d3f69b87b6efe3590() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep14_65c05ddeeafeda38f6377c0a4512aa3a() {
+ assertEval("argv <- list(structure(list(A = c(52L, 52L, 47L, 45L, 40L, 37L, 27L, 27L, 23L, 22L, 21L, 25L, 24L, 22L, 22L, 20L, 16L, 17L, 14L, 13L, 13L, 14L, 24L), F = c(42L, 44L, 48L, 49L, 50L, 54L, 58L, 54L, 59L, 59L, 60L, 53L, 54L, 55L, 56L, 58L, 62L, 57L, 54L, 55L, 52L, 47L, 56L), M = c(6L, 4L, 5L, 6L, 10L, 9L, 15L, 19L, 18L, 19L, 19L, 22L, 22L, 23L, 22L, 22L, 22L, 26L, 32L, 32L, 35L, 39L, 20L)), .Names = c('A', 'F', 'M'), class = 'data.frame', row.names = c(NA, 23L)), 100);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep15_ac422f08d33b8465c43c366701c79e63() {
+ assertEval("argv <- list(c(1, 0), structure(c(1, 0, 0, 1), .Dim = c(2L, 2L)));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep16_04768845c16f7d46591acb6c2369960d() {
+ assertEval("argv <- list(structure(c(126.49966838981, 123.340306958365, 124.994330270046, 129.001056705356, 131.639025779016, 124.408594738421, 125.475982014377, 125.929559340094, 126.630542479839, 127.249057014908, 127.661400038288, 128.403617480371, 129.888052364537, 131.702361667407, 133.516670970277, 135.001105854443, 135.990729110554, 137.310226785368, 144.127817178676, 144.648818160919, 147.114894939813, 142.21953431078, 139.936534657354, 152.343274976711), .Tsp = c(1949, 1950.91666666667, 12), class = 'ts'), structure(c(NA, NA, NA, NA, NA, NA, 126.791666666667, 127.25, 127.958333333333, 128.583333333333, 129, 129.75, 131.25, 133.083333333333, 134.916666666667, 136.416666666667, 137.416666666667, 138.75, NA, NA, NA, NA, NA, NA), .Tsp = c(1949, 1950.91666666667, 12), class = 'ts'));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep17_4f33c817c95506f86c1e898839e9a1d7() {
+ assertEval("argv <- list(structure(c(17L, 29L, 17L, 20L, 1L, 15L, 0L, 1L), .Names = c('1', '2', '3', '4', '5', '6', '7', '8')), structure(c(24L, 29L, 27L, 20L, 12L, 16L, 28L, 4L), .Names = c('1', '2', '3', '4', '5', '6', '7', '8')));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep18_d71358035d66cd37ae752478169e9aa7() {
+ assertEval("argv <- list(c(2, 11, 14, 5, 5, 13, 20, 22, 6, 6, 15, 7, 14, 6, 32, 53, 57, 14, 16, 16, 17, 40, 43, 46, 8, 23, 23, 28, 34, 36, 38, 3, 5, 11, 24, 45, 5, 6, 6, 9, 13, 23, 25, 32, 53, 54, 5, 5, 11, 17, 19, 8, 13, 14, 20, 47, 48, 60, 81, 2, 1, 2, 3, 5, 10, 14, 21, 36, 40, 6, 17, 67, 1, 1, 2, 7, 11, 12, 1, 1, 5, 5, 5, 11, 17, 3, 4, 22, 30, 36, 8, 1, 1, 5, 7, 16, 27, 1, 30, 10, 14, 27, 41, 69, 25, 10, 11, 20, 33, 5, 7, 1, 1, 5, 5, 5, 5, 7, 11, 15, 5, 14, 6, 6, 7, 28, 1, 5, 14, 2, 2, 3, 8, 10, 12, 1, 1, 9, 22, 3, 3, 5, 15, 18, 22, 37), structure(c(7.89366449903379, 7.89366449903379, 7.89366449903379, 14.0829622414182, 14.0829622414182, 14.0829622414182, 14.0829622414182, 14.0829622414182, 9.97467561511911, 9.97467561511911, 9.97467561511911, 9.14061221811198, 9.14061221811198, 37.9214773068363, 37.9214773068363, 37.9214773068363, 37.9214773068363, 27.0457930153774, 27.0457930153774, 27.0457930153774, 27.0457930153774, 27.0457930153774, 27.0457930153774, 27.0457930153774, 27.142857142857, 27.142857142857, 27.142857142857, 27.142857142857, 27.142857142857, 27.142857142857, 27.142857142857, 5.51287534554956, 19.4425820919426, 19.4425820919426, 19.4425820919426, 19.4425820919426, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 12.0888548389297, 12.0888548389297, 12.0888548389297, 12.0888548389297, 12.0888548389297, 35.9372148648542, 35.9372148648542, 35.9372148648542, 35.9372148648542, 35.9372148648542, 35.9372148648542, 35.9372148648542, 35.9372148648542, 2.39853649771773, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 34.0597534472672, 34.0597534472672, 34.0597534472672, 4.94649227492536, 4.94649227492536, 4.94649227492536, 4.94649227492536, 4.94649227492536, 4.94649227492536, 5.86945220571486, 5.86945220571486, 5.86945220571486, 5.86945220571486, 5.86945220571486, 5.86945220571486, 5.86945220571486, 4.2587413846383, 4.2587413846383, 28.3984573891039, 28.3984573891039, 28.3984573891039, 9.29091029891263, 9.29091029891263, 9.29091029891263, 9.29091029891263, 9.29091029891263, 9.29091029891263, 9.29091029891263, 27.2857142857143, 27.2857142857143, 27.2857142857143, 27.2857142857143, 27.2857142857143, 27.2857142857143, 27.2857142857143, 18.193214018835, 20.387398919001, 20.387398919001, 20.387398919001, 20.387398919001, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 10.4914673267343, 10.4914673267343, 10.4914673267343, 10.4914673267343, 10.4914673267343, 10.4914673267343, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 0.75368270571509, 13.5, 13.5, 13.5, 13.5, 13.5, 13.5, 13.5, 13.5, 13.5, 13.5), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100', '101', '102', '103', '104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', '115', '116', '117', '118', '119', '120', '121', '122', '123', '124', '125', '126', '127', '128', '129', '130', '131', '132', '133', '134', '135', '136', '137', '138', '139', '140', '141', '142', '143', '144', '145', '146')));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep19_3290781ac13cd94f053f37d2835d7f24() {
+ assertEval("argv <- list(0.5, c(576.899196412178, 48.2726847449981, 4.88037826224117, 1.31852084431627, 1.02614578306738));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep2_ba6d2e3600f93ad5a373fb7c3bdc3a2f() {
+ assertEval("argv <- list(c(-3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L), c(-3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -1L, -1L, -1L, -1L, -1L, -1L, -1L, -1L, -1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep20_d838620b11cf1a654915994614e6685e() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42')), 6);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep21_3492004af67f01cd5f43771180683427() {
+ assertEval("argv <- list(structure(c(18, 17, 15, 20, 10, 20, 25, 13, 12), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9')), structure(c(18.3712737525013, 13.3333333333333, 18.2953929141735, 18.3712737525013, 13.3333333333333, 18.2953929141735, 18.3712737525013, 13.3333333333333, 18.2953929141735), .Dim = c(9L, 1L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9'), NULL)));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep22_c64350c8030902789a6a9f19d9ece167() {
+ assertEval("argv <- list(c(0+6.28318530717959i, 0+12.5663706143592i, 0+18.8495559215388i, 0+25.1327412287183i, 0+31.4159265358979i, 0+37.6991118430775i, 0+43.9822971502571i, 0+50.2654824574367i, 0+56.5486677646163i, 0+62.8318530717959i, 0+69.1150383789754i, 0+75.398223686155i, 0+81.6814089933346i, 0+87.9645943005142i, 0+94.2477796076938i, 0+100.530964914873i), 16);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep23_3e54e1ac87607693efd38dd6a8068ba7() {
+ assertEval("argv <- list(structure(c(1, 0, -1, 0.5, -0.5, NA, NA, NA, 0), .Dim = c(3L, 3L)), structure(c(1, 1, 1, 0.707106781186548, 0.707106781186548, 0.707106781186548, 0, 0, 0), .Dim = c(3L, 3L)));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep24_ee2e18ce4f819cdb8bca5a706ae0e76f() {
+ assertEval("argv <- list(structure(c(32, 53, 10, 3, 11, 50, 10, 30, 10, 25, 7, 5, 3, 15, 7, 8, 36, 66, 16, 4, 9, 34, 7, 64, 5, 29, 7, 5, 2, 14, 7, 8), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32')), 18.5);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep25_924baba3d81e602e48b58e0472742dbe() {
+ assertEval("argv <- list(structure(c(1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')), structure(c(0.570290675249213, 0.61905127646042, 0.531618474288601, 0.790554080720526, 0.767014480135805, 0.550113874748024, 0.17684306547603, 0.582060475541574, 0.82418208155584, 0.508078873703881, 0.235692066937831, 0.434097271866188, 0.494627673369755, 0.72161667900813, 0.573653475332745, 0.56356507508215, 0.69807707842341, 0.78887268067876, 0.566927875165682, 0.661086277504564, 0.469406672743269, 0.365159870153793, 0.474450872868566, 0.63082107675278, 0.131445264348354, 0.640909477003375, 0.503034673578584, 0.565246475123916, 0.403832071114405, 0.577016275416276, 0.543388274580962, 0.239054867021362, 0.573653475332745, 0.514804473870944, 0.674537477838689, 0.0709148628447877, 0.536662674413898, 0.772058680261102, 0.274364267898443, 0.116312663972463, 0.439141471991485, 0.60728147616806, 0.400469271030873, 0.497990473453286, 0.514804473870944, 0.55179527478979, 0.455955472409143, 0.506397473662115, 0.321443469067883, 0.565246475123916, 0.772058680261102, 0.869579882683515, 0.494627673369755, 0.457636872450909, 0.398787870989108, 0.753563279801679, 0.518167273954475, 0.326487669193181, 0.351708669819667, 0.479495072993863, 0.397106470947342, 0.439141471991485, 0.37020407027909, 0.627458276669249, 0.402150671072639, 0.63082107675278, 0.543388274580962, 0.587104675666871, 0.587104675666871, 0.311355068817289, 0.730023679216959, 0.534981274372133, 0.450911272283846, 0.427371671699125, 0.432415871824422, 0.2911782683161, 0.339938869527307, 0.708165478674004, 0.76533308009404, 0.455955472409143, 0.509760273745647, 0.412239071323234, 0.464362472617972, 0.481176473035629, 0.331531869318478, 0.622414076543951, 0.392062270822045, 0.827544881639372, 0.487902073202692, 0.479495072993863, 0.652679277295735, 0.585423275625105, 0.735067879342256, 0.477813672952097, 0.435778671907954, 0.756926079885211, 0.679581677963987, 0.339938869527307, 0.625776876627483, 0.652679277295735), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep26_c4f824803870e041f321c15bafbb0b9d() {
+ assertEval("argv <- list(structure(c(0L, 1L, 1L, 7L, 7L, 2L, 0L, 3L, 9L, 0L, 0L, 0L, 0L, 6L, 0L, 1L, 5L, 8L, 2L, 2L, 0L, 0L, 0L, 9L, 0L, 3L, 0L, 1L, 0L, 2L, 3L, 0L, 0L, 0L, 0L, 0L, 0L, 4L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 2L, 2L, 0L, 0L, 0L, 4L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 2L, 0L, 1L, 0L, 1L, 0L, 0L, 8L, 0L, 0L, 0L, 0L, 0L, 0L, 3L, 4L, 0L, 0L, 0L, 0L, 0L, 0L, 4L, 0L, 4L, 0L, 0L, 4L, 0L, 5L, 0L, 0L, 3L, 3L, 0L, 5L, 2L), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')), structure(c(1.25194092864295, 1.37418430529572, 1.15498928509075, 1.80414376800547, 1.74512972410413, 1.20135746244181, 0.265563337720594, 1.28144795059362, 1.88844954500738, 1.09597524118942, 0.413098447473938, 0.910502531785213, 1.06225293038865, 1.63131692515155, 1.26037150634314, 1.23507977324257, 1.57230288125021, 1.79992847915537, 1.24351035094276, 1.47956652654811, 0.999023597637219, 0.737675688931295, 1.01166946418751, 1.40369132724639, 0.151750538768014, 1.42898306034697, 1.08332937463913, 1.23929506209267, 0.834627332483493, 1.26880208404333, 1.18449630704142, 0.421529025174129, 1.26037150634314, 1.1128363965898, 1.51328883734888, 1.40164574169432e-07, 1.16763515164104, 1.75777559065442, 0.510050091026136, 0.113812939117154, 0.9231483983355, 1.34467728334505, 0.826196754783302, 1.07068350808884, 1.1128363965898, 1.2055727512919, 0.965301286836455, 1.09175995233932, 0.628078178828811, 1.23929506209267, 1.75777559065442, 2.00226234395996, 1.06225293038865, 0.969516575686551, 0.821981465933206, 1.71140741330337, 1.12126697428999, 0.640724045379098, 0.703953378130531, 1.02431533073779, 0.817766177083111, 0.9231483983355, 0.750321555481582, 1.3952607495462, 0.830412043633397, 1.40369132724639, 1.18449630704142, 1.29409381714391, 1.29409381714391, 0.602786445728238, 1.65239336940203, 1.16341986279095, 0.952655420286168, 0.893641376384831, 0.906287242935117, 0.552202979527091, 0.674446356179862, 1.59759461435079, 1.74091443525404, 0.965301286836455, 1.10019053003951, 0.855703776733971, 0.986377731086933, 1.02853061958789, 0.653369911929384, 1.38261488299591, 0.805120310532824, 1.89688012270757, 1.04539177498827, 1.02431533073779, 1.45849008229763, 1.28987852829381, 1.66503923595232, 1.0201000418877, 0.914717820635308, 1.71983799100356, 1.52593470389916, 0.674446356179862, 1.39104546069611, 1.45849008229763), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep27_287dcedb817648b438fcdd1c4c699fa9() {
+ assertEval("argv <- list(998.602763134667, 78L);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep28_1b5cab2ac334a60a22d2a688d2438709() {
+ assertEval("argv <- list(structure(c(0L, 1L, 1L, 7L, 7L, 2L, 0L, 3L, 9L, 0L, 0L, 0L, 0L, 6L, 0L, 1L, 5L, 8L, 2L, 2L, 0L, 0L, 0L, 9L, 0L, 3L, 0L, 1L, 0L, 2L, 3L, 0L, 0L, 0L, 0L, 0L, 0L, 4L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 2L, 2L, 0L, 0L, 0L, 4L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 2L, 0L, 1L, 0L, 1L, 0L, 0L, 8L, 0L, 0L, 0L, 0L, 0L, 0L, 3L, 4L, 0L, 0L, 0L, 0L, 0L, 0L, 4L, 0L, 4L, 0L, 0L, 4L, 0L, 5L, 0L, 0L, 3L, 3L, 0L, 5L, 2L), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')), structure(c(1.501181611548, 1.64776358195565, 1.38492694536262, 2.16332775373429, 2.09256404388232, 1.44052700310346, 0.318416746879368, 1.53656346647399, 2.26441876780853, 1.31416323551065, 0.495326021509292, 1.09176300454732, 1.27372682988096, 1.95609117488209, 1.51129071295543, 1.48096340873315, 1.88532746503012, 2.15827320303057, 1.49107251014058, 1.77412734954845, 1.19790856932527, 0.884526425695124, 1.21307222143641, 1.68314543688164, 0.181943877879142, 1.71347274110391, 1.29899958339952, 1.48601795943686, 1.0007810918805, 1.52139981436285, 1.42030880028861, 0.505435122916716, 1.51129071295543, 1.3343814383255, 1.81456375517815, -1.99474544941847e-05, 1.40009059747376, 2.10772769599345, 0.611580687694671, 0.136452921545733, 1.10692665665846, 1.61238172702967, 0.990671990473078, 1.28383593128838, 1.3343814383255, 1.44558155380717, 1.15747216369558, 1.30910868480694, 0.753108107398609, 1.48601795943686, 2.10772769599345, 2.40089163680876, 1.27372682988096, 1.16252671439929, 0.985617439769366, 2.05212763825262, 1.34449053973293, 0.768271759509746, 0.844090020065427, 1.22823587354755, 0.980562889065654, 1.10692665665846, 0.899690077806261, 1.67303633547421, 0.99572654117679, 1.68314543688164, 1.42030880028861, 1.55172711858512, 1.55172711858512, 0.722780803176337, 1.98136392840065, 1.39503604677005, 1.14230851158444, 1.07154480173247, 1.08670845384361, 0.662126194731792, 0.808708165139443, 1.91565476925239, 2.08750949317861, 1.15747216369558, 1.31921778621437, 1.02605384539906, 1.18274491721414, 1.23329042425126, 0.783435411620882, 1.65787268336308, 0.965399236954518, 2.27452786921595, 1.25350862706611, 1.22823587354755, 1.74885459602989, 1.54667256788141, 1.99652758051179, 1.22318132284384, 1.09681755525103, 2.06223673966004, 1.82972740728929, 0.808708165139443, 1.6679817847705, 1.74885459602989), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep3_c7decb1e0e451a0cab405ce8480a7f2e() {
+ assertEval("argv <- list(structure(c(NA, 17.4716236802524, 0.424429400003, -2.45474630431729, -8.6855922903657, -11.7956139807344, -8.08147081196715, -13.3123167980156, -1.24650334752019, 21.281002075072, -5.32311940332657, 0.621869751489083, -19.2022951076469, -0.543162784063959, NA, NA, 15.344649382745, -9.74060313555005, 0.149375174081257, -5.85062482591874, -6.90563567110309, -9.96064651628744, 5.6326723568001, -8.78481137542338, -6.01565736147178, -15.543162784064, 2.34681552556734, -13.2465033475202, -3.82901961529671, 1.5226506664314, NA, -5.9777558474085, 22.7534966524798, 15.5010454558094, 4.13857256877024, -11.6855922903657, 11.6768805966734, -7.38893285382193, 10.8527157375375, -11.3889328538219, 14.1493751740813, -0.388932853821931, 13.0835617235859, -1.98225172690947, 5.96273742790618, -1.50975714950164, -1.38893285382193, 9.90772658272184, 7.3144077096343, -12.9822517269095, 2.02855087840155, -4.7956139807344, 3.14937517408126, -10.3231194033266, -2.25730595283121, 2.56685890630474, 4.27019946976097, 5.14937517408126, 0.0285508784015471, 5.85271573753749, 6.73189144185778, -6.38893285382193, 0.0285508784015471, -3.14728426246251, 15.1493751740813, 13.7869022870421, -7.27891116345324, 9.61106714617807, 4.84191313222647, -3.98225172690947, -6.38893285382193, 13.0285508784015, 5.13857256877024, -8.50975714950164, -0.619778839870337, -3.97144912159845, 23.1493751740813, -2.80641658604541, -1.03726257209382, 2.25939686444995, 4.25939686444995, -4.38893285382193, 6.38022116012966, -4.74060313555005, 2.02855087840155, -15.7956139807344, 8.21518862457662, -12.0264599667828, -2.1364816571515, 5.8635183428485, -14.729800530239, 4.80850749766416, -11.7848113754234, 9.45683721593604, -15.2573059528312, 5.28100207507198, 12.8635183428485, 6.50104545580937, 1.55605630099372, -7.44394369900628, 9.9735400332172, -11.2681085581422, 7.44603461062503, -8.14728426246251, -1.72980053023903, -3.90563567110309, 4.56685890630474, -5.37813024851092, -1.25730595283121, 10.7426940471688, NA, NA, 6.24343998511081, -21.9164382764141, -6.1364816571515, -15.8398222206077, -4.12567905184048, -7.94984391097642, -6.4773493335686, -5.65318447443266), .Tsp = c(1945, 1974.75, 4), class = 'ts'), 9.24492052298191);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep4_efff2fb3f229b450642c0aaf0b17355c() {
+ assertEval("argv <- list(structure(-0.437222043740988, .Names = 'Var2'), 6.28318530717959);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep5_b85231486e0ba6e2260c710ddfb6d98c() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`/`(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep6_ca225cdd5bea5941ced776cf37109305() {
+ assertEval("argv <- list(structure(c(25.1597633136098, 12.8284023668648), .Dim = 2L, .Dimnames = list(c('1', '2'))), c(13L, 13L));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep7_40fa093a34da206b04e02aae8e7309a0() {
+ assertEval("argv <- list(1e+05, 3);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep8_5dca4f10baf3ba907592cdac82d4cfea() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 6L, 2L, 4L, 3L, 7L, 2L, 8L, 4L, 2L, 2L, 1L, 3L, 3L, 4L, 3L, 2L, 1L, 2L, 3L, 1L, 1L, 2L, 1L, 3L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 4L, 1L, 1L, 1L, 1L, 2L, 1L, 5L, 2L, 1L, 3L, 2L, 1L, 1L, 6L, 2L, 1L, 2L, 5L, 2L, 2L, 2L, 4L, 4L, 1L, 1L, 3L, 4L, 2L, 2L, 2L, 1L, 5L, 4L, 1L, 3L, 1L, 1L, 4L, 2L, 3L, 2L, 1L, 8L, 1L, 5L, 1L, 3L, 4L, 4L, 1L, 3L, 1L, 2L, 6L, 1L, 1L, 1L, 1L, 1L, 6L, 2L, 2L, 1L, 1L, 2L, 3L, 1L, 1L, 1L, 1L), .Dim = 126L, .Dimnames = structure(list(fe = c('1.6', '1.667', '1.7', '1.733', '1.75', '1.783', '1.8', '1.817', '1.833', '1.85', '1.867', '1.883', '1.917', '1.933', '1.95', '1.967', '1.983', '2', '2.017', '2.033', '2.067', '2.083', '2.1', '2.133', '2.15', '2.167', '2.183', '2.2', '2.217', '2.233', '2.25', '2.267', '2.283', '2.3', '2.317', '2.333', '2.35', '2.367', '2.383', '2.4', '2.417', '2.483', '2.617', '2.633', '2.8', '2.883', '2.9', '3.067', '3.317', '3.333', '3.367', '3.417', '3.45', '3.5', '3.567', '3.6', '3.683', '3.717', '3.733', '3.75', '3.767', '3.817', '3.833', '3.85', '3.883', '3.917', '3.95', '3.966', '3.967', '4', '4.033', '4.05', '4.067', '4.083', '4.1', '4.117', '4.133', '4.15', '4.167', '4.183', '4.2', '4.233', '4.25', '4.267', '4.283', '4.3', '4.317', '4.333', '4.35', '4.366', '4.367', '4.383', '4.4', '4.417', '4.433', '4.45', '4.467', '4.483', '4.5', '4.517', '4.533', '4.55', '4.567', '4.583', '4.6', '4.617', '4.633', '4.65', '4.667', '4.7', '4.716', '4.733', '4.75', '4.767', '4.783', '4.8', '4.817', '4.833', '4.85', '4.883', '4.9', '4.933', '5', '5.033', '5.067', '5.1')), .Names = 'fe'), class = 'table'), 272L);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsep_testsep9_7105f4d2294ebb9e608ff8e8f1a9dd88() {
+ assertEval("argv <- list(c(-20.7752893729399+0i, -22.2629231778254+0i, 30.2366932497517-0i, -17.7609104766206+0i, -12.009450871146+0i, -20.6744466063748+0i, -16.2509653806178-0i, 14.8872572302678-0i, -2.41214022512376e+00+5e-15i, 30.1945691318138-0i, -14.86107358966-0i, -75.7334659810725-0i, -31.7348183989382+0i, 33.742775143777-0i, 26.1570616797447-0i, 37.7317903854624+0i, -7.20820970337446-0i, 38.6698755921621-0i, -26.4295844393936-0i, 26.3000016960339+0i, -16.3754767271763+0i, -7.29593605495242-0i, 9.19886724090888+0i, -35.3925832738897+0i, 21.0943018303757+0i, 4.90714440628349-0i), 26L);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq1_1838d3290bf788ad03372be6dca754d3() {
+ assertEval("argv <- list(c('y', 'A', 'U', 'V'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq10_41ac8ce50d3fb9a1040b3c50b35855c8() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, -45, -44, -43, -42, -41, -40, -39, -38, -37, -36, -35, -34, -33, -32, -31, -30, -29, -28, -27, NA, -25, -24, -23, -22, -21, -20, -19, -18, -17, -16, -15, -14, -13, -12, -11, -10, -9, -8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, NA, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52), .Dim = c(98L, 2L), .Dimnames = list(NULL, c('intercept', 'trend'))));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq11_077ce4caac78cce009b6b914fed4b9a4() {
+ assertEval("argv <- list(list(structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, 104, 118, 115, 126, 141, 135, 125, 149, 170, 170, 158, 133, 114, 140, 145, 150, 178, 163, 172, 178, 199, 199, 184, 162, 146, 166, 171, 180, 193, 181, 183, 218, 230, 242, 209, 191, 172, 194, 196, 196, 236, 235, 229, 243, 264, 272, 237, 211, 180, 201, 204, 188, 235, 227, 234, 264, 302, 293, 259, 229, 203, 229, 242, 233, 267, 269, 270, 315, 364, 347, 312, 274, 237, 278, 284, 277, 317, 313, 318, 374, 413, 405, 355, 306, 271, 306, 315, 301, 356, 348, 355, 422, 465, 467, 404, 347, 305, 336, 340, 318, 362, 348, 363, 435, 491, 505, 404, 359, 310, 337, 360, 342, 406, 396, 420, 472, 548, 559, 463, 407, 362, 405, 417, 391, 419, 461, 472, 535, 622, 606, 508, 461, 390, 432), .Tsp = c(1949, 1960.91666666667, 12), class = 'ts'), structure(c(419.147602949539, 391.474665943444, 435.919286153217, 443.935203034261, 455.023399013445, 517.28707821144, 589.71337277669, 582.999919227301, 484.573388713116, 428.878182738437, 368.526582998452, 406.728709993152, 415.660571294428, 388.716535970235, 433.006017658935, 440.885684396326, 451.651900136866, 513.051252429496, 584.327164324967, 577.055407135124, 479.076505013118, 423.494870357491, 363.43932958967, 400.592058645117), .Tsp = c(1961, 1962.91666666667, 12), class = 'ts'), structure(c(484.030717075782, 462.954959541421, 526.353307750503, 546.165638262644, 569.502470928676, 657.838443307596, 761.241730163307, 763.280655335144, 642.989004951864, 576.423799567567, 501.429012064338, 559.981301364233, 591.700754553767, 565.210772316967, 642.377841008703, 666.682421047093, 695.547100430962, 804.065022775202, 931.340589597203, 934.837830059897, 788.422986194072, 707.666678543854, 616.37838266375, 689.250456425465), .Tsp = c(1961, 1962.91666666667, 12), class = 'ts')));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq12_8aee206209e29402a65e45543330003d() {
+ assertEval("argv <- list(c(0.923879532511287+0.38268343236509i, 0.707106781186548+0.707106781186547i, 0.38268343236509+0.923879532511287i, 0+1i, -0.38268343236509+0.923879532511287i, -0.707106781186547+0.707106781186548i, -0.923879532511287+0.38268343236509i, -1+0i, -0.923879532511287-0.38268343236509i, -0.707106781186548-0.707106781186547i, -0.38268343236509-0.923879532511287i, 0-1i, 0.38268343236509-0.923879532511287i, 0.707106781186547-0.707106781186548i, 0.923879532511287-0.38268343236509i, 1-0i));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq13_7b42a0c7080020fcbb61668ce4804b1d() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));seq_len(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq14_3a9fe20985c4b71e4c0ca17b91af5273() {
+ assertEval("argv <- list(structure(list(g = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L), .Label = c('1', '2', '3', '4'), class = 'factor')), .Names = 'g'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq15_c494573f49d34eb5ed266da7eff0503d() {
+ assertEval("argv <- list(structure(list(20), row.names = c(NA, -1L)));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq16_486e08825cd587be6f5dc6ddafcca2da() {
+ assertEval("argv <- list(list(list(c('', '', '\036', '', 'New', 'print()', '(S3)', 'method', 'for', 'class', '\'function\',', '', '', '', '', '', '', '', 'also', 'used', 'for', 'auto-printing.', '', 'Further,', '.Primitive', '', '', '', '', '', '', '', 'functions', 'now', 'print', 'and', 'auto-print', 'identically.', '', 'The', 'new', 'method', '', '', '', '', '', '', '', 'is', 'based', 'on', 'code', 'suggestions', 'by', 'Romain', 'François.'))));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq17_a076be2ca1deac8397fd05f5b2c9f09f() {
+ assertEval("argv <- list(structure(list(Topic = c('myTst-package', 'foo-class', 'myTst', 'show,foo-method', 'show,foo-method', 'show-methods'), File = c('myTst-package', 'foo-class', 'myTst-package', 'foo-class', 'show-methods', 'show-methods')), .Names = c('Topic', 'File'), row.names = c(3L, 1L, 4L, 2L, 6L, 5L)));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq18_e2a57076eef7d6f09449fbbf4f369833() {
+ assertEval("argv <- list(structure(list(structure(' A Simple Plot and Legend Demo ', Rd_tag = 'TEXT')), Rd_tag = 'Rd', class = 'Rd'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq19_fe0da2d2d344d7a04e5668c6a7a46d39() {
+ assertEval("argv <- list(structure(list(Topic = character(0), File = character(0), Title = character(0), Internal = character(0)), .Names = c('Topic', 'File', 'Title', 'Internal'), row.names = integer(0), class = 'data.frame'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq2_ed6d3d224b02f041d5b7d32f5923180a() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 0, 10, NA), .Dim = c(3L, 2L)));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq20_5a7371d3ba784c53d4ad56c773ef1bde() {
+ assertEval("argv <- list(structure(c(2.21843970753346, 1.80732678656753, -1.09399175987006, 0.585986462327552, -5.68458926982395, 1.23352238598674, 0.457950438444482, 2.51599006679516, -2.28780372840319, 5.53596062467695, 2.17890565095959, -1.59611751350773, -2.9672978602151, 0.745175851232308, 1.93388282434376, -3.03559459078455, 2.19500990255906, 0.0725275773318347, -0.75336064096447, -1.15505962102859, -2.84782886882524, -1.41070341448251, -0.540252474026749, 4.87719739781058, 0.890715639552621, -0.968642103099399, 1.73177156113283, -0.993218102309356, -0.656454198323984, -1.5299506933835, -0.298424468882268, 6.51011264717937, 2.68326774833378, 1.99295445531679, -0.214079422583434, 6.73505308264589, -4.54579214489424, -2.3991834444486, -1.71479569181251, -6.47293095421849, -1.67116930820449, -11.5853328029437, -2.48588878138021, -0.888857646918452, 8.06807102468956, -0.216046323028316, 6.24682938323398, -1.74761908105831, 2.53082303181417, 2.31410662801887, 2.97453294161523, -2.88723068649699, -1.04144266580674, -0.835536300630093, -6.10229135345437, -4.37605802846523, -1.94289029309402e-16, 5.96619037131792, -1.1474434665393, 3.78819830631063, -3.01580771910632, -0.656454198323984, 1.50824785799851, -2.06401783962239, -3.02346226775125, 0.407243897855763, -3.96478352340807, -2.12718621336067, -0.78924288871239, -3.03559459078455, 0.457950438444496, -0.797900839851943, -3.38233849466459, 1.97815029009903, 0.745175851232309, -1.09645503136389, 0.341748714147263, 7.32472922782987, -1.33672649241008, 1.51931399477032, 0.00590129163826772, -4.09533092706814, 0.195481697042187, -2.7736762657602, -3.48737543915568, 0.536312040203338, 0.775871729180551, 4.37979177946206, 1.30271070089245, 4.2132287611068, 7.33457656622414, 3.28311350719274, -1.30271070089245), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93')));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq21_27f2d9b1f2cc6599b57eb3894205d30c() {
+ assertEval("argv <- list(structure(list(surname = structure(integer(0), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(integer(0), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(integer(0), .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = integer(0), class = 'data.frame'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq22_93e0190d2d5a2be508c457146d3ef01b() {
+ assertEval("argv <- list(structure(list(A = 0:10, B = 10:20, `NA` = 20:30), .Names = c('A', 'B', NA), row.names = c(NA, -11L), class = 'data.frame'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq23_718ba4d829e83539bd799f240ecde531() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq24_1fb0b85c2885bde093d933bdd8762299() {
+ assertEval("argv <- list(structure(c(3, 8), .Dim = 2L, .Dimnames = structure(list(g = c('1', '2')), .Names = 'g'), call = quote(by.data.frame(data = X, INDICES = g, FUN = colMeans)), class = 'by'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq25_cccd5426988143670b1eab06cc2fd9ea() {
+ assertEval("argv <- list(structure(list(.Data = 'numeric'), .Names = '.Data'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq26_d7e82848dde035e5b2c3487197aeb208() {
+ assertEval("argv <- list(structure(2, .Names = 'Ind'));seq_len(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq3_f622c48a80aefe66800ce2121d9bb58d() {
+ assertEval("argv <- list(0L);seq_len(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq4_3a3ca2ee01d1d004061b74d38447d0b7() {
+ assertEval("argv <- list(structure(list(x = 1:3, y = structure(1:3, .Label = c('A', 'D', 'E'), class = 'factor'), z = c(6, 9, 10)), .Names = c('x', 'y', 'z'), row.names = c(NA, -3L), class = 'data.frame'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq5_8690ea77d6330da7dd0dfc249188931e() {
+ assertEval("argv <- list(FALSE);seq_len(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq7_963237089f2e55a9317c79b236ff2435() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq8_c33fd8f9fd4aa1611028694cf01c3e1a() {
+ assertEval("argv <- list(structure(list(levels = c('1', '2', NA), class = 'factor'), .Names = c('levels', 'class')));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseq_testseq9_07861056337780629ae89b1d1e6c7be0() {
+ assertEval("argv <- list(list(c(1+1i, 2+1.4142135623731i, 3+1.73205080756888i, 4+2i, 5+2.23606797749979i, 6+2.44948974278318i, 7+2.64575131106459i, 8+2.82842712474619i, 9+3i, 10+3.1622776601684i)));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint1_435241438c86e9c56ceec5fdf6a97d01() {
+ assertEval("argv <- list(16146, by = 1, length.out = 4);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint10_66bbbc8840fc8d6bc9839579f9e3b93f() {
+ assertEval("argv <- list(from = 0, to = structure(-1, .Names = 'c0'));seq.int(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint11_a114d8b402777e5e88455d1482d84e78() {
+ assertEval("argv <- list(10L, 99L, 1);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint12_26fe7f0beecb9fbbfeeb30313d6882f9() {
+ assertEval("argv <- list(1L);seq.int(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint13_cf4cef5ca108663f00320bf6480ebd59() {
+ assertEval("argv <- list(102L, 112L, 1L);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint14_4139d8550bf8db877b16669adb5eb01f() {
+ assertEval("argv <- list(from = 0.95, by = -0.120360949612403, length.out = 6);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint15_875d4e8ce679548405c84bcca74b321a() {
+ assertEval("argv <- list(list());seq.int(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint16_06484717074c2fe840538546ce023637() {
+ assertEval("argv <- list(-0.2, 1, length.out = 7);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint17_2e3dd7f1248c8236567f810b8426346d() {
+ assertEval("argv <- list(from = 0.070740277703696, to = 0.793110173512391, length.out = NULL);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint18_0dc53d8570353e0fd675d999c4e298cf() {
+ assertEval("argv <- list(105L, 112L, 3L);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint19_03d81a4268949349dac6a33f66a0e7ca() {
+ assertEval("argv <- list(0, length.out = 3L);seq.int(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint2_833837cd2c7024b84527e6cc6318ce3f() {
+ assertEval("argv <- list(0.9, 0.95, length.out = 16);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint20_a25b0ed39884aee2ab5a0a4740d67644() {
+ assertEval("argv <- list(0, structure(345600, tzone = 'GMT'), 43200);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint21_d329ffa06bd12e1895efdd679398d419() {
+ assertEval("argv <- list(-7, 7, length.out = 11);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint22_b93e7ae613cf1991d4b0b207d70df9c2() {
+ assertEval("argv <- list(4, 4L);seq.int(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint23_2ebe0685f9e788b6984f988da75b10a2() {
+ assertEval("argv <- list(0L, 49, 1);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint24_77429da3fa30f07ffd3b524b0b623fa9() {
+ assertEval("argv <- list(1, 1, by = 1);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint3_6ebfa066b0a3aedefc08f6cb45e6a547() {
+ assertEval("argv <- list(FALSE);seq.int(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint4_a9b7d237bccf65b5720f185242dd8c18() {
+ assertEval("argv <- list(1.2e+100, 1.3e+100, length.out = 2);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint5_50b3cd6c7c9aee92e159429d680fadeb() {
+ assertEval("argv <- list(structure(0.88, .Names = 'Other'), structure(1, .Names = 'Vanilla Cream'), length.out = 24);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint6_1535acb6c16135e174e9d159863c4fa3() {
+ assertEval("argv <- list(953553600, by = 86400, length.out = 10);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint7_e4636cba32da6fbde37b9dbe1eb04b30() {
+ assertEval("argv <- list(25L);seq.int(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint8_be3e83933ddb4b697617f8977cd220c6() {
+ assertEval("argv <- list(from = 2.0943951023932, to = 2.61799387799149, by = 0.0174532925199433);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinseqint_testseqint9_ced1e26637467cbe69e1d20121049d4d() {
+ assertEval("argv <- list(from = 0, to = 0.793110173512391, length.out = FALSE);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetEncoding_testsetEncoding1_575410e6ad8803786ba9b9e5cb659549() {
+ assertEval("argv <- list('abc', 'UTF-8'); .Internal(setEncoding(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetEncoding_testsetEncoding2_20b05ee818fc836fe749c9486234902b() {
+ assertEval("argv <- list(''', 'unknown'); .Internal(setEncoding(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetEncoding_testsetEncoding3_368f1a8fdffd199bc14ab4e1112075f5() {
+ assertEval("argv <- list('3.0.1', 'unknown'); .Internal(setEncoding(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetEncoding_testsetEncoding4_6d54ce8af5a7f160216df0d235c552a5() {
+ assertEval("argv <- list(structure(c('Matrix', '1.0-12', '2013-03-26', 'recommended', 'Sparse and Dense Matrix Classes and Methods', 'Douglas Bates <bates@stat.wisc.edu> and Martin Maechler\n <maechler@stat.math.ethz.ch>', 'Martin Maechler <mmaechler+Matrix@gmail.com>', 'Doug and Martin <Matrix-authors@R-project.org>', 'Classes and methods for dense and sparse matrices and\n operations on them using Lapack and SuiteSparse.', 'R (>= 2.15.0), stats, methods, utils, lattice', 'graphics, grid', 'expm, MASS', 'MatrixModels, graph, SparseM, sfsmisc', 'UTF-8', 'no', 'no longer available, since we use data/*.R *and* our\nclasses', 'yes', 'no', 'GPL (>= 2)', 'The Matrix package includes libraries AMD, CHOLMOD,\nCOLAMD, CSparse and SPQR from the SuiteSparse collection of Tim\nDavis. All sections of that code are covered by the GPL or\nLGPL licenses. See the directory doc/UFsparse for details.', 'http://Matrix.R-forge.R-project.org/', '2013-03-26 15:38:54 UTC; maechler', 'yes', 'CRAN', '2013-03-26 19:25:05', 'R 3.0.1; x86_64-unknown-linux-gnu; 2013-12-07 03:52:11 UTC; unix'), .Names = c('Package', 'Version', 'Date', 'Priority', 'Title', 'Author', 'Maintainer', 'Contact', 'Description', 'Depends', 'Imports', 'Suggests', 'Enhances', 'Encoding', 'LazyData', 'LazyDataNote', 'ByteCompile', 'BuildResaveData', 'License', 'LicenseDetails', 'URL', 'Packaged', 'NeedsCompilation', 'Repository', 'Date/Publication', 'Built')), structure('UTF-8', .Names = 'Encoding')); .Internal(setEncoding(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetS4Object_testsetS4Object1_0ab55bb1bc045815c8938f2fed92bf45() {
+ assertEval("argv <- list(structure('ObjectsWithPackage', class = structure('signature', package = 'methods'), .Names = '.Object', package = 'methods'), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetS4Object_testsetS4Object10_941fb128fe75be71d5da0019d1282d09() {
+ assertEval("argv <- list(structure(function (object) cat('I am a \'foo\'\n'), target = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), generic = character(0), class = structure('MethodDefinition', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetS4Object_testsetS4Object11_18b7b860b9e86d63d988057c8d47cff7() {
+ assertEval("argv <- list(structure(function (x = 1, nrow, ncol) standardGeneric('diag'), generic = character(0), package = character(0), group = list(), valueClass = character(0), signature = character(0), default = quote(`\001NULL\001`), skeleton = quote(`<undef>`()), class = structure('standardGeneric', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetS4Object_testsetS4Object12_1887ce2e2ac5a19c8b151af9ab68ffb3() {
+ assertEval("argv <- list(structure(list(`NA` = structure(function (object) cat('I am a \'foo\'\n'), target = structure('foo', .Names = 'object', package = 'myTst', class = structure('signature', package = 'methods')), defined = structure('foo', .Names = 'object', package = 'myTst', class = structure('signature', package = 'methods')), generic = structure('show', package = 'methods'), class = structure('MethodDefinition', package = 'methods'))), .Names = NA_character_, arguments = structure('object', simpleOnly = TRUE), signatures = list(), generic = structure(function (object) standardGeneric('show'), generic = structure('show', package = 'methods'), package = 'methods', group = list(), valueClass = character(0), signature = structure('object', simpleOnly = TRUE), default = structure(function (object) showDefault(object, FALSE), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'object', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'object', package = 'methods'), generic = structure('show', package = 'methods'), class = structure('derivedDefaultMethod', package = 'methods')), skeleton = quote((function (object) showDefault(object, FALSE))(object)), class = structure('standardGeneric', package = 'methods')), class = structure('listOfMethods', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetS4Object_testsetS4Object13_14d9f7bd93f7f9ee8cd2510ca60e57c5() {
+ assertEval("argv <- list(structure(function (x, type = c('O', 'I', 'F', 'M', '2')) { if (identical('2', type)) { svd(x, nu = 0L, nv = 0L)$d[1L] } else .Internal(La_dlange(x, type))}, target = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), generic = character(0), class = structure('derivedDefaultMethod', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetS4Object_testsetS4Object14_9aff3252b217942d4806b486dea68e81() {
+ assertEval("argv <- list(structure(function (x, y, ...) UseMethod('plot'), target = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), generic = character(0), class = structure('derivedDefaultMethod', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetS4Object_testsetS4Object2_d875032dd857442d1f3659594a4ac246() {
+ assertEval("argv <- list(structure(function (x, ...) standardGeneric('toeplitz'), generic = character(0), package = character(0), group = list(), valueClass = character(0), signature = character(0), default = quote(`\001NULL\001`), skeleton = quote(`<undef>`()), class = structure('standardGeneric', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetS4Object_testsetS4Object3_072c080448e33f0a49b36e5cd681a05d() {
+ assertEval("argv <- list(structure(character(0), package = character(0), class = structure('ObjectsWithPackage', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetS4Object_testsetS4Object4_461af4c09fb7e35645cfd822f5b06a1c() {
+ assertEval("argv <- list(structure(function (qr, complete = FALSE, Dvec) standardGeneric('qr.Q'), generic = character(0), package = character(0), group = list(), valueClass = character(0), signature = character(0), default = quote(`\001NULL\001`), skeleton = quote(`<undef>`()), class = structure('standardGeneric', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetS4Object_testsetS4Object5_29afb062e3460024baf7c5ad554f2872() {
+ assertEval("argv <- list(structure(c('nonStructure', 'ANY', 'ANY', 'ANY'), .Names = c(NA_character_, NA_character_, NA_character_, NA_character_), package = character(0), class = structure('signature', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetS4Object_testsetS4Object6_8dab2be22e76070a5a190d6e9692efef() {
+ assertEval("argv <- list(structure(function (x) .Internal(drop(x)), target = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), generic = character(0), class = structure('derivedDefaultMethod', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetS4Object_testsetS4Object7_25798037d870e60328f01dd63b909881() {
+ assertEval("argv <- list(structure(function (x, y = NULL) .Internal(crossprod(x, y)), target = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), generic = character(0), class = structure('derivedDefaultMethod', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetS4Object_testsetS4Object8_84be8f312b049b83a14d879ba3ed6500() {
+ assertEval("argv <- list(structure(function (x, i, j, ...) x@aa[[i]], target = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), generic = character(0), class = structure('MethodDefinition', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetS4Object_testsetS4Object9_f87ba8a0629ae6811587d0c11e0bcf2d() {
+ assertEval("argv <- list(numeric(0), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetSessionTimeLimit_testsetSessionTimeLimit1_0d606561ef60b6a688844ab91b23932c() {
+ assertEval("argv <- list(NULL, NULL); .Internal(setSessionTimeLimit(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetSessionTimeLimit_testsetSessionTimeLimit2_3a41dc6c95029a1a3385b669b6ef7b3c() {
+ assertEval("argv <- list(FALSE, Inf); .Internal(setSessionTimeLimit(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetTimeLimit_testsetTimeLimit1_696c717ab745eadf821ecf540881f6c2() {
+ assertEval("argv <- list(FALSE, Inf, FALSE); .Internal(setTimeLimit(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinseterrmessage_testseterrmessage1_c2ebe071ff97bc19521be20a91a97920() {
+ assertEval("argv <- list('Error in cor(rnorm(10), NULL) : \n supply both 'x' and 'y' or a matrix-like 'x'\n'); .Internal(seterrmessage(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinseterrmessage_testseterrmessage2_a61eeb4b8b937fdbda192fb1874c0116() {
+ assertEval("argv <- list('Error in as.POSIXlt.character(x, tz, ...) : \n character string is not in a standard unambiguous format\n'); .Internal(seterrmessage(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinseterrmessage_testseterrmessage3_20257c59ec215dfcf32e855ac6dae1cb() {
+ assertEval("argv <- list('Error in validObject(.Object) : \n invalid class “trackCurve” object: Unequal x,y lengths: 20, 10\n'); .Internal(seterrmessage(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetseed_testsetseed1_2ef0ed43632aae054f81d4509ed1a12d() {
+ assertEval("argv <- list(1000, 0L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetseed_testsetseed2_11d56d354a8058985c6d0474e7df1b9a() {
+ assertEval("argv <- list(77, 2L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetseed_testsetseed3_22ab62314b1f3b2905e5a30da785c03b() {
+ assertEval("argv <- list(123, 6L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetseed_testsetseed4_33a423903f4010ec520c9ae76ad3788b() {
+ assertEval("argv <- list(77, 4L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetseed_testsetseed5_d77b22d093beac670d978d1481a1f327() {
+ assertEval("argv <- list(1000, 1L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetseed_testsetseed6_7ec7ce14fa8b07fc3a8d562202198694() {
+ assertEval("argv <- list(0, NULL, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetseed_testsetseed7_03b9f46d49e83b773bcc79c5a8506f7e() {
+ assertEval("argv <- list(123, 7L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsetseed_testsetseed8_29a18388ed13ad67e6d31a18468cd5cd() {
+ assertEval("argv <- list(NULL, NULL, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames1_e417f693a9006971823c15f3ddbd1087() {
+ assertEval("argv <- list(structure(list(c(8.44399377410362, 28.4640218366572, 12.2441566485997)), row.names = c(NA, -3L), class = 'data.frame'), 1L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames11_61efbc87d8d87e59e59f37703e47eb8b() {
+ assertEval("argv <- list(structure(list(age = c(40, 60, 80)), .Names = 'age', row.names = c(NA, -3L), class = 'data.frame'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames12_84570ffd33f41642537e1b94d56fa999() {
+ assertEval("argv <- list(structure(list(surname = structure(integer(0), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(integer(0), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(integer(0), .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = integer(0), class = 'data.frame'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames13_8a0f7d2722ab79362fe23e012ed40ee1() {
+ assertEval("argv <- list(structure(list(age = 1:65), .Names = 'age'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames14_e08690c271af7ae7abfd39835ac5153c() {
+ assertEval("argv <- list(structure(list(variog = c(0.000474498531874882, 0.00702969158809408, 0.00702969158809408, 0.00398874346479977, 0.000383788683835002, 1.20172224431796e-06, 1.20172224431796e-06, 0.122905372955376, 0.378939119261529, 0.00604112083775904, 0.0365586576304611, 2.52242766079251e-05, 0.100345142776916, 0.00940165099100291, 0.149441544291522, 0.0295722090612792), dist = c(36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36)), .Names = c('variog', 'dist'), row.names = c('2.16', '3.16', '4.16', '1.16', '8.16', '5.16', '6.16', '7.16', '11.16', '9.16', '10.16', '12.16', '13.16', '15.16', '14.16', '16.16'), class = c('Variogram', 'data.frame')), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames15_c5b6d7c5abb3d494a3c6f4d3bc7ae2ae() {
+ assertEval("argv <- list(structure(list(age = c(-1, -0.959071428571429, -0.918142857142857, -0.877214285714286, -0.836285714285714, -0.795357142857143, -0.754428571428571, -0.7135, -0.672571428571429, -0.631642857142857, -0.590714285714286, -0.549785714285714, -0.508857142857143, -0.467928571428571, -0.427, -0.386071428571429, -0.345142857142857, -0.304214285714286, -0.263285714285714, -0.222357142857143, -0.181428571428571, -0.1405, -0.0995714285714285, -0.0586428571428571, -0.0177142857142856, 0.0232142857142859, 0.0641428571428573, 0.105071428571429, 0.146, 0.186928571428572, 0.227857142857143, 0.268785714285714, 0.309714285714286, 0.350642857142857, 0.391571428571429, 0.4325, 0.473428571428572, 0.514357142857143, 0.555285714285714, 0.596214285714286, 0.637142857142857, 0.678071428571429, 0.719, 0.759928571428572, 0.800857142857143, 0.841785714285714, 0.882714285714286, 0.923642857142857, 0.964571428571429, 1.0055), Subject = structure(c(25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L), .Label = c('10', '26', '25', '9', '2', '6', '7', '17', '16', '15', '8', '20', '1', '18', '5', '23', '11', '21', '3', '24', '22', '12', '13', '14', '19', '4'), class = 'factor')), .Names = c('age', 'Subject'), out.attrs = structure(list(dim = structure(c(50L, 26L), .Names = c('age', 'Subject')), dimnames = structure(list( age = c('age=-1.00000000', 'age=-0.95907143', 'age=-0.91814286', 'age=-0.87721429', 'age=-0.83628571', 'age=-0.79535714', 'age=-0.75442857', 'age=-0.71350000', 'age=-0.67257143', 'age=-0.63164286', 'age=-0.59071429', 'age=-0.54978571', 'age=-0.50885714', 'age=-0.46792857', 'age=-0.42700000', 'age=-0.38607143', 'age=-0.34514286', 'age=-0.30421429', 'age=-0.26328571', 'age=-0.22235714', 'age=-0.18142857', 'age=-0.14050000', 'age=-0.09957143', 'age=-0.05864286', 'age=-0.01771429', 'age= 0.02321429', 'age= 0.06414286', 'age= 0.10507143', 'age= 0.14600000', 'age= 0.18692857', 'age= 0.22785714', 'age= 0.26878571', 'age= 0.30971429', 'age= 0.35064286', 'age= 0.39157143', 'age= 0.43250000', 'age= 0.47342857', 'age= 0.51435714', 'age= 0.55528571', 'age= 0.59621429', 'age= 0.63714286', 'age= 0.67807143', 'age= 0.71900000', 'age= 0.75992857', 'age= 0.80085714', 'age= 0.84178571', 'age= 0.88271429', 'age= 0.92364286', 'age= 0.96457143', 'age= 1.00550000'), Subject = c('Subject=10', 'Subject=26', 'Subject=25', 'Subject=9', 'Subject=2', 'Subject=6', 'Subject=7', 'Subject=17', 'Subject=16', 'Subject=15', 'Subject=8', 'Subject=20', 'Subject=1', 'Subject=18', 'Subject=5', 'Subject=23', 'Subject=11', 'Subject=21', 'Subject=3', 'Subject=24', 'Subject=22', 'Subject=12', 'Subject=13', 'Subject=14', 'Subject=19', 'Subject=4')), .Names = c('age', 'Subject'))), .Names = c('dim', 'dimnames')), row.names = 1201:1250, class = 'data.frame'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames16_8855b6c5101a8b2f7a3ccd227e2f367b() {
+ assertEval("argv <- list(structure(list(variog = structure(c('0.007239522', '0.014584634', '0.014207936', '0.018442267', '0.011128505', '0.019910082', '0.027072311', '0.034140379', '0.028320657', '0.037525507'), class = 'AsIs'), dist = structure(c(' 1', ' 6', ' 7', ' 8', '13', '14', '15', '20', '21', '22'), class = 'AsIs'), n.pairs = structure(c(' 16', ' 16', '144', ' 16', ' 16', '128', ' 16', ' 16', '112', ' 16'), .Dim = 10L, .Dimnames = structure(list(c('1', '6', '7', '8', '13', '14', '15', '20', '21', '22')), .Names = ''))), .Names = c('variog', 'dist', 'n.pairs'), row.names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'), class = 'data.frame'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames17_bd3e6b152d8e38ab9250bfbb7628f3ea() {
+ assertEval("argv <- list(structure(list(GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962, Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551)), .Names = c('GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year', 'Employed'), row.names = 1947:1962, class = 'data.frame'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames18_d5d51d8fe765d2cfcf70d64b5b0d455c() {
+ assertEval("argv <- list(structure(list(surname = structure(c('McNeil', 'Ripley', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'AsIs'), nationality = structure(c('Australia', 'UK', 'UK', 'US', 'US', 'Australia'), class = 'AsIs'), deceased = structure(c('no', 'no', 'no', 'no', 'yes', 'no'), class = 'AsIs'), title = structure(c('Interactive Data Analysis', 'Spatial Statistics', 'Stochastic Simulation', 'LISP-STAT', 'Exploratory Data Analysis', 'Modern Applied Statistics ...'), class = 'AsIs'), other.author = structure(c(NA, NA, NA, NA, NA, 'Ripley'), class = 'AsIs')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = c('1', '2', '3', '4', '5', '6'), class = 'data.frame'), 1L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames19_c1b4442365fd42d110842fc913f6325c() {
+ assertEval("argv <- list(structure(list(`cbind(X, M)` = structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('X', 'M'))), M.user = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L), .Label = c('N', 'Y'), class = 'factor', contrasts = 'contr.treatment'), Temp = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c('High', 'Low'), class = 'factor', contrasts = 'contr.treatment')), .Names = c('cbind(X, M)', 'M.user', 'Temp'), terms = quote(cbind(X, M) ~ M.user + Temp + M.user:Temp), row.names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames2_e50605ae607ee9e49c6079a439e18019() {
+ assertEval("argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c('y', 'x', 'z'), terms = quote(y ~ x * z - 1), row.names = c(NA, 10L), class = 'data.frame'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames20_cb2e61a537531466bb73de253be122de() {
+ assertEval("argv <- list(structure(list(height = numeric(0), weight = numeric(0)), .Names = c('height', 'weight'), row.names = integer(0), class = 'data.frame'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames21_5e65389edfd1c0cd066d48c27f0ea3f0() {
+ assertEval("argv <- list(structure(list(A = c(1, NA, 1), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA_integer_, NA_integer_, NA_integer_), E = c(FALSE, NA, TRUE), F = c('abc', NA, 'def')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames22_bff659f6e3bd4aaab7340b6950b27cd9() {
+ assertEval("argv <- list(structure(list(Hair = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('Black', 'Brown', 'Red', 'Blond'), class = 'factor'), Eye = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L), .Label = c('Brown', 'Blue', 'Hazel', 'Green'), class = 'factor'), Sex = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Male', 'Female'), class = 'factor')), .Names = c('Hair', 'Eye', 'Sex'), out.attrs = structure(list(dim = structure(c(4L, 4L, 2L), .Names = c('Hair', 'Eye', 'Sex')), dimnames = structure(list(Hair = c('Hair=Black', 'Hair=Brown', 'Hair=Red', 'Hair=Blond'), Eye = c('Eye=Brown', 'Eye=Blue', 'Eye=Hazel', 'Eye=Green'), Sex = c('Sex=Male', 'Sex=Female')), .Names = c('Hair', 'Eye', 'Sex'))), .Names = c('dim', 'dimnames')), class = 'data.frame', row.names = c(NA, -32L)), 1L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames23_b674780fa6cf908c800d69845a128a3b() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1, 2), Deviance = c(12.2441566485997, 8.44399377410362, 11.9670615295804), AIC = c(73.9421143635373, 72.1419514890412, 77.665019244518)), .Names = c('Df', 'Deviance', 'AIC'), row.names = c('<none>', 'Temp', 'Soft'), class = c('anova', 'data.frame'), heading = c('Single term additions', '\nModel:', 'cbind(X, M) ~ M.user')), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames3_2e252a5884bdd262d02355f57f3018fe() {
+ assertEval("argv <- list(structure(list(weight = c(4.17, 5.58), group = structure(c(1L, 1L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = c('weight', 'group'), row.names = 1:2, class = 'data.frame'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames4_777d90689166b825b3226ecff1db828c() {
+ assertEval("argv <- list(structure(list(x = 1:3, y = structure(1:3, .Label = c('A', 'D', 'E'), class = 'factor'), z = c(6, 9, 10)), .Names = c('x', 'y', 'z'), row.names = c(NA, -3L), class = 'data.frame'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames5_3245df463db4b0dda9647e1d6ef98f19() {
+ assertEval("argv <- list(structure(list(c('4.1-0', '4.1-0', '4.1-0', '4.1-0', '4.1-0', '4.1-0', '4.0-3', '4.0-3', '4.0-3', '4.0-3', '4.0-3', '4.0-2', '4.0-2', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '3.1-55', '3.1-55', '3.1-55', '3.1-54', '3.1-53', '3.1-53', '3.1-52', '3.1-51'), c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), c('The C and R code has been reformatted for legibility.', 'The old compatibility function rpconvert() has been removed.', 'The cross-validation functions allow for user interrupt at the end\nof evaluating each split.', 'Variable Reliability in data set car90 is corrected to be an\nordered factor, as documented.', 'Surrogate splits are now considered only if they send two or more\ncases _with non-zero weight_ each way. For numeric/ordinal\nvariables the restriction to non-zero weights is new: for\ncategorical variables this is a new restriction.', 'Surrogate splits which improve only by rounding error over the\ndefault split are no longer returned. Where weights and missing\nvalues are present, the splits component for some of these was not\nreturned correctly.', 'A fit of class \'rpart\' now contains a component for variable\n‘importance’, which is reported by the summary() method.', 'The text() method gains a minlength argument, like the labels()\nmethod. This adds finer control: the default remains pretty =\nNULL, minlength = 1L.', 'The handling of fits with zero and fractional weights has been\ncorrected: the results may be slightly different (or even\nsubstantially different when the proportion of zero weights is\nlarge).', 'Some memory leaks have been plugged.', 'There is a second vignette, longintro.Rnw, a version of the\noriginal Mayo Tecnical Report on rpart.', 'Added dataset car90, a corrected version of the S-PLUS dataset\ncar.all (used with permission).', 'This version does not use paste0{} and so works with R 2.14.x.', 'Merged in a set of Splus code changes that had accumulated at Mayo\nover the course of a decade. The primary one is a change in how\nindexing is done in the underlying C code, which leads to a major\nspeed increase for large data sets. Essentially, for the lower\nleaves all our time used to be eaten up by bookkeeping, and this\nwas replaced by a different approach. The primary routine also\nuses .Call{} so as to be more memory efficient.', 'The other major change was an error for asymmetric loss matrices,\nprompted by a user query. With L=loss asymmetric, the altered\npriors were computed incorrectly - they were using L' instead of L.\nUpshot - the tree would not not necessarily choose optimal splits\nfor the given loss matrix. Once chosen, splits were evaluated\ncorrectly. The printed “improvement” values are of course the\nwrong ones as well. It is interesting that for my little test\ncase, with L quite asymmetric, the early splits in the tree are\nunchanged - a good split still looks good.', 'Add the return.all argument to xpred.rpart().', 'Added a set of formal tests, i.e., cases with known answers to\nwhich we can compare.', 'Add a usercode vignette, explaining how to add user defined\nsplitting functions.', 'The class method now also returns the node probability.', 'Add the stagec data set, used in some tests.', 'The plot.rpart routine needs to store a value that will be visible\nto the rpartco routine at a later time. This is now done in an\nenvironment in the namespace.', 'Force use of registered symbols in R >= 2.16.0', 'Update Polish translations.', 'Work on message formats.', 'Add Polish translations', 'rpart, rpart.matrix: allow backticks in formulae.', 'tests/backtick.R: regession test', 'src/xval.c: ensure unused code is not compiled in.', 'Change description of margin in ?plot.rpart as suggested by Bill\nVenables.')), row.names = c(NA, -29L), class = 'data.frame'), 1L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames6_87e2292f5191a1087334a16244a8aafb() {
+ assertEval("argv <- list(structure(list(c(101, 32741, 2147483621, 1.70141183460469e+38, 8.98846567431158e+307)), row.names = c(NA, -5L), class = 'data.frame'), 1L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames7_13b317736ad4ebfb88133a25f7e18138() {
+ assertEval("argv <- list(structure(list(srcfile = '/home/lzhao/hg/r-instrumented/library/stats/R/stats', frow = 5139L, lrow = 5139L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames8_0d75affd88a60a07430b84cdb48a0200() {
+ assertEval("argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = 'ts'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c('y', 'lag.quarterly.revenue', 'price.index', 'income.level', 'market.potential'), row.names = c('1962.25', '1962.5', '1962.75', '1963', '1963.25', '1963.5', '1963.75', '1964', '1964.25', '1964.5', '1964.75', '1965', '1965.25', '1965.5', '1965.75', '1966', '1966.25', '1966.5', '1966.75', '1967', '1967.25', '1967.5', '1967.75', '1968', '1968.25', '1968.5', '1968.75', '1969', '1969.25', '1969.5', '1969.75', '1970', '1970.25', '1970.5', '1970.75', '1971', '1971.25', '1971.5', '1971.75'), class = 'data.frame'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinshortRowNames_testshortRowNames9_5b1caa90ff05536d66df3bd84acf57c5() {
+ assertEval("argv <- list(structure(list(Topic = character(0), File = character(0), Title = character(0), Internal = character(0)), .Names = c('Topic', 'File', 'Title', 'Internal'), row.names = integer(0), class = 'data.frame'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsign_testsign1_2dcb378f86f461c4f465d16c975454b4() {
+ assertEval("argv <- list(29);sign(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsign_testsign2_c3c9b9149d413778f2ebed3de9939f5b() {
+ assertEval("argv <- list(-29);sign(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsign_testsign3_c82d822891a0e79eb25523f330206157() {
+ assertEval("argv <- list(structure(-29.5, .Names = 'W'));sign(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsign_testsign4_21c141e8c61b25cdc4c37206ad8cfbdf() {
+ assertEval("argv <- list(c(2, 1.5));sign(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsign_testsign5_2bf716b41bb3841689bfda97fcaebf97() {
+ assertEval("argv <- list(structure(c(0.880860525591375, 0.639733585162877, 0.698114489497201, -0.163771828170666, 0.644716815673843, 0.434938037582636, -1.02532598809559, -0.414997803714266, 0.314897800466685, 0.824285322485286, 0.771220667991526, -1.0213685325144, 0.928795080183842, 0.819280413726459, -1.81676447087493, 0.750354069620072, 0.445075757764079, -0.708114061379466, 0.824862990562917, -0.538393491087728, 0.974198118249183, -1.44391305877857, -0.0570136982996023, -0.0628620473044737, 0.00599485749367468, 0.397443892596693, -0.670529694022941, -0.443694007369259, -1.60185734774623, -0.125754544304519, 0.726126214864875, -0.0167895964097286, -0.306643229540329, -0.216330373334122, -0.903891452322388, 0.326172148813803, -0.13510345952301, -0.897613228123322, 0.845413917001047, -0.831631251080141, 0.487109758044019, -2.39537135767952, -1.00899546383701, -0.15086268042785, 0.817762526779461, -0.0500097005975852, 0.489115737630558, -0.570402758036241, 0.837693310865448, 0.128079053272328, -0.543417844555625, -0.372441278809232, 0.0566412271335022, -0.292618377937407, 0.331718074329116, 0.424938499372394, 0.976537923557996, 0.463868773879129, -0.204612235294409, 0.635623103866607, 0.563790796039522, 0.102279312881195, -0.0139544456391161, 0.319200502078835, -0.348934065906413, 0.553375167400346, -0.448280809644608, -0.00983940055010783, -0.259698968965015, 0.919652420667434, -0.47355400612706, -0.135894354949879, -0.0129965646298911, 0.162878599329267, 0.243328472793848, -0.0718304876664265), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76')));sign(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsign_testsign6_08e620ed3159f0d3b387b641f1c3435e() {
+ assertEval("argv <- list(structure(c(-Inf, Inf, -Inf), .Dim = 3L, .Dimnames = list(c('73', '312', '674'))));sign(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsign_testsign7_df19c8c79a3139ea3a35d57f6e82e25a() {
+ assertEval("argv <- list(c(NA, 2L, 2L));sign(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsign_testsign8_d46bea5eb80678041724eb85442691db() {
+ assertEval("argv <- list(c(-2.3, -0.9, -0.0666666666666667, 0.275, 0.12, 0.216666666666667, -0.228571428571429, -0.35, -0.188888888888889, -1.77635683940025e-16, 0.0272727272727272, -0.108333333333333, -0.246153846153846));sign(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsign_testsign9_07c6bd369d051fbd6e7f91e1513aa1a3() {
+ assertEval("argv <- list(numeric(0));sign(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsin_testsin1_bc036997586f217ec4ec8287a26889d4() {
+ assertEval("argv <- list(c(-6.28318530717959, -6.1261056745001, -5.96902604182061, -5.81194640914112, -5.65486677646163, -5.49778714378214, -5.34070751110265, -5.18362787842316, -5.02654824574367, -4.86946861306418, -4.71238898038469, -4.5553093477052, -4.39822971502571, -4.24115008234622, -4.08407044966673, -3.92699081698724, -3.76991118430775, -3.61283155162826, -3.45575191894877, -3.29867228626928, -3.14159265358979, -2.9845130209103, -2.82743338823081, -2.67035375555132, -2.51327412287183, -2.35619449019234, -2.19911485751286, -2.04203522483337, -1.88495559215388, -1.72787595947439, -1.5707963267949, -1.41371669411541, -1.25663706143592, -1.09955742875643, -0.942477796076938, -0.785398163397448, -0.628318530717959, -0.471238898038469, -0.314159265358979, -0.15707963267949, 0, 0.15707963267949, 0.314159265358979, 0.471238898038469, 0.628318530717959, 0.785398163397448, 0.942477796076938, 1.09955742875643, 1.25663706143592, 1.41371669411541, 1.5707963267949, 1.72787595947439, 1.88495559215388, 2.04203522483337, 2.19911485751286, 2.35619449019234, 2.51327412287183, 2.67035375555133, 2.82743338823081, 2.9845130209103, 3.14159265358979, 3.29867228626928, 3.45575191894877, 3.61283155162826, 3.76991118430775, 3.92699081698724, 4.08407044966673, 4.24115008234622, 4.39822971502571, 4.5553093477052, 4.71238898038469, 4.86946861306418, 5.02654824574367, 5.18362787842316, 5.34070751110265, 5.49778714378214, 5.65486677646163, 5.81194640914112, 5.96902604182061, 6.1261056745001, 6.28318530717959, 6.44026493985908, 6.59734457253857, 6.75442420521805, 6.91150383789754, 7.06858347057704, 7.22566310325652, 7.38274273593601, 7.5398223686155, 7.69690200129499, 7.85398163397448, 8.01106126665397, 8.16814089933346, 8.32522053201295, 8.48230016469244, 8.63937979737193, 8.79645943005142, 8.95353906273091, 9.1106186954104, 9.26769832808989, 9.42477796076938));sin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsin_testsin2_2394041586848efd9c03c6a3b87e9660() {
+ assertEval("argv <- list(c(0.0156298141969641, 0.0312596283939283, 0.0468894425908924, 0.0625192567878566, 0.0781490709848207, 0.0937788851817849, 0.109408699378749, 0.125038513575713, 0.140668327772677, 0.156298141969641, 0.171927956166606, 0.18755777036357, 0.203187584560534, 0.218817398757498, 0.234447212954462, 0.250077027151426, 0.26570684134839, 0.281336655545355, 0.296966469742319, 0.312596283939283, 0.328226098136247, 0.343855912333211, 0.359485726530175, 0.375115540727139, 0.390745354924104, 0.406375169121068, 0.422004983318032, 0.437634797514996, 0.45326461171196, 0.468894425908924, 0.484524240105888, 0.500154054302853, 0.515783868499817, 0.531413682696781, 0.547043496893745, 0.562673311090709, 0.578303125287673, 0.593932939484637, 0.609562753681602, 0.625192567878566, 0.64082238207553, 0.656452196272494, 0.672082010469458, 0.687711824666422, 0.703341638863387, 0.718971453060351, 0.734601267257315, 0.750231081454279, 0.765860895651243, 0.781490709848207, 0.797120524045171, 0.812750338242136, 0.8283801524391, 0.844009966636064, 0.859639780833028, 0.875269595029992, 0.890899409226956, 0.90652922342392, 0.922159037620885, 0.937788851817849, 0.953418666014813, 0.969048480211777, 0.984678294408741, 1.00030810860571, 1.01593792280267, 1.03156773699963, 1.0471975511966, 1.06282736539356, 1.07845717959053, 1.09408699378749, 1.10971680798445, 1.12534662218142, 1.14097643637838, 1.15660625057535, 1.17223606477231, 1.18786587896927, 1.20349569316624, 1.2191255073632, 1.23475532156017, 1.25038513575713, 1.2660149499541, 1.28164476415106, 1.29727457834802, 1.31290439254499, 1.32853420674195, 1.34416402093892, 1.35979383513588, 1.37542364933284, 1.39105346352981, 1.40668327772677, 1.42231309192374, 1.4379429061207, 1.45357272031767, 1.46920253451463, 1.48483234871159, 1.50046216290856, 1.51609197710552, 1.53172179130249, 1.54735160549945, 1.56298141969641));sin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsin_testsin3_fb642056a141b072804a3ec435abd308() {
+ assertEval("argv <- list(c(0.560475646552213, 0.23017748948328, -1.55870831414912, -0.070508391424576, -0.129287735160946, -1.71506498688328, -0.460916205989202, 1.26506123460653, 0.686852851893526, 0.445661970099958, -1.22408179743946, -0.359813827057364, -0.400771450594052, -0.11068271594512, 0.555841134754075, -1.78691313680308, -0.497850478229239, 1.96661715662964, -0.701355901563686, 0.472791407727934, 1.06782370598685, 0.217974914658295, 1.02600444830724, 0.72889122929114, 0.625039267849257, 1.68669331074241, -0.837787044494525, -0.153373117836515, 1.13813693701195, -1.25381492106993, -0.426464221476814, 0.295071482992271, -0.895125661045022, -0.878133487533042, -0.821581081637487, -0.688640254100091, -0.553917653537589, 0.0619117105767217, 0.305962663739917, 0.380471001012383, 0.694706978920513, 0.207917278019599, 1.26539635156826, -2.16895596533851, -1.20796199830499, 1.12310858320335, 0.402884835299076, 0.466655353623219, -0.779965118336318, 0.0833690664718293, -0.253318513994755, 0.028546755348703, 0.0428704572913161, -1.36860228401446, 0.225770985659268, -1.51647060442954, 1.54875280423022, -0.584613749636069, -0.123854243844614, -0.215941568743973, -0.379639482759882, 0.502323453109302, 0.33320738366942, 1.01857538310709, 1.07179122647558, -0.303528641404258, -0.448209778629426, -0.0530042267305041, -0.922267467879738, -2.05008468562714, 0.491031166056535, 2.30916887564081, -1.00573852446226, 0.709200762582393, 0.688008616467358, -1.0255713696967, 0.284773007051009, 1.22071771225454, -0.18130347974915, 0.138891362439045, -0.00576418589988693, -0.38528040112633, 0.370660031792409, -0.644376548518833, 0.220486561818751, -0.331781963915697, -1.09683901314935, -0.435181490833803, 0.325931585531227, -1.14880761845109, -0.993503855962119, -0.54839695950807, -0.238731735111441, 0.627906076039371, -1.36065244853001, 0.600259587147127, -2.18733299301658, -1.53261062618519, 0.235700359100477));sin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsin_testsin4_4efd1ab76c9bc61aebe73d501519c71f() {
+ assertEval("argv <- list(c(-1.88495559215388, 0.628318530717959, -2.51327412287183, 5.02654824574367, 0.942477796076938, -2.51327412287183, 1.5707963267949, 2.19911485751286, 1.88495559215388, -0.942477796076938, 4.71238898038469, 1.25663706143592, -1.88495559215388, -6.91150383789755, 3.45575191894877, 0, 0, 2.82743338823081, 2.51327412287183, 1.88495559215388, 2.82743338823081, 2.51327412287183, 0.314159265358979, -6.28318530717959, 1.88495559215388, -0.314159265358979, -0.628318530717959, -4.71238898038469, -1.5707963267949, 1.25663706143592));sin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsin_testsin5_e04e4807e4be85432755890ffeee5012() {
+ assertEval("argv <- list(structure(c(-0.416146836547142, -0.989992496600445, -0.653643620863612, 0.283662185463226, 0.960170286650366, -0.416146836547142, 0.283662185463226, -0.839071529076452, -0.275163338051597, 0.64691932232864, 0.283662185463226, -0.759687912858821, 0.914742357804531, -0.918282786212119, 0.776685982021631), .Dim = c(5L, 3L)));sin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsin_testsin6_73cfc09ed0ecddd9cb2025432ac90614() {
+ assertEval("argv <- list(c(-0.560475646552213-0.710406563699301i, -0.23017748948328+0.25688370915653i, 1.55870831414912-0.24669187846237i, 0.070508391424576-0.347542599397733i, 0.129287735160946-0.951618567265016i, 1.71506498688328-0.04502772480892i, 0.460916205989202-0.784904469457076i, -1.26506123460653-1.66794193658814i, -0.686852851893526-0.380226520287762i, -0.445661970099958+0.918996609060766i, 1.22408179743946-0.57534696260839i, 0.359813827057364+0.607964322225033i, 0.40077145059405-1.61788270828916i, 0.11068271594512-0.055561965524539i, -0.555841134754075+0.519407203943462i, 1.78691313680308+0.30115336216671i, 0.497850478229239+0.105676194148943i, -1.96661715662964-0.64070600830538i, 0.701355901563686-0.849704346033582i, -0.47279140772793-1.02412879060491i, -1.06782370598685+0.11764659710013i, -0.217974914658295-0.947474614184802i, -1.02600444830724-0.49055744370067i, -0.72889122929114-0.256092192198247i, -0.62503926784926+1.84386200523221i, -1.68669331074241-0.65194990169546i, 0.837787044494525+0.235386572284857i, 0.153373117836515+0.077960849563711i, -1.13813693701195-0.96185663413013i, 1.25381492106993-0.0713080861236i, 0.42646422147681+1.44455085842335i, -0.295071482992271+0.451504053079215i, 0.895125661045022+0.04123292199294i, 0.878133487533042-0.422496832339625i, 0.82158108163749-2.05324722154052i, 0.68864025410009+1.13133721341418i, 0.55391765353759-1.46064007092482i, -0.061911710576722+0.739947510877334i, -0.30596266373992+1.90910356921748i, -0.38047100101238-1.4438931609718i, -0.694706978920513+0.701784335374711i, -0.207917278019599-0.262197489402468i, -1.26539635156826-1.57214415914549i, 2.16895596533851-1.51466765378175i, 1.20796199830499-1.60153617357459i, -1.12310858320335-0.5309065221703i, -0.40288483529908-1.4617555849959i, -0.466655353623219+0.687916772975828i, 0.77996511833632+2.10010894052567i, -0.08336906647183-1.28703047603518i, 0.253318513994755+0.787738847475178i, -0.028546755348703+0.76904224100091i, -0.042870457291316+0.332202578950118i, 1.36860228401446-1.00837660827701i, -0.225770985659268-0.119452606630659i, 1.51647060442954-0.28039533517025i, -1.54875280423022+0.56298953322048i, 0.584613749636069-0.372438756103829i, 0.123854243844614+0.976973386685621i, 0.215941568743973-0.374580857767014i, 0.37963948275988+1.05271146557933i, -0.5023234531093-1.04917700666607i, -0.33320738366942-1.26015524475811i, -1.01857538310709+3.2410399349424i, -1.07179122647558-0.41685758816043i, 0.303528641404258+0.298227591540715i, 0.448209778629426+0.636569674033849i, 0.053004226730504-0.483780625708744i, 0.922267467879738+0.516862044313609i, 2.05008468562714+0.36896452738509i, -0.491031166056535-0.215380507641693i, -2.30916887564081+0.06529303352532i, 1.00573852446226-0.03406725373846i, -0.70920076258239+2.12845189901618i, -0.688008616467358-0.741336096272828i, 1.0255713696967-1.09599626707466i, -0.284773007051009+0.037788399171079i, -1.22071771225454+0.31048074944314i, 0.18130347974915+0.436523478910183i, -0.138891362439045-0.458365332711106i, 0.00576418589989-1.06332613397119i, 0.38528040112633+1.26318517608949i, -0.370660031792409-0.349650387953555i, 0.644376548518833-0.865512862653374i, -0.220486561818751-0.236279568941097i, 0.331781963915697-0.197175894348552i, 1.09683901314935+1.10992028971364i, 0.435181490833803+0.084737292197196i, -0.325931585531227+0.754053785184521i, 1.14880761845109-0.49929201717226i, 0.993503855962119+0.214445309581601i, 0.54839695950807-0.324685911490835i, 0.238731735111441+0.094583528173571i, -0.627906076039371-0.895363357977542i, 1.36065244853001-1.31080153332797i, -0.60025958714713+1.99721338474797i, 2.18733299301658+0.60070882367242i, 1.53261062618519-1.25127136162494i, -0.235700359100477-0.611165916680421i, -1.02642090030678-1.18548008459731i));sin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsin_testsin7_d46f4bfb8692b20bbe5df43fe244084f() {
+ assertEval("argv <- list(Inf);sin(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsinh_testsinh1_469b091771c279b99367edbba7b94d2f() {
+ assertEval("argv <- list(FALSE);sinh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsinh_testsinh2_0805f93651aa105e4f0b268d3355b3c5() {
+ assertEval("argv <- list(c(-3, -2.96984924623116, -2.93969849246231, -2.90954773869347, -2.87939698492462, -2.84924623115578, -2.81909547738693, -2.78894472361809, -2.75879396984925, -2.7286432160804, -2.69849246231156, -2.66834170854271, -2.63819095477387, -2.60804020100502, -2.57788944723618, -2.54773869346734, -2.51758793969849, -2.48743718592965, -2.4572864321608, -2.42713567839196, -2.39698492462312, -2.36683417085427, -2.33668341708543, -2.30653266331658, -2.27638190954774, -2.24623115577889, -2.21608040201005, -2.18592964824121, -2.15577889447236, -2.12562814070352, -2.09547738693467, -2.06532663316583, -2.03517587939699, -2.00502512562814, -1.9748743718593, -1.94472361809045, -1.91457286432161, -1.88442211055276, -1.85427135678392, -1.82412060301508, -1.79396984924623, -1.76381909547739, -1.73366834170854, -1.7035175879397, -1.67336683417085, -1.64321608040201, -1.61306532663317, -1.58291457286432, -1.55276381909548, -1.52261306532663, -1.49246231155779, -1.46231155778894, -1.4321608040201, -1.40201005025126, -1.37185929648241, -1.34170854271357, -1.31155778894472, -1.28140703517588, -1.25125628140704, -1.22110552763819, -1.19095477386935, -1.1608040201005, -1.13065326633166, -1.10050251256281, -1.07035175879397, -1.04020100502513, -1.01005025125628, -0.979899497487437, -0.949748743718593, -0.919597989949749, -0.889447236180905, -0.859296482412061, -0.829145728643216, -0.798994974874372, -0.768844221105528, -0.738693467336684, -0.708542713567839, -0.678391959798995, -0.648241206030151, -0.618090452261307, -0.587939698492463, -0.557788944723618, -0.527638190954774, -0.49748743718593, -0.467336683417086, -0.437185929648241, -0.407035175879397, -0.376884422110553, -0.346733668341709, -0.316582914572864, -0.28643216080402, -0.256281407035176, -0.226130653266332, -0.195979899497488, -0.165829145728643, -0.135678391959799, -0.105527638190955, -0.0753768844221105, -0.0452261306532664, -0.0150753768844223, 0.0150753768844218, 0.0452261306532664, 0.0753768844221105, 0.105527638190955, 0.135678391959799, 0.165829145728643, 0.195979899497488, 0.226130653266332, 0.256281407035176, 0.28643216080402, 0.316582914572864, 0.346733668341709, 0.376884422110553, 0.407035175879397, 0.437185929648241, 0.467336683417085, 0.49748743718593, 0.527638190954774, 0.557788944723618, 0.587939698492462, 0.618090452261306, 0.648241206030151, 0.678391959798995, 0.708542713567839, 0.738693467336683, 0.768844221105527, 0.798994974874372, 0.829145728643216, 0.85929648241206, 0.889447236180904, 0.919597989949748, 0.949748743718593, 0.979899497487437, 1.01005025125628, 1.04020100502513, 1.07035175879397, 1.10050251256281, 1.13065326633166, 1.1608040201005, 1.19095477386935, 1.22110552763819, 1.25125628140704, 1.28140703517588, 1.31155778894472, 1.34170854271357, 1.37185929648241, 1.40201005025126, 1.4321608040201, 1.46231155778894, 1.49246231155779, 1.52261306532663, 1.55276381909548, 1.58291457286432, 1.61306532663317, 1.64321608040201, 1.67336683417085, 1.7035175879397, 1.73366834170854, 1.76381909547739, 1.79396984924623, 1.82412060301507, 1.85427135678392, 1.88442211055276, 1.91457286432161, 1.94472361809045, 1.9748743718593, 2.00502512562814, 2.03517587939698, 2.06532663316583, 2.09547738693467, 2.12562814070352, 2.15577889447236, 2.18592964824121, 2.21608040201005, 2.24623115577889, 2.27638190954774, 2.30653266331658, 2.33668341708543, 2.36683417085427, 2.39698492462312, 2.42713567839196, 2.4572864321608, 2.48743718592965, 2.51758793969849, 2.54773869346734, 2.57788944723618, 2.60804020100502, 2.63819095477387, 2.66834170854271, 2.69849246231156, 2.7286432160804, 2.75879396984925, 2.78894472361809, 2.81909547738693, 2.84924623115578, 2.87939698492462, 2.90954773869347, 2.93969849246231, 2.96984924623116, 3));sinh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsink_testsink1_1f2f54c86246d0e139afd22163c76df3() {
+ assertEval("argv <- list(structure(2L, class = c('terminal', 'connection')), FALSE, TRUE, FALSE); .Internal(sink(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsink_testsink3_0d11da5ed60ecce0a15b0a8857faf2eb() {
+ assertEval("argv <- list(-1L, FALSE, FALSE, FALSE); .Internal(sink(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsinknumber_testsinknumber1_8599c5fbb4d4e97c1b0e82b6b0732efc() {
+ assertEval("argv <- list(FALSE); .Internal(sink.number(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsort_testsort1_79d6414d8526ee939b6eafee16761ed2() {
+ assertEval("argv <- list('x1', FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsort_testsort10_86aaa4288ff365a073e7d76723839ab2() {
+ assertEval("argv <- list(c(0, 1, 2, 3, 4, 5, 10, 20, 0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 10.5, 20.5), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsort_testsort11_daa9f7f33e05e6d032715e4940a6a86c() {
+ assertEval("argv <- list(c(-2.19467484932178, -1.98568521098019, -1.77669557263859, -1.567705934297, -1.35871629595541, -1.14972665761382, -0.940737019272223, -0.73174738093063, -0.522757742589037, -0.313768104247444, -0.104778465905851, 0.104211172435742, 0.313200810777335, 0.522190449118928, 0.731180087460521, 0.940169725802114, 1.14915936414371), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsort_testsort12_d4e253c96585f41d95e1bc8ee8a869db() {
+ assertEval("argv <- list(numeric(0), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsort_testsort13_62c5e3a80e40e017f73e998ecccba30b() {
+ assertEval("argv <- list(c(3.2170141852258, 1.05106928690785, 1.66357940564162, 2.06079422122964, 4.14833588122863, 2.06378765307826, 2.36276370659185, 3.24215147884243, 2.83953129834327, 3.30869483883634, 5.46733964221407, 2.03767398891014, 2.85680802025857, 2.64551821042465, 4.67467308700083, 2.3927927372781, 3.08019075639266, 3.94941127449109, 2.10368712421998, 4.81745347591039, 3.83804007564263, 2.08807105063803, 3.61685546922612, 2.94897051693531, 3.47550643216271, 3.07230246315272, 4.23279369694672, 1.81117727446505, 2.63966096297246, 2.91308698241298, 2.16647893531705, 2.12232261640219, 3.14429741959172, 3.03010252731164, 0.612934885417947, 4.20285111588776, 3.41200339615357, 5.57848503331671, 3.84747589821948, 2.71531835120639, 5.95966880712648, 5.99450368408389, 1.9435658438782, 3.6313096161238, 2.95103074153623, 3.34932880672239, 3.38982038873719, 1.90037719729933, 3.44786724041094, 4.91152502331018, 2.99818765603358, 2.99935094946993, 4.56084966650585, 4.06067390085133, 1.51378284178709, 3.39083463343057, 4.81582489484611, 4.57755401008752, 3.58222926398261, 3.88349846728127, 1.9653424479797, 3.46240922704975, 2.20782872498056, 2.70425959207144, 4.09788134394798, 2.02538454847724, 3.42919591104144, 3.59060969963992, 3.21718963000801, 4.98446648200379, 2.13993033159313, 3.76840792160398, 3.07334709271771, 2.90144541633446, 3.62636889402076, 2.14187706948445, 1.84882674364997, 2.66779678468496, 4.91403480992383, 3.2180424347809, 3.49371205839627, 2.97243102249084, 3.6327703921222, 2.21059811715123, 4.32018812673702, 3.74698292040973, 2.35582483747667, 3.21683090598037, 3.8786092796675, 3.72000864222298, 4.64421167604526, 2.54928990527353, 4.27841427565877, 4.1988256701096, 2.99979452826552, 2.18635096734649, 2.07313246928386, 3.62006461811335, 3.09115092644749, 4.94138032701983), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsort_testsort14_f165b750593324d78377df58a2d0333e() {
+ assertEval("argv <- list(c(2.17292368994844e-311, 4.34584737989688e-311, 8.69169475979376e-311, 1.73833895195875e-310, 3.4766779039175e-310, 6.953355807835e-310, 1.390671161567e-309, 2.781342323134e-309, 5.562684646268e-309, 1.1125369292536e-308, 2.2250738585072e-308, 4.4501477170144e-308, 8.90029543402881e-308, 1.78005908680576e-307, 2.2250738585072e-303, 2.2250738585072e-298, 1.79769313486232e+298, 1.79769313486232e+303, 2.24711641857789e+307, 4.49423283715579e+307, 8.98846567431158e+307, 1.79769313486232e+308, Inf, -Inf, Inf), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsort_testsort15_71f3b467028b5e516d8bb8ad10c8ce07() {
+ assertEval("argv <- list(structure(c(74, 68, 56, 57, 60, 71, 53, 61, 67, 70, 63, 49, 50, 58, 72, 69, 73, 48, 62, 65, 66, 64, 59, 76, 75, 40, 51, 81, 55, 42, 44, 54, 80, 77, 47, 82, 46, 43, 39, 45, 52, 41), .Dim = c(42L, 1L), .Dimnames = list(c('1', '2', '3', '4', '5', '8', '9', '10', '16', '17', '18', '22', '23', '24', '25', '31', '32', '33', '36', '37', '38', '40', '43', '46', '61', '74', '77', '79', '82', '83', '84', '107', '113', '129', '133', '149', '168', '174', '182', '186', '192', '217'), 'age')), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsort_testsort2_708546602286120991b8e1a9db8a212b() {
+ assertEval("argv <- list(1:10, TRUE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsort_testsort3_15d9d561e8cd727f825b2c14c3c4d2bd() {
+ assertEval("argv <- list(c(1L, 2L, 3L, 153L, 4L, 154L, 303L, 452L, 5L, 155L, 304L, 453L, 6L, 156L, 305L, 454L, 7L, 157L, 306L, 455L, 8L, 158L, 307L, 456L, 9L, 159L, 308L, 457L, 10L, 160L, 309L, 458L, 11L, 161L, 310L, 459L, 12L, 162L, 311L, 460L, 13L, 163L, 312L, 461L, 14L, 164L, 313L, 462L, 15L, 165L, 314L, 463L, 16L, 166L, 315L, 464L, 17L, 167L, 316L, 465L, 18L, 168L, 317L, 466L, 19L, 169L, 318L, 467L, 20L, 170L, 319L, 468L, 21L, 171L, 320L, 469L, 22L, 172L, 321L, 470L, 23L, 173L, 322L, 471L, 24L, 174L, 323L, 472L, 25L, 175L, 324L, 473L, 26L, 176L, 325L, 474L, 27L, 177L, 326L, 475L, 28L, 178L, 327L, 476L, 29L, 179L, 328L, 477L, 30L, 180L, 329L, 478L, 31L, 181L, 330L, 479L, 32L, 182L, 331L, 480L, 33L, 183L, 332L, 481L, 34L, 184L, 333L, 482L, 35L, 185L, 334L, 483L, 36L, 186L, 335L, 484L, 37L, 187L, 336L, 485L, 38L, 188L, 337L, 486L, 39L, 189L, 338L, 487L, 40L, 190L, 339L, 488L, 41L, 191L, 340L, 489L, 42L, 192L, 341L, 490L, 43L, 193L, 342L, 491L, 44L, 194L, 343L, 492L, 45L, 195L, 344L, 493L, 46L, 196L, 345L, 494L, 47L, 197L, 346L, 495L, 48L, 198L, 347L, 496L, 49L, 199L, 348L, 497L, 50L, 200L, 349L, 498L, 51L, 201L, 350L, 499L, 52L, 202L, 351L, 500L, 53L, 203L, 352L, 501L, 54L, 204L, 353L, 502L, 55L, 205L, 354L, 503L, 56L, 206L, 355L, 504L, 57L, 207L, 356L, 505L, 58L, 208L, 357L, 506L, 59L, 209L, 358L, 507L, 60L, 210L, 359L, 508L, 61L, 211L, 360L, 509L, 62L, 212L, 361L, 510L, 63L, 213L, 362L, 511L, 64L, 214L, 363L, 512L, 65L, 215L, 364L, 513L, 66L, 216L, 365L, 514L, 67L, 217L, 366L, 515L, 68L, 218L, 367L, 516L, 69L, 219L, 368L, 517L, 70L, 220L, 369L, 518L, 71L, 221L, 370L, 519L, 72L, 222L, 371L, 520L, 73L, 223L, 372L, 521L, 74L, 224L, 373L, 522L, 75L, 225L, 374L, 523L, 76L, 226L, 375L, 524L, 77L, 227L, 376L, 525L, 78L, 228L, 377L, 526L, 79L, 229L, 378L, 527L, 80L, 230L, 379L, 528L, 81L, 231L, 380L, 529L, 82L, 232L, 381L, 530L, 83L, 233L, 382L, 531L, 84L, 234L, 383L, 532L, 85L, 235L, 384L, 533L, 86L, 236L, 385L, 534L, 87L, 237L, 386L, 535L, 88L, 238L, 387L, 536L, 89L, 239L, 388L, 537L, 90L, 240L, 389L, 538L, 91L, 241L, 390L, 539L, 92L, 242L, 391L, 540L, 93L, 243L, 392L, 541L, 94L, 244L, 393L, 542L, 95L, 245L, 394L, 543L, 96L, 246L, 395L, 544L, 97L, 247L, 396L, 545L, 98L, 248L, 397L, 546L, 99L, 249L, 398L, 547L, 100L, 250L, 399L, 548L, 101L, 251L, 400L, 549L, 102L, 252L, 401L, 550L, 103L, 253L, 402L, 551L, 104L, 254L, 403L, 552L, 105L, 255L, 404L, 553L, 106L, 256L, 405L, 554L, 107L, 257L, 406L, 555L, 108L, 258L, 407L, 556L, 109L, 259L, 408L, 557L, 110L, 260L, 409L, 558L, 111L, 261L, 410L, 559L, 112L, 262L, 411L, 560L, 113L, 263L, 412L, 561L, 114L, 264L, 413L, 562L, 115L, 265L, 414L, 563L, 116L, 266L, 415L, 564L, 117L, 267L, 416L, 565L, 118L, 268L, 417L, 566L, 119L, 269L, 418L, 567L, 120L, 270L, 419L, 568L, 121L, 271L, 420L, 569L, 122L, 272L, 421L, 570L, 123L, 273L, 422L, 571L, 124L, 274L, 423L, 572L, 125L, 275L, 424L, 573L, 126L, 276L, 425L, 574L, 127L, 277L, 426L, 575L, 128L, 278L, 427L, 576L, 129L, 279L, 428L, 577L, 130L, 280L, 429L, 578L, 131L, 281L, 430L, 579L, 132L, 282L, 431L, 580L, 133L, 283L, 432L, 581L, 134L, 284L, 433L, 582L, 135L, 285L, 434L, 583L, 136L, 286L, 435L, 584L, 137L, 287L, 436L, 585L, 138L, 288L, 437L, 586L, 139L, 289L, 438L, 587L, 140L, 290L, 439L, 588L, 141L, 291L, 440L, 589L, 142L, 292L, 441L, 590L, 143L, 293L, 442L, 591L, 144L, 294L, 443L, 592L, 145L, 295L, 444L, 593L, 146L, 296L, 445L, 594L, 147L, 297L, 446L, 595L, 148L, 298L, 447L, 596L, 149L, 299L, 448L, 597L, 150L, 300L, 449L, 598L, 151L, 301L, 450L, 599L, 152L, 302L, 451L, 600L), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsort_testsort4_17d1f5a0c8ed312a0f77f15c4f800fb4() {
+ assertEval("argv <- list(c('graphics', 'lattice', 'stats'), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsort_testsort5_3aea1d38e3b41d4c58dc9591ad995f14() {
+ assertEval("argv <- list(1:54, FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsort_testsort6_dc22613c6235ffad38daeae76c3318d4() {
+ assertEval("argv <- list(c(8.41842881182087, 0.633658419345243, 0.55014003120899, 0.264811823419969, 2.45100807149625e-16, 1.4406901715276e-16), TRUE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsort_testsort7_73facd058d48796b61d1c6d3fe37ddb2() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsort_testsort8_a50114ea6a8caa0932904ee06bcb3a33() {
+ assertEval("argv <- list(c(12784, 12815, 12843, 12874, 12904, 12935, 12965, 12996, 13027, 13057, 13088, 13118, 13149, 13180, 13208, 13239, 13269, 13300, 13330, 13361, 13392, 13422, 13453, 13483, 13514, 13545, 13573, 13604, 13634, 13665, 13695, 13726, 13757, 13787, 13818, 13848, 13879, 13910, 13939, 13970, 14000, 14031, 14061, 14092, 14123, 14153, 14184, 14214, 14245, 14276), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsort_testsort9_824c84a604cb744110ed9255ad9557e0() {
+ assertEval("argv <- list(c('M.user', 'Soft'), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsplit_testsplit1_20fa8ad195c599b35d20771e4afa647a() {
+ assertEval("argv <- list(1:6, structure(1:2, .Label = c('1', '2'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsplit_testsplit10_fe1259d1d240aecaadf3834c9389863a() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('1', '2', '3', '4'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsplit_testsplit12_07b457009dad5981bca3a7b1d8f8f959() {
+ assertEval("argv <- list(structure(c(95.7845839266016, 111.117917259935, 120.284583926602, 77.019531700964, 96.9521364368474, 112.285469770181, 121.452136436847, 77.019531700964, 96.9521364368474, 112.285469770181, 121.452136436847, 78.1870842112099, 98.1196889470933, 113.453022280427, 122.619688947093, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 78.1870842112099, 98.1196889470933, 113.453022280427, 122.619688947093, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 78.1870842112099, 98.1196889470933, 113.453022280427, 122.619688947093, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 78.1870842112099, 98.1196889470933, 113.453022280427, 122.619688947093, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 78.1870842112099, 98.1196889470933, 113.453022280427, 122.619688947093, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339), .Dim = c(71L, 1L), .Dimnames = list(c('2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72'), NULL)), structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('1', '2', '3', '4'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsplit_testsplit14_d5f5ee939bde53323df5d127bf51a728() {
+ assertEval("argv <- list(structure(c(123.48457192908, 239.059434652297, 290.055338401838, 18.397281603467, 6.57585722655537, 0.670931786731845, 0.178466148156965, 0.245410750178149, 0.363167328274208, 0.194808268742596, 2172.67583033103, 8.91763605923317e+38), .Dim = c(1L, 12L), .Dimnames = list(NULL, c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = '1', class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsplit_testsplit15_894df85ef61c740797eff5749f2f7e96() {
+ assertEval("argv <- list(character(0), structure(integer(0), .Label = character(0), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsplit_testsplit16_9303f5e309a42a081e329ed5895ee7a1() {
+ assertEval("argv <- list(structure(c(47.432, 12.482), .Names = c('(Intercept)', 'group2')), structure(1:2, .Label = c('0', '1'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsplit_testsplit17_48018aa2c6bcbf964501ba64840f800e() {
+ assertEval("argv <- list(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 26.3011774151224, 2.485452029809, 7.15323925419351, 16.761819986295, 10.2645644917686, 0.758337657329402, 29.4935619829433, 12.665970880074, 2.27782676164194e-08, 0.115876279686418), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L), .Label = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23', '25', '27', '29', '31', '33', '35', '37', '39', '41'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsplit_testsplit2_77b862a4544358c0eeebb5e4cfdacb12() {
+ assertEval("argv <- list(structure(c(-1.13864415195445, 0.574433648632919, 0.61125743366192, 0.291104607198021, 1.44367450704693, 0.408616385050392, -0.252815027721455, 0.73544465026571, -0.711029326417947, -0.611820918993561, -0.963259276248408, -0.28935033673839, -0.482346616963731, 0.575284398820533, 0.0664802498883062, 0.0889008730409177, -0.527009741835806, -0.572160487726669, 0.458433701366337, 0.0259549922279207, 0.79246010222197, 0.200856719794408, 0.681708382019133, 1.24959713166139, 2.28504683598586, 0.885201117877485, 0.275047494865858, 0.0611635446204713, -0.226340664609402, -0.701634984067551, -1.36331112409512, -0.470720710127998, 0.0116712292760789, 0.680960771805182, 1.25010637890252, -0.168484448953506, -0.703880448859559, -0.342493773069341, -0.359950801091045, 0.187018301421814, 0.332611568778467, 0.418088885897922, 1.52526747601546, 1.23881025318897, 1.97893910443604, 1.67980257496383, -0.0423836378777035, -0.085940264442189, 0.0751591419566941, 1.33615888669544, 1.29143414265875, 0.211686019646981, 0.107754613497605, -0.842122877395922, -0.363550334633855, -1.04260396788242, -1.00216202750311, -0.725219786582336, -0.702075395338802, -0.0588517433215815, 0.676181221812652, 0.606054389584641, -0.0722001122493283, -0.565579974058951, -1.50420998542363, -1.38835023347894, -1.6387526999868, -1.22317617387598, -2.6439685322602, -1.50311594814139, 0.58539278534518, 0.476423420506994, -0.229810354321508, -0.669629539423225, -0.500767918117353, -1.30780681405878, -0.0658147956438969, 0.619743292251259, 0.947409254626009, 0.137968713284014, -0.0705143536229389, -0.316245167388448, 0.423768217540825, -1.77132723836955, 0.437524374017483, 1.05217040293853, 1.29145821945076, 0.189519814277623, 0.405463210651828, -1.10579240546022, 0.470126971026959, 1.3013241742778, 1.57690948154138, 0.836753145709701, -0.0990436481848584, 0.305059193206195, 0.722542224965483, 0.497020187014643, -0.798519685959293, -0.162044448918511, -0.268976403560686, 0.471344909208507, 1.07960447064393, 0.816448434674936, 1.01857006703316, -0.19352270657549, 0.193745914189151, -0.0118346974247015, 0.515110447770272, 1.29117007883295, 0.484844437955959, 0.357506193819553, -1.95817055695569, -1.62102859205691, -2.13900473718215, -2.19173201733318, -1.86372596557808, -1.18864210270607, -1.19890597040604, 0.432503235072499, 0.594410727524479, 1.21432538936706, 2.15795981275539, 1.31528364302187, 0.38422055227912, 0.786869292659675, -0.703717985086569, -0.535651668024763, 0.34627858116184, 0.537117318247469, 0.901014803953916, 1.2151594352426, 0.827351473348557, -0.682186392255085, -1.33342351753519, -1.26893821314864, -1.4632463728941, -1.64736130434257, -1.21073183651285, -0.643396605364174), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100', '101', '102', '103', '104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', '115', '116', '117', '118', '119', '120', '121', '122', '123', '124', '125', '126', '127', '128', '129', '130', '131', '132', '133', '134', '135', '136', '137', '138', '139', '140')), structure(c(9L, 9L, 9L, 9L, 9L, 9L, 9L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 17L, 17L, 17L, 17L, 17L, 17L, 17L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 12L, 12L, 12L, 12L, 12L, 12L, 12L), .Label = c('10', '8', '2', '6', '3', '5', '9', '7', '1', '4', '17', '20', '11', '12', '16', '13', '14', '18', '15', '19'), class = c('ordered', 'factor'))); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsplit_testsplit3_2110887bdc67a33cdb74f2d637eba0d9() {
+ assertEval("argv <- list(structure(c(1034.46153846154, 480.076923076923, 504.692307692308, 480.076923076923, 0, 0, 0, 0, 480.076923076923, 517.230769230769, 444.307692307692, 819.846153846154, 945.230769230769, 542.769230769231, 0, 0, 0, 1824.30769230769, 444.307692307692, 912.153846153846, 0, 0, 1514.07692307692, 0, 936, 0), .Dim = 26L, .Dimnames = list(c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '2', '2', '2', '2', '2', '2', '2', '2', '2', '2', '2', '2', '2'))), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('1', '2'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsplit_testsplit4_9ebbe941bcd9318354ba4b8b72328408() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 1.48219693752374e-323, 0, 0, 0, 0, 0), .Dim = c(1L, 12L), .Dimnames = list(NULL, c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = '1', class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsplit_testsplit5_9a320b61d6ec695f1a620a875b64d959() {
+ assertEval("argv <- list(c(1, 3, 5, 7, 8, 3, 5, NA, 4, 5, 7, 9), structure(c(8L, 6L, 3L, 2L, NA, 5L, 1L, 4L, 7L, 3L, NA, NA), .Label = c('0', '2', '6', '8', '15', '22', '29', '35'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsplit_testsplit6_8c499e0bca4e56de70822007298be8df() {
+ assertEval("argv <- list(c(41L, 36L, 12L, 18L, NA, 28L, 23L, 19L, 8L, NA, 7L, 16L, 11L, 14L, 18L, 14L, 34L, 6L, 30L, 11L, 1L, 11L, 4L, 32L, NA, NA, NA, 23L, 45L, 115L, 37L, NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 135L, 49L, 32L, NA, 64L, 40L, 77L, 97L, 97L, 85L, NA, 10L, 27L, NA, 7L, 48L, 35L, 61L, 79L, 63L, 16L, NA, NA, 80L, 108L, 20L, 52L, 82L, 50L, 64L, 59L, 39L, 9L, 16L, 78L, 35L, 66L, 122L, 89L, 110L, NA, NA, 44L, 28L, 65L, NA, 22L, 59L, 23L, 31L, 44L, 21L, 9L, NA, 45L, 168L, 73L, NA, 76L, 118L, 84L, 85L, 96L, 78L, 73L, 91L, 47L, 32L, 20L, 23L, 21L, 24L, 44L, 21L, 28L, 9L, 13L, 46L, 18L, 13L, 24L, 16L, 13L, 23L, 36L, 7L, 14L, 30L, NA, 14L, 18L, 20L), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L), .Label = c('1', '2', '3', '4', '5'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsplit_testsplit7_c8635a0f41744cd3be693fd1f670d24b() {
+ assertEval("argv <- list(structure(c('Sex/(Age + Eth * Lrn)', 'Sex + Sex:Age + Sex:Eth + Sex:Lrn + Sex:Eth:Lrn + Sex:Age:Lrn', 'Sex + Sex:Age + Sex:Eth + Sex:Lrn + Sex:Eth:Lrn + Sex:Age:Lrn + Sex:Age:Eth + Sex:Age:Eth:Lrn', '1.597991', '1.686899', '1.928360', '132', '128', '118', '-1063.025', '-1055.398', '-1039.324', '', '1 vs 2', '2 vs 3', '', ' 4', '10', '', ' 7.627279', '16.073723', '', '0.10622602', '0.09754136'), .Dim = c(3L, 8L)), structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L, 4L, 4L, 4L, 5L, 5L, 5L, 6L, 6L, 6L, 7L, 7L, 7L, 8L, 8L, 8L), .Label = c('1', '2', '3', '4', '5', '6', '7', '8'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsplit_testsplit8_fb4094f696d5528d8ccfeb9decc633bf() {
+ assertEval("argv <- list(c(0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), structure(c(60L, 60L, 60L, 60L, 61L, 61L, 61L, 61L, 62L, 62L, 62L, 62L, 63L, 63L, 63L, 63L, 64L, 64L, 64L, 64L, 65L, 65L, 65L, 65L, 66L, 66L, 66L, 66L, 67L, 67L, 67L, 67L, 68L, 68L, 68L, 68L, 69L, 69L, 69L, 69L, 70L, 70L, 70L, 70L, 71L, 71L, 71L, 71L, 72L, 72L, 72L, 72L, 73L, 73L, 73L, 73L, 74L, 74L, 74L, 74L, 75L, 75L, 75L, 75L, 76L, 76L, 76L, 76L, 77L, 77L, 77L, 77L, 78L, 78L, 78L, 78L, 79L, 79L, 79L, 79L, 80L, 80L, 80L, 80L, 81L, 81L, 81L, 81L, 82L, 82L, 82L, 82L, 83L, 83L, 83L, 83L, 84L, 84L, 84L, 84L, 85L, 85L, 85L, 85L, 86L, 86L, 86L, 86L, 87L, 87L, 87L, 87L, 88L, 88L, 88L, 88L, 89L, 89L, 89L, 89L, 90L, 90L, 90L, 90L, 91L, 91L, 91L, 91L, 92L, 92L, 92L, 92L, 93L, 93L, 93L, 93L, 94L, 94L, 94L, 94L, 95L, 95L, 95L, 95L, 96L, 96L, 96L, 96L, 97L, 97L, 97L, 97L, 98L, 98L, 98L, 98L, 99L, 99L, 99L, 99L, 100L, 100L, 100L, 100L, 101L, 101L, 101L, 101L, 102L, 102L, 102L, 102L, 103L, 103L, 103L, 103L, 104L, 104L, 104L, 104L, 105L, 105L, 105L, 105L, 106L, 106L, 106L, 106L, 107L, 107L, 107L, 107L, 108L, 108L, 108L, 108L, 109L, 109L, 109L, 109L, 110L, 110L, 110L, 110L, 111L, 111L, 111L, 111L, 112L, 112L, 112L, 112L, 113L, 113L, 113L, 113L, 114L, 114L, 114L, 114L, 115L, 115L, 115L, 115L, 116L, 116L, 116L, 116L, 117L, 117L, 117L, 117L, 118L, 118L, 118L, 118L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L), .Label = c('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100', '101', '102', '103', '104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', '115', '116', '117'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsplit_testsplit9_1b57cbe8f915a71b63e9b370cb6ce3da() {
+ assertEval("argv <- list(structure(c(NA, NA), .Dim = 1:2), structure(1:2, .Label = c('1', '2'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf1_616a46b4d84336c3102cffdafbe6120b() {
+ assertEval("argv <- list('%s is not TRUE', 'identical(fxy, c(1, 2, 3))'); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf10_6172749ae549a836aadb4dd013b21de5() {
+ assertEval("argv <- list('%.0f%% said yes (out of a sample of size %.0f)', 66.666, 3); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf11_d23addb4a3134230d0dc4278eb1922e5() {
+ assertEval("argv <- list('%1$d %1$x %1$X', 0:15); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf12_f4d7713d7b5a3f4a6b1a93394506cd3c() {
+ assertEval("argv <- list('%03o', 1:255); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf13_478f180082d0ac4a879d1a33ff328f6b() {
+ assertEval("argv <- list('%d y value <= 0 omitted from logarithmic plot', 1L); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf14_79114a50f7b2d99eaf7f123f770951a5() {
+ assertEval("argv <- list('%o', 1:255); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf15_abe68cd9419b74554ccc9eefb2a5e000() {
+ assertEval("argv <- list('%s-class.Rd', structure('foo', .Names = 'foo')); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf16_654fd9520033d51a810841e76a3331df() {
+ assertEval("argv <- list('checkRd: (%d) %s', -3, 'evalSource.Rd:157: Unnecessary braces at ‘{\'sourceEnvironment\'}’'); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf17_5c2dcbe3c6acc9fac8529456e762629d() {
+ assertEval("argv <- list('tools:::check_compiled_code(\'%s\')', '/home/lzhao/hg/r-instrumented/library/foreign'); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf18_7c78033017935e48884a106c97df1044() {
+ assertEval("argv <- list('%5g', structure(c(18, 18, 0, 14, 4, 12, 12, 0, 4, 8, 26, 23, 3, 18, 5, 8, 5, 3, 0, 5, 21, 0, 21, 0, 0), .Dim = c(5L, 5L), .Dimnames = list(NULL, c('', '', '', '', '')))); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf19_8449b4ebb95f08588a64017df0462c09() {
+ assertEval("argv <- list('%G', 3.14159265358979e-06); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf2_6f783f16dea8a9ca3ce36d08b5e20bd2() {
+ assertEval("argv <- list('%1.0f', 3.14159265358979); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf3_4500fd7dacd66c3f6fa9f34111311bc6() {
+ assertEval("argv <- list('min 10-char string '%10s'', c('a', 'ABC', 'and an even longer one')); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf4_4ba398000579f50256b550139ded0f38() {
+ assertEval("argv <- list('%o', integer(0)); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf5_64e1e861b692ffee9902ef9fbea83743() {
+ assertEval("argv <- list('%*s', 1, ''); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf6_42afa56096704b74cdced3cc2cefb49d() {
+ assertEval("argv <- list('p,L,S = (%2d,%2d,%2d): ', TRUE, TRUE, FALSE); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf7_a11bbe5e012da496a5b842776046cc72() {
+ assertEval("argv <- list('p,L,S = (%2d,%2d,%2d): ', TRUE, FALSE, NA); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf8_06b6d94104e933b38193dbd93001fbf6() {
+ assertEval("argv <- list('plot_%02g', 1L); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsprintf_testsprintf9_034a1cf6e1acbf980f45240da29bea2e() {
+ assertEval("argv <- list('tools:::.createExdotR(\'%s\', \'%s\', silent = TRUE, use_gct = %s, addTiming = %s)', structure('KernSmooth', .Names = 'Package'), '/home/lzhao/hg/r-instrumented/library/KernSmooth', FALSE, FALSE); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsqrt_testsqrt1_5dda5164d550aa7c9c076ada2bbfafa7() {
+ assertEval("argv <- list(12.8025995273675);sqrt(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsqrt_testsqrt10_c5fe6f580d109ac9f509c00e53c05393() {
+ assertEval("argv <- list(c(6L, 5L, 4L, 3L, 2L, 1L, 0L, -1L, -2L, -3L, -4L));sqrt(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsqrt_testsqrt11_9908a933b068d0de08d8bc00c66b9f2d() {
+ assertEval("argv <- list(0+1i);sqrt(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsqrt_testsqrt2_86198485e1ddf1ed5a1f95af3b47e1c3() {
+ assertEval("argv <- list(numeric(0));sqrt(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsqrt_testsqrt3_fb6096a75af46e592011add4412ad05a() {
+ assertEval("argv <- list(-17+0i);sqrt(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsqrt_testsqrt4_c3553ee9dbe0cc029a7c53ffa9d9f995() {
+ assertEval("argv <- list(1e+07);sqrt(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsqrt_testsqrt5_5dbdc7518a9f43a7945fe7eb8408f153() {
+ assertEval("argv <- list(1);sqrt(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsqrt_testsqrt6_96cdf42e22d6df783b27e607fa15b84a() {
+ assertEval("argv <- list(structure(c(0.0101832147522745, 0.0107298799092166, 0.0605795647466432, 7.03601392438852e-05), .Names = c('ar1', 'ar2', 'intercept', 'trend')));sqrt(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsqrt_testsqrt7_300e338c3cadecc8daa738b60f0e5d37() {
+ assertEval("argv <- list(structure(1:10, id = 'test 1', class = structure('withId', package = '.GlobalEnv')));sqrt(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsqrt_testsqrt8_dcf2d8f698d67251623afa20dbd58a94() {
+ assertEval("argv <- list(structure(c(660, 543, 711, 500, 410, 309, 546, 351, 269, 203, 370, 193, 181, 117, 243, 136, 117, 87, 154, 84), .Dim = 4:5, .Dimnames = list(c('Rural Male', 'Rural Female', 'Urban Male', 'Urban Female'), c('70-74', '65-69', '60-64', '55-59', '50-54'))));sqrt(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsqrt_testsqrt9_9eb7089691129bd4fb7824790db35d24() {
+ assertEval("argv <- list(c(6L, 5L, 4L, 3L, 2L, 1L, 0L, NA, NA, NA, NA));sqrt(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinstderr_teststderr1_7a012cad709ef080feb5977f7c4e5c4e() {
+ assertEval(" .Internal(stderr())");
+ }
+
+ @Test
+ public void TestrGenBuiltinstdin_teststdin1_0f1fda4fe13230393e2f22a90c351509() {
+ assertEval(" .Internal(stdin())");
+ }
+
+ @Test
+ public void TestrGenBuiltinstoragemodeassign_teststoragemodeassign1_6272e209857a868cc2dd7de3377492a9() {
+ assertEval("argv <- list(structure(c(4L, 5L, 10L, 9L, 13L, 13L, 12L, 15L, 18L, 19L, 22L, 27L, 28L, 24L, 27L, 28L, 30L, 31L, 32L, 36L, 28L, 32L, 35L, 33L, 38L, 41L, 38L, 38L, 32L, 34L, 44L, 44L, 44L, 46L, 47L, 49L, 50L, 53L, 52L, 55L, 54L, 60L, 63L, 86L, 85L, 85L, 78L, 74L, 97L, 98L, 98L, 99L, 99L, 101L, 108L, 110L, 108L, 111L, 115L, 117L, 70L, 77L, 83L, 61L, 69L, 78L, 66L, 58L, 64L, 69L, 66L, 61L, 76L, 72L, 64L, 53L, 63L, 59L, 77L, 49L, 69L, 88L, 75L, 61L, 65L, 74L, 72L, 76L, 58L, 55L, 60L, 52L, 60L, 61L, 72L, 147L, 149L, 153L, 154L, 151L, 150L, 145L, 143L, 143L, 141L, 156L, 149L, 143L, 142L, 149L, 152L, 142L, 144L, 152L, 155L, 124L, 136L, 139L, 132L, 115L, 96L, 94L, 96L, 122L, 116L, 124L, 119L, 128L, 115L, 111L, 111L, 116L, 126L, 117L, 115L, 4L, 12L, 21L, 15L, 15L, 16L, 18L, 13L, 20L, 21L, 23L, 25L, 27L, 31L, 30L), .Dim = c(75L, 2L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75'), c('x', 'y'))), value = 'double');`storage.mode<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinstoragemodeassign_teststoragemodeassign2_ee539fca2156d13e0a846487f1b15d0d() {
+ assertEval("argv <- list(3.14159265358979, value = 'complex');`storage.mode<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinstoragemodeassign_teststoragemodeassign3_49f221134e0cad67f91e55148990beae() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE), .Dim = c(4L, 4L)), value = 'integer');`storage.mode<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinstoragemodeassign_teststoragemodeassign4_84410a9ae1c42022d71f755b12c62dc5() {
+ assertEval("argv <- list(structure(c(2, 0, 1, 2), .Dim = c(2L, 2L), .Dimnames = list(c('A', 'B'), c('A', 'B'))), value = 'logical');`storage.mode<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinstoragemodeassign_teststoragemodeassign5_44f1213afd959902c1564613980ca8b7() {
+ assertEval("argv <- list(structure(c(2.5, 0, 0.75, 0, 2.5, -2.5, 0.75, -2.5, 2.8), .Dim = c(3L, 3L)), value = 'double');`storage.mode<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrptime_teststrptime1_4c7df73e00bf777919be527eb390825b() {
+ assertEval("argv <- list('2008-04-22 09:45', '%Y-%m-%d', ''); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrptime_teststrptime10_6dc9bd093153d9606f4e578147b11345() {
+ assertEval("argv <- list(c('1937/01/01', '1916/01/01', '1913/01/01', '1927/01/01', '1947/01/01', '1913/01/01', '1917/01/01', '1923/01/01', '1921/01/01', '1926/01/01', '1920/01/01', '1915/01/01', '1914/01/01', '1914/01/01', '1914/01/01', '1919/01/01', '1948/01/01', '1911/01/01', '1909/01/01', '1913/01/01', '1925/01/01', '1926/01/01', '1910/01/01', '1917/01/01', '1936/01/01', '1938/01/01', '1960/01/01', '1915/01/01', '1919/01/01', '1924/01/01', '1914/01/01', '1905/01/01', '1921/01/01', '1929/01/01', '1926/01/01', '1921/01/01', '1908/01/01', '1928/01/01', '1919/01/01', '1921/01/01', '1925/01/01', '1934/01/01', '1927/01/01', '1928/01/01', '1934/01/01', '1922/01/01', '1923/01/01', '1915/01/01', '1934/01/01', '1925/01/01', '1922/01/01', '1930/01/01', '1924/01/01', '1923/01/01', '1919/01/01', '1932/01/01', '1930/01/01', '1923/01/01', '1930/01/01', '1922/01/01', '1919/01/01', '1932/01/01', '1939/01/01', '1923/01/01', '1920/01/01', '1919/01/01', '1952/01/01', '1927/01/01', '1924/01/01', '1919/01/01', '1925/01/01', '1945/01/01', '1916/01/01', '1943/01/01', '1920/01/01', '1920/01/01', '1931/01/01', '1924/01/01', '1919/01/01', '1926/01/01', '1920/01/01', '1942/01/01', '1919/01/01', '1930/01/01', '1925/01/01', '1924/01/01', '1926/01/01', '1918/01/01', '1922/01/01', '1921/01/01', '1925/01/01', '1928/01/01', '1925/01/01', '1929/01/01', '1933/01/01', '1947/01/01', '1950/01/01', '1945/01/01', '1924/01/01', '1939/01/01', '1924/01/01', '1933/01/01', '1928/01/01'), '%Y/%m/%d', ''); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrptime_teststrptime2_9b83a552c56f01b311df72a542a966a5() {
+ assertEval("argv <- list(character(0), '%X', ''); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrptime_teststrptime3_c2b5ec483173d04d6fcc728697c0c4dc() {
+ assertEval("argv <- list('1970-01-01', '%Y-%m-%d %H:%M', 'GMT'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrptime_teststrptime4_eba0c25175f23eebff50129ca141e271() {
+ assertEval("argv <- list('2007-11-06', '%Y-%m-%d', 'GMT'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrptime_teststrptime5_1490fa43b30ec006bc9b16cd90ea411c() {
+ assertEval("argv <- list('1970-01-01', '%Y-%m-%d', 'GMT'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrptime_teststrptime6_8c4c142eca3d59458c4be09920bda7a8() {
+ assertEval("argv <- list(c('2007-11-06', NA), '%Y-%m-%d', ''); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrptime_teststrptime7_0fa492444ae1aeaf2cdc57996aef2f9e() {
+ assertEval("argv <- list(c('20010101', NA, NA, '20041026'), '%Y%m%d', 'GMT'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrptime_teststrptime8_12cdb7fc9655b4169babb42de4ea6e4a() {
+ assertEval("argv <- list('2002-02-02 02:02', '%Y-%m-%d %H:%M', ''); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrptime_teststrptime9_14974f52a3b2e223c70762d0ba1f17fa() {
+ assertEval("argv <- list(c('1890/01/01', '1891/01/01', '1892/01/01', '1893/01/01', '1894/01/01', '1895/01/01'), '%Y/%m/%d', ''); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrsplit_teststrsplit1_448b961f5a1733beaa391a3177368109() {
+ assertEval("argv <- list('exNSS4', '_', TRUE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrsplit_teststrsplit10_2cea016d569d5b424eb5691f4e7f8a05() {
+ assertEval("argv <- list('A shell of class documentation has been written to the file './myTst2/man/DocLink-class.Rd'.\n', '[ \t\n]', FALSE, TRUE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrsplit_teststrsplit11_c85911589c86839478dfc0ab22a937a6() {
+ assertEval("argv <- list(structure('pkgB', .Names = 'name'), '_', TRUE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrsplit_teststrsplit12_b21c4cf65dd0dddc37d3f00a7517e156() {
+ assertEval("argv <- list('Keywords: utilities ', '\n[ \t\n]*\n', FALSE, TRUE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrsplit_teststrsplit13_37e2fa57db5d7a3d63ef62c75f9fe817() {
+ assertEval("argv <- list('x', '', FALSE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrsplit_teststrsplit14_851cbb2463ab3826c77855238c5eb345() {
+ assertEval("argv <- list(c('* Edit the help file skeletons in 'man', possibly combining help files for multiple functions.', '* Edit the exports in 'NAMESPACE', and add necessary imports.', '* Put any C/C++/Fortran code in 'src'.', '* If you have compiled code, add a useDynLib() directive to 'NAMESPACE'.', '* Run R CMD build to build the package tarball.', '* Run R CMD check to check the package tarball.', '', 'Read \'Writing R Extensions\' for more information.'), '\n[ \t\n]*\n', FALSE, TRUE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrsplit_teststrsplit15_8b9de2a3de033f8bab773cbd9fb71d5a() {
+ assertEval("argv <- list(' \036 Complex arithmetic sometimes warned incorrectly about producing NAs when there were NaNs in the input.', '[ \t\n]', FALSE, TRUE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrsplit_teststrsplit16_2ea3c44cb1145cff944fd528beddda05() {
+ assertEval("argv <- list(structure(c('1', '2', '3', '4', '5', '1', '2', '3', '4', '5'), .Dim = 10L), '.', TRUE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrsplit_teststrsplit2_98c21157c7a77e3b3ab458092b841b43() {
+ assertEval("argv <- list(structure('x, row.names = NULL, ', Rd_tag = 'RCODE'), '', FALSE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrsplit_teststrsplit3_2310c2de65f0ea486d0573a2bc3d43a9() {
+ assertEval("argv <- list(' \036 isSeekable() now returns FALSE on connections which have non-default encoding. Although documented to record if ‘in principle’ the connection supports seeking, it seems safer to report FALSE when it may not work.', '[ \t\n]', FALSE, TRUE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrsplit_teststrsplit4_1c84e27e543a0fe8fb113f53d96a5da8() {
+ assertEval("argv <- list('Keywords: device ', '[ \t\n]', FALSE, TRUE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrsplit_teststrsplit5_ed8c5430f03372dab6547993fa67a30f() {
+ assertEval("argv <- list('R CMD check now gives an error if the R code in a vignette fails to\nrun, unless this is caused by a missing package.\n\n\036R CMD check now unpacks tarballs in the same way as R CMD INSTALL,\nincluding making use of the environment variable R_INSTALL_TAR to\noverride the default behaviour.\n\n\036R CMD check performs additional code analysis of package startup\nfunctions, and notifies about incorrect argument lists and\n(incorrect) calls to functions which modify the search path or\ninappropriately generate messages.\n\n\036R CMD check now also checks compiled code for symbols corresponding\nto functions which might terminate R or write to stdout/stderr\ninstead of the console.\n\n\036R CMD check now uses a pdf() device when checking examples (rather\nthan postscript()).\n\n\036R CMD check now checks line-endings of makefiles and C/C++/Fortran\nsources in subdirectories of src as well as in src itself.\n\n\036R CMD check now reports as a NOTE what look like methods documented\nwith their full names even if there is a namespace and they are\nexported. In almost all cases they are intended to be used only as\nmethods and should use the \\method markup. In the other rare cases\nthe recommended form is to use a function such as coefHclust which\nwould not get confused with a method, document that and register it\nin the NAMESPACE file by s3method(coef, hclust, coefHclust).\n\n\036The default for the environment variable _R_CHECK_COMPACT_DATA2_ is\nnow true: thus if using the newer forms of compression introduced\nin R 2.10.0 would be beneficial is now checked (by default).\n\n\036Reference output for a vignette can be supplied when checking a\npackage by R CMD check: see ‘Writing R Extensions’.\n\n\036R CMD Rd2dvi allows the use of LaTeX package inputenx rather than\ninputenc: the value of the environment variable RD2DVI_INPUTENC is\nused. (LaTeX package inputenx is an optional install which\nprovides greater coverage of the UTF-8 encoding.)\n\n\036Rscript on a Unix-alike now accepts file names containing spaces\n(provided these are escaped or quoted in the shell).\n\n\036R CMD build on a Unix-alike (only) now tries to preserve dates on\nfiles it copies from its input directory. (This was the\nundocumented behaviour prior to R 2.13.0.)', '\n\036', TRUE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrsplit_teststrsplit6_52315502093be9aa623781f2288b2981() {
+ assertEval("argv <- list(structure('Formal Methods and Classes', .Names = 'Title'), '\n\n', TRUE, FALSE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrsplit_teststrsplit7_c1054c01a38a718df1a22d3dc6da5081() {
+ assertEval("argv <- list('', '', FALSE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrsplit_teststrsplit8_70a186f7f9c91711f9c72b14cb9202c1() {
+ assertEval("argv <- list('The \\usage entries for S3 methods should use the \\method markup and not their full name.\n', '\n', FALSE, FALSE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrsplit_teststrsplit9_15e7ac323c9c2f56d647974d51467988() {
+ assertEval("argv <- list('M.user:Temp', ':', FALSE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrtoi_teststrtoi1_932126fb56d63128a8fff131e80fdb80() {
+ assertEval("argv <- list('0777', 8L); .Internal(strtoi(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrtoi_teststrtoi2_3cac81ee83f43b33cebe79355169ea6f() {
+ assertEval("argv <- list('700', 8L); .Internal(strtoi(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrtoi_teststrtoi3_bcac6ad0b7bf34c4b9590e8a13249944() {
+ assertEval("argv <- list(c('0xff', '077', '123'), 0L); .Internal(strtoi(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrtoi_teststrtoi4_dcd5e78ea79fa15d211f9734f3c225e8() {
+ assertEval("argv <- list('1.3', 16L); .Internal(strtoi(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrtoi_teststrtoi5_6a90971d9e7f4ddd6a5de0999d87b8de() {
+ assertEval("argv <- list(character(0), 8L); .Internal(strtoi(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrtrim_teststrtrim1_811a30186b585d44bd04bb5e87aff846() {
+ assertEval("argv <- list(c('\'time\'', '\'status\''), 128); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrtrim_teststrtrim2_c68d207f987c1402c8eb1953a9b3b36c() {
+ assertEval("argv <- list('2014-03-17 14:47:20', 8); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrtrim_teststrtrim3_76b20a7a9704fff76946a10d219a4b1a() {
+ assertEval("argv <- list(c('\'1\'', '\'2\'', NA), 128); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrtrim_teststrtrim4_8fbfd0e4371659b597292b7cf96c532a() {
+ assertEval("argv <- list(c('\'gray17\'', '\'grey17\''), 128); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrtrim_teststrtrim5_23323d6e7038b663d2b84cb0665e70b9() {
+ assertEval("argv <- list(structure('\'@CRAN@\'', .Names = 'CRAN'), 128); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrtrim_teststrtrim6_136a6c56cb2710373560578e3ee15b23() {
+ assertEval("argv <- list('FALSE', FALSE); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinstrtrim_teststrtrim8_8fdaa44e7c9944acc05b068ca7ede50a() {
+ assertEval("argv <- list(character(0), 40L); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub1_37aed69a5a1f49d174242092e9620544() {
+ assertEval("argv <- list('^..dfd.', '', c('aa', '..dfd.row.names'), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub10_3dab460e01eaf725e46a8408c4c76c1a() {
+ assertEval("argv <- list('^[[:space:]]*([[:alnum:].]+).*$', '\\1', structure('MASS', .Names = 'Suggests'), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub11_ed740f88acae2270accae03a8009df28() {
+ assertEval("argv <- list(' +$', '', c(NA, '1', NA, '2', '1', NA, NA, '1', '4', '1', NA, '4', '1', '3', NA, '4', '2', '2', NA, '4', '4', '2', '4', '4', '2', '1', '4', '4', '3', '1', '1', '4', '1', '4', NA, '1', '4', '4', '2', '2', '4', '4', '3', '4', '2', '2', '3', '3', '4', '1', '1', '1', '4', '1', '4', '4', '4', '4', NA, '4', '4', '4', NA, '1', '2', '3', '4', '3', '4', '2', '4', '4', '1', '4', '1', '4', NA, '4', '2', '1', '4', '1', '1', '1', '4', '4', '2', '4', '1', '1', '1', '4', '1', '1', '1', '4', '3', '1', '4', '3', '2', '4', '3', '1', '4', '2', '4', NA, '4', '4', '4', '2', '1', '4', '4', NA, '2', '4', '4', '1', '1', '1', '1', '4', '1', '2', '3', '2', '1', '4', '4', '4', '1', NA, '4', '2', '2', '2', '4', '4', '3', '3', '4', '2', '4', '3', '1', '1', '4', '2', '4', '3', '1', '4', '3', '4', '4', '1', '1', '4', '4', '3', '1', '1', '2', '1', '3', '4', '2', '2', '2', '4', '4', '3', '2', '1', '1', '4', '1', '1', '2', NA, '2', '3', '3', '2', '1', '1', '1', '1', '4', '4', '4', '4', '4', '4', '2', '2', '1', '4', '1', '4', '3', '4', '2', '3', '1', '3', '1', '4', '1', '4', '1', '4', '3', '3', '4', '4', '1', NA, '3', '4', '4', '4', '4', '4', '4', '3', '4', '3', '4', '2', '4', '4', '1', '2', NA, '4', '4', '4', '4', '1', '2', '1', '1', '2', '1', '4', '2', '3', '1', '4', '4', '4', '1', '2', '1', '4', '2', '1', '3', '1', '2', '2', '1', '2', '1', NA, '3', '2', '2', '4', '1', '4', '4', '2', '4', '4', '4', '2', '1', '4', '2', '4', '4', '4', '4', '4', '1', '3', '4', '3', '4', '1', NA, '4', NA, '1', '1', '1', '4', '4', '4', '4', '2', '4', '3', '2', NA, '1', '4', '4', '3', '4', '4', '4', '2', '4', '2', '1', '4', '4', NA, '4', '4', '3', '3', '4', '2', '2', '4', '1', '4', '4', '4', '3', '4', '4', '4', '3', '2', '1', '3', '1', '4', '1', '4', '2', NA, '1', '4', '4', '3', '1', '4', '1', '4', '1', '4', '4', '1', '2', '2', '1', '4', '1', '1', '4', NA, '4', NA, '4', '4', '4', '1', '4', '2', '1', '2', '2', '2', '2', '1', '1', '2', '1', '4', '2', '3', '3', '1', '3', '1', '4', '1', '3', '2', '2', '4', '1', NA, '3', '4', '2', '4', '4', '4', '4', '4', '4', '3', '4', '4', '3', '2', '1', '4', '4', '2', '4', '2', '1', '2', '1', '1', '1', '1', '4', '4', '1', '1', '4', '1', '4', '4', '4', '1', '1', NA, '3', '2', '4', '4', '4', '4', '2', '3', '3', '2', NA, '4', '2', '4', '4', '1', '1', '4', '4', '1', '1', '4', '1', '2', '2', '2', '2', '1', '4', '4', '1', '2', '2', '2', '3', '4', '4', '3', '4', '1', '1', '4', '4', NA, '4', '1', '4', '4', '4', '1', '4', '4', '1', '2', '4', '4', '4', '4', '1', '2', '4', '4', '2', '1', '4', '2', '4', '2', '2', '4', '1', '3', '3', '2', '4', '1', '4', '4', '4', '1', NA, '4', '4', '2', '4', '4', '4', '4', '4', '2', NA, '4', '2', '4', '3', '1', '4', '4', '3', '4', '2', '4', '4', '1', '2', '1', '4', '1', '3', '3', '1', '4', '4', '2', '4', '4', '4', '4', '3', '2', '3', '3', '2', NA, '3', '4', '4', '3', '3', '4', '4', '4', '1', '4', '4', '4', '4', '4', '4', '4', '2', '4', '2', '3', '4', '1', '3', '1', NA, '4', '1', '2', '2', '1', '4', '3', '3', '4', '1', '1', '3'), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub12_5d6dd00c6b4fc5065d30c622287a6304() {
+ assertEval("argv <- list('.* : ', '', structure('Error in rnorm(2, c(1, NA)) : (converted from warning) NAs produced\n', class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(2, c(1, NA)))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub13_490587bd4ba55fcedeb99bf454df1f51() {
+ assertEval("argv <- list('.* : ', '', structure('Error in rexp(2, numeric()) : (converted from warning) NAs produced\n', class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rexp(2, numeric()))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub14_c09fee904dc697fe3d2484f463e0cadf() {
+ assertEval("argv <- list('.* : ', '', structure('Error in rnorm(2, numeric()) : (converted from warning) NAs produced\n', class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(2, numeric()))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub15_16a95fbfdc69cd2c525b9b7cf1506b7c() {
+ assertEval("argv <- list('.* : ', '', structure('Error in rnorm(1, sd = Inf) : (converted from warning) NAs produced\n', class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(1, sd = Inf))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub16_dd71e3531c9968e87f3750ac189c6902() {
+ assertEval("argv <- list('^ +', '', c('1_', 'Weight', 'Cylinders4', 'Cylinders5', 'Cylinders6', 'Cylinders8', 'Cylindersrotary', 'TypeLarge', 'TypeMidsize', 'TypeSmall', 'TypeSporty', 'TypeVan', 'EngineSize', 'DriveTrainFront', 'DriveTrainRear'), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub17_930aba9904352d58f2f5591f3d0efcfd() {
+ assertEval("argv <- list('^msgstr[[:blank:]]+[\'](.*)[\'][[:blank:]]*$', '\\1', 'msgstr \'<U+043E><U+0442><U+0440><U+0438><U+0446><U+0430><U+0442><U+0435><U+043B><U+044C><U+043D><U+044B><U+0435> <U+0432><U+0435><U+0441><U+0430> <U+043D><U+0435> <U+0440><U+0430><U+0437><U+0440><U+0435><U+0448><U+0435><U+043D><U+044B>\'', FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub18_8a1abebf9e80afd63b6551f5adb1b4d1() {
+ assertEval("argv <- list('.*Content-Type:[^\\]*charset=([^\\[:space:]]*)[[:space:]]*\\\\n.*', '\\1', 'Project-Id-Version: lattice 0.20-10\\nReport-Msgid-Bugs-To: bugs@r-project.org\\nPOT-Creation-Date: 2012-03-10 14:42\\nPO-Revision-Date: 2012-08-31 16:36+0100\\nLast-Translator: \305\201ukasz Daniel <lukasz.daniel@gmail.com>\\nLanguage-Team: \305\201ukasz Daniel <lukasz.daniel@gmail.com>\\nLanguage: pl_PL\\nMIME-Version: 1.0\\nContent-Type: text/plain; charset=UTF-8\\nContent-Transfer-Encoding: 8bit\\nPlural-Forms: nplurals=3; plural=(n==1 ? 0 : n%10>=2 && n%10<=4 && (n%100<10 || n%100>=20) ? 1 : 2)\\nX-Poedit-SourceCharset: iso-8859-1\\n', FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub19_27683de863ae5c14556465426ece75b4() {
+ assertEval("argv <- list('([^:]*):(.*)', '\\2', character(0), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub2_9dfdd6946d4cae513af36f5b752dcfa8() {
+ assertEval("argv <- list('[b-e]', '.', c('The', 'licenses', 'for', 'most', 'software', 'are', 'designed', 'to', 'take', 'away', 'your', 'freedom', 'to', 'share', 'and', 'change', 'it.', '', 'By', 'contrast,', 'the', 'GNU', 'General', 'Public', 'License', 'is', 'intended', 'to', 'guarantee', 'your', 'freedom', 'to', 'share', 'and', 'change', 'free', 'software', '--', 'to', 'make', 'sure', 'the', 'software', 'is', 'free', 'for', 'all', 'its', 'users'), FALSE, TRUE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub3_5184c6e4c24fe9cf68e3e65fe28f1dbd() {
+ assertEval("argv <- list('%bm', 'http://www.bioconductor.org', c('@CRAN@', 'http://www.stats.ox.ac.uk/pub/RWin', '%bm/packages/%v/bioc', '%bm/packages/%v/data/annotation', '%bm/packages/%v/data/experiment', '%bm/packages/%v/extra', 'http://www.omegahat.org/R', 'http://R-Forge.R-project.org', 'http://www.rforge.net'), FALSE, FALSE, TRUE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub4_3323f2e8d1368cad17d14f8dd8538856() {
+ assertEval("argv <- list('^ \036 ', '\036', c('', ' \036 Merged in a set of Splus code changes that had accumulated at Mayo', ' over the course of a decade. The primary one is a change in how', ' indexing is done in the underlying C code, which leads to a major', ' speed increase for large data sets. Essentially, for the lower', ' leaves all our time used to be eaten up by bookkeeping, and this', ' was replaced by a different approach. The primary routine also', ' uses .Call{} so as to be more memory efficient.', '', ' \036 The other major change was an error for asymmetric loss matrices,', ' prompted by a user query. With L=loss asymmetric, the altered', ' priors were computed incorrectly - they were using L' instead of L.', ' Upshot - the tree would not not necessarily choose optimal splits', ' for the given loss matrix. Once chosen, splits were evaluated', ' correctly. The printed “improvement” values are of course the', ' wrong ones as well. It is interesting that for my little test', ' case, with L quite asymmetric, the early splits in the tree are', ' unchanged - a good split still looks good.', '', ' \036 Add the return.all argument to xpred.rpart().', '', ' \036 Added a set of formal tests, i.e., cases with known answers to', ' which we can compare.', '', ' \036 Add a usercode vignette, explaining how to add user defined', ' splitting functions.', '', ' \036 The class method now also returns the node probability.', '', ' \036 Add the stagec data set, used in some tests.', '', ' \036 The plot.rpart routine needs to store a value that will be visible', ' to the rpartco routine at a later time. This is now done in an', ' environment in the namespace.', ''), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub5_41cbf72682e3c4c980edcba2a098309e() {
+ assertEval("argv <- list('./', '', structure(c('./data', './html', './po/en@quot/LC_MESSAGES', './po/en@quot', './po/pl/LC_MESSAGES', './po/pl', './po/de/LC_MESSAGES', './po/de', './po', './doc/SuiteSparse', './doc', './Meta', './include', './R', './help', './libs', './external'), class = 'AsIs'), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub6_95c7eef127046a2032c13750370756d0() {
+ assertEval("argv <- list('\'', '\\\'', '\\method{as.dist}{default}', FALSE, FALSE, TRUE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub7_8ed2b6b02e3e19c08d5a5135f5d06160() {
+ assertEval("argv <- list('(\\w)(\\w*)(\\w)', '\\U\\1\\E\\2\\U\\3', 'useRs may fly into JFK or laGuardia', FALSE, TRUE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub8_071871709a3e154f0ca90923dba1f2a4() {
+ assertEval("argv <- list('^(msgstr)\\[([[:digit:]]+)\\].*$', '\\1\\\\[\\2\\\\]', 'msgstr[0] \'%d ligne de poids nul non comptabilis<U+00E9>e\'', FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsub_testsub9_a8ad64d814b123bd01d10264df4fceeb() {
+ assertEval("argv <- list('[[:space:]]*$', '', 'identical() has a new argument, ignore.environment, used when\ncomparing functions (with default FALSE as before).\n\n\036There is a new option, options(CBoundsCheck=), which controls how\n.C() and .Fortran() pass arguments to compiled code. If true\n(which can be enabled by setting the environment variable\nR_C_BOUNDS_CHECK to yes), raw, integer, double and complex\narguments are always copied, and checked for writing off either end\nof the array on return from the compiled code (when a second copy\nis made). This also checks individual elements of character\nvectors passed to .C().\n\nThis is not intended for routine use, but can be very helpful in\nfinding segfaults in package code.\n\n\036In layout(), the limits on the grid size have been raised (again).\n\n\036New simple provideDimnames() utility function.\n\n\036Where methods for length() return a double value which is\nrepresentable as an integer (as often happens for package Matrix),\nthis is converted to an integer.\n\n\036Matrix indexing of dataframes by two-column numeric indices is now\nsupported for replacement as well as extraction.\n\n\036setNames() now has a default for its object argument, useful for a\ncharacter result.\n\n\036StructTS() has a revised additive constant in the loglik component\nof the result: the previous definition is returned as the loglik0\ncomponent. However, the help page has always warned of a lack of\ncomparability of log-likelihoods for non-stationary models.\n(Suggested by Jouni Helske.)\n\n\036The logic in aggregate.formula() has been revised. It is now\npossible to use a formula stored in a variable; previously, it had\nto be given explicitly in the function call.\n\n\036install.packages() has a new argument quiet to reduce the amount of\noutput shown.\n\n\036Setting an element of the graphics argument lwd to a negative or\ninfinite value is now an error. Lines corresponding to elements\nwith values NA or NaN are silently omitted.\n\nPreviously the behaviour was device-dependent.\n\n\036Setting graphical parameters cex, col, lty, lwd and pch in par()\nnow requires a length-one argument. Previously some silently took\nthe first element of a longer vector, but not always when\ndocumented to do so.\n\n\036Sys.which() when used with inputs which would be unsafe in a shell\n(e.g. absolute paths containing spaces) now uses appropriate\nquoting.\n\n\036as.tclObj() has been extended to handle raw vectors. Previously,\nit only worked in the other direction. (Contributed by Charlie\nFriedemann, PR#14939.)\n\n\036New functions cite() and citeNatbib() have been added, to allow\ngeneration of in-text citations from \'bibentry\' objects. A cite()\nfunction may be added to bibstyle() environments.\n\n\036A sort() method has been added for \'bibentry\' objects.\n\n\036The bibstyle() function now defaults to setting the default\nbibliography style. The getBibstyle() function has been added to\nreport the name of the current default style.\n\n\036scatter.smooth() now has an argument lpars to pass arguments to\nlines().\n\n\036pairs() has a new log argument, to allow some or all variables to\nbe plotted on logarithmic scale. (In part, wish of PR#14919.)\n\n\036split() gains a sep argument.\n\n\036termplot() does a better job when given a model with interactions\n(and no longer attempts to plot interaction terms).\n\n\036The parser now incorporates code from Romain Francois' parser\npackage, to support more detailed computation on the code, such as\nsyntax highlighting, comment-based documentation, etc. Functions\ngetParseData() and getParseText() access the data.\n\n\036There is a new function rep_len() analogous to rep.int() for when\nspeed is required (and names are not).\n\n\036The undocumented use rep(NULL, length.out = n) for n > 0 (which\nreturns NULL) now gives a warning.\n\n\036demo() gains an encoding argument for those packages with non-ASCII\ndemos: it defaults to the package encoding where there is one.\n\n\036strwrap() converts inputs with a marked encoding to the current\nlocale: previously it made some attempt to pass through as bytes\ninputs invalid in the current locale.\n\n\036Specifying both rate and scale to [dpqr]gamma is a warning (if they\nare essentially the same value) or an error.\n\n\036merge() works in more cases where the data frames include matrices.\n(Wish of PR#14974.)\n\n\036optimize() and uniroot() no longer use a shared parameter object\nacross calls. (nlm(), nlminb() and optim() with numerical\nderivatives still do, as documented.)\n\n\036The all.equal() method for date-times is now documented: times are\nregarded as equal (by default) if they differ by up to 1 msec.\n\n\036duplicated() and unique() gain a nmax argument which can be used to\nmake them much more efficient when it is known that there are only\na small number of unique entries. This is done automatically for\nfactors.\n\n\036Functions rbinom(), rgeom(), rhyper(), rpois(), rnbinom(),\nrsignrank() and rwilcox() now return integer (not double) vectors.\nThis halves the storage requirements for large simulations.\n\n\036sort(), sort.int() and sort.list() now use radix sorting for\nfactors of less than 100,000 levels when method is not supplied.\nSo does order() if called with a single factor, unless na.last =\nNA.\n\n\036diag() as used to generate a diagonal matrix has been re-written in\nC for speed and less memory usage. It now forces the result to be\nnumeric in the case diag(x) since it is said to have ‘zero\noff-diagonal entries’.\n\n\036backsolve() (and forwardsolve()) are now internal functions, for\nspeed and support for large matrices.\n\n\036More matrix algebra functions (e.g. chol() and solve()) accept\nlogical matrices (and coerce to numeric).\n\n\036sample.int() has some support for n >= 2^31: see its help for the\nlimitations.\n\nA different algorithm is used for (n, size, replace = FALSE, prob =\nNULL) for n > 1e7 and size <= n/2. This is much faster and uses\nless memory, but does give different results.\n\n\036approxfun() and splinefun() now return a wrapper to an internal\nfunction in the stats namespace rather than a .C() or .Call() call.\nThis is more likely to work if the function is saved and used in a\ndifferent session.\n\n\036The functions .C(), .Call(), .External() and .Fortran() now give an\nerror (rather than a warning) if called with a named first\nargument.\n\n\036Sweave() by default now reports the locations in the source file(s)\nof each chunk.\n\n\036clearPushBack() is now a documented interface to a long-existing\ninternal call.\n\n\036aspell() gains filters for R code, Debian Control Format and\nmessage catalog files, and support for R level dictionaries. In\naddition, package utils now provides functions\naspell_package_R_files() and aspell_package_C_files() for spell\nchecking R and C level message strings in packages.\n\n\036bibentry() gains some support for “incomplete” entries with a\ncrossref field.\n\n\036gray() and gray.colors() finally allow alpha to be specified.\n\n\036monthplot() gains parameters to control the look of the reference\nlines. (Suggestion of Ian McLeod.)\n\n\036Added support for new %~% relation (“is distributed as”) in\nplotmath.\n\n\036domain = NA is accepted by gettext() and ngettext(), analogously to\nstop() etc.\n\n\036termplot() gains a new argument plot = FALSE which returns\ninformation to allow the plots to be modified for use as part of\nother plots, but does not plot them. (Contributed by Terry\nTherneau, PR#15076.)\n\n\036quartz.save(), formerly an undocumented part of R.app, is now\navailable to copy a device to a quartz() device. dev.copy2pdf()\noptionally does this for PDF output: quartz.save() defaults to PNG.\n\n\036The default method of pairs() now allows text.panel = NULL and the\nuse of <foo>.panel = NULL is now documented.\n\n\036setRefClass() and getRefClass() now return class generator\nfunctions, similar to setClass(), but still with the reference\nfields and methods as before (suggestion of Romain Francois).\n\n\036New functions bitwNot(), bitwAnd(), bitwOr() and bitwXor(), using\nthe internal interfaces previously used for classes \'octmode\' and\n\'hexmode\'.\n\nAlso bitwShiftL() and bitwShiftR() for shifting bits in elements of\ninteger vectors.\n\n\036New option \'deparse.cutoff\' to control the deparsing of language\nobjects such as calls and formulae when printing. (Suggested by a\ncomment of Sarah Goslee.)\n\n\036colors() gains an argument distinct.\n\n\036New demo(colors) and demo(hclColors), with utility functions.\n\n\036list.files() (aka dir()) gains a new optional argument no.. which\nallows to exclude \'.\' and \'..\' from listings.\n\n\036Multiple time series are also of class \'matrix\'; consequently,\nhead(), e.g., is more useful.\n\n\036encodeString() preserves UTF-8 marked encodings. Thus if factor\nlevels are marked as UTF-8 an attempt is made to print them in\nUTF-8 in RGui on Windows.\n\n\036readLines() and scan() (and hence read.table()) in a UTF-8 locale\nnow discard a UTF-8 byte-order-mark (BOM). Such BOMs are allowed\nbut not recommended by the Unicode Standard: however Microsoft\napplications can produce them and so they are sometimes found on\nwebsites.\n\nThe encoding name \'UTF-8-BOM\' for a connection will ensure that a\nUTF-8 BOM is discarded.\n\n\036mapply(FUN, a1, ..) now also works when a1 (or a further such\nargument) needs a length() method (which the documented arguments\nnever do). (Requested by Hervé Pagès; with a patch.)\n\n\036.onDetach() is supported as an alternative to .Last.lib. Unlike\n.Last.lib, this does not need to be exported from the package's\nnamespace.\n\n\036The srcfile argument to parse() may now be a character string, to\nbe used in error messages.\n\n\036The format() method for ftable objects gains a method argument,\npropagated to write.ftable() and print(), allowing more compact\noutput, notably for LaTeX formatting, thanks to Marius Hofert.\n\n\036The utils::process.events() function has been added to trigger\nimmediate event handling.\n\n\036Sys.which() now returns NA (not \'\') for NA inputs (related to\nPR#15147).\n\n\036The print() method for class \'htest\' gives fewer trailing spaces\n(wish of PR#15124).\n\nAlso print output from HoltWinters(), nls() and others.\n\n\036loadNamespace() allows a version specification to be given, and\nthis is used to check version specifications given in the Imports\nfield when a namespace is loaded.\n\n\036setClass() has a new argument, slots, clearer and less ambiguous\nthan representation. It is recommended for future code, but should\nbe back-compatible. At the same time, the allowed slot\nspecification is slightly more general. See the documentation for\ndetails.\n\n\036mget() now has a default for envir (the frame from which it is\ncalled), for consistency with get() and assign().\n\n\036close() now returns an integer status where available, invisibly.\n(Wish of PR#15088.)\n\n\036The internal method of tar() can now store paths too long for the\nustar format, using the (widely supported) GNU extension. It can\nalso store long link names, but these are much less widely\nsupported. There is support for larger files, up to the ustar\nlimit of 8GB.\n\n\036Local reference classes have been added to package methods. These\nare a technique for avoiding unneeded copying of large components\nof objects while retaining standard R functional behavior. See\n?LocalReferenceClasses.\n\n\036untar() has a new argument restore_times which if false (not the\ndefault) discards the times in the tarball. This is useful if they\nare incorrect (some tarballs submitted to CRAN have times in a\nlocal timezone or many years in the past even though the standard\nrequired them to be in UTC).\n\n\036replayplot() cannot (and will not attempt to) replay plots recorded\nunder R < 3.0.0. It may crash the R session if an attempt is made\nto replay plots created in a different build of R >= 3.0.0.\n\n\036Palette changes get recorded on the display list, so replaying\nplots (including when resizing screen devices and using dev.copy())\nwill work better when the palette is changed during a plot.\n\n\036chol(pivot = TRUE) now defaults to LAPACK, not LINPACK.\n\n\036The parse() function has a new parameter keep.source, which\ndefaults to options(\'keep.source\').\n\n\036Profiling via Rprof() now optionally records information at the\nstatement level, not just the function level.\n\n\036The Rprof() function now quotes function names in in its output\nfile on Windows, to be consistent with the quoting in Unix.\n\n\036Profiling via Rprof() now optionally records information about time\nspent in GC.\n\n\036The HTML help page for a package now displays non-vignette\ndocumentation files in a more accessible format.\n\n\036To support options(stringsAsFactors = FALSE), model.frame(),\nmodel.matrix() and replications() now automatically convert\ncharacter vectors to factors without a warning.\n\n\036The print method for objects of class \'table\' now detects tables\nwith 0-extents and prints the results as, e.g., < table of extent 0\nx 1 x 2 >. (Wish of PR#15198.)\n\n\036Deparsing involving calls to anonymous functions and has been made\ncloser to reversible by the addition of extra parentheses.\n\n\036The function utils::packageName() has been added as a lightweight\nversion of methods::getPackageName().\n\n\036find.package(lib.loc = NULL) now treats loaded namespaces\npreferentially in the same way as attached packages have been for a\nlong time.\n\n\036In Windows, the Change Directory dialog now defaults to the current\nworking directory, rather than to the last directory chosen in that\ndialog.\n\n\036available.packages() gains a \'license/restricts_use\' filter which\nretains only packages for which installation can proceed solely\nbased on packages which are guaranteed not to restrict use.\n\n\036New check_packages_in_dir() function in package tools for\nconveniently checking source packages along with their reverse\ndependencies.\n\n\036R's completion mechanism has been improved to handle help requests\n(starting with a question mark). In particular, help prefixes are\nnow supported, as well as quoted help topics. To support this,\ncompletion inside quotes are now handled by R by default on all\nplatforms.\n\n\036The memory manager now allows the strategy used to balance garbage\ncollection and memory growth to be controlled by setting the\nenvironment variable R_GC_MEM_GROW. See ?Memory for more details.\n\n\036(‘For experts only’, as the introductory manual says.) The use of\nenvironment variables R_NSIZE and R_VSIZE to control the initial (=\nminimum) garbage collection trigger for number of cons cels and\nsize of heap has been restored: they can be overridden by the\ncommand-line options --min-nsize and --min-vsize; see ?Memory.\n\n\036On Windows, the device name for bitmap devices as reported by\n.Device and .Devices no longer includes the file name. This is for\nconsistency with other platforms and was requested by the lattice\nmaintainer.\n\nwin.metafile() still uses the file name: the exact form is used by\npackage tkrplot.\n\n\036set.seed(NULL) re-initializes .Random.seed as done at the beginning\nof the session if not already set. (Suggestion of Bill Dunlap.)\n\n\036The breaks argument in hist.default() can now be a function that\nreturns the breakpoints to be used (previously it could only return\nthe suggested number of breakpoints).\n\n\036File share/licenses/licenses.db has some clarifications, especially\nas to which variants of ‘BSD’ and ‘MIT’ is intended and how to\napply them to packages. The problematic licence ‘Artistic-1.0’ has\nbeen removed.\n', FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset1_2965b748a3e24b276173eb4aa9f23391() {
+ assertEval("argv <- list(structure(list(`Resid. Df` = c(4, 0), `Resid. Dev` = c(5.12914107700115, 7.54951656745095e-15), Df = c(NA, 4), Deviance = c(NA, 5.12914107700114), Rao = c(NA, 5.17320176026795)), .Names = c('Resid. Df', 'Resid. Dev', 'Df', 'Deviance', 'Rao'), row.names = c('1', '2'), class = 'data.frame'), 5L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset10_0f1e10c13d753a93338a20f89ac50bd8() {
+ assertEval("argv <- list(structure(list(surname = structure(2L, .Label = c('McNeil', 'R Core', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(NA_integer_, .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(NA_integer_, .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = 1L, class = 'data.frame'), 1L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset11_85c4a449ccc328e43b771b1afb28e897() {
+ assertEval("argv <- list(structure(list(height = numeric(0), weight = numeric(0)), .Names = c('height', 'weight'), row.names = integer(0), class = 'data.frame'), 1:2);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset12_dcc42c2a40b618a307e9cca278cbf6ad() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R'), frow = c(32L, 33L, 33L, 36L), lrow = c(32L, 33L, 33L, 36L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 4L), class = 'data.frame'), 'frow');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset13_9fa891d5001cad136ca0f6db1eba5c6d() {
+ assertEval("argv <- list(structure(list(surname = structure(c(5L, 6L, 4L, 3L, 3L, 1L, 2L), .Label = c('McNeil', 'R Core', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), title = structure(c(2L, 5L, 4L, 6L, 7L, 3L, 1L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, 1L, NA, NA, NA, NA, 2L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'title', 'other.author'), row.names = c(NA, -7L), class = 'data.frame'), 1L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset14_3e137112463eb901bb1219dd118598af() {
+ assertEval("argv <- list(structure(list(size = 1056, isdir = FALSE, mode = structure(420L, class = 'octmode'), mtime = structure(1393948130.23894, class = c('POSIXct', 'POSIXt')), ctime = structure(1393948130.23894, class = c('POSIXct', 'POSIXt')), atime = structure(1395074550.46596, class = c('POSIXct', 'POSIXt')), uid = 1001L, gid = 1001L, uname = 'roman', grname = 'roman'), .Names = c('size', 'isdir', 'mode', 'mtime', 'ctime', 'atime', 'uid', 'gid', 'uname', 'grname'), class = 'data.frame', row.names = '/home/roman/r-instrumented/library/grid/R/grid'), 'mtime');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset15_380284bc42693a9124ecdd36b46819ae() {
+ assertEval("argv <- list(structure(list(Sepal.Length = c(5.1, 4.9, 4.7, 4.6, 5, 5.4, 4.6, 5, 4.4, 4.9, 5.4, 4.8, 4.8, 4.3, 5.8, 5.7, 5.4, 5.1, 5.7, 5.1, 5.4, 5.1, 4.6, 5.1, 4.8, 5, 5, 5.2, 5.2, 4.7, 4.8, 5.4, 5.2, 5.5, 4.9, 5, 5.5, 4.9, 4.4, 5.1, 5, 4.5, 4.4, 5, 5.1, 4.8, 5.1, 4.6, 5.3, 5, 7, 6.4, 6.9, 5.5, 6.5, 5.7, 6.3, 4.9, 6.6, 5.2, 5, 5.9, 6, 6.1, 5.6, 6.7, 5.6, 5.8, 6.2, 5.6, 5.9, 6.1, 6.3, 6.1, 6.4, 6.6, 6.8, 6.7, 6, 5.7, 5.5, 5.5, 5.8, 6, 5.4, 6, 6.7, 6.3, 5.6, 5.5, 5.5, 6.1, 5.8, 5, 5.6, 5.7, 5.7, 6.2, 5.1, 5.7, 6.3, 5.8, 7.1, 6.3, 6.5, 7.6, 4.9, 7.3, 6.7, 7.2, 6.5, 6.4, 6.8, 5.7, 5.8, 6.4, 6.5, 7.7, 7.7, 6, 6.9, 5.6, 7.7, 6.3, 6.7, 7.2, 6.2, 6.1, 6.4, 7.2, 7.4, 7.9, 6.4, 6.3, 6.1, 7.7, 6.3, 6.4, 6, 6.9, 6.7, 6.9, 5.8, 6.8, 6.7, 6.7, 6.3, 6.5, 6.2, 5.9), Sepal.Width = c(3.5, 3, 3.2, 3.1, 3.6, 3.9, 3.4, 3.4, 2.9, 3.1, 3.7, 3.4, 3, 3, 4, 4.4, 3.9, 3.5, 3.8, 3.8, 3.4, 3.7, 3.6, 3.3, 3.4, 3, 3.4, 3.5, 3.4, 3.2, 3.1, 3.4, 4.1, 4.2, 3.1, 3.2, 3.5, 3.6, 3, 3.4, 3.5, 2.3, 3.2, 3.5, 3.8, 3, 3.8, 3.2, 3.7, 3.3, 3.2, 3.2, 3.1, 2.3, 2.8, 2.8, 3.3, 2.4, 2.9, 2.7, 2, 3, 2.2, 2.9, 2.9, 3.1, 3, 2.7, 2.2, 2.5, 3.2, 2.8, 2.5, 2.8, 2.9, 3, 2.8, 3, 2.9, 2.6, 2.4, 2.4, 2.7, 2.7, 3, 3.4, 3.1, 2.3, 3, 2.5, 2.6, 3, 2.6, 2.3, 2.7, 3, 2.9, 2.9, 2.5, 2.8, 3.3, 2.7, 3, 2.9, 3, 3, 2.5, 2.9, 2.5, 3.6, 3.2, 2.7, 3, 2.5, 2.8, 3.2, 3, 3.8, 2.6, 2.2, 3.2, 2.8, 2.8, 2.7, 3.3, 3.2, 2.8, 3, 2.8, 3, 2.8, 3.8, 2.8, 2.8, 2.6, 3, 3.4, 3.1, 3, 3.1, 3.1, 3.1, 2.7, 3.2, 3.3, 3, 2.5, 3, 3.4, 3), Petal.Length = c(1.4, 1.4, 1.3, 1.5, 1.4, 1.7, 1.4, 1.5, 1.4, 1.5, 1.5, 1.6, 1.4, 1.1, 1.2, 1.5, 1.3, 1.4, 1.7, 1.5, 1.7, 1.5, 1, 1.7, 1.9, 1.6, 1.6, 1.5, 1.4, 1.6, 1.6, 1.5, 1.5, 1.4, 1.5, 1.2, 1.3, 1.4, 1.3, 1.5, 1.3, 1.3, 1.3, 1.6, 1.9, 1.4, 1.6, 1.4, 1.5, 1.4, 4.7, 4.5, 4.9, 4, 4.6, 4.5, 4.7, 3.3, 4.6, 3.9, 3.5, 4.2, 4, 4.7, 3.6, 4.4, 4.5, 4.1, 4.5, 3.9, 4.8, 4, 4.9, 4.7, 4.3, 4.4, 4.8, 5, 4.5, 3.5, 3.8, 3.7, 3.9, 5.1, 4.5, 4.5, 4.7, 4.4, 4.1, 4, 4.4, 4.6, 4, 3.3, 4.2, 4.2, 4.2, 4.3, 3, 4.1, 6, 5.1, 5.9, 5.6, 5.8, 6.6, 4.5, 6.3, 5.8, 6.1, 5.1, 5.3, 5.5, 5, 5.1, 5.3, 5.5, 6.7, 6.9, 5, 5.7, 4.9, 6.7, 4.9, 5.7, 6, 4.8, 4.9, 5.6, 5.8, 6.1, 6.4, 5.6, 5.1, 5.6, 6.1, 5.6, 5.5, 4.8, 5.4, 5.6, 5.1, 5.1, 5.9, 5.7, 5.2, 5, 5.2, 5.4, 5.1), Petal.Width = c(0.2, 0.2, 0.2, 0.2, 0.2, 0.4, 0.3, 0.2, 0.2, 0.1, 0.2, 0.2, 0.1, 0.1, 0.2, 0.4, 0.4, 0.3, 0.3, 0.3, 0.2, 0.4, 0.2, 0.5, 0.2, 0.2, 0.4, 0.2, 0.2, 0.2, 0.2, 0.4, 0.1, 0.2, 0.2, 0.2, 0.2, 0.1, 0.2, 0.2, 0.3, 0.3, 0.2, 0.6, 0.4, 0.3, 0.2, 0.2, 0.2, 0.2, 1.4, 1.5, 1.5, 1.3, 1.5, 1.3, 1.6, 1, 1.3, 1.4, 1, 1.5, 1, 1.4, 1.3, 1.4, 1.5, 1, 1.5, 1.1, 1.8, 1.3, 1.5, 1.2, 1.3, 1.4, 1.4, 1.7, 1.5, 1, 1.1, 1, 1.2, 1.6, 1.5, 1.6, 1.5, 1.3, 1.3, 1.3, 1.2, 1.4, 1.2, 1, 1.3, 1.2, 1.3, 1.3, 1.1, 1.3, 2.5, 1.9, 2.1, 1.8, 2.2, 2.1, 1.7, 1.8, 1.8, 2.5, 2, 1.9, 2.1, 2, 2.4, 2.3, 1.8, 2.2, 2.3, 1.5, 2.3, 2, 2, 1.8, 2.1, 1.8, 1.8, 1.8, 2.1, 1.6, 1.9, 2, 2.2, 1.5, 1.4, 2.3, 2.4, 1.8, 1.8, 2.1, 2.4, 2.3, 1.9, 2.3, 2.5, 2.3, 1.9, 2, 2.3, 1.8), Species = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('setosa', 'versicolor', 'virginica'), class = 'factor')), .Names = c('Sepal.Length', 'Sepal.Width', 'Petal.Length', 'Petal.Width', 'Species'), row.names = c(NA, -150L), class = 'data.frame'), c(FALSE, FALSE, FALSE, FALSE, TRUE));.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset16_1980283add80c713cace3ee56b7539d1() {
+ assertEval("argv <- list(structure(list(VAR1 = c(1, 2, 3, 4, 5), VAR2 = c(5, 4, 3, 2, 1), VAR3 = c(1, 1, 1, 1, NA)), .Names = c('VAR1', 'VAR2', 'VAR3'), row.names = c(NA, -5L), class = 'data.frame'), c(1, 3));.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset17_890a990c36442ad4c9f3d5f10e257bf3() {
+ assertEval("argv <- list(structure(list(ii = 1:10, xx = c(-9.42477796076938, -6.28318530717959, -3.14159265358979, 0, 3.14159265358979, 6.28318530717959, 9.42477796076938, 12.5663706143592, 15.707963267949, 18.8495559215388)), .Names = c('ii', 'xx'), row.names = c(NA, -10L), class = 'data.frame'), 'C');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset18_d8f5f1286793c26a13fb2655196c1fa5() {
+ assertEval("argv <- list(structure(list(srcfile = c(NA, NA, '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R'), frow = c(NA, NA, 427L, 427L, 432L, 434L, 434L, 438L, 438L), lrow = c(NA, NA, 428L, 428L, 432L, 437L, 437L, 441L, 441L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 9L), class = 'data.frame'), 'lrow');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset19_f7de8f46eb70ec4fe3564d345d0d8173() {
+ assertEval("argv <- list(structure(list(x = 1:3, y = structure(4:6, .Dim = c(3L, 1L), class = 'AsIs'), z = structure(c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i'), .Dim = c(3L, 3L), class = 'AsIs')), .Names = c('x', 'y', 'z'), row.names = c(NA, -3L), class = 'data.frame'), 'z');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset2_560c621f8a16dfa25c2346d3c023e02b() {
+ assertEval("argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = 'ts'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c('y', 'lag.quarterly.revenue', 'price.index', 'income.level', 'market.potential'), row.names = c('1962.25', '1962.5', '1962.75', '1963', '1963.25', '1963.5', '1963.75', '1964', '1964.25', '1964.5', '1964.75', '1965', '1965.25', '1965.5', '1965.75', '1966', '1966.25', '1966.5', '1966.75', '1967', '1967.25', '1967.5', '1967.75', '1968', '1968.25', '1968.5', '1968.75', '1969', '1969.25', '1969.5', '1969.75', '1970', '1970.25', '1970.5', '1970.75', '1971', '1971.25', '1971.5', '1971.75'), class = 'data.frame'), 3L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset20_2666cb8374a0d027ad53970b3d63ac7c() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats'), frow = 21911:21912, lrow = 21911:21912), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'), 'frow');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset21_3ea4ae9f745074681927670ddfa477f7() {
+ assertEval("argv <- list(structure(list(z = c(-2.97525101631257, -2.48489962337717, -1.99157511113426, -1.4958325959814, -0.998253002608536, -0.499437269286478, 0, 0.499437269286499, 0.998253002608553, 1.49583259598141, 1.99157511113428, 2.48489962337718, 2.97525101631258), par.vals = structure(c(3.29998649934118, 3.26341935258893, 3.22450701705249, 3.18319718928165, 3.13944811066026, 3.09322935890527, 3.04452243772342, 2.99332114068265, 2.93963167421501, 2.88347253461377, 2.824874144162, 2.76387826147581, 2.70053719000543, -0.454255272277595, -0.454255272277596, -0.454255272277596, -0.454255272277598, -0.454255272277597, -0.454255272277596, -0.454255272277594, -0.454255272277597, -0.454255272277596, -0.454255272277596, -0.454255272277597, -0.454255272277596, -0.454255272277597, -0.292987124681473, -0.292987124681473, -0.292987124681474, -0.292987124681475, -0.292987124681474, -0.292987124681474, -0.292987124681473, -0.292987124681475, -0.292987124681474, -0.292987124681474, -0.292987124681474, -0.292987124681474, -0.292987124681474, -0.255464061617756, -0.218896914865511, -0.179984579329071, -0.138674751558221, -0.0949256729368359, -0.0487069211818519, 1.33790930192987e-15, 0.0512012970407721, 0.104890763508413, 0.161049903109653, 0.219648293561426, 0.280644176247611, 0.34398524771799, -0.599449309335745, -0.49954109111312, -0.399632872890496, -0.299724654667872, -0.199816436445247, -0.099908218222623, 1.42108546079721e-15, 0.0999082182226258, 0.19981643644525, 0.299724654667875, 0.399632872890499, 0.499541091113123, 0.599449309335748), .Dim = c(13L, 5L), .Dimnames = list(NULL, c('(Intercept)', 'outcome2', 'outcome3', 'treatment2', 'treatment3')))), .Names = c('z', 'par.vals'), row.names = c(NA, 13L), class = 'data.frame'), 'par.vals');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset22_08a821d7e7f002e86fb69005fffdcdcb() {
+ assertEval("argv <- list(structure(3.14159265358979, class = 'testit'), structure(3.14159265358979, class = 'testit'));.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset23_7dd505f506360b4d0915877332a75dec() {
+ assertEval("argv <- list(structure(list(Fertility = c(80.2, 83.1, 92.5, 85.8, 76.9), Agriculture = c(17, 45.1, 39.7, 36.5, 43.5), Examination = c(15L, 6L, 5L, 12L, 17L), Education = c(12L, 9L, 5L, 7L, 15L)), .Names = c('Fertility', 'Agriculture', 'Examination', 'Education'), row.names = c('Courtelary', 'Delemont', 'Franches-Mnt', 'Moutier', 'Neuveville'), class = 'data.frame'), 'Ferti');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset24_92aceae97074dc2ec6a77699c130b52c() {
+ assertEval("argv <- list(structure(list(size = 131, isdir = FALSE, mode = structure(436L, class = 'octmode'), mtime = structure(1386583148.91412, class = c('POSIXct', 'POSIXt')), ctime = structure(1386583148.91712, class = c('POSIXct', 'POSIXt')), atime = structure(1386583149.16512, class = c('POSIXct', 'POSIXt')), uid = 501L, gid = 501L, uname = 'lzhao', grname = 'lzhao'), .Names = c('size', 'isdir', 'mode', 'mtime', 'ctime', 'atime', 'uid', 'gid', 'uname', 'grname'), class = 'data.frame', row.names = 'startup.Rs'), 'mtime');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset3_9dac7647c342f2d2180c8f1f2251bf50() {
+ assertEval("argv <- list(structure(list(Var1 = c(1L, 2L, 3L, 0L, 1L, 2L, 0L, 1L, 0L), Var2 = c(0L, 0L, 0L, 1L, 1L, 1L, 2L, 2L, 3L)), .Names = c('Var1', 'Var2'), out.attrs = structure(list(dim = c(4L, 4L), dimnames = structure(list(Var1 = c('Var1=0', 'Var1=1', 'Var1=2', 'Var1=3'), Var2 = c('Var2=0', 'Var2=1', 'Var2=2', 'Var2=3')), .Names = c('Var1', 'Var2'))), .Names = c('dim', 'dimnames')), row.names = c(2L, 3L, 4L, 5L, 6L, 7L, 9L, 10L, 13L), class = 'data.frame'), 1);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset4_42edddef393f45d39518a5613eaf1ae9() {
+ assertEval("argv <- list(structure(list(Population = c(3615, 365, 2212, 2110, 21198, 2541, 3100, 579, 8277, 4931, 868, 813, 11197, 5313, 2861, 2280, 3387, 3806, 1058, 4122, 5814, 9111, 3921, 2341, 4767, 746, 1544, 590, 812, 7333, 1144, 18076, 5441, 637, 10735, 2715, 2284, 11860, 931, 2816, 681, 4173, 12237, 1203, 472, 4981, 3559, 1799, 4589, 376), Income = c(3624, 6315, 4530, 3378, 5114, 4884, 5348, 4809, 4815, 4091, 4963, 4119, 5107, 4458, 4628, 4669, 3712, 3545, 3694, 5299, 4755, 4751, 4675, 3098, 4254, 4347, 4508, 5149, 4281, 5237, 3601, 4903, 3875, 5087, 4561, 3983, 4660, 4449, 4558, 3635, 4167, 3821, 4188, 4022, 3907, 4701, 4864, 3617, 4468, 4566), Illiteracy = c(2.1, 1.5, 1.8, 1.9, 1.1, 0.7, 1.1, 0.9, 1.3, 2, 1.9, 0.6, 0.9, 0.7, 0.5, 0.6, 1.6, 2.8, 0.7, 0.9, 1.1, 0.9, 0.6, 2.4, 0.8, 0.6, 0.6, 0.5, 0.7, 1.1, 2.2, 1.4, 1.8, 0.8, 0.8, 1.1, 0.6, 1, 1.3, 2.3, 0.5, 1.7, 2.2, 0.6, 0.6, 1.4, 0.6, 1.4, 0.7, 0.6), `Life Exp` = c(69.05, 69.31, 70.55, 70.66, 71.71, 72.06, 72.48, 70.06, 70.66, 68.54, 73.6, 71.87, 70.14, 70.88, 72.56, 72.58, 70.1, 68.76, 70.39, 70.22, 71.83, 70.63, 72.96, 68.09, 70.69, 70.56, 72.6, 69.03, 71.23, 70.93, 70.32, 70.55, 69.21, 72.78, 70.82, 71.42, 72.13, 70.43, 71.9, 67.96, 72.08, 70.11, 70.9, 72.9, 71.64, 70.08, 71.72, 69.48, 72.48, 70.29), Murder = c(15.1, 11.3, 7.8, 10.1, 10.3, 6.8, 3.1, 6.2, 10.7, 13.9, 6.2, 5.3, 10.3, 7.1, 2.3, 4.5, 10.6, 13.2, 2.7, 8.5, 3.3, 11.1, 2.3, 12.5, 9.3, 5, 2.9, 11.5, 3.3, 5.2, 9.7, 10.9, 11.1, 1.4, 7.4, 6.4, 4.2, 6.1, 2.4, 11.6, 1.7, 11, 12.2, 4.5, 5.5, 9.5, 4.3, 6.7, 3, 6.9), `HS Grad` = c(41.3, 66.7, 58.1, 39.9, 62.6, 63.9, 56, 54.6, 52.6, 40.6, 61.9, 59.5, 52.6, 52.9, 59, 59.9, 38.5, 42.2, 54.7, 52.3, 58.5, 52.8, 57.6, 41, 48.8, 59.2, 59.3, 65.2, 57.6, 52.5, 55.2, 52.7, 38.5, 50.3, 53.2, 51.6, 60, 50.2, 46.4, 37.8, 53.3, 41.8, 47.4, 67.3, 57.1, 47.8, 63.5, 41.6, 54.5, 62.9), Frost = c(20, 152, 15, 65, 20, 166, 139, 103, 11, 60, 0, 126, 127, 122, 140, 114, 95, 12, 161, 101, 103, 125, 160, 50, 108, 155, 139, 188, 174, 115, 120, 82, 80, 186, 124, 82, 44, 126, 127, 65, 172, 70, 35, 137, 168, 85, 32, 100, 149, 173), Area = c(50708, 566432, 113417, 51945, 156361, 103766, 4862, 1982, 54090, 58073, 6425, 82677, 55748, 36097, 55941, 81787, 39650, 44930, 30920, 9891, 7826, 56817, 79289, 47296, 68995, 145587, 76483, 109889, 9027, 7521, 121412, 47831, 48798, 69273, 40975, 68782, 96184, 44966, 1049, 30225, 75955, 41328, 262134, 82096, 9267, 39780, 66570, 24070, 54464, 97203)), .Names = c('Population', 'Income', 'Illiteracy', 'Life Exp', 'Murder', 'HS Grad', 'Frost', 'Area'), row.names = c('Alabama', 'Alaska', 'Arizona', 'Arkansas', 'California', 'Colorado', 'Connecticut', 'Delaware', 'Florida', 'Georgia', 'Hawaii', 'Idaho', 'Illinois', 'Indiana', 'Iowa', 'Kansas', 'Kentucky', 'Louisiana', 'Maine', 'Maryland', 'Massachusetts', 'Michigan', 'Minnesota', 'Mississippi', 'Missouri', 'Montana', 'Nebraska', 'Nevada', 'New Hampshire', 'New Jersey', 'New Mexico', 'New York', 'North Carolina', 'North Dakota', 'Ohio', 'Oklahoma', 'Oregon', 'Pennsylvania', 'Rhode Island', 'South Carolina', 'South Dakota', 'Tennessee', 'Texas', 'Utah', 'Vermont', 'Virginia', 'Washington', 'West Virginia', 'Wisconsin', 'Wyoming'), class = 'data.frame'), c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset5_e21ecae22a103505c24ae74282c3fbd9() {
+ assertEval("argv <- list(structure(list(war = c(1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0), fly = c(1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), ver = c(1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0), end = c(1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, NA, 1, 1, 0, 1, 1, NA, 0), gro = c(0, 0, 1, 1, 0, 0, 0, 1, 0, 1, NA, 0, 0, 1, NA, 0, 0, NA, 1, 0), hai = c(1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1)), .Names = c('war', 'fly', 'ver', 'end', 'gro', 'hai'), row.names = c('ant', 'bee', 'cat', 'cpl', 'chi', 'cow', 'duc', 'eag', 'ele', 'fly', 'fro', 'her', 'lio', 'liz', 'lob', 'man', 'rab', 'sal', 'spi', 'wha'), class = 'data.frame'), NULL);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset6_63769bbae2a01b9b38264fe69aa8585b() {
+ assertEval("argv <- list(structure(list(surname = structure(c('McNeil', 'Ripley', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'AsIs'), nationality = structure(c(1L, 2L, 2L, 3L, 3L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(1L, 1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor'), title = structure(c(3L, 6L, 7L, 4L, 2L, 5L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, NA, NA, NA, NA, 1L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = c(NA, -6L), class = 'data.frame'), -1);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset7_0cd0e2f51749281ee02a10bc81e7e414() {
+ assertEval("argv <- list(structure(list(a = c(1L, 2L, 3L, NA), b = c(NA, 3.14159265358979, 3.14159265358979, 3.14159265358979), c = c(TRUE, NA, FALSE, TRUE), d = c('aa', 'bb', NA, 'dd'), e = structure(c('a1', NA, NA, 'a4'), class = 'AsIs'), f = c('20010101', NA, NA, '20041026')), .Names = c('a', 'b', 'c', 'd', 'e', 'f'), row.names = c(NA, -4L), class = 'data.frame'), 3L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset8_388f4801c95dbb636dae6b0d6925218d() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1, 1, 2), Deviance = c(32.825622681839, 12.2441566485997, 28.4640218366572, 32.4303239692005), AIC = c(92.5235803967766, 73.9421143635373, 90.1619795515948, 96.1282816841381)), .Names = c('Df', 'Deviance', 'AIC'), row.names = c('<none>', '+ M.user', '+ Temp', '+ Soft'), class = c('anova', 'data.frame')), 3L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset_testsubset9_86173aee5bce29893f10f2e65508c5cf() {
+ assertEval("argv <- list(structure(list(`1` = 0:10, `2` = 10:20, `3` = 20:30), .Names = c('1', '2', '3'), row.names = c(NA, -11L), class = 'data.frame'), -2);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset21_401728ff15faa0a563e033b207675e48() {
+ assertEval("argv <- list(structure(list(par.vals = structure(c(43.6690361821048, 35.0518890362789, 30.2558850234373, 27.1664611723591, 24.9930921115624, 23.3776455926353, 22.122313646246, 21.1173217554787, 20.293145402391, 19.6041024133034, 19.0188803067124, 18.5152545044936, 18.0769941360739, 17.6919540860845, 17.3508558987268, 17.0464826391527, 0.924696372559026, 1.4577878275186, 1.99087928247818, 2.52397073743776, 3.05706219239734, 3.59015364735691, 4.12324510231649, 4.65633655727607, 5.18942801223565, 5.72251946719522, 6.2556109221548, 6.78870237711438, 7.32179383207396, 7.85488528703353, 8.38797674199311, 8.92106819695269), .Dim = c(16L, 2L), .Dimnames = list(NULL, c('ymax', 'xhalf')))), .Names = 'par.vals'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset211_ff9226f88b9e91f575035a7dfd31ec88() {
+ assertEval("argv <- list(structure(list(V1 = structure(c(4L, 1L, 2L, 3L), .Label = c('1', '3', '6', 'head'), class = 'factor'), V2 = c(NA, 2L, 4L, 7L), V3 = c(NA, NA, 5L, 8L), V4 = c(NA, NA, NA, 9L)), .Names = c('V1', 'V2', 'V3', 'V4'), class = 'data.frame', row.names = c(NA, -4L)), 2L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset212_5d511b739e8e5e3163008c5a3cb96815() {
+ assertEval("argv <- list(structure(list(Res.Df = c(20, 21), RSS = c(652424.52183908, 658770.746755654), Df = c(NA, -1), `Sum of Sq` = c(NA, -6346.22491657443), F = c(NA, 0.194542807762205), `Pr(>F)` = c(NA, 0.663893424608742)), .Names = c('Res.Df', 'RSS', 'Df', 'Sum of Sq', 'F', 'Pr(>F)'), row.names = c('1', '2'), class = c('anova', 'data.frame'), heading = c('Analysis of Variance Table\n', 'Model 1: birthw ~ sex + sex:age - 1\nModel 2: birthw ~ sex + age - 1')), 6L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset213_a7c7fb413e98e76844bc1336460bf241() {
+ assertEval("argv <- list(structure(list(a = structure('abc', class = 'AsIs'), b = structure('def\'gh', class = 'AsIs')), .Names = c('a', 'b'), row.names = '1', class = 'data.frame'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset214_e20099eb554089d6b2832b23f40c0564() {
+ assertEval("argv <- list(structure(list(mtime = structure(1395082258.61787, class = c('POSIXct', 'POSIXt'))), .Names = 'mtime'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset215_8ed0f42d294953bdd86e98089c1ecc58() {
+ assertEval("argv <- list(structure(list(A = 0:10, `NA` = 20:30), .Names = c('A', NA), class = 'data.frame', row.names = c(NA, -11L)), 2L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset216_e6b7632e7460e4fab6c05aa7b1a581c7() {
+ assertEval("argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c('Employed', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'), class = 'data.frame', row.names = 1947:1962, terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year)), 3L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset217_44e77cc3d67653c3ae3ed1103b8bd05e() {
+ assertEval("argv <- list(structure(list(y = c(1.08728092481538, 0.0420572471552261, 0.787502161306819, 0.512717751544676, 3.35376639535311, 0.204341510750309, -0.334930602487435, 0.80049208412789, -0.416177803375218, -0.777970346246018, 0.934996808181635, -0.678786709127108, 1.52621589791412, 0.5895781228122, -0.744496121210548, -1.99065153885627, 1.51286447692396, -0.750182409847851), A = c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), B = c(1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0), U = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('a', 'b', 'c'), class = 'factor'), V = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L), .Label = c('a', 'b', 'c'), class = 'factor')), .Names = c('y', 'A', 'B', 'U', 'V'), class = 'data.frame', row.names = c(NA, 18L), terms = quote(y ~ (A + B):(U + V) - 1)), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset218_2737d694efa6a8afffd57589198555f0() {
+ assertEval("argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE)), .Names = c('y', 'x'), class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ x)), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset219_704c9702777a657ec537a6656e171eae() {
+ assertEval("argv <- list(structure(list(surname = structure(2L, .Label = c('McNeil', 'R Core', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(NA_integer_, .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(NA_integer_, .Label = c('no', 'yes'), class = 'factor'), title = structure(1L, .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(2L, .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = 1L, class = 'data.frame'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset22_8ea4d7b9f4d2cb2e8ec625e3e0af6720() {
+ assertEval("argv <- list(structure(list(frow = c(NA, 2467L, 2468L, 2470L, 2470L, 2477L, 2478L, 2478L, 2480L, 2480L, 2482L, 2482L, 2482L, 2484L, 2484L, 2486L, 2486L, 2486L, 2490L, 2491L)), .Names = 'frow'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset220_402b1cec9a26967bb67d596f6a366277() {
+ assertEval("argv <- list(structure(list(surname = structure(integer(0), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(integer(0), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(integer(0), .Label = c('no', 'yes'), class = 'factor'), title = structure(integer(0), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(integer(0), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = integer(0), class = 'data.frame'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset221_5e021c44fa665922a3a62c8e7916a1c0() {
+ assertEval("argv <- list(structure(list(A = c(1, NA, 1), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA_integer_, NA_integer_, NA_integer_), E = c(FALSE, NA, TRUE), F = c('abc', NA, 'def')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')), 3L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset222_a720208691b0f3afb7ece19c4618a626() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')), 5L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset223_b9fcca8b529c3f30b3097a784b17b786() {
+ assertEval("argv <- list(structure(list(srcfile = '/home/lzhao/tmp/RtmpS45wYI/R.INSTALL2aa62411bcd3/rpart/R/rpart.R', frow = 187L, lrow = 187L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame'), 2L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset224_be736ffbd9f1ad001365746456d2bd9f() {
+ assertEval("argv <- list(structure(list(y = c(78.5, 74.3, 104.3, 87.6, 95.9, 109.2, 102.7, 72.5, 93.1, 115.9, 83.8, 113.3, 109.4), x1 = c(7, 1, 11, 11, 7, 11, 3, 1, 2, 21, 1, 11, 10), x2 = c(26, 29, 56, 31, 52, 55, 71, 31, 54, 47, 40, 66, 68), x4 = c(60, 52, 20, 47, 33, 22, 6, 44, 22, 26, 34, 12, 12)), .Names = c('y', 'x1', 'x2', 'x4'), class = 'data.frame', row.names = c(NA, 13L), terms = quote(y ~ x1 + x2 + x4)), 3L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset225_d5ba052fc1bb6080b5d6363cc007c6d3() {
+ assertEval("argv <- list(structure(list(`cbind(X, M)` = structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('X', 'M'))), M.user = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L), .Label = c('N', 'Y'), class = 'factor'), Temp = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c('High', 'Low'), class = 'factor'), Soft = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c('Hard', 'Medium', 'Soft'), class = 'factor')), .Names = c('cbind(X, M)', 'M.user', 'Temp', 'Soft'), terms = quote(cbind(X, M) ~ M.user + Temp + Soft + M.user:Temp), row.names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), class = 'data.frame'), 'cbind(X, M)');.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset226_dc3e47ec55117e9a6bfc0c96bf977f8c() {
+ assertEval("argv <- list(structure(list(Df = 10L, `Sum Sq` = 2.74035772634541, `Mean Sq` = 0.274035772634541, `F value` = NA_real_, `Pr(>F)` = NA_real_), .Names = c('Df', 'Sum Sq', 'Mean Sq', 'F value', 'Pr(>F)'), row.names = 'Residuals', class = c('anova', 'data.frame'), heading = c('Analysis of Variance Table\n', 'Response: y')), 5L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset227_0e2664c92cd3bc6f1df321bcab58653e() {
+ assertEval("argv <- list(structure(list(surname = structure(1:5, .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(c(1L, 2L, 3L, 3L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor'), title = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = c(NA, -5L), class = 'data.frame'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset228_75e4822d42ca3310c7d260cb37de73a8() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1, 1, 1, 1), `Sum of Sq` = c(NA, 25.9509113775335, 2.97247824113524, 0.109090049888117, 0.246974722154086), RSS = c(47.863639350499, 73.8145507280325, 50.8361175916342, 47.9727294003871, 48.1106140726531), AIC = c(26.9442879283302, 30.5758847476115, 25.7275503692601, 24.9738836085411, 25.0111950072736)), .Names = c('Df', 'Sum of Sq', 'RSS', 'AIC'), row.names = c('<none>', '- x1', '- x2', '- x3', '- x4'), class = c('anova', 'data.frame')), 2L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset229_6a41e465c811d91aa16d8578736e378e() {
+ assertEval("argv <- list(structure(list(mtime = structure(1342423171, class = c('POSIXct', 'POSIXt'))), .Names = 'mtime'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset23_6bd0dfa01353379afa0651da61d6e077() {
+ assertEval("argv <- list(structure(list(x = c(0, 0, 1, 1), y = c(2, 2, 9, 9), z = c(0, 0, -3, -3), u = c(34, 35, 19, 37)), .Names = c('x', 'y', 'z', 'u'), row.names = c(2L, 90L, 25L, 50L), class = 'data.frame'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset230_ed64c3fd74a33c8d0a91bb13004e8139() {
+ assertEval("argv <- list(structure(list(df0 = structure(list(structure(integer(0), .Label = character(0), class = 'factor')), row.names = character(0), class = 'data.frame')), .Names = 'df0', row.names = 'c0', class = 'data.frame'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset231_fb96544e265fef59a60f89dc429f4941() {
+ assertEval("argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = 'ts'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c('y', 'lag.quarterly.revenue', 'price.index', 'income.level', 'market.potential'), row.names = c('1962.25', '1962.5', '1962.75', '1963', '1963.25', '1963.5', '1963.75', '1964', '1964.25', '1964.5', '1964.75', '1965', '1965.25', '1965.5', '1965.75', '1966', '1966.25', '1966.5', '1966.75', '1967', '1967.25', '1967.5', '1967.75', '1968', '1968.25', '1968.5', '1968.75', '1969', '1969.25', '1969.5', '1969.75', '1970', '1970.25', '1970.5', '1970.75', '1971', '1971.25', '1971.5', '1971.75'), class = 'data.frame'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset233_85c2d47894f9195a4586a7a01097d548() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')), 6L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset234_fb726398b379e933ea2e414efbed9fe9() {
+ assertEval("argv <- list(structure(list(variog = c(0.00723952158228125, 0.014584633605134, 0.0142079356273193, 0.0184422668389517, 0.0111285046171491, 0.0199100817701382, 0.0270723108677323, 0.0341403794476899, 0.0283206569034573, 0.03752550654923), dist = c(1, 6, 7, 8, 13, 14, 15, 20, 21, 22), n.pairs = structure(c(16L, 16L, 144L, 16L, 16L, 128L, 16L, 16L, 112L, 16L), .Dim = 10L, .Dimnames = structure(list(c('1', '6', '7', '8', '13', '14', '15', '20', '21', '22')), .Names = ''))), .Names = c('variog', 'dist', 'n.pairs'), collapse = TRUE, row.names = c(NA, 10L), class = c('Variogram', 'data.frame')), 3L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset24_38da53b024019d3b9fa62944656c9913() {
+ assertEval("argv <- list(NULL, NULL);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset25_fb10f6c05ca8c80535c7a54d53576e01() {
+ assertEval("argv <- list(structure(list(V1 = c(1L, 9L), V2 = c(NA, NA), V3 = c(23L, 87L), V4 = c(NA, 654L)), .Names = c('V1', 'V2', 'V3', 'V4'), class = 'data.frame', row.names = c(NA, -2L)), 2L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset26_fc9c0eba30999ca172040fb6f11a3563() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 2L, 2L), Deviance = c(NA, 5.45230478674972, 2.66453525910038e-15), `Resid. Df` = c(8L, 6L, 4L), `Resid. Dev` = c(10.5814458637509, 5.12914107700115, 5.12914107700115)), .Names = c('Df', 'Deviance', 'Resid. Df', 'Resid. Dev'), row.names = c('NULL', 'outcome', 'treatment'), class = c('anova', 'data.frame'), heading = 'Analysis of Deviance Table\n\nModel: poisson, link: log\n\nResponse: counts\n\nTerms added sequentially (first to last)\n\n'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset27_1fffada81dfe35bfa3cb076387dbf136() {
+ assertEval("argv <- list(structure(list(surname = structure(c('Tukey', 'Venables', 'Tierney', 'Ripley', 'McNeil'), class = 'AsIs')), .Names = 'surname'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset28_2b9afe25abe40ad4bc0c6cf1a583c3c0() {
+ assertEval("argv <- list(structure(list(surname = structure('R Core', class = 'AsIs'), nationality = structure(NA_integer_, .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(NA_integer_, .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = 7L, class = 'data.frame'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubset2_testsubset29_7aa7ec151c558554050cc5a345272e8c() {
+ assertEval("argv <- list(structure(list(z = structure(c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i'), .Dim = c(3L, 3L), class = 'AsIs')), .Names = 'z'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubstr_testsubstr1_84ef372725403b5dd7529e876aecf7db() {
+ assertEval("argv <- list('weight', 1L, 2L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubstr_testsubstr2_429b2d1cbdb7343993824e8773bd1986() {
+ assertEval("argv <- list(c(' ', ' '), 1L, c(4L, -16L)); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubstr_testsubstr3_be06744b575a43acbb92581c4d9d702f() {
+ assertEval("argv <- list(structure(c('as.formula', 'coef', 'makepredictcall', 'na.fail', 'predict'), .Names = c('as.formula', 'coef', 'makepredictcall', 'na.fail', 'predict')), 1L, 6L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubstr_testsubstr4_d18d5c0bb6dff3bfe5c077d2f425213f() {
+ assertEval("argv <- list(character(0), 7L, 1000000L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubstr_testsubstr5_5c9a56a8fd6583281441f3a8429abbea() {
+ assertEval("argv <- list(structure('to be supported).', Rd_tag = 'TEXT'), 17L, 17L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubstr_testsubstr6_76b9b2e9886ce859c57691c4152a6e7a() {
+ assertEval("argv <- list(character(0), 1L, 5L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubstr_testsubstr7_6ce5674f5b00821171b03a31edbfee9c() {
+ assertEval("argv <- list('', 1L, 2L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubstr_testsubstr8_afd3ca7daa5e737bb50a9a8317607cb7() {
+ assertEval("argv <- list(structure(c('model.frame', 'predict', 'residuals'), .Names = c('model.frame', 'predict', 'residuals')), 1L, 6L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubstr_testsubstr9_314a2b7dd840e7bc6d2ba8990240c429() {
+ assertEval("argv <- list('> ### R code from vignette source 'parallel.Rnw'\n> \n> ###################################################\n> ### code chunk number 1: parallel.Rnw:474-475 (eval = FALSE)\n> ###################################################\n> ## library(parallel)\n> \n> \n> ###################################################\n> ### code chunk number 2: parallel.Rnw:500-507 (eval = FALSE)\n> ###################################################\n> ## library(boot)\n> ## cd4.rg <- function(data, mle) MASS::mvrnorm(nrow(data), mle$m, mle$v)\n> ## cd4.mle <- list(m = colMeans(cd4), v = var(cd4))\n> ## cd4.boot <- boot(cd4, corr, R = 999, sim = \'parametric\',\n> ## ran.gen = cd4.rg, mle = cd4.mle)\n> ## boot.ci(cd4.boot, type = c(\'norm\', \'basic\', \'perc\'),\n> ## conf = 0.9, h = atanh, hinv = tanh)\n> \n> \n> ###################################################\n> ### code chunk number 3: parallel.Rnw:512-522 (eval = FALSE)\n> ###################################################\n> ## cd4.rg <- function(data, mle) MASS::mvrnorm(nrow(data), mle$m, mle$v)\n> ## cd4.mle <- list(m = colMeans(cd4), v = var(cd4))\n> ## run1 <- function(...) boot(cd4, corr, R = 500, sim = \'parametric\',\n> ## ran.gen = cd4.rg, mle = cd4.mle)\n> ## mc <- 2 # set as appropriate for your hardware\n> ## ## To make this reproducible:\n> ## set.seed(123, \'L'Ecuyer\')\n> ## cd4.boot <- do.call(c, mclapply(seq_len(mc), run1) )\n> ## boot.ci(cd4.boot, type = c(\'norm\', \'basic\', \'perc\'),\n> ## conf = 0.9, h = atanh, hinv = tanh)\n> \n> \n> ###################################################\n> ### code chunk number 4: parallel.Rnw:527-528 (eval = FALSE)\n> ###################################################\n> ## do.call(c, lapply(seq_len(mc), run1))\n> \n> \n> ###################################################\n> ### code chunk number 5: parallel.Rnw:532-547 (eval = FALSE)\n> ###################################################\n> ## run1 <- function(...) {\n> ## library(boot)\n> ## cd4.rg <- function(data, mle) MASS::mvrnorm(nrow(data), mle$m, mle$v)\n> ## cd4.mle <- list(m = colMeans(cd4), v = var(cd4))\n> ## boot(cd4, corr, R = 500, sim = \'parametric\',\n> ## ran.gen = cd4.rg, mle = cd4.mle)\n> ## }\n> ## cl <- makeCluster(mc)\n> ## ## make this reproducible\n> ## clusterSetRNGStream(cl, 123)\n> ## library(boot) # needed for c() method on master\n> ## cd4.boot <- do.call(c, parLapply(cl, seq_len(mc), run1) )\n> ## boot.ci(cd4.boot, type = c(\'norm\', \'basic\', \'perc\'),\n> ## conf = 0.9, h = atanh, hinv = tanh)\n> ## stopCluster(cl)\n> \n> \n> ###################################################\n> ### code chunk number 6: parallel.Rnw:557-570 (eval = FALSE)\n> ###################################################\n> ## cl <- makeCluster(mc)\n> ## cd4.rg <- function(data, mle) MASS::mvrnorm(nrow(data), mle$m, mle$v)\n> ## cd4.mle <- list(m = colMeans(cd4), v = var(cd4))\n> ## clusterExport(cl, c(\'cd4.rg\', \'cd4.mle\'))\n> ## junk <- clusterEvalQ(cl, library(boot)) # discard result\n> ## clusterSetRNGStream(cl, 123)\n> ## res <- clusterEvalQ(cl, boot(cd4, corr, R = 500,\n> ## sim = \'parametric\', ran.gen = cd4.rg, mle = cd4.mle))\n> ## library(boot) # needed for c() method on master\n> ## cd4.boot <- do.call(c, res)\n> ## boot.ci(cd4.boot, type = c(\'norm\', \'basic\', \'perc\'),\n> ## conf = 0.9, h = atanh, hinv = tanh)\n> ## stopCluster(cl)\n> \n> \n> ###################################################\n> ### code chunk number 7: parallel.Rnw:575-589 (eval = FALSE)\n> ###################################################\n> ## R <- 999; M <- 999 ## we would like at least 999 each\n> ## cd4.nest <- boot(cd4, nested.corr, R=R, stype=\'w\', t0=corr(cd4), M=M)\n> ## ## nested.corr is a function in package boot\n> ## op <- par(pty = \'s\', xaxs = \'i\', yaxs = \'i\')\n> ## qqplot((1:R)/(R+1), cd4.nest$t[, 2], pch = \'.\', asp = 1,\n> ## xlab = \'nominal\', ylab = \'estimated\')\n> ## abline(a = 0, b = 1, col = \'grey\')\n> ## abline(h = 0.05, col = \'grey\')\n> ## abline(h = 0.95, col = \'grey\')\n> ## par(op)\n> ## \n> ## nominal <- (1:R)/(R+1)\n> ## actual <- cd4.nest$t[, 2]\n> ## 100*nominal[c(sum(actual <= 0.05), sum(actual < 0.95))]\n> \n> \n> ###################################################\n> ### code chunk number 8: parallel.Rnw:594-602 (eval = FALSE)\n> ###################################################\n> ## mc <- 9\n> ## R <- 999; M <- 999; RR <- floor(R/mc)\n> ## run2 <- function(...)\n> ## cd4.nest <- boot(cd4, nested.corr, R=RR, stype=\'w\', t0=corr(cd4), M=M)\n> ## cd4.nest <- do.call(c, mclapply(seq_len(mc), run2, mc.cores = mc) )\n> ## nominal <- (1:R)/(R+1)\n> ## actual <- cd4.nest$t[, 2]\n> ## 100*nominal[c(sum(actual <= 0.05), sum(actual < 0.95))]\n> \n> \n> ###################################################\n> ### code chunk number 9: parallel.Rnw:616-627 (eval = FALSE)\n> ###################################################\n> ## library(spatial)\n> ## towns <- ppinit(\'towns.dat\')\n> ## tget <- function(x, r=3.5) sum(dist(cbind(x$x, x$y)) < r)\n> ## t0 <- tget(towns)\n> ## R <- 1000\n> ## c <- seq(0, 1, 0.1)\n> ## ## res[1] = 0\n> ## res <- c(0, sapply(c[-1], function(c)\n> ## mean(replicate(R, tget(Strauss(69, c=c, r=3.5))))))\n> ## plot(c, res, type=\'l\', ylab=\'E t\')\n> ## abline(h=t0, col=\'grey\')\n> \n> \n> ###################################################\n> ### code chunk number 10: parallel.Rnw:631-640 (eval = FALSE)\n> ###################################################\n> ## run3 <- function(c) {\n> ## library(spatial)\n> ## towns <- ppinit(\'towns.dat\') # has side effects\n> ## mean(replicate(R, tget(Strauss(69, c=c, r=3.5))))\n> ## }\n> ## cl <- makeCluster(10, methods = FALSE)\n> ## clusterExport(cl, c(\'R\', \'towns\', \'tget\'))\n> ## res <- c(0, parSapply(cl, c[-1], run3)) # 10 tasks\n> ## stopCluster(cl)\n> \n> \n> ###################################################\n> ### code chunk number 11: parallel.Rnw:644-648 (eval = FALSE)\n> ###################################################\n> ## cl <- makeForkCluster(10) # fork after the variables have been set up\n> ## run4 <- function(c) mean(replicate(R, tget(Strauss(69, c=c, r=3.5))))\n> ## res <- c(0, parSapply(cl, c[-1], run4))\n> ## stopCluster(cl)\n> \n> \n> ###################################################\n> ### code chunk number 12: parallel.Rnw:651-653 (eval = FALSE)\n> ###################################################\n> ## run4 <- function(c) mean(replicate(R, tget(Strauss(69, c=c, r=3.5))))\n> ## res <- c(0, unlist(mclapply(c[-1], run4, mc.cores = 10)))\n> \n> \n> ###################################################\n> ### code chunk number 13: parallel.Rnw:684-718 (eval = FALSE)\n> ###################################################\n> ## pkgs <- \'<names of packages to be installed>\'\n> ## M <- 20 # number of parallel installs\n> ## M <- min(M, length(pkgs))\n> ## library(parallel)\n> ## unlink(\'install_log\')\n> ## cl <- makeCluster(M, outfile = \'install_log\')\n> ## clusterExport(cl, c(\'tars\', \'fakes\', \'gcc\')) # variables needed by do_one\n> ## \n> ## ## set up available via a call to available.packages() for\n> ## ## repositories containing all the packages involved and all their\n> ## ## dependencies.\n> ## DL <- utils:::.make_dependency_list(pkgs, available, recursive = TRUE)\n> ## DL <- lapply(DL, function(x) x[x %in% pkgs])\n> ## lens <- sapply(DL, length)\n> ## ready <- names(DL[lens == 0L])\n> ## done <- character() # packages already installed\n> ## n <- length(ready)\n> ## submit <- function(node, pkg)\n> ## parallel:::sendCall(cl[[node]], do_one, list(pkg), tag = pkg)\n> ## for (i in 1:min(n, M)) submit(i, ready[i])\n> ## DL <- DL[!names(DL) %in% ready[1:min(n, M)]]\n> ## av <- if(n < M) (n+1L):M else integer() # available workers\n> ## while(length(done) < length(pkgs)) {\n> ## d <- parallel:::recvOneResult(cl)\n> ## av <- c(av, d$node)\n> ## done <- c(done, d$tag)\n> ## OK <- unlist(lapply(DL, function(x) all(x %in% done) ))\n> ## if (!any(OK)) next\n> ## p <- names(DL)[OK]\n> ## m <- min(length(p), length(av)) # >= 1\n> ## for (i in 1:m) submit(av[i], p[i])\n> ## av <- av[-(1:m)]\n> ## DL <- DL[!names(DL) %in% p[1:m]]\n> ## }\n> \n> \n> ###################################################\n> ### code chunk number 14: parallel.Rnw:731-748 (eval = FALSE)\n> ###################################################\n> ## fn <- function(r) statistic(data, i[r, ], ...)\n> ## RR <- sum(R)\n> ## res <- if (ncpus > 1L && (have_mc || have_snow)) {\n> ## if (have_mc) {\n> ## parallel::mclapply(seq_len(RR), fn, mc.cores = ncpus)\n> ## } else if (have_snow) {\n> ## list(...) # evaluate any promises\n> ## if (is.null(cl)) {\n> ## cl <- parallel::makePSOCKcluster(rep(\'localhost\', ncpus))\n> ## if(RNGkind()[1L] == \'L'Ecuyer-CMRG\')\n> ## parallel::clusterSetRNGStream(cl)\n> ## res <- parallel::parLapply(cl, seq_len(RR), fn)\n> ## parallel::stopCluster(cl)\n> ## res\n> ## } else parallel::parLapply(cl, seq_len(RR), fn)\n> ## }\n> ## } else lapply(seq_len(RR), fn)\n> \n> \n> ###################################################\n> ### code chunk number 15: parallel.Rnw:751-752 (eval = FALSE)\n> ###################################################\n> ## list(...) # evaluate any promises\n> \n> ', 1L, 150L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubstrassign_testsubstrassign1_6c9bd83f72189c172a46f8dcbb1fb299() {
+ assertEval("argv <- list('(0,5]', 1L, 1L, '['); .Internal(`substr<-`(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsubstrassign_testsubstrassign2_52b4aa2e496589d8e3038eb5f3f8f791() {
+ assertEval("argv <- list(c('asfef', 'qwerty', 'yuiop[', 'b', 'stuff.blah.yech'), 2L, 1000000L, c('..', '+++')); .Internal(`substr<-`(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum1_cadbd70fb9a5af8900a2cb6a9f9e4df0() {
+ assertEval("argv <- list(structure(313, .Names = ''));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum10_37cb58361c27df1360bf49a630e8a25e() {
+ assertEval("argv <- list(structure(c(1.40573809911564e-05, 2.82275077233781e-31, 298891091593544, 127.398214346512, 1.96341150816547e-14, 0.100886417276321, 18137216711891664896, 75471627676.8224, 1.0423615801344e-05, 4184414.04436152, 0.00284364073413795, 0.124845661512668, 6.26689770279226e-09, 137507212543972912, 2.4515242751977e-06, 17279.5247449809, 9.31653241445582, 2.95260115615331e-07, 2.47540394744834e+33, 1.06282257391682e-08, 280.577969261283, 2.2306055461863e-12, 28194894.3770164, 3.27212932994522e+56, 2.35217223982607e-15, 1.93298541124412e-16, 3.82110080220967e-22, 0.020664532453814, 838.952367401989, 1.48989538272057, 58.0422958839475, 25315229.2305008, 1.14418993503202e-07, 0.141089233086962, 385551.97528297, 72589269069.5057, 3.63818589408037, 3.93055539198144e-15, 0.484224006687325, 0.00122384090262982, 509.681530848699, 1.09212481089264e-13, 4.20671904141446e-12, 1.41116557356417, 0.161225941178553, 0.369883152940699, 0.000211066453902523, 1536.88854142326, 1.21220206873588e-13, 18.2818077643159, 67.5636713643055, 33.0891402079429, 1.17150909115673e-23, 304202.728006006, 0.00353331875245541, 4.32607156718415e+28, 776642523346.066, 0.00115835488031795, 0.00496146869860724, 5.31574527522895e-12), .Dim = 60L, .Dimnames = list(c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum11_396113634297b8e258594fe2531462c5() {
+ assertEval("argv <- list(1:10, 1+1i);sum(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum12_affd3a71efd35c59b2685e87793a269e() {
+ assertEval("argv <- list(structure(c(2.19172926547288, 0.330877282992322, 2.43947034322552, 1.27858232527863, 1.34995699383497, 2.31589710162493, -0.100056357529734, 2.12383938264747, 1.1838950457512, 2.61258053432978, -0.0427077741902965, 3.32267292229042, 2.72078100200188, 1.50121623996352, 0.286636947273328, 0.276805761557996, 1.58770673719377, 1.2835349906538, 2.21171702752298, 0.371840556806206, 0.185048028214896, 0.083459109156465, 0.189963621072562, 0.342346999660209, -0.144296693248728, 0.352178185375541, 0.217818647266003, 2.22181318666033, 0.121145321065238, 0.289914009178438, 0.257143390127332, -0.0394307122851858, 2.17200902055199, 0.229288363933891, 1.6805330236497, -0.20328380754072, 0.25058926631711, 1.33428464681067, -0.00502156228152353, NaN, 3.26336745706726, 1.9882766360458, 0.117868259160127, 2.69303413653791, 2.56113239793806, 0.265336044890108, 3.07945609430521, 0.221095709171114, 0.0408573043900261, 0.278444292510551, 1.33428464681067, 1.06801925109484, 0.209625992503226, 3.06212550875829, 0.116229728207572, 1.39280910631599, 2.53602717112413, 0.0457728972476921, 4.7651657207987, 0.194879213930228, 0.114591197255017, 3.26336745706726, 0.0883747020141311, 1.88846207251023, 0.119506790112683, 1.87250223559585, 2.35968057412311, 0.29974519489377, 0.29974519489377, 0.031026118674694, 1.47173382020508, 2.41624560055216, 0.167024187736788, 3.40508627615607, 3.34290799326704, 0.0113637472440299, 0.0588811448681349, 1.54990439966979, 1.35522847629799, 3.07945609430521, 0.224372771076225, 0.129337975828015, 2.99455268975735, 2.83681720000879, 0.0506884901053581, 0.334154344897433, 3.91642660780075, 1.17486192682541, 2.77775688906243, 0.194879213930228, 1.77308062628823, 0.298106663941215, 1.45438038819124, 0.193240682977673, 3.30267449277716, 1.38194860291798, 1.66007135758589, 5.1096442273052, 0.337431406802543, 0.363647902043429), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum13_f2680c1ef1df3fad3d0a969174201ace() {
+ assertEval("argv <- list(numeric(0));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum14_96f41bb7d276eb9d2e7caa27fc7a5dd6() {
+ assertEval("argv <- list(c(49, 61, NA, NA));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum15_c2e76ce32d69699b3797bc0f497c9a70() {
+ assertEval("argv <- list(1073741824L, 1073741824L, 0);sum(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum16_1fa4b5607c456d651c7fab1b023f809f() {
+ assertEval("argv <- list(1073741824L, 1073741824L);sum(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum17_93e62c40a285ea88bfa643d288461b2b() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Tsp = c(1, 101, 1), class = 'ts'));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum18_f05c9601399b62fff5eb10945d0d96c4() {
+ assertEval("argv <- list(c(1073741824L, 1073741824L));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum19_91d746fdb9da3a6f75df1b6433fefe7d() {
+ assertEval("argv <- list(structure(c(0.0946626763551857, 1.56832184548816e-06, 0.226697441774756, 0.00453708504256956, 0.258320521579932, 2.57680524978307, 0.467122524211721, 5.16534267196331, 0.694563006492192, 0.197723848046524, 0.000799319848162311, 0.000570944537286636, 0.0654689540726797, 0.000146788076901938, 0.00669686464041458, 0.00765355286634145, 0.0786604017778045, 1.25812820036403e-06, 0.167435582495234, 0.00356206279639504, 0.25547689715822, 2.72165076185825, 0.488128793070721, 3.66078502081211, 0.898984802200849, 0.190804322887854, 0.00080933803412378, 0.000578096808847448, 0.0782510283683936, 0.000156595864868186, 0.00698171105046541, 0.00797910506602018), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32')));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum2_6623bd2a59ced617fc8b79d29ef0c929() {
+ assertEval("argv <- list(structure(c(-3.02896519757699, -2.37177231827064, -2.49295252901048, -2.99672420295655, -2.59773735414265, -2.26026537208028, -2.74080517809177, -3.785668787425, -2.80120311135215, -2.57773983108655, -5.06092522358575, -2.25629807618983), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum20_03d9018b20423e6e9e079f74b6b8fffd() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum21_bd775482244eb79365a06a8b9f71044a() {
+ assertEval("argv <- list(structure(c(6L, 12L, 18L, 24L, 30L, 36L, 42L, 48L, 54L, 60L, 66L, 72L, 78L, 84L, 90L, 96L, 102L, 108L, 114L, 120L), .Dim = 4:5, .Dimnames = list(NULL, c('V5', 'V6', 'V7', 'V8', 'V9'))));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum3_6ec931afd55eec2037a9b2e197504bb4() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), class = 'table', .Dim = 60L, .Dimnames = structure(list(r = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60')), .Names = 'r')));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum4_75339cb5a0d324fa856fd60e30e08f20() {
+ assertEval("argv <- list(structure(c(-1.94895827232912e-306, 0, 9.36477567902783e-210, 3.61651164350633e-272, 0, -6.24957292845831e-288, 8.01866432306958e-186, 8.68951728615672e-228, -4.51587577314873e-307, 3.44824066264446e-249, -3.07734214990199e-295, -1.63737039109249e-287, -6.4228533959362e-323, 1.99299936577426e-196, -3.77967355768316e-310, 2.99503783387623e-261, 3.69173164797792e-278, -1.16866860094119e-314, 3.18619635538936e-115, -9.28843414181544e-322, 2.14105998923225e-270, 0, 5.16415548974996e-245, 6.63795852562496, 0, 0, 0, -3.94804275684608e-291, 5.96425287032638e-268, 7.18607375106076e-283, 6.05285733998884e-274, 3.00167530091305e-245, -1.10890415661145e-316, -2.83304044404219e-287, 2.03740072057053e-254, 7.14727745939762e-228, 1.98119254926182e-280, 0, -4.86004310565019e-285, -5.29597124993551e-297, 4.62156398366003e-269, 0, 0, 4.73760851736069e-283, -5.12888870803705e-287, -1.74386324923243e-285, -1.06055701952213e-300, 1.32316178368225e-266, 0, 1.3776952356639e-276, 1.33745692946041e-273, 3.1799923028917e-275, 0, 6.14747062861386e-255, -8.73416235737445e-295, 5.68676829309248e-139, 1.04052519425852e-222, -4.06077295726178e-297, -4.44772889827087e-294, 0), .Dim = 60L, .Dimnames = list(c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum5_53cbf3efccac3d748894c91bc7fe87e9() {
+ assertEval("argv <- list(c(2.24999999999999, 0.809999999999997, 3.24, 2.89, 0.0899999999999994, 1.96, 6.25, 0.490000000000001, 9.00000000000001, 0.00999999999999993, 0.249999999999998, 4.41000000000001, 3.24, 3.60999999999999));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum6_9d7c370b191b6ab1cd6f7060046e9eb8() {
+ assertEval("argv <- list(structure(c(42L, 1L, 0L, 16L, 84L, 0L, 3L, 0L, 0L), .Dim = c(3L, 3L), .Dimnames = structure(list(c('(0,2.5]', '(2.5,4]', NA), c('(2,5.5]', '(5.5,10]', NA)), .Names = c('', '')), class = 'table'));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum7_46cdf021a6236df22f639c0cb1e4f263() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(101L, 3L), .Dimnames = list(NULL, c('t1', '10 * t1', 't1 - 4')), .Tsp = c(1, 101, 1), class = c('mts', 'ts', 'matrix')));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum8_d527b757f773f64e68639c10e06fc846() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, 1, 0, 0, 0, 1), .Dim = c(3L, 3L)), extrarg = FALSE);sum(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinsum_testsum9_f0bd7ed3f65539aca4713ea3dddaf981() {
+ assertEval("sum( );");
+ }
+
+ @Test
+ public void TestrGenBuiltinsummaryconnection_testsummaryconnection1_8c97205334627ba90d66cdf7be082e86() {
+ assertEval("argv <- list(structure(2L, class = c('terminal', 'connection'))); .Internal(summary.connection(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinsysonexit_testsysonexit1_0d4c9db5997c385cb40a542f86ba4e62() {
+ assertEval(" .Internal(sys.on.exit())");
+ }
+
+ @Test
+ public void TestrGenBuiltinsysparent_testsysparent1_3e20f19611bddc1971b8bd00194dbac8() {
+ assertEval("argv <- list(2); .Internal(sys.parent(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintabulate_testtabulate1_102d7e7e0b3f2b4fa4de42e2f1373091() {
+ assertEval("argv <- list(1L, 1L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintabulate_testtabulate2_feddaf0d44efd9a7d1a527c99bb5b053() {
+ assertEval("argv <- list(1:6, 6L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintabulate_testtabulate3_341d695494b43d1d262c736737411bdc() {
+ assertEval("argv <- list(integer(0), 1L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintabulate_testtabulate4_a611bb6091afebd1d281a99f55e7d258() {
+ assertEval("argv <- list(c(1L, 9L, 13L, 25L, 11L, 24L, 3L, 20L, 20L, 15L, 20L, 14L, 24L, 19L, 12L, 8L, 1L, 11L, 4L, 3L, 21L, 25L, 10L, 3L, 12L), 25L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintabulate_testtabulate5_d3a64506daf25236253f0a26305b3973() {
+ assertEval("argv <- list(structure(1:49, .Label = c('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48'), class = 'factor'), 49L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintabulate_testtabulate6_93c91da2aef4edca44d052ca098eeee8() {
+ assertEval("argv <- list(integer(0), 0L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintan_testtan1_569f4f339801a0db973e92721d4cf8d2() {
+ assertEval("argv <- list(c(2.19881034888372+1i, 1.31241297643351+1i, -0.26514505669635+1i, 0.54319405923209+1i, -0.41433994791886+1i, -0.47624689461558+1i, -0.78860283785024+1i, -0.59461726745951+1i, 1.65090746733669+1i, -0.05402812508544+1i, 0.11924523642758+1i, 0.24368742959909+1i, 1.23247587848534+1i, -0.51606383094478+1i, -0.99250715039204+1i, 1.67569693240319+1i, -0.44116321690529+1i, -0.72306596993987+1i, -1.23627311888329+1i, -1.2847157223178+1i, -0.57397347929799+1i, 0.61798581716653+1i, 1.10984813892972+1i, 0.70758835383559+1i, -0.36365729709525+1i, 0.0597499373846+1i, -0.70459646368007+1i, -0.71721816157401+1i, 0.88465049897692+1i, -1.01559257860354+1i, 1.95529396549246+1i, -0.09031959396585+1i, 0.21453882662922+1i, -0.73852770473957+1i, -0.57438868976327+1i, -1.31701613230524+1i, -0.18292538837273+1i, 0.41898240492446+1i, 0.32430434416138+1i, -0.78153648705475+1i, -0.788621970854+1i, -0.50219871834286+1i, 1.49606066984635+1i, -1.13730362066574+1i, -0.1790515943802+1i, 1.90236182167893+1i, -0.10097488532881+1i, -1.35984070382139+1i, -0.66476943527406+1i, 0.48545997890488+1i, -0.37560287166977+1i, -0.56187636354978+1i, -0.34391723412846+1i, 0.09049664713922+1i, 1.59850877114583+1i, -0.08856511213888+1i, 1.08079949615152+1i, 0.63075411565057+1i, -0.11363989550614+1i, -1.5329020028906+1i, -0.52111731755252+1i, -0.48987045313847+1i, 0.04715443276153+1i, 1.30019867766682+1i, 2.29307897383109+1i, 1.54758105898377+1i, -0.13315096432894+1i, -1.75652739555764+1i, -0.38877986407174+1i, 0.08920722307329+1i, 0.84501300406744+1i, 0.96252796848427+1i, 0.68430942941646+1i, -1.39527434979947+1i, 0.84964304563336+1i, -0.44655721642722+1i, 0.17480270016126+1i, 0.07455117717373+1i, 0.42816676497051+1i, 0.02467498282614+1i, -1.66747509758566+1i, 0.73649596477344+1i, 0.38602656834968+1i, -0.26565162527822+1i, 0.11814451104668+1i, 0.13403864536846+1i, 0.221019468561+1i, 1.64084616597749+1i, -0.21905037893348+1i, 0.16806538388466+1i, 1.16838387306909+1i, 1.05418102337692+1i, 1.14526311038036+1i, -0.57746800105956+1i, 2.00248273029283+1i, 0.06670087093018+1i, 1.86685184470686+1i, -1.35090268603071+1i, 0.02098358635424+1i, 1.24991457096922+1i));tan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltintan_testtan2_ef5b4fe3f34aa4d3ea52e24fd1dc73dc() {
+ assertEval("argv <- list(c(0.01, 0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.12, 0.13, 0.14, 0.15, 0.16, 0.17, 0.18, 0.19, 0.2, 0.21, 0.22, 0.23, 0.24, 0.25, 0.26, 0.27, 0.28, 0.29, 0.3, 0.31, 0.32, 0.33, 0.34, 0.35, 0.36, 0.37, 0.38, 0.39, 0.4, 0.41, 0.42, 0.43, 0.44, 0.45, 0.46, 0.47, 0.48, 0.49, 0.5, 0.51, 0.52, 0.53, 0.54, 0.55, 0.56, 0.57, 0.58, 0.59, 0.6, 0.61, 0.62, 0.63, 0.64, 0.65, 0.66, 0.67, 0.68, 0.69, 0.7, 0.71, 0.72, 0.73, 0.74, 0.75, 0.76, 0.77, 0.78, 0.79, 0.8, 0.81, 0.82, 0.83, 0.84, 0.85, 0.86, 0.87, 0.88, 0.89, 0.9, 0.91, 0.92, 0.93, 0.94, 0.95, 0.96, 0.97, 0.98, 0.99));tan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltintan_testtan3_49f9c21e16cfe9b59f79f726609f6c94() {
+ assertEval("argv <- list(Inf);tan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltintan_testtan4_61456f57ec58f78d4ce30165260aa1c3() {
+ assertEval("argv <- list(c(-6.28318530717959, -6.15752160103599, -6.0318578948924, -5.90619418874881, -5.78053048260522, -5.65486677646163, -5.52920307031804, -5.40353936417444, -5.27787565803085, -5.15221195188726, -5.02654824574367, -4.90088453960008, -4.77522083345649, -4.64955712731289, -4.5238934211693, -4.39822971502571, -4.27256600888212, -4.14690230273853, -4.02123859659494, -3.89557489045134, -3.76991118430775, -3.64424747816416, -3.51858377202057, -3.39292006587698, -3.26725635973338, -3.14159265358979, -3.0159289474462, -2.89026524130261, -2.76460153515902, -2.63893782901543, -2.51327412287183, -2.38761041672824, -2.26194671058465, -2.13628300444106, -2.01061929829747, -1.88495559215388, -1.75929188601028, -1.63362817986669, -1.5079644737231, -1.38230076757951, -1.25663706143592, -1.13097335529233, -1.00530964914873, -0.879645943005142, -0.75398223686155, -0.628318530717958, -0.502654824574367, -0.376991118430775, -0.251327412287183, -0.125663706143591, 8.88178419700125e-16, 0.125663706143592, 0.251327412287184, 0.376991118430776, 0.502654824574368, 0.62831853071796, 0.753982236861551, 0.879645943005142, 1.00530964914873, 1.13097335529233, 1.25663706143592, 1.38230076757951, 1.5079644737231, 1.63362817986669, 1.75929188601028, 1.88495559215388, 2.01061929829747, 2.13628300444106, 2.26194671058465, 2.38761041672824, 2.51327412287183, 2.63893782901543, 2.76460153515902, 2.89026524130261, 3.0159289474462, 3.14159265358979, 3.26725635973339, 3.39292006587698, 3.51858377202057, 3.64424747816416, 3.76991118430775, 3.89557489045134, 4.02123859659494, 4.14690230273853, 4.27256600888212, 4.39822971502571, 4.5238934211693, 4.64955712731289, 4.77522083345649, 4.90088453960008, 5.02654824574367, 5.15221195188726, 5.27787565803085, 5.40353936417445, 5.52920307031804, 5.65486677646163, 5.78053048260522, 5.90619418874881, 6.0318578948924, 6.157521601036, 6.28318530717959));tan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltintan_testtan5_fb04c25fd1ada8f2fe176e135a4deeb7() {
+ assertEval("argv <- list(1+1000i);tan(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltintanh_testtanh1_edd961811b796fcbe12fc269bb7d3f87() {
+ assertEval("argv <- list(c(0.57459950307683, 1.3311607364495));tanh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltintanh_testtanh2_375a802d82e03537aa707b1631e96ac9() {
+ assertEval("argv <- list(FALSE);tanh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltintanh_testtanh3_478078d9e56d432957202f074fd8cd0e() {
+ assertEval("argv <- list(c(0.018063120710024, 0.202531388051386, 0.417573408622862, 1.63052300091743, 2.60085453772445, 2.75283670267494, 2.30083138197613, 1.47188976409943, 0.829803307993584, 0.295089115172324, 0.237719196109985, 0.617898787321681, 0.850777050382226, 0.516973890969527, 0.522699166681335, 0.850446724158497, 0.645479182912265, 0.193978409371909, 0.414456893353747, 0.492772947140595, 0.420563171733189, 0.369166401583374, 0.592867562934369, 1.21638206559229, 0.54564621330955, 0.672292186547141, 0.557193544541334, 0.112218530051911, -0.0391766542932368, 0.246991917518619, -0.0310729286667355, 0.100305401934259, 0.385595467685569, 0.347899688300561, 0.0900835492886662, -0.128526864819991));tanh(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltintcrossprod_testtcrossprod1_4314518b98c5af37eb020f0cc3022da1() {
+ assertEval("argv <- list(structure(c(5, 2, 0, 2, 5, 2, 0, 2, 5), .Dim = c(3L, 3L)), structure(c(0, 1, 0, 0, 2, 0, 0, 2, 0, 1, 2, 0, 1, 0, 0), .Dim = c(5L, 3L), .Dimnames = list(c('a', 'b', 'c', 'd', 'e'), NULL))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintcrossprod_testtcrossprod2_e791b4ba5ff95c8d4b7152502910c736() {
+ assertEval("argv <- list(structure(c(5, 2, 0, 2, 5, 2, 0, 2, 5), .Dim = c(3L, 3L), .Dimnames = list(c('A', 'B', 'C'), c('A', 'B', 'C'))), structure(c(0, 1, 0, 0, 2, 0, 0, 2, 0, 1, 2, 0, 1, 0, 0), .Dim = c(5L, 3L), .Dimnames = list(NULL, c('A', 'B', 'C')))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintcrossprod_testtcrossprod3_0a46978a95837c37264e7fb2582dff9d() {
+ assertEval("argv <- list(structure(c(-1.67712982705863, -1.48498667828929, -1.66855080519244, -1.58355627712096, -1.82359988031979, -1.9949008033236, -0.0318360538544526, -0.560218641212122, 0.066207937805176, 0.499775901814107, -0.00128363357081381, -0.00713986667014182, 0.296776079992064, -0.138150806520963, 0.253601178172029, -0.170225064799926, -0.240191246767341, -0.00408674943172847, -0.242382276284081, 0.0729153527553058, 0.269807081327349, 0.0299339639014576, -0.077267349576335, -0.0293027062153706, -0.0099926992270607, 0.0334924583850379, -0.0453336990810482, 0.0438958486872448, -0.112099180250145, 0.089015596249019), .Dim = c(6L, 5L)), structure(c(-0.399602067979347, -0.353820997034499, -0.397557983601584, -0.377306725388702, -0.434500818950138, -0.47531590790431, -0.0422023061126668, -0.742633452454394, 0.087766143100416, 0.662509734796894, -0.00170160212505116, -0.00946470439441127, 0.584095849615428, -0.271899651454647, 0.499121747385523, -0.335026171424641, -0.472729171281292, -0.00804328091925277, -0.637436340955898, 0.191758639997983, 0.70956029179181, 0.0787227379500612, -0.2032038701195, -0.0770626058818733, -0.062340518587102, 0.208946269374942, -0.282819110829524, 0.273848927982668, -0.699342677207614, 0.555333279468297), .Dim = c(6L, 5L))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintcrossprod_testtcrossprod4_8734f772dd52f75c834c2a0a502aab59() {
+ assertEval("argv <- list(c(2, 3), structure(c(0, 0, 1, 0), .Dim = c(2L, 2L), .Dimnames = list(NULL, NULL))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintcrossprod_testtcrossprod5_81cff9308b297ddba3d09efc2ea1c289() {
+ assertEval("argv <- list(structure(c(-0.106539372596213, -2.87400113021639, 0.341152775291742, 1.88577541025803, 0.842201032082677, -1.43117364207636, -0.69348461621825, -2.41970841038843, -3.02719090531729, -0.226641199170227, -0.332680183991575, -1.62371869115524, -1.66979618600051, -1.10431770731054, 1.88731633228519, 2.05877121721062, -0.223853590000374, 2.00359231906507, 2.73128102907396, 0.539089155601206, -0.199828039026098, -1.05787977326062, 0.306997029957149, 1.45711168105796, 1.49857746263809, -0.757919845814536, 0.268252398125501, -0.535834002202256, -0.271560453176356, -2.05847896960824, 0.980553291004929, 0.685818887220841, -0.522933983909647, -0.337189871316714, 0.191459457586776, 1.89272736696455, -0.453746315234956, 0.612338437255857, 1.37687299952389, -1.15071450872488, -0.20817483353688, -0.081142998844394, -0.253631714967276, -0.410462721238244, -0.68459626706876, -0.624834027577721, 0.00753430632431097, -0.0556623066116985, -0.563702942039652, 0.0408500401240061, -0.420302429975138, 0.033747665813787, 0.339840694442255, -0.250248532584852, -0.31434827109732, 0.378366203759376, -0.193977362697154, -0.518701418701189, 1.24086430187875, 0.0626244079886504, -0.168813902431602, -0.233723461170579, -0.0800002226605061, -0.0555238917407563, -0.947495254278566, -0.0485572234634504, -0.0296030565974314, -0.095544458696536, 0.0295824037592777, 0.194854132525369, 0.267233992325682, -0.087254491408015, 0.126110082843019, 0.159157280802928, -0.155595903815538, 0.170585777111235, -0.160659663851048, -0.059679874503493, 0.0114766797349517, -0.288711739670586, 0.192267902822735, -0.558695699349865, -0.0862396209998433, 0.00725278175306798, -0.128294571915242, -0.130284537275488, -0.0857140300930927, -0.0514859262258765, -0.0490801347386973, 0.0204665694600954, -0.14875269796722, 0.196176132315475, -0.0529883263026191, -0.132778199491125, -0.228017010951841, 0.0529472898389869), .Dim = c(12L, 8L)), structure(c(-0.0185462290552347, -0.500302207222603, 0.059387411050087, 0.328273218183171, 0.146609210012521, -0.249136760776327, -0.120720858638907, -0.421219548532773, -0.526969274886959, -0.0394533916498165, -0.057912513881884, -0.282654740999492, -0.321354169237256, -0.212527194864884, 0.363216168017541, 0.396212855019715, -0.0430808772043306, 0.385593613508892, 0.525638130815129, 0.103748319223306, -0.0384571326787796, -0.203590161804909, 0.0590819264933657, 0.28042279511599, 0.416779971858557, -0.210790446196582, 0.0746055707690415, -0.149024582263218, -0.0755255973444945, -0.572498138010465, 0.272708607475933, 0.190737938906932, -0.145436866983219, -0.0937782587701373, 0.0532481432121619, 0.52639978807016, -0.204031585044791, 0.275344124552216, 0.61912476435818, -0.517430328944052, -0.0936079034183924, -0.0364867638890611, -0.114048046419078, -0.184568682552654, -0.307835583002935, -0.280962892162748, 0.0033878764630103, -0.0250291148686315, -0.338839482109357, 0.0245547883601272, -0.252642033739931, 0.0202855808510911, 0.204276820851501, -0.150423346865756, -0.188953431740463, 0.227434343460447, -0.116598981866977, -0.311789254542753, 0.745878344887204, 0.0376432698639114, -0.159472254176866, -0.220789915226282, -0.0755732534972413, -0.0524513683353668, -0.895063746796005, -0.0458702143055051, -0.0279649134231136, -0.0902573187573718, 0.0279454034502495, 0.184071497085901, 0.252446075441722, -0.0824260930614398, 0.167922807083695, 0.211927046257706, -0.207184868571959, 0.227144744458931, -0.21392755544038, -0.0794671752416819, 0.0152818571968794, -0.384436237535829, 0.256015738204522, -0.743935362069355, -0.114833000769291, 0.00965749481472171, -0.300640883681616, -0.30530409690622, -0.200859174058623, -0.120650267011609, -0.115012621802916, 0.0479606224687302, -0.348581720171566, 0.459712089888966, -0.124170937293853, -0.311147655218321, -0.534326859224339, 0.124074773921503), .Dim = c(12L, 8L))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintcrossprod_testtcrossprod6_ddac5708483471742ea352332f0a82fd() {
+ assertEval("argv <- list(structure(c(-1.22589324018138, -0.740548974281808, -0.54768368397833, -0.441021701509591, -0.370068251595057, -0.319690799411412, -0.282987166340516, -0.254112864677485, -0.230083320312515, 0.203647970189376, -0.0305516337408725, -0.0825170335109532, -0.0984577177107505, -0.100129992839015, -0.0988979642888749, -0.0945771185256416, -0.0902309571831907, -0.0871241228998968, -0.00955870050771132, 0.0197754782700907, 0.0125304440435148, 0.00419858922572787, -0.00191073996840182, -0.0061756059258365, -0.00956682744689523, -0.0127366531032827, -0.0131079781713544, 0.000214464770644159, -0.000956552371122151, 5.72249143534175e-05, 0.00029865136977495, 0.00077852017665313, 0.00142425180877207, 0.000491677810053133, -0.000120006753650731, -0.00247588122373662, 4.2574997724815e-05, -0.000297064220851874, 0.000399761711902461, 5.67830351414009e-05, -0.00026523273781528, 0.000320119491527155, -0.00026454073650643, -0.000195756422133707, 0.000192249930248858, -4.94461924222768e-07, 2.80125995838013e-05, -0.000119138513940463, 0.000151917649712048, -7.31975645151543e-05, 4.92140187851149e-05, -1.13604576670922e-05, -3.74519303853871e-05, 9.55915555684852e-06), .Dim = c(9L, 6L)), structure(c(-0.709851441473678, -0.428813651666777, -0.317135326144804, -0.255372882626744, -0.214287405483635, -0.185116425598763, -0.163863247924954, -0.147143631578904, -0.133229363887123, 0.633337192677659, -0.0950143815681878, -0.256624734846691, -0.306199636924392, -0.311400346924765, -0.307568786499592, -0.294131125799441, -0.280614734641737, -0.270952601985731, -0.28505721606605, 0.58973945020027, 0.373679821042009, 0.125209295460755, -0.0569816174886273, -0.184167401344961, -0.285299575647986, -0.379829336915808, -0.390902901787376, 0.0675695685124445, -0.301372718615498, 0.0180293609967187, 0.0940935153626058, 0.245281648154537, 0.448726753036158, 0.154908693733931, -0.0378094944843564, -0.780054577138554, 0.056333641054865, -0.393064241503382, 0.528949712019966, 0.0751331835725979, -0.350946016360591, 0.423570111428232, -0.350030386168567, -0.259017559788085, 0.254377901167792, -0.00226968135332679, 0.128583560874789, -0.546870143699694, 0.697333080468545, -0.335991790571385, 0.225902410856869, -0.0521468239901137, -0.171912019667483, 0.0438784789244046), .Dim = c(9L, 6L))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintcrossprod_testtcrossprod7_d69f763e8621cd3655996220e07a7911() {
+ assertEval("argv <- list(0, 0); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintcrossprod_testtcrossprod8_fd4028b410685c9ccfcdf907e176e27e() {
+ assertEval("argv <- list(structure(c(1.1173625565162, 1.46907016195074, 1.1173625565162, -0.59596185089264, -1.32605913508878e-308, 0.595961850892641), .Dim = c(3L, 2L)), structure(c(0.517876924314756, 0.680886908762812, 0.517876924314755, -0.707106781186547, -1.57336481399136e-308, 0.707106781186548), .Dim = c(3L, 2L))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault1_484be8b1d7ad518ca03bbd8f72b666a7() {
+ assertEval("argv <- list(structure(c('D:', 'E:', 'F:', 'G:'), .Dim = c(4L, 1L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault10_f3f7c654a28cab3226b1d4a90f4b412f() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 74, 68, 56, 57, 60, 74, 53, 61, 57, 57, 67, 70, 63, 57, 67, 50, 58, 72, 60, 70, 53, 74, 73, 48, 61, 65, 74, 70, 68, 74, 63, 74, 63, 68, 58, 59, 62, 57, 48, 73, 69, 68, 68, 67, 63, 74, 40, 81, 73, 59, 55, 42, 44, 71, 61, 72, 63, 70, 66, 72, 69, 71, 64, 56, 63, 59, 66, 67, 55, 69, 44, 80, 76, 49, 68, 66, 80, 75, 72, 70, 66, 50, 64, 53, 47, 67, 56, 54, 56, 74, 76, 57, 71, 54, 82, 70, 60, 55, 69, 62, 63, 69, 63, 64, 46, 61, 65, 61, 56, 53, 56, 60, 39, 58, 64, 53, 72, 52, 50, 64, 71, 70, 64, 60, 73, 62, 69, 67, 69, 65, 65, 76, 67, 76, 77, 39, 66, 1, 0, 0, 1, 0, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 0, 0, 0, 3, 1, 2, 2, 2, 2, 2, 2, 1, 1, 0, 1, 0, 0, 0, 0, 1, 0, 2, 1, 1, 1, 2, 0, 1, 0, 2, 1, 0, 0, 0, 1, 1, 1, 1, 0, 2, 0, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 0, 1, 1, 2, 2, 2, 2, 1, 0, 2, 0, 1, 1, 1, 1, 0, 0, 2, 1, 0, 1, 2, 1, 0, 1, 0, 1, 0, 2, 2, 2, 1, 2, 1, 1, 0, 1, 0, 1, 1, 1, 2, 0, 0, 0, 1, 0, 1, 2, 1, 1, 1, 0, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 0, 1), .Dim = c(137L, 3L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '9', '10', '11', '15', '16', '17', '18', '20', '21', '23', '24', '25', '27', '28', '29', '30', '32', '33', '35', '37', '39', '41', '45', '47', '48', '49', '52', '53', '54', '55', '56', '58', '62', '63', '65', '66', '69', '70', '71', '73', '74', '79', '80', '81', '82', '83', '85', '86', '88', '90', '91', '92', '93', '96', '97', '98', '99', '103', '104', '105', '106', '108', '109', '111', '112', '113', '116', '117', '118', '119', '120', '121', '124', '125', '126', '127', '128', '132', '133', '135', '138', '139', '140', '142', '143', '145', '147', '148', '149', '151', '152', '155', '156', '158', '159', '163', '164', '165', '168', '169', '170', '171', '173', '175', '177', '181', '182', '188', '189', '190', '191', '192', '193', '194', '195', '196', '198', '200', '202', '206', '209', '212', '213', '215', '216', '218', '221', '223', '224', '225', '227'), c('(Intercept)', 'age', 'ph.ecog')), assign = 0:2)); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault11_dfb326b2db541aaf0d14ea02b14ffa73() {
+ assertEval("argv <- list(structure(c(NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(20L, 20L), .Dimnames = list(c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_)))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault12_77ba6d03dcb038abeaf0e35b76474deb() {
+ assertEval("argv <- list(structure('foo', .Dim = c(1L, 1L), .Dimnames = list(structure('object', simpleOnly = TRUE), NULL))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault13_92f115b08cef10b8b8b0c68910c97135() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 3.95252516672997e-323, 0, 0, 0, 0, 0), .Dim = c(12L, 1L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault14_244a400ef04182d49484e38e08920475() {
+ assertEval("argv <- list(structure(c(794, 86, 150, 570), .Dim = c(2L, 2L), .Dimnames = structure(list(`1st Survey` = c('Approve', 'Disapprove'), `2nd Survey` = c('Approve', 'Disapprove')), .Names = c('1st Survey', '2nd Survey')))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault15_3bf8ed6c1fc32cfd3d4c88d9d135726c() {
+ assertEval("argv <- list(structure(list(3, 3, 3, 3, 3, 'fred'), .Dim = 2:3)); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault16_15977dd9104f966c735b9e5ed654c521() {
+ assertEval("argv <- list(1.28578345790245); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault17_519288a8b2a786d4223f90fe3f544995() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i), .Dim = c(5L, 5L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault18_198061f5782d515338f7e7c29c33145f() {
+ assertEval("argv <- list(structure(c(0, 1954.88214285714, 557.144827586207, 0, 0, 1392.34285714286, 0, 0, 0), .Dim = c(3L, 3L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault19_b1e99a973c4728a1592b245757328a5f() {
+ assertEval("argv <- list(c(3, 4)); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault2_9db7b02224702e06049e875c1ce9a13a() {
+ assertEval("argv <- list(structure(c(0.63, -0.37, 0.4, -0.6, 0.85, -0.05, 1.02, -1.76, -1.62, -0.46, -0.57, 1.41, 0, -0.65, 0.57, -0.29, 1.22, 0.8, -0.5, 0.44, 1.63, -0.13, 0.17, 1.02, 0.11), .Dim = c(5L, 5L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault20_05b5618afd90d4ac995441ab39bfa4ee() {
+ assertEval("argv <- list(structure(c(0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 1L), .Dim = c(4L, 4L), .Dimnames = list(c('Y', 'B', 'V', 'N'), c('B', 'V', 'N', 'V:N')))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault21_cc91eeb77fc367283629c51a17902694() {
+ assertEval("argv <- list(-3:5); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault22_d2c2a099a76c7266501ec77260efbcbb() {
+ assertEval("argv <- list(structure(c(8.3, 8.6, 8.8, 10.5, 10.7, 10.8, 11, 11, 11.1, 11.2, 11.3, 11.4, 11.4, 11.7, 12, 12.9, 12.9, 13.3, 13.7, 13.8, 14, 14.2, 14.5, 16, 16.3, 17.3, 17.5, 17.9, 18, 18, 20.6, 70, 65, 63, 72, 81, 83, 66, 75, 80, 75, 79, 76, 76, 69, 75, 74, 85, 86, 71, 64, 78, 80, 74, 72, 77, 81, 82, 80, 80, 80, 87, 10.3, 10.3, 10.2, 16.4, 18.8, 19.7, 15.6, 18.2, 22.6, 19.9, 24.2, 21, 21.4, 21.3, 19.1, 22.2, 33.8, 27.4, 25.7, 24.9, 34.5, 31.7, 36.3, 38.3, 42.6, 55.4, 55.7, 58.3, 51.5, 51, 77), .Dim = c(31L, 3L), .Dimnames = list(NULL, c('Girth', 'Height', 'Volume')))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault23_12effa2ea22153b415abd808278c27fe() {
+ assertEval("argv <- list(structure(list(), .Dim = 0L)); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault24_6a7c37fd02f02f5d480ad24085c00d2c() {
+ assertEval("argv <- list(structure('Seed', .Dim = c(1L, 1L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault3_0187ca98dbbc490b77ca0ce667a77015() {
+ assertEval("argv <- list(structure(NA, .Dim = c(1L, 1L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault4_7e6340588eef18e8e6011974c6ad6bf6() {
+ assertEval("argv <- list(structure(c(0, 0, -0.51, 0, 0, 0, 0.18, -0.15, 0, 2.62, -2.77555756156289e-16, 0, 8.26162055433954e-17, 0.560000000000001, 0, 0, 0, 0, 0, 0, 1.79, 0, 0.05, 0, 0, 0, 0, 0, 0, -0.18, -1.47, 0, -5.55111512312578e-17, 0, 0, 0.23, 0, 2.206351421008e-17, -2.12, 0), .Dim = c(5L, 8L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault5_908778ccc0308160c8cc25f71d38e074() {
+ assertEval("argv <- list(structure(c(NA, 0, NA, 0, NA, 0, NA, 0, NA, 0, NA, 0, NA, 0, NA, 0), .Dim = c(4L, 4L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault6_010e6c3625447ad4f63a06ac29c54eeb() {
+ assertEval("argv <- list(structure(c(0, 10975969, 8779369, 10080625, 11148921, 7628644, 10732176, 6812100, 20115225, 8862529, 9180900, 20539024, 7579009, 15594601, 8208225, 5207524, 4748041, 9e+06, 667489, 15421329, 3964081, 0, 0, 1737124, 1758276, 1674436, 2244004, 4919524, 644809, 1373584, 4072324, 2220100, 1703025, 416025, 404496, 271441, 1028196, 1863225, 1067089, 2131600, 8225424, 3247204, 0, 0, 0, 41616, 339889, 42436, 933156, 458329, 5089536, 356409, 29584, 4343056, 476100, 2427364, 1022121, 855625, 558009, 81225, 2283121, 2611456, 1380625, 0, 0, 0, 0, 211600, 167281, 1290496, 558009, 4946176, 509796, 108900, 4210704, 546121, 2402500, 1121481, 1159929, 954529, 78400, 2762244, 3189796, 1907161, 0, 0, 0, 0, 0, 616225, 2387025, 727609, 4190209, 1243225, 534361, 3337929, 622521, 1814409, 1212201, 1461681, 1345600, 115600, 3218436, 4822416, 2521744, 0, 0, 0, 0, 0, 0, 577600, 2762244, 5934096, 211600, 72361, 5244100, 509796, 3111696, 1071225, 829921, 339889, 216225, 2241009, 1968409, 877969, 0, 0, 0, 0, 0, 0, 0, 2010724, 10214416, 211600, 72361, 8826841, 2125764, 6240004, 3161284, 2362369, 1218816, 1382976, 4202500, 422500, 2117025, 0, 0, 0, 0, 0, 0, 0, 0, 3900625, 1249924, 801025, 3748096, 24964, 2070721, 180625, 107584, 349281, 263169, 990025, 4276624, 1038361, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8392609, 5895184, 456976, 3301489, 487204, 2866249, 4774225, 6579225, 3884841, 6922161, 15100996, 8844676, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 302500, 7134241, 1343281, 4831204, 2187441, 1532644, 648025, 769129, 3066001, 900601, 1334025, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5198400, 744769, 2992900, 1399489, 1205604, 724201, 208849, 2832489, 2250000, 1452025, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1387684, 446224, 3104644, 5062500, 6285049, 3236401, 7290000, 10439361, 8625969, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1640961, 102400, 107584, 524176, 221841, 1098304, 4443664, 1338649, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1338649, 2972176, 4040100, 1620529, 4397409, 10163344, 5803281, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 381924, 1229881, 627264, 1022121, 5895184, 1857769, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 109561, 732736, 343396, 4782969, 806404, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 674041, 894916, 3076516, 183184, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2178576, 3337929, 1560001, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7327849, 1461681, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4431025, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(21L, 21L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault7_f423b93ccd388e47b737808bf79f2822() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 0L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault8_2542cdad988c78dc9e4038667355b627() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(4L, 4L), .Dimnames = list(NULL, NULL))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintdefault_testtdefault9_0115bd9923ef7aa27763093f7a0009b2() {
+ assertEval("argv <- list(structure(c(0.589872882227945+0i, 0.193623477236295+0i, 0.66266867945261+0i, 0.140441698505598+0i, -0.394596353845825+0i, 0.168331537203598+0i, 0.293129347035038+0i, -0.481237717889449+0i, 0.7985227152757+0i, -0.128496737541326+0i, -0.0231518691888815+0i, -0.892171028872675+0i, 0.158252886617681+0i, 0.418477841524233+0i, -0.0576815934568704+0i, 0.471807942431513+0i, -0.00978429568549377+0i, 0.0825499722933953+0i, 0.0943143868799564+0i, 0.872692289136496+0i, -0.632910525118973+0i, 0.283760916561723+0i, 0.545364104158516+0i, 0.398269626120626+0i, 0.25072556357658+0i), .Dim = c(5L, 5L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintolower_testtolower1_49d59726e1a184410a621309a7b8a8fc() {
+ assertEval("argv <- list('show'); .Internal(tolower(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintolower_testtolower2_e08bfa80e92b2fcb5e0102c741dd03f6() {
+ assertEval("argv <- list('TRUE'); .Internal(tolower(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintolower_testtolower3_b1b2faaf6c47b3e97fa58b7ddc86bbb1() {
+ assertEval("argv <- list(c('title', 'author', 'year', 'note')); .Internal(tolower(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintolower_testtolower4_e0ca856344333291d8c210e61162ccdd() {
+ assertEval("argv <- list(c('ChangeLog', 'DESCRIPTION', 'INDEX', 'MD5', 'NAMESPACE', 'PORTING', '0aaa.R', 'agnes.q', 'clara.q', 'clusGap.R', 'coef.R', 'daisy.q', 'diana.q', 'ellipsoidhull.R', 'fanny.q', 'internal.R', 'mona.q', 'pam.q', 'plothier.q', 'plotpart.q', 'silhouette.R', 'zzz.R', 'README', 'agriculture.tab', 'animals.tab', 'chorSub.rda', 'flower.R', 'plantTraits.rda', 'pluton.tab', 'ruspini.tab', 'votes.repub.tab', 'xclara.rda', 'CITATION', 'R-cluster.mo', 'R-cluster.mo', 'R-cluster.mo', 'agnes.Rd', 'agnes.object.Rd', 'agriculture.Rd', 'animals.Rd', 'bannerplot.Rd', 'chorSub.Rd', 'clara.Rd', 'clara.object.Rd', 'clusGap.Rd', 'clusplot.default.Rd', 'clusplot.partition.Rd', 'cluster-internal.Rd', 'coef.hclust.Rd', 'daisy.Rd', 'diana.Rd', 'dissimilarity.object.Rd', 'ellipsoidhull.Rd', 'fanny.Rd', 'fanny.object.Rd', 'flower.Rd', 'lower.to.upper.tri.inds.Rd', 'mona.Rd', 'mona.object.Rd', 'pam.Rd', 'pam.object.Rd', 'partition.object.Rd', 'plantTraits.Rd', 'plot.agnes.Rd', 'plot.diana.Rd', 'plot.mona.Rd', 'plot.partition.Rd', 'pltree.Rd', 'pltree.twins.Rd', 'pluton.Rd', 'predict.ellipsoid.Rd', 'print.agnes.Rd', 'print.clara.Rd', 'print.diana.Rd', 'print.dissimilarity.Rd', 'print.fanny.Rd', 'print.mona.Rd', 'print.pam.Rd', 'ruspini.Rd', 'silhouette.Rd', 'sizeDiss.Rd', 'summary.agnes.Rd', 'summary.clara.Rd', 'summary.diana.Rd', 'summary.mona.Rd', 'summary.pam.Rd', 'twins.object.Rd', 'volume.ellipsoid.Rd', 'votes.repub.Rd', 'xclara.Rd', 'R-cluster.pot', 'R-de.po', 'R-en@quot.po', 'R-pl.po', 'update-me.sh', 'clara.c', 'cluster.h', 'daisy.f', 'dysta.f', 'fanny.c', 'ind_2.h', 'init.c', 'mona.f', 'pam.c', 'sildist.c', 'spannel.c', 'twins.c', 'agnes-ex.R', 'agnes-ex.Rout.save', 'clara-NAs.R', 'clara-NAs.Rout.save', 'clara-ex.R', 'clara.R', 'clara.Rout.save', 'clusplot-out.R', 'clusplot-out.Rout.save', 'daisy-ex.R', 'daisy-ex.Rout.save', 'diana-boots.R', 'diana-ex.R', 'diana-ex.Rout.save', 'ellipsoid-ex.R', 'ellipsoid-ex.Rout.save', 'fanny-ex.R', 'mona.R', 'mona.Rout.save', 'pam.R', 'pam.Rout.save', 'silhouette-default.R', 'silhouette-default.Rout.save', 'sweep-ex.R', '.', 'R', 'data', 'inst', 'LC_MESSAGES', 'LC_MESSAGES', 'LC_MESSAGES', 'man', 'po', 'src', 'tests')); .Internal(tolower(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintolower_testtolower5_ce56c63a8f09ce11fc7cf1f034cabb9d() {
+ assertEval("argv <- list(structure('base', .Names = 'Priority')); .Internal(tolower(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintolower_testtolower6_6f17a87b5a1732e404bd66c1737aef8c() {
+ assertEval("argv <- list(character(0)); .Internal(tolower(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintoupper_testtoupper1_f69b864654824a38ed423cfd36444b84() {
+ assertEval("argv <- list('UTF-8'); .Internal(toupper(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintoupper_testtoupper2_1f4285823dd82cd138853f560f9c8a6e() {
+ assertEval("argv <- list(c('', '', 'remission', '', '', '', '', '', '')); .Internal(toupper(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintoupper_testtoupper3_9be0531b96c7f36fa48d1999065d9d74() {
+ assertEval("argv <- list(character(0)); .Internal(toupper(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintoupper_testtoupper4_5162da4ebde0482d08855ebe19750136() {
+ assertEval("argv <- list(structure(c('BasicClasses', 'Classes', 'Documentation', 'environment-class', 'GenericFunctions', 'language-class', 'LinearMethodsList-class', 'MethodDefinition-class', 'MethodWithNext-class', 'Methods', 'MethodsList-class', 'callNextMethod', 'ObjectsWithPackage-class', 'S3Part', 'S4groupGeneric', 'SClassExtension-class', 'StructureClasses', 'TraceClasses', 'as', 'callGeneric', 'canCoerce', 'cbind2', 'className', 'classRepresentation-class', 'classesToAM', 'dotsMethods', 'evalSource', 'findClass', 'findMethods', 'fixPre1.8', 'genericFunction-class', 'getClass', 'getMethod', 'getPackageName', 'hasArg', 'implicitGeneric', 'inheritedSlotNames', 'initialize-methods', 'is', 'isSealedMethod', 'LocalReferenceClasses', 'method.skeleton', 'new', 'nonStructure-class', 'promptClass', 'promptMethods', 'ReferenceClasses', 'representation', 'selectSuperClasses', 'setClass', 'setClassUnion', 'setGeneric', 'setLoadActions', 'setMethod', 'setOldClass', 'makeClassRepresentation', 'show', 'showMethods', 'signature-class', 'slot', 'envRefClass-class', 'testInheritedMethods', 'validObject', '.BasicFunsList'), .Names = c('/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/BasicClasses.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/Classes.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/Documentation.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/EnvironmentClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/GenericFunctions.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/LanguageClasses.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/LinearMethodsList-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/MethodDefinition-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/MethodWithNext-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/Methods.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/MethodsList-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/NextMethod.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/ObjectsWithPackage-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/S3Part.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/S4groupGeneric.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/SClassExtension-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/StructureClasses.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/TraceClasses.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/as.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/callGeneric.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/canCoerce.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/cbind2.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/className.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/classRepresentation-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/classesToAM.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/dotsMethods.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/evalSource.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/findClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/findMethods.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/fixPrevious.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/genericFunction-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/getClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/getMethod.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/getPackageName.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/hasArg.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/implicitGeneric.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/inheritedSlotNames.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/initialize-methods.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/is.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/isSealedMethod.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/localRefClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/method.skeleton.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/new.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/nonStructure-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/promptClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/promptMethods.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/refClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/representation.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/selectSuperClasses.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setClassUnion.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setGeneric.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setLoadActions.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setMethod.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setOldClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setSClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/show.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/showMethods.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/signature-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/slot.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/stdRefClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/testInheritedMethods.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/validObject.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/zBasicFunsList.tex'))); .Internal(toupper(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintrigamma_testtrigamma1_cba772bcfaa3a8133b1733a459d1e311() {
+ assertEval("argv <- list(structure(c(9.16602362697115, 1.16602362697115, 3.16602362697115, 6.16602362697115, 6.16602362697115, 2.16602362697115, 8.16602362697115, 1.16602362697115, 7.16602362697115, 19.1660236269712, 2.16602362697115), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11')));trigamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltintrigamma_testtrigamma2_d98a8040337197f30eba1e9255ab8962() {
+ assertEval("argv <- list(structure(c(3.23454845691922, 12.2345484569192, 15.2345484569192, 6.23454845691922, 6.23454845691922, 14.2345484569192, 21.2345484569192, 23.2345484569192, 7.23454845691922, 7.23454845691922, 16.2345484569192, 8.23454845691922, 15.2345484569192, 7.23454845691922, 33.2345484569192, 54.2345484569192, 58.2345484569192, 15.2345484569192, 17.2345484569192, 17.2345484569192, 18.2345484569192, 41.2345484569192, 44.2345484569192, 47.2345484569192, 9.23454845691922, 24.2345484569192, 24.2345484569192, 29.2345484569192, 35.2345484569192, 37.2345484569192, 39.2345484569192, 4.23454845691922, 6.23454845691922, 12.2345484569192, 25.2345484569192, 46.2345484569192, 6.23454845691922, 7.23454845691922, 7.23454845691922, 10.2345484569192, 14.2345484569192, 24.2345484569192, 26.2345484569192, 33.2345484569192, 54.2345484569192, 55.2345484569192, 6.23454845691922, 6.23454845691922, 12.2345484569192, 18.2345484569192, 20.2345484569192, 9.23454845691922, 14.2345484569192, 15.2345484569192, 21.2345484569192, 48.2345484569192, 49.2345484569192, 61.2345484569192, 82.2345484569192, 3.23454845691922, 1.23454845691922, 3.23454845691922, 4.23454845691922, 6.23454845691922, 11.2345484569192, 15.2345484569192, 22.2345484569192, 37.2345484569192, 41.2345484569192, 7.23454845691922, 18.2345484569192, 68.2345484569192, 1.23454845691922, 1.23454845691922, 3.23454845691922, 8.23454845691922, 12.2345484569192, 13.2345484569192, 1.23454845691922, 1.23454845691922, 6.23454845691922, 6.23454845691922, 6.23454845691922, 12.2345484569192, 18.2345484569192, 4.23454845691922, 5.23454845691922, 23.2345484569192, 31.2345484569192, 37.2345484569192, 9.23454845691922, 1.23454845691922, 2.23454845691922, 6.23454845691922, 8.23454845691922, 17.2345484569192, 28.2345484569192, 1.23454845691922, 31.2345484569192, 11.2345484569192, 15.2345484569192, 28.2345484569192, 42.2345484569192, 70.2345484569192, 26.2345484569192, 11.2345484569192, 12.2345484569192, 21.2345484569192, 34.2345484569192, 6.23454845691922, 8.23454845691922, 1.23454845691922, 2.23454845691922, 6.23454845691922, 6.23454845691922, 6.23454845691922, 6.23454845691922, 8.23454845691922, 12.2345484569192, 16.2345484569192, 6.23454845691922, 15.2345484569192, 7.23454845691922, 7.23454845691922, 8.23454845691922, 29.2345484569192, 1.23454845691922, 6.23454845691922, 15.2345484569192, 3.23454845691922, 3.23454845691922, 4.23454845691922, 9.23454845691922, 11.2345484569192, 13.2345484569192, 2.23454845691922, 2.23454845691922, 10.2345484569192, 23.2345484569192, 4.23454845691922, 4.23454845691922, 6.23454845691922, 16.2345484569192, 19.2345484569192, 23.2345484569192, 38.2345484569192), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100', '101', '102', '103', '104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', '115', '116', '117', '118', '119', '120', '121', '122', '123', '124', '125', '126', '127', '128', '129', '130', '131', '132', '133', '134', '135', '136', '137', '138', '139', '140', '141', '142', '143', '144', '145', '146')));trigamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltintrigamma_testtrigamma3_e35b54aa032bd1ba44b4f9e6f1455d2f() {
+ assertEval("argv <- list(c(1e+30, 1e+60, 1e+90, 1e+120, 1e+150, 1e+180, 1e+210, 1e+240, 1e+270, 1e+300));trigamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltintrigamma_testtrigamma4_c7cef55147eeed5d89aa9c4ccb582272() {
+ assertEval("argv <- list(c(-100, -3, -2, -1, 0, 1, 2, -99.9, -7.7, -3, -2.9, -2.8, -2.7, -2.6, -2.5, -2.4, -2.3, -2.2, -2.1, -2, -1.9, -1.8, -1.7, -1.6, -1.5, -1.4, -1.3, -1.2, -1.1, -1, -0.9, -0.8, -0.7, -0.6, -0.5, -0.4, -0.3, -0.2, -0.0999999999999996, 0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2, 2.1, 2.2, 2.3, 2.4, 2.5, 2.6, 2.7, 2.8, 2.9, 3, 5.1, 77));trigamma(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltintrunc_testtrunc1_3b502de0e9582f05fa2227cebe759365() {
+ assertEval("argv <- list(8.5);trunc(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltintrunc_testtrunc2_0662beb6fa9d5d74ea8cd9013fee2482() {
+ assertEval("argv <- list(2819.50000004);trunc(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltintrunc_testtrunc3_9014641495c8715f6ffcaaf05748be52() {
+ assertEval("argv <- list(c(4.71622523386031, 1.10082330182195, 1.6348679328803, 1.0848926147446, 1.90544273355044, 0.359849020605907, 3.11383110354654, 0.867268502479419, 0.162947811186314, 0.450064289616421, 4.9159701296594, 4.6105394908227, 3.44404035480693, 1.26481729443185, 1.04007117450237, 2.98928162781522, 0.598357603885233, 3.89095719670877, 2.72964489413425, 2.9838975192979, 0.972001742338762, 3.45619874307886, 3.40639955131337, 1.64102643262595, 2.35728174913675, 0.473953454056755, 4.98228391283192, 4.91887083626352, 0.210240299347788, 2.26199432276189, 3.70630375458859, 3.81391524686478, 0.606464599259198, 4.40811770269647, 4.44661358138546, 2.80862170271575, 3.86814354802482, 3.88661664212123, 2.99017415847629, 2.74575827643275, 0.309161052573472, 3.80168808856979, 0.44893383863382, 4.61025935830548, 0.267928446410224, 2.24770340253599, 2.89542144862935, 0.558472302509472, 1.01390165626071, 4.68876871396787, 3.99585635983385, 0.118613908998668, 0.0555002887267619, 3.01412270753644, 1.23142387834378, 1.36282247491181, 4.64942723163404, 0.578164426842704, 2.22724793478847, 1.08748292084783, 1.14620470674708, 4.12017436814494, 0.320054858457297, 2.23438119865023, 4.76558442227542, 3.10512124677189, 1.74187473836355, 0.650008224183694, 3.97324822610244, 1.69624235597439, 4.7321886930149, 2.33042042935267, 0.96714960061945, 0.195004806155339, 0.781808936735615, 0.248751927865669, 1.19189711171202, 1.64329304476269, 4.17560710804537, 3.12169580138288, 4.66810682089999, 1.36349227512255, 0.602594048250467, 2.95277393539436, 3.86122465948574, 2.54265206633136, 4.36057312530465, 0.599795600865036, 0.397377072367817, 3.41722437064163, 0.29663014691323, 2.19461180153303, 4.06796077964827, 0.185917691560462, 2.69324880791828, 1.27729995292611, 2.07541133742779, 2.81013442203403, 0.629334823461249, 2.81195943942294));trunc(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltintrunc_testtrunc4_e12db55cc85e3df7618a7599b17fba35() {
+ assertEval("argv <- list(c(-2, -1.5, -1, -0.5, 0, 0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4));trunc(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof1_d0bc211b4cb02240e0c3bdef0ab8a0e8() {
+ assertEval("argv <- list(structure(c(1.23315637025077, 1.2394120713065, 1.46775472234056, 1.3131362441571, 0.834956748134462, 1.32096970624938, 1.38337762052736, 1.70911044284799, 1.23539395906175, 0.858346823253787, 1.52283660048288, 1.31313061976496, 1.12786658428867, 1.44366133143941, 1.27218165569433, 1.26731245914676, 1.42168796660342, 1.48945666726, 2.09136324227313, 1.36556393622446, 1.19497185571598, 1.3558872236906, 1.28486176009175, 0.896505382640118, 1.2920383545426, 1.43713738151143, 1.28325876023887, 1.8647069237969, 1.28069027865337, 1.3282363039678, 1.4132805261745, 0.646368078716031, 1.17057458108707, 1.35016461104197, 1.35509309393051, 0.62815321214884, 0.933778507736315, 1.38267166577057, 1.7643327299387, 0.662074713268515, 1.31638314484599, 0.127879987991043, 1.19108675802219, 1.27268759462974, 0.4383313914982, 1.4144264042562, 0.693758539302211, 1.47501143044129, 1.18104902231565, 1.31313716894023, 1.16251137109995, 1.33271580458282, 1.2645836556729, 1.27403739912758, 0.707073961081345, 1.02664693047896, NaN, 0.753985804351041, 1.38430649521587, 1.07546693634877, 1.19187230661588, 1.28069027865337, 1.31026717493666, 1.21822955912256, 1.13243112343561, 1.63256872758035, 1.02552404019857, 1.20828070506052, 1.33930727426782, 1.26731245914676, 1.38337762052736, 1.52793749920214, 1.07081398391753, 1.24912672913647, 1.44366133143941, 1.2823536700583, 1.38311795520175, 0.534347523417853, 1.25766711144813, 1.92388210662423, 1.52790220067279, 1.10639731743869, 1.88278431408355, 1.17178985993101, 1.13471940645093, 1.33429991787085, 1.59592895672966, 0.952232923176189, 2.67777307729144, 0.98546699757923, 0.534607888905458, 1.18840135978238, 2.67777307729144), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof10_7f6772a13074e8c8d3f29b1017b78546() {
+ assertEval("argv <- list(c(NA, '1', NA, '2', '1', NA, NA, '1', '4', '1', NA, '4', '1', '3', NA, '4', '2', '2', NA, '4', '4', '2', '4', '4', '2', '1', '4', '4', '3', '1', '1', '4', '1', '4', NA, '1', '4', '4', '2', '2', '4', '4', '3', '4', '2', '2', '3', '3', '4', '1', '1', '1', '4', '1', '4', '4', '4', '4', NA, '4', '4', '4', NA, '1', '2', '3', '4', '3', '4', '2', '4', '4', '1', '4', '1', '4', NA, '4', '2', '1', '4', '1', '1', '1', '4', '4', '2', '4', '1', '1', '1', '4', '1', '1', '1', '4', '3', '1', '4', '3', '2', '4', '3', '1', '4', '2', '4', NA, '4', '4', '4', '2', '1', '4', '4', NA, '2', '4', '4', '1', '1', '1', '1', '4', '1', '2', '3', '2', '1', '4', '4', '4', '1', NA, '4', '2', '2', '2', '4', '4', '3', '3', '4', '2', '4', '3', '1', '1', '4', '2', '4', '3', '1', '4', '3', '4', '4', '1', '1', '4', '4', '3', '1', '1', '2', '1', '3', '4', '2', '2', '2', '4', '4', '3', '2', '1', '1', '4', '1', '1', '2', NA, '2', '3', '3', '2', '1', '1', '1', '1', '4', '4', '4', '4', '4', '4', '2', '2', '1', '4', '1', '4', '3', '4', '2', '3', '1', '3', '1', '4', '1', '4', '1', '4', '3', '3', '4', '4', '1', NA, '3', '4', '4', '4', '4', '4', '4', '3', '4', '3', '4', '2', '4', '4', '1', '2', NA, '4', '4', '4', '4', '1', '2', '1', '1', '2', '1', '4', '2', '3', '1', '4', '4', '4', '1', '2', '1', '4', '2', '1', '3', '1', '2', '2', '1', '2', '1', NA, '3', '2', '2', '4', '1', '4', '4', '2', '4', '4', '4', '2', '1', '4', '2', '4', '4', '4', '4', '4', '1', '3', '4', '3', '4', '1', NA, '4', NA, '1', '1', '1', '4', '4', '4', '4', '2', '4', '3', '2', NA, '1', '4', '4', '3', '4', '4', '4', '2', '4', '2', '1', '4', '4', NA, '4', '4', '3', '3', '4', '2', '2', '4', '1', '4', '4', '4', '3', '4', '4', '4', '3', '2', '1', '3', '1', '4', '1', '4', '2', NA, '1', '4', '4', '3', '1', '4', '1', '4', '1', '4', '4', '1', '2', '2', '1', '4', '1', '1', '4', NA, '4', NA, '4', '4', '4', '1', '4', '2', '1', '2', '2', '2', '2', '1', '1', '2', '1', '4', '2', '3', '3', '1', '3', '1', '4', '1', '3', '2', '2', '4', '1', NA, '3', '4', '2', '4', '4', '4', '4', '4', '4', '3', '4', '4', '3', '2', '1', '4', '4', '2', '4', '2', '1', '2', '1', '1', '1', '1', '4', '4', '1', '1', '4', '1', '4', '4', '4', '1', '1', NA, '3', '2', '4', '4', '4', '4', '2', '3', '3', '2', NA, '4', '2', '4', '4', '1', '1', '4', '4', '1', '1', '4', '1', '2', '2', '2', '2', '1', '4', '4', '1', '2', '2', '2', '3', '4', '4', '3', '4', '1', '1', '4', '4', NA, '4', '1', '4', '4', '4', '1', '4', '4', '1', '2', '4', '4', '4', '4', '1', '2', '4', '4', '2', '1', '4', '2', '4', '2', '2', '4', '1', '3', '3', '2', '4', '1', '4', '4', '4', '1', NA, '4', '4', '2', '4', '4', '4', '4', '4', '2', NA, '4', '2', '4', '3', '1', '4', '4', '3', '4', '2', '4', '4', '1', '2', '1', '4', '1', '3', '3', '1', '4', '4', '2', '4', '4', '4', '4', '3', '2', '3', '3', '2', NA, '3', '4', '4', '3', '3', '4', '4', '4', '1', '4', '4', '4', '4', '4', '4', '4', '2', '4', '2', '3', '4', '1', '3', '1', NA, '4', '1', '2', '2', '1', '4', '3', '3', '4', '1', '1', '3')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof11_64192767f8f0028b10734d18443bb478() {
+ assertEval("argv <- list(structure(list(base = c(11L, 11L, 6L, 8L, 66L, 27L, 12L, 52L, 23L, 10L, 52L, 33L, 18L, 42L, 87L, 50L, 18L, 111L, 18L, 20L, 12L, 9L, 17L, 28L, 55L, 9L, 10L, 47L, 76L, 38L, 19L, 10L, 19L, 24L, 31L, 14L, 11L, 67L, 41L, 7L, 22L, 13L, 46L, 36L, 38L, 7L, 36L, 11L, 151L, 22L, 41L, 32L, 56L, 24L, 16L, 22L, 25L, 13L, 12L)), .Names = 'base', row.names = c(1L, 5L, 9L, 13L, 17L, 21L, 25L, 29L, 33L, 37L, 41L, 45L, 49L, 53L, 57L, 61L, 65L, 69L, 73L, 77L, 81L, 85L, 89L, 93L, 97L, 101L, 105L, 109L, 113L, 117L, 121L, 125L, 129L, 133L, 137L, 141L, 145L, 149L, 153L, 157L, 161L, 165L, 169L, 173L, 177L, 181L, 185L, 189L, 193L, 197L, 201L, 205L, 209L, 213L, 217L, 221L, 225L, 229L, 233L))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof12_870bbb98dd49f99f2f2ca2640cc327a6() {
+ assertEval("argv <- list(structure(c('Min. : 1.000 ', '1st Qu.: 9.000 ', 'Median :18.000 ', 'Mean :14.742 ', '3rd Qu.:20.000 ', 'Max. :23.000 ', NA, 'Min. :5.0000 ', '1st Qu.:5.3000 ', 'Median :6.1000 ', 'Mean :6.0841 ', '3rd Qu.:6.6000 ', 'Max. :7.7000 ', NA, 'Min. : 1.000 ', '1st Qu.: 24.250 ', 'Median : 56.500 ', 'Mean : 56.928 ', '3rd Qu.: 86.750 ', 'Max. :117.000 ', 'NA's :16 ', 'Min. : 0.500 ', '1st Qu.: 11.325 ', 'Median : 23.400 ', 'Mean : 45.603 ', '3rd Qu.: 47.550 ', 'Max. :370.000 ', NA, 'Min. :0.00300 ', '1st Qu.:0.04425 ', 'Median :0.11300 ', 'Mean :0.15422 ', '3rd Qu.:0.21925 ', 'Max. :0.81000 ', NA), .Dim = c(7L, 5L), .Dimnames = list(c('', '', '', '', '', '', ''), c(' event', ' mag', ' station', ' dist', ' accel')))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof13_7335c33e4525204b64a3a0a85b613e0d() {
+ assertEval("argv <- list(c(2L, 1L, NA)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof14_8db64e42f030b013419b080865800f26() {
+ assertEval("argv <- list(raw(0)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof15_bdd6177cdbb5c9172be825d9465ff461() {
+ assertEval("argv <- list(c(1.1+0i, NA, 3+0i)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof16_926953e0de456d6724beeb4815a26c46() {
+ assertEval("argv <- list(1e+05); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof17_e051be0967dce5983c00bdb8c68b7bcf() {
+ assertEval("argv <- list(structure(c(' ', '***'), legend = '0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1', class = 'noquote')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof18_0b21f1e0239146bb6d1e8288d35a8d74() {
+ assertEval("argv <- list(structure(c(1+1i, 2+1.4142135623731i, 3+1.73205080756888i, 4+2i, 5+2.23606797749979i, 6+2.44948974278318i, 7+2.64575131106459i, 8+2.82842712474619i, 9+3i, 10+3.1622776601684i), id = character(0), class = structure('withId', package = '.GlobalEnv'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof19_51ed1aa7d0164983333e80dd91d99266() {
+ assertEval("argv <- list(structure(list(x = structure(1L, .Label = '1.3', class = 'factor')), .Names = 'x', row.names = c(NA, -1L), class = 'data.frame')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof2_4792d624ffba2c7f13198c7534d40216() {
+ assertEval("argv <- list(structure(c(1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof20_c93be545522fba28e747c906a44c6d6a() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof21_bce1108061269fc3f29261f8bf4d98da() {
+ assertEval("argv <- list(structure(list(a = 1), .Names = 'a', .Tsp = c(1, 1, 1), class = 'ts')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof22_a70882eb362d30353b62755788635eee() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof23_c594a24c5c94a2c5d381b0d2e83432eb() {
+ assertEval("argv <- list(2.22044604925031e-16); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof24_33aa49c209e9c3fa6b782dfb67ee8ab0() {
+ assertEval("argv <- list(structure(list(c0 = logical(0)), .Names = 'c0', row.names = integer(0))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof25_0ad9f467f80f97deb513d6519532b94c() {
+ assertEval("argv <- list(structure(3.14159265358979, comment = 'Start with pi', class = structure('num1', package = '.GlobalEnv'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof26_0bd9eba1766a116fa7fcda8452300f97() {
+ assertEval("argv <- list(structure(c(NA, 0.1945), .Names = c('1', '2'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof27_bd48a93a99e5301332a53330b31d7b55() {
+ assertEval("argv <- list(structure(c(1L, 1L), .Label = 'Ctl', class = 'factor')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof28_639791afaf02f5917923ea261485c4bb() {
+ assertEval("argv <- list(c(1L, NA, 1L)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof29_07b764ba7bd9d17c14d4657658741887() {
+ assertEval("argv <- list(c(NA, NA, NA)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof3_d53fd74be914f4d94f91d1f7b2385d96() {
+ assertEval("argv <- list(structure(c(NA, 9, 3, 3), .Names = c('<none>', 'Hair:Eye', 'Hair:Sex', 'Eye:Sex'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof31_780cb70dab5fc3c7d034d6d2c32ff8ae() {
+ assertEval("argv <- list(structure(list(Y = c(130L, 157L, 174L, 117L, 114L, 161L, 141L, 105L, 140L, 118L, 156L, 61L, 91L, 97L, 100L, 70L, 108L, 126L, 149L, 96L, 124L, 121L, 144L, 68L, 64L, 112L, 86L, 60L, 102L, 89L, 96L, 89L, 129L, 132L, 124L, 74L, 89L, 81L, 122L, 64L, 103L, 132L, 133L, 70L, 89L, 104L, 117L, 62L, 90L, 100L, 116L, 80L, 82L, 94L, 126L, 63L, 70L, 109L, 99L, 53L, 74L, 118L, 113L, 89L, 82L, 86L, 104L, 97L, 99L, 119L, 121L), B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c('I', 'II', 'III', 'IV', 'V', 'VI'), class = 'factor'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c('Golden.rain', 'Marvellous', 'Victory'), class = 'factor'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt'), class = 'factor')), .Names = c('Y', 'B', 'V', 'N'), terms = quote(Y ~ B + V + N + V:N), row.names = 2:72)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof32_ded2c501c59bbbd85bda89dac7e0be18() {
+ assertEval("argv <- list(structure(c(-3.001e+155, -1.067e+107, -1.976e+62, -9.961e+152, -2.059e+23, 1), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof4_ae34edc347bf43e32930fd67214bce28() {
+ assertEval("argv <- list(structure(function (x, y = NULL) standardGeneric('tcrossprod'), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof5_77d489413ad84767c5ba7bf17b4acb61() {
+ assertEval("argv <- list(structure(c('Min. : 0.060 ', '1st Qu.: 0.320 ', 'Median : 0.630 ', 'Mean : 909.592 ', '3rd Qu.: 0.905 ', 'Max. :10000.000 '), .Dim = c(6L, 1L), .Dimnames = list(c('', '', '', '', '', ''), ' x'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof6_391297bbda40c5a9b22d27953a177b14() {
+ assertEval("argv <- list(structure(c(-0.0529307911108286, -0.200175675120066), .Names = c('(Intercept)', 'xTRUE'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof7_fbb34ca066fcfab01904b3c51cc738af() {
+ assertEval("argv <- list(complex(0)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof8_ab47348c6c370e8194f1f8d43832ba61() {
+ assertEval("argv <- list(structure(list(is.array = FALSE, is.atomic = FALSE, is.call = FALSE, is.character = FALSE, is.complex = FALSE, is.data.frame = FALSE, is.double = FALSE, is.environment = FALSE, is.expression = FALSE, is.factor = FALSE, is.finite = NA, is.function = FALSE, is.infinite = NA, is.integer = FALSE, is.language = FALSE, is.list = TRUE, is.logical = FALSE, is.matrix = FALSE, is.na = structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('coefficients', 'residuals', 'effects', 'rank', 'fitted.values', 'assign', 'qr', 'df.residual', 'xlevels', 'call', 'terms', 'model')), is.name = FALSE, is.nan = NA, is.null = FALSE, is.numeric = FALSE, is.numeric_version = FALSE, is.object = TRUE, is.ordered = FALSE, is.package_version = FALSE, is.pairlist = FALSE, is.primitive = FALSE, is.qr = FALSE, is.raw = FALSE, is.recursive = TRUE, is.symbol = FALSE, is.table = FALSE, is.vector = FALSE), .Names = c('is.array', 'is.atomic', 'is.call', 'is.character', 'is.complex', 'is.data.frame', 'is.double', 'is.environment', 'is.expression', 'is.factor', 'is.finite', 'is.function', 'is.infinite', 'is.integer', 'is.language', 'is.list', 'is.logical', 'is.matrix', 'is.na', 'is.name', 'is.nan', 'is.null', 'is.numeric', 'is.numeric_version', 'is.object', 'is.ordered', 'is.package_version', 'is.pairlist', 'is.primitive', 'is.qr', 'is.raw', 'is.recursive', 'is.symbol', 'is.table', 'is.vector'), class = 'isList')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltintypeof_testtypeof9_4cef708046ddaddc4385528c922e1606() {
+ assertEval("argv <- list(c(-21.222245139688+176.377752294836i, -21.222245139688-176.377752294836i, 61.0965873274467+76.779430575699i, 61.0965873274467-76.779430575699i, -11.7486843755171+0i)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass1_4d46dc74b60db0a18b25777dd0fe192a() {
+ assertEval("argv <- list(c(-1, -1));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass10_c5df816c86ac2bfb16807d65bb4588fb() {
+ assertEval("argv <- list(structure(list(GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c('GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'), row.names = 1947:1962));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass11_050a05a07604c532e4d9a5f55803796e() {
+ assertEval("argv <- list(structure(list(y = c(0.219628047744843, 0.360454661130887, -1.14267533343616, 0.772374419482067, 0.681741904304867, 0.171869265068012, 2.08409180391906, 0.367547276775469), x1 = c(1L, 2L, 5L, 6L, 7L, 8L, 9L, 10L), x2 = c(1L, 2L, 5L, 6L, 7L, 8L, 9L, 10L), `(weights)` = c(0, 1, 1, 1, 1, 1, 1, 1)), .Names = c('y', 'x1', 'x2', '(weights)'), terms = quote(y ~ x1 + x2), row.names = c('a', 'b', 'e', 'f', 'g', 'h', 'i', 'j'), na.action = structure(3:4, .Names = c('c', 'd'), class = 'omit')));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass12_764a8bc86f3cdcdee4acf3f202b3562a() {
+ assertEval("argv <- list(structure(list(`log(x)` = c(0, 0.693147180559945, 1.09861228866811, 1.38629436111989, 1.6094379124341, 1.79175946922805, 1.94591014905531, 2.07944154167984, 2.19722457733622, 2.30258509299405, 2.39789527279837, 2.484906649788, 2.56494935746154, 2.63905732961526, 2.70805020110221, 2.77258872223978, 2.83321334405622, 2.89037175789616, 2.94443897916644, 2.99573227355399, 3.04452243772342, 3.09104245335832, 3.13549421592915, 3.17805383034795, 3.2188758248682, 3.25809653802148, 3.29583686600433, 3.3322045101752, 3.36729582998647, 3.40119738166216, 3.43398720448515, 3.46573590279973, 3.49650756146648, 3.52636052461616, 3.55534806148941, 3.58351893845611, 3.61091791264422, 3.63758615972639, 3.66356164612965, 3.68887945411394, 3.71357206670431, 3.73766961828337, 3.76120011569356, 3.78418963391826, 3.80666248977032, 3.8286413964891, 3.85014760171006, 3.87120101090789, 3.89182029811063, 3.91202300542815, 3.93182563272433, 3.95124371858143, 3.97029191355212, 3.98898404656427, 4.00733318523247, 4.02535169073515, 4.04305126783455, 4.06044301054642, 4.07753744390572, 4.0943445622221, 4.11087386417331, 4.12713438504509, 4.14313472639153, 4.15888308335967, 4.17438726989564, 4.18965474202643, 4.20469261939097, 4.21950770517611, 4.23410650459726, 4.24849524204936, 4.26267987704132, 4.27666611901606, 4.29045944114839, 4.30406509320417, 4.31748811353631, 4.33073334028633, 4.34380542185368, 4.35670882668959, 4.36944785246702, 4.38202663467388, 4.39444915467244, 4.40671924726425, 4.4188406077966, 4.43081679884331, 4.44265125649032, 4.45434729625351, 4.46590811865458, 4.47733681447821, 4.48863636973214, 4.49980967033027, 4.51085950651685, 4.52178857704904, 4.53259949315326, 4.54329478227, 4.55387689160054, 4.56434819146784, 4.57471097850338, 4.58496747867057, 4.59511985013459, 4.60517018598809), `log(z)` = c(2.39789527279837, 2.484906649788, 2.56494935746154, 2.63905732961526, 2.70805020110221, 2.77258872223978, 2.83321334405622, 2.89037175789616, 2.94443897916644, 2.99573227355399, 3.04452243772342, 3.09104245335832, 3.13549421592915, 3.17805383034795, 3.2188758248682, 3.25809653802148, 3.29583686600433, 3.3322045101752, 3.36729582998647, 3.40119738166216, 3.43398720448515, 3.46573590279973, 3.49650756146648, 3.52636052461616, 3.55534806148941, 3.58351893845611, 3.61091791264422, 3.63758615972639, 3.66356164612965, 3.68887945411394, 3.71357206670431, 3.73766961828337, 3.76120011569356, 3.78418963391826, 3.80666248977032, 3.8286413964891, 3.85014760171006, 3.87120101090789, 3.89182029811063, 3.91202300542815, 3.93182563272433, 3.95124371858143, 3.97029191355212, 3.98898404656427, 4.00733318523247, 4.02535169073515, 4.04305126783455, 4.06044301054642, 4.07753744390572, 4.0943445622221, 4.11087386417331, 4.12713438504509, 4.14313472639153, 4.15888308335967, 4.17438726989564, 4.18965474202643, 4.20469261939097, 4.21950770517611, 4.23410650459726, 4.24849524204936, 4.26267987704132, 4.27666611901606, 4.29045944114839, 4.30406509320417, 4.31748811353631, 4.33073334028633, 4.34380542185368, 4.35670882668959, 4.36944785246702, 4.38202663467388, 4.39444915467244, 4.40671924726425, 4.4188406077966, 4.43081679884331, 4.44265125649032, 4.45434729625351, 4.46590811865458, 4.47733681447821, 4.48863636973214, 4.49980967033027, 4.51085950651685, 4.52178857704904, 4.53259949315326, 4.54329478227, 4.55387689160054, 4.56434819146784, 4.57471097850338, 4.58496747867057, 4.59511985013459, 4.60517018598809, 4.61512051684126, 4.62497281328427, 4.63472898822964, 4.64439089914137, 4.65396035015752, 4.66343909411207, 4.67282883446191, 4.68213122712422, 4.69134788222914, 4.70048036579242)), .Names = c('log(x)', 'log(z)'), row.names = c(NA, 100L), terms = quote(~log(x) + log(z))));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass13_5846021e31340a70579579d410f53b58() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 0L), Deviance = c(NA, 0), `Resid. Df` = c(10L, 10L), `Resid. Dev` = c(2.74035772634541, 2.74035772634541)), .Names = c('Df', 'Deviance', 'Resid. Df', 'Resid. Dev'), row.names = c('NULL', 'x'), heading = 'Analysis of Deviance Table\n\nModel: gaussian, link: identity\n\nResponse: y\n\nTerms added sequentially (first to last)\n\n'));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass14_4b1f6ca05e55214f4b767c45be86a558() {
+ assertEval("argv <- list(list(structure(list(title = 'foreign: Read Data Stored by Minitab, S, SAS, SPSS, Stata, Systat, dBase,\n...', author = structure(list(structure(list(given = 'R Core Team', family = NULL, role = c('aut', 'cph', 'cre'), email = 'R-core@R-project.org', comment = NULL), .Names = c('given', 'family', 'role', 'email', 'comment'))), class = 'person'), year = '2013', note = 'R package version 0.8-53', url = 'http://CRAN.R-project.org/package=foreign'), .Names = c('title', 'author', 'year', 'note', 'url'), bibtype = 'Manual', textVersion = 'R Core Team (2013). foreign: Read Data Stored by Minitab, S, SAS, SPSS, Stata, Systat, dBase,\n.... R package version 0.8-53. http://CRAN.R-project.org/package=foreign', header = 'To cite package ‘foreign’ in publications use:')));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass15_9b7313f2691bc27403426ccc7e72eccd() {
+ assertEval("argv <- list(structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass16_debb2b9281a6f014a5462967bcf521cc() {
+ assertEval("argv <- list(structure(list(structure(9L, members = 1L, height = 0, label = 9L, leaf = TRUE, value = 2L), structure(list(structure(10L, label = 10L, members = 1L, height = 0, leaf = TRUE, value = 1L), structure(1L, label = 1L, members = 1L, height = 0, leaf = TRUE, value = 10L)), members = 2L, midpoint = 0.5, height = 0.114813676452255, value = 5.5)), members = 3L, midpoint = 0.75, height = 0.241190881793568, value = 3.75));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass17_dfbd97634541071e40ba35fe3cf4d732() {
+ assertEval("argv <- list(c(-1.6, -0.9));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass18_f9b40f1672c6fa5a9004c5615e941efb() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/base/R/base', '/home/lzhao/hg/r-instrumented/library/base/R/base'), frow = 5852:5853, lrow = c(5852L, 5854L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass19_73436a7059ef60fbf05daf2f89349a67() {
+ assertEval("argv <- list(structure(list(b = structure(c(3L, 1L, 2L), .Label = c('A', 'B', 'C'), class = 'factor'), a = structure(c(1386423981.90268, 1386403981.90268, 1386413981.90268), class = c('POSIXct', 'POSIXt'))), .Names = c('b', 'a'), row.names = c(3L, 1L, 2L)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass2_7c7ca0ca3d8df49ebef4cedfb1f43f49() {
+ assertEval("argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c('Employed', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'), terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year), row.names = 1947:1962));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass20_e774e5fad26496ce8cd0f66cd97700b1() {
+ assertEval("argv <- list(c(-2.20207097779183e-13, -2.19098062290287e-13, -2.17989026801391e-13, -2.16879991312495e-13, -2.15770955823599e-13, -2.14661920334703e-13, -2.13552884845807e-13, -2.12443849356911e-13, -2.11334813868015e-13, -2.10225778379119e-13, -2.09116742890223e-13, -2.08007707401327e-13, -2.06898671912432e-13, -2.05789636423536e-13, -2.0468060093464e-13, -2.03571565445744e-13, -2.02462529956848e-13, -2.01353494467952e-13, -2.00244458979056e-13, -1.9913542349016e-13, -1.98026388001264e-13, -1.96917352512368e-13, -1.95808317023472e-13, -1.94699281534576e-13, -1.93590246045681e-13, -1.92481210556785e-13, -1.91372175067889e-13, -1.90263139578993e-13, -1.89154104090097e-13, -1.88045068601201e-13, -1.86936033112305e-13, -1.85826997623409e-13, -1.84717962134513e-13, -1.83608926645617e-13, -1.82499891156721e-13, -1.81390855667826e-13, -1.8028182017893e-13, -1.79172784690034e-13, -1.78063749201138e-13, -1.76954713712242e-13, -1.75845678223346e-13, -1.7473664273445e-13, -1.73627607245554e-13, -1.72518571756658e-13, -1.71409536267762e-13, -1.70300500778866e-13, -1.6919146528997e-13, -1.68082429801075e-13, -1.66973394312179e-13, -1.65864358823283e-13, -1.64755323334387e-13, -1.63646287845491e-13, -1.62537252356595e-13, -1.61428216867699e-13, -1.60319181378803e-13, -1.59210145889907e-13, -1.58101110401011e-13, -1.56992074912115e-13, -1.5588303942322e-13, -1.54774003934324e-13, -1.53664968445428e-13, -1.52555932956532e-13, -1.51446897467636e-13, -1.5033786197874e-13, -1.49228826489844e-13, -1.48119791000948e-13, -1.47010755512052e-13, -1.45901720023156e-13, -1.4479268453426e-13, -1.43683649045365e-13, -1.42574613556469e-13, -1.41465578067573e-13, -1.40356542578677e-13, -1.39247507089781e-13, -1.38138471600885e-13, -1.37029436111989e-13, -1.35920400623093e-13, -1.34811365134197e-13, -1.33702329645301e-13, -1.32593294156405e-13, -1.3148425866751e-13, -1.30375223178614e-13, -1.29266187689718e-13, -1.28157152200822e-13, -1.27048116711926e-13, -1.2593908122303e-13, -1.24830045734134e-13, -1.23721010245238e-13, -1.22611974756342e-13, -1.21502939267446e-13, -1.2039390377855e-13, -1.19284868289654e-13, -1.18175832800759e-13, -1.17066797311863e-13, -1.15957761822967e-13, -1.14848726334071e-13, -1.13739690845175e-13, -1.12630655356279e-13, -1.11521619867383e-13, -1.10412584378487e-13, -1.09303548889591e-13, -1.08194513400695e-13, -1.07085477911799e-13, -1.05976442422904e-13, -1.04867406934008e-13, -1.03758371445112e-13, -1.02649335956216e-13, -1.0154030046732e-13, -1.00431264978424e-13, -9.9322229489528e-14, -9.82131940006321e-14, -9.71041585117362e-14, -9.59951230228403e-14, -9.48860875339444e-14, -9.37770520450484e-14, -9.26680165561525e-14, -9.15589810672566e-14, -9.04499455783607e-14, -8.93409100894648e-14, -8.82318746005689e-14, -8.7122839111673e-14, -8.60138036227771e-14, -8.49047681338812e-14, -8.37957326449853e-14, -8.26866971560894e-14, -8.15776616671935e-14, -8.04686261782975e-14, -7.93595906894016e-14, -7.82505552005057e-14, -7.71415197116098e-14, -7.60324842227139e-14, -7.49234487338179e-14, -7.3814413244922e-14, -7.27053777560261e-14, -7.15963422671302e-14, -7.04873067782343e-14, -6.93782712893384e-14, -6.82692358004425e-14, -6.71602003115466e-14, -6.60511648226507e-14, -6.49421293337547e-14, -6.38330938448588e-14, -6.27240583559629e-14, -6.1615022867067e-14, -6.05059873781711e-14, -5.93969518892752e-14, -5.82879164003793e-14, -5.71788809114834e-14, -5.60698454225874e-14, -5.49608099336915e-14, -5.38517744447956e-14, -5.27427389558997e-14, -5.16337034670038e-14, -5.05246679781079e-14, -4.9415632489212e-14, -4.83065970003161e-14, -4.71975615114202e-14, -4.60885260225244e-14, -4.49794905336287e-14, -4.38704550447331e-14, -4.27614195558379e-14, -4.16523840669435e-14, -4.05433485780505e-14, -3.94343130891604e-14, -3.83252776002761e-14, -3.72162421114035e-14, -3.61072066225542e-14, -3.49981711337514e-14, -3.38891356450417e-14, -3.27801001565183e-14, -3.16710646683675e-14, -3.05620291809617e-14, -2.9452993695046e-14, -2.83439582121106e-14, -2.72349227351356e-14, -2.61258872700815e-14, -2.50168518288693e-14, -2.39078164353409e-14, -2.27987811371798e-14, -2.16897460297536e-14, -2.05807113037972e-14, -1.94716773407802e-14, -1.83626449036421e-14, -1.72536155182618e-14, -1.61445922363971e-14, -1.50355811615637e-14, -1.39265945007928e-14, -1.28176566681469e-14, -1.1708816491751e-14, -1.0600171627855e-14, -9.49191738895913e-15));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass21_dd080544114669b1ebe77c2668e54848() {
+ assertEval("argv <- list(structure(c(325, 285, 706, 885), .Dim = c(1L, 4L), row.vars = structure(list(), .Names = character(0)), col.vars = structure(list(Class = c('1st', '2nd', '3rd', 'Crew')), .Names = 'Class')));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass22_80171dc01732bec268e5c94dac267bb7() {
+ assertEval("argv <- list(c(10000, 20000, 30000, 40000, 50000, 60000, 70000, 80000, 90000, 1e+05, 110000, 120000, 130000, 140000, 150000, 160000, 170000, 180000, 190000, 2e+05, 210000, 220000, 230000, 240000, 250000, 260000, 270000, 280000, 290000, 3e+05, 310000, 320000, 330000, 340000, 350000, 360000, 370000, 380000, 390000, 4e+05, 410000, 420000, 430000, 440000, 450000, 460000, 470000, 480000, 490000, 5e+05, 510000, 520000, 530000, 540000, 550000, 560000, 570000, 580000, 590000, 6e+05, 610000, 620000, 630000, 640000, 650000, 660000, 670000, 680000, 690000, 7e+05, 710000, 720000, 730000, 740000, 750000, 760000, 770000, 780000, 790000, 8e+05, 810000, 820000, 830000, 840000, 850000, 860000, 870000, 880000, 890000, 9e+05, 910000, 920000, 930000, 940000, 950000, 960000, 970000, 980000, 990000, 1e+06));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass23_e355f17cff3f1df163857548d5ca9995() {
+ assertEval("argv <- list(quote(y ~ a + b:c + d + e + e:d));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass24_ea619d66e008a10dd6b0cc85372e61a7() {
+ assertEval("argv <- list(structure(c('Min. :14.00 ', '1st Qu.:26.00 ', 'Median :29.50 ', 'Mean :36.39 ', '3rd Qu.:49.25 ', 'Max. :70.00 ', 'A:9 ', 'B:9 ', NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c('', '', '', '', '', ''), c(' breaks', 'wool'))));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass25_2daae08beb325301e01b1e9ec5acfc78() {
+ assertEval("argv <- list(structure(list(srcfile = '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/negbin.R', frow = 135L, lrow = 137L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass26_fb09ecfada4d63ab789ff35a5dffdfbc() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass27_2f415e16e81b782e86d57c91bc4c7a99() {
+ assertEval("argv <- list(list(structure(list(label = 'FALSE', x = structure(0, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), just = c('left', 'centre'), hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = 'GRID.text.106', gp = structure(list(), class = 'gpar'), vp = NULL), .Names = c('label', 'x', 'y', 'just', 'hjust', 'vjust', 'rot', 'check.overlap', 'name', 'gp', 'vp'), class = c('text', 'grob', 'gDesc'))));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass28_53c3bb212f40e80cc281362cb669f11e() {
+ assertEval("argv <- list(structure(c('0', 'list', 'list'), .Names = c('Length', 'Class', 'Mode')));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass29_1260690d2a61b4028298f4e77a61db8a() {
+ assertEval("argv <- list(structure(list(surname = structure('R Core', class = 'AsIs'), nationality = structure(NA_integer_, .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(NA_integer_, .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = 7L));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass3_82a3969871acb0e54b87f1408f59809d() {
+ assertEval("argv <- list(structure(list(x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE)), .Names = 'x', row.names = c(NA, 10L)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass31_77b7f7e76b159e14d46c842fa5becd87() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = c(NA, -10L), terms = quote(~0)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass32_6add8fd2ad31c7357525c0421e3abc15() {
+ assertEval("argv <- list(quote(breaks ~ (wool + tension)^2));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass33_04d15faf34540d3b15ff9330615e731f() {
+ assertEval("argv <- list(structure(c(1L, 2L, 1L), .Dim = 3L, .Dimnames = structure(list(c('1', '2', NA)), .Names = '')));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass34_a14c27890263e329a9068f79ad678a89() {
+ assertEval("argv <- list(structure(list(`cbind(A, B, C, D)` = structure(c(0.696706709347165, 0.362357754476673, -0.0291995223012888, 0.696706709347165, 0.696706709347165, -0.0291995223012888, 0.696706709347165, -0.0291995223012888, 0.362357754476673, 0.696706709347165, -0.0291995223012888, 0.362357754476673, -0.416146836547142, 0.362357754476673, 0.696706709347165, 0.696706709347165, 0.362357754476673, -0.416146836547142, -0.0291995223012888, -0.416146836547142, 0.696706709347165, -0.416146836547142, 0.362357754476673, -0.0291995223012888, 0.717356090899523, 0.932039085967226, 0.999573603041505, 0.717356090899523, 0.717356090899523, 0.999573603041505, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.909297426825682, 0.932039085967226, 0.717356090899523, 0.717356090899523, 0.932039085967226, 0.909297426825682, 0.999573603041505, 0.909297426825682, 0.717356090899523, 0.909297426825682, 0.932039085967226, 0.999573603041505, -0.0291995223012888, -0.737393715541246, -0.998294775794753, -0.0291995223012888, -0.0291995223012888, -0.998294775794753, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.653643620863612, -0.737393715541246, -0.0291995223012888, -0.0291995223012888, -0.737393715541246, -0.653643620863612, -0.998294775794753, -0.653643620863612, -0.0291995223012888, -0.653643620863612, -0.737393715541246, -0.998294775794753, 0.999573603041505, 0.67546318055115, -0.0583741434275801, 0.999573603041505, 0.999573603041505, -0.0583741434275801, 0.999573603041505, -0.0583741434275801, 0.67546318055115, 0.999573603041505, -0.0583741434275801, 0.67546318055115, -0.756802495307928, 0.67546318055115, 0.999573603041505, 0.999573603041505, 0.67546318055115, -0.756802495307928, -0.0583741434275801, -0.756802495307928, 0.999573603041505, -0.756802495307928, 0.67546318055115, -0.0583741434275801), .Dim = c(24L, 4L), .Dimnames = list(NULL, c('A', 'B', 'C', 'D'))), groups = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('1', '2', '3'), class = 'factor')), .Names = c('cbind(A, B, C, D)', 'groups'), terms = quote(cbind(A, B, C, D) ~ groups), row.names = c(NA, 24L)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass35_9e6cf7a568e6e9123ea5470c7bf22044() {
+ assertEval("argv <- list(structure(list(group = structure(c(1L, 1L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = 'group', row.names = 1:2, terms = quote(~group)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass36_4b5aea621c2da6c20db6339a2a8b2a33() {
+ assertEval("argv <- list(structure(c(2671, 6.026e+77, 3.161e+152, 3.501e+299, 2.409e+227, 1.529e+302), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass4_19ad21dba530b902071f33b093710517() {
+ assertEval("argv <- list(structure(list(X1.10 = 1:10, z = structure(list(x = 1:10, yyy = 11:20), .Names = c('x', 'yyy'), row.names = c(NA, -10L), class = 'data.frame')), .Names = c('X1.10', 'z'), row.names = c(NA, -10L)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass5_23f1e5fa8f77173dbf02485b5fc6ec43() {
+ assertEval("argv <- list(structure(list(Df = c(1, 1, 1, NA, 1), `Sum of Sq` = c(0.109090049888117, 0.246974722154086, 2.97247824113524, NA, 25.9509113775335), RSS = c(47.9727294003871, 48.1106140726531, 50.8361175916342, 47.863639350499, 73.8145507280325), AIC = c(24.9738836085411, 25.0111950072736, 25.7275503692601, 26.9442879283302, 30.5758847476115)), .Names = c('Df', 'Sum of Sq', 'RSS', 'AIC'), row.names = c('- x3', '- x4', '- x2', '<none>', '- x1')));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass6_9344162405436c5cd2aff424385a12d8() {
+ assertEval("argv <- list(structure(list(surname = structure(2L, .Label = c('McNeil', 'R Core', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(NA_integer_, .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(NA_integer_, .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = 7L));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass7_75dd2c4267303e373f84a13afa3a0089() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), row.names = c('1', '2', '3')));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass8_e3a29c8e4b4f13242dfda5f928d7cef8() {
+ assertEval("argv <- list(structure(list(`cbind(w = weight, w2 = weight^2)` = structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c('w', 'w2'))), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = c('cbind(w = weight, w2 = weight^2)', 'group'), terms = quote(cbind(w = weight, w2 = weight^2) ~ group), row.names = c(NA, 20L)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunclass_testunclass9_297fed0824a1d9b4e506ecc094e489c8() {
+ assertEval("argv <- list(structure(c('Min. : 1.00 ', '1st Qu.: 3.25 ', 'Median : 5.50 ', 'Mean : 5.50 ', '3rd Qu.: 7.75 ', 'Max. :10.00 ', 'Min. : 1.00 Min. :11.00 ', '1st Qu.: 3.25 1st Qu.:13.25 ', 'Median : 5.50 Median :15.50 ', 'Mean : 5.50 Mean :15.50 ', '3rd Qu.: 7.75 3rd Qu.:17.75 ', 'Max. :10.00 Max. :20.00 '), .Dim = c(6L, 2L), .Dimnames = list(c('', '', '', '', '', ''), c(' X1.10', ' z.x z.yyy '))));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique1_91c13bc436f48956d378ed0fa6c34219() {
+ assertEval("argv <- list(character(0), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique10_ef111fccb616ec71870922f6bfe58d9c() {
+ assertEval("argv <- list(c(1L, 2L, 2L, 2L, 1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 2L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 1L, 2L, 1L, 1L, 2L), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique11_0f0afad996049368a67f37536ded7d8b() {
+ assertEval("argv <- list(structure(c(20.65, NA, NA, 40.25, 61.9, 55.27, 58.13, 54.04, 21.15, 18.32, NA, 65.84, 58.77, 53.99, 63.37, 64.81, 47.11, 9.65, 67.1, 48.83, 57.92, 69.5, 73.95, 5.46, 49.92, 54.21, 61.38, 56.66, 60.14, 56.68, NA, 53.13, 39.7, 74.83, 59.73, NA, 67.06, 67.99, 60.6, 4.63, 71.09, 43.4, 21.9, 61.45, 77.98, 36.67, 69.95, 55.26, 63.24, NA), .Names = c('Alabama', 'Alaska', 'Arizona', 'Arkansas', 'California', 'Colorado', 'Connecticut', 'Delaware', 'Florida', 'Georgia', 'Hawaii', 'Idaho', 'Illinois', 'Indiana', 'Iowa', 'Kansas', 'Kentucky', 'Louisiana', 'Maine', 'Maryland', 'Massachusetts', 'Michigan', 'Minnesota', 'Mississippi', 'Missouri', 'Montana', 'Nebraska', 'Nevada', 'New Hampshire', 'New Jersey', 'New Mexico', 'New York', 'North Carolina', 'North Dakota', 'Ohio', 'Oklahoma', 'Oregon', 'Pennsylvania', 'Rhode Island', 'South Carolina', 'South Dakota', 'Tennessee', 'Texas', 'Utah', 'Vermont', 'Virginia', 'Washington', 'West Virginia', 'Wisconsin', 'Wyoming')), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique12_8612fb1cced87a07f667c14877b4ca0e() {
+ assertEval("argv <- list(c(1.5, 1.5, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique13_466ce4857e42db108185182d4b376855() {
+ assertEval("argv <- list(list(NULL, NULL, NULL, NULL, NULL), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique14_d281c16643388c586de96818115fa5df() {
+ assertEval("argv <- list(c(9.18429112061858e-05, 0.0238094009226188, 0.0498038685764186), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique15_08dac8e6c97aa3b0947c6cefa7d84585() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), contrasts = structure(c(-0.666666666666667, 0.333333333333333, 0.333333333333333, -0.333333333333333, -0.333333333333333, 0.666666666666667), .Dim = c(3L, 2L), .Dimnames = list(c('placebo', 'drug', 'drug+'), c('drug', 'encourage'))), .Label = c('placebo', 'drug', 'drug+'), class = 'factor'), FALSE, FALSE, 4L); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique16_65c5ed167a6dcf5f992fdb9b692b80ef() {
+ assertEval("argv <- list(c(TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, NA, TRUE, NA, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, NA, TRUE, NA, TRUE, TRUE, NA, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, NA, NA, TRUE, TRUE, TRUE, TRUE, TRUE, NA, TRUE, NA, TRUE, NA, TRUE, TRUE, TRUE, TRUE, NA, TRUE, TRUE, NA, TRUE, NA, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, NA, NA, FALSE, TRUE, TRUE, NA, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique17_e99720ca87d3f995d025ceff78dd7ba8() {
+ assertEval("argv <- list(c('2.21', '7.6', '18.19', '19.78', '20.23', '27.01', '28.06', '29.28', '32.79', '37.06', '39.72', '41.26', '41.76', '42.5', '42.82', '43.59', '45.29', '47.09', '47.12', '47.68', '48.52', '48.93', '49.26', '49.45', '49.58', '49.69', '51.01', '51.18', '52.24', '52.39', '55.06', '55.25', '55.76', '57.02', '57.21', '57.71', '58.33', '58.84', '59.63', '59.83', '61.54', '62.16', '62.26', '65.35', '72.03', '75.37', '78.22', NA), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique18_eb2d891bdbdeeb0b2c961e4d3154ecc9() {
+ assertEval("argv <- list(c(3, 4, 5, 11, 10, 9, 8, 8, 9, 10, 11, 12, 13), FALSE, TRUE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique19_934f306c157abdb78159f17c0d3b744a() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4), .Tsp = c(1945, 1974.75, 4), class = 'ts'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique2_ac2895891ed0fff68bd07e7be2d6c109() {
+ assertEval("argv <- list(c('a', 'b', 'c', 'c', 'b', 'a', 'NA', 'd', 'd', NA), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique20_f7916729a7c0e5d627513fdfa82ef90f() {
+ assertEval("argv <- list(c(4L, 6L, 9L, 15L, NA), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique21_683edeadccde1e6d4f1c955b6902f18a() {
+ assertEval("argv <- list(structure(list(A = c(3L, 5L), B = c(3L, 5L), C = c(3L, 5L), D = c(3L, 5L)), .Names = c('A', 'B', 'C', 'D')), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique22_d91900f7e3cba12b7ee8dcd6f4f61156() {
+ assertEval("argv <- list(c(25, 50, 100, 250, 500, 1e+05), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique23_0bff3075a98ff3fd606aaca877c2c90d() {
+ assertEval("argv <- list(c(1, 2, NA, 2), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique24_eebb204d276475a1fc3e17ee62af5475() {
+ assertEval("argv <- list(list('numeric_version', 'numeric_version'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique25_5b14aff6b14152235430c9bd3799c5c8() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique26_1a7b4529c09610720ed8391bef23c2e9() {
+ assertEval("argv <- list(list('Math2', 'round', 'signif'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique27_6831b4b1e51babf88414d36f56dc11cc() {
+ assertEval("argv <- list(list(structure('Math2', package = 'methods'), 'round', 'signif'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique28_9173b02bb5078f911c317bf4112c74a2() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L), .Names = c('vector', 'data.frameRowLabels', 'SuperClassMethod', 'atomicVector')), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique29_bcdd1cd86c9694fb6cb5506781ab7ee6() {
+ assertEval("argv <- list(NULL, FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique3_75fcd051181688ff9210cfb256ba4147() {
+ assertEval("argv <- list(c(1, 2, 4, 6, 8, 9, 11, 13, 14, 16, 3, 5, 7, 9, 10, 12, 14, 15, 17, 17), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique30_a589ab3b1d20af19b878b86ff693805f() {
+ assertEval("argv <- list(c(TRUE, FALSE, TRUE, TRUE), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique31_1ab159c6f2860b2ec00695eddfd6cd4a() {
+ assertEval("argv <- list(c(2L, 1L, NA), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique4_10eb84e0d2dcb2035b9f0336a68e2238() {
+ assertEval("argv <- list(list(c(9L, 9L), c(9L, 9L), c(9L, 9L), c(9L, 9L), c(9L, 9L), c(9L, 9L)), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique5_4b7c7b382e93d7d0e03973cbe0edfb30() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L), .Label = c('Brown', 'Blue', 'Hazel', 'Green'), class = 'factor'), FALSE, FALSE, 5L); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique6_27cc55187d9a9bad2a23663050d3a2c0() {
+ assertEval("argv <- list(c('colors', 'colours'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique7_082eba594b16036fba4b798f0c39c014() {
+ assertEval("argv <- list(structure(list(a = 1), .Names = 'a'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique8_b1bb75a1b9d1ac957e1cefc57122311c() {
+ assertEval("argv <- list(c(1, 258, 516, 774, 1032, 1290, 1548, 1806, 2064, 2322, 2580, 2838, 3096, 3354, 3612, 3870, 4128, 4386, 4644, 4902, 5160, 1, 259, 517, 775, 1033, 1291, 1549, 1807, 2065, 2323, 2581, 2839, 3097, 3355, 3613, 3871, 4129, 4387, 4645, 4903, 5160), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunique_testunique9_687732fcbebb2f8bd30a841a31f4d5a4() {
+ assertEval("argv <- list(list(FALSE), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlink_testunlink1_5ead42fd735cfdc73231e3241d3171cb() {
+ assertEval("argv <- list('/tmp/RtmptPgrXI/Pkgs', TRUE, FALSE); .Internal(unlink(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlink_testunlink2_d0c60d3877e7fcf81d9cd4025cd65eb7() {
+ assertEval("argv <- list(character(0), FALSE, FALSE); .Internal(unlink(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlink_testunlink3_9749c93d8450efa94a884a7afc15da08() {
+ assertEval("argv <- list('/home/lzhao/tmp/Rtmphu0Cms/file74e1676db2e7', FALSE, FALSE); .Internal(unlink(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist1_462a8b5b48a836fbabdf797000939a79() {
+ assertEval("argv <- list(list('yaxp'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist10_45b2d4b7bfbd438138b90c5838689ae8() {
+ assertEval("argv <- list(structure(' \'Jetz no chli züritüütsch: (noch ein bißchen Zürcher deutsch)\')\n', Rd_tag = 'RCODE'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist11_8d14d2b710fe2eb57218a1ee28e220fa() {
+ assertEval("argv <- list(structure(list(`1 sec` = 345600, `2 secs` = 172800, `5 secs` = 69120, `10 secs` = 34560, `15 secs` = 23040, `30 secs` = 11520, `1 min` = 5760, `2 mins` = 2880, `5 mins` = 1152, `10 mins` = 576, `15 mins` = 384, `30 mins` = 192, `1 hour` = 96, `3 hours` = 32, `6 hours` = 16, `12 hours` = 8, `1 DSTday` = 4, `2 DSTdays` = 2, `1 week` = 0.571428571428571, halfmonth = 0.262833675564682, `1 month` = 0.131416837782341, `3 months` = 0.0438056125941136, `6 months` = 0.0219028062970568, `1 year` = 0.0109514031485284, `2 years` = 0.0054757015742642, `5 years` = 0.00219028062970568, `10 years` = 0.00109514031485284, `20 years` = 0.00054757015742642, `50 years` = 0.000219028062970568, `100 years` = 0.000109514031485284, `200 years` = 5.4757015742642e-05, `500 years` = 2.19028062970568e-05, `1000 years` = 1.09514031485284e-05), .Names = c('1 sec', '2 secs', '5 secs', '10 secs', '15 secs', '30 secs', '1 min', '2 mins', '5 mins', '10 mins', '15 mins', '30 mins', '1 hour', '3 hours', '6 hours', '12 hours', '1 DSTday', '2 DSTdays', '1 week', 'halfmonth', '1 month', '3 months', '6 months', '1 year', '2 years', '5 years', '10 years', '20 years', '50 years', '100 years', '200 years', '500 years', '1000 years')), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist12_85d06985c85e64784174987e13a99f4a() {
+ assertEval("argv <- list(structure(list(vector = TRUE, atomicVector = TRUE, index = TRUE, numIndex = TRUE, numLike = TRUE, number = TRUE, replValue = TRUE), .Names = c('vector', 'atomicVector', 'index', 'numIndex', 'numLike', 'number', 'replValue')), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist13_9d6d7ff50cb7c1aa8ff96b10b64cd554() {
+ assertEval("argv <- list(structure(list(a = 6:10), .Names = 'a', row.names = 6:10), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist14_e8fc45595bcdcf7f18877ce66be8cb5d() {
+ assertEval("argv <- list(structure(list(`2005` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12')), .Names = ''), class = 'table'), `2006` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12')), .Names = ''), class = 'table'), `2007` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12')), .Names = ''), class = 'table'), `2008` = structure(c(31L, 29L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12')), .Names = ''), class = 'table'), `2009` = structure(1L, .Dim = 1L, .Dimnames = structure(list('01'), .Names = ''), class = 'table')), .Names = c('2005', '2006', '2007', '2008', '2009')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist15_e68e9d14482d9697d63ad9e689108814() {
+ assertEval("argv <- list(list(structure(list(structure(c(1395082040.29392, 1395082040.29392, 1395082040.29392, 1395082040.29392, 1395082040.29392), class = c('AsIs', 'POSIXct', 'POSIXt'))), row.names = c(NA, -5L), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist16_ef8a39ab42b7988197c78595f300663c() {
+ assertEval("argv <- list(structure('print(.leap.seconds, tz = \'PST8PDT\') # and in Seattle's\n', Rd_tag = 'RCODE'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist17_68d3a5935e03f2754906437f2c98ff76() {
+ assertEval("argv <- list(list(TRUE, TRUE, TRUE, TRUE), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist18_cf16fc3321cb43d813f1225989a268e9() {
+ assertEval("argv <- list(list(c(NA_real_, NA_real_), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist19_e90230a57eda2ea70728cf949b1c690f() {
+ assertEval("argv <- list(list(structure(list('/home/lzhao/tmp/RtmpTzriDZ/R.INSTALL30d4108a07be/mgcv/R/gamm.r'), row.names = c(NA, -1L), class = 'data.frame'), structure(list(1522L), row.names = c(NA, -1L), class = 'data.frame'), structure(list(1522L), row.names = c(NA, -1L), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist2_0cdeaeab670601c854e7eb393afe4cad() {
+ assertEval("argv <- list(list(c(13823, NA)), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist20_ec280af06edcb2c8983e759d5e539d6c() {
+ assertEval("argv <- list(structure(list(`1` = 2.47032822920623e-323), .Names = '1'), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist21_ee8b04513172989cbdbc2e49afe9d0e3() {
+ assertEval("argv <- list(structure(list(`1` = 5900.92307692308, `2` = 6784.76923076923), .Names = c('1', '2')), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist22_0e410f0f509e89fa627f4eeae4615b5a() {
+ assertEval("argv <- list(list(structure(list(surname = structure(c('Tukey', 'Venables', 'Tierney', 'Ripley', 'Ripley', 'McNeil'), class = 'AsIs'), nationality = structure(c(3L, 1L, 3L, 2L, 2L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(2L, 1L, 1L, 1L, 1L, 1L), .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = c('1', '2', '3', '4', '4.1', '5'), class = 'data.frame'), structure(list(title = structure(c(2L, 5L, 4L, 6L, 7L, 3L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, 1L, NA, NA, NA, NA), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('title', 'other.author'), row.names = c(NA, 6L), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist23_7f64e1694a3712c52909400d5fc9b3b1() {
+ assertEval("argv <- list(list(structure(c(-Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0), .Dim = c(9L, 9L), .Dimnames = list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL)), structure(c(-Inf, -Inf, -Inf, 0, 0, 1, 1, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, Inf, -Inf, -Inf, -Inf, -Inf, 0, 1, 1, 1, Inf, -Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.6, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.4, 0.8, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.533333333333334, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.525, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL)), structure(c(-Inf, -Inf, 0, 0, 1, 2, Inf, Inf, Inf, -Inf, -Inf, 0, 0.5, 1, 2, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 1, 2, 2, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.8, 1.6, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.3, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.4, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.2, 1.9, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.499999999999999, 1.33333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.325, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL)), structure(c(-Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.6, 2.7, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.1, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.2, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.13333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.125, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL)), structure(c(-Inf, -Inf, 0, 1, 3, 4, Inf, Inf, Inf, -Inf, -Inf, 0, 1.5, 3, 4, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 4, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.4, 3.8, Inf, Inf, Inf, -Inf, -Inf, 0.100000000000001, 1.5, 2.9, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1.5, 3, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.2, 1.5, 2.8, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.0666666666666664, 1.5, 2.93333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.0750000000000002, 1.5, 2.925, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL)), structure(c(-Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 3, 5, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1.5, 3.2, 4.9, Inf, Inf, Inf, -Inf, -Inf, 0.300000000000001, 2, 3.7, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.2, 2, 3.8, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.4, 2, 3.6, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.266666666666667, 2, 3.73333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.275, 2, 3.725, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL))), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist24_a0828428f1fcba3b6e4eb7e6864fd104() {
+ assertEval("argv <- list(structure('# everything ', Rd_tag = 'VERB'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist25_c75b1ed028849b364b236e8a9b07d057() {
+ assertEval("argv <- list(structure(list(sec = NA_real_, min = NA_integer_, hour = NA_integer_), .Names = c('sec', 'min', 'hour')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist26_da27e26962e02bb734113c1cf3b91fe7() {
+ assertEval("argv <- list(structure(list(a = list(1:5, c('A', 'B', 'C', 'D', 'E')), b = 'Z', c = NA), .Names = c('a', 'b', 'c')), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist27_9271d18bb2626124efbee2123a7ba802() {
+ assertEval("argv <- list(list(structure(list(structure(c(0.398105880367068, -0.612026393250771, 0.341119691424425, -1.12936309608079, 1.43302370170104, 1.98039989850586, -0.367221476466509, -1.04413462631653, 0.569719627442413, -0.135054603880824, 2.40161776050478, -0.0392400027331692, 0.689739362450777, 0.0280021587806661, -0.743273208882405, 0.188792299514343, -1.80495862889104, 1.46555486156289, 0.153253338211898, 2.17261167036215, 0.475509528899663, -0.709946430921815, 0.610726353489055, -0.934097631644252, -1.2536334002391, 0.291446235517463, -0.443291873218433, 0.00110535163162413, 0.0743413241516641, -0.589520946188072, -0.568668732818502, -0.135178615123832, 1.1780869965732, -1.52356680042976, 0.593946187628422, 0.332950371213518, 1.06309983727636, -0.304183923634301, 0.370018809916288, 0.267098790772231, -0.54252003099165, 1.20786780598317, 1.16040261569495, 0.700213649514998, 1.58683345454085, 0.558486425565304, -1.27659220845804, -0.573265414236886, -1.22461261489836, -0.473400636439312, -0.620366677224124, 0.0421158731442352, -0.910921648552446, 0.158028772404075, -0.654584643918818, 1.76728726937265, 0.716707476017206, 0.910174229495227, 0.384185357826345, 1.68217608051942, -0.635736453948977, -0.461644730360566, 1.43228223854166, -0.650696353310367, -0.207380743601965, -0.392807929441984, -0.319992868548507, -0.279113302976559, 0.494188331267827, -0.177330482269606, -0.505957462114257, 1.34303882517041, -0.214579408546869, -0.179556530043387, -0.100190741213562, 0.712666307051405, -0.0735644041263263, -0.0376341714670479, -0.681660478755657, -0.324270272246319, 0.0601604404345152, -0.588894486259664, 0.531496192632572, -1.51839408178679, 0.306557860789766, -1.53644982353759, -0.300976126836611, -0.528279904445006, -0.652094780680999, -0.0568967778473925, -1.91435942568001, 1.17658331201856, -1.664972436212, -0.463530401472386, -1.11592010504285, -0.750819001193448, 2.08716654562835, 0.0173956196932517, -1.28630053043433, -1.64060553441858), .Label = structure(list(c(-1.91442143130152, -0.573203408615382), c(-0.934159637265755, -0.300914121215107), c(-0.568730738440006, 0.0174576253147555), c(-0.279175308598063, 0.384247363447848), c(0.0279401531591622, 1.16046462131646), c(0.398043874745564, 2.40167976612628)), class = 'shingleLevel'), class = 'shingle')), row.names = c(NA, -100L), class = 'data.frame'), structure(list(c(0.450187101272656, -0.018559832714638, -0.318068374543844, -0.929362147453702, -1.48746031014148, -1.07519229661568, 1.00002880371391, -0.621266694796823, -1.38442684738449, 1.86929062242358, 0.425100377372448, -0.238647100913033, 1.05848304870902, 0.886422651374936, -0.619243048231147, 2.20610246454047, -0.255027030141015, -1.42449465021281, -0.144399601954219, 0.207538339232345, 2.30797839905936, 0.105802367893711, 0.456998805423414, -0.077152935356531, -0.334000842366544, -0.0347260283112762, 0.787639605630162, 2.07524500865228, 1.02739243876377, 1.2079083983867, -1.23132342155804, 0.983895570053379, 0.219924803660651, -1.46725002909224, 0.521022742648139, -0.158754604716016, 1.4645873119698, -0.766081999604665, -0.430211753928547, -0.926109497377437, -0.17710396143654, 0.402011779486338, -0.731748173119606, 0.830373167981674, -1.20808278630446, -1.04798441280774, 1.44115770684428, -1.01584746530465, 0.411974712317515, -0.38107605110892, 0.409401839650934, 1.68887328620405, 1.58658843344197, -0.330907800682766, -2.28523553529247, 2.49766158983416, 0.667066166765493, 0.5413273359637, -0.0133995231459087, 0.510108422952926, -0.164375831769667, 0.420694643254513, -0.400246743977644, -1.37020787754746, 0.987838267454879, 1.51974502549955, -0.308740569225614, -1.25328975560769, 0.642241305677824, -0.0447091368939791, -1.73321840682484, 0.00213185968026965, -0.630300333928146, -0.340968579860405, -1.15657236263585, 1.80314190791747, -0.331132036391221, -1.60551341225308, 0.197193438739481, 0.263175646405474, -0.985826700409291, -2.88892067167955, -0.640481702565115, 0.570507635920485, -0.05972327604261, -0.0981787440052344, 0.560820728620116, -1.18645863857947, 1.09677704427424, -0.00534402827816569, 0.707310667398079, 1.03410773473746, 0.223480414915304, -0.878707612866019, 1.16296455596733, -2.00016494478548, -0.544790740001725, -0.255670709156989, -0.166121036765006, 1.02046390878411)), row.names = c(NA, -100L), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist28_5368038ae812d2ff830abc92574fa036() {
+ assertEval("argv <- list(list(NULL), TRUE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist29_2a60ac9955ad900823d69f11809e1696() {
+ assertEval("argv <- list(structure(list(a = 'a', b = 2, c = 3.14159265358979+2i), .Names = c('a', 'b', 'c')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist3_ab1a74c746c3cf44665790b5325ba276() {
+ assertEval("argv <- list(structure('A', .Names = 'x', package = '.GlobalEnv'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist30_80061cf3b5c20975e86672864aab592d() {
+ assertEval("argv <- list(structure(list(`1` = c(2, 1), `2` = c(3, 1.5, 1.5, 4), `3` = c(4, 2.5, 2.5, 5, 1), `4` = c(5, 3.5, 3.5, 7, 1.5, 6, 1.5), `5` = c(5, 3.5, 3.5, 8, 1.5, 6.5, 1.5, 6.5), `6` = c(6, 4.5, 4.5, 10, 2.5, 8.5, 2.5, 8.5, 1, 7), `7` = c(7, 5.5, 5.5, 11, 3.5, 9.5, 3.5, 9.5, 2, 8, 1)), .Dim = 7L, .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7'))), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist31_4f88039b76f3acc8f328f70dd669db4e() {
+ assertEval("argv <- list(list(c(TRUE, TRUE), c(TRUE, TRUE), c(TRUE, TRUE), c(TRUE, TRUE), c(1, 2, 3)), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist32_c77f9788585d653156db95c336680a5a() {
+ assertEval("argv <- list(structure(list(mean = c(0, 1), vcov = structure(c(1, 1, 1, 0), .Dim = c(2L, 2L))), .Names = c('mean', 'vcov'), class = c('relistable', 'list')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist33_87846056b91a6826df76f89f559ead54() {
+ assertEval("argv <- list(list(c(' \036 The ‘internal’ graphics device invoked by .Call(\'R_GD_nullDevice\',', ' package = \'grDevices\') has been removed: use pdf(file = NULL)', ' instead.')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist34_e092b41837a80a264a8be9d3f48eeb19() {
+ assertEval("argv <- list(structure(list(surname = structure(c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'AsIs'), nationality = structure(c('Australia', 'UK', 'US', 'US', 'Australia'), class = 'AsIs'), deceased = structure(c('no', 'no', 'no', 'yes', 'no'), class = 'AsIs'), title = structure(c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), class = 'AsIs'), other.author = structure(c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), class = 'AsIs')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = c('1', '2', '3', '4', '5')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist35_9f134e9d48d623bc91ee18721a1e6622() {
+ assertEval("argv <- list(list(structure(list(Ozone = c(96L, 78L, 73L, 91L, 47L, 32L, 20L, 23L, 21L, 24L, 44L, 21L, 28L, 9L, 13L, 46L, 18L, 13L, 24L, 16L, 13L, 23L, 36L, 7L, 14L, 30L, NA, 14L, 18L, 20L), Solar.R = c(167L, 197L, 183L, 189L, 95L, 92L, 252L, 220L, 230L, 259L, 236L, 259L, 238L, 24L, 112L, 237L, 224L, 27L, 238L, 201L, 238L, 14L, 139L, 49L, 20L, 193L, 145L, 191L, 131L, 223L), Wind = c(6.9, 5.1, 2.8, 4.6, 7.4, 15.5, 10.9, 10.3, 10.9, 9.7, 14.9, 15.5, 6.3, 10.9, 11.5, 6.9, 13.8, 10.3, 10.3, 8, 12.6, 9.2, 10.3, 10.3, 16.6, 6.9, 13.2, 14.3, 8, 11.5), Temp = c(91L, 92L, 93L, 93L, 87L, 84L, 80L, 78L, 75L, 73L, 81L, 76L, 77L, 71L, 71L, 78L, 67L, 76L, 68L, 82L, 64L, 71L, 81L, 69L, 63L, 70L, 77L, 75L, 76L, 68L), Month = c(9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L), Day = 1:30), .Names = c('Ozone', 'Solar.R', 'Wind', 'Temp', 'Month', 'Day'), row.names = 124:153, class = 'data.frame'), structure(list(c(2.67385465817826, 1.92826057080163, 1.7211511020859, 2.46674518946253, 0.6441818647641, 0.0228534586169083, -0.474209266300845, -0.349943585071407, -0.432787372557699, -0.308521691328261, 0.519916183534662, -0.432787372557699, -0.142834116355676, -0.929850097475453, -0.764162522502868, 0.602759971020954, -0.557053053787138, -0.764162522502868, -0.308521691328261, -0.63989684127343, -0.764162522502868, -0.349943585071407, 0.188541033589493, -1.01269388496175, -0.722740628759722, -0.059990328869384, NA, -0.722740628759722, -0.557053053787138, -0.474209266300845)), row.names = c(NA, -30L), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist36_e506625ad174caedb6881d35716d0c73() {
+ assertEval("argv <- list(list(c(5.87030131383818+0i, 1.5889879152884+1.34124369386909i, 2.11222603449395-1.81528547759475i, 2.90982451403972-3.07851581383191i, -0.93444299242086+4.19201264862077i, -2.47319172794455-3.70050127054969i, 3.40387225833387-2.03794044354999i, 0.964146923537224+0.43683199768595i, 0.964146923537223-0.43683199768595i, 3.40387225833387+2.03794044354999i, -2.47319172794455+3.70050127054969i, -0.93444299242086-4.19201264862077i, 2.90982451403972+3.07851581383191i, 2.11222603449395+1.81528547759475i, 1.5889879152884-1.34124369386909i), c(-0.198575181429756+0i, 3.06901469564285-0.28753262878135i, 2.52792606446531+0.34832983414202i, -0.22897831647696+4.34107190550675i, -1.1328140942159+1.10933827962707i, -2.13015831304915-3.19551716353477i, 1.66248610578085-2.34843556657312i, 2.53273081248013+0.345339148259i, 2.53273081248013-0.345339148259i, 1.66248610578085+2.34843556657312i, -2.13015831304915+3.19551716353477i, -1.1328140942159-1.10933827962708i, -0.22897831647696-4.34107190550675i, 2.52792606446531-0.34832983414202i, 3.06901469564285+0.28753262878135i), c(-0.177389766587854+0i, -0.750507869921238-0.968112891774716i, 2.01908494011385-1.61353499070386i, -1.32842557557029+1.87677956172028i, 0.278793972604843+0.060190561256586i, 0.06482045217871+2.780245561063i, -3.05075608405522+4.21179315999883i, -0.12202595251607-1.65218285338028i, -0.12202595251607+1.65218285338028i, -3.05075608405522-4.21179315999883i, 0.06482045217871-2.780245561063i, 0.278793972604844-0.060190561256586i, -1.32842557557029-1.87677956172028i, 2.01908494011385+1.61353499070386i, -0.750507869921237+0.968112891774715i), c(-1.93496831243286+0i, -4.87879352188084-3.06857420991118i, 0.91348359987171+2.30355482564816i, 2.7631069926811+6.2396752311874i, -0.9934286053847-5.99510259160787i, 0.39705745560005+3.84166415349047i, -1.5293697261841+2.76025815484515i, 3.48992984345714-5.88708433976428i, 3.48992984345714+5.88708433976428i, -1.5293697261841-2.76025815484515i, 0.39705745560005-3.84166415349047i, -0.99342860538471+5.99510259160787i, 2.7631069926811-6.2396752311874i, 0.91348359987171-2.30355482564816i, -4.87879352188084+3.06857420991118i), c(1.6954625122129+0i, 0.96480086806796-2.54002409930623i, -3.5054253146275-7.05689416264505i, -2.10114573645889-1.07773818646711i, 1.81179418950692+1.03308206229221i, 0.84721205589596-4.740786425434i, -1.90295630545443-1.68686014535334i, -2.43557705822344-1.63964363160433i, -2.43557705822344+1.63964363160433i, -1.90295630545443+1.68686014535334i, 0.84721205589596+4.740786425434i, 1.81179418950692-1.03308206229221i, -2.10114573645889+1.07773818646711i, -3.50542531462751+7.05689416264504i, 0.96480086806796+2.54002409930623i)), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist37_0f95051ca08351dae18481fe46543be5() {
+ assertEval("argv <- list(structure(list(inner = integer(0), outer = integer(0)), .Names = c('inner', 'outer')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist38_5f64c3dae7767b102c864136e51809f5() {
+ assertEval("argv <- list(structure(c('mode', 'length', 'x', 'mode', 'x', 'mode'), .Dim = 2:3), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist39_1d5e99dafdc029ed6aa358eae7c83fb0() {
+ assertEval("argv <- list(list(structure(list(b = structure(2L, .Label = c('C', 'D'), class = 'factor')), .Names = 'b', row.names = 2L, class = 'data.frame'), structure(list(a = structure(NA_real_, class = c('POSIXct', 'POSIXt'))), .Names = 'a', row.names = 'NA', class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist4_bd6943a9d134b05f2fbd9ab9074dd76d() {
+ assertEval("argv <- list(list(list(structure(function (e1, e2) standardGeneric('Ops'), generic = structure('Ops', package = 'base'), package = 'base', group = list(), valueClass = character(0), signature = c('e1', 'e2'), default = quote(`\001NULL\001`), skeleton = quote((function (e1, e2) stop('invalid call in method dispatch to 'Ops' (no default method)', domain = NA))(e1, e2)), groupMembers = list('Arith', 'Compare', 'Logic'), class = structure('groupGenericFunction', package = 'methods')))), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist40_7b8c66b7861a23cabf2f2b2cb8e59113() {
+ assertEval("argv <- list(list(structure(list(structure(c('0.007239522', '0.014584634', '0.014207936', '0.018442267', '0.011128505', '0.019910082', '0.027072311', '0.034140379', '0.028320657', '0.037525507'), class = 'AsIs')), row.names = c(NA, -10L), class = 'data.frame'), structure(list(structure(c(' 1', ' 6', ' 7', ' 8', '13', '14', '15', '20', '21', '22'), class = 'AsIs')), row.names = c(NA, -10L), class = 'data.frame'), structure(list(structure(c(' 16', ' 16', '144', ' 16', ' 16', '128', ' 16', ' 16', '112', ' 16'), .Dim = 10L, .Dimnames = structure(list(c('1', '6', '7', '8', '13', '14', '15', '20', '21', '22')), .Names = ''))), row.names = c('1', '6', '7', '8', '13', '14', '15', '20', '21', '22'), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist41_74b3504ae4d46736cfd2aa1f197ef8b3() {
+ assertEval("argv <- list(structure(list(N = 84L, ZXrows = 18, ZXcols = 5, Q = 1L, StrRows = 18, qvec = structure(c(1, 0, 0), .Names = c('Seed', '', '')), ngrps = structure(c(14L, 1L, 1L), .Names = c('Seed', 'X', 'y')), DmOff = structure(c(0, 1, 10), .Names = c('', 'Seed', '')), ncol = structure(c(1, 3, 1), .Names = c('Seed', '', '')), nrot = structure(c(4, 1, 0), .Names = c('', '', '')), ZXoff = structure(list(Seed = c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13), X = structure(18, .Names = 'Seed'), y = structure(72, .Names = '')), .Names = c('Seed', 'X', 'y')), ZXlen = structure(list(Seed = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5), X = 18, y = 18), .Names = c('Seed', 'X', 'y')), SToff = structure(list(Seed = c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13), X = structure(32, .Names = 'Seed'), y = structure(89, .Names = '')), .Names = c('Seed', 'X', 'y')), DecOff = structure(list(Seed = c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13), X = structure(18, .Names = 'Seed'), y = structure(72, .Names = '')), .Names = c('Seed', 'X', 'y')), DecLen = structure(list( Seed = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5), X = 18, y = 18), .Names = c('Seed', 'X', 'y'))), .Names = c('N', 'ZXrows', 'ZXcols', 'Q', 'StrRows', 'qvec', 'ngrps', 'DmOff', 'ncol', 'nrot', 'ZXoff', 'ZXlen', 'SToff', 'DecOff', 'DecLen')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist42_0fdc29bddb215233b4aa47d0e8df01ac() {
+ assertEval("argv <- list(structure(list(structure('\n', Rd_tag = 'RCODE'), structure('Sys.timezone()\n', Rd_tag = 'RCODE'), structure('\n', Rd_tag = 'RCODE'), structure('#ifdef windows not active', Rd_tag = 'COMMENT'), structure(list(structure('\n', Rd_tag = 'VERB'), structure('## need to supply a suitable file path (if any) for your system\n', Rd_tag = 'VERB'), structure('tzfile <- \'/usr/share/zoneinfo/zone.tab\'\n', Rd_tag = 'VERB'), structure('tzones <- read.delim(tzfile, row.names = NULL, header = FALSE,\n', Rd_tag = 'VERB'), structure(' col.names = c(\'country\', \'coords\', \'name\', \'comments\'),\n', Rd_tag = 'VERB'), structure(' as.is = TRUE, fill = TRUE, comment.char = \'#\')\n', Rd_tag = 'VERB'), structure('str(tzones$name)\n', Rd_tag = 'VERB')), Rd_tag = '\\dontrun'), structure('\n', Rd_tag = 'RCODE')), Rd_tag = '\\examples'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist43_4fa4fd309c4941c6aee15839d6fc6521() {
+ assertEval("argv <- list(structure(list(`1` = 8.91763605923317e+38), .Names = '1'), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist44_25fa144c92150c9594d00efc724c5fc2() {
+ assertEval("argv <- list(list(c(0, 0), c(0, 0, 0, 1), NULL, c(1, 1)), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist45_fd7ca258b6f76f89dd5edfc815ab9a10() {
+ assertEval("argv <- list(list(structure(list(structure(c('McNeil', 'Ripley', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'AsIs')), row.names = c(NA, -6L), class = 'data.frame'), structure(list(structure(c('Australia', 'UK', 'UK', 'US', 'US', 'Australia'), class = 'AsIs')), row.names = c(NA, -6L), class = 'data.frame'), structure(list(structure(c('no', 'no', 'no', 'no', 'yes', 'no'), class = 'AsIs')), row.names = c(NA, -6L), class = 'data.frame'), structure(list(structure(c('Interactive Data Analysis', 'Spatial Statistics', 'Stochastic Simulation', 'LISP-STAT', 'Exploratory Data Analysis', 'Modern Applied Statistics ...'), class = 'AsIs')), row.names = c(NA, -6L), class = 'data.frame'), structure(list(structure(c(NA, NA, NA, NA, NA, 'Ripley'), class = 'AsIs')), row.names = c(NA, -6L), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist46_95e6c0b469183d3a065137caa2dee4d7() {
+ assertEval("argv <- list(list(structure(list(surname = structure(c(4L, 5L, 3L, 2L, 2L, 1L, 6L), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables', 'R Core'), class = 'factor'), nationality = structure(c(3L, 1L, 3L, 2L, 2L, 1L, NA), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(2L, 1L, 1L, 1L, 1L, 1L, NA), .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = c('1', '2', '3', '4', '4.1', '5', '7'), class = 'data.frame'), structure(list(title = structure(c(2L, 5L, 4L, 6L, 7L, 3L, 1L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, 1L, NA, NA, NA, NA, 2L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('title', 'other.author'), row.names = c(NA, 7L), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist47_9ea0da81edb2da1c0683bccd68ede7e2() {
+ assertEval("argv <- list(list(structure(list(structure('DateTimeClasses', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('POSIXt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('print.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('print.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('summary.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('summary.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('+.POSIXt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('-.POSIXt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('Ops.POSIXt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('Math.POSIXt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('Summary.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('Math.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('Summary.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('[.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('[<-.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('[[.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('[.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('[<-.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('as.data.frame.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('as.data.frame.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('as.list.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('.leap.seconds', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('is.na.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('c.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('c.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list( structure('as.matrix.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('length.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('mean.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('mean.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('str.POSIXt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('check_tzones', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('duplicated.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('unique.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('split.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('names.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('names<-.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('date-time', Rd_tag = 'VERB')), Rd_tag = '\\alias')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist48_96ac9fd88185f3c4e65a2f4446a73181() {
+ assertEval("argv <- list(structure(list(c(3L, 0L, 0L)), class = 'numeric_version'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist49_a372f4aa0e6e20cdc2ae9550b9f7684c() {
+ assertEval("argv <- list(list(structure(list(x = 1L, y = structure(1L, .Label = c('A', 'D', 'E'), class = 'factor'), z = 6), .Names = c('x', 'y', 'z'), row.names = 1L, class = 'data.frame'), structure(list(), .Names = character(0), row.names = 1L, class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist5_f2e05326492d9e0a912fd77a4313b62f() {
+ assertEval("argv <- list(structure(list(sec = c(8.40000009536743, 8.80000019073486), min = c(14L, 14L), hour = c(22L, 22L)), .Names = c('sec', 'min', 'hour')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist6_0a3e7470006afaffe8594e580f443c45() {
+ assertEval("argv <- list(list(structure(list(c(NA, 0L)), row.names = c(NA, -2L), class = 'data.frame'), structure(list(c(NA, 0)), row.names = c(NA, -2L), class = 'data.frame'), structure(list(c(10L, 10L)), row.names = c(NA, -2L), class = 'data.frame'), structure(list(c(2.74035772634541, 2.74035772634541)), row.names = c(NA, -2L), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist7_41d12eb4e1fdbf2c2b9125c8238d06a5() {
+ assertEval("argv <- list(structure(list(diagonalMatrix = 1, lMatrix = 1, sparseMatrix = 2, Matrix = 2, mMatrix = 4), .Names = c('diagonalMatrix', 'lMatrix', 'sparseMatrix', 'Matrix', 'mMatrix')), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist8_fe37fc7b365236baa39cbebfdbece429() {
+ assertEval("argv <- list(list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'), structure(list(height = numeric(0), weight = numeric(0)), .Names = c('height', 'weight'), row.names = integer(0), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinunlist_testunlist9_6fedda4eeb203d008f152567af7e6c5d() {
+ assertEval("argv <- list(list(c(TRUE, FALSE, FALSE, FALSE, FALSE), c(TRUE, TRUE, TRUE, TRUE, NA)), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinutf8ToInt_testutf8ToInt1_63a27d481481a00dad84e929f539c36c() {
+ assertEval("argv <- list('lasy'); .Internal(utf8ToInt(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinvector_testvector1_9eba6c0004e7af7ce42cff661a071ea7() {
+ assertEval("argv <- list('integer', 0L); .Internal(vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinvector_testvector10_10df1995690904192bb1b0bc0c548dd9() {
+ assertEval("argv <- list('list', structure(1L, .Names = '\\c')); .Internal(vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinvector_testvector2_983b42d77a0575ec695b72baceb6c5e8() {
+ assertEval("argv <- list('double', 17.1); .Internal(vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinvector_testvector3_740a8cc65d94f7bc6b23c6a291b7c88a() {
+ assertEval("argv <- list('list', 1L); .Internal(vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinvector_testvector4_348338610d325be7d984dd3c9c2cc3f1() {
+ assertEval("argv <- list('logical', 15L); .Internal(vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinvector_testvector5_c83b8a785a5f66fa17f40ceae6513be4() {
+ assertEval("argv <- list('double', 2); .Internal(vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinvector_testvector9_3ec6b6e35abf3a65efefe2397e0034e4() {
+ assertEval("argv <- list('raw', 0L); .Internal(vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhich_testwhich1_6ffd58c2382fb329db8a247df22067c2() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE)); .Internal(which(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhich_testwhich2_e6065f72e60c9a304328bf154266e911() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L), .Dimnames = list(c('A', 'B'), c('A', 'B')))); .Internal(which(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhich_testwhich3_038ceb9c56616d25695275d25965ce76() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE)); .Internal(which(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhich_testwhich4_dab6a1d1d7e8fdc8bc2f723fd7e78105() {
+ assertEval("argv <- list(structure(TRUE, .Names = 'V1')); .Internal(which(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhich_testwhich5_6aef65a1ab8178b217ae32f8504ced22() {
+ assertEval("argv <- list(logical(0)); .Internal(which(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhich_testwhich6_93d3fd981b8395b30b099b866b42b77e() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L))); .Internal(which(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhich_testwhich7_5ae2018f20142d7d07b6d7642d0d5460() {
+ assertEval("argv <- list(c(FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE)); .Internal(which(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhich_testwhich8_1d8c38fe3541060706bbd073c2bdda2b() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE), .Dim = 12L)); .Internal(which(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhich_testwhich9_0c431803ab55f27309549cbc5947f2f2() {
+ assertEval("argv <- list(structure(FALSE, .Names = 'signature-class.Rd')); .Internal(which(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhichmax_testwhichmax1_8740c7e2a30ff1913fccb1a3e392add0() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = 4:5, .Dimnames = list(c('I(a)', 'b', 'c', 'a'), c('I(a)', 'b', 'c', 'b:c', 'a:x')))); .Internal(which.max(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhichmax_testwhichmax2_bc0064f5ce6fe0559a90a7d2c6ae0003() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE), .Names = c('d', 'I(as.numeric(d)^2)'))); .Internal(which.max(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhichmax_testwhichmax3_d76a0b61080251e97a3ac59ae938c10f() {
+ assertEval("argv <- list(c(7985.84636551931, 7366.07281363396, 7342.71367123673, 7315.48787041648, 7290.90503004105)); .Internal(which.max(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhichmax_testwhichmax4_ab75935a3fe576e9409934730c64f62a() {
+ assertEval("argv <- list(structure(c(NA, 87, 82, 75, 63, 50, 43, 32, 35, 60, 54, 55, 36, 39, NA, NA, 69, 57, 57, 51, 45, 37, 46, 39, 36, 24, 32, 23, 25, 32, NA, 32, 59, 74, 75, 60, 71, 61, 71, 57, 71, 68, 79, 73, 76, 71, 67, 75, 79, 62, 63, 57, 60, 49, 48, 52, 57, 62, 61, 66, 71, 62, 61, 57, 72, 83, 71, 78, 79, 71, 62, 74, 76, 64, 62, 57, 80, 73, 69, 69, 71, 64, 69, 62, 63, 46, 56, 44, 44, 52, 38, 46, 36, 49, 35, 44, 59, 65, 65, 56, 66, 53, 61, 52, 51, 48, 54, 49, 49, 61, NA, NA, 68, 44, 40, 27, 28, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = 'ts')); .Internal(which.max(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhichmax_testwhichmax5_79fb02f2a6b85572fd6cc6c025b88103() {
+ assertEval("argv <- list(NULL); .Internal(which.max(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhichmax_testwhichmax6_7fc83a1e01e81a96f76d8220a4a5d2e2() {
+ assertEval("argv <- list(list()); .Internal(which.max(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhichmin_testwhichmin1_d6176c9b59aa6bb735350689a65f6902() {
+ assertEval("argv <- list(structure(c(345595, 172795, 69115, 34555, 23035, 11515, 5755, 2875, 1147, 571, 379, 187, 91, 27, 11, 3, 1, 3, 4.42857142857143, 4.73716632443532, 4.86858316221766, 4.95619438740589, 4.97809719370294, 4.98904859685147, 4.99452429842574, 4.99780971937029, 4.99890485968515, 4.99945242984257, 4.99978097193703, 4.99989048596851, 4.99994524298426, 4.9999780971937, 4.99998904859685), .Names = c('1 sec', '2 secs', '5 secs', '10 secs', '15 secs', '30 secs', '1 min', '2 mins', '5 mins', '10 mins', '15 mins', '30 mins', '1 hour', '3 hours', '6 hours', '12 hours', '1 DSTday', '2 DSTdays', '1 week', 'halfmonth', '1 month', '3 months', '6 months', '1 year', '2 years', '5 years', '10 years', '20 years', '50 years', '100 years', '200 years', '500 years', '1000 years'))); .Internal(which.min(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhichmin_testwhichmin2_d37d291f96c4c6f2e09346cb620e9770() {
+ assertEval("argv <- list(structure(c(295, 145, 55, 25, 15, 5, 0, 2.5, 4, 4.5, 4.66666666666667, 4.83333333333333, 4.91666666666667, 4.97222222222222, 4.98611111111111, 4.99305555555556, 4.99652777777778, 4.99826388888889, 4.99950396825397, 4.99977184576774, 4.99988592288387, 4.99996197429462, 4.99998098714731, 4.99999049357366, 4.99999524678683, 4.99999809871473, 4.99999904935737, 4.99999952467868, 4.99999980987147, 4.99999990493574, 4.99999995246787, 4.99999998098715, 4.99999999049357), .Names = c('1 sec', '2 secs', '5 secs', '10 secs', '15 secs', '30 secs', '1 min', '2 mins', '5 mins', '10 mins', '15 mins', '30 mins', '1 hour', '3 hours', '6 hours', '12 hours', '1 DSTday', '2 DSTdays', '1 week', 'halfmonth', '1 month', '3 months', '6 months', '1 year', '2 years', '5 years', '10 years', '20 years', '50 years', '100 years', '200 years', '500 years', '1000 years'))); .Internal(which.min(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhichmin_testwhichmin3_486bf281a1e82b07ad35b247d7369c9d() {
+ assertEval("argv <- list(NULL); .Internal(which.min(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhichmin_testwhichmin4_1bc7b4a571c1e2d2012691bb7c08f068() {
+ assertEval("argv <- list(list()); .Internal(which.min(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhichmin_testwhichmin5_41a9a1ccc68a580857ce6de332825860() {
+ assertEval("argv <- list(c(NA, 0.951840581382975, 0.805577027554469, 0.663985017923499, 0.53717416750558, 0.496765449963868, 0.472038350505409, 0.463306413812878, 0.485896454097402, 0.520777596351646, 0.524391122960607, 0.492063804965834, 0.513821989320989, 0.521702559081969, 0.533525525673351)); .Internal(which.min(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinwhichmin_testwhichmin6_1c622637b29a8cffa713c704cf8db17b() {
+ assertEval("argv <- list(structure(c(NA, 87, 82, 75, 63, 50, 43, 32, 35, 60, 54, 55, 36, 39, NA, NA, 69, 57, 57, 51, 45, 37, 46, 39, 36, 24, 32, 23, 25, 32, NA, 32, 59, 74, 75, 60, 71, 61, 71, 57, 71, 68, 79, 73, 76, 71, 67, 75, 79, 62, 63, 57, 60, 49, 48, 52, 57, 62, 61, 66, 71, 62, 61, 57, 72, 83, 71, 78, 79, 71, 62, 74, 76, 64, 62, 57, 80, 73, 69, 69, 71, 64, 69, 62, 63, 46, 56, 44, 44, 52, 38, 46, 36, 49, 35, 44, 59, 65, 65, 56, 66, 53, 61, 52, 51, 48, 54, 49, 49, 61, NA, NA, 68, 44, 40, 27, 28, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = 'ts')); .Internal(which.min(argv[[1]]))");
+ }
+
+ @Test
+ public void TestrGenBuiltinxtfrm_testxtfrm1_3b92963ab424a885d5c6f528462f1f42() {
+ assertEval("argv <- list(structure(c(4L, 5L, 3L, 2L, 1L), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinxtfrm_testxtfrm10_f8f0943e85c01d94ad9001ab6a6b8ffa() {
+ assertEval("argv <- list(structure(c(-0.00456054471709705, -0.0386783362736307, -0.0164476694679408, -0.191054486056936, -0.648560736432306, -0.0674820314025517, -0.0740415039370447, -0.0243389397466521, -0.00751319716764208, -2.290078352999e-05, -0.0207911295071267, -0.0697881087827301, -0.00348607275095251, -0.00951045408299201, -0.00166106374745221, -0.0259659490166321, -0.0293880116898911, -0.0140288480262381, -0.0027358575950958, -0.000491817024731849, -0.00823790481253382, -0.00148071888751321, -0.00122448210109329, -0.0168483392795904, -0.0206872529040578, -0.000471241810355829, -0.00239800266383851, -0.00875711097940079, -0.0461679706262251, -0.0100810672498937, -0.0758745277496017, -0.0537304828043233, -0.0171367489531612, -0.01057973675541, -0.0676085282986778, -0.069201293818924, -0.00065957876422003, -1.97617272327839e-05, -0.00439039022584134), .Names = c('1962.25', '1962.5', '1962.75', '1963', '1963.25', '1963.5', '1963.75', '1964', '1964.25', '1964.5', '1964.75', '1965', '1965.25', '1965.5', '1965.75', '1966', '1966.25', '1966.5', '1966.75', '1967', '1967.25', '1967.5', '1967.75', '1968', '1968.25', '1968.5', '1968.75', '1969', '1969.25', '1969.5', '1969.75', '1970', '1970.25', '1970.5', '1970.75', '1971', '1971.25', '1971.5', '1971.75')));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinxtfrm_testxtfrm11_726960ee2f1187190691a56ecc43c4b6() {
+ assertEval("argv <- list(structure(list(c(2L, 10L, 0L), c(2L, 10L, 1L), c(2L, 10L, 1L, 1L), c(2L, 11L, 0L), c(2L, 11L, 1L), c(2L, 11L, 1L, 1L), c(2L, 12L, 0L), c(2L, 12L, 1L), c(2L, 12L, 2L), c(2L, 12L, 2L, 1L), c(2L, 13L, 0L), c(2L, 13L, 1L), c(2L, 13L, 2L), c(2L, 14L, 0L), c(2L, 14L, 1L), c(2L, 14L, 2L), c(2L, 15L, 0L), c(2L, 15L, 1L), c(2L, 15L, 2L), c(2L, 15L, 3L), c(3L, 0L, 0L), c(3L, 0L, 1L)), class = 'numeric_version'));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinxtfrm_testxtfrm12_81ff59eb39910cc2fe0d247d89009bc8() {
+ assertEval("argv <- list(structure(list(c(2L, 11L, 0L)), class = 'numeric_version'));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinxtfrm_testxtfrm13_ff0a798c69ed5b019fef5b0c5ebdf27f() {
+ assertEval("argv <- list(structure(c(607L, 30L, 3L, 11L, 44L, 67L, 17L, 16L, 67L, 6L, 1L, 13L, 672L, 46L, 8L, 18L, 10L, 22L, 16L, 5L, 55L, 2L), .Dim = 22L, .Dimnames = structure(list(c('BUG FIXES', 'C-LEVEL FACILITIES', 'CODE MIGRATION', 'COMPRESSION', 'DEPRECATED & DEFUNCT', 'DEPRECATED AND DEFUNCT', 'GRAPHICS DEVICES', 'HELP & Rd FILE CHANGES', 'INSTALLATION', 'INTERNATIONALIZATION', 'LICENCE', 'LONG VECTORS', 'NEW FEATURES', 'PACKAGE INSTALLATION', 'PACKAGE parallel', 'PERFORMANCE IMPROVEMENTS', 'REGULAR EXPRESSIONS', 'SIGNIFICANT USER-VISIBLE CHANGES', 'SWEAVE & VIGNETTES', 'SWEAVE CHANGES', 'UTILITIES', 'WINDOWS-SPECIFIC CHANGES')), .Names = ''), class = 'table'));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinxtfrm_testxtfrm2_b94a50966ea5e19698742d3e4c472f73() {
+ assertEval("argv <- list(structure(c('Tukey', 'Venables', 'Tierney', 'Ripley', 'Ripley', 'McNeil', 'R Core'), class = 'AsIs'));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinxtfrm_testxtfrm3_97dbd1c548746bab47ac2deb0726f3c6() {
+ assertEval("argv <- list(c('9', '9', '8', '7', '6', '5', '4', '3', '2', '1'));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinxtfrm_testxtfrm4_96c35e16b58d24b3e6506531adb92c89() {
+ assertEval("argv <- list(list());xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinxtfrm_testxtfrm5_1717ab01bb2368f6d10a950d12bf9feb() {
+ assertEval("argv <- list(NULL);xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinxtfrm_testxtfrm6_469f3bdc584c134e8095e29b6e93181f() {
+ assertEval("argv <- list(structure(c(11354, 11382, 11413), class = 'Date'));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinxtfrm_testxtfrm7_dff11923cc8e38d39e14a1d82396b6ed() {
+ assertEval("argv <- list(structure(1:3, id = 'An Example', class = structure('numWithId', package = '.GlobalEnv')));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinxtfrm_testxtfrm8_1f852c9d39f4b7de7a4f70b94b8477c1() {
+ assertEval("argv <- list(structure(1:48, .Label = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48'), class = 'factor'));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ public void TestrGenBuiltinxtfrm_testxtfrm9_5cc89686f3f0feb71aa223976d6bfa28() {
+ assertEval("argv <- list(structure(c(0.00318983494910604, -0.0111499005186203, -0.00684577108225438, -0.0259425874127965, 0.0236273472621072, 0.0160653568112268, 0.0169512728197135, -0.0108668370208327, 0.0075620519889718, 0.000382355180538597, 0.0147085004994818, -0.0237528559595188, -0.00450253418485462, -0.00933970368616398, -0.00295998622541489, -0.0142621134100646, 0.0149334478604598, 0.0102146485133766, 0.00423575454949581, -0.00284331639280456, 0.0113535382887161, -0.00395897382574548, -0.00413390950862867, -0.0165713012838917, -0.018012405938438, 0.00225076128639717, 0.00786949110453678, 0.00890171601854386, 0.0241231688586559, 0.0104325796748375, 0.0267124035293778, -0.0242586202225146, 0.011564413201586, -0.00791916545648325, -0.020000071186273, -0.0160024870044187, 0.00243365269147765, 0.000371702019451462, 0.00543854321166064), .Names = c('1962.25', '1962.5', '1962.75', '1963', '1963.25', '1963.5', '1963.75', '1964', '1964.25', '1964.5', '1964.75', '1965', '1965.25', '1965.5', '1965.75', '1966', '1966.25', '1966.5', '1966.75', '1967', '1967.25', '1967.5', '1967.75', '1968', '1968.25', '1968.5', '1968.75', '1969', '1969.25', '1969.5', '1969.75', '1970', '1970.25', '1970.5', '1970.75', '1971', '1971.25', '1971.5', '1971.75')));xtfrm(argv[[1]]);");
+ }
+
}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/failing/FailingTests.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/failing/FailingTests.java
index e1eb7051c04847deff7ad87921782f450d32748e..48a6576f5834ef3525234eed5eef8ed6ad7bec61 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/failing/FailingTests.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/failing/FailingTests.java
@@ -2018,6 +2018,11 @@ public class FailingTests extends TestBase {
assertEval("{ f <- function(a,b) { a > b } ; f(1,2) ; f(1L,2) ; f(\"hello\"[2], \"hi\") }");
}
+ @Ignore
+ public void TestSimpleFunctions_testArgs_88c2c495f154230921998b06b16d441c() {
+ assertEval("{ f<-function(x, row.names = NULL, optional = FALSE, ...) {print(optional)}; f(c(7,42), row.names=NULL, nm=\"x\") }");
+ }
+
@Ignore
public void TestSimpleFunctions_testArgsIgnore_4f0bba29449d73452b8aeb86b93aafb5() {
assertEval("{ f<-function(x, row.names = NULL, optional = FALSE, ...) {print(optional); for (i in list(...)) {print(i)} }; f(c(7,42), row.names=NULL, nm=\"x\") }");
@@ -2533,5 +2538,12800 @@ public class FailingTests extends TestBase {
assertEval("{ x<-5:1 ; x[x[2]<-2] }");
}
+ @Ignore
+ public void TestrGenBuiltinArg_testArg1_53fffbb7c52c1ba577a8291133bbfdf8() {
+ assertEval("argv <- list(1+2i);Arg(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinArg_testArg2_e284f15d362634951ccd75fb1038bb02() {
+ assertEval("argv <- list(c(1554.86976865791+337.57296578684i, 1953.0195914094+434.16395869265i, 2020.8001333202+267.40279521531i, 12019.4947666225+397.6223289386i, 40989.2104557418+1079.1450107273i, 59779.5384921205+1460.5074297272i, 40703.4141691824+1049.8100128697i, 12234.4562968499+469.0052365648i, 2311.58538965355+142.56529231224i, 2158.93441543181+94.80017111005i, 2768.79882180339+256.05759156168i, 3234.20673958634+282.64174433659i, 2796.76248579155+64.23534085425i, 2030.22757739534-164.56566766766i, 1522.09271008314-273.51503749101i, 1109.23177636373-215.24298332377i, 714.154122222449-75.284630456206i, 509.684427096512-24.577531288476i, 628.214718823948+42.431050163574i, 1053.2295477549+190.4802567974i, 1388.73708931304+133.04405268816i, 1213.97041311196-135.67196064028i, 790.469479873384-232.737914916798i, 503.424076694357-99.275737105817i, 430.214847703846+45.250156289826i, 640.795334515383+121.961327286573i, 794.927869993865+100.643091831764i, 554.394621183915-15.753680159958i, 286.476583987294-104.634488576316i, 232.82067569803-92.469328935268i, 229.472155078088-54.85406188579i, 253.438957119958-65.123390974834i, 285.141954428461-79.653095359009i, 257.168942241366-34.332533775171i, 214.215071612655+18.001149572355i, 199.882436088191+0i));Arg(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinArg_testArg3_62ab5a71bf6d7347d372dc295ef3ea2e() {
+ assertEval("argv <- list(c(-12.561836573133-726.935211685406i, -19.15961591777-1315.40822424617i, -666.84872452586-2013.90899841237i, -5775.9038598237-11495.8986046958i, -19052.0606820086-36788.5714510618i, -27954.209922899-52600.8398855356i, -19930.6456597181-35739.3494902644i, -7168.9170917163-10787.9325286278i, -2331.00733468417-1545.77448035635i, -1953.77845230855-212.90200115993i, -1953.60071030304+1420.43983282655i, -1700.4015174326+2765.31423009739i, -862.10275212019+2693.95914108523i, 163.24691179114+1837.1971341258i, 824.29498680332+1155.03126302727i, 939.495937605926+679.549172893055i, 686.101881005818+305.166761591578i, 460.339323160381-14.067413050801i, 533.688543397269-293.997358985575i, 773.041200043657-698.096300485637i, 716.84959340189-1127.39175172066i, 226.23728166311-1110.40349894929i, -203.687633095422-740.924670781257i, -271.865544904439-437.858153233594i, -316.769706633022-279.671035520361i, -624.842102639273-228.211019456587i, -806.31350008813-164.912647906911i, -506.559675826232+24.376187336594i, -142.784303570554+217.087547410547i, -44.704338624059+260.225831716256i, 10.565037460572+219.942519605707i, 143.643627814428+218.823069474359i, 232.58540850813+214.905815487636i, 223.286482103748+175.139821578561i, 185.008902762186+116.519845434485i, 171.150234739785-0i));Arg(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinArg_testArg4_8dbce6d8ad11f5abcb022249c52f3481() {
+ assertEval("argv <- list(logical(0));Arg(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinArg_testArg5_574cfd79b8ec434d34dc4153642208da() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));Arg(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinArg_testArg6_3e9e9b79224b0ce45e5adea9e0fe0b47() {
+ assertEval("argv <- list(FALSE);Arg(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinConj_testConj1_0e5548c50179ddefd1a7e46fa4ae32e0() {
+ assertEval("argv <- list(NA_complex_);Conj(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinConj_testConj2_0a6659c9b1a639ebb84ae75d70f6cbca() {
+ assertEval("argv <- list(c(-1.18540307978262+0i, 1.21560120163195-1.53371687180917i, 2.77616253887119+2.49241439707552i, -0.34590612779948+5.91601304866405i, -4.79620377219434-5.1021793804514i, -0.76948538129694-3.75787028288235i, 7.35246399396265+3.06008718716048i, 3.29255418488526-1.70891939683671i, -4.06380659430245+3.06999922353505i, -3.09223641978001-1.96417605896538i, -0.92141308753853+1.40901240924205i, -2.00249720671212-2.68610936520658i, -0.36243789137685+2.82396143864819i, 0.970540333825845-0.827296527575657i, -0.71012351273056-1.58808368514905i, 0.65264999887605-1.47950735242131i, 2.37634963276553+0.56734038764123i, 1.07643410940103-0.27130380644466i, -0.75915222215558-1.26274988364837i, 0.27719717365392+1.892240358725i, -0.486365810527362+0.32331047458147i, 0.458815916572034+0.775988009981045i, -1.62795265860628+1.25968253919881i, -0.31369767965175+2.67392540646143i, 1.35480053490252+0i, -0.31369767965175-2.67392540646143i, -1.62795265860628-1.25968253919881i, 0.458815916572035-0.775988009981044i, -0.486365810527364-0.323310474581469i, 0.27719717365392-1.892240358725i, -0.75915222215558+1.26274988364837i, 1.07643410940103+0.27130380644466i, 2.37634963276553-0.56734038764123i, 0.65264999887605+1.47950735242131i, -0.71012351273056+1.58808368514905i, 0.970540333825845+0.827296527575658i, -0.36243789137685-2.82396143864819i, -2.00249720671212+2.68610936520658i, -0.92141308753853-1.40901240924205i, -3.09223641978001+1.96417605896538i, -4.06380659430245-3.06999922353505i, 3.29255418488526+1.70891939683671i, 7.35246399396266-3.06008718716047i, -0.76948538129694+3.75787028288235i, -4.79620377219434+5.10217938045139i, -0.34590612779948-5.91601304866405i, 2.77616253887119-2.49241439707552i, 1.21560120163195+1.53371687180917i));Conj(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinConj_testConj3_3475858a17219d350c90b79dbb2f17da() {
+ assertEval("argv <- list(structure(c(0.087699990825051-0.22507396943778i, 0.543948655831334+0.33174688242063i, 0.162724647304311-0.15004931295852i, 0.433366361691124+0.22116458828042i, 0.237749303783571-0.07502465647926i, 0.322784067550914+0.11058229414021i, 0.312773960262831+0i, 0.212201773410704-0i, 0.387798616742091+0.07502465647926i, 0.101619479270494-0.11058229414021i, 0.462823273221351+0.15004931295852i, -0.008962814869716-0.22116458828042i, 0.537847929700611+0.22507396943778i, -0.119545109009926-0.33174688242063i), .Dim = c(2L, 7L)));Conj(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinConj_testConj4_9a3bc737541cebcaf3921b9495bbbe3d() {
+ assertEval("argv <- list(c(1+0i, 0.985449458355365-0.138495889434283i, 0.942642872008266-0.270298493966801i, 0.874055380411015-0.389154527907249i, 0.783616834775482-0.489658143691394i, 0.676434265976222-0.567595743096322i, 0.558433187362516-0.620202886580765i, 0.435944803381395-0.646314749919218i, 0.315270204563124-0.646399711551264i, 0.202254248593737-0.622474571220695i, 0.101900933636988-0.577908912337521i, 0.018058735786294-0.517134531945579i, -0.046801131817278-0.445283024979697i, -0.091697846014566-0.367779972441526i, -0.117138246792619-0.289927334668645i, -0.125-0.21650635094611i, -0.118311211562746-0.151431445234362i, -0.1009450259937-0.097481478474725i, -0.0772542485937368-0.0561284970724482i, -0.0516755705617768-0.027476388254185i, -0.0283351996132097-0.0103131692411995i, -0.0106874359562526-0.0022716846399295i, -1.21500794451954e-03-8.496163204619e-05i, -1.21500794451956e-03+8.49616320463e-05i, -0.0106874359562525+0.0022716846399297i, -0.0283351996132096+0.0103131692411996i, -0.0516755705617767+0.0274763882541851i, -0.0772542485937367+0.0561284970724481i, -0.1009450259937+0.097481478474725i, -0.118311211562746+0.151431445234362i, -0.125+0.21650635094611i, -0.117138246792619+0.289927334668644i, -0.091697846014566+0.367779972441526i, -0.046801131817278+0.445283024979697i, 0.018058735786294+0.517134531945579i, 0.101900933636988+0.577908912337521i, 0.202254248593737+0.622474571220695i, 0.315270204563124+0.646399711551264i, 0.435944803381395+0.646314749919218i, 0.558433187362516+0.620202886580765i, 0.676434265976221+0.567595743096322i, 0.783616834775482+0.489658143691394i, 0.874055380411015+0.389154527907249i, 0.942642872008266+0.270298493966801i, 0.985449458355365+0.138495889434283i));Conj(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinConj_testConj5_2cc5e68e85d29c1e311ea6502b53f7e4() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));Conj(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinConj_testConj6_d9a4ab8140d0d1b613eeee859a91a41c() {
+ assertEval("argv <- list(FALSE);Conj(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt1_e9d67dbb4cf514bd8b9c18cbb53d29e8() {
+ assertEval("argv <- list(structure(c(14712, 14712), class = 'Date')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt2_9c0e3f153c5ad4d97a73eaa87acfb627() {
+ assertEval("argv <- list(structure(c(11323, NA, NA, 12717), class = 'Date')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt3_fba12ed33293983225e078b7d44deba6() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L), class = 'Date')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt4_bd639259bea77fad892d6d0e1b0a673b() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE), class = 'Date')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt5_ceb868684ad3d7c1310ffae6d5c30066() {
+ assertEval("argv <- list(NULL); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt6_b11d7825ea46ea0b0e7cacbd478097bd() {
+ assertEval("argv <- list(character(0)); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt7_1259bfd5708bd7f10a45556efcdc34f9() {
+ assertEval("argv <- list(structure(11323.9154302836, class = 'Date')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt8_9bc49dc939b9ace7d99616800b8d1cc0() {
+ assertEval("argv <- list(structure(c(-21915, -21550, -21185, -20819, -20454, -20089, -19724, -19358, -18993, -18628, -18263, -17897, -17532, -17167, -16802, -16436, -16071, -15706, -15341, -14975, -14610, -14245, -13880, -13514, -13149, -12784, -12419, -12053, -11688, -11323, -10958, -10592, -10227, -9862, -9497, -9131, -8766, -8401, -8036, -7670, -7305, -6940, -6575, -6209, -5844, -5479, -5114, -4748, -4383, -4018, -3653, -3287, -2922, -2557, -2192, -1826, -1461, -1096, -731, -365, 0, 365, 730, 1096, 1461, 1826, 2191, 2557, 2922, 3287, 3652, 4018, 4383, 4748, 5113, 5479, 5844, 6209, 6574, 6940, 7305, 7670, 8035, 8401, 8766, 9131, 9496, 9862, 10227, 10592), class = 'Date')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinDate2POSIXlt_testDate2POSIXlt9_bf3dde227e3258e44e9b499785adf609() {
+ assertEval("argv <- list(structure(c(11354, 11382, 11413), class = 'Date')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinEncoding_testEncoding1_4467cf1f6dabf42a77c4a7a6cf7d7bc7() {
+ assertEval("argv <- list('Byte Code Compiler'); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinEncoding_testEncoding2_b202a92e0f6a25d911a92148be580405() {
+ assertEval("argv <- list(c('\n', '\n', '## These cannot be run by examples() but should be OK when pasted\n', '## into an interactive R session with the tcltk package loaded\n', '\n', 'tt <- tktoplevel()\n', 'tkpack(txt.w <- tktext(tt))\n', 'tkinsert(txt.w, \'0.0\', \'plot(1:10)\')\n', '\n', '# callback function\n', 'eval.txt <- function()\n', ' eval(parse(text = tclvalue(tkget(txt.w, \'0.0\', \'end\'))))\n', 'tkpack(but.w <- tkbutton(tt, text = \'Submit\', command = eval.txt))\n', '\n', '## Try pressing the button, edit the text and when finished:\n', '\n', 'tkdestroy(tt)\n', '\n', '\n')); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinEncoding_testEncoding3_5992647ba797230372a412e39cfdd0e8() {
+ assertEval("argv <- list('detaching ‘package:nlme’, ‘package:splines’'); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinEncoding_testEncoding4_e733dc96477d1f79666b1666b3c4fd4e() {
+ assertEval("argv <- list(structure(character(0), class = 'check_code_usage_in_package')); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinEncoding_testEncoding5_90f446f75e96e650fee7029603e82cf5() {
+ assertEval("argv <- list(structure('Type 'demo(PKG::FOO)' to run demonstration 'PKG::FOO'.', .Names = 'demo')); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinEncoding_testEncoding6_e5dcd42337a57d66d553abd63d50b757() {
+ assertEval("argv <- list('A shell of class documentation has been written to the file './myTst2/man/DocLink-class.Rd'.\n'); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinEncoding_testEncoding7_2c0eb43860392c9283fd6cf2df630bdf() {
+ assertEval("argv <- list(c('* Edit the help file skeletons in 'man', possibly combining help files for multiple functions.', '* Edit the exports in 'NAMESPACE', and add necessary imports.', '* Put any C/C++/Fortran code in 'src'.', '* If you have compiled code, add a useDynLib() directive to 'NAMESPACE'.', '* Run R CMD build to build the package tarball.', '* Run R CMD check to check the package tarball.', '', 'Read \'Writing R Extensions\' for more information.')); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinIm_testIm2_166a0fbf32802990f21c015412732aeb() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));Im(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinIm_testIm3_d27ce0f974803d2f8fd0655b08226bc7() {
+ assertEval("argv <- list(FALSE);Im(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinIm_testIm5_daa6f6a7561f0e16ca1b0adc0888bd87() {
+ assertEval("argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))));Im(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinIm_testIm6_ceaffdfb48f484191e3c465d7d171154() {
+ assertEval("argv <- list(c(0.923879532511287+0.38268343236509i, 0.707106781186548+0.707106781186547i, 0.38268343236509+0.923879532511287i, 0+1i, -0.38268343236509+0.923879532511287i, -0.707106781186547+0.707106781186548i, -0.923879532511287+0.38268343236509i, -1+0i, -0.923879532511287-0.38268343236509i, -0.707106781186548-0.707106781186547i, -0.38268343236509-0.923879532511287i, 0-1i, 0.38268343236509-0.923879532511287i, 0.707106781186547-0.707106781186548i, 0.923879532511287-0.38268343236509i, 1-0i));Im(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinLa_testLa1_a2aefe263aade4050c793d072b09f428() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0), .Dim = c(18L, 7L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18'), c('(Intercept)', 'Rail2', 'Rail5', 'Rail1', 'Rail6', 'Rail3', 'Rail4')))); .Internal(La_qr(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinLa_testLa2_82030ef6446bf50aaa3b9b6f8b894e03() {
+ assertEval("argv <- list(structure(c(-4.47213595499958, 0, -6.70820393249937, 2.23606797749979), .Dim = c(2L, 2L), .Dimnames = list(NULL, c('Intercept', 'X'))), structure(c(1, 0, 0, 1), .Dim = c(2L, 2L)), 2.22044604925031e-16); .Internal(La_solve(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinLa_testLa3_eeae722616d628fd6eb05793b1e3c58f() {
+ assertEval("argv <- list(structure(c(-21.2222451396881, 306.936914624821, 0, 0, 0, -101.353437863947, -21.2222451396881, 0, 0, 0, 45.8768670002026, 63.2672432400162, -11.7486843755171, 0, 0, 65.1621918666428, 125.787781278037, -111.869521123473, 61.0965873274467, -54.389932439947, -26.0785375270079, -209.347244886481, 112.817924425406, 108.385517228532, 61.0965873274467), .Dim = c(5L, 5L), .Dimnames = list(NULL, NULL)), FALSE); .Internal(La_rg(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinLa_testLa4_93e4ac1f4bb285b0ed312b1d5e9813a1() {
+ assertEval("argv <- list('S', structure(c(1, 0, 0, 0, 0, 1.4142135623731, 0, 0, 0, 0, 1.73205080756888, 0, 0, 0, 0, 2), .Dim = c(4L, 4L), Dimnames = list(character(0), character(0))), c(2, 1.73205080756888, 1.4142135623731, 1), structure(c(0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0), .Dim = c(4L, 4L)), structure(c(0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0), .Dim = c(4L, 4L))); .Internal(La_svd(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinLa_testLa5_10537d2a8b634e27f7aa11ddfa10a5c6() {
+ assertEval("argv <- list(structure(c(0.842723988615538, 1, 0, 1, 0.636010690700881, 1, 0, 1, 0.842723988615537), .Dim = c(3L, 3L)), FALSE); .Internal(La_rs(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinLa_testLa6_02451222db08157c94b3c22f03639c30() {
+ assertEval("argv <- list('S', structure(c(FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(5L, 5L)), c(3.37916576339493, 1.53572230863579, 1.41421356237309, 0.472012430194285, 3.04287016253022e-18), structure(c(-0.38209344041777, -0.441911867608196, -0.441911867608196, -0.563415484445979, -0.38209344041777, -0.594200765232569, 0.307687929858406, 0.307687929858405, 0.32327569786942, -0.594200765232566, 0.499999999999999, -0.5, 0.500000000000001, 7.42461647718073e-16, -0.500000000000001, 0.0304967766615352, 0.45830343560406, 0.458303435604061, -0.760299819185526, 0.0304967766615352, -0.5, -0.5, 0.5, -1.11022302462516e-16, 0.5), .Dim = c(5L, 5L)), structure(c(-0.41058086214689, 0.0239384830763564, -0.707106781186547, -0.575195883735897, 0, -0.428282990831553, 0.611211774620929, 9.15933995315754e-16, 0.331150287627506, 0.577350269189626, -0.41058086214689, 0.0239384830763538, 0.707106781186548, -0.575195883735897, 5.55111512312578e-17, -0.226146609649533, -0.773838814336698, -1.55431223447522e-15, 0.129220226886747, 0.577350269189625, -0.654429600481086, -0.162627039715767, -5.27355936696949e-16, 0.460370514514253, -0.577350269189626), .Dim = c(5L, 5L))); .Internal(La_svd(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinLa_testLa7_b81d60ca77e69ea47558506a09873227() {
+ assertEval("argv <- list(structure(c(1, 1, 3, 3), .Dim = c(2L, 2L)), 'O'); .Internal(La_dgecon(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinLa_testLa8_6b7d703bb8b3674554638959f10ddc63() {
+ assertEval("argv <- list('N', structure(c(-4, 0, 0, 0, 0, 0, 0, -406.725, 41.7955066364795, 0, 0, 0, 0, 0, -1550.79375, 381.717151319926, 49.8228991342168, 0, 0, 0, 0, -1277.325, 224.617432123818, -31.1858918860748, -282.060212912726, 0, 0, 0, -1042.675, 125.261805546114, -29.9849484767744, 164.425554254677, -170.353263600129, 0, 0, -469.696, 26.3795103523805, 4.19691803785862, -3.18974110831568, 0.0462484557378925, 1.46320172717486, 0, -7818, 18.2758880432689, 1.77525956575195, -1.45298766739792, -0.449176219307484, -0.281900648530911, -0.669305080560524), .Dim = c(7L, 7L), .Dimnames = list(c('1947', '1948', '1949', '1950', '1951', '1952', '1953'), c('(Intercept)', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'))), c(8164.12940108939, 457.24498274114, 324.584423503013, 134.312174464868, 4.95553195929945, 1.41954832076337, 0.000342370904183799), structure(0, .Dim = c(1L, 1L)), structure(0, .Dim = c(1L, 1L))); .Internal(La_svd(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinLa_testLa9_c611268ab5b6a208a3f74df32460fb07() {
+ assertEval("argv <- list(structure(c(-9.64365076099295, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, -29634.0055320061, -5658.08855789941, 0.0595010632288954, 0.0648032071760975, 0.106336668095848, -0.0279843118999398, 0.0762911857283688, 0.188519899277481, 0.0807096390177039, 0.102801905464379, 0.158474416910002, -0.0969121832135675, -0.0447744343994132, 0.0356414154664858, 0.0276881995456826, -5.08106330417909, 3.14280306547868, 3.64768208463163, 0.0962151262827947, -0.216651778533863, -0.0914289830351174, 0.0855052819309283, -0.0191216590449975, 0.0813861110263642, 0.0607902565035442, 0.00888870310603775, -0.027169916923919, -0.0757761335977742, 0.123401654252917, -0.143330536432624, -0.207390338946085, -0.18719988871654, -0.127596387499216, 1.38045811630541, 0.0118370110620473, 0.00504893180870276, 0.0281684584122627, 0.0338400772620966, 0.0283917504929648, 0.0295082108964754, 0.0323216911133222, 0.00156557534974961, 0.00420042190203468, 0.0261141712698031, 0.00786241202554953, -3.21455025366432, -2.66432733346907, -2.18217405946767, -1.0459324747522, 2.77707906967759, -0.000588115022584812, -0.0784367740030637, -0.0437014732535189, -0.0770692424774911, 0.28985899050302, 0.307089887725235, -0.0219216068215179, -0.00578473481976082, -0.0910180640383319, 0.0166427821996303, -0.725866186311298, -0.943724610301472, -0.197997366006898, -0.255325765345392, -1.99736582726463, 1.22009740929232, -0.000660179745382102, 0.118090770461339, 0.00401505451472504, -0.265276591063721, -0.206368639386371, -0.0413572976755921, 0.0138104665936721, -0.0436723349383677, 0.0904843084594291, -0.103695169473043, 0.0314422837299137, -0.171533212490836, -0.0271695331685966, -0.234884785308008, -0.455412006973628, -0.833981960018826, -0.0497205266764892, -0.00169048456815939, 0.0359873442560765, 0.0111849454624309, 0.0174129325629219, -0.00581471075176227, 0.0183876477886015, -0.0380971980704758, -1.14064686420347, -1.21031412747477, -0.546078284372325, -0.385964209884133, -0.535335872363138, 0.617909299639904, 0.034437791264286, -2.66782912116871, -0.0707120154460491, 0.170259689757997, -0.200116024334743, -0.0120487035676503, -0.00787104751465206, -0.0743232096613527, -0.00206481367828156, -2.28129372840694, -1.27183039972242, -0.162921372163874, 0.194143545128708, 0.405329624202872, -0.0239884453210967, 0.161826508366356, 1.47283157923894, -3.57122150532158, 0.0184573285734211, 0.0768346205272587, -0.00300367200170235, -0.047539037475449, -0.0955077077363865, 0.170580587807138, -2.17759855893389, 2.82091161681306, -0.529126651121425, 0.00648102843720064, -0.227590137804697, 0.429332016819553, 0.315382802791974, -0.0921680424483324, 0.358484158960907, 2.74734594573339, -0.00180797874108619, 0.211048746835586, 0.146553774483952, 0.0892496085418831, 0.02104367339158, -1.4517323726226, 0.428703993666521, -0.198393471445493, -0.178300389025286, -0.0518091667043893, 0.133208332446864, -1.01393441911662, 0.520772381447608, 0.936102434059857, -1.6420319436063, 2.59716822825227, 0.194828402482676, 0.15057424104202, -0.232155536267878, -0.0298159890277092, -0.933256525257383, -1.20515451427884, 0.0125087156504907, 0.421920000319943, 0.452875082015975, -0.655679104390575, 0.284781968418535, 0.643096539054797, 1.38165893036928, 0.447700892848835, -0.482856979100538, 1.73960015308741, 0.115853953901054, 0.107343556163412, -0.0385322695831968, -25.7267715462619, -8.40853040573162, -1.45105839286435, -1.58984152452525, -1.59606771970776, 2.79428919380473, 0.596892611732863, -1.03839368638655, -0.0376487500979583, -0.507302835476536, 0.184174590388395, -0.70905481454677, -3.32884312972433, 0.134236291836065, -0.0993249017707237, -6.94757635469386, 1.58613921242054, 0.195741168102286, 0.638223445194413, 1.07571321411184, 0.659104584950073, 0.199707908602043, -0.565980943574209, -0.967985377031296, -0.112927393875596, -0.934672543429794, 0.198159847509218, 0.275086401661377, 3.44668029704689, -0.05066048099299, -1.65912271156868, -1.17593571026872, -0.20132598039105, -0.42732880950559, -1.20727437557593, 0.102943259109259, -0.697974199306205, 0.103630431164098, -0.0620963660266192, -0.16978912837867, 0.739571733406047, -0.872308493604205, -0.757980967070979, -2.00985526447536, -1.92891236077264), .Dim = c(15L, 15L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15'), c('(Intercept)', 'Weight', 'Cylinders4', 'Cylinders5', 'Cylinders6', 'Cylinders8', 'Cylindersrotary', 'TypeLarge', 'TypeMidsize', 'TypeSmall', 'TypeSporty', 'TypeVan', 'EngineSize', 'DriveTrainFront', 'DriveTrainRear'))), 15L); .Internal(La_chol2inv(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinMod_testMod1_fb3b185716d13b0bfe23a137e50488a1() {
+ assertEval("argv <- list(c(0+0i, 0-1.70620776722167e-16i, 0+3.59617031290993e-17i, 3.33066907387547e-16-8.7147236198461e-17i, 3.33066907387547e-16-4.4517026198843e-17i, 5.55111512312578e-16-1.81766397811914e-16i, -2.22044604925031e-16+3.76574595498641e-16i, 3.33066907387547e-16+2.8373545612348e-17i, -6.66133814775094e-16-1.98666621484541e-16i, 1.11022302462516e-15+1.3900988495185e-16i, 0+0i, 1.11022302462516e-16+0i, 0-4.88556439671224e-17i, 1.4432899320127e-15+5.4401706444201e-16i, -6.66133814775094e-16+4.18075097302204e-16i, -1.11022302462516e-15-3.7758383211069e-16i, 1.11022302462516e-16+1.21021749072872e-16i, 5.55111512312578e-16-9.7601012134884e-17i, 0+3.64949907708171e-17i, 2.99760216648792e-15-3.2254749723992e-16i));Mod(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinMod_testMod2_dc96f0723575f35d2789efa269c5f470() {
+ assertEval("argv <- list(c(1, 1, 2, 6, 24, 120, 720, 5040, 40320, 362880, 3628800, 39916800, 479001600, 6227020800, 87178291200, 1307674368000, 20922789888000, 355687428096000, 6402373705728000, 121645100408832000));Mod(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinMod_testMod3_489e9c3eb0124d4f71c85c0c2a88d0c2() {
+ assertEval("argv <- list(structure(c(-0.00275201701154004+0i, 0.73267342182576+1.53432836384434i, 1.19603180664097+2.58954103250214i, -1.78551995785074+3.6927974843213i, -0.21286727655171-2.24663622584203i, 1.71166744547715-2.14519629896288i, -1.56293209739181+1.57166915011841i, -1.58375104473686+3.6829699402818i, -2.00504145581753-1.3546174582843i, 0.683574008984187+0.815530349018154i, -1.53010401343571-2.36562392372444i, 0.99061039704013+3.53936165201907i, 1.67472443120722-1.95559489480179i, -0.68341618370449-2.47704044044817i, 1.48062655483323-1.57686725056915i, 2.87299425968444+2.35949377337065i, 1.8028932379829+0.54336001329155i, 0.8410445275115-2.79377726088858i, -0.85630340738898+1.95000905938152i, -0.070268282309003-0.407774647142381i, 0.87904100084727+1.42913449570069i, -0.5398835286832-1.49689799587001i, -4.20150499254585-1.17770608296304i, -4.20150499254585+1.17770608296304i, -0.5398835286832+1.49689799587001i, 0.87904100084727-1.42913449570068i, -0.070268282309002+0.407774647142381i, -0.85630340738898-1.95000905938152i, 0.8410445275115+2.79377726088858i, 1.8028932379829-0.54336001329155i, 2.87299425968444-2.35949377337065i, 1.48062655483323+1.57686725056915i, -0.68341618370449+2.47704044044817i, 1.67472443120722+1.95559489480179i, 0.99061039704013-3.53936165201907i, -1.53010401343571+2.36562392372443i, 0.683574008984187-0.815530349018153i, -2.00504145581753+1.3546174582843i, -1.58375104473686-3.6829699402818i, -1.56293209739181-1.57166915011841i, 1.71166744547714+2.14519629896288i, -0.21286727655171+2.24663622584203i, -1.78551995785073-3.6927974843213i, 1.19603180664097-2.58954103250214i, 0.73267342182576-1.53432836384434i), .Dim = c(45L, 1L), '`scaled:center`' = -0.00488570008479763));Mod(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinMod_testMod4_011e96e22fc7f31b107ddaf032dd099c() {
+ assertEval("argv <- list(logical(0));Mod(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinMod_testMod5_2b50c65c21649a39ef945c735a7f9b8c() {
+ assertEval("argv <- list(c(1, 1, 2, 6, 24, 120, 720, 5040, 40320, 362880, 3628800, 39916800, 479001600, 6227020800, 87178291200, 1307674368000, 20922789888000, 355687428096000, 6402373705728000, 121645100408832000, 2432902008176640000, 51090942171709440000, 1.12400072777761e+21, 2.5852016738885e+22, 6.20448401733239e+23, 1.5511210043331e+25, 4.03291461126606e+26, 1.08888694504184e+28, 3.04888344611714e+29, 8.8417619937397e+30, 2.65252859812191e+32, 8.22283865417792e+33, 2.63130836933694e+35, 8.68331761881189e+36, 2.95232799039604e+38, 1.03331479663861e+40, 3.71993326789901e+41, 1.37637530912263e+43, 5.23022617466601e+44, 2.03978820811974e+46, 8.15915283247898e+47, 3.34525266131638e+49, 1.40500611775288e+51, 6.04152630633738e+52, 2.65827157478845e+54, 1.1962222086548e+56, 5.50262215981209e+57, 2.58623241511168e+59, 1.24139155925361e+61, 6.08281864034268e+62, 3.04140932017134e+64, 1.55111875328738e+66, 8.06581751709439e+67, 4.27488328406003e+69, 2.30843697339241e+71, 1.26964033536583e+73, 7.10998587804863e+74, 4.05269195048772e+76, 2.35056133128288e+78, 1.3868311854569e+80, 8.32098711274139e+81, 5.07580213877225e+83, 3.14699732603879e+85, 1.98260831540444e+87, 1.26886932185884e+89, 8.24765059208247e+90, 5.44344939077443e+92, 3.64711109181887e+94, 2.48003554243683e+96, 1.71122452428141e+98, 1.19785716699699e+100, 8.50478588567862e+101, 6.12344583768861e+103, 4.47011546151268e+105, 3.30788544151939e+107, 2.48091408113954e+109, 1.88549470166605e+111, 1.45183092028286e+113, 1.13242811782063e+115, 8.94618213078298e+116, 7.15694570462638e+118, 5.79712602074737e+120, 4.75364333701284e+122, 3.94552396972066e+124, 3.31424013456535e+126, 2.81710411438055e+128, 2.42270953836727e+130, 2.10775729837953e+132, 1.85482642257398e+134, 1.65079551609085e+136, 1.48571596448176e+138, 1.3520015276784e+140, 1.24384140546413e+142, 1.15677250708164e+144, 1.08736615665674e+146, 1.03299784882391e+148, 9.9167793487095e+149, 9.61927596824821e+151, 9.42689044888325e+153, 9.33262154439442e+155, 9.33262154439442e+157, 9.42594775983836e+159, 9.61446671503513e+161, 9.90290071648618e+163, 1.02990167451456e+166, 1.08139675824029e+168, 1.14628056373471e+170, 1.22652020319614e+172, 1.32464181945183e+174, 1.44385958320249e+176, 1.58824554152274e+178, 1.76295255109024e+180, 1.97450685722107e+182, 2.23119274865981e+184, 2.54355973347219e+186, 2.92509369349302e+188, 3.3931086844519e+190, 3.96993716080872e+192, 4.68452584975429e+194, 5.57458576120761e+196));Mod(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date1_c82ebe1758603c6cfc0331e7dfb6b681() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), mday = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), mon = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), year = c(37L, 16L, 13L, 27L, 47L, 13L, 17L, 23L, 21L, 26L, 20L, 15L, 14L, 14L, 14L, 19L, 48L, 11L, 9L, 13L, 25L, 26L, 10L, 17L, 36L, 38L, 60L, 15L, 19L, 24L, 14L, 5L, 21L, 29L, 26L, 21L, 8L, 28L, 19L, 21L, 25L, 34L, 27L, 28L, 34L, 22L, 23L, 15L, 34L, 25L, 22L, 30L, 24L, 23L, 19L, 32L, 30L, 23L, 30L, 22L, 19L, 32L, 39L, 23L, 20L, 19L, 52L, 27L, 24L, 19L, 25L, 45L, 16L, 43L, 20L, 20L, 31L, 24L, 19L, 26L, 20L, 42L, 19L, 30L, 25L, 24L, 26L, 18L, 22L, 21L, 25L, 28L, 25L, 29L, 33L, 47L, 50L, 45L, 24L, 39L, 24L, 33L, 28L), wday = c(5L, 6L, 3L, 6L, 3L, 3L, 1L, 1L, 6L, 5L, 4L, 5L, 4L, 4L, 4L, 3L, 4L, 0L, 5L, 3L, 4L, 5L, 6L, 1L, 3L, 6L, 5L, 5L, 3L, 2L, 4L, 0L, 6L, 2L, 5L, 6L, 3L, 0L, 3L, 6L, 4L, 1L, 6L, 0L, 1L, 0L, 1L, 5L, 1L, 4L, 0L, 3L, 2L, 1L, 3L, 5L, 3L, 1L, 3L, 0L, 3L, 5L, 0L, 1L, 4L, 3L, 2L, 6L, 2L, 3L, 4L, 1L, 6L, 5L, 4L, 4L, 4L, 2L, 3L, 5L, 4L, 4L, 3L, 3L, 4L, 2L, 5L, 2L, 0L, 6L, 4L, 0L, 4L, 2L, 0L, 3L, 0L, 1L, 2L, 0L, 2L, 0L, 0L), yday = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), isdst = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date10_e6077f7ea345f94f07782d6b962053d5() {
+ assertEval("argv <- list(structure(list(sec = 33.1798663139343, min = 47L, hour = 14L, mday = 17L, mon = 2L, year = 114L, wday = 1L, yday = 75L, isdst = 1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date2_9b70b097891341078c7ac3dab244742d() {
+ assertEval("argv <- list(structure(list(sec = c(0, NA), min = c(0L, NA), hour = c(0L, NA), mday = c(6L, NA), mon = c(10L, NA), year = c(107L, NA), wday = c(2L, NA), yday = c(309L, NA), isdst = c(0L, -1L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date3_740afb98118f8d74dd5e20cb76d838f2() {
+ assertEval("argv <- list(structure(list(sec = numeric(0), min = integer(0), hour = integer(0), mday = integer(0), mon = integer(0), year = integer(0), wday = integer(0), yday = integer(0), isdst = integer(0)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date4_9e105e2633d2cea3f6fa583eed648af4() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 79L, wday = 1L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date5_cf0f678e09dfe011d52de2e8ed0d8a51() {
+ assertEval("argv <- list(structure(list(sec = c(0, NA, NA, 0), min = c(0L, NA, NA, 0L), hour = c(0L, NA, NA, 0L), mday = c(1L, NA, NA, 26L), mon = c(0L, NA, NA, 9L), year = c(101L, NA, NA, 104L), wday = c(1L, NA, NA, 2L), yday = c(0L, NA, NA, 299L), isdst = c(0L, -1L, -1L, 0L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT')); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date6_b7ab6b6f393888cd0b7c5ce50c88e360() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = c(0, 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36), year = 100L, wday = 6L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC')); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date7_f57cfa661d06a99778abe1215030336d() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), mday = 1, mon = c(0, 0.5, 1, 1.5, 2, 2.5, 3), year = c(101, 101, 101, 101, 101, 101, 101, 102, 102, 102, 102, 102, 102, 102), wday = c(3L, 0L, 6L, 4L, 2L, 0L, 5L, 3L, 1L, 6L, 4L), yday = c(9L, 111L, 12L, 24L, 36L, 48L, 60L, 72L, 84L, 96L, 108L), isdst = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC')); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date8_9ce4b6ff85a11e255209b4e564736888() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 109L, wday = 4L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinPOSIXlt2Date_testPOSIXlt2Date9_8f6981305a5c0c94ba02cd526c71a6db() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L), hour = c(0L, 0L, 0L, 0L, 0L), mday = 22:26, mon = c(3L, 3L, 3L, 3L, 3L), year = c(108L, 108L, 108L, 108L, 108L), wday = 2:6, yday = 112:116, isdst = c(-1L, -1L, -1L, -1L, -1L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT')); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinPrimitive_testPrimitive1_5059794090fe569a9f6b92a2a4a81997() {
+ assertEval("argv <- list('c');.Primitive(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinRe_testRe2_9a7ed4d21d9aba632838b9e48f6bb172() {
+ assertEval("argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))));Re(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinRe_testRe4_b28c6570823c222bbecec308cf7070cc() {
+ assertEval("argv <- list(c(0.923879532511287+0.38268343236509i, 0.707106781186548+0.707106781186547i, 0.38268343236509+0.923879532511287i, 0+1i, -0.38268343236509+0.923879532511287i, -0.707106781186547+0.707106781186548i, -0.923879532511287+0.38268343236509i, -1+0i, -0.923879532511287-0.38268343236509i, -0.707106781186548-0.707106781186547i, -0.38268343236509-0.923879532511287i, 0-1i, 0.38268343236509-0.923879532511287i, 0.707106781186547-0.707106781186548i, 0.923879532511287-0.38268343236509i, 1-0i));Re(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinRe_testRe5_d4d00a88b6ce482ef8691821fa66e1bd() {
+ assertEval("argv <- list(logical(0));Re(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinRe_testRe6_cf742d40ae39c895c4709acd08d93023() {
+ assertEval("argv <- list(FALSE);Re(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinSyschmod_testSyschmod1_40f07fd2d60a448a3cc4d6f3f7b28367() {
+ assertEval("argv <- list(character(0), structure(integer(0), class = 'octmode'), TRUE); .Internal(Sys.chmod(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinSysgetenv_testSysgetenv1_3d26373139ce17678ed43e72c0d74835() {
+ assertEval("argv <- list('EDITOR', ''); .Internal(Sys.getenv(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinSysglob_testSysglob1_fc87be3ca00889f3e32af348c28c2351() {
+ assertEval("argv <- list('/home/lzhao/hg/r-instrumented/src/library/utils/man/unix/*.rd', FALSE); .Internal(Sys.glob(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinSyssetenv_testSyssetenv1_d65915a4f194756781adf4ae91003f30() {
+ assertEval("argv <- list('_R_NS_LOAD_', 'Matrix'); .Internal(Sys.setenv(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinSyssetenv_testSyssetenv2_ae39e9c51d2b3ad4538841bf2aa0dac9() {
+ assertEval("argv <- list('_R_NS_LOAD_', 'methods'); .Internal(Sys.setenv(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinSyssetenv_testSyssetenv3_c83106efda39d2bc13cd2e78ce92bd9d() {
+ assertEval("argv <- list(c('BIBINPUTS', 'add'), c('.:.:/home/lzhao/hg/r-instrumented/share/texmf/bibtex/bib::/home/lzhao/hg/r-instrumented/share/texmf/bibtex/bib:', 'TRUE')); .Internal(Sys.setenv(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinSyssetlocale_testSyssetlocale1_ace760dcc6919d504aaeee687218bd42() {
+ assertEval("argv <- list(3L, 'C'); .Internal(Sys.setlocale(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinSyssleep_testSyssleep2_095aa5ae488fb09a47367d68bd6461ac() {
+ assertEval("argv <- list(FALSE); .Internal(Sys.sleep(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinSysunsetenv_testSysunsetenv1_ce54c1613ddcccac859ad16f260d079a() {
+ assertEval("argv <- list('_R_NS_LOAD_'); .Internal(Sys.unsetenv(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinSysunsetenv_testSysunsetenv3_aa503b4de73e8d108e2f067e5b8e7b6c() {
+ assertEval("argv <- list(character(0)); .Internal(Sys.unsetenv(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabbreviate_testabbreviate1_3f8f60358d2852dd79ac261204d4a455() {
+ assertEval("argv <- list('text', 6, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabbreviate_testabbreviate10_a13dd2733dd648acb226104e63710036() {
+ assertEval("argv <- list('filled.contour', 6, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabbreviate_testabbreviate11_b298483fb0dea97de75b038946c13bfe() {
+ assertEval("argv <- list(c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), 5, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabbreviate_testabbreviate12_0cedf2b34efe78f02041ea02771fef5f() {
+ assertEval("argv <- list('dtrMatrix-class', 6, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabbreviate_testabbreviate2_8ef2508350d61e869159fb1bced52268() {
+ assertEval("argv <- list(c('Alabama', 'Alaska', 'Arizona', 'Arkansas', 'California', 'Colorado', 'Connecticut', 'Delaware', 'Florida', 'Georgia', 'Hawaii', 'Idaho', 'Illinois', 'Indiana', 'Iowa', 'Kansas', 'Kentucky', 'Louisiana', 'Maine', 'Maryland', 'Massachusetts', 'Michigan', 'Minnesota', 'Mississippi', 'Missouri', 'Montana', 'Nebraska', 'Nevada', 'New Hampshire', 'New Jersey', 'New Mexico', 'New York', 'North Carolina', 'North Dakota', 'Ohio', 'Oklahoma', 'Oregon', 'Pennsylvania', 'Rhode Island', 'South Carolina', 'South Dakota', 'Tennessee', 'Texas', 'Utah', 'Vermont', 'Virginia', 'Washington', 'West Virginia', 'Wisconsin', 'Wyoming'), 3, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabbreviate_testabbreviate3_580ddff10a0a301ebe71f2a52baf10b6() {
+ assertEval("argv <- list('glm', 6, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabbreviate_testabbreviate4_a56b774e334eb18474503a585fce66c3() {
+ assertEval("argv <- list(c('(Intercept)', 'sin(2 * pi * Time)', 'cos(2 * pi * Time)'), 6, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabbreviate_testabbreviate5_0af714c5ca5e93f532f86ce88af44784() {
+ assertEval("argv <- list(c('Alabama', 'Alaska', 'Arizona', 'Arkansas', 'California', 'Colorado', 'Connecticut', 'Delaware', 'Florida', 'Georgia', 'Hawaii', 'Idaho', 'Illinois', 'Indiana', 'Iowa', 'Kansas', 'Kentucky', 'Louisiana', 'Maine', 'Maryland', 'Massachusetts', 'Michigan', 'Minnesota', 'Mississippi', 'Missouri', 'Montana', 'Nebraska', 'Nevada', 'New Hampshire', 'New Jersey', 'New Mexico', 'New York', 'North Carolina', 'North Dakota', 'Ohio', 'Oklahoma', 'Oregon', 'Pennsylvania', 'Rhode Island', 'South Carolina', 'South Dakota', 'Tennessee', 'Texas', 'Utah', 'Vermont', 'Virginia', 'Washington', 'West Virginia', 'Wisconsin', 'Wyoming'), 4L, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabbreviate_testabbreviate6_6a1b4d9720b96acb1c54dbca06ea0759() {
+ assertEval("argv <- list(c('Alabama', 'Alaska', 'Arizona', 'Arkansas', 'California', 'Colorado', 'Connecticut', 'Delaware', 'Florida', 'Georgia', 'Hawaii', 'Idaho', 'Illinois', 'Indiana', 'Iowa', 'Kansas', 'Kentucky', 'Louisiana', 'Maine', 'Maryland', 'Massachusetts', 'Michigan', 'Minnesota', 'Mississippi', 'Missouri', 'Montana', 'Nebraska', 'Nevada', 'New Hampshire', 'New Jersey', 'New Mexico', 'New York', 'North Carolina', 'North Dakota', 'Ohio', 'Oklahoma', 'Oregon', 'Pennsylvania', 'Rhode Island', 'South Carolina', 'South Dakota', 'Tennessee', 'Texas', 'Utah', 'Vermont', 'Virginia', 'Washington', 'West Virginia', 'Wisconsin', 'Wyoming'), 3L, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabbreviate_testabbreviate7_fd5f0f39da664491433b226014651c8f() {
+ assertEval("argv <- list(c('1_', 'Weight', 'Cylinders4', 'Cylinders5', 'Cylinders6', 'Cylinders8', 'Cylindersrotary', 'TypeLarge', 'TypeMidsize', 'TypeSmall', 'TypeSporty', 'TypeVan', 'EngineSize', 'DriveTrainFront', 'DriveTrainRear'), 4L, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabbreviate_testabbreviate8_74442740ebecb8edfdbcd6b7b8b9c6e8() {
+ assertEval("argv <- list(c('Alabama', 'Alaska', 'Arizona', 'Arkansas', 'California', 'Colorado', 'Connecticut', 'Delaware', 'Florida', 'Georgia', 'Hawaii', 'Idaho', 'Illinois', 'Indiana', 'Iowa', 'Kansas', 'Kentucky', 'Louisiana', 'Maine', 'Maryland', 'Massachusetts', 'Michigan', 'Minnesota', 'Mississippi', 'Missouri', 'Montana', 'Nebraska', 'Nevada', 'New Hampshire', 'New Jersey', 'New Mexico', 'New York', 'North Carolina', 'North Dakota', 'Ohio', 'Oklahoma', 'Oregon', 'Pennsylvania', 'Rhode Island', 'South Carolina', 'South Dakota', 'Tennessee', 'Texas', 'Utah', 'Vermont', 'Virginia', 'Washington', 'West Virginia', 'Wisconsin', 'Wyoming'), 1L, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabbreviate_testabbreviate9_dd51a4be360dd74734620aa055df07b4() {
+ assertEval("argv <- list(character(0), 4L, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabs_testabs10_08b98ef9f06bcf064f86f944e67fee55() {
+ assertEval("argv <- list(structure(c(-7.38958333333333, NA, 1.69041666666667, -16.5495833333333, 8.82041666666667, 8.84041666666667, -2.24958333333333, 9.15041666666667, 0.950416666666669, -12.5095833333333, NA, 8.86041666666667, 1.05041666666667, 3.80041666666667, 5.92041666666667, 16.1404166666667, 3.45041666666667, -32.1695833333333, 12.7504166666667, 1.18041666666667, -6.72958333333333, 14.4804166666667, 1.89041666666667, -37.9795833333333, -0.299583333333331, 2.49041666666667, 7.31041666666667, 0.66041666666667, 2.78041666666667, 3.89041666666667, 3.13041666666667, -6.08958333333333, -1.00958333333333, -1.07958333333333, 9.01041666666667, 7.84041666666667, 8.30041666666668, 9.36041666666667, -6.32958333333333, -47.3395833333333, 4.30041666666667, -2.11958333333333, -4.10958333333333, -2.29958333333333, 11.0004166666667, -1.96958333333333, 11.1804166666667, 2.55041666666667, -2.35958333333333, 7.80041666666667), .Names = c('Alabama', 'Alaska', 'Arizona', 'Arkansas', 'California', 'Colorado', 'Connecticut', 'Delaware', 'Florida', 'Georgia', 'Hawaii', 'Idaho', 'Illinois', 'Indiana', 'Iowa', 'Kansas', 'Kentucky', 'Louisiana', 'Maine', 'Maryland', 'Massachusetts', 'Michigan', 'Minnesota', 'Mississippi', 'Missouri', 'Montana', 'Nebraska', 'Nevada', 'New Hampshire', 'New Jersey', 'New Mexico', 'New York', 'North Carolina', 'North Dakota', 'Ohio', 'Oklahoma', 'Oregon', 'Pennsylvania', 'Rhode Island', 'South Carolina', 'South Dakota', 'Tennessee', 'Texas', 'Utah', 'Vermont', 'Virginia', 'Washington', 'West Virginia', 'Wisconsin', 'Wyoming')));abs(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabs_testabs12_89bc29cab4456ce9ffd4baf8e12b985a() {
+ assertEval("argv <- list(structure(c(1.47191076131574, 0.586694550701453, NA, 0.258706725324317, 0.948371836939988, 0.396080061109718, NA, 0.350912037541581), .Dim = c(4L, 2L), .Dimnames = list(c('(Intercept)', 'x1', 'x2', 'x3'), c('Estimate', 'Std. Error'))));abs(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabs_testabs13_db24a189fbd39592132561de9fb97d4a() {
+ assertEval("argv <- list(structure(c(0.839669286317987, -1.37400428670216, 0.22900071445036, 0.305334285933814, 0.34350107167554, -0.0763335714834533, -0.877836072059713, 0.610668571867626, 0.763335714834533, -0.763335714834533, -0.763335714834533, 0.763335714834533, -0.45800142890072, 0.80150250057626, -0.22900071445036, -0.11450035722518, -0.34350107167554, 1.03050321502662, -1.03050321502662, 0.34350107167554, 0.11450035722518, -0.152667142966907, -0.0381667857417267, 0.0763335714834533, 0.496168214642447, -0.725168929092807, -0.0381667857417268, 0.267167500192087, 0.954169643543167, -1.52667142966907, 0.190833928708633, 0.381667857417267, 0.610668571867627, -2.78617535914605, 3.74034500268921, -1.56483821541079, 0.190833928708633, -0.572501786125899, 0.5725017861259, -0.190833928708634, 0.267167500192087, -0.229000714450361, -0.34350107167554, 0.305334285933814, 0.190833928708632, 0.190833928708634, -0.954169643543166, 0.572501786125899, -1.06867000076835, 1.67933857263597, -0.152667142966906, -0.45800142890072, -0.610668571867627, 0.877836072059714, 0.0763335714834535, -0.34350107167554, 0.381667857417267, -0.190833928708634, -0.763335714834533, 0.5725017861259, 0.496168214642447, -0.725168929092807, -0.0381667857417268, 0.267167500192087, 0.5725017861259, -0.763335714834533, -0.190833928708633, 0.381667857417267, 0.305334285933813, -0.534335000384173, 0.152667142966907, 0.076333571483453, -0.534335000384172, 0.839669286317985, -0.0763335714834534, -0.22900071445036, 0.0381667857417273, 0.0763335714834524, -0.267167500192087, 0.152667142966907, -0.22900071445036, 0.496168214642446, -0.305334285933813, 0.0381667857417267, 0, 0.190833928708633, -0.381667857417267, 0.190833928708633, 0.11450035722518, 0.0381667857417268, -0.419834643158993, 0.267167500192087, 0.11450035722518, -0.152667142966907, -0.0381667857417267, 0.0763335714834533, -0.22900071445036, 0.11450035722518, 0.45800142890072, -0.34350107167554, -0.496168214642447, 0.725168929092807, 0.0381667857417269, -0.267167500192087, 0.11450035722518, -0.534335000384173, 0.725168929092806, -0.305334285933813), .Names = c('M01', 'M01', 'M01', 'M01', 'M02', 'M02', 'M02', 'M02', 'M03', 'M03', 'M03', 'M03', 'M04', 'M04', 'M04', 'M04', 'M05', 'M05', 'M05', 'M05', 'M06', 'M06', 'M06', 'M06', 'M07', 'M07', 'M07', 'M07', 'M08', 'M08', 'M08', 'M08', 'M09', 'M09', 'M09', 'M09', 'M10', 'M10', 'M10', 'M10', 'M11', 'M11', 'M11', 'M11', 'M12', 'M12', 'M12', 'M12', 'M13', 'M13', 'M13', 'M13', 'M14', 'M14', 'M14', 'M14', 'M15', 'M15', 'M15', 'M15', 'M16', 'M16', 'M16', 'M16', 'F01', 'F01', 'F01', 'F01', 'F02', 'F02', 'F02', 'F02', 'F03', 'F03', 'F03', 'F03', 'F04', 'F04', 'F04', 'F04', 'F05', 'F05', 'F05', 'F05', 'F06', 'F06', 'F06', 'F06', 'F07', 'F07', 'F07', 'F07', 'F08', 'F08', 'F08', 'F08', 'F09', 'F09', 'F09', 'F09', 'F10', 'F10', 'F10', 'F10', 'F11', 'F11', 'F11', 'F11'), label = 'Standardized residuals'));abs(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabs_testabs15_42e368ad587471ee7343923834e662fd() {
+ assertEval("argv <- list(structure(c(NA, NA), .Dim = 1:2, .Dimnames = list('x', c('Estimate', 'Std. Error'))));abs(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabs_testabs16_24080b327fd1cbc078975d14c69b4b04() {
+ assertEval("argv <- list(-3.31827701955945e-05);abs(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabs_testabs17_bdcf9ff077797a5d82eb52c705fcc9e7() {
+ assertEval("argv <- list(structure(c(-1.36919169254062, -0.210726311672344, 0.00840470379579385, 0.0843659249699204, 0.552921941721332), .Names = c('0%', '25%', '50%', '75%', '100%')));abs(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabs_testabs18_89a19797216cf436f5dc8cd2d8c25ef9() {
+ assertEval("argv <- list(structure(c(8, 7, 6, 5, 4, 3, 2, 1, 0, -1), .Tsp = c(2, 11, 1), class = 'ts'));abs(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabs_testabs20_6da8d62d68c62f9a305a71448507fb36() {
+ assertEval("argv <- list(structure(c(-0.233156370250776, -0.239412071306507, -0.467754722340573, -0.313136244157115, 0.165043251865522, -0.32096970624939, -0.383377620527381, -0.709110442848008, -0.235393959061767, 0.141653176746209, -0.522836600482894, -0.313130619764979, -0.127866584288678, -0.443661331439424, -0.272181655694344, -0.267312459146771, -0.421687966603442, -0.489456667260012, -1.09136324227316, -0.365563936224476, -0.19497185571599, -0.355887223690607, -0.284861760091765, 0.10349461735987, -0.29203835454261, -0.437137381511441, -0.283258760238879, -0.864706923796918, -0.28069027865338, -0.328236303967812, -0.413280526174513, 0.353631921283964, -0.170574581087077, -0.350164611041975, -0.35509309393052, 0.371846787851152, 0.0662214922636754, -0.38267166577059, -0.76433272993872, 0.337925286731474, -0.316383144846009, 0.872120012008955, -0.1910867580222, -0.27268759462975, 0.561668608501795, -0.414426404256215, 0.306241460697781, -0.475011430441313, -0.18104902231566, -0.313137168940244, -0.162511371099967, -0.332715804582844, -0.264583655672922, -0.27403739912759, 0.292926038918646, -0.0266469304789678, NaN, 0.246014195648949, -0.384306495215891, -0.0754669363487819, -0.19187230661589, -0.28069027865338, -0.310267174936681, -0.218229559122572, -0.132431123435626, -0.632568727580371, -0.025524040198577, -0.208280705060531, -0.339307274267833, -0.267312459146771, -0.38337762052738, -0.527937499202165, -0.0708139839175417, -0.249126729136488, -0.443661331439424, -0.282353670058315, -0.383117955201771, 0.465652476582142, -0.257667111448151, -0.923882106624253, -0.527902200672803, -0.106397317438703, -0.882784314083567, -0.171789859931029, -0.134719406450945, -0.334299917870866, -0.59592895672967, 0.0477670768238039, -1.67777307729147, 0.0145330024207598, 0.465392111094536, -0.188401359782389, -1.67777307729147), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93')));abs(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabs_testabs21_c8f67db4b1012da2b88cce063f8df68b() {
+ assertEval("argv <- list(structure(c(2671, 6.026e+77, 3.161e+152, 3.501e+299, 2.409e+227, 1.529e+302), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')));abs(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabs_testabs3_61a9e748aec4fab2ea5137b170509030() {
+ assertEval("argv <- list(c(-0.510763209393394, Inf, 1, 1, Inf, 1, 0, -1.95785440613009, -48.49854545454, -Inf, 1, 1, 0.342969776609699, 0.00707175387211123));abs(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabs_testabs4_f91888988f43bddc96c668cab13e929b() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));abs(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabs_testabs5_95c806ccdfc50e56c5599677ea5257e7() {
+ assertEval("argv <- list(structure(c(-7.0990260398094, -6.52913885777653, -3.11767063409183, -18.6913646342089), .Dim = c(4L, 1L)));abs(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabs_testabs6_3bc89c2550f27d0855af5dc0db5feb91() {
+ assertEval("argv <- list(structure(c(0, -1, -2, -3, -4, -5, -6, -7, -8, -9, -10, -11, -12, -13, -14, -15, -16, -17, -18, -19, -20, -21, -22, -23, -24, -25, -26, -27, -28, -29, -30, -31, -32, -33, -34, -35, -36, -37, -38, -39, -40, -41, -42, -43, -44, -45, -46, -47, -48, -49, -50, -51, -52, -53, -54, -55, -56, -57, -58, -59, -60, -61, -62, -63, -64, -65, -66, -67, -68, -69, -70, -71, -72, -73, -74, -75, -76, -77, -78, -79, -80, -81, -82, -83, -84, -85, -86, -87, -88, -89, -90, -91, -92, -93, -94, -95, -96, -97, -98, -99, -100, -101, -102, -103, -104, -105, -106, -107, -108, -109, -110, -111, -112, -113, -114, -115, -116, -117, -118, -119, -120, -121, -122, -123, -124, -125, -126, -127, -128, -129, -130, -131, -132, -133, -134, -135, -136, -137, -138, -139, -140, -141, -142, -143, -144, -145, -146, -147, -148, -149), .Tsp = c(4, 153, 1), class = 'ts'));abs(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabs_testabs7_25211be9b225f212b2c567aa23f96ae0() {
+ assertEval("argv <- list(structure(c(3.5527136788005e-15+2.4168586625265e-16i, 2.4980018054066e-16-2.28189378671807e-16i, 0-6.89814774385614e-17i, 0-1.77454768520688e-17i), .Dim = c(2L, 2L)));abs(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabs_testabs8_9a62d3bd8e4044a39df40e320957aacb() {
+ assertEval("argv <- list(1e+07);abs(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinabs_testabs9_c51f8b5e2b9ab2909e26c0abdecd1518() {
+ assertEval("argv <- list(structure(c(56.8666666666667, 52.8833333333333), .Dim = 2L, .Dimnames = structure(list(K = c('0', '1')), .Names = 'K')));abs(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinacos_testacos2_c1f5aef3c39bb3074ce27fda997574df() {
+ assertEval("argv <- list(1.54308063481524+0i);acos(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinacos_testacos3_8836442fa650e9d601a948339bcfce62() {
+ assertEval("argv <- list(c(-0.7104065636993+1i, 0.25688370915653+1i, -0.24669187846237+1i, -0.34754259939773+1i, -0.95161856726502+1i, -0.04502772480892+1i, -0.78490446945708+1i, -1.66794193658814+1i, -0.38022652028776+1i, 0.91899660906077+1i, -0.57534696260839+1i, 0.60796432222503+1i, -1.61788270828916+1i, -0.05556196552454+1i, 0.51940720394346+1i, 0.30115336216671+1i, 0.10567619414894+1i, -0.64070600830538+1i, -0.84970434603358+1i, -1.02412879060491+1i, 0.11764659710013+1i, -0.9474746141848+1i, -0.49055744370067+1i, -0.25609219219825+1i, 1.84386200523221+1i, -0.65194990169546+1i, 0.23538657228486+1i, 0.07796084956371+1i, -0.96185663413013+1i, -0.0713080861236+1i, 1.44455085842335+1i, 0.45150405307921+1i, 0.04123292199294+1i, -0.42249683233962+1i, -2.05324722154052+1i, 1.13133721341418+1i, -1.46064007092482+1i, 0.73994751087733+1i, 1.90910356921748+1i, -1.4438931609718+1i, 0.70178433537471+1i, -0.26219748940247+1i, -1.57214415914549+1i, -1.51466765378175+1i, -1.60153617357459+1i, -0.5309065221703+1i, -1.4617555849959+1i, 0.68791677297583+1i, 2.10010894052567+1i, -1.28703047603518+1i, 0.78773884747518+1i, 0.76904224100091+1i, 0.33220257895012+1i, -1.00837660827701+1i, -0.11945260663066+1i, -0.28039533517025+1i, 0.56298953322048+1i, -0.37243875610383+1i, 0.97697338668562+1i, -0.37458085776701+1i, 1.05271146557933+1i, -1.04917700666607+1i, -1.26015524475811+1i, 3.2410399349424+1i, -0.41685758816043+1i, 0.29822759154072+1i, 0.63656967403385+1i, -0.48378062570874+1i, 0.51686204431361+1i, 0.36896452738509+1i, -0.21538050764169+1i, 0.06529303352532+1i, -0.03406725373846+1i, 2.12845189901618+1i, -0.74133609627283+1i, -1.09599626707466+1i, 0.03778839917108+1i, 0.31048074944314+1i, 0.43652347891018+1i, -0.45836533271111+1i, -1.06332613397119+1i, 1.26318517608949+1i, -0.34965038795355+1i, -0.86551286265337+1i, -0.2362795689411+1i, -0.19717589434855+1i, 1.10992028971364+1i, 0.0847372921972+1i, 0.75405378518452+1i, -0.49929201717226+1i, 0.2144453095816+1i, -0.32468591149083+1i, 0.09458352817357+1i, -0.89536335797754+1i, -1.31080153332797+1i, 1.99721338474797+1i, 0.60070882367242+1i, -1.25127136162494+1i, -0.61116591668042+1i, -1.18548008459731+1i));acos(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinacos_testacos4_1e8250c2066169e674352f3bf441b007() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));acos(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinacosh_testacosh1_6417e4c770e5dd9138567c123e915f2c() {
+ assertEval("argv <- list(FALSE);acosh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinacosh_testacosh2_34cde32b8509e28f6d93d1c99ffa1b12() {
+ assertEval("argv <- list(logical(0));acosh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinacosh_testacosh3_1812134e9fa54f36f09013a65afa2c65() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));acosh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinacosh_testacosh4_b350d6aea0039cca836edd272bf1a418() {
+ assertEval("argv <- list(c(0+2i, 0.0001+2i, 0-2i, 0-2.0001i));acosh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinacosh_testacosh5_c0722300f2990f4da52ef2da956f429b() {
+ assertEval("argv <- list(c(10.0676619957778, 9.77014619112734, 9.48151278613522, 9.20149937354487, 8.92985138285227, 8.66632184886646, 8.41067118718443, 8.16266697637608, 7.92208374668136, 7.68870277502741, 7.46231188617936, 7.242705259844, 7.02968324355098, 6.82305217114139, 6.62262418669875, 6.42821707376226, 6.23965408966708, 6.05676380486112, 5.87937994705209, 5.70734125004322, 5.54049130712027, 5.37867842885638, 5.22175550520566, 5.06957987175999, 4.92201318004762, 4.77892127175541, 4.64017405676061, 4.50564539486112, 4.3752129810968, 4.24875823455752, 4.12616619057689, 4.00732539621364, 3.89212780892567, 3.78046869834458, 3.67224655106143, 3.56736297833717, 3.46572262665382, 3.36723309102506, 3.27180483098748, 3.17935108919603, 3.0897878125497, 3.00303357577581, 2.91900950740325, 2.83763921805753, 2.75884873101238, 2.68256641493482, 2.60872291876243, 2.53725110865378, 2.46808600695458, 2.40116473312406, 2.33642644656803, 2.27381229132637, 2.21326534256499, 2.1547305548233, 2.09815471197041, 2.04348637882435, 1.99067585439045, 1.93967512667636, 1.89043782904258, 1.84291919804882, 1.7970760327579, 1.75286665546022, 1.71025087378301, 1.66918994414995, 1.62964653655797, 1.59158470063915, 1.55496983297695, 1.51976864564695, 1.48594913595357, 1.45348055733525, 1.42233339141161, 1.39247932114721, 1.36389120510748, 1.33654305278346, 1.31041000096287, 1.28546829112601, 1.26169524784609, 1.23906925817407, 1.21756975198963, 1.19717718330002, 1.17787301247016, 1.15963968936754, 1.14246063740672, 1.12632023847902, 1.11120381875343, 1.09709763533618, 1.0839888637765, 1.07186558640748, 1.06071678151125, 1.05053231329877, 1.04130292269496, 1.033020218921, 1.02567667186589, 1.01926560524059, 1.01378119050839, 1.00921844158588, 1.00557321031002, 1.00284218266684, 1.00102287577853, 1.00011363564622, 1.00011363564622, 1.00102287577853, 1.00284218266684, 1.00557321031002, 1.00921844158588, 1.01378119050839, 1.01926560524059, 1.02567667186589, 1.033020218921, 1.04130292269496, 1.05053231329877, 1.06071678151125, 1.07186558640748, 1.0839888637765, 1.09709763533618, 1.11120381875343, 1.12632023847902, 1.14246063740672, 1.15963968936754, 1.17787301247016, 1.19717718330002, 1.21756975198963, 1.23906925817407, 1.26169524784609, 1.28546829112601, 1.31041000096287, 1.33654305278346, 1.36389120510748, 1.39247932114721, 1.42233339141161, 1.45348055733525, 1.48594913595357, 1.51976864564695, 1.55496983297695, 1.59158470063915, 1.62964653655796, 1.66918994414995, 1.71025087378301, 1.75286665546022, 1.7970760327579, 1.84291919804882, 1.89043782904258, 1.93967512667636, 1.99067585439045, 2.04348637882435, 2.09815471197041, 2.1547305548233, 2.21326534256499, 2.27381229132637, 2.33642644656803, 2.40116473312406, 2.46808600695458, 2.53725110865378, 2.60872291876243, 2.68256641493482, 2.75884873101238, 2.83763921805753, 2.91900950740325, 3.00303357577581, 3.0897878125497, 3.17935108919602, 3.27180483098748, 3.36723309102506, 3.46572262665381, 3.56736297833717, 3.67224655106143, 3.78046869834458, 3.89212780892567, 4.00732539621364, 4.12616619057689, 4.24875823455752, 4.3752129810968, 4.50564539486111, 4.64017405676061, 4.77892127175541, 4.92201318004762, 5.06957987175999, 5.22175550520565, 5.37867842885638, 5.54049130712027, 5.70734125004322, 5.87937994705209, 6.05676380486112, 6.23965408966708, 6.42821707376226, 6.62262418669875, 6.82305217114139, 7.02968324355097, 7.242705259844, 7.46231188617936, 7.68870277502741, 7.92208374668136, 8.16266697637608, 8.41067118718443, 8.66632184886646, 8.92985138285226, 9.20149937354487, 9.48151278613522, 9.77014619112734, 10.0676619957778));acosh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinadist_testadist1_20f330e1a3c56749a78545125e8a8d9c() {
+ assertEval("argv <- list(list(c(107L, 105L, 116L, 116L, 101L, 110L)), list(c(115L, 105L, 116L, 116L, 105L, 110L, 103L)), structure(c(1, 1, 1), .Names = c('insertions', 'deletions', 'substitutions')), FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(adist(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinadist_testadist2_01d983ea87a1f9111ebf0d1d90692dc2() {
+ assertEval("argv <- list(list(c(107L, 105L, 116L, 116L, 101L, 110L), c(115L, 105L, 116L, 116L, 105L, 110L, 103L)), list(c(107L, 105L, 116L, 116L, 101L, 110L), c(115L, 105L, 116L, 116L, 105L, 110L, 103L)), structure(c(1, 1, 1), .Names = c('insertions', 'deletions', 'substitutions')), TRUE, TRUE, FALSE, FALSE, FALSE); .Internal(adist(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinadist_testadist3_80e43d8a43e882613fad25fd88d3d6e1() {
+ assertEval("argv <- list('lasy', '1 lazy 2', c(1L, 1L, 1L), FALSE, TRUE, TRUE, FALSE, FALSE); .Internal(adist(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinadist_testadist4_5cb4c371cce1ef3c985da481867d9904() {
+ assertEval("argv <- list(list(), list(), structure(c(1, 1, 1), .Names = c('insertions', 'deletions', 'substitutions')), FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(adist(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinagrep_testagrep3_33d528b314749f42953d0f4bac45d56b() {
+ assertEval("argv <- list('lasy', c(' 1 lazy 2', '1 lasy 2'), FALSE, FALSE, c(1L, 1L, 1L), structure(c(NA, 0.1, 0.1, 0, 0.1), .Names = c('cost', 'insertions', 'deletions', 'substitutions', 'all')), FALSE, TRUE); .Internal(agrep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinagrep_testagrep4_380a2fc13b70e43d0e289a5420f8149c() {
+ assertEval("argv <- list('laysy', c('1 lazy', '1', '1 LAZY'), FALSE, TRUE, c(1L, 1L, 1L), c(2, NA, NA, NA, NA), FALSE, TRUE); .Internal(agrep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinagrep_testagrep5_9c364500a91a276278593a8605406fea() {
+ assertEval("argv <- list('laysy', c('1 lazy', '1', '1 LAZY'), TRUE, FALSE, c(1L, 1L, 1L), c(2, NA, NA, NA, NA), FALSE, TRUE); .Internal(agrep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinall_testall3_4230759bcd3e2b5fecbe340fe103917a() {
+ assertEval("argv <- list(c(1, 1, 3, 1, 1, 3, 3, 3, 3), FALSE, NULL);all(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinall_testall4_2f46bb1732b004009986f99a5653f807() {
+ assertEval("argv <- list(structure(c(0, 0, 3, 0, 0, 0, 1, 0, 0, 2, 2, 3.2, -1, 1, 3.2, 4, 3, 0, 0, 0, 0, 3.2, 0, 0, 3.2, 0, 202, 0, 0, 0, 241, 0, 243, 0, 0), .Dim = c(5L, 7L), .Dimnames = list(c('r1', 'r2', 'r3', 'r4', 'r5'), c('c1', 'c2', 'c3', 'c4', 'c5', 'c6', 'c7'))));all(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinallnames_testallnames1_91d2bc6274a765dc9039b8316f7baaa7() {
+ assertEval("argv <- list(quote(y ~ ((g1) * exp((log(g2/g1)) * (1 - exp(-k * (x - Ta)))/(1 - exp(-k * (Tb - Ta)))))), FALSE, -1L, TRUE); .Internal(all.names(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinallnames_testallnames2_37e29563eceee41b9f93dab8ef411e65() {
+ assertEval("argv <- list(logical(0), logical(0), -1L, TRUE); .Internal(all.names(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinallnames_testallnames3_a741436ee90e9dc24d0f9b448e681420() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), TRUE, -1L, FALSE); .Internal(all.names(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinallnames_testallnames4_8502c9c9f94dcf67fc2422000a687a70() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), -1L, FALSE); .Internal(all.names(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinallnames_testallnames5_b7e1ba66ca7346427de4997ca58ae852() {
+ assertEval("argv <- list(0.1, FALSE, -1L, TRUE); .Internal(all.names(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinany_testany5_34add2b2779dda21f8751fdf1b5df823() {
+ assertEval("argv <- list(structure(c(14, 2, 0, 2, -7, 0), .Dim = c(3L, 2L)));any(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinanyDuplicated_testanyDuplicated14_9f24db37f658b1b16e06ccc66c618359() {
+ assertEval("argv <- list(character(0), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm1_8da4b8d9cb3771d63c9ea2e0aa5b4673() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(5L, 14L), .Dimnames = list(c('#ifdef', '\\Sexpr', 'build', 'install', 'render'), NULL)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm10_37e09863e2671c0d1f8ec9eff515bfb0() {
+ assertEval("argv <- list(structure(c(32, 53, 10, 3, 11, 50, 10, 30, 10, 25, 7, 5, 3, 15, 7, 8, 36, 66, 16, 4, 9, 34, 7, 64, 5, 29, 7, 5, 2, 14, 7, 8), .Dim = c(4L, 4L, 2L), .Dimnames = structure(list(Hair = c('Black', 'Brown', 'Red', 'Blond'), Eye = c('Brown', 'Blue', 'Hazel', 'Green'), Sex = c('Male', 'Female')), .Names = c('Hair', 'Eye', 'Sex')), class = 'table'), c(3L, 1L, 2L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm11_3868cd8d06b2ea879d5f457703462036() {
+ assertEval("argv <- list(structure(list(3, 3, 3, 3, 3, 'fred'), .Dim = 2:3), NULL, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm12_341884e85b3bb1579dbfe444c4f1e3c3() {
+ assertEval("argv <- list(structure(c(1, 0, -1, 0.5, -0.5, NA, NA, NA, 0), .Dim = c(3L, 3L)), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm13_140c526c0f2d66f1a82fc644df943648() {
+ assertEval("argv <- list(structure(c(' Null deviance:', 'Residual deviance:', '3.118557', '0.012672', ' on', ' on', '8', '7', ' degrees of freedom\n', ' degrees of freedom\n'), .Dim = c(2L, 5L), .Dimnames = list(c('null.deviance', 'deviance'), NULL)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm14_59178f949f0d55e4cc68c4644ac6d9ed() {
+ assertEval("argv <- list(structure(character(0), .Dim = c(3L, 0L, 2L)), 1:3, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm15_eb1bd69290feb0fdb45126450f7cd867() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(5L, 20L), .Dimnames = list(c('#ifdef', '\\Sexpr', 'build', 'install', 'render'), NULL)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm16_a579fb8cc6bd8d6e2935c7b4d1d100e4() {
+ assertEval("argv <- list(structure(c(0.537261763078809+0i, 0.305061935059249+0.040985454461732i, 0.320062315956695-0.375563080684187i, 0.339383913939873+0.23302799386284i, -0.286918674221019+0.348301421162371i, 0.333809303929022+0i, -0.026432475532662-0.117484096686937i, 0.337897321317337+0.476009430788475i, -0.104431629205049-0.683873316213355i, -0.076600108155357+0.221030150757328i, 0.0283375771475593+0i, -0.439625821284244+0.725562264268455i, -0.093252555843956-0.328135936730845i, 0.099659684890077-0.362886081139892i, -0.146024566266657+0.013219412797458i, 0.437826208287688+0i, -0.047393587739568+0.297523229473226i, 0.053640336864496+0.244704251340016i, 0.189395328272566+0.197948900656662i, 0.744900728861518-0.157648587806964i, -0.63829956885596+0i, 0.190923866036828+0.209348060979014i, 0.478761262752136+0.086103851005322i, 0.365383456834977-0.041833555661111i, 0.222902888615007+0.301211043305794i), .Dim = c(5L, 5L)), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm17_629b4828c12fca35fa61c9b12e115f3f() {
+ assertEval("argv <- list(structure(c('add1', 'anova', 'coef', 'confint', 'drop1', 'extractAIC', 'logLik', 'model.frame', 'predict', 'print', 'print', 'summary', 'vcov', 'coef', 'predict', 'print', 'print', 'summary', 'nnet', 'nnet', 'multinom', 'multinom', 'multinom', 'multinom', 'multinom', 'multinom', 'multinom', 'multinom', 'multinom', 'multinom', 'summary.multinom', 'multinom', 'multinom', 'nnet', 'nnet', 'nnet', 'summary.nnet', 'nnet', 'default', 'formula', NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = c(20L, 3L)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm18_3bf1ef1ff1b7463e6e4cd88abb5cca21() {
+ assertEval("argv <- list(structure(c(NA, NA, NA), .Dim = 3L), 1L, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm19_04dc84bdcf3d22a59a3ef718a56bbb0f() {
+ assertEval("argv <- list(structure(c(4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 4000, 8000, 12000, 16000, 20000, 24000, 28000, 32000, 36000, 40000, 44000, 48000, 8, 16, 24, 32, 40, 48, 56, 64, 72, 80, 88, 96, 8000, 16000, 24000, 32000, 40000, 48000, 56000, 64000, 72000, 80000, 88000, 96000, 12, 24, 36, 48, 60, 72, 84, 96, 108, 120, 132, 144, 12000, 24000, 36000, 48000, 60000, 72000, 84000, 96000, 108000, 120000, 132000, 144000, 16, 32, 48, 64, 80, 96, 112, 128, 144, 160, 176, 192, 16000, 32000, 48000, 64000, 80000, 96000, 112000, 128000, 144000, 160000, 176000, 192000, 20, 40, 60, 80, 100, 120, 140, 160, 180, 200, 220, 240, 20000, 40000, 60000, 80000, 1e+05, 120000, 140000, 160000, 180000, 2e+05, 220000, 240000, 24, 48, 72, 96, 120, 144, 168, 192, 216, 240, 264, 288, 24000, 48000, 72000, 96000, 120000, 144000, 168000, 192000, 216000, 240000, 264000, 288000, 28, 56, 84, 112, 140, 168, 196, 224, 252, 280, 308, 336, 28000, 56000, 84000, 112000, 140000, 168000, 196000, 224000, 252000, 280000, 308000, 336000, 32, 64, 96, 128, 160, 192, 224, 256, 288, 320, 352, 384, 32000, 64000, 96000, 128000, 160000, 192000, 224000, 256000, 288000, 320000, 352000, 384000, 36, 72, 108, 144, 180, 216, 252, 288, 324, 360, 396, 432, 36000, 72000, 108000, 144000, 180000, 216000, 252000, 288000, 324000, 360000, 396000, 432000, 40, 80, 120, 160, 200, 240, 280, 320, 360, 400, 440, 480, 40000, 80000, 120000, 160000, 2e+05, 240000, 280000, 320000, 360000, 4e+05, 440000, 480000, 44, 88, 132, 176, 220, 264, 308, 352, 396, 440, 484, 528, 44000, 88000, 132000, 176000, 220000, 264000, 308000, 352000, 396000, 440000, 484000, 528000, 48, 96, 144, 192, 240, 288, 336, 384, 432, 480, 528, 576, 48000, 96000, 144000, 192000, 240000, 288000, 336000, 384000, 432000, 480000, 528000, 576000, 52, 104, 156, 208, 260, 312, 364, 416, 468, 520, 572, 624, 52000, 104000, 156000, 208000, 260000, 312000, 364000, 416000, 468000, 520000, 572000, 624000, 56, 112, 168, 224, 280, 336, 392, 448, 504, 560, 616, 672, 56000, 112000, 168000, 224000, 280000, 336000, 392000, 448000, 504000, 560000, 616000, 672000, 60, 120, 180, 240, 300, 360, 420, 480, 540, 600, 660, 720, 60000, 120000, 180000, 240000, 3e+05, 360000, 420000, 480000, 540000, 6e+05, 660000, 720000, 64, 128, 192, 256, 320, 384, 448, 512, 576, 640, 704, 768, 64000, 128000, 192000, 256000, 320000, 384000, 448000, 512000, 576000, 640000, 704000, 768000, 68, 136, 204, 272, 340, 408, 476, 544, 612, 680, 748, 816, 68000, 136000, 204000, 272000, 340000, 408000, 476000, 544000, 612000, 680000, 748000, 816000, 72, 144, 216, 288, 360, 432, 504, 576, 648, 720, 792, 864, 72000, 144000, 216000, 288000, 360000, 432000, 504000, 576000, 648000, 720000, 792000, 864000, 76, 152, 228, 304, 380, 456, 532, 608, 684, 760, 836, 912, 76000, 152000, 228000, 304000, 380000, 456000, 532000, 608000, 684000, 760000, 836000, 912000, 80, 160, 240, 320, 400, 480, 560, 640, 720, 800, 880, 960, 80000, 160000, 240000, 320000, 4e+05, 480000, 560000, 640000, 720000, 8e+05, 880000, 960000, 84, 168, 252, 336, 420, 504, 588, 672, 756, 840, 924, 1008, 84000, 168000, 252000, 336000, 420000, 504000, 588000, 672000, 756000, 840000, 924000, 1008000, 88, 176, 264, 352, 440, 528, 616, 704, 792, 880, 968, 1056, 88000, 176000, 264000, 352000, 440000, 528000, 616000, 704000, 792000, 880000, 968000, 1056000, 92, 184, 276, 368, 460, 552, 644, 736, 828, 920, 1012, 1104, 92000, 184000, 276000, 368000, 460000, 552000, 644000, 736000, 828000, 920000, 1012000, 1104000, 96, 192, 288, 384, 480, 576, 672, 768, 864, 960, 1056, 1152, 96000, 192000, 288000, 384000, 480000, 576000, 672000, 768000, 864000, 960000, 1056000, 1152000), .Dim = c(3L, 4L, 2L, 3L, 4L, 2L), .Dimnames = list(c('A', 'B', 'C'), c('D', 'E', 'F', 'G'), c('frequentist', 'bayesian'), NULL, NULL, c('happy', 'sad'))), c(4L, 1L, 5L, 2L, 6L, 3L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm2_08085d9607b7ef91bc0914acf581e31f() {
+ assertEval("argv <- list(structure(c('[', 'as.data.frame', 'plot', 'print', 'summary', 'as.character', 'print', 'print', 'plot', 'update', 'dim', 'dimnames', 'dimnames<-', '[', 't', 'summary', 'print', 'barchart', 'barchart', 'barchart', 'barchart', 'barchart', 'barchart', 'bwplot', 'bwplot', 'densityplot', 'densityplot', 'dotplot', 'dotplot', 'dotplot', 'dotplot', 'dotplot', 'dotplot', 'histogram', 'histogram', 'histogram', 'qqmath', 'qqmath', 'stripplot', 'stripplot', 'qq', 'xyplot', 'xyplot', 'levelplot', 'levelplot', 'levelplot', 'levelplot', 'contourplot', 'contourplot', 'contourplot', 'contourplot', 'cloud', 'cloud', 'cloud', 'wireframe', 'wireframe', 'splom', 'splom', 'splom', 'parallelplot', 'parallelplot', 'parallelplot', 'parallel', 'parallel', 'parallel', 'tmd', 'tmd', 'llines', 'ltext', 'lpoints', 'shingle', 'shingle', 'shingle', 'shingle', 'shingle', 'shingleLevel', 'shingleLevel', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'trellis', 'summary.trellis', 'formula', 'array', 'default', 'matrix', 'numeric', 'table', 'formula', 'numeric', 'formula', 'numeric', 'formula', 'array', 'default', 'matrix', 'numeric', 'table', 'formula', 'factor', 'numeric', 'formula', 'numeric', 'formula', 'numeric', 'formula', 'formula', 'ts', 'formula', 'table', 'array', 'matrix', 'formula', 'table', 'array', 'matrix', 'formula', 'matrix', 'table', 'formula', 'matrix', 'formula', 'matrix', 'data.frame', 'formula', 'matrix', 'data.frame', 'formula', 'matrix', 'data.frame', 'formula', 'trellis', 'default', 'default', 'default', NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = c(70L, 3L)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm20_a60260052b25fde56101fe8dbd0e68d8() {
+ assertEval("argv <- list(structure(1:24, .Dim = c(4L, 6L), .Dimnames = structure(list(happy = c('a', 'b', 'c', 'd'), sad = c('A', 'B', 'C', 'D', 'E', 'F')), .Names = c('happy', 'sad'))), c(2, 1), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm21_ce4c8e2814e108f6506868be605410c5() {
+ assertEval("argv <- list(structure(1:120, .Dim = 2:5, .Dimnames = list(NULL, c('a', 'b', 'c'), NULL, c('V5', 'V6', 'V7', 'V8', 'V9'))), 1:4, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm22_f50d556640063dcbd0714a4bce8ce8f4() {
+ assertEval("argv <- list(structure(c(' Null deviance:', 'Residual deviance:', '67.5316', ' 4.5512', ' on', ' on', '9', '7', ' degrees of freedom\n', ' degrees of freedom\n'), .Dim = c(2L, 5L), .Dimnames = list(c('null.deviance', 'deviance'), NULL)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm23_612171dd55066ba36fe3cbfe213cb44b() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE), .Dim = c(3L, 1L)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm24_bbec9b3d0b9ac37bc11289bead4a9a49() {
+ assertEval("argv <- list(structure(c(3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3, 4, 5), .Dim = c(8L, 2L), .Dimnames = list(c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h'), c('x1', 'x2'))), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm25_1c60d8417af5ed2e2eb30ec63ebc0415() {
+ assertEval("argv <- list(structure(c(0, 1.23517986278748, 1.95771376416406, 2.47035972557496, 2.86799882564536, 3.19289362695154, 3.46758826742286, 3.70553958836244, 3.91542752832811, 4.10317868843284, 4.27302027203108, 4.42807348973901, 4.57070862330685, 4.70276813021034, 4.82571258980942, 4.94071945114991, 5.04875179140451, 5.15060739111559, 5.2469545231864, 5.33835855122032, 5.42530203158692, 5.50820013481856, 5.58741263619316, 5.66325335252649, 5.73599765129073, 5.80588848609433, 5.87314129249217, 5.93794799299782, 6.00048029898585, 6.0608924525969, 6.11932351888589, 6.17589931393739, 6.23073403619514, 6.28393165419199, 6.33558709306823, 6.38578725390307, 6.43461189335533, 6.48213438597388, 6.52842238747091, 6.5735384140078, 6.61754034994095, 6.6604818943744, 6.70241295516147, 6.74337999760604, 6.78342635397348, 6.82259249898064, 6.86091629565604, 6.89843321531397, 6.93517653484573, 6.97117751407821, 7.00646555556857, 7.04106834888181, 7.07501200112497, 7.10832115527965, 7.14101909767645, 7.1731278557853, 7.20466828735046, 7.23566016177333, 7.26612223453848, 7.29607231538438, 7.3255273308395, 7.35450338167337, 7.38301579575098, 7.41107917672487, 7.43870744895221, 7.46591389898262, 7.49271121392624, 7.51911151697947, 7.54512640035722, 7.57076695585571, 7.59604380324749, 7.62096711669055, 7.64554664931599, 7.66979175614282, 7.69371141545478, 7.71731424876136, 7.74060853945395, 7.76360225025839, 7.78630303957574, 7.80871827679528, 7.83085505665623, 7.85272021272842, 7.87432033007586, 7.89566175716188, 7.91675061704988, 7.93759281794895, 7.95819406314991, 7.97855986039352, 7.99869553070936, 8.01860621676096, 8.03829689072971, 8.05777236176812, 8.07703728304995, 8.09609615844352, 8.11495334883177, 8.13361307810145, 8.15207943882202, 8.17035639763321, 8.1884478003592, 8.20635737686569, 5.76558893216369, 5.5342688729893, 5.69366159038267, 6.17674775070929, 6.08762735966107, 6.68653280779044, 6.70253591217234, 6.32938323618963, 6.81735284786279, 6.64835766778347, 6.91213030655848, 7.1496842781073, 7.25682341590407, 7.46164094256645, 7.37149913131863, 7.56470707593246, 7.71334191900841, 7.71375128844693, 7.82793409372511, 7.90749319121623, 7.96255733207686, 8.11381187364273, 8.21211505208663, 8.18427543602736, 8.29133399017863, 8.31295002652197, 8.345677476918, 8.39053879616249, 8.40857122007675, 8.48086068897741, 8.7064475146364, 8.66563269607315, 8.79435721712053, 8.7996087849725, 8.82443395257555, 8.91314507957224, 8.8999544270272, 8.96760168103462, 8.93548690078514, 9.01332239000153, 9.07083338712431, 9.15422051683385, 9.20109302097792, 9.2062218972166, 9.31170984199071, 9.30909253379462, 9.35447695163181, 9.45333740615033, 9.41458248768079, 9.46983861007334, 9.51652628670815, 9.5301888386762, 9.59497468213833, 9.61268143770055, 9.64141492393412, 9.68857453461133, 9.77580537125637, 9.79816256416163, 9.79128849346381, 9.80699184934282, 9.91833626833319, 9.95487179604373, 9.88086373278725, 9.93505313047982, 9.97034080826287, 9.97752630228797, 10.1165750634827, 10.0977558023188, 10.1414502841663, 10.129071787117, 10.166774063688, 10.1792762662323, 10.2172491181904, 10.2670710204409, 10.2742314938915, 10.287876622612, 10.3447249333494, 10.4075370351282, 10.3465199067119, 10.4404223214255, 10.422301774768, 10.4739543513507, 10.5314461891317, 10.4813429169605, 10.5097541699286, 10.5389544549716, 10.5752633644781, 10.6133054015308, 10.6776080133421, 10.6266190058322, 10.6657950921482, 10.7067723709738, 10.7424707425861, 10.7418659657784, 10.7335163259687, 10.780101845273, 10.8334343829096, 10.8616735406708, 10.8535694508523, 10.8900668188725), .Dim = c(100L, 2L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100'), c('log(x)', 'log(z)'))), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm3_f17586cf0eb015a2ca039df0ea6abad8() {
+ assertEval("argv <- list(structure(c(0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667), .Dim = c(1L, 9L)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm4_52333812e34adc3069f9ed6ff713dc9f() {
+ assertEval("argv <- list(structure(c(0L, 0L, 0L, 1L, 0L, 1L, 1L, 1L), .Dim = c(1L, 8L), .Dimnames = list('strata(enum)', c('rx', 'size', 'number', 'strata(enum)', 'cluster(id)', 'rx:strata(enum)', 'size:strata(enum)', 'number:strata(enum)'))), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm5_ebefdb50f4875645f072968aa04168d8() {
+ assertEval("argv <- list(structure(c(9.2319289524956, -0.470372045488369, 186.857050189827), .Dim = c(1L, 3L), .Dimnames = list('118', c('age', 'sex', 'meal.cal'))), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm6_6e6d59a35e60fbcb22d33282bbe6caa3() {
+ assertEval("argv <- list(structure(c(414L, 439L, 382L, 388L, 383L, 364L, 364L, 363L, 349L, 371L, 102L, 388L, 388L, 363L, 367L, 365L, 382L, 362L, 373L, 385L, 376L, 360L, 306L, 160L, 316L, 316L, 315L, 357L, 360L, 347L, 353L, 308L, 327L, 329L, 343L, 251L, 318L, 304L, 316L, 335L, 365L, 336L, 350L, 356L, 339L, 301L, 330L, 300L, 300L, 312L, 334L, 270L, 347L, 293L, 303L, 337L, 287L, 293L, 293L, 318L, 359L, 351L, 322L, 343L, 269L, 286L, 286L, 273L, 297L, 273L, 273L, 273L, 294L, 303L, 281L, 273L, 255L, 269L, 270L, 270L, 276L, 264L, 245L, 261L, 270L, 273L, 306L, 274L, 279L, 278L, 278L, 284L, 276L, 265L, 294L, 277L, 259L, 287L, 263L, 240L, 217L, 271L, 252L, 331L, 255L, 271L, 254L, 185L, 213L, 210L, 203L, 288L, 269L, 269L, 91L, 91L, 192L, 199L, 195L, 198L, 207L, 200L, 197L, 243L, 203L, 197L, 227L, 227L, 219L, 8L, NA, NA, 246L, NA, 292L, NA, 294L, NA, 19L, 373L, NA, 211L, 82L, NA, 334L, 18L, NA, 280L, NA, NA, NA, NA, 146L, NA, NA, NA, 267L, 206L, 175L, NA, NA, NA, NA, 118L, NA, NA, NA, NA, 274L, NA, NA, 187L, NA, 6L, NA, NA, 146L, 304L, NA, 52L, 67L, NA, 265L, NA, 91L, NA, NA, NA, 318L, 57L, 226L, 65L, NA, 264L, NA, NA, NA, 236L, NA, 207L, NA, NA, NA, NA, NA, NA, 23L, NA, NA, NA, NA, NA, NA, 113L, 99L, NA, NA, 14L, NA, NA, NA, NA, NA, NA, NA, 4L, NA, 167L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 165L, NA, NA, NA, NA, NA, NA, NA, NA, 11L, NA, NA, 168L, NA, NA, 120L, NA, 104L, NA, 373L, 26L, NA, NA, 253L, NA, NA, NA, NA, NA, NA, NA, NA, 260L, 114L, NA, 370L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 280L, NA, NA, NA, NA, 240L, NA, NA, NA, NA, 361L, NA, NA, NA, NA, NA, NA, NA, 188L, NA, NA, 65L, 248L, NA, NA, NA, 121L, NA, NA, NA, NA, 121L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 306L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 159L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 22L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 152L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 265L, 337L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 255L, 250L, NA, NA, NA, 203L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 213L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 169L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 241L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 269L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 284L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 249L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 307L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 322L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 350L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = c(128L, 8L), .Dimnames = list( NULL, c('futime', 'e1', 'e2', 'e3', 'e4', 'e5', 'e6', 'e7'))), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm7_7a814cd9669074fa8ca705072433a446() {
+ assertEval("argv <- list(structure(c(0, -10, 0, -10, -10, 0, NA, NA, 0, 0, 0, 0, 0, 150, 0, 170, 180, 0, 0, 0, NA, 0, 0, 0, 0, 0, NA, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 310, 0, 330, 340, 0, 0, 350, 0, 370, 380, 0), .Dim = c(6L, 8L), .Dimnames = list(NULL, NULL)), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm8_4f2fd1ab6e0cf58806847f2f810ba2b9() {
+ assertEval("argv <- list(structure(c(544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 1539.44739946315, 1548.66655077773, 1557.88570209231, 1566.45228027983, 1575.01885846735, 1583.14083472285, 1591.26281097836, 1599.26100149451, 1607.25919201066, 1611.39689466313, 1615.5345973156, 1612.61129444623, 1609.68799157686, 1603.44643859537, 1597.20488561388, 1588.73002343463, 1580.25516125537, 1570.86127478964, 1561.46738832392, 1549.89535441445, 1538.32332050498, 1524.62526591843, 1510.92721133189, 1499.65830819836, 1488.38940506483, 1479.31388700637, 1470.23836894792, 1460.03887936132, 1449.83938977473, 1441.27547309544, 1432.71155641615, 1432.51830671501, 1432.32505701387, 1433.15763708544, 1433.99021715701, 1434.96142536256, 1435.9326335681, 1435.47421580154, 1435.01579803498, 1433.4368629411, 1431.85792784722, 1430.85617066215, 1429.85441347709, 1432.59097206397, 1435.32753065085, 1440.49425642708, 1445.66098220331, 1448.76676550395, 1451.87254880459, 1452.9163236715, 1453.96009853841, 1454.6961768366, 1455.43225513478, 1452.22362902495, 1449.01500291512, 1442.43484036078, 1435.85467780644, 1426.50159512644, 1417.14851244644, 1409.58997614642, 1402.0314398464, 1397.59624058751, 1393.16104132862, 1386.64426440334, 1380.12748747807, 1371.71107833433, 1363.2946691906, 1354.59002807904, 1345.88538696748, 1336.94914699242, 1328.01290701735, 1318.64960669271, 49.7622186359663, -84.1535032467218, -121.764781099341, 37.2870304782966, 82.528433600382, -44.2319392670254, 25.3010406627996, -34.7698782399993, 48.5709781995188, 110.301655093951, -1.96962838525201, -3.7990131710535, -51.4783734777507, 135.066608935635, 114.916035379091, -28.990712676497, -11.7078691876363, 7.04762066618673, -38.9035366827579, 16.5957688400649, -38.4931502947952, 52.0732838386475, 26.6377575984557, 329.153973076816, -13.1797869657194, 872.199160524634, 371.882552045056, -254.299568603192, -95.2920977069916, 8.63342236039193, 16.852295225008, -29.0271834604991, 13.5051131963112, 4.54091267164154, 25.5747517733375, 386.850855912621, 259.276984531009, -199.961168270532, -153.894877042003, 94.302447817031, -20.3106357794875, 21.0527247936745, -6.29056183593116, 13.9001511905426, -29.4973604406664, -31.7957066699985, -224.096013272965, -30.9544842287708, 22.3370692945275, 432.596723859509, 47.1608224545594, -304.956866078466, 50.1150369329559, 24.6852664308792, -14.4511512739648, -4.94371710626865, -19.024507596255, -56.8030453693573, -314.583543516094, 165.222305128756, 316.17817825271, 23.9168069434991, 11.9598796643579, -128.904953645213, 0.419804589665318, -6.80218287850425, 29.2691824505584, 53.9010951754703, 40.9447832426993, -26.2505972353374, -41.4479380870087, -214.837325417531, 2134, 1863, 1877, 1877, 1492, 1249, 1280, 1131, 1209, 1492, 1621, 1846, 2103, 2137, 2153, 1833, 1403, 1288, 1186, 1133, 1053, 1347, 1545, 2066, 2020, 2750, 2283, 1479, 1189, 1160, 1113, 970, 999, 1208, 1467, 2059, 2240, 1634, 1722, 1801, 1246, 1162, 1087, 1013, 959, 1179, 1229, 1655, 2019, 2284, 1942, 1423, 1340, 1187, 1098, 1004, 970, 1140, 1110, 1812, 2263, 1820, 1846, 1531, 1215, 1075, 1056, 975, 940, 1081, 1294, 1341), .Dim = c(72L, 4L), .Dimnames = list(NULL, c('STL.seasonal', 'STL.trend', 'STL.remainder', 'data')), .Tsp = c(1974, 1979.91666666667, 12), class = c('mts', 'ts', 'matrix')), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaperm_testaperm9_24f3176a36b0c1834e883156b6faf749() {
+ assertEval("argv <- list(structure(c(0.36376697930799, 0.252815298286177, 0.144820268657847, 0.059950033165656, 0.0137701755391906, 0.00220408917547991, 6.22489401973083e-05, -0.36376697846279, -0.252815298708777, -0.144820267390048, -0.0599500327958813, -0.0137701747732286, -0.00220408987788688, -6.22486118855004e-05), .Dim = c(7L, 2L, 1L)), 1:3, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaregexec_testaregexec1_2f4a7b39aaa55c7bd0f4dd1ce1c70f08() {
+ assertEval("argv <- list('FALSE', 'FALSE', c(0.1, NA, NA, NA, NA), c(1L, 1L, 1L), FALSE, FALSE, FALSE); .Internal(aregexec(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinaregexec_testaregexec2_6fdabd1a68055d50c3fb04be336568e7() {
+ assertEval("argv <- list('(lay)(sy)', c('1 lazy', '1', '1 LAZY'), c(2, NA, NA, NA, NA), c(1L, 1L, 1L), FALSE, FALSE, FALSE); .Internal(aregexec(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinargs_testargs1_e228d257beb7a361c2a9328dbcdafdb4() {
+ assertEval("argv <- list(NULL); .Internal(args(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinargs_testargs2_295551fb8ac5be183e6f303f793009ac() {
+ assertEval("argv <- list(character(0)); .Internal(args(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinargs_testargs3_1afbe22821276d1edad56f8b6ad497c8() {
+ assertEval("argv <- list(.Primitive(':')); .Internal(args(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinargs_testargs4_05dbfbc92e6317a2709ef399d70b3076() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame')); .Internal(args(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinargs_testargs5_898f905532808c83c90d31d0b8d82dd4() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(args(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray1_a1de33c4f6f10bac0607e47de645a30b() {
+ assertEval("argv <- list(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L), 59L, structure(list(dr = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59.5')), .Names = 'dr')); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray10_6ddc0343d8079a19524667b09a3959d4() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), c(5L, 16L), list(c('#ifdef', '\\Sexpr', 'build', 'install', 'render'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray11_fc08ff0006f401ec4eba037c38fe4082() {
+ assertEval("argv <- list(list(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL), 8L, list(c('1', '2', '3', '4', '5', '6', '7', '8'))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray12_2595909c5219d3b538eb8ff98f62df10() {
+ assertEval("argv <- list(c(-Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 3, 5, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1.5, 3.2, 4.9, Inf, Inf, Inf, -Inf, -Inf, 0.300000000000001, 2, 3.7, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.2, 2, 3.8, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.4, 2, 3.6, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.266666666666667, 2, 3.73333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.275, 2, 3.725, Inf, Inf, Inf, Inf), c(9L, 9L), list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray13_d42dcb8c47dba787b7b37eb7c7d1131f() {
+ assertEval("argv <- list(NA, 1L, list('1')); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray15_18f6ac9c3f4ae260a2c3467ea13f820a() {
+ assertEval("argv <- list(structure(c(-5.3088868291531, 5.2393213877113, -5.301817110509, 5.29234872074472), .Names = c('5%', '95%', '5%', '95%')), c(2, 2), list(c('5%', '95%'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray16_f502898424bd642a8c883c6cb7ebd14a() {
+ assertEval("argv <- list(c(1L, 0L), 2L, structure(list(object = c('FALSE', NA)), .Names = 'object')); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray19_7ed10b153596c00ee4ab46e0d5cc5c8f() {
+ assertEval("argv <- list(structure(c(31.9166666666667, -5.77777777777778, -10.4101831674686, -2.63888888888889, NA), .Names = c('(Intercept)', 'woolB', 'tens.L', 'tensionM', 'tensionH')), c(5L, 1L), list(c('(Intercept)', 'woolB', 'tens.L', 'tensionM', 'tensionH'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray20_db0e867b3dfd32fd0467655e85128c59() {
+ assertEval("argv <- list(c(0.92317305817397+0i, 0.160449395256071+0.220125597679977i, 0.40353715410585+2.39063261466203i, -3.64092275386503+3.51619480964107i, -0.30877433127864+1.37503901638266i, -0.5590368753986+2.95994484328048i, 2.07117052177259-1.58552086053907i, 5.12796916272868+5.50114308371867i, 0.71791019962021-4.36295436036464i, 3.6182846955548+0.01693946731429i, 5.86560669896785+3.41674024963709i, 7.14153164455803+0i, 5.86560669896785-3.41674024963709i, 3.6182846955548-0.01693946731429i, 0.71791019962021+4.36295436036464i, 5.12796916272868-5.50114308371867i, 2.07117052177259+1.58552086053907i, -0.5590368753986-2.95994484328048i, -0.30877433127864-1.37503901638266i, -3.64092275386503-3.51619480964107i, 0.40353715410585-2.39063261466203i, 0.160449395256071-0.220125597679976i, 0.994686860835215+0i, -0.711636086238366+0.034977366507257i, -3.47255638259391-3.00654729467177i, -1.61617641806619-2.52564108817258i, -1.83729841635945+1.24025696654912i, -0.05940773912914+1.99807537840182i, 2.14861624215501+1.14547234755584i, -0.18935885218927+5.11711397439959i, 3.55025883223277-3.01463113510177i, 0.37587194655463-4.62160286369829i, -0.57999032040714+3.57394816552023i, -3.22078701201057+0i, -0.57999032040714-3.57394816552023i, 0.37587194655463+4.62160286369829i, 3.55025883223277+3.01463113510177i, -0.18935885218927-5.11711397439959i, 2.14861624215501-1.14547234755584i, -0.05940773912914-1.99807537840182i, -1.83729841635945-1.24025696654912i, -1.61617641806619+2.52564108817258i, -3.47255638259391+3.00654729467177i, -0.711636086238366-0.034977366507256i, -0.376031201145236+0i, 0.36561036190112-2.94822783523588i, 2.53378536984825+1.14599403212998i, -0.59345500414631-1.46249091231517i, -5.47371957596241-2.40983118775265i, 0.994698295196402+0.827012883372647i, 4.88614691865207-0.66440097322583i, -1.22869446246947-1.85036568311679i, 4.54719422944744-1.7507307644741i, -1.25805718969215-0.46461775748286i, -6.6950163960079-1.32606545879492i, -1.8510470181104-0i, -6.6950163960079+1.32606545879492i, -1.25805718969215+0.46461775748286i, 4.54719422944744+1.7507307644741i, -1.22869446246947+1.85036568311679i, 4.88614691865207+0.66440097322583i, 0.994698295196402-0.827012883372647i, -5.47371957596241+2.40983118775265i, -0.59345500414631+1.46249091231517i, 2.53378536984825-1.14599403212998i, 0.36561036190112+2.94822783523588i, 1.86949363581639+0i, 3.2510927680528+3.7297126359622i, 5.77117909703734-0.58113122596059i, -2.73489323319193-2.03739778844743i, 1.59256247378073-3.23882870600546i, -2.21652163259476+3.70287191787544i, -6.80966667821261-4.74346958471693i, -0.48551953206469-3.42445496113818i, -4.95350216815663-1.60107509096991i, -0.651322462114205+0.588393022429161i, 3.32067078328635+3.75999833207777i, -1.35013798358527+0i, 3.32067078328635-3.75999833207777i, -0.651322462114205-0.588393022429161i, -4.95350216815663+1.60107509096991i, -0.48551953206469+3.42445496113818i, -6.80966667821261+4.74346958471693i, -2.21652163259476-3.70287191787544i, 1.59256247378073+3.23882870600546i, -2.73489323319193+2.03739778844743i, 5.77117909703734+0.58113122596059i, 3.2510927680528-3.7297126359622i, -3.90806827793786+0i, -4.10078155861753-4.25996878161911i, -0.63461032994351-2.08074582601136i, -0.10593736514835-3.82022652091785i, 6.14817602783479+2.33657685886581i, 0.64431546852762-1.776774088028i, 3.43771282488202-3.00904523977379i, -3.6812061457129+3.53944567666635i, 3.07722382691467+4.5373840425762i, 3.3679046040028+7.20820407858926i, 7.47003475089893-0.4463480891006i, 13.9322715624418-0i, 7.47003475089893+0.4463480891006i, 3.3679046040028-7.20820407858926i, 3.07722382691467-4.5373840425762i, -3.6812061457129-3.53944567666635i, 3.43771282488202+3.00904523977379i, 0.64431546852762+1.776774088028i, 6.14817602783479-2.33657685886581i, -0.10593736514835+3.82022652091785i, -0.63461032994351+2.08074582601136i, -4.10078155861753+4.25996878161911i), c(22, 5), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray23_4f99c09a2eb948557496cb06b9c93143() {
+ assertEval("argv <- list(c(1L, 2L, 1L), 3L, structure(list(c('1', '2', NA)), .Names = '')); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray24_e525a38fb98eafddfb77134676d1590b() {
+ assertEval("argv <- list(c(4L, 10L, 16L, 22L, 28L, 34L, 40L, 46L, 52L, 58L, 64L, 70L, 76L, 82L, 88L, 94L, 100L, 106L, 112L, 118L), 4:5, list(NULL, c('V5', 'V6', 'V7', 'V8', 'V9'))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray25_49e01334a43728305198bcc26ef5e133() {
+ assertEval("argv <- list(c(1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 23, 23, 23, 23, 23, 24, 24, 24, 24, 24, 25, 25, 25, 25, 25, 26, 26, 26, 26, 26, 27, 27, 27, 27, 27, 28, 28, 28, 28, 28, 29, 29, 29, 29, 29, 30, 30, 30, 30, 30, 31, 31, 31, 31, 31, 32, 32, 32, 32, 32, 33, 33, 33, 33, 33, 34, 34, 34, 34, 34, 35, 35, 35, 35, 35, 36, 36, 36, 36, 36, 37, 37, 37, 37, 37, 38, 38, 38, 38, 38, 39, 39, 39, 39, 39, 40, 40, 40, 40, 40, 41, 41, 41, 41, 41, 42, 42, 42, 42, 42, 43, 43, 43, 43, 43, 44, 44, 44, 44, 44, 45, 45, 45, 45, 45, 46, 46, 46, 46, 46, 47, 47, 47, 47, 47, 48, 48, 48, 48, 48, 49, 49, 49, 49, 49, 50, 50, 50, 50, 50, 51, 51, 51, 51, 51, 52, 52, 52, 52, 52, 53, 53, 53, 53, 53, 54, 54, 54, 54, 54, 55, 55, 55, 55, 55, 56, 56, 56, 56, 56, 57, 57, 57, 57, 57, 58, 58, 58, 58, 58, 59, 59, 59, 59, 59, 60, 60, 60, 60, 60, 61, 61, 61, 61, 61, 62, 62, 62, 62, 62, 63, 63, 63, 63, 63, 64, 64, 64, 64, 64, 65, 65, 65, 65, 65, 66, 66, 66, 66, 66, 67, 67, 67, 67, 67, 68, 68, 68, 68, 68, 69, 69, 69, 69, 69, 70, 70, 70, 70, 70, 71, 71, 71, 71, 71, 72, 72, 72, 72, 72, 73, 73, 73, 73, 73, 74, 74, 74, 74, 74, 75, 75, 75, 75, 75, 76, 76, 76, 76, 76, 77, 77, 77, 77, 77, 78, 78, 78, 78, 78, 79, 79, 79, 79, 79, 80, 80, 80, 80, 80, 81, 81, 81, 81, 81, 82, 82, 82, 82, 82, 83, 83, 83, 83, 83, 84, 84, 84, 84, 84, 85, 85, 85, 85, 85, 86, 86, 86, 86, 86, 87, 87, 87, 87, 87, 88, 88, 88, 88, 88, 89, 89, 89, 89, 89, 90, 90, 90, 90, 90, 91, 91, 91, 91, 91, 92, 92, 92, 92, 92, 93, 93, 93, 93, 93, 94, 94, 94, 94, 94, 95, 95, 95, 95, 95, 96, 96, 96, 96, 96, 97, 97, 97, 97, 97, 98, 98, 98, 98, 98, 99, 99, 99, 99, 99, 100, 100, 100, 100, 100, 101, 101, 101, 101, 101, 102, 102, 102, 102, 102, 103, 103, 103, 103, 103, 104, 104, 104, 104, 104, 105, 105, 105, 105, 105, 106, 106, 106, 106, 106, 107, 107, 107, 107, 107, 108, 108, 108, 108, 108, 109, 109, 109, 109, 109, 110, 110, 110, 110, 110, 111, 111, 111, 111, 111, 112, 112, 112, 112, 112, 113, 113, 113, 113, 113, 114, 114, 114, 114, 114, 115, 115, 115, 115, 115, 116, 116, 116, 116, 116, 117, 117, 117, 117, 117, 118, 118, 118, 118, 118, 119, 119, 119, 119, 119, 120, 120, 120, 120, 120), c(5, 2, 3, 4, 5), list(NULL, NULL, c('a', 'b', 'c'), NULL, c('V5', 'V6', 'V7', 'V8', 'V9'))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray26_e6384f5348746531ce21c68a02f3b857() {
+ assertEval("argv <- list('', c(4L, 3L), list(c('<none>', 'Hair:Eye', 'Hair:Sex', 'Eye:Sex'), c('Df', 'Deviance', 'AIC'))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray27_f1a8e39e186023ba01b00b56b52f7318() {
+ assertEval("argv <- list(-1, c(3L, 2L), list(c('a', 'b', 'c'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray3_de32a339b0dc2af9cf47144c650e041b() {
+ assertEval("argv <- list(2.10239639473973e-05, c(1L, 1L), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray4_8b677d3b59ed9d33c04042e304f91cca() {
+ assertEval("argv <- list(0, c(105L, 1L), list(NULL, structure('d', .Names = 'CURVE'))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray5_3e426c5821c83699fa2f43bfa0339c27() {
+ assertEval("argv <- list(structure(list(`1` = structure(list(lower = 13.2743449189798, est. = 24.8054653131966, upper = 46.3534067526313), .Names = c('lower', 'est.', 'upper'), row.names = 'reStruct.Rail.sd((Intercept))', class = 'data.frame')), .Names = '1'), c(1L, 1L), list('1', NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray7_a97bb51db6a4ceaec74f44e9243dc584() {
+ assertEval("argv <- list(c(10L, 10L, 11L, 10L, 12L, 11L, 13L, 12L, 14L, 13L, 15L, 14L, 16L, 15L, 17L, 16L, 18L, 17L, 19L, 18L, 20L, 19L, 21L, 20L, 22L, 21L, 23L, 22L, 24L, 23L, 25L, 24L, 26L, 25L, 27L, 26L, 28L, 27L, 29L, 28L, 30L, 29L, 31L, 30L, 32L, 31L, 33L, 32L, 34L, 33L, 35L, 34L, 36L, 35L, 37L, 36L, 38L, 36L, 39L, 38L, 40L, 39L), c(2L, 31L), list(c('target', 'actual'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinarray_testarray9_f29da9896c8c017d472961825e98baf2() {
+ assertEval("argv <- list(integer(0), c(1L, 0L), structure(list('1', NULL), .Names = c('', ''))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct1_1c500c86dface041952a145584c63c2e() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 109L, wday = 4L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC'), 'UTC'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct10_6dfad3439678f8b9925922d32bd6d5e2() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1, mon = 1L, year = 109L, wday = 0L, yday = 31L, isdst = -1), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC'), 'UTC'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct11_c7c8157329310d8d280f066b7ff799a9() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49), year = 105L, wday = 6L, yday = 0L, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC'), 'UTC'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct12_a6fc18d74036edb3971879e59186fe09() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 2L, hour = 2L, mday = 2L, mon = 1L, year = c(102L, 1102L), wday = 6L, yday = 32L, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')), ''); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct13_bb025be8ae52c06488f607f8c080f413() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = c(2L, 4L, 6L, 8L, 10L, 12L, 14L, 16L, 18L, 20L, 22L, 24L, 26L, 28L, 30L, 32L), mon = 1L, year = 102L, wday = 6L, yday = 32L, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')), ''); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct2_b62827b33dc8c91662f48606de611b14() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1, mon = c(11, 12, 13, 14), year = 100L, wday = 0L, yday = 365L, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'), 'GMT'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct3_0d65533602d92caa782bd7c735504cab() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = -3L, mon = 1L, year = 102L, wday = 6L, yday = 32L, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')), ''); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct4_48bf2e027fc478152fffa7cd3cc4df32() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 12L, mday = 1L, mon = 0L, year = c(70L, 75L, 80L, 85L, 90L, 95L, 100L, 105L, 110L, 115L), wday = 4L, yday = 0L, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'), 'GMT'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct5_fa3202990ad8785e47e61c5b7d40f715() {
+ assertEval("argv <- list(structure(list(sec = numeric(0), min = integer(0), hour = integer(0), mday = integer(0), mon = integer(0), year = integer(0), wday = integer(0), yday = integer(0), isdst = integer(0)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt')), ''); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct6_e1bce99d059a06199c61fbdd45f53300() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = -5L, wday = 2L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'), 'GMT'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct7_31b4a35e00fc72a0fd76538e2d5731cd() {
+ assertEval("argv <- list(structure(list(sec = NA_real_, min = NA_integer_, hour = NA_integer_, mday = NA_integer_, mon = NA_integer_, year = NA_integer_, wday = NA_integer_, yday = NA_integer_, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'), 'GMT'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct8_3bdcede3f03657e1f6ba172f3757d99f() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 70L, wday = 4L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'), 'GMT'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXct_testasPOSIXct9_6fc3b32d94b37559931f24ab21576d10() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 22:27, mon = 3L, year = 108L, wday = 2L, yday = 112L, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'), 'GMT'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt1_00f4e9d0e427a431044a5950735dc978() {
+ assertEval("argv <- list(structure(c(2147483648.4, 2147483648.8), class = c('POSIXct', 'POSIXt'), tzone = ''), ''); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt10_9ffeb4cfe131ce48ac5ffaf8ea44d725() {
+ assertEval("argv <- list(character(0), ''); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt11_ac0307df91add091731446ecf15395cc() {
+ assertEval("argv <- list(NULL, ''); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt2_e4eb7330a95043a34482b38f18f977ee() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE), class = c('POSIXct', 'POSIXt')), ''); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt3_191ee8bdf9c2eaadb31bbb9b1fc300d1() {
+ assertEval("argv <- list(structure(1041324768, class = c('POSIXct', 'POSIXt'), tzone = 'GMT'), 'GMT'); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt4_194e051794fdbd53a792e13196afa3ed() {
+ assertEval("argv <- list(structure(c(1208865600, 1208952000, 1209038400, 1209124800, 1209211200), tzone = 'GMT', class = c('POSIXct', 'POSIXt')), 'GMT'); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt5_8ae3a1410937f690b8025d898298c6ab() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), ''); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt6_05e50fdeac8692aeef0965c86952a8c3() {
+ assertEval("argv <- list(structure(32569542120, class = c('POSIXct', 'POSIXt')), ''); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt7_26776a81744f30b28265ad599ddd1405() {
+ assertEval("argv <- list(structure(c(1012798800, 1013403600, 1014008400, 1014613200), class = c('POSIXct', 'POSIXt'), tzone = ''), ''); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt8_53bbe098ec0b9a7e3c85e948f405f103() {
+ assertEval("argv <- list(structure(c(-1893412800, -1861876800, -1830340800, -1798718400, -1767182400, -1735646400, -1704110400, -1672488000, -1640952000, -1609416000, -1577880000, -1546257600, -1514721600, -1483185600, -1451649600, -1420027200, -1388491200, -1356955200, -1325419200, -1293796800, -1262260800, -1230724800, -1199188800, -1167566400, -1136030400, -1104494400, -1072958400, -1041336000, -1009800000, -978264000, -946728000, -915105600, -883569600, -852033600, -820497600, -788875200, -757339200, -725803200, -694267200, -662644800, -631108800, -599572800, -568036800, -536414400, -504878400, -473342400, -441806400, -410184000, -378648000, -347112000, -315576000, -283953600, -252417600, -220881600, -189345600, -157723200, -126187200, -94651200, -63115200, -31492800, 43200, 31579200, 63115200, 94737600, 126273600, 157809600, 189345600, 220968000, 252504000, 284040000, 315576000, 347198400, 378734400, 410270400, 441806400, 473428800, 504964800, 536500800, 568036800, 599659200, 631195200, 662731200, 694267200, 725889600, 757425600, 788961600, 820497600, 852120000, 883656000, 915192000), class = c('POSIXct', 'POSIXt'), tzone = 'GMT'), 'GMT'); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasPOSIXlt_testasPOSIXlt9_f67f755c24187b6eedba0e4de4d7a058() {
+ assertEval("argv <- list(list(), ''); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascall_testascall1_75dad11a1d07a7a5fd405091a76cfe2d() {
+ assertEval("argv <- list(list(quote(quote), c(0.568, 1.432, -1.08, 1.08)));as.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascall_testascall2_449d54ebb2b0ae08e77ca684b2cbd4ae() {
+ assertEval("argv <- list(list(quote(quote), FALSE));as.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascall_testascall3_576f6deb6494b95f0406b343929fc8a4() {
+ assertEval("argv <- list(list(quote(quote), list(NULL, c('time', 'status'))));as.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascall_testascall4_a24d7b5f23702c8c1511b88087dd6969() {
+ assertEval("argv <- list(structure(expression(data.frame, check.names = TRUE, stringsAsFactors = TRUE), .Names = c('', 'check.names', 'stringsAsFactors')));as.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascall_testascall5_051693b1bebf4f33d3241d651c72f4d3() {
+ assertEval("argv <- list(list(quote(quote), 80L));as.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascall_testascall6_a95ff22c9ef3ec6e77ee48b0335377c7() {
+ assertEval("argv <- list(list(quote(quote), NA));as.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter12_8063ac3b5f6f110091ffdb86859d36cc() {
+ assertEval("argv <- list(structure(1:4, .Dim = c(1L, 4L)));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter14_5d7cae1481640b8b52a874449b58979f() {
+ assertEval("argv <- list(structure('Estimates a probability density function, \n', Rd_tag = 'TEXT'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter16_768a231ba5495283935e93ca485b4d82() {
+ assertEval("argv <- list(structure(-841, class = 'Date'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter17_b8d4817acc339389b67e95ef294856ed() {
+ assertEval("argv <- list(structure(list(list(structure('x', Rd_tag = 'TEXT')), list(structure('an R object representing a hierarchical clustering.\n', Rd_tag = 'TEXT'), structure(' For the default method, an object of class ', Rd_tag = 'TEXT'), structure(list(structure('\'', Rd_tag = 'RCODE'), structure(list(structure('hclust', Rd_tag = 'TEXT')), Rd_tag = '\\link'), structure('\'', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' or\n', Rd_tag = 'TEXT'), structure(' with a method for ', Rd_tag = 'TEXT'), structure(list( structure(list(structure('as.hclust', Rd_tag = 'TEXT')), Rd_tag = '\\link'), structure('()', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' such as\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(structure('\'', Rd_tag = 'RCODE'), structure(list(structure('agnes', Rd_tag = 'TEXT')), Rd_tag = '\\link', Rd_option = structure('cluster', Rd_tag = 'TEXT')), structure('\'', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' in package ', Rd_tag = 'TEXT'), structure(c('\\href{http://CRAN.R-project.org/package=#1}{\\pkg{#1}}', 'cluster'), Rd_tag = 'USERMACRO'), structure(list(list(structure('http://CRAN.R-project.org/package=cluster', Rd_tag = 'VERB')), list(structure(list(structure('cluster', Rd_tag = 'TEXT')), Rd_tag = '\\pkg'))), Rd_tag = '\\href'), structure('.', Rd_tag = 'TEXT'))), Rd_tag = '\\item'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter18_dcdfc842ff66734c6f72fd5ef017a0cd() {
+ assertEval("argv <- list(list(epsilon = 1e-08, maxit = 25, trace = FALSE));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter19_dc0a0964223c6be5f65112cd869cf0e0() {
+ assertEval("argv <- list(structure(list(structure(list(given = c('George', 'E.', 'P.'), family = 'Box', role = NULL, email = NULL, comment = NULL), .Names = c('given', 'family', 'role', 'email', 'comment')), structure(list(given = c('David', 'R.'), family = 'Cox', role = NULL, email = NULL, comment = NULL), .Names = c('given', 'family', 'role', 'email', 'comment'))), class = 'person'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter2_d0d9d9f37ecbe7234fc7edee2ef45a8c() {
+ assertEval("argv <- list(structure(c(12784, 12874, 12965, 13057, 13149, 13239, 13330, 13422, 13514, 13604, 13695, 13787, 13879, 13970, 14061, 14153, 14245), class = 'Date'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter20_a9bdbf0f8c7344444944aa83181144cd() {
+ assertEval("argv <- list(structure(list(structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure('coerce', Rd_tag = 'TEXT')), list(structure(list(structure('signature(from = \'dgCMatrix\', to =\n', Rd_tag = 'RCODE'), structure('\t\'ngCMatrix\')', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(', and many similar ones; typically you should\n', Rd_tag = 'TEXT'), structure(' coerce to ', Rd_tag = 'TEXT'), structure(list(structure('\'nsparseMatrix\'', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' (or ', Rd_tag = 'TEXT'), structure(list(structure('\'nMatrix\'', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure('). Note that\n', Rd_tag = 'TEXT'), structure(' coercion to a sparse pattern matrix records all the potential\n', Rd_tag = 'TEXT'), structure(' non-zero entries, i.e., explicit (', Rd_tag = 'TEXT'), structure(list(structure('non-structural', Rd_tag = 'TEXT')), Rd_tag = '\\dQuote'), structure(') zeroes\n', Rd_tag = 'TEXT'), structure(' are coerced to ', Rd_tag = 'TEXT'), structure(list(structure('TRUE', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(', not ', Rd_tag = 'TEXT'), structure(list(structure('FALSE', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(', see the example.\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure('t', Rd_tag = 'TEXT')), list(structure(list(structure('signature(x = \'ngCMatrix\')', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(': returns the transpose\n', Rd_tag = 'TEXT'), structure(' of ', Rd_tag = 'TEXT'), structure(list(structure('x', Rd_tag = 'RCODE')), Rd_tag = '\\code'))), Rd_tag = '\\item'), structure('\n', Rd_tag = 'TEXT'), structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure('which', Rd_tag = 'TEXT')), list(structure(list(structure('signature(x = \'lsparseMatrix\')', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(', semantically\n', Rd_tag = 'TEXT'), structure(' equivalent to ', Rd_tag = 'TEXT'), structure(list(structure('base', Rd_tag = 'TEXT')), Rd_tag = '\\pkg'), structure(' function ', Rd_tag = 'TEXT'), structure(list(structure(list(structure('which', Rd_tag = 'TEXT')), Rd_tag = '\\link'), structure('(x, arr.ind)', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(';\n', Rd_tag = 'TEXT'), structure(' for details, see the ', Rd_tag = 'TEXT'), structure(list(structure(list(structure('lMatrix', Rd_tag = 'TEXT')), Rd_tag = '\\linkS4class')), Rd_tag = '\\code'), structure(' class documentation.', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT')), Rd_tag = '\\describe'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter22_fae2b02cf6067c39f3cf522eed4b0381() {
+ assertEval("argv <- list(structure(list(structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure(list(structure('languageEl', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(':', Rd_tag = 'TEXT')), list(structure('\n', Rd_tag = 'TEXT'), structure(' extract an element of a language object, consistently for\n', Rd_tag = 'TEXT'), structure(' different kinds of objects.\n', Rd_tag = 'TEXT'), structure('\n', Rd_tag = 'TEXT'), structure(' The 1st., etc. elements of a function are the corresponding formal\n', Rd_tag = 'TEXT'), structure(' arguments, with the default expression if any as value.\n', Rd_tag = 'TEXT'), structure('\n', Rd_tag = 'TEXT'), structure(' The first element of a call is the name or the function object\n', Rd_tag = 'TEXT'), structure(' being called.\n', Rd_tag = 'TEXT'), structure('\n', Rd_tag = 'TEXT'), structure(' The 2nd, 3rd, etc. elements are the 1st, 2nd, etc. arguments\n', Rd_tag = 'TEXT'), structure(' expressions. Note that the form of the extracted name is\n', Rd_tag = 'TEXT'), structure(' different for R and S-Plus. When the name (the first element) of\n', Rd_tag = 'TEXT'), structure(' a call is replaced, the languageEl replacement function coerces a\n', Rd_tag = 'TEXT'), structure(' character string to the internal form for each system.\n', Rd_tag = 'TEXT'), structure('\n', Rd_tag = 'TEXT'), structure(' The 1st, 2nd, 3rd elements of an ', Rd_tag = 'TEXT'), structure(list(structure('if', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' expression are the\n', Rd_tag = 'TEXT'), structure(' test, first, and second branch.\n', Rd_tag = 'TEXT'), structure('\n', Rd_tag = 'TEXT'), structure(' The 1st element of a ', Rd_tag = 'TEXT'), structure(list(structure('for', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' object is the name (symbol) being\n', Rd_tag = 'TEXT'), structure(' used in the loop, the second is the expression for the range of\n', Rd_tag = 'TEXT'), structure(' the loop, the third is the body of the loop.\n', Rd_tag = 'TEXT'), structure('\n', Rd_tag = 'TEXT'), structure(' The first element of a ', Rd_tag = 'TEXT'), structure(list(structure('while', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' object is the loop test, and\n', Rd_tag = 'TEXT'), structure(' the second the body of the loop.\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure('\n', Rd_tag = 'TEXT'), structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure(list(structure('isGrammarSymbol', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(':', Rd_tag = 'TEXT')), list(structure('\n', Rd_tag = 'TEXT'), structure(' Checks whether the symbol is part of the grammar.\n', Rd_tag = 'TEXT'), structure(' Don't use this function directly.\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT')), Rd_tag = '\\describe'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter23_6fdb82bf5b240f3a1554fd9742383ce3() {
+ assertEval("argv <- list(structure(c(1L, 2L, 2L, 3L, 3L, 1L, NA), .Label = c('Australia', 'UK', 'US'), class = 'factor'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter24_fa6e2ffc98f3b422be091992652cc063() {
+ assertEval("argv <- list(structure(list(4L), class = c('package_version', 'numeric_version')));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter27_29b6d978153d83e41e226b193226d861() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, NA, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, NA, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, NA, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, NA, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c('0', '1'), class = 'factor'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter28_be987cc5e86462dab4ec1574a5c96efd() {
+ assertEval("argv <- list(structure(c(11323, 11330, 11337, 11344, 11351, 11358, 11365, 11372, 11379, 11386), class = 'Date'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter31_af72e6e6773af7dbdd47e72d67d32db7() {
+ assertEval("argv <- list(structure(c(1338523200, 1338609600, 1338696000, 1338782400, 1338868800, 1338955200, 1339041600), class = c('POSIXct', 'POSIXt'), tzone = ''));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter32_a11a635f4f38ef064bbb2362dbb2872f() {
+ assertEval("argv <- list(structure(1:4, class = 'roman'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter34_a673b801889dbc1428aae9fe0b85dbfc() {
+ assertEval("argv <- list(structure(c(1104537600, 1107216000, 1109635200, 1112313600, 1114905600, 1117584000, 1120176000, 1122854400, 1125532800, 1128124800, 1130803200, 1133395200, 1136073600, 1138752000, 1141171200, 1143849600, 1146441600, 1149120000, 1151712000, 1154390400, 1157068800, 1159660800, 1162339200, 1164931200, 1167609600, 1170288000, 1172707200, 1175385600, 1177977600, 1180656000, 1183248000, 1185926400, 1188604800, 1191196800, 1193875200, 1196467200, 1199145600, 1201824000, 1204329600, 1207008000, 1209600000, 1212278400, 1214870400, 1217548800, 1220227200, 1222819200, 1225497600, 1228089600, 1230768000), class = c('POSIXct', 'POSIXt'), tzone = 'UTC'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter36_d62bef6853e53de40aaca7bd0f19cdef() {
+ assertEval("argv <- list(list(exit.code = 0L, send = NULL));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter38_945a289b35a64af860b30dc13577f0f7() {
+ assertEval("argv <- list(structure(c(978307200, 978912000, 979516800, 980121600, 980726400, 981331200, 981936000, 982540800, 983145600, 983750400), class = c('POSIXct', 'POSIXt'), tzone = 'GMT'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter39_d18e175683c639c331c42f4c7a5a5aed() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));as.character(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter4_11f4ff562a49542ee4949e9c4078e4a8() {
+ assertEval("argv <- list(c('### Encoding: UTF-8', '', '### Name: text', '### Title: Add Text to a Plot', '### Aliases: text text.default', '### Keywords: aplot', '', '### ** Examples', '', 'plot(-1:1, -1:1, type = \'n\', xlab = \'Re\', ylab = \'Im\')', 'K <- 16; text(exp(1i * 2 * pi * (1:K) / K), col = 2)', '', '## The following two examples use latin1 characters: these may not', '## appear correctly (or be omitted entirely).', 'plot(1:10, 1:10, main = \'text(...) examples\\n~~~~~~~~~~~~~~\',', ' sub = \'R is GNU ©, but not ® ...\')', 'mtext(\'«Latin-1 accented chars»: éè øØ å<Å æ<Æ\', side = 3)', 'points(c(6,2), c(2,1), pch = 3, cex = 4, col = \'red\')', 'text(6, 2, \'the text is CENTERED around (x,y) = (6,2) by default\',', ' cex = .8)', 'text(2, 1, \'or Left/Bottom - JUSTIFIED at (2,1) by 'adj = c(0,0)'\',', ' adj = c(0,0))', 'text(4, 9, expression(hat(beta) == (X^t * X)^{-1} * X^t * y))', 'text(4, 8.4, \'expression(hat(beta) == (X^t * X)^{-1} * X^t * y)\',', ' cex = .75)', 'text(4, 7, expression(bar(x) == sum(frac(x[i], n), i==1, n)))', '', '## Two more latin1 examples', 'text(5, 10.2,', ' \'Le français, c'est façile: Règles, Liberté, Egalité, Fraternité...\')', 'text(5, 9.8,', ' \'Jetz no chli züritüütsch: (noch ein bißchen Zürcher deutsch)\')', '', '', ''));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter40_2b19c43c5220d4933e35afa1bcc7236c() {
+ assertEval("argv <- list(structure(list(), class = 'numeric_version'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter41_38f994ae887dde2f849bad979235dc68() {
+ assertEval("argv <- list(structure(list(c0 = structure(character(0), class = 'AsIs')), .Names = 'c0', row.names = character(0), class = 'data.frame'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter42_4cd3aed711e78cfcab749a3f20dca4ba() {
+ assertEval("argv <- list(structure(c(12784, 13879), class = 'Date'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter5_2c93fd2ee5e7cb09eb618554731299b9() {
+ assertEval("argv <- list(structure(1395082040.29392, class = c('POSIXct', 'POSIXt')));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter6_3a74fb61513825dd5b604943899cea85() {
+ assertEval("argv <- list(structure(2:3, .Label = c('C', 'A', 'B'), class = 'factor'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascharacter_testascharacter7_6150141ca1078d6dd7c0351363c301ea() {
+ assertEval("argv <- list(structure(1:255, class = 'octmode'));as.character(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascomplex_testascomplex10_30e49ba1acb87ff4056fe35381a55a76() {
+ assertEval("argv <- list(structure(list(a = 1), .Names = 'a'));as.complex(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascomplex_testascomplex3_6b1a5856287e1b6f81d7fb7816559fd8() {
+ assertEval("argv <- list(' ');as.complex(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascomplex_testascomplex4_6b7f43ff80f5b6bce19734fce23ab66e() {
+ assertEval("argv <- list(structure(c(-0.626453810742332, 0.183643324222082, -0.835628612410047, 1.59528080213779, 0.329507771815361, -0.820468384118015, 0.487429052428485, 0.738324705129217, 0.575781351653492, -0.305388387156356, 1.51178116845085, 0.389843236411431, -0.621240580541804, -2.2146998871775, 1.12493091814311, -0.0449336090152309, -0.0161902630989461, 0.943836210685299, 0.821221195098089, 0.593901321217509, 0.918977371608218, 0.782136300731067, 0.0745649833651906, -1.98935169586337, 0.61982574789471), .Dim = c(5L, 5L), .Dimnames = list(c('1', '2', '3', '4', '5'), c('a', 'b', 'c', 'd', 'e'))));as.complex(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascomplex_testascomplex6_6fba59c292c0f19676b228cbf4c35773() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));as.complex(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinascomplex_testascomplex7_5fe78ce599bd28e6b314c3eca83c918e() {
+ assertEval("argv <- list(NA_complex_);as.complex(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasdouble_testasdouble11_888f0cba047d3b8e1059f6862b221d2e() {
+ assertEval("argv <- list(c(NA, '0.0021'));as.double(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasdouble_testasdouble14_70b49c2c7ddf9261cf5c8025bb4af88f() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707712e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.96881154539801e-173, 0, 8.23599653846971e-150, 0, 0, 0, 0, 6.51733217171342e-10, 0, 2.36840184577368e-67, 0, 9.43484083575241e-307, 0, 1.59959906013772e-89, 0, 8.73836857865035e-286, 7.09716190970993e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044552e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.07028772732371e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.75227273320951e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));as.double(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasdouble_testasdouble16_aecc96e5426db7d2f179d188c23f236c() {
+ assertEval("argv <- list(structure(28, units = 'days', class = 'difftime'), units = 'secs');as.double(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasdouble_testasdouble18_c5d23a4a19328f2300a28b0ea088a129() {
+ assertEval("argv <- list(c(0.0099, 0.099, 0.99, 9.9, 99, 990, 9900, 99000, 990000, 9900000, 9.9e+07, 9.9e+08, 9.9e+09, 9.9e+10));as.double(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasdouble_testasdouble19_1c0639528f35ceceb26fe3eac156aa8a() {
+ assertEval("argv <- list(structure(180.958333333333, units = 'days', class = 'difftime'), units = 'secs');as.double(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasdouble_testasdouble2_0bfae9e14e6f29807a45929a9d755a1e() {
+ assertEval("argv <- list(c('10', '2.7404', '0.27404', ''));as.double(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasdouble_testasdouble21_5a423bbbaa3b3d9af3d1b35ac7725497() {
+ assertEval("argv <- list(structure(list(foo = 5L, Species = 2L), .Names = c('foo', 'Species'), out.attrs = structure(list(dim = structure(c(6L, 3L), .Names = c('foo', 'Species')), dimnames = structure(list(foo = c('foo=1', 'foo=2', 'foo=3', 'foo=4', 'foo=5', 'foo=6'), Species = c('Species=1', 'Species=2', 'Species=3')), .Names = c('foo', 'Species'))), .Names = c('dim', 'dimnames')), row.names = 11L, class = 'data.frame'));as.double(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasdouble_testasdouble26_a6bb7c79ffe4e8b071f239d5f3350fa6() {
+ assertEval("argv <- list(c(NaN, 9.51350769866873, 4.5908437119988, 2.99156898768759, 2.21815954375769, 1.77245385090552, 1.48919224881282, 1.29805533264756, 1.1642297137253, 1.06862870211932, 1));as.double(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasdouble_testasdouble27_e25eeefaa5bce829117c2999a4888583() {
+ assertEval("argv <- list(structure(3:5, .Tsp = c(1, 3, 1), class = 'ts'));as.double(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasdouble_testasdouble3_989f5b7197ccb6c5baa05f4684e7374e() {
+ assertEval("argv <- list(structure(4, tzone = 'GMT', units = 'days', class = 'difftime'), units = 'secs');as.double(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasdouble_testasdouble6_752d38d8a75436778dc2a1a3f8ecca88() {
+ assertEval("argv <- list(c(856722023.658297, 302896976.260735, 107090252.958018, 37862122.0336249, 13386281.6212132, 4732765.25626924, 1673285.20557359, 591595.661165903, 209160.656540579, 73949.4659102332, 26145.0937553316, 9243.69976775411, 3268.16009484595, 1155.49552841673, 408.56675987247, 144.503039869403, 51.1642500846007, 18.1945635811076, 6.57944169516568, 2.52146555042134, 1.10249557516018, 0.395623281358704, -0.367112032460934, 0.27396220835345, -0.0693674921217567, 0.0814543296800769, 0.0923699793060252, 0.0504684833914985, -0.0498360425475413, 0.00273531641447061, -0.00392881268836618));as.double(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasdouble_testasdouble7_4d29d409a409fed21c1bda98325ac766() {
+ assertEval("argv <- list(c(1.90069420068965e+68, 1.85614668036113e+65, 1.81264324254072e+62, 1.77015941654582e+59, 1.72867130522891e+56, 1.68815557154536e+53, 1.64858942546521e+50, 1.60995061130567e+47, 1.57221739580551e+44, 1.53536855821758e+41, 1.49938338742443e+38, 1.46424170564914e+35, 1.42992399523352e+32, 1.39641192722393e+29, 1.36369045875401e+26, 1.33175605805513e+23, 1.30064886911081e+20, 127057845771019376, 124241617095379, 121963623349.57, 121618014.278689, 129184.542208039, 178.330555907964, 0.906701004569228, -0.0905266041439205, 0.141777480680994, 0.0921442943441807, 0.0658533118803105, -0.0402995417166551, 0.0244881559995369, -0.0194680918617461));as.double(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasdouble_testasdouble8_8eade01b937fb096c73488398e8454f4() {
+ assertEval("argv <- list(c(3.69420518444359e+25, 2.30887824027777e+24, 1.44304890017492e+23, 9.01905562612606e+21, 5.63690976641081e+20, 35230686042118275072, 2201917878145066496, 137619867512235136, 8601241751556820, 537577617482832, 33598603095309.8, 2099913194115.17, 131244699796.888, 8202825028.58974, 512684387.219832, 32044730.0464007, 2003284.70114408, 125327.674230857, 7863.68742857025, 499.272560819512, 33.2784230289721, 2.7659432263306, 0.488936768533843, -0.282943224311172, 7.32218543045282e-05, -0.00636442868227041, -0.0483709204009262, -0.0704795507649514, 0.0349437746169591, -0.0264830837608839, 0.0200901469411759));as.double(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasin_testasin2_491c4b3e1cb2ac77763d88264422d3f4() {
+ assertEval("argv <- list(c(2+0i, 2-0.0001i, -2+0i, -2+0.0001i));asin(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasin_testasin3_4b79981613e436caf0aa2740956b68dd() {
+ assertEval("argv <- list(logical(0));asin(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasin_testasin4_eac36778e49b62a2cdadde00d617dd3d() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));asin(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasinh_testasinh1_17b231c174eb6826c7a3339e6d3a6538() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));asinh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasinh_testasinh2_16feec78b53e130c27fcea5ecdaf5fed() {
+ assertEval("argv <- list(FALSE);asinh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasinh_testasinh3_fd62a29e7b6704ee7f1c2825c236b191() {
+ assertEval("argv <- list(c(-10.0178749274099, -9.71883514604503, -9.428631115578, -9.14699900083883, -8.87368275970178, -8.60843391030797, -8.35101130516145, -8.10118091189307, -7.85871560049306, -7.62339493681878, -7.39500498218993, -7.17333809888897, -6.95819276139009, -6.74937337314489, -6.54669008875839, -6.34995864139355, -6.15900017524753, -5.9736410829473, -5.79371284771676, -5.61905189017195, -5.44949941960501, -5.28490128962169, -5.12510785800119, -4.96997385065093, -4.81935822953248, -4.67312406443873, -4.53113840850555, -4.39327217734495, -4.25940003168967, -4.12940026344266, -4.00315468502777, -3.88054852194104, -3.76147030840502, -3.64581178603109, -3.53346780539777, -3.42433623045557, -3.31831784567124, -3.21531626582739, -3.11523784839505, -3.01799160839986, -2.92348913570423, -2.83164451463048, -2.74237424585168, -2.65559717047939, -2.57123439627907, -2.48920922594631, -2.40944708737842, -2.33187546587824, -2.25642383822831, -2.18302360857567, -2.1116080460688, -2.04211222419016, -1.97447296172911, -1.90862876534153, -1.84451977364398, -1.78208770279149, -1.72127579348957, -1.66202875939226, -1.60429273683927, -1.54801523588655, -1.49314509258573, -1.43963242246912, -1.38742857519786, -1.33648609033215, -1.2867586541832, -1.23820105770775, -1.19076915540686, -1.1444198251916, -1.0991109291792, -1.05480127538394, -1.01145058026799, -0.969019432118151, -0.927469255215247, -0.886762274763496, -0.84686148254806, -0.807730603289509, -0.769334061664634, -0.731636949963607, -0.6946049963541, -0.658204533723497, -0.622402469070884, -0.587166253420983, -0.55246385223268, -0.518263716275245, -0.484534752945762, -0.451246298001703, -0.41836808768293, -0.385870231197804, -0.353723183548358, -0.321897718669858, -0.290364902860306, -0.25909606847575, -0.22806278786747, -0.19723684753736, -0.166590222487993, -0.13609505074407, -0.105723608022064, -0.0754482825250618, -0.0452415498398571, -0.0150759479134945, 0.015075947913494, 0.0452415498398571, 0.0754482825250618, 0.105723608022064, 0.136095050744069, 0.166590222487993, 0.19723684753736, 0.22806278786747, 0.259096068475749, 0.290364902860306, 0.321897718669858, 0.353723183548358, 0.385870231197804, 0.41836808768293, 0.451246298001702, 0.484534752945762, 0.518263716275245, 0.55246385223268, 0.587166253420983, 0.622402469070883, 0.658204533723497, 0.6946049963541, 0.731636949963607, 0.769334061664634, 0.807730603289509, 0.84686148254806, 0.886762274763496, 0.927469255215247, 0.96901943211815, 1.01145058026799, 1.05480127538394, 1.0991109291792, 1.1444198251916, 1.19076915540686, 1.23820105770775, 1.2867586541832, 1.33648609033215, 1.38742857519786, 1.43963242246912, 1.49314509258573, 1.54801523588655, 1.60429273683927, 1.66202875939226, 1.72127579348957, 1.78208770279149, 1.84451977364398, 1.90862876534153, 1.97447296172911, 2.04211222419016, 2.1116080460688, 2.18302360857567, 2.25642383822831, 2.33187546587824, 2.40944708737842, 2.48920922594631, 2.57123439627907, 2.65559717047939, 2.74237424585168, 2.83164451463048, 2.92348913570423, 3.01799160839985, 3.11523784839505, 3.21531626582738, 3.31831784567124, 3.42433623045557, 3.53346780539777, 3.64581178603109, 3.76147030840502, 3.88054852194104, 4.00315468502777, 4.12940026344266, 4.25940003168967, 4.39327217734494, 4.53113840850555, 4.67312406443873, 4.81935822953248, 4.96997385065093, 5.12510785800119, 5.28490128962168, 5.44949941960501, 5.61905189017195, 5.79371284771676, 5.9736410829473, 6.15900017524753, 6.34995864139355, 6.54669008875838, 6.74937337314489, 6.95819276139008, 7.17333809888896, 7.39500498218993, 7.62339493681878, 7.85871560049306, 8.10118091189307, 8.35101130516145, 8.60843391030797, 8.87368275970177, 9.14699900083883, 9.428631115578, 9.71883514604503, 10.0178749274099));asinh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasinh_testasinh4_b3a04ee92591d9476b3e306bb9ba5957() {
+ assertEval("argv <- list(c(0+2i, 0.0001+2i, 0-2i, 0-2.0001i));asinh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasinteger_testasinteger10_1339eee6cc2fbd993df70a1fa8c5959d() {
+ assertEval("argv <- list(c('1', NA, '0'));as.integer(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasinteger_testasinteger11_ba3f5ab0028149747c7aeb88e4a1f518() {
+ assertEval("argv <- list(c('3', '14159265358979'));as.integer(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasinteger_testasinteger17_b642a15a779bdcbfaf08ebd6b26a6dc7() {
+ assertEval("argv <- list(structure(c(100, -1e-13, Inf, -Inf, NaN, 3.14159265358979, NA), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));as.integer(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasinteger_testasinteger2_09af24ca667cda5ae39d663dacb91980() {
+ assertEval("argv <- list(c(' 33', ' 34', ' 35', ' 36', ' 37', ' 38', ' 18', ' 19', ' 20', ' 21', ' 22', ' 23', ' 36', ' 37', ' 38', ' 39'));as.integer(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasinteger_testasinteger3_d1dff7e5bb6c4e0191e64cd0294206c7() {
+ assertEval("argv <- list(c(-Inf, -8.5, -2.83333333333333, -1.41666666666667, -0.85, -0.566666666666666, -0.404761904761905, -0.303571428571428, -0.236111111111111, -0.188888888888889));as.integer(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasinteger_testasinteger7_9e449efb52d7355d0d205d0c066c6d01() {
+ assertEval("argv <- list(NULL);as.integer(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector1_6eb97db791064648aa3ddea1d8913575() {
+ assertEval("argv <- list('ylog', 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector10_0fc92c428aac97c21e89922b5ab5fc2a() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render', '#ifdef', '\\Sexpr', 'build', 'install', 'render')), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector11_d827720825cadd44936157d0200afa8a() {
+ assertEval("argv <- list(structure(c(0.00290239468554411, 0.00140705152597282, 0.00182415100508824, 0.000171517300342798, 0.0747454613066297, 0.00103234723292905, 0.000179983318697139, 0.035258608446556, 0.00336847595628205, 0.0640696486471418, 0.0132108002751951, 0.00194778778741288, 0.00351950115137134, 0.00070046832029645, 0.00252844357734999, 0.014372012195495, 0.00923422554274329, 7.64817786749709e-06, 0.00387339857745524, 0.00121246491006704, 0.00624917129689857, 0.00187753034805145, 0.000103002251547081, 0.0136703020254034, 0.000349542811339765, 0.00120367047056318, 0.00194205014408536, 0.00462815827742801, 0.000149291834133955, 0.00193441236645678, 9.00084520363788e-05, 0.0160915134527436, 0.00346675958538611, 0.00481936427422656, 3.13343033856204e-05, 0.0564685345533007, 0.00929771993193244, 0.0103876340982415, 0.0133005891226512, 0.0325989357511189, 0.00228122925969392, 0.0460976655088242, 0.00300363745967821, 0.000271060875811077, 0.0301696315261026, 4.72002631048228e-05, 0.0262321004865233, 0.00594174673473013, 0.00288915040856096, 0.00635277836091399, 0.00569342819072193, 0.0163907345734163, 0.000360581939026215, 0.00023772587191537, 0.0164062036225435, 0.0238391417439454, NaN, 0.0421542087325977, 0.00133954856768466, 0.0113421570571088, 0.0081824228772913, 0.000149291834133955, 0.00162069399881579, 0.0018026229128858, 0.0043164627226381, 0.000407784303899559, 0.00876301280354452, 0.00179253664026376, 0.000416739394150718, 0.014372012195495, 0.000179983318697139, 0.00115986529332945, 0.00377736311314377, 0.00219491136307178, 0.00070046832029645, 0.000522557531637993, 9.86336244510646e-05, 0.0216346027446621, 0.000659639144027202, 0.0137501462695058, 5.91425796335962e-08, 0.0279425064631674, 0.000170828237014775, 0.0042454690355613, 0.0114879015536739, 0.000173346990819198, 0.00138111062254461, 0.00772582941114727, 0.0277947034678616, 0.00892024547056825, 0.0618577709874562, 0.0125790610228498, 0.0277947034678616), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93')), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector12_8c045543b2c27854107e4c12f57d7721() {
+ assertEval("argv <- list(structure(c(0.164593338447767, 0.182090654313858, NA, 0.484947927602608), .Names = c('(Intercept)', 'x1', 'x2', 'x3')), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector13_6e7b2cdcf0c9e1f08df457ed8da0e8ad() {
+ assertEval("argv <- list('', 'double'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector14_4022388d9ee34b35dc4cc07a6f404e35() {
+ assertEval("argv <- list(structure(c('myTst', 'Package', 'What the package does (short line)', '1.0', '2014-03-17', 'Who wrote it', 'Who to complain to <yourfault@somewhere.net>', 'More about what it does (maybe more than one line)', 'What license is it under?', 'methods'), .Names = c('Package', 'Type', 'Title', 'Version', 'Date', 'Author', 'Maintainer', 'Description', 'License', 'Depends')), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector15_641808a599c15d882621332b563c020b() {
+ assertEval("argv <- list(quote(sqrt(abs(`Standardized residuals`))), 'expression'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector16_38dd9022074f812abbf876d00b70ac6f() {
+ assertEval("argv <- list(1, 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector17_bce9cbaab33ec90e3982ca66cb3d44cf() {
+ assertEval("argv <- list(quote(list(X[[2L]])), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector18_68aec88466f314cf128c4b6d90509e48() {
+ assertEval("argv <- list(NA, 'logical'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector19_f43e9760a94a58c683196032eac74b60() {
+ assertEval("argv <- list(NULL, 'double'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector2_1c58eef4103f7807e22a56957e97c571() {
+ assertEval("argv <- list(structure(character(0), package = character(0), class = structure('ObjectsWithPackage', package = 'methods')), 'character'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector20_f05fa7e354e24d68f1be267ef2a34300() {
+ assertEval("argv <- list(quote(list(x = c(1, 1, 1, 1, 1, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 11, 12), y = c(73, 73, 70, 74, 75, 115, 105, 107, 124, 107, 116, 125, 102, 144, 178, 149, 177, 124, 157, 128, 169, 165, 186, 152, 181, 139, 173, 151, 138, 181, 152, 188, 173, 196, 180, 171, 188, 174, 198, 172, 176, 162, 188, 182, 182, 141, 191, 190, 159, 170, 163, 197), weight = c(1, rep(0.1, 51)))), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector21_02e138c727ac2284c29f7c70e86a3c53() {
+ assertEval("argv <- list(NULL, 'integer'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector22_e9af305dace4ba5bc12445ad28babd2b() {
+ assertEval("argv <- list(quote(list(ff <- factor(c(1:2, NA, 2), exclude = NULL))), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector23_69e3566cb8ac3cb8973858822c4e853d() {
+ assertEval("argv <- list(c(-1, 3, 1, 1, 5, 1), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector24_5cdc1fcda32283ce36a502b78d38340d() {
+ assertEval("argv <- list(quote(list(y, x1, x2)), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector25_53f65c13af95098541e96e79952cf6f7() {
+ assertEval("argv <- list(structure(c(0.005, 50, 550), .Names = c('k', 'g1', 'g2')), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector26_d932b18bb745eb7bb3be830cd113dee8() {
+ assertEval("argv <- list(quote(list(V1 = c('a', 'd e', 'h'), V2 = c('b'', 'f', 'i'), V3 = c('c', 'g', 'j\nk l m'))), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector27_969430d539bc517c7feaf08be0cd11e6() {
+ assertEval("argv <- list(NA, 'integer'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector28_9733605b0aff3cd718b2cba7a04819ad() {
+ assertEval("argv <- list(c(NA, NaN), 'character'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector29_0b61a2dd41ea5b282f9596b916e435c6() {
+ assertEval("argv <- list(c(NA, NaN), 'integer'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector3_7b639093518aafa976e5da469a309b55() {
+ assertEval("argv <- list(quote(list(ya, x[rep.int(NA_integer_, nyy), nm.x, drop = FALSE])), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector30_148f0bdece4c46d21a45243cfb1720b3() {
+ assertEval("argv <- list(list('a', 'b', 'c'), 'pairlist'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector31_96a7c70d636f9588595c2abd058cb032() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4, .Dimnames = list(c('A', 'B', 'C'), c('D', 'E', 'F', 'G'))), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector32_a21d54f394149e88a72b425a3c0d3e13() {
+ assertEval("argv <- list(quote(list(x = c(2:3, NA), y = c(3:4, NA))), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector33_7f02cce69ded51871ea4562243a768b3() {
+ assertEval("argv <- list(quote(list(cut(Dtimes, '3 months'))), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector34_1287610a4c12b378637c199615a813ea() {
+ assertEval("argv <- list(quote(list(a = I('abc'), b = I('def\'gh'))), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector35_bad463b7583ef0fb9a4c4165281adf20() {
+ assertEval("argv <- list(structure(list(a = 1), .Names = 'a'), 'double'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector36_e54a44e0e1fb2ab67543ab4e6beb0dda() {
+ assertEval("argv <- list(structure(c(0, 0.0123079727211562, 0.00970882237374837, 0.62883302403078, 0.689843718945119, 0.689843718944881, 0.672453157851573, 0.534493702379921, 0.171039529097608, 0.17103952909345, 0.50219835346871, 0.530975095958163, 0.0050966004562048, 0.0106639382954144, 0.811192712625201, 0.0957932531337699), .Names = c('(Intercept)', 'M.userY', 'TempHigh', 'M.userY:TempHigh', 'SoftMedium', 'SoftSoft', 'M.userY:SoftMedium', 'M.userY:SoftSoft', 'TempHigh:SoftMedium', 'TempHigh:SoftSoft', 'M.userY:TempHigh:SoftMedium', 'M.userY:TempHigh:SoftSoft', 'BrandM', 'M.userY:BrandM', 'TempHigh:BrandM', 'M.userY:TempHigh:BrandM')), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector37_66d000b2ee4b760692b42fc6e776b031() {
+ assertEval("argv <- list(c(-2, -1.95959595959596, -1.91919191919192, -1.87878787878788, -1.83838383838384, -1.7979797979798, -1.75757575757576, -1.71717171717172, -1.67676767676768, -1.63636363636364, -1.5959595959596, -1.55555555555556, -1.51515151515152, -1.47474747474747, -1.43434343434343, -1.39393939393939, -1.35353535353535, -1.31313131313131, -1.27272727272727, -1.23232323232323, -1.19191919191919, -1.15151515151515, -1.11111111111111, -1.07070707070707, -1.03030303030303, -0.98989898989899, -0.949494949494949, -0.909090909090909, -0.868686868686869, -0.828282828282828, -0.787878787878788, -0.747474747474747, -0.707070707070707, -0.666666666666667, -0.626262626262626, -0.585858585858586, -0.545454545454545, -0.505050505050505, -0.464646464646465, -0.424242424242424, -0.383838383838384, -0.343434343434343, -0.303030303030303, -0.262626262626263, -0.222222222222222, -0.181818181818182, -0.141414141414141, -0.101010101010101, -0.0606060606060606, -0.0202020202020201, 0.0202020202020203, 0.060606060606061, 0.101010101010101, 0.141414141414141, 0.181818181818182, 0.222222222222222, 0.262626262626263, 0.303030303030303, 0.343434343434343, 0.383838383838384, 0.424242424242424, 0.464646464646465, 0.505050505050505, 0.545454545454546, 0.585858585858586, 0.626262626262626, 0.666666666666667, 0.707070707070707, 0.747474747474748, 0.787878787878788, 0.828282828282829, 0.868686868686869, 0.909090909090909, 0.94949494949495, 0.98989898989899, 1.03030303030303, 1.07070707070707, 1.11111111111111, 1.15151515151515, 1.19191919191919, 1.23232323232323, 1.27272727272727, 1.31313131313131, 1.35353535353535, 1.39393939393939, 1.43434343434343, 1.47474747474747, 1.51515151515152, 1.55555555555556, 1.5959595959596, 1.63636363636364, 1.67676767676768, 1.71717171717172, 1.75757575757576, 1.7979797979798, 1.83838383838384, 1.87878787878788, 1.91919191919192, 1.95959595959596, 2), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector38_7aaa2111f301458b947f5f450287e0ae() {
+ assertEval("argv <- list(integer(0), 'pairlist'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector39_b3ad0403d18d614374f90f68040f352a() {
+ assertEval("argv <- list(structure('lightblue', .Names = 'bg'), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector4_940e4f58ea71be465ddf4fb01f636ab6() {
+ assertEval("argv <- list(NA_character_, 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector40_54eb0c6e97d2cacbe99e0af5d062ddc3() {
+ assertEval("argv <- list(c(NA, NaN), 'logical'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector41_4f49b0ae20115ed8d685c3d0265a7d0e() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'character(0)', row.names = character(0), class = 'data.frame'), 'pairlist'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector42_d3e632bb94b088e676d3ac8136508336() {
+ assertEval("argv <- list(NA, 'double'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector43_92a9d1327d200ede7313eb484607b72d() {
+ assertEval("argv <- list(list('GRID.VP.12'), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector44_9283e342c57c7060c14e47b1c11a79d7() {
+ assertEval("argv <- list(NULL, 'logical'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector45_1d7987070272b9d072c0ef406d5adea8() {
+ assertEval("argv <- list(structure(1:20, .Tsp = c(1, 20, 1), class = 'ts'), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector47_0e424a3b072d8ed4d28e86484131c778() {
+ assertEval("argv <- list(structure(c(0.1, 0.8, 1, 0.5, 0.8, 1, 0, 0.5, 1), .Dim = c(3L, 3L), .Dimnames = list(c('(3.59,4.5]', '(4.5,5.4]', '(5.4,6.31]'), c('ctrl', 'trt1', 'trt2'))), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector48_31dfc011fe7d3700ecda3e636a41e697() {
+ assertEval("argv <- list(integer(0), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector49_99dc571063da15ba4a58ca35ec97d1f3() {
+ assertEval("argv <- list(structure(c(1L, 1L), .Label = 'registered S3method for $', class = 'factor'), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector5_6d566c7b1dd7159a7bb04b7fefe16017() {
+ assertEval("argv <- list(structure(NA_integer_, .Label = c('Australia', 'UK', 'US'), class = 'factor'), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector50_a6fe38d94c1c662bac7214b53af52c2e() {
+ assertEval("argv <- list('1.3', 'double'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector51_a366816320be8412865ca8de315759d6() {
+ assertEval("argv <- list(c(8L, 11L, 14L, 16L, 19L, 4L, 6L, 9L, 15L, NA, 7L, 10L, 20L), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector52_8054ead9a6d6b3bd61e8e2db369f50eb() {
+ assertEval("argv <- list(structure(c(5.4278733372119e-07, 0.000257866433233453, NA), .Names = c('x', 'm', 'Residuals')), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector53_d69fd12a90e8e09f1c201c45d26054e6() {
+ assertEval("argv <- list('1.3', 'pairlist'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector54_c4f9125801103a20de2ccf57a275b64b() {
+ assertEval("argv <- list(1L, 'pairlist'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector55_4667174f615debc01d28cb91e017152c() {
+ assertEval("argv <- list(NULL, 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector56_ff7eee66728f5134d1531ae9e5151258() {
+ assertEval("argv <- list(quote(list(expand.grid(Hair = lab$Hair, Eye = lab$Eye, Sex = lab$Sex, stringsAsFactors = TRUE), Fr = as.vector(HairEyeColor))), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector57_74bb53e8b04fa97bfe2d982e1e8feee8() {
+ assertEval("argv <- list(FALSE, 'pairlist'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector59_9511156e20adbcb6e12a269c51acf406() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'character(0)', row.names = character(0), class = 'data.frame'), 'character'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector6_5c207f02b985422e1ff0f8f2ace0a1fa() {
+ assertEval("argv <- list(structure(list(a1 = 1:3, a2 = 4:6, a3 = 3.14159265358979, a4 = c('a', 'b', 'c')), .Names = c('a1', 'a2', 'a3', 'a4')), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector60_434430ee49ebd64f992ffda10a16e064() {
+ assertEval("argv <- list(1L, 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector61_5ecc3f9ed1b85fcffdd2b0eaf9ab523f() {
+ assertEval("argv <- list(c('The C and R code has been reformatted for legibility.', 'The old compatibility function rpconvert() has been removed.', 'The cross-validation functions allow for user interrupt at the end\nof evaluating each split.', 'Variable Reliability in data set car90 is corrected to be an\nordered factor, as documented.', 'Surrogate splits are now considered only if they send two or more\ncases _with non-zero weight_ each way. For numeric/ordinal\nvariables the restriction to non-zero weights is new: for\ncategorical variables this is a new restriction.', 'Surrogate splits which improve only by rounding error over the\ndefault split are no longer returned. Where weights and missing\nvalues are present, the splits component for some of these was not\nreturned correctly.', 'A fit of class \'rpart\' now contains a component for variable\n‘importance’, which is reported by the summary() method.', 'The text() method gains a minlength argument, like the labels()\nmethod. This adds finer control: the default remains pretty =\nNULL, minlength = 1L.', 'The handling of fits with zero and fractional weights has been\ncorrected: the results may be slightly different (or even\nsubstantially different when the proportion of zero weights is\nlarge).', 'Some memory leaks have been plugged.', 'There is a second vignette, longintro.Rnw, a version of the\noriginal Mayo Tecnical Report on rpart.', 'Added dataset car90, a corrected version of the S-PLUS dataset\ncar.all (used with permission).', 'This version does not use paste0{} and so works with R 2.14.x.', 'Merged in a set of Splus code changes that had accumulated at Mayo\nover the course of a decade. The primary one is a change in how\nindexing is done in the underlying C code, which leads to a major\nspeed increase for large data sets. Essentially, for the lower\nleaves all our time used to be eaten up by bookkeeping, and this\nwas replaced by a different approach. The primary routine also\nuses .Call{} so as to be more memory efficient.', 'The other major change was an error for asymmetric loss matrices,\nprompted by a user query. With L=loss asymmetric, the altered\npriors were computed incorrectly - they were using L' instead of L.\nUpshot - the tree would not not necessarily choose optimal splits\nfor the given loss matrix. Once chosen, splits were evaluated\ncorrectly. The printed “improvement” values are of course the\nwrong ones as well. It is interesting that for my little test\ncase, with L quite asymmetric, the early splits in the tree are\nunchanged - a good split still looks good.', 'Add the return.all argument to xpred.rpart().', 'Added a set of formal tests, i.e., cases with known answers to\nwhich we can compare.', 'Add a usercode vignette, explaining how to add user defined\nsplitting functions.', 'The class method now also returns the node probability.', 'Add the stagec data set, used in some tests.', 'The plot.rpart routine needs to store a value that will be visible\nto the rpartco routine at a later time. This is now done in an\nenvironment in the namespace.', 'Force use of registered symbols in R >= 2.16.0', 'Update Polish translations.', 'Work on message formats.', 'Add Polish translations', 'rpart, rpart.matrix: allow backticks in formulae.', 'tests/backtick.R: regession test', 'src/xval.c: ensure unused code is not compiled in.', 'Change description of margin in ?plot.rpart as suggested by Bill\nVenables.'), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector63_8cfe187b3c710ba9e405c37af5d5825d() {
+ assertEval("argv <- list(2, 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector64_eed65ad16c886bf6e267c8cd02185c19() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector66_adb214adde85e83927d547331de5e0cd() {
+ assertEval("argv <- list(3.18309886183776e-301, 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector67_76929df5f8f314aff439af51175fb2c0() {
+ assertEval("argv <- list(quote(list(a = 1:3, b = letters[1:3])), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector68_2e3ecb8a7fad3ad42219fb4c3c515f1b() {
+ assertEval("argv <- list(NA, 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector69_0013804c7331698e824c0b96b8f4ea76() {
+ assertEval("argv <- list(c(200, 500, 1000, 2000, 5000, 10000, 20000, 50000, 1e+05, 2e+05, 5e+05), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector7_e28d9fbf78037c44d738f3d43d251045() {
+ assertEval("argv <- list(quote(list(ii = 1:10, xx = pi * -3:6)), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector70_61c460361f3764e904cc6b61551e05b6() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i), .Dim = c(5L, 5L)), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector71_9db988c90976aaa6a4b78d004a0bd5a5() {
+ assertEval("argv <- list(structure(c(2.2250738585072e-308, 1.79769313486232e+308), .Names = c('double.xmin', 'double.xmax')), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector72_fdae4e4aff642ddda6cf53a710312b63() {
+ assertEval("argv <- list(structure(1.6, class = 'object_size'), 'character'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector73_faf54fb5fd22ae70e95ee6c7d865dba7() {
+ assertEval("argv <- list(structure(NA_integer_, .Label = c('no', 'yes'), class = 'factor'), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector74_2396d18cb6c4e78082edadd5eeb8d5cd() {
+ assertEval("argv <- list(FALSE, 'character'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector75_8404b961cc1eef89fae8a8981a56db6b() {
+ assertEval("argv <- list(3.14159265358979, 'pairlist'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector76_82c4e8b63b58404186231e6e216abf15() {
+ assertEval("argv <- list(structure(list(c0 = structure(character(0), class = 'AsIs')), .Names = 'c0', row.names = character(0), class = 'data.frame'), 'character'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector77_b27cf581d306a8c0554aa3b25343464c() {
+ assertEval("argv <- list(structure(list(), .Dim = 0L), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector8_42df723da958cee355c79b31755bc315() {
+ assertEval("argv <- list(c(-1L, -2L), 'any'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector80_bf5b8d780adfa735092f285288f86e91() {
+ assertEval("argv <- list(structure('1', .Tsp = c(1, 1, 1), class = 'ts'), 'character'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector81_791159cf6f1ff1daba0c82380eb9822e() {
+ assertEval("argv <- list('diff', 'symbol'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinasvector_testasvector9_7676f2a631f4a36e921e0abfa4f463f7() {
+ assertEval("argv <- list(quote(list(x = 1:100, z = 1:100 + rnorm(100, 10))), 'list'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinatan_testatan1_859319dc80e97d602300e4b86640c26f() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100', '101', '102', '103', '104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', '115', '116', '117', '118', '119', '120', '121', '122', '123', '124', '125', '126', '127', '128', '129', '130', '131', '132', '133', '134', '135', '136', '137', '138', '139', '140', '141', '142', '143', '144', '145', '146', '147', '148', '149', '150', '151', '152', '153', '154', '155', '156', '157', '158', '159', '160', '161', '162', '163', '164', '165', '166', '167', '168', '169', '170', '171', '172', '173', '174', '175', '176', '177', '178', '179', '180', '181', '182', '183', '184', '185', '186', '187', '188', '189', '190', '191', '192', '193', '194', '195', '196', '197', '198', '199', '200', '201', '202', '203', '204', '205', '206', '207', '208', '209', '210', '211', '212', '213', '214', '215', '216', '217', '218', '219', '220', '221', '222', '223', '224', '225', '226', '227', '228')));atan(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinatan_testatan3_12cb5a85d0e92250b0e18fc3b3776819() {
+ assertEval("argv <- list(c(0+2i, 0.0001+2i, 0-2i, 0-2.0001i));atan(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinatan_testatan5_651c120ccad79f109880b18b818c9be0() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));atan(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinatan_testatan6_e949562583eb064fc97cceca512f8ed4() {
+ assertEval("argv <- list(-1.46941282670977e-16);atan(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinatan2_testatan21_ae2e63ba01b311a54346821d48b14d33() {
+ assertEval("argv <- list(structure(0.142857142857143, .Names = 'Var2'), structure(1.75510204081633, .Names = 'Var1')); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinatan2_testatan22_68106313fd1758e602266636ed644cf6() {
+ assertEval("argv <- list(structure(-0.224489795918367, .Names = 'Var2'), structure(-0.816326530612245, .Names = 'Var1')); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinatan2_testatan23_1691a85681428b29f2b8e93909606e43() {
+ assertEval("argv <- list(c(-1.95681154249341, -2.88854075894443, -2.84850921846233, -2.14635417317387, -1.72790445779804, -0.92649412488672, -0.261537463816701, 0.948205247045638, 1.0990096500205, 2.09024037060933, 2.90928417418961, 4.00425294069879, 1.70515935701163), c(-3.2406391957027, -2.61163262017643, -0.21977838696678, 1.24931893031091, 1.6032898858835, 2.16902716372255, 2.15792786802985, 2.10075226013806, 2.04989923648162, 1.49269068253165, 0.515893014329757, -2.61745072267338, -4.64929811590859)); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinatan2_testatan24_c446d53bd8c4c893f98362165043ce44() {
+ assertEval("argv <- list(0+1i, 0+0i); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinatan2_testatan25_e61d7a90cbac83910e9739b5f4bce322() {
+ assertEval("argv <- list(2.43782895752771e-05, 0.999996523206508); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinatan2_testatan26_2faa23c0efa0572ba47394d813dd43b3() {
+ assertEval("argv <- list(logical(0), logical(0)); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinatanh_testatanh1_b6e397b36295a6744d6d5a94d225288e() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));atanh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinatanh_testatanh2_2c9a509396fa6fd1bf0c79240856d8f7() {
+ assertEval("argv <- list(c(0.667355731370168, 0.757545006911892, 0.835315653735585, 0.984260691393257, 0.997724361757832, 0.998320334761744, 0.995857200407461, 0.978447456936914, 0.924289918318784, 0.794303899816803, 0.772144244057747, 0.886598050753707, 0.927287003572071, 0.862971883028345, 0.864426227271356, 0.927240697865085, 0.892356439729065, 0.753876685479294, 0.834371238466667, 0.856663357154979, 0.836217049107607, 0.820080611345367, 0.881122397467922, 0.964328668319385, 0.870112695225674, 0.897689370465451, 0.872889563044137, 0.716354206299899, 0.634385015212608, 0.77586178284932, 0.639202570327528, 0.710504816816848, 0.825388608284517, 0.812993921221196, 0.705406278672692, 0.577944207218662));atanh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinatanh_testatanh3_4d272f9885ca71b427cfa2ef95e1a057() {
+ assertEval("argv <- list(-0.133190890463189);atanh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinatanh_testatanh4_654a64df970645a5797c9f8d6ac2db07() {
+ assertEval("argv <- list(c(2+0i, 2-0.0001i, -2+0i, -2+0.0001i));atanh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr10_acf8f061727bb70d2da211edd7c1edcd() {
+ assertEval("argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c('Employed', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'), terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year), row.names = 1947:1962, class = 'data.frame'), 'terms');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr11_e0efaef4423810ebcfa8e87aceb80628() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0), .Dim = c(12L, 3L), .Dimnames = list(c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), c('(Intercept)', 'M.userY', 'TempLow')), assign = 0:2, contrasts = structure(list(M.user = 'contr.treatment', Temp = 'contr.treatment'), .Names = c('M.user', 'Temp'))), 'contrasts');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr13_89046959ae7c784cffcbd22083886607() {
+ assertEval("argv <- list(quote(cbind(X, M) ~ 1), 'term.labels');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr14_f2c4bd8ded4ad8b9bea31309ac90e32f() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor'), 'levels');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr17_23228c504a51c4f2373362d0208d59f4() {
+ assertEval("argv <- list(structure(c(0.5, 0.5, 0.5, 0.5), gradient = structure(c(NaN, NaN, NaN, NaN), .Dim = c(4L, 1L), .Dimnames = list(NULL, 'L75'))), 'gradient');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr20_7e3bce56da8d276dd0bba39ef696d0d5() {
+ assertEval("argv <- list(structure(c('[[.bibentry', '[[.data.frame', '[[.Date', '[[.dendrogram', '[[.factor', '[[.numeric_version', '[[.pdf_doc', '[[.person', '[[.POSIXct'), class = 'MethodsFunction', info = structure(list(visible = c(FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE), from = structure(c(9L, 2L, 2L, 9L, 2L, 2L, 9L, 9L, 2L), .Label = c('CheckExEnv', 'package:base', 'package:datasets', 'package:graphics', 'package:grDevices', 'package:methods', 'package:stats', 'package:utils', 'registered S3method for [['), class = 'factor')), .Names = c('visible', 'from'), row.names = c('[[.bibentry', '[[.data.frame', '[[.Date', '[[.dendrogram', '[[.factor', '[[.numeric_version', '[[.pdf_doc', '[[.person', '[[.POSIXct'), class = 'data.frame')), 'info');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr22_fac97e9b6b1519c4963ce01d2437a0b5() {
+ assertEval("argv <- list(structure(c(0, 3, 3, 0), .Dim = c(2L, 2L), counts = structure(c(0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 2L, 2L, 0L), .Dim = c(2L, 2L, 3L), .Dimnames = list(NULL, NULL, c('ins', 'del', 'sub'))), trafos = structure(c('MMMMMM', 'SMMMSMD', 'SMMMSMI', 'MMMMMMM'), .Dim = c(2L, 2L))), 'trafos');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr23_6c484ce28a8ca024d92e01f591414c95() {
+ assertEval("argv <- list(structure(list(y = c(73, 73, 70, 74, 75, 115, 105, 107, 124, 107, 116, 125, 102, 144, 178, 149, 177, 124, 157, 128, 169, 165, 186, 152, 181, 139, 173, 151, 138, 181, 152, 188, 173, 196, 180, 171, 188, 174, 198, 172, 176, 162, 188, 182, 182, 141, 191, 190, 159, 170, 163, 197), x = c(1, 1, 1, 1, 1, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 11, 12), Ta = 1, Tb = 12), .Names = c('y', 'x', 'Ta', 'Tb'), terms = quote(~y + x)), 'terms');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr24_d5d39bccda301a2077ee2742a6caed29() {
+ assertEval("argv <- list(structure(c(804.851443135267, 3.3994157758076, 28.3699038266834, 1.84375046462573), .Dim = c(2L, 2L), .Dimnames = list(c('(Intercept)', 'day'), c('Variance', 'StdDev')), formStr = 'pdLogChol(day)', corr = structure(c('(Intr)', '-0.555'), .Dim = c(2L, 1L), .Dimnames = list(c('(Intercept)', 'day'), 'Corr'))), which = 'corr');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr25_3d3e3a9a8bcf64b85fbaabfa62398a2b() {
+ assertEval("argv <- list(structure(c(0.0319339476375948, 0.0319339476375948, 0.114405269727263, 0.114405269727263, 0.211060625790557, 0.211060625790557, 0.375868556643391, 0.375868556643391, 0.631987388405009, 0.631987388405009, 0.977771587733117, 0.977771587733117, 1.3655287091085, 1.3655287091085, 1.71941659701549, 1.71941659701549), gradient = structure(c(0.013379193963099, 0.013379193963099, 0.0479317593757097, 0.0479317593757097, 0.0884269330704518, 0.0884269330704518, 0.157475623779182, 0.157475623779182, 0.264780350605592, 0.264780350605592, 0.409651693312349, 0.409651693312349, 0.572108204994814, 0.572108204994814, 0.720374706438093, 0.720374706438093, -0.0298119721009501, -0.0298119721009501, -0.103062799493893, -0.103062799493893, -0.182048260790464, -0.182048260790464, -0.299644491810901, -0.299644491810901, -0.439656344689613, -0.439656344689613, -0.546177195068236, -0.546177195068236, -0.552869486814534, -0.552869486814534, -0.454930857067767, -0.454930857067767), .Dim = c(16L, 2L), .Dimnames = list(NULL, c('Asym', 'xmid')))), 'gradient');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr27_8047d42ac10204661af2ed864b81fb39() {
+ assertEval("argv <- list(structure(list(structure(list(structure('Print a varFunc Object', Rd_tag = 'TEXT')), Rd_tag = '\\title'), structure(list(structure('print.varFunc', Rd_tag = 'VERB')), Rd_tag = '\\name'), structure(list(structure('print.varFunc', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('print.varComb', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('models', Rd_tag = 'TEXT')), Rd_tag = '\\keyword'), structure(list(structure('\n', Rd_tag = 'TEXT'), structure(' The class and the coefficients associated with ', Rd_tag = 'TEXT'), structure(list(structure('x', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(' are printed.\n', Rd_tag = 'TEXT')), Rd_tag = '\\description'), structure(list(structure('\n', Rd_tag = 'RCODE'), structure(list(list(structure('print', Rd_tag = 'TEXT')), list(structure('varFunc', Rd_tag = 'TEXT'))), Rd_tag = '\\method'), structure('(x, ', Rd_tag = 'RCODE'), structure(list(), Rd_tag = '\\dots'), structure(')\n', Rd_tag = 'RCODE')), Rd_tag = '\\usage'), structure(list(structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure('x', Rd_tag = 'TEXT')), list(structure('an object inheriting from class ', Rd_tag = 'TEXT'), structure(list(structure('varFunc', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure(', representing a\n', Rd_tag = 'TEXT'), structure(' variance function structure.', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure('\n', Rd_tag = 'TEXT'), structure(' ', Rd_tag = 'TEXT'), structure(list(list(structure(list(), Rd_tag = '\\dots')), list(structure('optional arguments passed to ', Rd_tag = 'TEXT'), structure(list(structure('print.default', Rd_tag = 'RCODE')), Rd_tag = '\\code'), structure('; see\n', Rd_tag = 'TEXT'), structure(' the documentation on that method function.', Rd_tag = 'TEXT'))), Rd_tag = '\\item'), structure('\n', Rd_tag = 'TEXT')), Rd_tag = '\\arguments'), structure(list(structure('Jos<U+00E9> Pinheiro and Douglas Bates ', Rd_tag = 'TEXT'), structure(list(structure('bates@stat.wisc.edu', Rd_tag = 'TEXT')), Rd_tag = '\\email')), Rd_tag = '\\author'), structure(list(structure(list( structure(list(structure('summary.varFunc', Rd_tag = 'TEXT')), Rd_tag = '\\link')), Rd_tag = '\\code')), Rd_tag = '\\seealso'), structure(list(structure('\n', Rd_tag = 'RCODE'), structure('vf1 <- varPower(0.3, form = ~age)\n', Rd_tag = 'RCODE'), structure('vf1 <- Initialize(vf1, Orthodont)\n', Rd_tag = 'RCODE'), structure('print(vf1)\n', Rd_tag = 'RCODE')), Rd_tag = '\\examples')), Rdfile = '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/man/print.varFunc.Rd', class = 'Rd', meta = structure(list( docType = character(0)), .Names = 'docType'), prepared = 3L), 'meta');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr28_26f8327ca16c924b0f515a72bbc03498() {
+ assertEval("argv <- list(structure(list(variable1 = c(1, 2, 2), variable2 = c(1, 1, 3)), .Names = c('variable1', 'variable2'), row.names = c(NA, -3L), class = 'data.frame', variable.labels = structure(c('variable1', 'variable2'), .Names = c('variable1', 'variable2')), codepage = 20127L), 'variable.labels');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr31_ce0ae9f124b7d41e2d09db2f5f16032b() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c('1', '2', NA), class = c('ordered', 'factor')), 'levels');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr32_812e0a38ea6db8eef66392b6b41b0392() {
+ assertEval("argv <- list(structure(1:10, date = structure(200171400, class = c('POSIXct', 'POSIXt'), tzone = ''), class = 'stamped'), 'date');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr33_dd71b0c6a4afc978f0636908363b1fd5() {
+ assertEval("argv <- list(structure(c(49.9, 52.3, 49.4, 51.1, 49.4, 47.9, 49.8, 50.9, 49.3, 51.9, 50.8, 49.6, 49.3, 50.6, 48.4, 50.7, 50.9, 50.6, 51.5, 52.8, 51.8, 51.1, 49.8, 50.2, 50.4, 51.6, 51.8, 50.9, 48.8, 51.7, 51, 50.6, 51.7, 51.5, 52.1, 51.3, 51, 54, 51.4, 52.7, 53.1, 54.6, 52, 52, 50.9, 52.6, 50.2, 52.6, 51.6, 51.9, 50.5, 50.9, 51.7), .Tsp = c(1, 53, 1)), 'tsp');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr40_d7646c4b3d85a96ee8173efc064ddfa9() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.0519265581680438, 0.0688412118115477, 0.0907383424760159, 0.11871257874736, 0.153851867351129, 0.197066627437879, 0.248849916275927, 0.309003712276245, 0.376411716520019, 0.448970177554117, 0.523767544415284, 0.560977234455458), .Dim = c(12L, 2L), gradient = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.00738389705040961, -0.00961449255414965, -0.0123746759217436, -0.0156916432890164, -0.0195255505224529, -0.0237326760503604, -0.0280361473696848, -0.032025323792521, -0.035205879677649, -0.0371062207595128, -0.0374120660881388, -0.0369391076611127, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.142994094104604, 0.166962078687643, 0.190145150639427, 0.209729276540067, 0.221920901693929, 0.222272332097609, 0.206504915766748, 0.17183720786829, 0.11849125053358, 0.0506747206505475, -0.0237317230350864, -0.0603708169587119), .Dim = c(12L, 2L, 2L))), 'gradient');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr43_ff60f9ec231b32bf4671907e2241564d() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Dim = c(10L, 2L), .Dimnames = list(NULL, c('tt', 'tt + 1')), .Tsp = c(1920.5, 1921.25, 12), class = c('mts', 'ts', 'matrix')), 'tsp');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr44_0f33471db81e18094b7c6b6c54a26198() {
+ assertEval("argv <- list(structure(c(2L, NA, NA, 4L, 3L, 2L, 1L, 5L, 5L, 6L), .Label = c('NA', 'a', 'b', 'c', 'd', NA), class = 'factor'), 'levels');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr5_ae75e342a79dc0f8c76efbfeadc5b247() {
+ assertEval("argv <- list(structure(list(title = structure(1L, .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(2L, .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('title', 'other.author'), row.names = 1L, class = 'data.frame'), 'row.names');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattr_testattr8_9eba0a5cb6d4ad7791f92bc24a39d8f3() {
+ assertEval("argv <- list(structure(c(72.8922646699554, 72.8922646699554, 72.8922646699554, 72.8922646699554, 72.8922646699554, 99.6344113579063, 99.6344113579063, 122.561298550713, 122.561298550713, 122.561298550713, 122.561298550713, 122.561298550713, 122.561298550713, 140.590935258431, 140.590935258431, 140.590935258431, 153.976908924618, 153.976908924618, 153.976908924618, 153.976908924618, 163.542360717164, 163.542360717164, 163.542360717164, 163.542360717164, 163.542360717164, 163.542360717164, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 177.863643456281, 177.863643456281, 177.863643456281, 177.863643456281, 177.863643456281, 181.334266157228, 182.262171017221), gradient = structure(c(0, 0, 0, 0, 0, 57.4245712142609, 57.4245712142609, 92.0663000396056, 92.0663000396056, 92.0663000396056, 92.0663000396056, 92.0663000396056, 92.0663000396056, 102.603355837019, 102.603355837019, 102.603355837019, 96.1864486469068, 96.1864486469068, 96.1864486469068, 96.1864486469068, 80.9127637202515, 80.9127637202515, 80.9127637202515, 80.9127637202515, 80.9127637202515, 80.9127637202515, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 29.9327435335998, 29.9327435335998, 29.9327435335998, 29.9327435335998, 29.9327435335998, 7.54853144661603, 0, 0.999999995832131, 0.999999995832131, 0.999999995832131, 0.999999995832131, 0.999999995832131, 0.900752404767751, 0.900752404767751, 0.72805882604922, 0.72805882604922, 0.72805882604922, 0.72805882604922, 0.72805882604922, 0.72805882604922, 0.546325339398677, 0.546325339398677, 0.546325339398677, 0.388712482407919, 0.388712482407919, 0.388712482407919, 0.388712482407919, 0.265313345750221, 0.265313345750221, 0.265313345750221, 0.265313345750221, 0.265313345750221, 0.265313345750221, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.0650421524858363, 0.0650421524858363, 0.0650421524858363, 0.0650421524858363, 0.0650421524858363, 0.0138547080588812, -2.61666809427403e-08, 0, 0, 0, 0, 0, 0.186415683651876, 0.186415683651876, 0.381271875735367, 0.381271875735367, 0.381271875735367, 0.381271875735367, 0.381271875735367, 0.381271875735367, 0.552874143045278, 0.552874143045278, 0.552874143045278, 0.689351882872836, 0.689351882872836, 0.689351882872836, 0.689351882872836, 0.791184856858009, 0.791184856858009, 0.791184856858009, 0.791184856858009, 0.791184856858009, 0.791184856858009, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.949854646587551, 0.949854646587551, 0.949854646587551, 0.949854646587551, 0.949854646587551, 0.989368022459573, 0.999999988297389), .Dim = c(52L, 3L))), 'gradient');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattrassign_testattrassign1_04d2ca7126ca8b16489fda461b4053f0() {
+ assertEval("argv <- list(structure(1, foo = structure(list(a = 'a'), .Names = 'a')), 'foo', value = structure(list(a = 'a'), .Names = 'a'));`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattrassign_testattrassign10_ea8fa32ae9b5f46cc52903a11c737421() {
+ assertEval("argv <- list(structure(list(a = 1:3, b = structure(1:3, .Label = c('a', 'b', 'c'), class = 'factor')), .Names = c('a', 'b'), row.names = c(NA, -3L), class = 'data.frame', foo = 10), 'foo', value = 10);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattrassign_testattrassign11_7f441a46a01ebba5aa1acb7d3c4ee512() {
+ assertEval("argv <- list(structure(c(50.566057038188, 50.566057038188, 102.811023011144, 102.811023011144, 134.361651733496, 134.361651733496, 164.684698598908, 164.684698598908, 190.832887571642, 190.832887571642, 200.968775266774, 200.968775266774), gradient = structure(c(0.237752464043283, 0.237752464043283, 0.483398854556726, 0.483398854556726, 0.631744210319564, 0.631744210319564, 0.774317697987532, 0.774317697987532, 0.897261758147131, 0.897261758147131, 0.944918870762493, 0.944918870762493, -601.11023288912, -601.11023288912, -828.312179323201, -828.312179323201, -771.656323378267, -771.656323378267, -579.628530513078, -579.628530513078, -305.762593240759, -305.762593240759, -172.635625621456, -172.635625621456), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('Vm', 'K')))), 'gradient', value = structure(c(0.237752464043283, 0.237752464043283, 0.483398854556726, 0.483398854556726, 0.631744210319564, 0.631744210319564, 0.774317697987532, 0.774317697987532, 0.897261758147131, 0.897261758147131, 0.944918870762493, 0.944918870762493, -601.11023288912, -601.11023288912, -828.312179323201, -828.312179323201, -771.656323378267, -771.656323378267, -579.628530513078, -579.628530513078, -305.762593240759, -305.762593240759, -172.635625621456, -172.635625621456), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('Vm', 'K'))));`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattrassign_testattrassign12_eebb5dc99978390f979913f24736360e() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 20L)), 'dimnames', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattrassign_testattrassign13_161227039b81862755943625a1ee3a7d() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(19L, 22L)), 'dimnames', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattrassign_testattrassign14_5d3a70529bb7c719fd0ba7d907306e43() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 20L)), 'dimnames', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattrassign_testattrassign15_e7a94642f8935e6167fccae31b9ee078() {
+ assertEval("argv <- list(structure(c('8189464 kB', '52252 kB', '237240 kB', '6704452 kB', '5868 kB', '3947300 kB', '3641700 kB', '521488 kB', '126264 kB', '3425812 kB', '3515436 kB', '0 kB', '0 kB', '20603324 kB', '20546156 kB', '1964 kB', '0 kB', '645292 kB', '12420 kB', '76 kB', '343696 kB', '303404 kB', '40292 kB', '2344 kB', '8464 kB', '0 kB', '0 kB', '0 kB', '24698056 kB', '1053308 kB', '34359738367 kB', '301080 kB', '34359386948 kB', '0 kB', '0', '0', '0', '0', '2048 kB', '7488 kB', '8376320 kB'), .Names = c('MemTotal', 'MemFree', 'Buffers', 'Cached', 'SwapCached', 'Active', 'Inactive', 'Active(anon)', 'Inactive(anon)', 'Active(file)', 'Inactive(file)', 'Unevictable', 'Mlocked', 'SwapTotal', 'SwapFree', 'Dirty', 'Writeback', 'AnonPages', 'Mapped', 'Shmem', 'Slab', 'SReclaimable', 'SUnreclaim', 'KernelStack', 'PageTables', 'NFS_Unstable', 'Bounce', 'WritebackTmp', 'CommitLimit', 'Committed_AS', 'VmallocTotal', 'VmallocUsed', 'VmallocChunk', 'HardwareCorrupted', 'HugePages_Total', 'HugePages_Free', 'HugePages_Rsvd', 'HugePages_Surp', 'Hugepagesize', 'DirectMap4k', 'DirectMap2M'), Name = '/proc/meminfo'), 'Name', value = '/proc/meminfo');`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattrassign_testattrassign16_48ce7a0a9b50187eae4cada4d3353f3a() {
+ assertEval("argv <- list(structure(c(0, -187, -34, 0, 165, 0, -95, 121, 107, 0, 41, 0, 0, 93, 0), .Dim = c(5L, 3L)), 'dimnames', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattrassign_testattrassign2_abd86ae29ccfc9b40b4737b8e494dfa8() {
+ assertEval("argv <- list(structure(c(-99, 123, 0, -27, 0, 136, 3.5527136788005e-14, 0, -89, -59, 54.9999999999999, -260, 30, 47, 0), .Dim = c(5L, 3L)), 'dimnames', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattrassign_testattrassign3_1a9c2fe875d816a85f2166d16f0fa5b6() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, NA, 1, 0, 0, 0, 7, 1, 0, 3, 0, 0, 1), .Dim = c(4L, 4L)), 'dimnames', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattrassign_testattrassign4_b98acf7c3923b80e14228ab644b0a8cc() {
+ assertEval("argv <- list(structure(c(51.4483279898675, 51.4483279898675, 103.874299440142, 103.874299440142, 135.181084465022, 135.181084465022, 165.022949241512, 165.022949241512, 190.564205234787, 190.564205234787, 200.417426252912, 200.417426252912), gradient = structure(c(0.242941154845256, 0.242941154845256, 0.490498782967253, 0.490498782967253, 0.638330730196604, 0.638330730196604, 0.779245262792577, 0.779245262792577, 0.899852140987463, 0.899852140987463, 0.946379462411014, 0.946379462411014, -624.945810835795, -624.945810835795, -849.17029094943, -849.17029094943, -784.456730502965, -784.456730502965, -584.515233856856, -584.515233856856, -306.213585850174, -306.213585850174, -172.428123740936, -172.428123740936), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('Vm', 'K'))), hessian = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2.95102023587733, -2.95102023587733, -4.00981760153928, -4.00981760153928, -3.70423746466663, -3.70423746466663, -2.76010536174851, -2.76010536174851, -1.44595334935665, -1.44595334935665, -0.814212806248508, -0.814212806248508, -2.95102023587733, -2.95102023587733, -4.00981760153928, -4.00981760153928, -3.70423746466663, -3.70423746466663, -2.76010536174851, -2.76010536174851, -1.44595334935665, -1.44595334935665, -0.814212806248508, -0.814212806248508, 15182.5057000153, 15182.5057000153, 13883.8998080881, 13883.8998080881, 9104.41522890179, 9104.41522890179, 4140.73388193682, 4140.73388193682, 984.096252952598, 984.096252952598, 296.69533645543, 296.69533645543), .Dim = c(12L, 2L, 2L), .Dimnames = list(NULL, c('Vm', 'K'), c('Vm', 'K')))), 'hessian', value = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2.95102023587733, -2.95102023587733, -4.00981760153928, -4.00981760153928, -3.70423746466663, -3.70423746466663, -2.76010536174851, -2.76010536174851, -1.44595334935665, -1.44595334935665, -0.814212806248508, -0.814212806248508, -2.95102023587733, -2.95102023587733, -4.00981760153928, -4.00981760153928, -3.70423746466663, -3.70423746466663, -2.76010536174851, -2.76010536174851, -1.44595334935665, -1.44595334935665, -0.814212806248508, -0.814212806248508, 15182.5057000153, 15182.5057000153, 13883.8998080881, 13883.8998080881, 9104.41522890179, 9104.41522890179, 4140.73388193682, 4140.73388193682, 984.096252952598, 984.096252952598, 296.69533645543, 296.69533645543), .Dim = c(12L, 2L, 2L), .Dimnames = list(NULL, c('Vm', 'K'), c('Vm', 'K'))));`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattrassign_testattrassign5_ea7b8da877cef1d0bb9be5bbed138167() {
+ assertEval("argv <- list(structure(c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = 3:4), 'dimnames', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattrassign_testattrassign6_a42c0b9527192cfdaa1d529d11fbcda1() {
+ assertEval("argv <- list(structure(c('o', 'p', 'v', 'i', 'r', 'w', 'b', 'm', 'f', 's'), date = structure(1224086400, class = c('POSIXct', 'POSIXt'), tzone = '')), 'date', value = structure(1224086400, class = c('POSIXct', 'POSIXt'), tzone = ''));`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattrassign_testattrassign7_bd847e61e37d7f5dcfbd609c2cec37e4() {
+ assertEval("argv <- list(structure(list(structure(list(structure(13L, label = 'Illinois', members = 1L, height = 0, leaf = TRUE), structure(32L, label = 'New York', members = 1L, height = 0, leaf = TRUE)), members = 2L, midpoint = 0.5, height = 6.23698645180507), structure(list(structure(22L, label = 'Michigan', members = 1L, height = 0, leaf = TRUE), structure(28L, label = 'Nevada', members = 1L, height = 0, leaf = TRUE)), members = 2L, midpoint = 0.5, height = 13.2973681606549)), members = 4L, midpoint = 1.5, height = 18.4173313943456, class = 'dendrogram', edgePar = structure(list( p.col = 'plum'), .Names = 'p.col'), edgetext = '4 members'), 'edgetext', value = '4 members');`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattrassign_testattrassign8_7f59cde2ae97f9157ae509f2c9eeba78() {
+ assertEval("argv <- list(structure(4, '`Object created`' = 'Sat Dec 7 00:26:20 2013'), 'Object created', value = 'Sat Dec 7 00:26:20 2013');`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattrassign_testattrassign9_c350d08c3f819e62094d9790f710eb94() {
+ assertEval("argv <- list(structure(1:3, .Names = c('a', 'b', 'c')), 'names', value = list('a', 'b', 'c'));`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes1_543e183665b9265ca82b36475781b18f() {
+ assertEval("argv <- list(structure(c(5.79821692617331, 1.82341879820553, 2.78390295547843, 5.76851897647876, 1.96728131351224, 1.64012180629841, 0.76150764829566, 8.78324957466388, 0.711713280005232, 0.0432245134694077, 0.484038236738706, 2.2604286525194), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes10_83450759c0d30e3aad0c208bf50bef19() {
+ assertEval("argv <- list(structure(list(zi.si. = c(-2.73014251717135, -2.16787987308811, -1.61026765290054, -1.06093652746977, -0.523224065200069, 0, 0.506450782357207, 0.994479058519472, 1.46306067722175, 1.91173866627745, 2.34053598638487, 2.74985599456053)), .Names = 'zi.si.', row.names = c(NA, -12L), class = 'data.frame'));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes11_ce8131cc90c422c0b246f4d9189e67ef() {
+ assertEval("argv <- list(structure(c(4L, 5L, 1L, 5L, 3L, 4L, 5L, 3L, 2L, 4L), .Label = c('a', 'c', 'i', 's', 't'), class = 'factor', contrasts = structure(c(1, 0, 0, 0, -1, 0, 1, 0, 0, -1, -0.247125681008604, -0.247125681008604, -0.149872105789645, 0.891249148815458, -0.247125681008604, 0.268816352031209, 0.268816352031209, -0.881781351530059, 0.0753322954364324, 0.268816352031209), .Dim = c(5L, 4L), .Dimnames = list(c('a', 'c', 'i', 's', 't'), NULL))));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes12_5e42d6b658bd9e762e38c93cd90c45f1() {
+ assertEval("argv <- list(structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes14_3240dfa329b15a375585e5317272aa1b() {
+ assertEval("argv <- list(structure(list(a_string = c('foo', 'bar'), a_bool = FALSE, a_struct = structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = 'foo'), .Names = c('a', 'b', 'c')), a_cell = structure(list(1, 'foo', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'bar'), .Dim = c(2L, 2L)), a_complex_scalar = 0+1i, a_list = list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'foo'), a_complex_matrix = structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), a_range = c(1, 2, 3, 4, 5), a_scalar = 1, a_complex_3_d_array = structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), a_3_d_array = structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), a_matrix = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), a_bool_matrix = structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))), .Names = c('a_string', 'a_bool', 'a_struct', 'a_cell', 'a_complex_scalar', 'a_list', 'a_complex_matrix', 'a_range', 'a_scalar', 'a_complex_3_d_array', 'a_3_d_array', 'a_matrix', 'a_bool_matrix')));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes15_0b0f228a0f510416c5c8798caf630428() {
+ assertEval("argv <- list(structure(c(1L, NA, 3L), .Label = c('1', '2', NA)));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes16_e5a457258bf54c3f1a74d0709c0dd52a() {
+ assertEval("argv <- list(structure(1, .Dim = c(1L, 1L), a = c(NA, 3, -1, 2), class = structure('B', package = '.GlobalEnv')));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes17_2b12f8bdfb0c14648d94300866f8f130() {
+ assertEval("argv <- list(structure(list(L = structure(c('Min. :14.00 ', '1st Qu.:26.00 ', 'Median :29.50 ', 'Mean :36.39 ', '3rd Qu.:49.25 ', 'Max. :70.00 ', 'A:9 ', 'B:9 ', NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c('', '', '', '', '', ''), c(' breaks', 'wool')), class = 'table'), M = structure(c('Min. :12.00 ', '1st Qu.:18.25 ', 'Median :27.00 ', 'Mean :26.39 ', '3rd Qu.:33.75 ', 'Max. :42.00 ', 'A:9 ', 'B:9 ', NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c('', '', '', '', '', ''), c(' breaks', 'wool')), class = 'table'), H = structure(c('Min. :10.00 ', '1st Qu.:15.25 ', 'Median :20.50 ', 'Mean :21.67 ', '3rd Qu.:25.50 ', 'Max. :43.00 ', 'A:9 ', 'B:9 ', NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c('', '', '', '', '', ''), c(' breaks', 'wool')), class = 'table')), .Dim = 3L, .Dimnames = structure(list(`warpbreaks[, 'tension']` = c('L', 'M', 'H')), .Names = 'warpbreaks[, \'tension\']')));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes19_f12dc253c2a847b9dc5e8127b263c64c() {
+ assertEval("argv <- list(structure(list(school = c(1L, 1L, 2L, 2L, 3L, 3L), class = c(9L, 10L, 9L, 10L, 9L, 10L), score.1 = c(0.487429052428485, 0.738324705129217, 1.51178116845085, 0.389843236411431, 1.12493091814311, -0.0449336090152309), score.2 = c(0.575781351653492, -0.305388387156356, -0.621240580541804, -2.2146998871775, -0.0161902630989461, 0.943836210685299)), .Names = c('school', 'class', 'score.1', 'score.2'), row.names = c(1L, 2L, 5L, 6L, 9L, 10L), class = 'data.frame', reshapeWide = structure(list(v.names = NULL, timevar = 'time', idvar = c('school', 'class'), times = c(1, 2), varying = structure(c('score.1', 'score.2'), .Dim = 1:2)), .Names = c('v.names', 'timevar', 'idvar', 'times', 'varying'))));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes20_15c0bda1f1e62ec9ad81a15e3f7adade() {
+ assertEval("argv <- list(structure(c(-0.927486533732408, -0.13045118082262, -1.45825662858798, -1.81793776180039, -1.62313249921887, 1.26834845395072, -0.994859212587552, -0.60437576902456, -1.06120404454492, 0.877124074149983, 0.824787552890982, 0.704014030529726, -0.702775741558964, 0.544818578451748, 1.48964468805446, 0.13432541283722, -0.128923575804159, -0.354052007275421, 1.0711307633823, -1.33461699082502, 0.380875114294515, -1.07786690183251, 0.810306659502442, -2.17501201437322, -0.407604875801864, -0.462999392844433, 0.194880873045067, 2.65407152575046, 0.564656783773942, 0.906337761254496, -0.631531096896236, -1.27819755429098, -0.538330333636237, 1.00231821330914, -0.286364553583536, 0.469006850788945, 1.05885815169124, 1.21503113231427, 1.44216953152086, 0.486588338054406, 0.268701510628534, -0.463411907566429, 1.02436199321322, -1.39004777906874, 0.999688613035661, -0.916808034628566, -0.502852003923634, 0.212379391073633, -0.0134736853666567, 1.31736970279298, -0.0944249611837457, 0.806746464646202, 0.315038937675493, -1.17340599897154, 0.482494016048211, -0.791050343541626, 0.808325470742601, 0.588652339988029, 1.10512245024341, 1.12322151831428, 0.208749082415184, -0.357070741737234, 0.572101015785145, -0.533738015097777, -0.360034768896796, 0.0342776735716719, -1.99368868442296, 2.04525110526828, 0.854582964377424, -0.292897401378698, -1.18433316855268, -0.376789959833897, -0.538288068463758, -0.232305057346106, -0.375870899318979, -0.359017335348666, -0.741816586737615, -0.269774297924449, -0.796951579131833, 0.0323594165086663, 0.439067375500569, 0.466080486767734, -1.49275492910805, 0.947406234969688, 0.182071046143441, 0.445836300099003, 2.02477378068589, -1.70432399838533, -0.440962927710655, 0.831168740087201, 2.13610340066555, -1.8137969168688, 1.22501979912183, 0.795942206968001, 1.87235555725712, -1.26557065145048, 0.378275537740316, 0.789728084675539, 0.99886763527649, 2.29736830042939, -0.00228198643744461, 0.161544616498807, -1.14848457105275, -1.08025155036982, -1.03819987128219, -0.856130938839897, 1.0042164519591, -0.843667376942675, -1.21154108350058, 0.460882948229546, -0.468389916732288, -0.946568852822378, 1.17783540515932, -0.973911234750034, -0.0639785174878419, -1.1045450251553, 0.442020873295079, 0.0831991221894004, 0.269053190969569, 0.901338595939942, -0.086250034518703, 0.478492308026563, -0.925167039266549, -0.658186865278783, 1.0337884593443, -0.434569632901449, 2.038954875659, 0.202381377518746, 0.484762177881311, -0.360074615793248, -0.129300783906607, 0.651643789311553, 0.934922268235395, -0.0934722501709123, -0.0103213567459648, 1.61917070438612, -1.06268414268298, 0.696244014590397, 0.992388229201836, 0.697363816464206, 0.250252166543902, -0.557960198745092, 0.221087284404152, 0.10961920608307, 0.259174711435693, -0.70162900779778, 1.92431317758909, -0.578758205883074, 1.59171854092147, 0.902876390823624, 0.840275033814991, 1.77586917630517, 0.403033282757909, 0.0539091417299491, -1.26615014148617, 0.0148781649233171, 0.256100494565364, -1.01942222514274, 0.549839939376835, -0.724728578424903, 0.151976282801212, 0.326791648750199, 0.748909789058061, -1.85444018168148, 0.0869984536340467, 1.25350587157032, 0.962041461790638, 0.120578653081864, -0.11935793490114, 0.6951267107979, -1.39729724662012, 1.03310979193329, -0.619324332563388, 0.60759513170927, 0.665670243263983, 1.34746787641065, 0.213814029897928, -0.43608749915348, -0.196912890515945, -0.474024803180795, -0.0932220458288109, -0.739450980689706, -0.299196422560384, -0.765918956807232, -0.374980670595253, 0.65328744055362, -0.552631311606602, -1.24532249102801, 1.50941913047883, -1.79189867145273, -0.892183862327233, 1.20950581962313, 0.454528744013934, 0.266817155028672, 1.65771215541012, 1.00893183514602, 0.761621316769915, 0.262896620317128, -0.128241496594234, 0.980274347240293), .Label = structure(list(c(-2.17503193782145, -0.474004879732569), c(-0.97393115819826, -0.0932021223805848), c(-0.468409840180514, 0.266837078476898), c(-0.086269957966929, 0.696263938038623), c(0.268681587180308, 1.02438191666144), c(0.697343893015979, 2.65409144919869)), class = 'shingleLevel'), class = 'shingle'));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes21_49593ab52328f6b14283dbbfef5b6328() {
+ assertEval("argv <- list(structure(c(82, 82, 82, 75, 63, 50, 43, 35, 35, 54, 54, 54, 39, 36, 0, 0, 57, 57, 57, 51, 45, 45, 39, 39, 36, 32, 25, 25, 25, 25, 32, 32, 59, 74, 74, 71, 71, 71, 71, 71, 71, 71, 73, 73, 73, 71, 71, 75, 75, 63, 62, 60, 57, 49, 49, 52, 57, 61, 62, 66, 66, 62, 61, 61, 72, 72, 78, 78, 78, 71, 71, 74, 74, 64, 62, 62, 73, 73, 69, 69, 69, 69, 64, 63, 62, 56, 46, 44, 44, 44, 44, 44, 44, 44, 44, 44, 59, 65, 65, 65, 61, 56, 53, 52, 51, 51, 49, 49, 49, 49, 0, 0, 44, 44, 40, 28, 27, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = 'ts'));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes23_a0a64aefea633b3e370519ba743289ce() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), arguments = structure('object', simpleOnly = TRUE), signatures = list(), generic = structure(function (object) standardGeneric('show'), generic = structure('show', package = 'methods'), package = 'methods', group = list(), valueClass = character(0), signature = structure('object', simpleOnly = TRUE), default = structure(function (object) showDefault(object, FALSE), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'object', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'object', package = 'methods'), generic = structure('show', package = 'methods'), class = structure('derivedDefaultMethod', package = 'methods')), skeleton = quote((function (object) showDefault(object, FALSE))(object)), class = structure('standardGeneric', package = 'methods')), class = structure('listOfMethods', package = 'methods')));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes24_61bebe3b9387503ee89a04416423eaf2() {
+ assertEval("argv <- list(structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c('A', 'B', 'C'), class = 'factor')), .Names = c('x', 'y', 'fac'), row.names = c(NA, -10L), class = 'data.frame'));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes26_237c738df174d934dd9b974e323a6920() {
+ assertEval("argv <- list(structure(list(qr = structure(c(-561841.166008647, 1.48748911573234e-06, 1.62250974987379e-06, 1.29819733159371e-06, 1.3199650315892e-06, 1.59089005368605e-06, 3.38370366592718e-06, 1.54037267089339e-06, 1.26888887472893e-06, 1.66561998324397e-06, 2.71299853206351e-06, 1.82740883826792e-06, 1.69185183297085e-06, 1.36523405858032e-06, 1.55319864307643e-06, 1.56902110896583e-06, 1.3906190700334e-06, 1.2997165800148e-06, 1.56369334788134e-06, 1.43353743471477e-06, 1.74457009494164e-06, 2.03022219956374e-06, 1.73363224357496e-06, 1.47177180858703e-06, 4.47621920517122e-06, 1.45868913292866e-06, 1.67531329485535e-06, 1.56635043280177e-06, 1.90866628223014e-06, 1.54802991445627e-06, 1.60217310325092e-06, 2.68573152311995e-06, 1.55319864307643e-06, 1.65295348775885e-06, 1.41747488364731e-06, 0.999999999831096, 1.61369967706714e-06, 1.31520838537442e-06, 2.44157411192876e-06, 5.1686927260975e-06, 1.81484917852149e-06, 1.50372096623665e-06, 1.91837965937479e-06, 1.68517783522785e-06, 1.65295348775885e-06, 1.58810634192319e-06, 1.77478134630985e-06, 1.66883236806679e-06, 2.2002369936867e-06, 1.56635043280177e-06, 1.31520838537442e-06, 1.23229813671524e-06, 1.69185183297085e-06, 1.77091892313243e-06, 1.92329229138616e-06, 1.33290617468824e-06, 1.64672765212343e-06, 2.17841592228372e-06, 2.07828144894252e-06, 1.72289757538629e-06, 1.92824285888419e-06, 1.81484917852149e-06, 2.01304088471671e-06, 1.47621155263461e-06, 1.91350448082172e-06, 1.47177180858703e-06, 1.60217310325092e-06, 1.53282794306286e-06, 1.53282794306286e-06, 2.24592152723567e-06, 1.3564992660355e-06, 1.61662040285441e-06, 1.78652203450807e-06, 1.84456798315616e-06, 1.83165369610876e-06, 2.34653452685434e-06, 2.12325719919593e-06, 1.37956761746782e-06, 1.32156208605305e-06, 1.77478134630985e-06, 1.66242607813213e-06, 1.88501398961327e-06, 1.75571762111387e-06, 1.71936342279218e-06, 2.15723147161546e-06, 1.48294715363101e-06, 1.94332712676627e-06, 1.26606598163328e-06, 1.70544122262692e-06, 1.72289757538629e-06, 1.44385821185109e-06, 1.53533052096275e-06, 1.35133818480092e-06, 1.72645361131692e-06, 1.82319335667127e-06, 1.32963523435973e-06, 1.41158914936576e-06, 2.12325719919593e-06, 1.47844654491007e-06, 1.44385821185109e-06, 1472023.85454144, -24.6606754318977, 0.101285140222523, 0.12658801819228, 0.124500435606533, 0.103298237275271, 0.0485666635912155, 0.106685971539808, 0.129511920733888, 0.0986636292980589, 0.0605734308209414, 0.0899284547245126, 0.0971338624854, 0.120372186413924, 0.105804979598362, 0.104738008044408, 0.118174850871225, 0.126440048191751, 0.105094868834514, 0.114636830861078, 0.0941986135491651, 0.0809448199785816, 0.0947929347785712, 0.111658733889352, 0.0367127444946359, 0.11266018033215, 0.0980927625103667, 0.104916590166795, 0.0860999235367981, 0.106158253725478, 0.102570773477205, 0.06118841105676, 0.105804979598362, 0.0994196861729652, 0.115935876650863, -0.105466791174436, 0.101838113293825, 0.124950710904606, 0.0673073062385254, 0.0317940330935366, 0.0905508070559734, 0.109286343932539, 0.0856639697119484, 0.0975185539657231, 0.0994196861729652, 0.103479304149645, 0.0925951094262163, 0.0984737080806255, 0.0746900879658086, 0.104916590166795, 0.124950710904606, 0.13335753753099, 0.0971338624854, 0.0927970627378338, 0.0854451586907835, 0.123291662172605, 0.099795566659867, 0.075438259057915, 0.0790730002999382, 0.0953835529495729, 0.0852257858900505, 0.0905508070559734, 0.0816356880948164, 0.111322916452723, 0.085882223247457, 0.111658733889352, 0.102570773477205, 0.10721109183635, 0.10721109183635, 0.0731707992415186, 0.121147290839092, 0.101654123163447, 0.0919865892416036, 0.0890918891744519, 0.0897200446166977, 0.0700334141981384, 0.0773980324983756, 0.119121529360296, 0.124349981516283, 0.0925951094262163, 0.0988531856309209, 0.0871802709827442, 0.093600518723111, 0.095579614648734, 0.0761790825557647, 0.110817282218029, 0.0845642530341719, 0.129800688512867, 0.096359872295819, 0.0953835529495729, 0.113817398381304, 0.107036337986806, 0.121609982184857, 0.0951870874129862, 0.0901363829552483, 0.123594963843665, 0.116419281840054, 0.0773980324983756, 0.111154627274007, 0.113817398381304), .Dim = c(100L, 2L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100'), c('(Intercept)', 'x'))), rank = 2L, qraux = c(1.00000155841949, 1.11047890709071), pivot = 1:2, tol = 1e-11), .Names = c('qr', 'rank', 'qraux', 'pivot', 'tol')));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes27_3a6023514a31dc623c83dcc716a56459() {
+ assertEval("argv <- list(structure(list(message = 'NAs produced', call = quote(rnorm(2, numeric()))), .Names = c('message', 'call')));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes28_5731e7033a3dab769f197bfd21194cbc() {
+ assertEval("argv <- list(structure(c(7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 8L, 8L, 8L, 8L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 27L, 27L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 17L, 17L, 17L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L), .Label = structure(c('9', '8', '7', '4', '2', '10', '1', '3', '5', '6', '21', '22', '24', '27', '26', '25', '23', '17', '11', '14', '13', '15', '16', '20', '19', '18', '12'), .Names = c('Control1', 'Control2', 'Control3', 'Control4', 'Control5', 'Control6', 'Control7', 'Control8', 'Control9', 'Control10', 'High1', 'High2', 'High3', 'High4', 'High5', 'High6', 'High7', 'Low1', 'Low2', 'Low3', 'Low4', 'Low5', 'Low6', 'Low7', 'Low8', 'Low9', 'Low10')), class = c('ordered', 'factor')));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes29_9b16d51d2d501b2ebc100e63dc9684ba() {
+ assertEval("argv <- list(structure(list(tau = c(-0.704193760852047, 0, 1.5847914530377, 2.07658624888165, 2.62779840842982, 3.16900609499152, 3.70430313207003), par.vals = structure(c(1.19410356771918, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 0.0145810141529953, 0.24263452560295, 0.470688037052905, 0.562956252821107, 0.683253495496408, 0.823187854524599, 0.98897386701965), .Dim = c(7L, 2L), .Dimnames = list(NULL, c('a', 'b')))), .Names = c('tau', 'par.vals')));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes3_1aa430145ddb87a453eaf87d3c82ac11() {
+ assertEval("argv <- list(structure(list(x = c(55, 55.4, 55.8, 56.2, 56.6, 57, 57.4, 57.8, 58.2, 58.6, 59, 59.4, 59.8, 60.2, 60.6, 61, 61.4, 61.8, 62.2, 62.6, 63, 63.4, 63.8, 64.2, 64.6, 65, 65.4, 65.8, 66.2, 66.6, 67, 67.4, 67.8, 68.2, 68.6, 69, 69.4, 69.8, 70.2, 70.6, 71, 71.4, 71.8, 72.2, 72.6, 73, 73.4, 73.8, 74.2, 74.6, 75), y = c(NA, NA, NA, NA, NA, NA, NA, NA, 115.348528272371, 116.097056544742, 117, 118.121358638144, 119.369358638144, 120.616754451341, 121.816150264538, 123, 124.196077478756, 125.399549206385, 126.598034046405, 127.793047158796, 129, 130.223726064439, 131.424330251242, 132.555722198323, 133.686509958601, 135, 136.60008742339, 138.253074310999, 139.654076730115, 140.802092261622, 142, 143.481497863021, 145.150710102743, 146.833352023286, 148.446781704108, 150, 151.524882658905, 153.128867127397, 154.93285159589, 156.93285159589, 159, 161.026859361644, 163.013429680822, NA, NA, NA, NA, NA, NA, NA, NA)), .Names = c('x', 'y')));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes5_5324182e13fb719c21932cc844773123() {
+ assertEval("argv <- list(structure(c('o', 'p', 'v', 'i', 'r', 'w', 'b', 'm', 'f', 's'), date = structure(1224086400, class = c('POSIXct', 'POSIXt'), tzone = ''), .S3Class = 'stamped', class = structure('stamped', package = '.GlobalEnv')));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes6_b5da0ca104f0b408b19ff0596419356e() {
+ assertEval("argv <- list(structure(list(loc = c(0.0804034870161223, 10.3548347412639), cov = structure(c(3.01119301965569, 6.14320559215603, 6.14320559215603, 14.7924762275451), .Dim = c(2L, 2L)), d2 = 2, wt = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), sqdist = c(0.439364946869246, 0.0143172566761092, 0.783644692619938, 0.766252947443554, 0.346865912102713, 1.41583192825661, 0.168485512965902, 0.354299830956879, 0.0943280426627965, 1.05001058449122, 1.02875556201707, 0.229332323173361, 0.873263925064789, 2.00000009960498, 0.449304354954282, 0.155023307933165, 0.118273979375253, 0.361693898800799, 0.21462398586105, 0.155558909016629, 0.471723661454506, 0.719528696331092, 0.0738164380664225, 1.46001193111051, 0.140785322548143, 0.127761195166703, 0.048012401156175, 0.811750426884519, 0.425827709817574, 0.163016638545231, 0.557810866640707, 0.277350147637843, 0.0781399119055092, 1.29559183995835, 0.718376405567138, 1.37650242941478, 0.175087780508154, 0.233808973148729, 0.693473805463067, 0.189096604125073, 1.96893781800017, 0.4759756980592, 1.69665760380474, 0.277965749373647, 0.920525436884815, 0.57525234053591, 1.59389578665009, 0.175715364671313, 0.972045794851437, 1.75514684962809, 0.0597413185507202, 0.174340343040626, 0.143421553552865, 0.997322770596838, 1.94096736957465, 2.00000001159796, 0.367000821772989, 0.682474530588235, 1.20976163307984, 1.27031685239035, 1.79775635513363, 0.0857761902860323, 0.435578932929501, 0.214370604878221, 0.494714247412686, 1.78784623754399, 1.24216674083069, 1.87749485326709, 0.0533296334123023, 1.45588362584438, 2.00000000631459, 0.208857144738039, 0.119251291573058, 0.365303924649962, 0.690656674239668, 0.0396958405786268, 0.258262120876164, 1.57360254057537, 0.307548421049514, 0.628417063100241, 1.00647098749202, 0.297624360530352, 0.400289147351669, 1.98298426250944, 0.129127182829694, 0.0794695319493149, 0.991481735944321, 0.444068154119836, 0.206790162395106, 0.574310829851377, 0.181887577583334, 0.433872021297517, 0.802994892604009, 0.293053770941001, 1.7002969001965, 0.77984639982848, 1.36127407487932, 0.761935213110323, 0.597915313430067, 0.237134831067472), prob = NULL, tol = 1e-07, eps = 9.96049758228423e-08, it = 898L, maxit = 5000, ierr = 0L, conv = TRUE), .Names = c('loc', 'cov', 'd2', 'wt', 'sqdist', 'prob', 'tol', 'eps', 'it', 'maxit', 'ierr', 'conv'), class = 'ellipsoid'));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes7_e20ed84eef25740977ac77c9dc39ffc5() {
+ assertEval("argv <- list(NULL);attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributes_testattributes9_686be18f5d20113a553fdb6fd3e8d8cc() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), .S3Class = 'data.frame', extra = character(0)));attributes(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributesassign_testattributesassign1_99fdb96ba57d4a61390aecd2dd80e91a() {
+ assertEval("argv <- list(NULL, NULL);`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributesassign_testattributesassign2_dd6c0c71d97a9e1c13c4c26816cc6cd8() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributesassign_testattributesassign3_fb43af51dd5ca868167e7ca42f1d90f4() {
+ assertEval("argv <- list(NA, value = NULL);`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributesassign_testattributesassign4_bf2b722bef5b6a3b671dee345f89e8ba() {
+ assertEval("argv <- list(1:6, value = NULL);`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributesassign_testattributesassign5_d63d100b6eef343732550c12ce558b17() {
+ assertEval("argv <- list(c(2.63548374681491, 2.5910646070265, 2.66370092538965, 2.70586371228392, 2.78247262416629, 2.79379038469082, 2.72835378202123, 2.67394199863409, 2.66370092538965, 2.6222140229663, 2.59217675739587, 2.62013605497376, 2.60745502321467, 2.55870857053317, 2.60959440922522, 2.66558099101795, 2.74741180788642, 2.73878055848437, 2.67394199863409, 2.6232492903979, 2.59769518592551, 2.60852603357719, 2.53402610605613, 2.55630250076729, 2.52762990087134, 2.49136169383427, 2.55509444857832, 2.60638136511061, 2.70329137811866, 2.69108149212297, 2.63848925695464, 2.55990662503611, 2.54157924394658, 2.55870857053317, 2.50242711998443, 2.53147891704225, 2.52633927738984, 2.48429983934679, 2.54032947479087, 2.60638136511061, 2.66931688056611, 2.66745295288995, 2.62531245096167, 2.55022835305509, 2.54157924394658, 2.55144999797288, 2.47856649559384, 2.4983105537896, 2.48572142648158, 2.43296929087441, 2.48572142648158, 2.55022835305509, 2.60745502321467, 2.6159500516564, 2.57287160220048, 2.50242711998443, 2.49554433754645, 2.50105926221775, 2.44247976906445, 2.45331834004704, 2.44404479591808, 2.3747483460101, 2.43775056282039, 2.49415459401844, 2.54032947479087, 2.56110138364906, 2.4983105537896, 2.43136376415899, 2.42975228000241, 2.42651126136458, 2.36735592102602, 2.38381536598043, 2.35983548233989, 2.30749603791321, 2.35983548233989, 2.41329976408125, 2.46686762035411, 2.48000694295715, 2.42160392686983, 2.36921585741014, 2.35602585719312, 2.37106786227174, 2.27415784926368, 2.3096301674259, 2.30319605742049, 2.25527250510331, 2.32428245529769, 2.3747483460101, 2.4345689040342, 2.42160392686983, 2.38560627359831, 2.35983548233989, 2.37106786227174, 2.37291200297011, 2.29225607135648, 2.29225607135648, 2.28780172993023, 2.23552844690755, 2.28103336724773, 2.32014628611105, 2.38381536598043, 2.36172783601759, 2.3384564936046, 2.26245108973043, 2.25767857486918, 2.28555730900777, 2.25527250510331, 2.23299611039215, 2.22010808804005, 2.16435285578444, 2.20951501454263, 2.26481782300954, 2.29885307640971, 2.29885307640971, 2.25042000230889, 2.23552844690755, 2.21218760440396, 2.25042000230889, 2.17609125905568, 2.16136800223497, 2.14612803567824, 2.05690485133647, 2.12385164096709, 2.19865708695442, 2.23044892137827, 2.23044892137827, 2.17318626841227, 2.09691001300806, 2.13033376849501, 2.14921911265538, 2.10037054511756, 2.06069784035361, 2.07188200730613, 2.01703333929878, 2.07554696139253, 2.13353890837022, 2.17026171539496, 2.17026171539496, 2.13033376849501, 2.08278537031645, 2.11058971029925, 2.12057393120585, 2.07188200730613, 2.04921802267018), value = structure(list(tsp = c(1949, 1960.91666666667, 12), class = 'ts'), .Names = c('tsp', 'class')));`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinattributesassign_testattributesassign6_867b0f1e8d3971e8dbde6e10fdab6fc0() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 2, 3), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('I', 'a')), foo = 'bar', class = 'matrix'), value = structure(list(class = 'matrix', foo = 'bar', dimnames = list(NULL, c('I', 'a')), dim = c(3L, 2L)), .Names = c('class', 'foo', 'dimnames', 'dim')));`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbacksolve_testbacksolve1_5ee3505c4c1ea73736916d63ec9ac952() {
+ assertEval("argv <- list(structure(c(-2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0421675318334475, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0421675318334475, 0, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.445407110781343, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510819156714975, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510819156714975, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510819156714975, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592753100948471, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.428419619610855, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.252201198430086, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.428419619610855, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510819156714975, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592753100948472, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592753100948472, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, -0.252201198430086, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, -0.252201198430086, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, 0, -0.0421675318334475, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, -0.0421675318334475, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, -0.0486697428190666, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, -0.0486697428190666, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, -0.0486697428190666, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, -0.0486697428190666, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.935285871700694), .Dim = c(22L, 22L), .Dimnames = list(c('StripS01', 'StripS02', 'StripS03', 'StripS04', 'StripS05', 'StripS06', 'StripS07', 'StripS08', 'StripS09', 'StripS10', 'StripS11', 'StripS12', 'StripS13', 'StripS14', 'StripS15', 'StripS16', 'StripS17', 'StripS18', 'StripS19', 'StripS20', 'StripS21', ''), c('3', '4', '5', '6', '9', '10', '11', '12', '13', '14', '15', '16', '19', '20', '21', '25', '26', '27', '31', '32', '33', '39'))), structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.00019677474442243), .Dim = c(22L, 1L)), 22L, FALSE, FALSE); .Internal(backsolve(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbacksolve_testbacksolve2_3893cbdf564a0850304c651909a2e046() {
+ assertEval("argv <- list(structure(c(-2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0421590411210753, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0421590411210753, 0, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.445373554228914, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510781706167877, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510781706167877, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510781706167877, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592635069735823, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.428392065749892, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.252172670570357, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.428392065749892, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510781706167877, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592635069735823, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592635069735823, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, -0.252172670570357, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, -0.252172670570357, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, 0, -0.0421590411210753, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, -0.0421590411210753, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, -0.0486599542810648, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, -0.0486599542810647, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, -0.0486599542810648, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, -0.0486599542810648, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.935253697073914), .Dim = c(22L, 22L), .Dimnames = list(c('StripS01', 'StripS02', 'StripS03', 'StripS04', 'StripS05', 'StripS06', 'StripS07', 'StripS08', 'StripS09', 'StripS10', 'StripS11', 'StripS12', 'StripS13', 'StripS14', 'StripS15', 'StripS16', 'StripS17', 'StripS18', 'StripS19', 'StripS20', 'StripS21', ''), c('3', '4', '5', '6', '9', '10', '11', '12', '13', '14', '15', '16', '19', '20', '21', '25', '26', '27', '31', '32', '33', '39'))), structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.20033559004316e-05), .Dim = c(22L, 1L)), 22L, FALSE, FALSE); .Internal(backsolve(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbacksolve_testbacksolve3_693d57e0a462d771e6a8554ddcc2183a() {
+ assertEval("argv <- list(structure(c(-0.91092349872819, -1.26769315823132, 0, -1.11965595698793), .Dim = c(2L, 2L)), structure(c(-0.000210872744086474, 0.000210873298561107), .Dim = c(2L, 1L)), 2L, FALSE, FALSE); .Internal(backsolve(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbcVersion_testbcVersion1_729bb985e45c4d519860190fb06be4f8() {
+ assertEval(" .Internal(bcVersion())");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbesselI_testbesselI1_c5436c69ddc343ef1a18f4a59c2ba9be() {
+ assertEval("argv <- list(FALSE, FALSE, 1); .Internal(besselI(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbesselI_testbesselI2_56930bf6e5bb6a9cab80491083105b87() {
+ assertEval("argv <- list(logical(0), logical(0), 1); .Internal(besselI(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbesselJ_testbesselJ1_8bea88bac4fe5a1faffa80aa611e7ac7() {
+ assertEval("argv <- list(logical(0), logical(0)); .Internal(besselJ(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbesselJ_testbesselJ2_f6dd8d79d9f0e261e4301bacbcb9ba3e() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(besselJ(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbesselJ_testbesselJ3_09686dced4665337d6e44904ca794b90() {
+ assertEval("argv <- list(c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), 2.5); .Internal(besselJ(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbesselK_testbesselK1_4ffe35847579aa54f93d6f2f4ffcecca() {
+ assertEval("argv <- list(FALSE, FALSE, 1); .Internal(besselK(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbesselK_testbesselK2_f0b03c5877b9cab6dc1769f67437773e() {
+ assertEval("argv <- list(logical(0), logical(0), 1); .Internal(besselK(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbesselK_testbesselK3_f5a232be0559e3c6e7bf8beb20e9c397() {
+ assertEval("argv <- list(c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), 3, 1); .Internal(besselK(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbesselK_testbesselK4_c8f80482f9b97234e6627d284f49d204() {
+ assertEval("argv <- list(c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), 3.5, 1); .Internal(besselK(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbesselY_testbesselY1_2549a2d2eb9b4979431ff63fd45c822c() {
+ assertEval("argv <- list(c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), 20.5); .Internal(besselY(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbesselY_testbesselY2_342040860b9d1b3bd1d5accfa4eb4519() {
+ assertEval("argv <- list(2, c(3, 8.94, 14.88, 20.82, 26.76, 32.7, 38.64, 44.58, 50.52, 56.46, 62.4, 68.34, 74.28, 80.22, 86.16, 92.1, 98.04, 103.98, 109.92, 115.86, 121.8, 127.74, 133.68, 139.62, 145.56, 151.5, 157.44, 163.38, 169.32, 175.26, 181.2, 187.14, 193.08, 199.02, 204.96, 210.9, 216.84, 222.78, 228.72, 234.66, 240.6, 246.54, 252.48, 258.42, 264.36, 270.3, 276.24, 282.18, 288.12, 294.06, 300)); .Internal(besselY(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbesselY_testbesselY3_921e6908d967f09d63ec52e6a52145f7() {
+ assertEval("argv <- list(c(0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2, 2.1, 2.2, 2.3, 2.4, 2.5, 2.6, 2.7, 2.8, 2.9, 3, 3.1, 3.2, 3.3, 3.4, 3.5, 3.6, 3.7, 3.8, 3.9, 4, 4.1, 4.2, 4.3, 4.4, 4.5, 4.6, 4.7, 4.8, 4.9, 5, 5.1, 5.2, 5.3, 5.4, 5.5, 5.6, 5.7, 5.8, 5.9, 6, 6.1, 6.2, 6.3, 6.4, 6.5, 6.6, 6.7, 6.8, 6.9, 7, 7.1, 7.2, 7.3, 7.4, 7.5, 7.6, 7.7, 7.8, 7.9, 8, 8.1, 8.2, 8.3, 8.4, 8.5, 8.6, 8.7, 8.8, 8.9, 9, 9.1, 9.2, 9.3, 9.4, 9.5, 9.6, 9.7, 9.8, 9.9, 10), -0.2); .Internal(besselY(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbesselY_testbesselY4_89fd2343995ff9367e3bad0f94f0c0cc() {
+ assertEval("argv <- list(logical(0), logical(0)); .Internal(besselY(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbeta_testbeta1_198092df6f4981dfea50a44b5128f572() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(beta(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbeta_testbeta2_b1b30c00bfaa20461c510f1709b9e6e6() {
+ assertEval("argv <- list(logical(0), logical(0)); .Internal(beta(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbincode_testbincode1_e436ea1d3aaab4fefa12e74d662f7f1e() {
+ assertEval("argv <- list(c(-1, -1, -1, -1, -1), c(-1.001, -1, -0.999), TRUE, FALSE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbincode_testbincode2_b6b741af966ede0491e114e53bae64a0() {
+ assertEval("argv <- list(c(8.70599232813489e-06, 7.24187268717448e-10, 7.84878459581784e-14), c(0, 0.001, 0.01, 0.05, 0.1, 1), TRUE, TRUE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbincode_testbincode3_abc0e4f9c61cf542638957a3c2d9769d() {
+ assertEval("argv <- list(c(0.00316901674455053, 0.000313731190323184, 2.12051012154177e-05, 0.000158772845963692), c(0, 0.001, 0.01, 0.05, 0.1, 1), TRUE, TRUE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbincode_testbincode4_7763740072b90c291fec944f5de861a4() {
+ assertEval("argv <- list(c(NA, 0.0654707112145736, 0.999999999999999), c(0, 0.001, 0.01, 0.05, 0.1, 1), TRUE, TRUE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbincode_testbincode5_3c74b1204b51b8fcc56aa5910ae2c82b() {
+ assertEval("argv <- list(structure(c(3.00863041155973, 0.411191886071604, -0.690490615408105, -4.08011169113016, -1.74096111020938, 0.149871643848704, -0.617403399223794, 1.77225991336381, 0.70873696276922, 0.831384833755618, 0.760421822835713, -1.43576852408133, -1.06684579764157, 0.112230570314199, 1.7784773190779, 0.601241755061942, 3.2084694607557, 1.30812378137844, 0.548795030131126, -4.19457515085108, -2.57754314942853, -2.82255910587143, -1.79648698551886, 8.02186933983834, -1.32562596449111, 1.07620193452922, 0.454145574974766, -1.70834615344098, -1.67960999025708, -0.580565722061994, 1.46027792034151, 0.274978829340024), class = 'table', .Dim = c(4L, 4L, 2L), .Dimnames = structure(list(Hair = c('Black', 'Brown', 'Red', 'Blond'), Eye = c('Brown', 'Blue', 'Hazel', 'Green'), Sex = c('Male', 'Female')), .Names = c('Hair', 'Eye', 'Sex'))), c(-Inf, -4, -2, 0, 2, 4, Inf), TRUE, FALSE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbincode_testbincode6_6f46fc965845d88d707b390d6d15afbb() {
+ assertEval("argv <- list(c(4L, 8L, 7L, 4L, 8L, 7L, NA, 7L, 6L, 7L, 7L, 8L, 8L, 6L, 7L, 8L, 5L, 4L, 8L, 7L, 5L, 6L, 5L, 6L, 5L, 6L, 7L, 6L, 5L, 7L, 4L, 6L, 6L, 5L, 7L, 5L, 5L, 6L, 6L, 6L, 5L, 7L, 5L, 7L, 5L, 3L, 7L, 6L, 5L, 5L, 6L, 5L, 5L, 6L, 10L, 10L, 6L, 3L, 5L, 8L, 7L, 5L, 6L, 5L, 5L, 5L, 6L, 5L, 6L, 5L, 5L, 6L, 7L, 7L, 6L, 7L, 7L, 8L, 9L, 7L, 8L, 6L, 4L, 7L, 7L, 6L, NA, 8L, 5L, 7L, 6L, 5L, NA, 7L, 6L, 7L, 7L, 9L, 5L, 8L, 6L, 8L, 9L, 6L, 6L, 7L, 8L, 8L, 8L, 7L, 8L, 7L, 6L, 6L, 9L, 7L, 6L, 8L, 5L, 7L, 8L, 8L, 7L, 7L, 7L, 8L, 5L, 6L, 6L, 5L, 7L, 5L, 7L, 7L, 4L, 5L, 8L, 5L, 5L, 6L, 7L, 5L, 9L, 5L, 6L, 7L), c(2, 5.5, 10), TRUE, FALSE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbindtextdomain_testbindtextdomain1_bcf59789c1abf6ce64eef4f6f8a0b970() {
+ assertEval("argv <- list('splines', '/home/roman/r-instrumented/library/translations'); .Internal(bindtextdomain(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbindtextdomain_testbindtextdomain2_8961295a914ee0581df6a90cb6841dd6() {
+ assertEval("argv <- list('utils', '/home/lzhao/hg/r-instrumented/library/translations'); .Internal(bindtextdomain(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbitwiseAnd_testbitwiseAnd1_aa2f5a12e5456739afbe05df58e66002() {
+ assertEval("argv <- list(structure(c(420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 493L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 493L, 493L, 493L, 493L, 493L, 493L, 493L, 493L, 493L, 493L, 493L), class = 'octmode'), structure(256L, class = 'octmode')); .Internal(bitwiseAnd(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbitwiseAnd_testbitwiseAnd2_8337f9a47e6be7ee56fb9e4048479be1() {
+ assertEval("argv <- list(structure(integer(0), class = 'hexmode'), structure(integer(0), class = 'hexmode')); .Internal(bitwiseAnd(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbitwiseNot_testbitwiseNot1_6f4621a85f41aeed410087846823e620() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(bitwiseNot(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbitwiseOr_testbitwiseOr1_2fc068352a4607103b67148f6f3ad61c() {
+ assertEval("argv <- list(15L, 7L); .Internal(bitwiseOr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbitwiseShiftR_testbitwiseShiftR1_ca7b2aa43f08bec7efe9c8fed9d5d0b7() {
+ assertEval("argv <- list(-1, 1:31); .Internal(bitwiseShiftR(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbitwiseXor_testbitwiseXor1_67d355fb00ab2f9ad9cb963a329fe194() {
+ assertEval("argv <- list(-1L, 1L); .Internal(bitwiseXor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbody_testbody1_10aef9003d5613516e7b26cc2253360b() {
+ assertEval("argv <- list(function (x, y) { c(x, y)}); .Internal(body(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbody_testbody2_a717bfb76f7c264fe48c9545caa714cb() {
+ assertEval("argv <- list(function (object) TRUE); .Internal(body(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbody_testbody3_0411bf3456f1132e57c60df35346ad29() {
+ assertEval("argv <- list(function (from, strict = TRUE) from); .Internal(body(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbody_testbody4_b7e309a14448bf6e2de664cba5aa149e() {
+ assertEval("argv <- list(.Primitive('/')); .Internal(body(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbody_testbody5_92c7242ae7caa2e085ae9b673fca3e9e() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame')); .Internal(body(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinbody_testbody6_48c67548bbabd5fee445f7c4e3598da6() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(body(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc10_3698492e4eab2b3a3a2db687ff216bec() {
+ assertEval("argv <- list(NULL, structure(list(class = 'try-error', condition = structure(list(message = 'supply both 'x' and 'y' or a matrix-like 'x'', call = quote(cor(rnorm(10), NULL))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), .Names = c('class', 'condition')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc13_7e670b990ae67b0f24254abc7119fa3c() {
+ assertEval("argv <- list(structure(1208822400, class = c('POSIXct', 'POSIXt')), structure(1209168000, class = c('POSIXct', 'POSIXt')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc14_506a02475a8de3228c830a64becefd5c() {
+ assertEval("argv <- list(`Grand mean` = structure(103.87323943662, class = 'mtable'), structure(list(N = structure(c(78.7365206866197, 98.5088731171753, 113.842206450509, 123.008873117175), .Dim = 4L, .Dimnames = structure(list(N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = 'N'), class = 'mtable'), `V:N` = structure(c(79.5323303457107, 86.1989970123773, 69.7732394366197, 98.0323303457106, 108.032330345711, 89.1989970123773, 114.198997012377, 116.698997012377, 110.365663679044, 124.365663679044, 126.365663679044, 118.032330345711), .Dim = 3:4, .Dimnames = structure(list(V = c('Golden.rain', 'Marvellous', 'Victory'), N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = c('V', 'N')), class = 'mtable')), .Names = c('N', 'V:N')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc15_d681f80055f55318ccbe86713f7dbd71() {
+ assertEval("argv <- list(NULL, structure(list(class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rexp(2, numeric()))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), .Names = c('class', 'condition')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc16_cd54788a659f2aca50dc077592d10374() {
+ assertEval("argv <- list(NULL, structure(list(other = structure(1:3, .Label = c('A', 'B', 'C'), class = 'factor')), .Names = 'other'));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc17_f979dcbdb473f6307110c9317151fe3b() {
+ assertEval("argv <- list(logical(0), structure(1:10, .Tsp = c(1920.5, 1921.25, 12), class = 'ts'), logical(0));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc18_742b442e1270728d9ab7ee9693a04ab6() {
+ assertEval("argv <- list(structure(list(V1 = c(1L, 1L, 2L, 3L), V2 = structure(c(1L, 1L, 2L, 3L), .Label = c('A', 'D', 'E'), class = 'factor'), V3 = c(6, 6, 9, 10)), .Names = c('V1', 'V2', 'V3'), row.names = c(NA, 4L), class = 'data.frame'), sep = '\r');c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc20_9d3caf528f6a98a69bf26725a8ebc298() {
+ assertEval("argv <- list(NULL, structure(list(class = 'try-error', condition = structure(list(message = 'non-numeric argument to mathematical function', call = quote(log('a'))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), .Names = c('class', 'condition')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc21_45e9d2fc217e3ac6ce4f45742d3e75e0() {
+ assertEval("argv <- list(NULL, structure(list(class = 'try-error', condition = structure(list(message = ''x' is empty', call = quote(cor(Z[, FALSE], use = 'pairwise.complete.obs', method = 'kendall'))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), .Names = c('class', 'condition')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc22_55e3dd5f98ae0d4f5b719e08fbb043f4() {
+ assertEval("argv <- list(structure(list(N = structure(c(17, 18, 18, 18), .Dim = 4L, .Dimnames = structure(list(N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = 'N'))), .Names = 'N'), structure(list(`V:N` = structure(c(6, 6, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6), .Dim = 3:4, .Dimnames = structure(list(V = c('Golden.rain', 'Marvellous', 'Victory'), N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = c('V', 'N')))), .Names = 'V:N'));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc24_60d55ae1b0437e9ee8d5ce03bfda13c5() {
+ assertEval("argv <- list(NULL, structure(list(class = 'try-error', condition = structure(list(message = 'undefined columns selected', call = quote(`[.data.frame`(dd, , 'C'))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), .Names = c('class', 'condition')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc25_b0de35f7a0b133ecefc289a9555804c4() {
+ assertEval("argv <- list(NULL, structure(list(class = 'try-error', condition = structure(list(message = 'line 1 did not have 4 elements', call = quote(scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings, flush, fill, strip.white, quiet, blank.lines.skip, multi.line, comment.char, allowEscapes, encoding))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), .Names = c('class', 'condition')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc28_273f26b579648467b0e4eb9c9ecab497() {
+ assertEval("argv <- list(NULL, structure(list(class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(1, sd = Inf))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), .Names = c('class', 'condition')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc3_5439a00c192768df623645c6942391d2() {
+ assertEval("argv <- list(0.1, 1e+60);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc30_f7132b514812013e2045b7d520186ae2() {
+ assertEval("argv <- list(structure(c(2.8709968773466e-06, -0.000158359165766342, 0.00727428858396739, -0.000819679205658397, -0.000777694946526408, -0.00356554678621684, 0.000131355545630207, 0.0114265093267527, -0.000158359165766342, 5.43254707707774e-06, -0.000158630865337517, 9.73709585506688e-05, 0.000111529300368063, 5.13485783500411e-05, -6.33871099330885e-05, -0.000383481109923256, 0.00727428858396739, -0.000158630865337517, -1.56486391901245e-05, -0.00236056684784514, -0.00652700637569598, 0.00050199030070891, 0.00218994696407579, 0.0203300594009954, -0.000819679205658397, 9.73709585506688e-05, -0.00236056684784514, 7.93209373295412e-07, 0.00187235412049774, 0.00143329638746881, -3.6749249077872e-05, -0.0118829190788863, -0.000777694946526408, 0.000111529300368063, -0.00652700637569598, 0.00187235412049774, 4.25289264915918e-06, 0.00235407805712873, -0.000833270910443051, -0.00229252218256459, -0.00356554678621684, 5.13485783500411e-05, 0.00050199030070891, 0.00143329638746881, 0.00235407805712873, -3.00860514170775e-05, -0.00105162168837414, -0.00640852176345075, 0.000131355545630207, -6.33871099330885e-05, 0.00218994696407579, -3.6749249077872e-05, -0.000833270910443051, -0.00105162168837414, 2.63610545947479e-06, 0.00637158302982355, 0.0114265093267527, -0.000383481109923256, 0.0203300594009954, -0.0118829190788863, -0.00229252218256459, -0.00640852176345075, 0.00637158302982355, -9.55643771360926e-05), .Dim = c(8L, 8L), .Dimnames = list(c('height', 'arm.span', 'forearm', 'lower.leg', 'weight', 'bitro.diameter', 'chest.girth', 'chest.width'), c('height', 'arm.span', 'forearm', 'lower.leg', 'weight', 'bitro.diameter', 'chest.girth', 'chest.width'))));c(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc31_1e2061d029a9a9798a1c732e6f59bdfe() {
+ assertEval("argv <- list(c(-Inf, 2.17292368994844e-311, 4.34584737989688e-311, 8.69169475979376e-311, 1.73833895195875e-310, 3.4766779039175e-310, 6.953355807835e-310, 1.390671161567e-309, 2.781342323134e-309, 5.562684646268e-309, 1.1125369292536e-308, 2.2250738585072e-308, 4.4501477170144e-308, 8.90029543402881e-308, 1.78005908680576e-307, 2.2250738585072e-303, 2.2250738585072e-298, 1.79769313486232e+298, 1.79769313486232e+303, 2.24711641857789e+307, 4.49423283715579e+307, 8.98846567431158e+307, 1.79769313486232e+308, Inf, Inf), c(NaN, NA));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc32_19414b3d9b13941cbdfc7060dde57232() {
+ assertEval("argv <- list(list(structure(list(Ozone = c(NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), Solar.R = c(286L, 287L, 242L, 186L, 220L, 264L, 127L, 273L, 291L, 323L, 259L, 250L, 148L, 332L, 322L, 191L, 284L, 37L, 120L, 137L, 150L, 59L, 91L, 250L, 135L, 127L, 47L, 98L, 31L, 138L), Wind = c(8.6, 9.7, 16.1, 9.2, 8.6, 14.3, 9.7, 6.9, 13.8, 11.5, 10.9, 9.2, 8, 13.8, 11.5, 14.9, 20.7, 9.2, 11.5, 10.3, 6.3, 1.7, 4.6, 6.3, 8, 8, 10.3, 11.5, 14.9, 8), Temp = c(78L, 74L, 67L, 84L, 85L, 79L, 82L, 87L, 90L, 87L, 93L, 92L, 82L, 80L, 79L, 77L, 72L, 65L, 73L, 76L, 77L, 76L, 76L, 76L, 75L, 78L, 73L, 80L, 77L, 83L), Month = c(6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), Day = 1:30), .Names = c('Ozone', 'Solar.R', 'Wind', 'Temp', 'Month', 'Day'), row.names = 32:61, class = 'data.frame')), structure(list(Oz.Z = structure(c(NA, NA, NA, NA, NA, NA, -0.0244094233987339, NA, 2.28228108778162, 0.52480260307278, NA, NA, -0.353936639281642, NA, NA, -0.463779044575945, 0.414960197778477, -0.518700247223096, -0.958069868400307, -0.903148665753156, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = c(30L, 1L), '`scaled:center`' = 29.4444444444444, '`scaled:scale`' = 18.2079042664931)), .Names = 'Oz.Z'));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc33_3d5335bcbee7bbed01d8ae0c1031e531() {
+ assertEval("argv <- list(list('*', ' ', 'skipping installation test', '\n'), sep = '');c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc34_6bcf95c4824c94b3fc52cca45fff89d1() {
+ assertEval("argv <- list('exNSS4', 'myLib', structure(c('1.0', NA, 'methods', NA, NA, NA, NA, 'GPL (>= 2)', NA, NA, NA, NA, NA, NA, '3.0.1'), .Names = c('Version', NA, 'Depends', NA, NA, NA, NA, 'License', NA, NA, NA, NA, NA, NA, 'Built')));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc35_567fe3a2d0c2420533a1e239f41ba3cf() {
+ assertEval("argv <- list(c('‘?’ for shortcuts to help topics.', '', ' ‘help.search()’ or ‘??’ for finding help pages', ' on a vague topic;', ' ‘help.start()’ which opens the HTML version of the R', ' help pages;', ' ‘library()’ for listing available packages and the', ' help objects they contain;', ' ‘data()’ for listing available data sets;', ' ‘methods()’.', '', ' Use ‘prompt'), character(0));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc39_c59c5db7a032e1ed28c2c178902823e9() {
+ assertEval("argv <- list(structure(list(c(1L, 2L, 4L), 1:3, c(2L, 1L)), class = c('package_version', 'numeric_version')));c(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc41_c4b3650a24121cf377e32a42c7b605bf() {
+ assertEval("argv <- list(structure(list(1:3), class = c('package_version', 'numeric_version')), structure(list(c(2L, 1L)), class = c('package_version', 'numeric_version')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc43_d815967bd21a32cecae15d8138588d5e() {
+ assertEval("argv <- list(list(structure(list(u = c(5, 10, 15, 20, 30, 40, 60, 80, 100), lot1 = c(118, 58, 42, 35, 27, 25, 21, 19, 18), lot2 = c(69, 35, 26, 21, 18, 16, 13, 12, 12)), .Names = c('u', 'lot1', 'lot2'), row.names = c(NA, -9L), class = 'data.frame')), structure(list(max.level = 0, give.attr = FALSE, digits = 3), .Names = c('max.level', 'give.attr', 'digits')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc44_241c155db6e02bde18e0d42fda6000db() {
+ assertEval("argv <- list(list(structure(list(structure('vpl1', class = c('vpListing', 'gridVectorListing', 'gridListing')), structure('1', class = c('vpUpListing', 'gridVectorListing', 'gridListing'))), class = c('gridListListing', 'gridListing'))), list(structure('vpl2', class = c('vpListing', 'gridVectorListing', 'gridListing'))));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc47_511cd66c3787d8fd558056bdeccd99e1() {
+ assertEval("argv <- list(NULL, structure(list(names = structure('stats', .Names = 'name')), .Names = 'names'));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc48_4853cf805bc044ab020c2920dccc4fb7() {
+ assertEval("argv <- list(list(c('foo', 'bar'), FALSE, structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = 'foo'), .Names = c('a', 'b', 'c')), structure(list(1, 'foo', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'bar'), .Dim = c(2L, 2L)), 0+1i, list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), 'foo'), structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), c(1, 2, 3, 4, 5), 1, structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), structure(c(1, 3, 2, 4), .Dim = c(2L, 2L))), list(structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc49_f69e518ac26a9bd750cefa243054199a() {
+ assertEval("argv <- list(c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), structure(c(3.3032627879465, 3.28768675817403, 3.28198500972868, 3.26064954685429, 3.28230636466286, 3.29427556805693, 3.28140319515598, 3.31501132729969, 3.29996451963546, 3.3405648068776, 3.3615463372345, 3.37238152179651, 3.32652089130696, 3.31449399159178, 3.31051950313397, 3.29704421073007, 3.31063284281209, 3.31814807478072, 3.3100622663054, 3.33117177869743, 3.32172069914554, 3.34722215914612, 3.36040087649739, 3.36720656884446), .Tsp = c(1983, 1984.91666666667, 12), class = 'ts'), logical(0));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc51_c130eabcfe62b8976961284376eb9d07() {
+ assertEval("argv <- list(list('1: In matrix(1:7, 3, 4) :\n data length [7] is not a sub-multiple or multiple of the number of rows [3]'), list(), fill = TRUE);c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc54_f4bae288fc7fe03624de7ec4a21e4653() {
+ assertEval("argv <- list(structure(list(x = structure(1:8, .Dim = structure(8L, .Names = 'voice.part'))), .Names = 'x'), list(4));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc56_54a85870042357920fc143339f08944b() {
+ assertEval("argv <- list(369.430769230769, 4.99999999999983);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc57_d343b21f361fd447fcf56deba09d9d4d() {
+ assertEval("argv <- list(structure(list(structure(list(title = 'boot: Bootstrap R (S-PLUS) Functions', author = structure(list(structure(list(given = 'Angelo', family = 'Canty', role = 'aut', email = NULL, comment = 'S original'), .Names = c('given', 'family', 'role', 'email', 'comment')), structure(list(given = c('Brian', 'D.'), family = 'Ripley', role = c('aut', 'trl', 'cre'), email = 'ripley@stats.ox.ac.uk', comment = 'R port, author of parallel support'), .Names = c('given', 'family', 'role', 'email', 'comment'))), class = 'person'), year = '2012', note = 'R package version 1.3-4', url = 'http://CRAN.R-project.org/package=boot'), .Names = c('title', 'author', 'year', 'note', 'url'), bibtype = 'Manual', key = 'boot-package')), class = 'bibentry'), structure(list(structure(list(title = 'Bootstrap Methods and Their Applications', author = structure(list(structure(list(given = c('Anthony', 'C.'), family = 'Davison', role = 'aut', email = NULL, comment = NULL), .Names = c('given', 'family', 'role', 'email', 'comment')), structure(list( given = c('David', 'V.'), family = 'Hinkley', role = 'aut', email = NULL, comment = NULL), .Names = c('given', 'family', 'role', 'email', 'comment'))), class = 'person'), year = '1997', publisher = 'Cambridge University Press', address = 'Cambridge', isbn = '0-521-57391-2', url = 'http://statwww.epfl.ch/davison/BMA/'), .Names = c('title', 'author', 'year', 'publisher', 'address', 'isbn', 'url'), bibtype = 'Book', key = 'boot-book')), class = 'bibentry'));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc61_2dc91c47b53879aa7acf309eb1a19905() {
+ assertEval("argv <- list(structure(list(`ANY#ANY` = .Primitive('==')), .Names = 'ANY#ANY'), list());c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc64_33cd5cddf08f0b34a933c44cf32ac58a() {
+ assertEval("argv <- list(structure(1386393974.25184, class = c('POSIXct', 'POSIXt')), structure(1386393974.25184, class = c('POSIXct', 'POSIXt')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc65_c46ca5c243b7191eb1a8cf838f2a7243() {
+ assertEval("argv <- list('BiocInstaller', '/home/lzhao/R/x86_64-unknown-linux-gnu-library/3.0', structure(c('1.12.0', NA, 'R (>= 3.0.0)', NA, NA, 'RUnit, BiocGenerics', NA, 'Artistic-2.0', NA, NA, NA, NA, NA, NA, '3.0.1'), .Names = c('Version', NA, 'Depends', NA, NA, 'Suggests', NA, 'License', NA, NA, NA, NA, NA, NA, 'Built')));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc67_6490c980148fcca0cf688502481f5377() {
+ assertEval("argv <- list(structure(c(0.06, 0.32, 0.63), .Names = c('0%', '25%', '50%')), 909.591818181818, structure(c(0.905, 10000), .Names = c('75%', '100%')));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc7_2d2083d26d4150b2a7c49acd853790e1() {
+ assertEval("argv <- list(expression(data.frame), list(), check.names = TRUE, stringsAsFactors = TRUE);c(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc70_b3c7975bed1723f6697dfe8ad4ae08f2() {
+ assertEval("argv <- list(structure(list(Topic = character(0), File = character(0)), .Names = c('Topic', 'File'), class = 'data.frame', row.names = integer(0)), sep = '\r');c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc71_1da295315d7894b55682648e0b474e3e() {
+ assertEval("argv <- list(structure(list(Subject = structure(c(1L, 3L, 6L, 2L, 4L, 5L), .Label = c('1', '4', '2', '5', '6', '3'), class = c('ordered', 'factor')), conc.0.25 = c(1.5, 2.03, 2.72, 1.85, 2.05, 2.31), conc.0.5 = c(0.94, 1.63, 1.49, 1.39, 1.04, 1.44), conc.0.75 = c(0.78, 0.71, 1.16, 1.02, 0.81, 1.03), conc.1 = c(0.48, 0.7, 0.8, 0.89, 0.39, 0.84), conc.1.25 = c(0.37, 0.64, 0.8, 0.59, 0.3, 0.64), conc.2 = c(0.19, 0.36, 0.39, 0.4, 0.23, 0.42)), row.names = c(1L, 12L, 23L, 34L, 45L, 56L), .Names = c('Subject', 'conc.0.25', 'conc.0.5', 'conc.0.75', 'conc.1', 'conc.1.25', 'conc.2')), list(NULL));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc72_2a6782ea4aeb0791c02a3fb8ec21aac6() {
+ assertEval("argv <- list(structure(list(x.limits = c(-2.46408176011189, 2.92512533057276), y.limits = structure(c(1386479490.57927, 1387608090.57927), class = c('POSIXct', 'POSIXt')), x.used.at = NULL, y.used.at = NULL, x.num.limit = NULL, y.num.limit = NULL, aspect.ratio = 1, prepanel.default = 'prepanel.default.xyplot', prepanel = NULL), .Names = c('x.limits', 'y.limits', 'x.used.at', 'y.used.at', 'x.num.limit', 'y.num.limit', 'aspect.ratio', 'prepanel.default', 'prepanel')), structure(list(index.cond = list(1:3), perm.cond = 1L), .Names = c('index.cond', 'perm.cond')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc73_7c9d27f7d87d43feb9c87a478f41573f() {
+ assertEval("argv <- list(structure(list(coefficients = structure(c(-0.0529307911108286, -0.200175675120066), .Names = c('(Intercept)', 'xTRUE')), residuals = structure(c(0.196977726701894, -0.102864715594501, -1.21764591766838, -0.425219263997792, 0.671048026430597, 1.41161034263987, 0.150318738887899, 0.440602402670198, 0.19930142564799, -1.32412876571778), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), effects = structure(c(0.483887391035467, -0.316505532770654, -1.29088865053614, -0.430233412486575, 0.597805293562832, 1.40659619415109, 0.0770760060201344, 0.435588254181415, 0.126058692780225, -1.32914291420656), .Names = c('(Intercept)', 'xTRUE', '', '', '', '', '', '', '', '')), rank = 2L), .Names = c('coefficients', 'residuals', 'effects', 'rank')), structure(list(fitted.values = structure(c(-0.253106466230895, -0.0529307911108286, -0.253106466230895, -0.0529307911108285, -0.253106466230895, -0.0529307911108285, -0.253106466230895, -0.0529307911108285, -0.253106466230895, -0.0529307911108285), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), assign = 0:1, qr = structure(list(qr = structure(c(-3.16227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, -1.58113883008419, 1.58113883008419, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634), .Dim = c(10L, 2L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'), c('(Intercept)', 'xTRUE')), assign = 0:1, contrasts = structure(list(x = 'contr.treatment'), .Names = 'x')), qraux = c(1.31622776601684, 1.39220245868163), pivot = 1:2, tol = 1e-07, rank = 2L), .Names = c('qr', 'qraux', 'pivot', 'tol', 'rank'), class = 'qr'), df.residual = 8L), .Names = c('fitted.values', 'assign', 'qr', 'df.residual')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc74_daacdfe4d9d32355603ed5db03b02fe2() {
+ assertEval("argv <- list(structure(list(object = c('time', 'status')), .Names = 'object'), structure(list(max.level = NA, vec.len = 4, digits.d = 3, nchar.max = 128, give.attr = TRUE, give.head = TRUE, width = 80L, envir = NULL, strict.width = 'no', formatNum = function (x, ...) format(x, trim = TRUE, drop0trailing = TRUE, ...), list.len = 99), .Names = c('max.level', 'vec.len', 'digits.d', 'nchar.max', 'give.attr', 'give.head', 'width', 'envir', 'strict.width', 'formatNum', 'list.len')), structure(list(give.length = TRUE, nest.lev = 2, indent.str = ' .. ..'), .Names = c('give.length', 'nest.lev', 'indent.str')));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinc_testc9_877d21ddde2b9e653bd8ff400df9eba1() {
+ assertEval("argv <- list(NULL, structure(list(class = 'try-error', condition = structure(list(message = 'more columns than column names', call = quote(read.table('foo6', header = TRUE))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), .Names = c('class', 'condition')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincache_testcache1_45dfd711de8f6014b6f7c2c8b1f1385a() {
+ assertEval("argv <- list('ddenseMatrix', c('ddenseMatrix', 'dMatrix', 'denseMatrix', 'Matrix', 'mMatrix'));.cache_class(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincache_testcache2_4f69f78c4dae96b1c05ec2c77be1a3da() {
+ assertEval("argv <- list('numeric', c('numeric', 'vector', 'atomicVector'));.cache_class(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincat_testcat2_7f687b22a78090d3d549bb8b426eeaae() {
+ assertEval("argv <- list(list('Loading required package: splines\n'), structure(2L, class = c('terminal', 'connection')), '', FALSE, NULL, FALSE); .Internal(cat(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinceiling_testceiling6_95605b294cc537ec6d27a57bc1f90104() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));ceiling(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinceiling_testceiling7_2fb13b9335b8e0692e5224868afa548b() {
+ assertEval("argv <- list(1e+05);ceiling(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincharToRaw_testcharToRaw1_f6ac05ee10c8b34d9c24558aed17abd0() {
+ assertEval("argv <- list(''); .Internal(charToRaw(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincharmatch_testcharmatch1_592336a33e8b20eb04d56e99f31eb9e3() {
+ assertEval("argv <- list(c('x', 'y', 'z'), c('row.names', 'x', 'y', 'z'), 0L); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincharmatch_testcharmatch2_3fed2375b93bb5c2f01e0e9735c087b2() {
+ assertEval("argv <- list(character(0), c('row.names', 'height', 'weight'), 0L); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincharmatch_testcharmatch3_0ee63848773a0524ddc63d996edf54a3() {
+ assertEval("argv <- list('package:methods', c('.GlobalEnv', 'CheckExEnv', 'package:stats', 'package:graphics', 'package:grDevices', 'package:utils', 'package:datasets', 'package:methods', 'Autoloads', 'package:base'), NA_integer_); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincharmatch_testcharmatch4_8c6ebed5cb294d4ba570f479750ef5e0() {
+ assertEval("argv <- list('package:methods', c('.GlobalEnv', 'package:graphics', 'package:stats', 'Autoloads', 'package:base'), NA_integer_); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincharmatch_testcharmatch5_30c07d1ab246e9df0acadf7f38437532() {
+ assertEval("argv <- list(c('0', '1'), c('0', '1'), 0); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincharmatch_testcharmatch6_c905ef74c53eb6a8b9a55f980e35743d() {
+ assertEval("argv <- list(c('m', 'f'), c('male', 'female'), NA_integer_); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincharmatch_testcharmatch7_6c3fdec3d6eaaf2e114300dc865abdcc() {
+ assertEval("argv <- list('me', c('mean', 'median', 'mode'), NA_integer_); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincharmatch_testcharmatch8_60a534fcf3ca2630b7910eaab577fde6() {
+ assertEval("argv <- list(character(0), c('semiTransparency', 'transparentBackground', 'rasterImage', 'capture', 'locator', 'events'), 0L); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinchartr_testchartr1_9279f1e8c0c7e17436b2b5348cb0e604() {
+ assertEval("argv <- list('.', '.', c('0.02', '0.06', '0.11', '0.22', '0.56', '1.1')); .Internal(chartr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinchartr_testchartr2_6b8cc756870f6234be361a5a2c033e15() {
+ assertEval("argv <- list('iXs', 'why', 'MiXeD cAsE 123'); .Internal(chartr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinchartr_testchartr3_d9509ba59c460fd40fd43ef3dec4924f() {
+ assertEval("argv <- list('a-cX', 'D-Fw', 'MiXeD cAsE 123'); .Internal(chartr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinchartr_testchartr4_f13328602f093d30f684732048aa532f() {
+ assertEval("argv <- list('.', '.', character(0)); .Internal(chartr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinchoose_testchoose1_44e127902a215294ccfeae0cb5b8aa75() {
+ assertEval("argv <- list(-1, 3); .Internal(choose(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinchoose_testchoose2_671ebdf57cc92ec28ded2847d0ecde16() {
+ assertEval("argv <- list(9L, c(-14, -13, -12, -11, -10, -9, -8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24)); .Internal(choose(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinchoose_testchoose3_079022733e336ef3136461b44fec0f89() {
+ assertEval("argv <- list(logical(0), logical(0)); .Internal(choose(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinchoose_testchoose4_59bd8875f1d732ab6e0a9ffe3ec36a41() {
+ assertEval("argv <- list(0.5, 0:10); .Internal(choose(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclass_testclass1_d5e1922da90ab1236e08268a69a020ce() {
+ assertEval("argv <- list(structure(function (x) standardGeneric('exp', .Primitive('exp')), generic = structure('exp', package = 'base'), package = 'base', group = list('Math'), valueClass = character(0), signature = 'x', default = .Primitive('exp'), skeleton = quote(.Primitive('exp')(x)), class = structure('standardGeneric', package = 'methods')));class(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclass_testclass12_c23f9e29277c3c4eb8c491f9c088cf07() {
+ assertEval("argv <- list(structure(function (qr, y) .Call(sparseQR_resid_fitted, qr, y, TRUE), target = structure(c('sparseQR', 'ddenseMatrix'), .Names = c('qr', 'y'), package = c('Matrix', 'Matrix'), class = structure('signature', package = 'methods')), defined = structure(c('sparseQR', 'ddenseMatrix'), .Names = c('qr', 'y'), package = c('Matrix', 'Matrix'), class = structure('signature', package = 'methods')), generic = structure('qr.resid', package = 'base'), class = structure('MethodDefinition', package = 'methods')));class(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclass_testclass18_0994d077e69b51e5a997bd716f08e8a6() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = 0L));class(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclass_testclass20_4754e06a72e20ff5539b877984997756() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(24L, 13L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24'), c('(Intercept)', 'block2', 'block3', 'block4', 'block5', 'block6', 'N1', 'P1', 'K1', 'N1:P1', 'N1:K1', 'P1:K1', 'N1:P1:K1')), assign = c(0L, 1L, 1L, 1L, 1L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L), contrasts = structure(list(block = 'contr.treatment', N = 'contr.treatment', P = 'contr.treatment', K = 'contr.treatment'), .Names = c('block', 'N', 'P', 'K'))));class(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclass_testclass21_e7e777ce32be8efe2035b119d5bcd3db() {
+ assertEval("argv <- list(.Primitive('dimnames<-'));class(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclass_testclass23_0821b526eb4132338803c209df9fe70a() {
+ assertEval("argv <- list(structure(function (a, b, ...) standardGeneric('solve'), generic = structure('solve', package = 'base'), package = 'base', group = list(), valueClass = character(0), signature = c('a', 'b'), default = structure(function (a, b, ...) UseMethod('solve'), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'a', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'a', package = 'methods'), generic = structure('solve', package = 'base'), class = structure('derivedDefaultMethod', package = 'methods')), skeleton = quote((function (a, b, ...) UseMethod('solve'))(a, b, ...)), class = structure('standardGeneric', package = 'methods')));class(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclass_testclass25_e9d559b4affb116e734cf903b2e517e1() {
+ assertEval("argv <- list(structure(function (x, type, ...) .Call(dgeMatrix_norm, as(x, 'dgeMatrix'), type), target = structure(c('matrix', 'character'), .Names = c('x', 'type'), package = c('methods', 'methods'), class = structure('signature', package = 'methods')), defined = structure(c('matrix', 'character'), .Names = c('x', 'type'), package = c('methods', 'methods'), class = structure('signature', package = 'methods')), generic = structure('norm', package = 'base'), class = structure('MethodDefinition', package = 'methods')));class(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclass_testclass26_f1880f9b154b8ebdd15f843d5e7aca15() {
+ assertEval("argv <- list(structure(function (x, mode = 'any') .Internal(as.vector(x, mode)), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods')));class(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclass_testclass27_0a25331c90c4cf31686b5d1179bcbd91() {
+ assertEval("argv <- list(structure(function (x, uplo) { if (uplo == x@uplo) x else t(x)}, target = structure(c('nsCMatrix', 'character'), .Names = c('x', 'uplo'), package = c('Matrix', 'methods'), class = structure('signature', package = 'methods')), defined = structure(c('nsCMatrix', 'character'), .Names = c('x', 'uplo'), package = c('Matrix', 'methods'), class = structure('signature', package = 'methods')), generic = structure('forceSymmetric', package = 'Matrix'), class = structure('MethodDefinition', package = 'methods')));class(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclass_testclass29_4c7878007c55310af8683251257665f3() {
+ assertEval("argv <- list(structure(1:10, .Tsp = c(1959.25, 1961.5, 4), class = 'ts'));class(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclass_testclass5_47597cdbf9ba6db858bb11105f1d333c() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')));class(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclassassign_testclassassign1_de061a60340f3f539d6ca430bc12a4ac() {
+ assertEval("argv <- list(structure(function (x, mode = 'any') .Internal(as.vector(x, mode)), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods')), value = structure('MethodDefinition', package = 'methods'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclassassign_testclassassign10_198eeb8cea17bbf0690d6e8f4ea6ba5f() {
+ assertEval("argv <- list(structure(c('o', 'p', 'v', 'i', 'r', 'w', 'b', 'm', 'f', 's'), date = structure(1224086400, class = c('POSIXct', 'POSIXt'), tzone = ''), class = 'stamped'), value = 'stamped');`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclassassign_testclassassign11_94e6631dce59f50b35fa383e95ded7f5() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')), structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclassassign_testclassassign13_0b8b3c700a1c7295f81b886f1731ccae() {
+ assertEval("argv <- list(structure(function (qr, y, k = qr$rank) standardGeneric('qr.fitted'), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'qr', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'qr', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods')), value = structure('MethodDefinition', package = 'methods'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclassassign_testclassassign14_d32f4beaf1ef3258805491fdc2b58d1d() {
+ assertEval("argv <- list(structure(function (x = 1, nrow, ncol) standardGeneric('diag'), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods')), value = structure('MethodDefinition', package = 'methods'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclassassign_testclassassign15_814f8d61bca34c17950b5c7007ee60cc() {
+ assertEval("argv <- list(structure(1:6, class = 'A'), value = 'A');`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclassassign_testclassassign16_302fecacff77ed8b1433b4987b90b1bd() {
+ assertEval("argv <- list(structure(function (x, y, ...) standardGeneric('plot'), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods')), value = structure('MethodDefinition', package = 'methods'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclassassign_testclassassign17_2b608d746bee2050e015f9471e882173() {
+ assertEval("argv <- list(structure(function (x, logarithm = TRUE, ...) UseMethod('determinant'), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods')), value = structure('MethodDefinition', package = 'methods'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclassassign_testclassassign18_c9916c88ca1c01ca81cf81fac2ea6a5f() {
+ assertEval("argv <- list(structure(function (x, y = NULL) .Internal(crossprod(x, y)), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods')), value = structure('MethodDefinition', package = 'methods'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclassassign_testclassassign19_546f785b6e71e56b9e145ee91803d75b() {
+ assertEval("argv <- list(structure(function (obj, force = FALSE) standardGeneric('unname'), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'obj', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'obj', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods')), value = structure('MethodDefinition', package = 'methods'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclassassign_testclassassign2_edd86ab610b77aec088ad3ae7fca2183() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclassassign_testclassassign3_fcbc53d984c1659787a065a92cbe81fa() {
+ assertEval("argv <- list(character(0), character(0));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclassassign_testclassassign5_28413f4a48f41766956da855b9e8c3b0() {
+ assertEval("argv <- list(structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), value = structure('signature', package = 'methods'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclassassign_testclassassign6_83ed6f05a87f720078d5b5c90223159d() {
+ assertEval("argv <- list(structure(list(par = 5.5, loglik = 0.970661978016996), .Names = c('par', 'loglik'), class = 'pfit'), value = 'pfit');`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclassassign_testclassassign7_b76b84a3a4f3835e50d98dee7a32178a() {
+ assertEval("argv <- list(structure(FALSE, class = 'FALSE'), FALSE);`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclassassign_testclassassign8_9934325af052743d0fcb67710c021259() {
+ assertEval("argv <- list(1:3, value = 'numeric');`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclassassign_testclassassign9_d2c3b1b6171abd4b6d56ad38962c3c96() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, 1, 0, 0, 0, 1), .Dim = c(3L, 3L), class = structure('mmat2', package = '.GlobalEnv')), value = structure('mmat2', package = '.GlobalEnv'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinclearPushBack_testclearPushBack1_60dce03e9c3d4232985f47a71bf13e03() {
+ assertEval("argv <- list(FALSE); .Internal(clearPushBack(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincol_testcol1_63f49fefadf7f7ed0a9f08b7977a237e() {
+ assertEval("argv <- list(c(2L, 2L)); .Internal(col(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincol_testcol3_34fb537a27f9cf5d70c97961115fb97f() {
+ assertEval("argv <- list(c(1L, 0L)); .Internal(col(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincolMeans_testcolMeans1_76dd57a81d530cabad65f41bb19675d0() {
+ assertEval("argv <- list(structure(1:5, .Dim = c(5L, 1L), .Dimnames = list(c('1', '2', '3', '4', '5'), 'a')), 5, 1, FALSE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincolMeans_testcolMeans10_eaa4ece5285fc47d6ee6e502482147a3() {
+ assertEval("argv <- list(structure(c(NA, 30.6929824561403, 25.6929824561403, 18.6929824561403, 6.69298245614035, -6.30701754385965, -13.3070175438597, -24.3070175438597, -21.3070175438597, 3.69298245614035, -2.30701754385965, -1.30701754385965, -20.3070175438597, -17.3070175438597, NA, NA, 12.6929824561403, 0.692982456140349, 0.692982456140349, -5.30701754385965, -11.3070175438597, -19.3070175438597, -10.3070175438597, -17.3070175438597, -20.3070175438597, -32.3070175438597, -24.3070175438597, -33.3070175438597, -31.3070175438597, -24.3070175438597, NA, -24.3070175438597, 2.69298245614035, 17.6929824561403, 18.6929824561403, 3.69298245614035, 14.6929824561403, 4.69298245614035, 14.6929824561403, 0.692982456140349, 14.6929824561403, 11.6929824561403, 22.6929824561403, 16.6929824561403, 19.6929824561403, 14.6929824561403, 10.6929824561403, 18.6929824561403, 22.6929824561403, 5.69298245614035, 6.69298245614035, 0.692982456140349, 3.69298245614035, -7.30701754385965, -8.30701754385965, -4.30701754385965, 0.692982456140349, 5.69298245614035, 4.69298245614035, 9.69298245614035, 14.6929824561403, 5.69298245614035, 4.69298245614035, 0.692982456140349, 15.6929824561403, 26.6929824561403, 14.6929824561403, 21.6929824561403, 22.6929824561403, 14.6929824561403, 5.69298245614035, 17.6929824561403, 19.6929824561403, 7.69298245614035, 5.69298245614035, 0.692982456140349, 23.6929824561403, 16.6929824561403, 12.6929824561403, 12.6929824561403, 14.6929824561403, 7.69298245614035, 12.6929824561403, 5.69298245614035, 6.69298245614035, -10.3070175438597, -0.307017543859651, -12.3070175438597, -12.3070175438597, -4.30701754385965, -18.3070175438597, -10.3070175438597, -20.3070175438597, -7.30701754385965, -21.3070175438597, -12.3070175438597, 2.69298245614035, 8.69298245614035, 8.69298245614035, -0.307017543859651, 9.69298245614035, -3.30701754385965, 4.69298245614035, -4.30701754385965, -5.30701754385965, -8.30701754385965, -2.30701754385965, -7.30701754385965, -7.30701754385965, 4.69298245614035, NA, NA, 11.6929824561403, -12.3070175438597, -16.3070175438597, -29.3070175438597, -28.3070175438597, -31.3070175438597, -32.3070175438597, -32.3070175438597), .Dim = c(120L, 1L), '`scaled:center`' = 56.3070175438597, .Dimnames = list(NULL, 'Series 1'), .Tsp = c(1, 120, 1), class = 'ts'), 120, 1, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincolMeans_testcolMeans8_02a9f5d93f6a558022b5b467a1ff2724() {
+ assertEval("argv <- list(structure(c(234.505586749024, 30.477338238484, 110.520869124744, 10.8182256360112, 147.313169560589, 97.6285379622695, 176.128082322087, 47.2454421006426, 1.90674769458181e-15, 30.477338238484, 416.975499504725, 31.7861370189749, 190.703952476833, 120.117506711705, 442.506661969244, 239.889830502368, 22.2127533877541, 8.96469890623342e-16, 110.520869124744, 31.7861370189749, 1515.40698347813, 93.4417828515041, 178.042033105564, 210.514489336906, 228.304319294085, 24.2402628282532, 9.78296809359315e-16, 10.8182256360112, 190.703952476833, 93.4417828515041, 1736.17011782569, 171.990208955525, 616.163154757563, 314.295577560061, 190.513839846008, 7.68882264110221e-15, 147.313169560589, 120.117506711705, 178.042033105564, 171.990208955525, 4391.22673539453, 270.845832643245, 258.906125067947, 151.459157745218, 6.11264043711995e-15, 97.6285379622695, 442.506661969244, 210.514489336906, 616.163154757563, 270.845832643245, 3843.51687278644, 444.735756817902, 537.305365376654, 2.16847535162432e-14, 176.128082322087, 239.889830502368, 228.304319294085, 314.295577560062, 258.906125067947, 444.735756817902, 5767.34674134268, 307.533224133396, 1.24115309340219e-14, 47.2454421006426, 22.2127533877541, 24.2402628282532, 190.513839846008, 151.459157745218, 537.305365376655, 307.533224133396, 264.760049944031, 1.06852765558369e-14, 1.90674769458181e-15, 8.96469890623341e-16, 9.78296809359316e-16, 7.6888226411022e-15, 6.11264043711995e-15, 2.16847535162432e-14, 1.24115309340219e-14, 1.06852765558369e-14, 4.31240042063952e-31), .Dim = c(9L, 9L)), 9, 9, FALSE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincolSums_testcolSums7_e4d186b078b2fe26b3b24325db350af8() {
+ assertEval("argv <- list(structure(c(-7.5, -6.5, -5.5, -4.5, -3.5, -2.5, -1.5, -0.5, 0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, -421.875, -274.625, -166.375, -91.125, -42.875, -15.625, -3.375, -0.125, 0.125, 3.375, 15.625, 42.875, 91.125, 166.375, 274.625, 421.875, -9187.5, -2866.5, -445.499999999999, -4.5, -283.5, -562.5, -541.5, -220.5, 220.5, 541.5, 562.5, 283.5, 4.49999999999999, 445.5, 2866.5, 9187.5, -139741.875, -4844.38499999995, -10122.255, -28872.045, -28539.315, -15800.625, -4325.535, -178.605, 178.605, 4325.535, 15800.625, 28539.315, 28872.045, 10122.255, 4844.38500000001, 139741.875), .Dim = c(16L, 4L)), 16, 4, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincolSums_testcolSums8_a09a5bea37c62032b087b79f7d709c3b() {
+ assertEval("argv <- list(structure(0:1, .Dim = 1:2, .Dimnames = list('strata(grp)', c('x', 'strata(grp)'))), 1, 2, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincomment_testcomment1_c77b95f769037774163181fe113edc3d() {
+ assertEval("argv <- list(NULL); .Internal(comment(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincomment_testcomment2_c728dc42f3f20134f999f56ab33d24ce() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0'))); .Internal(comment(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincomment_testcomment3_ba1b2dbce7f2b9ab05cb3baf2da79e07() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(comment(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincomment_testcomment4_8cdd9bed472bd6b60605081bf8a10a7b() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4, comment = c('This is my very important data from experiment #0234', 'Jun 5, 1998'))); .Internal(comment(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincommentassign_testcommentassign1_451988423f92f80e38c9ce01b33e468e() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4, comment = c('This is my very important data from experiment #0234', 'Jun 5, 1998')), c('This is my very important data from experiment #0234', 'Jun 5, 1998')); .Internal(`comment<-`(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincommentassign_testcommentassign2_6bff4e1a724433a88f03217bd665d0d1() {
+ assertEval("argv <- list(character(0), NULL); .Internal(`comment<-`(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincommentassign_testcommentassign3_b5cccdd811618e3b3b05560c13209f25() {
+ assertEval("argv <- list(logical(0), NULL); .Internal(`comment<-`(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincomplex_testcomplex1_c8e64b9db6042406775a809244fb45e7() {
+ assertEval("argv <- list(0, numeric(0), numeric(0)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincomplex_testcomplex2_ba0f6ed54256cdb17391e415f3b76e2d() {
+ assertEval("argv <- list(FALSE, FALSE, numeric(0)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincomplex_testcomplex3_b283041a4c005998f8ef9050e5986b9f() {
+ assertEval("argv <- list(0L, 1:10, c(1, 1.4142135623731, 1.73205080756888, 2, 2.23606797749979, 2.44948974278318, 2.64575131106459, 2.82842712474619, 3, 3.16227766016838)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincomplex_testcomplex4_afe1ce19bc7c7ccb959feb4a6ae6045c() {
+ assertEval("argv <- list(0L, NA_real_, NA_real_); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincomplex_testcomplex5_0b2b7428e26e9fb5ca8cf36b981a6159() {
+ assertEval("argv <- list(0L, c(-0.560475646552213, -0.23017748948328, 1.55870831414912, 0.070508391424576, 0.129287735160946, 1.71506498688328, 0.460916205989202, -1.26506123460653, -0.686852851893526, -0.445661970099958, 1.22408179743946, 0.359813827057364, 0.400771450594052, 0.11068271594512, -0.555841134754075, 1.78691313680308, 0.497850478229239, -1.96661715662964, 0.701355901563686, -0.472791407727934, -1.06782370598685, -0.217974914658295, -1.02600444830724, -0.72889122929114, -0.625039267849257, -1.68669331074241, 0.837787044494525, 0.153373117836515, -1.13813693701195, 1.25381492106993, 0.426464221476814, -0.295071482992271, 0.895125661045022, 0.878133487533042, 0.821581081637487, 0.688640254100091, 0.553917653537589, -0.0619117105767217, -0.305962663739917, -0.380471001012383, -0.694706978920513, -0.207917278019599, -1.26539635156826, 2.16895596533851, 1.20796199830499, -1.12310858320335, -0.402884835299076, -0.466655353623219, 0.779965118336318, -0.0833690664718293, 0.253318513994755, -0.028546755348703, -0.0428704572913161, 1.36860228401446, -0.225770985659268, 1.51647060442954, -1.54875280423022, 0.584613749636069, 0.123854243844614, 0.215941568743973, 0.379639482759882, -0.502323453109302, -0.33320738366942, -1.01857538310709, -1.07179122647558, 0.303528641404258, 0.448209778629426, 0.0530042267305041, 0.922267467879738, 2.05008468562714, -0.491031166056535, -2.30916887564081, 1.00573852446226, -0.709200762582393, -0.688008616467358, 1.0255713696967, -0.284773007051009, -1.22071771225454, 0.18130347974915, -0.138891362439045, 0.00576418589988693, 0.38528040112633, -0.370660031792409, 0.644376548518833, -0.220486561818751, 0.331781963915697, 1.09683901314935, 0.435181490833803, -0.325931585531227, 1.14880761845109, 0.993503855962119, 0.54839695950807, 0.238731735111441, -0.627906076039371, 1.36065244853001, -0.600259587147127, 2.18733299301658, 1.53261062618519, -0.235700359100477, -1.02642090030678), c(-0.710406563699301, 0.25688370915653, -0.246691878462374, -0.347542599397733, -0.951618567265016, -0.0450277248089203, -0.784904469457076, -1.66794193658814, -0.380226520287762, 0.918996609060766, -0.575346962608392, 0.607964322225033, -1.61788270828916, -0.0555619655245394, 0.519407203943462, 0.301153362166714, 0.105676194148943, -0.640706008305376, -0.849704346033582, -1.02412879060491, 0.117646597100126, -0.947474614184802, -0.490557443700668, -0.256092192198247, 1.84386200523221, -0.651949901695459, 0.235386572284857, 0.0779608495637108, -0.961856634130129, -0.0713080861235987, 1.44455085842335, 0.451504053079215, 0.0412329219929399, -0.422496832339625, -2.05324722154052, 1.13133721341418, -1.46064007092482, 0.739947510877334, 1.90910356921748, -1.4438931609718, 0.701784335374711, -0.262197489402468, -1.57214415914549, -1.51466765378175, -1.60153617357459, -0.530906522170303, -1.4617555849959, 0.687916772975828, 2.10010894052567, -1.28703047603518, 0.787738847475178, 0.76904224100091, 0.332202578950118, -1.00837660827701, -0.119452606630659, -0.280395335170247, 0.56298953322048, -0.372438756103829, 0.976973386685621, -0.374580857767014, 1.05271146557933, -1.04917700666607, -1.26015524475811, 3.2410399349424, -0.416857588160432, 0.298227591540715, 0.636569674033849, -0.483780625708744, 0.516862044313609, 0.368964527385086, -0.215380507641693, 0.0652930335253153, -0.034067253738464, 2.12845189901618, -0.741336096272828, -1.09599626707466, 0.0377883991710788, 0.310480749443137, 0.436523478910183, -0.458365332711106, -1.06332613397119, 1.26318517608949, -0.349650387953555, -0.865512862653374, -0.236279568941097, -0.197175894348552, 1.10992028971364, 0.0847372921971965, 0.754053785184521, -0.499292017172261, 0.214445309581601, -0.324685911490835, 0.0945835281735714, -0.895363357977542, -1.31080153332797, 1.99721338474797, 0.600708823672418, -1.25127136162494, -0.611165916680421, -1.18548008459731)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincomplex_testcomplex6_87ca22aeafd32c40e7138de5daa874e8() {
+ assertEval("argv <- list(0L, numeric(0), numeric(0)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincomplex_testcomplex7_4ebf0fe01af6e2020d0ae9aebe00e041() {
+ assertEval("argv <- list(0L, NULL, numeric(0)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr1_6170987cc326ac86d91c4c762cf3c51e() {
+ assertEval("argv <- list(structure(list(size = 1056, isdir = FALSE, mode = structure(420L, class = 'octmode'), mtime = structure(1395082115.08988, class = c('POSIXct', 'POSIXt')), ctime = structure(1395082122.18188, class = c('POSIXct', 'POSIXt')), atime = structure(1395082175.70988, class = c('POSIXct', 'POSIXt')), uid = 1001L, gid = 1001L, uname = 'roman', grname = 'roman'), .Names = c('size', 'isdir', 'mode', 'mtime', 'ctime', 'atime', 'uid', 'gid', 'uname', 'grname'), class = 'data.frame', row.names = '/home/roman/r-instrumented/tests/myLib/pkgA/R/pkgA'), structure(list( size = NULL, isdir = NULL, mode = NULL, mtime = NULL, ctime = NULL, atime = NULL, uid = NULL, gid = NULL, uname = NULL, grname = NULL), .Names = c('size', 'isdir', 'mode', 'mtime', 'ctime', 'atime', 'uid', 'gid', 'uname', 'grname'), class = 'data.frame', row.names = '/home/roman/r-instrumented/tests/myLib/pkgA/R/pkgA')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr10_01391651584ab36a196be5f448299419() {
+ assertEval("argv <- list(structure(list(Df = c(1, 1, 1, 1, 16), `Sum Sq` = c(309.6845, 0.420500000000001, 4.90050000000001, 3.9605, 64.924), `Mean Sq` = c(309.6845, 0.420500000000001, 4.90050000000001, 3.9605, 4.05775), `F value` = c(76.3192656028586, 0.103628858357464, 1.20768899020393, 0.976033516111146, NA), `Pr(>F)` = c(1.73825946976405e-07, 0.751685166772039, 0.288052080502172, 0.337885793589305, NA)), .Names = c('Df', 'Sum Sq', 'Mean Sq', 'F value', 'Pr(>F)'), class = c('anova', 'data.frame'), row.names = c('(Intercept) ', 'rate ', 'additive ', 'rate:additive', 'Residuals ')), structure(list(Df = NULL, `Sum Sq` = NULL, `Mean Sq` = NULL, `F value` = NULL, `Pr(>F)` = NULL), .Names = c('Df', 'Sum Sq', 'Mean Sq', 'F value', 'Pr(>F)'), class = c('anova', 'data.frame'), row.names = c('(Intercept) ', 'rate ', 'additive ', 'rate:additive', 'Residuals '))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr11_6c5242f61b0eb0b91cfb6dd7132dc6f3() {
+ assertEval("argv <- list(structure(list(srcfile = c(NA, '/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats'), frow = c(NA, 2228L, 2369L, 2379L), lrow = c(NA, 2228L, 2369L, 2380L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 4L), class = 'data.frame'), structure(list(srcfile = NULL, frow = NULL, lrow = NULL), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 4L), class = 'data.frame')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr12_03c64cb8758a9289891e9d90cfba4daa() {
+ assertEval("argv <- list(structure(list(y = c(73, 73, 70, 74, 75, 115, 105, 107, 124, 107, 116, 125, 102, 144, 178, 149, 177, 124, 157, 128, 169, 165, 186, 152, 181, 139, 173, 151, 138, 181, 152, 188, 173, 196, 180, 171, 188, 174, 198, 172, 176, 162, 188, 182, 182, 141, 191, 190, 159, 170, 163, 197), x = c(1, 1, 1, 1, 1, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 11, 12)), .Names = c('y', 'x'), class = 'data.frame', row.names = c(NA, 52L), terms = quote(~y + x)), structure(list(y = NULL, x = NULL), .Names = c('y', 'x'), class = 'data.frame', row.names = c(NA, 52L), terms = quote(~y + x))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr13_c47695dfcfef753f96549dfb4237a266() {
+ assertEval("argv <- list(structure(list(x = 1:10, y = c(-0.626453810742332, 0.183643324222082, -0.835628612410047, 1.59528080213779, 0.329507771815361, -0.820468384118015, 0.487429052428485, 0.738324705129217, 0.575781351653492, -0.305388387156356), z = structure(c(9L, 3L, 6L, 2L, 10L, 5L, 1L, 4L, 8L, 7L), .Label = c('a', 'c', 'f', 'h', 'i', 'p', 'v', 'x', 'y', 'z'), class = 'factor')), .Names = c('x', 'y', 'z'), row.names = c(NA, 10L), .S3Class = 'data.frame', timestamps = structure(1386392033.84327, class = c('POSIXct', 'POSIXt')), class = structure('myFrame', package = '.GlobalEnv')), structure(list(x = NULL, y = NULL, z = NULL), .Names = c('x', 'y', 'z'), row.names = c(NA, 10L), .S3Class = 'data.frame', timestamps = structure(1386392033.84327, class = c('POSIXct', 'POSIXt')), class = structure('myFrame', package = '.GlobalEnv'))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr14_7f10f9cbbedfd4ce1ef44c09b43a58ed() {
+ assertEval("argv <- list(structure(list(y = c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434)), .Names = 'y', class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ 0)), structure(list(y = NULL), .Names = 'y', class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ 0))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr15_dab7fd2b52400b1ed6d86c6df3465550() {
+ assertEval("argv <- list(structure(list(`cbind(w = weight, w2 = weight^2)` = structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c('w', 'w2'))), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = c('cbind(w = weight, w2 = weight^2)', 'group'), class = 'data.frame', row.names = c(NA, 20L), terms = quote(cbind(w = weight, w2 = weight^2) ~ group)), structure(list(`cbind(w = weight, w2 = weight^2)` = NULL, group = NULL), .Names = c('cbind(w = weight, w2 = weight^2)', 'group'), class = 'data.frame', row.names = c(NA, 20L), terms = quote(cbind(w = weight, w2 = weight^2) ~ group))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr16_696badc92940bd654fb9a3360cff004a() {
+ assertEval("argv <- list(structure(list(Y = c(130L, 157L, 174L, 117L, 114L, 161L, 141L, 105L, 140L, 118L, 156L, 61L, 91L, 97L, 100L, 70L, 108L, 126L, 149L, 96L, 124L, 121L, 144L, 68L, 64L, 112L, 86L, 60L, 102L, 89L, 96L, 89L, 129L, 132L, 124L, 74L, 89L, 81L, 122L, 64L, 103L, 132L, 133L, 70L, 89L, 104L, 117L, 62L, 90L, 100L, 116L, 80L, 82L, 94L, 126L, 63L, 70L, 109L, 99L, 53L, 74L, 118L, 113L, 89L, 82L, 86L, 104L, 97L, 99L, 119L, 121L), B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c('I', 'II', 'III', 'IV', 'V', 'VI'), class = 'factor'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c('Golden.rain', 'Marvellous', 'Victory'), class = 'factor'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt'), class = 'factor')), .Names = c('Y', 'B', 'V', 'N'), terms = quote(Y ~ B + V + N + V:N), row.names = 2:72, class = 'data.frame'), structure(list(Y = NULL, B = NULL, V = NULL, N = NULL), .Names = c('Y', 'B', 'V', 'N'), terms = quote(Y ~ B + V + N + V:N), row.names = 2:72, class = 'data.frame')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr17_1ffdce0a2aeb8529b4bf0b2f95854194() {
+ assertEval("argv <- list(structure(list(Fr = c(32, 53, 10, 3, 11, 50, 10, 30, 10, 25, 7, 5, 3, 15, 7, 8, 36, 66, 16, 4, 9, 34, 7, 64, 5, 29, 7, 5, 2, 14, 7, 8), Hair = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('Black', 'Brown', 'Red', 'Blond'), class = 'factor'), Eye = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L), .Label = c('Brown', 'Blue', 'Hazel', 'Green'), class = 'factor'), Sex = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Male', 'Female'), class = 'factor')), .Names = c('Fr', 'Hair', 'Eye', 'Sex'), class = 'data.frame', row.names = c(NA, 32L), terms = quote(Fr ~ (Hair + Eye + Sex)^2)), structure(list(Fr = NULL, Hair = NULL, Eye = NULL, Sex = NULL), .Names = c('Fr', 'Hair', 'Eye', 'Sex'), class = 'data.frame', row.names = c(NA, 32L), terms = quote(Fr ~ (Hair + Eye + Sex)^2))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr18_ed93cd98b2b1d54aa877c66fdd18a7b7() {
+ assertEval("argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c('Employed', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'), class = 'data.frame', row.names = 1947:1962, terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year)), structure(list(Employed = NULL, GNP.deflator = NULL, GNP = NULL, Unemployed = NULL, Armed.Forces = NULL, Population = NULL, Year = NULL), .Names = c('Employed', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'), class = 'data.frame', row.names = 1947:1962, terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr19_ca805d6f8e051ad3465e8daa8f4c1797() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1, 1, 2), Deviance = c(12.2441566485997, 32.825622681839, 8.44399377410362, 11.9670615295804), AIC = c(73.9421143635373, 92.5235803967766, 72.1419514890412, 77.665019244518)), .Names = c('Df', 'Deviance', 'AIC'), row.names = c('<none>', '- M.user', '+ Temp', '+ Soft'), class = c('anova', 'data.frame')), structure(list(Df = NULL, Deviance = NULL, AIC = NULL), .Names = c('Df', 'Deviance', 'AIC'), row.names = c('<none>', '- M.user', '+ Temp', '+ Soft'), class = c('anova', 'data.frame'))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr2_8303d0877782ef9729ca639780a1a257() {
+ assertEval("argv <- list(structure(list(y = c(2.30923841792462, 3.23011719303818, 2.9161246695212, 3.35931329373059, 5.3777049208621, 5.63518136825043, 7.37725908636056, 7.75621985157329, 10.1175871700049, 8.86877085545769), x1 = 1:10, x2 = 1:10, x3 = c(0.1, 0.4, 0.9, 1.6, 2.5, 3.6, 4.9, 6.4, 8.1, 10)), .Names = c('y', 'x1', 'x2', 'x3'), class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ x1 + x2 + x3)), structure(list(y = NULL, x1 = NULL, x2 = NULL, x3 = NULL), .Names = c('y', 'x1', 'x2', 'x3'), class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ x1 + x2 + x3))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr20_bc61b11b3c96b333a959060f4d8bc936() {
+ assertEval("argv <- list(structure(list(`cbind(X, M)` = structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('X', 'M'))), M.user = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L), .Label = c('N', 'Y'), class = 'factor'), Temp = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c('High', 'Low'), class = 'factor'), Soft = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c('Hard', 'Medium', 'Soft'), class = 'factor')), .Names = c('cbind(X, M)', 'M.user', 'Temp', 'Soft'), class = 'data.frame', row.names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), terms = quote(cbind(X, M) ~ M.user + Temp + Soft)), structure(list(`cbind(X, M)` = NULL, M.user = NULL, Temp = NULL, Soft = NULL), .Names = c('cbind(X, M)', 'M.user', 'Temp', 'Soft'), class = 'data.frame', row.names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), terms = quote(cbind(X, M) ~ M.user + Temp + Soft))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr3_d96137928fe2c219335c64bc0b1f4069() {
+ assertEval("argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c('y', 'x', 'z'), class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ x * z)), structure(list(y = NULL, x = NULL, z = NULL), .Names = c('y', 'x', 'z'), class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ x * z))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr4_9edcdd7bb4b882c051133c2c8048df4b() {
+ assertEval("argv <- list(structure(list(surname = structure(integer(0), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(integer(0), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(integer(0), .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = integer(0), class = 'data.frame'), structure(list(surname = NULL, nationality = NULL, deceased = NULL), .Names = c('surname', 'nationality', 'deceased'), row.names = integer(0), class = 'data.frame')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr5_790637be127d2d13ea042e4385752121() {
+ assertEval("argv <- list(structure(list(A = 0:10, B = 10:20, `NA` = 20:30), .Names = c('A', 'B', NA), row.names = c(NA, -11L), class = 'data.frame'), structure(list(A = NULL, B = NULL, `NA` = NULL), .Names = c('A', 'B', NA), row.names = c(NA, -11L), class = 'data.frame')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr6_a684c9c05d0cb48c619c8461a3818d4d() {
+ assertEval("argv <- list(structure(list(`Surv(stop, status * as.numeric(event), type = 'mstate')` = structure(c(760, 2160, 5441, 277, 1815, 2587, 547, 1125, 2010, 2422, 6155, 1767, 61, 60, 7807, 7732, 6126, 7921, 3590, 5231, 5384, 5934, 6415, 6789, 6778, 3561, 4505, 3987, 4726, 5550, 5216, 5757, 2345, 6931, 6760, 5796, 4810, 5143, 3091, 3316, 700, 1706, 5088, 944, 2466, 1706, 7364, 1857, 9510, 9603, 31, 7479, 2006, 2588, 2983, 8761, 3932, 4201, 5293, 273, 2223, 4249, 5308, 8327, 499, 5789, 7417, 3242, 3275, 10359, 10852, 362, 9993, 1795, 3562, 4139, 4840, 4959, 547, 4119, 8308, 1674, 2953, 3776, 1369, 7911, 7519, 9318, 4370, 7301, 1642, 4169, 7417, 6117, 4536, 7235, 6723, 7397, 7428, 2084, 4066, 1673, 2860, 0, 3773, 4810, 4206, 2314, 4065, 8961, 6143, 517, 3837, 7498, 2815, 8806, 7668, 12457, 8600, 7003, 2435, 1826, 2403, 3805, 4901, 365, 6642, 3318, 3012, 1431, 2223, 4962, 5982, 638, 3346, 4996, 6800, 7454, 8887, 5024, 2833, 4232, 5238, 3186, 3380, 3382, 8100, 1766, 7184, 8059, 6008, 5047, 2236, 8165, 4224, 2844, 6256, 7370, 3560, 4939, 4941, 2230, 3068, 152, 10122, 3226, 3943, 518, 8569, 845, 2099, 8006, 8052, 9560, 0, 7965, 7470, 8133, 809, 153, 1851, 3010, 2121, 7085, 5068, 7093, 5930, 6878, 8080, 791, 6626, 3962, 1116, 1249, 9257, 1077, 566, 174, 4627, 5022, 2070, 3012, 1625, 6607, 8381, 8389, 1005, 3895, 4236, 6970, 8497, 2861, 8487, 3227, 8030, 8023, 31, 2435, 518, 4758, 7958, 7884, 4453, 6349, 7862, 1392, 3167, 6025, 4656, 1767, 7736, 2678, 2191, 3658, 7758, 8009, 2556, 3511, 7954, 822, 4321, 5151, 7545, 7576, 32, 7875, 5236, 7106, 2802, 7898, 3014, 7867, 5354, 2989, 7555, 6089, 8697, 6479, 1826, 5917, 792, 1431, 1434, 4763, 2910, 6209, 5824, 2400, 1400, 3027, 7198, 7247, 2557, 3855, 61, 7410, 1492, 7160, 7899, 5181, 7280, 3448, 7381, 2434, 6763, 7065, 1218, 1554, 7533, 7288, 2922, 5988, 2495, 5234, 9598, 2953, 2961, 4539, 3775, 6524, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 0, 0, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0, 2, 1, 2, 2, 0, 2, 1, 2, 0, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 0, 1, 2, 1, 2, 2, 0, 1, 2, 1, 2, 2, 2, 2, 0, 2, 1, 2, 2, 0, 1, 2, 2, 0, 1, 2, 0, 2, 1, 2, 2, 1, 2, 1, 2, 2, 2, 2, 1, 2, 2, 1, 2, 0, 2, 2, 1, 0, 2, 2, 0, 0, 2, 0, 2, 1, 2, 1, 2, 2, 2, 2, 2, 1, 2, 1, 2, 2, 1, 2, 1, 0, 0, 2, 2, 1, 2, 2, 1, 2, 0, 2, 1, 2, 2, 2, 2, 0, 2, 2, 2, 0, 2, 1, 2, 1, 2, 2, 0, 2, 2, 2, 0, 2, 2, 1, 2, 0, 2, 0, 0, 0, 2, 2, 2, 2, 2, 2, 2, 0, 2, 2, 0, 2, 2, 2, 1, 2, 0, 2, 2, 2, 1, 2, 1, 2, 2, 2, 0, 0, 2, 1, 2, 1, 0, 1, 0, 2, 0, 0, 2, 2, 2, 2, 0, 0, 2, 2, 0, 2, 2, 2, 2, 2, 0, 2, 1, 2, 0, 0, 1, 2, 0, 2, 1, 2, 1, 2, 2, 0, 1, 2, 1, 0, 2, 0, 2, 2, 0, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1, 2, 0, 0, 1, 2, 2, 0, 2, 0, 2, 2, 0, 2, 0, 2, 2, 0, 1, 2, 0, 0, 1, 2, 1, 2, 0, 1, 2, 2, 1, 2), .Dim = c(300L, 2L), .Dimnames = list(NULL, c('time', 'status')), type = 'mright', states = c('1', '2'), class = 'Surv')), .Names = 'Surv(stop, status * as.numeric(event), type = \'mstate\')', class = 'data.frame', row.names = c(NA, 300L)), structure(list(`Surv(stop, status * as.numeric(event), type = 'mstate')` = NULL), .Names = 'Surv(stop, status * as.numeric(event), type = \'mstate\')', class = 'data.frame', row.names = c(NA, 300L))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr7_4f405d4a6fd6c582c696add897152fa5() {
+ assertEval("argv <- list(structure(list(size = 284, isdir = FALSE, mode = structure(436L, class = 'octmode'), mtime = structure(1386397148.36693, class = c('POSIXct', 'POSIXt')), ctime = structure(1386397148.36693, class = c('POSIXct', 'POSIXt')), atime = structure(1386397148.36793, class = c('POSIXct', 'POSIXt')), uid = 501L, gid = 501L, uname = 'lzhao', grname = 'lzhao'), .Names = c('size', 'isdir', 'mode', 'mtime', 'ctime', 'atime', 'uid', 'gid', 'uname', 'grname'), class = 'data.frame', row.names = '/home/lzhao/tmp/RtmpvWhahC/Rex4eb8743f75cc'), structure(list( size = NULL, isdir = NULL, mode = NULL, mtime = NULL, ctime = NULL, atime = NULL, uid = NULL, gid = NULL, uname = NULL, grname = NULL), .Names = c('size', 'isdir', 'mode', 'mtime', 'ctime', 'atime', 'uid', 'gid', 'uname', 'grname'), class = 'data.frame', row.names = '/home/lzhao/tmp/RtmpvWhahC/Rex4eb8743f75cc')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr8_45b5b65223e2bf4b5b7a7f5ba29377d8() {
+ assertEval("argv <- list(structure(list(File = character(0), Title = character(0), PDF = character(0), Depends = list(), Keywords = list()), .Names = c('File', 'Title', 'PDF', 'Depends', 'Keywords'), row.names = integer(0), class = 'data.frame'), structure(list(File = NULL, Title = NULL, PDF = NULL, Depends = NULL, Keywords = NULL), .Names = c('File', 'Title', 'PDF', 'Depends', 'Keywords'), row.names = integer(0), class = 'data.frame')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincopyDFattr_testcopyDFattr9_25caa53459ad07e64061edced34162a1() {
+ assertEval("argv <- list(structure(list(Version = c('2.11.0', '2.11.0', '2.11.0', '2.11.0', '2.11.0', '2.11.0', '2.11.0', '2.11.0', '2.11.0'), Date = c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), Category = c('BUG FIXES', 'BUG FIXES', 'BUG FIXES', 'BUG FIXES', 'BUG FIXES', 'BUG FIXES', 'BUG FIXES', 'BUG FIXES', 'BUG FIXES'), Text = c('Using with(), eval() etc with a list with some unnamed elements now\n works. (PR#14035)', 'cor(A, B) where A is n x 1 and B a 1-dimensional array segfaulted or\n gave an internal error. (The case cor(B, A) was PR#7116.)', 'cut.POSIXt() applied to a start value after the DST transition on a\n DST-change day could give the wrong time for argument breaks in\n units of days or longer. (PR#14208)', 'do_par() UNPROTECTed too early (PR#14214)', 'Subassignment x[[....]] <- y didn't check for a zero-length right\n hand side, and inserted a rubbish value. (PR#14217)', 'Extreme tail behavior of, pbeta() {and hence pf()}, e.g., pbeta(x,\n 3, 2200, lower.tail=FALSE, log.p=TRUE) now returns finite values\n instead of jumping to -Inf too early. (PR#14230).', 'read.fwf() misread multi-line records when n was specified.\n (PR#14241)', 'gzcon( <textConnection> ), an error, no longer damages the\n connection (in a way to have it segfault). (PR#14237)', 'If xy[z].coords (used internally by many graphics functions) are\n given a list as x, they now check that the list has suitable names\n and give a more informative error message. (PR#13936)')), .Names = c('Version', 'Date', 'Category', 'Text'), bad = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), package = 'R', row.names = c(1473L, 1483L, 1484L, 1485L, 1486L, 1493L, 1499L, 1503L, 1505L), class = c('news_db_from_Rd', 'news_db', 'data.frame')), structure(list(Version = NULL, Date = NULL, Category = NULL, Text = NULL), .Names = c('Version', 'Date', 'Category', 'Text'), bad = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), package = 'R', row.names = c(1473L, 1483L, 1484L, 1485L, 1486L, 1493L, 1499L, 1503L, 1505L), class = c('news_db_from_Rd', 'news_db', 'data.frame'))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincos_testcos1_bf4698ad3ab0a3b8360d7770383b6471() {
+ assertEval("argv <- list(c(-6.28318530717959, -6.1261056745001, -5.96902604182061, -5.81194640914112, -5.65486677646163, -5.49778714378214, -5.34070751110265, -5.18362787842316, -5.02654824574367, -4.86946861306418, -4.71238898038469, -4.5553093477052, -4.39822971502571, -4.24115008234622, -4.08407044966673, -3.92699081698724, -3.76991118430775, -3.61283155162826, -3.45575191894877, -3.29867228626928, -3.14159265358979, -2.9845130209103, -2.82743338823081, -2.67035375555132, -2.51327412287183, -2.35619449019234, -2.19911485751286, -2.04203522483337, -1.88495559215388, -1.72787595947439, -1.5707963267949, -1.41371669411541, -1.25663706143592, -1.09955742875643, -0.942477796076938, -0.785398163397448, -0.628318530717959, -0.471238898038469, -0.314159265358979, -0.15707963267949, 0, 0.15707963267949, 0.314159265358979, 0.471238898038469, 0.628318530717959, 0.785398163397448, 0.942477796076938, 1.09955742875643, 1.25663706143592, 1.41371669411541, 1.5707963267949, 1.72787595947439, 1.88495559215388, 2.04203522483337, 2.19911485751286, 2.35619449019234, 2.51327412287183, 2.67035375555133, 2.82743338823081, 2.9845130209103, 3.14159265358979, 3.29867228626928, 3.45575191894877, 3.61283155162826, 3.76991118430775, 3.92699081698724, 4.08407044966673, 4.24115008234622, 4.39822971502571, 4.5553093477052, 4.71238898038469, 4.86946861306418, 5.02654824574367, 5.18362787842316, 5.34070751110265, 5.49778714378214, 5.65486677646163, 5.81194640914112, 5.96902604182061, 6.1261056745001, 6.28318530717959, 6.44026493985908, 6.59734457253857, 6.75442420521805, 6.91150383789754, 7.06858347057704, 7.22566310325652, 7.38274273593601, 7.5398223686155, 7.69690200129499, 7.85398163397448, 8.01106126665397, 8.16814089933346, 8.32522053201295, 8.48230016469244, 8.63937979737193, 8.79645943005142, 8.95353906273091, 9.1106186954104, 9.26769832808989, 9.42477796076938));cos(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincos_testcos2_339a77b6e10125d7528921979c37ab17() {
+ assertEval("argv <- list(c(0-3i, 0-2.96984924623116i, 0-2.93969849246231i, 0-2.90954773869347i, 0-2.87939698492462i, 0-2.84924623115578i, 0-2.81909547738693i, 0-2.78894472361809i, 0-2.75879396984925i, 0-2.7286432160804i, 0-2.69849246231156i, 0-2.66834170854271i, 0-2.63819095477387i, 0-2.60804020100502i, 0-2.57788944723618i, 0-2.54773869346734i, 0-2.51758793969849i, 0-2.48743718592965i, 0-2.4572864321608i, 0-2.42713567839196i, 0-2.39698492462312i, 0-2.36683417085427i, 0-2.33668341708543i, 0-2.30653266331658i, 0-2.27638190954774i, 0-2.24623115577889i, 0-2.21608040201005i, 0-2.18592964824121i, 0-2.15577889447236i, 0-2.12562814070352i, 0-2.09547738693467i, 0-2.06532663316583i, 0-2.03517587939699i, 0-2.00502512562814i, 0-1.9748743718593i, 0-1.94472361809045i, 0-1.91457286432161i, 0-1.88442211055276i, 0-1.85427135678392i, 0-1.82412060301508i, 0-1.79396984924623i, 0-1.76381909547739i, 0-1.73366834170854i, 0-1.7035175879397i, 0-1.67336683417085i, 0-1.64321608040201i, 0-1.61306532663317i, 0-1.58291457286432i, 0-1.55276381909548i, 0-1.52261306532663i, 0-1.49246231155779i, 0-1.46231155778894i, 0-1.4321608040201i, 0-1.40201005025126i, 0-1.37185929648241i, 0-1.34170854271357i, 0-1.31155778894472i, 0-1.28140703517588i, 0-1.25125628140704i, 0-1.22110552763819i, 0-1.19095477386935i, 0-1.1608040201005i, 0-1.13065326633166i, 0-1.10050251256281i, 0-1.07035175879397i, 0-1.04020100502513i, 0-1.01005025125628i, 0-0.979899497487437i, 0-0.949748743718593i, 0-0.919597989949749i, 0-0.889447236180905i, 0-0.859296482412061i, 0-0.829145728643216i, 0-0.798994974874372i, 0-0.768844221105528i, 0-0.738693467336684i, 0-0.70854271356784i, 0-0.678391959798995i, 0-0.648241206030151i, 0-0.618090452261307i, 0-0.587939698492463i, 0-0.557788944723618i, 0-0.527638190954774i, 0-0.49748743718593i, 0-0.467336683417086i, 0-0.437185929648241i, 0-0.407035175879397i, 0-0.376884422110553i, 0-0.346733668341709i, 0-0.316582914572864i, 0-0.28643216080402i, 0-0.256281407035176i, 0-0.226130653266332i, 0-0.195979899497488i, 0-0.165829145728643i, 0-0.135678391959799i, 0-0.105527638190955i, 0-0.0753768844221105i, 0-0.0452261306532664i, 0-0.0150753768844223i, 0+0.0150753768844218i, 0+0.0452261306532664i, 0+0.0753768844221105i, 0+0.105527638190955i, 0+0.135678391959799i, 0+0.165829145728643i, 0+0.195979899497488i, 0+0.226130653266332i, 0+0.256281407035176i, 0+0.28643216080402i, 0+0.316582914572864i, 0+0.346733668341709i, 0+0.376884422110553i, 0+0.407035175879397i, 0+0.437185929648241i, 0+0.467336683417085i, 0+0.49748743718593i, 0+0.527638190954774i, 0+0.557788944723618i, 0+0.587939698492462i, 0+0.618090452261306i, 0+0.648241206030151i, 0+0.678391959798995i, 0+0.708542713567839i, 0+0.738693467336683i, 0+0.768844221105527i, 0+0.798994974874372i, 0+0.829145728643216i, 0+0.85929648241206i, 0+0.889447236180904i, 0+0.919597989949748i, 0+0.949748743718593i, 0+0.979899497487437i, 0+1.01005025125628i, 0+1.04020100502513i, 0+1.07035175879397i, 0+1.10050251256281i, 0+1.13065326633166i, 0+1.1608040201005i, 0+1.19095477386935i, 0+1.22110552763819i, 0+1.25125628140704i, 0+1.28140703517588i, 0+1.31155778894472i, 0+1.34170854271357i, 0+1.37185929648241i, 0+1.40201005025126i, 0+1.4321608040201i, 0+1.46231155778894i, 0+1.49246231155779i, 0+1.52261306532663i, 0+1.55276381909548i, 0+1.58291457286432i, 0+1.61306532663317i, 0+1.64321608040201i, 0+1.67336683417085i, 0+1.7035175879397i, 0+1.73366834170854i, 0+1.76381909547739i, 0+1.79396984924623i, 0+1.82412060301507i, 0+1.85427135678392i, 0+1.88442211055276i, 0+1.91457286432161i, 0+1.94472361809045i, 0+1.9748743718593i, 0+2.00502512562814i, 0+2.03517587939698i, 0+2.06532663316583i, 0+2.09547738693467i, 0+2.12562814070352i, 0+2.15577889447236i, 0+2.18592964824121i, 0+2.21608040201005i, 0+2.24623115577889i, 0+2.27638190954774i, 0+2.30653266331658i, 0+2.33668341708543i, 0+2.36683417085427i, 0+2.39698492462312i, 0+2.42713567839196i, 0+2.4572864321608i, 0+2.48743718592965i, 0+2.51758793969849i, 0+2.54773869346734i, 0+2.57788944723618i, 0+2.60804020100502i, 0+2.63819095477387i, 0+2.66834170854271i, 0+2.69849246231156i, 0+2.7286432160804i, 0+2.75879396984925i, 0+2.78894472361809i, 0+2.81909547738693i, 0+2.84924623115578i, 0+2.87939698492462i, 0+2.90954773869347i, 0+2.93969849246231i, 0+2.96984924623116i, 0+3i));cos(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincos_testcos3_bc9e503f08a0258f02e22e558a5b5b0f() {
+ assertEval("argv <- list(structure(c(2, 3, 4, 5, 6, 2, 5, 10, 17, 26, 5, 15, 31, 53, 81), .Dim = c(5L, 3L)));cos(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincos_testcos4_cd1e0548b716bf3adea131c4306fe8e6() {
+ assertEval("argv <- list(Inf);cos(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincos_testcos5_03fe7fa09a10338ab1ba2184765ea57b() {
+ assertEval("argv <- list(c(3.14159265358979, 6.28318530717959, 1.5707963267949, 3.14159265358979, 4.71238898038469, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 0.785398163397448, 1.5707963267949, 2.35619449019234, 3.14159265358979, 3.92699081698724, 4.71238898038469, 5.49778714378214, 6.28318530717959, 2.0943951023932, 4.18879020478639, 6.28318530717959, 3.14159265358979, 6.28318530717959, 0.897597901025655, 1.79519580205131, 2.69279370307697, 3.59039160410262, 4.48798950512828, 5.38558740615393, 6.28318530717959, 2.0943951023932, 4.18879020478639, 6.28318530717959, 1.25663706143592, 2.51327412287183, 3.76991118430775, 5.02654824574367, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 2.0943951023932, 4.18879020478639, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 1.25663706143592, 2.51327412287183, 3.76991118430775, 5.02654824574367, 6.28318530717959, 3.14159265358979, 6.28318530717959, 2.0943951023932, 4.18879020478639, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959));cos(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincos_testcos6_08b6658fe8d63c9a74d13b67013518d0() {
+ assertEval("argv <- list(logical(0));cos(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincosh_testcosh1_20ccc954af21fb9b8111f1f0f1137b1c() {
+ assertEval("argv <- list(logical(0));cosh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincosh_testcosh2_984508ed4a4b936c7642567475ef5555() {
+ assertEval("argv <- list(FALSE);cosh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincosh_testcosh3_755ab1bec442f9e66324f126ef1547ba() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));cosh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincosh_testcosh4_d597223fb0b3486e140eaabfe5036fd2() {
+ assertEval("argv <- list(c(-3, -2.96984924623116, -2.93969849246231, -2.90954773869347, -2.87939698492462, -2.84924623115578, -2.81909547738693, -2.78894472361809, -2.75879396984925, -2.7286432160804, -2.69849246231156, -2.66834170854271, -2.63819095477387, -2.60804020100502, -2.57788944723618, -2.54773869346734, -2.51758793969849, -2.48743718592965, -2.4572864321608, -2.42713567839196, -2.39698492462312, -2.36683417085427, -2.33668341708543, -2.30653266331658, -2.27638190954774, -2.24623115577889, -2.21608040201005, -2.18592964824121, -2.15577889447236, -2.12562814070352, -2.09547738693467, -2.06532663316583, -2.03517587939699, -2.00502512562814, -1.9748743718593, -1.94472361809045, -1.91457286432161, -1.88442211055276, -1.85427135678392, -1.82412060301508, -1.79396984924623, -1.76381909547739, -1.73366834170854, -1.7035175879397, -1.67336683417085, -1.64321608040201, -1.61306532663317, -1.58291457286432, -1.55276381909548, -1.52261306532663, -1.49246231155779, -1.46231155778894, -1.4321608040201, -1.40201005025126, -1.37185929648241, -1.34170854271357, -1.31155778894472, -1.28140703517588, -1.25125628140704, -1.22110552763819, -1.19095477386935, -1.1608040201005, -1.13065326633166, -1.10050251256281, -1.07035175879397, -1.04020100502513, -1.01005025125628, -0.979899497487437, -0.949748743718593, -0.919597989949749, -0.889447236180905, -0.859296482412061, -0.829145728643216, -0.798994974874372, -0.768844221105528, -0.738693467336684, -0.708542713567839, -0.678391959798995, -0.648241206030151, -0.618090452261307, -0.587939698492463, -0.557788944723618, -0.527638190954774, -0.49748743718593, -0.467336683417086, -0.437185929648241, -0.407035175879397, -0.376884422110553, -0.346733668341709, -0.316582914572864, -0.28643216080402, -0.256281407035176, -0.226130653266332, -0.195979899497488, -0.165829145728643, -0.135678391959799, -0.105527638190955, -0.0753768844221105, -0.0452261306532664, -0.0150753768844223, 0.0150753768844218, 0.0452261306532664, 0.0753768844221105, 0.105527638190955, 0.135678391959799, 0.165829145728643, 0.195979899497488, 0.226130653266332, 0.256281407035176, 0.28643216080402, 0.316582914572864, 0.346733668341709, 0.376884422110553, 0.407035175879397, 0.437185929648241, 0.467336683417085, 0.49748743718593, 0.527638190954774, 0.557788944723618, 0.587939698492462, 0.618090452261306, 0.648241206030151, 0.678391959798995, 0.708542713567839, 0.738693467336683, 0.768844221105527, 0.798994974874372, 0.829145728643216, 0.85929648241206, 0.889447236180904, 0.919597989949748, 0.949748743718593, 0.979899497487437, 1.01005025125628, 1.04020100502513, 1.07035175879397, 1.10050251256281, 1.13065326633166, 1.1608040201005, 1.19095477386935, 1.22110552763819, 1.25125628140704, 1.28140703517588, 1.31155778894472, 1.34170854271357, 1.37185929648241, 1.40201005025126, 1.4321608040201, 1.46231155778894, 1.49246231155779, 1.52261306532663, 1.55276381909548, 1.58291457286432, 1.61306532663317, 1.64321608040201, 1.67336683417085, 1.7035175879397, 1.73366834170854, 1.76381909547739, 1.79396984924623, 1.82412060301507, 1.85427135678392, 1.88442211055276, 1.91457286432161, 1.94472361809045, 1.9748743718593, 2.00502512562814, 2.03517587939698, 2.06532663316583, 2.09547738693467, 2.12562814070352, 2.15577889447236, 2.18592964824121, 2.21608040201005, 2.24623115577889, 2.27638190954774, 2.30653266331658, 2.33668341708543, 2.36683417085427, 2.39698492462312, 2.42713567839196, 2.4572864321608, 2.48743718592965, 2.51758793969849, 2.54773869346734, 2.57788944723618, 2.60804020100502, 2.63819095477387, 2.66834170854271, 2.69849246231156, 2.7286432160804, 2.75879396984925, 2.78894472361809, 2.81909547738693, 2.84924623115578, 2.87939698492462, 2.90954773869347, 2.93969849246231, 2.96984924623116, 3));cosh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincrossprod_testcrossprod1_496feac2c05adaac7abc87ed0989191c() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1), .Dim = c(60L, 5L)), structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), .Dim = c(60L, 6L))); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincrossprod_testcrossprod2_edbdbf76aa8a1d0221e1c34b76704969() {
+ assertEval("argv <- list(numeric(0), numeric(0)); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincrossprod_testcrossprod4_a4adca0a8360d553e862ca4526e74f3d() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6), .Dim = 2:3), c(2, 1)); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincrossprod_testcrossprod5_eeb03f4aa2de2e8b22b83059dc82f95a() {
+ assertEval("argv <- list(c(1, 2, 3), structure(c(1, 3, 5, 2, 4, 6), .Dim = c(3L, 2L))); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincrossprod_testcrossprod6_0cca3fb331bcfa11fff2875dc5b1c263() {
+ assertEval("argv <- list(structure(c(0, 0, 1, 0), .Dim = c(2L, 2L), .Dimnames = list(NULL, NULL)), c(2, 3)); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincrossprod_testcrossprod7_b4528343aba7117da1739a5a98fa7f82() {
+ assertEval("argv <- list(structure(c(-0.409148064492827, 0, 0.486127240746069, 0.000757379686646223), .Dim = c(2L, 2L), .Dimnames = list(c('Vm', 'K'), NULL)), structure(c(0, 6.20800822278518, 6.20800822278518, -25013.7571686415), .Dim = c(2L, 2L))); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincrossprod_testcrossprod8_6cd3666a64d15a75044342b441f542b2() {
+ assertEval("argv <- list(structure(c(-0.0972759604917099, -0.0972759604917099, -0.197781705719934, -0.197781705719934, -0.258476920906799, -0.258476920906799, -0.31681058743414, -0.31681058743414, -0.36711291168933, -0.36711291168933, -0.386611727075222, -0.386611727075222, -0.339690730499459, -0.33969073049946, -0.392353467475584, -0.392353467475584, -0.277328754578855, -0.277328754578855, -0.062581948827679, -0.062581948827679, 0.204605005658209, 0.204605005658209, 0.32860008733551, 0.32860008733551, 0.504748197638673, 0.504748197638673, 0.0398546163039329, 0.039854616303933, -0.269613788250837, -0.269613788250837, -0.312096598983548, -0.312096598983548, 0.0190548270250438, 0.0190548270250438, 0.270521530002251, 0.270521530002251), .Dim = c(12L, 3L)), structure(c(-2.82631170793264, -2.82631170793264, -3.89457420977924, -3.89457420977924, -3.62818861156626, -3.62818861156626, -2.72530862462141, -2.72530862462141, -1.437640468988, -1.437640468988, -0.811701520293695, -0.811701520293695, 14291.543903102, 14291.543903102, 13346.8386233407, 13346.8386233407, 8863.44390274002, 8863.44390274002, 4080.15117667984, 4080.15117667984, 979.818149952962, 979.818149952962, 296.593928028368, 296.593928028368), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('Vm', 'K')))); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincummax_testcummax2_e88327f3ca38d52e61049f7c03f9d9b6() {
+ assertEval("argv <- list(c(1.4124321047876e-05, 0.00123993824202733, 0.00149456828694326, 0.00559442649445619, 0.00589461369451042, 0.00682814400910408, 0.00716033530387356, 0.00831306755655091, 0.0117236981036592, 0.0193564395772821, 0.0305747157670471, 0.0790837327244679, 0.158516621910594, 0.166302063477173, 0.240901842706431, 0.30743590191449, 0.310605928993035, 0.378620529843491, 0.394843673266257, 0.463217214123843, 0.846006725553553, 1.91986719718639, 2.30025314520167, 2.31702860292334, 2.66225504155806, 2.89838614884136, 2.93533263484596, 3.92915929103845, 6.05054801269533, 6.38133071205875, 6.62764115953293, 8.28240123423701, 8.53690564463391, 12.5838414070157, 12.5601043160765, 12.3043865122123, 12.7666868655065, 13.228566067383, 12.7230281716064, 12.9903781159995, 12.727240095027, 12.2523157614464, 11.8051459071199, 11.7060028009859, 11.5037817968679, 12.2693077958414, 11.5842811936712, 11.6626896867753, 10.9424154292091, 10.3816792396216));cummax(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincummax_testcummax3_5020287ebc0d6f79ae90f4c53533f49b() {
+ assertEval("argv <- list(list());cummax(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincummax_testcummax5_f778a9778b592554044e72e9dea8c595() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')));cummax(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincummax_testcummax6_9af39ec7776a8c7b39a3e651c5d2f951() {
+ assertEval("argv <- list(NULL);cummax(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincummax_testcummax7_ad5b5b276fe8ff3b170420c1844e6649() {
+ assertEval("argv <- list(character(0));cummax(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincummax_testcummax8_22ebd9e10da90fc68829e323c0d06ba1() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));cummax(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincummin_testcummin2_c8fb106e3bdea040b6736d80089e0599() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')));cummin(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincummin_testcummin3_8b2324730fcf1be9dc471d6c1a45386b() {
+ assertEval("argv <- list(c(0.943789021783783, 0.931269398230562, 0.936135627032134, 0.76691878645786, 0.751187345517812, 0.732102071759373, 0.736981399184748, 0.745009176294265, 0.742307320914255, 0.711777799810146, 0.726511637567943, 0.690091181919273, 0.656233947317988, 0.662510996891949, 0.657978635660952, 0.44347561790306, 0.428400063839846, 0.342071801782345, 0.329359004493355, 0.312959379967, 0.204112170963036, 0.153481444959266, 0.152881906752072, 0.141986935549763, 0.125244789347208, 0.126329692184989, 0.107405157884553, 0.0483432414602031, 0.0271151539974933, 0.0237499953844365, 0.0234803429360305, 0.0199319312722803, 0.0204957267942993, 0.0167583890578386, 0.0121314575180917, 0.0121935863008149, 0.00645581491628309, 0.00266833883057866, 0.00182178254845008, 0.00120243057473427, 0.000941101987534066, 0.000909248927476008, 0.000993184583142412, 0.00101050520477321, 0.00117777399883288, 0.000412294699846418, 0.000504381657773829, 1.12994568383008e-05));cummin(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincummin_testcummin4_4af18cddd7d30ef6ff6b608feba77782() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));cummin(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincummin_testcummin5_5046057aaf673e398ea07866d9018f1d() {
+ assertEval("argv <- list(logical(0));cummin(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincummin_testcummin6_aa92d67fba07ba69fc3802b31648d35f() {
+ assertEval("argv <- list(character(0));cummin(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincummin_testcummin7_d0e6506a3d5fcc64094c04e797bafde6() {
+ assertEval("argv <- list(NULL);cummin(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincumprod_testcumprod1_f6452c6d48f5a47b78ef112147b731b3() {
+ assertEval("argv <- list(structure(c(1, 60, 60, 24, 7), .Names = c('secs', 'mins', 'hours', 'days', 'weeks')));cumprod(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincumprod_testcumprod2_d026178a9359de54125a8dc9c8322a6f() {
+ assertEval("argv <- list(c(0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i));cumprod(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincumprod_testcumprod3_527c41663c53321801df6929cd09354c() {
+ assertEval("argv <- list(c(1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49));cumprod(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincumprod_testcumprod4_641317eb0e68dcb1aea937a320fcefc6() {
+ assertEval("argv <- list(structure(0L, .Names = 'l0'));cumprod(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincumprod_testcumprod5_3934815317abc9da531aa6bc50d4ade1() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')));cumprod(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincumprod_testcumprod7_ac2f65845ff68f5ea676d359f6291667() {
+ assertEval("argv <- list(structure(list(), .Names = character(0)));cumprod(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincumprod_testcumprod8_29a226c1ef3f74cd0525a361e76d00ca() {
+ assertEval("argv <- list(NULL);cumprod(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincumsum_testcumsum10_c380a82970eeeafd83a538b1acb116c1() {
+ assertEval("argv <- list(structure(c(-0.233567190135781, 1.27766471142225), .Names = c('Low|Medium', 'Medium|High')));cumsum(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincumsum_testcumsum2_be86846a919ba81fefaabd5a6528d0f7() {
+ assertEval("argv <- list(structure(c(15L, 14L), .Names = c('bibentry', NA)));cumsum(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincumsum_testcumsum3_aecce4763dc43e0b775a6f4803029558() {
+ assertEval("argv <- list(structure(c(79.3831968838961, 8.55983483385341e+101), .Names = c('', '')));cumsum(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincumsum_testcumsum4_7727124ea7142cc5308a437e1929385d() {
+ assertEval("argv <- list(structure(c(-191.999930599838, 7.71626352011359e-309), .Names = c('', '')));cumsum(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincumsum_testcumsum5_6ea15d6d7d928dc01be41f5c71bae0d6() {
+ assertEval("argv <- list(NULL);cumsum(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincumsum_testcumsum6_202374fac271db11bbfd1306a466d7c8() {
+ assertEval("argv <- list(structure(c(5L, 8L, 4L, 19L, 26L, 18L, 41L, 42L, 51L, 90L, 97L, 95L, 122L, 134L, 195L, 215L, 225L, 237L, 274L, 291L, 305L, 333L, 353L, 330L, 363L, 376L, 365L, 393L, 409L, 407L, 376L, 371L, 366L, 337L, 307L, 333L, 290L, 244L, 224L, 218L, 209L, 144L, 147L, 112L, 91L, 79L, 69L, 58L, 54L, 38L, 27L, 17L, 30L, 10L, 7L, 19L), .Dim = 56L, .Dimnames = structure(list(c('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55')), .Names = ''), class = 'table'));cumsum(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincumsum_testcumsum7_5f3ec5a67c3c5a2950029dfb8aea181a() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')));cumsum(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltincumsum_testcumsum9_fa751c69135f64f00362025e64e38311() {
+ assertEval("argv <- list(structure(c(7, 7, 7, 7), .Dim = 4L, .Dimnames = list(c('Urban Female', 'Urban Male', 'Rural Female', 'Rural Male'))));cumsum(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse1_7ae61a4f4be1c4b4d86e1415251bd2c3() {
+ assertEval("argv <- list(quote(rsp), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse10_cd1e1bc0422783123d12c2c80f3815b6() {
+ assertEval("argv <- list(quote(1:10), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse11_9b2a35fa73423a17a2fcab54b586ea7a() {
+ assertEval("argv <- list(quote(x[[i]]), 500L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse12_30845a3b9b1112ca17301586dad021df() {
+ assertEval("argv <- list(quote(t1 - 4), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse13_8fc268a320fcdf031fb33102b081cd81() {
+ assertEval("argv <- list(quote(read.table('foo1')), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse14_4970db23380dafd3acfcca4c3eaaca24() {
+ assertEval("argv <- list(quote(`[.data.frame`(dd, , 'x')), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse15_2c2f3aaf0b6c48f604ea265d681bb53f() {
+ assertEval("argv <- list(1e-07, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse16_e45cc6e67e33cce70ced05c64e86f1b3() {
+ assertEval("argv <- list('coef.corStruct', 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse17_1722d32a004dc5dbd0e8352f8ee8df87() {
+ assertEval("argv <- list('Version of 'graph' is too old --- no tests done here!\n', 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse18_44481931a91fff22b73921a5e9604597() {
+ assertEval("argv <- list(Inf, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse19_0cae08a0b7588af95925c4c8427c1e79() {
+ assertEval("argv <- list(structure(list(Sex = structure(c(2L, 2L, 1L, 1L, 2L, 2L), .Label = c('Female', 'Male'), class = 'factor'), age = c(15, 20, 10, 12, 2, 4), Subject = structure(c(2L, 2L, 1L, 1L, 3L, 3L), .Label = c('F30', 'M01', 'M04'), class = 'factor')), .Names = c('Sex', 'age', 'Subject'), row.names = c(NA, -6L), class = 'data.frame'), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse2_a87859f9f0b6057892823c6b6438da57() {
+ assertEval("argv <- list(quote(rnorm(1, sd = Inf)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse20_432130c3fbc28e0a271e9be3923336dd() {
+ assertEval("argv <- list(TRUE, 500L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse21_1155a0796d6a6f3294123cd8e56fa45a() {
+ assertEval("argv <- list(.Primitive('interactive'), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse22_33ac29ab628e9983ded5b0f946c3edd5() {
+ assertEval("argv <- list(0+1i, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse23_488a683b049d80acbbf7c29ad0a0f5a1() {
+ assertEval("argv <- list(quote(cor(Z[, FALSE], use = 'pairwise.complete.obs', method = 'kendall')), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse24_e198632176b3a427c25dcedc82e12ef4() {
+ assertEval("argv <- list(c(7.4, 8, 12.6, 11.5, 14.3, 14.9, 8.6, 13.8, 20.1, 8.6, 6.9, 9.7, 9.2, 10.9, 13.2, 11.5, 12, 18.4, 11.5, 9.7, 9.7, 16.6, 9.7, 12, 16.6, 14.9, 8, 12, 14.9, 5.7, 7.4, 8.6, 9.7, 16.1, 9.2, 8.6, 14.3, 9.7, 6.9, 13.8, 11.5, 10.9, 9.2, 8, 13.8, 11.5, 14.9, 20.7, 9.2, 11.5, 10.3, 6.3, 1.7, 4.6, 6.3, 8, 8, 10.3, 11.5, 14.9, 8, 6.9, 13.8, 7.4, 6.9, 7.4, 4.6, 4, 10.3, 8, 8.6, 11.5, 11.5, 11.5, 9.7, 11.5, 10.3, 6.3, 7.4, 10.9, 10.3, 15.5, 14.3, 12.6, 9.7, 3.4, 8, 5.7, 9.7, 2.3, 6.3, 6.3, 6.9, 5.1, 2.8, 4.6, 7.4, 15.5, 10.9, 10.3, 10.9, 9.7, 14.9, 15.5, 6.3, 10.9, 11.5, 6.9, 13.8, 10.3, 10.3, 8, 12.6, 9.2, 10.3, 10.3, 16.6, 6.9, 13.2, 14.3, 8, 11.5), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse25_779fcd632c0ec46a745ee45c21b0b48f() {
+ assertEval("argv <- list(1e+05, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse26_f484f6617e69cdfc523d02a61c2dc7c9() {
+ assertEval("argv <- list(structure(list(distance = c(26, 25, 29, 31, 21.5, 22.5), age = c(8, 10, 12, 14, 8, 10), Subject = structure(c(2L, 2L, 2L, 2L, 1L, 1L), .Label = c('M02', 'M01'), class = c('ordered', 'factor')), Sex = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = c('Male', 'Female'), class = 'factor')), .Names = c('distance', 'age', 'Subject', 'Sex'), row.names = c('1', '2', '3', '4', '5', '6'), class = 'data.frame'), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse27_3ab13d32e7f008df59e46256ab396e9f() {
+ assertEval("argv <- list('\t *ERROR* !!\n', 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse28_32e9ed41cd9dafb761d9a9893953a7ed() {
+ assertEval("argv <- list('\n\f\n', 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse29_9361ca808d4a44a691ca5a3856932751() {
+ assertEval("argv <- list(' +\\.', 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse3_754683fb01ea52f4cb99fe7aab211dcc() {
+ assertEval("argv <- list(quote(rnorm(2, c(1, NA))), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse30_bd96596fb124b6dcb823a4c9189d02a2() {
+ assertEval("argv <- list(structure(FALSE, .Dim = 1L), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse31_4196bfc79e33f9f637ef031e9b2b1319() {
+ assertEval("argv <- list(c(0, 0.587785252292473, 0.951056516295154, 0.951056516295154, 0.587785252292473, 1.22464679914735e-16, -0.587785252292473, -0.951056516295154, -0.951056516295154, -0.587785252292473, -2.44929359829471e-16, 0.587785252292473, 0.951056516295154), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse32_ab009b68cd09e62904ae4bf32cb60d9d() {
+ assertEval("argv <- list(structure(c(39.384847580955, 40.3469409309138, 42.6018205723052, 46.6665176252597, 51.3438205965467, 60.0069972599329, 64.6480892875058, 62.5709232928432, 57.679739382496, 49.5060394945433, 43.474726406114, 39.8236314289602, 38.361391396627, 37.9275637097922, 43.6868952734483, 45.1919846859641, 51.722520194987, 59.3399821539983, 61.9345241730145, 62.1515308754468, 57.6561604617486, 49.2849925780811, 42.606775772378, 39.6394677676018, 38.6328048791077, 38.4418602988203, 43.1520834957543, 45.6551746936999, 51.7999631155049, 59.5021948495759, 62.9217123388139, 62.0751910659837, 57.8048619656866, 49.5091658164884, 42.8045075272742, 40.2515159054665), .Tsp = c(1937, 1939.91666666667, 12), class = 'ts'), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse33_dfb17cc2d1b6d1a8b29fa1a9f290952b() {
+ assertEval("argv <- list(NA_real_, 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse34_baf9120031c9a91b15009eb0ee6cb37e() {
+ assertEval("argv <- list(quote(lm(formula = y ~ x1 + x2 + x3)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse35_42f0244360834a25e6cc46affd79ffa2() {
+ assertEval("argv <- list(structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, 104, 118, 115, 126, 141, 135, 125, 149, 170, 170, 158, 133, 114, 140, 145, 150, 178, 163, 172, 178, 199, 199, 184, 162, 146, 166, 171, 180, 193, 181, 183, 218, 230, 242, 209, 191, 172, 194, 196, 196, 236, 235, 229, 243, 264, 272, 237, 211, 180, 201, 204, 188, 235, 227, 234, 264, 302, 293, 259, 229, 203, 229, 242, 233, 267, 269, 270, 315, 364, 347, 312, 274, 237, 278, 284, 277, 317, 313, 318, 374, 413, 405, 355, 306, 271, 306, 315, 301, 356, 348, 355, 422, 465, 467, 404, 347, 305, 336, 340, 318, 362, 348, 363, 435, 491, 505, 404, 359, 310, 337, 360, 342, 406, 396, 420, 472, 548, 559, 463, 407, 362, 405, 417, 391, 419, 461, 472, 535, 622, 606, 508, 461, 390, 432, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 419.147602949539, 391.474665943444, 435.919286153217, 443.935203034261, 455.023399013445, 517.28707821144, 589.71337277669, 582.999919227301, 484.573388713116, 428.878182738437, 368.526582998452, 406.728709993152, 415.660571294428, 388.716535970235, 433.006017658935, 440.885684396326, 451.651900136866, 513.051252429496, 584.327164324967, 577.055407135124, 479.076505013118, 423.494870357491, 363.43932958967, 400.592058645117, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 484.030717075782, 462.954959541421, 526.353307750503, 546.165638262644, 569.502470928676, 657.838443307596, 761.241730163307, 763.280655335144, 642.989004951864, 576.423799567567, 501.429012064338, 559.981301364233, 591.700754553767, 565.210772316967, 642.377841008703, 666.682421047093, 695.547100430962, 804.065022775202, 931.340589597203, 934.837830059897, 788.422986194072, 707.666678543854, 616.37838266375, 689.250456425465), .Dim = c(168L, 3L), .Dimnames = list(NULL, c('structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, ', 'structure(c(419.147602949539, 391.474665943444, 435.919286153217, ', 'structure(c(484.030717075782, 462.954959541421, 526.353307750503, ')), .Tsp = c(1949, 1962.91666666667, 12), class = c('mts', 'ts', 'matrix')), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse36_46119f0ae8d107bff03cbcc039babfa1() {
+ assertEval("argv <- list(numeric(0), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse37_178005eb5188b54c4b7cf6a85b8a7e1d() {
+ assertEval("argv <- list(0:12, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse38_4cf9485403d3449b436689e452490705() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse39_b0de79fadb65a2d071f9580391c84ae6() {
+ assertEval("argv <- list(NA, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse4_fa0bbfe31a2db219d167908688741736() {
+ assertEval("argv <- list(quote(unclass(x)), 500, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse40_25b2d5f06b44a03edaa3ec556d624994() {
+ assertEval("argv <- list(logical(0), logical(0), FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse41_9228c5da5749430b9ce5b6d95bfcbcef() {
+ assertEval("argv <- list(FALSE, 50L, FALSE, 69, 2L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse42_d3e2f069e992239a91955b159fcf315f() {
+ assertEval("argv <- list(c(FALSE, FALSE), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse43_41753e19f3646fae0856097348637c85() {
+ assertEval("argv <- list(quote(glm(formula = y ~ x, family = poisson(identity), start = c(1, 0))), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse44_20082db53bb6d9abd9e399d7757394fa() {
+ assertEval("argv <- list(quote(lm(formula = 1000/MPG.city ~ Weight + Cylinders + Type + EngineSize + DriveTrain, data = Cars93)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse45_79171d035d8ae6785f1ed3270c07d236() {
+ assertEval("argv <- list(0.333333333333333, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse46_13d24ad485cf5ef61c563fd1e619f790() {
+ assertEval("argv <- list(quote(Fr ~ (Hair + Eye + Sex)^2), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse47_f647df210f1d05f3d2ec0885eae4a457() {
+ assertEval("argv <- list(quote(glm(formula = cbind(X, M) ~ M.user + Temp + M.user:Temp, family = binomial, data = detg1)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse5_6e7ee541c99dcc23234ca7fb3c6be010() {
+ assertEval("argv <- list(quote(cor(rnorm(10), NULL)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse6_e88fa87223f550b4600b60d4249b9219() {
+ assertEval("argv <- list(quote(5 * exp(-x)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse7_6e9ac472093e9b62411a594d4785594b() {
+ assertEval("argv <- list(quote(y ~ ((g1) * exp((log(g2/g1)) * (1 - exp(-k * (x - Ta)))/(1 - exp(-k * (Tb - Ta)))))), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse8_206a5412e5a18813064a97da71237bc1() {
+ assertEval("argv <- list(quote(tt <- table(c(rep(0, 7), rep(1, 4), rep(5, 3)))), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindeparse_testdeparse9_c38fd230efc5fbeef93dba49f21bd19e() {
+ assertEval("argv <- list(quote(utils::str), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindet_testdet1_a27f74f97071a95b0cc464c97b5af70f() {
+ assertEval("argv <- list(structure(c(FALSE, TRUE, TRUE, FALSE), .Dim = c(2L, 2L), .Dimnames = list(c('A', 'B'), c('A', 'B'))), TRUE); .Internal(det_ge_real(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindet_testdet2_93f9a336427be46ee880f88e91d8e7e9() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L), .Dimnames = list(c('A', 'B'), c('A', 'B'))), TRUE); .Internal(det_ge_real(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindet_testdet3_0cdaab5297f5d77bcece794dee4ccb32() {
+ assertEval("argv <- list(structure(c(2, 1, 1, 2), .Dim = c(2L, 2L), .Dimnames = list(c('A', 'B'), c('A', 'B'))), TRUE); .Internal(det_ge_real(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindfltWarn_testdfltWarn1_920f2a48e04481397a39d20a18ba824f() {
+ assertEval("argv <- list(''f' is deprecated.\nUse 'convertY' instead.\nSee help(\'Deprecated\')', NULL); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindfltWarn_testdfltWarn10_496ced09b4bc31ecb0004845fe98b8af() {
+ assertEval("argv <- list(''x' is neither a vector nor a matrix: using as.numeric(x)', quote(dotchart(table(infert$education)))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindfltWarn_testdfltWarn11_5ea27bcd41e393b94d089c33a8e1918c() {
+ assertEval("argv <- list('Invalid file name(s) for R code in ./myTst/R:\n 'file55711ba85492'\n are now renamed to 'z<name>.R'', quote(package.skeleton('myTst', code_files = tmp))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindfltWarn_testdfltWarn12_0d266dfcfa18dea174b0cf2c2651b847() {
+ assertEval("argv <- list('incomplete final line found by readTableHeader on 'foo4'', quote(read.table('foo4', header = TRUE))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindfltWarn_testdfltWarn2_1c1c654619fed5304352eb9a6edb4c1f() {
+ assertEval("argv <- list('bessel_y(2,nu=288.12): precision lost in result', quote(besselY(2, nu = nu <- seq(3, 300, len = 51)))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindfltWarn_testdfltWarn3_f8a16d1072620ab00a1a523d135e9be1() {
+ assertEval("argv <- list('glm.fit: algorithm stopped at boundary value', NULL); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindfltWarn_testdfltWarn4_70190ede9f79f44b95547557bcb59d52() {
+ assertEval("argv <- list('header and 'col.names' are of different lengths', quote(read.table('foo3', header = TRUE, col.names = letters[1:4]))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindfltWarn_testdfltWarn5_0eb756c16e0d906d9985c702671abaca() {
+ assertEval("argv <- list('‘graphics’ namespace cannot be unloaded:\n namespace ‘graphics’ is imported by ‘stats’ so cannot be unloaded', NULL); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindfltWarn_testdfltWarn6_76e512cadea250843b7d50181d84701c() {
+ assertEval("argv <- list('NaNs produced', quote(log(ifelse(y == 0, 1, y/mu)))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindfltWarn_testdfltWarn7_54c04621103e396452234ead834cb506() {
+ assertEval("argv <- list(''drop' argument will be ignored', quote(`[.data.frame`(women, 'height', drop = FALSE))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindfltWarn_testdfltWarn8_3da9fa8d645a6d1c3b36e05705a8f985() {
+ assertEval("argv <- list('prediction from a rank-deficient fit may be misleading', quote(predict.lm(object, newdata, se.fit, scale = residual.scale, type = ifelse(type == 'link', 'response', type), terms = terms, na.action = na.action))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindfltWarn_testdfltWarn9_b5132a898a7b9fe484376a1938df66d5() {
+ assertEval("argv <- list('1 y value <= 0 omitted from logarithmic plot', quote(xy.coords(x, NULL, log = log))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindiag_testdiag1_2cf53a7b80c10d00d3e9d568fa60f11e() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 4L, 1L), .Dim = 5L), 5L, 5L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindiag_testdiag10_6936852e307afa7eb18ec9f64aa19841() {
+ assertEval("argv <- list(structure(c(-268.831499270454, 5.6415423423032, 14.3443760756611, -6.07661158322081, -7.61383061715105, 3.28804653251744, 13.7579673886322, 2.89856286229343, -9.75713414208632, 4.61320568224165), .Names = c('(Intercept)', 'block2', 'block3', 'block4', 'block5', 'block6', 'N1', 'P1', 'K1', 'N1:P1')), 24L, 10L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindiag_testdiag11_fb2b9ee0e9ec83629adcc07220610963() {
+ assertEval("argv <- list(structure(c(0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285), .Dim = 10L, .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'))), 10L, 10L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindiag_testdiag12_e5201367e1710a44426acb3e705dbb58() {
+ assertEval("argv <- list(list(1, 1, 1), 3L, 3L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindiag_testdiag13_f65d784ab56b6f9ec814137fc2e420e2() {
+ assertEval("argv <- list(list(), 0L, 0L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindiag_testdiag14_a9a938a94b31748f71849e3ce0d47f26() {
+ assertEval("argv <- list(character(0), 0L, 0L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindiag_testdiag2_1c9b37b819d68b346b4c55be76ce2c25() {
+ assertEval("argv <- list(NULL, 0L, 0L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindiag_testdiag3_2b525912e9ac50630dc47425ecf6c99e() {
+ assertEval("argv <- list(structure(c(0.00258017518312032, 0.00371592854270272, 4.74358130918145e-05, 0.00490111130607204, 0.000101990092933588, 0.00674107947251412, 0.000239828967315095, 0.00980847069198632, 0.000617541923597065, 0.0155189333862593, 0.00178497855501229, 0.0281274123275302, 0.00633033372222146, 0.0642581517771313, 0.0351608933185668, 0.151097171670205, 0.967636582993474, 0.0809667077153405), .Names = c('Xr1', 'Xr2', 'Xr3', 'Xr4', 'Xr5', 'Xr6', 'Xr7', 'Xr8', 'Xr9', 'Xr10', 'Xr11', 'Xr12', 'Xr13', 'Xr14', 'Xr15', 'Xr16', 'Xr17', 'Xr18')), 18L, 18L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindiag_testdiag4_0dea8eecba555ce5748bf6bce5e066fb() {
+ assertEval("argv <- list(c(FALSE, TRUE, TRUE, TRUE), 4L, 4L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindiag_testdiag5_f123c582c1ff3d8b1fddd02682c8af84() {
+ assertEval("argv <- list(c(-2.80063713410797-0i, 2.40432724210166-0i, -1.40502612938985+0i, 1.39344241164891+0i, 0.785422253492721+0i), 5L, 5L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindiag_testdiag6_5989b4cdb499e5cca58c45e3e7681a2d() {
+ assertEval("argv <- list(structure(c(0.662193594830517, 0.883082096514931, 0.80211645621425, 0.806993241239092, 0.593615611337433, 0.55837479933202, 0.531727869384763, 0.696607367099979, 0.506321785494117, 0.489681023915914, 0.742249020738322, 0.65965217395585, 0.700437655250271, 0.80388520340336, 0.834325796707322, 0.741083805719802, 0.77320911661894, 0.76968452857621, 0.872531808824412, 0.769100148773066, 0.763385216756006, 0.775173380089108, 0.705125971098107, 0.706916424657676), .Names = c('VisualPerception', 'Cubes', 'PaperFormBoard', 'Flags', 'GeneralInformation', 'PargraphComprehension', 'SentenceCompletion', 'WordClassification', 'WordMeaning', 'Addition', 'Code', 'CountingDots', 'StraightCurvedCapitals', 'WordRecognition', 'NumberRecognition', 'FigureRecognition', 'ObjectNumber', 'NumberFigure', 'FigureWord', 'Deduction', 'NumericalPuzzles', 'ProblemReasoning', 'SeriesCompletion', 'ArithmeticProblems')), 24L, 24L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindiag_testdiag7_a2bfe1c42bd44e520df419a87fba51e1() {
+ assertEval("argv <- list(1, 0L, 0L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindiag_testdiag8_75c15ca9b4479ad1ad1d9365178ff7f9() {
+ assertEval("argv <- list(structure(c(0.553622032575332, 1.83583330034692, 0.540309168173204, 0.347171956892285), .Names = c('A', 'B', 'C', 'D')), 4L, 4L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindiag_testdiag9_9a54cc1fac7d63b62cf56fea77305c8f() {
+ assertEval("argv <- list(structure(c(-875.251472917967, 12.8319913648351, -28.2155558559225, -27.6015982680416, -70.4377976184188, -98.9293825275015, 32.8291346503008, -20.6544753576079, 26.3486263439148, -42.5376299218819, -131.164911564755, -12.7775395276621, 3.34207338870892, -6.39516049903921, 5.97199502480298, 9.16451921253422, 4.70193189358059), .Names = c('(Intercept)', 'BII', 'BIII', 'BIV', 'BV', 'BVI', 'VMarvellous', 'VVictory', 'N0.2cwt', 'N0.4cwt', 'N0.6cwt', 'VMarvellous:N0.2cwt', 'VVictory:N0.2cwt', 'VMarvellous:N0.4cwt', 'VVictory:N0.4cwt', 'VMarvellous:N0.6cwt', 'VVictory:N0.6cwt')), 71L, 17L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindigamma_testdigamma1_e32f802ab40f75a90f63bcc0b243b64f() {
+ assertEval("argv <- list(structure(c(3.80516394437114, 12.8051639443711, 15.8051639443711, 6.80516394437114, 6.80516394437114, 14.8051639443711, 21.8051639443711, 23.8051639443711, 7.80516394437114, 7.80516394437114, 16.8051639443711, 8.80516394437114, 15.8051639443711, 7.80516394437114, 33.8051639443711, 54.8051639443711, 58.8051639443711, 15.8051639443711, 17.8051639443711, 17.8051639443711, 18.8051639443711, 41.8051639443711, 44.8051639443711, 47.8051639443711, 9.80516394437114, 24.8051639443711, 24.8051639443711, 29.8051639443711, 35.8051639443711, 37.8051639443711, 39.8051639443711, 4.80516394437114, 6.80516394437114, 12.8051639443711, 25.8051639443711, 46.8051639443711, 6.80516394437114, 7.80516394437114, 7.80516394437114, 10.8051639443711, 14.8051639443711, 24.8051639443711, 26.8051639443711, 33.8051639443711, 54.8051639443711, 55.8051639443711, 6.80516394437114, 6.80516394437114, 12.8051639443711, 18.8051639443711, 20.8051639443711, 9.80516394437114, 14.8051639443711, 15.8051639443711, 21.8051639443711, 48.8051639443711, 49.8051639443711, 61.8051639443711, 82.8051639443711, 3.80516394437114, 1.80516394437114, 3.80516394437114, 4.80516394437114, 6.80516394437114, 11.8051639443711, 15.8051639443711, 22.8051639443711, 37.8051639443711, 41.8051639443711, 7.80516394437114, 18.8051639443711, 68.8051639443711, 1.80516394437114, 1.80516394437114, 3.80516394437114, 8.80516394437114, 12.8051639443711, 13.8051639443711, 1.80516394437114, 1.80516394437114, 6.80516394437114, 6.80516394437114, 6.80516394437114, 12.8051639443711, 18.8051639443711, 4.80516394437114, 5.80516394437114, 23.8051639443711, 31.8051639443711, 37.8051639443711, 9.80516394437114, 1.80516394437114, 2.80516394437114, 6.80516394437114, 8.80516394437114, 17.8051639443711, 28.8051639443711, 1.80516394437114, 31.8051639443711, 11.8051639443711, 15.8051639443711, 28.8051639443711, 42.8051639443711, 70.8051639443711, 26.8051639443711, 11.8051639443711, 12.8051639443711, 21.8051639443711, 34.8051639443711, 6.80516394437114, 8.80516394437114, 1.80516394437114, 2.80516394437114, 6.80516394437114, 6.80516394437114, 6.80516394437114, 6.80516394437114, 8.80516394437114, 12.8051639443711, 16.8051639443711, 6.80516394437114, 15.8051639443711, 7.80516394437114, 7.80516394437114, 8.80516394437114, 29.8051639443711, 1.80516394437114, 6.80516394437114, 15.8051639443711, 3.80516394437114, 3.80516394437114, 4.80516394437114, 9.80516394437114, 11.8051639443711, 13.8051639443711, 2.80516394437114, 2.80516394437114, 10.8051639443711, 23.8051639443711, 4.80516394437114, 4.80516394437114, 6.80516394437114, 16.8051639443711, 19.8051639443711, 23.8051639443711, 38.8051639443711), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100', '101', '102', '103', '104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', '115', '116', '117', '118', '119', '120', '121', '122', '123', '124', '125', '126', '127', '128', '129', '130', '131', '132', '133', '134', '135', '136', '137', '138', '139', '140', '141', '142', '143', '144', '145', '146')));digamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindigamma_testdigamma2_38076dd6fdca87ce2c2023a9c5f4acae() {
+ assertEval("argv <- list(structure(c(9.16602330897621, 9.16602330897621, 1.16602330897621, 1.16602330897621, 3.16602330897621, 3.16602330897621, 6.16602330897621, 6.16602330897621, 6.16602330897621, 6.16602330897621, 2.16602330897621, 2.16602330897621, 8.16602330897621, 8.16602330897621, 1.16602330897621, 1.16602330897621, 7.16602330897621, 7.16602330897621, 19.1660233089762, 19.1660233089762, 2.16602330897621, 2.16602330897621), .Names = c('1', '1.1', '2', '2.1', '3', '3.1', '4', '4.1', '5', '5.1', '6', '6.1', '7', '7.1', '8', '8.1', '9', '9.1', '10', '10.1', '11', '11.1')));digamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindigamma_testdigamma3_35bc2b429287d7c3663bca301962ffee() {
+ assertEval("argv <- list(FALSE);digamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindigamma_testdigamma4_cf92788d674cba9c1ad909bfdf8fed1c() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));digamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindigamma_testdigamma5_34b5cce1c3064786a8ccf95dc13ed751() {
+ assertEval("argv <- list(c(1e+30, 1e+60, 1e+90, 1e+120, 1e+150, 1e+180, 1e+210, 1e+240, 1e+270, 1e+300));digamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim1_5189b26d80f89098cd36096788640eb9() {
+ assertEval("argv <- list(structure(c(3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3, 4, 5), .Dim = c(8L, 2L), .Dimnames = list(c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h'), c('x1', 'x2'))));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim10_6d6e0b0145f9f546997903f0937acfa0() {
+ assertEval("argv <- list(structure(c(93.3042409622253, 72.8638419893434, 65.9708818502055, 74.2809886424684, 79.8889070755712, 100.233809580112, 104.965351919781, 83.86798597082, 105.795365211341, 108.580858711588, 95.3646703714076, 98.1558192431132, 5.58314117171466, 29.7542740978848, 32.2224082035474, 27.8665232792916, 25.046508702598, 23.5818201384803, 35.0327999599812, 33.2751275770215, 43.2947043117474, 39.1828378794408, 11.7874053171943, 57.3766532219607), .Dim = c(12L, 2L)));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim11_e3e9e2b1621dab33179912e2c8f2f3a9() {
+ assertEval("argv <- list(structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim12_8c5f373eb9a0adf77827b91707b83af5() {
+ assertEval("argv <- list(structure(list(height = numeric(0), weight = numeric(0)), .Names = c('height', 'weight'), class = 'data.frame', row.names = integer(0)));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim13_c4781b1b96f373f822c9c8ec8439a31d() {
+ assertEval("argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim15_353ff3a5bff7c9cd6c55178d8418b3d2() {
+ assertEval("argv <- list(structure(c('‘[,1]’', '‘[,2]’', '‘height’', '‘weight’', 'numeric', 'numeric', 'Height (in) ', 'Weight (lbs)'), .Dim = c(2L, 4L)));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim16_823a3b782507d6e2c2fd62a1d3434af9() {
+ assertEval("argv <- list(structure(list(V1 = c(0.497699242085218, 0.991906094830483), V2 = c(0.668466738192365, 0.107943625887856), V3 = c(0.0994661601725966, 0.518634263193235), V4 = c(0.892198335845023, 0.389989543473348), V5 = c(0.79730882588774, 0.410084082046524)), .Names = c('V1', 'V2', 'V3', 'V4', 'V5'), row.names = c(16L, 18L), class = 'data.frame'));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim17_af5c16907423bf16bb3b302933855944() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(5L, 21L), .Dimnames = list(c('#ifdef', '\\Sexpr', 'build', 'install', 'render'), NULL)));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim18_d7be8c4dcecf3ccd33bae6aae6592035() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, -1.43884556914512e-134, 0, 0, 0, -7.95468296571581e-252, 1.76099882882167e-260, 0, -9.38724727098368e-323, -0.738228974836154, 0, 0, 0, 0, 0, 0, 0, 0, 0, -6.84657791618065e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.05931985100232e-174, 0, -3.41789378681991e-150, 0, 0, 0, 0, -1.07225492686949e-10, 0, 1.65068934474523e-67, 0, -6.49830035279282e-307, 0, 5.83184963977238e-90, 0, -9.81722610183938e-287, 6.25336419454196e-54, 0, 0, 0, -1.72840591500382e-274, 1.22894687952101e-13, 0.660132850077566, 0, 0, 7.79918925397516e-200, -2.73162827952857e-178, 1.32195942051179e-41, 0, 0, 0, 0, 2.036057023761e-45, -3.40425060445074e-186, 1.59974269220388e-26, 0, 6.67054294775317e-124, 0.158503117506202, 0, 0, 0, 0, 0, 0, 3.42455724859116e-97, 0, 0, -2.70246891320217e-272, 0, 0, -3.50562438899045e-06, 0, 0, 1.35101732326608e-274, 0, 0, 0, 0, 0, 0, 0, 7.24580295957621e-65, 0, -3.54887341172294e-149, 0, 0, 0, 0, 0, 0, 0, 0, 1.77584594753563e-133, 0, 0, 0, 2.88385135688311e-250, 1.44299633616158e-259, 0, 1.56124744085834e-321, 1.63995835868977, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.01050064173383e-122, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.64868196850938e-172, 0, 6.28699823828692e-149, 0, 0, 0, 0, 5.0552295590188e-09, 0, 2.30420733561404e-66, 0, 7.0823279075443e-306, 0, 2.05009901740696e-88, 0, 7.41800724282869e-285, 7.18347043784483e-53, 0, 0, 0, 1.04251223075649e-273, 9.75816316577433e-13, 4.29519957592147, 0, 0, 1.33541454912682e-198, 2.34606233784019e-176, 8.38236726536896e-41, 0, 0, 0, 0, 1.35710537434521e-43, 1.15710503176511e-185, 1.25601735272233e-25, 0, 4.46811655846376e-123, 4.4196641795634, 0, 0, 0, 0, 0, 0, 3.74179015251531e-93, 0, 0, 3.62662047836582e-271, 0, 0, 1.26220330674453e-05, 0, 0, 1.72715562657338e-273, 0, 0, 0, 0, 0, 0, 0, 5.46372806810809e-64, 0, 2.47081972486962e-148, 0, 0, 0), .Dim = c(100L, 2L)));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim2_8c07afdb6d64b9d681737c4d38598a28() {
+ assertEval("argv <- list(structure(list(surname = structure(1:5, .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(c(1L, 2L, 3L, 3L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor'), title = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = c(5L, 4L, 3L, 1L, 2L), class = 'data.frame'));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim20_e218a0ea14e6739e72863341b51e0df7() {
+ assertEval("argv <- list(structure(raw(0), .Dim = c(0L, 0L)));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim22_dbd536e4dcbb0dcd157f463ab19cdefb() {
+ assertEval("argv <- list(structure(1:20, .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim23_7d6bfc802870e148e3bc1b9d6b4ed77a() {
+ assertEval("argv <- list(structure(c(1, 0, -1, 0.5, -0.5, NA, NA, NA, 0), .Dim = c(3L, 3L)));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim26_d8acbcb0723d186f3891661bc92487f2() {
+ assertEval("argv <- list(structure(c(31.9624451639742, -0.0105001367774998, 0.669596455370805, 5.14945152173688, 4.36500574231155, 6.30517873115649, 2.15562516502081, 1.77361974340981, 1.31721464996217, -6.23951992881235, -3.14333173153233, 3.7074414096456, 0.619951366669834, -3.31636282291298, -1.38277940327151, -0.0105001367774998, 4.92314051157491e-06, -0.00208176000671443, -0.00393685976143421, -0.00306114840585819, -0.00304239831702958, -0.00360485387426285, -0.000776863531985863, -0.000930425548039592, 0.00177325947012459, 0.000873478088813267, -0.00222133591240768, -0.0010997058222662, 0.000971542840761233, 0.000408638350886089, 0.669596455370805, -0.00208176000671443, 6.25966104941131, 7.27107350691908, 7.1568051334171, 7.69164996000523, 6.38546846168565, 0.584255359868468, 0.425893553320666, -0.302152926219182, -0.539719353375365, 0.767832198930969, -0.0339253942409593, -0.954875198336619, -0.44454733172958, 5.14945152173688, -0.00393685976143421, 7.27107350691908, 16.9287891082998, 9.68170957680298, 10.1927925852141, 8.31848730773964, 0.0225771728679827, -0.13423885912137, -0.952279072677042, -1.28303151957048, -0.309366054071832, 0.277949783704086, -1.95357808926458, -1.1490330193693, 4.36500574231155, -0.00306114840585819, 7.1568051334171, 9.68170957680298, 10.6200372990959, 12.0025058084698, 7.09661626032293, 0.00831356355794886, -0.18522684338686, -1.13540989802495, -1.33382692805767, 0.308573868840132, -0.809762853334073, -1.09668270906855, -0.213078730283059, 6.30517873115649, -0.00304239831702958, 7.69164996000523, 10.1927925852141, 12.0025058084698, 17.4522685874698, 6.92295996047857, -0.125541819250371, -0.215552520930932, -1.84365094178865, -1.59654434238815, 0.684384781199279, -1.93856751571012, -1.02265709591595, -0.303713451023131, 2.15562516502081, -0.00360485387426285, 6.38546846168565, 8.31848730773964, 7.09661626032293, 6.92295996047857, 23.2114402831465, -0.28786423278137, 0.360665125986693, -0.292516552346824, -1.61368872459996, 0.400045448449001, 1.49305046916227, -1.52595532739395, -2.45569084011985, 1.77361974340981, -0.000776863531985863, 0.584255359868468, 0.0225771728679827, 0.00831356355794886, -0.125541819250371, -0.28786423278137, 3.63382138185307, 1.73220942447866, 0.201523343362283, 0.961824629517822, 2.18512927857691, -0.299291412368627, -0.222951433523371, 0.190518621032026, 1.31721464996217, -0.000930425548039592, 0.425893553320666, -0.13423885912137, -0.18522684338686, -0.215552520930932, 0.360665125986693, 1.73220942447866, 2.07264968016672, 0.409359459121014, 0.882002960805309, 1.87214770160952, 0.189008347036503, -0.266586895155729, -0.112011626327013, -6.23951992881235, 0.00177325947012459, -0.302152926219182, -0.952279072677042, -1.13540989802495, -1.84365094178865, -0.292516552346824, 0.201523343362283, 0.409359459121014, 2.48234483048294, 1.19369459724506, -0.189893084140488, 0.16622651987368, 0.28664359918476, -0.0113387579323685, -3.14333173153233, 0.000873478088813267, -0.539719353375365, -1.28303151957048, -1.33382692805767, -1.59654434238815, -1.61368872459996, 0.961824629517822, 0.882002960805309, 1.19369459724506, 2.16828149626507, 0.76585533428598, 0.0326711935947258, 0.375684864300291, 0.0175473410796721, 3.7074414096456, -0.00222133591240768, 0.767832198930969, -0.309366054071832, 0.308573868840132, 0.684384781199279, 0.400045448449001, 2.18512927857691, 1.87214770160952, -0.189893084140488, 0.76585533428598, 4.87998635701286, 0.240260053826388, 0.639583107689077, 1.24508720406537, 0.619951366669834, -0.0010997058222662, -0.0339253942409593, 0.277949783704086, -0.809762853334073, -1.93856751571012, 1.49305046916227, -0.299291412368627, 0.189008347036503, 0.16622651987368, 0.0326711935947258, 0.240260053826388, 1.27358692244222, -0.271133086074816, -0.61768767314107, -3.31636282291298, 0.000971542840761233, -0.954875198336619, -1.95357808926458, -1.09668270906855, -1.02265709591595, -1.52595532739395, -0.222951433523371, -0.266586895155729, 0.28664359918476, 0.375684864300291, 0.639583107689077, -0.271133086074816, 2.24773578295184, 2.00648977390012, -1.38277940327151, 0.000408638350886089, -0.44454733172958, -1.1490330193693, -0.213078730283059, -0.303713451023131, -2.45569084011985, 0.190518621032026, -0.112011626327013, -0.0113387579323685, 0.0175473410796721, 1.24508720406537, -0.61768767314107, 2.00648977390012, 3.44090885157986), .Dim = c(15L, 15L), .Dimnames = list(c('(Intercept)', 'Weight', 'Cylinders4', 'Cylinders5', 'Cylinders6', 'Cylinders8', 'Cylindersrotary', 'TypeLarge', 'TypeMidsize', 'TypeSmall', 'TypeSporty', 'TypeVan', 'EngineSize', 'DriveTrainFront', 'DriveTrainRear'), c('(Intercept)', 'Weight', 'Cylinders4', 'Cylinders5', 'Cylinders6', 'Cylinders8', 'Cylindersrotary', 'TypeLarge', 'TypeMidsize', 'TypeSmall', 'TypeSporty', 'TypeVan', 'EngineSize', 'DriveTrainFront', 'DriveTrainRear'))));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim3_ede012d5bf21a72ae7446f0b9c30f51d() {
+ assertEval("argv <- list(structure(c(0.100837939896365, 0.100837939896365, -2.89916206010363, 1.10083793989637, 2.10083793989637, 15.3663689601092, 5.36636896010918, -15.5557367724452, 1.44426322755481, -15.5557367724452, -6.55573677244519, 2.44426322755481, -20.5557367724452, 3.41611550389052, 37.4161155038905, 8.41611550389052, 23.0292477138695, -29.9707522861305, 3.02924771386952, -25.9707522861305, 5.46163181127829, 1.46163181127829, 22.4616318112783, -11.5383681887217, 17.4616318112783, -24.5383681887217, 2.79509291794369, -19.2049070820563, -32.2049070820563, 10.7950929179437, -18.2049070820563, 17.7950929179437, 2.79509291794369, 25.7950929179437, 9.79509291794369, -3.77239539978251, 13.2276046002175, -0.772395399782511, 23.2276046002175, -2.77239539978251, 1.22760460021749, -12.7723953997825, 13.2276046002175, 7.22760460021749, 7.22760460021749, -36.8669529292102, 13.1330470707898, 12.1330470707898, -18.8669529292102, -7.86695292921016, -18.3408059382389, 14.7301967628363), .Dim = c(52L, 1L)));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim5_ba5af3063254b246de00069ef5275c48() {
+ assertEval("argv <- list(structure(list(df = 10L, ss = 2.74035772634541, ms = 0.274035772634541, f = NA_real_, P = NA_real_), .Names = c('df', 'ss', 'ms', 'f', 'P'), row.names = c(NA, -1L), class = 'data.frame'));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim6_0ae19243562a055ec33747e2a211c538() {
+ assertEval("argv <- list(structure(list(File = c('GOusage.Rnw', 'annotate.Rnw', 'chromLoc.Rnw', 'prettyOutput.Rnw', 'query.Rnw', 'useDataPkgs.Rnw', 'useHomology.Rnw', 'useProbeInfo.Rnw'), Title = c('Basic GO Usage', 'Annotation Overview', 'HowTo: use chromosomal information', 'HowTo: Get HTML Output', 'HOWTO: Use the online query tools', 'Using Data Packages', 'Using the homology package', 'Using Affymetrix Probe Level Data'), PDF = c('GOusage.pdf', 'annotate.pdf', 'chromLoc.pdf', 'prettyOutput.pdf', 'query.pdf', 'useDataPkgs.pdf', 'useHomology.pdf', 'useProbeInfo.pdf'), Depends = list(c('GO.db', 'hgu95av2.db', 'Biobase'), c('Biobase', 'genefilter', 'annotate', 'hgu95av2.db'), c('annotate', 'hgu95av2.db'), c('annotate', 'hgu95av2.db'), c('annotate', 'hgu95av2.db'), c('hgu95av2.db', 'GO.db'), 'hom.Hs.inp.db', c('hgu95av2.db', 'rae230a.db', 'rae230aprobe', 'Biostrings')), Keywords = list(c('GO', 'ontology'), c('Expression Analysis', 'Annotation'), c('Expression Analysis', 'Annotation'), c('Expression Analysis', 'Annotation'), c('Expression Analysis', 'Annotation'), 'Annotation', 'Annotation', 'Annotation'), R = c('GOusage.R', 'annotate.R', 'chromLoc.R', 'prettyOutput.R', 'query.R', 'useDataPkgs.R', 'useHomology.R', 'useProbeInfo.R')), .Names = c('File', 'Title', 'PDF', 'Depends', 'Keywords', 'R'), row.names = c(NA, -8L), class = 'data.frame'));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindim_testdim8_d094ebb71c2f525a747f39dd7ef4d547() {
+ assertEval("argv <- list(structure(list(day = structure(1:6, .Label = c('2012-06-01', '2012-06-02', '2012-06-03', '2012-06-04', '2012-06-05', '2012-06-06', '2012-06-07'), class = 'factor')), .Names = 'day', row.names = c(1L, 5L, 9L, 13L, 17L, 21L), class = 'data.frame'));dim(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimassign_testdimassign1_3eead01e130c9d1d0b1ec749a83e79c2() {
+ assertEval("argv <- list(structure(c(300, 3000, 400, 4000), .Dim = c(2L, 2L, 1L)), value = c(2, 2, 1));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimassign_testdimassign10_f061f5e4e077d48fa7f9fcb163102022() {
+ assertEval("argv <- list(structure(c(1, 0.870865388077469, -0.224541709419829, -0.331803324650025, -0.493630926048296, -0.413999601257247, 0.00943216495885559, -0.569185666759019, 0.183501080823027, -0.658299946719611, -0.563901271084431, -0.104454834691276, 0.715158727414282, -0.0805825981616209, -0.773816895694757, -0.253034783981378, -0.783775136777695, -0.439357063536005, -0.941680494841322, 0.227158249206389, -0.50752863656701, -0.0658964161620369, -0.0689244902651806, 0.185611518464636, 0.378167766177418, -0.0629003710494349, 0.487507055153686, -0.148876486655171), .Dim = c(1L, 28L)), value = c(1, 28));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimassign_testdimassign11_70bfb5d8e830bdd4b6b23b9e8f39a2eb() {
+ assertEval("argv <- list(structure(NA, .Dim = c(1L, 1L)), value = c(1L, 1L));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimassign_testdimassign2_179396ed607465d5099dd6183bdfe3a5() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 0L)), value = c(0L, 0L));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimassign_testdimassign3_23de6f8b26a12ea0166df91fdae43298() {
+ assertEval("argv <- list(structure(1:12, .Dim = 12L), value = 12L);`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimassign_testdimassign4_c28644b1576feb38f0fb71ea8b49996c() {
+ assertEval("argv <- list(structure(list(1:3, 4:6, 3.14159265358979, c('a', 'b', 'c')), .Dim = c(2L, 2L)), value = c(2, 2));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimassign_testdimassign5_1e03916cb62f6bb0e9d7b2d2f163c66f() {
+ assertEval("argv <- list(structure(list(NULL, NULL, NULL, NULL, NULL, NULL), .Dim = 2:3), value = c(2, 3));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimassign_testdimassign6_eecec1df4c04a202c8ed7f2c0b42d49c() {
+ assertEval("argv <- list(structure(list(1L, 3.14159265358979, 3+5i, 'testit', TRUE, structure(1L, .Label = 'foo', class = 'factor')), .Dim = c(1L, 6L)), value = c(1, 6));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimassign_testdimassign7_1583db6ffa1027613c4879b74aa827a7() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4), value = 3:4);`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimassign_testdimassign8_6a4f2e50c1edf9a2e317a8810f1618b7() {
+ assertEval("argv <- list(NULL, NULL);`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimassign_testdimassign9_4c2875c3873ef5256c0b15362aec5209() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 1L, 2L, 3L, 4L, 5L, 6L, 7L), .Dim = c(3L, 4L, 2L)), value = c(3, 4, 2));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnames_testdimnames10_da41734c9ce715711b88d9e542001083() {
+ assertEval("argv <- list(structure(list(Ozone = c(41L, 36L, 12L, 18L, NA, 28L, 23L, 19L, 8L, NA, 7L, 16L, 11L, 14L, 18L, 14L, 34L, 6L, 30L, 11L, 1L, 11L, 4L, 32L, NA, NA, NA, 23L, 45L, 115L, 37L), Solar.R = c(190L, 118L, 149L, 313L, NA, NA, 299L, 99L, 19L, 194L, NA, 256L, 290L, 274L, 65L, 334L, 307L, 78L, 322L, 44L, 8L, 320L, 25L, 92L, 66L, 266L, NA, 13L, 252L, 223L, 279L), Wind = c(7.4, 8, 12.6, 11.5, 14.3, 14.9, 8.6, 13.8, 20.1, 8.6, 6.9, 9.7, 9.2, 10.9, 13.2, 11.5, 12, 18.4, 11.5, 9.7, 9.7, 16.6, 9.7, 12, 16.6, 14.9, 8, 12, 14.9, 5.7, 7.4), Temp = c(67L, 72L, 74L, 62L, 56L, 66L, 65L, 59L, 61L, 69L, 74L, 69L, 66L, 68L, 58L, 64L, 66L, 57L, 68L, 62L, 59L, 73L, 61L, 61L, 57L, 58L, 57L, 67L, 81L, 79L, 76L), Month = c(5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L), Day = 1:31, Oz.Z = c(0.782229292792786, 0.557251841325834, -0.522639925715534, -0.252666983955192, NA, 0.197287918978711, -0.0276895324882403, -0.207671493661802, -0.702621886889095, NA, -0.747617377182486, -0.342657964541973, -0.567635416008924, -0.432648945128753, -0.252666983955192, -0.432648945128753, 0.467260860739053, -0.792612867475876, 0.287278899565492, -0.567635416008924, -1.01759031894283, -0.567635416008924, -0.882603848062657, 0.377269880152273, NA, NA, NA, -0.0276895324882403, 0.962211253966347, 4.11189557450367, 0.602247331619224)), .Names = c('Ozone', 'Solar.R', 'Wind', 'Temp', 'Month', 'Day', 'Oz.Z'), row.names = c(NA, 31L), class = 'data.frame'));dimnames(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnames_testdimnames11_f44840df0061cd2baa8b1ca6f6ae5e28() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));dimnames(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnames_testdimnames12_8b6d7112561e7cdfaf4fd26ab613c1b3() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 4L), .Dimnames = list(NULL, c('Estimate', 'Std. Error', 't value', 'Pr(>|t|)'))));dimnames(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnames_testdimnames14_b6a8bb5d4f6e9806cd71dda17a40f422() {
+ assertEval("argv <- list(structure(c(0.0267062896727757, 0.0288568829806391, 0.0492797675063702, -0.0572758706635325, 0.0323212080834915, 0.0153959090462038, -0.0926263811460125, 0.063635852899097, -0.0487298690847772, 0.0550557154550753, -0.0198673280094324, -0.0926263811460125, 0.0140766975562449, 0.0582283948223117, 0.00131213541438663, 0.091788691086849, -0.047804624481445, 0.0620410336020094, -0.0572622511611348, 0.0287132484691924, -0.083909175260886, -0.078402304235417, 0.0355405280997754, 0.0717493130601819, -0.0215453924782896, 0.0433187167027035, -0.0391463972547204, 0.0355405280997753, -0.101433295142967, -0.0534964348088565, -0.0100532600167173, 0.115085165377514), .Dim = c(16L, 2L), .Dimnames = list(structure(c('M1', 'M2', 'M4', 'M5', 'BF', 'HF', 'NM', 'SF', 'U1', 'U2', 'U3', 'C0', 'C1', 'C2', 'C3', 'C4'), .Names = c('Mois1', 'Mois2', 'Mois3', 'Mois4', 'Manag1', 'Manag2', 'Manag3', 'Manag4', 'Use1', 'Use2', 'Use3', 'Manure1', 'Manure2', 'Manure3', 'Manure4', 'Manure5')), c('1', '2'))));dimnames(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnames_testdimnames15_39cfa2c447c2aa8ff0cdf28a265261f1() {
+ assertEval("argv <- list(structure('foo', .Dim = c(1L, 1L), .Dimnames = list(NULL, structure('object', simpleOnly = TRUE))));dimnames(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnames_testdimnames16_4066274e36828142845cd4a81fcd34a2() {
+ assertEval("argv <- list(structure(c('4.1-0', '4.1-0', '4.1-0', '4.1-0', '4.1-0', '4.1-0', '4.0-3', '4.0-3', '4.0-3', '4.0-3', '4.0-3', '4.0-2', '4.0-2', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '3.1-55', '3.1-55', '3.1-55', '3.1-54', '3.1-53', '3.1-53', '3.1-52', '3.1-51', NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 'The C and R code has been reformatted for legibility.', 'The old compatibility function rpconvert() has been removed.', 'The cross-validation functions allow for user interrupt at the end\nof evaluating each split.', 'Variable Reliability in data set car90 is corrected to be an\nordered factor, as documented.', 'Surrogate splits are now considered only if they send two or more\ncases _with non-zero weight_ each way. For numeric/ordinal\nvariables the restriction to non-zero weights is new: for\ncategorical variables this is a new restriction.', 'Surrogate splits which improve only by rounding error over the\ndefault split are no longer returned. Where weights and missing\nvalues are present, the splits component for some of these was not\nreturned correctly.', 'A fit of class \'rpart\' now contains a component for variable\n‘importance’, which is reported by the summary() method.', 'The text() method gains a minlength argument, like the labels()\nmethod. This adds finer control: the default remains pretty =\nNULL, minlength = 1L.', 'The handling of fits with zero and fractional weights has been\ncorrected: the results may be slightly different (or even\nsubstantially different when the proportion of zero weights is\nlarge).', 'Some memory leaks have been plugged.', 'There is a second vignette, longintro.Rnw, a version of the\noriginal Mayo Tecnical Report on rpart.', 'Added dataset car90, a corrected version of the S-PLUS dataset\ncar.all (used with permission).', 'This version does not use paste0{} and so works with R 2.14.x.', 'Merged in a set of Splus code changes that had accumulated at Mayo\nover the course of a decade. The primary one is a change in how\nindexing is done in the underlying C code, which leads to a major\nspeed increase for large data sets. Essentially, for the lower\nleaves all our time used to be eaten up by bookkeeping, and this\nwas replaced by a different approach. The primary routine also\nuses .Call{} so as to be more memory efficient.', 'The other major change was an error for asymmetric loss matrices,\nprompted by a user query. With L=loss asymmetric, the altered\npriors were computed incorrectly - they were using L' instead of L.\nUpshot - the tree would not not necessarily choose optimal splits\nfor the given loss matrix. Once chosen, splits were evaluated\ncorrectly. The printed “improvement” values are of course the\nwrong ones as well. It is interesting that for my little test\ncase, with L quite asymmetric, the early splits in the tree are\nunchanged - a good split still looks good.', 'Add the return.all argument to xpred.rpart().', 'Added a set of formal tests, i.e., cases with known answers to\nwhich we can compare.', 'Add a usercode vignette, explaining how to add user defined\nsplitting functions.', 'The class method now also returns the node probability.', 'Add the stagec data set, used in some tests.', 'The plot.rpart routine needs to store a value that will be visible\nto the rpartco routine at a later time. This is now done in an\nenvironment in the namespace.', 'Force use of registered symbols in R >= 2.16.0', 'Update Polish translations.', 'Work on message formats.', 'Add Polish translations', 'rpart, rpart.matrix: allow backticks in formulae.', 'tests/backtick.R: regession test', 'src/xval.c: ensure unused code is not compiled in.', 'Change description of margin in ?plot.rpart as suggested by Bill\nVenables.'), .Dim = c(29L, 4L)));dimnames(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnames_testdimnames18_04ea7e0965e5d50325e7f2cb47d24b91() {
+ assertEval("argv <- list(structure(list(Ozone = c(39L, 9L, 16L, 78L, 35L, 66L, 122L, 89L, 110L, NA, NA, 44L, 28L, 65L, NA, 22L, 59L, 23L, 31L, 44L, 21L, 9L, NA, 45L, 168L, 73L, NA, 76L, 118L, 84L, 85L), Solar.R = c(83L, 24L, 77L, NA, NA, NA, 255L, 229L, 207L, 222L, 137L, 192L, 273L, 157L, 64L, 71L, 51L, 115L, 244L, 190L, 259L, 36L, 255L, 212L, 238L, 215L, 153L, 203L, 225L, 237L, 188L), Wind = c(6.9, 13.8, 7.4, 6.9, 7.4, 4.6, 4, 10.3, 8, 8.6, 11.5, 11.5, 11.5, 9.7, 11.5, 10.3, 6.3, 7.4, 10.9, 10.3, 15.5, 14.3, 12.6, 9.7, 3.4, 8, 5.7, 9.7, 2.3, 6.3, 6.3), Temp = c(81L, 81L, 82L, 86L, 85L, 87L, 89L, 90L, 90L, 92L, 86L, 86L, 82L, 80L, 79L, 77L, 79L, 76L, 78L, 78L, 77L, 72L, 75L, 79L, 81L, 86L, 88L, 97L, 94L, 96L, 94L), Month = c(8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L), Day = 1:31, Oz.Z = c(-0.528248463997741, -1.28427378861836, -1.10786787954022, 0.454584458009066, -0.629051840613824, 0.152174328160817, 1.56342160078598, 0.731793743703293, 1.26101147093773, NA, NA, -0.402244243227638, -0.805457749691969, 0.126973484006797, NA, -0.956662814616093, -0.0242315809173275, -0.931461970462072, -0.729855217229907, -0.402244243227638, -0.981863658770114, -1.28427378861836, NA, -0.377043399073617, 2.72266043187093, 0.328580237238962, NA, 0.404182769701024, 1.46261822416989, 0.60578952293319, 0.63099036708721)), .Names = c('Ozone', 'Solar.R', 'Wind', 'Temp', 'Month', 'Day', 'Oz.Z'), row.names = 93:123, class = 'data.frame'));dimnames(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnames_testdimnames19_779659f57349d1262608b25317f10391() {
+ assertEval("argv <- list(structure(c(28L, 138L, 16L), .Dim = 3L, .Dimnames = structure(list(object = c('FALSE', 'TRUE', NA)), .Names = 'object'), class = 'table'));dimnames(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnames_testdimnames20_1573415146735e089dae921ddf40c88f() {
+ assertEval("argv <- list(structure(c('myTst', 'myLib', '1.0', NA, 'methods', NA, NA, NA, NA, 'What license is it under?', NA, NA, NA, NA, NA, NA, '3.0.1'), .Dim = c(1L, 17L), .Dimnames = list('ret0', c('Package', 'LibPath', 'Version', 'Priority', 'Depends', 'Imports', 'LinkingTo', 'Suggests', 'Enhances', 'License', 'License_is_FOSS', 'License_restricts_use', 'OS_type', 'Archs', 'MD5sum', 'NeedsCompilation', 'Built'))));dimnames(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnames_testdimnames21_c04fd9b9915522614a7bfc6b06ffd8f2() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1, 1, 2), Deviance = c(12.2441566485997, 32.825622681839, 8.44399377410362, 11.9670615295804), AIC = c(73.9421143635373, 92.5235803967766, 72.1419514890412, 77.665019244518)), .Names = c('Df', 'Deviance', 'AIC'), row.names = c('<none>', '- M.user', '+ Temp', '+ Soft'), class = c('anova', 'data.frame')));dimnames(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnames_testdimnames22_b1374989046d10e736aafe896ba59c94() {
+ assertEval("argv <- list(structure(c(1L, 2L, 1L), .Dim = 3L, .Dimnames = structure(list(c('1', '2', NA)), .Names = ''), class = 'table'));dimnames(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnames_testdimnames23_9993a9a887ae4731beb68f1275e4127b() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Dim = c(10L, 2L), .Dimnames = list(NULL, c('tt', 'tt + 1')), .Tsp = c(1920.5, 1921.25, 12), class = c('mts', 'ts', 'matrix')));dimnames(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnames_testdimnames26_8daa46dd266ca3124ee14488675413db() {
+ assertEval("argv <- list(structure(c(-15.7095066647243, 0.26727943386171, 0.297238382214578, 0.257897591876632, 0.340108731286838, 0.236310380889319, 0.317311605722827, 0.262866287094154, 0.338086383499512, 0.234905236792884, 0.325336667185977, 0.218927692395608, -7.51574917378772, 7.84743436370915, -0.381048703752012, -0.330615253498497, 0.244844953659604, 0.170120314286586, -0.406781840034597, -0.336984938523255, 0.243389061455961, 0.169108748250409, -0.417069674483433, -0.280657271719851, -5.36168424071406, 0.204399594459056, 7.44580265802875, 0.18731755950565, -0.56882795084156, -0.395226400731518, -0.439007571789656, -0.363681278343691, 0.147865047400615, 0.10273786720867, 0.236300269698257, 0.159012733501467, -5.07819471343419, -0.0276453301370831, -3.65602301353979, 6.37342950130462, 0.0099206539914638, 0.0068929530698134, 0.118301269982087, 0.0980027677458417, -0.620575419067553, -0.431180972906935, -0.48536920518568, -0.326617841666301), .Dim = c(12L, 4L), .Dimnames = list(c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), c('(Intercept)', 'M.userY', 'SoftMedium', 'SoftSoft'))));dimnames(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnames_testdimnames4_8f24676d18287d5905f7a39929d537bc() {
+ assertEval("argv <- list(structure(c(NA, 1, 2, 5.65604443125997, 8.44399377410362, 5.49523049516867, 71.3540021461976, 72.1419514890413, 75.1931882101063), .Dim = c(3L, 3L), .Dimnames = list(c('<none>', '- M.user:Temp', '+ Soft'), c('Df', 'Deviance', 'AIC'))));dimnames(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnames_testdimnames6_b57e2b4318ce1f3796fcaec016ccd382() {
+ assertEval("argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))));dimnames(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnames_testdimnames8_28f564b6e9cdfd539566df046ae8ab02() {
+ assertEval("argv <- list(structure(list(visible = c(TRUE, TRUE, TRUE, TRUE, TRUE), from = structure(c(2L, 2L, 2L, 2L, 2L), .Label = c('CheckExEnv', 'package:base', 'package:datasets', 'package:graphics', 'package:grDevices', 'package:methods', 'package:stats', 'package:utils'), class = 'factor')), .Names = c('visible', 'from'), row.names = c('[[.data.frame', '[[.Date', '[[.factor', '[[.numeric_version', '[[.POSIXct'), class = 'data.frame'));dimnames(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnames_testdimnames9_2c360797a364c449c337f5e3bff63e90() {
+ assertEval("argv <- list(structure(c(-0.148741651280925, -0.200659450546418, -0.0705810742857073, -0.356547323513813, -0.214670164989233, -0.161150909262745, -0.0362121726544447, -0.259637310505756, -0.142667503568732, -0.113509274827518, -0.0362121726544447, -0.221848749616356, -0.0809219076239261, -0.0969100130080564, 0, -0.113509274827518, -0.0362121726544447, 0, 0.0934216851622351, 0, 0.0644579892269184, 0.113943352306837, 0.161368002234975, 0.0969100130080564, 0.100370545117563, 0.139879086401236, 0.269512944217916, 0.193124598354462, 0.184691430817599, 0.201397124320452, 0.262451089730429, 0.269512944217916, 0.184691430817599, 0.315970345456918, 0.369215857410143, 0.352182518111362, 0.334453751150931, 0.385606273598312, 0.431363764158987, 0.352182518111362, 0.445604203273598, 0.534026106056135, 0.56702636615906, 0.556302500767287, 0.556302500767287, 0.635483746814912, 0.635483746814912, 0.607455023214668, 0.686636269262293, 0.702430536445525, 0.702430536445525, 0.644438589467839, 0.746634198937579, 0.76715586608218, 0.817565369559781, 0.725094521081469, 0.780317312140151, 0.8055008581584, 0.840733234611807, 0.76715586608218, 0.840733234611807, 0.888740960682893, 0.893761762057943, 0.786751422145561, 0.888740960682893, 0.949877704036875, 0.91803033678488, 0.835056101720116, 0.979548374704095, 1.0111473607758, 0.979548374704095, 0.94101424370557, 1.07481644064517, 1.08134730780413, 1.08457627793433, 0.949877704036875, 1.14736710779379, 1.11260500153457, 1.17172645365323, 0.999565488225982, 1.20951501454263, 1.16643011384328, 1.20466251174822, 1.06483221973857, -0.159187512164844, -0.175393808396786, -0.187687755757946, -0.207642507026642, -0.198621515607727, -0.176754605786408, -0.158836651491979, -0.149428697683695, -0.140952828307713, -0.131024527567456, -0.123872539048553, -0.114280817787828, -0.0994047163123464, -0.087368495856282, -0.0695543741081212, -0.0471907302590792, -0.0252858368758202, -0.00046875732235226, 0.0256791224090317, 0.0513817320777501, 0.0766209131410961, 0.0968522890603896, 0.10926580806596, 0.12423159770419, 0.140017729684574, 0.160995251972733, 0.186207523410629, 0.20145502677125, 0.212779940301236, 0.218492043424262, 0.230096897140732, 0.249642407137453, 0.267032743986859, 0.296832600908836, 0.324482776968729, 0.34857076887723, 0.365213423984069, 0.378158595546285, 0.395931013687348, 0.419646007489754, 0.460582747648703, 0.501139500862399, 0.536421474743013, 0.565667794936187, 0.583727648968917, 0.604807814936374, 0.625205889668605, 0.647621016647276, 0.667938096838737, 0.680279300032779, 0.691704012845436, 0.70875844749856, 0.731043761734682, 0.751082618736354, 0.768818358528044, 0.778037539482349, 0.783883770017724, 0.793567437831882, 0.808497952330164, 0.824527436015885, 0.837662628092942, 0.850394585087975, 0.86126020516377, 0.869685339227116, 0.881257746828503, 0.896341202762879, 0.909788792806972, 0.926007182864941, 0.946255773007512, 0.966071629523008, 0.986442844639348, 1.01212132840619, 1.03013203323943, 1.04537749097574, 1.05767268306294, 1.06939407179363, 1.08529788756315, 1.10060754122045, 1.11720247611807, 1.12845012932749, 1.1415063364534, 1.15405124613828, 1.16739846403236, 1.18260472251233, -0.500829194148537, -0.52138894326571, -0.395290556425639, -0.612473674589852, -0.501276350125614, -0.491690167245187, -0.390354415846618, -0.612811414694937, -0.50108691493379, -0.487593021259144, -0.410519772822145, -0.60198159752223, -0.486883827608277, -0.503288363976579, -0.42574385459525, -0.568147157695982, -0.507959098850015, -0.498398837847198, -0.433186387433784, -0.55201418458838, -0.518671455596172, -0.493155285150245, -0.444313944722341, -0.526234257426627, -0.532725645126928, -0.515368327315997, -0.429924874711845, -0.513474228757053, -0.535827355681639, -0.509755301472591, -0.457834384119355, -0.484020307382735, -0.566550518367581, -0.484439669223823, -0.460465869949124, -0.506741194861463, -0.536243725945176, -0.486859832443798, -0.457576573769744, -0.545126578784142, -0.515794992319117, -0.47384137864798, -0.476642594236321, -0.523341985476231, -0.522293038769951, -0.469249989654994, -0.486003635866052, -0.541938916235621, -0.49102139505142, -0.478259440132195, -0.481086490677911, -0.556698657805247, -0.48671796302777, -0.486157330493723, -0.461848039861244, -0.556823945253764, -0.498054862552783, -0.480860984756722, -0.4661755221955, -0.561135228990277, -0.497359948541683, -0.46413941340098, -0.470914891619888, -0.579021563367855, -0.488243746349874, -0.449175409103654, -0.488562751281115, -0.586017616755797, -0.467647247160106, -0.454360847750584, -0.499693656171344, -0.581118529375087, -0.458579410956407, -0.467570268776559, -0.473550583747953, -0.613665700345632, -0.438534120752666, -0.486034341320657, -0.452438304433326, -0.626272401483727, -0.43259461595065, -0.48652221719006, -0.460246994058915, -0.618889869869875), .Dim = c(84L, 3L), .Dimnames = list(NULL, c('JJ', 'sm[, 1]', 'sm[, 3] - 0.5')), .Tsp = c(1960, 1980.75, 4), class = c('mts', 'ts', 'matrix')));dimnames(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign1_85a4bcd14ac2f0302bbcd5b6ee789a64() {
+ assertEval("argv <- list(structure(c(300, 3000, 400, 4000), .Dim = c(2L, 2L, 1L), .Dimnames = list(c('happy', 'sad'), NULL, '')), value = list(c('happy', 'sad'), NULL, ''));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign10_fecdd3f25422c943a3c93559f1d67428() {
+ assertEval("argv <- list(structure(1:9, .Dim = c(3L, 3L), .Dimnames = list(c('x', 'y', NA), c('1', NA, '3'))), value = list(c('x', 'y', NA), c('1', NA, '3')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign11_195379d284b3534b1d8ca733a2a27f13() {
+ assertEval("argv <- list(structure(c(0-0.5i, 0-0.577350269189626i, 0-0.707106781186548i, 0-1i, Inf+0i, 1+0i, 0.707106781186548+0i, 0.577350269189626+0i, 0.5+0i, 0.447213595499958+0i, 0.408248290463863+0i, 0.377964473009227+0i, 0.353553390593274+0i, 0.333333333333333+0i, 0.316227766016838+0i, 0.301511344577764+0i, 0.288675134594813+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 0+2i, 0+1.73205080756888i, 0+1.41421356237309i, 0+1i, 0+0i, 1+0i, 1.41421356237309+0i, 1.73205080756888+0i, 2+0i, 2.23606797749979+0i, 2.44948974278318+0i, 2.64575131106459+0i, 2.82842712474619+0i, 3+0i, 3.16227766016838+0i, 3.3166247903554+0i, 3.46410161513775+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, 0-8i, 0-5.19615242270663i, 0-2.82842712474619i, 0-1i, 0+0i, 1+0i, 2.82842712474619+0i, 5.19615242270663+0i, 8+0i, 11.1803398874989+0i, 14.6969384566991+0i, 18.5202591774521+0i, 22.6274169979695+0i, 27+0i, 31.6227766016838+0i, 36.4828726939094+0i, 41.5692193816531+0i, 16+0i, 9+0i, 4+0i, 1+0i, 0+0i, 1+0i, 4+0i, 9+0i, 16+0i, 25+0i, 36+0i, 49+0i, 64+0i, 81+0i, 100+0i, 121+0i, 144+0i), .Dim = c(17L, 6L), .Dimnames = structure(list(c('-4', '-3', '-2', '-1', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12'), `^` = c('-0.5', '0', '0.5', '1', '1.5', '2')), .Names = c('', '^'))), value = structure(list(c('-4', '-3', '-2', '-1', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12'), `^` = c('-0.5', '0', '0.5', '1', '1.5', '2')), .Names = c('', '^')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign12_320da4e5ed35221c7e08dc50b8d5848d() {
+ assertEval("argv <- list(structure(list(fair = c(326L, 688L, 343L, 98L), red = c(38L, 116L, 84L, 48L), medium = c(241L, 584L, 909L, 403L), dark = c(110L, 188L, 412L, 681L), black = c(3L, 4L, 26L, 85L)), .Names = c('fair', 'red', 'medium', 'dark', 'black'), class = 'data.frame', row.names = c('blue', 'light', 'medium', 'dark')), value = list(c('blue', 'light', 'medium', 'dark'), c('F', 'R', 'M', 'D', 'B')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign13_a76c2982657b5ba62c5d7b8b5e1726a1() {
+ assertEval("argv <- list(structure(c(4L, 96L, 0L, 99L, 0L, 1L, 91L, 0L, 9L, 99L, 0L, 1L, 4L, 0L, 96L, 82L, 18L, 0L, 87L, 13L, 0L, 92L, 0L, 8L, 2L, 1L, 97L, 81L, 19L, 0L, 44L, 56L, 0L, 12L, 88L, 0L, 22L, 78L, 0L, 5L, 95L, 0L, 1L, 99L, 0L, 57L, 43L, 0L, 24L, 76L, 0L, 1L, 99L, 0L, 13L, 87L, 0L, 2L, 0L, 98L, 4L, 0L, 96L, 4L, 0L, 96L, 8L, 0L, 92L, 2L, 0L, 98L), .Dim = c(3L, 24L), .Dimnames = structure(list(cluster = c('1', '2', '3'), obs = c(' 30', ' 243', ' 245', ' 309', ' 562', ' 610', ' 708', ' 727', ' 770', '1038', '1081', '1120', '1248', '1289', '1430', '1610', '1644', '1683', '1922', '2070', '2380', '2662', '2821', '2983')), .Names = c('cluster', 'obs'))), value = structure(list(cluster = c('1', '2', '3'), obs = c(' 30', ' 243', ' 245', ' 309', ' 562', ' 610', ' 708', ' 727', ' 770', '1038', '1081', '1120', '1248', '1289', '1430', '1610', '1644', '1683', '1922', '2070', '2380', '2662', '2821', '2983')), .Names = c('cluster', 'obs')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign14_79176686a8205a5b942a062a6f6cdf29() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0), .Dim = c(2L, 2L), .Dimnames = list(NULL, c('A', 'B'))), value = list(NULL, c('A', 'B')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign15_2fec4a61520a7cdef28d061f2124d41e() {
+ assertEval("argv <- list(structure(c('NULL', 'double', 'integer', 'complex', 'list', 'list', 'pairlist', 'builtin', 'closure', 'symbol', 'symbol', 'language', 'language', 'symbol', 'symbol', 'NULL', 'double', 'integer', 'complex', 'list', 'list', 'pairlist', 'function', 'function', 'symbol', 'symbol', 'language', 'language', 'symbol', 'symbol', 'NULL', 'numeric', 'numeric', 'complex', 'list', 'list', 'pairlist', 'function', 'function', 'name', 'name', 'call', '(', 'name', 'name'), .Dim = c(15L, 3L), .Dimnames = list( c('NULL', '1', '1:1', '1i', 'list(1)', 'data.frame(x = 1)', 'pairlist(pi)', 'c', 'lm', 'formals(lm)[[1]]', 'formals(lm)[[2]]', 'y ~ x', 'expression((1))[[1]]', '(y ~ x)[[1]]', 'expression(x <- pi)[[1]][[1]]'), c('typeof(.)', 'storage.mode(.)', 'mode(.)'))), value = list(c('NULL', '1', '1:1', '1i', 'list(1)', 'data.frame(x = 1)', 'pairlist(pi)', 'c', 'lm', 'formals(lm)[[1]]', 'formals(lm)[[2]]', 'y ~ x', 'expression((1))[[1]]', '(y ~ x)[[1]]', 'expression(x <- pi)[[1]][[1]]'), c('typeof(.)', 'storage.mode(.)', 'mode(.)')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign2_4251a701e45fc2053b85ce4a2fc3b2f2() {
+ assertEval("argv <- list(structure(1:24, .Dim = 2:4, .Dimnames = list(c('A', 'B'), NULL, NULL)), value = list(c('A', 'B'), NULL, NULL));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign3_bcc5c5fefc9508adde5f97b51ea68153() {
+ assertEval("argv <- list(structure(c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = 3:4), value = NULL);`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign4_999d9b3fdc47c06993e12bafb99a00e0() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 20L)), value = NULL);`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign5_f8344ff7cf66a126932cf5f9a6e8e30b() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 22, 0, 0, 25, 0, 0, 0, 0, 30, 0, 0, 0, 0, 0, 0, 0, 38, 39, 0, 0, 0, 0, 0, 86, 0, 0, 0, 90, 91, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 103, 0, 0, 0, 0, 0, 0, 0, 0, 0, 113, 114, 0, 0, 0, 0, 0, 0, 121, 0, 0, 0, 0, 0, 128, 129, 0, 0, 132, 133, 0, 0, 0, 0, 138, 0, 0, 141, 142, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 159, 0, 1, 0, 0, 0, 2, 0, 0, 0, 1, 171, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 187, 0, 1, 0, 0, 0, 193, 0, 0, 196, 0, 0, 0, 1, 1, 202, 0, 0, 3, 0, 208, 0, 2, 0, 212, 0, 0, 0, 0, 0, 218, 0, 220, 1, 0, 0, 0, 0, 226, 227, 0, 2, 230, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 241, 0, 0, 0, 0, 0, 0, 0, 250, 251, 0, 0, 0, 255, 256, 257, 0, 0, 0, 261, 262, 0, 264, 0, 0, 0, 268, 0, 0, 0, 0, 0, 0, 275, 276, 0, 0, 0, 0, 0, 0, 0, 0, 0, 287, 0, 0, 290, 0, 292, 293, 0, 0, 0, 0, 0, 0, 300, 0, 0, 0, 0, 305, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 319, 0, 0, 0, 324, 0, 0, 0, 328, 329, 0, 0, 0, 0, 0, 335, 0, 0, 0, 339, 340, 0, 0, 343, 0, 0, 0, 0, 0, 0, 0, 351, 0, 0, 354, 0, 0, 0, 0, 0, 360, 0, 0, 0, 0, 0, 0, 0, 0, 0, 371, 0, 0, 0, 0, 0, 0, 0, 379, 0, 0, 0, 0, 0, 385, 0, 387, 0, 389, 0, 391, 0, 393, 394, 395, 396, 0, 0, 399, 0, 0, 0, 0, 405, 1, 407, 408, 0, 2, 0, 0, 0, 414, 415, 0, 417, 0, 0, 0, 0, 0, 0, 424, 0, 0, 0, 428, 1, 0, 431, 0, 433, 0, 435, 0, 0, 0, 439, 1, 441, 0, 0, 0, 0, 0, 0, 0, 0, 0, 452, 0, 0, 0, 0, 457, 0, 0, 0, 461, 0, 463, 0, 0, 0, 0, 0, 0, 0, 0, 0, 473, 474, 475, 0, 477, 0, 0, 0, 0, 482, 484, 0, 0, 487, 0, 0, 490, 491, 492, 0, 0, 0, 0, 0, 0, 499, 0, 501, 502, 0, 0, 0, 0, 0, 0, 0, 510, 0, 0, 0, 0, 515, 516, 0, 0, 519, 0, 0, 522, 524, 0, 0, 527, 528, 529, 530, 0, 532, 533, 0, 0, 0, 0, 538, 0, 0, 0, 0, 0, 0, 0, 0, 0, 548, 0, 0, 0, 0, 553, 0, 555, 0, 0, 0, 0, 560, 561, 0, 564, 0, 566, 0, 568, 0, 570, 0, 0, 0, 0, 0, 0, 0, 0, 0, 580, 0, 0, 0, 0, 0, 586, 0, 0, 589, 0, 0, 592, 593, 594, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 608, 0, 0, 0, 0, 0, 614, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 625, 626, 0, 628, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 640, 0, 0, 0, 645, 1, 0, 648, 0, 0, 0, 0, 653, 0, 0, 0, 657, 0, 0, 0, 0, 0, 0, 0, 665, 0, 0, 0, 0, 670, 671, 0, 0, 0, 675, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 691, 0, 0, 0, 695, 0, 697, 0, 0, 700, 0, 702, 0, 0, 0, 0, 0, 708, 0, 710, 711, 0, 0, 0, 0, 716, 0, 718, 0, 0, 0, 722, 0, 0, 0, 727, 728, 729, 0, 731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 745, 0, 747, 0, 0, 750, 0, 0, 0, 0, 0, 0, 0, 0, 0, 760, 0, 0, 764, 0, 2, 0, 0, 0, 0, 0, 772, 0, 0, 0, 776, 777, 0, 0, 0, 1, 0, 0, 784, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 796, 0, 0, 0, 1), .Dim = c(39L, 19L)), value = NULL);`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign6_cb86439752d354feeda3bd68427a8c76() {
+ assertEval("argv <- list(structure(c(-75, 0, 103, 0, 124, -1, 0, -2.77555756156289e-17, 0, -1.66533453693773e-16, 0, 0, 0, 178, 0), .Dim = c(5L, 3L)), value = NULL);`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign7_47b50de393c11c26b384b2e6d037878c() {
+ assertEval("argv <- list(structure(c(-0.0124410638457178, NA, 0.00669768951701377, NA, 0.00669754897238661, NA, 3.45036480545864, 2.52673085623929, 1, 2.64771226663238, 0.0632378108418818, 0.404928794321981), .Dim = c(2L, 6L), .Dimnames = list(c('linear', 'nonlin'), NULL)), value = list(c('linear', 'nonlin'), NULL));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign8_e437904b8ed2d74ac08e0e359881eb80() {
+ assertEval("argv <- list(structure(c(300, 3000, 400, 4000), .Dim = c(2L, 2L)), value = NULL);`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindimnamesassign_testdimnamesassign9_26f351722c791bca85c2f501f0768985() {
+ assertEval("argv <- list(structure(c(1259, 1360, 845, 1053, 719, 774, 390, 413), .Dim = c(2L, 4L), .Dimnames = list(c('a', 'b'), NULL)), value = list(c('a', 'b')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindircreate_testdircreate1_330a42e830fe7a29c1ad63a7b51eb8d2() {
+ assertEval("argv <- list('/home/lzhao/tmp/RtmptS6o2G/translations', FALSE, FALSE, structure(511L, class = 'octmode')); .Internal(dir.create(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindirname_testdirname4_ff3263428c608fd317fde2029f463c35() {
+ assertEval("argv <- list(c('ChangeLog', 'DESCRIPTION', 'INDEX', 'MD5', 'NAMESPACE', 'PORTING', 'R/0aaa.R', 'R/agnes.q', 'R/clara.q', 'R/clusGap.R', 'R/coef.R', 'R/daisy.q', 'R/diana.q', 'R/ellipsoidhull.R', 'R/fanny.q', 'R/internal.R', 'R/mona.q', 'R/pam.q', 'R/plothier.q', 'R/plotpart.q', 'R/silhouette.R', 'R/zzz.R', 'README', 'data/agriculture.tab', 'data/animals.tab', 'data/chorSub.rda', 'data/flower.R', 'data/plantTraits.rda', 'data/pluton.tab', 'data/ruspini.tab', 'data/votes.repub.tab', 'data/xclara.rda', 'inst/CITATION', 'inst/po/de/LC_MESSAGES/R-cluster.mo', 'inst/po/en@quot/LC_MESSAGES/R-cluster.mo', 'inst/po/pl/LC_MESSAGES/R-cluster.mo', 'man/agnes.Rd', 'man/agnes.object.Rd', 'man/agriculture.Rd', 'man/animals.Rd', 'man/bannerplot.Rd', 'man/chorSub.Rd', 'man/clara.Rd', 'man/clara.object.Rd', 'man/clusGap.Rd', 'man/clusplot.default.Rd', 'man/clusplot.partition.Rd', 'man/cluster-internal.Rd', 'man/coef.hclust.Rd', 'man/daisy.Rd', 'man/diana.Rd', 'man/dissimilarity.object.Rd', 'man/ellipsoidhull.Rd', 'man/fanny.Rd', 'man/fanny.object.Rd', 'man/flower.Rd', 'man/lower.to.upper.tri.inds.Rd', 'man/mona.Rd', 'man/mona.object.Rd', 'man/pam.Rd', 'man/pam.object.Rd', 'man/partition.object.Rd', 'man/plantTraits.Rd', 'man/plot.agnes.Rd', 'man/plot.diana.Rd', 'man/plot.mona.Rd', 'man/plot.partition.Rd', 'man/pltree.Rd', 'man/pltree.twins.Rd', 'man/pluton.Rd', 'man/predict.ellipsoid.Rd', 'man/print.agnes.Rd', 'man/print.clara.Rd', 'man/print.diana.Rd', 'man/print.dissimilarity.Rd', 'man/print.fanny.Rd', 'man/print.mona.Rd', 'man/print.pam.Rd', 'man/ruspini.Rd', 'man/silhouette.Rd', 'man/sizeDiss.Rd', 'man/summary.agnes.Rd', 'man/summary.clara.Rd', 'man/summary.diana.Rd', 'man/summary.mona.Rd', 'man/summary.pam.Rd', 'man/twins.object.Rd', 'man/volume.ellipsoid.Rd', 'man/votes.repub.Rd', 'man/xclara.Rd', 'po/R-cluster.pot', 'po/R-de.po', 'po/R-en@quot.po', 'po/R-pl.po', 'po/update-me.sh', 'src/clara.c', 'src/cluster.h', 'src/daisy.f', 'src/dysta.f', 'src/fanny.c', 'src/ind_2.h', 'src/init.c', 'src/mona.f', 'src/pam.c', 'src/sildist.c', 'src/spannel.c', 'src/twins.c', 'tests/agnes-ex.R', 'tests/agnes-ex.Rout.save', 'tests/clara-NAs.R', 'tests/clara-NAs.Rout.save', 'tests/clara-ex.R', 'tests/clara.R', 'tests/clara.Rout.save', 'tests/clusplot-out.R', 'tests/clusplot-out.Rout.save', 'tests/daisy-ex.R', 'tests/daisy-ex.Rout.save', 'tests/diana-boots.R', 'tests/diana-ex.R', 'tests/diana-ex.Rout.save', 'tests/ellipsoid-ex.R', 'tests/ellipsoid-ex.Rout.save', 'tests/fanny-ex.R', 'tests/mona.R', 'tests/mona.Rout.save', 'tests/pam.R', 'tests/pam.Rout.save', 'tests/silhouette-default.R', 'tests/silhouette-default.Rout.save', 'tests/sweep-ex.R')); .Internal(dirname(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindoTrace_testdoTrace1_ddcd3f64b9f15a9d7ab031d4fd632472() {
+ assertEval("argv <- list(c(1, 1, 2));.doTrace(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindput_testdput1_13e57556ea92b275460a4cf536a7c6fa() {
+ assertEval("argv <- list(logical(0), structure(1L, class = c('terminal', 'connection')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindput_testdput2_49535106681b131c08bed169ad6eee4b() {
+ assertEval("argv <- list(structure(1, .Dim = 1L), structure(1L, class = c('terminal', 'connection')), 95); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindput_testdput3_09fa7b5e74174c70851c49ad93ae7635() {
+ assertEval("argv <- list(character(0), structure(1L, class = c('terminal', 'connection')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindput_testdput4_f7a75e3bfd9049b64077a13f2659cd55() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), structure(1L, class = c('terminal', 'connection')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindput_testdput5_73817a9226702e69b6277c05bec3ae8d() {
+ assertEval("argv <- list(NULL, structure(1L, class = c('terminal', 'connection')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindput_testdput6_79110d5bdc310dc7e12d4ca11f48da06() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), structure(1L, class = c('terminal', 'connection')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindput_testdput7_de1647a0d34feff88308694be2816ac6() {
+ assertEval("argv <- list(FALSE, structure(1L, class = c('terminal', 'connection')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindput_testdput8_06ac0c8f01e2f86cb8f043b347b3a042() {
+ assertEval("argv <- list(c(0.00508571428571428, 0.876285714285715), structure(1L, class = c('terminal', 'connection')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindrop_testdrop1_435233a57444df0f45863f7b8b1b6ad6() {
+ assertEval("argv <- list(structure(c(1.50117937791368, 1.64775918264914, 1.38492642933039, 2.16331573723593, 2.09255307288088, 1.44052566560935, 0.318431987979291, 1.53656071009121, 2.26440525774314, 1.31416376497534, 0.495338648866914, 1.09176681985947, 1.27372795677245, 1.95608222019614, 1.5112883299644, 1.48096147381224, 1.88531955584109, 2.15826126121057, 1.49107042586296, 1.77412108328316, 1.19791081639204, 0.884533302819684, 1.21307424446813, 1.68314051482667, 0.181961135294554, 1.71346737097883, 1.29900033689926, 1.4860159498376, 1.00078625140298, 1.52139728201513, 1.42030776150791, 0.505447600917635, 1.5112883299644, 1.33438166907678, 1.81455689148604, -1.61842961254877e-09, 1.40008985740647, 2.10771650095696, 0.611591597450209, 0.136470851066308, 1.10693024793555, 1.61237785047162, 0.990677299352257, 1.28383690882317, 1.33438166907678, 1.44558014163472, 1.15747500818916, 1.30910928894998, 0.753116926160307, 1.4860159498376, 2.10771650095696, 2.40087611042788, 1.27372795677245, 1.16252948421452, 0.985622823326897, 2.05211726467799, 1.3444906211275, 0.768280354236389, 0.844097494616799, 1.22823767254421, 0.980568347301536, 1.10693024793555, 0.899696730895766, 1.67303156277594, 0.995731775377618, 1.68314051482667, 1.42030776150791, 1.55172413816729, 1.55172413816729, 0.722790070008143, 1.98135460032294, 1.39503538138111, 1.14231158011308, 1.07154891575803, 1.08671234383411, 0.662136357703815, 0.808716162439274, 1.91564641199326, 2.08749859685552, 1.15747500818916, 1.3192182410007, 1.02605863152978, 1.18274738831596, 1.23329214856957, 0.783443782312471, 1.65786813469986, 0.965404919225454, 2.27451420979386, 1.25351005267101, 1.22823767254421, 1.74884870315635, 1.54666966214193, 1.99651802839903, 1.22318319651885, 1.09682129588483, 2.06222621672871, 1.82972031956212, 0.808716162439274, 1.66797708675058, 1.74884870315635), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100'))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindrop_testdrop10_b2d97f724d1dfde490e0b550e91dc5bf() {
+ assertEval("argv <- list(structure(c(-2.12168716972669e-05, 7.51519194600216e-05, -6.21732236176711e-06), .Dim = c(3L, 1L))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindrop_testdrop11_dd679b9a609f4fb003b37d3b053c3905() {
+ assertEval("argv <- list(structure(c(' 16', ' 16', '144', ' 16', ' 16', '128', ' 16', ' 16', '112', ' 16'), .Dim = 10L, .Dimnames = structure(list(c('1', '6', '7', '8', '13', '14', '15', '20', '21', '22')), .Names = ''))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindrop_testdrop2_639fdca1d0b5d22b4845f579ecb2fa9d() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE), .Dim = c(40L, 1L), .Dimnames = list(c('r1', 'r2', 'r3', 'r4', 'r5', 'r6', 'r7', 'r8', 'r9', 'r10', 'r11', 'r12', 'r13', 'r14', 'r15', 'r16', 'r17', 'r18', 'r19', 'r20', 'r21', 'r22', 'r23', 'r24', 'r25', 'r26', 'r27', 'r28', 'r29', 'r30', 'r31', 'r32', 'r33', 'r34', 'r35', 'r36', 'r37', 'r38', 'r39', 'r40'), 'c1'))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindrop_testdrop3_48afea2c0db4a591b2689306fa2b2014() {
+ assertEval("argv <- list(structure(c(-0.146170181357627, 24.3243243243243, NA, 84.2105263157895, 2.13784643479304), .Dim = c(5L, 1L))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindrop_testdrop4_d4365e445536d969a0e444bcc82d14fd() {
+ assertEval("argv <- list(structure(1, .Dim = c(1L, 1L))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindrop_testdrop5_c1e1cfd2a3a4207e864c703843d7784b() {
+ assertEval("argv <- list(structure(1:4, .Dim = c(4L, 1L), .Dimnames = list(c('a', 'b', 'c', 'd'), NULL))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindrop_testdrop6_a6b5e8feda8f1ba92b7dc96d419b63c9() {
+ assertEval("argv <- list(structure(c(0.0394556761478965, 0.0353930191803619, 0.0421772348795039, 0.0302920451103359, 0.0377457762283076, 0.0338591835815583, 0.0403493901288877, 0.0289792716248635, 0.0342125137383397, 0.0306897327119817, 0.0365724115929804, 0.0262666138482847, 0.0422657427158027, 0.0379137398889158, 0.0451811331581029, 0.032449470138841), .Dim = c(1L, 4L, 4L), .Dimnames = list('1', c('DAX', 'SMI', 'CAC', 'FTSE'), c('DAX', 'SMI', 'CAC', 'FTSE')))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindrop_testdrop7_b9790c234e422b9e1e9c75d711fc8586() {
+ assertEval("argv <- list(c(10.8924449093617, 19.1956646477802, 5.83862354833301, 8.94491073999977, 10.0151293814506)); .Internal(drop(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindrop_testdrop8_8ba3a8cad6f3b271481cc8936dd99036() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0'))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltindrop_testdrop9_1e829615fd7d3b3e88a407a5ee0c79c6() {
+ assertEval("argv <- list(structure(FALSE, .Tsp = c(1, 1, 1), class = 'ts')); .Internal(drop(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinduplicated_testduplicated1_ebbff31c5b633382ddc43f32a68390ba() {
+ assertEval("argv <- list(c('methods', 'base'), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinduplicated_testduplicated10_4978231584e6d9c3e467766333acb8d3() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinduplicated_testduplicated11_616d0bc61740d01e3b62ffc4103ef85d() {
+ assertEval("argv <- list(c('\\title', '\\name', '\\alias', '\\alias', '\\keyword', '\\keyword', '\\description', '\\usage', '\\arguments', '\\details', '\\value', '\\section', '\\section', '\\seealso', '\\examples'), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinduplicated_testduplicated12_f6bc49e7c5d274babebbdfd75ec6701b() {
+ assertEval("argv <- list(structure(c(-0.838428742794102, 0.838428742794102, 0.838428742794102, 0.838428742794102, -0.838428742794102, -0.838428742794102), .Dim = c(6L, 1L), .Dimnames = list(c('1', '3', '4', '5', '6', '7'), NULL)), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinduplicated_testduplicated13_3f0e75f1a33167fc0f02129bd32c813b() {
+ assertEval("argv <- list(c(-1628571, -1628571, -1200000, -1200000, -1057143, -914286, -771429, -771429, -771429, -628571, -628571, -485714, -485714, -485714, -485714, -342857, -342857, -342857, -342857, -2e+05, -2e+05, -2e+05, -2e+05, -57143, -57143, -57143, 85714, 85714, 228571, 228571, 228571, 371429, 371429, 371429, 371429, 514286, 514286, 514286, 657143, 657143, 657143, 657143, 657143, 942857, 1085714, 1228571, 1228571, 1228571, 1228571, 1371429), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinduplicated_testduplicated14_455550a693986066ccba4f1532c78dc2() {
+ assertEval("argv <- list(c(1, 0.778249191273129, 0.65570344192776, 0.65570344192776, 0.105668080308148, 0.0451091129154675, 0.0451091129154675, 1.49604383156071e-06, 8.3976239365668e-11, 2.13195391672632e-15, 1.4298180954663e-20, 1.47541167362595e-26, 1.09353648287987e-33, 1.6858825926109e-42, 1.6858825926109e-42, 1.6858825926109e-42), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinduplicated_testduplicated2_f45b04e1ebbfd66578da13d0f9208ad4() {
+ assertEval("argv <- list(list('!', '%%', '%*%', '%/%', '&', '*', '+', '-', '/', 'Arith', 'BunchKaufman', 'Cholesky', 'Compare', 'Logic', 'Math2', 'Math', 'Ops', 'Schur', 'Summary', '[', '[<-', '^', 'all.equal', 'all', 'any', 'as.array', 'as.integer', 'as.logical', 'as.matrix', 'as.numeric', 'as.vector', 'band', 'cbind2', 'chol2inv', 'chol', 'coerce', 'coerce<-', 'colMeans', 'colSums', 'cov2cor', 'crossprod', 'determinant', 'diag', 'diag<-', 'diff', 'dim', 'dim<-', 'dimnames', 'dimnames<-', 'drop', 'expand', 'expm', 'facmul', 'forceSymmetric', 'format', 'head', 'image', 'initialize', 'is.finite', 'is.infinite', 'is.na', 'isDiagonal', 'isSymmetric', 'isTriangular', 'kronecker', 'length', 'lu', 'mean', 'nnzero', 'norm', 'pack', 'print', 'prod', 'qr.Q', 'qr.R', 'qr.coef', 'qr.fitted', 'qr.qty', 'qr.qy', 'qr.resid', 'qr', 'rbind2', 'rcond', 'rep', 'rowMeans', 'rowSums', 'show', 'skewpart', 'solve', 'sum', 'summary', 'symmpart', 't', 'tail', 'tcrossprod', 'toeplitz', 'tril', 'triu', 'unname', 'unpack', 'update', 'updown', 'which', 'writeMM', 'zapsmall', 'Ops', '[', 'Math'), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinduplicated_testduplicated3_220c131e8e0d0ca88a0473048f8fa866() {
+ assertEval("argv <- list(c(3L, 8L, 18L), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinduplicated_testduplicated4_f613a3f31b44df89aed8b7b372f2dd1f() {
+ assertEval("argv <- list(c(0, 0.700492869640978, NA), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinduplicated_testduplicated5_fbcc5b30556eb2be228dc3340d32a072() {
+ assertEval("argv <- list(1L, FALSE, TRUE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinduplicated_testduplicated6_fb0cbc2fd8d70e762e57c4b8115526b7() {
+ assertEval("argv <- list(character(0), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinduplicated_testduplicated7_cf71ecdaebaaf336de9c408760d9b969() {
+ assertEval("argv <- list(list('plot', 'Ops', '[', 'Math'), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinduplicated_testduplicated8_b2e3eb12bea436f4da7ee9ea9d66aa29() {
+ assertEval("argv <- list(structure('lattice', .Names = ''), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinenc2native_testenc2native1_a6da7a9fef635308ebd71b543b33fbf5() {
+ assertEval("argv <- list(character(0));enc2native(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinenc2native_testenc2native3_4f2b48aeefda7af6afa824204677a599() {
+ assertEval("argv <- list(structure(character(0), .Names = character(0)));enc2native(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinenc2native_testenc2native4_e57d82a06016614422ffb0154b4bbd51() {
+ assertEval("argv <- list('José Pinheiro [aut] (S version)');enc2native(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinenc2utf8_testenc2utf81_eab3b90f52ba25877d127108892fb87f() {
+ assertEval("argv <- list('Add Text to a Plot');enc2utf8(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinenc2utf8_testenc2utf82_cf0b7dd72652f6d19f39f30bff83d0ec() {
+ assertEval("argv <- list('Modes');enc2utf8(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinenc2utf8_testenc2utf83_910f21599e1a260c1ed408534d623827() {
+ assertEval("argv <- list(c('', '(De)compress I/O Through Connections'));enc2utf8(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinenc2utf8_testenc2utf84_0675cbb9c58edf63fe728dd3932430f7() {
+ assertEval("argv <- list(character(0));enc2utf8(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinencodeString_testencodeString1_5395d35fd6d3afc1b2b8e8637612dce0() {
+ assertEval("argv <- list(c('1', '2', NA), 0L, '\'', 0L, FALSE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinencodeString_testencodeString10_5efc60150193802dcba95d470735bbb2() {
+ assertEval("argv <- list('\'class\' is a reserved slot name and cannot be redefined', 0L, '\'', 0L, FALSE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinencodeString_testencodeString11_a186848248673e940f898376211d6f40() {
+ assertEval("argv <- list(structure(character(0), .Dim = c(0L, 0L)), 0L, '', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinencodeString_testencodeString12_eb815ee5980af6899684228ad9431e6e() {
+ assertEval("argv <- list(character(0), logical(0), '', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinencodeString_testencodeString13_a9d38a032220f760686d7c3cb8761b7c() {
+ assertEval("argv <- list(structure('integer(0)', .Names = 'c0', row.names = character(0)), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), '', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinencodeString_testencodeString3_9624c56f6e6d4dd46aa2b2de59c39af9() {
+ assertEval("argv <- list(c('a', 'ab', 'abcde'), NA, '', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinencodeString_testencodeString4_67c14cb555c78b46df7bb1b92577933b() {
+ assertEval("argv <- list(c('a', 'ab', 'abcde'), NA, '', 1L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinencodeString_testencodeString6_f03c0de881c17e3ebc0c8c95eb2e9ef2() {
+ assertEval("argv <- list(c('NA', 'a', 'b', 'c', 'd', NA), 0L, '', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinencodeString_testencodeString7_483afa40b1cf12620d175f3f7015292a() {
+ assertEval("argv <- list('ab\bc\ndef', 0L, '', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinencodeString_testencodeString8_4e3c870248142ce48a8f7df557408d15() {
+ assertEval("argv <- list(c('FALSE', NA), 0L, '', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinencodeString_testencodeString9_402192e57b16c2e06288758280cb1ec9() {
+ assertEval("argv <- list(structure('integer(0)', .Names = 'c0', row.names = character(0)), 0L, '', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinenvironment_testenvironment1_b876a8115264bd157cd5359f11e3ab8b() {
+ assertEval("argv <- list(quote(cbind(X, M) ~ M.user + Temp + M.user:Temp + Soft)); .Internal(environment(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinenvironmentassign_testenvironmentassign1_e7d1897ac0f6b1cd0f4b3d8d7187eec3() {
+ assertEval("argv <- list(NULL, NULL);`environment<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinexp_testexp10_37d07ab33adb8aa318383f2302accf5f() {
+ assertEval("argv <- list(c(47.5645940356179, -6.38155741912049, -4.72835558025993, -9.12276173822938, 16.7269898773273, 1.72738845624351, 2.57214256243276, -6.38155741912049, 54.3235157345705, -1.01577550708815, 1.03229146110395, -7.85550713095368, -0.907238963715769, -0.92327375484205, -4.72835558025993, -1.01577550708815, 46.5450612116912, 4.59443066488959, -2.69397762349353, -13.3238428844397, -4.89920529326131, -9.12276173822938, 1.03229146110395, 4.59443066488959, 47.7416929123262, -3.84567249122941, -9.99434616922533, -0.0518296900644576, 16.7269898773273, -7.85550713095368, -2.69397762349353, -3.84567249122941, 49.4381847193856, 8.76151535039852, 0.371991514317358, 1.72738845624351, -0.907238963715769, -13.3238428844397, -9.99434616922533, 8.76151535039852, 50.1823716395239, -1.41801229530673, 2.57214256243276, -0.92327375484205, -4.89920529326131, -0.0518296900644576, 0.371991514317358, -1.41801229530673, 44.6019728197531));exp(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinexp_testexp11_8bfb5fb384aa724444aeb2b3f699aa64() {
+ assertEval("argv <- list(c(-745, -744, -743, -742, -741, -740, -730, -720, -710, -709, -708, -707, -706, -705));exp(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinexp_testexp2_41a840cb78df971739449cb9646270c1() {
+ assertEval("argv <- list(structure(3.3059560902335, .Names = 'lymax'));exp(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinexp_testexp3_526113e4ff81742afe10d844db202818() {
+ assertEval("argv <- list(structure(c(-0.00324566582797463, -0.0174366299092001, -0.0697465196367962, -0.00678668749718479, -0.0364599944879883, -0.145839977951944, -0.014190964081224, -0.0762378512927396, -0.304951405170939, -0.0296733069908004, -0.159413352946301, -0.637653411785165, -0.0620468872115091, -0.333333333333361, -1.33333333333336, -0.129740045955487, -0.697000025766712, -2.78800010306667, -0.271286446121824, -1.45742710775627, -5.8297084310247, -0.567259979811165, -3.04748019497741, -12.1899207799089, -1.18614066163432, -6.37228132326786, -25.4891252930698), .Dim = c(3L, 9L), .Dimnames = list(c('x', 'x', ''), NULL)));exp(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinexp_testexp5_8f48399be0133d423dce07c8c94b08f2() {
+ assertEval("argv <- list(c(0+0.392699081698724i, 0+0.785398163397448i, 0+1.17809724509617i, 0+1.5707963267949i, 0+1.96349540849362i, 0+2.35619449019234i, 0+2.74889357189107i, 0+3.14159265358979i, 0+3.53429173528852i, 0+3.92699081698724i, 0+4.31968989868597i, 0+4.71238898038469i, 0+5.10508806208341i, 0+5.49778714378214i, 0+5.89048622548086i, 0+6.28318530717959i));exp(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinexp_testexp6_dd0f0e60e688b17f8f079377818c4449() {
+ assertEval("argv <- list(c(-0.1, -3.16227766016838, -100));exp(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinexp_testexp8_47ea460679ebf012ce9bd2a35e00dc81() {
+ assertEval("argv <- list(logical(0));exp(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinexpm1_testexpm12_2ba9235989f7f326def41dca4adc1ff8() {
+ assertEval("argv <- list(-1.5314339531682e-113);expm1(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinexpm1_testexpm13_441a22fbf6b1ac9945d36bc193eca8e1() {
+ assertEval("argv <- list(structure(c(-0.0996985539253204, -0.208486018303182, -0.412624920187971, -0.781459230080118, -1.41933833538431, -2.49413413365086, -4.24041092023363, -7.0213317713299), .Names = c('1', '2', '3', '4', '5', '6', '7', '8')));expm1(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinexpm1_testexpm14_037d8ddcf55f9ef5e60e1cb0e06f13c5() {
+ assertEval("argv <- list(logical(0));expm1(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinexpm1_testexpm15_c34e4628d1d9ea43404c7d952da1b6e2() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));expm1(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfileaccess_testfileaccess1_a68a2b3dafefd9bbb0b07782040a2c5e() {
+ assertEval("argv <- list(character(0), 0); .Internal(file.access(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfileaccess_testfileaccess2_fdc65135c7d9f00afb7df74d52a77230() {
+ assertEval("argv <- list('/home/lzhao/R/x86_64-unknown-linux-gnu-library/3.0/FALSE', 5); .Internal(file.access(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfileinfo_testfileinfo1_a99b095a177ec7e9005fb967dfaec9a9() {
+ assertEval("argv <- list('/home/lzhao/hg/r-instrumented/library/codetools/data'); .Internal(file.info(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfileinfo_testfileinfo2_708c61ffc98b05b30ad963c97d62ca84() {
+ assertEval("argv <- list(character(0)); .Internal(file.info(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfilepath_testfilepath1_4891bfe76b5039bb7d713b8b97a6d90b() {
+ assertEval("argv <- list(list('/home/lzhao/hg/r-instrumented/tests/Packages/rpart/R', 'summary.rpart.R'), '/'); .Internal(file.path(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfilepath_testfilepath2_8dc49591cce79c3379317ea44b20ce7f() {
+ assertEval("argv <- list(list('/home/lzhao/hg/r-instrumented/src/library/parallel/R/unix', c('forkCluster.R', 'mcfork.R', 'mclapply.R', 'mcmapply.R', 'mcparallel.R', 'pvec.R')), '/'); .Internal(file.path(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfilepath_testfilepath3_51d61b5343bbd639bb542130edb19827() {
+ assertEval("argv <- list(list('/home/lzhao/hg/r-instrumented/tests/tcltk.Rcheck', structure('tcltk', .Names = 'Package'), 'help'), '/'); .Internal(file.path(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfilepath_testfilepath4_a21c2e0517b16ea6baf221c7fc9a0cbc() {
+ assertEval("argv <- list(list(character(0), 'DESCRIPTION'), '/'); .Internal(file.path(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfilepath_testfilepath5_f7ea14b938d3877211be03b90f7f73cc() {
+ assertEval("argv <- list(list(structure(character(0), .Dim = c(0L, 0L))), '/'); .Internal(file.path(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfindInterval_testfindInterval1_e0dec5063cbb7dee5518f5e2ec455b18() {
+ assertEval("argv <- list(c(1, 2, 3, 4, 5, 6, 7, 8, 9), c(3, 3.25, 3.5, 3.75, 4, 4.25, 4.5, 4.75, 5, 5.25, 5.5, 5.75, 6), FALSE, FALSE); .Internal(findInterval(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfindInterval_testfindInterval2_07ddf6b4673e54fe2d0a9931982938ad() {
+ assertEval("argv <- list(NA_real_, NA_real_, FALSE, FALSE); .Internal(findInterval(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfindInterval_testfindInterval3_ef2bb28755527226b38a27050a632fc6() {
+ assertEval("argv <- list(numeric(0), numeric(0), FALSE, FALSE); .Internal(findInterval(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfindInterval_testfindInterval4_8b524104567c383bbd58f9bb60e35690() {
+ assertEval("argv <- list(c(5, 10, 15), c(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18), FALSE, FALSE); .Internal(findInterval(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfloor_testfloor4_f528a920e5b4dfa2c269af223cfeafd6() {
+ assertEval("argv <- list(structure(c(1920.5, 1920.5833, 1920.6667, 1920.75, 1920.8333, 1920.9167, 1921, 1921.0833, 1921.1667, 1921.25), .Tsp = c(1920.5, 1921.25, 12), class = 'ts'));floor(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfloor_testfloor6_5d0419e1d9f4dedfd47750bc1624dfb5() {
+ assertEval("argv <- list(structure(c(0.555857947411444, 2.74659181662125, NA, 6.01634386021798, 3.26975214359673, 2.19073396920981, 2.74659181662125, NA, 0.555857947411444, 3.82560999100817, 0.555857947411444, 2.19073396920981, 2.74659181662125, 2.74659181662125, 1.07901827438692, 4.38146783841962, 1.11171579482289, 1e-07, 7.09536203460491, 11.9999901, 4.93732568583106, 5.46048601280654), .Dim = c(22L, 1L)));floor(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfloor_testfloor7_d9dabc6a6507a3c055b48d3f34ba68be() {
+ assertEval("argv <- list(structure(c(3.08577921002324, 0.531033162063639, 1.47434325842442, 5.64214292692797, 6.21994378924106, 2.27200744902353, 11.9999901, 0.424434048635841, 0.549397569660826, 0.973929660925175, 1e-07, 3.54172739357752, 11.9999901, 2.27200744902353, 4.47284349010678, 6.43648940805496, 7.50963843787849, 7.11757579203344, 11.9999901, 3.54172739357752, 6.21994378924106, 5.1224060214714, 6.89175397596987, 6.52603528890926, 11.9999901, 7.11757579203344, 1e-07, 5.64214292692797, 6.00414304408873, 9.63018799510384, 11.9999901, 6.52603528890926, 7.50963843787849, 0.973929660925175, 1.47434325842442, 4.2100341139702, 11.9999901, 9.63018799510384, 6.89175397596987, 6.43648940805496, 0.549397569660826, 0.531033162063639, 11.9999901, 4.2100341139702, 6.00414304408873, 5.1224060214714, 4.47284349010678, 0.424434048635841, 3.08577921002324), .Dim = c(7L, 7L), .Dimnames = list(c('privileges', 'rating', 'complaints', 'learning', 'raises', 'critical', 'advance'), c('advance', 'critical', 'raises', 'learning', 'complaints', 'rating', 'privileges'))));floor(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfloor_testfloor8_7b7dd783ca8b1592a2ce4332b6f92e94() {
+ assertEval("argv <- list(structure(c(1976, 1976.0833, 1976.1667, 1976.25, 1976.3333, 1976.4167, 1976.5, 1976.5833, 1976.6667, 1976.75, 1976.8333, 1976.9167, 1977, 1977.0833, 1977.1667, 1977.25, 1977.3333, 1977.4167, 1977.5, 1977.5833, 1977.6667, 1977.75, 1977.8333, 1977.9167, 1978), .Tsp = c(1976, 1978, 12), class = 'ts'));floor(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinfloor_testfloor9_e3dc151195686912a99ef5cdb618d0bd() {
+ assertEval("argv <- list(logical(0));floor(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinflush_testflush1_62a79a5a829dfd705d4a2fce830b5f61() {
+ assertEval("argv <- list(structure(1L, class = c('terminal', 'connection'))); .Internal(flush(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinflush_testflush2_da52d0b7accd547c69fae6d1a7d265e2() {
+ assertEval("argv <- list(structure(2L, class = c('terminal', 'connection'))); .Internal(flush(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformals_testformals1_414d0aa292b8fe651fd894cc27d91a2a() {
+ assertEval("argv <- list(.Primitive('length<-')); .Internal(formals(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformals_testformals2_8a64ee0c4211f679fdf6007427609b58() {
+ assertEval("argv <- list(logical(0)); .Internal(formals(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformals_testformals3_6ccf46eb1cfc68ddb502cbc6507ddbd1() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(formals(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformals_testformals4_fb0e228a262455d61c48088dda3fa8a3() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame')); .Internal(formals(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat1_a6c317e3ccc98d283572f1fc7c06f4db() {
+ assertEval("argv <- list(structure(c(0, 72.7, 56.4, 72.7, 0, 63.3, 56.4, 63.3, 0), .Dim = c(3L, 3L), .Dimnames = list(c('Girth', 'Height', 'Volume'), c('Girth', 'Height', 'Volume'))), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat11_66856e3cd12ec5a5a3141bc567dd660a() {
+ assertEval("argv <- list(structure(c(1L, 2L, 1L), .Dim = 3L, .Dimnames = structure(list(c('1', '2', NA)), .Names = '')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat12_34233dd4aa9e3cc90ae4208b0dd61975() {
+ assertEval("argv <- list(c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat14_4f62576bac9db986d57e08b6dee333b3() {
+ assertEval("argv <- list(structure(c(NA, 1, 1, 1), .Names = c('<none>', '- x4', '- x2', '- x1')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat15_8dc93a27f7955ed280c983fb98764a4f() {
+ assertEval("argv <- list(2.22044604925031e-16, FALSE, 1, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat17_7006548c9195832e9fc9b74506ebaab4() {
+ assertEval("argv <- list(c(2.3e-05, 4.5e-06), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat2_2379abf58df1090ec0ae2cf27bf4007d() {
+ assertEval("argv <- list('\\ab\\c', FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat20_99f36a1aec1fb60cf061c0bf64134fa1() {
+ assertEval("argv <- list(c('abc', NA, 'def'), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat23_02f91866c8ca2d894b4c94302ce7c0a1() {
+ assertEval("argv <- list(c(NA, 2L, 4L, 7L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat24_2edaeb1fc36007ae10c643e105f90fc7() {
+ assertEval("argv <- list(c(1.1+0i, NA, 3+0i), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat25_9dfce0e9dc2b41e8d9f4e713f5c6911d() {
+ assertEval("argv <- list(c(' 9 ', ' 13 ', ' 13+', ' 18 ', ' 23 ', ' 28+', ' 31 ', ' 34 ', ' 45+', ' 48 '), TRUE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat27_1cc79e9dc7f5f26a2892efc843d3453c() {
+ assertEval("argv <- list(structure(c(142L, 104L, 71L, 250L), .Dim = 4L, .Dimnames = structure(list(c('(1) Approve STRONGLY', '(2) Approve SOMEWHAT', '(3) Disapprove SOMEWHAT', '(4) Disapprove STRONGLY')), .Names = '')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat28_461389e9acea0b8a68568773e9048049() {
+ assertEval("argv <- list(structure(c('***', '*', ' ', ' ', ' '), legend = '0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1', class = 'noquote'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat29_9452d2b344aba593e81f244ee327e204() {
+ assertEval("argv <- list(structure(c(0, 5, 118, 57, 0, 1, 4, 140, 0, 11, 154, 14, 0, 13, 13, 80, 35, 13, 387, 75, 17, 14, 89, 76, 0, 0, 670, 192, 0, 0, 3, 20), .Dim = c(1L, 32L), row.vars = structure(list(), .Names = character(0)), col.vars = structure(list(Class = c('1st', '2nd', '3rd', 'Crew'), Sex = c('Male', 'Female'), Age = c('Child', 'Adult'), Survived = c('No', 'Yes')), .Names = c('Class', 'Sex', 'Age', 'Survived'))), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat3_99a2a6623dbee8b0d0b4ae8ba99d4aca() {
+ assertEval("argv <- list(c('Inf', '-Inf', 'NaN', 'NA'), FALSE, NULL, 0L, 4, 1L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat30_e0591066d60f824cbf2c2a251e884b36() {
+ assertEval("argv <- list(c('', '', '\'Adult\'', '\'No\'', '', '387'), FALSE, NULL, 0L, NULL, 1L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat31_e679c52ca84336f14651365b9e8b0ecf() {
+ assertEval("argv <- list(2.2250738585072e-308, TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat32_564f3f0835c39663b9863ed7cecdd68f() {
+ assertEval("argv <- list(c(-0.318309886183791+0i, 0-0.564189583547756i, 1+0i, 0+1.77245385090552i, -3.14159265358979+0i), TRUE, 2, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat33_a51c14c289f8d5aba09e63def94da3db() {
+ assertEval("argv <- list(0+1i, TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat34_a3f66c5a92c04bf290549711f083c8b0() {
+ assertEval("argv <- list(structure(c(-Inf, -Inf, -2.248e+263, -Inf, -3.777e+116, -1), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat37_16d5c15cfad16e060ba5e6dad2ba14b4() {
+ assertEval("argv <- list(structure(c(213198964, 652424.52183908), .Names = c('null.deviance', 'deviance')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat38_738c71770669352f00cac777676b9c79() {
+ assertEval("argv <- list(structure(integer(0), .Dim = c(1L, 0L), row.vars = structure(list(), .Names = character(0)), col.vars = structure(list(df0 = NULL), .Names = 'df0')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat4_acdd5e79e5a4aa0b40e0b9ba902f8854() {
+ assertEval("argv <- list(structure(c('axx', 'b', 'c', 'd', 'e', 'f', 'g', 'h'), .Dim = c(2L, 4L)), FALSE, NULL, 0L, NULL, 1L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat40_441455babedf9f5c230fbad6f959658b() {
+ assertEval("argv <- list(1e-07, TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat42_cd88964f0ad50b515c252a3b9cbf9858() {
+ assertEval("argv <- list(c(2.5, 97.5), TRUE, 3, 0L, NULL, 3L, TRUE, FALSE); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat43_14c58c1e783fcf23dc375364b7800428() {
+ assertEval("argv <- list(structure(c(9.4, 10.2, 9.2, 4.4, 3.5, 2.7), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('Estimate', 'Std.Err'))), FALSE, 2, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat46_4e6148de5c1f2f3182f9d30560610a34() {
+ assertEval("argv <- list(1.2e+07, FALSE, NULL, 9L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat47_f701b122cac00dd351c59fea448dd861() {
+ assertEval("argv <- list(-0.01234+3.14159265358979i, FALSE, NULL, 14L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat49_e5b8308012067f5e6258700142a2f70f() {
+ assertEval("argv <- list(3.141, FALSE, NULL, 13L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat51_824eb64b80a9cd5f4c92000f270e70e2() {
+ assertEval("argv <- list(structure(c(2, NA), .Names = c('N:P:K', 'Residuals')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat52_cbf311f0ce8ecdf66494d5f807da3d23() {
+ assertEval("argv <- list(structure('def\'gh', class = 'AsIs'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat53_c357713a88a6ac7b1ec719afd9459389() {
+ assertEval("argv <- list(structure(4:9, .Dim = c(3L, 2L), .Dimnames = list(NULL, c('a', 'b'))), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat54_7687d00d72c2971e729b6ebe0f39bfb7() {
+ assertEval("argv <- list(c(NA, NA, NA, NA, NA, 'Ripley', 'Venables & Smith'), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat55_5aa9cd93366d2ef32c58e7447d7fc8ea() {
+ assertEval("argv <- list(1e-11, FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat6_231ca0602afea092e4fe9c9dac9c4150() {
+ assertEval("argv <- list(structure(c(47.97, 57.9, 74.76, 868.88), .Names = c('<none>', '- x4', '- x2', '- x1')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat7_a6d605b0310b67e55c4c0a58ab3f4d3b() {
+ assertEval("argv <- list(c('a', 'NA', NA, 'b'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformat_testformat8_304270986a3de2993a3e66f0cdccaee3() {
+ assertEval("argv <- list(NA_real_, FALSE, 4L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatC_testformatC1_bd7a557060cd5a3ab0f34b0aad496b22() {
+ assertEval("argv <- list(c(3.14159265358979, 3.1415926535898, 1), 'double', 10, 4L, 'g', '', c(12L, 12L, 12L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatC_testformatC10_7e2f803907747c949ea546a5221ff168() {
+ assertEval("argv <- list(c(20, 30, 40, 50, 60, 70, 80, 90, 100), 'double', 1, 7L, 'fg', '', c(15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatC_testformatC11_ccf0cdc249847f056ed1a264c6007359() {
+ assertEval("argv <- list(c(0, 25, 50, 75, 100), 'double', 1, 6L, 'fg', '', c(14L, 13L, 13L, 13L, 13L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatC_testformatC12_9e9819c4a2fb3e09fbad617bd26a77f7() {
+ assertEval("argv <- list(5L, 'integer', 2, 2L, 'd', '', 10L); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatC_testformatC13_03a2dec900d7d715899c39a38a87425f() {
+ assertEval("argv <- list(c(3.14159265358979e-05, 0.000314159265358979, 0.00314159265358979, 0.0314159265358979, 0.314159265358979, 3.14159265358979, 31.4159265358979, 314.159265358979, 3141.59265358979, 31415.9265358979), 'double', 5, 4, 'fg', '', c(15, 14, 13, 12, 11, 10, 9, 9, 9, 9)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatC_testformatC14_21bbac62acd44703aba6b8805e56d60c() {
+ assertEval("argv <- list(structure(c(1962.25, 1962.5, 1962.75, 1963, 1963.25, 1963.5, 1963.75, 1964, 1964.25, 1964.5, 1964.75, 1965, 1965.25, 1965.5, 1965.75, 1966, 1966.25, 1966.5, 1966.75, 1967, 1967.25, 1967.5, 1967.75, 1968, 1968.25, 1968.5, 1968.75, 1969, 1969.25, 1969.5, 1969.75, 1970, 1970.25, 1970.5, 1970.75, 1971, 1971.25, 1971.5, 1971.75), .Tsp = c(1962.25, 1971.75, 4), class = 'ts'), 'double', 1, 4L, 'g', '', c(12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatC_testformatC2_678523811eba4bed56c354e38f6e583a() {
+ assertEval("argv <- list(1, 'double', 8, 5, 'g', '-', 13); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatC_testformatC3_ece303f2ddc7cc7c6df4e68a3feb63b8() {
+ assertEval("argv <- list(structure(c(1.5, 13.3414265412268, 1e-15, 8, 1, 500, 28), .Dim = c(7L, 1L), .Dimnames = list(c('m.ship.expon.', 'objective', 'tolerance', 'iterations', 'converged', 'maxit', 'n'), ' ')), 'double', 8L, 7L, 'g', '', c(15L, 15L, 15L, 15L, 15L, 15L, 15L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatC_testformatC4_4c0260136615fc31af18166e8e089291() {
+ assertEval("argv <- list(c(1000, 1e+07, 1), 'double', 5, 4L, 'g', '', c(12L, 12L, 12L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatC_testformatC5_68e13fb70e755f43ae4bbdeaf7e8d947() {
+ assertEval("argv <- list(c(-3, -2, -1, 0, 1, 2, 3), 'double', 1L, 4L, 'g', '', c(12L, 12L, 12L, 12L, 12L, 12L, 12L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatC_testformatC6_6fa2892fcd8f80bdaf44016d691b096c() {
+ assertEval("argv <- list(3L, 'integer', 3, 2L, 'd', '0', 10L); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatC_testformatC7_ec7629c2ed63f2159f58d6029355d607() {
+ assertEval("argv <- list(c(0, 25, 50, 75, 100), 'double', 1, 7L, 'fg', '', c(16L, 15L, 15L, 15L, 15L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatC_testformatC8_6e81ff5de54c57eeb8f785702db441c6() {
+ assertEval("argv <- list(structure(48.4333681840033, .Names = 'value'), 'double', 5L, 4L, 'g', '', 12L); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatC_testformatC9_fd98253fa4006b6a866a101a837e2996() {
+ assertEval("argv <- list(c(0.0599, 0.00599, 0.000599, 5.99e-05, 5.99e-06, 5.99e-07), 'double', 3, -2, 'fg', '#', c(10, 11, 12, 13, 14, 15)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt1_7cc49787e49d64ce0c328250ee3df4c8() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L), hour = c(0L, 0L, 0L, 0L, 0L), mday = c(1L, 1L, 1L, 1L, 1L), mon = c(0L, 0L, 0L, 0L, 0L), year = 105:109, wday = c(6L, 0L, 1L, 2L, 4L), yday = c(0L, 0L, 0L, 0L, 0L), isdst = c(0L, 0L, 0L, 0L, 0L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC'), '%Y-%m-%d', FALSE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt2_618d6b93f0d6301c0ac99d428c9613e2() {
+ assertEval("argv <- list(structure(list(sec = 10.7712235450745, min = 48L, hour = 14L, mday = 17L, mon = 2L, year = 114L, wday = 1L, yday = 75L, isdst = 1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')), '%Y-%m-%d', FALSE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt3_8220b474a017ef4be8079adff0ad19f1() {
+ assertEval("argv <- list(structure(list(sec = 59.7693939208984, min = 47L, hour = 18L, mday = 17L, mon = 2L, year = 114L, wday = 1L, yday = 75L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'), '%Y-%m-%d %H:%M:%S', TRUE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt4_a8c206210ddaf4f613af4d98541d8d13() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(20L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 19L, 19L, 19L, 20L, 20L, 20L, 19L, 20L, 19L, 19L, 19L, 20L), mday = c(30L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 30L, 30L, 30L, 30L, 31L, 31L, 31L, 30L, 30L, 30L, 31L, 30L, 31L, 31L, 31L, 30L), mon = c(5L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 5L, 5L, 5L, 5L, 11L, 11L, 11L, 5L, 5L, 5L, 11L, 5L, 11L, 11L, 11L, 5L), year = c(72L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 81L, 82L, 83L, 85L, 87L, 89L, 90L, 92L, 93L, 94L, 95L, 97L, 98L, 105L, 108L, 112L), wday = c(5L, 0L, 1L, 2L, 3L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 0L, 4L, 0L, 1L, 2L, 3L, 4L, 0L, 1L, 4L, 6L, 3L, 6L), yday = c(181L, 365L, 364L, 364L, 364L, 365L, 364L, 364L, 364L, 180L, 180L, 180L, 180L, 364L, 364L, 364L, 181L, 180L, 180L, 364L, 180L, 364L, 364L, 365L, 181L), isdst = c(1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 1L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')), '%Y-%m-%d %H:%M:%S', TRUE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt5_b1f3c5b53e70df36d35f99e0a12b13eb() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 19L, mday = 31L, mon = 11L, year = 69L, wday = 3L, yday = 364L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')), '%Y-%m-%d %H:%M:%S', TRUE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt6_e1345bc5ba72d75ef3c8389d8fe46f93() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L), hour = c(0L, 0L, 0L, 0L, 0L, 0L), mday = 6:11, mon = 0:5, year = -10:-5, wday = c(1L, 6L, 2L, 0L, 4L, 2L), yday = c(5L, 37L, 67L, 98L, 129L, 161L), isdst = c(0L, 0L, 0L, 0L, 0L, 0L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC'), '%Y', FALSE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt7_2376a795a93f62dbddd2e9af32a51ceb() {
+ assertEval("argv <- list(structure(list(sec = c(0, NA, NA, 0), min = c(0L, NA, NA, 0L), hour = c(0L, NA, NA, 0L), mday = c(1L, NA, NA, 26L), mon = c(0L, NA, NA, 9L), year = c(101L, NA, NA, 104L), wday = c(1L, NA, NA, 2L), yday = c(0L, NA, NA, 299L), isdst = c(0L, -1L, -1L, 0L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC'), '%Y-%m-%d', FALSE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt8_75cd49d9918e433136df2406ca59410f() {
+ assertEval("argv <- list(structure(list(sec = 11.3034093379974, min = 37L, hour = 7L, mday = 7L, mon = 11L, year = 113L, wday = 6L, yday = 340L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')), '%H:%M:%OS3', FALSE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatPOSIXlt_testformatPOSIXlt9_513125df94e8f7e95e17d9524967da07() {
+ assertEval("argv <- list(structure(list(sec = numeric(0), min = integer(0), hour = integer(0), mday = integer(0), mon = integer(0), year = integer(0), wday = integer(0), yday = integer(0), isdst = integer(0)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'UTC'), '%Y-%m-%d', TRUE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatinfo_testformatinfo1_b142f7c9c7c086832b3e99225b1af15c() {
+ assertEval("argv <- list(c(0.099999994, 0.2), 7L, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatinfo_testformatinfo10_519a6135aa7ce22f4afbcd865d83853b() {
+ assertEval("argv <- list(structure(c(2, 0, 0, 0, 0, 1, 0, 0, 0, 0, 3, 0, 6, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Names = c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y')), NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatinfo_testformatinfo11_344b2c8629595ce4b6c1507a40fa3d9c() {
+ assertEval("argv <- list(structure(c(-3.14159265358979e-05, 3.14159265358979e-05, -0.000314159265358979, 0.000314159265358979, -0.00314159265358979, 0.00314159265358979, -0.0314159265358979, 0.0314159265358979, -0.314159265358979, 0.314159265358979, -3.14159265358979, 3.14159265358979, -31.4159265358979, 31.4159265358979, -314.159265358979, 314.159265358979, -3141.59265358979, 3141.59265358979, -31415.9265358979, 31415.9265358979, -314159.265358979, 314159.265358979, -1e-05, 1e-05, -1e-04, 1e-04, -0.001, 0.001, -0.01, 0.01, -0.1, 0.1), .Dim = c(2L, 16L)), NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatinfo_testformatinfo12_caced8cffbf9008b9f5dd456065219cb() {
+ assertEval("argv <- list(c(NaN, NA), NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatinfo_testformatinfo2_af31558d035f21b11bccaf076d2fe46a() {
+ assertEval("argv <- list(c(0.099999994, 0.2), 6L, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatinfo_testformatinfo3_7a660d51fdfb66339a935a5ce4255565() {
+ assertEval("argv <- list(c(Inf, -Inf), NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatinfo_testformatinfo4_d06e86184a351c9455b2d0edf9470128() {
+ assertEval("argv <- list(FALSE, NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatinfo_testformatinfo5_39c34bd94eed85a62a7912525f2379e9() {
+ assertEval("argv <- list(3.14159265358979e-10, NULL, 8); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatinfo_testformatinfo6_e1c61760a0e144328bce2c3d8c1e734f() {
+ assertEval("argv <- list(1e+08, NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatinfo_testformatinfo7_b33a6a563f156588908896e0152f8ead() {
+ assertEval("argv <- list(1e+222, NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatinfo_testformatinfo8_1c612fbf884c7c00a586bf1517c3a5e3() {
+ assertEval("argv <- list(31.4159265358979, NULL, 8); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinformatinfo_testformatinfo9_d7a265e3dcfdde1e1a8705246eba6e24() {
+ assertEval("argv <- list(712L, NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuilting_testg1_69fdaadd6caf1b78953c6456e5338881() {
+ assertEval("argv <- list(1);g(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingamma_testgamma1_4473df9bd72c23be2ed976ce0c151278() {
+ assertEval("argv <- list(c(0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1));gamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingamma_testgamma2_3c1e6c332ebaf637fa5a376412ad2e4f() {
+ assertEval("argv <- list(FALSE);gamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingamma_testgamma3_c8855947f731e45b12c1022a76d9fc34() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));gamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingamma_testgamma5_7e0de8863fa730bf16f1a456f762a037() {
+ assertEval("argv <- list(101);gamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingamma_testgamma6_18d2777c36611ccc829aaa07cf7944a7() {
+ assertEval("argv <- list(c(-3.000001, -3, -3, -2.999999, -2.965, -2.93, -2.895, -2.86, -2.825, -2.79, -2.755, -2.72, -2.685, -2.65, -2.615, -2.58, -2.545, -2.51, -2.475, -2.44, -2.405, -2.37, -2.335, -2.3, -2.265, -2.23, -2.195, -2.16, -2.125, -2.09, -2.055, -2.02, -2.000001, -2, -1.999999, -1.985, -1.95, -1.915, -1.88, -1.845, -1.81, -1.775, -1.74, -1.705, -1.67, -1.635, -1.6, -1.565, -1.53, -1.495, -1.46, -1.425, -1.39, -1.355, -1.32, -1.285, -1.25, -1.215, -1.18, -1.145, -1.11, -1.075, -1.04, -1.005, -1.000001, -1, -0.999999, -0.97, -0.935, -0.9, -0.865, -0.83, -0.795, -0.76, -0.725, -0.69, -0.655, -0.62, -0.585, -0.55, -0.515, -0.48, -0.445, -0.41, -0.375, -0.34, -0.305, -0.27, -0.235, -0.2, -0.165, -0.13, -0.0949999999999998, -0.0599999999999996, -0.0249999999999999, -1e-06, 0, 1e-06, 0.0100000000000002, 0.0450000000000004, 0.0800000000000001, 0.115, 0.15, 0.185, 0.22, 0.255, 0.29, 0.325, 0.36, 0.395, 0.43, 0.465, 0.5, 0.535, 0.57, 0.605, 0.640000000000001, 0.675, 0.71, 0.745000000000001, 0.78, 0.815, 0.850000000000001, 0.885, 0.92, 0.955000000000001, 0.99, 1.025, 1.06, 1.095, 1.13, 1.165, 1.2, 1.235, 1.27, 1.305, 1.34, 1.375, 1.41, 1.445, 1.48, 1.515, 1.55, 1.585, 1.62, 1.655, 1.69, 1.725, 1.76, 1.795, 1.83, 1.865, 1.9, 1.935, 1.97, 2.005, 2.04, 2.075, 2.11, 2.145, 2.18, 2.215, 2.25, 2.285, 2.32, 2.355, 2.39, 2.425, 2.46, 2.495, 2.53, 2.565, 2.6, 2.635, 2.67, 2.705, 2.74, 2.775, 2.81, 2.845, 2.88, 2.915, 2.95, 2.985, 3.02, 3.055, 3.09, 3.125, 3.16, 3.195, 3.23, 3.265, 3.3, 3.335, 3.37, 3.405, 3.44, 3.475, 3.51, 3.545, 3.58, 3.615, 3.65, 3.685, 3.72, 3.755, 3.79, 3.825, 3.86, 3.895, 3.93, 3.965, 4));gamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingcinfo_testgcinfo1_b2679704d2e2bea4b77293ecd030ef48() {
+ assertEval("argv <- list(list()); .Internal(gcinfo(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingcinfo_testgcinfo2_0779a52aeb463f411790aaa4a825b3fd() {
+ assertEval("argv <- list(FALSE); .Internal(gcinfo(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingctorture2_testgctorture21_e3e9375b04b511497bc2ab9a8841f2a4() {
+ assertEval("argv <- list(NULL, NULL, FALSE); .Internal(gctorture2(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingctorture2_testgctorture22_6c6266118bdd19a452f184283188d78b() {
+ assertEval("argv <- list(FALSE, FALSE, FALSE); .Internal(gctorture2(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingetConnection_testgetConnection1_dd59c6908024de836332c3e6bf9f05d0() {
+ assertEval("argv <- list(FALSE); .Internal(getConnection(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingetRestart_testgetRestart1_05c269c4e9ce65babe2285b34e6070b2() {
+ assertEval("argv <- list(2L); .Internal(.getRestart(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingetRestart_testgetRestart2_5a1b43cdb8efed31809e39583630da8b() {
+ assertEval("argv <- list(1L); .Internal(.getRestart(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingetSymbolInfo_testgetSymbolInfo1_bf8e2ec15e02b34e7cd84158ebb69d15() {
+ assertEval("argv <- list('FALSE', '', FALSE); .Internal(getSymbolInfo(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingetconst_testgetconst1_1c8d7b8f47e3a5d04dc34b03e40855ba() {
+ assertEval("argv <- list(list(list(), NULL), 1); .Internal(getconst(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingetconst_testgetconst2_1887a2463f5a964af3e11d158b66282c() {
+ assertEval("argv <- list(list(FALSE), 1); .Internal(getconst(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingettext_testgettext3_75727c605d955fb5d3bc5b8d3a34e9d4() {
+ assertEval("argv <- list(NULL, 'The following object is masked from ‘package:base’:\n\n det\n'); .Internal(gettext(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingettext_testgettext6_c0981cbb8176433c2aacfa88540062b1() {
+ assertEval("argv <- list(NULL, NULL); .Internal(gettext(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingregexpr_testgregexpr1_8ebb964270131521a289c8b842b3fcba() {
+ assertEval("argv <- list('', 'abc', FALSE, FALSE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingregexpr_testgregexpr10_79a4a279cb790d9b8986dd8c9ae87ed3() {
+ assertEval("argv <- list('(?<first>[[:upper:]][[:lower:]]+) (?<last>[[:upper:]][[:lower:]]+)', c(' Ben Franklin and Jefferson Davis', '\tMillard Fillmore'), FALSE, TRUE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingregexpr_testgregexpr11_e7b8ea8fe8346e4d530edf2d4a4e7c6d() {
+ assertEval("argv <- list('?', 'utils::data', FALSE, FALSE, TRUE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingregexpr_testgregexpr12_53bc669706df0f168f4787b0d37c4bed() {
+ assertEval("argv <- list('[[', 'utils:::.show_help_on_topic_', FALSE, FALSE, TRUE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingregexpr_testgregexpr2_540b5d24bf3cbb6c069e64f2f1366e6c() {
+ assertEval("argv <- list('[^\\.\\w:?$@[\\]]+', 'version$m', FALSE, TRUE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingregexpr_testgregexpr3_3d5ebc42c16e2fd7abdb096d6054ef5c() {
+ assertEval("argv <- list('$', 'version$m', FALSE, FALSE, TRUE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingregexpr_testgregexpr4_1a125740d7a3da09fcf8564bdfabefba() {
+ assertEval("argv <- list('éè', '«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè', FALSE, FALSE, TRUE, TRUE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingregexpr_testgregexpr5_f764145d181601e386edf4bf100ea063() {
+ assertEval("argv <- list('', 'abc', FALSE, TRUE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingregexpr_testgregexpr6_c0be4735e63ad80413f96c0e2efba3e4() {
+ assertEval("argv <- list('', 'abc', FALSE, FALSE, TRUE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingregexpr_testgregexpr7_d7b33db339b072daf4ce027a0e0b256a() {
+ assertEval("argv <- list('éè', '«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè', TRUE, FALSE, FALSE, TRUE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingregexpr_testgregexpr9_6a65e3564db15d010d2c8992d7905509() {
+ assertEval("argv <- list('\\[[^]]*\\]', 'FALSE', FALSE, FALSE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingrep_testgrep1_70629a9cc66605e0c03e43e58b2c5ddf() {
+ assertEval("argv <- list('|', 'wool', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingrep_testgrep10_bf80b8be3e8617de496a7c73791f704d() {
+ assertEval("argv <- list('-package$', structure(c('bkde', 'bkde2D', 'bkfe', 'dpih', 'dpik', 'dpill', 'locpoly'), .Names = c('/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/bkde.tex', '/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/bkde2D.tex', '/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/bkfe.tex', '/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/dpih.tex', '/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/dpik.tex', '/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/dpill.tex', '/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/locpoly.tex')), FALSE, FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingrep_testgrep11_773cfe620d510a73eb654257fbd221e1() {
+ assertEval("argv <- list('.__T__unname:', c('.__T__!:base', '.__T__%%:base', '.__T__%*%:base', '.__T__%/%:base', '.__T__&:base', '.__T__*:base', '.__T__+:base', '.__T__-:base', '.__T__/:base', '.__T__Arith:base', '.__T__BunchKaufman:Matrix', '.__T__Cholesky:Matrix', '.__T__Compare:methods', '.__T__Logic:base', '.__T__Math2:methods', '.__T__Math:base', '.__T__Ops:base', '.__T__Schur:Matrix', '.__T__Summary:base', '.__T__[:base', '.__T__[<-:base', '.__T__^:base', '.__T__all.equal:base', '.__T__all:base', '.__T__any:base', '.__T__as.array:base', '.__T__as.integer:base', '.__T__as.logical:base', '.__T__as.matrix:base', '.__T__as.numeric:base', '.__T__as.vector:base', '.__T__band:Matrix', '.__T__cbind2:methods', '.__T__chol2inv:base', '.__T__chol:base', '.__T__coerce:methods', '.__T__coerce<-:methods', '.__T__colMeans:base', '.__T__colSums:base', '.__T__cov2cor:stats', '.__T__crossprod:base', '.__T__determinant:base', '.__T__diag:base', '.__T__diag<-:base', '.__T__diff:base', '.__T__dim:base', '.__T__dim<-:base', '.__T__dimnames:base', '.__T__dimnames<-:base', '.__T__drop:base', '.__T__expand:Matrix', '.__T__expm:Matrix', '.__T__facmul:Matrix', '.__T__forceSymmetric:Matrix', '.__T__format:base', '.__T__head:utils', '.__T__image:graphics', '.__T__initialize:methods', '.__T__is.finite:base', '.__T__is.infinite:base', '.__T__is.na:base', '.__T__isDiagonal:Matrix', '.__T__isSymmetric:base', '.__T__isTriangular:Matrix', '.__T__kronecker:base', '.__T__length:base', '.__T__lu:Matrix', '.__T__mean:base', '.__T__nnzero:Matrix', '.__T__norm:base', '.__T__pack:Matrix', '.__T__print:base', '.__T__prod:base', '.__T__qr.Q:base', '.__T__qr.R:base', '.__T__qr.coef:base', '.__T__qr.fitted:base', '.__T__qr.qty:base', '.__T__qr.qy:base', '.__T__qr.resid:base', '.__T__qr:base', '.__T__rbind2:methods', '.__T__rcond:base', '.__T__rep:base', '.__T__rowMeans:base', '.__T__rowSums:base', '.__T__show:methods', '.__T__skewpart:Matrix', '.__T__solve:base', '.__T__sum:base', '.__T__summary:base', '.__T__symmpart:Matrix', '.__T__t:base', '.__T__tail:utils', '.__T__tcrossprod:base', '.__T__toeplitz:stats', '.__T__tril:Matrix', '.__T__triu:Matrix', '.__T__unname:base', '.__T__unpack:Matrix', '.__T__update:stats', '.__T__updown:Matrix', '.__T__which:base', '.__T__writeMM:Matrix', '.__T__zapsmall:base'), FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingrep_testgrep2_7ff292414afc18691db76a418ba76343() {
+ assertEval("argv <- list('éè', '«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè', TRUE, FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingrep_testgrep3_a6fd4a3dee9bae2217251a0e9b9a92f4() {
+ assertEval("argv <- list('[', '^\\.__[MT]', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingrep_testgrep4_877851792c5d826188329cdf348f1d35() {
+ assertEval("argv <- list('éè', '«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingrep_testgrep5_7f275b6cc2bfc209871dbebe0e4690b2() {
+ assertEval("argv <- list('[', '^[[:alpha:]]+', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingrep_testgrep6_31adf2c86a8c87cbe4fb4e7d7a36ce7e() {
+ assertEval("argv <- list('.__T__[:', c('.__T__plot:graphics', '.__T__$:base', '.__T__$<-:base', '.__T__Arith:base', '.__T__Compare:methods', '.__T__Complex:base', '.__T__Logic:base', '.__T__Math2:methods', '.__T__Math:base', '.__T__Ops:base', '.__T__Summary:base', '.__T__[:base', '.__T__addNextMethod:methods', '.__T__body<-:base', '.__T__cbind2:methods', '.__T__coerce:methods', '.__T__coerce<-:methods', '.__T__initialize:methods', '.__T__kronecker:base', '.__T__loadMethod:methods', '.__T__rbind2:methods', '.__T__show:methods', '.__T__slotsFromS3:methods'), FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingrep_testgrep7_50dd34ac32afe0b8905f9f6eb5352e40() {
+ assertEval("argv <- list(''', structure('exNSS4_1.0.tar.gz', .Names = ''), FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingrepl_testgrepl10_2677a335c1dd0d73e25673e66cadcefa() {
+ assertEval("argv <- list('{refObject}', c('\\section{Extends}{', 'Class \\code{\'\\linkS4class{refClassA}\'}, directly.', 'Class \\code{\'\\linkS4class{envRefClass}\'}, by class \'refClassA\', distance 2.', 'Class \\code{\'\\linkS4class{.environment}\'}, by class \'refClassA\', distance 3.', 'Class \\code{\'\\linkS4class{refClass}\'}, by class \'refClassA\', distance 3.', 'Class \\code{\'\\linkS4class{environment}\'}, by class \'refClassA\', distance 4, with explicit coerce.', 'Class \\code{\'\\linkS4class{refObject}\'}, by class \'refClassA\', distance 4.', '}'), FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingrepl_testgrepl3_739ee281866def5d2420234dc276ae13() {
+ assertEval("argv <- list('\n', structure('c(person(\'José\', \'Pinheiro\', role = \'aut\',\n comment = \'S version\'),\n person(\'Douglas\', \'Bates\', role = \'aut\',\n comment = \'up to 2007\'),\n person(\'Saikat\', \'DebRoy\', role = \'ctb\',\n comment = \'up to 2002\'),\n person(\'Deepayan\', \'Sarkar\', role = \'ctb\',\n comment = \'up to 2005\'),\n\t person(\'R-core\', email = \'R-core@R-project.org\',\n role = c(\'aut\', \'cre\')),\n person(\'EISPACK authors\', role = \'ctb\'))', .Names = 'Authors@R'), FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingrepl_testgrepl5_f56f17e876235e379635150100dc7984() {
+ assertEval("argv <- list('\n', c('### Encoding: UTF-8', '', '### Name: text', '### Title: Add Text to a Plot', '### Aliases: text text.default', '### Keywords: aplot', '', '### ** Examples', '', 'plot(-1:1, -1:1, type = \'n\', xlab = \'Re\', ylab = \'Im\')', 'K <- 16; text(exp(1i * 2 * pi * (1:K) / K), col = 2)', '', '## The following two examples use latin1 characters: these may not', '## appear correctly (or be omitted entirely).', 'plot(1:10, 1:10, main = \'text(...) examples\\n~~~~~~~~~~~~~~\',', ' sub = \'R is GNU ©, but not ® ...\')', 'mtext(\'«Latin-1 accented chars»: éè øØ å<Å æ<Æ\', side = 3)', 'points(c(6,2), c(2,1), pch = 3, cex = 4, col = \'red\')', 'text(6, 2, \'the text is CENTERED around (x,y) = (6,2) by default\',', ' cex = .8)', 'text(2, 1, \'or Left/Bottom - JUSTIFIED at (2,1) by 'adj = c(0,0)'\',', ' adj = c(0,0))', 'text(4, 9, expression(hat(beta) == (X^t * X)^{-1} * X^t * y))', 'text(4, 8.4, \'expression(hat(beta) == (X^t * X)^{-1} * X^t * y)\',', ' cex = .75)', 'text(4, 7, expression(bar(x) == sum(frac(x[i], n), i==1, n)))', '', '## Two more latin1 examples', 'text(5, 10.2,', ' \'Le français, c'est façile: Règles, Liberté, Egalité, Fraternité...\')', 'text(5, 9.8,', ' \'Jetz no chli züritüütsch: (noch ein bißchen Zürcher deutsch)\')', '', '', ''), FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingrepl_testgrepl6_504d34d923143716a28efe7a26ca53a0() {
+ assertEval("argv <- list('x', 'x', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingrepl_testgrepl7_e07b8a94fb311d6d9f0f627db2941ff4() {
+ assertEval("argv <- list('^[[:space:]]*## No test:', 'Diagonal(3)', FALSE, FALSE, TRUE, FALSE, TRUE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingrepl_testgrepl8_8d05330cbac1d6f43bf41736cc8f9978() {
+ assertEval("argv <- list('\\\\keyword\\{\\s*internal\\s*\\}', c('\\inputencoding{utf8}', '\\HeaderA{condest}{Compute Approximate CONDition number and 1-Norm of (Large) Matrices}{condest}', '\\aliasA{onenormest}{condest}{onenormest}', '%', '\\begin{Description}\\relax', '``Estimate'', i.e. compute approximately the CONDition number of', 'a (potentially large, often sparse) matrix \\code{A}.', 'It works by apply a fast approximation of the 1-norm,', '\\code{norm(A,\'1\')}, through \\code{onenormest(.)}.', '\\end{Description}', '%', '\\begin{Usage}', '\\begin{verbatim}', 'condest(A, t = min(n, 5), normA = norm(A, \'1\'),', ' silent = FALSE, quiet = TRUE)', '', 'onenormest(A, t = min(n, 5), A.x, At.x, n,', ' silent = FALSE, quiet = silent,', ' iter.max = 10, eps = 4 * .Machine$double.eps)', '\\end{verbatim}', '\\end{Usage}', '%', '\\begin{Arguments}', '\\begin{ldescription}', '\\item[\\code{A}] a square matrix, optional for \\code{onenormest()}, where', 'instead of \\code{A}, \\code{A.x} and \\code{At.x} can be specified,', 'see there.', '\\item[\\code{t}] number of columns to use in the iterations.', '\\item[\\code{normA}] number; (an estimate of) the 1-norm of \\code{A}, by', 'default \\code{\\LinkA{norm}{norm}(A, \'1\')}; may be replaced by an estimate.', '\\item[\\code{silent}] logical indicating if warning and (by default)', 'convergence messages should be displayed.', '\\item[\\code{quiet}] logical indicating if convergence messages should be', 'displayed.', '\\item[\\code{A.x, At.x}] when \\code{A} is missing, these two must be given as', 'functions which compute \\code{A \\%\\% x}, or \\code{t(A) \\%\\% x},', 'respectively.', '\\item[\\code{n}] \\code{ == nrow(A)}, only needed when \\code{A} is not specified.', '\\item[\\code{iter.max}] maximal number of iterations for the 1-norm estimator.', '\\item[\\code{eps}] the relaive change that is deemed irrelevant.', '\\end{ldescription}', '\\end{Arguments}', '%', '\\begin{Value}', 'Both functions return a \\code{\\LinkA{list}{list}};', '\\code{onenormest()} with components,', '\\begin{ldescription}', '\\item[\\code{est}] a number \\eqn{> 0}{}, the estimated \\code{norm(A, \'1\')}.', '\\item[\\code{v}] the maximal \\eqn{A X}{} column.', '', '\\end{ldescription}', 'The function \\code{condest()} returns a list with components,', '\\begin{ldescription}', '\\item[\\code{est}] a number \\eqn{> 0}{}, the estimated condition number', '\\eqn{\\hat\\kappa}{}; when \\eqn{r :=}{}\\code{rcond(A)},', '\\eqn{1/\\hat\\kappa \\approx r}{}.', '\\item[\\code{v}] integer vector length \\code{n}, with an \\code{1} at the index', '\\code{j} with maximal column \\code{A[,j]} in \\eqn{A}{}.', '\\item[\\code{w}] numeric vector, the largest \\eqn{A x}{} found.', '\\item[\\code{iter}] the number of iterations used.', '\\end{ldescription}', '\\end{Value}', '%', '\\begin{Author}\\relax', 'This is based on octave's \\code{condest()} and', '\\code{onenormest()} implementations with original author', 'Jason Riedy, U Berkeley; translation to \\R{} and', 'adaption by Martin Maechler.', '\\end{Author}', '%', '\\begin{References}\\relax', '', 'Nicholas J. Higham and Fran\303\247oise Tisseur (2000).', 'A Block Algorithm for Matrix 1-Norm Estimation, with an Application to 1-Norm', 'Pseudospectra.', '\\emph{SIAM J. Matrix Anal. Appl.} \\bold{21}, 4, 1185--1201.', '\\url{http://dx.doi.org/10.1137/S0895479899356080}', '', '', 'William W. Hager (1984).', 'Condition Estimates.', '\\emph{SIAM J. Sci. Stat. Comput.} \\bold{5}, 311--316.', '\\end{References}', '%', '\\begin{SeeAlso}\\relax', '\\code{\\LinkA{norm}{norm}}, \\code{\\LinkA{rcond}{rcond}}.', '\\end{SeeAlso}', '%', '\\begin{Examples}', '\\begin{ExampleCode}', 'data(KNex)', 'mtm <- with(KNex, crossprod(mm))', 'system.time(ce <- condest(mtm))', '## reciprocal', '1 / ce$est', 'system.time(rc <- rcond(mtm)) # takes ca 3 x longer', 'rc', 'all.equal(rc, 1/ce$est) # TRUE -- the approxmation was good', '\\end{ExampleCode}', '\\end{Examples}'), FALSE, FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingrepl_testgrepl9_cf99924a4d09f09fe5a41d99d99367e7() {
+ assertEval("argv <- list('\n', '\nqr(x, ...)\nqrR(qr, complete=FALSE, backPermute=TRUE)\n', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingrowconst_testgrowconst1_2dba37c5effe26a881d42ae71454c753() {
+ assertEval("argv <- list(list(list())); .Internal(growconst(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub10_7529e46e81c5d0bbdbbf668805584e03() {
+ assertEval("argv <- list('a*', 'x', 'baaac', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub11_d31bfededee14fdb6a627695e0f38800() {
+ assertEval("argv <- list('é', 'gh', '«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub13_2ef41fee82759a1d26e6d66fa737e380() {
+ assertEval("argv <- list('\\b', '|', 'The quick brown èé', FALSE, TRUE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub14_7f464b230b39683811a6f51cd43771bc() {
+ assertEval("argv <- list('/home/lzhao/hg/r-instrumented/src/library/utils', '', '/home/lzhao/hg/r-instrumented/src/library/utils/vignettes', FALSE, FALSE, TRUE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub15_a7b6d1115d0187f2fb16378a392a1b1b() {
+ assertEval("argv <- list('(‘|’)', ''', c('', '', '> library(survival)', 'Loading required package: splines', '> options(na.action=na.exclude) # preserve missings', '> options(contrasts=c('contr.treatment', 'contr.poly')) #ensure constrast type', '> ', '> #', '> # Simple tests of concordance. These numbers were derived in multiple', '> # codes.', '> #', '> aeq <- function(x,y, ...) all.equal(as.vector(x), as.vector(y), ...)', '> ', '> grank <- function(x, time, grp, wt) ', '+ unlist(tapply(x, grp, rank))', '> grank2 <- function(x, time, grp, wt) { #for case weights', '+ if (length(wt)==0) wt <- rep(1, length(x))', '+ z <- double(length(x))', '+ for (i in unique(grp)) {', '+ indx <- which(grp==i)', '+ temp <- tapply(wt[indx], x[indx], sum)', '+ temp <- temp/2 + c(0, cumsum(temp)[-length(temp)])', '+ z[indx] <- temp[match(x[indx], names(temp))]', '+ }', '+ z', '+ }', '> ', '> ', '> tdata <- aml[aml$x=='Maintained',]', '> tdata$y <- c(1,6,2,7,3,7,3,8,4,4,5)', '> tdata$wt <- c(1,2,3,2,1,2,3,4,3,2,1)', '> fit <- survConcordance(Surv(time, status) ~y, tdata)', '> aeq(fit$stats[1:4], c(14,24,2,0))', '[1] TRUE', '> cfit <- coxph(Surv(time, status) ~ tt(y), tdata, tt=grank, method='breslow',', '+ iter=0, x=T)', '> cdt <- coxph.detail(cfit)', '> aeq(4*sum(cdt$imat),fit$stats[5]^2) ', '[1] TRUE', '> aeq(2*sum(cdt$score), diff(fit$stats[2:1]))', '[1] TRUE', '> ', '> ', '> # Lots of ties', '> tempx <- Surv(c(1,2,2,2,3,4,4,4,5,2), c(1,0,1,0,1,0,1,1,0,1))', '> tempy <- c(5,5,4,4,3,3,7,6,5,4)', '> fit2 <- survConcordance(tempx ~ tempy)', '> aeq(fit2$stats[1:4], c(13,13,5,2))', '[1] TRUE', '> cfit2 <- coxph(tempx ~ tt(tempy), tt=grank, method='breslow', iter=0)', '> aeq(4/cfit2$var, fit2$stats[5]^2)', '[1] TRUE', '> ', '> # Bigger data', '> fit3 <- survConcordance(Surv(time, status) ~ age, lung)', '> aeq(fit3$stats[1:4], c(10717, 8706, 591, 28))', '[1] TRUE', '> cfit3 <- coxph(Surv(time, status) ~ tt(age), lung, ', '+ iter=0, method='breslow', tt=grank, x=T)', '> cdt <- coxph.detail(cfit3)', '> aeq(4*sum(cdt$imat),fit3$stats[5]^2) ', '[1] TRUE', '> aeq(2*sum(cdt$score), diff(fit3$stats[2:1]))', '[1] TRUE', '> ', '> ', '> # More ties', '> fit4 <- survConcordance(Surv(time, status) ~ ph.ecog, lung)', '> aeq(fit4$stats[1:4], c(8392, 4258, 7137, 28))', '[1] TRUE', '> cfit4 <- coxph(Surv(time, status) ~ tt(ph.ecog), lung, ', '+ iter=0, method='breslow', tt=grank)', '> aeq(4/cfit4$var, fit4$stats[5]^2)', '[1] TRUE', '> ', '> # Case weights', '> fit5 <- survConcordance(Surv(time, status) ~ y, tdata, weight=wt)', '> fit6 <- survConcordance(Surv(time, status) ~y, tdata[rep(1:11,tdata$wt),])', '> aeq(fit5$stats[1:4], c(70, 91, 7, 0)) # checked by hand', '[1] TRUE', '> aeq(fit5$stats[1:3], fit6$stats[1:3]) #spurious \'tied on time\' value, ignore', '[1] TRUE', '> aeq(fit5$std, fit6$std)', '[1] TRUE', '> cfit5 <- coxph(Surv(time, status) ~ tt(y), tdata, weight=wt, ', '+ iter=0, method='breslow', tt=grank2)', '> cfit6 <- coxph(Surv(time, status) ~ tt(y), tdata[rep(1:11,tdata$wt),], ', '+ iter=0, method='breslow', tt=grank)', '> aeq(4/cfit6$var, fit6$stats[5]^2)', '[1] TRUE', '> aeq(cfit5$var, cfit6$var)', '[1] TRUE', '> ', '> # Start, stop simplest cases', '> fit7 <- survConcordance(Surv(rep(0,11), time, status) ~ y, tdata)', '> aeq(fit7$stats, fit$stats)', '[1] TRUE', '> aeq(fit7$std.err, fit$std.err)', '[1] TRUE', '> fit7 <- survConcordance(Surv(rep(0,11), time, status) ~ y, tdata, weight=wt)', '> aeq(fit5$stats, fit7$stats)', '[1] TRUE', '> ', '> # Multiple intervals for some, but same risk sets as tdata', '> tdata2 <- data.frame(time1=c(0,3, 5, 6,7, 0, 4,17, 7, 0,16, 2, 0, ', '+ 0,9, 5),', '+ time2=c(3,9, 13, 7,13, 18, 17,23, 28, 16,31, 34, 45, ', '+ 9,48, 60),', '+ status=c(0,1, 1, 0,0, 1, 0,1, 0, 0,1, 1, 0, 0,1, 0),', '+ y = c(1,1, 6, 2,2, 7, 3,3, 7, 3,3, 8, 4, 4,4, 5),', '+ wt= c(1,1, 2, 3,3, 2, 1,1, 2, 3,3, 4, 3, 2,2, 1))', '> fit8 <- survConcordance(Surv(time1, time2, status) ~y, tdata2, weight=wt)', '> aeq(fit5$stats, fit8$stats)', '[1] TRUE', '> aeq(fit5$std.err, fit8$std.err)', '[1] TRUE', '> cfit8 <- coxph(Surv(time1, time2, status) ~ tt(y), tdata2, weight=wt, ', '+ iter=0, method='breslow', tt=grank2)', '> aeq(4/cfit8$var, fit8$stats[5]^2)', '[1] TRUE', '> aeq(fit8$stats[5]/(2*sum(fit8$stats[1:3])), fit8$std.err)', '[1] TRUE', '> ', '> # Stratified', '> tdata3 <- data.frame(time1=c(tdata2$time1, rep(0, nrow(lung))),', '+ time2=c(tdata2$time2, lung$time),', '+ status = c(tdata2$status, lung$status -1),', '+ x = c(tdata2$y, lung$ph.ecog),', '+ wt= c(tdata2$wt, rep(1, nrow(lung))),', '+ grp=rep(1:2, c(nrow(tdata2), nrow(lung))))', '> fit9 <- survConcordance(Surv(time1, time2, status) ~x + strata(grp),', '+ data=tdata3, weight=wt)', '> aeq(fit9$stats[1,], fit5$stats)', '[1] TRUE', '> aeq(fit9$stats[2,], fit4$stats)', '[1] TRUE', '> '), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub16_bd3432a922b4c5d9ebd3d9b1dd495a7a() {
+ assertEval("argv <- list('[[:blank:][:cntrl:]]*', '', structure(' unix\n', Rd_tag = 'TEXT'), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub17_5fd72f4acbaee95f55027cdb7077debc() {
+ assertEval("argv <- list('(\\w)(\\w*)', '\\U\\1\\L\\2', 'a test of capitalizing', FALSE, TRUE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub18_9c9b0986b812fb3350129dc696b4b83e() {
+ assertEval("argv <- list('\\.', '\\\\.', '^*.t??$', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub19_fc1aed630791e65902a1cd16e44925db() {
+ assertEval("argv <- list('(\\w)(\\w*)(\\w)', '\\U\\1\\E\\2\\U\\3', 'useRs may fly into JFK or laGuardia', FALSE, TRUE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub2_db79850a79f3e275e30cca6833d4ede0() {
+ assertEval("argv <- list('\\\\(link|var)\\{([^}]+)\\}', '\\2', structure(' \'Jetz no chli züritüütsch: (noch ein bißchen Zürcher deutsch)\')\n', Rd_tag = 'RCODE'), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub20_b2e54deb11ac9c1dcf5a3c3bc02cc4af() {
+ assertEval("argv <- list('([&$%_#])', '\\\\\\1', structure('with 5% of the range added to each end.\n', Rd_tag = 'TEXT'), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub21_a511599b9b3dc6f4d585b3df77380d4d() {
+ assertEval("argv <- list('[[:space:]]*%+[[:space:]]*\\\\VignetteEngine\\{([^}]*)\\}', '\\1', character(0), FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub22_cdf1d39e99834f76f846857b1962a249() {
+ assertEval("argv <- list('^\\s+', '', ' utilities ', FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub23_24c7f4280cb9e17296b2900efe3abeca() {
+ assertEval("argv <- list('([^\\])\\[', '\\1\\\\[', '^.*[.*$', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub24_6e8e97bf9ed8d22ed9bb4a5f63a698da() {
+ assertEval("argv <- list('.__M__(.*):([^:]+)', '\\1', character(0), FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub25_c84090e7745ac39bf6a65962c24e3105() {
+ assertEval("argv <- list('%', '\\\\%', structure('foo', .Names = 'object'), FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub26_b4fd1906517c4fff92985b92ef148397() {
+ assertEval("argv <- list('\\\\(l|)dots', '...', structure('plot(1:10, 1:10, main = \'text(...) examples\\n~~~~~~~~~~~~~~\',\n', Rd_tag = 'RCODE'), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub27_e88d227fdaa3393ab66a96eb72310524() {
+ assertEval("argv <- list('.__T__(.*):([^:]+(.*))', '\\2', c('.__T__!:base', '.__T__%%:base', '.__T__%*%:base', '.__T__%/%:base', '.__T__&:base', '.__T__*:base', '.__T__+:base', '.__T__-:base', '.__T__/:base', '.__T__Arith:base', '.__T__BunchKaufman:Matrix', '.__T__Cholesky:Matrix', '.__T__Compare:methods', '.__T__Logic:base', '.__T__Math2:methods', '.__T__Math:base', '.__T__Ops:base', '.__T__Schur:Matrix', '.__T__Summary:base', '.__T__[:base', '.__T__[<-:base', '.__T__^:base', '.__T__all.equal:base', '.__T__all:base', '.__T__any:base', '.__T__as.array:base', '.__T__as.integer:base', '.__T__as.logical:base', '.__T__as.matrix:base', '.__T__as.numeric:base', '.__T__as.vector:base', '.__T__band:Matrix', '.__T__cbind2:methods', '.__T__chol2inv:base', '.__T__chol:base', '.__T__coerce:methods', '.__T__coerce<-:methods', '.__T__colMeans:base', '.__T__colSums:base', '.__T__cov2cor:stats', '.__T__crossprod:base', '.__T__determinant:base', '.__T__diag:base', '.__T__diag<-:base', '.__T__diff:base', '.__T__dim:base', '.__T__dim<-:base', '.__T__dimnames:base', '.__T__dimnames<-:base', '.__T__drop:base', '.__T__expand:Matrix', '.__T__expm:Matrix', '.__T__facmul:Matrix', '.__T__forceSymmetric:Matrix', '.__T__format:base', '.__T__head:utils', '.__T__image:graphics', '.__T__initialize:methods', '.__T__is.finite:base', '.__T__is.infinite:base', '.__T__is.na:base', '.__T__isDiagonal:Matrix', '.__T__isSymmetric:base', '.__T__isTriangular:Matrix', '.__T__kronecker:base', '.__T__length:base', '.__T__lu:Matrix', '.__T__mean:base', '.__T__nnzero:Matrix', '.__T__norm:base', '.__T__pack:Matrix', '.__T__print:base', '.__T__prod:base', '.__T__qr.Q:base', '.__T__qr.R:base', '.__T__qr.coef:base', '.__T__qr.fitted:base', '.__T__qr.qty:base', '.__T__qr.qy:base', '.__T__qr.resid:base', '.__T__qr:base', '.__T__rbind2:methods', '.__T__rcond:base', '.__T__rep:base', '.__T__rowMeans:base', '.__T__rowSums:base', '.__T__show:methods', '.__T__skewpart:Matrix', '.__T__solve:base', '.__T__sum:base', '.__T__summary:base', '.__T__symmpart:Matrix', '.__T__t:base', '.__T__tail:utils', '.__T__tcrossprod:base', '.__T__toeplitz:stats', '.__T__tril:Matrix', '.__T__triu:Matrix', '.__T__unname:base', '.__T__unpack:Matrix', '.__T__update:stats', '.__T__updown:Matrix', '.__T__which:base', '.__T__writeMM:Matrix', '.__T__zapsmall:base'), FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub28_082b53f46c6e1bb38540caf17807f627() {
+ assertEval("argv <- list('([^\\])\\(', '\\1\\\\(', '^.*{n.*$', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub3_9fa529d1bacfe64c7757061ea7e7a4c9() {
+ assertEval("argv <- list('\\bsl', '\\bsl{}', structure(' knots).\n', Rd_tag = 'TEXT'), FALSE, FALSE, TRUE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub4_4c1275bfdb19de4085a3a0c362191d1c() {
+ assertEval("argv <- list('\\bsl', '\\bsl{}', structure(' ', Rd_tag = 'TEXT'), FALSE, FALSE, TRUE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub5_2c1ecbf3e09b66f3c4902da755f32f10() {
+ assertEval("argv <- list('([{}$#_])', '\\\\\\1', structure('2013-03-19 13:18:58', .Names = 'Date/Publication'), FALSE, FALSE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub6_e97bd074be3d9178ffea993c6e0a6de8() {
+ assertEval("argv <- list('é', 'gh', '«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè', FALSE, FALSE, TRUE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub7_3f85b62a95e499fb630f66dae3126636() {
+ assertEval("argv <- list('([&$%_#])', '\\\\\\1', structure(', then ', Rd_tag = 'TEXT'), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub8_10009d0364aad477fa28beae10e89bd8() {
+ assertEval("argv <- list(''([^']*)'', '‘\\1’', '‘/home/lzhao/hg/r-instrumented/tests/rpart.Rcheck’', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltingsub_testgsub9_ddc531c33ecf239b007ac0aad1598c9f() {
+ assertEval("argv <- list('\\', '\\bsl', structure('range specified by ', Rd_tag = 'TEXT'), FALSE, FALSE, TRUE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniconv_testiconv1_cc788a1d2b5ae32c2bbc512e71d2014b() {
+ assertEval("argv <- list('Report Information on C Stack Size and Usage', 'UTF-8', '', 'byte', FALSE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniconv_testiconv2_83efbe1df805ba105c39fda056c8d672() {
+ assertEval("argv <- list('façile' , 'latin1', 'ASCII', NA_character_, TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniconv_testiconv3_5d8d294e86f52185db6f47140fd26a89() {
+ assertEval("argv <- list(c('% This file is part of the 'foreign' package for R', '% It is distributed under the GPL version 2 or later', '', '\\name{S3 read functions}', '\\alias{data.restore}', '\\alias{read.S}', '\\title{Read an S3 Binary or data.dump File}', '\\description{', ' Reads binary data files or \\code{data.dump} files that were produced', ' in S version 3.', '}', '\\usage{', ' data.restore(file, print = FALSE, verbose = FALSE, env = .GlobalEnv)', ' read.S(file)', '}', '\\arguments{', ' \\item{file}{the filename of the S-PLUS \\code{data.dump} or binary', ' file.}', ' \\item{print}{whether to print the name of each object as read from the', ' file.}', ' \\item{verbose}{whether to print the name of every subitem within each', ' object.}', ' \\item{env}{environment within which to create the restored object(s).}', '}', '\\value{', ' For \\code{read.S}, an R version of the S3 object.', '', ' For \\code{data.restore}, the name of the file.', '}', '\\details{', ' \\code{read.S} can read the binary files produced in some older', ' versions of S-PLUS on either Windows (versions 3.x, 4.x, 2000) or Unix', ' (version 3.x with 4 byte integers). It automatically detects whether', ' the file was produced on a big- or little-endian machine and adapts', ' itself accordingly.', '', ' \\code{data.restore} can read a similar range of files produced by', ' \\code{data.dump} and for newer versions of S-PLUS, those from', ' \\code{data.dump(....., oldStyle=TRUE)}.', '', ' Not all S3 objects can be handled in the current version. The most', ' frequently encountered exceptions are functions and expressions; you', ' will also have trouble with objects that contain model formulas. In', ' particular, comments will be lost from function bodies, and the', ' argument lists of functions will often be changed.', '}', '\\author{', ' Duncan Murdoch', '}', '\\examples{', '\\dontrun{read.S(file.path(\'_Data\', \'myobj\'))', 'data.restore(\'dumpdata\', print = TRUE)', '}}', '\\keyword{data}', '\\keyword{file}'), '', 'ASCII', NA_character_, TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniconv_testiconv4_ea055c7e95c8deaa7d9d2e060c5ccf8a() {
+ assertEval("argv <- list(c('', 'Compute a Survival Curve for Censored Data'), 'UTF-8', '', 'byte', FALSE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniconv_testiconv5_ee2365cbc2576f192e2ed30552707e1a() {
+ assertEval("argv <- list(character(0), 'latin1', 'ASCII', NA_character_, TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniconv_testiconv6_e13a6b665d6f41270fe5914650017137() {
+ assertEval("argv <- list(list(), 'latin1', 'ASCII', NA_character_, TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniconv_testiconv7_5136fb34863ba18cfa72ee2fa450f451() {
+ assertEval("argv <- list('façile' , 'latin1', 'ASCII', '', TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniconv_testiconv8_60993ad6adafa3101de15be38263cffc() {
+ assertEval("argv <- list(structure('Prediction matrix for soap film smooth', Rd_tag = 'TEXT'), 'UTF-8', 'ASCII', NA_character_, FALSE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniconv_testiconv9_4ddd37a63b4115f8f20cea7195287015() {
+ assertEval("argv <- list(structure(c('Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance', 'Q.1 Opinion of president's job performance'), .Names = c('Q1_MISSING_NONE', 'Q1_MISSING_1', 'Q1_MISSING_2', 'Q1_MISSING_3', 'Q1_MISSING_RANGE', 'Q1_MISSING_LOW', 'Q1_MISSING_HIGH', 'Q1_MISSING_RANGE_1', 'Q1_MISSING_LOW_1', 'Q1_MISSING_HIGH_1')), 'latin1', '', NA_character_, TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinicuSetCollate_testicuSetCollate1_e6b72f4268a1f77ea1f1aa28a891c91f() {
+ assertEval(" .Internal(icuSetCollate())");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinidentical_testidentical11_a7d68a0668694193786ad623fc295df1() {
+ assertEval("argv <- list(NULL, '\\link', TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinidentical_testidentical13_a57349cf39ffef9133cde9aacb3d55ef() {
+ assertEval("argv <- list(NA_complex_, NA_complex_, TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinidentical_testidentical14_64c0a8092307ad9d5a2738803b159969() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 2, 3), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('I', 'a')), foo = 'bar', class = 'matrix'), structure(c(1, 1, 1, 1, 2, 3), .Dim = c(3L, 2L), class = 'matrix', foo = 'bar', .Dimnames = list(NULL, c('I', 'a'))), TRUE, TRUE, FALSE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinidentical_testidentical15_838fbb2684b3da3926a311ed019f4137() {
+ assertEval("argv <- list(structure(list(x = 1L), .Names = 'x', row.names = c(NA, -1L), class = 'data.frame'), structure(list(x = 1L), .Names = 'x', row.names = c(NA, -1L), class = 'data.frame'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinidentical_testidentical16_d75fe7faf37da9b7c9ccf7de042689c7() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L), .Label = c('1', '2'), class = 'factor'), structure(list(f = structure(c(1L, 1L, 1L), .Label = c('1', '2'), class = 'factor'), u = structure(12:14, unit = 'kg', class = 'avector')), .Names = c('f', 'u'), row.names = 2:4, class = 'data.frame'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinidentical_testidentical20_1af12ffb649546231e8f20d7f6b93c6a() {
+ assertEval("argv <- list(NaN, NaN, TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinidentical_testidentical24_67b2fe6dbf438c15ec908556159f926d() {
+ assertEval("argv <- list(list(c('r1', 'r3', 'r4', 'r5', 'r6', 'r7', 'r8', 'r9', 'r10', 'r11', 'r12', 'r13', 'r14', 'r15', 'r16', 'r17', 'r18', 'r19', 'r20', 'r21', 'r22', 'r23', 'r24', 'r25', 'r26', 'r27', 'r28', 'r29', 'r30', 'r31', 'r32', 'r33', 'r34', 'r35', 'r36', 'r37', 'r38', 'r39', 'r40'), c('c1', 'c2', 'c3', 'c4', 'c5', 'c6', 'c7', 'c8', 'c9', 'c10', 'c11', 'c12', 'c13', 'c14', 'c15', 'c16', 'c17', 'c18', 'c19', 'c20')), list(character(0), character(0)), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinidentical_testidentical28_de293a9e5ae455f54063652ce73ddd52() {
+ assertEval("argv <- list(structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c('A', 'B', 'C'), class = 'factor')), .Names = c('x', 'y', 'fac'), row.names = c(NA, -10L), class = 'data.frame'), structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c('A', 'B', 'C'), class = 'factor')), .Names = c('x', 'y', 'fac'), row.names = c(NA, 10L), class = 'data.frame'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinidentical_testidentical32_f812c0ab82842b9131b133ac2fcaedeb() {
+ assertEval("argv <- list(structure(function (x) standardGeneric('cosh', .Primitive('cosh')), generic = structure('cosh', package = 'base'), package = 'base', group = list('Math'), valueClass = character(0), signature = 'x', default = .Primitive('cosh'), skeleton = quote(.Primitive('cosh')(x)), class = structure('standardGeneric', package = 'methods')), FALSE, TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinidentical_testidentical5_a49793f9fcd10d986b6fbda840ab252c() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')), structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinidentical_testidentical6_c5726d2da35d0f9d79c0ca28babc7a3a() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'), structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinidentical_testidentical8_efe4e4741e3c2e339c2f713c30cfe015() {
+ assertEval("argv <- list(structure(list(a = 1), .Names = 'a', .Tsp = c(1, 1, 1), class = 'ts'), structure(list(a = 1), .Names = 'a', .Tsp = c(1, 1, 1), class = 'ts'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltininherits_testinherits12_1f7dbbb7c4fdb734473fe1f498b037a0() {
+ assertEval("argv <- list(quote(y ~ a + b:c + d + e + e:d), 'formula', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltininherits_testinherits22_ef4c22e216fdb8fb9212efaabe0fb202() {
+ assertEval("argv <- list(.Primitive('['), 'try-error', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltininherits_testinherits32_c391f3a754cfff3c7aa64e12633ddfca() {
+ assertEval("argv <- list(quote(breaks ~ (wool + tension) - tension), 'formula', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinintToBits_testintToBits1_8dcf932acd5e3b3ccf1448cb2645ddb7() {
+ assertEval("argv <- list(list()); .Internal(intToBits(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinintToBits_testintToBits2_9ca4884c79d6174b2ebb62f73a8f41ad() {
+ assertEval("argv <- list(NULL); .Internal(intToBits(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinintToUtf8_testintToUtf81_85be9fa767479aa6a70148af54a747bb() {
+ assertEval("argv <- list(NULL, FALSE); .Internal(intToUtf8(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinintToUtf8_testintToUtf82_852fb44f5b58696388588b830de7c7b6() {
+ assertEval("argv <- list(list(), FALSE); .Internal(intToUtf8(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinintToUtf8_testintToUtf83_337738aec4a636878fbe8338a9232e10() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(intToUtf8(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltininvisible_testinvisible10_0ea1a02b76f917729ffb5550cdc79c49() {
+ assertEval("argv <- list(structure(list(surname = structure(1:5, .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(c(1L, 2L, 3L, 3L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor'), title = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = c(NA, -5L), class = 'data.frame'));invisible(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltininvisible_testinvisible13_975c56f76490a5754564443a34069769() {
+ assertEval("argv <- list(structure(function (...) new('test1', ...), className = structure('test1', package = '.GlobalEnv'), package = '.GlobalEnv', class = structure('classGeneratorFunction', package = 'methods')));invisible(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltininvisible_testinvisible16_b7e4cfdbe1ace38051b7aca810a931ae() {
+ assertEval("argv <- list(structure('Error in cor(Z[, FALSE], use = \'pairwise.complete.obs\', method = \'kendall\') : \n 'x' is empty\n', class = 'try-error', condition = structure(list(message = ''x' is empty', call = quote(cor(Z[, FALSE], use = 'pairwise.complete.obs', method = 'kendall'))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))));invisible(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltininvisible_testinvisible2_f2c65f2710fecc128ccf9bc1d312135f() {
+ assertEval("argv <- list(structure('Error in cov(rnorm(10), NULL) : \n supply both 'x' and 'y' or a matrix-like 'x'\n', class = 'try-error', condition = structure(list(message = 'supply both 'x' and 'y' or a matrix-like 'x'', call = quote(cov(rnorm(10), NULL))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))));invisible(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltininvisible_testinvisible21_cec5e2edce17bb8145b060a6eba3bd65() {
+ assertEval("argv <- list(quote(~a + b:c + d + e + e:d));invisible(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltininvisible_testinvisible3_305f44fe65c4ff50c6b1dc176c6c399a() {
+ assertEval("argv <- list(quote(Y ~ X));invisible(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltininvisible_testinvisible32_6bbea709b64ef4974de0248dcc6ad2e0() {
+ assertEval("argv <- list(structure(list(name = 'list', objs = structure(list(`package:base` = .Primitive('list'), .Primitive('list')), .Names = c('package:base', '')), where = c('package:base', 'namespace:base'), visible = c(TRUE, FALSE), dups = c(FALSE, TRUE)), .Names = c('name', 'objs', 'where', 'visible', 'dups'), class = 'getAnywhere'));invisible(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltininvisible_testinvisible5_8f52a048e7a1cec98a3a0b5a0e5cc34e() {
+ assertEval("argv <- list(structure(c('Min. : 1.000 ', '1st Qu.: 9.000 ', 'Median :18.000 ', 'Mean :14.742 ', '3rd Qu.:20.000 ', 'Max. :23.000 ', NA, 'Min. :5.0000 ', '1st Qu.:5.3000 ', 'Median :6.1000 ', 'Mean :6.0841 ', '3rd Qu.:6.6000 ', 'Max. :7.7000 ', NA, 'Min. : 1.000 ', '1st Qu.: 24.250 ', 'Median : 56.500 ', 'Mean : 56.928 ', '3rd Qu.: 86.750 ', 'Max. :117.000 ', 'NA's :16 ', 'Min. : 0.500 ', '1st Qu.: 11.325 ', 'Median : 23.400 ', 'Mean : 45.603 ', '3rd Qu.: 47.550 ', 'Max. :370.000 ', NA, 'Min. :0.00300 ', '1st Qu.:0.04425 ', 'Median :0.11300 ', 'Mean :0.15422 ', '3rd Qu.:0.21925 ', 'Max. :0.81000 ', NA), .Dim = c(7L, 5L), .Dimnames = list(c('', '', '', '', '', '', ''), c(' event', ' mag', ' station', ' dist', ' accel')), class = 'table'));invisible(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltininvisible_testinvisible9_cd7f44c88712d72f69696d5053761563() {
+ assertEval("argv <- list(quote(breaks ~ (wool + tension)^2));invisible(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisNamespaceEnv_testisNamespaceEnv1_1118796780eb467db770c3578d5271c0() {
+ assertEval("argv <- list(FALSE); .Internal(isNamespaceEnv(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisNamespaceEnv_testisNamespaceEnv2_ef0ec9653df3ba8cc68cec0a9ccafe4c() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(isNamespaceEnv(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisNamespaceEnv_testisNamespaceEnv3_2f32d4a6a135fac444e8c9f6d951a185() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame')); .Internal(isNamespaceEnv(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisOpen_testisOpen1_5a795842bfaa3be0d7b7f7c5a95f4edc() {
+ assertEval("argv <- list(structure(2L, class = c('terminal', 'connection')), 0L); .Internal(isOpen(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisOpen_testisOpen3_1fa961444bd5aaedc5e755eec3fe9aa6() {
+ assertEval("argv <- list(FALSE, 2L); .Internal(isOpen(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisS4_testisS41_4907b7a4490b3f1a958ab27c3810a7e5() {
+ assertEval("argv <- list(c('time', 'status'));isS4(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisS4_testisS410_229aadb560bf0ed9f80b0fb684501f90() {
+ assertEval("argv <- list(structure(list(coefficients = structure(c(62.4053692999179, 1.55110264750845, 0.510167579684914, 0.101909403579661, -0.144061029071015), .Names = c('(Intercept)', 'x1', 'x2', 'x3', 'x4')), residuals = structure(c(0.00476041849820263, 1.51120069970905, -1.67093753208295, -1.72710025504269, 0.250755561773019, 3.92544270216433, -1.44866908650026, -3.17498851728652, 1.3783494772083, 0.281547998741553, 1.99098357125943, 0.972989034920119, -2.2943340733616), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13')), effects = structure(c(-344.052796708698, 38.0798677535417, -34.7531619513928, -3.12951579377076, 0.496965514049109, 4.50219669010871, -0.53327716269669, -2.71488989732451, 1.79317596396333, 1.57288365899254, 2.82474425399188, 1.8967418325489, -1.63480882826157), .Names = c('(Intercept)', 'x1', 'x2', 'x3', 'x4', '', '', '', '', '', '', '', '')), rank = 5L, fitted.values = structure(c(78.4952395815018, 72.7887993002909, 105.970937532083, 89.3271002550427, 95.649244438227, 105.274557297836, 104.1486690865, 75.6749885172865, 91.7216505227917, 115.618452001258, 81.8090164287406, 112.32701096508, 111.694334073362), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13')), assign = 0:4, qr = structure(list(qr = structure(c(-3.60555127546399, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, -26.9029595169236, 20.3772120082893, -0.178565892506596, -0.178565892506596, 0.0177318148722558, -0.178565892506596, 0.214029522251108, 0.312178375940534, 0.263103949095821, -0.669310160953726, 0.312178375940534, -0.178565892506596, -0.129491465661883, -173.621161418497, 12.3214560939341, -52.4773668110126, -0.304364982610169, 0.171821393780133, 0.152975037639542, 0.609896101816292, -0.114330335930658, 0.304950385474031, -0.189506282456539, 0.0571721716629835, 0.362589213587327, 0.41970434660942, -42.43456501123, -18.2858864335223, -1.11991681104158, -12.5171816310368, -0.405342735734607, 0.108637576500954, 0.150506108798058, 0.497910771855039, 0.197741319088291, 0.429225499683342, 0.557905444893665, 0.0843208353807417, -0.0702259750833564, -108.16653826392, -14.2315837849668, 54.6072781350954, 12.8688326829848, -3.44968738078449, -0.0383654655076831, 0.50336264362848, 0.326250451511037, -0.0404173233188265, 0.0147578414456289, 0.526049642157631, 0.437713824243366, 0.410519010978314), .Dim = c(13L, 5L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13'), c('(Intercept)', 'x1', 'x2', 'x3', 'x4')), assign = 0:4), qraux = c(1.27735009811261, 1.31217837594053, 1.17203087181661, 1.08180209589898, 1.00399408483144), pivot = 1:5, tol = 1e-07, rank = 5L), .Names = c('qr', 'qraux', 'pivot', 'tol', 'rank'), class = 'qr'), df.residual = 8L, xlevels = structure(list(), .Names = character(0)), call = quote(lm(formula = y ~ x1 + x2 + x3 + x4, data = d2)), terms = quote(y ~ x1 + x2 + x3 + x4), model = structure(list(y = c(78.5, 74.3, 104.3, 87.6, 95.9, 109.2, 102.7, 72.5, 93.1, 115.9, 83.8, 113.3, 109.4), x1 = c(7, 1, 11, 11, 7, 11, 3, 1, 2, 21, 1, 11, 10), x2 = c(26, 29, 56, 31, 52, 55, 71, 31, 54, 47, 40, 66, 68), x3 = c(6, 15, 8, 8, 6, 9, 17, 22, 18, 4, 23, 9, 8), x4 = c(60, 52, 20, 47, 33, 22, 6, 44, 22, 26, 34, 12, 12)), .Names = c('y', 'x1', 'x2', 'x3', 'x4'), terms = quote(y ~ x1 + x2 + x3 + x4), row.names = c(NA, 13L), class = 'data.frame'), formula = quote(y ~ x1 + x2 + x3 + x4)), .Names = c('coefficients', 'residuals', 'effects', 'rank', 'fitted.values', 'assign', 'qr', 'df.residual', 'xlevels', 'call', 'terms', 'model', 'formula'), class = 'lm'));isS4(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisS4_testisS411_7bcfc47416f17173466c77fb3260721f() {
+ assertEval("argv <- list(3.14159265358979);isS4(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisS4_testisS412_28509e9d38b33852b4cd80036380c413() {
+ assertEval("argv <- list(structure(1, .Dim = 1L));isS4(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisS4_testisS413_ce949e8b406386f3078929c59d56426d() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c('1', '2', NA), class = 'factor'));isS4(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisS4_testisS414_36040d9253fd152e991de71f4f66d25d() {
+ assertEval("argv <- list(structure(list(usr = c(0.568, 1.432, -1.08, 1.08), xaxp = c(0.6, 1.4, 4), yaxp = c(-1, 1, 4)), .Names = c('usr', 'xaxp', 'yaxp')));isS4(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisS4_testisS415_381af965b65bfc6ebfba9f54181f3203() {
+ assertEval("argv <- list(structure(list(row.names = c('rate', 'additive', 'rate:additive', 'Residuals'), SS = structure(list(rate = structure(c(1.7405, -1.5045, 0.855500000000001, -1.5045, 1.3005, -0.739500000000001, 0.855500000000001, -0.739500000000001, 0.420500000000001), .Dim = c(3L, 3L), .Dimnames = list(c('tear', 'gloss', 'opacity'), c('tear', 'gloss', 'opacity'))), additive = structure(c(0.760499999999999, 0.682499999999998, 1.9305, 0.682499999999998, 0.612499999999998, 1.7325, 1.9305, 1.7325, 4.90050000000001), .Dim = c(3L, 3L), .Dimnames = list(c('tear', 'gloss', 'opacity'), c('tear', 'gloss', 'opacity'))), `rate:additive` = structure(c(0.000500000000000012, 0.0165000000000002, 0.0445000000000006, 0.0165000000000002, 0.5445, 1.4685, 0.0445000000000006, 1.4685, 3.9605), .Dim = c(3L, 3L), .Dimnames = list(c('tear', 'gloss', 'opacity'), c('tear', 'gloss', 'opacity'))), Residuals = structure(c(1.764, 0.0200000000000005, -3.07, 0.0200000000000005, 2.628, -0.551999999999994, -3.07, -0.551999999999994, 64.924), .Dim = c(3L, 3L), .Dimnames = list(c('tear', 'gloss', 'opacity'), c('tear', 'gloss', 'opacity')))), .Names = c('rate', 'additive', 'rate:additive', 'Residuals')), Eigenvalues = structure(c(1.61877188028067, 0.911918322770912, 0.286826136427727, -8.75998844614162e-17, -6.73817551294033e-18, 8.58370095630716e-18, 1.36263996836868e-17, -6.73817551294033e-18, -2.24871081520413e-19), .Dim = c(3L, 3L), .Dimnames = list(c('rate', 'additive', 'rate:additive'), NULL)), stats = structure(c(1, 1, 1, 16, 0.618141615338857, 0.476965104581081, 0.222894242126575, NA, 7.55426877464313, 4.25561883959759, 1.33852196999606, NA, 3, 3, 3, NA, 14, 14, 14, NA, 0.00303404516026092, 0.0247452809990207, 0.301781645099671, NA), .Dim = c(4L, 6L), .Dimnames = list(c('rate', 'additive', 'rate:additive', 'Residuals'), c('Df', 'Pillai', 'approx F', 'num Df', 'den Df', 'Pr(>F)')))), .Names = c('row.names', 'SS', 'Eigenvalues', 'stats'), class = 'summary.manova'));isS4(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisS4_testisS416_5ed692d682105e7526f4932f68448923() {
+ assertEval("argv <- list(4.94065645841247e-324);isS4(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisS4_testisS417_eb07cb6703e420cc46d139bac4ea1a99() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'));isS4(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisS4_testisS42_89311a46b53222efcd83e2a3fb7442b8() {
+ assertEval("argv <- list(structure(1:10, .Tsp = c(1959.25, 1961.5, 4), class = 'ts'));isS4(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisS4_testisS43_0243b655aa32aad303463319d8c2b35e() {
+ assertEval("argv <- list(1.79769313486232e+308);isS4(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisS4_testisS44_19684e71a196f8905d1d69c0e80fb057() {
+ assertEval("argv <- list(structure(c('a1', NA, NA, 'a4'), class = 'AsIs'));isS4(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisS4_testisS45_6b63f0ec318201753dea78cbcaf045b8() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 2L, 2L), Deviance = c(NA, 5.45230478674972, 2.66453525910038e-15), `Resid. Df` = c(8L, 6L, 4L), `Resid. Dev` = c(10.5814458637509, 5.12914107700115, 5.12914107700115)), .Names = c('Df', 'Deviance', 'Resid. Df', 'Resid. Dev'), row.names = c('NULL', 'outcome', 'treatment'), class = c('anova', 'data.frame'), heading = 'Analysis of Deviance Table\n\nModel: poisson, link: log\n\nResponse: counts\n\nTerms added sequentially (first to last)\n\n'));isS4(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisS4_testisS46_82ec71b947496974e016ebf683a05418() {
+ assertEval("argv <- list(structure(list(f = structure(c(1L, 1L, 1L), .Label = c('1', '2'), class = 'factor'), u = structure(12:14, unit = 'kg', class = 'avector')), .Names = c('f', 'u'), row.names = 2:4, class = 'data.frame'));isS4(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisS4_testisS47_84787b337c26b3938c46f7e6d5a9ee4f() {
+ assertEval("argv <- list(structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)));isS4(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisS4_testisS48_d5c3338735fe723136d03cec064a48d4() {
+ assertEval("argv <- list(structure(list(a = c(1L, 2L, 3L, NA), b = c(NA, 3.14159265358979, 3.14159265358979, 3.14159265358979), c = c(TRUE, NA, FALSE, TRUE), d = structure(c(1L, 2L, NA, 3L), .Label = c('aa', 'bb', 'dd'), class = 'factor'), e = structure(c(1L, NA, NA, 2L), .Label = c('a1', 'a4'), class = 'factor'), f = structure(c(11323, NA, NA, 12717), class = 'Date')), .Names = c('a', 'b', 'c', 'd', 'e', 'f'), row.names = c(NA, -4L), class = 'data.frame', data_types = c('N', 'N', 'L', 'C', 'C', 'D')));isS4(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisS4_testisS49_e6a2a00f25b763e507fca1fcd0bb912e() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));isS4(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisarray_testisarray14_ead6e2f5c831513e9268c3fc834bddb6() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')));is.array(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisarray_testisarray15_030c86ef40225016a8412ec6f922668c() {
+ assertEval("argv <- list(structure(c(-0.826728474083517, -0.154469781470927, 0.390336546510923, 1.36531474451071, 2.06722571939869, 1.96521311125433, 1.45602298338166, 0.730191404067138, -0.941608750081938, -0.839732558506723, -0.0905911085922035, 0.450465973953452, 1.12065714554563, 1.45760317860118, 1.25109677501882, 1.2162018587134, 1.45496813096317, -0.271923056200992, -2.39070401244086, -2.40312653243942, 1.3490211050246, 0.723634003520978, -0.525571703048375, -2.20018568844273, -1.57021740950431, -1.15394138529193, -0.771438011070496, 0.948968136215006, 1.11028283982967, 1.3490211050246, 0.723634003520978, -0.771438011070496, -1.76787333029837, -2.97849067734298, -2.56564546193719, -1.42386100140387, -0.482534191368393, 0.15506930200634, 0.878254497780181, 1.05319014844382, 0.0786502243396558, -0.896275208780418, -0.852907979665288, -1.36905276490888, -0.852907979665288, 0.378793517229249, 1.51661659600387, 1.37393548755461, -1.19044178751146, -1.01371204398328, -0.413541319881442, -0.0155111902607956, 0.511260101660621, 1.1596935438887, 1.49073250236106, 1.90481616825336, 1.72198968844944, 1.06922804353907, -0.525571703048375, -2.20018568844273, -1.57021740950431, -1.15394138529193, -0.771438011070496, 0.948968136215006, 1.11028283982967, 1.3490211050246, 0.723634003520978, -0.771438011070496, -1.76787333029837, 1.90481616825336, -1.15394138529193, -0.771438011070496, 0.948968136215006, 1.11028283982967, 1.3490211050246, 0.723634003520978, -0.771438011070496, -1.76787333029837, 1.17726251300777, 0.873546391155001, -0.257195249490748, -1.08470959372261, -1.32132136208769, -1.28389495656857, -0.471605120836204, 0.606878400401293, 1.31985237043395, 2.02783906485667, 1.57046182864688, -0.252818874890949, -1.24388962195487, -0.626057778621366, 1.49073250236106, 1.90481616825336, 1.72198968844944, 1.06922804353907, -0.525571703048375, -2.20018568844273, -1.57021740950431, -1.15394138529193, -0.771438011070496, 0.948968136215006, 1.11028283982967, 1.45760317860118, 1.25109677501882, 1.2162018587134, 1.45496813096317, -0.271923056200992, -2.39070401244086, -2.40312653243942, -2.10302193998908, -1.35143116355906, -0.796191750223435, 0.24658809164983), .Dim = c(114L, 1L), .Dimnames = list(NULL, 'Series 1'), .Tsp = c(1, 114, 1), class = 'ts'));is.array(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisarray_testisarray16_ac51cb19ad9dc83e3dccf6bbe8cb212e() {
+ assertEval("argv <- list(structure(c(1.82608695652174, 1.17391304347826, 1.17391304347826, 4.17391304347826, 1.82608695652174, 1.82608695652174, 2.17391304347826, 0.173913043478262, 4.17391304347826, 0.826086956521738, 2.17391304347826, 2.17391304347826, 2.17391304347826, 4.17391304347826, 2.82608695652174, 2.17391304347826, 2.17391304347826, 0.826086956521738, 3.82608695652174, 1.82608695652174, 4.82608695652174, 0.173913043478262, 7.82608695652174, 1.15, 5.15, 0.85, 1.15, 2.85, 2.85, 1.85, NA, 6.15, 2.85, 0.15, 3.15, 0.15, NA, NA, 1.15, 1.85, 0.15, 0.85, 0.85, 2.15, 2.85, 2.85, 32.2608695652174, 54.2608695652174, 36.2608695652174, 45.2608695652174, 194.739130434783, 130.739130434783, 35.2608695652174, 59.2608695652174, 63.2608695652174, 25.7391304347826, 25.2608695652174, 44.2608695652174, 16.2608695652174, 63.2608695652174, 53.2608695652174, 56.2608695652174, 19.2608695652174, 35.2608695652174, 39.2608695652174, 7.26086956521739, 38.2608695652174, 213.739130434783, 158.739130434783, 8.09999999999999, 94.9, 59.9, 49.9, 176.1, 11.1, 59.9, NA, 100.1, 15.1, 21.1, 84.1, 65.1, NA, NA, 63.9, 37.9, 26.9, 128.9, 42.1, 87.9, 118.1, 30.9), .Dim = c(23L, 4L), .Dimnames = list(NULL, c('V1', 'V2', 'V3', 'V4')), '`scaled:center`' = structure(c(10.8260869565217, 3.85, 95.2608695652174, 137.9), .Names = c('V1', 'V2', 'V3', 'V4'))));is.array(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisarray_testisarray20_b2073f65aff5589a27cf4fe47e6af40b() {
+ assertEval("argv <- list(structure(c(365, 365, 365, 366, 1, 0), .Dim = c(3L, 2L)));is.array(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisarray_testisarray22_c670debb7d36b5f500c3374ede380770() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4, .Dimnames = list(c('A', 'B', 'C'), c('D', 'E', 'F', 'G'))));is.array(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisarray_testisarray3_8dd8ad8387d0cdcb917df4215fd0df18() {
+ assertEval("argv <- list(structure(c(3.3675190249981e-55, 0.765191717864009, 1.84321904447013e-13, 0.270563224172485, 1.09996038197079, 1.31584681249013e-26, 0.00018392029356426, 0.515909871821833, 3.2666146281237e-45, -9.79475754683005e-56, -0.139604410987981, -1.56689901864133e-13, -0.285096750996398, -0.00590762252543826, -1.87837727043588e-27, -1.95765906855729e-05, -0.587847588896037, -1.0000270983218e-45), .Dim = c(9L, 2L), .Dimnames = list(NULL, c('Comp.1', 'Comp.2'))));is.array(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisarray_testisarray5_17b3162bba911f09b913189190d33f76() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE), .Dim = c(11L, 2L)));is.array(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisarray_testisarray6_b76037451a26fe2cfbb32861e0c755dd() {
+ assertEval("argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c('x1', 'x2'))));is.array(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisatomic_testisatomic23_60fa3dbb259b85adfc4917b6e518edac() {
+ assertEval("argv <- list(structure(1:3, .Label = c('4', '5', '6'), class = 'factor'));is.atomic(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisatomic_testisatomic32_1b10484ac617b34ce2a1abaff7b3e3fa() {
+ assertEval("argv <- list(structure(1:20, .Tsp = c(1, 20, 1), class = 'ts'));is.atomic(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall1_58cc63932aefc74f583a8a46b83c8190() {
+ assertEval("argv <- list(structure(list(dim = c(93L, 19L), dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93'), c('dfb.1_', 'dfb.Wght', 'dfb.Cyl4', 'dfb.Cyl5', 'dfb.Cyl6', 'dfb.Cyl8', 'dfb.Cyln', 'dfb.TypL', 'dfb.TypM', 'dfb.TypSm', 'dfb.TypSp', 'dfb.TypV', 'dfb.EngS', 'dfb.DrTF', 'dfb.DrTR', 'dffit', 'cov.r', 'cook.d', 'hat'))), .Names = c('dim', 'dimnames')));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall10_fc0284be75adb571fd60bdaecf982457() {
+ assertEval("argv <- list(structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall11_18cd2720f3b966a9b71da861ff0f847d() {
+ assertEval("argv <- list(c(TRUE, FALSE, TRUE, NA, FALSE, FALSE, TRUE));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall12_17d8d3b4173d3328ba2ec30e60900fc6() {
+ assertEval("argv <- list(structure(c(NA, 9.93, 26.79, 820.91), .Names = c('<none>', '- x4', '- x2', '- x1')));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall13_8dca671237f8d70e844115833d098282() {
+ assertEval("argv <- list(structure(list(nationality = structure(c(1L, 2L, 2L, 3L, 3L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(1L, 1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor'), title = structure(c(3L, 6L, 7L, 4L, 2L, 5L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, NA, NA, NA, NA, 1L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('nationality', 'deceased', 'title', 'other.author'), class = 'data.frame', row.names = c(NA, -6L)));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall14_a69cf172a063a50ff0ab75c661eacf0d() {
+ assertEval("argv <- list(structure(c(10L, 10L, 10L, 10L, 10L), .Dim = 5L, .Dimnames = structure(list(a = c('0.333333333333333', '0.5', '1', 'Inf', NA)), .Names = 'a')));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall15_6b3488297eea7c500984075b5b0bca0f() {
+ assertEval("argv <- list(1.79769313486232e+308);is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall16_c3f281c408bb9fb99bd82206642ab0ea() {
+ assertEval("argv <- list(c(3.71357206670431, 3.58351893845611, 2.484906649788, 2.89037175789616, NA, 3.3322045101752, 3.13549421592915, 2.94443897916644, 2.07944154167984, NA, 1.94591014905531, 2.77258872223978, 2.39789527279837, 2.63905732961526, 2.89037175789616, 2.63905732961526, 3.52636052461616, 1.79175946922805, 3.40119738166216, 2.39789527279837, 0, 2.39789527279837, 1.38629436111989, 3.46573590279973, NA, NA, NA, 3.13549421592915, 3.80666248977032, 4.74493212836325, 3.61091791264422, NA, NA, NA, NA, NA, NA, 3.36729582998647, NA, 4.26267987704132, 3.66356164612965, NA, NA, 3.13549421592915, NA, NA, 3.04452243772342, 3.61091791264422, 2.99573227355399, 2.484906649788, 2.56494935746154, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 4.90527477843843, 3.89182029811063, 3.46573590279973, NA, 4.15888308335967, 3.68887945411394, 4.34380542185368, 4.57471097850338, 4.57471097850338, 4.44265125649032, NA, 2.30258509299405, 3.29583686600433, NA, 1.94591014905531, 3.87120101090789, 3.55534806148941, 4.11087386417331, 4.36944785246702, 4.14313472639153, 2.77258872223978, NA, NA, 4.38202663467388, 4.68213122712422, 2.99573227355399, 3.95124371858143, 4.40671924726425, 3.91202300542815, 4.15888308335967, 4.07753744390572, 3.66356164612965, 2.19722457733622, 2.77258872223978, 4.35670882668959, 3.55534806148941, 4.18965474202643, 4.80402104473326, 4.48863636973214, 4.70048036579242, NA, NA, 3.78418963391826, 3.3322045101752, 4.17438726989564, NA, 3.09104245335832, 4.07753744390572, 3.13549421592915, 3.43398720448515, 3.78418963391826, 3.04452243772342, 2.19722457733622, NA, 3.80666248977032, 5.12396397940326, 4.29045944114839, NA, 4.33073334028633, 4.77068462446567, 4.43081679884331, 4.44265125649032, 4.56434819146784, 4.35670882668959, 4.29045944114839, 4.51085950651685, 3.85014760171006, 3.46573590279973, 2.99573227355399, 3.13549421592915, 3.04452243772342, 3.17805383034795, 3.78418963391826, 3.04452243772342, 3.3322045101752, 2.19722457733622, 2.56494935746154, 3.8286413964891, 2.89037175789616, 2.56494935746154, 3.17805383034795, 2.77258872223978, 2.56494935746154, 3.13549421592915, 3.58351893845611, 1.94591014905531, 2.63905732961526, 3.40119738166216, NA, 2.63905732961526, 2.89037175789616, 2.99573227355399));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall17_c1d26a1b8d1d135130cafc4ef2018403() {
+ assertEval("argv <- list(c(1.1+0i, NA, 3+0i));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall18_15ddb4f832d8cdc442a67f7f03fdbb01() {
+ assertEval("argv <- list(structure(c('***', '***', '*', '*'), legend = '0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1', class = 'noquote'));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall19_f320e2877e275ee4ab4aa9b21fd92e44() {
+ assertEval("argv <- list(structure(3.14159265358979, .Tsp = c(1, 1, 1), class = 'ts'));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall2_cb95b1c5fe6a6949bf4d015ef04e3f68() {
+ assertEval("argv <- list(structure(1:10, .Tsp = c(1920.5, 1921.25, 12), class = 'ts'));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall20_8bcca7a03c20204d86699a078ac00f2f() {
+ assertEval("argv <- list(structure(c(0.00290239468554394, 0.00140705152597278, 0.00182415100508828, 0.000171517300342801, 0.0747454613066304, 0.00103234723292907, 0.000179983318697126, 0.0352586084465556, 0.00336847595628202, 0.0640696486471412, 0.013210800275195, 0.00194778778741287, 0.00351950115137133, 0.000700468320296444, 0.00252844357735001, 0.0143720121954949, 0.0092342255427433, 7.64817786749446e-06, 0.00387339857745543, 0.00121246491006704, 0.00624917129689855, 0.00187753034805145, 0.000103002251547083, 0.0136703020254034, 0.000349542811339773, 0.00120367047056317, 0.00194205014408538, 0.00462815827742801, 0.000149291834133954, 0.00193441236645676, 9.00084520363835e-05, 0.0160915134527436, 0.0034667595853861, 0.00481936427422654, 3.13343033856193e-05, 0.0564685345533007, 0.00929771993193245, 0.0103876340982416, 0.0133005891226511, 0.0325989357511191, 0.00228122925969391, 0.0460976655088242, 0.0030036374596782, 0.000271060875811076, 0.0301696315261026, 4.72002631048293e-05, 0.0262321004865234, 0.00594174673473018, 0.00288915040856097, 0.00635277836091401, 0.00569342819072192, 0.0163907345734164, 0.000360581939026221, 0.000237725871915377, 0.0164062036225434, 0.0238391417439455, NaN, 0.0421542087325977, 0.00133954856768466, 0.0113421570571087, 0.00818242287729128, 0.000149291834133954, 0.00162069399881579, 0.00180262291288582, 0.0043164627226381, 0.000407784303899558, 0.0087630128035445, 0.00179253664026378, 0.000416739394150714, 0.0143720121954949, 0.000179983318697137, 0.00115986529332947, 0.00377736311314377, 0.00219491136307178, 0.000700468320296447, 0.000522557531637987, 9.86336244510677e-05, 0.0216346027446621, 0.000659639144027213, 0.0137501462695059, 5.91425796333253e-08, 0.0279425064631674, 0.000170828237014783, 0.00424546903556132, 0.0114879015536739, 0.000173346990819205, 0.00138111062254461, 0.00772582941114727, 0.0277947034678616, 0.00892024547056825, 0.061857770987456, 0.0125790610228498, 0.0277947034678616), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93')));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall21_aefe4bc913613a410aa52558947016e3() {
+ assertEval("argv <- list(structure(c(1920, 1920, 1920, 1920, 1920, 1920, 1921, 1921, 1921, 1921), .Tsp = c(1920.5, 1921.25, 12), class = 'ts'));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall23_110664c3946fb03aaf62a18f4e3242d4() {
+ assertEval("argv <- list(structure(c(2671, 6.026e+77, 3.161e+152, 3.501e+299, 2.409e+227, 1.529e+302), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall24_11a9c7a4ec902444dc294953be024a8d() {
+ assertEval("argv <- list(structure(c(1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 7, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 10, 11, 11, 11, 12, 13, 13, 14, 14, 14, 14, 15, 15, 15, 15, 16, 16, 16, 17, 17, 17, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 7, 7.4, 7.4, 7.4, 7.4, 7.4, 7.4, 7.4, 7.4, 7.4, 7.4, 5.3, 6.1, 6.1, 6.1, 6.1, 6.1, 6.1, 6.1, 6.1, 6.1, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 5.6, 5.7, 5.3, 5.3, 5.3, 5.3, 5.3, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 5.3, 7.7, 7.7, 7.7, 6.2, 5.6, 5.6, 5.2, 5.2, 5.2, 5.2, 6, 6, 6, 6, 5.1, 5.1, 5.1, 7.6, 7.6, 7.6, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.5, 5.5, 5.5, 5.5, 5.5, 5.5, 5.5, 5.5, 5.5, 5.5, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 24, 13, 15, 68, 39, 74, 22, 1, 8, 55, 24, 20, 51, 13, 3, 4, 5, 6, 15, 2, 8, 60, 67, 23, 58, 24, 22, 21, 37, 74, 59, 39, 14, 14, 19, 23, 70, 21, 22, 31, 29, 30, 45, 58, 17, 7, 19, 26, 39, 74, 57, 59, 12, 72, 70, 37, 64, 16, 18, 21, 22, 8, 62, 61, 63, 71, 105, 64, 10, 41, 8, 27, 11, 34, 32, 33, 68, 107, NA, 66, NA, 65, 48, 52, 43, 47, 46, 44, 41, 54, 28, 50, 40, NA, 69, NA, 75, 109, NA, 86, 112, 110, 104, 24, 111, 87, NA, NA, 92, 73, 85, 90, 89, NA, 83, NA, 102, NA, 108, 88, 91, 93, NA, 94, 84, NA, 106, NA, 95, 82, 56, 87, 109, 75, 104, 110, 112, 111, 24, 73, 85, 86, 90, 89, 102, 88, 92, 9, 49, 42, 38, 35, 36, 25, NA, NA, 9, 49, 42, NA, 36, 38, 25, 53, 79, 78, 103, 77, 80, 114, 97, 113, 76, 96, 81, 116, 99, 117, 115, 98, 101, 100, 12, 148, 42, 85, 107, 109, 156, 224, 293, 359, 370, 8, 16.1, 63.6, 6.6, 9.3, 13, 17.3, 105, 112, 123, 105, 122, 141, 200, 45, 130, 147, 187, 197, 203, 211, 62, 62, 19, 21, 13, 22, 29, 17, 19.6, 20.2, 21.1, 21.9, 24.2, 66, 87, 23.4, 24.6, 25.7, 28.6, 37.4, 46.7, 56.9, 60.7, 61.4, 62, 64, 82, 88, 91, 31, 45, 145, 300, 5, 50, 16, 17, 8, 10, 10, 8, 32, 30, 31, 2.9, 3.2, 7.6, 25.4, 32.9, 92.2, 1.2, 1.6, 9.1, 3.7, 5.3, 7.4, 17.9, 19.2, 23.4, 30, 38.9, 23.5, 26, 0.5, 0.6, 1.3, 1.4, 2.6, 3.8, 4, 5.1, 6.2, 6.8, 7.5, 7.6, 8.4, 8.5, 8.5, 10.6, 12.6, 12.7, 12.9, 14, 15, 16, 17.7, 18, 22, 22, 23, 23.2, 29, 32, 32.7, 36, 43.5, 49, 60, 64, 7.5, 8.8, 8.9, 9.4, 9.7, 9.7, 10.5, 10.5, 12, 12.2, 12.8, 14.6, 14.9, 17.6, 23.9, 25, 10.8, 15.7, 16.7, 20.8, 28.5, 33.1, 40.3, 4, 10.1, 11.1, 17.7, 22.5, 26.5, 29, 30.9, 37.8, 48.3, 5.8, 12, 12.1, 20.5, 20.5, 25.3, 35.9, 36.1, 36.3, 38.5, 41.4, 43.6, 44.4, 46.1, 47.1, 47.7, 49.2, 53.1, 0.359, 0.014, 0.196, 0.135, 0.062, 0.054, 0.014, 0.018, 0.01, 0.004, 0.004, 0.127, 0.411, 0.018, 0.509, 0.467, 0.279, 0.072, 0.012, 0.006, 0.003, 0.018, 0.048, 0.011, 0.007, 0.142, 0.031, 0.006, 0.01, 0.01, 0.006, 0.013, 0.005, 0.003, 0.086, 0.179, 0.205, 0.073, 0.045, 0.374, 0.2, 0.147, 0.188, 0.204, 0.335, 0.057, 0.021, 0.152, 0.217, 0.114, 0.15, 0.148, 0.112, 0.043, 0.057, 0.03, 0.027, 0.028, 0.034, 0.03, 0.039, 0.03, 0.11, 0.01, 0.01, 0.39, 0.031, 0.13, 0.011, 0.12, 0.17, 0.14, 0.11, 0.04, 0.07, 0.08, 0.21, 0.39, 0.28, 0.16, 0.064, 0.09, 0.42, 0.23, 0.13, 0.26, 0.27, 0.26, 0.11, 0.12, 0.038, 0.044, 0.046, 0.17, 0.21, 0.32, 0.52, 0.72, 0.32, 0.81, 0.64, 0.56, 0.51, 0.4, 0.61, 0.26, 0.24, 0.46, 0.22, 0.23, 0.28, 0.38, 0.27, 0.31, 0.2, 0.11, 0.43, 0.27, 0.15, 0.15, 0.15, 0.13, 0.19, 0.13, 0.066, 0.35, 0.1, 0.16, 0.14, 0.049, 0.034, 0.264, 0.263, 0.23, 0.147, 0.286, 0.157, 0.237, 0.133, 0.055, 0.097, 0.129, 0.192, 0.147, 0.154, 0.06, 0.057, 0.12, 0.154, 0.052, 0.045, 0.086, 0.056, 0.065, 0.259, 0.267, 0.071, 0.275, 0.058, 0.026, 0.039, 0.112, 0.065, 0.026, 0.123, 0.133, 0.073, 0.097, 0.096, 0.23, 0.082, 0.11, 0.11, 0.094, 0.04, 0.05, 0.022, 0.07, 0.08, 0.033, 0.017, 0.022), .Dim = c(182L, 5L), .Dimnames = list(NULL, c('event', 'mag', 'station', 'dist', 'accel'))));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall25_afa1e7dab50a2eb395a37ffd214b4009() {
+ assertEval("argv <- list(structure(c(8.444, 12.244, 11.967, 32.826), .Names = c('+ Temp', '<none>', '+ Soft', '- M.user')));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall26_753ff719553b6809d09c4ecb670b117d() {
+ assertEval("argv <- list(quote(cbind(X, M) ~ M.user + Temp + M.user:Temp));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall3_83c5f1c2f55a01e76ee822daeeec9fa4() {
+ assertEval("argv <- list(structure(c(1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall4_93f6446c525a6b0e9b6d9033aaf9cf81() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall5_67d7298b77d8d467940bd28b72487479() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall6_51480772477c17a739826be9731bcda1() {
+ assertEval("argv <- list(structure(list(var = structure(c(4L, 4L, 1L, 2L, 1L, 2L, 3L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 2L, 3L, 2L, 1L, 3L, 1L, 1L, 1L, 3L, 1L, 1L), .Label = c('<leaf>', 'Age', 'Number', 'Start'), class = 'factor'), wt = c(318, 244, 114, 130, 49, 81, 65, 34, 31, 17, 14, 3, 11, 16, 74, 42, 35, 16, 19, 10, 9, 7, 32, 3, 29), dev = c(95.4, 34.5652173913044, 0, 34.5652173913044, 0, 34.5652173913044, 15.2086956521739, 0, 15.2086956521739, 0, 5.36385542168675, 0, 0, 3.57590361445783, 53.6385542168675, 22.1217391304348, 12.4434782608696, 0, 12.4434782608696, 0, 0, 0, 7.15180722891566, 0, 1.78795180722892), yval = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 1, 1, 1, 1, 1, 2, 2, 2, 1, 2), complexity = c(0.165415284325709, 0.0551384281085695, 0.039, 0.0551384281085695, 0.039, 0.0551384281085695, 0.0515976951283394, 0.039, 0.0515976951283394, 0.039, 0.0515976951283394, 0.039, 0.039, 0.039, 0.165415284325709, 0.101449275362319, 0.0652173913043478, 0.039, 0.0652173913043478, 0.039, 0.039, 0.039, 0.0562248995983936, 0.039, 0.039), ncompete = c(2L, 2L, 0L, 2L, 0L, 2L, 2L, 0L, 2L, 0L, 2L, 0L, 0L, 0L, 2L, 2L, 2L, 0L, 2L, 0L, 0L, 0L, 2L, 0L, 0L), nsurrogate = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), yval2 = structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 1, 1, 1, 1, 1, 2, 2, 2, 1, 2, 249, 219, 114, 105, 49, 56, 54, 34, 20, 17, 3, 3, 0, 2, 30, 26, 26, 16, 10, 10, 0, 0, 4, 3, 1, 69, 25, 0, 25, 0, 25, 11, 0, 11, 0, 11, 0, 11, 14, 44, 16, 9, 0, 9, 0, 9, 7, 28, 0, 28, 0.7, 0.849942146369685, 1, 0.730869001297017, 1, 0.591562233449249, 0.760430333245867, 1, 0.540359120657828, 1, 0.149906890130354, 1, 0, 0.0845588235294117, 0.305967312808818, 0.512362301101591, 0.651314765831648, 1, 0.418073227733056, 1, 0, 0, 0.0845588235294117, 1, 0.0225711481844946, 0.3, 0.150057853630315, 0, 0.269130998702983, 0, 0.408437766550751, 0.239569666754133, 0, 0.459640879342172, 0, 0.850093109869646, 0, 1, 0.915441176470588, 0.694032687191182, 0.487637698898409, 0.348685234168352, 0, 0.581926772266944, 0, 1, 1, 0.915441176470588, 0, 0.977428851815505, 1, 0.724358302776323, 0.320481927710843, 0.403876375065479, 0.137751004016064, 0.266125371049415, 0.199633315872184, 0.095582329317269, 0.104050986554915, 0.0477911646586345, 0.0562598218962808, 0.00843373493975903, 0.0478260869565217, 0.0664920551772307, 0.275641697223677, 0.142657586869216, 0.11222280426052, 0.0449799196787148, 0.0672428845818055, 0.0281124497991968, 0.0391304347826087, 0.0304347826086957, 0.132984110354461, 0.00843373493975903, 0.124550375414702), .Dim = c(25L, 6L), .Dimnames = list(NULL, c('', '', '', '', '', 'nodeprob')))), .Names = c('var', 'wt', 'dev', 'yval', 'complexity', 'ncompete', 'nsurrogate', 'yval2'), class = 'data.frame', row.names = c(1L, 2L, 4L, 5L, 10L, 11L, 22L, 44L, 45L, 90L, 91L, 182L, 183L, 23L, 3L, 6L, 12L, 24L, 25L, 50L, 51L, 13L, 7L, 14L, 15L)));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall7_58253c68cd3f834cf3505bd19f652504() {
+ assertEval("argv <- list(structure(c(2.828, -1.04, -2.738, 3.084), .Names = c('(Intercept)', 'age', 'wgt', 'prot')));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall8_26ae835c4720fb4206f0c5e77c3dbabe() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscall_testiscall9_6f52a977e120b514c37cd9f5cf69465c() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.call(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscomplex_testiscomplex3_eb73621e38a6e14443b9706f57adaa79() {
+ assertEval("argv <- list(structure(1:24, .Dim = 2:4));is.complex(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltiniscomplex_testiscomplex4_7f99f72176d8256c0360850982256f99() {
+ assertEval("argv <- list(NA_complex_);is.complex(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisdouble_testisdouble2_6e749770b99b58faf298175e8fab0e92() {
+ assertEval("argv <- list(structure(1:7, .Names = c('a1', 'a2', 'a3', 'a4', 'a5', 'a6', 'a7')));is.double(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisdouble_testisdouble5_d1e684f171a9c3d26905cd6c0a19e1f7() {
+ assertEval("argv <- list(structure(1:24, .Dim = 2:4));is.double(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisexpression_testisexpression19_75fceb2060f0e6db20cbddbcd82f4897() {
+ assertEval("argv <- list(quote(print(.leap.seconds, tz = 'PST8PDT')));is.expression(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfinite_testisfinite10_a54ba2260a5c0bbf3588f18e608b5096() {
+ assertEval("argv <- list(structure(c(-32.6915744137254, -24.6945405669482, -24.6945405669482, -357.79068676373), .Dim = c(2L, 2L)));is.finite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfinite_testisfinite13_2a107a5b4998978c3c23deab93132e9a() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i), .Dim = c(5L, 5L)));is.finite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfinite_testisfinite14_a884b2a8cf5fc7ccc5357176c8cf5dc0() {
+ assertEval("argv <- list(structure(2L, .Label = c('Northeast', 'South', 'North Central', 'West'), class = 'factor'));is.finite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfinite_testisfinite16_9fc9d36f86b99b9abad740b8ffdc4f14() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));is.finite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfinite_testisfinite17_176feeed2a9e8f8b58798be0d5465736() {
+ assertEval("argv <- list(NULL);is.finite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfinite_testisfinite19_525d6af261dc35fb6b967b8e5e0bdef7() {
+ assertEval("argv <- list(structure(c(100, -1e-13, Inf, -Inf, NaN, 3.14159265358979, NA), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));is.finite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfinite_testisfinite20_d32f8543c755faee4b81fd27c1eae483() {
+ assertEval("argv <- list(structure(c(100L, 0L, NA, NA, NA, 3L, NA), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));is.finite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfinite_testisfinite22_c5a79ff572df7b2853a67b1278b288dd() {
+ assertEval("argv <- list(structure(1:7, .Dim = c(1L, 7L)));is.finite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfinite_testisfinite23_e0e28e2d33c142874a4d372c08259afd() {
+ assertEval("argv <- list(structure(c(-4, 0, 0, 0, 0, 0, 0, -406.725, 41.7955066364795, 0, 0, 0, 0, 0, -1550.79375, 381.717151319926, 49.8228991342168, 0, 0, 0, 0, -1277.325, 224.617432123818, -31.1858918860748, -282.060212912726, 0, 0, 0, -1042.675, 125.261805546114, -29.9849484767744, 164.425554254677, -170.353263600129, 0, 0, -469.696, 26.3795103523805, 4.19691803785862, -3.18974110831568, 0.0462484557378925, 1.46320172717486, 0, -7818, 18.2758880432689, 1.77525956575195, -1.45298766739792, -0.449176219307484, -0.281900648530911, -0.669305080560524), .Dim = c(7L, 7L), .Dimnames = list(c('1947', '1948', '1949', '1950', '1951', '1952', '1953'), c('(Intercept)', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'))));is.finite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfinite_testisfinite24_d92d28815ee0026457e1457a0a8ca0b6() {
+ assertEval("argv <- list(c(13L, 13L));is.finite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfinite_testisfinite3_f084456956dc7ed4a7f1daf485d1396c() {
+ assertEval("argv <- list(structure(485.051413351662, .Names = 'value'));is.finite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfinite_testisfinite6_6013de97886e633dc2f3906d44fcde8f() {
+ assertEval("argv <- list(structure(1.27861470300044, .Dim = c(1L, 1L), .Dimnames = list('(Intercept)', '(Intercept)')));is.finite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfinite_testisfinite8_a65e1c1ac1bf0df95fa6d07ef5e4443a() {
+ assertEval("argv <- list(c(96L, 78L, 73L, 91L, 47L, 32L, 20L, 23L, 21L, 24L, 44L, 21L, 28L, 9L, 13L, 46L, 18L, 13L, 24L, 16L, 13L, 23L, 36L, 7L, 14L, 30L, NA, 14L, 18L, 20L));is.finite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfinite_testisfinite9_93add09c39c9f62fc3ce16cdf807599f() {
+ assertEval("argv <- list(structure(c(0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.0220588235294118, 0.00735294117647059, 0.0147058823529412, 0.0110294117647059, 0.0257352941176471, 0.00735294117647059, 0.0294117647058824, 0.0147058823529412, 0.00735294117647059, 0.00735294117647059, 0.00367647058823529, 0.0110294117647059, 0.0110294117647059, 0.0147058823529412, 0.0110294117647059, 0.00735294117647059, 0.00367647058823529, 0.00735294117647059, 0.0110294117647059, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.00367647058823529, 0.0110294117647059, 0.00367647058823529, 0.00735294117647059, 0.00735294117647059, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.00735294117647059, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.00735294117647059, 0.0147058823529412, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.00367647058823529, 0.0183823529411765, 0.00735294117647059, 0.00367647058823529, 0.0110294117647059, 0.00735294117647059, 0.00367647058823529, 0.00367647058823529, 0.0220588235294118, 0.00735294117647059, 0.00367647058823529, 0.00735294117647059, 0.0183823529411765, 0.00735294117647059, 0.00735294117647059, 0.00735294117647059, 0.0147058823529412, 0.0147058823529412, 0.00367647058823529, 0.00367647058823529, 0.0110294117647059, 0.0147058823529412, 0.00735294117647059, 0.00735294117647059, 0.00735294117647059, 0.00367647058823529, 0.0183823529411765, 0.0147058823529412, 0.00367647058823529, 0.0110294117647059, 0.00367647058823529, 0.00367647058823529, 0.0147058823529412, 0.00735294117647059, 0.0110294117647059, 0.00735294117647059, 0.00367647058823529, 0.0294117647058824, 0.00367647058823529, 0.0183823529411765, 0.00367647058823529, 0.0110294117647059, 0.0147058823529412, 0.0147058823529412, 0.00367647058823529, 0.0110294117647059, 0.00367647058823529, 0.00735294117647059, 0.0220588235294118, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.0220588235294118, 0.00735294117647059, 0.00735294117647059, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.0110294117647059, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529), class = 'table', .Dim = 126L, .Dimnames = structure(list(fe = c('1.6', '1.667', '1.7', '1.733', '1.75', '1.783', '1.8', '1.817', '1.833', '1.85', '1.867', '1.883', '1.917', '1.933', '1.95', '1.967', '1.983', '2', '2.017', '2.033', '2.067', '2.083', '2.1', '2.133', '2.15', '2.167', '2.183', '2.2', '2.217', '2.233', '2.25', '2.267', '2.283', '2.3', '2.317', '2.333', '2.35', '2.367', '2.383', '2.4', '2.417', '2.483', '2.617', '2.633', '2.8', '2.883', '2.9', '3.067', '3.317', '3.333', '3.367', '3.417', '3.45', '3.5', '3.567', '3.6', '3.683', '3.717', '3.733', '3.75', '3.767', '3.817', '3.833', '3.85', '3.883', '3.917', '3.95', '3.966', '3.967', '4', '4.033', '4.05', '4.067', '4.083', '4.1', '4.117', '4.133', '4.15', '4.167', '4.183', '4.2', '4.233', '4.25', '4.267', '4.283', '4.3', '4.317', '4.333', '4.35', '4.366', '4.367', '4.383', '4.4', '4.417', '4.433', '4.45', '4.467', '4.483', '4.5', '4.517', '4.533', '4.55', '4.567', '4.583', '4.6', '4.617', '4.633', '4.65', '4.667', '4.7', '4.716', '4.733', '4.75', '4.767', '4.783', '4.8', '4.817', '4.833', '4.85', '4.883', '4.9', '4.933', '5', '5.033', '5.067', '5.1')), .Names = 'fe')));is.finite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction1_2346ff9bfb1b82dd835cff3a31719bb0() {
+ assertEval("argv <- list(function (x, y) { c(x, y)});is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction10_563a07bfa9e149ea701db69fb5610e05() {
+ assertEval("argv <- list(structure(c(FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(5L, 5L)));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction11_758254bdeb5cd140cfeec2692939c602() {
+ assertEval("argv <- list(c(0.2853725+0.3927816i, -0.07283992154231+0.224178134292i, -0.10883955678256+0.035364093700981i, -0.0449501817243521-0.0326582354266614i, 8.2299281e-09-2.69753665872767e-02i, 0.0105954299973322-0.0076980245688633i, 0.00604728675391113+0.00196488543076221i, 0.00095395849586903+0.00293598723445021i, -0.00088096824266454+0.00121254736140417i, -7.27670402517897e-04-4.44010655e-10i, -2.07656947543323e-04-2.85815671682054e-04i, 5.3003554565545e-05-1.6312776087427e-04i, 7.9199339795869e-05-2.57333559721505e-05i, 3.27089023280074e-05+2.37644512768026e-05i, -1.79660253e-11+1.96291758626278e-05i, -7.70998422901389e-06+5.60161993213361e-06i, -4.4004307139296e-06-1.42979165736404e-06i, -6.9416605906477e-07-2.13643143624753e-06i, 6.4105505412914e-07-8.82334435385704e-07i, 5.29504214700362e-07+6.46186824e-13i));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction12_be269c67bb1d26df96c1001879ee2131() {
+ assertEval("argv <- list(structure(c(9, 13, 13, 18, 23, 28, 31, 34, 45, 48, 161, 5, 5, 8, 8, 12, 16, 23, 27, 30, 33, 43, 45, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1), .Dim = c(23L, 2L), .Dimnames = list(NULL, c('time', 'status')), type = 'right', class = 'Surv'));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction13_d1251f6260511dbe7ff930a97b89d837() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction14_637e7db5053f1b2dcfee3b53831ba043() {
+ assertEval("argv <- list(structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c('A', 'B', 'C'), class = 'factor')), .Names = c('x', 'y', 'fac'), row.names = c(NA, -10L), class = 'data.frame'));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction15_dd13fdc47c7f20e0567c1f3aaf36d13a() {
+ assertEval("argv <- list(structure(function (x) standardGeneric('dim', .Primitive('dim')), generic = structure('dim', package = 'base'), package = 'base', group = list(), valueClass = character(0), signature = 'x', default = .Primitive('dim'), skeleton = quote(.Primitive('dim')(x)), class = structure('standardGeneric', package = 'methods')));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction16_b764d9f0f945e0d31b68b3867f95d2ea() {
+ assertEval("argv <- list(structure(function (x, na.rm = FALSE, dims = 1, ...) standardGeneric('rowMeans'), generic = structure('rowMeans', package = 'base'), package = 'base', group = list(), valueClass = character(0), signature = c('x', 'na.rm', 'dims'), default = structure(function (x, na.rm = FALSE, dims = 1, ...) base::rowMeans(x, na.rm = na.rm, dims = dims, ...), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = structure('rowMeans', package = 'base'), class = structure('derivedDefaultMethod', package = 'methods')), skeleton = quote((function (x, na.rm = FALSE, dims = 1, ...) base::rowMeans(x, na.rm = na.rm, dims = dims, ...))(x, na.rm, dims, ...)), class = structure('standardGeneric', package = 'methods')));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction17_63672070125ce0865db04f99aefd1988() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c('1', '2', NA), class = c('ordered', 'factor')));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction18_7b42163b183135e5c32bcbae5db926fa() {
+ assertEval("argv <- list(structure(list(usr = c(0.568, 1.432, -1.08, 1.08), xaxp = c(0.6, 1.4, 4), yaxp = c(-1, 1, 4)), .Names = c('usr', 'xaxp', 'yaxp')));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction19_710e97b2c4df526c9240dc1d0b69a9ff() {
+ assertEval("argv <- list(structure(list(double.eps = 2.22044604925031e-16, double.neg.eps = 1.11022302462516e-16, double.xmin = 2.2250738585072e-308, double.xmax = 1.79769313486232e+308, double.base = 2L, double.digits = 53L, double.rounding = 5L, double.guard = 0L, double.ulp.digits = -52L, double.neg.ulp.digits = -53L, double.exponent = 11L, double.min.exp = -1022L, double.max.exp = 1024L, integer.max = 2147483647L, sizeof.long = 8L, sizeof.longlong = 8L, sizeof.longdouble = 16L, sizeof.pointer = 8L), .Names = c('double.eps', 'double.neg.eps', 'double.xmin', 'double.xmax', 'double.base', 'double.digits', 'double.rounding', 'double.guard', 'double.ulp.digits', 'double.neg.ulp.digits', 'double.exponent', 'double.min.exp', 'double.max.exp', 'integer.max', 'sizeof.long', 'sizeof.longlong', 'sizeof.longdouble', 'sizeof.pointer')));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction2_ce530197637b204eff56771230a9f40f() {
+ assertEval("argv <- list(c('a', 'b', NA, NA, NA, 'f', 'g', 'h', 'i', 'j', 'k', 'l'));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction20_bde4d27b02aeffddbf233a7495c890f6() {
+ assertEval("argv <- list(structure(list(extra = c(0.7, -1.6, -0.2, -1.2, -0.1, 3.4, 3.7, 0.8, 0, 2, 1.9, 0.8, 1.1, 0.1, -0.1, 4.4, 5.5, 1.6, 4.6, 3.4), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('1', '2'), class = 'factor'), ID = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L), .Label = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'), class = 'factor')), .Names = c('extra', 'group', 'ID'), row.names = c(NA, -20L), class = 'data.frame'));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction3_183b621151a3700ce39c58765a15df43() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction4_08973abf26e091c1d720d0c1484577db() {
+ assertEval("argv <- list(structure(c(1, 0.341108926893721, 7.03552967282433, 0.0827010685995216, 2.31431632448833, 2.09774421189194, 17.4719768806091, 0.00710660186854106, 0.341108926893721, 6.24415190746514, 0.0686360870302571, 2.93161486304804, 1, 20.6254633582673, 0.242447681896313, 6.78468413466471, 6.14977811045541, 51.2211071100253, 0.02083381966358, 1, 18.3054485390546, 0.201214572879361, 0.142135709250525, 0.0484837592557245, 1, 0.0117547750411693, 0.328946992211217, 0.298164361383444, 2.48339182593415, 0.00101010189694619, 0.0484837592557245, 0.887516960035576, 0.00975563891022635, 12.0917421858535, 4.12460120129202, 85.071810944714, 1, 27.984116332225, 25.3653821820638, 211.266639917518, 0.0859311976119033, 4.12460120129202, 75.5026750343739, 0.829929869015672, 0.432093050296869, 0.147390796704999, 3.04000347678479, 0.0357345569939779, 1, 0.906420695258988, 7.54951978505874, 0.00307071327862333, 0.147390796704999, 2.69805464421362, 0.0296571762053451, 0.476702542822467, 0.16260749282968, 3.35385488513828, 0.0394238096955273, 1.10324047677913, 1, 8.32893580712171, 0.00338773518156042, 0.16260749282968, 2.97660309205839, 0.0327189972167077, 0.0572345079685763, 0.0195232015944512, 0.402675079122419, 0.00473335496976909, 0.132458756115733, 0.120063357811564, 1, 0.000406742861274512, 0.0195232015944512, 0.357380962104814, 0.00392835267006514, 140.714228614202, 47.998879521268, 989.999130803802, 11.6372170735519, 325.65723636963, 295.182458606281, 2458.55574912007, 1, 47.998879521268, 878.641019008853, 9.65807404155984, 2.93161486304804, 1, 20.6254633582673, 0.242447681896313, 6.78468413466471, 6.14977811045541, 51.2211071100253, 0.02083381966358, 1, 18.3054485390546, 0.201214572879361, 0.160149851384054, 0.0546285439478035, 1.12673903151092, 0.0132445638455158, 0.370637415422497, 0.335953423776254, 2.79813450081517, 0.00113812123309249, 0.0546285439478035, 1, 0.0109920591374787, 14.5695951396408, 4.96981896335886, 102.50481892598, 1.20492108711069, 33.7186518728567, 30.5632838737905, 254.559629439639, 0.103540312043258, 4.96981896335886, 90.9747652821832, 1), .Dim = c(11L, 11L), .Dimnames = list(c('ATS', 'BEF', 'DEM', 'ESP', 'FIM', 'FRF', 'IEP', 'ITL', 'LUF', 'NLG', 'PTE'), c('ATS', 'BEF', 'DEM', 'ESP', 'FIM', 'FRF', 'IEP', 'ITL', 'LUF', 'NLG', 'PTE'))));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction5_55e924b83dcc1d9b20a0ca01396fc2bb() {
+ assertEval("argv <- list(structure(c(1+0i, 5+0i, 9+0i, 13+0i, 17+0i, 21+0i, 2+0i, 6+0i, 10+0i, 14+0i, 18+0i, 22+0i, 3+0i, 7+0i, 11+0i, 15+0i, 19+0i, 23+0i, 4+0i, 8+0i, 12+0i, 16+0i, 20+0i, 24+0i), .Dim = c(6L, 4L)));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction6_061f37b4d9927b654255093c915cf1a9() {
+ assertEval("argv <- list(structure(list(Df = c(1L, 7L), `Sum Sq` = c(158.407612694902, 204.202165082876), `Mean Sq` = c(158.407612694902, 29.1717378689823), `F value` = c(5.43017400630538, NA), `Pr(>F)` = c(0.052592726218915, NA)), .Names = c('Df', 'Sum Sq', 'Mean Sq', 'F value', 'Pr(>F)'), row.names = c('depression', 'Residuals'), class = c('anova', 'data.frame'), heading = c('Analysis of Variance Table\n', 'Response: weight')));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction7_cdd24e600b04db832f5ffa0400ac1a62() {
+ assertEval("argv <- list(structure(list(GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962, Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551)), .Names = c('GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year', 'Employed'), row.names = 1947:1962, class = 'data.frame'));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction8_bd440f664b9e14f1dc49580ff843cf7a() {
+ assertEval("argv <- list(structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, 104, 118, 115, 126, 141, 135, 125, 149, 170, 170, 158, 133, 114, 140, 145, 150, 178, 163, 172, 178, 199, 199, 184, 162, 146, 166, 171, 180, 193, 181, 183, 218, 230, 242, 209, 191, 172, 194, 196, 196, 236, 235, 229, 243, 264, 272, 237, 211, 180, 201, 204, 188, 235, 227, 234, 264, 302, 293, 259, 229, 203, 229, 242, 233, 267, 269, 270, 315, 364, 347, 312, 274, 237, 278, 284, 277, 317, 313, 318, 374, 413, 405, 355, 306, 271, 306, 315, 301, 356, 348, 355, 422, 465, 467, 404, 347, 305, 336, 340, 318, 362, 348, 363, 435, 491, 505, 404, 359, 310, 337, 360, 342, 406, 396, 420, 472, 548, 559, 463, 407, 362, 405, 417, 391, 419, 461, 472, 535, 622, 606, 508, 461, 390, 432), .Tsp = c(1949, 1960.91666666667, 12), class = 'ts'));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisfunction_testisfunction9_e82c7d1967f1b530c04bcafdf10a5cda() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.function(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisinfinite_testisinfinite1_916582d63a82f7a69dc06e75cd480704() {
+ assertEval("argv <- list(structure(c(100L, 0L, NA, NA, NA, 3L, NA), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));is.infinite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisinfinite_testisinfinite10_01a212eca696cbaf20d1f527b70eb29e() {
+ assertEval("argv <- list(structure(c(100, -1e-13, Inf, -Inf, NaN, 3.14159265358979, NA), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));is.infinite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisinfinite_testisinfinite11_9c296861ac65b4ef655c523ca32c19f0() {
+ assertEval("argv <- list(structure(c(0.140840156507829, 0.04056135019562, 0.0029302031336855, 0.244192917875952, 0.613916838192149, 0.0888451715064135, 0.0786481028238466, 0.000549230092684491, 0.00048785961836479, 0.235214398525727, 0.000402612842061681, 0.00423992719924668, 0.0355604120039037, 0.00432748168352161, 0.170388213068447, 0.466682597016338), .Names = c('1947', '1948', '1949', '1950', '1951', '1952', '1953', '1954', '1955', '1956', '1957', '1958', '1959', '1960', '1961', '1962')));is.infinite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisinfinite_testisinfinite12_c71e68e48aacdf0c74d5c2d5d55d8bf8() {
+ assertEval("argv <- list(4);is.infinite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisinfinite_testisinfinite13_d9ec13b8644d211fa07bd8d52f11583b() {
+ assertEval("argv <- list(structure(1:24, .Dim = 2:4));is.infinite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisinfinite_testisinfinite14_4874e151ae66dd14368e5a9bd78318c9() {
+ assertEval("argv <- list(structure(c(1, 0.5, 0.5, 1), .Dim = c(2L, 2L), .Dimnames = list(c('A', 'B'), c('A', 'B'))));is.infinite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisinfinite_testisinfinite15_5ceb7ccbf0cffa18fceb1836cfd0a687() {
+ assertEval("argv <- list(c(21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 36L, 51L, 66L, 81L, 96L, 111L, 126L, 141L, 156L, 171L, 178L, 185L, 192L, 199L, 206L, 213L, 220L, 227L, 234L, 241L, 248L, 250L, 252L, 254L, 256L, 258L, 260L, 262L, 264L, 266L, 268L, 270L, 267L, 264L, 261L, 258L, 255L, 242L, 229L, 216L, 203L, 190L, 177L, 164L, 151L, 138L, 125L, 112L, 111L, 110L, 109L, 108L, 107L, 106L, 105L, 104L, 103L, 102L, 101L, 100L, 99L, 102L, 105L, 108L, 111L, 114L, 117L, 120L, 123L, 126L, 129L, 132L, 141L, 150L, 159L, 168L, 177L, 186L, 195L, 204L, 213L, 222L, 231L, 240L, 257L, 274L, 291L, 308L, 325L, 342L, 359L, 376L, 393L, 384L, 375L, 366L, 357L, 348L, 339L, 330L, 321L, 312L, 303L, 294L, 285L, 286L, 287L, 288L, 289L, 290L, 291L, 292L, 293L, 294L, 295L, 296L, 282L, 268L, 254L, 240L, 226L, 212L, 198L, 184L, 170L, 156L, 142L, 128L, 114L, 100L, 86L, 72L, 58L, 44L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA));is.infinite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisinfinite_testisinfinite2_cd0f1fb7f584cd1f6a0924da17901f2b() {
+ assertEval("argv <- list(c(Inf, -Inf));is.infinite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisinfinite_testisinfinite3_e9b6f5d320af80742d6bbd98d0b84c9e() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 0L)));is.infinite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisinfinite_testisinfinite4_60c792df0e06d97bbb168d46ec958a97() {
+ assertEval("argv <- list(structure(c(0.00241725013897913, 2.73568372449633e-07, 0.00400531454105884, 0.0305181933571734, 0.022064930648429, 0.000416097494498381, 0.0186357510997526, 0.00896237344987589, 0.00202331168264955, 0.00279067096737535, 0.0447487811957221, 0.000577210896095096, 0.00782925975125774, 0.033211430744327, 0.0093483442273581, 0.00136284952207105, 0.0275004422708864, 0.0135979349769553, 0.000181644594904405, 0.00803803085466393, 0.00350275333198457, 0.014998898960339, 5.39459255498146e-05, 0.00123860219686858, 1.13323906102913e-05, 0.0297916373848854, 0.0312890114433758, 5.85350754663798e-05, 0.0131002435454964, 0.00277072267615578, 0.0222123285012571, 0.00194205331979335, 0.0103231522531299, 0.0261098279661105, 0.0358853728812373, 1.13323906102913e-05, 0.0486308859679786, 0.000674881587747117, 0.0218633172580077, 0.000558592420498928, 0.000802158707806158, 0.0581913205761545, 0.000436809276845313, 0.00631994234432259, 0.000141965876420771, 0.000262833357340149, 0.0055965687842748, 0.000654737007593888, 0.0140931986366498, 0.00241538552182261, 0.00414822230660342, 0.00884150659070285, 0.0647626092888162, 0.0935599413167129, 0.00117891119201738, 0.00742609802768654, 0.0306399064130622, 0.0274290617824389, 0.00217883778937331, 0.0108387379377857, 0.0242348837396833, 0.0168720396936779, 0.022211269097018, 0.0355286679037712, 0.00017126708391638, 0.00443642409999561, 0.0068913158904869, 0.0635882367317516, 0.0566932963429416, 0.00904861729235097, 0.00038919481466495), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71')));is.infinite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisinfinite_testisinfinite5_f03ade80b432565603edd692566c6f97() {
+ assertEval("argv <- list(structure(c(80, 80, 75, 62, 62, 62, 62, 62, 58, 58, 58, 58, 58, 58, 50, 50, 50, 50, 50, 56, 70, 27, 27, 25, 24, 22, 23, 24, 24, 23, 18, 18, 17, 18, 19, 18, 18, 19, 19, 20, 20, 20, 89, 88, 90, 87, 87, 87, 93, 93, 87, 80, 89, 88, 82, 93, 89, 86, 72, 79, 80, 82, 91, 42, 37, 37, 28, 18, 18, 19, 20, 15, 14, 14, 13, 11, 12, 8, 7, 8, 8, 9, 15, 15), .Dim = c(21L, 4L), .Dimnames = list(NULL, c('Air.Flow', 'Water.Temp', 'Acid.Conc.', 'stack.loss'))));is.infinite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisinfinite_testisinfinite6_7c185cb2979af2ca62ef273fb43c76bb() {
+ assertEval("argv <- list(structure(c(1.12411954394441, -0.567321126080105, 1.28594901629635, -0.519809468914999, -1.485548782458, -0.435305441405687, -0.281625943801696, -0.527525498975648, 2.60041695299567, NA), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')));is.infinite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisinfinite_testisinfinite7_75732102df565ade7f1ae65f031ffb61() {
+ assertEval("argv <- list(NULL);is.infinite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisinfinite_testisinfinite8_a9d6033608b9c036c49a85d29d905676() {
+ assertEval("argv <- list(structure(c(0.00544194018731062, 0.00542949133552226, 1.20718999105839e-05, 0.00505497198006266, 0.827687885653788, 0.00315385274195005, 0.0023164952286401, 0.00117183915211372, 2.09167441982205, 0.00193959227691399, 0.00358084102808485, 3.39138861812986e-05, 0.00163051710052444, 0.00168735925488057, 0.0167253073891896, 0.237074502262169, 0.0118967636015583, 0.00307437031103621, 0.00114371252369823, 0.000860763872820255, 0.00028432076263802, 0.00329557354736053, 0.000123683950933913, 0.00026114238659798, 0.00471892942651347, 0.00317288091968884, 6.76955217513137e-05, 0.0119061189538054, 0.00233356124758579, 0.00672098496026968, 0.134965372025281, 0.00102115420103838, 0.00114816901125044), .Names = c('Craig Dunain', 'Ben Rha', 'Ben Lomond', 'Goatfell', 'Bens of Jura', 'Cairnpapple', 'Scolty', 'Traprain', 'Lairig Ghru', 'Dollar', 'Lomonds', 'Cairn Table', 'Eildon Two', 'Cairngorm', 'Seven Hills', 'Knock Hill', 'Black Hill', 'Creag Beag', 'Kildcon Hill', 'Meall Ant-Suidhe', 'Half Ben Nevis', 'Cow Hill', 'N Berwick Law', 'Creag Dubh', 'Burnswark', 'Largo Law', 'Criffel', 'Acmony', 'Ben Nevis', 'Knockfarrel', 'Two Breweries', 'Cockleroi', 'Moffat Chase')));is.infinite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisinfinite_testisinfinite9_5d40116aebd0246ba08e197374041229() {
+ assertEval("argv <- list(structure(c(0.648648743252693, 0.52170345712821, -0.338075767187078, 0.169770656775468, -1.86324282017776, 0.362268009067608, 0.136032794890515, 0.901814933704047, -0.671639624694386, 1.79387977353953, 0.714576709724596, -0.471811539980989, -0.857026690426369, 0.226899513968796, 0.568565310101759, -0.944564385994918, 0.693403222263985, 0.02231307737364, -0.276817414323803, -0.344452836733253, -0.844829717537689, -0.421779195680793, -0.154748062715674, 1.43960300137753, 0.256965508768852, -0.295370227475694, 0.507911869619344, -0.346156318366332, -0.187948961031579, -0.454073164294974, -0.0895014237058297, 1.91227371168715, 0.779246572061347, 0.606406152381391, -0.0628430973426908, 2.1063179091687, -1.32672093069913, -0.754254955100625, -0.59565543740158, -1.95946772292555, -0.495798772099865, -3.58086046245482, -0.721772682345538, -0.254468243441054, 2.41750264738881, -0.0647957309150968, 1.87354174039771, -0.552199273430865, 0.732944502427441, 0.703597322009966, 0.875011400025303, -0.916329805907907, -0.297942295133666, -0.239141969395332, -1.79620422664673, -1.34633804643361, -Inf, 1.84762640960041, -0.344523591926435, 1.12935189480329, -0.902874350916712, -0.187948961031579, 0.444184743731147, -0.595767030989317, -0.878351658910786, 0.131398128073247, -1.16349118303155, -0.612790192876235, -0.231519954928205, -0.944564385994918, 0.136032794890519, -0.250233723215235, -0.972829009134415, 0.576852333601859, 0.226899513968797, -0.316245505808486, 0.101419270213227, 2.16953626752671, -0.383691077846572, 0.547999893193889, 0.00183871707028874, -1.28758691932778, 0.0676445397107313, -0.809987759639438, -1.04896153736838, 0.156556073105978, 0.248659709506608, 1.27246860456928, 0.554771572109539, 1.2326801378144, 2.2926344791142, 1.00034303387372, -0.554771572109538), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93')));is.infinite(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislanguage_testislanguage12_34b10ca0a691e5b6043ec38bdd3ebdc8() {
+ assertEval("argv <- list(expression(sqrt(abs(`Standardized residuals`))));is.language(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislanguage_testislanguage22_a54958869c85ae9f07c016a10837f0fb() {
+ assertEval("argv <- list(structure(0:100, .Tsp = c(1, 101, 1), class = 'ts'));is.language(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislist_testislist1_0bf5b5d95d10bfb449f032407218a5a6() {
+ assertEval("argv <- list(structure(function (e1, e2) standardGeneric('/', .Primitive('/')), generic = structure('/', package = 'base'), package = 'base', group = list('Arith'), valueClass = character(0), signature = c('e1', 'e2'), default = .Primitive('/'), skeleton = quote(.Primitive('/')(e1, e2)), class = structure('standardGeneric', package = 'methods')));is.list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislist_testislist8_0866b83ae49166e4e8c454247513ea1d() {
+ assertEval("argv <- list(structure(list(title = structure(1L, .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(2L, .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('title', 'other.author'), row.names = 1L, class = 'data.frame'));is.list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor1_11e42d3fdb31e174af970cd806b20e0e() {
+ assertEval("argv <- list(list(structure(list(structure('R Core', class = 'AsIs')), row.names = c(NA, -1L), class = 'data.frame'), structure(list(structure(NA_character_, class = 'AsIs')), row.names = c(NA, -1L), class = 'data.frame'), structure(list(structure(NA_character_, class = 'AsIs')), row.names = c(NA, -1L), class = 'data.frame'), structure(list(structure('An Introduction to R', class = 'AsIs')), row.names = c(NA, -1L), class = 'data.frame'), structure(list(structure('Venables & Smith', class = 'AsIs')), row.names = c(NA, -1L), class = 'data.frame')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor10_2a8d8eb6392df15688244afca7f2edab() {
+ assertEval("argv <- list(list(structure(c(0, 1, 1, 2, 2, 4, NA), .Names = c('ddiMatrix', 'diagonalMatrix', 'dMatrix', 'sparseMatrix', 'Matrix', 'mMatrix', 'ANY')), structure(c(0, 1, 1, 1, 2, 2, 2, 3, 4, NA), .Names = c('dgCMatrix', 'CsparseMatrix', 'dsparseMatrix', 'generalMatrix', 'dMatrix', 'sparseMatrix', 'compMatrix', 'Matrix', 'mMatrix', 'ANY'))), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor11_e03f9fe5b02cecc1c013f17910a74046() {
+ assertEval("argv <- list(list(structure(0, .Dim = c(1L, 1L)), structure(-4.9497224423095e-07, .Dim = c(1L, 1L)), structure(0, .Dim = c(1L, 1L)), structure(-7.44931694456399e-07, .Dim = c(1L, 1L))), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor12_6b31e3550a2a6b06373bdab71efda50b() {
+ assertEval("argv <- list(structure(list(event = c('Min. : 1.00 ', '1st Qu.: 9.00 ', 'Median :18.00 ', 'Mean :14.74 ', '3rd Qu.:20.00 ', 'Max. :23.00 ', NA), mag = c('Min. :5.000 ', '1st Qu.:5.300 ', 'Median :6.100 ', 'Mean :6.084 ', '3rd Qu.:6.600 ', 'Max. :7.700 ', NA), station = c('117 : 5 ', '1028 : 4 ', '113 : 4 ', '112 : 3 ', '135 : 3 ', '(Other):147 ', 'NA's : 16 '), dist = c('Min. : 0.50 ', '1st Qu.: 11.32 ', 'Median : 23.40 ', 'Mean : 45.60 ', '3rd Qu.: 47.55 ', 'Max. :370.00 ', NA), accel = c('Min. :0.00300 ', '1st Qu.:0.04425 ', 'Median :0.11300 ', 'Mean :0.15422 ', '3rd Qu.:0.21925 ', 'Max. :0.81000 ', NA)), .Names = c('event', 'mag', 'station', 'dist', 'accel')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor13_6e172d4486c1d4b1ebdbf88990fea80b() {
+ assertEval("argv <- list(structure(list(`1` = 1.97626258336499e-323), .Names = '1'), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor14_cbcca9f80f4a7a82f0125ca89f1ab028() {
+ assertEval("argv <- list(structure(list(name = structure(c('McNeil', 'Ripley', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'AsIs'), title = structure(c('Interactive Data Analysis', 'Spatial Statistics', 'Stochastic Simulation', 'LISP-STAT', 'Exploratory Data Analysis', 'Modern Applied Statistics ...'), class = 'AsIs'), other.author = structure(c(NA, NA, NA, NA, NA, 'Ripley'), class = 'AsIs'), nationality = structure(c('Australia', 'UK', 'UK', 'US', 'US', 'Australia'), class = 'AsIs'), deceased = structure(c('no', 'no', 'no', 'no', 'yes', 'no'), class = 'AsIs')), .Names = c('name', 'title', 'other.author', 'nationality', 'deceased'), row.names = c('1', '2', '3', '4', '5', '6')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor15_c1bc23c40d6d56921ab2f902c93fa1ae() {
+ assertEval("argv <- list(structure(list(`1` = 8.91763605923317e+38), .Names = '1'), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor16_9098c50a1d8e9a99857bc8e6aa56814b() {
+ assertEval("argv <- list(structure(list(V1 = c(0.908207789994776, 0.62911404389888, 0.205974574899301), V2 = c(0.125555095961317, 0.86969084572047, 0.482080115471035), V3 = c(0.553036311641335, 0.7323137386702, 0.477619622135535), V4 = c(0.332394674187526, 0.0842469143681228, 0.339072937844321), V5 = c(0.325352151878178, 0.245488513959572, 0.239629415096715)), .Names = c('V1', 'V2', 'V3', 'V4', 'V5'), row.names = c(4L, 9L, 11L)), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor17_1d82f55cc4296469207e51563e99d021() {
+ assertEval("argv <- list(structure(list(V1 = c(0.497699242085218, 0.991906094830483), V2 = c(0.668466738192365, 0.107943625887856), V3 = c(0.0994661601725966, 0.518634263193235), V4 = c(0.892198335845023, 0.389989543473348), V5 = c(0.79730882588774, 0.410084082046524)), .Names = c('V1', 'V2', 'V3', 'V4', 'V5'), row.names = c(16L, 18L)), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor18_aaaf0dd5540e1378abc44a29d1b603b5() {
+ assertEval("argv <- list(list(structure(list(structure('rm', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('remove', Rd_tag = 'VERB')), Rd_tag = '\\alias')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor19_7cc4ac8e193ec3d3bbaf311d190aefb0() {
+ assertEval("argv <- list(list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('#ifdef', '\\Sexpr', 'build', 'install', 'render'))), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor2_704f71ef7f34671dd86d105a76a03456() {
+ assertEval("argv <- list(list(c(TRUE, FALSE, FALSE, FALSE, FALSE), c(TRUE, TRUE, TRUE, TRUE, NA)), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor20_b798a712b7d5e0e143b3010162eadf3e() {
+ assertEval("argv <- list(list(c(0.92317305817397+0i, 0.160449395256071+0.220125597679977i, 0.40353715410585+2.39063261466203i, -3.64092275386503+3.51619480964107i, -0.30877433127864+1.37503901638266i, -0.5590368753986+2.95994484328048i, 2.07117052177259-1.58552086053907i, 5.12796916272868+5.50114308371867i, 0.71791019962021-4.36295436036464i, 3.6182846955548+0.01693946731429i, 5.86560669896785+3.41674024963709i, 7.14153164455803+0i, 5.86560669896785-3.41674024963709i, 3.6182846955548-0.01693946731429i, 0.71791019962021+4.36295436036464i, 5.12796916272868-5.50114308371867i, 2.07117052177259+1.58552086053907i, -0.5590368753986-2.95994484328048i, -0.30877433127864-1.37503901638266i, -3.64092275386503-3.51619480964107i, 0.40353715410585-2.39063261466203i, 0.160449395256071-0.220125597679976i), c(0.994686860835215+0i, -0.711636086238366+0.034977366507257i, -3.47255638259391-3.00654729467177i, -1.61617641806619-2.52564108817258i, -1.83729841635945+1.24025696654912i, -0.05940773912914+1.99807537840182i, 2.14861624215501+1.14547234755584i, -0.18935885218927+5.11711397439959i, 3.55025883223277-3.01463113510177i, 0.37587194655463-4.62160286369829i, -0.57999032040714+3.57394816552023i, -3.22078701201057+0i, -0.57999032040714-3.57394816552023i, 0.37587194655463+4.62160286369829i, 3.55025883223277+3.01463113510177i, -0.18935885218927-5.11711397439959i, 2.14861624215501-1.14547234755584i, -0.05940773912914-1.99807537840182i, -1.83729841635945-1.24025696654912i, -1.61617641806619+2.52564108817258i, -3.47255638259391+3.00654729467177i, -0.711636086238366-0.034977366507256i), c(-0.376031201145236+0i, 0.36561036190112-2.94822783523588i, 2.53378536984825+1.14599403212998i, -0.59345500414631-1.46249091231517i, -5.47371957596241-2.40983118775265i, 0.994698295196402+0.827012883372647i, 4.88614691865207-0.66440097322583i, -1.22869446246947-1.85036568311679i, 4.54719422944744-1.7507307644741i, -1.25805718969215-0.46461775748286i, -6.6950163960079-1.32606545879492i, -1.8510470181104-0i, -6.6950163960079+1.32606545879492i, -1.25805718969215+0.46461775748286i, 4.54719422944744+1.7507307644741i, -1.22869446246947+1.85036568311679i, 4.88614691865207+0.66440097322583i, 0.994698295196402-0.827012883372647i, -5.47371957596241+2.40983118775265i, -0.59345500414631+1.46249091231517i, 2.53378536984825-1.14599403212998i, 0.36561036190112+2.94822783523588i), c(1.86949363581639+0i, 3.2510927680528+3.7297126359622i, 5.77117909703734-0.58113122596059i, -2.73489323319193-2.03739778844743i, 1.59256247378073-3.23882870600546i, -2.21652163259476+3.70287191787544i, -6.80966667821261-4.74346958471693i, -0.48551953206469-3.42445496113818i, -4.95350216815663-1.60107509096991i, -0.651322462114205+0.588393022429161i, 3.32067078328635+3.75999833207777i, -1.35013798358527+0i, 3.32067078328635-3.75999833207777i, -0.651322462114205-0.588393022429161i, -4.95350216815663+1.60107509096991i, -0.48551953206469+3.42445496113818i, -6.80966667821261+4.74346958471693i, -2.21652163259476-3.70287191787544i, 1.59256247378073+3.23882870600546i, -2.73489323319193+2.03739778844743i, 5.77117909703734+0.58113122596059i, 3.2510927680528-3.7297126359622i), c(-3.90806827793786+0i, -4.10078155861753-4.25996878161911i, -0.63461032994351-2.08074582601136i, -0.10593736514835-3.82022652091785i, 6.14817602783479+2.33657685886581i, 0.64431546852762-1.776774088028i, 3.43771282488202-3.00904523977379i, -3.6812061457129+3.53944567666635i, 3.07722382691467+4.5373840425762i, 3.3679046040028+7.20820407858926i, 7.47003475089893-0.4463480891006i, 13.9322715624418-0i, 7.47003475089893+0.4463480891006i, 3.3679046040028-7.20820407858926i, 3.07722382691467-4.5373840425762i, -3.6812061457129-3.53944567666635i, 3.43771282488202+3.00904523977379i, 0.64431546852762+1.776774088028i, 6.14817602783479-2.33657685886581i, -0.10593736514835+3.82022652091785i, -0.63461032994351+2.08074582601136i, -4.10078155861753+4.25996878161911i)), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor21_3afbb38616984e26266943404c131210() {
+ assertEval("argv <- list(structure(list(), .Names = character(0)), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor22_159e67ec14852a9a3690b970aecceb18() {
+ assertEval("argv <- list(structure(list(a = 'a', b = 2, c = 3.14159265358979+2i), .Names = c('a', 'b', 'c')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor23_ac38f19802468836f4005883b96a1525() {
+ assertEval("argv <- list(list(structure(list(surname = structure(2L, .Label = c('McNeil', 'R Core', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(NA_integer_, .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(NA_integer_, .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = 1L, class = 'data.frame'), structure(list(title = structure(1L, .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(2L, .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('title', 'other.author'), row.names = 1L, class = 'data.frame')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor25_562825b2f061ee0db050701aabe6e44a() {
+ assertEval("argv <- list(list(structure(list(structure(c('', '+ M.user', '+ Temp', '+ M.user:Temp'), class = 'AsIs')), row.names = c(NA, -4L), class = 'data.frame'), structure(list(c(NA, -1, -1, -1)), row.names = c(NA, -4L), class = 'data.frame'), structure(list(c(NA, 20.5814660332393, 3.80016287449608, 2.78794934284365)), row.names = c(NA, -4L), class = 'data.frame'), structure(list(c(11, 10, 9, 8)), row.names = c(NA, -4L), class = 'data.frame'), structure(list(c(32.825622681839, 12.2441566485997, 8.44399377410362, 5.65604443125997)), row.names = c(NA, -4L), class = 'data.frame'), structure(list(c(92.5235803967766, 73.9421143635373, 72.1419514890413, 71.3540021461976)), row.names = c(NA, -4L), class = 'data.frame')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor26_fd88fb80b8a7575ff3d5aa064219b6c8() {
+ assertEval("argv <- list(structure(list(`2005` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12')), .Names = ''), class = 'table'), `2006` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12')), .Names = ''), class = 'table'), `2007` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12')), .Names = ''), class = 'table'), `2008` = structure(c(31L, 29L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12')), .Names = ''), class = 'table'), `2009` = structure(1L, .Dim = 1L, .Dimnames = structure(list('01'), .Names = ''), class = 'table')), .Names = c('2005', '2006', '2007', '2008', '2009')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor27_46464897805d31f9af26346f8f3c2b3d() {
+ assertEval("argv <- list(structure('mtext(\'«Latin-1 accented chars»: éè øØ å<Å æ<Æ\', side = 3)\n', Rd_tag = 'RCODE'), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor28_d9a89f240020611a863ca072bc71c833() {
+ assertEval("argv <- list(structure(list(V1 = structure(c('head', '1', '3', '6'), class = 'AsIs'), V2 = structure(c('NA', ' 2', ' 4', ' 7'), class = 'AsIs'), V3 = structure(c('NA', 'NA', ' 5', ' 8'), class = 'AsIs'), V4 = structure(c('NA', 'NA', 'NA', ' 9'), class = 'AsIs')), .Names = c('V1', 'V2', 'V3', 'V4'), row.names = c('1', '2', '3', '4')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor29_46c11b5a9d7bb9bb992e67a05ed2b6ac() {
+ assertEval("argv <- list(structure(list(`1 sec` = 345600, `2 secs` = 172800, `5 secs` = 69120, `10 secs` = 34560, `15 secs` = 23040, `30 secs` = 11520, `1 min` = 5760, `2 mins` = 2880, `5 mins` = 1152, `10 mins` = 576, `15 mins` = 384, `30 mins` = 192, `1 hour` = 96, `3 hours` = 32, `6 hours` = 16, `12 hours` = 8, `1 DSTday` = 4, `2 DSTdays` = 2, `1 week` = 0.571428571428571, halfmonth = 0.262833675564682, `1 month` = 0.131416837782341, `3 months` = 0.0438056125941136, `6 months` = 0.0219028062970568, `1 year` = 0.0109514031485284, `2 years` = 0.0054757015742642, `5 years` = 0.00219028062970568, `10 years` = 0.00109514031485284, `20 years` = 0.00054757015742642, `50 years` = 0.000219028062970568, `100 years` = 0.000109514031485284, `200 years` = 5.4757015742642e-05, `500 years` = 2.19028062970568e-05, `1000 years` = 1.09514031485284e-05), .Names = c('1 sec', '2 secs', '5 secs', '10 secs', '15 secs', '30 secs', '1 min', '2 mins', '5 mins', '10 mins', '15 mins', '30 mins', '1 hour', '3 hours', '6 hours', '12 hours', '1 DSTday', '2 DSTdays', '1 week', 'halfmonth', '1 month', '3 months', '6 months', '1 year', '2 years', '5 years', '10 years', '20 years', '50 years', '100 years', '200 years', '500 years', '1000 years')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor3_d8292e70762644e8793b001f9b4c18db() {
+ assertEval("argv <- list(structure(list(a = 6:10), .Names = 'a', row.names = 6:10), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor4_21fc784e9c177b5f9e48207f9bf7cc10() {
+ assertEval("argv <- list(structure(list(k = 0.413311097189709, g1 = 72.8306629700373, g2 = 181.793153976139), .Names = c('k', 'g1', 'g2')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor5_5a22ee1dde97af09d6cbd8e4a4b68dff() {
+ assertEval("argv <- list(list(structure(list(structure('text', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('text.default', Rd_tag = 'VERB')), Rd_tag = '\\alias')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor6_ddd1b417b71ccb33b951f1fc1f03cfe5() {
+ assertEval("argv <- list(list(structure(list(surname = structure(c(4L, 5L, 3L, 2L, 2L, 1L, 6L), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables', 'R Core'), class = 'factor'), nationality = structure(c(3L, 1L, 3L, 2L, 2L, 1L, NA), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(2L, 1L, 1L, 1L, 1L, 1L, NA), .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = c('1', '2', '3', '4', '4.1', '5', '7'), class = 'data.frame'), structure(list(title = structure(c(2L, 5L, 4L, 6L, 7L, 3L, 1L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, 1L, NA, NA, NA, NA, 2L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('title', 'other.author'), row.names = c(NA, 7L), class = 'data.frame')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor7_76122c593e5959d5f57a314601361b65() {
+ assertEval("argv <- list(list(c(' The binary arithmetic operators are generic functions: methods can', ' be written for them individually or via the ‘Ops’ group generic', ' function. (See ‘Ops’ for how dispatch is computed.)')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor8_63def84a0ffa79732d4fad9d531278f4() {
+ assertEval("argv <- list(list(structure(list(structure(1:4, .Label = c('0', '1', '2', '3'), class = 'factor')), row.names = c(NA, -4L), class = 'data.frame')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinislistfactor_testislistfactor9_4c59dc0a1fca5a3e86054aadedcf83e2() {
+ assertEval("argv <- list(structure(list(`1` = c(2, 1, 4, 3), `2` = c(3, 1.5, 5, 4, 1.5), `3` = c(6.5, 1.5, 9, 8, 1.5, 6.5, 4, 4, 4), `4` = c(7, 1.5, 10, 9, 1.5, 7, 4, 4, 4, 7)), .Dim = 4L, .Dimnames = list(c('1', '2', '3', '4'))), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinismatrix_testismatrix10_428a871e7486fabd6efea3517f4faabd() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(25L, 0L)));is.matrix(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinismatrix_testismatrix12_d839da23e106b1d13ce276fb8f6ff95a() {
+ assertEval("argv <- list(structure(c(-15.8396536770559, 0.267020886067525, -10.0516337591148, 7.62751967585832), .Dim = c(2L, 2L), .Dimnames = list(c('1', '3'), c('(Intercept)', 'TempLow'))));is.matrix(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinismatrix_testismatrix15_edf48bcf82ea762e0e47caa10376d305() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 56.989995924654, 56.989995924654, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 109.608811230383, 109.608811230383, 109.608811230383, 107.478028232287, 107.478028232287, 107.478028232287, 107.478028232287, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 10.7055301785859, 0, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 0.914597467778369, 0.914597467778369, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.599195286063472, 0.599195286063472, 0.599195286063472, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0202635232425103, 2.60032456603692e-08, 0, 0, 0, 0, 0, 0.165626203544259, 0.165626203544259, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.503396799290371, 0.503396799290371, 0.503396799290371, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.984387422945875, 0.999999996451695), .Dim = c(52L, 3L)));is.matrix(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinismatrix_testismatrix18_d27ad38b99b90b4a67f9813c51dc5f4c() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(10L, 0L)));is.matrix(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinismatrix_testismatrix2_24d3c1c015000b8897c2e601ecd8d5f1() {
+ assertEval("argv <- list(structure(list(surname = structure(2L, .Label = c('McNeil', 'R Core', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(NA_integer_, .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(NA_integer_, .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = 1L, class = 'data.frame'));is.matrix(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinismatrix_testismatrix20_bc38e9365b2ae9a4709c6c8a7d689541() {
+ assertEval("argv <- list(structure(c(-15.7116658409483, 0.267197739695975, -7.51681521806951, 7.8485143735526), .Dim = c(2L, 2L), .Dimnames = list(c('1', '3'), c('(Intercept)', 'M.userY'))));is.matrix(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinismatrix_testismatrix21_d782f152367a94a7a20c42835cce749d() {
+ assertEval("argv <- list(structure(c(NA, NA, NA, NA), .Dim = c(1L, 4L), .Dimnames = list('x', c('Estimate', 'Std. Error', 't value', 'Pr(>|t|)'))));is.matrix(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinismatrix_testismatrix8_e30de8ecc4d15b5ed1fa78ead2350a64() {
+ assertEval("argv <- list(structure(c(1.46658790096676e-05, -0.00015671726259936, -4.04552045434325e-05, 0.00255024941225984, -0.00162786181391528, 8.23090637551149e-05, -0.00015671726259936, 3.72287793770631e-05, 0.000886372801540247, -0.0567316142279179, 0.0349990628241952, -0.00175223081612341, -4.04552045434325e-05, 0.000886372801540247, 2.56091878967357e-05, -0.000729189497559513, -0.000975857105361189, 4.86109322531125e-05, 0.00255024941225984, -0.0567316142279179, -0.000729189497559513, 0.000230331183246113, 0.0612339887096517, -0.00297447704687248, -0.00162786181391528, 0.0349990628241952, -0.000975857105361189, 0.0612339887096517, -1.91064691608123e-05, -0.000246257006748074, 8.23090637551149e-05, -0.00175223081612341, 4.86109322531125e-05, -0.00297447704687248, -0.000246257006748074, 2.51870808007926e-05), .Dim = c(6L, 6L), .Dimnames = list(c('v1', 'v2', 'v3', 'v4', 'v5', 'v6'), c('v1', 'v2', 'v3', 'v4', 'v5', 'v6'))));is.matrix(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna10_1408809efbe7a7f813755b6174502419() {
+ assertEval("argv <- list(structure(TRUE, .Names = NA_character_));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna13_1a5ea677fcf7838e65232d60dc685a93() {
+ assertEval("argv <- list(structure(list(VAR1 = c(1, 2, 3, 4, 5), VAR3 = c(1, 1, 1, 1, NA)), .Names = c('VAR1', 'VAR3'), class = 'data.frame', row.names = c(NA, -5L)));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna15_08a187241e684f3f72938ec3f81b57ab() {
+ assertEval("argv <- list(structure('graphics', .Names = 'plot'));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna16_4d6d28463f55138b166017be10b6602a() {
+ assertEval("argv <- list(structure(c(1.47191076131574, 0.586694550701453, NA, 0.258706725324317), .Names = c('(Intercept)', 'x1', 'x2', 'x3')));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna17_8c1746cfb2d6dd44e9e941f70b7fcaf0() {
+ assertEval("argv <- list(structure(0.0129709025545593, .Names = 'value'));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna19_f4d7f6f33831f931ea01d2bc102803bd() {
+ assertEval("argv <- list(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna2_1e158b5c0273c887f2af4bbabe23701c() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 0, 10, NA), .Dim = c(3L, 2L)));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna20_7e7410bf8b5627962fcc4d0622a5bd04() {
+ assertEval("argv <- list(structure(list(conc = c(NA, 1.4, NA, NA, NA, NA, NA, NA, 2.2, NA, NA, 0.6)), .Names = 'conc', row.names = 407:418, class = 'data.frame'));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna22_6c1b4ce8bdd54c4a96e9f37d9387551a() {
+ assertEval("argv <- list(c(-Inf, 2.17292368994844e-311, 4.34584737989688e-311, 8.69169475979376e-311, 1.73833895195875e-310, 3.4766779039175e-310, 6.953355807835e-310, 1.390671161567e-309, 2.781342323134e-309, 5.562684646268e-309, 1.1125369292536e-308, 2.2250738585072e-308, 4.4501477170144e-308, 8.90029543402881e-308, 1.78005908680576e-307, 2.2250738585072e-303, 2.2250738585072e-298, 1.79769313486232e+298, 1.79769313486232e+303, 2.24711641857789e+307, 4.49423283715579e+307, 8.98846567431158e+307, 1.79769313486232e+308, Inf, Inf, NaN, NA));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna23_41b3186fdac0bca647f163b1e86b8e2e() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 105L, wday = 6L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna24_0a2422ef574162a9ab887775f3975750() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna25_e0ae32baaa99ed736ec6689db23bd043() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 60L, wday = 5L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna26_2a434b0ada52407a9e835d2698ae4088() {
+ assertEval("argv <- list(structure(list(conc = c(NA, NA, NA, NA, NA, NA, NA, 1.4, NA, NA, NA, NA, NA, NA, NA, 3)), .Names = 'conc', row.names = c(NA, 16L), class = 'data.frame'));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna27_d72c37b302b3b55042b674e1c541e194() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna28_84b0514d3ad0bdabdceba5bbfdd9ed99() {
+ assertEval("argv <- list(structure(list(conc = c(NA, 3.6)), .Names = 'conc', row.names = 419:420, class = 'data.frame'));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna29_9d0f053684ba87cbe5eb248372acea93() {
+ assertEval("argv <- list(NULL);is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna3_3a76894b87301cd131b3ccc6beb02b8a() {
+ assertEval("argv <- list(structure(c(17L, 18L, 18L, 18L), .Dim = 4L, .Dimnames = structure(list(N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = 'N')));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna30_02682b27be50ef5425c8edd7a6bd73ea() {
+ assertEval("argv <- list(structure(list(sec = NA_real_, min = NA_integer_, hour = NA_integer_, mday = NA_integer_, mon = NA_integer_, year = NA_integer_, wday = NA_integer_, yday = NA_integer_, isdst = -1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna31_fe88c79430b0b7872af42d872546cd8d() {
+ assertEval("argv <- list(structure(c('R (>= 2.10.0), methods, DBI (>= 0.2-5)', 'methods, DBI (>= 0.2-3)', NA), .Names = c('Depends', 'Imports', 'LinkingTo')));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna32_20c3552db16069719f196255548a41c8() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 12L, mon = 2L, year = 112L, wday = 1L, yday = 71L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna33_3368e9fdee86508475174b85f9fcb4fc() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(8L, 5L)));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna34_e26dee73698813118118fe9b6a849231() {
+ assertEval("argv <- list(structure(c('Min. : 1.00 ', '1st Qu.: 9.00 ', 'Median :18.00 ', 'Mean :14.74 ', '3rd Qu.:20.00 ', 'Max. :23.00 ', NA, 'Min. :5.000 ', '1st Qu.:5.300 ', 'Median :6.100 ', 'Mean :6.084 ', '3rd Qu.:6.600 ', 'Max. :7.700 ', NA, '117 : 5 ', '1028 : 4 ', '113 : 4 ', '112 : 3 ', '135 : 3 ', '(Other):147 ', 'NA's : 16 ', 'Min. : 0.50 ', '1st Qu.: 11.32 ', 'Median : 23.40 ', 'Mean : 45.60 ', '3rd Qu.: 47.55 ', 'Max. :370.00 ', NA, 'Min. :0.00300 ', '1st Qu.:0.04425 ', 'Median :0.11300 ', 'Mean :0.15422 ', '3rd Qu.:0.21925 ', 'Max. :0.81000 ', NA), .Dim = c(7L, 5L), .Dimnames = list(c('', '', '', '', '', '', ''), c(' event', ' mag', ' station', ' dist', ' accel')), class = 'table'));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna35_3a958646dfd6addce10492f5e23b6947() {
+ assertEval("argv <- list(NA_complex_);is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna36_6f95a351890ed461e95ef71d6360b137() {
+ assertEval("argv <- list(complex(0));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna37_1dee0e5e27f42092b55314e66ddc2e5c() {
+ assertEval("argv <- list(structure(list(sec = 40, min = 24L, hour = 11L, mday = 15L, mon = 11L, year = 100L, wday = 5L, yday = 349L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt')));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna38_2357f4b62dba8861119a17a95e31748f() {
+ assertEval("argv <- list(structure(c(2L, 6L, 2L, 5L, 4L, 2L, 5L, 4L), .Dim = 8L, .Dimnames = structure(list(statef = c('act', 'nsw', 'nt', 'qld', 'sa', 'tas', 'vic', 'wa')), .Names = 'statef'), class = 'table'));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna39_9f8a962233b053dc539d9519852d5b05() {
+ assertEval("argv <- list(structure(c(2, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 0), .Dim = 3:4, .Dimnames = structure(list(x1 = c('a', 'b', 'c'), x2 = c('a', 'b', 'c', NA)), .Names = c('x1', 'x2')), class = c('xtabs', 'table')));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna4_e67de1263aa17ec0a862b5061ae8201b() {
+ assertEval("argv <- list(structure(0:100, .Tsp = c(1, 101, 1), class = 'ts'));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna43_086ff06b1c65751ad82bab53679fdedf() {
+ assertEval("argv <- list(structure(c(-3.001e+155, -1.067e+107, -1.976e+62, -9.961e+152, -2.059e+23, 0.5104), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), class = c('summaryDefault', 'table')));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna44_9f4ecab2273d91a954b8f023ab2c59f2() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 70L, wday = 4L, yday = 0L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = 'GMT'));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna45_a6a4c956b4218eaa37939fac1a5ec3d9() {
+ assertEval("argv <- list(119:120);is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna7_384496152a4a590ca86a7655b5c6aca2() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 9L, mon = 9L, year = 103L, wday = 4L, yday = 281L, isdst = 1L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt')));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisna_testisna8_f36aa043bdbd7d62cb9a7b6fbdff82cf() {
+ assertEval("argv <- list(structure(c(23L, 24L, 47L, 48L, 71L, 72L, 95L, 96L, 119L, 120L), .Dim = c(2L, 5L), .Dimnames = list(NULL, c('V5', 'V6', 'V7', 'V8', 'V9'))));is.na(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisnan_testisnan1_f1f605a8362425117d7d0f088f6b419d() {
+ assertEval("argv <- list(NA);is.nan(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisnan_testisnan10_ac1aae3fc8a6bffc4887ffa94dba3a5d() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1), .Dim = 1:3));is.nan(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisnan_testisnan2_590632285048b0eb0ad330c5d0abf1a6() {
+ assertEval("argv <- list(structure(1:7, .Names = c('a1', 'a2', 'a3', 'a4', 'a5', 'a6', 'a7')));is.nan(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisnan_testisnan3_f4ed9ecd1bdabc11bbaa46c6fe47cac0() {
+ assertEval("argv <- list(1:3);is.nan(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisnan_testisnan4_da2b4392fba4e3a55021d23db0c7a264() {
+ assertEval("argv <- list(structure(NaN, .Dim = c(1L, 1L)));is.nan(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisnan_testisnan5_e40af0b6987cdff5f008d12ff177b849() {
+ assertEval("argv <- list(3.14159265358979);is.nan(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisnan_testisnan6_259e9ea42382ad8e6e3ebb8978d2ec67() {
+ assertEval("argv <- list(NULL);is.nan(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisnan_testisnan7_09d8b88da3658280c474240252fce4e6() {
+ assertEval("argv <- list(structure(1:3, .Dim = c(3L, 1L)));is.nan(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisnan_testisnan9_2b940567bf3f4e734a1a778e1edea354() {
+ assertEval("argv <- list(c(-Inf, 2.17292368994844e-311, 4.34584737989688e-311, 8.69169475979376e-311, 1.73833895195875e-310, 3.4766779039175e-310, 6.953355807835e-310, 1.390671161567e-309, 2.781342323134e-309, 5.562684646268e-309, 1.1125369292536e-308, 2.2250738585072e-308, 4.4501477170144e-308, 8.90029543402881e-308, 1.78005908680576e-307, 2.2250738585072e-303, 2.2250738585072e-298, 1.79769313486232e+298, 1.79769313486232e+303, 2.24711641857789e+307, 4.49423283715579e+307, 8.98846567431158e+307, 1.79769313486232e+308, Inf, Inf, NaN, NA));is.nan(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisnumeric_testisnumeric13_868f8d2fea575e42581615cece943f06() {
+ assertEval("argv <- list(structure(c(39.7, 27.7, 43.5, 89.7, 70.2, 63.5, 36.5, 15.2, 35.3, 45.2, 1.2, 49.5, 63.1, 34, 17, 17.6, 67.8, 45.1, 50.9, 64.9, 59.8, 73, 37.6, 60.7, 60.8, 69.3, 71.2, 64.5, 75.9, 7.7, 72.6, 18.7, 78.2, 55.1, 58.1, 62, 53.3, 85.9, 67.5, 16.7, 46.6, 84.9, 19.4, 38.4, 5, 22, 17, 5, 16, 6, 12, 31, 9, 16, 37, 15, 13, 17, 15, 35, 14, 6, 22, 7, 22, 19, 15, 19, 16, 22, 12, 14, 9, 29, 18, 25, 12, 14, 14, 21, 12, 3, 14, 22, 16, 7, 26, 26, 5, 29, 15, 2, 7, 3, 7, 20, 7, 13, 53, 8, 13, 8, 12, 32, 8, 9, 12, 3, 10, 9, 7, 12, 10, 5, 1, 6, 9, 11, 2, 7, 6, 3, 8, 12, 7, 2, 7, 13, 29, 6, 28, 12, 93.4, 58.33, 5.16, 100, 92.85, 2.56, 33.77, 2.15, 90.57, 91.38, 42.34, 6.1, 96.83, 3.3, 9.96, 16.92, 97.16, 84.84, 15.14, 98.22, 5.23, 2.84, 4.97, 4.43, 7.72, 2.82, 2.4, 98.61, 99.06, 13.79, 24.2, 8.65, 98.96, 4.52, 5.23, 8.52, 97.67, 99.71, 2.27, 11.22, 50.43, 99.68, 12.11, 5.62, 20.2, 19.3, 20.6, 18.3, 23.6, 18, 20.3, 10.8, 26.6, 24.4, 18, 22.5, 18.1, 20, 22.2, 23, 24.9, 22.2, 16.7, 20.2, 18, 20, 20, 22.7, 16.3, 18.7, 21, 24.5, 17.8, 20.5, 21.2, 19.5, 19.4, 22.4, 23.8, 16.5, 21, 15.1, 19.1, 18.9, 18.2, 19.8, 20.2, 20.3), .Dim = c(44L, 5L), .Dimnames = list(c('Franches-Mnt', 'Rive Gauche', 'Neuveville', 'Herens', 'Broye', 'Paysd'enhaut', 'Moutier', 'La Vallee', 'Porrentruy', 'Sarine', 'V. De Geneve', 'Yverdon', 'Sion', 'Grandson', 'Courtelary', 'Neuchatel', 'Glane', 'Delemont', 'Nyone', 'Monthey', 'Morges', 'Lavaux', 'Val de Ruz', 'Avenches', 'Rolle', 'Cossonay', 'Oron', 'Veveyse', 'St Maurice', 'La Chauxdfnd', 'Echallens', 'ValdeTravers', 'Martigwy', 'Moudon', 'Payerne', 'Aigle', 'Gruyere', 'Conthey', 'Aubonne', 'Le Locle', 'Rive Droite', 'Entremont', 'Lausanne', 'Boudry'), c('Agriculture', 'Examination', 'Education', 'Catholic', 'Infant.Mortality'))));is.numeric(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisnumeric_testisnumeric14_0d4c589b64aa0937df11da7a713fe795() {
+ assertEval("argv <- list(structure(c(1386439154.20645, 1386469154.20645, 1386499154.20645, 1386529154.20645, 1386559154.20645, 1386589154.20645, 1386619154.20645, 1386649154.20645, 1386679154.20645, 1386709154.20645, 1386739154.20645, 1386769154.20645, 1386799154.20645, 1386829154.20645, 1386859154.20645, 1386889154.20645, 1386919154.20645, 1386949154.20645, 1386979154.20645, 1387009154.20645, 1387039154.20645, 1387069154.20645, 1387099154.20645, 1387129154.20645, 1387159154.20645, 1387189154.20645, 1387219154.20645, 1387249154.20645, 1387279154.20645, 1387309154.20645, 1387339154.20645, 1387369154.20645, 1387399154.20645, 1387429154.20645), class = c('POSIXct', 'POSIXt')));is.numeric(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisnumeric_testisnumeric2_65df4b81dfebff773417ef0966f2eb24() {
+ assertEval("argv <- list(structure(c(12784, 12874, 12965, 13057, 13149, 13239, 13330, 13422, 13514, 13604, 13695, 13787, 13879, 13970, 14061, 14153, 14245, 14335), class = 'Date'));is.numeric(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisnumeric_testisnumeric21_6162f05d2d6b02de4d99d1614956adba() {
+ assertEval("argv <- list(structure(16146, class = 'Date'));is.numeric(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisnumeric_testisnumeric8_fceea99a30ce4a375543349c0ed02a20() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('1', '2', '3', '4'), class = 'factor'));is.numeric(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinispairlist_testispairlist12_0422756eea495f21f2ba7f144d6978b5() {
+ assertEval("argv <- list(structure(list(f = structure(c(1L, 1L, 1L), .Label = c('1', '2'), class = 'factor'), u = structure(12:14, unit = 'kg', class = 'avector')), .Names = c('f', 'u'), row.names = 2:4, class = 'data.frame'));is.pairlist(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisrecursive_testisrecursive1_ceceb25a2b5f4d00268083c33a86bed2() {
+ assertEval("argv <- list(c(1, 5.75, 10.5, 15.25, 20));is.recursive(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisrecursive_testisrecursive10_a200939ef5f5f086629c17fdc1f11737() {
+ assertEval("argv <- list(logical(0));is.recursive(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisrecursive_testisrecursive11_130e194f558037f211bc6c15fc34709d() {
+ assertEval("argv <- list(structure(list(Df = c(1L, 7L), `Sum Sq` = c(158.407612694902, 204.202165082876), `Mean Sq` = c(158.407612694902, 29.1717378689823), `F value` = c(5.43017400630538, NA), `Pr(>F)` = c(0.052592726218915, NA)), .Names = c('Df', 'Sum Sq', 'Mean Sq', 'F value', 'Pr(>F)'), row.names = c('depression', 'Residuals'), class = c('anova', 'data.frame'), heading = c('Analysis of Variance Table\n', 'Response: weight')));is.recursive(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisrecursive_testisrecursive2_83b9d081114612fdffc759c577e32f01() {
+ assertEval("argv <- list(structure(c(1+0i, 5+0i, 9+0i, 13+0i, 17+0i, 21+0i, 2+0i, 6+0i, 10+0i, 14+0i, 18+0i, 22+0i, 3+0i, 7+0i, 11+0i, 15+0i, 19+0i, 23+0i, 4+0i, 8+0i, 12+0i, 16+0i, 20+0i, 24+0i), .Dim = c(6L, 4L)));is.recursive(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisrecursive_testisrecursive3_a28b54d2c0c3431da2adb0b94ddebf21() {
+ assertEval("argv <- list(structure(list(var = structure(c(2L, 5L, 1L, 1L, 4L, 5L, 5L, 1L, 3L, 1L, 1L, 2L, 1L, 6L, 1L, 1L, 1L), .Label = c('<leaf>', 'hs.grad', 'illiteracy', 'murder', 'population', 'region'), class = 'factor'), n = c(50L, 10L, 7L, 3L, 40L, 32L, 13L, 3L, 10L, 6L, 4L, 19L, 4L, 15L, 11L, 4L, 8L), wt = c(50, 10, 7, 3, 40, 32, 13, 3, 10, 6, 4, 19, 4, 15, 11, 4, 8), dev = c(18501092, 668812.4, 269049.714285714, 40824, 9908099.1, 5718045.5, 2592172, 97824.6666666667, 1337366.4, 249796.833333333, 155810.75, 2105534.63157895, 276864.75, 1264031.6, 209138.181818182, 224618.75, 2526229.5), yval = c(4435.8, 3639.6, 3515.57142857143, 3929, 4634.85, 4532.875, 4317, 3772.33333333333, 4480.4, 4231.16666666667, 4854.25, 4680.57894736842, 4346.75, 4769.6, 4627.72727272727, 5159.75, 5042.75), complexity = c(0.42830879928601, 0.0194009459395308, 0.01, 0.01, 0.089931129470628, 0.0588430078006851, 0.0588430078006851, 0.01, 0.050362368700543, 0.01, 0.01, 0.0376981247853036, 0.01, 0.0376981247853036, 0.00682341562063013, 0.01, 0.01), ncompete = c(4L, 3L, 0L, 0L, 4L, 4L, 4L, 0L, 4L, 0L, 0L, 4L, 0L, 4L, 0L, 0L, 0L), nsurrogate = c(3L, 0L, 0L, 0L, 2L, 4L, 0L, 0L, 4L, 0L, 0L, 2L, 0L, 3L, 0L, 0L, 0L)), .Names = c('var', 'n', 'wt', 'dev', 'yval', 'complexity', 'ncompete', 'nsurrogate'), row.names = c(1L, 2L, 4L, 5L, 3L, 6L, 12L, 24L, 25L, 50L, 51L, 13L, 26L, 27L, 54L, 55L, 7L), class = 'data.frame'));is.recursive(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisrecursive_testisrecursive4_4c8716f64b0f85a54b37b4467186a764() {
+ assertEval("argv <- list(structure(c(0, 0.693147180559945, 1.09861228866811, 1.38629436111989, 1.6094379124341, 1.79175946922805, 1.94591014905531, 2.07944154167984, 2.19722457733622, 2.30258509299405, 2.39789527279837, 2.484906649788, 2.56494935746154, 2.63905732961526, 2.70805020110221, 2.77258872223978, 2.83321334405622, 2.89037175789616, 2.94443897916644, 2.99573227355399, 3.04452243772342, 3.09104245335832, 3.13549421592915, 3.17805383034795, 3.2188758248682, 3.25809653802148, 3.29583686600433, 3.3322045101752, 3.36729582998647, 3.40119738166216, 3.43398720448515, 3.46573590279973, 3.49650756146648, 3.52636052461616, 3.55534806148941, 3.58351893845611, 3.61091791264422, 3.63758615972639, 3.66356164612965, 3.68887945411394, 3.71357206670431, 3.73766961828337, 3.76120011569356, 3.78418963391826, 3.80666248977032, 3.8286413964891, 3.85014760171006, 3.87120101090789, 3.89182029811063, 3.91202300542815, 3.93182563272433, 3.95124371858143, 3.97029191355212, 3.98898404656427, 4.00733318523247, 4.02535169073515, 4.04305126783455, 4.06044301054642, 4.07753744390572, 4.0943445622221, 4.11087386417331, 4.12713438504509, 4.14313472639153, 4.15888308335967, 4.17438726989564, 4.18965474202643, 4.20469261939097, 4.21950770517611, 4.23410650459726, 4.24849524204936, 4.26267987704132, 4.27666611901606, 4.29045944114839, 4.30406509320417, 4.31748811353631, 4.33073334028633, 4.34380542185368, 4.35670882668959, 4.36944785246702, 4.38202663467388, 4.39444915467244, 4.40671924726425, 4.4188406077966, 4.43081679884331, 4.44265125649032, 4.45434729625351, 4.46590811865458, 4.47733681447821, 4.48863636973214, 4.49980967033027, 4.51085950651685, 4.52178857704904, 4.53259949315326, 4.54329478227, 4.55387689160054, 4.56434819146784, 4.57471097850338, 4.58496747867057, 4.59511985013459, 4.60517018598809), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')));is.recursive(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisrecursive_testisrecursive5_45a0f6fc8fcf695b5db31fba069d467f() {
+ assertEval("argv <- list(c(4.2946094590101+0i, -3.25699475013756-2.24807847868298i, -7.95013358893225-2.01799537233252i, -3.67333331331688+0.2922506370947i, 10.1942090590333+0.2633318847587i, -3.52243716497356+3.01559327870726i, 0.840489557961749+0.760755891710788i, 0.34614657901946+3.92303947429563i, 1.25203951718932-0.04113309513059i, 1.25203951718932+0.04113309513059i, 0.34614657901946-3.92303947429563i, 0.840489557961749-0.760755891710788i, -3.52243716497356-3.01559327870726i, 10.1942090590333-0.2633318847587i, -3.67333331331688-0.2922506370947i, -7.95013358893225+2.01799537233252i, -3.25699475013756+2.24807847868298i));is.recursive(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisrecursive_testisrecursive6_78561e332bf37da54600cc99f68614cf() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('age', 'eet', 'g2', 'grade', 'gleason', 'ploidy')));is.recursive(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisrecursive_testisrecursive7_9070190af699638cfd2bad437fcfb511() {
+ assertEval("argv <- list(structure(list(var = structure(c(2L, 1L, 1L), .Label = c('<leaf>', 'Start'), class = 'factor'), n = c(81L, 62L, 19L), wt = c(81, 62, 19), dev = c(24.3, 8.57647058823529, 14.175), yval = c(1, 1, 2), complexity = c(0.0637254901960785, 0, 1e-15), ncompete = c(2L, 0L, 0L), nsurrogate = c(0L, 0L, 0L), yval2 = structure(c(1, 1, 2, 64, 56, 8, 17, 6, 11, 0.7, 0.852610030706244, 0.310704960835509, 0.3, 0.147389969293756, 0.689295039164491, 0.999999999999999, 0.718382352941176, 0.281617647058824), .Dim = c(3L, 6L), .Dimnames = list(NULL, c('', '', '', '', '', 'nodeprob')))), .Names = c('var', 'n', 'wt', 'dev', 'yval', 'complexity', 'ncompete', 'nsurrogate', 'yval2'), row.names = c(NA, 3L), class = 'data.frame'));is.recursive(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisrecursive_testisrecursive8_297a38e888dbb102becc25b3e0250e04() {
+ assertEval("argv <- list(1e+09);is.recursive(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisrecursive_testisrecursive9_6fae02b30f2dbc270e746b4dbe76a694() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));is.recursive(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisunsorted_testisunsorted1_c3485d6926cdf5fc4d281e28e1379264() {
+ assertEval("argv <- list(c(1L, 2L, 4L), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisunsorted_testisunsorted2_79ed5403651526c7d5283a519f3b7a30() {
+ assertEval("argv <- list(c(10.7041467781967, 11.5754756379084, 12.524991240374, 13.5975143137056, 14.4688431734172, 15.4183587758829, 16.4908818492144, 17.7566218541999, 19.1425780866377, 20.5285343190754, 22.0685075746448, 23.9825281292691, 26.4455166737415, 29.7592803351446, 34.4380365011698, 41.4254228764895, 44.7391865378926, 49.4179427039178, 56.4053290792375), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisunsorted_testisunsorted3_cfb0d49ba707d9da2e3c4f469dfa200f() {
+ assertEval("argv <- list(c(-19, -12.21, -7.07, -6.14, -4.56, -4.09, -3.8, -2.22, -1.97, -1.95, -1.83, -1.82, -1.77, -1.56, -1.48, -1.42, -1.19, -1.12, -1.09, -1.04, -0.96, -0.89, -0.87, -0.87, -0.78, -0.77, -0.77, -0.74, -0.71, -0.63, -0.61, -0.59, -0.54, -0.51, -0.5, -0.5, -0.44, -0.4, -0.4, -0.37, -0.33, -0.28, -0.21, -0.2, -0.16, -0.16, -0.12, -0.1, -0.05, -0.01, -0.01, 0.04, 0.11, 0.13, 0.14, 0.15, 0.15, 0.25, 0.25, 0.26, 0.34, 0.42, 0.44, 0.46, 0.48, 0.48, 0.49, 0.49, 0.51, 0.57, 0.58, 0.64, 0.66, 0.7, 0.74, 0.8, 0.83, 0.94, 0.94, 1.02, 1.09, 1.12, 1.15, 1.18, 1.19, 1.63, 1.86, 1.92, 2.11, 2.17, 2.21, 2.22, 2.25, 2.64, 2.75, 4.18, 4.6, 5.74, 22.42, 44.32), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisunsorted_testisunsorted4_f750d9183d0a3c9b4d2449f9c925b563() {
+ assertEval("argv <- list(c('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z'), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisunsorted_testisunsorted5_8f45d461532eee2e3e72ea7a7abc20e7() {
+ assertEval("argv <- list(c(8, 6, 9, 4, 3, 7, 1, 5, 2), TRUE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisunsorted_testisunsorted6_94a63ef33eb40aae5b9ad33116c2fc19() {
+ assertEval("argv <- list(c(1, 2, 3, 2), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisunsorted_testisunsorted7_40e5a970eb27718fdd45159ea51d915e() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisunsorted_testisunsorted8_11ae4c3220969aa40b1c466715158380() {
+ assertEval("argv <- list(c(2L, 1L, 0L, 3L), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisunsorted_testisunsorted9_a5df55a2234e73b32b8841cab83ecafb() {
+ assertEval("argv <- list(c(1L, 3L, 2L, 4L), TRUE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector1_42c54d30e5634b6fd8d6f93a3ccfc735() {
+ assertEval("argv <- list(list(structure(0, class = c('POSIXct', 'POSIXt'), tzone = 'GMT'), 1262304000), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector10_2b88f7577de5a7671397e0a86f036aba() {
+ assertEval("argv <- list(structure(list(`1` = c(0, 0, 0, 0, 0, 0, 2.96439387504748e-323, 0, 0, 0, 0, 0)), .Names = '1'), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector11_697b68c3c4eaea023ea003847f542380() {
+ assertEval("argv <- list(list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/methods/R/methods', '/home/lzhao/hg/r-instrumented/library/methods/R/methods'), frow = c(6030L, 6032L), lrow = c(6031L, 6063L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'), structure(list(srcfile = '/home/lzhao/hg/r-instrumented/library/methods/R/methods', frow = 6036L, lrow = 6055L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector12_ff1c9811d9d08f6118fd36a26895eb4a() {
+ assertEval("argv <- list(structure(list(B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c('I', 'II', 'III', 'IV', 'V', 'VI'), class = 'factor'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c('Golden.rain', 'Marvellous', 'Victory'), class = 'factor'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt'), class = 'factor')), .Names = c('B', 'V', 'N'), class = 'data.frame', row.names = 2:72), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector13_3c7ac081ff7fffe6badfb6cb2413d826() {
+ assertEval("argv <- list(list('‘FUN’ is found by a call to ‘match.fun’ and typically is specified as a function or a symbol (e.g. a backquoted name) or a character string specifying a function to be searched for from the environment of the call to ‘lapply’.'), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector14_7ff0f762532c06903c827be7e30beee8() {
+ assertEval("argv <- list(list(c(35, 232, 232, 355, 1041, 1510, 1525, 1548, 1560, 1560, 1563, 1641, 1648, 1652, 1654, 1654, 1690, 1690, 1710, 1710, 1710, 1710, 1779, 1779, 1779, 1779, 1787, 1804, 1812, 1836, 1854, 1864, 1899, 1919, 1920, 1958, 1963, 2007, 2011, 2024, 2024, 2024, 2028, 2061, 2061, 2061, 2062, 2062, 2075, 2085, 2103, 2156, 2227, 2264, 2339, 2339, 2361, 2361, 2387, 2387, 2388, 2426, 2431, 2460, 2493, 2493, 2542, 2559, 2559, 2570, 2676, 2738, 2782, 2984, 3067, 3144, 3154, 3199, 3228, 3297, 3328, 3328, 3330, 3383, 3384, 3384, 3402, 3402, 3441, 3458, 3459, 3459, 3476, 3476, 3695, 3695, 3776, 3776, 3776, 3830, 3856, 3909, 3909, 3968, 3968, 4001, 4119, 4124, 4207, 4207, 4310, 4390, 4479, 4479, 4688), c(0, 0, 0, 0, -1, 0, 0, -1, -1, -1, 0, 0, 0, 0, 0, 0, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector15_2da6838d8ffd988056b23c8f4bcb8b88() {
+ assertEval("argv <- list(structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector16_e03614b44d7f8704c727cfbfffebc1db() {
+ assertEval("argv <- list(structure(list(row.names = character(0), A = numeric(0), B = numeric(0), C = complex(0), D = integer(0), E = logical(0), F = character(0)), .Names = c('row.names', 'A', 'B', 'C', 'D', 'E', 'F')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector17_529481023d00e056845723c8af9629a9() {
+ assertEval("argv <- list(structure(c(315.42, 316.32, 316.49, 317.56, 318.13, 318, 316.39, 314.66, 313.68, 313.18, 314.66, 315.43, 316.27, 316.81, 317.42, 318.87, 319.87, 319.43, 318.01, 315.75, 314, 313.68, 314.84, 316.03, 316.73, 317.54, 318.38, 319.31, 320.42, 319.61, 318.42, 316.64, 314.83, 315.15, 315.95, 316.85, 317.78, 318.4, 319.53, 320.41, 320.85, 320.45, 319.44, 317.25, 316.12, 315.27, 316.53, 317.53, 318.58, 318.92, 319.7, 321.22, 322.08, 321.31, 319.58, 317.61, 316.05, 315.83, 316.91, 318.2, 319.41, 320.07, 320.74, 321.4, 322.06, 321.73, 320.27, 318.54, 316.54, 316.71, 317.53, 318.55, 319.27, 320.28, 320.73, 321.97, 322, 321.71, 321.05, 318.71, 317.65, 317.14, 318.71, 319.25, 320.46, 321.43, 322.22, 323.54, 323.91, 323.59, 322.26, 320.21, 318.48, 317.94, 319.63, 320.87, 322.17, 322.34, 322.88, 324.25, 324.83, 323.93, 322.39, 320.76, 319.1, 319.23, 320.56, 321.8, 322.4, 322.99, 323.73, 324.86, 325.41, 325.19, 323.97, 321.92, 320.1, 319.96, 320.97, 322.48, 323.52, 323.89, 325.04, 326.01, 326.67, 325.96, 325.13, 322.9, 321.61, 321.01, 322.08, 323.37, 324.34, 325.3, 326.29, 327.54, 327.54, 327.21, 325.98, 324.42, 322.91, 322.9, 323.85, 324.96, 326.01, 326.51, 327.01, 327.62, 328.76, 328.4, 327.2, 325.28, 323.2, 323.4, 324.64, 325.85, 326.6, 327.47, 327.58, 329.56, 329.9, 328.92, 327.89, 326.17, 324.68, 325.04, 326.34, 327.39, 328.37, 329.4, 330.14, 331.33, 332.31, 331.9, 330.7, 329.15, 327.34, 327.02, 327.99, 328.48, 329.18, 330.55, 331.32, 332.48, 332.92, 332.08, 331.02, 329.24, 327.28, 327.21, 328.29, 329.41, 330.23, 331.24, 331.87, 333.14, 333.8, 333.42, 331.73, 329.9, 328.4, 328.17, 329.32, 330.59, 331.58, 332.39, 333.33, 334.41, 334.71, 334.17, 332.88, 330.77, 329.14, 328.77, 330.14, 331.52, 332.75, 333.25, 334.53, 335.9, 336.57, 336.1, 334.76, 332.59, 331.41, 330.98, 332.24, 333.68, 334.8, 335.22, 336.47, 337.59, 337.84, 337.72, 336.37, 334.51, 332.6, 332.37, 333.75, 334.79, 336.05, 336.59, 337.79, 338.71, 339.3, 339.12, 337.56, 335.92, 333.74, 333.7, 335.13, 336.56, 337.84, 338.19, 339.9, 340.6, 341.29, 341, 339.39, 337.43, 335.72, 335.84, 336.93, 338.04, 339.06, 340.3, 341.21, 342.33, 342.74, 342.07, 340.32, 338.27, 336.52, 336.68, 338.19, 339.44, 340.57, 341.44, 342.53, 343.39, 343.96, 343.18, 341.88, 339.65, 337.8, 337.69, 339.09, 340.32, 341.2, 342.35, 342.93, 344.77, 345.58, 345.14, 343.81, 342.22, 339.69, 339.82, 340.98, 342.82, 343.52, 344.33, 345.11, 346.88, 347.25, 346.61, 345.22, 343.11, 340.9, 341.17, 342.8, 344.04, 344.79, 345.82, 347.25, 348.17, 348.75, 348.07, 346.38, 344.52, 342.92, 342.63, 344.06, 345.38, 346.12, 346.79, 347.69, 349.38, 350.04, 349.38, 347.78, 345.75, 344.7, 344.01, 345.5, 346.75, 347.86, 348.32, 349.26, 350.84, 351.7, 351.11, 349.37, 347.97, 346.31, 346.22, 347.68, 348.82, 350.29, 351.58, 352.08, 353.45, 354.08, 353.66, 352.25, 350.3, 348.58, 348.74, 349.93, 351.21, 352.62, 352.93, 353.54, 355.27, 355.52, 354.97, 353.74, 351.51, 349.63, 349.82, 351.12, 352.35, 353.47, 354.51, 355.18, 355.98, 356.94, 355.99, 354.58, 352.68, 350.72, 350.92, 352.55, 353.91), .Tsp = c(1959, 1990.91666666667, 12), class = 'ts'), 'symbol'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector18_3f5da0689e1c16ad25d3b56342abccc6() {
+ assertEval("argv <- list(structure(list(age = 60), .Names = 'age', row.names = c(NA, -1L), class = 'data.frame'), 'numeric'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector19_e9f2d957bdafadb86220e6707618fbad() {
+ assertEval("argv <- list(c(1.00000001+1.00000001i, 1.00000002+1.00000002i, 1.00000003+1.00000003i, 1.00000004+1.00000004i, 1.00000005+1.00000005i, 1.00000006+1.00000006i, 1.00000007+1.00000007i, 1.00000008+1.00000008i, 1.00000009+1.00000009i, 1.0000001+1.0000001i), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector2_acc10347b6fc6cea6261f757ee57db8e() {
+ assertEval("argv <- list(list(c(' 1', 'NA', ' 1'), c('1.1', ' NA', '2.0'), c('1.1+0i', ' NA', '3.0+0i'), c('NA', 'NA', 'NA'), c('FALSE', ' NA', ' TRUE'), c('abc', NA, 'def')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector20_d6cd3470e89b8c40830e59e561dc9207() {
+ assertEval("argv <- list(list(), 'list'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector21_bb275d6274fd37a7d24c9c08d21738f7() {
+ assertEval("argv <- list(structure(list(`1` = c(256.266652076228, 529.998452486383, 655.612271403493, 31.5607377310524, 10.1780771257452, 0.82654086298349, 0.192588149393303, 0.27340160887417, 0.420761091220242, 0.212073424883136, 6006.37649011526, 8.9782737548589e+42)), .Names = '1'), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector22_b4f96e97f3e91a67ec34690975124d39() {
+ assertEval("argv <- list(structure(list(Subject = structure(c(40L, 40L, 40L, 40L, 40L, 40L, 40L, 40L), .Label = c('42', '28', '30', '56', '46', '5', '55', '32', '43', '29', '3', '11', '45', '22', '40', '47', '31', '14', '7', '41', '33', '44', '23', '57', '34', '18', '36', '21', '15', '38', '10', '1', '58', '51', '4', '6', '19', '2', '27', '53', '37', '20', '12', '9', '17', '26', '8', '49', '39', '54', '25', '35', '52', '13', '16', '59', '48', '24', '50'), class = c('ordered', 'factor')), Wt = c(1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7), Apgar = structure(c(8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L), .Label = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'), class = c('ordered', 'factor')), ApgarInd = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('< 5', '>= 5'), class = 'factor'), time = c(0, 4, 6, 23.8, 27, 28, 39.5, 47), dose = c(17, 17, NA, 4, 7.5, 4, 4, NA), conc = c(NA, NA, 19.1, NA, NA, NA, NA, 33.3)), .Names = c('Subject', 'Wt', 'Apgar', 'ApgarInd', 'time', 'dose', 'conc'), row.names = c('669', '670', '671', '672', '673', '674', '675', '676'), class = 'data.frame'), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector23_a0115f063007587243256acc89acea7b() {
+ assertEval("argv <- list(list(structure(c(0.445983387275159, 0.0291424961297979, 0.305722673636889, 0.0640910333172597, 6.1841587262516e-05, 0.000608774190997193, 0.00533346072966287, 1.87468589092225, 0.00776943250876635, 0.00695873604736988), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), 0), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector24_18c3ede115b0f7230cea3ec81473abd7() {
+ assertEval("argv <- list(structure(list(`1` = structure(list(stats = c(-9.90250128905181, -7.70852699427806, -5.13496062122677, -3.95948091921295, 1.46970778502994), n = 29L, conf = c(-6.23492561965266, -4.03499562280088), out = numeric(0)), .Names = c('stats', 'n', 'conf', 'out')), `2` = structure(list(stats = c(-11.1332994435188, -6.39592651878103, -4.21825647639093, -2.4710346135438, 0.142332232638518), n = 27L, conf = c(-5.41170283935282, -3.02481011342905), out = c(5.49660997093232, 3.55716552721441)), .Names = c('stats', 'n', 'conf', 'out')), `3` = structure(list(stats = c(-6.21825647639093, -4.89504044270307, -3.50339002906768, -2.12460329098075, 1.68674122392151), n = 27L, conf = c(-4.34580001700278, -2.66098004113257), out = 3.49961675599928), .Names = c('stats', 'n', 'conf', 'out')), `4` = structure(list(stats = c(-5.85766776736148, -2.17391966458661, -1.21825647639093, 0.620760276498144, 4.06758688195534), n = 27L, conf = c(-2.06803799696724, -0.368474955814626), out = numeric(0)), .Names = c('stats', 'n', 'conf', 'out')), `5` = structure(list(stats = c(-7.47307099543129, -3.31679346391683, -0.571500134198763, 0.883997101871453, 5.68320653608317), n = 29L, conf = c(-1.8040063492643, 0.661006080866776), out = numeric(0)), .Names = c('stats', 'n', 'conf', 'out')), `6` = structure(list(stats = c(-5.74371144541934, -1.32005454439779, -0.0691719185754582, 1.68918858100201, 5.88399710187145), n = 25L, conf = c(-1.02009274620179, 0.881748909050878), out = numeric(0)), .Names = c('stats', 'n', 'conf', 'out')), `7` = structure(list( stats = c(-0.959725366614089, 1.04051908078705, 2.68320653608317, 4.68320653608317, 6.86503937877323), n = 29L, conf = c(1.61444701144563, 3.7519660607207), out = c(10.4020441274641, 11.9338597320297)), .Names = c('stats', 'n', 'conf', 'out')), `8` = structure(list(stats = c(-4.31872184443094, -0.341901367712618, 2.09749871094819, 4.42849305489153, 9.86504029478776), n = 29L, conf = c(0.69787150218962, 3.49712591970676), out = numeric(0)), .Names = c('stats', 'n', 'conf', 'out')), `9` = structure(list( stats = c(-4.47307099543129, 1.46970778502994, 3.27573063223268, 6.09749871094819, 8.5266833961141), n = 29L, conf = c(1.91794309465097, 4.63351816981439), out = numeric(0)), .Names = c('stats', 'n', 'conf', 'out')), `10` = structure(list(stats = c(-5.31679346391683, -1.04725655125673, 2.61440793064106, 7.68320653608317, 14.5985362650564), n = 26L, conf = c(-0.0908438616349159, 5.31965972291703), out = numeric(0)), .Names = c('stats', 'n', 'conf', 'out')), `11` = structure(list(stats = c(-4.26322883423527, -1.27884444060771, 1.37070166144218, 5.85051662661329, 10.1854674121229), n = 31L, conf = c(-0.65244259398095, 3.39384591686531), out = numeric(0)), .Names = c('stats', 'n', 'conf', 'out'))), .Dim = 11L, .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11'))), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector25_e8017b586d2cc7a961614de273025e39() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector26_0d9067a68be1780690f6c7e92dd5f497() {
+ assertEval("argv <- list(list(structure(list(srcfile = c(NA, '/home/lzhao/hg/r-instrumented/library/graphics/R/graphics'), frow = c(NA, 3990L), lrow = c(NA, 3991L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'), structure(list(srcfile = '/home/lzhao/hg/r-instrumented/library/graphics/R/graphics', frow = 3998L, lrow = 4009L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector27_945852aaaf4656d431c607a1a29a10df() {
+ assertEval("argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c('y', 'x', 'z'), terms = quote(y ~ x * z), row.names = c(NA, 10L), class = 'data.frame'), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector28_0f0699e35c04a67c2b75c6b19ef9b580() {
+ assertEval("argv <- list(list(structure(c(-1L, -2L, -3L, -4L, -5L, -6L, -7L, -8L, -9L, -10L), .Dim = c(2L, 5L)), structure(list(V1 = 1:5, V2 = 6:10, V3 = 11:15, V4 = 16:20, V5 = 21:25), .Names = c('V1', 'V2', 'V3', 'V4', 'V5'), row.names = c(NA, -5L), class = 'data.frame')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector29_a5b7c53f099d0b31ebd86ed92404d78c() {
+ assertEval("argv <- list(structure(list(group = structure(c(1L, 1L), .Label = c('Ctl', 'Trt'), class = 'factor', contrasts = 'contr.treatment')), .Names = 'group', class = 'data.frame', row.names = 1:2), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector3_35ecca1873ab4b686ee24b1da714b2de() {
+ assertEval("argv <- list(structure(list(A = c(1, NA, 1), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA_integer_, NA_integer_, NA_integer_), E = c(FALSE, NA, TRUE), F = c('abc', NA, 'def')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector30_535d7ed78376038d2f7f3539b89ab606() {
+ assertEval("argv <- list(structure(c(12L, 120L, 116L), .Dim = 3L, .Dimnames = structure(list(c('0-5yrs', '6-11yrs', '12+ yrs')), .Names = ''), class = 'table'), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector31_f471effc213210eebd8495532f46529f() {
+ assertEval("argv <- list(structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c('A', 'B', 'C'), class = 'factor'), 'symbol'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector32_7feeaf1fe0d62a0c235db6a33a2a3e0d() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 0L), Deviance = c(NA, 0), `Resid. Df` = c(10L, 10L), `Resid. Dev` = c(2.74035772634541, 2.74035772634541)), .Names = c('Df', 'Deviance', 'Resid. Df', 'Resid. Dev'), row.names = c('NULL', 'x'), class = c('anova', 'data.frame'), heading = 'Analysis of Deviance Table\n\nModel: gaussian, link: identity\n\nResponse: y\n\nTerms added sequentially (first to last)\n\n'), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector4_d13bdc66e1db2576ce64e641b9320d3f() {
+ assertEval("argv <- list(structure(list(character = character(0), numeric = numeric(0), numeric = numeric(0), complex = complex(0), integer = integer(0), logical = logical(0), character = character(0)), .Names = c('character', 'numeric', 'numeric', 'complex', 'integer', 'logical', 'character')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector5_12ca163cf37508e1273956276c05ec6c() {
+ assertEval("argv <- list(structure(list(group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = 'group', class = 'data.frame', row.names = c(NA, 20L)), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector6_71ba534dc7089197ef2421a67361f418() {
+ assertEval("argv <- list(structure(list(y = c(1.08728092481538, 0.0420572471552261, 0.787502161306819, 0.512717751544676, 3.35376639535311, 0.204341510750309, -0.334930602487435, 0.80049208412789, -0.416177803375218, -0.777970346246018, 0.934996808181635, -0.678786709127108, 1.52621589791412, 0.5895781228122, -0.744496121210548, -1.99065153885627, 1.51286447692396, -0.750182409847851), A = c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), U = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('a', 'b', 'c'), class = 'factor'), V = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L), .Label = c('a', 'b', 'c'), class = 'factor')), .Names = c('y', 'A', 'U', 'V'), terms = quote(y ~ A:U + A:V - 1), row.names = c(NA, 18L), class = 'data.frame'), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector7_6c2750df863488e5e40f5126d26588ae() {
+ assertEval("argv <- list(list(integer(0)), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector8_78fb80b6caff0f1f9f2433e58a77af3e() {
+ assertEval("argv <- list(list(structure(0:100, .Tsp = c(1, 101, 1), class = 'ts'), structure(c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790, 800, 810, 820, 830, 840, 850, 860, 870, 880, 890, 900, 910, 920, 930, 940, 950, 960, 970, 980, 990, 1000), .Tsp = c(1, 101, 1), class = 'ts'), structure(c(-4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96), .Tsp = c(1, 101, 1), class = 'ts')), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinisvector_testisvector9_7a2d368cebf0e8bcc64da81916c4dd08() {
+ assertEval("argv <- list(structure(list(Plant = structure(c(5L, 5L, 5L, 5L, 5L, 5L, 5L), .Label = c('Qn1', 'Qn2', 'Qn3', 'Qc1', 'Qc3', 'Qc2', 'Mn3', 'Mn2', 'Mn1', 'Mc2', 'Mc3', 'Mc1'), class = c('ordered', 'factor')), Type = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c('Quebec', 'Mississippi'), class = 'factor'), Treatment = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('nonchilled', 'chilled'), class = 'factor')), .Names = c('Plant', 'Type', 'Treatment'), class = 'data.frame', row.names = 36:42), 'any'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlazyLoadDBflush_testlazyLoadDBflush1_cef4a1af4e9fa39cdf8f736e988487cd() {
+ assertEval("argv <- list('/home/roman/r-instrumented/library/tools/R/tools.rdb'); .Internal(lazyLoadDBflush(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlazyLoadDBflush_testlazyLoadDBflush2_9a5760c0187e982262284ceb02d2e117() {
+ assertEval("argv <- list('/home/lzhao/hg/r-instrumented/library/stats4/R/stats4.rdb'); .Internal(lazyLoadDBflush(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlbeta_testlbeta1_09a92ce71a1f383c2304c1f8fc433817() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(lbeta(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlchoose_testlchoose1_aea5cb7166dbc2c24ee4d66a3285b134() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(lchoose(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlchoose_testlchoose2_eef92f0b2715df9ec5ebab185e89a3b8() {
+ assertEval("argv <- list(50L, 0:48); .Internal(lchoose(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlchoose_testlchoose3_1c1480efe394bbd1018556b13b24cb31() {
+ assertEval("argv <- list(0.5, 1:9); .Internal(lchoose(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlength_testlength12_9301367856ba463ffbd2cf050e2c249d() {
+ assertEval("argv <- list(quote(cbind(X, M) ~ M.user + Temp + M.user:Temp));length(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlength_testlength26_48abde75e1aa7d159270fa39ef5d6099() {
+ assertEval("argv <- list(structure(list(sec = numeric(0), min = integer(0), hour = integer(0), mday = integer(0), mon = integer(0), year = integer(0), wday = integer(0), yday = integer(0), isdst = integer(0)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')));length(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlength_testlength3_fb936f411c3de80b60a56e700117f1e3() {
+ assertEval("argv <- list(structure(' \'Le français, c'est façile: Règles, Liberté, Egalité, Fraternité...\')\n', Rd_tag = 'RCODE'));length(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlength_testlength5_bea1d3b9768614cdcd4d033fb443548f() {
+ assertEval("argv <- list(structure(list(`log(x)` = c(0, 0.693147180559945, 1.09861228866811, 1.38629436111989, 1.6094379124341, 1.79175946922805, 1.94591014905531, 2.07944154167984, 2.19722457733622, 2.30258509299405, 2.39789527279837, 2.484906649788, 2.56494935746154, 2.63905732961526, 2.70805020110221, 2.77258872223978, 2.83321334405622, 2.89037175789616, 2.94443897916644, 2.99573227355399, 3.04452243772342, 3.09104245335832, 3.13549421592915, 3.17805383034795, 3.2188758248682, 3.25809653802148, 3.29583686600433, 3.3322045101752, 3.36729582998647, 3.40119738166216, 3.43398720448515, 3.46573590279973, 3.49650756146648, 3.52636052461616, 3.55534806148941, 3.58351893845611, 3.61091791264422, 3.63758615972639, 3.66356164612965, 3.68887945411394, 3.71357206670431, 3.73766961828337, 3.76120011569356, 3.78418963391826, 3.80666248977032, 3.8286413964891, 3.85014760171006, 3.87120101090789, 3.89182029811063, 3.91202300542815, 3.93182563272433, 3.95124371858143, 3.97029191355212, 3.98898404656427, 4.00733318523247, 4.02535169073515, 4.04305126783455, 4.06044301054642, 4.07753744390572, 4.0943445622221, 4.11087386417331, 4.12713438504509, 4.14313472639153, 4.15888308335967, 4.17438726989564, 4.18965474202643, 4.20469261939097, 4.21950770517611, 4.23410650459726, 4.24849524204936, 4.26267987704132, 4.27666611901606, 4.29045944114839, 4.30406509320417, 4.31748811353631, 4.33073334028633, 4.34380542185368, 4.35670882668959, 4.36944785246702, 4.38202663467388, 4.39444915467244, 4.40671924726425, 4.4188406077966, 4.43081679884331, 4.44265125649032, 4.45434729625351, 4.46590811865458, 4.47733681447821, 4.48863636973214, 4.49980967033027, 4.51085950651685, 4.52178857704904, 4.53259949315326, 4.54329478227, 4.55387689160054, 4.56434819146784, 4.57471097850338, 4.58496747867057, 4.59511985013459, 4.60517018598809), `log(z)` = c(2.39789527279837, 2.484906649788, 2.56494935746154, 2.63905732961526, 2.70805020110221, 2.77258872223978, 2.83321334405622, 2.89037175789616, 2.94443897916644, 2.99573227355399, 3.04452243772342, 3.09104245335832, 3.13549421592915, 3.17805383034795, 3.2188758248682, 3.25809653802148, 3.29583686600433, 3.3322045101752, 3.36729582998647, 3.40119738166216, 3.43398720448515, 3.46573590279973, 3.49650756146648, 3.52636052461616, 3.55534806148941, 3.58351893845611, 3.61091791264422, 3.63758615972639, 3.66356164612965, 3.68887945411394, 3.71357206670431, 3.73766961828337, 3.76120011569356, 3.78418963391826, 3.80666248977032, 3.8286413964891, 3.85014760171006, 3.87120101090789, 3.89182029811063, 3.91202300542815, 3.93182563272433, 3.95124371858143, 3.97029191355212, 3.98898404656427, 4.00733318523247, 4.02535169073515, 4.04305126783455, 4.06044301054642, 4.07753744390572, 4.0943445622221, 4.11087386417331, 4.12713438504509, 4.14313472639153, 4.15888308335967, 4.17438726989564, 4.18965474202643, 4.20469261939097, 4.21950770517611, 4.23410650459726, 4.24849524204936, 4.26267987704132, 4.27666611901606, 4.29045944114839, 4.30406509320417, 4.31748811353631, 4.33073334028633, 4.34380542185368, 4.35670882668959, 4.36944785246702, 4.38202663467388, 4.39444915467244, 4.40671924726425, 4.4188406077966, 4.43081679884331, 4.44265125649032, 4.45434729625351, 4.46590811865458, 4.47733681447821, 4.48863636973214, 4.49980967033027, 4.51085950651685, 4.52178857704904, 4.53259949315326, 4.54329478227, 4.55387689160054, 4.56434819146784, 4.57471097850338, 4.58496747867057, 4.59511985013459, 4.60517018598809, 4.61512051684126, 4.62497281328427, 4.63472898822964, 4.64439089914137, 4.65396035015752, 4.66343909411207, 4.67282883446191, 4.68213122712422, 4.69134788222914, 4.70048036579242)), .Names = c('log(x)', 'log(z)'), class = 'data.frame', row.names = c(NA, 100L), terms = quote(~log(x) + log(z))));length(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlength_testlength6_5059a25bf1b1d3661d481a4ea56e7924() {
+ assertEval("argv <- list(list('Residuals vs Fitted', 'Normal Q-Q', 'Scale-Location', 'Cook's distance', 'Residuals vs Leverage', expression('Cook's dist vs Leverage ' * h[ii]/(1 - h[ii]))));length(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlength_testlength7_55a83c0818d69a7b7df3c3826e85718b() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(20L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 19L, 19L, 19L, 20L, 20L, 20L, 19L, 20L, 19L, 19L, 19L, 20L), mday = c(30L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 30L, 30L, 30L, 30L, 31L, 31L, 31L, 30L, 30L, 30L, 31L, 30L, 31L, 31L, 31L, 30L), mon = c(5L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 5L, 5L, 5L, 5L, 11L, 11L, 11L, 5L, 5L, 5L, 11L, 5L, 11L, 11L, 11L, 5L), year = c(72L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 81L, 82L, 83L, 85L, 87L, 89L, 90L, 92L, 93L, 94L, 95L, 97L, 98L, 105L, 108L, 112L), wday = c(5L, 0L, 1L, 2L, 3L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 0L, 4L, 0L, 1L, 2L, 3L, 4L, 0L, 1L, 4L, 6L, 3L, 6L), yday = c(181L, 365L, 364L, 364L, 364L, 365L, 364L, 364L, 364L, 180L, 180L, 180L, 180L, 364L, 364L, 364L, 181L, 180L, 180L, 364L, 180L, 364L, 364L, 365L, 181L), isdst = c(1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 1L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')));length(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlength_testlength8_736bdb3eaa2236c08ce3e04c3b76b5e2() {
+ assertEval("argv <- list(complex(0));length(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlengthassign_testlengthassign1_1481d9482e1473ce157eb39230fd0d48() {
+ assertEval("argv <- list(c('A', 'B'), value = 5);`length<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlengthassign_testlengthassign2_4b74e5d4e2ac239ec628941b8135d6b2() {
+ assertEval("argv <- list(list(list(2, 2, 6), list(2, 2, 0)), value = 0);`length<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlengthassign_testlengthassign3_fb7e9cceeb4e47802113806aa49cb1a4() {
+ assertEval("argv <- list(list(list(2, 2, 6), list(1, 3, 9), list(1, 3, -1)), value = 1);`length<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlengthassign_testlengthassign4_8dce4e78e2538e574d9a637fd328c8de() {
+ assertEval("argv <- list(c(28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1), value = 0L);`length<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlengthassign_testlengthassign5_6fada3a1873cba1852cb1cddccd5e4a8() {
+ assertEval("argv <- list(c(0L, 1L, 2L, 3L, 4L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 5L, 6L), value = 0L);`length<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlengthassign_testlengthassign6_ca074e784907db67ace5265cf4864a14() {
+ assertEval("argv <- list(list(), value = 0L);`length<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlevelsassign_testlevelsassign1_32eaaa5f66a2124bd48f233b7d004572() {
+ assertEval("argv <- list(structure(1:2, .Label = c('a', 'b'), class = 'factor'), value = structure(list(C = 'C', A = 'a', B = 'b'), .Names = c('C', 'A', 'B')));`levels<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlevelsassign_testlevelsassign2_87535052709adcabc481eb8c7a94c28b() {
+ assertEval("argv <- list(structure(c(24L, 13L, 15L, 68L, 39L, 74L, 22L, 1L, 8L, 55L, 24L, 20L, 51L, 13L, 3L, 4L, 5L, 6L, 15L, 2L, 8L, 60L, 67L, 23L, 58L, 24L, 22L, 21L, 37L, 74L, 59L, 39L, 14L, 14L, 19L, 23L, 70L, 21L, 22L, 31L, 29L, 30L, 45L, 58L, 17L, 7L, 19L, 26L, 39L, 74L, 57L, 59L, 12L, 72L, 70L, 37L, 64L, 16L, 18L, 21L, 22L, 8L, 62L, 61L, 63L, 71L, 105L, 64L, 10L, 41L, 8L, 27L, 11L, 34L, 32L, 33L, 68L, 107L, NA, 66L, NA, 65L, 48L, 52L, 43L, 47L, 46L, 44L, 41L, 54L, 28L, 50L, 40L, NA, 69L, NA, 75L, 109L, NA, 86L, 112L, 110L, 104L, 24L, 111L, 87L, NA, NA, 92L, 73L, 85L, 90L, 89L, NA, 83L, NA, 102L, NA, 108L, 88L, 91L, 93L, NA, 94L, 84L, NA, 106L, NA, 95L, 82L, 56L, 87L, 109L, 75L, 104L, 110L, 112L, 111L, 24L, 73L, 85L, 86L, 90L, 89L, 102L, 88L, 92L, 9L, 49L, 42L, 38L, 35L, 36L, 25L, NA, NA, 9L, 49L, 42L, NA, 36L, 38L, 25L, 53L, 79L, 78L, 103L, 77L, 80L, 114L, 97L, 113L, 76L, 96L, 81L, 116L, 99L, 117L, 115L, 98L, 101L, 100L), .Label = c('1008', '1011', '1013', '1014', '1015', '1016', '1027', '1028', '1030', '1032', '1051', '1052', '1083', '1093', '1095', '1096', '110', '1102', '111', '1117', '112', '113', '116', '117', '1219', '125', '1250', '1251', '126', '127', '128', '1291', '1292', '1293', '1298', '1299', '130', '1308', '135', '1376', '1377', '1383', '1408', '1409', '141', '1410', '1411', '1413', '1418', '1422', '1438', '1445', '1456', '1492', '2001', '2316', '262', '266', '269', '270', '2708', '2714', '2715', '272', '2728', '2734', '280', '283', '286', '290', '3501', '411', '412', '475', '5028', '5042', '5043', '5044', '5045', '5047', '5049', '5050', '5051', '5052', '5053', '5054', '5055', '5056', '5057', '5058', '5059', '5060', '5061', '5062', '5066', '5067', '5068', '5069', '5070', '5072', '5073', '5115', '5160', '5165', '655', '724', '885', '931', '942', '952', '955', '958', 'c118', 'c168', 'c203', 'c204', 'c266'), class = 'factor'), value = c('1008', '1011', '1013', '1014', '1015', '1016', '1027', '1028', '1030', '1032', '1051', '1052', '1083', '1093', '1095', '1096', '110', '1102', '111', '1117', '112', '113', '116', 'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz', '1219', '125', '1250', '1251', '126', '127', '128', '1291', '1292', '1293', '1298', '1299', '130', '1308', '135', '1376', '1377', '1383', '1408', '1409', '141', '1410', '1411', '1413', '1418', '1422', '1438', '1445', '1456', '1492', '2001', '2316', '262', '266', '269', '270', '2708', '2714', '2715', '272', '2728', '2734', '280', '283', '286', '290', '3501', '411', '412', '475', '5028', '5042', '5043', '5044', '5045', '5047', '5049', '5050', '5051', '5052', '5053', '5054', '5055', '5056', '5057', '5058', '5059', '5060', '5061', '5062', '5066', '5067', '5068', '5069', '5070', '5072', '5073', '5115', '5160', '5165', '655', '724', '885', '931', '942', '952', '955', '958', 'c118', 'c168', 'c203', 'c204', 'c266'));`levels<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlevelsassign_testlevelsassign4_2f1ede8e983680131664ece8e9e96e2e() {
+ assertEval("argv <- list(structure(c(1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L), .Label = c('1', '2', '3'), class = 'factor'), value = structure(list(A = c(1, 3), B = 2), .Names = c('A', 'B')));`levels<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlevelsassign_testlevelsassign5_934190e4c01e8683a4f138e15ee5129f() {
+ assertEval("argv <- list(structure(FALSE, .Label = FALSE), FALSE);`levels<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlevelsassign_testlevelsassign6_76f3c73d8ae11833c5a065ddae27d835() {
+ assertEval("argv <- list(NULL, NULL);`levels<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlevelsassign_testlevelsassign7_232e9f1995c24d418cd95448f6b30997() {
+ assertEval("argv <- list(structure(list(), .Label = list()), list());`levels<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlgamma_testlgamma1_e95a91f28a8a65ed9285324833de381f() {
+ assertEval("argv <- list(structure(c(2, 1, 1, 1, 3, 1, 1, 1, 4), .Dim = c(3L, 3L)));lgamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlgamma_testlgamma2_541d5022d92bebe4392512ddba8a4fe5() {
+ assertEval("argv <- list(structure(c(2, 3, 2, 1, 4, 4, 7, 2, 11, 11, 15, 10, 7, 8, 13, 12), .Dim = c(4L, 4L), .Dimnames = structure(list(income = c('< 15k', '15-25k', '25-40k', '> 40k'), satisfaction = c('VeryD', 'LittleD', 'ModerateS', 'VeryS')), .Names = c('income', 'satisfaction'))));lgamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlgamma_testlgamma3_e1f937d8e3d529f3446a378b383421db() {
+ assertEval("argv <- list(1.72926007700446);lgamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlgamma_testlgamma4_fea0f0854c103e5b079d4af35013e0a7() {
+ assertEval("argv <- list(0.999935539560166);lgamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlgamma_testlgamma5_d46e90324c6f0cef7d5ecc4ea27da104() {
+ assertEval("argv <- list(FALSE);lgamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlgamma_testlgamma6_2cf9fc6844d0327b2c4b1b109635cc7f() {
+ assertEval("argv <- list(numeric(0));lgamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlgamma_testlgamma7_6c68b8e517127bdb8de22aa4b23c1458() {
+ assertEval("argv <- list(structure(c(11.4065045686104, 9.40650456861037, 8.40650456861037, 11.4065045686104, 9.40650456861037, 6.40650456861036, 15.4065045686104, 9.40650456861037, 9.40650456861037, 8.40650456861037, 6.40650456861036, 7.40650456861036, 8.40650456861037, 7.40650456861036, 9.40650456861037, 13.4065045686104, 10.4065045686104, 11.4065045686104, 14.4065045686104, 10.4065045686104, 16.4065045686104, 10.4065045686104, 7.40650456861036, 9.40650456861037, 7.40650456861036, 13.4065045686104, 17.4065045686104, 4.40650456861036, 10.4065045686104, 5.40650456861036, 6.40650456861036, 4.40650456861036, 5.40650456861036, 4.40650456861036, 4.40650456861036, 8.40650456861037, 9.40650456861037, 5.40650456861036, 9.40650456861037, 7.40650456861036, 7.40650456861036, 8.40650456861037), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42')));lgamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist1_65944132382d44701c1261f0a0b25eee() {
+ assertEval("argv <- list(surname = structure(c('McNeil', 'Ripley', 'Ripley', 'Tierney', 'Tukey', 'Venables', 'R Core'), class = 'AsIs'), nationality = structure(c('Australia', 'UK', 'UK', 'US', 'US', 'Australia', NA), class = 'AsIs'), deceased = structure(c('no', 'no', 'no', 'no', 'yes', 'no', NA), class = 'AsIs'), title = structure(c('Interactive Data Analysis', 'Spatial Statistics', 'Stochastic Simulation', 'LISP-STAT', 'Exploratory Data Analysis', 'Modern Applied Statistics ...', 'An Introduction to R'), class = 'AsIs'), other.author = structure(c(NA, NA, NA, NA, NA, 'Ripley', 'Venables & Smith'), class = 'AsIs'));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist10_0d91de5fcb12ceb1b94df1e95266e389() {
+ assertEval("argv <- list(linkfun = function (mu) .Call(C_logit_link, mu), linkinv = function (eta) .Call(C_logit_linkinv, eta), mu.eta = function (eta) .Call(C_logit_mu_eta, eta), valideta = function (eta) TRUE, name = 'logit');list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist11_606357090d4876929a9f1b147d4d012b() {
+ assertEval("argv <- list(linkfun = function (mu) log(mu), linkinv = function (eta) pmax(exp(eta), .Machine$double.eps), mu.eta = function (eta) pmax(exp(eta), .Machine$double.eps), valideta = function (eta) TRUE, name = 'log');list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist12_c9a9c06a59bcfbcc26056a024fa8f34b() {
+ assertEval("argv <- list(class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(2, numeric()))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist13_e0df2faaf5e788dce11bc91c59bea571() {
+ assertEval("argv <- list(class = 'try-error', condition = structure(list(message = 'undefined columns selected', call = quote(`[.data.frame`(dd, , 'x'))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist14_9d1e92da0bd42ea748d9dfddfdaec73b() {
+ assertEval("argv <- list(error = function (e) -1);list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist15_2d8f9ab564302c573c8f25ed43ea614a() {
+ assertEval("argv <- list(error = function (e) warning(gettextf('%s namespace cannot be unloaded:\n ', sQuote(pkgname)), conditionMessage(e), call. = FALSE, domain = NA));list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist16_fcd9aa17d77c957c43e29af4028b0ba2() {
+ assertEval("argv <- list(aa = structure(c('1', '2', '3'), class = 'AsIs'), ..dfd.row.names = structure(c('4', '5', '6', '7', '8', '9'), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('a', 'b'))));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist17_5260c9430ad2029dd0d65545cdb9ddf6() {
+ assertEval("argv <- list(deviance.resid = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), coefficients = structure(logical(0), .Dim = c(0L, 4L), .Dimnames = list(NULL, c('Estimate', 'Std. Error', 't value', 'Pr(>|t|)'))), aliased = structure(TRUE, .Names = 'x'), dispersion = 0.274035772634541, df = c(0L, 10L, 1L), cov.unscaled = structure(logical(0), .Dim = c(0L, 0L)), cov.scaled = structure(logical(0), .Dim = c(0L, 0L)));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist18_9373dc5de31b96619dee3afffa3c1d99() {
+ assertEval("argv <- list(date = structure(1065672000, class = c('POSIXct', 'POSIXt'), tzone = ''));list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist19_29ed23ccf1ca95ee0a511ae40ef50e31() {
+ assertEval("argv <- list(arguments = structure('object', simpleOnly = TRUE), generic = structure(function (object) standardGeneric('show'), generic = structure('show', package = 'methods'), package = 'methods', group = list(), valueClass = character(0), signature = structure('object', simpleOnly = TRUE), default = structure(function (object) showDefault(object, FALSE), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'object', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'object', package = 'methods'), generic = structure('show', package = 'methods'), class = structure('derivedDefaultMethod', package = 'methods')), skeleton = quote((function (object) showDefault(object, FALSE))(object)), class = structure('standardGeneric', package = 'methods')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist2_79f3cfd82a7b2ff7a9e2638890c47890() {
+ assertEval("argv <- list(`_R_NS_LOAD_` = structure('survival', .Names = 'name'));list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist20_ceb11b13da5bb4a3654ebbde24fbe656() {
+ assertEval("argv <- list('Residuals vs Fitted', 'Normal Q-Q', 'Scale-Location', 'Cook's distance', 'Residuals vs Leverage', expression('Cook's dist vs Leverage ' * h[ii]/(1 - h[ii])));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist21_4d399388cb66e8dc6719b175b6bad72f() {
+ assertEval("argv <- list(Df = structure(c(NA, 2, 1), .Names = c('<none>', 'Soft', 'M.user:Temp')), Deviance = structure(c(8.44399377410362, 8.2279889309135, 5.65604443125997), .Names = c('<none>', 'Soft', 'M.user:Temp')), AIC = structure(c(72.1419514890413, 75.9259466458512, 71.3540021461976), .Names = c('<none>', 'Soft', 'M.user:Temp')));list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist22_f8a01089f8b49a095631588012c7523a() {
+ assertEval("argv <- list(structure(TRUE, .Dim = c(1L, 1L)));list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist23_263a4a24553cb6d6be3064b518bd40c8() {
+ assertEval("argv <- list(V1 = c(1L, 1L, 2L, 3L), V2 = structure(c(1L, 1L, 2L, 3L), .Label = c('A', 'D', 'E'), class = 'factor'), V3 = c(6, 6, 9, 10));list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist24_63693ede58a1f13ade4fef7fa41e43d4() {
+ assertEval("argv <- list(structure(1:5, .Tsp = c(-1, 3, 1), class = 'ts'), structure(1:5, .Tsp = c(1, 5, 1), class = 'ts'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist25_4ecd613920cab7b38e6e0da43bbb3b69() {
+ assertEval("argv <- list(structure(list(x = 1L, y = structure(1L, .Label = c('A', 'D', 'E'), class = 'factor'), z = 6), .Names = c('x', 'y', 'z'), row.names = 1L, class = 'data.frame'), structure(list(), .Names = character(0), row.names = 1L, class = 'data.frame'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist26_c29455e4cb5728a6620b481d828e99a2() {
+ assertEval("argv <- list(1L, 3.14159265358979, 3+5i, 'testit', TRUE, structure(1L, .Label = 'foo', class = 'factor'));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist27_07f5ff63af8a66f0ff454aec8a76e873() {
+ assertEval("argv <- list(structure(c(24L, 13L, 15L, 68L, 39L, 74L, 22L, 1L, 8L, 55L, 24L, 20L, 51L, 13L, 3L, 4L, 5L, 6L, 15L, 2L, 8L, 60L, 67L, 23L, 58L, 24L, 22L, 21L, 37L, 74L, 59L, 39L, 14L, 14L, 19L, 23L, 70L, 21L, 22L, 31L, 29L, 30L, 45L, 58L, 17L, 7L, 19L, 26L, 39L, 74L, 57L, 59L, 12L, 72L, 70L, 37L, 64L, 16L, 18L, 21L, 22L, 8L, 62L, 61L, 63L, 71L, 105L, 64L, 10L, 41L, 8L, 27L, 11L, 34L, 32L, 33L, 68L, 107L, NA, 66L, NA, 65L, 48L, 52L, 43L, 47L, 46L, 44L, 41L, 54L, 28L, 50L, 40L, NA, 69L, NA, 75L, 109L, NA, 86L, 112L, 110L, 104L, 24L, 111L, 87L, NA, NA, 92L, 73L, 85L, 90L, 89L, NA, 83L, NA, 102L, NA, 108L, 88L, 91L, 93L, NA, 94L, 84L, NA, 106L, NA, 95L, 82L, 56L, 87L, 109L, 75L, 104L, 110L, 112L, 111L, 24L, 73L, 85L, 86L, 90L, 89L, 102L, 88L, 92L, 9L, 49L, 42L, 38L, 35L, 36L, 25L, NA, NA, 9L, 49L, 42L, NA, 36L, 38L, 25L, 53L, 79L, 78L, 103L, 77L, 80L, 114L, 97L, 113L, 76L, 96L, 81L, 116L, 99L, 117L, 115L, 98L, 101L, 100L), .Label = c('1008', '1011', '1013', '1014', '1015', '1016', '1027', '1028', '1030', '1032', '1051', '1052', '1083', '1093', '1095', '1096', '110', '1102', '111', '1117', '112', '113', '116', '117', '1219', '125', '1250', '1251', '126', '127', '128', '1291', '1292', '1293', '1298', '1299', '130', '1308', '135', '1376', '1377', '1383', '1408', '1409', '141', '1410', '1411', '1413', '1418', '1422', '1438', '1445', '1456', '1492', '2001', '2316', '262', '266', '269', '270', '2708', '2714', '2715', '272', '2728', '2734', '280', '283', '286', '290', '3501', '411', '412', '475', '5028', '5042', '5043', '5044', '5045', '5047', '5049', '5050', '5051', '5052', '5053', '5054', '5055', '5056', '5057', '5058', '5059', '5060', '5061', '5062', '5066', '5067', '5068', '5069', '5070', '5072', '5073', '5115', '5160', '5165', '655', '724', '885', '931', '942', '952', '955', '958', 'c118', 'c168', 'c203', 'c204', 'c266'), class = 'factor'));list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist29_34d4615e7ae4dcbb36f04e41af7ce028() {
+ assertEval("argv <- list(assign = c(0L, 1L, 1L, 1L), qr = structure(list(qr = structure(c(-28.8270706107991, 0.273146306828071, 0.312206540911182, 0.247733407426682, 0.216636580341913, 0.0849718577324175, 0.298411357268471, 0.294351149612123, 0.247733407426682, 0.308328048219576, 0.125075187976724, 0.138758462627192, 0.190002850064127, 0.1835601922086, 0.232705016165824, 0.069379231313596, 0.120168353625222, 0.222121918799273, 0.190002850064127, 0.247733407426682, 0.0917800961043001, -10.2334366187554, 13.7940847818881, 0.190374922931528, 0.151060987411652, 0.132099001405849, -0.125761881229701, -0.441661211981173, -0.435651935890569, -0.366655739827817, -0.45633832676795, -0.185116476853374, 0.084611076858457, 0.115858488525451, 0.111929933764425, 0.141897089628727, 0.0423055384292285, 0.0732753420009814, 0.13544380924692, 0.115858488525451, 0.151060987411652, 0.0559649668822123, -4.26682272578616, -3.16543363464969, 9.7352069177467, 0.118607830555703, 0.10371953900067, 0.00616533725634264, 0.0216519528674631, 0.0213573547475655, 0.0179748924786157, 0.0223714822011986, 0.00907513071804667, -0.344446140042991, -0.471652301867824, -0.45565941330494, -0.577653737792655, -0.172223070021495, 0.0575332486360618, 0.106345765721762, 0.0909680534393656, 0.118607830555703, 0.0439417444752447, -4.89123580760852, -3.62866782508622, -3.32364207119197, 9.63649238427318, 0.135617489972887, 0.00806142768852949, 0.0283108036266689, 0.0279256046761512, 0.0235028985277947, 0.0292516173165799, 0.0118661002643811, 0.0254562434016423, 0.0348573968510539, 0.0336754446773372, 0.0426914180233895, 0.0127281217008212, -0.284250391934964, -0.525414891452651, -0.449439332155022, -0.585997195035538, -0.217099822893807), assign = c(0L, 1L, 1L, 1L), contrasts = structure(list(trt = 'contr.treatment'), .Names = 'trt'), .Dim = c(21L, 4L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21'), c('(Intercept)', 'trt2', 'trt3', 'trt4'))), qraux = c(1.21663658034191, 1.16655707135303, 1.14947576464323, 1.15508453302121), pivot = 1:4, tol = 1e-07, rank = 4L), .Names = c('qr', 'qraux', 'pivot', 'tol', 'rank'), class = 'qr'), df.residual = 17L);list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist3_8edad12272a87d59515743661ee54343() {
+ assertEval("argv <- list(x = c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), y = c(3.69420518444359e+25, 2.30887824027777e+24, 1.44304890017492e+23, 9.01905562612606e+21, 5.63690976641081e+20, 35230686042118275072, 2201917878145066496, 137619867512235136, 8601241751556820, 537577617482832, 33598603095309.8, 2099913194115.17, 131244699796.888, 8202825028.58974, 512684387.219832, 32044730.0464007, 2003284.70114408, 125327.674230857, 7863.68742857025, 499.272560819512, 33.2784230289721, 2.7659432263306, 0.488936768533843, -0.282943224311172, 7.32218543045282e-05, -0.00636442868227041, -0.0483709204009262, -0.0704795507649514, 0.0349437746169591, -0.0264830837608839, 0.0200901469411759), xlab = NULL, ylab = NULL);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist30_f4754177d06cebd5d79b82e41866666d() {
+ assertEval("argv <- list(function (x, i, j, ...) x@aa[[i]]);list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist31_787ffb18410a33d3e9f4b0023b38fec6() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = 2:3, .Dimnames = list(NULL, c('a', 'b', 'c'))), structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L, 5L)), TRUE);list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist32_797fed8ad8319694c26d1d29321f4b05() {
+ assertEval("argv <- list(structure(function (e1, e2) standardGeneric('Ops'), generic = structure('Ops', package = 'base'), package = 'base', group = list(), valueClass = character(0), signature = c('e1', 'e2'), default = quote(`\001NULL\001`), skeleton = quote((function (e1, e2) stop('invalid call in method dispatch to 'Ops' (no default method)', domain = NA))(e1, e2)), groupMembers = list('Arith', 'Compare', 'Logic'), class = structure('groupGenericFunction', package = 'methods')));list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist33_406d36e77264830713bc65f7f714ff95() {
+ assertEval("argv <- list(tables = structure(list(`Grand mean` = 103.87323943662, N = structure(c(78.7365206866197, 98.5088731171753, 113.842206450509, 123.008873117175), .Dim = 4L, .Dimnames = structure(list(N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = 'N'), class = 'mtable'), `V:N` = structure(c(79.5323303457107, 86.1989970123773, 69.7732394366197, 98.0323303457106, 108.032330345711, 89.1989970123773, 114.198997012377, 116.698997012377, 110.365663679044, 124.365663679044, 126.365663679044, 118.032330345711), .Dim = 3:4, .Dimnames = structure(list(V = c('Golden.rain', 'Marvellous', 'Victory'), N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = c('V', 'N')), class = 'mtable')), .Names = c('Grand mean', 'N', 'V:N')), n = structure(list(N = structure(c(17, 18, 18, 18), .Dim = 4L, .Dimnames = structure(list(N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = 'N')), `V:N` = structure(c(6, 6, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6), .Dim = 3:4, .Dimnames = structure(list(V = c('Golden.rain', 'Marvellous', 'Victory'), N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = c('V', 'N')))), .Names = c('N', 'V:N')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist34_a5fd3bcd29b52fea51a2ac4e060853d8() {
+ assertEval("argv <- list(itemBullet = '• ');list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist35_50462cb2c743764a9dafd135bfb1acec() {
+ assertEval("argv <- list(class = 'try-error', condition = structure(list(message = 'more columns than column names', call = quote(read.table('foo6', header = TRUE))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist36_87e5f530ae12133d74365a5addcaa350() {
+ assertEval("argv <- list(name = 'list', objs = structure(list(`package:base` = .Primitive('list'), .Primitive('list')), .Names = c('package:base', '')), where = c('package:base', 'namespace:base'), visible = c(TRUE, FALSE), dups = c(FALSE, TRUE));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist37_1c436ec1fd79c3179b14c6b4bbdb2ba9() {
+ assertEval("argv <- list(structure(-1.81670076485116, .Names = '5%'), structure(c(-0.569903669351869, -3.58817618394987, 1.7002237104195, 0.247262299686774, -1.6099565644337, -0.117004990933267, 2.26201852051082, 1.27765184061634, -0.585159452768219, 0.777745165779344, -0.299055554574658, -0.10613560158199, -0.96347850905908, 2.01298478288055, -0.65898967614864, 0.497719980170775, 0.113843920033269, -0.766958149949393, 3.9222560854539, -0.936533336103743, 0.287536526568389, -1.36853788163704, 0.875060974238616, 6.63795852562496, -1.7181964535622, -1.84566355665129, -2.51563250429738, -0.197885450775488, 0.343408036526242, 0.0203380393884578, 0.207160904400713, 0.869565410777187, -0.815315222368209, -0.0998963343276999, 0.656114271672876, 1.27566552196184, 0.0658788246994603, -1.69200573781689, -0.0369929356350034, -0.342061734014624, 0.31798622848054, -1.52242182038666, -1.33617654990952, 0.0175687049379899, -0.093090859182165, -0.0507330478224399, -0.431715933999334, 0.37428759377223, -1.51710077889452, 0.148230661369186, 0.214909263767934, 0.178494903424769, -2.69339417614172, 0.644025806665703, -0.287978582462478, 3.36345700350871, 1.39656784449323, -0.344866954524567, -0.270662469024608, -1.32424067954204), .Dim = 60L, .Dimnames = list(c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))), c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L));list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist39_6b37a56e317d3893c6da994c28fc51cb() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils', '/home/lzhao/hg/r-instrumented/library/utils/R/utils'), frow = c(6889L, 6893L, 6897L, 6901L, 6902L, 6903L, 6903L, 6917L, 6918L, 6919L, 6919L, 6927L, 6928L), lrow = c(6889L, 6893L, 6900L, 6901L, 6902L, 6903L, 6903L, 6917L, 6918L, 6919L, 6919L, 6927L, 6928L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 13L), class = 'data.frame'), structure(list( srcfile = '/home/lzhao/hg/r-instrumented/library/utils/R/utils', frow = 6928L, lrow = 6928L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist4_d9d0349db6a6cf11ebfa764878f9793a() {
+ assertEval("argv <- list(class = 'try-error', condition = structure(list(message = 'line 1 did not have 4 elements', call = quote(scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings, flush, fill, strip.white, quiet, blank.lines.skip, multi.line, comment.char, allowEscapes, encoding))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist41_c5b0b665bdce6d19b95fd76a087b6953() {
+ assertEval("argv <- list(properties = structure(list(.Data = 'numeric', comment = 'character'), .Names = c('.Data', 'comment')), prototype = structure(3.14159265358979, comment = 'Start with pi'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist42_9ebbfe4daa70ca2ef7e6172007134076() {
+ assertEval("argv <- list(structure(c(NA, NA, FALSE), .Names = c('perm', 'LDL', 'super')));list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist43_b64ca362409030a667ca156deb17fb99() {
+ assertEval("argv <- list(raster = structure('#000000', .Dim = c(1L, 1L), class = 'raster'), x = structure(0, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), width = NULL, height = NULL, just = 'centre', hjust = NULL, vjust = NULL, interpolate = TRUE, name = NULL, gp = structure(list(), class = 'gpar'), vp = NULL);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]],argv[[8]],argv[[9]],argv[[10]],argv[[11]],argv[[12]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist44_4a5d7768a000d47fabc9464a9ef26fb7() {
+ assertEval("argv <- list(trace = 0, fnscale = 1, parscale = 1, ndeps = 0.001, maxit = 100L, abstol = -Inf, reltol = 1.49011611938477e-08, alpha = 1, beta = 0.5, gamma = 2, REPORT = 10, type = 1, lmm = 5, factr = 1e+07, pgtol = 0, tmax = 10, temp = 10);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]],argv[[8]],argv[[9]],argv[[10]],argv[[11]],argv[[12]],argv[[13]],argv[[14]],argv[[15]],argv[[16]],argv[[17]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist45_72dab5449d87d4d567bf6a84441b8a5b() {
+ assertEval("argv <- list(error = function (...) {});list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist46_f1d3dc269e74b9cc9dc41830ba680647() {
+ assertEval("argv <- list(structure(list(srcfile = c(NA, '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R'), frow = c(NA, 832L, 833L, 834L, 842L, 845L, 845L, 849L, 858L, 860L, 862L, 863L), lrow = c(NA, 832L, 833L, 834L, 842L, 846L, 846L, 851L, 859L, 860L, 862L, 863L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 12L), class = 'data.frame'), structure(list( srcfile = '/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R', frow = 863L, lrow = 863L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist48_26d67bf37ae3bc21b10c95570f25244b() {
+ assertEval("argv <- list(structure(list(Month = c(5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L)), .Names = 'Month', class = 'data.frame', row.names = c(1L, 2L, 3L, 4L, 6L, 7L, 8L, 9L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 28L, 29L, 30L, 31L, 38L, 40L, 41L, 44L, 47L, 48L, 49L, 50L, 51L, 62L, 63L, 64L, 66L, 67L, 68L, 69L, 70L, 71L, 73L, 74L, 76L, 77L, 78L, 79L, 80L, 81L, 82L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L, 97L, 98L, 99L, 100L, 101L, 104L, 105L, 106L, 108L, 109L, 110L, 111L, 112L, 113L, 114L, 116L, 117L, 118L, 120L, 121L, 122L, 123L, 124L, 125L, 126L, 127L, 128L, 129L, 130L, 131L, 132L, 133L, 134L, 135L, 136L, 137L, 138L, 139L, 140L, 141L, 142L, 143L, 144L, 145L, 146L, 147L, 148L, 149L, 151L, 152L, 153L)));list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist49_28ca3680b9ecafefae85c2bef52ef2c8() {
+ assertEval("argv <- list(structure(list(stats = c(7, 35, 60, 80, 135), n = 26L, conf = c(46.0561427916751, 73.9438572083249), out = integer(0)), .Names = c('stats', 'n', 'conf', 'out')));list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist5_6fca78e57d388cc155e7fb56357c6e5d() {
+ assertEval("argv <- list(structure(list(Hair = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('Black', 'Brown', 'Red', 'Blond'), class = 'factor'), Eye = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L), .Label = c('Brown', 'Blue', 'Hazel', 'Green'), class = 'factor'), Sex = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Male', 'Female'), class = 'factor')), .Names = c('Hair', 'Eye', 'Sex'), out.attrs = structure(list(dim = structure(c(4L, 4L, 2L), .Names = c('Hair', 'Eye', 'Sex')), dimnames = structure(list(Hair = c('Hair=Black', 'Hair=Brown', 'Hair=Red', 'Hair=Blond'), Eye = c('Eye=Brown', 'Eye=Blue', 'Eye=Hazel', 'Eye=Green'), Sex = c('Sex=Male', 'Sex=Female')), .Names = c('Hair', 'Eye', 'Sex'))), .Names = c('dim', 'dimnames')), class = 'data.frame', row.names = c(NA, -32L)), Fr = c(32, 53, 10, 3, 11, 50, 10, 30, 10, 25, 7, 5, 3, 15, 7, 8, 36, 66, 16, 4, 9, 34, 7, 64, 5, 29, 7, 5, 2, 14, 7, 8));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist50_10b0daf050ae2f781bb97ae427b20730() {
+ assertEval("argv <- list('‘', 'Matrix', '’');list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist52_6835c28230d6b56ec666e683fbbebf58() {
+ assertEval("argv <- list(structure(1386392034.50546, class = c('POSIXct', 'POSIXt')));list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist53_eb76241f6d6432c150f4fb4dbcca24e9() {
+ assertEval("argv <- list(structure(list(sec = 54.5054557323456, min = 53L, hour = 23L, mday = 6L, mon = 11L, year = 113L, wday = 5L, yday = 339L, isdst = 0L), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')));list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist54_84ecc4e1bb9ddeae41aea8fd438ee141() {
+ assertEval("argv <- list(values = c(0.266917355843816, 0.00557315714782281, 0.00229578896250102, 0.000615239459643172, 8.19421206363694e-05), vectors = structure(c(-0.452472222108953, -0.386550651250976, -0.453293999783174, -0.439775552409852, -0.496960255453506, -0.157430201026812, 0.910628681750865, -0.204120426456847, -0.072367418669335, -0.314752194584169, 0.437863914035591, 0.0975567326834968, -0.370843683888789, -0.67178336056532, 0.458192050652246, 0.752103796361061, -0.0893037594956476, 0.0198033027727173, 0.0214021063919376, -0.652314722415877, 0.114453887261006, -0.0619800003080987, -0.784182499538679, 0.591277842073673, 0.136040832629847), .Dim = c(5L, 5L)));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist55_597ad833137e56c8f697416c3a92b072() {
+ assertEval("argv <- list(object = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist57_abfd321152229b78af86a9b83cb8c3cd() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R'), frow = 164:165, lrow = c(164L, 169L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'), structure(list(srcfile = '/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R', frow = 170L, lrow = 177L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist58_6661234bd12ddd632ed34fb8e88598e7() {
+ assertEval("argv <- list(structure(FALSE, .Names = 'Series 1', .Tsp = c(0, 0, 1), class = 'ts'), structure(FALSE, .Names = 'Series 1', .Tsp = c(1, 1, 1), class = 'ts'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist59_ad6b0a2f60cb8fbea8659597bc59e579() {
+ assertEval("argv <- list(structure(FALSE, .Tsp = c(1, 1, 1), class = 'ts'), structure(FALSE, .Tsp = c(1, 1, 1), class = 'ts'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist6_93b61fc100f555c4e5c217b8c362ccf7() {
+ assertEval("argv <- list(deviance.resid = structure(c(0.979005810350303, 0.190415231217834, -0.262041786489909, -1.18856115310823, -0.0713326116251696, 0.258231444611709, 0.637403312181204, -1.72855514890285, -0.632723785156881, -0.819071604478243, 2.23780874325045, -0.472376375886729), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')), coefficients = structure(c(0.291009862544455, -0.575062166945441, 0.0881289026086606, 0.127412648101879, 3.30209334202984, -4.5133836829576, 0.00095966129066828, 6.38014475989249e-06), .Dim = c(2L, 4L), .Dimnames = list(c('(Intercept)', 'M.userY'), c('Estimate', 'Std. Error', 'z value', 'Pr(>|z|)'))), aliased = structure(c(FALSE, FALSE), .Names = c('(Intercept)', 'M.userY')), dispersion = 1, df = c(2L, 10L, 2L), cov.unscaled = structure(c(0.00776670347500679, -0.00776670347500679, -0.00776670347500679, 0.0162339828963334), .Dim = c(2L, 2L), .Dimnames = list(c('(Intercept)', 'M.userY'), c('(Intercept)', 'M.userY'))), cov.scaled = structure(c(0.00776670347500679, -0.00776670347500679, -0.00776670347500679, 0.0162339828963334), .Dim = c(2L, 2L), .Dimnames = list(c('(Intercept)', 'M.userY'), c('(Intercept)', 'M.userY'))));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist60_a9ad16230ee856fa1e2de0ad4b2722a1() {
+ assertEval("argv <- list(Depends = structure(logical(0), .Dim = c(0L, 3L)), Installed = structure(logical(0), .Dim = c(0L, 3L)), R = structure(logical(0), .Dim = c(0L, 3L)));list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist61_deed697ac277f9b718644ae227607a84() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(12L, 1L), .Dimnames = structure(list(` p L s` = c('. . .', '| . .', '. | .', '| | .', '. . |', '| . |', '. | |', '| | |', '. . ?', '| . ?', '. | ?', '| | ?'), NULL), .Names = c(' p L s', ''))));list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist62_89e0f10f5d47b77f291683f2cfefcbc3() {
+ assertEval("argv <- list(values = c(-2572.90550008339+0i, -915.064609071159+0i, -456.632018115023+0i, 419.980933101553+0i, -366.745362912885+0i, -308.301779528581+0i, -258.104614655539+0i, -208.43876984087+0i, -174.152165416129+0i, 166.131403923756+0i, -153.932564395224+31.248756965275i, -153.932564395224-31.248756965275i, -145.261798316303+0i, -140.969649074553+0i, -109.026224585292+37.27313202252i, -109.026224585292-37.27313202252i, -95.4200045428049+0i, -94.2845517186135+0i, 93.6287479850051+0i, -83.7083948970612+39.7221174209657i, -83.7083948970612-39.7221174209657i, -89.7405335285911+14.6972603541884i, -89.7405335285911-14.6972603541884i, -90.4677652619726+0i, 80.9227484547009+0i, -79.2808369338756+0i, -67.7641499054793+34.4882180369511i, -67.7641499054793-34.4882180369511i, -74.7131802385517+0i, -72.7892236613541+0i, -70.8748882290923+0i, -65.326216345093+24.6325729497989i, -65.326216345093-24.6325729497989i, -65.6613463045206+12.2012477360608i, -65.6613463045206-12.2012477360608i, -64.009437139127+0i, -53.8555784147338+28.3814233344012i, -53.8555784147338-28.3814233344012i, -60.372612826631+0i, -55.598407412763+0i, -53.8337490558365+13.1765372798343i, -53.8337490558365-13.1765372798343i, -48.7010835501729+24.5244827641945i, -48.7010835501729-24.5244827641945i, -51.620171425175+0i, -49.1047272072286+7.0804434036442i, -49.1047272072286-7.0804434036442i, -44.0755122578262+21.8965512206582i, -44.0755122578262-21.8965512206582i, -47.6686025497685+0i, -47.0350049752776+0i, 43.2054741656531+0i, -42.0546965543942+0i, -41.4311176038551+0i, -36.4574226401686+16.1634950480082i, -36.4574226401686-16.1634950480082i, -39.2901755793811+0i, -36.5376333751307+11.2152902727145i, -36.5376333751307-11.2152902727145i, -38.0398197891428+0i, -32.9946255929378+12.9867445602001i, -32.9946255929378-12.9867445602001i, -34.7321001383969+0i, -32.0667502593492+12.342590095597i, -32.0667502593492-12.342590095597i, -27.2830437098322+11.6992356475951i, -27.2830437098322-11.6992356475951i, -29.1247671355682+2.0847233845627i, -29.1247671355682-2.0847233845627i, -28.1216021055426+0i, -27.0745572919711+0i, 26.1565478253913+0i, -23.4210302095847+1.8723763695687i, -23.4210302095847-1.8723763695687i, 20.782836979896+0i, 16.5058357149619+0i, -15.9316203363047+0i, 13.2377600042936+0i, -11.9119569568831+0i, -11.1832867499603+0i, 8.99100195370794+0i, 7.62805946796798+0i, -7.44159556589097+0i, -6.46699019595805+0i, 5.57838460483725+0i, 5.07382264677001+0i, -4.77172378340461+0i, 4.21976444063592+0i, -2.86123099075901+0i, -2.69814683135512+0i, -2.29820560404041+0i, 2.05951624519943+0i, -1.8306332549612+0i, 1.66021670517454+0i, 1.03505989993491+0i, -0.773887754953459+0i, -0.416100454072758+0i, 0.213086170361661+0i, -3.42336062193255e-06+0i, 3.42336057523814e-06+0i), vectors = NULL);list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist64_776b21324b07dad034b97f2090e8bb61() {
+ assertEval("argv <- list(fit = structure(numeric(0), .Dim = c(10L, 0L), constant = 0), se.fit = structure(numeric(0), .Dim = c(10L, 0L)), df = 10L, residual.scale = 0.523484262069588);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist65_9d360c20fd362699811b32986b23c4e6() {
+ assertEval("argv <- list(ANY = structure(function (x, y = NULL) .Internal(crossprod(x, y)), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = structure('crossprod', package = 'base'), class = structure('derivedDefaultMethod', package = 'methods')));list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist7_a7db077994e64d0c603e8f245c1891b2() {
+ assertEval("argv <- list(class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(1, sd = Inf))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist8_762414fc367763cc9598767d3fd83093() {
+ assertEval("argv <- list(upper = quote(~M.user * Temp * Soft));list(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlist_testlist9_28502366b65077f736dbe37796188c4d() {
+ assertEval("argv <- list(label = '', x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), just = 'centre', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = NULL, gp = structure(list(), class = 'gpar'), vp = NULL);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]],argv[[8]],argv[[9]],argv[[10]],argv[[11]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlistdirs_testlistdirs1_507c79e25c5ba58e0585049412e0c824() {
+ assertEval("argv <- list('/home/lzhao/hg/r-instrumented/library/rpart/doc', TRUE, FALSE); .Internal(list.dirs(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlistfiles_testlistfiles1_13009139ebbfa92701a1f8ac5ced3974() {
+ assertEval("argv <- list('.', 'myTst_.*tar\\.gz$', FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(list.files(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlistfiles_testlistfiles2_ddfe3735d68bc1d5cda87086abe5993d() {
+ assertEval("argv <- list('./myTst/data', NULL, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(list.files(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlistfiles_testlistfiles3_208f0e08c809f563500b4c3637be477c() {
+ assertEval("argv <- list('.', '^CITATION.*', FALSE, FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(list.files(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlistfiles_testlistfiles4_ac0902d5453c9f76cbcb2c321295c947() {
+ assertEval("argv <- list('mgcv', NULL, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(list.files(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlog10_testlog103_7de2a7ef5c0e3097db0c53c9e451eebf() {
+ assertEval("argv <- list(structure(7.94649180820227e-05, .Names = 'value'));log10(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlog10_testlog104_59f55d661983699bc555ecc87c9868cb() {
+ assertEval("argv <- list(c(0.0654707112145738, 0.999999999999999));log10(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlog10_testlog105_e6ea277d55371da6a195368c6435e823() {
+ assertEval("argv <- list(structure(c(160.1, 129.7, 84.8, 120.1, 160.1, 124.9, 84.8, 116.9, 169.7, 140.9, 89.7, 123.3, 187.3, 144.1, 92.9, 120.1, 176.1, 147.3, 89.7, 123.3, 185.7, 155.3, 99.3, 131.3, 200.1, 161.7, 102.5, 136.1, 204.9, 176.1, 112.1, 140.9, 227.3, 195.3, 115.3, 142.5, 244.9, 214.5, 118.5, 153.7, 244.9, 216.1, 188.9, 142.5, 301, 196.9, 136.1, 267.3, 317, 230.5, 152.1, 336.2, 371.4, 240.1, 158.5, 355.4, 449.9, 286.6, 179.3, 403.4, 491.5, 321.8, 177.7, 409.8, 593.9, 329.8, 176.1, 483.5, 584.3, 395.4, 187.3, 485.1, 669.2, 421, 216.1, 509.1, 827.7, 467.5, 209.7, 542.7, 840.5, 414.6, 217.7, 670.8, 848.5, 437, 209.7, 701.2, 925.3, 443.4, 214.5, 683.6, 917.3, 515.5, 224.1, 694.8, 989.4, 477.1, 233.7, 730, 1087, 534.7, 281.8, 787.6, 1163.9, 613.1, 347.4, 782.8), .Tsp = c(1960, 1986.75, 4), class = 'ts'));log10(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlog10_testlog107_503c096025a4b93a75b0148ebd7255ba() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(20L, 0L), .Dimnames = list(c('ant', 'bee', 'cat', 'cpl', 'chi', 'cow', 'duc', 'eag', 'ele', 'fly', 'fro', 'her', 'lio', 'liz', 'lob', 'man', 'rab', 'sal', 'spi', 'wha'), NULL)));log10(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlog1p_testlog1p1_c023c918bddc95b0e1cfd60af87a9763() {
+ assertEval("argv <- list(c(-0.160475096572577, -0.953101214495634, -0.329547420118877, -0.234819677566528, -0.108178529791777, -0.0994458210555148, -0.282992873965743, -0.731707656126625, -0.866467764292465, -0.76039953639421, -0.3580569675068, -0.52382260076554, -0.240530699925064, -0.236619747356161, -0.811827419307205, -0.154911720192001, -0.97472580847241, -0.464016625026599, -0.58493655376716, -0.230096919024049));log1p(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlog1p_testlog1p2_81b25cc10d353414f1f37782c032d890() {
+ assertEval("argv <- list(-7e-04);log1p(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinlog2_testlog22_43b705a6a4c410cceffa89c5116e2edd() {
+ assertEval("argv <- list(FALSE);log2(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmakenames_testmakenames1_898df0e3a59db50576c53c531d007018() {
+ assertEval("argv <- list('head', TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmakenames_testmakenames10_4aa926b564582b235ded66f082258d20() {
+ assertEval("argv <- list(c('', '', 'bady'), TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmakenames_testmakenames11_22d9a3235e2cab99684db62ef344d299() {
+ assertEval("argv <- list(character(0), TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmakenames_testmakenames2_67e507c1d0708a736eec9c03185c6352() {
+ assertEval("argv <- list('FALSE', TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmakenames_testmakenames3_03ae4bfa7f133486b1910528c62665f6() {
+ assertEval("argv <- list(c('.Call', '.Call numParameters', '.Fortran', '.Fortran numParameters'), TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmakenames_testmakenames4_0560c1f540e0b5bb98fcdbd018329fc5() {
+ assertEval("argv <- list('..adfl.row.names', TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmakenames_testmakenames5_f52ad37b2de0be513050a1de0e3b9418() {
+ assertEval("argv <- list(c('name', 'title', 'other.author'), TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmakenames_testmakenames6_7255cfa6a5dc8bed4e0627ee7a2e2cbf() {
+ assertEval("argv <- list('.2a', TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmakenames_testmakenames7_b3f46c6d69eea518172590428806ddf3() {
+ assertEval("argv <- list('', TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmakenames_testmakenames8_514336d382135927daedea4cc7e645e3() {
+ assertEval("argv <- list(NA_character_, TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmakenames_testmakenames9_c1f23c2ec8890fbb500886c5fcf439da() {
+ assertEval("argv <- list(c('Subject', 'predict.fixed', 'predict.Subject'), TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmakeunique_testmakeunique1_a259d93b75237c2f9d87f1469dcda44d() {
+ assertEval("argv <- list(c('A', 'B', 'C', 'D', 'E', 'F'), '.'); .Internal(make.unique(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmakeunique_testmakeunique2_ae9ba0d71a11d834ed5d0de6377fda42() {
+ assertEval("argv <- list(c('b', 'NA', 'NA'), '.'); .Internal(make.unique(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmakeunique_testmakeunique3_6d802924a5fd45b9d969c974781e035c() {
+ assertEval("argv <- list(c('1', '2', '3', '6', '7', '7', '7', '8', '8', '10', '11', '12', '12', '12', '15', '15', '16', '17', '19', '20', '21', '21', '23'), '.'); .Internal(make.unique(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmakeunique_testmakeunique4_90b66112232aa7fab5580ae74b7da5fa() {
+ assertEval("argv <- list(character(0), '.'); .Internal(make.unique(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmapply_testmapply1_4c9b17d42aa71ef6fbf0ca38186bc614() {
+ assertEval("argv <- list(.Primitive('c'), list(list(), list(), list()), NULL); .Internal(mapply(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatch_testmatch10_b875d387d67d1ef0f56c56c455bfd57f() {
+ assertEval("argv <- list(structure(1:27, .Label = c('M16', 'M05', 'M02', 'M11', 'M07', 'M08', 'M03', 'M12', 'M13', 'M14', 'M09', 'M15', 'M06', 'M04', 'M01', 'M10', 'F10', 'F09', 'F06', 'F01', 'F05', 'F07', 'F02', 'F08', 'F03', 'F04', 'F11'), class = c('ordered', 'factor')), structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 11L, 11L, 11L, 11L, 12L, 12L, 12L, 12L, 13L, 13L, 13L, 13L, 14L, 14L, 14L, 14L, 15L, 15L, 15L, 15L, 16L, 16L, 16L, 16L, 17L, 17L, 17L, 17L, 18L, 18L, 18L, 18L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 21L, 21L, 21L, 21L, 22L, 22L, 22L, 22L, 23L, 23L, 23L, 23L, 24L, 24L, 24L, 24L, 25L, 25L, 25L, 25L, 26L, 26L, 26L, 26L, 27L, 27L, 27L, 27L), .Label = c('M16', 'M05', 'M02', 'M11', 'M07', 'M08', 'M03', 'M12', 'M13', 'M14', 'M09', 'M15', 'M06', 'M04', 'M01', 'M10', 'F10', 'F09', 'F06', 'F01', 'F05', 'F07', 'F02', 'F08', 'F03', 'F04', 'F11'), class = c('ordered', 'factor')), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatch_testmatch11_ad5a24d20daaf4db398e63fff34a57d2() {
+ assertEval("argv <- list('g', 'l', NA_character_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatch_testmatch14_7c330871ec8b196a483f4903400f3702() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatch_testmatch19_a89b2507cc4a06ba1f61c1d516284135() {
+ assertEval("argv <- list(structure(list(col = 1, cellvp = structure(list(structure(list(x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), width = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), height = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), justification = 'centre', gp = structure(list(), class = 'gpar'), clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = c(1L, 1L), layout.pos.col = c(1L, 1L), valid.just = c(0.5, 0.5), valid.pos.row = c(1L, 1L), valid.pos.col = c(1L, 1L), name = 'GRID.VP.8'), .Names = c('x', 'y', 'width', 'height', 'justification', 'gp', 'clip', 'xscale', 'yscale', 'angle', 'layout', 'layout.pos.row', 'layout.pos.col', 'valid.just', 'valid.pos.row', 'valid.pos.col', 'name'), class = 'viewport'), structure(list(x = structure(1, unit = 'lines', valid.unit = 3L, data = list(NULL), class = 'unit'), y = structure(1, unit = 'lines', valid.unit = 3L, data = list( NULL), class = 'unit'), width = structure(list(fname = '-', arg1 = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), arg2 = structure(list(fname = 'sum', arg1 = structure(c(1, 1), unit = c('lines', 'lines'), valid.unit = c(3L, 3L), data = list(NULL, NULL), class = 'unit'), arg2 = NULL), .Names = c('fname', 'arg1', 'arg2'), class = c('unit.arithmetic', 'unit'))), .Names = c('fname', 'arg1', 'arg2'), class = c('unit.arithmetic', 'unit')), height = structure(list(fname = '-', arg1 = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), arg2 = structure(list(fname = 'sum', arg1 = structure(c(1, 1), unit = c('lines', 'lines'), valid.unit = c(3L, 3L), data = list(NULL, NULL), class = 'unit'), arg2 = NULL), .Names = c('fname', 'arg1', 'arg2'), class = c('unit.arithmetic', 'unit'))), .Names = c('fname', 'arg1', 'arg2'), class = c('unit.arithmetic', 'unit')), justification = c('left', 'bottom'), gp = structure(list(), class = 'gpar'), clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0, 0), valid.pos.row = NULL, valid.pos.col = NULL, name = 'GRID.VP.9'), .Names = c('x', 'y', 'width', 'height', 'justification', 'gp', 'clip', 'xscale', 'yscale', 'angle', 'layout', 'layout.pos.row', 'layout.pos.col', 'valid.just', 'valid.pos.row', 'valid.pos.col', 'name'), class = 'viewport')), class = c('vpStack', 'viewport'))), .Names = c('col', 'cellvp')), c('children', 'childrenOrder'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatch_testmatch24_2e0690ab98bb8e121fd4f5fa1fab0cf2() {
+ assertEval("argv <- list(structure(list(framevp = structure(list(x = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), width = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), height = structure(1, unit = 'npc', valid.unit = 0L, class = 'unit'), justification = 'centre', gp = structure(list(), class = 'gpar'), clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(nrow = 1L, ncol = 1L, widths = structure(list( fname = 'sum', arg1 = structure(c(1, 1, 1), unit = c('lines', 'lines', 'lines'), valid.unit = c(3L, 3L, 3L), data = list(NULL, NULL, NULL), class = 'unit'), arg2 = NULL), .Names = c('fname', 'arg1', 'arg2'), class = c('unit.arithmetic', 'unit')), heights = structure(list(fname = 'sum', arg1 = structure(c(1, 1, 1), unit = c('lines', 'lines', 'lines'), valid.unit = c(3L, 3L, 3L), data = list(NULL, NULL, NULL), class = 'unit'), arg2 = NULL), .Names = c('fname', 'arg1', 'arg2'), class = c('unit.arithmetic', 'unit')), respect = FALSE, valid.respect = 0L, respect.mat = structure(0L, .Dim = c(1L, 1L)), just = 'centre', valid.just = c(0.5, 0.5)), .Names = c('nrow', 'ncol', 'widths', 'heights', 'respect', 'valid.respect', 'respect.mat', 'just', 'valid.just'), class = 'layout'), layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, name = 'GRID.VP.33'), .Names = c('x', 'y', 'width', 'height', 'justification', 'gp', 'clip', 'xscale', 'yscale', 'angle', 'layout', 'layout.pos.row', 'layout.pos.col', 'valid.just', 'valid.pos.row', 'valid.pos.col', 'name'), class = 'viewport')), .Names = 'framevp'), c('children', 'childrenOrder'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatch_testmatch25_0f5d2a3c386c3caee76592a216c61557() {
+ assertEval("argv <- list(' *** Run successfully completed ***', c('', '> ### R code from vignette source 'Design-issues.Rnw'', '> ', '> ###################################################', '> ### code chunk number 1: preliminarie .... [TRUNCATED] ', '', '> ###################################################', '> ### code chunk number 2: diag-class', '> ###################################################', '> li .... [TRUNCATED] ', 'Loading required package: lattice', '', 'Attaching package: ‘Matrix’', '', 'The following object is masked from ‘package:base’:', '', ' det', '', '', '> (D4 <- Diagonal(4, 10*(1:4)))', '4 x 4 diagonal matrix of class \'ddiMatrix\'', ' [,1] [,2] [,3] [,4]', '[1,] 10 . . .', '[2,] . 20 . .', '[3,] . . 30 .', '[4,] . . . 40', '', '> str(D4)', 'Formal class 'ddiMatrix' [package \'Matrix\'] with 4 slots', ' ..@ diag : chr \'N\'', ' ..@ Dim : int [1:2] 4 4', ' ..@ Dimnames:List of 2', ' .. ..$ : NULL', ' .. ..$ : NULL', ' ..@ x : num [1:4] 10 20 30 40', '', '> diag(D4)', '[1] 10 20 30 40', '', '> ###################################################', '> ### code chunk number 3: diag-2', '> ###################################################', '> diag(D .... [TRUNCATED] ', '', '> D4', '4 x 4 diagonal matrix of class \'ddiMatrix\'', ' [,1] [,2] [,3] [,4]', '[1,] 11 . . .', '[2,] . 22 . .', '[3,] . . 33 .', '[4,] . . . 44', '', '> ###################################################', '> ### code chunk number 4: unit-diag', '> ###################################################', '> str .... [TRUNCATED] ', 'Formal class 'ddiMatrix' [package \'Matrix\'] with 4 slots', ' ..@ diag : chr \'U\'', ' ..@ Dim : int [1:2] 3 3', ' ..@ Dimnames:List of 2', ' .. ..$ : NULL', ' .. ..$ : NULL', ' ..@ x : num(0) ', '', '> getClass(\'diagonalMatrix\') ## extending \'denseMatrix\'', 'Virtual Class \'diagonalMatrix\' [package \'Matrix\']', '', 'Slots:', ' ', 'Name: diag Dim Dimnames', 'Class: character integer list', '', 'Extends: ', 'Class \'sparseMatrix\', directly', 'Class \'Matrix\', by class \'sparseMatrix\', distance 2', 'Class \'mMatrix\', by class \'Matrix\', distance 3', '', 'Known Subclasses: \'ddiMatrix\', \'ldiMatrix\'', '', '> ###################################################', '> ### code chunk number 5: Matrix-ex', '> ###################################################', '> (M .... [TRUNCATED] ', '4 x 4 sparse Matrix of class \'dgTMatrix\'', ' ', '[1,] . . 4 .', '[2,] . 1 . .', '[3,] 4 . . .', '[4,] . . . 8', '', '> m <- as(M, \'matrix\')', '', '> (M. <- Matrix(m)) # dsCMatrix (i.e. *symmetric*)', '4 x 4 sparse Matrix of class \'dsCMatrix\'', ' ', '[1,] . . 4 .', '[2,] . 1 . .', '[3,] 4 . . .', '[4,] . . . 8', '', '> ###################################################', '> ### code chunk number 6: sessionInfo', '> ###################################################', '> t .... [TRUNCATED] ', '\\begin{itemize}\\raggedright', ' \\item R version 3.0.1 (2013-05-16), \\verb|x86_64-unknown-linux-gnu|', ' \\item Locale: \\verb|LC_CTYPE=en_US.UTF-8|, \\verb|LC_NUMERIC=C|, \\verb|LC_TIME=en_US.UTF-8|, \\verb|LC_COLLATE=C|, \\verb|LC_MONETARY=en_US.UTF-8|, \\verb|LC_MESSAGES=en_US.UTF-8|, \\verb|LC_PAPER=C|, \\verb|LC_NAME=C|, \\verb|LC_ADDRESS=C|, \\verb|LC_TELEPHONE=C|, \\verb|LC_MEASUREMENT=en_US.UTF-8|, \\verb|LC_IDENTIFICATION=C|', ' \\item Base packages: base, datasets, grDevices, graphics,', ' methods, stats, utils', ' \\item Other packages: Matrix~1.0-12, lattice~0.20-15', ' \\item Loaded via a namespace (and not attached): grid~3.0.1,', ' tools~3.0.1', '\\end{itemize}', '', ' *** Run successfully completed ***', '> proc.time()', ' user system elapsed ', '157.417 4.183 161.773 '), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatch_testmatch26_ef49e3e3a7e3e2ed99c17791f089b393() {
+ assertEval("argv <- list(c(NA, NA, NA, NA, NA, NA, NA, NA), c('real', 'double'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatch_testmatch28_4d42acd02ffc54a97b2e8a28cfcf59e5() {
+ assertEval("argv <- list(c(NA, NA), c('real', 'double'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatch_testmatch4_1cc99c7481426681808921dc446883ca() {
+ assertEval("argv <- list(c('1', '2', NA), NA_real_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix1_129288927fd1c25bf4d36562e3de1510() {
+ assertEval("argv <- list(NA_real_, 1L, 5L, FALSE, list('Residuals', c('Df', 'Sum Sq', 'Mean Sq', 'F value', 'Pr(>F)')), FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix10_dc72c70f5d57aa08375ee046e1463966() {
+ assertEval("argv <- list(c(1, 1, 1, 1, 1, 1), 1, 1, FALSE, NULL, TRUE, TRUE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix11_8bb57d223d3bbb1fa5c36bb7da3f2aa9() {
+ assertEval("argv <- list(c(420.223016031624, 290.609964753365, 290.609964753365, 200), 2, 2, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix12_660a31cd914f52ab4f6919d35f20c3ec() {
+ assertEval("argv <- list(1:4, 1, 2, FALSE, NULL, TRUE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix13_5bc9087ec092f4378bfbcdc1f03fd169() {
+ assertEval("argv <- list(c(0, 0, 0, 0), 4L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix14_b606b1e87cf667c98cdfc1c3885e78f0() {
+ assertEval("argv <- list(0+0i, 7L, 2L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix15_62e089343cf28ce959a6a8a376ccf37b() {
+ assertEval("argv <- list(0L, 1L, 2L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix16_f6948d866815804b1c4dc7a631aed1b9() {
+ assertEval("argv <- list(0, 12L, 12L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix17_f7707e6cfec1d1efa2e7cbec9b3fe58e() {
+ assertEval("argv <- list(NA, 240, 4L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix18_393309cf06a3a9fef66141fb3de3c314() {
+ assertEval("argv <- list(c(1448665, 18316380, 77.4, 139.8, 2251281, 26424236, 120.3, 201.7, NA, NA, 1835812, 22608335, 98.1, 172.5), 2L, 7L, FALSE, list(c('Ncells', 'Vcells'), c('used', '(Mb)', 'gc trigger', '(Mb)', 'limit (Mb)', 'max used', '(Mb)')), FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix19_8a96511b22d03016e2ca47f9db8ab269() {
+ assertEval("argv <- list(c('315.45', '363.01', '405.02', '443.06', '478.09', '510.72'), 1L, 1, TRUE, list('1979', c('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun')), FALSE, TRUE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix2_71d70e49707ce1e73538dd863ad3fb0f() {
+ assertEval("argv <- list(c(NA, 'a', 'b', '10', NA, NA, 'd', '12', NA, NA, NA, '14'), 1, 4, TRUE, NULL, TRUE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix20_6f82cce7d3c8240d77530591c2510e14() {
+ assertEval("argv <- list('', 0L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix21_ae5da2827444c941a6ee957caf47ba78() {
+ assertEval("argv <- list(character(0), 0L, 2L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix22_5d1009ae9762a3be8ec35e26bae759fd() {
+ assertEval("argv <- list(raw(0), 0L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix23_99a98909f36d6952fbe497c259b0467d() {
+ assertEval("argv <- list(character(0), 0L, 17L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix24_593fcf38d2384a24b7ece626a1275db0() {
+ assertEval("argv <- list(c(TRUE, FALSE, FALSE, TRUE), 2L, 2L, TRUE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix25_02c656525f8d9af8a83980a72d34fb51() {
+ assertEval("argv <- list(c(0.342020143325669, 0, -0.939692620785908, 0, 1, 0, 0.939692620785908, 0, 0.342020143325669), 3, 3, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix26_bfe592ed5c2b4ae50f83e71cf4db5c51() {
+ assertEval("argv <- list(NA_integer_, 1L, 1L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix27_364ae3cbbe01436b2a6bc69a1df5c9e4() {
+ assertEval("argv <- list(numeric(0), 1, 1L, FALSE, NULL, TRUE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix28_41e0446a1e0ca65f255d4d46f04b6f03() {
+ assertEval("argv <- list(NA_complex_, 5L, 1L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix29_eb80b03f9fa1526f108b3e3ab317fd08() {
+ assertEval("argv <- list(NA_character_, 4L, 17L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix3_874bd2e083c0a84dacffd9d54a7d9d64() {
+ assertEval("argv <- list(NA, 0L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix30_a92ef267a111bca7ffc2045040cd4c2f() {
+ assertEval("argv <- list(c(2.8421709430404e-14, 0, 0, 0, 0, 0, 0, -4.44089209850063e-16, 0, 0, 0, 0, 0, 0, 4.44089209850063e-16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7.105427357601e-15), 6L, 6L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix31_6d32b187f736788253ce3f8eb39682bb() {
+ assertEval("argv <- list(structure(integer(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c('row', 'col'))), 0, 2, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix32_aaf4f96745b0450a07ce25d6b8f9cc51() {
+ assertEval("argv <- list(c(24.2407407407407, 22.3953488372093, 24.4761904761905, 25.625, 24.3518518518519, 30.8333333333333, 30.8333333333333, 30.8333333333333, 24.2037037037037, 30.5, 30.5, 30.5, 24.4444444444444, 30.8571428571429, 30.8571428571429, 30.8571428571429, 24.2037037037037, 30.5, 30.5, 30.5, 24.2407407407407, 31.4545454545455, 31.4545454545455, 31.4545454545455, 24.8333333333333, 30.7857142857143, 30.7857142857143, 30.7857142857143, 24.7777777777778, 31.1428571428571, 31.1428571428571, 31.1428571428571, 24.2407407407407, 31.4545454545455, 31.4545454545455, 31.4545454545455, 24.2407407407407, 31.4545454545455, 31.4545454545455, 31.4545454545455, 24.2037037037037, 30.5, 30.5, 30.5, 24.5185185185185, 30.6428571428571, 30.6428571428571, 30.6428571428571, 24.8333333333333, 31.2857142857143, 31.2857142857143, 31.2857142857143, 24.8333333333333, 22.75, 20.5789473684211, 20.5789473684211, 24.5185185185185, 22.375, 24.4, 23.5833333333333, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.4444444444444, 22.2, 24.05, 24.05, 24.3518518518519, 30.8333333333333, 30.8333333333333, 30.8333333333333, 24.8148148148148, 22.4615384615385, 24.3809523809524, 25.5714285714286, 24.8333333333333, 22.575, 24.3333333333333, 23.5384615384615, 24.4444444444444, 22.2, 24.05, 24.05, 24.3518518518519, 30.8333333333333, 30.8333333333333, 30.8333333333333, 24.2037037037037, 22.4047619047619, 24.4761904761905, 24.4761904761905, 24.8148148148148, 22.4615384615385, 24.3809523809524, 25.5714285714286, 24.8148148148148, 22.4615384615385, 24.3809523809524, 25.5714285714286, 24.3518518518519, 22.5, 20.695652173913, 20.695652173913, 24.2407407407407, 22.3953488372093, 24.4761904761905, 25.625, 24.5185185185185, 22.375, 24.4, 23.5833333333333, 24.2407407407407, 22.3953488372093, 24.4761904761905, 23.7692307692308, 24.4444444444444, 22.2, 24.05, 24.05, 24.5185185185185, 22.375, 20.35, 20.35, 24.5185185185185, 22.375, 24.4, 23.5833333333333, 24.7777777777778, 22.55, 24.65, 26, 24.8148148148148, 30.9333333333333, 30.9333333333333, 30.9333333333333, 24.7777777777778, 22.55, 24.65, 23.9230769230769, 24.8333333333333, 22.575, 24.3333333333333, 23.5384615384615, 24.7777777777778, 22.55, 24.65, 23.9230769230769, 24.8333333333333, 22.575, 20.6315789473684, 20.6315789473684, 24.8333333333333, 22.75, 24.7142857142857, 24.7142857142857, 24.8333333333333, 22.75, 24.7142857142857, 24.7142857142857, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.2037037037037, 22.4047619047619, 20.3333333333333, 20.3333333333333, 24.7777777777778, 22.55, 20.45, 20.45, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.3518518518519, 22.5, 24.6842105263158, 24.6842105263158, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.4444444444444, 22.2, 20.35, 20.35, 24.2037037037037, 22.4047619047619, 24.4761904761905, 24.4761904761905, 24.5185185185185, 22.375, 20.35, 20.35, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.3518518518519, 22.5, 20.695652173913, 20.695652173913, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.8333333333333, 22.575, 20.6315789473684, 20.6315789473684, 24.7777777777778, 22.55, 20.45, 20.45, 24.8333333333333, 22.75, 20.5789473684211, 20.5789473684211, 24.8333333333333, 22.575, 20.6315789473684, 20.6315789473684, 24.8333333333333, 22.75, 20.5789473684211, 20.5789473684211, 24.4444444444444, 22.2, 20.35, 20.35, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222), 60L, 1, TRUE, list(c('Eagle Summit 4', 'Ford Escort 4', 'Ford Festiva 4', 'Honda Civic 4', 'Mazda Protege 4', 'Mercury Tracer 4', 'Nissan Sentra 4', 'Pontiac LeMans 4', 'Subaru Loyale 4', 'Subaru Justy 3', 'Toyota Corolla 4', 'Toyota Tercel 4', 'Volkswagen Jetta 4', 'Chevrolet Camaro V8', 'Dodge Daytona', 'Ford Mustang V8', 'Ford Probe', 'Honda Civic CRX Si 4', 'Honda Prelude Si 4WS 4', 'Nissan 240SX 4', 'Plymouth Laser', 'Subaru XT 4', 'Audi 80 4', 'Buick Skylark 4', 'Chevrolet Beretta 4', 'Chrysler Le Baron V6', 'Ford Tempo 4', 'Honda Accord 4', 'Mazda 626 4', 'Mitsubishi Galant 4', 'Mitsubishi Sigma V6', 'Nissan Stanza 4', 'Oldsmobile Calais 4', 'Peugeot 405 4', 'Subaru Legacy 4', 'Toyota Camry 4', 'Volvo 240 4', 'Acura Legend V6', 'Buick Century 4', 'Chrysler Le Baron Coupe', 'Chrysler New Yorker V6', 'Eagle Premier V6', 'Ford Taurus V6', 'Ford Thunderbird V6', 'Hyundai Sonata 4', 'Mazda 929 V6', 'Nissan Maxima V6', 'Oldsmobile Cutlass Ciera 4', 'Oldsmobile Cutlass Supreme V6', 'Toyota Cressida 6', 'Buick Le Sabre V6', 'Chevrolet Caprice V8', 'Ford LTD Crown Victoria V8', 'Chevrolet Lumina APV V6', 'Dodge Grand Caravan V6', 'Ford Aerostar V6', 'Mazda MPV V6', 'Mitsubishi Wagon 4', 'Nissan Axxess 4', 'Nissan Van 4'), structure(c('0.79767456', '0.28300396', '0.04154257', '0.01132626'), .Names = c('1', '2', '3', '4'))), FALSE, TRUE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix33_21a29d0ff4b7c9df7579311e16a9997c() {
+ assertEval("argv <- list(c(1+2i, 3-4i, 5+0i, -6+0i), 2L, 2L, TRUE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix34_f4beefcfa24319d680cab49233e6468d() {
+ assertEval("argv <- list(NA, 2, 5, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix35_bb801e30e125bd792e0933c8e180f381() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(1L, 0L), .Dimnames = list('r', NULL)), 0L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix36_2a0583afdbde06aa275d16f2da8d090c() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 0, 4.94065645841247e-324, 0, 0, 0, 0, 0), structure(12L, .Names = '1'), 1L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix37_a7d353e4c41d248a0e708e7f3224bf20() {
+ assertEval("argv <- list(1:7, 3, 4, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix38_d7b8d0c95b8472f4b5e6ea3f362c4d3d() {
+ assertEval("argv <- list(c(1, 3, 2, -2, 16, 4, 3, 3, 1, 32, -3, 2, 3, 2, 5, 1, 3, 4, 9, 0, 4, 16, 3, 5, 1, -1, 3, 2, -3, 4, 1, 2, 8, 0, 8, 5, 4, 2, 6, 5, 3, 1, 3, 1), 4L, 4L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix39_53c38f6077dd7aaca90c51c383503499() {
+ assertEval("argv <- list(c(-1, 4, 4, 9, 5, 1, 4, 8, 8, 2, 6, 0, 2, 3, 8, 8, 4, 4, 2, 3, 4, 0, -1, 7, 2, 4, 2, 3, 5, 6, 6, 5, 4, 3, 7, -1, 3, 1, -1, 2, 32, 1, 4, 4), 2L, 5L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix4_58ce8e56a3cf85efe057af9b7ffb9083() {
+ assertEval("argv <- list('foo', 1L, 1, FALSE, list(structure('object', simpleOnly = TRUE), NULL), FALSE, TRUE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix40_69bb81d6b630e72206f900d1505098f2() {
+ assertEval("argv <- list(c(1259, 845, 719, 390, 1360, 1053, 774, 413), 2, 1, TRUE, NULL, FALSE, TRUE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix41_4506ed270fec0fcccd716ed15003e8f4() {
+ assertEval("argv <- list(1:2, 2, 12, TRUE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix42_fa537b7a32d8b9000388c2008d68fb0c() {
+ assertEval("argv <- list(NA_character_, 1L, 17L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix43_8dec6c4c3a34100792db0fbe3738f2ed() {
+ assertEval("argv <- list(c('', '', '', '', '', '', ' 1', ' 2', ' 3', ' 4', ' 5', ' 6', ' 7', ' 8', ' 9', '10', '', '', '', '', '', '', '', ''), 1, 12, TRUE, list(c('1920', '1921'), c('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec')), TRUE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix44_4d002852813ae5281c78de2a673a8c83() {
+ assertEval("argv <- list(structure(list(a1 = 1:3, a2 = 4:6, a3 = 3.14159265358979, a4 = c('a', 'b', 'c')), .Names = c('a1', 'a2', 'a3', 'a4')), 2, 2, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix5_53b963b380fc4d60eb89161fd2eeba7d() {
+ assertEval("argv <- list(c(1, 2, 3, 0, 10, NA), 3, 2, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix6_e183e3544a3231d469a485ce85faba69() {
+ assertEval("argv <- list(1:25, 5, 5, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix7_28825920bfff0474f4ddb03ff8fadbe3() {
+ assertEval("argv <- list('ANY', 2L, 3L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix8_a78ed9549cf7519d0e8e57abcfd32e8d() {
+ assertEval("argv <- list(0L, 1L, 1L, TRUE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmatrix_testmatrix9_fd4685d9a4c85ee9a108cda523251ccb() {
+ assertEval("argv <- list(0L, 0L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmax_testmax11_8608c8811b4335b2c8da107e4440edf0() {
+ assertEval("argv <- list(numeric(0));max(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmax_testmax15_0cbe44fbb30efebcb583382fe042cea9() {
+ assertEval("argv <- list(c(1.2e+100, 1.3e+100));max(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmax_testmax16_5a290edcdd81e3b471f2df6b0f5b65cf() {
+ assertEval("argv <- list(structure(c(11368.8306749654, 11347.7238090355, 11341.9182102121, 11392.4878842821, 11367.3445285107, 11337.9245694652, 11332.0560643654, 11356.4682624019, 11387.6852128883, 11364.9132677, 11391.3319486445, 11374.2254758319, 11347.9708838458, 11353.2031583386, 11333.3748092474, 11323.9154302836, 11373.0896246266, 11330.2228965024, 11354.2399044028, 11367.8070731596, 11392.4287034031, 11357.6915504499, 11356.9044667059, 11335.1409634408, 11375.8374661156, 11354.7726842454, 11358.781884864, 11337.5281579299, 11339.0060699913, 11364.6998397419, 11363.2410538797, 11328.3945066198, 11325.487840571, 11367.9956844538, 11388.0030639744, 11364.8664695648, 11362.2630523606, 11359.821940674, 11391.9566656714, 11358.5349275633, 11370.7951655071, 11365.1078852355, 11339.7208074429, 11341.0716148671, 11374.0516736354, 11354.6799581982, 11335.2588737891, 11375.2688788734, 11330.349134828, 11383.518146432, 11366.0251480173, 11362.0011677193, 11346.0144123337, 11354.7192011815, 11358.0308680837, 11335.6606452791, 11360.0741421962, 11328.2693021996, 11342.4429152855, 11337.8889663466, 11342.9353336683, 11385.6565872063, 11354.2364726327, 11377.5989422849, 11384.6433324409, 11351.9186946652, 11327.4665936357, 11346.4841244179, 11373.6608162634, 11346.6330733448, 11367.1289885738, 11381.8430187805, 11382.9292165297, 11350.3951496719, 11349.6345719923, 11385.6811798196, 11368.1021034038, 11374.8755054101, 11365.3712412571, 11386.2157128048, 11343.5611108569, 11336.3882076922, 11385.0515660313, 11358.2337640012, 11384.3940280117, 11336.2435535709, 11376.0672136671, 11373.7149224868, 11389.0607372806, 11361.3352610911, 11372.8220707406, 11350.2233569878, 11330.0611188328, 11387.9111462012, 11342.8262750218, 11364.340121117, 11330.7252423461, 11381.8354922482, 11345.257457911, 11377.7995935893), class = 'Date'), na.rm = TRUE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmax_testmax17_846546dbc304f70557403d1282159159() {
+ assertEval("argv <- list(structure(c(3L, 2L, 1L), .Label = c('A', 'B', 'C'), class = c('ordered', 'factor')), na.rm = FALSE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmax_testmax18_85d9a59ed8eff6f67794e6d1917503eb() {
+ assertEval("argv <- list(structure(c(1338544800L, 1338566400L, 1338588000L, 1338609600L, 1338631200L, 1338652800L, 1338674400L, 1338696000L, 1338717600L, 1338739200L, 1338760800L, 1338782400L, 1338804000L, 1338825600L, 1338847200L, 1338868800L, 1338890400L, 1338912000L, 1338933600L, 1338955200L, 1338976800L, 1338998400L, 1339020000L, 1339041600L), class = c('POSIXct', 'POSIXt'), tzone = ''), na.rm = TRUE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmax_testmax19_1107df5692a44807570b7e1e965400bd() {
+ assertEval("argv <- list(structure(list(c(1L, 2L, 4L), 1:3, c(2L, 1L)), class = c('package_version', 'numeric_version')), na.rm = FALSE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmax_testmax2_9e35ea358a88ecb88dd7f0f80d0db911() {
+ assertEval("argv <- list(structure(c(1208822400, 1209168000, 1208822400, 1209168000), class = c('POSIXct', 'POSIXt')), na.rm = TRUE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmax_testmax20_821788b353e2614d4780d52d65a432e5() {
+ assertEval("argv <- list(structure(c(1208822400, 1209168000), class = c('POSIXct', 'POSIXt'), tzone = 'GMT'), na.rm = FALSE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmax_testmax5_5ebe9da0be4eef7e8bde44e34019b2e2() {
+ assertEval("max( );");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmax_testmax6_9c3ab3fc27d45d6f0b8d5c6a8791347f() {
+ assertEval("argv <- list(1L, structure(1:10, .Label = c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j'), class = 'factor'));max(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmax_testmax9_6b37ac20bbd5f6968bbbd7156f6f87c5() {
+ assertEval("argv <- list(structure(list(x = c(-1, 1, 1, -1, -1, 1, 1, -1), y = c(-0.701149425287356, -0.701149425287356, -0.701149425287356, -0.701149425287356, 0.701149425287356, 0.701149425287356, 0.701149425287356, 0.701149425287356), z = c(-0.4, -0.4, 0.4, 0.4, -0.4, -0.4, 0.4, 0.4)), .Names = c('x', 'y', 'z'), row.names = c(NA, -8L), class = 'data.frame'), na.rm = FALSE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmaxcol_testmaxcol1_df8662b0e48cf725d3be6b778572cdc3() {
+ assertEval("argv <- list(structure(c(80.2, 17, 15, 12, 9.96, 22.2, 83.1, 45.1, 6, 9, 84.84, 22.2, 92.5, 39.7, 5, 5, 93.4, 20.2, 85.8, 36.5, 12, 7, 33.77, 20.3, 76.9, 43.5, 17, 15, 5.16, 20.6, 76.1, 35.3, 9, 7, 90.57, 26.6, 83.8, 70.2, 16, 7, 92.85, 23.6, 92.4, 67.8, 14, 8, 97.16, 24.9, 82.4, 53.3, 12, 7, 97.67, 21, 82.9, 45.2, 16, 13, 91.38, 24.4, 87.1, 64.5, 14, 6, 98.61, 24.5, 64.1, 62, 21, 12, 8.52, 16.5, 66.9, 67.5, 14, 7, 2.27, 19.1, 68.9, 60.7, 19, 12, 4.43, 22.7, 61.7, 69.3, 22, 5, 2.82, 18.7, 68.3, 72.6, 18, 2, 24.2, 21.2, 71.7, 34, 17, 8, 3.3, 20, 55.7, 19.4, 26, 28, 12.11, 20.2, 54.3, 15.2, 31, 20, 2.15, 10.8, 65.1, 73, 19, 9, 2.84, 20, 65.5, 59.8, 22, 10, 5.23, 18, 65, 55.1, 14, 3, 4.52, 22.4, 56.6, 50.9, 22, 12, 15.14, 16.7, 57.4, 54.1, 20, 6, 4.2, 15.3, 72.5, 71.2, 12, 1, 2.4, 21, 74.2, 58.1, 14, 8, 5.23, 23.8, 72, 63.5, 6, 3, 2.56, 18, 60.5, 60.8, 16, 10, 7.72, 16.3, 58.3, 26.8, 25, 19, 18.46, 20.9, 65.4, 49.5, 15, 8, 6.1, 22.5, 75.5, 85.9, 3, 2, 99.71, 15.1, 69.3, 84.9, 7, 6, 99.68, 19.8, 77.3, 89.7, 5, 2, 100, 18.3, 70.5, 78.2, 12, 6, 98.96, 19.4, 79.4, 64.9, 7, 3, 98.22, 20.2, 65, 75.9, 9, 9, 99.06, 17.8, 92.2, 84.6, 3, 3, 99.46, 16.3, 79.3, 63.1, 13, 13, 96.83, 18.1, 70.4, 38.4, 26, 12, 5.62, 20.3, 65.7, 7.7, 29, 11, 13.79, 20.5, 72.7, 16.7, 22, 13, 11.22, 18.9, 64.4, 17.6, 35, 32, 16.92, 23, 77.6, 37.6, 15, 7, 4.97, 20, 67.6, 18.7, 25, 7, 8.65, 19.5, 35, 1.2, 37, 53, 42.34, 18, 44.7, 46.6, 16, 29, 50.43, 18.2, 42.8, 27.7, 22, 29, 58.33, 19.3), .Dim = c(6L, 47L), .Dimnames = list(c('Fertility', 'Agriculture', 'Examination', 'Education', 'Catholic', 'Infant.Mortality'), c('Courtelary', 'Delemont', 'Franches-Mnt', 'Moutier', 'Neuveville', 'Porrentruy', 'Broye', 'Glane', 'Gruyere', 'Sarine', 'Veveyse', 'Aigle', 'Aubonne', 'Avenches', 'Cossonay', 'Echallens', 'Grandson', 'Lausanne', 'La Vallee', 'Lavaux', 'Morges', 'Moudon', 'Nyone', 'Orbe', 'Oron', 'Payerne', 'Paysd'enhaut', 'Rolle', 'Vevey', 'Yverdon', 'Conthey', 'Entremont', 'Herens', 'Martigwy', 'Monthey', 'St Maurice', 'Sierre', 'Sion', 'Boudry', 'La Chauxdfnd', 'Le Locle', 'Neuchatel', 'Val de Ruz', 'ValdeTravers', 'V. De Geneve', 'Rive Droite', 'Rive Gauche'))), 1L); .Internal(max.col(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmaxcol_testmaxcol2_3e069e10258ed1d236f496c702d847de() {
+ assertEval("argv <- list(structure(c(0.0140185568997224, 0.0152950000405453, 0.013933189413423, 0.0141545247888734, 0.0144656253644622, 0.0138841285101751, 0.014995293880605, 0.0135531935867069, 0.0136464824425927, 0.0139216121812551, 0.0150015663096977, 0.0141230892456885, 0.013614290948012, 0.0169498879707739, 0.0167919904349555, 0.0164281655519131, 0.0145450130659148, 0.0154935322596005, 0.0140566103751186, 0.0137862479562347, 0.0138916844301758, 0.0144143878263478, 0.0153699249520618, 0.0156955405518398, 0.0143684930741837, 0.991123944314599, 0.772371856665358, 0.998388573397845, 0.997744681008954, 0.935000528851613, 0.995759465226583, 0.998319991897437, 0.998446741491899, 0.997291233910865, 0.998453850443283, 0.449550979690061, 0.99765492178392, 0.0744670889060699, 0.997953251276348, 0.998367231220745, 0.998303801028119, 0.996490251221358, 0.987068752837462, 0.963362766144961, 0.997745619693091, 0.998180187351627, 0.995230116685749, 0.99834615324817, 0.998224606721368, 0.998138182928866, 0.000101796455995556, 0.0169548122668949, 0.00010041243364593, 0.994976075194857, 0.000116262428296307, 0.000266333816370553, 0.000213420942072358, 0.000150164062855871, 9.91852669694001e-05, 0.962237984681016, 0.000109709045973819, 0.363503438381572, 0.000165884012322677, 0.000404227768170316, 0.000101407372837694, 0.000138346452367636, 0.76867700377653, 0.000101067307394145, 0.000798310678132636, 0.439735407970107, 0.000105640126458538, 0.000103729730504055, 0.000157422658078269, 0.00062878104546921, 0.000140302481934868, 0.987636544924171, 0.986762198204236, 0.987695606647598, 0.987542563977846, 0.987328468487257, 0.987729584212166, 0.986966061808917, 0.987959390267427, 0.987894530108167, 0.987703622276188, 0.986961786481457, 0.987564327481863, 0.987916920251847, 0.98565103396999, 0.98575611086066, 0.985998830615913, 0.98727397408636, 0.986627618096195, 0.987610242071539, 0.987797448350422, 0.987724349638781, 0.987363673212559, 0.986711269247982, 0.986491053812255, 0.987395229430566, 0.0127450421932153, 0.00673790924500044, 0.0168765170487183, 0.015797380803532, 0.00875985277873091, 0.0142537568101031, 0.0172964637554702, 0.0177648866573519, 0.0158550778308362, 0.0172334564486378, 0.00522951225361075, 0.016267073149734, 0.00347221059583105, 0.0218803200901225, 0.0183403081414579, 0.0180163362514856, 0.0146261930363668, 0.0119682371438135, 0.00971509310832369, 0.0157071233034631, 0.017455515535567, 0.0139105878597395, 0.0174050248646065, 0.0173796025035352, 0.0168918350504782, 0.00106971573173608, 0.0026383344434856, 0.00106703814487522, 0.0135614845327103, 0.0010949673490627, 0.00126684800065677, 0.0012190851300456, 0.00114670950680761, 0.00106469628452917, 0.00946684926508704, 0.00108427378412549, 0.00489096395354091, 0.00116581741675497, 0.00136406369196257, 0.00106938597766297, 0.00112914854449728, 0.00664571845549644, 0.00106837166942789, 0.00153810249624049, 0.0051794966429432, 0.00107683746869901, 0.00107356047093305, 0.00115632815053843, 0.001475874716352, 0.00113310775095649, 0.000705529701133523, 0.000706190813132159, 0.000705483416292851, 0.000705607277564461, 0.000705767694047911, 0.000705456690994395, 0.000706040550884142, 0.000705277731844386, 0.000705325918720134, 0.00070547711802582, 0.000706043725519247, 0.000705586003991082, 0.000705308033747408, 0.000706976814055453, 0.000706900888924168, 0.000706734153004456, 0.000705809204506355, 0.000706288779684405, 0.000705550244606539, 0.000705403095546089, 0.000705460812978617, 0.000705740784771567, 0.000706233802920496, 0.000706387215078423, 0.000705716602186515, 0.00537527373619432, 0.193553056279976, 0.000869791621482113, 0.00126068143747944, 0.0477132994644455, 0.00247011263414166, 0.000876993026210466, 0.000793804652755058, 0.00147446124252569, 0.000818798505743392, 0.527720370257185, 0.0012613575859543, 0.931485133910046, 0.000794860447953985, 0.000799403966921179, 0.000843774285071599, 0.00203097055872496, 0.00804383321163345, 0.0255537088264535, 0.00126855734163029, 0.000930853589102135, 0.00281671019786704, 0.000858777960111907, 0.000915470358337216, 0.000986308498091386, 0.999944492377256, 0.98624753604171, 0.999945310582066, 0.00303527549384713, 0.999935958318038, 0.99984366374275, 0.999876760118408, 0.999915533835607, 0.999946031942947, 0.0270168111120999, 0.999939809617296, 0.622685795280626, 0.999906081646851, 0.999754847875723, 0.999944697838299, 0.999922757726417, 0.198924025871316, 0.99994491987507, 0.99948964681356, 0.539122196215121, 0.999942224996369, 0.999943338667082, 0.999911124821608, 0.999605022779117, 0.999921489451661), .Dim = c(75L, 3L), .Dimnames = list( NULL, c('c', 's', 'v'))), 1L); .Internal(max.col(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmaxcol_testmaxcol3_207ddcc22fe384dfefb0977a8c29e2d4() {
+ assertEval("argv <- list(structure(list(), .Dim = 0:1), 1L); .Internal(max.col(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmean_testmean1_6d63044d182de4a3362485ccc134f396() {
+ assertEval("argv <- list(c(95.4489970123773, 98.5489970123773, 98.5489970123773, 98.5489970123773, 98.5489970123773, 98.5489970123773)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmean_testmean10_c131cf0ff3309cb502d49c3a8e5928ab() {
+ assertEval("argv <- list(c(TRUE, FALSE, TRUE, TRUE)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmean_testmean11_d6c85ab05506b4304e0869814432bd72() {
+ assertEval("argv <- list(structure(c(103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662), .Names = c('2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72'))); .Internal(mean(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmean_testmean12_eca7c9ecabad037b71ed081282c83c5c() {
+ assertEval("argv <- list(c(-1.12778377684043, -12820.0784261145, -21650982809.6744, -473300382255715392, -6.08456909882282e+25, -3.04622557026196e+34, -4.60125024792566e+43, -1.76183826972506e+53, -1.5069799345972e+63, -2.61556777274611e+73, -8.54170618068872e+83, -4.9383857330861e+94, -4.80716085942859e+105, -7.55412056676629e+116, -1.84898368353639e+128, -6.83535188151783e+139, -3.71562599613334e+151, -2.90089508183654e+163, -3.18582547396557e+175, -4.83110332887119e+187, -9.94902790498679e+199, -2.74100158340596e+212, -9.96611412047338e+224, -4.72336572671053e+237, -2.88514442494869e+250, -2.24780296109123e+263, -2.21240023126594e+276, -2.72671165723473e+289, -4.17369555651928e+302, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmean_testmean13_46152cb9e4ab3bed2c659c2bc5b7cc8a() {
+ assertEval("argv <- list(1:10); .Internal(mean(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmean_testmean14_290156131741c9e227df181becc40a71() {
+ assertEval("argv <- list(c(-2.16610675289233, 2.16610675289233)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmean_testmean15_9abd3e7f781e3925216367ec53ddb5c4() {
+ assertEval("argv <- list(c(-Inf, Inf)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmean_testmean16_da3df535b6e27638cb42086b8ae57a46() {
+ assertEval("argv <- list(numeric(0)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmean_testmean17_3ff1f045467adce67fbf87c1dec8e1f2() {
+ assertEval("argv <- list(c(1.77635683940025e-15, 7.105427357601e-14, 4.54747350886464e-13, 4.54747350886464e-13, 1.81898940354586e-12, 7.27595761418343e-12, 7.27595761418343e-12, 1.45519152283669e-11, 2.91038304567337e-11, 5.82076609134674e-11)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmean_testmean2_5b80432d7da7d000026ef5f85256359c() {
+ assertEval("argv <- list(c(0.104166666666667, 0.285714285714286, 0.285714285714286, NA)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmean_testmean3_3acc6ba76dfd344245f73f1dbe114f2c() {
+ assertEval("argv <- list(structure(c(59.8164361195774, 16.3642182644146, 111.747292631572, 33.1308121255244, 111.087966260681, 17.8530570409338, 109.920202428016, 21.131775457295, 0, 0, 16.3642182644146, 161.535939255833, 37.6748802609012, 67.2883398244609, 38.6252764993654, 76.8303935707398, 28.4778348377214, 75.3935967432183, 0, 0, 111.747292631572, 37.6748802609012, 398.433064545232, 41.228743361535, 56.6580728922266, 34.5026155985806, 59.292325604515, 36.0412835987832, 0, 0, 33.1308121255244, 67.2883398244609, 41.228743361535, 1176.45954558834, 42.4165944769534, 69.928075668575, 32.9974365646273, 68.4061187132491, 0, 0, 111.087966260681, 38.6252764993654, 56.6580728922266, 42.4165944769534, 1738.19143232074, 35.3995546471346, 61.6125843485971, 37.0026062612778, 0, 0, 17.8530570409338, 76.8303935707398, 34.5026155985806, 69.928075668575, 35.3995546471346, 3334.81773597237, 25.0719711616328, 77.7527739510622, 0, 0, 109.920202428016, 28.4778348377214, 59.292325604515, 32.9974365646273, 61.6125843485971, 25.0719711616328, 3310.21623403309, 26.7939833992556, 0, 0, 21.131775457295, 75.3935967432183, 36.0412835987832, 68.4061187132491, 37.0026062612778, 77.7527739510622, 26.7939833992556, 6145.64636329227, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(10L, 10L))); .Internal(mean(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmean_testmean4_982f7402dc23c0b0c4a2881a2c631c83() {
+ assertEval("argv <- list(structure(c(36, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 33, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 40, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 28, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 50, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 47, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 55, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 38, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 42), .Dim = c(10L, 10L), .Dimnames = list(c('a1', 'a2', 'a3', 'a4', 'a5', 'a6', 'a7', 'a8', 'a9', 'a10'), c('a1', 'a2', 'a3', 'a4', 'a5', 'a6', 'a7', 'a8', 'a9', 'a10')))); .Internal(mean(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmean_testmean5_21e9580475604a7da578856f01a44fa0() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmean_testmean6_d1689d9f0deb0058fec8487bd4b1c53e() {
+ assertEval("argv <- list(c(-0.207917278019599, -0.0833690664718293, 0.878133487533042, 0.070508391424576, 0.460916205989202, 0.497850478229239, 0.400771450594052, 0.400771450594052, -0.380471001012383, -0.686852851893526, 1.25381492106993, 0.821581081637487, -0.402884835299076, 0.821581081637487, 0.11068271594512, -0.560475646552213, 1.55870831414912, -0.686852851893526, -1.26539635156826, 1.55870831414912, 0.11068271594512, 1.20796199830499, 0.153373117836515, -0.694706978920513, -0.466655353623219, 0.821581081637487, -1.06782370598685, 0.779965118336318, -0.402884835299076, -1.68669331074241, 0.460916205989202, -0.295071482992271, -0.207917278019599, 0.460916205989202, 1.25381492106993, -0.0833690664718293, 0.359813827057364, -1.06782370598685, 1.71506498688328, 0.11068271594512, 0.837787044494525, 1.78691313680308, 0.426464221476814, -0.0833690664718293, 0.426464221476814, -1.26506123460653, 0.688640254100091, 0.878133487533042, 0.497850478229239, -0.217974914658295)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmean_testmean7_242eb54544a2161448a58f7f14b6dbd6() {
+ assertEval("argv <- list(1.47130567537631e-314); .Internal(mean(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmean_testmean8_a91ee89ef035cbad22852b11a3531341() {
+ assertEval("argv <- list(4.9306115419259e+108); .Internal(mean(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmean_testmean9_09c9d5009e4805408150b2a3a66ca4ee() {
+ assertEval("argv <- list(structure(c(2134, 1863, 1877, 1877, 1492, 1249, 1280, 1131, 1209, 1492, 1621, 1846, 2103, 2137, 2153, 1833, 1403, 1288, 1186, 1133, 1053, 1347, 1545, 2066, 2020, 2750, 2283, 1479, 1189, 1160, 1113, 970, 999, 1208, 1467, 2059, 2240, 1634, 1722, 1801, 1246, 1162, 1087, 1013, 959, 1179, 1229, 1655, 2019, 2284, 1942, 1423, 1340, 1187, 1098, 1004, 970, 1140, 1110, 1812, 2263, 1820, 1846, 1531, 1215, 1075, 1056, 975), .Tsp = c(1974, 1979.58333333333, 12), class = 'ts')); .Internal(mean(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmerge_testmerge1_67f3d35bee7a44212d18c4947fe9cd45() {
+ assertEval("argv <- list(c(0L, 0L, 0L, 0L, 0L), 0L, FALSE, TRUE); .Internal(merge(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmerge_testmerge2_5e73e0cf406f0165a44a7bd568061a10() {
+ assertEval("argv <- list(c(0L, 0L, 0L, 0L, 0L), 0L, TRUE, FALSE); .Internal(merge(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmerge_testmerge3_ab877162a6a6d8ad05f8a857a91d8755() {
+ assertEval("argv <- list(c(0L, 0L, 0L, 3L, 4L), c(0L, 0L, 0L, 3L, 4L), FALSE, FALSE); .Internal(merge(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmin_testmin10_3eff33ade5effcf4f29e3a2b76c52f0e() {
+ assertEval("argv <- list(c(2.00256647265648e-308, 2.22284878464869e-308, 2.22507363599982e-308, 2.2250738585072e-308, 2.22507408101459e-308, 2.22729893236571e-308, 2.44758124435792e-308));min(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmin_testmin13_341893ea4787c250bc3e31fa673bb2f5() {
+ assertEval("min( );");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmin_testmin15_e4f80ff9bce87b9dc26b274dbfdd036c() {
+ assertEval("argv <- list(structure(c(1208822400, 1209168000), class = c('POSIXct', 'POSIXt'), tzone = 'GMT'), na.rm = FALSE);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmin_testmin18_3dcb0e94d45cec63699680dc9ec09005() {
+ assertEval("argv <- list(c(4.5241870901798, 0.211646098116025, 1.86003798801034e-43));min(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmin_testmin20_574784a10aa58b754300bd8152cf28f2() {
+ assertEval("argv <- list(numeric(0));min(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmin_testmin5_cea78acf4c8889e24182ccb6af340f77() {
+ assertEval("argv <- list(structure(list(c(1L, 2L, 4L), 1:3, c(2L, 1L)), class = c('package_version', 'numeric_version')), na.rm = FALSE);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmin_testmin6_a4ec5c86068ddf5916f2532ecc622948() {
+ assertEval("argv <- list(structure(c(1338544800L, 1338566400L, 1338588000L, 1338609600L, 1338631200L, 1338652800L, 1338674400L, 1338696000L, 1338717600L, 1338739200L, 1338760800L, 1338782400L, 1338804000L, 1338825600L, 1338847200L, 1338868800L, 1338890400L, 1338912000L, 1338933600L, 1338955200L, 1338976800L, 1338998400L, 1339020000L, 1339041600L), class = c('POSIXct', 'POSIXt'), tzone = ''), na.rm = TRUE);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmin_testmin7_63b353dc1cec76c9466ce39a256673e1() {
+ assertEval("argv <- list(1.234e+100);min(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmin_testmin8_64e6a569096300db1b5d75de4779ab74() {
+ assertEval("argv <- list(structure(c(3L, 2L, 1L), .Label = c('A', 'B', 'C'), class = c('ordered', 'factor')), na.rm = FALSE);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinmin_testmin9_6a1c474d9c4291af3bd1ac906811bb9e() {
+ assertEval("argv <- list(structure(c(11368.8306749654, 11347.7238090355, 11341.9182102121, 11392.4878842821, 11367.3445285107, 11337.9245694652, 11332.0560643654, 11356.4682624019, 11387.6852128883, 11364.9132677, 11391.3319486445, 11374.2254758319, 11347.9708838458, 11353.2031583386, 11333.3748092474, 11323.9154302836, 11373.0896246266, 11330.2228965024, 11354.2399044028, 11367.8070731596, 11392.4287034031, 11357.6915504499, 11356.9044667059, 11335.1409634408, 11375.8374661156, 11354.7726842454, 11358.781884864, 11337.5281579299, 11339.0060699913, 11364.6998397419, 11363.2410538797, 11328.3945066198, 11325.487840571, 11367.9956844538, 11388.0030639744, 11364.8664695648, 11362.2630523606, 11359.821940674, 11391.9566656714, 11358.5349275633, 11370.7951655071, 11365.1078852355, 11339.7208074429, 11341.0716148671, 11374.0516736354, 11354.6799581982, 11335.2588737891, 11375.2688788734, 11330.349134828, 11383.518146432, 11366.0251480173, 11362.0011677193, 11346.0144123337, 11354.7192011815, 11358.0308680837, 11335.6606452791, 11360.0741421962, 11328.2693021996, 11342.4429152855, 11337.8889663466, 11342.9353336683, 11385.6565872063, 11354.2364726327, 11377.5989422849, 11384.6433324409, 11351.9186946652, 11327.4665936357, 11346.4841244179, 11373.6608162634, 11346.6330733448, 11367.1289885738, 11381.8430187805, 11382.9292165297, 11350.3951496719, 11349.6345719923, 11385.6811798196, 11368.1021034038, 11374.8755054101, 11365.3712412571, 11386.2157128048, 11343.5611108569, 11336.3882076922, 11385.0515660313, 11358.2337640012, 11384.3940280117, 11336.2435535709, 11376.0672136671, 11373.7149224868, 11389.0607372806, 11361.3352610911, 11372.8220707406, 11350.2233569878, 11330.0611188328, 11387.9111462012, 11342.8262750218, 11364.340121117, 11330.7252423461, 11381.8354922482, 11345.257457911, 11377.7995935893), class = 'Date'), na.rm = TRUE);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnames_testnames16_7c2429941efa2966c421240e10bf6879() {
+ assertEval("argv <- list(structure(list(), .Names = character(0)));names(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnames_testnames24_6b011f295a2c6c3b3ebf7f5bbcf81669() {
+ assertEval("argv <- list(structure(c(0.434200949779115, NA, 0.907914219551846, 0.907914219551846, 0.907914219551846, 0.434200949779115, 0.434200949779115), .Names = c('1', NA, '3', '4', '5', '6', '7')));names(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnames_testnames3_f58a94174b84f011c06f49d69307153c() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'));names(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnames_testnames34_e01202ee07ca89d878b085ed5dc115c2() {
+ assertEval("argv <- list(structure(c(100, -1e-13, Inf, -Inf, NaN, 3.14159265358979, NA), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));names(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnames_testnames36_a08bc967a7cff498129089e75a758ad5() {
+ assertEval("argv <- list(structure(c(2671, 6.026e+77, 3.161e+152, 3.501e+299, 2.409e+227, 1.529e+302), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'), class = 'table'));names(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnames_testnames4_1b914f06686de899d8349e5b6d7052ba() {
+ assertEval("argv <- list(structure(list(A = NULL, B = NULL, `NA` = NULL), .Names = c('A', 'B', NA)));names(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnames_testnames7_59202cac432980298c07321b47b4b369() {
+ assertEval("argv <- list(structure(1:20, .Tsp = c(1, 20, 1), class = 'ts'));names(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnames_testnames8_f2412a65720f15cc266a28f73140351b() {
+ assertEval("argv <- list(structure(c(12L, 120L, 116L), .Dim = 3L, .Dimnames = structure(list(c('0-5yrs', '6-11yrs', '12+ yrs')), .Names = ''), class = 'table'));names(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnames_testnames9_6e1968ccfccc93a03e8acbbbb8051d44() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(20L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 19L, 19L, 19L, 20L, 20L, 20L, 19L, 20L, 19L, 19L, 19L, 20L), mday = c(30L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 30L, 30L, 30L, 30L, 31L, 31L, 31L, 30L, 30L, 30L, 31L, 30L, 31L, 31L, 31L, 30L), mon = c(5L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 5L, 5L, 5L, 5L, 11L, 11L, 11L, 5L, 5L, 5L, 11L, 5L, 11L, 11L, 11L, 5L), year = c(72L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 81L, 82L, 83L, 85L, 87L, 89L, 90L, 92L, 93L, 94L, 95L, 97L, 98L, 105L, 108L, 112L), wday = c(5L, 0L, 1L, 2L, 3L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 0L, 4L, 0L, 1L, 2L, 3L, 4L, 0L, 1L, 4L, 6L, 3L, 6L), yday = c(181L, 365L, 364L, 364L, 364L, 365L, 364L, 364L, 364L, 180L, 180L, 180L, 180L, 364L, 364L, 364L, 181L, 180L, 180L, 364L, 180L, 364L, 364L, 365L, 181L), isdst = c(1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 1L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt'), tzone = c('', 'EST', 'EDT')));names(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnamesassign_testnamesassign1_c44fb91da1834d486b0a8d373c6bf3e4() {
+ assertEval("argv <- list(structure(list(happy = c('a', 'b', 'c', 'd'), sad = c('A', 'B', 'C', 'D', 'E', 'F')), .Names = c('happy', 'sad')), value = c('happy', 'sad'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnamesassign_testnamesassign10_1f4572801fee52230ec08e51f3383ab0() {
+ assertEval("argv <- list(structure(list(), .Names = character(0)), character(0));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnamesassign_testnamesassign11_60898f011311f7c472fd9b77cb639a40() {
+ assertEval("argv <- list(structure(list(save.object = NULL, panel.error = NULL, drop.unused.levels = NULL, default.theme = NULL, legend.bbox = NULL, banking = NULL, default.args = NULL, axis.padding = NULL, skip.boundary.labels = NULL, interaction.sep = NULL, panel.contourplot = NULL, panel.levelplot = NULL, panel.levelplot.raster = NULL, panel.parallel = NULL, panel.densityplot = NULL, panel.splom = NULL, panel.wireframe = NULL, panel.dotplot = NULL, panel.qq = NULL, panel.stripplot = NULL, panel.xyplot = NULL, panel.qqmath = NULL, panel.barchart = NULL, panel.bwplot = NULL, panel.histogram = NULL, panel.cloud = NULL, panel.pairs = NULL, prepanel.default.bwplot = NULL, prepanel.default.cloud = NULL, prepanel.default.densityplot = NULL, prepanel.default.histogram = NULL, prepanel.default.levelplot = NULL, prepanel.default.parallel = NULL, prepanel.default.qq = NULL, prepanel.default.qqmath = NULL, prepanel.default.splom = NULL, prepanel.default.xyplot = NULL, prepanel.default.dotplot = NULL, prepanel.default.barchart = NULL, prepanel.default.wireframe = NULL, prepanel.default.contourplot = NULL, axis.units = NULL, layout.heights = NULL, layout.widths = NULL, highlight.gpar = NULL), .Names = c('save.object', 'panel.error', 'drop.unused.levels', 'default.theme', 'legend.bbox', 'banking', 'default.args', 'axis.padding', 'skip.boundary.labels', 'interaction.sep', 'panel.contourplot', 'panel.levelplot', 'panel.levelplot.raster', 'panel.parallel', 'panel.densityplot', 'panel.splom', 'panel.wireframe', 'panel.dotplot', 'panel.qq', 'panel.stripplot', 'panel.xyplot', 'panel.qqmath', 'panel.barchart', 'panel.bwplot', 'panel.histogram', 'panel.cloud', 'panel.pairs', 'prepanel.default.bwplot', 'prepanel.default.cloud', 'prepanel.default.densityplot', 'prepanel.default.histogram', 'prepanel.default.levelplot', 'prepanel.default.parallel', 'prepanel.default.qq', 'prepanel.default.qqmath', 'prepanel.default.splom', 'prepanel.default.xyplot', 'prepanel.default.dotplot', 'prepanel.default.barchart', 'prepanel.default.wireframe', 'prepanel.default.contourplot', 'axis.units', 'layout.heights', 'layout.widths', 'highlight.gpar')), value = c('save.object', 'panel.error', 'drop.unused.levels', 'default.theme', 'legend.bbox', 'banking', 'default.args', 'axis.padding', 'skip.boundary.labels', 'interaction.sep', 'panel.contourplot', 'panel.levelplot', 'panel.levelplot.raster', 'panel.parallel', 'panel.densityplot', 'panel.splom', 'panel.wireframe', 'panel.dotplot', 'panel.qq', 'panel.stripplot', 'panel.xyplot', 'panel.qqmath', 'panel.barchart', 'panel.bwplot', 'panel.histogram', 'panel.cloud', 'panel.pairs', 'prepanel.default.bwplot', 'prepanel.default.cloud', 'prepanel.default.densityplot', 'prepanel.default.histogram', 'prepanel.default.levelplot', 'prepanel.default.parallel', 'prepanel.default.qq', 'prepanel.default.qqmath', 'prepanel.default.splom', 'prepanel.default.xyplot', 'prepanel.default.dotplot', 'prepanel.default.barchart', 'prepanel.default.wireframe', 'prepanel.default.contourplot', 'axis.units', 'layout.heights', 'layout.widths', 'highlight.gpar'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnamesassign_testnamesassign12_e3d0daa8144432e6fedd2a4f5e011407() {
+ assertEval("argv <- list(structure(c(100, -1e-13, Inf, -Inf, NaN, 3.14159265358979, NA), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')), value = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnamesassign_testnamesassign13_c7cf2abd9ec68e911725ad041ff08e7a() {
+ assertEval("argv <- list(structure(list(A = 0:10, B = 10:20, `NA` = 20:30), .Names = c('A', 'B', NA), row.names = c(NA, -11L), class = 'data.frame'), value = c('A', 'B', NA));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnamesassign_testnamesassign15_3e225c9fab805c5b349c8be6d91fba69() {
+ assertEval("argv <- list(structure(list(surname = structure(c(5L, 6L, 4L, 3L, 3L, 1L, 2L), .Label = c('McNeil', 'R Core', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), title = structure(c(2L, 5L, 4L, 6L, 7L, 3L, 1L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, 1L, NA, NA, NA, NA, 2L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'title', 'other.author'), row.names = c(NA, -7L), class = 'data.frame'), value = c('surname', 'title', 'other.author'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnamesassign_testnamesassign16_dff1df9e7c45c2fe150395b86ab66d9c() {
+ assertEval("argv <- list(structure(1:3, .Names = c('foo', 'bar', 'baz')), value = c('foo', 'bar', 'baz'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnamesassign_testnamesassign17_4ccd1d67e1bca4cd0ce4f0154f00805f() {
+ assertEval("argv <- list(structure(c(1+1i, 1.2+10i), .Names = c('a', 'b')), value = c('a', 'b'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnamesassign_testnamesassign18_3d3c6ead4cfdc16d64872dfa468d41f5() {
+ assertEval("argv <- list(structure(c(67L, 34L), .Dim = 2L, .Dimnames = list(c('\'actual\'', 'virtual')), class = 'table'), value = c('\'actual\'', 'virtual'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnamesassign_testnamesassign2_fef1858659664db592c6d712de19a5d1() {
+ assertEval("argv <- list(structure(list(population = c(3615, 365, 2212, 2110, 21198, 2541, 3100, 579, 8277, 4931, 868, 813, 11197, 5313, 2861, 2280, 3387, 3806, 1058, 4122, 5814, 9111, 3921, 2341, 4767, 746, 1544, 590, 812, 7333, 1144, 18076, 5441, 637, 10735, 2715, 2284, 11860, 931, 2816, 681, 4173, 12237, 1203, 472, 4981, 3559, 1799, 4589, 376), income = c(3624, 6315, 4530, 3378, 5114, 4884, 5348, 4809, 4815, 4091, 4963, 4119, 5107, 4458, 4628, 4669, 3712, 3545, 3694, 5299, 4755, 4751, 4675, 3098, 4254, 4347, 4508, 5149, 4281, 5237, 3601, 4903, 3875, 5087, 4561, 3983, 4660, 4449, 4558, 3635, 4167, 3821, 4188, 4022, 3907, 4701, 4864, 3617, 4468, 4566), illiteracy = c(2.1, 1.5, 1.8, 1.9, 1.1, 0.7, 1.1, 0.9, 1.3, 2, 1.9, 0.6, 0.9, 0.7, 0.5, 0.6, 1.6, 2.8, 0.7, 0.9, 1.1, 0.9, 0.6, 2.4, 0.8, 0.6, 0.6, 0.5, 0.7, 1.1, 2.2, 1.4, 1.8, 0.8, 0.8, 1.1, 0.6, 1, 1.3, 2.3, 0.5, 1.7, 2.2, 0.6, 0.6, 1.4, 0.6, 1.4, 0.7, 0.6), life.exp = c(69.05, 69.31, 70.55, 70.66, 71.71, 72.06, 72.48, 70.06, 70.66, 68.54, 73.6, 71.87, 70.14, 70.88, 72.56, 72.58, 70.1, 68.76, 70.39, 70.22, 71.83, 70.63, 72.96, 68.09, 70.69, 70.56, 72.6, 69.03, 71.23, 70.93, 70.32, 70.55, 69.21, 72.78, 70.82, 71.42, 72.13, 70.43, 71.9, 67.96, 72.08, 70.11, 70.9, 72.9, 71.64, 70.08, 71.72, 69.48, 72.48, 70.29), murder = c(15.1, 11.3, 7.8, 10.1, 10.3, 6.8, 3.1, 6.2, 10.7, 13.9, 6.2, 5.3, 10.3, 7.1, 2.3, 4.5, 10.6, 13.2, 2.7, 8.5, 3.3, 11.1, 2.3, 12.5, 9.3, 5, 2.9, 11.5, 3.3, 5.2, 9.7, 10.9, 11.1, 1.4, 7.4, 6.4, 4.2, 6.1, 2.4, 11.6, 1.7, 11, 12.2, 4.5, 5.5, 9.5, 4.3, 6.7, 3, 6.9), hs.grad = c(41.3, 66.7, 58.1, 39.9, 62.6, 63.9, 56, 54.6, 52.6, 40.6, 61.9, 59.5, 52.6, 52.9, 59, 59.9, 38.5, 42.2, 54.7, 52.3, 58.5, 52.8, 57.6, 41, 48.8, 59.2, 59.3, 65.2, 57.6, 52.5, 55.2, 52.7, 38.5, 50.3, 53.2, 51.6, 60, 50.2, 46.4, 37.8, 53.3, 41.8, 47.4, 67.3, 57.1, 47.8, 63.5, 41.6, 54.5, 62.9), frost = c(20, 152, 15, 65, 20, 166, 139, 103, 11, 60, 0, 126, 127, 122, 140, 114, 95, 12, 161, 101, 103, 125, 160, 50, 108, 155, 139, 188, 174, 115, 120, 82, 80, 186, 124, 82, 44, 126, 127, 65, 172, 70, 35, 137, 168, 85, 32, 100, 149, 173), area = c(50708, 566432, 113417, 51945, 156361, 103766, 4862, 1982, 54090, 58073, 6425, 82677, 55748, 36097, 55941, 81787, 39650, 44930, 30920, 9891, 7826, 56817, 79289, 47296, 68995, 145587, 76483, 109889, 9027, 7521, 121412, 47831, 48798, 69273, 40975, 68782, 96184, 44966, 1049, 30225, 75955, 41328, 262134, 82096, 9267, 39780, 66570, 24070, 54464, 97203), region = structure(c(2L, 4L, 4L, 2L, 4L, 4L, 1L, 2L, 2L, 2L, 4L, 4L, 3L, 3L, 3L, 3L, 2L, 2L, 1L, 2L, 1L, 3L, 3L, 2L, 3L, 4L, 3L, 4L, 1L, 1L, 4L, 1L, 2L, 3L, 3L, 2L, 4L, 1L, 1L, 2L, 3L, 2L, 2L, 4L, 1L, 2L, 4L, 2L, 3L, 4L), .Label = c('Northeast', 'South', 'North Central', 'West'), class = 'factor')), .Names = c('population', 'income', 'illiteracy', 'life.exp', 'murder', 'hs.grad', 'frost', 'area', 'region'), row.names = c('Alabama', 'Alaska', 'Arizona', 'Arkansas', 'California', 'Colorado', 'Connecticut', 'Delaware', 'Florida', 'Georgia', 'Hawaii', 'Idaho', 'Illinois', 'Indiana', 'Iowa', 'Kansas', 'Kentucky', 'Louisiana', 'Maine', 'Maryland', 'Massachusetts', 'Michigan', 'Minnesota', 'Mississippi', 'Missouri', 'Montana', 'Nebraska', 'Nevada', 'New Hampshire', 'New Jersey', 'New Mexico', 'New York', 'North Carolina', 'North Dakota', 'Ohio', 'Oklahoma', 'Oregon', 'Pennsylvania', 'Rhode Island', 'South Carolina', 'South Dakota', 'Tennessee', 'Texas', 'Utah', 'Vermont', 'Virginia', 'Washington', 'West Virginia', 'Wisconsin', 'Wyoming'), class = 'data.frame'), value = c('population', 'income', 'illiteracy', 'life.exp', 'murder', 'hs.grad', 'frost', 'area', 'region'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnamesassign_testnamesassign3_ec03de1267625939fcd9937f724189ff() {
+ assertEval("argv <- list(structure(list(`Sepal Length` = c(5.1, 4.9, 4.7, 4.6, 5, 5.4, 4.6, 5, 4.4, 4.9, 5.4, 4.8, 4.8, 4.3, 5.8, 5.7, 5.4, 5.1, 5.7, 5.1, 5.4, 5.1, 4.6, 5.1, 4.8, 5, 5, 5.2, 5.2, 4.7, 4.8, 5.4, 5.2, 5.5, 4.9, 5, 5.5, 4.9, 4.4, 5.1, 5, 4.5, 4.4, 5, 5.1, 4.8, 5.1, 4.6, 5.3, 5, 7, 6.4, 6.9, 5.5, 6.5, 5.7, 6.3, 4.9, 6.6, 5.2, 5, 5.9, 6, 6.1, 5.6, 6.7, 5.6, 5.8, 6.2, 5.6, 5.9, 6.1, 6.3, 6.1, 6.4, 6.6, 6.8, 6.7, 6, 5.7, 5.5, 5.5, 5.8, 6, 5.4, 6, 6.7, 6.3, 5.6, 5.5, 5.5, 6.1, 5.8, 5, 5.6, 5.7, 5.7, 6.2, 5.1, 5.7, 6.3, 5.8, 7.1, 6.3, 6.5, 7.6, 4.9, 7.3, 6.7, 7.2, 6.5, 6.4, 6.8, 5.7, 5.8, 6.4, 6.5, 7.7, 7.7, 6, 6.9, 5.6, 7.7, 6.3, 6.7, 7.2, 6.2, 6.1, 6.4, 7.2, 7.4, 7.9, 6.4, 6.3, 6.1, 7.7, 6.3, 6.4, 6, 6.9, 6.7, 6.9, 5.8, 6.8, 6.7, 6.7, 6.3, 6.5, 6.2, 5.9), `Sepal Width` = c(3.5, 3, 3.2, 3.1, 3.6, 3.9, 3.4, 3.4, 2.9, 3.1, 3.7, 3.4, 3, 3, 4, 4.4, 3.9, 3.5, 3.8, 3.8, 3.4, 3.7, 3.6, 3.3, 3.4, 3, 3.4, 3.5, 3.4, 3.2, 3.1, 3.4, 4.1, 4.2, 3.1, 3.2, 3.5, 3.6, 3, 3.4, 3.5, 2.3, 3.2, 3.5, 3.8, 3, 3.8, 3.2, 3.7, 3.3, 3.2, 3.2, 3.1, 2.3, 2.8, 2.8, 3.3, 2.4, 2.9, 2.7, 2, 3, 2.2, 2.9, 2.9, 3.1, 3, 2.7, 2.2, 2.5, 3.2, 2.8, 2.5, 2.8, 2.9, 3, 2.8, 3, 2.9, 2.6, 2.4, 2.4, 2.7, 2.7, 3, 3.4, 3.1, 2.3, 3, 2.5, 2.6, 3, 2.6, 2.3, 2.7, 3, 2.9, 2.9, 2.5, 2.8, 3.3, 2.7, 3, 2.9, 3, 3, 2.5, 2.9, 2.5, 3.6, 3.2, 2.7, 3, 2.5, 2.8, 3.2, 3, 3.8, 2.6, 2.2, 3.2, 2.8, 2.8, 2.7, 3.3, 3.2, 2.8, 3, 2.8, 3, 2.8, 3.8, 2.8, 2.8, 2.6, 3, 3.4, 3.1, 3, 3.1, 3.1, 3.1, 2.7, 3.2, 3.3, 3, 2.5, 3, 3.4, 3), `Petal Length` = c(1.4, 1.4, 1.3, 1.5, 1.4, 1.7, 1.4, 1.5, 1.4, 1.5, 1.5, 1.6, 1.4, 1.1, 1.2, 1.5, 1.3, 1.4, 1.7, 1.5, 1.7, 1.5, 1, 1.7, 1.9, 1.6, 1.6, 1.5, 1.4, 1.6, 1.6, 1.5, 1.5, 1.4, 1.5, 1.2, 1.3, 1.4, 1.3, 1.5, 1.3, 1.3, 1.3, 1.6, 1.9, 1.4, 1.6, 1.4, 1.5, 1.4, 4.7, 4.5, 4.9, 4, 4.6, 4.5, 4.7, 3.3, 4.6, 3.9, 3.5, 4.2, 4, 4.7, 3.6, 4.4, 4.5, 4.1, 4.5, 3.9, 4.8, 4, 4.9, 4.7, 4.3, 4.4, 4.8, 5, 4.5, 3.5, 3.8, 3.7, 3.9, 5.1, 4.5, 4.5, 4.7, 4.4, 4.1, 4, 4.4, 4.6, 4, 3.3, 4.2, 4.2, 4.2, 4.3, 3, 4.1, 6, 5.1, 5.9, 5.6, 5.8, 6.6, 4.5, 6.3, 5.8, 6.1, 5.1, 5.3, 5.5, 5, 5.1, 5.3, 5.5, 6.7, 6.9, 5, 5.7, 4.9, 6.7, 4.9, 5.7, 6, 4.8, 4.9, 5.6, 5.8, 6.1, 6.4, 5.6, 5.1, 5.6, 6.1, 5.6, 5.5, 4.8, 5.4, 5.6, 5.1, 5.1, 5.9, 5.7, 5.2, 5, 5.2, 5.4, 5.1), `Petal Width` = c(0.2, 0.2, 0.2, 0.2, 0.2, 0.4, 0.3, 0.2, 0.2, 0.1, 0.2, 0.2, 0.1, 0.1, 0.2, 0.4, 0.4, 0.3, 0.3, 0.3, 0.2, 0.4, 0.2, 0.5, 0.2, 0.2, 0.4, 0.2, 0.2, 0.2, 0.2, 0.4, 0.1, 0.2, 0.2, 0.2, 0.2, 0.1, 0.2, 0.2, 0.3, 0.3, 0.2, 0.6, 0.4, 0.3, 0.2, 0.2, 0.2, 0.2, 1.4, 1.5, 1.5, 1.3, 1.5, 1.3, 1.6, 1, 1.3, 1.4, 1, 1.5, 1, 1.4, 1.3, 1.4, 1.5, 1, 1.5, 1.1, 1.8, 1.3, 1.5, 1.2, 1.3, 1.4, 1.4, 1.7, 1.5, 1, 1.1, 1, 1.2, 1.6, 1.5, 1.6, 1.5, 1.3, 1.3, 1.3, 1.2, 1.4, 1.2, 1, 1.3, 1.2, 1.3, 1.3, 1.1, 1.3, 2.5, 1.9, 2.1, 1.8, 2.2, 2.1, 1.7, 1.8, 1.8, 2.5, 2, 1.9, 2.1, 2, 2.4, 2.3, 1.8, 2.2, 2.3, 1.5, 2.3, 2, 2, 1.8, 2.1, 1.8, 1.8, 1.8, 2.1, 1.6, 1.9, 2, 2.2, 1.5, 1.4, 2.3, 2.4, 1.8, 1.8, 2.1, 2.4, 2.3, 1.9, 2.3, 2.5, 2.3, 1.9, 2, 2.3, 1.8), Species = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('setosa', 'versicolor', 'virginica'), class = 'factor')), .Names = c('Sepal Length', 'Sepal Width', 'Petal Length', 'Petal Width', 'Species'), row.names = c(NA, -150L), class = 'data.frame'), value = c('Sepal Length', 'Sepal Width', 'Petal Length', 'Petal Width', 'Species'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnamesassign_testnamesassign4_571457ff282b2b58734f08c37e80fe16() {
+ assertEval("argv <- list(structure(list(y = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962, Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551)), .Names = c('y', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year', 'Employed'), row.names = 1947:1962, class = 'data.frame'), value = c('y', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year', 'Employed'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnamesassign_testnamesassign5_bde39c5ab7dde3476ffcf87c2751ce07() {
+ assertEval("argv <- list(c(-3.21402130636699, 101.08748330158, -8.50234284659562), value = NULL);`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnamesassign_testnamesassign6_0cf4c2e0535758cbacbc67772a034b0b() {
+ assertEval("argv <- list(structure(1:3, .Names = c(NA, 'b', NA)), value = c(NA, 'b'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnamesassign_testnamesassign7_df031072453201d0946b8bca52750b0c() {
+ assertEval("argv <- list(structure(c(3.14159265358979e-10, 0.0314159265358979, 3.14159265358979, 31.4159265358979, 314.159265358979, 314159265.358979, 3.14159265358979e+20), .Names = c('3.14e-10', '0.0314', '3.14', '31.4', '314', '3.14e+08', '3.14e+20')), value = c('3.14e-10', '0.0314', '3.14', '31.4', '314', '3.14e+08', '3.14e+20'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnamesassign_testnamesassign8_3efb9d815294bd2f6ecd3caba5d856f3() {
+ assertEval("argv <- list(structure(c('variable1', 'variable2'), .Names = c('variable1', 'variable2')), value = c('variable1', 'variable2'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnamesassign_testnamesassign9_b5e889e6c25360b1386457344188535d() {
+ assertEval("argv <- list(structure(c(NA, FALSE, TRUE), .Names = c(NA, 'FALSE', 'TRUE')), value = c(NA, 'FALSE', 'TRUE'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnchar_testnchar13_4de0e6231ac52311fe5e97213f4a491a() {
+ assertEval("argv <- list(structure(c('rpart', 'recommended', '4.1-1', '2013-03-20', 'c(person(\'Terry\', \'Therneau\', role = \'aut\',\n\t email = \'therneau@mayo.edu\'),\n person(\'Beth\', \'Atkinson\', role = \'aut\',\t\n\t email = \'atkinson@mayo.edu\'),\n person(\'Brian\', \'Ripley\', role = c(\'aut\', \'trl\', \'cre\'),\n email = \'ripley@stats.ox.ac.uk\',\n\t\t comment = \'author of R port\'))', 'Recursive partitioning and regression trees', 'Recursive Partitioning', 'R (>= 2.14.0), graphics, stats, grDevices', 'survival', 'GPL-2 | GPL-3', 'yes', 'yes', 'Maintainers are not available to give advice on using a package\nthey did not author.', '2013-03-20 07:27:05 UTC; ripley', 'Terry Therneau [aut],\n Beth Atkinson [aut],\n Brian Ripley [aut, trl, cre] (author of R port)', 'Brian Ripley <ripley@stats.ox.ac.uk>'), .Names = c('Package', 'Priority', 'Version', 'Date', 'Authors@R', 'Description', 'Title', 'Depends', 'Suggests', 'License', 'LazyData', 'ByteCompile', 'Note', 'Packaged', 'Author', 'Maintainer')), 'c', TRUE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnormalizePath_testnormalizePath1_defa49a5aa65d3b1cd9f4f65281f4477() {
+ assertEval("argv <- list(c('/home/lzhao/hg/r-instrumented/library', '/home/lzhao/R/x86_64-unknown-linux-gnu-library/3.0', '/home/lzhao/hg/r-instrumented/library'), '/', NA); .Internal(normalizePath(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinnzchar_testnzchar9_3290dd2c704fc6a73840ca036445e0b6() {
+ assertEval("argv <- list(c(' \036 The other major change was an error for asymmetric loss matrices,', ' prompted by a user query. With L=loss asymmetric, the altered', ' priors were computed incorrectly - they were using L' instead of L.', ' Upshot - the tree would not not necessarily choose optimal splits', ' for the given loss matrix. Once chosen, splits were evaluated', ' correctly. The printed “improvement” values are of course the', ' wrong ones as well. It is interesting that for my little test', ' case, with L quite asymmetric, the early splits in the tree are', ' unchanged - a good split still looks good.'));nzchar(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoldClass_testoldClass10_228a45b48d4b1c5e1bfbc9abf13f9416() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')));oldClass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoldClass_testoldClass12_6d9013ed182f2b17dcb2aa8bdb29a990() {
+ assertEval("argv <- list(structure(1:5, .Tsp = c(1, 5, 1), class = 'ts'));oldClass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoldClass_testoldClass20_f44bcceb81148df6530188fb3a03e4b0() {
+ assertEval("argv <- list(structure(list(Model = 1:2, df = c(5, 6), AIC = c('1571.455', '1570.925'), BIC = c('1590.056', '1593.247'), logLik = c(-780.727255295109, -779.462624623506), Test = structure(1:2, .Label = c('', '1 vs 2'), class = 'factor'), L.Ratio = c(NA, 2.52926134320705), `p-value` = c(NA, 0.111752518719366)), .Names = c('Model', 'df', 'AIC', 'BIC', 'logLik', 'Test', 'L.Ratio', 'p-value'), row.names = c('fm1', 'fm2'), class = 'data.frame'));oldClass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoldClassassign_testoldClassassign1_6991d782cda33c6d2408210d55154932() {
+ assertEval("argv <- list(list(), NULL);`oldClass<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoldClassassign_testoldClassassign2_d28917eb4a217d340a8f63b40b45fd24() {
+ assertEval("argv <- list(NULL, NULL);`oldClass<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators1_8eef79c9520b9bb26857d9f27101c73f() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));`!`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators101_a3d29b3b8a08e460c98746854862b767() {
+ assertEval("argv <- list(structure(c(21, 0, 77, 0, 0, 96, 0, 0, 0, 0, 0, 0, 0, 0, 77, 0, 325, 0, 0, 288, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 361, 0, 513, 96, 0, 288, 0, 0, 576, 0, 0, 0, 0, 0, 513, 0, 729), .Dim = c(7L, 7L), .Dimnames = list(NULL, NULL)), 0);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators102_e392242864b10272f401db17c62e9107() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), 0L);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators104_e51827e9b2d50627855ed2a4a0b67006() {
+ assertEval("argv <- list(structure(c(-1.47120249322699, 0.791288894530825, 4.43110323863505), .Dim = c(1L, 3L)), 0.0031308);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators105_de95372e5d098bc1f1a0fe7801412028() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`<=`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators107_52d36541c4857242e673678de2671c5c() {
+ assertEval("argv <- list(structure(0:100, .Tsp = c(1, 101, 1), class = 'ts'), 0);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators108_8181ca7c1c37c1e17e3a5c89f7e343b4() {
+ assertEval("argv <- list(structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790, 800, 810, 820, 830, 840, 850, 860, 870, 880, 890, 900, 910, 920, 930, 940, 950, 960, 970, 980, 990, 1000, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96), .Dim = c(101L, 3L), .Dimnames = list(NULL, c('t1', '10 * t1', 't1 - 4')), .Tsp = c(1, 101, 1), class = c('mts', 'ts', 'matrix')), 0);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators109_92586c40bacb2026c7d5368eaee757ed() {
+ assertEval("argv <- list(structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, 104, 118, 115, 126, 141, 135, 125, 149, 170, 170, 158, 133, 114, 140, 145, 150, 178, 163, 172, 178, 199, 199, 184, 162, 146, 166, 171, 180, 193, 181, 183, 218, 230, 242, 209, 191, 172, 194, 196, 196, 236, 235, 229, 243, 264, 272, 237, 211, 180, 201, 204, 188, 235, 227, 234, 264, 302, 293, 259, 229, 203, 229, 242, 233, 267, 269, 270, 315, 364, 347, 312, 274, 237, 278, 284, 277, 317, 313, 318, 374, 413, 405, 355, 306, 271, 306, 315, 301, 356, 348, 355, 422, 465, 467, 404, 347, 305, 336, 340, 318, 362, 348, 363, 435, 491, 505, 404, 359, 310, 337, 360, 342, 406, 396, 420, 472, 548, 559, 463, 407, 362, 405, 417, 391, 419, 461, 472, 535, 622, 606, 508, 461, 390, 432, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 419.147602949539, 391.474665943444, 435.919286153217, 443.935203034261, 455.023399013445, 517.28707821144, 589.71337277669, 582.999919227301, 484.573388713116, 428.878182738437, 368.526582998452, 406.728709993152, 415.660571294428, 388.716535970235, 433.006017658935, 440.885684396326, 451.651900136866, 513.051252429496, 584.327164324967, 577.055407135124, 479.076505013118, 423.494870357491, 363.43932958967, 400.592058645117, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 484.030717075782, 462.954959541421, 526.353307750503, 546.165638262644, 569.502470928676, 657.838443307596, 761.241730163307, 763.280655335144, 642.989004951864, 576.423799567567, 501.429012064338, 559.981301364233, 591.700754553767, 565.210772316967, 642.377841008703, 666.682421047093, 695.547100430962, 804.065022775202, 931.340589597203, 934.837830059897, 788.422986194072, 707.666678543854, 616.37838266375, 689.250456425465), .Dim = c(168L, 3L), .Dimnames = list(NULL, c('structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, ', 'structure(c(419.147602949539, 391.474665943444, 435.919286153217, ', 'structure(c(484.030717075782, 462.954959541421, 526.353307750503, ')), .Tsp = c(1949, 1962.91666666667, 12), class = c('mts', 'ts', 'matrix')), 0);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators11_6a358875184a74ecf0766766ccec2b9c() {
+ assertEval("argv <- list(structure(68.6851383798793, .Names = ''), structure(35.9756377289347, .Names = 'Var1'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators110_5e09a2dbdb2811ad41daadd0ac7279bd() {
+ assertEval("argv <- list(structure(list(Fertility = c(80.2, 83.1, 92.5, 85.8, 76.9), Agriculture = c(17, 45.1, 39.7, 36.5, 43.5), Examination = c(15L, 6L, 5L, 12L, 17L), Education = c(12L, 9L, 5L, 7L, 15L)), .Names = c('Fertility', 'Agriculture', 'Examination', 'Education'), row.names = c('Courtelary', 'Delemont', 'Franches-Mnt', 'Moutier', 'Neuveville'), class = 'data.frame'), 6);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators112_3963dd31b169d53844495e248c650658() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`!`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators113_01361d047460f0e4f1c56abbee309be7() {
+ assertEval("argv <- list(structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c('fm2', 'original'), class = c('ordered', 'factor')), 'original');`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators116_ed9ba3527bf5fa5c67a461a914e1d462() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L), .Dim = 3:4), structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L, 4L, 4L, 4L), .Dim = 3:4));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators117_f4d25de202ad38dda3ae11229b98daf1() {
+ assertEval("argv <- list(structure(c(9L, 4L, 6L, 5L, 3L, 10L, 5L, 3L, 5L), .Dim = 9L, .Dimnames = structure(list(x = c('0', '1', '2', '3', '4', '5', '6', '7', '8')), .Names = 'x'), class = 'table'), c(9, 4, 6, 5, 3, 10, 5, 3, 5));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators118_b18ea452ac5c1a357275e5976a3933e6() {
+ assertEval("argv <- list(structure(c('white', 'aquamarine3', 'bisque2', 'blueviolet', 'burlywood4', 'chartreuse4', 'coral4', 'cyan3', 'darkgreen', 'darkorange1', 'aliceblue', 'white', 'white', 'white', 'white', 'chocolate', 'cornflowerblue', 'cyan4', 'darkgrey', 'darkorange2', 'antiquewhite', 'white', 'white', 'white', 'white', 'chocolate1', 'cornsilk', 'darkblue', 'darkkhaki', 'darkorange3', 'antiquewhite1', 'white', 'white', 'white', 'white', 'chocolate2', 'cornsilk1', 'darkcyan', 'darkmagenta', 'darkorange4', 'antiquewhite2', 'azure2', 'blanchedalmond', 'brown3', 'cadetblue3', 'chocolate3', 'cornsilk2', 'darkgoldenrod', 'darkolivegreen', 'darkorchid', 'antiquewhite3', 'azure3', 'blue', 'brown4', 'cadetblue4', 'chocolate4', 'cornsilk3', 'darkgoldenrod1', 'darkolivegreen1', 'darkorchid1', 'antiquewhite4', 'azure4', 'blue1', 'burlywood', 'chartreuse', 'coral', 'cornsilk4', 'darkgoldenrod2', 'darkolivegreen2', 'darkorchid2', 'aquamarine', 'beige', 'blue2', 'burlywood1', 'chartreuse1', 'coral1', 'cyan', 'darkgoldenrod3', 'darkolivegreen3', 'darkorchid3', 'aquamarine1', 'bisque', 'blue3', 'burlywood2', 'chartreuse2', 'coral2', 'cyan1', 'darkgoldenrod4', 'darkolivegreen4', 'darkorchid4', 'aquamarine2', 'bisque1', 'blue4', 'burlywood3', 'chartreuse3', 'coral3', 'cyan2', 'darkgray', 'darkorange', 'darkred'), .Dim = c(10L, 10L), class = 'raster'), 'white');`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators12_6205823d8ab8658ab17ce459ccb7a435() {
+ assertEval("argv <- list(structure(0.070387338608913, .Names = 'Var1'), structure(0.00374843815077052, .Names = 'Var2'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators120_571abbafc889c01f539529e23ed0df5e() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12), .Tsp = c(1959, 1997.91666666667, 12), class = 'ts'), 10L);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators121_1130a49b1be28115d545ef8a5bcd5ef2() {
+ assertEval("argv <- list(structure(c(0.86317353889998+0i, -3.79913366221062+3.31244294914647i, 1.55614767167993-1.74174276171448i, -2.23430861671215-1.65262168622253i, -2.23430861671215+1.65262168622253i, 1.55614767167993+1.74174276171448i, -3.79913366221062-3.31244294914647i, -3.33827801689622+0i, -0.24558402446046-1.38976239274682i, 0.38994543428825+2.49010387459687i, 1.4081214006546+1.81482300583077i, 1.4081214006546-1.81482300583077i, 0.38994543428825-2.49010387459687i, -0.24558402446046+1.38976239274682i, -2.31885928035568+0i, -4.19304293056817-0.22777444729915i, 0.98896416070392-1.81216964948694i, 1.39179443748361-4.40983340277928i, 1.39179443748361+4.40983340277928i, 0.98896416070392+1.81216964948694i, -4.19304293056817+0.22777444729915i, -1.0554525205105+0i, -0.26365333042432+1.4074399019829i, 0.40560122186879+3.13070845018955i, -1.20041403617116-3.43234427504359i, -1.20041403617116+3.43234427504359i, 0.40560122186879-3.13070845018955i, -0.26365333042432-1.4074399019829i, 0.0498590799965546+0i, 1.83744919383128-0.49050274510365i, -0.24547773966823+4.86316579489277i, -0.99323533469825+1.90306050881202i, -0.99323533469825-1.90306050881202i, -0.24547773966823-4.86316579489277i, 1.83744919383128+0.49050274510365i), .Dim = c(7L, 5L)), structure(c(0.86317353889998+0i, -3.79913366221062+3.31244294914647i, 1.55614767167993-1.74174276171448i, -2.23430861671215-1.65262168622253i, -2.23430861671215+1.65262168622253i, 1.55614767167993+1.74174276171448i, -3.79913366221062-3.31244294914647i, -3.33827801689622+0i, -0.24558402446046-1.38976239274682i, 0.38994543428825+2.49010387459687i, 1.4081214006546+1.81482300583077i, 1.4081214006546-1.81482300583077i, 0.38994543428825-2.49010387459687i, -0.24558402446046+1.38976239274682i, -2.31885928035568+0i, -4.19304293056817-0.22777444729915i, 0.98896416070392-1.81216964948694i, 1.39179443748361-4.40983340277928i, 1.39179443748361+4.40983340277928i, 0.98896416070392+1.81216964948694i, -4.19304293056817+0.22777444729915i, -1.0554525205105+0i, -0.26365333042432+1.4074399019829i, 0.40560122186879+3.13070845018955i, -1.20041403617116-3.43234427504359i, -1.20041403617116+3.43234427504359i, 0.40560122186879-3.13070845018955i, -0.26365333042432-1.4074399019829i, 0.0498590799965546+0i, 1.83744919383128-0.49050274510365i, -0.24547773966823+4.86316579489277i, -0.99323533469825+1.90306050881202i, -0.99323533469825-1.90306050881202i, -0.24547773966823-4.86316579489277i, 1.83744919383128+0.49050274510365i), .Dim = c(7L, 5L)));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators122_c75082b19991bf7920694eed1fee3d97() {
+ assertEval("argv <- list(c(1.22408179743946+0i, 0.359813827057364+0i, 0.400771450594052+0i, 0.11068271594512+0i, -0.555841134754075+0i), structure(c(1.22408179743946+0i, 0.359813827057364+0i, 0.400771450594052+0i, 0.11068271594512+0i, -0.555841134754075+0i), .Dim = c(1L, 5L)));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators126_b247bd4cada9ea987df987f69c0254ca() {
+ assertEval("argv <- list(structure(list(cde = 2L, cd = 4L), .Names = c('cde', 'cd'), row.names = 'ab', class = 'data.frame'), c(2, 4));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators127_6a0d217be60a9da4937ee648681aba86() {
+ assertEval("argv <- list(1, structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Names = c('is.array', 'is.atomic', 'is.call', 'is.character', 'is.complex', 'is.data.frame', 'is.double', 'is.environment', 'is.expression', 'is.factor', 'is.finite', 'is.function', 'is.infinite', 'is.integer', 'is.language', 'is.list', 'is.logical', 'is.matrix', 'is.na', 'is.name', 'is.nan', 'is.null', 'is.numeric', 'is.numeric_version', 'is.object', 'is.ordered', 'is.package_version', 'is.pairlist', 'is.primitive', 'is.qr', 'is.raw', 'is.recursive', 'is.symbol', 'is.table', 'is.vector')));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators130_3c02add1a8cf420daac6027427811d6e() {
+ assertEval("argv <- list(2, structure(list(2L), class = structure('L', package = '.GlobalEnv')));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators133_e32b26a50a63f1258a04c3a15f9dcf48() {
+ assertEval("argv <- list(structure(c(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2), .Dim = 5:6), structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Dim = 5:6, .Dimnames = structure(list(blocks = c('1', '2', '3', '4', '5'), varieties = c('1', '2', '3', '4', '5', '6')), .Names = c('blocks', 'varieties')), class = 'table'));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators137_d7562afd541b429a3dd6aa47e2c317ed() {
+ assertEval("argv <- list(structure(c(2, 1, 0, 1, 2), .Tsp = c(-1, 3, 1), class = 'ts'), 1e-05);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators139_036cb373bde70ef5d936dbeefe146080() {
+ assertEval("argv <- list(structure(c(-0.626453810742332, 0.183643324222082, -0.835628612410047, 1.59528080213779, 0.329507771815361, -0.820468384118015, 0.487429052428485, 0.738324705129217, 0.575781351653492, -0.305388387156356, 1.51178116845085, 0.389843236411431, -0.621240580541804, -2.2146998871775, 1.12493091814311, -0.0449336090152309, -0.0161902630989461, 0.943836210685299, 0.821221195098089, 0.593901321217509, 0.918977371608218, 0.782136300731067, 0.0745649833651906, -1.98935169586337, 0.61982574789471, -0.0561287395290008, -0.155795506705329, -1.47075238389927), .Dim = c(4L, 7L)), 0);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators141_eca21abeb74fdc0d611c2a4db296a15d() {
+ assertEval("argv <- list(structure(c(2, 2, 1, 1, 1, 0, 1, 2, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0), .Dim = 18L, .Dimnames = list(c('5', '8', '9', '12', '13', '16', '18', '23', '27', '28', '30', '31', '33', '34', '43', '45', '48', '161'))), 0);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators142_465d2b76c425c07e19e8cc91d98b7adf() {
+ assertEval("argv <- list(structure(list(c(3L, 0L, 1L)), class = c('R_system_version', 'package_version', 'numeric_version')), structure('2.13.2', .Names = 'SweaveListingUtils'));`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators144_2c2a189933293f0c5f22857e79b2ce05() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`>`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators147_462aea9b8c69f122f1fbbf5284cb92ad() {
+ assertEval("argv <- list(structure(0, .Tsp = c(1, 1, 1), class = 'ts'), 1e-05);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators149_87fdd96024fbf3cfb8357070b43cc815() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`>=`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators15_be9fcc00dbcfc2be825cda4e77962a47() {
+ assertEval("argv <- list(structure(c(1976, 1976.08333333333, 1976.16666666667, 1976.25, 1976.33333333333, 1976.41666666667, 1976.5, 1976.58333333333, 1976.66666666667, 1976.75, 1976.83333333333, 1976.91666666667, 1977, 1977.08333333333, 1977.16666666667, 1977.25, 1977.33333333333, 1977.41666666667, 1977.5, 1977.58333333333, 1977.66666666667, 1977.75, 1977.83333333333, 1977.91666666667, 1978), .Tsp = c(1976, 1978, 12), class = 'ts'), 0.001);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators151_3209b807e669f4a6a3baf1f44553e5a9() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 6L, 2L, 4L, 3L, 7L, 2L, 8L, 4L, 2L, 2L, 1L, 3L, 3L, 4L, 3L, 2L, 1L, 2L, 3L, 1L, 1L, 2L, 1L, 3L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 4L, 1L, 1L, 1L, 1L, 2L, 1L, 5L, 2L, 1L, 3L, 2L, 2L, 6L, 2L, 1L, 2L, 5L, 2L, 2L, 2L, 4L, 4L, 1L, 1L, 3L, 4L, 2L, 2L, 2L, 1L, 5L, 4L, 4L, 1L, 1L, 4L, 2L, 3L, 2L, 1L, 8L, 1L, 5L, 1L, 3L, 4L, 4L, 1L, 3L, 1L, 2L, 6L, 1L, 1L, 1L, 1L, 1L, 6L, 2L, 2L, 1L, 1L, 2L, 3L, 1L, 1L, 1L, 1L), .Dim = 124L, .Dimnames = structure(list(ne60 = c('96', '100', '102', '104', '105', '107', '108', '109', '110', '111', '112', '113', '115', '116', '117', '118', '119', '120', '121', '122', '124', '125', '126', '128', '129', '130', '131', '132', '133', '134', '135', '136', '137', '138', '139', '140', '141', '142', '143', '144', '145', '149', '157', '158', '168', '173', '174', '184', '199', '200', '202', '205', '207', '210', '214', '216', '221', '223', '224', '225', '226', '229', '230', '231', '233', '235', '237', '238', '240', '242', '243', '244', '245', '246', '247', '248', '249', '250', '251', '252', '254', '255', '256', '257', '258', '259', '260', '261', '262', '263', '264', '265', '266', '267', '268', '269', '270', '271', '272', '273', '274', '275', '276', '277', '278', '279', '280', '282', '283', '284', '285', '286', '287', '288', '289', '290', '291', '293', '294', '296', '300', '302', '304', '306')), .Names = 'ne60'), class = 'table'), 4);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators153_53bf623e542834ecf368110a92e1b750() {
+ assertEval("argv <- list(structure(list(2L), class = 'numeric_version'), '2');`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators156_92d8a04bcf943e9f86c8d50b69d67ca6() {
+ assertEval("argv <- list(structure(c(0L, 1L, 1L, 3L), .Names = c('1', '2', '3', '4')), 0:3);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators157_d8f8ba1efa573693d94bd11b792c7b0e() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators16_b33d95bb17cd4c1e8d54410f54d9518b() {
+ assertEval("argv <- list(1.678932e-305, 0+0i);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators160_b692fc7bd38881f9d5ce030e5d67a055() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1), .Dim = c(4L, 4L)), 0);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators165_e47c850c387aba4a4529f76eb65e816c() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));`!`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators166_34af1db046624def67055f7f7b56a597() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE), .Dim = c(5L, 2L), .Dimnames = list(NULL, c('VAR1', 'VAR3'))));`!`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators167_88f90f0ef9f9eceefdd23aea5fd81f76() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')), structure(c(TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators168_9356a73e37f1d5b19b01f02fad7cfd07() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`%%`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators169_f1b2742960c9b0c8374d37ebe067c38e() {
+ assertEval("argv <- list(structure(1:3, .Label = c('1', '2', NA), class = 'factor'), structure(1:3, .Label = c('1', '2', NA), class = 'factor'));`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators17_da8bd2475d66e2c4c431ce6c6efac096() {
+ assertEval("argv <- list(4.40646552950873, structure(c(2.62980519617636, 3.871217247387, 4.50132920500077, 4.98499803067693, 5.10709299286893, 5.03983500591087, 4.63030887318817, 5.53509956067429, 5.33332559980012, 5.70084841033141, 4.71574513022187, 4.22037009914704, 3.98171648049174, 4.03049403236714, 4.12846177743637, 4.47709151156657, 5.3332151234887, 5.63317778205492, 5.92697054095118, 6.19581080008781, 6.04311655609605, 6.94831988490059, 6.18986185304067, 5.62147157665625, 4.74634441202163, 4.26914765102244, 5.32109627677161, 6.60533693281051, 5.67035960484307, 5.44401652160046, 3.65126501643718, 3.93293892861635, 3.04580339357603, 3.07640267537579, 2.77049106976243, 2.76443164640389, 3.33918351115387, 4.07927158424254, 4.04908494376122, 4.33034621462195, 3.99989475056739, 4.25702880430535), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42')));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators171_e4cdd0497655c9b378c2cbdbe765935b() {
+ assertEval("argv <- list(structure(c(1960.08433333333, 1960.16766666667, 1960.251, 1960.33433333333, 1960.41766666667, 1960.501, 1960.58433333333, 1960.66766666667, 1960.751, 1960.83433333333, 1960.91766666667, 1961.001, 1961.08433333333, 1961.16766666667, 1961.251, 1961.33433333333, 1961.41766666667, 1961.501, 1961.58433333333, 1961.66766666667), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'), 1);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators175_4f0517c2fac61231fd6eb92180045897() {
+ assertEval("argv <- list(structure(c(52L, 52L, 1L, 1L), .Names = c('y', 'x', 'Ta', 'Tb')), 52L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators178_e404a08113583901f6b0ee9f40642ff9() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0), .Dim = c(12L, 4L), .Dimnames = list(c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), c('(Intercept)', 'M.userY', 'TempLow', 'M.userY:TempLow')), assign = 0:3, contrasts = structure(list(M.user = 'contr.treatment', Temp = 'contr.treatment'), .Names = c('M.user', 'Temp'))), c(0.262364229584951, -0.851832547542732, 0.0441056253109867, 0.444266588736502));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators179_94961e98abe4ea3c17f840200b6529e8() {
+ assertEval("argv <- list(structure(c(1976.001, 1976.08433333333, 1976.16766666667, 1976.251, 1976.33433333333, 1976.41766666667, 1976.501, 1976.58433333333, 1976.66766666667, 1976.751, 1976.83433333333, 1976.91766666667, 1977.001, 1977.08433333333, 1977.16766666667, 1977.251, 1977.33433333333, 1977.41766666667, 1977.501, 1977.58433333333, 1977.66766666667, 1977.751, 1977.83433333333, 1977.91766666667, 1978.001), .Tsp = c(1976, 1978, 12), class = 'ts'), 1);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators18_a5183b1ed31b7c2449b7c920f7faa7be() {
+ assertEval("argv <- list(100.35609040323, c(16.9869197055322, 32.9569269674228, 63.9409059420178, 124.054025326065, 240.681625836759, 466.954980809107, 905.955962962971, 1757.67737910411, 3410.13238536472, 6616.11910351861, 12836.1679387595, 24903.9058659644, 48316.9533415093, 93741.4393055559, 181871.099797343, 352854.587965931, 684585.733452663, 1328189.12501195, 2576866.95120412, 4999471.20418434, 9699651.86203691, 18818639.4925072, 36510711.6612103, 70835729.9973146, 137430918.652385, 266634612.255063, 517307292.635014, 1003646273.64047, 1947209824.67014, 3777851022.69026, 7329543107.69234, 14220307218.2724, 27589323701.4766, 53527027976.3571, 103849690372.38, 201482477136.65, 390903318513.094, 758405428581.828, 1471409340525, 2854733584163.2, 5538570139592.47, 10745576876721.9, 20847875806089.6, 40447705191861.9, 78474031143733.8, 152250258320878, 295386140114522, 573089154225693, 1111870646888807, 2157179779616058, 4185221198711724, 8119896472079771, 15753699885107074, 30564313341110788, 59298911165416064, 115047926192872144, 223208572655883520, 433054888999496256, 840185189372140416, 1630073162483360512, 3162562907154039296, 6135800755390145536, 11904285231665293312, 23095927088628809728, 44809229424741679104, 86935979401654583296, 1.68667585038894e+20, 3.27237979472409e+20, 6.34886040400066e+20, 1.23176498322335e+21, 2.3897910449238e+21, 4.63651858608037e+21, 8.99547458123233e+21, 1.74524401098118e+22, 3.38600996574481e+22, 6.56931833943232e+22, 1.2745368112143e+23, 2.47277418935474e+23, 4.79751713543167e+23, 9.30783359186e+23, 1.80584589336672e+24, 3.50358583273485e+24, 6.79743145992125e+24, 1.31879384887967e+25, 2.55863884188836e+25, 4.96410620111801e+25, 9.63103896202531e+25, 1.8685521165353e+26, 3.62524440610747e+26, 7.03346558424191e+26, 1.36458766866515e+27, 2.64748506006045e+27, 5.13647990832267e+27, 9.96546732089944e+27, 1.93343575165167e+28, 3.75112745382766e+28, 7.27769576146466e+28, 1.41197163381895e+29, 2.73941637580644e+29, 5.31483912303488e+29));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators180_0a6e3f794ff2a7db32d9cdf5748cd729() {
+ assertEval("argv <- list(structure(c(1, 0, NA, 1), .Dim = c(2L, 2L)), structure(c(1, 2, 0, 1, 0, 0), .Dim = 2:3));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators182_7ccd4493bbbe1b9fc4ee89461780fe08() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.35, 0.64, 0.12, 1.66, 1.52, 0.23, -1.99, 0.42, 1.86, -0.02, -1.64, -0.46, -0.1, 1.25, 0.37, 0.31, 1.11, 1.65, 0.33, 0.89, -0.25, -0.87, -0.22, 0.71, -2.26, 0.77, -0.05, 0.32, -0.64, 0.39, 0.19, -1.62, 0.37, 0.02, 0.97, -2.62, 0.15, 1.55, -1.41, -2.35, -0.43, 0.57, -0.66, -0.08, 0.02, 0.24, -0.33, -0.03, -1.13, 0.32, 1.55, 2.13, -0.1, -0.32, -0.67, 1.44, 0.04, -1.1, -0.95, -0.19, -0.68, -0.43, -0.84, 0.69, -0.65, 0.71, 0.19, 0.45, 0.45, -1.19, 1.3, 0.14, -0.36, -0.5, -0.47, -1.31, -1.02, 1.17, 1.51, -0.33, -0.01, -0.59, -0.28, -0.18, -1.07, 0.66, -0.71, 1.88, -0.14, -0.19, 0.84, 0.44, 1.33, -0.2, -0.45, 1.46, 1, -1.02, 0.68, 0.84), .Dim = c(100L, 2L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100'), c('(Intercept)', 'x')), assign = 0:1), c(1.15937252188199, 0.442508987631707));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators183_b023dc44c55f056cf7a6b66b76a1eaff() {
+ assertEval("argv <- list(c(-3, -2, -1, 0, 1, 2, 3, 4, 5), structure(c(-3, -2, -1, 0, 1, 2, 3, 4, 5), .Dim = c(1L, 9L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators184_92452e14882c5ca276a090555de4213a() {
+ assertEval("argv <- list(c(4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 4000, 8000, 12000, 16000, 20000, 24000, 28000, 32000, 36000, 40000, 44000, 48000), structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24), .Dim = c(1L, 24L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators185_fb8e8d4281a54bf250bed4f01eefbfab() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(10L, 0L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'), NULL)), structure(numeric(0), .Names = character(0)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators186_8ac8d377f486f1b899533c7cc99143d1() {
+ assertEval("argv <- list(structure(c(0.553622032575332, 0, 0, 0, 0, 1.83583330034692, 0, 0, 0, 0, 0.540309168173204, 0, 0, 0, 0, 0.347171956892285), .Dim = c(4L, 4L)), structure(c(3.26267089696047, -0.712693854979374, 2.39769041729195, 5.15111718577956, -0.712693854979374, 0.296710908544859, -1.00753262176762, -0.987904999293151, 2.39769041729195, -1.00753262176762, 3.42543180838832, 3.32535677689614, 5.15111718577956, -0.987904999293151, 3.32535677689614, 8.29680198510459), .Dim = c(4L, 4L), .Dimnames = list(c('A', 'B', 'C', 'D'), c('A', 'B', 'C', 'D'))));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators19_35579b6bb06ebf62a6bd7cd24bb396bb() {
+ assertEval("argv <- list(structure(c(798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988), .Tsp = c(1971, 2000, 1), class = 'ts'), structure(c(96.1627886140128, 99.5328179233045, 102.792420797859, 105.951789523417, 109.019638748919, 112.00348906474, 114.909884224142, 117.744560053261, 120.512577567101, 123.218429147578, 125.866124161059, 128.459258681722, 131.001072784874, 133.494498015905, 135.942197018618, 138.34659685001, 140.70991716901, 143.034194231449, 145.321301429523, 147.572966965162, 149.790789131479, 151.976249586445, 154.130724932091, 156.255496856342, 158.351761049736, 160.420635073182, 162.463165323754, 164.480333221768, 166.473060722972, 168.442215243699), .Tsp = c(1971, 2000, 1), class = 'ts'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators192_aa8cb7d7de7b90b7539ec5efc857a229() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, NA), .Dim = c(5L, 2L), .Dimnames = list(NULL, c('VAR1', 'VAR3'))), structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE), .Dim = c(5L, 2L), .Dimnames = list(NULL, c('VAR1', 'VAR3'))));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators193_50aa9cab26d3dc948abc88e58ec229fd() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')), structure(c(TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators195_1f782bffbabe014b420a84d687c86893() {
+ assertEval("argv <- list(7);`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators196_142ffc9dea969943aeb191a1afc8cbfb() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c('NA', 'a', 'b'), class = 'factor'));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators197_18c86837ef5f2eba92f53fec19141f30() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators198_602c14ccaf426a573c611426bbd5ffb2() {
+ assertEval("argv <- list(structure(c(0.500999999999976, 0.584333333333234, 0.667666666666719, 0.750999999999976, 0.834333333333234, 0.917666666666719, 0.000999999999976353, 0.0843333333332339, 0.167666666666719, 0.250999999999976), .Tsp = c(1920.5, 1921.25, 12), class = 'ts'));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators20_07aa2ed9c77431e83e27219551fdf866() {
+ assertEval("argv <- list(structure(978350400, class = c('POSIXct', 'POSIXt'), tzone = 'GMT'), c(1605796.39468342, 2250605.34500331, 3464617.14155227, 5492840.71388841, 1219772.31891453, 5433460.81468463, 5713396.02452517, 3996505.04896045, 3804881.73750043, 373683.36378783, 1245734.22899097, 1067815.23929536, 4155114.17658627, 2323059.28775668, 4656000.90815127, 3010085.0161314, 4340156.73798323, 5999048.06153476, 2298452.76521891, 4701988.69854212, 5653097.23772854, 1283037.96871752, 3941322.93728739, 759357.220374048, 1616150.60446411, 2335218.03170443, 80984.7349449992, 2312682.3643595, 5259890.2349174, 2058430.73196709, 2915620.53836882, 3626174.11217093, 2984937.82503158, 1126244.053334, 5003953.83093506, 4042886.83258742, 4803562.677674, 652843.049369752, 4377003.8016513, 2487387.75048405, 4965083.1868127, 3913420.05222291, 4735177.34632641, 3344763.6128068, 3203744.02103573, 4774026.48925781, 141107.11171478, 2886287.43334115, 4429033.49147737, 4189640.45360684, 2888643.47467571, 5208594.91588175, 2649611.30449176, 1480533.93148631, 427466.877132654, 601571.336723864, 1912811.28504127, 3136700.02379268, 4003806.70217425, 2460508.97211581, 5521073.589921, 1775713.19845319, 2776429.51241881, 2010322.98948616, 3936464.58484232, 1560485.48977822, 2894241.66157097, 4634646.93606645, 509525.338098407, 5293943.40406358, 2050713.12808245, 5076935.23793668, 2096741.74243212, 2018670.78146338, 2880972.33020514, 5396015.5351907, 5227525.11837333, 2358656.75892681, 4701235.58655381, 5809817.647174, 2628820.56391239, 4309288.77686709, 2419165.9430936, 1967729.81455922, 4578863.07127029, 1225882.75911659, 4300861.15349829, 735992.738373578, 1484714.53242749, 866704.886756837, 1449278.70250493, 356435.113750398, 3884559.38760191, 5299676.19835585, 4710875.96918643, 4822123.77896905, 2753499.89549071, 2480188.52821738, 4904143.22827756, 3658636.53959334));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators200_5366838236a082b9786d7f10e8ca6b3c() {
+ assertEval("argv <- list(structure(list(coefficients = structure(NA_real_, .Names = 'x'), residuals = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), effects = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c('', '', '', '', '', '', '', '', '', '')), rank = 0L, fitted.values = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), assign = 1L, qr = structure(list(qr = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(10L, 1L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'), 'x'), assign = 1L), qraux = 0, pivot = 1L, tol = 1e-07, rank = 0L), .Names = c('qr', 'qraux', 'pivot', 'tol', 'rank'), class = 'qr'), df.residual = 10L, xlevels = structure(list(), .Names = character(0)), call = quote(lm(formula = y ~ x + 0)), terms = quote(y ~ x + 0), model = structure(list(y = c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), x = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), .Names = c('y', 'x'), terms = quote(y ~ x + 0), row.names = c(NA, 10L), class = 'data.frame')), .Names = c('coefficients', 'residuals', 'effects', 'rank', 'fitted.values', 'assign', 'qr', 'df.residual', 'xlevels', 'call', 'terms', 'model'), class = 'lm'));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators202_b3fbde75053cf8633e601c73255f8b01() {
+ assertEval("argv <- list(structure(list(A = c(1, NA, 1), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA_integer_, NA_integer_, NA_integer_), E = c(FALSE, NA, TRUE), F = c('abc', NA, 'def')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators203_40af1d5a95cb0b7cc8dc9bc1497098f5() {
+ assertEval("argv <- list(structure(1395082079.73982, class = c('POSIXct', 'POSIXt')));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators204_b266862648145727fc3cdb5da5b70ae1() {
+ assertEval("argv <- list(quote(y ~ a + b:c + d + e + e:d));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators205_f7746e8d4d0d3c6b787e72d1c465d3fd() {
+ assertEval("argv <- list(structure(c(-Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, 0, 0, 1, 1, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, Inf, -Inf, -Inf, -Inf, -Inf, 0, 1, 1, 1, Inf, -Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.6, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.4, 0.8, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.533333333333334, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.525, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 0, 1, 2, Inf, Inf, Inf, -Inf, -Inf, 0, 0.5, 1, 2, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 1, 2, 2, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.8, 1.6, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.3, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.4, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.2, 1.9, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.499999999999999, 1.33333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.325, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.6, 2.7, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.1, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.2, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.13333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.125, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 3, 4, Inf, Inf, Inf, -Inf, -Inf, 0, 1.5, 3, 4, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 4, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.4, 3.8, Inf, Inf, Inf, -Inf, -Inf, 0.100000000000001, 1.5, 2.9, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1.5, 3, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.2, 1.5, 2.8, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.0666666666666664, 1.5, 2.93333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.0750000000000002, 1.5, 2.925, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 3, 5, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1.5, 3.2, 4.9, Inf, Inf, Inf, -Inf, -Inf, 0.300000000000001, 2, 3.7, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.2, 2, 3.8, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.4, 2, 3.6, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.266666666666667, 2, 3.73333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.275, 2, 3.725, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L, 6L), .Dimnames = list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL, NULL)));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators206_5b1d50338aecad5d6bc7dd1668bf3be7() {
+ assertEval("argv <- list(structure(character(0), .Dim = c(0L, 7L), .Dimnames = list(NULL, c('description', 'class', 'mode', 'text', 'isopen', 'can read', 'can write'))));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators207_aaa3ff64d428394173323d4657ee2d20() {
+ assertEval("argv <- list(structure(list(coefficients = structure(c(1.47191076131574, 0.586694550701453, NA, 0.258706725324317), .Names = c('(Intercept)', 'x1', 'x2', 'x3')), residuals = structure(c(0.224762433374997, 0.4813346401898, -0.548705796690786, -0.873306430909872, 0.3255545927283, -0.288240908441576, 0.530823516045489, -0.0649703574297026, 1.2699009772491, -1.05715266611575), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), effects = structure(c(-18.0083860263211, 7.91372047070235, 0.594462796282497, -0.733976126666906, 0.546582698364345, -0.032332374655677, 0.774795104738016, 0.120246912926227, 1.34954655602521, -1.1298961521627), .Names = c('(Intercept)', 'x1', 'x3', '', '', '', '', '', '', '')), rank = 3L, fitted.values = structure(c(2.08447598454963, 2.74878255284838, 3.46483046621199, 4.23261972464046, 5.0521503281338, 5.923422276692, 6.84643557031507, 7.821190209003, 8.84768619275579, 9.92592352157344), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10')), assign = 0:3, qr = structure(list( qr = structure(c(-3.16227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, -17.3925271309261, 9.08295106229247, 0.15621147358221, 0.0461150970695743, -0.0639812794430617, -0.174077655955698, -0.284174032468334, -0.39427040898097, -0.504366785493606, -0.614463162006242, -12.1747689916483, 9.99124616852172, 2.29782505861521, 0.388354773181155, 0.471167347118467, 0.46694109307793, 0.375676011059543, 0.197372101063308, -0.0679706369107753, -0.420352202862709, -17.3925271309261, 9.08295106229247, 1.30962518065979e-16, -1.00907321685019e-15, 0.0501848681992808, -0.170313338748631, 0.0400139169574381, -0.419073670426332, -0.887431917453648, -0.0447724572319277), .Dim = c(10L, 4L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10'), c('(Intercept)', 'x1', 'x3', 'x2')), assign = 0:3), qraux = c(1.31622776601684, 1.26630785009485, 1.21850337126599, 1.04136435435488 ), pivot = c(1L, 2L, 4L, 3L), tol = 1e-07, rank = 3L), .Names = c('qr', 'qraux', 'pivot', 'tol', 'rank'), class = 'qr'), df.residual = 7L, xlevels = structure(list(), .Names = character(0)), call = quote(lm(formula = y ~ x1 + x2 + x3)), terms = quote(y ~ x1 + x2 + x3), model = structure(list(y = c(2.30923841792462, 3.23011719303818, 2.9161246695212, 3.35931329373059, 5.3777049208621, 5.63518136825043, 7.37725908636056, 7.75621985157329, 10.1175871700049, 8.86877085545769), x1 = 1:10, x2 = 1:10, x3 = c(0.1, 0.4, 0.9, 1.6, 2.5, 3.6, 4.9, 6.4, 8.1, 10)), .Names = c('y', 'x1', 'x2', 'x3'), terms = quote(y ~ x1 + x2 + x3), row.names = c(NA, 10L), class = 'data.frame')), .Names = c('coefficients', 'residuals', 'effects', 'rank', 'fitted.values', 'assign', 'qr', 'df.residual', 'xlevels', 'call', 'terms', 'model'), class = 'lm'));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators208_d6135a5c1fd8c793308d0a92ea418c1a() {
+ assertEval("argv <- list(structure(c(1L, 2L, 1L), .Dim = 3L, .Dimnames = structure(list(c('1', '2', NA)), .Names = ''), class = 'table'));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators210_5fee067a6a6c55474cc3d775a8abfea9() {
+ assertEval("argv <- list(5, c(0.90483741803596, 0.042329219623205, 3.72007597602068e-44));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators211_e0e106f9cf904f38c74793ad7272f6b6() {
+ assertEval("argv <- list(structure(c(110, 72, 89, 67, 116, 56, 102, 70, 116, 56, 106, 48), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')), structure(c(0.618181818181818, 0.583333333333333, 0.415730337078652, 0.358208955223881, 0.568965517241379, 0.589285714285714, 0.46078431372549, 0.328571428571429, 0.543103448275862, 0.517857142857143, 0.537735849056604, 0.395833333333333), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators213_a769d7e73dada97662d9bbc94c82bb63() {
+ assertEval("argv <- list(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), structure(c(110, 72, 89, 67, 116, 56, 102, 70, 116, 56, 106, 48), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators214_e86dfb64edf5c64c80b37aab6ef2ff32() {
+ assertEval("argv <- list(0+6.28318530717959i, 1:16);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators215_22855dfc79710f2336fabc9d12331c1f() {
+ assertEval("argv <- list(10, structure(0:100, .Tsp = c(1, 101, 1), class = 'ts'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators22_c319a61658a9bb5ea5bc872037a09b0b() {
+ assertEval("argv <- list(1, structure(list(x = 1:9, y = c(-0.626453810742332, 0.183643324222082, -0.835628612410047, 1.59528080213779, 0.329507771815361, -0.820468384118015, 0.487429052428485, 0.738324705129217, 0.575781351653492)), .Names = c('x', 'y'), row.names = c(NA, -9L), class = 'data.frame'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators220_5263155c59a61b91d81ea9cfd5dd43bc() {
+ assertEval("argv <- list(structure(11323, class = 'Date'), c(12, 24, 36, 48, 60, 72, 84, 96, 108));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators222_ddf0ae9b02746dd60685473279e17959() {
+ assertEval("argv <- list(structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')), structure(c(42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators224_c4a594dd6b36fb91cc376311c8250d06() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4), 3);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators225_4d607c89fbaa4ebbf274606dec675a0f() {
+ assertEval("argv <- list(0.02);`+`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators226_1a3b907b3ae8e622718ee00e0bb4e27f() {
+ assertEval("argv <- list(1, structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators229_b1474c2eea0cccc436d601ae8766dfbb() {
+ assertEval("argv <- list(structure(c(1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')), 0.1);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators230_9b8fcc67ae4bc76690c713e51ddb4e64() {
+ assertEval("argv <- list(structure(1:10, .Tsp = c(1920.5, 1921.25, 12), class = 'ts'), 1);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators232_e3df0a91b3c4778c1d4bae8f85308786() {
+ assertEval("argv <- list(structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), c('X', 'M'))), structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), c('X', 'M'))));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators233_2f935b5e8e410108e11f647cdc663a73() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Tsp = c(3, 10, 1), class = 'ts'), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Tsp = c(3, 10, 1), class = 'ts'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators234_712dc2f75f71128c9b32cabf45b45568() {
+ assertEval("argv <- list(c(-1.04843842027757e+143, -9.998687937523e+136, -9.53549188377803e+130, -9.09375370386458e+124, -8.67247934711978e+118, -8.27072081298779e+112, -7.88757401780305e+106, -7.52217676063816e+100, -7.17370678430818e+94, -6.84137992972049e+88, -6.5244483891549e+82, -6.22219909169008e+76, -5.93395235884653e+70, -5.65906136797865e+64, -5.39691448428537e+58, -5.14694833309681e+52, -4.90870165301755e+46, -4.68202458334831e+40, -4.46788150641526e+34, -4.27143012156591e+28, -4.11397031483551e+22, -40816513889983680, -45637199262.2201, -83492.8982026505, -1.56717399085881, -0.0019371698216247, -0.0388983050293216, 0.00184649674288725, -0.049895679671468, 0.0161192923654623, -0.0169866996250208));`-`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators236_8c9f50adf9e2f881ade79b39fa098979() {
+ assertEval("argv <- list(structure(1395082079.75887, class = c('POSIXct', 'POSIXt')), 3600);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators237_ac592d4e38c58a1d1144e14738aa4bb7() {
+ assertEval("argv <- list(structure(c(2, 1, 0, 1, 0, NA, NA, NA, 0), .Dim = c(3L, 3L)), structure(c(1, 1, 1, 0.5, 0.5, 0.5, 0, 0, 0), .Dim = c(3L, 3L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators238_861e6ce652bbbabc9f8e1cff5660a21f() {
+ assertEval("argv <- list(structure(2:10, .Tsp = c(2, 10, 1), class = 'ts'), structure(1:9, .Tsp = c(2, 10, 1), class = 'ts'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators239_e51bfdc9a9d8984829ec62ef60b55381() {
+ assertEval("argv <- list(structure(0:100, .Tsp = c(1, 101, 1), class = 'ts'), 4);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators240_aae6e5e7305a3bb322f3ea667431da37() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 4L)), structure(numeric(0), .Dim = c(0L, 4L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators241_ae3ad235a8d0266f24112d4d0b6f0c0a() {
+ assertEval("argv <- list(structure(c(1L, 0L, 0L, 1L), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c('1', '2'), y = c('1', '2')), .Names = c('x', 'y')), class = 'table'), 1);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators243_e085feeb1c2febcb7a806385a1c8a090() {
+ assertEval("argv <- list(structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')), structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators244_9a65cfac70238a0414e8b3c3b5e589bf() {
+ assertEval("argv <- list(10, structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), .Tsp = c(1, 10, 1), class = 'ts'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators246_abf1c4e100d87b2622343eb1f536ca03() {
+ assertEval("argv <- list(structure(100L, .Names = 'expsumNoisy'), 100L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators247_9fdf83a940a8bcab06a67e3de62b8e6f() {
+ assertEval("argv <- list(50, 51);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators248_85f4772e959deebbadece4f185c7ee15() {
+ assertEval("argv <- list(-1, 1);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators249_cda9a5e8de2675d38da1f68773327db1() {
+ assertEval("argv <- list(1L, structure(15L, .Names = 'nc'));`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators25_94848b7ea7d53e36131ab0bc83cf147f() {
+ assertEval("argv <- list(c(-1, -2, -3, -4, -5, -6, -7, -8, -9, -10, -11, -12, -13, -14, -15, -16, -17, -18, -19, -20, -21, -22, -23, -24, -25, -26, -27, -28, -29, -30, -31, -32, -33, -34, -35, -36, -37, -38, -39, -40, -41, -42, -43, -44, -45, -46, -47, -48, -49, -50, -1000, -10000, -1e+05, -1e+06, -1e+07, -1e+08, -1e+09, -1e+10, -1e+20, -1e+50, -1e+150, -1e+250, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 1000, 10000, 1e+05, 1e+06, 1e+07, 1e+08, 1e+09, 1e+10, 1e+20, 1e+50, 1e+150, 1e+250));`+`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators250_27d6c85002551534a37a3c6fddf4e7a8() {
+ assertEval("argv <- list(-20, 10);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators251_4acd567774644f8db8d564451d988926() {
+ assertEval("argv <- list(-7L, -1L);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators252_b71e2a9f6e34a49be8ea7ba8f3f6e1b0() {
+ assertEval("argv <- list(structure(c(0.618181818181818, 0.583333333333333, 0.415730337078652, 0.358208955223881, 0.568965517241379, 0.589285714285714, 0.46078431372549, 0.328571428571429, 0.543103448275862, 0.517857142857143, 0.537735849056604, 0.395833333333333), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')), 0);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators257_2a7b56ed5b37bd0f3f27ae78c16117bb() {
+ assertEval("argv <- list(structure(c(1, 1.4142135623731, 1.73205080756888, 2, 2.23606797749979, 2.44948974278318, 2.64575131106459, 2.82842712474619, 3, 3.16227766016838), id = 'test 1', class = structure('withId', package = '.GlobalEnv')), 1);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators26_afc6633c2f1cbf34a1ded26bfdb5f905() {
+ assertEval("argv <- list(structure(c(1+1i, 2+2i, 1.2+10i, 2.4+20i), .Dim = c(2L, 2L), .Dimnames = list(c('x', ''), c('a', 'b'))), 3.14159265358979);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators261_cba752dcaf75cdd4235e6d15b592d9fa() {
+ assertEval("argv <- list(structure(list(VAR1 = c(1, 2, 3, 4, 5), VAR3 = c(1, 1, 1, 1, NA)), .Names = c('VAR1', 'VAR3'), class = 'data.frame', row.names = c(NA, -5L)), 1);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators262_c67c1aae833d575239e4a0c13e072aa3() {
+ assertEval("argv <- list(structure(1:20, .Dim = c(2L, 2L, 5L)), structure(1:20, .Dim = c(2L, 2L, 5L)));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators266_8d4256f76180b87427b2f3c367efdb26() {
+ assertEval("argv <- list(structure(FALSE, .Names = 'd'), FALSE);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators27_8bc9eeb8190ce6f5a7ffcfafaab905a1() {
+ assertEval("argv <- list(structure(c(1, 0.81, 0.64, 0.49, 0.36, 0.25, 0.16, 0.09, 0.04, 0.01, 0.81, 1, 0.81, 0.64, 0.49, 0.36, 0.25, 0.16, 0.09, 0.04, 0.64, 0.81, 1, 0.81, 0.64, 0.49, 0.36, 0.25, 0.16, 0.09, 0.49, 0.64, 0.81, 1, 0.81, 0.64, 0.49, 0.36, 0.25, 0.16, 0.36, 0.49, 0.64, 0.81, 1, 0.81, 0.64, 0.49, 0.36, 0.25, 0.25, 0.36, 0.49, 0.64, 0.81, 1, 0.81, 0.64, 0.49, 0.36, 0.16, 0.25, 0.36, 0.49, 0.64, 0.81, 1, 0.81, 0.64, 0.49, 0.09, 0.16, 0.25, 0.36, 0.49, 0.64, 0.81, 1, 0.81, 0.64, 0.04, 0.09, 0.16, 0.25, 0.36, 0.49, 0.64, 0.81, 1, 0.81, 0.01, 0.04, 0.09, 0.16, 0.25, 0.36, 0.49, 0.64, 0.81, 1), .Dim = c(10L, 10L)), structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), .Dim = c(10L, 10L)));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators272_b8f9baa9b9d7a0fe22ff221de6356d02() {
+ assertEval("argv <- list(structure(c(4, 3, 2, 1, 0), .Tsp = c(-1, 3, 1), class = 'ts'), 1e-05);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators273_eb353fb902d9f06ec127617a590d9be6() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(12L, 2L), .Dimnames = list(c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), c('X', 'M'))), 0.001);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators274_18bb93365d1d611cdc2cf75e55aa7f4c() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 3.5527136788005e-15, 0, 0), .Names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23')), 0.001);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators275_29b7b05d53003db4b3a2643bf427ddca() {
+ assertEval("argv <- list(structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8), .Tsp = c(3, 11, 1), class = 'ts'), 1e-05);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators278_792332dbd82da01c08d0f16ca5dba9e2() {
+ assertEval("argv <- list(2, c(1, 53.6315789473684, 106.263157894737, 158.894736842105, 211.526315789474, 264.157894736842, 316.789473684211, 369.421052631579, 422.052631578947, 474.684210526316, 527.315789473684, 579.947368421053, 632.578947368421, 685.210526315789, 737.842105263158, 790.473684210526, 843.105263157895, 895.736842105263, 948.368421052632, 1001));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators279_25ec5fd216f350a8e493e5cb105d8e09() {
+ assertEval("argv <- list(structure(1:12, .Dim = 12L), 3);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators28_e3ab70d0575681abda58935190fa8422() {
+ assertEval("argv <- list(structure(5.5965311794562, .Names = 'thetas'), structure(c(3, 2, 2, 1, 1, 2), .Dim = 6L, .Dimnames = list(c('1', '2', '3', '4', '5', '6'))));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators281_675f8f4e7f7bd537b62f36ad4ed49a8e() {
+ assertEval("argv <- list(c(2, 13954490295224484, 9.73638996997572e+31, 6.79331796732739e+47, 4.73986448237219e+63, 3.30711964599708e+79, 2.30745845026066e+95, 1.60997032753976e+111, 1.12331576556267e+127, 7.83764947450857e+142, 5.46852017646992e+158, 3.8155205865895e+174, 2.66218224983966e+190, 1.85746981847535e+206, 1.29600222777925e+222, 9.04252525506755e+237, 6.30919154580821e+253, 4.40207760983472e+269, 3.07143746426322e+285, 2.14301721437253e+301), 0.9);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators282_21c31be1ca71a4646c1b8576f4d897b3() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')), structure(c(TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE), .Names = c(' 100', '-1e-13', ' Inf', '-Inf', ' NaN', '3.14', ' NA')));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators283_08daf5a5098696a0e77f2715e68cca0b() {
+ assertEval("argv <- list(10, structure(c(2.62236698682835, 2.59270366218715, 2.63940608371058, 2.64731958493827, 2.65803373028597, 2.71373162990423, 2.77064097627242, 2.76566849458896, 2.68535956033309, 2.6323339540094, 2.56646882037186, 2.60930482928073, 2.61873883018004, 2.58963301587663, 2.63649393196055, 2.64432599746861, 2.65480384168506, 2.71016075212057, 2.76665607635342, 2.76121751481566, 2.68040487260442, 2.62684815424423, 2.56043192269559, 2.60270233556967), .Tsp = c(1961, 1962.91666666667, 12), class = 'ts'));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators284_43753229a309be4dc33d779a1b8db7c0() {
+ assertEval("argv <- list(10, -324:-307);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators285_d32d88c9bb4acfefd7eab0a6f1185807() {
+ assertEval("argv <- list(structure(c(2, -2, -2, 2), .Dim = c(2L, 2L), .Dimnames = list(c('Milk', 'Tea'), c('Milk', 'Tea'))), 2);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators286_ff3ef1d5b2c96bd936ec4586644beb36() {
+ assertEval("argv <- list(c(-0.672916599964862, -0.584338371560402, 0.572115715156077, -0.341116997543456, -0.218053452331652, 0.603114283893957, -0.415268358002702, -0.0134950134274691, 0.76321585191833, 0.804319710846886, 0.0536892937002835, 1.74635019377278, -0.471646028332481, 1.63758588525433, -0.578351427808452, 0.946667542637206, -0.329423655668059, -0.187791022191408, 0.794323068130594, 0.894218687970535, -1.22656982031204, 1.0590522527981, 0.612808669537666, -0.939425042488798, 2.69005530237799, -5.30421668373535, 2.81829750013497, -0.200427817155017, 0.828486397910241, 0.279395276763307, 0.0200169554117855, -0.787735991519008, -1.29364959334893, -0.511638483749587, 0.113049755514737, 1.10102046217428, -0.306657900899176, 0.268100169311174, -0.305146107712725, 0.396162277846222, 0.0150939553276523, 1.49211381144096, -1.92447564755755, 0.872283353434605, -1.19828539105242, 0.249023119183754, -0.888972367366677, -0.343085496017779, -0.789859289813313, 2.25212409468034, 2.24112978772768, -0.268185452742113, -0.258069470254978, -1.83609460856723, -0.0896167695808968, -0.0862703217063487, -0.00265875112142955, -0.414323880711934, -0.87767314293053, -2.22003587446461, -0.8313148988929, 0.832662806275473, -0.671837383858861, -1.85809916947114, -0.433937023889368, -0.851823367571459, -1.57641862799745, -0.880161315252144, -0.658071675968036, -1.21910415241982, -0.103154147995399, -1.92102359833593, 0.794527839025225, -1.0143657782449, 0.633288668140732, -0.0981774734963654, -0.927622152862583, -1.15272382197142, 3.28038998456465, -2.43807429671523, 0.0242203067253644, -0.377015290181077, 1.18353877313309, -5.69817122824189, -0.316441438096387, -0.0880345184260629, -0.161984388003683, -1.04890926431944, 3.34283466347557, -1.14655469197163, -0.0469559138168916, 4.57732396845363, -1.10972642208237, 6.74369483998494, -4.51689622564278, -0.942648739247179, 2.19288903907033, 1.26921808442688, -0.705352464586085, 0.00567568850361933), 2);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators289_19fc834348250e6c771211b9164d49d4() {
+ assertEval("argv <- list(0+0i, -3:3);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators290_8fc106e6afc8829d4999756810e9668f() {
+ assertEval("argv <- list(structure(c(8L, 8L), .Names = c('y', 'x')), 8L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators293_568ce8a6aca5a836a71cd668a1f5efe3() {
+ assertEval("argv <- list(c(NA, -2L, -1L, 0L, 1L, 2L, NA, NA, NA), 0L);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators294_1cd1748b71932f9d34d8b2c9ef3c983d() {
+ assertEval("argv <- list(c(-4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i), c(-0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators295_854d9cba92f5be9c9feaae0d0b4993b8() {
+ assertEval("argv <- list(structure(c(26.2845882236184, 26.2845882236184, 26.2845882236184, 19.6276109953659, 19.6276109953659, 19.6276109953659, 19.6276109953659, 19.6276109953659, 16.7854987799975, 16.7854987799975, 16.7854987799975, 12.5343124120522, 12.5343124120522, 28.7031306388734, 28.7031306388734, 28.7031306388734, 28.7031306388734, 21.4336202544253, 21.4336202544253, 21.4336202544253, 21.4336202544253, 21.4336202544253, 21.4336202544253, 21.4336202544253, 28.044754781901, 28.044754781901, 28.044754781901, 28.044754781901, 28.044754781901, 28.044754781901, 28.044754781901, 24.2091543637699, 18.0778127599455, 18.0778127599455, 18.0778127599455, 18.0778127599455, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 11.5446017812987, 11.5446017812987, 11.5446017812987, 11.5446017812987, 11.5446017812987, 26.436728414697, 26.436728414697, 26.436728414697, 26.436728414697, 26.436728414697, 26.436728414697, 26.436728414697, 26.436728414697, 19.7412193373284, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 14.8736630467598, 14.8736630467598, 14.8736630467598, 11.1066785552923, 11.1066785552923, 11.1066785552923, 11.1066785552923, 11.1066785552923, 11.1066785552923, 9.49841217984702, 9.49841217984702, 9.49841217984702, 9.49841217984702, 9.49841217984702, 9.49841217984702, 9.49841217984702, 7.0927928470328, 7.0927928470328, 16.2422439293196, 16.2422439293196, 16.2422439293196, 12.1286452283118, 12.1286452283118, 12.1286452283118, 12.1286452283118, 12.1286452283118, 12.1286452283118, 12.1286452283118, 15.8696887052689, 15.8696887052689, 15.8696887052689, 15.8696887052689, 15.8696887052689, 15.8696887052689, 15.8696887052689, 13.6992370430272, 10.2296940445213, 10.2296940445213, 10.2296940445213, 10.2296940445213, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 6.53274517535593, 6.53274517535593, 6.53274517535593, 6.53274517535593, 6.53274517535593, 6.53274517535593, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 11.170966121195, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100', '101', '102', '103', '104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', '115', '116', '117', '118', '119', '120', '121', '122', '123', '124', '125', '126', '127', '128', '129', '130', '131', '132', '133', '134', '135', '136', '137', '138', '139', '140', '141', '142', '143', '144', '145', '146')), 2);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators296_51f2c48689a0bed4d74857a288e4a9a8() {
+ assertEval("argv <- list(17L, c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L, 70L, 71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 80L, 81L, 82L, 83L, 84L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L, 97L, 98L, 99L, 100L, 77L, 50L, 49L, 48L, 47L, 46L, 45L, 44L, 43L, 42L, 41L, 40L, 10L));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators298_34c8f553c73b10b2f2843a40e4dd7eac() {
+ assertEval("argv <- list(structure(c(4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L), .Dim = 27L, .Dimnames = structure(list(groups = c('M01', 'M02', 'M03', 'M04', 'M05', 'M06', 'M07', 'M08', 'M09', 'M10', 'M11', 'M12', 'M13', 'M14', 'M15', 'M16', 'F01', 'F02', 'F03', 'F04', 'F05', 'F06', 'F07', 'F08', 'F09', 'F10', 'F11')), .Names = 'groups'), class = 'table'), 2);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators299_803a78a849a6a41a75f52a25d181628d() {
+ assertEval("argv <- list(NA_integer_, structure(-2, .Names = 'power'));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators3_c66be1d536a6f13e7f65182c12d8efdf() {
+ assertEval("argv <- list(2.2250738585072e-308, c(0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 1e+05, 1e+10));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators30_0bfe9d1e193d8b5ba535dfcd6894b791() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0i, 1.39139505579429+0i, 0.928710764113827+0i, -0.469267985412949+0i, 0.7424437487+0i, 0.460916205989202+0i, -0.452623703774585+0i, -0.0945011868321433+0i, -0.331818442379127+0i, 1.39139505579429+0i, -0.452623703774585+0i, 0.400771450594052+0i, -0.927967220342259+0i, -0.790922791530657+0i, 0.928710764113827+0i, -0.0945011868321433+0i, -0.927967220342259+0i, 0.701355901563686+0i, -0.600841318509537+0i, -0.469267985412949+0i, -0.331818442379127+0i, -0.790922791530657+0i, -0.600841318509537+0i, -0.625039267849257+0i), .Dim = c(5L, 5L)), c(0-1.68669331074241i, 0+0.837787044494525i, 0+0.153373117836515i, 0-1.13813693701195i, 0+1.25381492106993i, 0+0.426464221476814i, 0-0.295071482992271i, 0+0.895125661045022i, 0+0.878133487533042i, 0+0.821581081637487i, 0+0.688640254100091i, 0+0.553917653537589i, 0-0.0619117105767217i, 0-0.305962663739917i, 0-0.380471001012383i, 0-0.694706978920513i, 0-0.207917278019599i, 0-1.26539635156826i, 0+2.16895596533851i, 0+1.20796199830499i, 0-1.12310858320335i, 0-0.402884835299076i, 0-0.466655353623219i, 0+0.779965118336318i, 0-0.0833690664718293i));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators301_419ba6d2586f5d54bb5da4e268240187() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4, .Dimnames = list(c('Case_1', 'Case_2', 'Case_3'), NULL)), 5);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators302_acee8449332136984a3bb662a8f77934() {
+ assertEval("argv <- list(structure(c(2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L), .Names = c('2:', '3:', '4:', '5:', '6:', '7:', '8:', '2:', '3:', '4:', '5:', '6:', '7:', '8:', '2:', '3:', '4:', '5:', '6:', '7:', '8:', '2:', '3:', '4:', '5:', '6:', '7:', '8:', '2:', '3:', '4:', '5:', '6:', '7:', '8:', '2:', '3:', '4:', '5:', '6:', '7:', '8:', '2:', '3:', '4:', '5:', '6:', '7:', '8:', '2:', '3:', '4:', '5:', '6:', '7:', '8:', '2:', '3:', '4:', '5:', '6:', '7:', '8:')), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 9L), .Names = c('1', '1', '1', '1', '1', '1', '1', '2', '2', '2', '2', '2', '2', '2', '3', '3', '3', '3', '3', '3', '3', '4', '4', '4', '4', '4', '4', '4', '5', '5', '5', '5', '5', '5', '5', '6', '6', '6', '6', '6', '6', '6', '7', '7', '7', '7', '7', '7', '7', '8', '8', '8', '8', '8', '8', '8', '9', '9', '9', '9', '9', '9', '9')));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators303_5bcf0f1b3564d3793debc5b173a9e2fc() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`^`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators304_6d1a4736b65b7a8f4e0304f2ea213ebc() {
+ assertEval("argv <- list(0.8, structure(c(0L, 1L, 2L, 1L, 0L, 1L, 2L, 1L, 0L), .Dim = c(3L, 3L)));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators305_0e573d01ff9ad80504dc392e75931176() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 6, 0, 0, 0, 0, 6, 0, 0, 0, 0, 6, 0), .Dim = c(4L, 4L)), structure(c(0, 0, 0, 0, 6, 0, 0, 0, 0, 6, 0, 0, 0, 0, 6, 0), .Dim = c(4L, 4L)));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators307_97f4b55ca348d8b64508588c17130859() {
+ assertEval("argv <- list(logical(0), structure(logical(0), .Dim = c(0L, 0L), .Dimnames = list(NULL, NULL)));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators309_9ec3da2f1e356943247d1511092d3fec() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, TRUE, TRUE), .Dim = c(2L, 2L), .Dimnames = list(NULL, NULL)), structure(c(FALSE, FALSE, FALSE, FALSE), .Dim = c(2L, 2L), .Dimnames = list(NULL, NULL)));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators31_259b3b45a792b07127e7cd32b902540e() {
+ assertEval("argv <- list(structure(FALSE, class = structure('foo', package = '.GlobalEnv')), NA);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators310_20b9553f46260b6031a95c78ac89daf3() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L)), structure(c(FALSE, FALSE, FALSE, FALSE), .Dim = c(2L, 2L)));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators311_04db700a9465788e9c82c65d059de7eb() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53')));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators312_f0e28dda5fd6a79f4fce4f88da41e681() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0), .Dim = c(6L, 3L), .Dimnames = structure(list(` p L s` = c('. . .', '. | .', '. . |', '. | |', '. . ?', '. | ?'), c('perm', 'LDL', 'super')), .Names = c(' p L s', ''))), c(4, 2, 1));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators313_752d12f515bacd25ca236c8fb4b76e1f() {
+ assertEval("argv <- list(structure(c(NA, FALSE, TRUE, NA, FALSE, TRUE, NA, FALSE, TRUE), .Names = c(NA, 'FALSE', 'TRUE', NA, 'FALSE', 'TRUE', NA, 'FALSE', 'TRUE')), structure(c(NA, NA, NA, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE), .Names = c(NA, NA, NA, 'FALSE', 'FALSE', 'FALSE', 'TRUE', 'TRUE', 'TRUE')));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators314_9be667d83c3750672072fb07114a3b67() {
+ assertEval("argv <- list(structure(120L, class = 'octmode'), '644');`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators315_56ce43a2563e7f87e2d356df25867b95() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1), .Dim = c(9L, 5L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9'), c('(Intercept)', 'outcome2', 'outcome3', 'treatment2', 'treatment3')), assign = c(0L, 1L, 1L, 2L, 2L), contrasts = structure(list(outcome = 'contr.treatment', treatment = 'contr.treatment'), .Names = c('outcome', 'treatment'))), c(3.04452243772342, -0.454255272277594, -0.292987124681473, 1.33790930192987e-15, 1.42108546079721e-15));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators317_54b87160badbcd3407996ed86531d66d() {
+ assertEval("argv <- list(structure(c(-1, 2), .Dim = c(2L, 1L), .Dimnames = list(NULL, 'x')), c(-1, 2));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators318_cc9d41b8e5eef0396492bba89e9b17f4() {
+ assertEval("argv <- list(structure(c(0.94232064077615, 0.62152295589611, 0.178333356339776, 0.0222599883329273), .Dim = c(4L, 1L)), structure(c(0.941251786864296, 0.603637002512359, 0.159215730735261, 0.0172717433258791), .Dim = c(1L, 4L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators319_4ffa5f7a2e3b74ef1e6bc38226056fb0() {
+ assertEval("argv <- list(numeric(0), structure(numeric(0), .Dim = c(1L, 0L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators32_338604cfde32bbdbf22f1013a56d41aa() {
+ assertEval("argv <- list(2.11111111111111, structure(c(3, 2, 2, 1, 1, 2), .Dim = 6L, .Dimnames = list(c('1', '2', '3', '4', '5', '6'))));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators320_8d5e6b6029ca80c38dd0fb444ba7b92c() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 68, 56, 60, 68, 71, 61, 68, 60, 63, 56, 49, 58, 72, 60, 70, 74, 73, 48, 60, 61, 62, 65, 74, 73, 59, 60, 76, 74, 74, 63, 68, 58, 62, 65, 57, 75, 68, 67, 64, 68, 63, 74, 51, 81, 73, 59, 61, 72, 63, 69, 72, 70, 58, 59, 75, 69, 75, 76, 49, 68, 66, 75, 60, 72, 70, 77, 48, 47, 67, 74, 56, 56, 73, 76, 71, 82, 59, 60, 62, 55, 69, 62, 62, 69, 57, 46, 65, 58, 43, 56, 74, 60, 39, 66, 51, 45, 72, 58, 53, 52, 70, 52, 63, 50, 63, 62, 55, 50, 60, 64, 76, 70, 57, 39, 75, 0, 0, 0, 0, 0, 0, 0, NA, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, NA, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, NA, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(115L, 5L), .Dimnames = list(c('2', '3', '5', '7', '8', '10', '12', '14', '18', '19', '22', '24', '25', '27', '28', '30', '32', '33', '34', '35', '36', '37', '39', '42', '43', '44', '46', '47', '49', '52', '53', '54', '56', '57', '58', '61', '66', '67', '68', '69', '71', '73', '77', '79', '80', '81', '88', '90', '91', '95', '96', '100', '101', '105', '110', '111', '114', '116', '117', '118', '119', '121', '122', '124', '125', '129', '130', '133', '135', '136', '138', '140', '141', '143', '147', '149', '150', '152', '153', '155', '156', '158', '161', '163', '166', '168', '170', '172', '174', '177', '180', '181', '182', '183', '185', '186', '187', '188', '190', '192', '196', '199', '203', '204', '205', '206', '207', '208', '211', '214', '218', '219', '220', '225', '226'), c('(Intercept)', 'age', 'factor(ph.ecog)1', 'factor(ph.ecog)2', 'factor(ph.ecog)3')), assign = c(0L, 1L, 2L, 2L, 2L), contrasts = structure(list(`factor(ph.ecog)` = 'contr.treatment'), .Names = 'factor(ph.ecog)')), structure(c(6.76534252253894, -0.00731543889899693, -0.256632132912267, -0.629047717825279, -1.48257717514349), .Names = c('(Intercept)', 'age', 'factor(ph.ecog)1', 'factor(ph.ecog)2', 'factor(ph.ecog)3')));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators321_7d4be7d56da1ccc9c1be92716d37490d() {
+ assertEval("argv <- list(structure(c(544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 1539.44739946315, 1548.66655077773, 1557.88570209231, 1566.45228027983, 1575.01885846735, 1583.14083472285, 1591.26281097836, 1599.26100149451, 1607.25919201066, 1611.39689466313, 1615.5345973156, 1612.61129444623, 1609.68799157686, 1603.44643859537, 1597.20488561388, 1588.73002343463, 1580.25516125537, 1570.86127478964, 1561.46738832392, 1549.89535441445, 1538.32332050498, 1524.62526591843, 1510.92721133189, 1499.65830819836, 1488.38940506483, 1479.31388700637, 1470.23836894792, 1460.03887936132, 1449.83938977473, 1441.27547309544, 1432.71155641615, 1432.51830671501, 1432.32505701387, 1433.15763708544, 1433.99021715701, 1434.96142536256, 1435.9326335681, 1435.47421580154, 1435.01579803498, 1433.4368629411, 1431.85792784722, 1430.85617066215, 1429.85441347709, 1432.59097206397, 1435.32753065085, 1440.49425642708, 1445.66098220331, 1448.76676550395, 1451.87254880459, 1452.9163236715, 1453.96009853841, 1454.6961768366, 1455.43225513478, 1452.22362902495, 1449.01500291512, 1442.43484036078, 1435.85467780644, 1426.50159512644, 1417.14851244644, 1409.58997614642, 1402.0314398464, 1397.59624058751, 1393.16104132862, 1386.64426440334, 1380.12748747807, 1371.71107833433, 1363.2946691906, 1354.59002807904, 1345.88538696748, 1336.94914699242, 1328.01290701735, 1318.64960669271, 49.7622186359663, -84.1535032467218, -121.764781099341, 37.2870304782966, 82.528433600382, -44.2319392670254, 25.3010406627996, -34.7698782399993, 48.5709781995188, 110.301655093951, -1.96962838525201, -3.7990131710535, -51.4783734777507, 135.066608935635, 114.916035379091, -28.990712676497, -11.7078691876363, 7.04762066618673, -38.9035366827579, 16.5957688400649, -38.4931502947952, 52.0732838386475, 26.6377575984557, 329.153973076816, -13.1797869657194, 872.199160524634, 371.882552045056, -254.299568603192, -95.2920977069916, 8.63342236039193, 16.852295225008, -29.0271834604991, 13.5051131963112, 4.54091267164154, 25.5747517733375, 386.850855912621, 259.276984531009, -199.961168270532, -153.894877042003, 94.302447817031, -20.3106357794875, 21.0527247936745, -6.29056183593116, 13.9001511905426, -29.4973604406664, -31.7957066699985, -224.096013272965, -30.9544842287708, 22.3370692945275, 432.596723859509, 47.1608224545594, -304.956866078466, 50.1150369329559, 24.6852664308792, -14.4511512739648, -4.94371710626865, -19.024507596255, -56.8030453693573, -314.583543516094, 165.222305128756, 316.17817825271, 23.9168069434991, 11.9598796643579, -128.904953645213, 0.419804589665318, -6.80218287850425, 29.2691824505584, 53.9010951754703, 40.9447832426993, -26.2505972353374, -41.4479380870087, -214.837325417531), .Dim = c(72L, 3L), .Dimnames = list(NULL, c('seasonal', 'trend', 'remainder')), .Tsp = c(1974, 1979.91666666667, 12), class = c('mts', 'ts', 'matrix')), c(1, 1, 1));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators322_ed681ed33cdeef811466737c3229607a() {
+ assertEval("argv <- list(c(-1, 1), structure(c(1e-05, 1e-04, 0.001, 0.01, 0.1, 1, 10, 100, 1000, 10000, 1e+05), .Dim = c(1L, 11L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators323_e8ea49f245470e4d26873635f08e993f() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i), .Dim = c(5L, 5L)), structure(c(0.63829956885596+0i, -0.190923866036828-0.209348060979014i, -0.478761262752136-0.086103851005322i, -0.365383456834977+0.041833555661111i, -0.222902888615007-0.301211043305794i, 0.537261763078809+0i, 0.305061935059249+0.040985454461732i, 0.320062315956695-0.375563080684186i, 0.339383913939873+0.23302799386284i, -0.286918674221019+0.348301421162371i, 0.428338589082996+0.09065231252407i, -0.107969030611945+0.281263066654197i, 0.001811723298003+0.250507832255811i, 0.144305664871353+0.232873855829054i, 0.761400139936914+0i, -0.050390571101999+0.329984002238884i, 0.120127927801654-0.008394623232215i, -0.521562263306688+0.262168616442556i, 0.691801039177503+0i, -0.206933988216912-0.109088169082914i, -0.014684754774299-0.0242358465049725i, 0.848358097780775+0i, -0.232315601522623+0.249797304698912i, -0.362004462885974+0.102815998405382i, 0.086977040883207+0.118037795588006i), .Dim = c(5L, 5L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators324_744b448ab3e9e46915e83b1eb4e308d2() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 0, 4.94065645841247e-324, 0, 0, 0, 0, 0), structure(c(73.0102287440125, 79.6161885135717, 81.5497837663961, 53.9710956454646, 43.6831159601594, 20.8581884349194, 7.6155030786098, 10.8008470888011, 14.7201505829463, 8.49167208457355, 101.686214382123, 921.711710792497), .Names = c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1')));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators325_6668953f1fc8490e749d28b763fc05cd() {
+ assertEval("argv <- list(-97.5074316406251, structure(c(73.0102287440125, 79.6161885135717, 81.5497837663961, 53.9710956454646, 43.6831159601594, 20.8581884349194, 7.6155030786098, 10.8008470888011, 14.7201505829463, 8.49167208457355, 101.686214382123, 921.711710792497), .Dim = c(1L, 12L), .Dimnames = list(NULL, c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators326_f247208782bd8a99a4f6e62217b5255f() {
+ assertEval("argv <- list(structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Tsp = c(1959, 1997.91666667, 12), class = 'ts'), 3);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators327_e76388a62ca23ccc1a5929ac901a11a2() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE), .Dim = 4L, .Dimnames = list(c('8', '10', '12', '14'))));`!`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators33_387f9c3bc12cdddae9e3506225704deb() {
+ assertEval("argv <- list(c(20.8, 11.2, 6.2, 12.8, 43.4), c(10.4, 5.6, 3.1, 6.4, 21.7, 0, 10.4, 5.6, 3.1, 6.4, 21.7));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators331_a54de142b530670ac28eab0e45f98a6e() {
+ assertEval("argv <- list(structure(1L, .Names = 'rate'), 2);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators332_4b661d693bc24e5b6c1cf0482e8f57ad() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));`%/%`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators333_83e8ac52e6dbb558fd0e9f9b2b4c1ac9() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators335_4513ed2131010d4541a678d4e469a791() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));`&`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators336_84591dff930b3cd2863d554b6e159dc8() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`&`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators337_0a2327b7e83d6accfbb3a38e14d5e48a() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE), c(TRUE, TRUE, TRUE, NA, FALSE, FALSE, TRUE, NA));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators338_b7dabc5cf6e9f60b10e4e4450324e94d() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE), .Names = c('(Intercept)', 'age')));`!`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators339_70a0543f4eb2cd03d720673d5a19191b() {
+ assertEval("argv <- list(c(FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE), structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Names = c('is.R', 'is.array', 'is.atomic', 'is.call', 'is.character', 'is.complex', 'is.data.frame', 'is.double', 'is.element', 'is.environment', 'is.expression', 'is.factor', 'is.finite', 'is.function', 'is.infinite', 'is.integer', 'is.language', 'is.list', 'is.loaded', 'is.logical', 'is.matrix', 'is.na', 'is.na.POSIXlt', 'is.na.data.frame', 'is.na.numeric_version', 'is.name', 'is.nan', 'is.null', 'is.numeric', 'is.numeric.Date', 'is.numeric.POSIXt', 'is.numeric.difftime', 'is.numeric_version', 'is.object', 'is.ordered', 'is.package_version', 'is.pairlist', 'is.primitive', 'is.qr', 'is.raw', 'is.recursive', 'is.single', 'is.symbol', 'is.table', 'is.unsorted', 'is.vector')));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators34_a9431d2364dde2ac140f6f17c920c1ad() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators340_5de6be3139e1e0e5b5026fe8834a3ed0() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Tsp = c(1790, 1970, 0.1), class = 'ts'), c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators341_7aebbf647e9c2fe68e5efbab86240d11() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(101L, 3L), .Dimnames = list(NULL, c('t1', '10 * t1', 't1 - 4')), .Tsp = c(1, 101, 1), class = c('mts', 'ts', 'matrix')), structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(101L, 3L), .Dimnames = list(NULL, c('t1', '10 * t1', 't1 - 4'))));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators342_21dec62d790ce46198eed22072f9caab() {
+ assertEval("argv <- list(structure(c(NA, FALSE, TRUE, NA, FALSE, TRUE, NA, FALSE, TRUE), .Names = c(NA, 'FALSE', 'TRUE', NA, 'FALSE', 'TRUE', NA, 'FALSE', 'TRUE')), structure(c(NA, NA, NA, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE), .Names = c(NA, NA, NA, 'FALSE', 'FALSE', 'FALSE', 'TRUE', 'TRUE', 'TRUE')));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators343_3d4847ee88a4b4979dc54cafab35e84a() {
+ assertEval("argv <- list(structure(508L, class = 'octmode'), '755');`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators345_a476b48d092a98b21d8ad887beeed08d() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100', '101', '102', '103', '104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', '115', '116', '117', '118', '119', '120', '121', '122', '123', '124', '125', '126', '127', '128', '129', '130', '131', '132', '133', '134', '135', '136', '137', '138', '139', '140', '141', '142', '143', '144', '145', '146')));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators347_1a6bed128c33140ae5f6a70936a745bf() {
+ assertEval("argv <- list(c(1-0i, 1+0i, 1+0i, 9.99999999999989e-01-5e-15i, 1+0i, 1+0i, 1-0i, 1e+00+9e-16i, 9.99999999999999e-01+3e-15i, 9.99999999999997e-01-3e-15i, 1e+00-1e-15i, 1+0i, 1+0i, 1e+00+1e-15i, 1+0i, 1+0i, 1+0i, 1-0i, 1+0i, 1e+00-5e-15i, 1-0i, 1+0i, 1+0i, 1+0i));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators348_cd8f8ec9fbb0a04a43be226a60707ff1() {
+ assertEval("argv <- list(structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Tsp = c(1959, 1997.91666667, 12), class = 'ts'));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators349_c628b0a3d64528cef7cb4b63442bf1dc() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE), .Dim = c(3L, 3L)));`!`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators350_a66990bf7e845b028582f04842722d5e() {
+ assertEval("argv <- list(c(-Inf, 2.17292368994844e-311, 4.34584737989688e-311, 8.69169475979376e-311, 1.73833895195875e-310, 3.4766779039175e-310, 6.953355807835e-310, 1.390671161567e-309, 2.781342323134e-309, 5.562684646268e-309, 1.1125369292536e-308, 2.2250738585072e-308, 4.4501477170144e-308, 8.90029543402881e-308, 1.78005908680576e-307, 2.2250738585072e-303, 2.2250738585072e-298, 1.79769313486232e+298, 1.79769313486232e+303, 2.24711641857789e+307, 4.49423283715579e+307, 8.98846567431158e+307, 1.79769313486232e+308, Inf, Inf, NaN, NA));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators351_8cf32aacc01e6b2ace8b819878dc8625() {
+ assertEval("argv <- list(.Primitive('log'));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators352_b5dd8cea1c51a401abfff6601fe327b1() {
+ assertEval("argv <- list(structure(NA, .Dim = c(1L, 1L)));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators353_adf9f5554ce1ffd74a5c3e6486b3c9bb() {
+ assertEval("argv <- list(structure(c(NA, 2, NA, 1, NA, 0), .Dim = 2:3));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators354_70c9a579d18440b16c9bdad49315dcb3() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators355_c86e91fabf47d6ef8bc249654ea515a6() {
+ assertEval("argv <- list(structure(NA, .Dim = c(1L, 1L), name = 'Sam', class = structure('Foo', package = '.GlobalEnv')));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators356_ecee1d15848f5d89b938900ee0b4a7af() {
+ assertEval("argv <- list(structure(list(x = numeric(0), y = numeric(0), fac = structure(integer(0), .Label = c('A', 'B', 'C'), class = 'factor')), .Names = c('x', 'y', 'fac'), row.names = integer(0), class = 'data.frame'));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators357_19050f75331a154db43726b1d2e60849() {
+ assertEval("argv <- list(structure(list(x = c(-2, -2, -2, -2, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2), y = c(1, 4, 5, 9, 0, 0, 1, 1, 1, 1, 2, 2, 2, 3, 3, 4, 4, 5, 5, 5, 6, 7, 8, 8, 9, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 8, 8, 9, 9, 9, 0, 1, 1, 1, 1, 2, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 7, 8, 8, 9, 9, 9, 9, 10, 10, 10, 1, 2, 3, 5, 5, 10), z = c(-2, 5, -1, 7, -8, 17, -4, -2, -1, 0, -8, -3, 6, -9, 4, -10, 4, -9, -3, 4, -3, 8, 2, 8, 14, -14, -2, -1, 8, 9, -13, -12, -9, 0, 0, 5, 12, 14, -3, -1, 3, 4, 6, 18, 2, 8, 12, -23, 0, 2, 3, 13, -12, -6, -2, 3, 5, 8, -1, 12, 15, -11, 3, 4, 8, 10, 0, -8, -5, 7, 8, 1, -11, -10, -7, -3, 2, 4, 18, -5, -3, 0, -18, -7, -16, -10, -5, -6, -5, -3, -3, -11, -1, 2, 20, 0, -7, -1, 9, 3), u = c(12, 2, 6, 36, 17, 38, 24, 25, 19, 21, 6, 5, 28, 41, 28, 10, 6, 48, 33, 2, 45, 45, 37, 0, 29, 8, 23, 21, 1, 48, 20, 24, 26, 34, 35, 5, 35, 26, 33, 20, 7, 17, 40, 9, 17, 48, 50, 47, 46, 42, 28, 1, 14, 17, 32, 48, 14, 20, 2, 19, 27, 37, 44, 41, 23, 50, 30, 19, 42, 16, 12, 35, 38, 30, 33, 17, 32, 4, 41, 13, 9, 41, 39, 31, 32, 32, 36, 33, 32, 19, 37, 27, 17, 39, 19, 48, 33, 33, 42, 44)), .Names = c('x', 'y', 'z', 'u'), row.names = c(67L, 84L, 24L, 14L, 81L, 28L, 97L, 98L, 99L, 72L, 46L, 74L, 91L, 75L, 1L, 45L, 35L, 6L, 3L, 58L, 54L, 65L, 80L, 13L, 52L, 71L, 12L, 86L, 32L, 89L, 78L, 5L, 88L, 2L, 90L, 57L, 66L, 76L, 77L, 41L, 62L, 23L, 27L, 16L, 33L, 29L, 47L, 82L, 26L, 79L, 49L, 53L, 34L, 38L, 17L, 42L, 69L, 7L, 36L, 37L, 10L, 64L, 51L, 60L, 100L, 30L, 85L, 48L, 8L, 44L, 92L, 22L, 9L, 31L, 94L, 63L, 20L, 87L, 21L, 73L, 39L, 59L, 55L, 40L, 96L, 68L, 15L, 43L, 83L, 25L, 50L, 18L, 19L, 93L, 56L, 70L, 4L, 61L, 95L, 11L), class = 'data.frame'));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators358_05697e03a2d3c814c02dc993266134ee() {
+ assertEval("argv <- list(structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 2L, 2L, 3L, 1L, 3L, 3L, 2L, 2L, 1L), .Label = c('A', 'B', 'C'), class = 'factor'), char = structure(c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j'), class = 'AsIs')), .Names = c('x', 'y', 'fac', 'char'), row.names = c(NA, -10L), class = 'data.frame'));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators359_3f252a21ebcd0b7100ba72debb0bd167() {
+ assertEval("argv <- list(c('«L', 'tin-1 ', '', '', 'ented ', 'h', 'rs»: éè øØ å<Å æ<Æ é éè'));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators36_393411150d7d235ce6042d7b8fc25908() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`+`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators361_a33df53e888079e0f847f2a7f2588c43() {
+ assertEval("argv <- list(structure(c(6.36917889425777, 5.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 4.36917889425777, 5.36917889425777, 5.36917889425777, 6.36917889425777, 6.36917889425777, 4.36917889425777, 5.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 4.36917889425777, 5.36917889425777, 5.36917889425777), .Dim = 38L, .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38'))));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators362_a9b4729b7ef08573a3554910ac113ecb() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE), .Dim = c(14L, 11L), .Dimnames = list(c('0-18', '18-19', '19-20', '20-21', '21-22', '22-23', '23-24', '24-25', '25-26', '26-27', '27-28', '28-29', '29-30', '30-31'), c('1954', '1955', '1956', '1957', '1958', '1959', '1960', '1961', '1962', '1963', '1964'))));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators363_cc36bb60b0bda47b76e479e8781483f8() {
+ assertEval("argv <- list(structure(NA, .Tsp = c(1, 1, 1), .S3Class = 'ts', class = structure('ts', package = 'methods')));`(`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators364_b27dd42d73e531297f5126ff5fe33e98() {
+ assertEval("argv <- list(6, structure(c(-1, 1, -1), .Dim = 3L, .Dimnames = list(c('73', '312', '674'))));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators367_3cf392c34b45b624cb1ea835f4e26482() {
+ assertEval("argv <- list(c(2.80068140446062, 1.8317224411983, 1.22900361620513, 0.0769946405427206, 2.80068140446062e-07), structure(c(-0.579458297883801, 0.378144472053104, 0.289151395420297, -0.322488635437406, 0.577604873429495, -0.439515769918701, -0.563213485796381, 0.19897761279598, -0.497766353148047, -0.449725499265461, -0.183421202297383, -0.367349618966443, -0.8113056422696, -0.10946638264776, 0.401511127970965, 0.369976492463818, -0.594590295135748, 0.453781444579942, 0.0303676587408212, 0.550218122031705, 0.548204365705284, 0.22652586176497, -0.112538595641497, -0.797072552569732, 0.012977588540091), .Dim = c(5L, 5L)));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators369_3d8814961cb52c9a6eec5d1906bd4170() {
+ assertEval("argv <- list(structure(c(0.853345363892062, -0.0256071578412401, -0.0612813871821256, -0.0612813871821256, -0.0256071578412401, -0.0612813871821256, -0.0256071578412401, -0.0612813871821256, -0.0256071578412401, 0, 0, 0.0786725879812683, 0.0786725879812683, 0.22692030644121, -0.254660745352065, -0.106413026892124, -0.254660745352065, -0.106413026892124, 0, 0, 0.11837902431235, 0.11837902431235, 0.243512113989909, -0.322431463531475, -0.134731829015137, -0.322431463531475, -0.134731829015137, 0, 0, 0.186882435497702, 0.186882435497702, 0.272137080615963, -0.439352693506895, -0.18358875815211, -0.439352693506895, -0.18358875815211, 0, 0, 0, 0, 0, 0, 0, 0.172822903136154, -0.345645806272308), .Dim = c(9L, 5L)), structure(c(1.03259546878074, -0.967404531219257, 0.032595468780743, 0.032595468780743, -0.967404531219257, 0.032595468780743, -0.967404531219257, 0.032595468780743, -0.967404531219257, 1.15961954033819, -0.840380459661814, 0.159619540338186, 0.159619540338186, -0.840380459661814, 0.159619540338186, -0.840380459661814, 0.159619540338186, -0.840380459661814, 1.16167819481816, -0.838321805181836, 0.161678194818164, 0.161678194818164, -0.838321805181836, 0.161678194818164, -0.838321805181836, 0.161678194818164, -0.838321805181836, 1.1652298823369, -0.834770117663101, 0.165229882336899, 0.165229882336899, -0.834770117663101, 0.165229882336899, -0.834770117663101, 0.165229882336899, -0.834770117663101, 1.17282290313615, -0.827177096863846, 0.172822903136154, 0.172822903136154, -0.827177096863846, 0.172822903136154, -0.827177096863846, 0.172822903136154, -0.827177096863846), .Dim = c(9L, 5L)));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators37_a466125eb44850549344dd78e172c12f() {
+ assertEval("argv <- list(logical(0));`+`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators370_cfe2c46217b6bded9aad304c663f829e() {
+ assertEval("argv <- list(0.5, structure(c(-1.12095129310443+0i, 1.4848874974+0.41132282301771i, 2.78279011158859-0.53526713626358i, 1.85742152822765-0.44342995809143i, -0.9385359708259+2.37692350427328i, 1.4848874974-0.41132282301771i, 0.921832411978405+0i, -0.90524740754917+0.341208007507433i, -0.18900237366429+1.08605076555264i, -0.66363688475825+1.22446591693656i, 2.78279011158859+0.53526713626358i, -0.90524740754917-0.341208007507433i, 0.801542901188104+0i, -1.85593444068452+0.95943368782835i, -1.58184558306131+0.08618435261084i, 1.85742152822765+0.44342995809143i, -0.18900237366429-1.08605076555264i, -1.85593444068452-0.95943368782835i, 1.40271180312737+0i, -1.20168263701907+0.42799687996867i, -0.9385359708259-2.37692350427328i, -0.66363688475825-1.22446591693656i, -1.58184558306131-0.08618435261084i, -1.20168263701907-0.42799687996867i, -1.25007853569851+0i), .Dim = c(5L, 5L)));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators372_c5d80ae20fcf4ba75c360f9c13256170() {
+ assertEval("argv <- list(structure(1.6768574855882, .Names = 'x'), c(1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, NA));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators373_986bb5c9ad613c5c848601d3f10439b5() {
+ assertEval("argv <- list(structure(c(2134, 1863, 1877, 1877, 1492, 1249, 1280, 1131, 1209, 1492, 1621, 1846, 2103, 2137, 2153, 1833, 1403, 1288, 1186, 1133, 1053, 1347, 1545, 2066, 2020, 2750, 2283, 1479, 1189, 1160, 1113, 970, 999, 1208, 1467, 2059, 2240, 1634, 1722, 1801, 1246, 1162, 1087, 1013, 959, 1179, 1229, 1655, 2019, 2284, 1942, 1423, 1340, 1187, 1098, 1004, 970, 1140, 1110, 1812, 2263, 1820, 1846, 1531, 1215, 1075, 1056, 975), .Tsp = c(1974, 1979.58333333333, 12), class = 'ts'), c(-33.5, -32.5, -31.5, -30.5, -29.5, -28.5, -27.5, -26.5, -25.5, -24.5, -23.5, -22.5, -21.5, -20.5, -19.5, -18.5, -17.5, -16.5, -15.5, -14.5, -13.5, -12.5, -11.5, -10.5, -9.5, -8.5, -7.5, -6.5, -5.5, -4.5, -3.5, -2.5, -1.5, -0.5, 0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5, 10.5, 11.5, 12.5, 13.5, 14.5, 15.5, 16.5, 17.5, 18.5, 19.5, 20.5, 21.5, 22.5, 23.5, 24.5, 25.5, 26.5, 27.5, 28.5, 29.5, 30.5, 31.5, 32.5, 33.5));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators374_fdf08b71abd4499ba6010e31a9aeebf7() {
+ assertEval("argv <- list(c(0.0125360439090882, 0.109084258765985, 0.283058130441221, 0.5, 0.716941869558779, 0.890915741234015, 0.987463956090912, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.987463956090912, 0.890915741234015, 0.716941869558779, 0.5, 0.283058130441221, 0.109084258765985, 0.0125360439090882), structure(c(430.689117199391, 165.5304253221, 185.371733444809, 191.213041567518, -187.945650309773, -425.104342187064, -388.263034064356, -531.421725941647, -447.580417818938, -158.739109696229, -23.8978015735202, 206.943506549189, 469.784814671898, 509.626122794606, 531.467430917315, 217.308739040024, -206.849952837267, -316.008644714558, -412.167336591849, -459.32602846914, -533.484720346432, -233.643412223723, -29.8021041010139, 497.039204021695, 456.880512144404, 1192.72182026711, 731.563128389821, -66.5955634874696, -350.754255364761, -373.912947242052, -415.071639119343, -552.230330996634, -517.389022873925, -302.547714751216, -37.7064066285076, 560.134901494201, 746.97620961691, 146.817517739619, 240.658825862328, 325.500133985037, -223.658557892254, -301.817249769546, -370.975941646837, -439.134633524128, -487.293325401419, -261.45201727871, -205.610709156001, 226.230598966708, 596.071907089416, 866.913215212125, 530.754523334834, 17.5958314575429, -59.5628604197482, -206.721552297039, -289.880244174331, -378.038936051622, -406.197627928913, -230.356319806204, -254.515011683495, 453.326296439214, 910.167604561923, 473.008912684631, 504.85022080734, 195.691528930049, -114.467162947242, -248.625854824533, -261.784546701824, -336.943238579115, -366.101930456407, -219.260622333698, -0.419314210988802, 52.4219939117201), .Tsp = c(1974, 1979.91666666667, 12), class = 'ts'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators375_770aa8990070feabf2be7828a67eb84d() {
+ assertEval("argv <- list(structure(c(12L, 23L), .Dim = 2L, .Dimnames = structure(list(c('1', '2')), .Names = ''), class = 'table'), 1:2);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators376_58682f35159aaf389c643c8893f3af01() {
+ assertEval("argv <- list(3, structure(2.39313505864491, .Names = 'x'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators378_83f6ad26b6082331973f16992bc90047() {
+ assertEval("argv <- list(1, structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE), .Dim = c(14L, 11L), .Dimnames = list(c('0-18', '18-19', '19-20', '20-21', '21-22', '22-23', '23-24', '24-25', '25-26', '26-27', '27-28', '28-29', '29-30', '30-31'), c('1954', '1955', '1956', '1957', '1958', '1959', '1960', '1961', '1962', '1963', '1964'))));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators379_9a343c37cef7e71237404a338a047007() {
+ assertEval("argv <- list(structure(c(125.462606837607, 127.867786930034, 130.144676735994, 132.324464274255, 134.336734211717, 136.082072800639, 137.721118421779, 140.845055930758, 143.28591535884, 145.768223343737, 146.185327931547, 145.802002908545, 149.002460060179, 153.598715100046, 155.183805036251, 159.724429366298, 161.673726141005, 170.116738471067, 169.947660568386, 170.006973600711, 170.719702563484, 171.765986080317, 174.613600436266, 179.048948110372, 179.883872548102, 181.827282092545, 184.331859119525, 182.743207226061, 183.03021399043, 184.153788490888, 191.745076839764, 194.148810101473, 199.10701170422, 199.286358868728, 202.588173234443, 206.570808710438, 208.901416980527, 210.197793333945, 208.990030330146, 213.988947898492, 221.910492791482, 225.858547195805, 224.629928649936, 225.693827143939, 226.925133971988, 227.909074259919, 228.294198948883, 226.413286455683, 224.858486784216, 224.205996780539, 218.296565215286, 217.952397420454, 218.203297324152, 222.634503912979, 229.136665168488, 238.199012563706, 241.084558136518, 244.474599589944, 246.541678441215, 249.943070595034, 252.738029658228, 257.655553126827, 261.948737901648, 259.38828865138, 260.581624400595, 261.35845107056, 266.721536928548, 274.727021103557, 279.519739428079, 285.613419212625, 290.081183406543, 292.578703689536, 298.536510073918, 301.854944861174, 306.72012690062, 308.552564035999, 308.960906756251, 310.45531361152, 314.471901471993, 316.180279500694, 321.131980519447, 324.487238338646, 326.432439140534, 330.587069598829, 332.257828918305, 334.897103376149, 336.500107838622, 341.040184577164, 343.37680996925, 346.04109648055, 350.540519967376, 353.909804788829, 360.713606630499, 365.246028758837, 368.653301499587, 371.870254918956, 371.890026901483, 370.974100279234, 368.423988230309, 364.248564265975, 359.879991232458, 359.533794053725, 361.493423852232, 366.272105696357, 374.712558672268, 373.691234302716, 377.311059795731, 378.958918379956, 378.434557854932, 383.493556594665, 388.051875855736, 394.72909801417, 399.975945122541, 406.14684914494, 404.223720368284, 407.657133649615, 412.1384117511, 418.253339402259, 423.102585806067, 430.610654889479, 439.381586214864, 443.452574204404, 446.154893648303, 437.948767898975, 448.065211483223, 452.98477480065, 456.22724907891, 460.426882491713, 459.053158913271, 461.490725714314, 468.825080012951, 470.090114620358), .Tsp = c(1950, 1960.91666666667, 12), class = 'ts'), structure(c(0.885377815022177, 0.956702662008391, 1.05604790005129, 0.99999180855271, 0.919180306022048, 1.08513403180744, 1.17950860096112, 1.17526020717901, 1.07399050289666, 0.935173924204861, 0.814655016855593, 0.918977224438701, 0.904886860495219, 0.974651014130265, 1.07318431817519, 1.01267995772422, 0.926294652616773, 1.09129604332202, 1.2136804527299, 1.19513265851781, 1.09196097114148, 0.920716625833028, 0.792428126174694, 0.944665370656132, 0.947060673767712, 0.975861204272186, 1.11889468518085, 1.01760687119493, 1.00966041750694, 1.06261400924208, 1.18646278417314, 1.17953219321689, 1.08299041001682, 0.934768432861068, 0.819582111385122, 0.933541960135008, 0.949299218066574, 0.984712956742138, 1.07274478711742, 1.00035738265237, 1.00344619530389, 1.136720297344, 1.19466716852011, 1.22110179994975, 1.06180417436075, 0.949583554116272, 0.837964127353819, 0.93707048913996, 0.942302022727904, 0.95126138690835, 1.10787035072032, 1.06044554393152, 1.0212841877174, 1.09777947829535, 1.18237485006198, 1.21101795468964, 1.05077474260124, 0.934482494680629, 0.806219558496273, 0.905507672627939, 0.919955309911582, 0.877743501942818, 1.0879384725907, 1.04844380534261, 1.05308404040641, 1.15209925173403, 1.2652951992685, 1.2229795664526, 1.06552999327079, 0.93588195611389, 0.816986956383517, 0.912235531149947, 0.943381852486145, 0.894360852742568, 1.04386693859046, 1.0412387923364, 1.04235110100738, 1.18519852082375, 1.32667886524828, 1.24804193460951, 1.09707745322343, 0.950576085705186, 0.817003170713368, 0.935893112057161, 0.94836946371363, 0.908951898620782, 1.03731973240637, 1.02419763657726, 1.03406277428866, 1.19743269363204, 1.31822462831668, 1.26862748613699, 1.10235655952769, 0.945803515760855, 0.82528228386107, 0.929397385899463, 0.948173569563647, 0.902518233330453, 1.05026106742455, 1.02180458893893, 1.03392834532348, 1.21128679495018, 1.32344975581348, 1.30039314766586, 1.11343783106856, 0.948475302349546, 0.826576551185179, 0.912962090088511, 0.926561968385747, 0.87353380715788, 1.00678775995668, 0.979149663293728, 1.01788806209298, 1.21041189004384, 1.34524520684843, 1.34901427843594, 1.0909897186673, 0.956150231433401, 0.823434379283845, 0.897915761073492, 0.942043948926554, 0.884990150921632, 1.03141421940795, 0.994229969777015, 1.03800763998638, 1.17962620510919, 1.3518161330406, 1.3629765592452, 1.11127249087291, 0.966786065425125, 0.843497574054032, 0.924445014403716), .Tsp = c(1950, 1960.91666666667, 12), class = 'ts'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators38_fff6b4f6a5c0480606d9ad4715487b2e() {
+ assertEval("argv <- list(structure(c(0.2, -1.84560926910116e-17, -3.69226410848886e-17, 2.11212282911474e-17, 9.44321399451751e-18, 3.05608209061811e-17, 0.2, -5.35638147485559e-17, 5.12150597333887e-17, 1.92692213766805e-17, 6.57361167807833e-17, -7.28393619263486e-17, 0.2, 7.17735727503349e-17, 3.10850404080861e-17, -2.28831714606547e-17, 2.83709294123644e-17, 7.98995130974544e-17, 0.2, 0, 8.8841915809257e-17, -1.17177477007305e-16, -1.30709215062431e-16, 1.04641694001652e-16, 0.2), .Dim = c(5L, 5L), fracs = c('1/5', '0', '0', '0', '0', '0', '1/5', '0', '0', '0', '0', '0', '1/5', '0', '0', '0', '0', '0', '1/5', '0', '0', '0', '0', '0', '1/5'), class = c('fractions', 'matrix')), 1);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators39_59a97f812dab51944914195424a8c0df() {
+ assertEval("argv <- list(structure(c(-24.5833333333333, -5.08333333333333, 10.25, 19.4166666666667), .Dim = 4L, .Dimnames = structure(list(N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = 'N'), strata = structure('Within', .Names = 'N'), class = 'mtable'), structure(103.972222222222, class = 'mtable'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators4_127bc640f730d79c6d94fa078081d44e() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators40_c911f0a8d5fa0c4585743e1cb48f8b6f() {
+ assertEval("argv <- list(structure(1.2728543779194, .Names = 'Var1'), 1);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators42_89809c64e640833cc0e1a7e4a6b8c9d4() {
+ assertEval("argv <- list(structure(c(6316.53846153846, 6350.69230769231), .Dim = 2L, .Dimnames = list(c('1', '2'))), c(6314.13609467456, 6338.60946745562));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators44_75fd2f5250d77fabf7fff7354b33670a() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0i, 1.39139505579429+0i, 0.928710764113827+0i, -0.469267985412949+0i, 0.7424437487+0i, 0.460916205989202+0i, -0.452623703774585+0i, -0.0945011868321433+0i, -0.331818442379127+0i, 1.39139505579429+0i, -0.452623703774585+0i, 0.400771450594052+0i, -0.927967220342259+0i, -0.790922791530657+0i, 0.928710764113827+0i, -0.0945011868321433+0i, -0.927967220342259+0i, 0.701355901563686+0i, -0.600841318509537+0i, -0.469267985412949+0i, -0.331818442379127+0i, -0.790922791530657+0i, -0.600841318509537+0i, -0.625039267849257+0i), .Dim = c(5L, 5L)), structure(c(-0.560475646552213+0i, 0.742443748700001+0i, 1.39139505579429+0i, 0.928710764113827+0i, -0.469267985412949+0i, 0.742443748700001+0i, 0.460916205989202+0i, -0.452623703774585+0i, -0.094501186832143+0i, -0.331818442379127+0i, 1.39139505579429+0i, -0.452623703774585+0i, 0.400771450594052+0i, -0.927967220342258+0i, -0.790922791530656+0i, 0.928710764113827+0i, -0.094501186832143+0i, -0.927967220342258+0i, 0.701355901563685+0i, -0.600841318509537+0i, -0.469267985412949+0i, -0.331818442379127+0i, -0.790922791530656+0i, -0.600841318509537+0i, -0.625039267849256+0i), .Dim = c(5L, 5L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators46_112dff108345b63dff44cfa8ca6b8eb5() {
+ assertEval("argv <- list(structure(c(14, 2, 0, 2, -7, 0), .Dim = c(3L, 2L)), 0);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators47_004d505cabef4c851408b39ee6342899() {
+ assertEval("argv <- list(1979.91666666667, structure(1979.91666666667, .Names = 'data'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators49_ff8926894b4e2be54401ffce65e0f538() {
+ assertEval("argv <- list(7.12801378828154e+22);`-`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators5_7a41350b82fb48cc09b7c6a7562749da() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`*`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators50_30436ed25394cd65c2763b6febb31068() {
+ assertEval("argv <- list(structure(c(315.42, 316.31, 316.5, 317.56, 318.13, 318, 316.39, 314.65, 313.68, 313.18, 314.66, 315.43, 316.27, 316.81, 317.42, 318.87, 319.87, 319.43, 318.01, 315.74, 314, 313.68, 314.84, 316.03), .Tsp = c(1959, 1960.91666666667, 12), class = 'ts'), structure(c(-0.234444444444459, 0.192638888888913, 0.743888888888894, 2.15972222222219, 3.13138888888888, 2.65888888888892, 0.480138888888822, -1.31611111111111, -2.34527777777775, -2.93819444444447, -1.58527777777776, -0.947361111111074, -0.234444444444459, 0.192638888888913, 0.743888888888894, 2.15972222222219, 3.13138888888888, 2.65888888888892, 0.480138888888822, -1.31611111111111, -2.34527777777775, -2.93819444444447, -1.58527777777776, -0.947361111111074), .Tsp = c(1959, 1960.91666666667, 12), class = 'ts'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators51_67e818b19655041f681c5fe551540318() {
+ assertEval("argv <- list(structure(c(94694400, 126230400, 157766400, 189302400, 220924800, 252460800, 283996800, 315532800, 362793600, 394329600, 425865600, 489024000, 567993600, 631152000, 662688000, 709948800, 741484800, 773020800, 820454400, 867715200, 915148800, 1136073600, 1230768000, 1341100800), class = c('POSIXct', 'POSIXt')), structure(c(78796800, 94694400, 126230400, 157766400, 189302400, 220924800, 252460800, 283996800, 315532800, 362793600, 394329600, 425865600, 489024000, 567993600, 631152000, 662688000, 709948800, 741484800, 773020800, 820454400, 867715200, 1136073600, 1230768000, 1341100800), class = c('POSIXct', 'POSIXt')));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators52_0ae639664f63b4b213e6235475e82a0a() {
+ assertEval("argv <- list(structure(c(9, 12, 12, 15, 9, 9, 13, 11, 15, 10, 13, 13, 13, 15, 8, 13, 13, 10, 7, 9, 6, 11, 3, 5, 9, 3, 5, 1, 1, 2, NA, 10, 1, 4, 7, 4, NA, NA, 5, 2, 4, 3, 3, 6, 1, 1, 63, 41, 59, 50, 290, 226, 60, 36, 32, 121, 70, 51, 79, 32, 42, 39, 76, 60, 56, 88, 57, 309, 254, 146, 43, 78, 88, 314, 149, 78, NA, 238, 153, 159, 222, 203, NA, NA, 74, 100, 111, 9, 180, 50, 256, 107), .Dim = c(23L, 4L), .Dimnames = list(NULL, c('V1', 'V2', 'V3', 'V4'))), structure(c(10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9), .Dim = c(23L, 4L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators53_d09611c4d741d140b72bf840cb9c2bf6() {
+ assertEval("argv <- list(structure(c(58.56, 2.776, 61.341, 0, 0), .Names = c('user.self', 'sys.self', 'elapsed', 'user.child', 'sys.child'), class = 'proc_time'), structure(c(40.692, 0.307, 41, 0, 0), .Names = c('user.self', 'sys.self', 'elapsed', 'user.child', 'sys.child'), class = 'proc_time'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators54_7eab8aab925a8f7cd595f02382af0f44() {
+ assertEval("argv <- list(0+1e-04i);`-`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators55_93055e2ebb1267648154087f79912659() {
+ assertEval("argv <- list(structure(c(1.05569354979237, 0.694336127879446, -0.0222037058662105), .Dim = c(1L, 3L)), 0.055);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators56_e107f5595f71e9658509b9604452bd28() {
+ assertEval("argv <- list(structure(c(-50, 175, 149, 214, 247, 237, 225, 329, 729, 809, 530, 489, 540, 457, 195, 176, 337, 239, 128, 102, 232, 429, 3, 98, 43, -141, -77, -13, 125, 361, -45, 184), .Tsp = c(1951, 1958.75, 4), class = 'ts'), structure(c(NA, NA, 159.125, 204, 221.25, 245.125, 319.75, 451.5, 561.125, 619.25, 615.625, 548, 462.125, 381.125, 316.625, 264, 228.375, 210.75, 188.375, 199, 207.125, 191, 166.875, 72, -9.25, -33.125, -36.75, 36.25, 103, 131.625, NA, NA), .Tsp = c(1951, 1958.75, 4), class = 'ts'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators57_a043bf021bbe07951af4a2cfbdfc7b3a() {
+ assertEval("argv <- list(structure(c(0, 1, 0, 2), .Names = c('age', 'strata(ss)', 'age2', 'age:strata(ss)')), 1);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators58_db0f2e287893afc566c292115e43b72c() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), 1L);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators59_67c2304ac16ab62f71e0c5ccef44d380() {
+ assertEval("argv <- list(50, structure(c(1, 2, 1, 3, 4, 4, 4, 1, 2, 2, 1, 4, 2, 1, 5, 5, 5, 1, 1, 5, 2, 4, 5, 2, 3, 2, 1, 1, 1, 3, 2, 2, 5, 5, 2, 1, 1, 4, 1, 1, 1, 6, 4, 1, 4, 2, 4, 1, 1, 1, 7, 7, 7, 8, 8, 9, 10, 7, 7, 10, 8, 7, 8, 9, 11, 7, 9, 10, 12, 7, 9, 7, 12, 9, 7, 7, 8, 8, 9, 11, 7, 7, 7, 13, 9, 10, 7, 8, 10, 8, 9, 9, 7, 7, 9, 10, 10, 7, 11, 10, 14, 14, 12, 14, 14, 15, 14, 14, 15, 13, 8, 12, 12, 15, 15, 12, 13, 13, 15, 15, 12, 14, 15, 12, 13, 13, 12, 13, 15, 13, 15, 13, 15, 13, 14, 12, 14, 13, 9, 12, 12, 8, 14, 14, 12, 12, 12, 12, 13, 13, 4, 1, 4, 2, 1, 1, 1, 4, 3, 3, 4, 3, 1, 4, 1, 4, 1, 4, 2, 4, 3, 1, 4, 1, 4, 3, 2, 4, 2, 2, 3, 1, 4, 4, 1, 2, 2, 1, 4, 2, 4, 2, 1, 4, 3, 1, 1, 4, 4, 2, 10, 10, 8, 12, 7, 10, 7, 10, 8, 7, 7, 10, 7, 10, 7, 11, 10, 7, 8, 10, 13, 11, 13, 10, 10, 10, 7, 9, 10, 7, 8, 10, 10, 14, 10, 7, 10, 12, 7, 7, 13, 10, 10, 10, 10, 7, 7, 10, 7, 7, 15, 15, 15, 13, 15, 14, 13, 15, 14, 12, 9, 15, 13, 14, 14, 13, 14, 14, 14, 14, 13, 13, 14, 8, 14, 14, 8, 9, 14, 12, 12, 9, 14, 9, 13, 15, 13, 14, 13, 8, 15, 12, 15, 15, 15, 8, 15, 13, 14, 14), .Dim = c(150L, 2L), .Dimnames = list(NULL, c('cluster', 'neighbor'))));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators6_bbbef4fda2917510d998fda8479720ee() {
+ assertEval("argv <- list(structure(5.34872109992236, .Names = 'x'), structure(-17494.4659893938, .Names = 'x'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators60_16866adaaa4b504b7e8dace1699caf3c() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L), .Dim = c(3L, 3L)), structure(c(1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L), .Dim = c(3L, 3L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators61_4e49d9069bded39a1c7e10b74423c638() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1), .Dim = c(7L, 7L), .Dimnames = list(NULL, NULL)), c(1, 0, 0, 0, 0, 0, 0));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators62_55cd425e9582fb6629492cdbeaa85177() {
+ assertEval("argv <- list(c(1, 0, 0, 0, 0, 0, 0, 0, 0, 0), structure(c(1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1), .Dim = c(10L, 10L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators63_3284f8169b83e55f63c16b6a572bf1b4() {
+ assertEval("argv <- list(structure(list(war = c(1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L), fly = c(1L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), ver = c(1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 2L), end = c(1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 2L, 1L, NA, 1L, 1L, 2L, 1L, 1L, NA, 2L), gro = c(2L, 2L, 1L, 1L, 2L, 2L, 2L, 1L, 2L, 1L, NA, 2L, 2L, 1L, NA, 2L, 2L, NA, 1L, 2L), hai = c(1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 2L, 1L)), .Names = c('war', 'fly', 'ver', 'end', 'gro', 'hai'), class = 'data.frame', row.names = c('ant', 'bee', 'cat', 'cpl', 'chi', 'cow', 'duc', 'eag', 'ele', 'fly', 'fro', 'her', 'lio', 'liz', 'lob', 'man', 'rab', 'sal', 'spi', 'wha')), 1);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators64_529a2b478d936e5c96057f626febbb41() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`-`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators66_867b493aca979de2a18f3f040a27eebf() {
+ assertEval("argv <- list(structure(c(0.163529648037515, 0.690300939958932, 1.33873438218701, 1.66977334065937, 2.08385700655167, 1.90103052674775, 1.24826888183738, -0.346530864750065, -2.02114485014442, -1.391176571206, -0.974900546993623, -0.592397172772186, 1.12800897451332, 1.28932367812798, 1.52806194332292, 0.902674841819288, -0.592397172772186, -1.58883249200006, -2.79944983904467, -2.38660462363888, 1.11301751209174, 0.656516272159253, 0.0219290473645453, -0.905668755424301, -1.30280742075591, -1.17239032526075, -0.455509560368709, -0.00488221008611145, 1.01557266990962, 1.33518324209154, 1.7902682423845, 1.2223240303426, -0.642532985196542, -2.3156528876666, -2.94255068268534, -2.71429203070436, -2.52857488490927, -1.36967036598504, -0.673867141366977, 0.557834355527559, -1.17239032526075, -0.455509560368709, -0.00488221008611145, 1.01557266990962, 1.33518324209154, 1.7902682423845, 1.2223240303426, -0.642532985196542, -2.3156528876666, -2.94255068268534, -2.71429203070436, -2.52857488490927, -1.36967036598504, -0.673867141366977, 0.557834355527559, 1.69565743430218, 1.55297632585292, -0.231087508986891, -1.95215197865747, -1.57567440742255, 1.27884061694483, 1.52424121861625, -1.01140094921315, -0.834671205684972, -0.234500481583131, 0.163529648037515, 0.690300939958932, 1.33873438218701, 1.66977334065937, 2.08385700655167, 1.90103052674775, 1.24826888183738, -0.346530864750065, -2.02114485014442, -1.391176571206, -0.974900546993623, -0.592397172772186, 1.12800897451332, 1.28932367812798, 1.52806194332292, -0.720008297364832, -0.01169886906521, 0.795118935598027, 1.30411137828236, 1.35630335130608, 1.05258722945331, -0.0781544111924379, -0.905668755424301, -1.14228052378938, -1.10485411827026, -0.292564282537893, 0.785919238699603, 1.49889320873226, 2.20687990315498, 1.74950266694519, -0.073778036592639, -1.06484878365656, -0.447016940323056, -0.725579342414288, 0.0582966915354195, 1.55297632585292, -0.231087508986891, -1.95215197865747, -1.57567440742255, -0.647687635785206, 0.0245710568273836, 0.569377384809234, 1.54435558280902, 2.246266557697, 2.14425394955264, 1.63506382167997, 0.909232242365448, -0.762567911783628, -0.660691720208413), .Dim = c(114L, 1L), .Dimnames = list(NULL, 'Series 1'), .Tsp = c(1, 114, 1), class = 'ts'), structure(c(-1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16), .Dim = c(114L, 1L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators69_3e4d9eaf39e34462e19dbfa8d2c7b211() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators7_dafb4aedf08e215f91359f39b7aa316a() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0.5, 0.5, 1, 1, 0, 0, 0, 0, 0, 1), .Dim = c(6L, 4L)), c(1, 1, 1, 0, 0, 0));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators70_cb674c96a72fd23a2806d6bcfde9279d() {
+ assertEval("argv <- list(1, structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59), .Tsp = c(0, 59, 1), class = 'ts'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators71_70a913feb66e0efec9f0702fc6af8acd() {
+ assertEval("argv <- list(-3.14159265358979, 3.14159265358979);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators72_431e8cc2a0b044fc61ea748ab8c3aa75() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 2L, 2L, 2L), .Label = c('1', '2'), class = 'factor'), structure(c(1L, 1L, 2L, 2L, 3L, 3L), .Label = c('1', '2', '3'), class = 'factor'));`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators74_5b50a50a9885bf8dcc8824cfcc05e747() {
+ assertEval("argv <- list(0.5, -0.5);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators75_0ce7c915b675de1f6c7fea9721dffc1f() {
+ assertEval("argv <- list(101L, 1L);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators76_f10b2d4f6acf109ab618ca932a774116() {
+ assertEval("argv <- list(FALSE, 1);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators77_c86400159e14a11194cafaf0b160f4b6() {
+ assertEval("argv <- list(structure(c(0, 4.44089209850063e-16, 8.88178419700125e-16, 1.66533453693773e-15, 2.22044604925031e-16, 3.33066907387547e-16, 2.77555756156289e-16, 5.55111512312578e-17, 8.32667268468867e-17, 1.66533453693773e-16, 8.88178419700125e-16, 1.11022302462516e-16, 2.44249065417534e-15, 2.22044604925031e-16, 1.11022302462516e-16, 1.88737914186277e-15, 1.11022302462516e-16, 2.22044604925031e-16, 1.4432899320127e-15, 8.88178419700125e-16, 3.33066907387547e-16, 1.66533453693773e-16, 1.11022302462516e-16, 7.7715611723761e-16, 1.11022302462516e-16), .Dim = c(5L, 5L)), 2.22044604925031e-13);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators83_adbe70163788812890663b6cfac81a3f() {
+ assertEval("argv <- list(20, structure(c(-1, -1, -1, -1, -1, -1, -1, 8, 9, 10, 11, 12, 13, 14, 15, 100, 17, 18, 19, 20, 21, 200, 200, 24, 25, 26, 27, 28), .Dim = c(7L, 4L), .Dimnames = list(NULL, NULL)));`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators84_0b8c0a2654c4ce5e45e8671469b93766() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`<`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators86_ee952f9a096e44a2b425997a9508cd7e() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), 1L);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators87_541f65844067c8848bc2876cd063e9e5() {
+ assertEval("argv <- list(structure(c(629, 1026, 1422, 1819, 2214, 2611), class = 'difftime', units = 'days', .Names = c('1', '2', '3', '4', '5', '6')), 0);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators89_605cdc2157455f7b9d86542420344cba() {
+ assertEval("argv <- list(structure(3.0625, base = 4, lens = 3L, .classes = c('R_system_version', 'package_version', 'numeric_version')), structure(3.25, .Names = 'gridSVG2', base = 4, lens = structure(2L, .Names = 'gridSVG2'), .classes = 'numeric_version'));`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators9_a4164cd5db80ec4decee818ad0c32ff3() {
+ assertEval("argv <- list(structure(1:10, class = structure('NumericNotStructure', package = '.GlobalEnv')), 1);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators91_ea8f9fb6c82f6c1347f50271dd107aab() {
+ assertEval("argv <- list(structure(list(c(3L, 0L, 1L)), class = c('R_system_version', 'package_version', 'numeric_version')), structure('3.1', .Names = 'gridSVG2'));`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoperators_testoperators97_492a99a4e43c2a0c330b804f6a117fa5() {
+ assertEval("argv <- list(structure(c(69, 35, 26, 21, 18, 16, 13, 12, 12), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9')), 0);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoptions_testoptions1_586db7ee2d654fc308a8a8f7f814af60() {
+ assertEval("argv <- list('survfit.print.n'); .Internal(options(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoptions_testoptions2_3a14a4a4ae8bc90f17baefacbc0635ec() {
+ assertEval("argv <- list('contrasts'); .Internal(options(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoptions_testoptions3_1bff83820277ac04f2a918a2929f2990() {
+ assertEval("argv <- list('str'); .Internal(options(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoptions_testoptions4_e4b37bd554474a05d6e509754da1ca16() {
+ assertEval("argv <- list('ts.eps'); .Internal(options(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinoptions_testoptions5_cea0be88dce9581c7f5cb930acc71943() {
+ assertEval("argv <- list(NULL); .Internal(options(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder1_8208900ec849d6be472bc8d5a115cee7() {
+ assertEval("argv <- list(TRUE, FALSE, structure(c(1, 1, 1, 2, 2, 2, 3, 4), .Names = c('CsparseMatrix', 'nsparseMatrix', 'generalMatrix', 'nMatrix', 'sparseMatrix', 'compMatrix', 'Matrix', 'mMatrix'))); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder10_2ad5d031690d4e42a91da016b012beff() {
+ assertEval("argv <- list(TRUE, FALSE, c(1L, 1L), c(5L, 5L)); .Internal(order(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder11_acd78c183ca36d45c403db16d2149ea6() {
+ assertEval("argv <- list(TRUE, FALSE, structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75')), structure(c(-0.57247143337844, -0.539950178656569, -0.58297623976228, -0.439751638938155, -0.617930515617237, -0.533331856784678, -0.289352731546361, -0.478093191632667, -0.602269400145547, -0.580175322433967, -0.49540432777895, -0.513696058484476, -0.458241390525053, -0.626325772726431, -0.638174891061199, -0.617196984678001, -0.64409821087924, -0.612729425695224, -0.60380450668859, -0.478765912376981, -0.577566470585813, -0.611603489866172, -0.630689749726753, -0.617142933166765, -0.649085924500709, -0.663752033681209, -0.644167702381979, -0.638179039688751, -0.597653338464853, -0.60376057262344, -0.663213279051883, -0.675292341303314, -0.666589501747572, -0.670209631751109, -0.683375351812861, -0.683923564367218, -0.679841016050066, -0.687830656102281, -0.686865903442208, -0.681095489258746, -0.579001929374462, -0.669393058957547, -0.678452540432172, -0.638743740817659, -0.558515347237012, -0.337270659711893, -0.279950203607686, -0.295246094585692, -0.592252570503069, -0.558321756708791, -0.597079745476187, -0.573971559450555, -0.603793132961681, -0.544974758961613, -0.495274888248239, -0.488092985753192, -0.528409363716152, -0.552865045250698, -0.502907194303865, -0.482819909399495, -0.590008262166764, -0.582409343486053, -0.548676506410172, -0.642096376280899, -0.622604552864479, -0.581608072840875, -0.637160558239849, -0.640205884259342, -0.643944208731097, -0.627870005742383, -0.638070667609366, -0.648245104552262, -0.582808968033345, -0.593416716949551, -0.631441868159251), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75'))); .Internal(order(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder12_c16da230db465313234909766e203678() {
+ assertEval("argv <- list(TRUE, FALSE, c(FALSE, FALSE)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder13_f77f7f5459a22d13b45b25c6364371bd() {
+ assertEval("argv <- list(TRUE, FALSE, structure(c(-0.00544194018731062, -0.00542949133552226, -1.20718999105839e-05, -0.00505497198006266, -0.827687885653788, -0.00315385274195005, -0.0023164952286401, -0.00117183915211372, -2.09167441982205, -0.00193959227691399, -0.00358084102808485, -3.39138861812986e-05, -0.00163051710052444, -0.00168735925488057, -0.0167253073891896, -0.237074502262169, -0.0118967636015583, -0.00307437031103621, -0.00114371252369823, -0.000860763872820255, -0.00028432076263802, -0.00329557354736053, -0.000123683950933913, -0.00026114238659798, -0.00471892942651347, -0.00317288091968884, -6.76955217513137e-05, -0.0119061189538054, -0.00233356124758579, -0.00672098496026968, -0.134965372025281, -0.00102115420103838, -0.00114816901125044), .Names = c('Craig Dunain', 'Ben Rha', 'Ben Lomond', 'Goatfell', 'Bens of Jura', 'Cairnpapple', 'Scolty', 'Traprain', 'Lairig Ghru', 'Dollar', 'Lomonds', 'Cairn Table', 'Eildon Two', 'Cairngorm', 'Seven Hills', 'Knock Hill', 'Black Hill', 'Creag Beag', 'Kildcon Hill', 'Meall Ant-Suidhe', 'Half Ben Nevis', 'Cow Hill', 'N Berwick Law', 'Creag Dubh', 'Burnswark', 'Largo Law', 'Criffel', 'Acmony', 'Ben Nevis', 'Knockfarrel', 'Two Breweries', 'Cockleroi', 'Moffat Chase'))); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder14_38de0ee06cda03e9e31fc7a8ced3666a() {
+ assertEval("argv <- list(TRUE, FALSE, c(2L, 1L, NA)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder15_dc039d1a1d15d15305f83479730a022b() {
+ assertEval("argv <- list(TRUE, FALSE, structure(c(1, 2, 2, 2, 2), .Names = c('character', 'vector', 'data.frameRowLabels', 'SuperClassMethod', 'atomicVector'))); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder16_947d3b097e030544b9997563cc6b0b66() {
+ assertEval("argv <- list(TRUE, FALSE, c(1, 2, NA)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder17_37812381788d588ad2c4dd70a7946164() {
+ assertEval("argv <- list(TRUE, FALSE, c(39.39, NA, 60.99, 45.82, 55.4, 59.49, 63.73, 55.09, 57.2, 33.22, 61.18, 59.52, 59.9, 59.06, 65.44, 54.3, 53.28, 70.87, 60.04, 59.33, 55.63, 53.68, 24.46, 49.87, 57.13, 65.51, 57.97, 66.11, 64.68, 57.81, 61.2, 49.34, 61.72, 61.11, 55.13, 55.25, 56.49, 58.31, 25.18, 58.39, 49.21, 55.27, 64.56, 72.18, 55.37, 53.91, 54.08, 61.58)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder18_8f9fd8750b182eb6177a98ac180ea0c6() {
+ assertEval("argv <- list(TRUE, FALSE, c(FALSE, TRUE)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder19_5f063f3d90c3d2aaca78211936083c01() {
+ assertEval("argv <- list(TRUE, TRUE, c(2572.90550008339, 915.064609071159, 419.980933101553, 456.632018115023, 366.745362912885, 308.301779528581, 258.104614655539, 166.131403923756, 208.43876984087, 174.152165416129, 157.072337453686, 157.072337453686, 93.6287479850051, 145.261798316303, 140.969649074553, 80.9227484547009, 115.221543203043, 115.221543203043, 43.2054741656531, 92.6549620292801, 92.6549620292801, 90.9360919542674, 90.9360919542674, 95.4200045428049, 94.2845517186135, 90.4677652619726, 76.0356310934324, 76.0356310934324, 26.1565478253913, 79.2808369338756, 69.8160310537133, 69.8160310537133, 74.7131802385517, 72.7892236613541, 20.782836979896, 60.876337906218, 60.876337906218, 70.8748882290923, 66.7853490283529, 66.7853490283529, 16.5058357149619, 54.5274774202162, 54.5274774202162, 64.009437139127, 13.2377600042936, 49.2149340764437, 49.2149340764437, 60.372612826631, 55.4228623592615, 55.4228623592615, 55.598407412763, 8.99100195370794, 49.6125680940682, 49.6125680940682, 51.620171425175, 39.8798475138868, 39.8798475138868, 7.62805946796798, 35.458438379179, 35.458438379179, 38.2201699179466, 38.2201699179466, 29.6856293315566, 29.6856293315566, 34.3600931672689, 34.3600931672689, 47.6686025497685, 47.0350049752776, 5.57838460483725, 5.07382264677001, 15.9316203363047, 23.4957538578271, 23.4957538578271, 41.4311176038551, 11.9119569568831, 34.7321001383969, 4.21976444063592, 39.2901755793811, 29.1992830783774, 29.1992830783774, 11.1832867499603, 42.0546965543942, 27.0745572919711, 7.44159556589097, 28.1216021055426, 6.46699019595805, 2.05951624519943, 4.77172378340461, 38.0398197891428, 1.66021670517454, 1.03505989993491, 2.69814683135512, 1.8306332549612, 2.29820560404041, 3.42336057523814e-06, 3.42336062193255e-06, 2.86123099075901, 0.773887754953459, 0.213086170361661, 0.416100454072758)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder2_51e8bd6df64d6662758fe23e5802641d() {
+ assertEval("argv <- list(TRUE, FALSE, structure(c(1, 2, 2.1, 2.3, 2.3, 3, 4, 5, 7, 8, 11, 13, 14, 15), .Names = c('\\title', '\\name', '\\alias', '\\keyword', '\\keyword', '\\description', '\\usage', '\\arguments', '\\details', '\\value', '\\author', '\\references', '\\seealso', '\\examples')), c('', '', 'LOGLIN', '', '', '', '', '', '', '', '', '', '', ''), c('', '', 'loglin', '', '', '', '', '', '', '', '', '', '', '')); .Internal(order(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder3_5d33747ed78c617856053bf4acc5204d() {
+ assertEval("argv <- list(TRUE, FALSE, c(NA, 'Ripley', 'Venables & Smith')); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder4_6bd340990ea137d1593afc77fda46aad() {
+ assertEval("argv <- list(TRUE, TRUE, structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 4L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 1L, 3L, 4L, 2L, 5L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 3L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 3L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L), .Names = c('1008', '1011', '1013', '1014', '1015', '1016', '1027', '1028', '1030', '1032', '1051', '1052', '1083', '1093', '1095', '1096', '110', '1102', '111', '1117', '112', '113', '116', '117', '1219', '125', '1250', '1251', '126', '127', '128', '1291', '1292', '1293', '1298', '1299', '130', '1308', '135', '1376', '1377', '1383', '1408', '1409', '141', '1410', '1411', '1413', '1418', '1422', '1438', '1445', '1456', '1492', '2001', '2316', '262', '266', '269', '270', '2708', '2714', '2715', '272', '2728', '2734', '280', '283', '286', '290', '3501', '411', '412', '475', '5028', '5042', '5043', '5044', '5045', '5047', '5049', '5050', '5051', '5052', '5053', '5054', '5055', '5056', '5057', '5058', '5059', '5060', '5061', '5062', '5066', '5067', '5068', '5069', '5070', '5072', '5073', '5115', '5160', '5165', '655', '724', '885', '931', '942', '952', '955', '958', 'c118', 'c168', 'c203', 'c204', 'c266'))); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder5_53923bee08e5df9d21fd981ab899c4ea() {
+ assertEval("argv <- list(TRUE, FALSE); .Internal(order(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder6_0ea94d85e22b5ed044a53258ffb14224() {
+ assertEval("argv <- list(TRUE, FALSE, c(25, 50, 100, 250, 500, 1e+05)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder7_13eaf18114ac611963e74022c6f2e6a8() {
+ assertEval("argv <- list(TRUE, FALSE, c(1L, 2L, NA)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder8_c706cdc95e9d77ea9a179c023ab2b08e() {
+ assertEval("argv <- list(TRUE, FALSE, c(-1.90479340955971, 0.152878714793717)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinorder_testorder9_42d8ed7bb8eeb033e13cf656745cfdaa() {
+ assertEval("argv <- list(TRUE, FALSE, structure(numeric(0), .Dim = c(0L, 0L), .Dimnames = list(NULL, NULL))); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpaste_testpaste1_1543225e717fb89dcb7c9c6f03821542() {
+ assertEval("argv <- list(list('%% ~~objects to See Also as', '\\code{\\link{~~fun~~}}, ~~~'), ' ', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpaste_testpaste2_1c0fae68b1698b436ba6c15093bdcdc7() {
+ assertEval("argv <- list(list(c('[', 'cox.zph', NA)), ' ', '\r'); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpaste_testpaste6_1c1060f13cf8614d615905186e5165cb() {
+ assertEval("argv <- list(list(c('dotplot', 'table', NA)), ' ', '\r'); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpaste_testpaste8_0012f49a694cd90311369d96ca41099a() {
+ assertEval("argv <- list(list('detaching', '‘package:splines’'), ' ', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpaste0_testpaste011_34534ace7b59ff6e0e685b184f7584f2() {
+ assertEval("argv <- list(list(character(0), character(0), character(0)), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpaste0_testpaste012_2e843bcfd580993c0e7479e6ee343c68() {
+ assertEval("argv <- list(list(c('Package:', 'Type:', 'Version:', 'Date:', 'License:', 'Depends:'), ' \\tab ', structure(c('myTst2', 'Package', '1.0', '2014-03-17', 'What license is it under?', 'methods'), .Names = c('Package', 'Type', 'Version', 'Date', 'License', 'Depends')), '\\cr'), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpaste0_testpaste014_54ce05485d1f2bd4a5b895fb01b24244() {
+ assertEval("argv <- list(list(c('text> ', 'text> ', 'text> ', 'text+ '), c('## The following two examples use latin1 characters: these may not', '## appear correctly (or be omitted entirely).', 'plot(1:10, 1:10, main = \'text(...) examples\\n~~~~~~~~~~~~~~\',', ' sub = \'R is GNU ©, but not ® ...\')')), '\n'); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpaste0_testpaste04_e19fbe568bc46124144590de6db0559b() {
+ assertEval("argv <- list(list(' ‘help.search()’ or ‘', '??'), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmax_testpmax1_577dbb437ac154628f077467816101fe() {
+ assertEval("argv <- list(FALSE, 5L, 12); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmax_testpmax10_e76c5f2bff2d1ed705c10245445ec187() {
+ assertEval("argv <- list(FALSE, c(1.05, 1.92, 0.36, 4.98, 4.56, 0.69, -5.97, 1.26, 5.58, -0.06, -4.92, -1.38, -0.3, 3.75, 1.11, 0.93, 3.33, 4.95, 0.99, 2.67, -0.75, -2.61, -0.66, 2.13, -6.78, 2.31, -0.15, 0.96, -1.92, 1.17, 0.57, -4.86, 1.11, 0.06, 2.91, -7.86, 0.45, 4.65, -4.23, -7.05, -1.29, 1.71, -1.98, -0.24, 0.06, 0.72, -0.99, -0.09, -3.39, 0.96, 4.65, 6.39, -0.3, -0.96, -2.01, 4.32, 0.12, -3.3, -2.85, -0.57, -2.04, -1.29, -2.52, 2.07, -1.95, 2.13, 0.57, 1.35, 1.35, -3.57, 3.9, 0.42, -1.08, -1.5, -1.41, -3.93, -3.06, 3.51, 4.53, -0.99, -0.03, -1.77, -0.84, -0.54, -3.21, 1.98, -2.13, 5.64, -0.42, -0.57, 2.52, 1.32, 3.99, -0.6, -1.35, 4.38, 3, -3.06, 2.04, 2.52), 0); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmax_testpmax11_4028665897dd35dd481469eba539d54c() {
+ assertEval("argv <- list(FALSE, c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L), 7L, c(7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 6L)); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmax_testpmax12_e6edb5d0881bbda799bf365556658391() {
+ assertEval("argv <- list(FALSE, 1:7, structure(c(2, 3, 4, 2, 2, 2), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('a', '')))); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmax_testpmax13_1600b3cabda6c0beb7c32b97933824dd() {
+ assertEval("argv <- list(FALSE, c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE)); .Internal(pmax(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmax_testpmax14_80e524df95a2776589a3d3ad4eea1117() {
+ assertEval("argv <- list(FALSE, structure(c(0, 0, -0.0906283137921162, -0.0801994352402973, -0.0235093686536505, -0.131187875867331, -0.131187875867331, -0.131187875867331, -0.131187875867331, 0, 0, 0, -0.106539777104723, -0.106539777104723, -0.106539777104723, 0, 0, 0.126786975893341, 0.126786975893341, 0.126786975893341, 0, -0.131187875867331, -0.131187875867331, -0.131187875867331, 0, -0.106539777104723, -0.106539777104723, -0.106539777104723, 0, 0, 0, -0.106539777104723, 0.172297822926899, 0.172297822926899, 0, 0, 0, 0, 0, -0.106539777104723, -0.106539777104723, -0.106539777104723, -0.106539777104723, 0, 0, 0, 0.172297822926899, 0.172297822926899), .Dim = c(12L, 4L)), 0); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmax_testpmax2_17ea7566c426093659e50e7e5f08d0aa() {
+ assertEval("argv <- list(FALSE, -100, structure(c(-Inf, 82.9775012103133, 8.55983483385341e+101, -Inf, 79.3831968838961, 8.55983483385341e+101), .Names = c('', '', '', '', '', ''))); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmax_testpmax3_e2111b6921e28636ab438e66f1b7aceb() {
+ assertEval("argv <- list(FALSE, c(0L, 1L, 1L, 1L, 2L), 5L, c(6L, 5L, 5L, 5L, 4L)); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmax_testpmax4_c2a123a6b1fc765eba27203547ed16a4() {
+ assertEval("argv <- list(FALSE, 0, numeric(0)); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmax_testpmax5_53770b6669953d0dc54a256d5f75a6d1() {
+ assertEval("argv <- list(FALSE, structure(c(63.5607991023966, 46.8465846258113, 40.7088275958184, 31.3395189414991, 42.5666751143734, 47.0610532806931, 23.9315410227325, 43.0690616089581, 66.7869292908986, 49.2243580808943, 31.6784834018036, 24.3875466143556, 48.4619434336134, 53.5787701502931, 25.0466211495357, 45.0758464889871, 66.9256619232735, 49.3266089980428, 31.7843035976521, 24.4690118450696, 50.7406402769298, 56.0980619029545, 17.201254072711, 30.956714016252), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24')), 2.22044604925031e-16); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmax_testpmax6_463977440101226b958d5647d70733a7() {
+ assertEval("argv <- list(FALSE, FALSE, FALSE); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmax_testpmax7_12e4d25d490485d4ce70627b29b17cf2() {
+ assertEval("argv <- list(FALSE, 1L, c(15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L)); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmax_testpmax8_e23c4e0c8028a272a8a0fabc6dfc87cd() {
+ assertEval("argv <- list(FALSE, structure(c(0.0193057433072215, 0.00434780301273374, 0.0549750394687487, 0.510714717273168, 0.0482077179041234, 0.349752997299534, 0.15114556457294, 0.614610341225044, 0.270367074042314, 0.376738504472563, 0.00100006670765362, 0.616978737736246, 0.000115089535300671, 0.114479803728228, 0.0345012755277619, 0.520238904129887, 0.0177036726480846, 0.00345369763623826, 0.0372744005491215, 0.245210198359521, 0.0651842100459408, 0.4506670448926, 0.178923774229777, 0.332256206500317, 0.402299202627705, 0.380395198873703, 0.000984316947253816, 0.403063829062269, 0.000174431720286923, 0.138958543973059, 0.0379750520636422, 0.379247258699123), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32')), 0); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmax_testpmax9_c038e74f3e217137c0de9c9808766677() {
+ assertEval("argv <- list(FALSE, structure(c(35.2592591597479, 59.4999999843455, 12.4507044164935, 2.53543312099158, 10.3703703404756, 42.0000005728299, 8.14084538858294, 34.04724471918, 7.77778142338517, 26.9999999889474, 6.70422536805755, 3.62204828940961, 2.59259259558406, 14.4999999939529, 6.70422536805755, 5.79527724426002, 32.7407408614199, 59.5000000376209, 13.54929592464, 4.46456690511876, 9.62962966454155, 42.0000006104361, 8.85915523787816, 59.9527554977598, 7.22222565443263, 27.0000000131229, 7.29577463400041, 6.37795443616981, 2.40740742585304, 14.500000006936, 7.29577463400041, 10.2047270647755), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32')), 2.22044604925031e-16); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmin_testpmin1_72e68bfc3fae179c2ac94236955f06ae() {
+ assertEval("argv <- list(FALSE, c(0, 0.25, 0.5, 0.75, 1), 1); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmin_testpmin10_04ee451767a8d8cae02fb34ae2a41eae() {
+ assertEval("argv <- list(FALSE, 1, 0.341867139159); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmin_testpmin11_96e9aae810452d3c92e783cf262716d8() {
+ assertEval("argv <- list(FALSE, c(2.35405350797934e-06, 0.000210159024072429, 0.000257684187404011, 0.000981478332360736, 0.00105260958830543, 0.00124148072892802, 0.00132598801923585, 0.00156850331255678, 0.00225455732762676, 0.003795380309271, 0.00611494315340942, 0.0161395372907077, 0.0330242962313738, 0.0353834177611007, 0.0523699658057458, 0.068319089314331, 0.0705922565893261, 0.0880512860101142, 0.0940103983967277, 0.112979808322889, 0.211501681388388, 0.492273640304204, 0.605329775053071, 0.626223946736039, 0.739515289321684, 0.828110328240387, 0.86333312789587, 1.19065433061771, 1.89079625396729, 2.05849377808347, 2.20921371984431, 2.85600042559897, 3.04889487308354, 4.66068200259841, 4.83080935233713, 4.92175460488491, 5.31945286062773, 5.75155046407955, 5.78319462345744), 0.943789021783783); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmin_testpmin2_e54be3c218a34fb4c1b808215121e317() {
+ assertEval("argv <- list(FALSE, c(1.01547865839261, 1.01252937204691, 1.00644625408792, 0.998699246049516, 0.989861830865133, 0.980229984263028, 0.969980509594864, 0.959229159804225, 0.948056660278026, 0.948056660278026, 0.936413637553504, 0.924430242566905, 0.924430242566905, 0.912012661079992, 0.912012661079992, 0.912012661079992, 0.912012661079992, 0.912012661079992, 0.912012661079992, 0.89856564301575, 0.89856564301575, 0.89856564301575, 0.89856564301575, 0.884221004526004, 0.884221004526004, 0.884221004526004, 0.884221004526004, 0.868846889674391, 0.852918138766346, 0.852918138766346, 0.852918138766346, 0.836013989965276, 0.836013989965276, 0.818281118997659, 0.818281118997659, 0.799674858806929, 0.78048190648179, 0.760752205123712, 0.740524405390135, 0.698688252548957, 0.677121358432204, 0.677121358432204, 0.677121358432204, 0.653968759838845, 0.630226345284056, 0.60591293760604, 0.5810405538867, 0.5810405538867, 0.554772713636871, 0.554772713636871, 0.526885054753327, 0.526885054753327, 0.497124929362659, 0.497124929362659, 0.465290373327728, 0.431410832191818, 0.395597572090297, 0.358012869967492, 0.358012869967492, 0.358012869967492, 0.390645999939295, 0.390645999939295, 1.00856963764107, 1.00691545377429, 1.00354783420184, 0.994430782349702, 0.989161076962549, 0.983568844113983, 0.971651869906627, 0.965403818059832, 0.958998025317496, 0.952453588123512, 0.945785731840592, 0.939006829762577, 0.932127100227826, 0.925155098145928, 0.918098070593368, 0.910962219832367, 0.903752901643838, 0.896474777439562, 0.889131932689408, 0.874266085562073, 0.866749125736792, 0.85917963981466, 0.85917963981466, 0.85917963981466, 0.851432533571458, 0.851432533571458, 0.835646571743332, 0.819657377450186, 0.811591248493136, 0.811591248493136, 0.803403072648503, 0.803403072648503, 0.803403072648503, 0.79500789222886, 0.79500789222886, 0.78647848620035, 0.777810139927498, 0.777810139927498, 0.768997769554365, 0.760132009504045, 0.751214427604144, 0.751214427604144, 0.751214427604144, 0.742042333451995, 0.742042333451995, 0.732706928458195, 0.723314130803801, 0.713865427684027, 0.713865427684027, 0.704242881823747, 0.704242881823747, 0.694438026993695, 0.684573363315093, 0.674650164742493, 0.664669564073024, 0.664669564073024, 0.664669564073024, 0.654342845821626, 0.643951412016272, 0.633496370097346, 0.633496370097346, 0.622814395282618, 0.622814395282618, 0.611712238653597, 0.600530813249145, 0.589271296091113, 0.577934661160654, 0.577934661160654, 0.554603983179207, 0.542813560886543, 0.530698712197854, 0.530698712197854, 0.518231810914377, 0.518231810914377, 0.518231810914377, 0.505091485230836, 0.491816896403255, 0.478408881208852, 0.464867758182769, 0.464867758182769, 0.450831087639633, 0.43663736059032, 0.422285766886131, 0.422285766886131, 0.407334269006221, 0.392187384239101, 0.376842383287708, 0.376842383287708, 0.36074886771613, 0.344393472477708, 0.327769800745284, 0.310869313273075, 0.293681131444043, 0.27619182464681, 0.258385252532011, 0.240242648154923, 0.221743435532848, 0.202868148187672, 0.183607543425597, 0.183607543425597, 0.16434288099768, 0.16434288099768, 0.16434288099768, 0.16434288099768, 1.01958384078021, 1.0158820929578, 1.00818641731953, 0.998355892450852, 0.98711678103063, 0.974844224342501, 0.961762390694789, 0.94801800556359, 0.933713296997721, 0.918922795982771, 0.918922795982771, 0.903505632185222, 0.887664218536847, 0.8714385967694, 0.854601072478364, 0.837400228461143, 0.81986117753083, 0.80200434269104, 0.783846415628184, 0.765401054645917, 0.746679400612251, 0.727690462294359, 0.70844140545579, 0.688937769124757, 0.669183625153216, 0.649181692191925, 0.628933411668998, 0.608438990755048, 0.608438990755048, 0.587078835123946, 0.565417411428399, 0.543452081149807, 0.521178337588507, 0.498589701519445, 0.475677565090786, 0.475677565090786, 0.451501204504207, 0.426861888982249, 0.401742325799741, 0.376120821121693, 0.349971441565183, 0.323265236972233, 0.323265236972233, 0.294966951140867, 0.265661696527275, 0.265661696527275, 0.24198035833067, 0.229359831745471, NA, NA), 1); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmin_testpmin3_897bd631d9a55fa318b4b3de23375478() {
+ assertEval("argv <- list(FALSE, c(19.7787405591752, 12504507.4953993, 12504507.4953993, 5.96190157728191e+41), 1); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmin_testpmin4_47bf1e411d8a55724829d60837438c00() {
+ assertEval("argv <- list(FALSE, structure(c(2, 3, 4, 2, 2, 2), .Dim = c(3L, 2L), .Dimnames = list(NULL, c('a', ''))), 1:7); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmin_testpmin5_2406b271107468c875aa9afae3f93b53() {
+ assertEval("argv <- list(FALSE, structure(c(-2.30560410637911, -1.56788329848973, -0.885216282233891, -0.246592299284877, 0.350190802022645, 0.913941628350052, 1.44466017969734, 1.94895291106052), .Names = c('1', '2', '3', '4', '5', '6', '7', '8')), 700); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmin_testpmin6_b00af5eb9844ca72a2a0c5e51c4b6be1() {
+ assertEval("argv <- list(FALSE, 1, structure(numeric(0), .Dim = c(4L, 0L))); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmin_testpmin7_12e21777f7ad77dd64c735ce36ccc26c() {
+ assertEval("argv <- list(FALSE, FALSE, FALSE); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmin_testpmin8_636bcd8067c2ba4023c0db564bad03dc() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(pmin(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpmin_testpmin9_4ec25d509351b9f32214421601e1a414() {
+ assertEval("argv <- list(FALSE, 48L, 19L); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpolyroot_testpolyroot1_a4e8741b0d2003d978ab0e51bbe41355() {
+ assertEval("argv <- list(1:2); .Internal(polyroot(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpolyroot_testpolyroot2_d20692084f8b005f6ccd4c11912ac209() {
+ assertEval("argv <- list(FALSE); .Internal(polyroot(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpolyroot_testpolyroot3_b1546bf612d8703e9484476c76b78305() {
+ assertEval("argv <- list(structure(c(1, 0.035205614861993, 0.237828814667385), .Names = c('', '', ''))); .Internal(polyroot(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpolyroot_testpolyroot4_fdfc6ad09a4ee5deaf5df7ba216824e9() {
+ assertEval("argv <- list(c(1, -1.16348488318732, 0.667550726251972, -0.342308178637008)); .Internal(polyroot(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpolyroot_testpolyroot5_ff2fc3d87ee4382c27712c5bc1df637d() {
+ assertEval("argv <- list(c(1, 0.0853462951557329, -0.433003162033324, 0.141816558560935, -0.268523717394886, -0.0970671649038473)); .Internal(polyroot(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpolyroot_testpolyroot6_50b8cdf9a18ab7584669e0d574175105() {
+ assertEval("argv <- list(c(1, 8, 28, 56, 70, 56, 28, 8, 1)); .Internal(polyroot(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpretty_testpretty1_c23f2c6b50cc60e61b467e4afc8f808e() {
+ assertEval("argv <- list(0L, 3L, 5, 1, 0.75, c(1.5, 2.75), 0); .Internal(pretty(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpretty_testpretty2_c739b1c7e19b698c84aa9eff7e8703dd() {
+ assertEval("argv <- list(-0.03, 1.11, 5, 1, 0.75, c(1.5, 2.75), 0); .Internal(pretty(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpretty_testpretty3_f41f610e453ef5de72a0ad299177795a() {
+ assertEval("argv <- list(-6.64448090063514e-06, 6.64454021993011e-06, 1, 0, 0.75, c(1.5, 2.75), 0); .Internal(pretty(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpretty_testpretty4_f1466620b57e5d6dcf45b3ca7d1bed44() {
+ assertEval("argv <- list(1.234e+100, 1.234e+100, 5, 1, 0.75, c(1.5, 2.75), 0); .Internal(pretty(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprimUntrace_testprimUntrace1_ac44135078d6ab04298e590c5b38ccad() {
+ assertEval("argv <- list(.Primitive('sum'));.primUntrace(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintDeferredWarnings_testprintDeferredWarnings1_9d57a763c4d8b3a0c2a28b3867340b7f() {
+ assertEval(" .Internal(printDeferredWarnings())");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault1_8035e1afca7a694d20dfb499572c06fb() {
+ assertEval("argv <- list(structure(c('-3.001e+155', '-1.067e+107', ' -1.976e+62', '-9.961e+152', ' -2.059e+23', ' 1.000e+00'), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault10_debed0ed7e3f01a1c9b38c30b28b14ff() {
+ assertEval("argv <- list(structure(c(245L, 250L, 255L, 260L, 265L, 270L, 275L, 280L, 285L, 290L, 295L, 300L, 305L, 310L, 315L, 320L, 325L, 330L, 335L, 340L, 345L, 350L, 355L, 360L), .Dim = 2:4, .Dimnames = list(NULL, c('a', 'b', 'c'), NULL)), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault11_fff18ae211ec81454dbfb6c7fa7d9651() {
+ assertEval("argv <- list(Inf, NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault12_eaba7de6f0345c99d4f72f5a287d052e() {
+ assertEval("argv <- list(structure(c(' 79.53', ' 6.00', ' 86.20', ' 6.00', ' 69.77', ' 5.00', ' 98.03', ' 6.00', '108.03', ' 6.00', ' 89.20', ' 6.00', '114.20', ' 6.00', '116.70', ' 6.00', '110.37', ' 6.00', '124.37', ' 6.00', '126.37', ' 6.00', '118.03', ' 6.00'), .Dim = c(6L, 4L), .Dimnames = structure(list(V = c('Golden.rain', 'rep ', 'Marvellous ', 'rep ', 'Victory ', 'rep '), N = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt')), .Names = c('V', 'N'))), NULL, FALSE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault13_2a24ecd809633ebe8d7a2fab1a1fc637() {
+ assertEval("argv <- list('2014-03-17 13:47:59 EDT', NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault14_5dfd929919e8e43b125de2ca0ba57679() {
+ assertEval("argv <- list(structure(1:120, .Dim = 2:5, .Dimnames = list(NULL, c('a', 'b', 'c'), NULL, c('V5', 'V6', 'V7', 'V8', 'V9'))), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault15_2eb347d14508384843a03f2f30c4d71a() {
+ assertEval("argv <- list(structure(c('1', '2', '1'), .Dim = 3L, .Dimnames = structure(list(c('1', '2', NA)), .Names = '')), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault17_adf3e5b45d62c6143fa1b00e231ddc22() {
+ assertEval("argv <- list(NULL, NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault18_7d7546758745d5b299e18a5d25ae5f58() {
+ assertEval("argv <- list(quote(breaks ~ (wool + tension) - tension), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault19_e805e1cd6f15c4ba02a94c0582cf413b() {
+ assertEval("argv <- list(c('2007-11-06', '2007-11-06'), NULL, TRUE, NULL, NULL, FALSE, 99999L, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault2_27174360a207a522fae66ced2ce8da07() {
+ assertEval("argv <- list(structure(c(' 1', 'NA', ' 1', '1.1', ' NA', '2.0', '1.1+0i', ' NA', '3.0+0i', 'NA', 'NA', 'NA', 'FALSE', ' NA', ' TRUE', 'abc', NA, 'def'), .Dim = c(3L, 6L), .Dimnames = list(c('1', '2', '3'), c('A', 'B', 'C', 'D', 'E', 'F'))), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault20_678b62c688c1cadfe200447c4fbfc2d2() {
+ assertEval("argv <- list(structure(c(NA, NA, 1L, 9L), .Names = c('size', 'current', 'direction', 'eval_depth')), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault21_a68b584a75d77dc4d708d78a6f135fdd() {
+ assertEval("argv <- list(character(0), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault22_0f627e45d3c52657463cd1ad09c99649() {
+ assertEval("argv <- list(structure('0.01587', .Names = '(Intercept)'), NULL, FALSE, NULL, 2, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault23_b30e52c67dfe3ffe71f84e37b1dbabb6() {
+ assertEval("argv <- list(quote(Y ~ X), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault24_f65eb8d38408e35038adf456a2c709c1() {
+ assertEval("argv <- list(c(0.944550219923258, 0.336629745550454, 0.629688071087003, 0.591416056267917), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault25_988e96057fa22eace51b735a957e593f() {
+ assertEval("argv <- list(c('surname', 'nationality', 'deceased', 'title', 'other.author'), NULL, FALSE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault26_cec4fade4a795b697c881e853f77cddb() {
+ assertEval("argv <- list(structure(c('-0.91', ' 0.81', '', '-0.97'), .Dim = c(2L, 2L), .Dimnames = list(c('x1', 'x3'), c('(Intercept)', 'x1'))), NULL, FALSE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault27_36e8770a7279149786e089ca506fbbcc() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault28_2e54c65c960e6cd4e3cd18db68641fa1() {
+ assertEval("argv <- list(c(1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault29_c07c828534b882f795742b74a73660bb() {
+ assertEval("argv <- list(structure(c('', ' 1', ' 1', ' 1', '', ' 9.93', ' 26.79', '820.91', ' 47.97', ' 57.90', ' 74.76', '868.88', '24.974', '25.420', '28.742', '60.629'), .Dim = c(4L, 4L), .Dimnames = list(c('<none>', '- x4', '- x2', '- x1'), c('Df', 'Sum of Sq', 'RSS', 'AIC'))), NULL, FALSE, '', NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault3_2c992cb06f5f83388b7f5355d9b12698() {
+ assertEval("argv <- list(structure(c('1', '2', '\\b', '4', '5', '\\040', '\\x20', 'c:\\spencer\\tests', '\\t', '\\n', '\\r'), .Dim = c(11L, 1L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11'), 'TEST')), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault30_df344f2be7f9f62a9f8544f8fecc43ba() {
+ assertEval("argv <- list(structure(c(78.7365206866197, 17, 98.5088731171753, 18, 113.842206450509, 18, 123.008873117175, 18), .Dim = c(2L, 4L), .Dimnames = list(c('', 'rep'), c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt'))), 4L, TRUE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault31_0ccbf4015939043bb4c517a3af46a50e() {
+ assertEval("argv <- list(structure(1:3, class = 'myClass'), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault32_a5a182e31db5352633b5bfb4fe8f1f48() {
+ assertEval("argv <- list(structure(c(495L, 515L, 535L, 555L, 575L, 595L, 615L, 635L, 655L, 675L, 695L, 715L), .Dim = 3:4, .Dimnames = list(c('a', 'b', 'c'), NULL)), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault4_07a408c4f936125cc7834ead16815d31() {
+ assertEval("argv <- list(quote(~a + b:c + d + e + e:d), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault5_95a8cbc9ecf7d4ce071eb164f1fc0d11() {
+ assertEval("argv <- list(structure(c(-1.05715, -0.48359, 0.0799, 0.44239, 1.2699), .Names = c('Min', '1Q', 'Median', '3Q', 'Max')), 4L, TRUE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault6_34e55c8f6d989981cad39721a3a95a9d() {
+ assertEval("argv <- list(quote(y ~ A:U + A:V - 1), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault7_c3fb3a6848f651750242692a255a062b() {
+ assertEval("argv <- list(structure(c(NA, NA, NA, 'a', NA, NA, 'b', 'd', NA, '10', '12', '14'), .Dim = 3:4), NULL, TRUE, '----', NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault8_db719c261c43833a18399eb27b8295d2() {
+ assertEval("argv <- list(c('Alb', 'Als', 'Arz', 'Ark', 'Clf', 'Clr', 'Cn', 'Dl', 'Fl', 'Gr', 'Hw', 'Id', 'Il', 'In', 'Iw', 'Kns', 'Knt', 'Ls', 'Man', 'Mr', 'Mssc', 'Mc', 'Mnn', 'Msss', 'Mssr', 'Mnt', 'Nb', 'Nv', 'NH', 'NJ', 'NM', 'NY', 'NC', 'ND', 'Oh', 'Ok', 'Or', 'Pn', 'RI', 'SC', 'SD', 'Tn', 'Tx', 'Ut', 'Vrm', 'Vrg', 'Wsh', 'WV', 'Wsc', 'Wy'), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintdefault_testprintdefault9_b35b730d4fa3b9c61575f789b019336a() {
+ assertEval("argv <- list(structure(c('abc', 'def\'gh'), .Dim = 1:2, .Dimnames = list('1', c('a', 'b'))), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintfunction_testprintfunction1_1021d86ad524e541a9e62f3bebedf3e3() {
+ assertEval("argv <- list(.Primitive('+'), TRUE); .Internal(print.function(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintfunction_testprintfunction2_7841a6fd4b7f2d015cae574dc09db85e() {
+ assertEval("argv <- list(.Primitive('if'), TRUE); .Internal(print.function(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintfunction_testprintfunction3_dab1c69d5d496ff15cb56eb6d8a68170() {
+ assertEval("argv <- list(.Primitive('c'), TRUE); .Internal(print.function(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintfunction_testprintfunction4_e6dc900fb27246048b43ec42f83eb5d0() {
+ assertEval("argv <- list(.Primitive('.Internal'), TRUE); .Internal(print.function(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprintfunction_testprintfunction5_6be715f4c61b9c874a7c0f88aec283b5() {
+ assertEval("argv <- list(.Primitive('log'), TRUE); .Internal(print.function(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprmatrix_testprmatrix1_60cb396f76ef6a0a993cbb6a8046f8b7() {
+ assertEval("argv <- list(structure(c(1, 6, 9, 6, 4, 1, 1, 2, 1, 0.305397625390859, 0.00170825768891124, 8.51556634078892e-12, 0.64987756971621, 0.0197968749793939, 5.28672163823767e-10, 0.00471555351643001, 2.33367394341443e-13, 1.21630438148624e-64, 1, 1, 1), .Dim = c(3L, 7L), .Dimnames = list(NULL, c('time', 'n.risk', 'n.event', 'survival', 'std.err', 'lower 95% CI', 'upper 95% CI'))), c('', '', ''), c('time', 'n.risk', 'n.event', 'survival', 'std.err', 'lower 95% CI', 'upper 95% CI'), TRUE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprmatrix_testprmatrix2_ebeed9735842cb288d5c6274d3905e4f() {
+ assertEval("argv <- list(structure(FALSE, .Dim = c(1L, 1L)), NULL, NULL, TRUE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprmatrix_testprmatrix3_c92fff4f442fac61d8bfb57b40e354ae() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 8, 11, 12, 15, 17, 22, 23, 21, 19, 17, 16, 14, 12, 8, 6, 4, 3, 2, 1, 2, 2, 1, 2, 2, 4, 2, 2, 1, 1, 1, 1, 0.904761904761905, 0.80952380952381, 0.761904761904762, 0.666666666666667, 0.571428571428571, 0.380952380952381, 0.285714285714286, 0.19047619047619, 0.142857142857143, 0.0952380952380952, 0.0476190476190476, 0, 0.0640564484890047, 0.0856890867468988, 0.0929428640903365, 0.102868899974728, 0.107989849431208, 0.105971169574131, 0.0985807941917649, 0.0856890867468988, 0.0763603548321212, 0.0640564484890047, 0.0464714320451682, NaN, 0.670045882235034, 0.568905059924173, 0.519391415328429, 0.425350435565247, 0.337976953859493, 0.183066548820394, 0.116561326436765, 0.0594817013611753, 0.0356573551906667, 0.016259260212247, 0.00332446304253118, NA, 0.975294149038113, 0.923888828559295, 0.893257109782487, 0.82504400879734, 0.749240709943216, 0.577788677745831, 0.481819648009025, 0.37743489058515, 0.321161574680869, 0.261249981968687, 0.197044905698946, NA), .Dim = c(12L, 7L), .Dimnames = list(NULL, c('time', 'n.risk', 'n.event', 'survival', 'std.err', 'lower 95% CI', 'upper 95% CI'))), c('', '', '', '', '', '', '', '', '', '', '', ''), c('time', 'n.risk', 'n.event', 'survival', 'std.err', 'lower 95% CI', 'upper 95% CI'), TRUE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprmatrix_testprmatrix4_b248179e13be08e76e43608895dce796() {
+ assertEval("argv <- list(structure(c(952L, 3622L, 202L, 406L), .Dim = c(2L, 2L), .Dimnames = list(c('subcohort', 'cohort'), c('1', '2'))), c('subcohort', 'cohort'), c('1', '2'), FALSE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprmatrix_testprmatrix5_d5511f65bf3cef3bd9075a4969ad40f1() {
+ assertEval("argv <- list(structure(c(-1.89646294299258, 1.16675019914746, -8.10054918052941, -5.02922966334328, -0.332284173685658, -0.370285767776029, -0.422218802914528, 0.27824687717147, NA, 0.150098588668891, 3.21153879975245, 0.000303372486059531, 0.00654384959664698, 0.717283460804982, 0.690536969224971, 0.655590578569862, 1.32081223535046, NA, 1.38078223740269, 0.565646487676971, 0.698724423746393, 0.770086232143856, 0.0568682431416458, 0.116409970657657, 0.0584328435912827, 0.0510212342180821, 0, -1.37346997348395, 2.06268442316178, -11.5933390979754, -6.53073571948212, -5.84305326362929, -3.1808767383421, -7.22571035337252, 5.45355049590036, NA, 0.17, 0.039, 0, 6.5e-11, 5.1e-09, 0.0015, 5e-13, 4.9e-08, NA), .Dim = c(9L, 5L), .Dimnames = list(c('toccfarm', 'toccoperatives', 'toccprofessional', 'toccsales', 'tocccraftsmen:education', 'toccfarm:education', 'toccoperatives:education', 'toccprofessional:education', 'toccsales:education'), c('coef', 'exp(coef)', 'se(coef)', 'z', 'p'))), c('toccfarm', 'toccoperatives', 'toccprofessional', 'toccsales', 'tocccraftsmen:education', 'toccfarm:education', 'toccoperatives:education', 'toccprofessional:education', 'toccsales:education'), c('coef', 'exp(coef)', 'se(coef)', 'z', 'p'), TRUE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprmatrix_testprmatrix6_63a9003a721f9c1e855e025666d1abf2() {
+ assertEval("argv <- list(structure(c('splines-package', 'as.polySpline', 'asVector', 'backSpline', 'bs', 'interpSpline', 'ns', 'periodicSpline', 'polySpline', 'predict.bs', 'predict.bSpline', 'predict.nbSpline', 'predict.npolySpline', 'predict.ns', 'predict.pbSpline', 'predict.ppolySpline', 'spline.des', 'splineDesign', 'splineKnots', 'splineOrder', 'splines', 'xyVector', 'splines-package', 'polySpline', 'asVector', 'backSpline', 'bs', 'interpSpline', 'ns', 'periodicSpline', 'polySpline', 'predict.bs', 'predict.bSpline', 'predict.bSpline', 'predict.bSpline', 'predict.bs', 'predict.bSpline', 'predict.bSpline', 'splineDesign', 'splineDesign', 'splineKnots', 'splineOrder', 'splines-package', 'xyVector'), .Dim = c(22L, 2L)), NULL, c('Column 1', 'Column 2', 'Column 3'), FALSE, TRUE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprmatrix_testprmatrix7_91f847560597d197de0592dbb3433eb7() {
+ assertEval("argv <- list(structure(c(' 0.228763', '-0.000666', '', '0.08909', '0.00426', '', '0.08899', '0.00426', '', '6.59', '0.02', '6.02', '1.00', '1.00', '3.06', '0.01', '0.88', '0.12'), .Dim = c(3L, 6L), .Dimnames = list(c('male', 'tt(agechf), linear', 'tt(agechf), nonlin'), c('coef', 'se(coef)', 'se2', 'Chisq', 'DF', 'p'))), c('male', 'tt(agechf), linear', 'tt(agechf), nonlin'), c('coef', 'se(coef)', 'se2', 'Chisq', 'DF', 'p'), FALSE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprmatrix_testprmatrix8_610234c13c958d0245568ec14852ecfd() {
+ assertEval("argv <- list(structure(c(' 0.00561', '-1.65487', '', '0.012', '0.483', '', '0.00872', '0.38527', '', ' 0.22', '11.74', '20.33', ' 1.0', ' 1.0', '13.9', '0.64000', '0.00061', '0.12000'), .Dim = c(3L, 6L), .Dimnames = list(c('age', 'sex', 'frailty(id, dist = \'t\', c'), c('coef', 'se(coef)', 'se2', 'Chisq', 'DF', 'p'))), c('age', 'sex', 'frailty(id, dist = \'t\', c'), c('coef', 'se(coef)', 'se2', 'Chisq', 'DF', 'p'), FALSE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprod_testprod10_e1494e05b9107ae9c2d91b8ea3945c61() {
+ assertEval("prod( );");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprod_testprod11_444155a2fd66d2da798ec4400cbed401() {
+ assertEval("argv <- list(numeric(0));prod(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprod_testprod2_d5fed814f10821c421305e0e621257d9() {
+ assertEval("argv <- list(c(1000L, 1000L));prod(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprod_testprod5_ddf539c72d5be0c972f23ef5743443b4() {
+ assertEval("argv <- list(integer(0));prod(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprod_testprod8_f63c0acc4c4aa52ea474e1811bc7a816() {
+ assertEval("argv <- list(c(0.138260298853371, 0.000636169906925458));prod(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinprod_testprod9_1b54654e4fc4c2ca1eb33a3d5d9120f7() {
+ assertEval("argv <- list(NA_integer_);prod(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsigamma_testpsigamma1_b3ce0b3a4e9f00cae261ee1e1fdf25fe() {
+ assertEval("argv <- list(c(-100, -3, -2, -1, 0, 1, 2, -99.9, -7.7, -3, -2.9, -2.8, -2.7, -2.6, -2.5, -2.4, -2.3, -2.2, -2.1, -2, -1.9, -1.8, -1.7, -1.6, -1.5, -1.4, -1.3, -1.2, -1.1, -1, -0.9, -0.8, -0.7, -0.6, -0.5, -0.4, -0.3, -0.2, -0.0999999999999996, 0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2, 2.1, 2.2, 2.3, 2.4, 2.5, 2.6, 2.7, 2.8, 2.9, 3, 5.1, 77), 1); .Internal(psigamma(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsigamma_testpsigamma2_b5501ab01e61fc203ea02dd23a8bf50f() {
+ assertEval("argv <- list(c(1e+30, 1e+45, 1e+60, 1e+75, 1e+90), 2); .Internal(psigamma(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsigamma_testpsigamma3_82d1df5018204925e2ea7e2e7f75b101() {
+ assertEval("argv <- list(c(1e+20, 1e+30, 1e+40, 1e+50, 1e+60), 5); .Internal(psigamma(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsigamma_testpsigamma4_b95dcdcb5d051b464b6c40439dc6c93a() {
+ assertEval("argv <- list(c(-100, -3, -2, -1, 0, 1, 2, -99.9, -7.7, -3, -2.9, -2.8, -2.7, -2.6, -2.5, -2.4, -2.3, -2.2, -2.1, -2, -1.9, -1.8, -1.7, -1.6, -1.5, -1.4, -1.3, -1.2, -1.1, -1, -0.9, -0.8, -0.7, -0.6, -0.5, -0.4, -0.3, -0.2, -0.0999999999999996, 0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2, 2.1, 2.2, 2.3, 2.4, 2.5, 2.6, 2.7, 2.8, 2.9, 3, 5.1, 77), 0); .Internal(psigamma(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsort_testpsort1_172f2c78025ed325182f497c9584531a() {
+ assertEval("argv <- list(7:8, 1:2); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsort_testpsort10_e5ec8754c5ebb7064bf2ffe927cb7e00() {
+ assertEval("argv <- list(c(-1.05715266611575, -0.873306430909872, -0.548705796690786, -0.288240908441576, -0.0649703574297026, 0.224762433374997, 0.3255545927283, 0.4813346401898, 0.530823516045489, 1.2699009772491), c(1L, 3L, 4L, 5L, 6L, 7L, 8L, 10L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsort_testpsort11_48b2eaf2776e92ef0affd17e60356d35() {
+ assertEval("argv <- list(c(-1.05715266611575, -0.873306430909873, -0.548705796690787, -0.288240908441577, -0.0649703574297025, 0.224762433374994, 0.3255545927283, 0.481334640189799, 0.530823516045488, 1.2699009772491), c(1L, 3L, 4L, 5L, 6L, 7L, 8L, 10L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsort_testpsort12_57d6bd2c7042ca399ffcdefe60086ee0() {
+ assertEval("argv <- list(c(-Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -4.17369555651928e+302, -2.72671165723473e+289, -2.21240023126594e+276, -2.24780296109123e+263, -2.88514442494869e+250, -4.72336572671053e+237, -9.96611412047338e+224, -2.74100158340596e+212, -9.94902790498679e+199, -4.83110332887119e+187, -3.18582547396557e+175, -2.90089508183654e+163, -3.71562599613334e+151, -6.83535188151783e+139, -1.84898368353639e+128, -7.55412056676629e+116, -4.80716085942859e+105, -4.9383857330861e+94, -8.54170618068872e+83, -2.61556777274611e+73, -1.5069799345972e+63, -1.76183826972506e+53, -4.60125024792566e+43, -3.04622557026196e+34, -6.08456909882282e+25, -473300382255715392, -21650982809.6744, -12820.0784261145, -1.12778377684043), c(1L, 13L, 14L, 26L, 38L, 39L, 51L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsort_testpsort13_604221e547b97e1d9794ea4ad42fa86f() {
+ assertEval("argv <- list(c(0.5, 0.6, 1.2, 1.3, 1.6, 5.8, 6.2, 3.7, 5.1, 5, 4, 4, 5.3, 1.4, 6.6, 3.8, 2.6, 3.2, 2.9, 6.8, 10.6, 7.6, 9.3, 8, 10, 10, 8, 10.5, 10.5, 9.7, 9.7, 9.4, 8.9, 8.8, 8, 10.1, 8.5, 9.1, 7.5, 7.4, 7.5, 7.6, 8.4, 8.5, 10.8, 11.1, 12, 12, 18, 17.7, 16, 15, 14, 12.9, 12.7, 12.6, 17.9, 12.1, 17.7, 16.1, 13, 17.3, 17, 16.7, 13, 15.7, 19, 16, 17, 12, 12.2, 12.8, 14.6, 14.9, 17.6, 21, 20.5, 19.6, 20.2, 20.8, 21.1, 21.9, 20.5, 19.2, 22.5, 22, 23.2, 23, 22, 22, 23.4, 23.4, 23.5, 29, 26, 25, 28.5, 25.4, 29, 24.2, 23.9, 24.6, 25.7, 25.3, 28.6, 26.5, 29, 37.8, 30.9, 42, 31, 38.5, 41.4, 43.6, 46.7, 37.4, 45, 35.9, 36.1, 32, 44.4, 40.3, 30, 31, 32, 32.7, 36, 43.5, 33.1, 32.9, 36.3, 38.9, 30, 46.1, 45, 47.1, 47.7, 187, 147, 130, 49.2, 62, 141, 122, 105, 62, 64, 123, 112, 105, 63.6, 60, 49, 66, 87, 56.9, 60.7, 61.4, 156, 62, 64, 82, 88, 48.3, 109, 107, 85, 91, 148, 145, 53.1, 50, 92.2, 224, 293, 300, 211, 200, 197, 203, 359, 370), c(1L, 46L, 47L, 91L, 92L, 136L, 137L, 182L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsort_testpsort14_1f46479d96526c8280961374a4437883() {
+ assertEval("argv <- list(c(-1.36919169254062, -0.667819876370237, -0.253162069270378, -0.0834190388782434, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, 0.0881443844426084, 0.170711734013213, 0.552921941721332), c(1L, 3L, 4L, 5L, 6L, 7L, 8L, 10L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsort_testpsort2_ffa274c0158bcb248ad74c3c91dbf08f() {
+ assertEval("argv <- list(c(0.0499999999999972, 0.300000000000004, 1.1, 0.0500000000000007, 0, 0.25, 1, 2.15, 1.95, 2.09999999999999, 1.95, 2.04999999999999, 2.59999999999999, 2.59999999999999, 2.6, 4.25, 3.45, 2.65000000000001, 3.49999999999999, 3.75000000000001, 2.75, 3.05, 2.8, 4.45, 3.35, 7.7, 14.2), 14L); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsort_testpsort3_0f3c20da4c3fec6bc4e005ac32d2bcea() {
+ assertEval("argv <- list(c(4.23272528138341e-16, 5.68989300120393e-16, 0.0499999999999982, 3.05311331771918e-16, 0.049999999999999, 0.0499999999999994, 3.05311331771918e-16, 0.0499999999999994, 0.100000000000001, 0.0999999999999994, 0.0999999999999994, 0.0500000000000006, 0.15, 0.15, 0.100000000000001, 0.0499999999999997, 0.150000000000001, 0.0999999999999995, 0.0999999999999993, 0.100000000000001, 0.0999999999999994, 0.100000000000001, 0.250000000000001, 0.250000000000001, 0.299999999999999, 0.199999999999999, 0.200000000000001, 0.3, 0.25, 0.199999999999999, 0.199999999999999, 0.150000000000001, 0.200000000000001, 0.199999999999998, 0.249999999999999, 0.199999999999999, 0.3, 0.350000000000001, 0.35, 0.300000000000001, 0.3, 0.350000000000002, 0.35, 0.35, 0.300000000000001, 0.350000000000001, 0.399999999999999, 0.4, 0.349999999999999, 0.350000000000001, 0.400000000000001, 0.300000000000001, 0.400000000000001, 0.449999999999999, 0.45, 0.450000000000001, 0.45, 0.450000000000001, 1.05, 0.7, 0.6, 1, 0.500000000000001, 0.5, 0.699999999999999, 1.05, 0.850000000000001, 0.650000000000001, 0.750000000000001, 0.75, 1, 0.699999999999999, 0.749999999999999, 1.05, 0.549999999999999, 0.500000000000001, 0.7, 0.8, 0.500000000000001, 0.650000000000001, 0.700000000000001, 0.599999999999999, 0.9, 0.75, 0.949999999999999, 0.899999999999999, 0.550000000000001, 1, 1.05, 1.05, 0.600000000000001, 0.6, 1.05, 0.749999999999999, 0.949999999999999, 1.1, 2.15, 1.45, 1.3, 2.1, 4.85, 3.7, 2.05, 1.2, 1.4, 1.3, 1.2, 1.85), 54:55); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsort_testpsort4_1eeecdb14cfb1f3797c171260ca41765() {
+ assertEval("argv <- list(c(0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.0499999999999998, 0.05, 0.05, 0.05, 0.0499999999999999, 0.05, 0.0499999999999999, 0.05, 0.0499999999999999, 0.0499999999999999, 0.05, 0.0499999999999999, 0.0499999999999999, 0.05, 0.05, 0.0499999999999998, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.0499999999999999, 0.05, 0.05, 0.05, 0.0499999999999999, 0.0499999999999999, 0.0499999999999999, 0.05, 0.05, 0.0499999999999999, 0.05, 0.0499999999999999, 0.05, 0.05, 0.05, 0.0499999999999998, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.0555556, 0.05555554, 0.05555556, 0.05555556, 0.05555554, 0.0555556, 0.0555555, 0.0555556, 0.0555555, 0.0555556, 0.0555555, 0.0555556, 0.0555556, 0.0555555, 0.0555555999999999, 0.0555555000000001, 0.0555555999999999, 0.0555555000000001, 0.0555555999999999, 0.0555555, 0.0555556, 0.0555559999999999, 0.055555, 0.0555559999999999, 0.0526315, 0.05263162, 0.05263158, 0.05263158, 0.05263162, 0.0526315, 0.0526316, 0.0526316, 0.0526316, 0.0526316, 0.0526315, 0.0526316, 0.0526316, 0.0526316, 0.0526316, 0.0526315000000001, 0.0526316, 0.0526315999999999, 0.0526316, 0.0526315000000001, 0.0526316, 0.0526316, 0.052632, 0.0526310000000001, 0.0526319999999998, 0.08333333, 0.08333333, 0.08333334, 0.08333333, 0.08333333, 0.08333337, 0.0833333, 0.0833333, 0.0833333, 0.0833333, 0.0833333, 0.0833333, 0.0833333000000001, 0.0833333000000001, 0.0833333999999999, 0.0833333000000001, 0.0833333000000001, 0.0833333999999999, 0.0833333000000001, 0.0833333000000001, 0.0833333999999999, 0.0833333000000001, 0.0833333000000001, 0.0833330000000001, 0.0833330000000001), 76:77); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsort_testpsort5_a40a0e38ca26f6979dc545dcdafed14f() {
+ assertEval("argv <- list(c(-3.35281542033775, -3.57533122743112, -3.23282496934355, -3.3903449466851, -3.39757437954971, -3.36251831175626, -3.22932468384763, -3.22295685034786, -3.21402130636699, -3.11638102275539, -3.09226646401048, -3.21757818016328, -3.0862187014408, -3.08484132891786), 7:8); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsort_testpsort6_8dcabc555fafc94927b76ab4d466d2db() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE), c(66L, 195L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsort_testpsort7_5990e812938cfd9eb62f0df0b062b0d9() {
+ assertEval("argv <- list(c(1, 2, 2, 3, 3, 4, 4, 5), 1:8); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsort_testpsort8_946b48319923464cb51dd074faa98f7c() {
+ assertEval("argv <- list(27:28, 1:2); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpsort_testpsort9_b0e933f6019db4b3a3adda026c3a99e8() {
+ assertEval("argv <- list(c(-Inf, -Inf, Inf, Inf), 1:4); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinpushBackLength_testpushBackLength1_dcfa067b5a946b8102d8e24955cd3eb9() {
+ assertEval("argv <- list(FALSE); .Internal(pushBackLength(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinputconst_testputconst1_905e389d73f4641d410a3185a03514a6() {
+ assertEval("argv <- list(list(NULL), 0, NULL); .Internal(putconst(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinputconst_testputconst2_73c58d71316b1a0596190d1ecdc2c100() {
+ assertEval("argv <- list(list(list(), NULL), 1, list()); .Internal(putconst(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinqr_testqr1_5e55b02e718782ee5db58f9f80b58a00() {
+ assertEval("argv <- list(structure(list(qr = structure(c(-2.99896066496855+0i, 0.0864255261791181+0i, -0.13772470327145+0i, -0.49098351645158+0i, 0.249389337649224+0i, 1.17331892183982+0i, -1.54960102684918+0i, -0.573648421141553+0i, 0.376760682628698+0i, 0.412090084647403+0i, 0.603959683330493+0i, -0.0216928335770876+0i, -1.2469936242596+0i, 0.224366164923213+0i, 0.341798188737913+0i, 1.04294423444024+0i, 0.270564951504877+0i, -0.315381666175534+0i, 0.787566751532822+0i, 0.229154517629245+0i, -2.25109940279642+0i, 0.530750192641659+0i, -0.0977755443891602+0i, 0.6614171819615+0i, -0.0856949989622426+0i), .Dim = c(5L, 5L), .Dimnames = list(c('1', '2', '3', '4', '5'), c('c', 'a', 'd', 'b', 'e'))), rank = 5L, qraux = c(1.50410169966891+0i, 1.21888836143069+0i, 1.71355205288103+0i, 1.90021623833265+0i, 0+0i), pivot = c(3L, 1L, 4L, 2L, 5L)), .Names = c('qr', 'rank', 'qraux', 'pivot'), class = 'qr'), structure(1:5, .Dim = c(5L, 1L))); .Internal(qr_coef_cmplx(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinqr_testqr2_6dcba0e0aead37a7ec4cb919f7a2a5c7() {
+ assertEval("argv <- list(structure(list(qr = structure(c(-2.79657712283236, 0.0791500442336917, 0.123755637403102, 0.089607462331441, 0.175462651449591, 0.0695565565709435, 0.129006956605315, 0.206583197284758, 0.0227114114395308, 0.235970456809858, 0.0914077988155571, 0.226297607634113, 0.0934594628258066, 0.0899795540097744, 0.12841549388179, 0.240520185730483, 0.233009950431413, 0.105133974880502, 0.2095512974465, 0.258964862210899, -2.07025325833148, -1.85301582498188, 0.139094572499947, 0.342556683478902, -0.102024562608463, 0.360699451256097, 0.315324737973941, 0.0873752715112826, 0.2823485467872, -0.239863332146733, -0.00369181667619238, -0.172536775168022, 0.229736826805589, 0.0852501914884386, 0.230310089401495, -0.0314168397035678, 0.0849707357385819, 0.365804687920591, -0.0536336269418447, 0.0845797169641211, -2.03746531175251, -0.489461063366758, -1.40644653583967, -0.00873041883181913, 0.0708276075409328, 0.153420226417602, -0.370069917481653, -0.112816417432651, 0.240125650075004, 0.138426195987046, 0.128552669396225, 0.217325815608225, -0.0223361051263949, -0.0526633296159945, -0.296094517820351, -0.327346352864029, -0.249917267465335, -0.0672115093838751, 0.0654426021596298, -0.240131194574062, -2.06587739268838, -0.339470951293598, -0.49608488205654, 1.14277258876071, 0.201196269542128, 0.0348254315928563, 0.145314253550005, 0.131380830586619, -0.387015716398766, 0.283849139598354, -0.0827284627849877, 0.132994279479374, -0.113393410148955, 0.0518736136418599, -0.422882666833989, -0.141635274746576, -0.181291088091223, 0.196913259592121, -0.0460107390352923, 0.15597817986415), .Dim = c(20L, 4L)), rank = 4L, qraux = c(1.32642615746455, 1.10105053486773, 1.21513331337829, 1.21397558590595), pivot = c(4L, 1L, 3L, 2L)), .Names = c('qr', 'rank', 'qraux', 'pivot'), useLAPACK = TRUE, class = 'qr'), structure(c(0.434659484773874, 0.712514678714797, 0.399994368897751, 0.325352151878178, 0.757087148027495, 0.202692255144939, 0.711121222469956, 0.121691921027377, 0.245488513959572, 0.14330437942408, 0.239629415096715, 0.0589343772735447, 0.642288258532062, 0.876269212691113, 0.778914677444845, 0.79730882588774, 0.455274453619495, 0.410084082046524, 0.810870242770761, 0.604933290276676, 0.654723928077146, 0.353197271935642, 0.270260145887733, 0.99268406117335, 0.633493264438584, 0.213208135217428, 0.129372348077595, 0.478118034312502, 0.924074469832703, 0.59876096714288, 0.976170694921166, 0.731792511884123, 0.356726912083104, 0.431473690550774, 0.148211560677737, 0.0130775754805654, 0.715566066093743, 0.103184235747904, 0.446284348610789, 0.640101045137271, 1.00298403897323, 0.272296643047594, 0.67556063386146, 0.151371688628569, 0.340151631063782, 0.431371175684035, 0.0309030100004748, 0.457057784032077, 0.880189609760418, 0.426803491590545, 0.543544612638652, 0.655281779309735, 0.526419038954191, 0.231530745956115, 0.877417415869422, 0.686553374305367, 0.847202921006829, 0.115471200458705, 0.751486539305188, 0.432544381567277, 0.682788078673184, 0.601541217649356, 0.238868677755818, 0.258165926672518, 0.729309623362496, 0.452570831403136, 0.175126768415794, 0.746698269620538, 0.104987640399486, 0.864544949028641, 0.614644971676171, 0.557159538846463, 0.328777319053188, 0.453131445450708, 0.500440972624347, 0.180866361130029, 0.529630602803081, 0.0752757457084954, 0.277755932649598, 0.212699519237503, 0.0904899418726564, 0.0829104807786643, 0.140637623313814, 0.186663761837408, 0.0510252129565924, 0.195122500695288, 0.189470667047426, 0.14745507678017, 0.160610442608595, 0.0259712139610201, 0.0604781195987016, 0.0592939835228026, 0.157146221613511, 0.0842694476991892, 0.187063216743991, 0.126278517944738, 0.175293296081945, 0.202698964001611, 0.104955473728478, 0.1719400214497, 0.293730155099183, 0.19126010988839, 0.886450943304226, 0.503339485730976, 0.877057543024421, 0.189193622441962, 0.758103052387014, 0.724498892668635, 0.943724818294868, 0.547646587016061, 0.711743867723271, 0.388905099825934, 0.100873126182705, 0.927302088588476, 0.283232500310987, 0.59057315881364, 0.110360604943708, 0.840507032116875, 0.317963684443384, 0.782851336989552, 0.267508207354695, 0.218645284883678, 0.516796836396679, 0.268950592027977, 0.181168327340856, 0.518576137488708, 0.562782935798168, 0.129156854469329, 0.256367604015395, 0.717935275984928, 0.961409936426207, 0.100140846567228, 0.763222689507529, 0.947966354666278, 0.818634688388556, 0.308292330708355, 0.649579460499808, 0.953355451114476, 0.953732650028542, 0.339979203417897), .Dim = c(20L, 7L)), TRUE); .Internal(qr_qy_real(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinqsort_testqsort12_d466c56eb29c28b1ba088d9084e2eb02() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinqsort_testqsort4_445d53daa7494cf807aeee0fa73fef8e() {
+ assertEval("argv <- list(c(1.64819754690779, 0.502718643389684, 0.845467412356198, 0.467247395729231, -0.402055063696625, 0.923526703253396, -0.0080556407117813, 1.03378423761425, -0.799126981726699, 1.00423302095334, -0.311973356192691, -0.88614958536232, -1.9222548962705, 1.61970074406333, 0.519269904664384, -0.055849931834021, 0.696417610118512), TRUE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinqsort_testqsort5_733d7ca9e3a4e2fc1cd05745154d86a1() {
+ assertEval("argv <- list(c(1L, 7L, 11L, 12L, 13L, 19L, 25L, 3L, 8L), TRUE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinradixsort_testradixsort1_fe1a2a01b922c06c8309859de7af216e() {
+ assertEval("argv <- list(structure(1L, .Label = c('Ctl', 'Trt'), class = 'factor'), TRUE, FALSE); .Internal(radixsort(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinradixsort_testradixsort2_358c949e727b1b7dd2ca071741ce125f() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c('1', '2', NA), class = 'factor'), TRUE, FALSE); .Internal(radixsort(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinradixsort_testradixsort3_f73b54c6836e13bb4f2e62466ea5dd50() {
+ assertEval("argv <- list(structure(c(3L, 7L, 1L, 5L, 10L, 8L, 2L, 6L, 4L, 9L), .Label = c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), class = 'factor'), TRUE, FALSE); .Internal(radixsort(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinradixsort_testradixsort5_5b4f8d55cb71b3d200570fbcb536500d() {
+ assertEval("argv <- list(structure(c(64L, 67L, 92L, 71L, 74L, 69L, 78L, 94L, 95L, 80L, 119L, 114L, 97L, 72L, 75L, 96L, 99L, 54L, 101L, 93L, 58L, 138L, NA, 139L, 126L, 84L, 79L, 62L, 52L, 68L, 81L, 87L, 109L, 35L, 51L, 61L, 59L, 131L, 137L, 73L, 77L, 70L, 90L, 107L, 29L, 89L, 57L, 66L, 76L, 37L, 155L, 16L, 102L, 56L, 123L, 36L, 60L, 40L, 43L, 85L, 65L, 11L, 47L, 103L, 86L, 13L, 63L, 132L, 91L, 98L, 105L, 134L, 14L, 124L, 117L, 55L, 41L, 24L, 50L, 110L, 129L, 88L, 141L, 145L, 133L, 25L, 46L, 120L, 83L, 121L, 104L, 53L, 44L, 113L, 100L, 19L, 108L, 31L, 82L, 127L, 111L, 116L, 38L, 150L, 48L, 22L, 112L, 140L, 27L, 149L, 115L, 130L, 8L, 28L, 106L, 23L, 125L, 33L, 39L, 32L, 15L, 49L, 144L, 7L, 17L, 122L, 118L, 5L, 128L, 12L, 45L, 21L, 42L, 147L, 26L, 1L, 4L, 153L, 151L, 3L, 136L), .Label = c('(360,365]', '(365,370]', '(370,375]', '(375,380]', '(380,385]', '(385,390]', '(390,395]', '(395,400]', '(400,405]', '(405,410]', '(410,415]', '(415,420]', '(420,425]', '(425,430]', '(430,435]', '(435,440]', '(440,445]', '(445,450]', '(450,455]', '(455,460]', '(460,465]', '(465,470]', '(470,475]', '(475,480]', '(480,485]', '(485,490]', '(490,495]', '(495,500]', '(500,505]', '(505,510]', '(510,515]', '(515,520]', '(520,525]', '(525,530]', '(530,535]', '(535,540]', '(540,545]', '(545,550]', '(550,555]', '(555,560]', '(560,565]', '(565,570]', '(570,575]', '(575,580]', '(580,585]', '(585,590]', '(590,595]', '(595,600]', '(600,605]', '(605,610]', '(610,615]', '(615,620]', '(620,625]', '(625,630]', '(630,635]', '(635,640]', '(640,645]', '(645,650]', '(650,655]', '(655,660]', '(660,665]', '(665,670]', '(670,675]', '(675,680]', '(680,685]', '(685,690]', '(690,695]', '(695,700]', '(700,705]', '(705,710]', '(710,715]', '(715,720]', '(720,725]', '(725,730]', '(730,735]', '(735,740]', '(740,745]', '(745,750]', '(750,755]', '(755,760]', '(760,765]', '(765,770]', '(770,775]', '(775,780]', '(780,785]', '(785,790]', '(790,795]', '(795,800]', '(800,805]', '(805,810]', '(810,815]', '(815,820]', '(820,825]', '(825,830]', '(830,835]', '(835,840]', '(840,845]', '(845,850]', '(850,855]', '(855,860]', '(860,865]', '(865,870]', '(870,875]', '(875,880]', '(880,885]', '(885,890]', '(890,895]', '(895,900]', '(900,905]', '(905,910]', '(910,915]', '(915,920]', '(920,925]', '(925,930]', '(930,935]', '(935,940]', '(940,945]', '(945,950]', '(950,955]', '(955,960]', '(960,965]', '(965,970]', '(970,975]', '(975,980]', '(980,985]', '(985,990]', '(990,995]', '(995,1000]', '(1000,1005]', '(1005,1010]', '(1010,1015]', '(1015,1020]', '(1020,1025]', '(1025,1030]', '(1030,1035]', '(1035,1040]', '(1040,1045]', '(1045,1050]', '(1050,1055]', '(1055,1060]', '(1060,1065]', '(1065,1070]', '(1070,1075]', '(1075,1080]', '(1080,1085]', '(1085,1090]', '(1090,1095]', '(1095,1100]', '(1100,1105]', '(1105,1110]', '(1110,1115]', '(1115,1120]', '(1120,1125]', '(1125,1130]', '(1130,1135]'), class = 'factor'), TRUE, FALSE); .Internal(radixsort(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinradixsort_testradixsort6_6527ae8e8bfa9b6ef80afe1471d4a9c0() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'), TRUE, FALSE); .Internal(radixsort(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange1_95f6ba5e1e205865d332388bdf381467() {
+ assertEval("argv <- list(c(0.0303542455381287, 0.030376780241572, 0.030376780241572, 0.0317964665585001, 0.0332612222823148, 0.0332612222823148, 0.0332612222823148, 0.0332612222823148, 0.0332612222823148, 0.0332612222823148, 0.0332612222823148, 0.0334189652064179, 0.0352217414818821, 0.0354245538128718, 0.0354245538128718, 0.0376780241572021, 0.0376780241572021, 0.0376780241572021, 0.0376780241572021, 0.0406300703082748, 0.0406300703082748, 0.0406300703082748, 0.0440778799351001, 0.048021453037678, 0.0524607896160087, 0.0524607896160087, 0.0524607896160087, 0.0628267531999279, 0.0693167477915991, 0.0981611681990265, 0.134937804218497, 0.179646655850009, 0.437804218496485), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange10_50d77fbfd0a7e8211b21107dda47c157() {
+ assertEval("argv <- list(structure(c(-3.5527136788005e-14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -6.21724893790088e-15, -1.77635683940025e-15, -8.88178419700125e-16, -1.33226762955019e-15, -1.22124532708767e-15, -8.88178419700125e-16, -1.33226762955019e-15, -1.22124532708767e-15, -1.33226762955019e-15, -1.11022302462516e-15, -8.88178419700125e-16, -1.33226762955019e-15, -8.88178419700125e-16, -8.88178419700125e-16, -4.44089209850063e-16, -4.44089209850063e-16, -1.22124532708767e-15, -1.22124532708767e-15, -8.88178419700125e-16, -1.33226762955019e-15, -8.88178419700125e-16, -4.44089209850063e-16, -6.66133814775094e-16, -7.7715611723761e-16, -4.44089209850063e-16, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -1.33226762955019e-15, -1.33226762955019e-15, -1.33226762955019e-15, -8.88178419700125e-16, -1.11022302462516e-15, -4.44089209850063e-16, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -1.33226762955019e-15, -1.33226762955019e-15, -8.88178419700125e-16, -4.44089209850063e-16, -1.22124532708767e-15, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -1.33226762955019e-15, -1.22124532708767e-15, 5.91171556152403e-12, -1.59161572810262e-12, 4.54747350886464e-13, 1.02318153949454e-12, 1.13686837721616e-12, 4.54747350886464e-13, 9.09494701772928e-13, 9.09494701772928e-13, 1.02318153949454e-12, 9.09494701772928e-13, 0, 9.09494701772928e-13, 4.54747350886464e-13, 0, 0, 3.41060513164848e-13, 9.66338120633736e-13, 1.19371179607697e-12, 2.27373675443232e-13, 9.66338120633736e-13, 2.27373675443232e-13, 0, 4.54747350886464e-13, 9.66338120633736e-13, 0, 6.82121026329696e-13, 4.54747350886464e-13, 2.27373675443232e-13, 4.54747350886464e-13, 1.08002495835535e-12, 1.02318153949454e-12, 8.5265128291212e-13, 7.38964445190504e-13, 9.09494701772928e-13, 4.54747350886464e-13, 5.6843418860808e-13, 7.105427357601e-13, 3.41060513164848e-13, 0, 0, 9.66338120633736e-13, 1.02318153949454e-12, 0, 4.54747350886464e-13, 1.13686837721616e-12, 1.05160324892495e-12, 9.09494701772928e-13, 3.41060513164848e-13, 8.38440428196918e-13, 1.4210854715202e-12, 1.15463194561016e-14, -8.88178419700125e-16, -1.33226762955019e-15, -2.02615701994091e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.77635683940025e-15, 8.88178419700125e-16, 2.22044604925031e-15, 1.77635683940025e-15, 0, 1.33226762955019e-15, 8.88178419700125e-16, 2.22044604925031e-15, 2.22044604925031e-15, 1.77635683940025e-15, 1.77635683940025e-15, 8.88178419700125e-16, 4.44089209850063e-16, 0, 1.77635683940025e-15, 8.88178419700125e-16, 1.77635683940025e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.11022302462516e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.55431223447522e-15, 1.66533453693773e-15, 2.66453525910038e-15, 8.88178419700125e-16, 8.88178419700125e-16, 8.88178419700125e-16, 8.88178419700125e-16, 8.88178419700125e-16, 8.88178419700125e-16, 1.77635683940025e-15, 2.22044604925031e-15, 8.88178419700125e-16, 2.22044604925031e-15, 3.77475828372553e-15, 1.77635683940025e-15, 0, 1.33226762955019e-15, 0, 2.66453525910038e-15), .Dim = c(50L, 4L), .Dimnames = list(c('Australia', 'Austria', 'Belgium', 'Bolivia', 'Brazil', 'Canada', 'Chile', 'China', 'Colombia', 'Costa Rica', 'Denmark', 'Ecuador', 'Finland', 'France', 'Germany', 'Greece', 'Guatamala', 'Honduras', 'Iceland', 'India', 'Ireland', 'Italy', 'Japan', 'Korea', 'Luxembourg', 'Malta', 'Norway', 'Netherlands', 'New Zealand', 'Nicaragua', 'Panama', 'Paraguay', 'Peru', 'Philippines', 'Portugal', 'South Africa', 'South Rhodesia', 'Spain', 'Sweden', 'Switzerland', 'Turkey', 'Tunisia', 'United Kingdom', 'United States', 'Venezuela', 'Zambia', 'Jamaica', 'Uruguay', 'Libya', 'Malaysia'), c('pop15', 'pop75', 'dpi', 'ddpi'))), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange11_69ed5df91e9420b3a2564f75bbdaa3ef() {
+ assertEval("argv <- list(structure(c(4L, 5L, 1L, 5L, 3L, 4L, 5L, 3L, 2L, 4L), .Label = c('a', 'c', 'i', 's', 't'), class = c('ordered', 'factor')), structure(c(4L, 2L, 3L, 5L, 4L, 3L, 5L, 1L, 5L, 4L), .Label = c('a', 'c', 'i', 's', 't'), class = c('ordered', 'factor')), na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange12_83e6d67fe82289bfffd0da8c2bb638fd() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101), .Tsp = c(1, 101, 1), class = 'ts'), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange13_a6bcd01bfb554f1fa83fc60b021cd511() {
+ assertEval("argv <- list(c(NA, 1, 2, 3, -Inf, NaN, Inf), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange14_3cb130d9fab66d6ae5325c61692d575e() {
+ assertEval("argv <- list(c(14.43333, 65.7667), finite = TRUE, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange15_ca33af557f9f65ece5455d08667d5268() {
+ assertEval("argv <- list(structure(c(1, 13, 31), .Dim = 3L, .Dimnames = list(c('1st', '2nd', '3rd'))), finite = TRUE, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange16_c6aec537e2da44ae13fb9e0e8ba97611() {
+ assertEval("argv <- list(list(), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange17_50bd91c099c0512c4786b2764443f68d() {
+ assertEval("argv <- list(structure(c(1012633320L, 1012633620L), class = c('POSIXct', 'POSIXt'), tzone = ''), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange18_579ff4b80053125d3d9eb42d91a28b20() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange19_17532a327c2ebd9a94c3aafe60e07348() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 0L), .Dimnames = list(NULL, NULL)), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange2_1362736cb70ab0f34f0f333e9432899a() {
+ assertEval("argv <- list(structure(c(52L, 52L), .Names = c('y', 'x')), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange20_772434a75f08cf2ecb4b077af62de65e() {
+ assertEval("argv <- list(c(2.00256647265648e-308, 2.22284878464869e-308, 2.22507363599982e-308, 2.2250738585072e-308, 2.22507408101459e-308, 2.22729893236571e-308, 2.44758124435792e-308), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange21_4ba0cfb76b1b3e24a83c17c361f306c7() {
+ assertEval("argv <- list(structure(c(12053, 12054, 12055, 12056, 12057, 12058, 12059, 12060, 12061, 12062), class = 'Date'), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange22_5b633751a5bba349521423ba544a71f8() {
+ assertEval("argv <- list(structure(c(1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 2L, 1L, NA, 1L, 1L, 2L, 1L, 1L, NA, 2L, 2L, 2L, 1L, 1L, 2L, 2L, 2L, 1L, 2L, 1L, NA, 2L, 2L, 1L, NA, 2L, 2L, NA, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 2L, 1L), .Dim = c(20L, 6L), .Dimnames = list(c('ant', 'bee', 'cat', 'cpl', 'chi', 'cow', 'duc', 'eag', 'ele', 'fly', 'fro', 'her', 'lio', 'liz', 'lob', 'man', 'rab', 'sal', 'spi', 'wha'), c('war', 'fly', 'ver', 'end', 'gro', 'hai'))), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange23_43b1c1ab220765390328bc4be46dc1fb() {
+ assertEval("argv <- list(structure(c(13823, NA), class = 'Date'), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange24_eee651b51c64b5a1a3fba55059aa8c11() {
+ assertEval("range( );");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange25_ee5e5b6cad1371347dac9cb7c17bc335() {
+ assertEval("argv <- list(structure(c(1949, 1949.08333333333, 1949.16666666667, 1949.25, 1949.33333333333, 1949.41666666667, 1949.5, 1949.58333333333, 1949.66666666667, 1949.75, 1949.83333333333, 1949.91666666667, 1950, 1950.08333333333, 1950.16666666667, 1950.25, 1950.33333333333, 1950.41666666667, 1950.5, 1950.58333333333, 1950.66666666667, 1950.75, 1950.83333333333, 1950.91666666667, 1951, 1951.08333333333, 1951.16666666667, 1951.25, 1951.33333333333, 1951.41666666667, 1951.5, 1951.58333333333, 1951.66666666667, 1951.75, 1951.83333333333, 1951.91666666667, 1952, 1952.08333333333, 1952.16666666667, 1952.25, 1952.33333333333, 1952.41666666667, 1952.5, 1952.58333333333, 1952.66666666667, 1952.75, 1952.83333333333, 1952.91666666667, 1953, 1953.08333333333, 1953.16666666667, 1953.25, 1953.33333333333, 1953.41666666667, 1953.5, 1953.58333333333, 1953.66666666667, 1953.75, 1953.83333333333, 1953.91666666667, 1954, 1954.08333333333, 1954.16666666667, 1954.25, 1954.33333333333, 1954.41666666667, 1954.5, 1954.58333333333, 1954.66666666667, 1954.75, 1954.83333333333, 1954.91666666667, 1955, 1955.08333333333, 1955.16666666667, 1955.25, 1955.33333333333, 1955.41666666667, 1955.5, 1955.58333333333, 1955.66666666667, 1955.75, 1955.83333333333, 1955.91666666667, 1956, 1956.08333333333, 1956.16666666667, 1956.25, 1956.33333333333, 1956.41666666667, 1956.5, 1956.58333333333, 1956.66666666667, 1956.75, 1956.83333333333, 1956.91666666667, 1957, 1957.08333333333, 1957.16666666667, 1957.25, 1957.33333333333, 1957.41666666667, 1957.5, 1957.58333333333, 1957.66666666667, 1957.75, 1957.83333333333, 1957.91666666667, 1958, 1958.08333333333, 1958.16666666667, 1958.25, 1958.33333333333, 1958.41666666667, 1958.5, 1958.58333333333, 1958.66666666667, 1958.75, 1958.83333333333, 1958.91666666667, 1959, 1959.08333333333, 1959.16666666667, 1959.25, 1959.33333333333, 1959.41666666667, 1959.5, 1959.58333333333, 1959.66666666667, 1959.75, 1959.83333333333, 1959.91666666667, 1960, 1960.08333333333, 1960.16666666667, 1960.25, 1960.33333333333, 1960.41666666667, 1960.5, 1960.58333333333, 1960.66666666667, 1960.75, 1960.83333333333, 1960.91666666667, 1961, 1961.08333333333, 1961.16666666667, 1961.25, 1961.33333333333, 1961.41666666667, 1961.5, 1961.58333333333, 1961.66666666667, 1961.75, 1961.83333333333, 1961.91666666667, 1962, 1962.08333333333, 1962.16666666667, 1962.25, 1962.33333333333, 1962.41666666667, 1962.5, 1962.58333333333, 1962.66666666667, 1962.75, 1962.83333333333, 1962.91666666667), .Tsp = c(1949, 1962.91666666667, 12), class = 'ts'), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange26_c7d2bd70b884cb82f056c09219b3e0f4() {
+ assertEval("argv <- list(c(1.47191076131574, 0.586694550701453, 0.258706725324317, 0.948371836939988, 0.396080061109718, 0.350912037541581), finite = TRUE, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange27_126a6575d96a29afa3a975e38e8aa25a() {
+ assertEval("argv <- list(structure(c(-11.3814849918875, -11.9361690778798, 0.562602893455921, 11.5126028934559, 76.2209544348296, -8.66448499188751, -6.94502893455923, -5.28148499188751, -35.7665182531098, 6.35497106544077, -9.20908119253651, -0.898484991887508, -5.59380090589508, -6.12730922120065, -13.3061334505138, 58.6278831800973, -15.1098009058951, -8.29625696322337, -4.07211681990265, 3.7096551514332, 2.60151500811249, 6.24733923742563, -1.33911681990266, -2.14157287723094, -10.5984849918875, -8.12802893455923, 1.30028697944835, -15.7450289345592, 7.20569077879935, -12.6484849918875, 25.1810423201731, -4.42680090589508, -1.90886979448351), .Names = c('Craig Dunain', 'Ben Rha', 'Ben Lomond', 'Goatfell', 'Bens of Jura', 'Cairnpapple', 'Scolty', 'Traprain', 'Lairig Ghru', 'Dollar', 'Lomonds', 'Cairn Table', 'Eildon Two', 'Cairngorm', 'Seven Hills', 'Knock Hill', 'Black Hill', 'Creag Beag', 'Kildcon Hill', 'Meall Ant-Suidhe', 'Half Ben Nevis', 'Cow Hill', 'N Berwick Law', 'Creag Dubh', 'Burnswark', 'Largo Law', 'Criffel', 'Acmony', 'Ben Nevis', 'Knockfarrel', 'Two Breweries', 'Cockleroi', 'Moffat Chase')), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange28_e01b3941375b3911bf122bef2bfe26b1() {
+ assertEval("argv <- list(c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange29_7369459f26f470e858c22f6787a64cf7() {
+ assertEval("argv <- list(structure(c(1208822400, 1209168000, 1208822400, 1209168000), class = c('POSIXct', 'POSIXt'), tzone = 'GMT'), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange3_4289c23d042dd8efaa4b5d9e7fd3c226() {
+ assertEval("argv <- list(c(-2.92498527625946, 2.46253591019012), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange30_15ae0b8e159ef110c0dce995ee0bc74c() {
+ assertEval("argv <- list(c(1.86606598307361, 339033474310168, 6.15968019059533e+28, 1.11911250438065e+43, 2.03324321833028e+57, 3.69406826275609e+71, 6.71151400229846e+85, 1.21937162496937e+100, 2.2153975381282e+114, 4.02501267984465e+128, 7.31278553581751e+142, 1.32861276588395e+157, 2.41387071044804e+171, 4.38560576593759e+185, 7.96792382084694e+199, 1.44764060891943e+214, 2.63012470966353e+228, 4.77850368783602e+242, 8.6817546752692e+256, 1.57733192575377e+271), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange31_3ac1afb082bd87784fd8014ccb720338() {
+ assertEval("argv <- list(structure(c(1, 0.666666666666667, 0.333333333333333, 0, -0.333333333333333, -0.666666666666667, -1, -1.33333333333333, -1.66666666666667, 1.5, 1, 0.5, 0, -0.5, -1, -1.5, -2, -2.5, 3, 2, 1, 0, -1, -2, -3, -4, -5, -Inf, -Inf, -Inf, NaN, Inf, Inf, Inf, Inf, Inf, -3, -2, -1, 0, 1, 2, 3, 4, 5, -1.5, -1, -0.5, 0, 0.5, 1, 1.5, 2, 2.5, -1, -0.666666666666667, -0.333333333333333, 0, 0.333333333333333, 0.666666666666667, 1, 1.33333333333333, 1.66666666666667, -0.75, -0.5, -0.25, 0, 0.25, 0.5, 0.75, 1, 1.25, -0.6, -0.4, -0.2, 0, 0.2, 0.4, 0.6, 0.8, 1), .Dim = c(9L, 9L)), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange4_e37a3d2afb86c64c2d3f34b91e8b52d7() {
+ assertEval("argv <- list(c(1.4615016373309e+48, 5.70899077082384e+45, 2.23007451985306e+43, 8.71122859317602e+40, 3.40282366920938e+38, 1.32922799578492e+36, 5.19229685853483e+33, 2.02824096036517e+31, 7.92281625142643e+28, 3.09485009821345e+26, 1.20892581961463e+24, 4.72236648286965e+21, 18446744073709551616, 72057594037927936, 281474976710656, 1099511627776, 4294967296, 16777216, 65536, 256, 1, 0.00390625, 1.52587890625e-05, 5.96046447753906e-08, 2.3283064365387e-10, 9.09494701772928e-13, 3.5527136788005e-15, 1.38777878078145e-17, 5.42101086242752e-20, 2.11758236813575e-22, 8.27180612553028e-25), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange5_483d5a9433b8af77923bfc55085857b7() {
+ assertEval("argv <- list(1:3, finite = TRUE, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange6_543a7d7f0eb4e10169280ee4e6d9f297() {
+ assertEval("argv <- list(c(1L, 3L, 7L, 14L, 21L, 20L, 19L, 9L, 4L, 2L), 0, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange7_d23b14406a15403ccb13aec607da16dd() {
+ assertEval("argv <- list(c(8.2, 9.7, 12.25, 16.5, 21.5, 14.5, 20, 23.45, 25.8, 27.3, 22.4, 24.5, 25.95, 27.3, 30.9), numeric(0), NULL, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange8_ed3c132e8605a668d3e363e592c434a9() {
+ assertEval("argv <- list(structure(c(3L, 2L, 1L), .Label = c('A', 'B', 'C'), class = c('ordered', 'factor')), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrange_testrange9_50e22ebb3787e7b87ac286566ba149d6() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L), hour = c(8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 10L, 10L, 11L, 11L, 11L, 11L, 11L, 11L, 12L, 12L, 12L, 12L, 12L, 12L, 13L, 13L, 13L, 13L, 13L, 13L, 14L, 14L, 14L, 14L, 14L, 14L, 15L, 15L, 15L, 15L, 15L, 15L, 16L, 16L, 16L, 16L, 16L, 16L, 17L, 17L, 17L, 17L, 17L, 17L, 18L, 18L, 18L, 18L, 18L, 18L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 20L, 20L, 21L, 21L, 21L, 21L, 21L, 21L, 22L, 22L, 22L, 22L, 22L, 23L, 23L, 23L, 23L, 23L, 23L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L), mday = c(12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L), mon = c(11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L), year = c(90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L), wday = c(3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L), yday = c(345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L), isdst = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L)), .Names = c('sec', 'min', 'hour', 'mday', 'mon', 'year', 'wday', 'yday', 'isdst'), class = c('POSIXlt', 'POSIXt')), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrank_testrank1_48a4b5446a8501dc2186dfdfff23c3e5() {
+ assertEval("argv <- list(c(1, 2, 3), 3L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrank_testrank10_df0c906064ab3f8e2500083304c7406d() {
+ assertEval("argv <- list(c(0.0244473121385049, 0.0208069652959635, 0.00198363254553387, -0.0529221973952693, 0.0164890605562422, -0.00149317802331189, -0.00414458668937225, -0.0391260369607497, -0.0127200995448093, 0.0111183888673723, 0.03614459302116, -0.00273443474452932, 0.0103131254237995, -0.00143136127438401, -0.0366335514444555, -0.0110399906877088, -0.0104891914308669, -0.00157789861665007, 0.0292636842429564, 0.0203025627349537, -0.0043767777488601, -0.00674011381520054, 0.0185411324740319, 0.0148087639526725, -0.0183227857094651, -0.018821306675337, 0.00969887758262181, 0.0204450782737623, -0.00298871658962484, 0.0234398759771181, 0.0105907055191967, -0.0162815763859567, 0.00907471699575067, -0.0300441479633801, 0.0381223507996197, 0.0526840550960561, -0.00976909588473167, -0.0277768375074461, 0.0151561006764977, -0.00359282193318711, 0.0638896025542924, -0.0010438914218908, 0.0183489539666666, 0.00074493402929487, -0.0197731007347187, 0.00502239164768132, -0.048016837368221, 0.0389877686476984, 0.00407695805281634, 0.057797414062711, 0.0126498543239424, -0.0188865172686347, 0.0162469917717659, -0.0248495524200794, -0.0333500780212535, 0.00775326717655591, -0.0117927765447241, 2.9405377320478e-05, 0.00197768259858777, -0.0156828699257579, -0.0151281440045609, -0.00359612097150966, 0.0313403370108415, -0.0405310449252812, 0.0158005934542395, 0.00885739072926609, 0.0282813640022565, -0.00809212452705879, 0.00984351260718323, 0.00710555853883393, -0.0144325170007544, 0.0321325880127445, 0.0308698841001781, 0.0186275986571656, 0.0422141110037264, 0.0148572667758066, -0.033960845128472, -0.0152504283054679, -0.0325780457387957, -0.0125937520151832, -0.0165034507562293, 0.00112039744236678, -0.0242330078671155, 0.00420399766652167, -0.0174137422806726, 0.047014676147193, 0.0190663795644171, 0.0242131244754732, 0.0102203815371289, 0.0447504856843389, -0.0169123288643312, -0.0122810127527625, 0.0381026258511537, -0.0173103031132602, -0.00551689511296685, -0.0104497655309428, -0.00851268571043338, -0.00742517743166594, 0.0131467615666842, -0.00471747595278646, -1.01191492422851, 2.68607765034082, -0.429158817093737, -0.359113060086774, -0.200381482427124, 1.42533261410281, -0.147128808252653, -0.0752683429340958, -1.36332095751131, -0.648540544492638, 0.12032088086903, -1.17778897251933, 1.06299238526514, -3.03678816357357, 0.613115721579531, -3.07289964707517, -0.601952253673221, -1.05655980889001, -1.304189561362, -0.113793555694785, -3.82871885136002, 2.35316662403712, -3.32994487242401, -0.927060802944771, -2.23184021008569, -1.5016380023869, 4.17433309125669, 0.0347912393865033, -2.57260106086865, -3.28121106883716, 0.900374202545311, -0.037119665429276, -0.636136749087689, -1.8587242949074, -2.97492062028297, -2.15038459323136, 2.00005760742783, -1.24253338959365, -2.76885369476898, 3.73858124484716, 0.850200754744896, -0.477294201826066, 2.11696609741804, 1.77284530274987, -1.23848609646229, 4.41220492908093, -0.51005406028203, -2.84898930042562, -0.288799203908439, 0.41507667846469, 4.61595679811872, 0.211604735787423, 0.913997610846827, -0.154305870713062, -0.668001684733089, -0.0694520566225524, 1.57527921126032, 4.15049001730457, 2.05478487752754, 2.41581679677341, -2.46264684311609, 1.96779114010676, 0.439849607321303, -2.93450005818449, 1.04204548529628, -0.317509209432032, 2.92917462393959, -1.53216399920933, -0.860423507857093, -1.85221899475487, -0.354207922873081, 0.804023558972676, -1.46349634623921, 1.66074633596335, -2.41616557260893, -2.09596882561548, 2.88231541368856, -2.0316949306093, 0.82394942463503, -0.762152102217839, 0.818803679301868, 3.37774657240809, 3.17317686688394, -0.661815601365533, -4.57047107058493, 4.99532317966833, 1.33413233353099, 1.0826546719274, -0.0267990462918174, 1.02021684590585, -0.328751663539334, 0.841389286509026, -0.800493487955288, -2.74041575509492, 1.97567653490976, 3.03949005099909, -0.617481138451227, -2.50657951121538, 1.28448261135565, -0.0894182737879582), 200L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrank_testrank11_307c7ca3820dfbd7de9ffcdec7964b6b() {
+ assertEval("argv <- list(structure(c(4, 7, 6, 0, 0, 2, 4, 9, 3, 6, 0, 1, 5.5, 0.5, 4.5, 5.5, 0.5, 2.5, 0.5, 0.5, 2.5, 4.5, 9.5, 3.5, 1.5, 0.5, 5.5, 0.5, 1.5, 0.5, 0.5, 0.5, 1.5, 1.5, 0.5, 2.5, 2, 0, 7, 1, 1, 2, 0, 0, 0, 0, 3, 1, 0, 2, 0, 2, 0, 3, 2, 2, 0, 1, 3, 1, 4, 6, 0, 7, 0, 1, 2, 5, 11, 11, 9, 2), .Dim = 72L, .Dimnames = list(c('A', 'A', 'A', 'A', 'A', 'A', 'A', 'A', 'A', 'A', 'A', 'A', 'B', 'B', 'B', 'B', 'B', 'B', 'B', 'B', 'B', 'B', 'B', 'B', 'C', 'C', 'C', 'C', 'C', 'C', 'C', 'C', 'C', 'C', 'C', 'C', 'D', 'D', 'D', 'D', 'D', 'D', 'D', 'D', 'D', 'D', 'D', 'D', 'E', 'E', 'E', 'E', 'E', 'E', 'E', 'E', 'E', 'E', 'E', 'E', 'F', 'F', 'F', 'F', 'F', 'F', 'F', 'F', 'F', 'F', 'F', 'F'))), 72L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrank_testrank2_e96f4bc1436e47e4ba7c28e7ef589724() {
+ assertEval("argv <- list(list(), 0L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrank_testrank3_efb65e5226bdb9cf3130ca584be1d750() {
+ assertEval("argv <- list(c(FALSE, FALSE), 2L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrank_testrank4_8a5c34bac583832006afb3d9ea771c82() {
+ assertEval("argv <- list(c(2, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60), 60L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrank_testrank5_a3e4671ab4282ff6205f3cea7793ebc9() {
+ assertEval("argv <- list(structure(c(9.96, 84.84, 93.4, 33.77, 5.16, 90.57, 92.85, 97.16, 97.67, 91.38, 98.61, 8.52, 2.27, 4.43, 2.82, 24.2, 3.3, 12.11, 2.15, 2.84, 5.23, 4.52, 15.14, 4.2, 5.23, 2.56, 7.72, 18.46, 6.1, 99.71, 99.68, 100, 98.96, 98.22, 99.06, 99.46, 96.83, 5.62, 13.79, 11.22, 16.92, 4.97, 8.65, 42.34, 50.43, 58.33), .Names = c('Courtelary', 'Delemont', 'Franches-Mnt', 'Moutier', 'Neuveville', 'Porrentruy', 'Broye', 'Glane', 'Gruyere', 'Sarine', 'Veveyse', 'Aigle', 'Aubonne', 'Avenches', 'Cossonay', 'Echallens', 'Grandson', 'Lausanne', 'La Vallee', 'Lavaux', 'Morges', 'Moudon', 'Nyone', 'Orbe', 'Payerne', 'Paysd'enhaut', 'Rolle', 'Vevey', 'Yverdon', 'Conthey', 'Entremont', 'Herens', 'Martigwy', 'Monthey', 'St Maurice', 'Sierre', 'Sion', 'Boudry', 'La Chauxdfnd', 'Le Locle', 'Neuchatel', 'Val de Ruz', 'ValdeTravers', 'V. De Geneve', 'Rive Droite', 'Rive Gauche')), 46L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrank_testrank6_37a92e56c64fdd44c2cc0d2d8a870a7e() {
+ assertEval("argv <- list(structure(c(3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5), .Names = c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k')), 11L, 'max'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrank_testrank7_3c88f1c0257cc66b5b6794363847a1b1() {
+ assertEval("argv <- list(c('9', '9', '8', '7', '6', '5', '4', '3', '2', '1'), 10L, 'min'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrank_testrank8_0547e2f92789138f7dd8d8a903bf4109() {
+ assertEval("argv <- list(c(2, 1, 3, 4, 5), 5L, 'average'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrank_testrank9_061a8da99833b1bef5bcf0b2c3a0f511() {
+ assertEval("argv <- list(structure(c('Tukey', 'Venables', 'Tierney', 'Ripley', 'Ripley', 'McNeil', 'R Core'), class = 'AsIs'), 7L, 'min'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinregexec_testregexec1_3e88cb17b9f87db5c0838bf7c74781c7() {
+ assertEval("argv <- list('^(([^:]+)://)?([^:/]+)(:([0-9]+))?(/.*)', 'http://stat.umn.edu:80/xyz', FALSE, FALSE, FALSE); .Internal(regexec(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinregexpr_testregexpr1_b6f240f11cc3b7b8fc6e7bc2efc9eb7f() {
+ assertEval("argv <- list('package:', 'exNSS4', FALSE, FALSE, TRUE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinregexpr_testregexpr10_d1b7d2bb0a0f4cbd12d1f8326aad6f20() {
+ assertEval("argv <- list('package:', 'environmental', FALSE, FALSE, TRUE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinregexpr_testregexpr2_37eb3a0d2845e2d64e3ffc123bd3ce86() {
+ assertEval("argv <- list('éè', '«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè', FALSE, FALSE, TRUE, TRUE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinregexpr_testregexpr3_609f90bdd5d9471e4763c2fccc70a56d() {
+ assertEval("argv <- list('package:', 'graphics', FALSE, FALSE, TRUE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinregexpr_testregexpr4_a4d8a25c4b68282be877713726517424() {
+ assertEval("argv <- list('^.*\\{n', 'my(ugly[file{name', FALSE, FALSE, FALSE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinregexpr_testregexpr5_bb7b5863e60527d381c984f858dcb42e() {
+ assertEval("argv <- list('(\\\\S4method\\{([._[:alnum:]]*|\\$|\\[\\[?|\\+|\\-|\\*|\\/|\\^|<=?|>=?|!=?|==|\\&|\\||\\%[[:alnum:][:punct:]]*\\%)\\}\\{((([._[:alnum:]]+|`[^`]+`),)*([._[:alnum:]]+|`[^`]+`))\\})', '\nread.00Index(file)\n', FALSE, FALSE, FALSE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinregexpr_testregexpr6_ac0c04aab94c40f64d4ef55c4ca3ec7c() {
+ assertEval("argv <- list('\\.([[:alnum:]]+)$', character(0), FALSE, FALSE, FALSE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinregexpr_testregexpr7_136d322b2859044c0aefdd019822e832() {
+ assertEval("argv <- list('(?<first>[[:upper:]][[:lower:]]+) (?<last>[[:upper:]][[:lower:]]+)', c(' Ben Franklin and Jefferson Davis', '\tMillard Fillmore'), FALSE, TRUE, FALSE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinregexpr_testregexpr8_8b3efe350b2d09c965024ae2a6bd5c52() {
+ assertEval("argv <- list('^[[:space:]]*@(?i)attribute', '% 4. Relevant Information Paragraph:', FALSE, TRUE, FALSE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinregexpr_testregexpr9_5eee8b3990bbc5e93332018a33b16837() {
+ assertEval("argv <- list('package:', 'dummy', FALSE, FALSE, TRUE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep1_5e493322b4bfdd64b2fb95fe6a03e8c6() {
+ assertEval("argv <- list(NA, 7); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep10_b7a5fa11e9dcec70c91ff849955a0d6a() {
+ assertEval("argv <- list(c(NA, 3L, 4L), 3L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep11_79d039b793cf3e88291b3fe8e1cb8210() {
+ assertEval("argv <- list(c(NA, NA, 30, -30), 4L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep12_3f14b0c0bca6186ed94b3278e97ee046() {
+ assertEval("argv <- list(c(2, 3, 4, 5, 6, 7, 12, 22), 8L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep13_776ad0510cfff52576d2b20c978b09a8() {
+ assertEval("argv <- list(c('50-54', '55-59', '60-64', '65-69', '70-74'), 20L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep14_be4fd5623a2368997245762295e06dd9() {
+ assertEval("argv <- list(987.338461538462, 2L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep15_681303e0eea3dc333c43568cbcb72655() {
+ assertEval("argv <- list(1:5, 15); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep16_e84dbb7d0ef75d4529e03c5bd7296462() {
+ assertEval("argv <- list(c(NA, 'green', 'black', 'blue'), 4L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep17_8b56a1d3bc47d92eeb60e7bf9fda900e() {
+ assertEval("argv <- list(1, 2L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep18_3629b7d2f81b6878c96475fb0a4d39b6() {
+ assertEval("argv <- list(0, 0L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep19_c90d87666174b1cfb7ae81bcc7d07e42() {
+ assertEval("argv <- list(FALSE, 1L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep2_bcb444aa19088f71b0d6b2b016b227fc() {
+ assertEval("argv <- list(NA, 4L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep3_d2a3119b0e10744506c211eace51d218() {
+ assertEval("argv <- list(-Inf, 1L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep4_4218006633b3483f90e20df8b96786d8() {
+ assertEval("argv <- list(list(), 0L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep5_10b307732bfe2bb0c3299565142503ce() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep6_85dd5457d73c966d7b92a10752cb66a4() {
+ assertEval("argv <- list(c(4.60173175921079, 4.46741031725783, 4.30749719409961, 4.12438637683712, 4.51499342053481, 4.24874137138388, 3.92699081698724, 3.6052402625906, 3.92699081698724), 9L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep7_a315b6cdc653bb0b6be35ac49c198496() {
+ assertEval("argv <- list(c(3L, 6L), 2L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep8_539f77294b46ae29056f304f387342a6() {
+ assertEval("argv <- list(list(c(' ', ' ')), 1L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrep_testrep9_3cc63793e525424d43ae3ba907a85d7a() {
+ assertEval("argv <- list(structure(1:4, .Label = c('A', 'B', 'C', 'D'), class = 'factor', .Names = c('a', 'b', 'c', 'd')), 10); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint1_fbe28e100992f28d660ee44ea6b19f9c() {
+ assertEval("argv <- list(1, 6); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint10_dde17f705e40806f5b55beae204599b7() {
+ assertEval("argv <- list(c(1L, 1L, 2L, 2L), 6); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint11_dc5555706a58d904ec53294c83e09cb1() {
+ assertEval("argv <- list(NA_character_, 3L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint12_2fceba3e68686a96a699896208cf3bb3() {
+ assertEval("argv <- list(NA_character_, 5L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint13_d31b70d4e01d550889ad6d9cb34b03cf() {
+ assertEval("argv <- list(structure(1:4, .Label = c('A', 'B', 'C', 'D'), class = 'factor', .Names = c('a', 'b', 'c', 'd')), 2); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint14_eb20631d35776b024d237f0e37558b93() {
+ assertEval("argv <- list(2e-08, 9); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint15_72dbe7ea9ad32b3c02d87025ccf0d013() {
+ assertEval("argv <- list(c('A', 'B'), structure(list(A = 2L, B = 1L), .Names = c('A', 'B'))); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint16_6f01ab7fcbd2cdcbe7eadd25fae98baf() {
+ assertEval("argv <- list(0.8625, 2); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint17_7a1213eafa82541b8a351bd5838a5af6() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint18_89d713aa24d3bbc416b09d5b3a7c0fcb() {
+ assertEval("argv <- list(c(-1.74520963996789, -1.58308930128988, NA), 100L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint19_a0cb39e445a0be8ce39e2e8af9675046() {
+ assertEval("argv <- list(structure(c(1974, 1974.08333333333, 1974.16666666667, 1974.25, 1974.33333333333, 1974.41666666667, 1974.5, 1974.58333333333, 1974.66666666667, 1974.75, 1974.83333333333, 1974.91666666667, 1975, 1975.08333333333, 1975.16666666667, 1975.25, 1975.33333333333, 1975.41666666667, 1975.5, 1975.58333333333, 1975.66666666667, 1975.75, 1975.83333333333, 1975.91666666667, 1976, 1976.08333333333, 1976.16666666667, 1976.25, 1976.33333333333, 1976.41666666667, 1976.5, 1976.58333333333, 1976.66666666667, 1976.75, 1976.83333333333, 1976.91666666667, 1977, 1977.08333333333, 1977.16666666667, 1977.25, 1977.33333333333, 1977.41666666667, 1977.5, 1977.58333333333, 1977.66666666667, 1977.75, 1977.83333333333, 1977.91666666667, 1978, 1978.08333333333, 1978.16666666667, 1978.25, 1978.33333333333, 1978.41666666667, 1978.5, 1978.58333333333, 1978.66666666667, 1978.75, 1978.83333333333, 1978.91666666667, 1979, 1979.08333333333, 1979.16666666667, 1979.25, 1979.33333333333, 1979.41666666667, 1979.5, 1979.58333333333, 1979.66666666667, 1979.75, 1979.83333333333, 1979.91666666667), .Tsp = c(1974, 1979.91666666667, 12), class = 'ts'), 3L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint2_ca8c9ff757cce553d63bd138ba246ff3() {
+ assertEval("argv <- list(NA_integer_, 1L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint20_491b0390b66db6a67cedcc2a42873e5a() {
+ assertEval("argv <- list(NA, 10L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint21_9def2cb6d04767c085709850cd2ffe4f() {
+ assertEval("argv <- list(c('C', 'A', 'B'), structure(list(C = 1L, A = 1L, B = 1L), .Names = c('C', 'A', 'B'))); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint22_f2fd241b8d4ce0b1ff5bfb591fa47510() {
+ assertEval("argv <- list(NA_real_, 4L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint23_bdda819c0da849cbde62418e7b2971da() {
+ assertEval("argv <- list(0.26784, 49); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint24_8280666f60f8465e6eefa702e913cf63() {
+ assertEval("argv <- list(3.1e-06, 49); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint25_c8eaf452f45b00ae42d98c734a5cfffd() {
+ assertEval("argv <- list(NA, 5L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint26_ab3b24b0c9725d38798a7ad9e4076d5e() {
+ assertEval("argv <- list(TRUE, 6L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint27_b45f722a4cdcfb40e5a382638ffba402() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101), .Tsp = c(1, 101, 1), class = 'ts'), 3L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint3_12ea0e40b7fdb3806e381d36b4426013() {
+ assertEval("argv <- list(1L, 4L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint4_20bb6f9af6b07b4403c6affda51252a6() {
+ assertEval("argv <- list(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), 1); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint5_cb990b8179a6fb9eaae1bb541f1d9486() {
+ assertEval("argv <- list(FALSE, 0L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint6_60b5d716f4193007885ccd48d6926060() {
+ assertEval("argv <- list('', 2L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint7_6887e9ead03307d35952a52816eb9b4c() {
+ assertEval("argv <- list(TRUE, 1L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint8_9413b63b5614160b672d94658dba7cdd() {
+ assertEval("argv <- list(' ', 8L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrepint_testrepint9_3889d482cede0ab2e2d07cba84508d13() {
+ assertEval("argv <- list(c(-4L, 11L, 23L, -3L, -2L, -1L, -6L, 0L, 8L, -13L, 6L, -32L, -8L, NA, 0L), c(10L, 9L, 11L, 17L, 9L, 18L, 8L, 11L, 8L, 15L, 4L, 12L, 12L, 1L, 34L)); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinretracemem_testretracemem1_2962f142b007b2052ba94b324866fab4() {
+ assertEval("argv <- list(FALSE, FALSE);retracemem(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinretracemem_testretracemem2_b724e20006280d50a74dedd24698da53() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')), structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));retracemem(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrow_testrow1_5c4018cec2b22b156d9045a745051036() {
+ assertEval("argv <- list(c(14L, 14L)); .Internal(row(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrow_testrow2_af1faf60e4447806565d7ab283e7dcb5() {
+ assertEval("argv <- list(c(4L, 3L)); .Internal(row(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrow_testrow3_767666747903f41a8cf76b34905b7e08() {
+ assertEval("argv <- list(0:1); .Internal(row(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrowMeans_testrowMeans2_afea9f4775c378f648a4877db86eff1d() {
+ assertEval("argv <- list(structure(c(50.7138381326659, 6.51590327164277, 24.9887625571708, 6.50401666172534, 16.6227411608333, 24.2873904534041, 56.036205319809, 9.42637482307856, 6.7207351702689e-16, 6.51590327164276, 106.05353593478, 13.0563348605106, 29.556736958112, 26.535297847233, 83.1597312749807, 86.1180411620546, 4.28836475146602, 3.05748120025494e-16, 24.9887625571708, 13.0563348605107, 382.901882167719, 28.709795659465, 7.19910301202793, 51.849911207061, 76.6652389324741, 13.4232601222667, 9.57039987233639e-16, 6.50401666172536, 29.556736958112, 28.709795659465, 286.290790661071, 29.5533327979648, 105.611010510127, 106.256264404531, 22.4644024278478, 1.60164752950704e-15, 16.6227411608333, 26.535297847233, 7.19910301202793, 29.5533327979648, 611.022025519874, 52.7749434153259, 19.5698513619914, 23.9507376116895, 1.70761896956049e-15, 24.2873904534041, 83.1597312749807, 51.849911207061, 105.611010510127, 52.7749434153259, 736.165134132116, 133.440685552903, 91.9053353168322, 6.55258708668096e-15, 56.036205319809, 86.1180411620546, 76.6652389324741, 106.256264404531, 19.5698513619915, 133.440685552903, 1401.55449200362, 107.582093653927, 7.67029504004995e-15, 9.42637482307856, 4.28836475146602, 13.4232601222667, 22.4644024278478, 23.9507376116895, 91.9053353168321, 107.582093653927, 57.6052682140803, 4.10709057665822e-15, 6.7207351702689e-16, 3.05748120025493e-16, 9.57039987233639e-16, 1.60164752950703e-15, 1.70761896956049e-15, 6.55258708668095e-15, 7.67029504004995e-15, 4.10709057665822e-15, 2.92823790737107e-31), .Dim = c(9L, 9L)), 9, 9, FALSE); .Internal(rowMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrowsum_testrowsum1_0037d75acd771be7e1c7bacbaf186765() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4), c('Y', 'X', 'Y'), c('X', 'Y'), FALSE, c('X', 'Y')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrowsum_testrowsum2_e77888066b8558d6090381bac88a7e3b() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.83678930089809, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.807183221448213, 0, 0, 0, 0, 0, 0, 0, 2.28512598329689, 0, 2.63247834995855, 0, 2.20238351041917, 0, 0.769295244943351, 0, 0, 0, 0, 0, 2.39247868547682, 2.35872046276927, 0, 1.96863683476113, 1.77908247814048, 0, 0, 0, 1.30635392456315, 0, 1.90387659717817, 0, 0.869405556702986, 1.81335102661978, 2.03683243726846, 0, 0.594853387563489, 0, 0, 0.546043346519582, 2.43847447982989, 0, 0, 2.01202685781755, 0, 2.67064226802904, 2.9177625705488, 0.566296850563958, 0, 1.07001449051313, 1.02747153153177, 0, 1.14719850081019, 2.56380862975493, 0.760732567403466, 0.778199262684211, 0, 0.871444851625711, 2.75724254851229, 1.6366914055543, 0.606628090143204, 1.09201998403296, 0.729518678388558, 2.26406822516583, 2.41699231159873, 1.90058654651511), .Names = c('7', '8', '12', '13', '19', '22', '26', '31', '34', '36', '38', '40', '42', '43', '44', '46', '50', '51', '57', '59', '60', '61', '64', '67', '68', '72', '75', '76', '77', '78', '84', '87', '89', '94', '95', '100', '101', '102', '107', '110', '114', '115', '122', '123', '129', '130', '131', '134', '136', '137', '141', '144', '146', '150', '153', '154', '157', '160', '161', '162', '166', '167', '172', '174', '176', '178', '179', '180', '183', '184', '185', '186', '187', '197', '199', '201', '203', '204', '205', '207', '208', '210', '211', '214', '217', '219', '220', '222', '226', '228')), structure(c(310, 361, 654, 728, 61, 81, 520, 473, 107, 122, 965, 731, 153, 433, 145, 95, 765, 735, 5, 687, 345, 444, 60, 208, 821, 305, 226, 426, 705, 363, 167, 641, 740, 245, 588, 166, 559, 450, 529, 351, 201, 524, 199, 550, 551, 543, 293, 511, 511, 371, 201, 62, 356, 340, 315, 182, 364, 376, 384, 268, 266, 194, 348, 382, 296, 186, 145, 269, 350, 272, 292, 332, 285, 243, 276, 79, 240, 202, 235, 224, 239, 173, 252, 92, 192, 211, 175, 203, 105, 177), .Names = c('7', '8', '12', '13', '19', '22', '26', '31', '34', '36', '38', '40', '42', '43', '44', '46', '50', '51', '57', '59', '60', '61', '64', '67', '68', '72', '75', '76', '77', '78', '84', '87', '89', '94', '95', '100', '101', '102', '107', '110', '114', '115', '122', '123', '129', '130', '131', '134', '136', '137', '141', '144', '146', '150', '153', '154', '157', '160', '161', '162', '166', '167', '172', '174', '176', '178', '179', '180', '183', '184', '185', '186', '187', '197', '199', '201', '203', '204', '205', '207', '208', '210', '211', '214', '217', '219', '220', '222', '226', '228')), c(5, 60, 61, 62, 79, 81, 92, 95, 105, 107, 122, 145, 153, 166, 167, 173, 175, 177, 182, 186, 192, 194, 199, 201, 202, 203, 208, 211, 224, 226, 235, 239, 240, 243, 245, 252, 266, 268, 269, 272, 276, 285, 292, 293, 296, 305, 310, 315, 332, 340, 345, 348, 350, 351, 356, 361, 363, 364, 371, 376, 382, 384, 426, 433, 444, 450, 473, 511, 520, 524, 529, 543, 550, 551, 559, 588, 641, 654, 687, 705, 728, 731, 735, 740, 765, 821, 965), FALSE, c('5', '60', '61', '62', '79', '81', '92', '95', '105', '107', '122', '145', '153', '166', '167', '173', '175', '177', '182', '186', '192', '194', '199', '201', '202', '203', '208', '211', '224', '226', '235', '239', '240', '243', '245', '252', '266', '268', '269', '272', '276', '285', '292', '293', '296', '305', '310', '315', '332', '340', '345', '348', '350', '351', '356', '361', '363', '364', '371', '376', '382', '384', '426', '433', '444', '450', '473', '511', '520', '524', '529', '543', '550', '551', '559', '588', '641', '654', '687', '705', '728', '731', '735', '740', '765', '821', '965')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrowsum_testrowsum3_b49348678422be87022f6b41f7e0055c() {
+ assertEval("argv <- list(numeric(0), numeric(0), numeric(0), FALSE, character(0)); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrowsum_testrowsum4_4b94f446be24947b32223c727b09d1b6() {
+ assertEval("argv <- list(structure(c(0.432389384893196, 2.31273022636069, 0, 2.31273022636069, 0.432389384893196, 0), .Names = c('1', '3', '4', '5', '6', '7')), structure(c(9, 1, 1, 6, 6, 8), .Names = c('1', '3', '4', '5', '6', '7')), c(1, 6, 8, 9), FALSE, c('1', '6', '8', '9')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrowsum_testrowsum5_f3643fe89b210518899cf09f8f24ee0c() {
+ assertEval("argv <- list(structure(c(0.102430555555556, 0.102430555555556, 0.102430555555556, 0.546875, -0.078125, 0.477430555555556, -0.0642361111111111, 0.102430555555556), .Names = c('1', '2', '3', '4', '5', '6', '7', '8')), structure(1:8, .Label = c('1', '2', '3', '4', '5', '6', '7', '8'), class = 'factor'), structure(1:8, .Label = c('1', '2', '3', '4', '5', '6', '7', '8'), class = 'factor'), FALSE, c('1', '2', '3', '4', '5', '6', '7', '8')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrowsum_testrowsum6_b46f61e9e4e3fe58cf0ee0cba39dfb19() {
+ assertEval("argv <- list(structure(c(0, 0.719170679378362, -0.280829320621638, 0, -0.43834135875385, 0, -0.0525040127116955, 0.783590877798991, -0.365543432545085, -0.0525040127116955, -0.31303941983339, 0, 0, NA), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14')), c(3, 3, 4, 5, 5, 6, 6, 6, 7, 1, 1, 1, 1, 2), c(1, 2, 3, 4, 5, 6, 7), FALSE, c('1', '2', '3', '4', '5', '6', '7')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrowsum_testrowsum7_d66396fb53df90189a0ddccdd4ffc3ed() {
+ assertEval("argv <- list(structure(c(0.10270237599789, 2.6083215370191, 11.0196744330572, 2.6083215370191, 0.10270237599789, 0.10270237599789, 0.10270237599789, -0.441795512568419, 2.6083215370191, 0.10270237599789, -0.441795512568419), .Dim = c(11L, 1L), .Dimnames = list(c('11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21'), 'x')), structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Names = c('11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21')), c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), FALSE, c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinrowsum_testrowsum8_6573139ef6d44c9969a20e8b3b202a15() {
+ assertEval("argv <- list(structure(c(1.33333333333333, -1.33333333333333, 1, 1.33333333333333, -2, 0.666666666666667, -0.666666666666667, 0.666666666666667, -0.666666666666667), .Dim = c(9L, 1L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9'), 'x')), structure(c(1, 1, 2, 2, 2, 2, 3, 4, 5), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9')), c(1, 2, 3, 4, 5), FALSE, c('1', '2', '3', '4', '5')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep10_9596f004e63a224f53f1c0735d3e7751() {
+ assertEval("argv <- list(c(0, 9.88131291682493e-324, 1.03753785626662e-322, 1.02271588689138e-321, 1.02320995253722e-320, 1.02330876566639e-319, 1.02329394369701e-318, 1.02329295556572e-317, 1.02329300497229e-316, 1.02329299015032e-315, 1.02329299212658e-314, 1.0232929922748e-313, 1.02329299227974e-312, 1.02329299228073e-311, 1.02329299228073e-310, 1.02329299228073e-309, 1.02329299228073e-308, 1.02329299228073e-307), 1.02329299228075);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep11_9a29f18830b924d836e51cf4e1f44a1f() {
+ assertEval("argv <- list(structure(c(29.35, 23.32, 23.8, 41.89, 42.19, 31.72, 39.74, 44.75, 46.64, 47.64, 24.42, 46.31, 27.84, 25.06, 23.31, 25.62, 46.05, 47.32, 34.03, 41.31, 31.16, 24.52, 27.01, 41.74, 21.8, 32.54, 25.95, 24.71, 32.61, 45.04, 43.56, 41.18, 44.19, 46.26, 28.96, 31.94, 31.92, 27.74, 21.44, 23.49, 43.42, 46.12, 23.27, 29.81, 46.4, 45.25, 41.12, 28.13, 43.69, 47.2, 2.86999999999999, 4.41, 4.43, 1.67, 0.829999999999999, 2.85, 1.34, 0.669999999999999, 1.06, 1.14, 3.93, 1.19, 2.37, 4.7, 3.35, 3.1, 0.869999999999999, 0.579999999999999, 3.08, 0.959999999999999, 4.19, 3.48, 1.91, 0.909999999999999, 3.73, 2.47, 3.67, 3.25, 3.17, 1.21, 1.2, 1.05, 1.28, 1.12, 2.85, 2.28, 1.52, 2.87, 4.54, 3.73, 1.08, 1.21, 4.46, 3.43, 0.899999999999999, 0.559999999999999, 1.73, 2.72, 2.07, 0.659999999999999, 2329.68000000001, 1507.99, 2108.47, 189.130000000001, 728.470000000001, 2982.88, 662.860000000001, 289.520000000001, 276.650000000001, 471.240000000001, 2496.53, 287.770000000001, 1681.25, 2213.82, 2457.12, 870.85, 289.710000000001, 232.440000000001, 1900.1, 88.940000000001, 1139.95, 1390, 1257.28, 207.680000000001, 2449.39, 601.050000000001, 2231.03, 1740.7, 1487.52, 325.540000000001, 568.560000000001, 220.560000000001, 400.060000000001, 152.010000000001, 579.51, 651.110000000001, 250.960000000001, 768.79, 3299.49, 2630.96, 389.660000000001, 249.870000000001, 1813.93, 4001.89, 813.390000000001, 138.330000000001, 380.470000000001, 766.54, 123.580000000001, 242.690000000001, 2.87000000000001, 3.93, 3.82, 0.219999999999998, 4.56, 2.43, 2.67, 6.51, 3.08, 2.8, 3.99, 2.19, 4.32, 4.52, 3.44, 6.28, 1.48, 3.19, 1.12, 1.54, 2.99, 3.54, 8.21, 5.81, 1.57, 8.12, 3.62, 7.66, 1.76, 2.48, 3.61, 1.03, 0.670000000000002, 2, 7.48, 2.19, 2, 4.35, 3.01, 2.7, 2.96, 1.13, 2.01, 2.45, 0.530000000000004, 5.14, 10.23, 1.88, 16.71, 5.08), .Dim = c(50L, 4L), .Dimnames = list(c('Australia', 'Austria', 'Belgium', 'Bolivia', 'Brazil', 'Canada', 'Chile', 'China', 'Colombia', 'Costa Rica', 'Denmark', 'Ecuador', 'Finland', 'France', 'Germany', 'Greece', 'Guatamala', 'Honduras', 'Iceland', 'India', 'Ireland', 'Italy', 'Japan', 'Korea', 'Luxembourg', 'Malta', 'Norway', 'Netherlands', 'New Zealand', 'Nicaragua', 'Panama', 'Paraguay', 'Peru', 'Philippines', 'Portugal', 'South Africa', 'South Rhodesia', 'Spain', 'Sweden', 'Switzerland', 'Turkey', 'Tunisia', 'United Kingdom', 'United States', 'Venezuela', 'Zambia', 'Jamaica', 'Uruguay', 'Libya', 'Malaysia'), c('pop15', 'pop75', 'dpi', 'ddpi'))), structure(c(29.35, 23.32, 23.8, 41.89, 42.19, 31.72, 39.74, 44.75, 46.64, 47.64, 24.42, 46.31, 27.84, 25.06, 23.31, 25.62, 46.05, 47.32, 34.03, 41.31, 31.16, 24.52, 27.01, 41.74, 21.8, 32.54, 25.95, 24.71, 32.61, 45.04, 43.56, 41.18, 44.19, 46.26, 28.96, 31.94, 31.92, 27.74, 21.44, 23.49, 43.42, 46.12, 23.27, 29.81, 46.4, 45.25, 41.12, 28.13, 43.69, 47.2, 2.87, 4.41, 4.43, 1.67, 0.83, 2.85, 1.34, 0.67, 1.06, 1.14, 3.93, 1.19, 2.37, 4.7, 3.35, 3.1, 0.87, 0.58, 3.08, 0.96, 4.19, 3.48, 1.91, 0.91, 3.73, 2.47, 3.67, 3.25, 3.17, 1.21, 1.2, 1.05, 1.28, 1.12, 2.85, 2.28, 1.52, 2.87, 4.54, 3.73, 1.08, 1.21, 4.46, 3.43, 0.9, 0.56, 1.73, 2.72, 2.07, 0.66, 2329.68, 1507.99, 2108.47, 189.130000000001, 728.470000000001, 2982.88, 662.860000000001, 289.520000000001, 276.650000000001, 471.240000000001, 2496.53, 287.770000000001, 1681.25, 2213.82, 2457.12, 870.85, 289.710000000001, 232.440000000001, 1900.1, 88.9400000000012, 1139.95, 1390, 1257.28, 207.680000000001, 2449.39, 601.050000000001, 2231.03, 1740.7, 1487.52, 325.540000000001, 568.560000000001, 220.560000000001, 400.060000000001, 152.010000000001, 579.51, 651.11, 250.960000000001, 768.79, 3299.49, 2630.96, 389.660000000001, 249.870000000001, 1813.93, 4001.89, 813.390000000001, 138.330000000001, 380.470000000001, 766.54, 123.580000000001, 242.690000000001, 2.87, 3.92999999999999, 3.82, 0.22, 4.56, 2.43, 2.67, 6.51, 3.08, 2.8, 3.99, 2.19, 4.32, 4.52, 3.44, 6.28, 1.48, 3.19, 1.12, 1.54, 2.99, 3.54, 8.21, 5.81, 1.57, 8.12, 3.62, 7.66, 1.76, 2.48, 3.61, 1.03, 0.670000000000002, 2, 7.48, 2.19, 2, 4.35, 3.01, 2.7, 2.96, 1.13, 2.01, 2.45, 0.530000000000002, 5.14, 10.23, 1.88, 16.71, 5.08), .Dim = c(50L, 4L), .Dimnames = list(NULL, c('pop15', 'pop75', 'dpi', 'ddpi'))));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep13_3feeb0a231d4f13d3f69b87b6efe3590() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'), structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = 'data.frame'));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep14_65c05ddeeafeda38f6377c0a4512aa3a() {
+ assertEval("argv <- list(structure(list(A = c(52L, 52L, 47L, 45L, 40L, 37L, 27L, 27L, 23L, 22L, 21L, 25L, 24L, 22L, 22L, 20L, 16L, 17L, 14L, 13L, 13L, 14L, 24L), F = c(42L, 44L, 48L, 49L, 50L, 54L, 58L, 54L, 59L, 59L, 60L, 53L, 54L, 55L, 56L, 58L, 62L, 57L, 54L, 55L, 52L, 47L, 56L), M = c(6L, 4L, 5L, 6L, 10L, 9L, 15L, 19L, 18L, 19L, 19L, 22L, 22L, 23L, 22L, 22L, 22L, 26L, 32L, 32L, 35L, 39L, 20L)), .Names = c('A', 'F', 'M'), class = 'data.frame', row.names = c(NA, 23L)), 100);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep15_ac422f08d33b8465c43c366701c79e63() {
+ assertEval("argv <- list(c(1, 0), structure(c(1, 0, 0, 1), .Dim = c(2L, 2L)));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep16_04768845c16f7d46591acb6c2369960d() {
+ assertEval("argv <- list(structure(c(126.49966838981, 123.340306958365, 124.994330270046, 129.001056705356, 131.639025779016, 124.408594738421, 125.475982014377, 125.929559340094, 126.630542479839, 127.249057014908, 127.661400038288, 128.403617480371, 129.888052364537, 131.702361667407, 133.516670970277, 135.001105854443, 135.990729110554, 137.310226785368, 144.127817178676, 144.648818160919, 147.114894939813, 142.21953431078, 139.936534657354, 152.343274976711), .Tsp = c(1949, 1950.91666666667, 12), class = 'ts'), structure(c(NA, NA, NA, NA, NA, NA, 126.791666666667, 127.25, 127.958333333333, 128.583333333333, 129, 129.75, 131.25, 133.083333333333, 134.916666666667, 136.416666666667, 137.416666666667, 138.75, NA, NA, NA, NA, NA, NA), .Tsp = c(1949, 1950.91666666667, 12), class = 'ts'));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep17_4f33c817c95506f86c1e898839e9a1d7() {
+ assertEval("argv <- list(structure(c(17L, 29L, 17L, 20L, 1L, 15L, 0L, 1L), .Names = c('1', '2', '3', '4', '5', '6', '7', '8')), structure(c(24L, 29L, 27L, 20L, 12L, 16L, 28L, 4L), .Names = c('1', '2', '3', '4', '5', '6', '7', '8')));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep18_d71358035d66cd37ae752478169e9aa7() {
+ assertEval("argv <- list(c(2, 11, 14, 5, 5, 13, 20, 22, 6, 6, 15, 7, 14, 6, 32, 53, 57, 14, 16, 16, 17, 40, 43, 46, 8, 23, 23, 28, 34, 36, 38, 3, 5, 11, 24, 45, 5, 6, 6, 9, 13, 23, 25, 32, 53, 54, 5, 5, 11, 17, 19, 8, 13, 14, 20, 47, 48, 60, 81, 2, 1, 2, 3, 5, 10, 14, 21, 36, 40, 6, 17, 67, 1, 1, 2, 7, 11, 12, 1, 1, 5, 5, 5, 11, 17, 3, 4, 22, 30, 36, 8, 1, 1, 5, 7, 16, 27, 1, 30, 10, 14, 27, 41, 69, 25, 10, 11, 20, 33, 5, 7, 1, 1, 5, 5, 5, 5, 7, 11, 15, 5, 14, 6, 6, 7, 28, 1, 5, 14, 2, 2, 3, 8, 10, 12, 1, 1, 9, 22, 3, 3, 5, 15, 18, 22, 37), structure(c(7.89366449903379, 7.89366449903379, 7.89366449903379, 14.0829622414182, 14.0829622414182, 14.0829622414182, 14.0829622414182, 14.0829622414182, 9.97467561511911, 9.97467561511911, 9.97467561511911, 9.14061221811198, 9.14061221811198, 37.9214773068363, 37.9214773068363, 37.9214773068363, 37.9214773068363, 27.0457930153774, 27.0457930153774, 27.0457930153774, 27.0457930153774, 27.0457930153774, 27.0457930153774, 27.0457930153774, 27.142857142857, 27.142857142857, 27.142857142857, 27.142857142857, 27.142857142857, 27.142857142857, 27.142857142857, 5.51287534554956, 19.4425820919426, 19.4425820919426, 19.4425820919426, 19.4425820919426, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 12.0888548389297, 12.0888548389297, 12.0888548389297, 12.0888548389297, 12.0888548389297, 35.9372148648542, 35.9372148648542, 35.9372148648542, 35.9372148648542, 35.9372148648542, 35.9372148648542, 35.9372148648542, 35.9372148648542, 2.39853649771773, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 34.0597534472672, 34.0597534472672, 34.0597534472672, 4.94649227492536, 4.94649227492536, 4.94649227492536, 4.94649227492536, 4.94649227492536, 4.94649227492536, 5.86945220571486, 5.86945220571486, 5.86945220571486, 5.86945220571486, 5.86945220571486, 5.86945220571486, 5.86945220571486, 4.2587413846383, 4.2587413846383, 28.3984573891039, 28.3984573891039, 28.3984573891039, 9.29091029891263, 9.29091029891263, 9.29091029891263, 9.29091029891263, 9.29091029891263, 9.29091029891263, 9.29091029891263, 27.2857142857143, 27.2857142857143, 27.2857142857143, 27.2857142857143, 27.2857142857143, 27.2857142857143, 27.2857142857143, 18.193214018835, 20.387398919001, 20.387398919001, 20.387398919001, 20.387398919001, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 10.4914673267343, 10.4914673267343, 10.4914673267343, 10.4914673267343, 10.4914673267343, 10.4914673267343, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 0.75368270571509, 13.5, 13.5, 13.5, 13.5, 13.5, 13.5, 13.5, 13.5, 13.5, 13.5), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100', '101', '102', '103', '104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', '115', '116', '117', '118', '119', '120', '121', '122', '123', '124', '125', '126', '127', '128', '129', '130', '131', '132', '133', '134', '135', '136', '137', '138', '139', '140', '141', '142', '143', '144', '145', '146')));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep2_ba6d2e3600f93ad5a373fb7c3bdc3a2f() {
+ assertEval("argv <- list(c(-3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L), c(-3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -1L, -1L, -1L, -1L, -1L, -1L, -1L, -1L, -1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep20_d838620b11cf1a654915994614e6685e() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42')), 6);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep21_3492004af67f01cd5f43771180683427() {
+ assertEval("argv <- list(structure(c(18, 17, 15, 20, 10, 20, 25, 13, 12), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9')), structure(c(18.3712737525013, 13.3333333333333, 18.2953929141735, 18.3712737525013, 13.3333333333333, 18.2953929141735, 18.3712737525013, 13.3333333333333, 18.2953929141735), .Dim = c(9L, 1L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9'), NULL)));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep22_c64350c8030902789a6a9f19d9ece167() {
+ assertEval("argv <- list(c(0+6.28318530717959i, 0+12.5663706143592i, 0+18.8495559215388i, 0+25.1327412287183i, 0+31.4159265358979i, 0+37.6991118430775i, 0+43.9822971502571i, 0+50.2654824574367i, 0+56.5486677646163i, 0+62.8318530717959i, 0+69.1150383789754i, 0+75.398223686155i, 0+81.6814089933346i, 0+87.9645943005142i, 0+94.2477796076938i, 0+100.530964914873i), 16);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep23_3e54e1ac87607693efd38dd6a8068ba7() {
+ assertEval("argv <- list(structure(c(1, 0, -1, 0.5, -0.5, NA, NA, NA, 0), .Dim = c(3L, 3L)), structure(c(1, 1, 1, 0.707106781186548, 0.707106781186548, 0.707106781186548, 0, 0, 0), .Dim = c(3L, 3L)));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep24_ee2e18ce4f819cdb8bca5a706ae0e76f() {
+ assertEval("argv <- list(structure(c(32, 53, 10, 3, 11, 50, 10, 30, 10, 25, 7, 5, 3, 15, 7, 8, 36, 66, 16, 4, 9, 34, 7, 64, 5, 29, 7, 5, 2, 14, 7, 8), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32')), 18.5);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep25_924baba3d81e602e48b58e0472742dbe() {
+ assertEval("argv <- list(structure(c(1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')), structure(c(0.570290675249213, 0.61905127646042, 0.531618474288601, 0.790554080720526, 0.767014480135805, 0.550113874748024, 0.17684306547603, 0.582060475541574, 0.82418208155584, 0.508078873703881, 0.235692066937831, 0.434097271866188, 0.494627673369755, 0.72161667900813, 0.573653475332745, 0.56356507508215, 0.69807707842341, 0.78887268067876, 0.566927875165682, 0.661086277504564, 0.469406672743269, 0.365159870153793, 0.474450872868566, 0.63082107675278, 0.131445264348354, 0.640909477003375, 0.503034673578584, 0.565246475123916, 0.403832071114405, 0.577016275416276, 0.543388274580962, 0.239054867021362, 0.573653475332745, 0.514804473870944, 0.674537477838689, 0.0709148628447877, 0.536662674413898, 0.772058680261102, 0.274364267898443, 0.116312663972463, 0.439141471991485, 0.60728147616806, 0.400469271030873, 0.497990473453286, 0.514804473870944, 0.55179527478979, 0.455955472409143, 0.506397473662115, 0.321443469067883, 0.565246475123916, 0.772058680261102, 0.869579882683515, 0.494627673369755, 0.457636872450909, 0.398787870989108, 0.753563279801679, 0.518167273954475, 0.326487669193181, 0.351708669819667, 0.479495072993863, 0.397106470947342, 0.439141471991485, 0.37020407027909, 0.627458276669249, 0.402150671072639, 0.63082107675278, 0.543388274580962, 0.587104675666871, 0.587104675666871, 0.311355068817289, 0.730023679216959, 0.534981274372133, 0.450911272283846, 0.427371671699125, 0.432415871824422, 0.2911782683161, 0.339938869527307, 0.708165478674004, 0.76533308009404, 0.455955472409143, 0.509760273745647, 0.412239071323234, 0.464362472617972, 0.481176473035629, 0.331531869318478, 0.622414076543951, 0.392062270822045, 0.827544881639372, 0.487902073202692, 0.479495072993863, 0.652679277295735, 0.585423275625105, 0.735067879342256, 0.477813672952097, 0.435778671907954, 0.756926079885211, 0.679581677963987, 0.339938869527307, 0.625776876627483, 0.652679277295735), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep26_c4f824803870e041f321c15bafbb0b9d() {
+ assertEval("argv <- list(structure(c(0L, 1L, 1L, 7L, 7L, 2L, 0L, 3L, 9L, 0L, 0L, 0L, 0L, 6L, 0L, 1L, 5L, 8L, 2L, 2L, 0L, 0L, 0L, 9L, 0L, 3L, 0L, 1L, 0L, 2L, 3L, 0L, 0L, 0L, 0L, 0L, 0L, 4L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 2L, 2L, 0L, 0L, 0L, 4L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 2L, 0L, 1L, 0L, 1L, 0L, 0L, 8L, 0L, 0L, 0L, 0L, 0L, 0L, 3L, 4L, 0L, 0L, 0L, 0L, 0L, 0L, 4L, 0L, 4L, 0L, 0L, 4L, 0L, 5L, 0L, 0L, 3L, 3L, 0L, 5L, 2L), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')), structure(c(1.25194092864295, 1.37418430529572, 1.15498928509075, 1.80414376800547, 1.74512972410413, 1.20135746244181, 0.265563337720594, 1.28144795059362, 1.88844954500738, 1.09597524118942, 0.413098447473938, 0.910502531785213, 1.06225293038865, 1.63131692515155, 1.26037150634314, 1.23507977324257, 1.57230288125021, 1.79992847915537, 1.24351035094276, 1.47956652654811, 0.999023597637219, 0.737675688931295, 1.01166946418751, 1.40369132724639, 0.151750538768014, 1.42898306034697, 1.08332937463913, 1.23929506209267, 0.834627332483493, 1.26880208404333, 1.18449630704142, 0.421529025174129, 1.26037150634314, 1.1128363965898, 1.51328883734888, 1.40164574169432e-07, 1.16763515164104, 1.75777559065442, 0.510050091026136, 0.113812939117154, 0.9231483983355, 1.34467728334505, 0.826196754783302, 1.07068350808884, 1.1128363965898, 1.2055727512919, 0.965301286836455, 1.09175995233932, 0.628078178828811, 1.23929506209267, 1.75777559065442, 2.00226234395996, 1.06225293038865, 0.969516575686551, 0.821981465933206, 1.71140741330337, 1.12126697428999, 0.640724045379098, 0.703953378130531, 1.02431533073779, 0.817766177083111, 0.9231483983355, 0.750321555481582, 1.3952607495462, 0.830412043633397, 1.40369132724639, 1.18449630704142, 1.29409381714391, 1.29409381714391, 0.602786445728238, 1.65239336940203, 1.16341986279095, 0.952655420286168, 0.893641376384831, 0.906287242935117, 0.552202979527091, 0.674446356179862, 1.59759461435079, 1.74091443525404, 0.965301286836455, 1.10019053003951, 0.855703776733971, 0.986377731086933, 1.02853061958789, 0.653369911929384, 1.38261488299591, 0.805120310532824, 1.89688012270757, 1.04539177498827, 1.02431533073779, 1.45849008229763, 1.28987852829381, 1.66503923595232, 1.0201000418877, 0.914717820635308, 1.71983799100356, 1.52593470389916, 0.674446356179862, 1.39104546069611, 1.45849008229763), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep28_1b5cab2ac334a60a22d2a688d2438709() {
+ assertEval("argv <- list(structure(c(0L, 1L, 1L, 7L, 7L, 2L, 0L, 3L, 9L, 0L, 0L, 0L, 0L, 6L, 0L, 1L, 5L, 8L, 2L, 2L, 0L, 0L, 0L, 9L, 0L, 3L, 0L, 1L, 0L, 2L, 3L, 0L, 0L, 0L, 0L, 0L, 0L, 4L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 2L, 2L, 0L, 0L, 0L, 4L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 2L, 0L, 1L, 0L, 1L, 0L, 0L, 8L, 0L, 0L, 0L, 0L, 0L, 0L, 3L, 4L, 0L, 0L, 0L, 0L, 0L, 0L, 4L, 0L, 4L, 0L, 0L, 4L, 0L, 5L, 0L, 0L, 3L, 3L, 0L, 5L, 2L), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')), structure(c(1.501181611548, 1.64776358195565, 1.38492694536262, 2.16332775373429, 2.09256404388232, 1.44052700310346, 0.318416746879368, 1.53656346647399, 2.26441876780853, 1.31416323551065, 0.495326021509292, 1.09176300454732, 1.27372682988096, 1.95609117488209, 1.51129071295543, 1.48096340873315, 1.88532746503012, 2.15827320303057, 1.49107251014058, 1.77412734954845, 1.19790856932527, 0.884526425695124, 1.21307222143641, 1.68314543688164, 0.181943877879142, 1.71347274110391, 1.29899958339952, 1.48601795943686, 1.0007810918805, 1.52139981436285, 1.42030880028861, 0.505435122916716, 1.51129071295543, 1.3343814383255, 1.81456375517815, -1.99474544941847e-05, 1.40009059747376, 2.10772769599345, 0.611580687694671, 0.136452921545733, 1.10692665665846, 1.61238172702967, 0.990671990473078, 1.28383593128838, 1.3343814383255, 1.44558155380717, 1.15747216369558, 1.30910868480694, 0.753108107398609, 1.48601795943686, 2.10772769599345, 2.40089163680876, 1.27372682988096, 1.16252671439929, 0.985617439769366, 2.05212763825262, 1.34449053973293, 0.768271759509746, 0.844090020065427, 1.22823587354755, 0.980562889065654, 1.10692665665846, 0.899690077806261, 1.67303633547421, 0.99572654117679, 1.68314543688164, 1.42030880028861, 1.55172711858512, 1.55172711858512, 0.722780803176337, 1.98136392840065, 1.39503604677005, 1.14230851158444, 1.07154480173247, 1.08670845384361, 0.662126194731792, 0.808708165139443, 1.91565476925239, 2.08750949317861, 1.15747216369558, 1.31921778621437, 1.02605384539906, 1.18274491721414, 1.23329042425126, 0.783435411620882, 1.65787268336308, 0.965399236954518, 2.27452786921595, 1.25350862706611, 1.22823587354755, 1.74885459602989, 1.54667256788141, 1.99652758051179, 1.22318132284384, 1.09681755525103, 2.06223673966004, 1.82972740728929, 0.808708165139443, 1.6679817847705, 1.74885459602989), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100')));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep3_c7decb1e0e451a0cab405ce8480a7f2e() {
+ assertEval("argv <- list(structure(c(NA, 17.4716236802524, 0.424429400003, -2.45474630431729, -8.6855922903657, -11.7956139807344, -8.08147081196715, -13.3123167980156, -1.24650334752019, 21.281002075072, -5.32311940332657, 0.621869751489083, -19.2022951076469, -0.543162784063959, NA, NA, 15.344649382745, -9.74060313555005, 0.149375174081257, -5.85062482591874, -6.90563567110309, -9.96064651628744, 5.6326723568001, -8.78481137542338, -6.01565736147178, -15.543162784064, 2.34681552556734, -13.2465033475202, -3.82901961529671, 1.5226506664314, NA, -5.9777558474085, 22.7534966524798, 15.5010454558094, 4.13857256877024, -11.6855922903657, 11.6768805966734, -7.38893285382193, 10.8527157375375, -11.3889328538219, 14.1493751740813, -0.388932853821931, 13.0835617235859, -1.98225172690947, 5.96273742790618, -1.50975714950164, -1.38893285382193, 9.90772658272184, 7.3144077096343, -12.9822517269095, 2.02855087840155, -4.7956139807344, 3.14937517408126, -10.3231194033266, -2.25730595283121, 2.56685890630474, 4.27019946976097, 5.14937517408126, 0.0285508784015471, 5.85271573753749, 6.73189144185778, -6.38893285382193, 0.0285508784015471, -3.14728426246251, 15.1493751740813, 13.7869022870421, -7.27891116345324, 9.61106714617807, 4.84191313222647, -3.98225172690947, -6.38893285382193, 13.0285508784015, 5.13857256877024, -8.50975714950164, -0.619778839870337, -3.97144912159845, 23.1493751740813, -2.80641658604541, -1.03726257209382, 2.25939686444995, 4.25939686444995, -4.38893285382193, 6.38022116012966, -4.74060313555005, 2.02855087840155, -15.7956139807344, 8.21518862457662, -12.0264599667828, -2.1364816571515, 5.8635183428485, -14.729800530239, 4.80850749766416, -11.7848113754234, 9.45683721593604, -15.2573059528312, 5.28100207507198, 12.8635183428485, 6.50104545580937, 1.55605630099372, -7.44394369900628, 9.9735400332172, -11.2681085581422, 7.44603461062503, -8.14728426246251, -1.72980053023903, -3.90563567110309, 4.56685890630474, -5.37813024851092, -1.25730595283121, 10.7426940471688, NA, NA, 6.24343998511081, -21.9164382764141, -6.1364816571515, -15.8398222206077, -4.12567905184048, -7.94984391097642, -6.4773493335686, -5.65318447443266), .Tsp = c(1945, 1974.75, 4), class = 'ts'), 9.24492052298191);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep4_efff2fb3f229b450642c0aaf0b17355c() {
+ assertEval("argv <- list(structure(-0.437222043740988, .Names = 'Var2'), 6.28318530717959);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep5_b85231486e0ba6e2260c710ddfb6d98c() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = 'factor'));`/`(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep6_ca225cdd5bea5941ced776cf37109305() {
+ assertEval("argv <- list(structure(c(25.1597633136098, 12.8284023668648), .Dim = 2L, .Dimnames = list(c('1', '2'))), c(13L, 13L));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep8_5dca4f10baf3ba907592cdac82d4cfea() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 6L, 2L, 4L, 3L, 7L, 2L, 8L, 4L, 2L, 2L, 1L, 3L, 3L, 4L, 3L, 2L, 1L, 2L, 3L, 1L, 1L, 2L, 1L, 3L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 4L, 1L, 1L, 1L, 1L, 2L, 1L, 5L, 2L, 1L, 3L, 2L, 1L, 1L, 6L, 2L, 1L, 2L, 5L, 2L, 2L, 2L, 4L, 4L, 1L, 1L, 3L, 4L, 2L, 2L, 2L, 1L, 5L, 4L, 1L, 3L, 1L, 1L, 4L, 2L, 3L, 2L, 1L, 8L, 1L, 5L, 1L, 3L, 4L, 4L, 1L, 3L, 1L, 2L, 6L, 1L, 1L, 1L, 1L, 1L, 6L, 2L, 2L, 1L, 1L, 2L, 3L, 1L, 1L, 1L, 1L), .Dim = 126L, .Dimnames = structure(list(fe = c('1.6', '1.667', '1.7', '1.733', '1.75', '1.783', '1.8', '1.817', '1.833', '1.85', '1.867', '1.883', '1.917', '1.933', '1.95', '1.967', '1.983', '2', '2.017', '2.033', '2.067', '2.083', '2.1', '2.133', '2.15', '2.167', '2.183', '2.2', '2.217', '2.233', '2.25', '2.267', '2.283', '2.3', '2.317', '2.333', '2.35', '2.367', '2.383', '2.4', '2.417', '2.483', '2.617', '2.633', '2.8', '2.883', '2.9', '3.067', '3.317', '3.333', '3.367', '3.417', '3.45', '3.5', '3.567', '3.6', '3.683', '3.717', '3.733', '3.75', '3.767', '3.817', '3.833', '3.85', '3.883', '3.917', '3.95', '3.966', '3.967', '4', '4.033', '4.05', '4.067', '4.083', '4.1', '4.117', '4.133', '4.15', '4.167', '4.183', '4.2', '4.233', '4.25', '4.267', '4.283', '4.3', '4.317', '4.333', '4.35', '4.366', '4.367', '4.383', '4.4', '4.417', '4.433', '4.45', '4.467', '4.483', '4.5', '4.517', '4.533', '4.55', '4.567', '4.583', '4.6', '4.617', '4.633', '4.65', '4.667', '4.7', '4.716', '4.733', '4.75', '4.767', '4.783', '4.8', '4.817', '4.833', '4.85', '4.883', '4.9', '4.933', '5', '5.033', '5.067', '5.1')), .Names = 'fe'), class = 'table'), 272L);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsep_testsep9_7105f4d2294ebb9e608ff8e8f1a9dd88() {
+ assertEval("argv <- list(c(-20.7752893729399+0i, -22.2629231778254+0i, 30.2366932497517-0i, -17.7609104766206+0i, -12.009450871146+0i, -20.6744466063748+0i, -16.2509653806178-0i, 14.8872572302678-0i, -2.41214022512376e+00+5e-15i, 30.1945691318138-0i, -14.86107358966-0i, -75.7334659810725-0i, -31.7348183989382+0i, 33.742775143777-0i, 26.1570616797447-0i, 37.7317903854624+0i, -7.20820970337446-0i, 38.6698755921621-0i, -26.4295844393936-0i, 26.3000016960339+0i, -16.3754767271763+0i, -7.29593605495242-0i, 9.19886724090888+0i, -35.3925832738897+0i, 21.0943018303757+0i, 4.90714440628349-0i), 26L);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseq_testseq13_7b42a0c7080020fcbb61668ce4804b1d() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure('3.14159265358979', class = 'testit')));seq_len(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseq_testseq16_486e08825cd587be6f5dc6ddafcca2da() {
+ assertEval("argv <- list(list(list(c('', '', '\036', '', 'New', 'print()', '(S3)', 'method', 'for', 'class', '\'function\',', '', '', '', '', '', '', '', 'also', 'used', 'for', 'auto-printing.', '', 'Further,', '.Primitive', '', '', '', '', '', '', '', 'functions', 'now', 'print', 'and', 'auto-print', 'identically.', '', 'The', 'new', 'method', '', '', '', '', '', '', '', 'is', 'based', 'on', 'code', 'suggestions', 'by', 'Romain', 'François.'))));seq_along(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseq_testseq26_d7e82848dde035e5b2c3487197aeb208() {
+ assertEval("argv <- list(structure(2, .Names = 'Ind'));seq_len(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseq_testseq3_f622c48a80aefe66800ce2121d9bb58d() {
+ assertEval("argv <- list(0L);seq_len(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseq_testseq4_3a3ca2ee01d1d004061b74d38447d0b7() {
+ assertEval("argv <- list(structure(list(x = 1:3, y = structure(1:3, .Label = c('A', 'D', 'E'), class = 'factor'), z = c(6, 9, 10)), .Names = c('x', 'y', 'z'), row.names = c(NA, -3L), class = 'data.frame'));seq_along(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseq_testseq5_8690ea77d6330da7dd0dfc249188931e() {
+ assertEval("argv <- list(FALSE);seq_len(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint1_435241438c86e9c56ceec5fdf6a97d01() {
+ assertEval("argv <- list(16146, by = 1, length.out = 4);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint11_a114d8b402777e5e88455d1482d84e78() {
+ assertEval("argv <- list(10L, 99L, 1);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint12_26fe7f0beecb9fbbfeeb30313d6882f9() {
+ assertEval("argv <- list(1L);seq.int(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint14_4139d8550bf8db877b16669adb5eb01f() {
+ assertEval("argv <- list(from = 0.95, by = -0.120360949612403, length.out = 6);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint15_875d4e8ce679548405c84bcca74b321a() {
+ assertEval("argv <- list(list());seq.int(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint16_06484717074c2fe840538546ce023637() {
+ assertEval("argv <- list(-0.2, 1, length.out = 7);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint17_2e3dd7f1248c8236567f810b8426346d() {
+ assertEval("argv <- list(from = 0.070740277703696, to = 0.793110173512391, length.out = NULL);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint18_0dc53d8570353e0fd675d999c4e298cf() {
+ assertEval("argv <- list(105L, 112L, 3L);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint2_833837cd2c7024b84527e6cc6318ce3f() {
+ assertEval("argv <- list(0.9, 0.95, length.out = 16);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint20_a25b0ed39884aee2ab5a0a4740d67644() {
+ assertEval("argv <- list(0, structure(345600, tzone = 'GMT'), 43200);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint21_d329ffa06bd12e1895efdd679398d419() {
+ assertEval("argv <- list(-7, 7, length.out = 11);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint23_2ebe0685f9e788b6984f988da75b10a2() {
+ assertEval("argv <- list(0L, 49, 1);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint24_77429da3fa30f07ffd3b524b0b623fa9() {
+ assertEval("argv <- list(1, 1, by = 1);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint3_6ebfa066b0a3aedefc08f6cb45e6a547() {
+ assertEval("argv <- list(FALSE);seq.int(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint4_a9b7d237bccf65b5720f185242dd8c18() {
+ assertEval("argv <- list(1.2e+100, 1.3e+100, length.out = 2);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint5_50b3cd6c7c9aee92e159429d680fadeb() {
+ assertEval("argv <- list(structure(0.88, .Names = 'Other'), structure(1, .Names = 'Vanilla Cream'), length.out = 24);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint6_1535acb6c16135e174e9d159863c4fa3() {
+ assertEval("argv <- list(953553600, by = 86400, length.out = 10);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint7_e4636cba32da6fbde37b9dbe1eb04b30() {
+ assertEval("argv <- list(25L);seq.int(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint8_be3e83933ddb4b697617f8977cd220c6() {
+ assertEval("argv <- list(from = 2.0943951023932, to = 2.61799387799149, by = 0.0174532925199433);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseqint_testseqint9_ced1e26637467cbe69e1d20121049d4d() {
+ assertEval("argv <- list(from = 0, to = 0.793110173512391, length.out = FALSE);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetEncoding_testsetEncoding1_575410e6ad8803786ba9b9e5cb659549() {
+ assertEval("argv <- list('abc', 'UTF-8'); .Internal(setEncoding(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetEncoding_testsetEncoding2_20b05ee818fc836fe749c9486234902b() {
+ assertEval("argv <- list(''', 'unknown'); .Internal(setEncoding(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetEncoding_testsetEncoding3_368f1a8fdffd199bc14ab4e1112075f5() {
+ assertEval("argv <- list('3.0.1', 'unknown'); .Internal(setEncoding(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetEncoding_testsetEncoding4_6d54ce8af5a7f160216df0d235c552a5() {
+ assertEval("argv <- list(structure(c('Matrix', '1.0-12', '2013-03-26', 'recommended', 'Sparse and Dense Matrix Classes and Methods', 'Douglas Bates <bates@stat.wisc.edu> and Martin Maechler\n <maechler@stat.math.ethz.ch>', 'Martin Maechler <mmaechler+Matrix@gmail.com>', 'Doug and Martin <Matrix-authors@R-project.org>', 'Classes and methods for dense and sparse matrices and\n operations on them using Lapack and SuiteSparse.', 'R (>= 2.15.0), stats, methods, utils, lattice', 'graphics, grid', 'expm, MASS', 'MatrixModels, graph, SparseM, sfsmisc', 'UTF-8', 'no', 'no longer available, since we use data/*.R *and* our\nclasses', 'yes', 'no', 'GPL (>= 2)', 'The Matrix package includes libraries AMD, CHOLMOD,\nCOLAMD, CSparse and SPQR from the SuiteSparse collection of Tim\nDavis. All sections of that code are covered by the GPL or\nLGPL licenses. See the directory doc/UFsparse for details.', 'http://Matrix.R-forge.R-project.org/', '2013-03-26 15:38:54 UTC; maechler', 'yes', 'CRAN', '2013-03-26 19:25:05', 'R 3.0.1; x86_64-unknown-linux-gnu; 2013-12-07 03:52:11 UTC; unix'), .Names = c('Package', 'Version', 'Date', 'Priority', 'Title', 'Author', 'Maintainer', 'Contact', 'Description', 'Depends', 'Imports', 'Suggests', 'Enhances', 'Encoding', 'LazyData', 'LazyDataNote', 'ByteCompile', 'BuildResaveData', 'License', 'LicenseDetails', 'URL', 'Packaged', 'NeedsCompilation', 'Repository', 'Date/Publication', 'Built')), structure('UTF-8', .Names = 'Encoding')); .Internal(setEncoding(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetS4Object_testsetS4Object1_0ab55bb1bc045815c8938f2fed92bf45() {
+ assertEval("argv <- list(structure('ObjectsWithPackage', class = structure('signature', package = 'methods'), .Names = '.Object', package = 'methods'), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetS4Object_testsetS4Object10_941fb128fe75be71d5da0019d1282d09() {
+ assertEval("argv <- list(structure(function (object) cat('I am a \'foo\'\n'), target = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), generic = character(0), class = structure('MethodDefinition', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetS4Object_testsetS4Object11_18b7b860b9e86d63d988057c8d47cff7() {
+ assertEval("argv <- list(structure(function (x = 1, nrow, ncol) standardGeneric('diag'), generic = character(0), package = character(0), group = list(), valueClass = character(0), signature = character(0), default = quote(`\001NULL\001`), skeleton = quote(`<undef>`()), class = structure('standardGeneric', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetS4Object_testsetS4Object12_1887ce2e2ac5a19c8b151af9ab68ffb3() {
+ assertEval("argv <- list(structure(list(`NA` = structure(function (object) cat('I am a \'foo\'\n'), target = structure('foo', .Names = 'object', package = 'myTst', class = structure('signature', package = 'methods')), defined = structure('foo', .Names = 'object', package = 'myTst', class = structure('signature', package = 'methods')), generic = structure('show', package = 'methods'), class = structure('MethodDefinition', package = 'methods'))), .Names = NA_character_, arguments = structure('object', simpleOnly = TRUE), signatures = list(), generic = structure(function (object) standardGeneric('show'), generic = structure('show', package = 'methods'), package = 'methods', group = list(), valueClass = character(0), signature = structure('object', simpleOnly = TRUE), default = structure(function (object) showDefault(object, FALSE), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'object', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'object', package = 'methods'), generic = structure('show', package = 'methods'), class = structure('derivedDefaultMethod', package = 'methods')), skeleton = quote((function (object) showDefault(object, FALSE))(object)), class = structure('standardGeneric', package = 'methods')), class = structure('listOfMethods', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetS4Object_testsetS4Object13_14d9f7bd93f7f9ee8cd2510ca60e57c5() {
+ assertEval("argv <- list(structure(function (x, type = c('O', 'I', 'F', 'M', '2')) { if (identical('2', type)) { svd(x, nu = 0L, nv = 0L)$d[1L] } else .Internal(La_dlange(x, type))}, target = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), generic = character(0), class = structure('derivedDefaultMethod', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetS4Object_testsetS4Object14_9aff3252b217942d4806b486dea68e81() {
+ assertEval("argv <- list(structure(function (x, y, ...) UseMethod('plot'), target = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), generic = character(0), class = structure('derivedDefaultMethod', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetS4Object_testsetS4Object2_d875032dd857442d1f3659594a4ac246() {
+ assertEval("argv <- list(structure(function (x, ...) standardGeneric('toeplitz'), generic = character(0), package = character(0), group = list(), valueClass = character(0), signature = character(0), default = quote(`\001NULL\001`), skeleton = quote(`<undef>`()), class = structure('standardGeneric', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetS4Object_testsetS4Object3_072c080448e33f0a49b36e5cd681a05d() {
+ assertEval("argv <- list(structure(character(0), package = character(0), class = structure('ObjectsWithPackage', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetS4Object_testsetS4Object4_461af4c09fb7e35645cfd822f5b06a1c() {
+ assertEval("argv <- list(structure(function (qr, complete = FALSE, Dvec) standardGeneric('qr.Q'), generic = character(0), package = character(0), group = list(), valueClass = character(0), signature = character(0), default = quote(`\001NULL\001`), skeleton = quote(`<undef>`()), class = structure('standardGeneric', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetS4Object_testsetS4Object5_29afb062e3460024baf7c5ad554f2872() {
+ assertEval("argv <- list(structure(c('nonStructure', 'ANY', 'ANY', 'ANY'), .Names = c(NA_character_, NA_character_, NA_character_, NA_character_), package = character(0), class = structure('signature', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetS4Object_testsetS4Object6_8dab2be22e76070a5a190d6e9692efef() {
+ assertEval("argv <- list(structure(function (x) .Internal(drop(x)), target = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), generic = character(0), class = structure('derivedDefaultMethod', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetS4Object_testsetS4Object7_25798037d870e60328f01dd63b909881() {
+ assertEval("argv <- list(structure(function (x, y = NULL) .Internal(crossprod(x, y)), target = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), generic = character(0), class = structure('derivedDefaultMethod', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetS4Object_testsetS4Object8_84be8f312b049b83a14d879ba3ed6500() {
+ assertEval("argv <- list(structure(function (x, i, j, ...) x@aa[[i]], target = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure('signature', package = 'methods')), generic = character(0), class = structure('MethodDefinition', package = 'methods')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetS4Object_testsetS4Object9_f87ba8a0629ae6811587d0c11e0bcf2d() {
+ assertEval("argv <- list(numeric(0), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetSessionTimeLimit_testsetSessionTimeLimit1_0d606561ef60b6a688844ab91b23932c() {
+ assertEval("argv <- list(NULL, NULL); .Internal(setSessionTimeLimit(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetSessionTimeLimit_testsetSessionTimeLimit2_3a41dc6c95029a1a3385b669b6ef7b3c() {
+ assertEval("argv <- list(FALSE, Inf); .Internal(setSessionTimeLimit(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetTimeLimit_testsetTimeLimit1_696c717ab745eadf821ecf540881f6c2() {
+ assertEval("argv <- list(FALSE, Inf, FALSE); .Internal(setTimeLimit(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseterrmessage_testseterrmessage1_c2ebe071ff97bc19521be20a91a97920() {
+ assertEval("argv <- list('Error in cor(rnorm(10), NULL) : \n supply both 'x' and 'y' or a matrix-like 'x'\n'); .Internal(seterrmessage(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseterrmessage_testseterrmessage2_a61eeb4b8b937fdbda192fb1874c0116() {
+ assertEval("argv <- list('Error in as.POSIXlt.character(x, tz, ...) : \n character string is not in a standard unambiguous format\n'); .Internal(seterrmessage(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinseterrmessage_testseterrmessage3_20257c59ec215dfcf32e855ac6dae1cb() {
+ assertEval("argv <- list('Error in validObject(.Object) : \n invalid class “trackCurve” object: Unequal x,y lengths: 20, 10\n'); .Internal(seterrmessage(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetseed_testsetseed1_2ef0ed43632aae054f81d4509ed1a12d() {
+ assertEval("argv <- list(1000, 0L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetseed_testsetseed2_11d56d354a8058985c6d0474e7df1b9a() {
+ assertEval("argv <- list(77, 2L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetseed_testsetseed3_22ab62314b1f3b2905e5a30da785c03b() {
+ assertEval("argv <- list(123, 6L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetseed_testsetseed4_33a423903f4010ec520c9ae76ad3788b() {
+ assertEval("argv <- list(77, 4L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsetseed_testsetseed7_03b9f46d49e83b773bcc79c5a8506f7e() {
+ assertEval("argv <- list(123, 7L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinshortRowNames_testshortRowNames4_777d90689166b825b3226ecff1db828c() {
+ assertEval("argv <- list(structure(list(x = 1:3, y = structure(1:3, .Label = c('A', 'D', 'E'), class = 'factor'), z = c(6, 9, 10)), .Names = c('x', 'y', 'z'), row.names = c(NA, -3L), class = 'data.frame'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinshortRowNames_testshortRowNames5_3245df463db4b0dda9647e1d6ef98f19() {
+ assertEval("argv <- list(structure(list(c('4.1-0', '4.1-0', '4.1-0', '4.1-0', '4.1-0', '4.1-0', '4.0-3', '4.0-3', '4.0-3', '4.0-3', '4.0-3', '4.0-2', '4.0-2', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '4.0-1', '3.1-55', '3.1-55', '3.1-55', '3.1-54', '3.1-53', '3.1-53', '3.1-52', '3.1-51'), c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), c('The C and R code has been reformatted for legibility.', 'The old compatibility function rpconvert() has been removed.', 'The cross-validation functions allow for user interrupt at the end\nof evaluating each split.', 'Variable Reliability in data set car90 is corrected to be an\nordered factor, as documented.', 'Surrogate splits are now considered only if they send two or more\ncases _with non-zero weight_ each way. For numeric/ordinal\nvariables the restriction to non-zero weights is new: for\ncategorical variables this is a new restriction.', 'Surrogate splits which improve only by rounding error over the\ndefault split are no longer returned. Where weights and missing\nvalues are present, the splits component for some of these was not\nreturned correctly.', 'A fit of class \'rpart\' now contains a component for variable\n‘importance’, which is reported by the summary() method.', 'The text() method gains a minlength argument, like the labels()\nmethod. This adds finer control: the default remains pretty =\nNULL, minlength = 1L.', 'The handling of fits with zero and fractional weights has been\ncorrected: the results may be slightly different (or even\nsubstantially different when the proportion of zero weights is\nlarge).', 'Some memory leaks have been plugged.', 'There is a second vignette, longintro.Rnw, a version of the\noriginal Mayo Tecnical Report on rpart.', 'Added dataset car90, a corrected version of the S-PLUS dataset\ncar.all (used with permission).', 'This version does not use paste0{} and so works with R 2.14.x.', 'Merged in a set of Splus code changes that had accumulated at Mayo\nover the course of a decade. The primary one is a change in how\nindexing is done in the underlying C code, which leads to a major\nspeed increase for large data sets. Essentially, for the lower\nleaves all our time used to be eaten up by bookkeeping, and this\nwas replaced by a different approach. The primary routine also\nuses .Call{} so as to be more memory efficient.', 'The other major change was an error for asymmetric loss matrices,\nprompted by a user query. With L=loss asymmetric, the altered\npriors were computed incorrectly - they were using L' instead of L.\nUpshot - the tree would not not necessarily choose optimal splits\nfor the given loss matrix. Once chosen, splits were evaluated\ncorrectly. The printed “improvement” values are of course the\nwrong ones as well. It is interesting that for my little test\ncase, with L quite asymmetric, the early splits in the tree are\nunchanged - a good split still looks good.', 'Add the return.all argument to xpred.rpart().', 'Added a set of formal tests, i.e., cases with known answers to\nwhich we can compare.', 'Add a usercode vignette, explaining how to add user defined\nsplitting functions.', 'The class method now also returns the node probability.', 'Add the stagec data set, used in some tests.', 'The plot.rpart routine needs to store a value that will be visible\nto the rpartco routine at a later time. This is now done in an\nenvironment in the namespace.', 'Force use of registered symbols in R >= 2.16.0', 'Update Polish translations.', 'Work on message formats.', 'Add Polish translations', 'rpart, rpart.matrix: allow backticks in formulae.', 'tests/backtick.R: regession test', 'src/xval.c: ensure unused code is not compiled in.', 'Change description of margin in ?plot.rpart as suggested by Bill\nVenables.')), row.names = c(NA, -29L), class = 'data.frame'), 1L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsign_testsign1_2dcb378f86f461c4f465d16c975454b4() {
+ assertEval("argv <- list(29);sign(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsign_testsign2_c3c9b9149d413778f2ebed3de9939f5b() {
+ assertEval("argv <- list(-29);sign(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsign_testsign3_c82d822891a0e79eb25523f330206157() {
+ assertEval("argv <- list(structure(-29.5, .Names = 'W'));sign(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsign_testsign4_21c141e8c61b25cdc4c37206ad8cfbdf() {
+ assertEval("argv <- list(c(2, 1.5));sign(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsign_testsign5_2bf716b41bb3841689bfda97fcaebf97() {
+ assertEval("argv <- list(structure(c(0.880860525591375, 0.639733585162877, 0.698114489497201, -0.163771828170666, 0.644716815673843, 0.434938037582636, -1.02532598809559, -0.414997803714266, 0.314897800466685, 0.824285322485286, 0.771220667991526, -1.0213685325144, 0.928795080183842, 0.819280413726459, -1.81676447087493, 0.750354069620072, 0.445075757764079, -0.708114061379466, 0.824862990562917, -0.538393491087728, 0.974198118249183, -1.44391305877857, -0.0570136982996023, -0.0628620473044737, 0.00599485749367468, 0.397443892596693, -0.670529694022941, -0.443694007369259, -1.60185734774623, -0.125754544304519, 0.726126214864875, -0.0167895964097286, -0.306643229540329, -0.216330373334122, -0.903891452322388, 0.326172148813803, -0.13510345952301, -0.897613228123322, 0.845413917001047, -0.831631251080141, 0.487109758044019, -2.39537135767952, -1.00899546383701, -0.15086268042785, 0.817762526779461, -0.0500097005975852, 0.489115737630558, -0.570402758036241, 0.837693310865448, 0.128079053272328, -0.543417844555625, -0.372441278809232, 0.0566412271335022, -0.292618377937407, 0.331718074329116, 0.424938499372394, 0.976537923557996, 0.463868773879129, -0.204612235294409, 0.635623103866607, 0.563790796039522, 0.102279312881195, -0.0139544456391161, 0.319200502078835, -0.348934065906413, 0.553375167400346, -0.448280809644608, -0.00983940055010783, -0.259698968965015, 0.919652420667434, -0.47355400612706, -0.135894354949879, -0.0129965646298911, 0.162878599329267, 0.243328472793848, -0.0718304876664265), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76')));sign(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsign_testsign6_08e620ed3159f0d3b387b641f1c3435e() {
+ assertEval("argv <- list(structure(c(-Inf, Inf, -Inf), .Dim = 3L, .Dimnames = list(c('73', '312', '674'))));sign(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsign_testsign7_df19c8c79a3139ea3a35d57f6e82e25a() {
+ assertEval("argv <- list(c(NA, 2L, 2L));sign(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsign_testsign8_d46bea5eb80678041724eb85442691db() {
+ assertEval("argv <- list(c(-2.3, -0.9, -0.0666666666666667, 0.275, 0.12, 0.216666666666667, -0.228571428571429, -0.35, -0.188888888888889, -1.77635683940025e-16, 0.0272727272727272, -0.108333333333333, -0.246153846153846));sign(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsign_testsign9_07c6bd369d051fbd6e7f91e1513aa1a3() {
+ assertEval("argv <- list(numeric(0));sign(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsin_testsin1_bc036997586f217ec4ec8287a26889d4() {
+ assertEval("argv <- list(c(-6.28318530717959, -6.1261056745001, -5.96902604182061, -5.81194640914112, -5.65486677646163, -5.49778714378214, -5.34070751110265, -5.18362787842316, -5.02654824574367, -4.86946861306418, -4.71238898038469, -4.5553093477052, -4.39822971502571, -4.24115008234622, -4.08407044966673, -3.92699081698724, -3.76991118430775, -3.61283155162826, -3.45575191894877, -3.29867228626928, -3.14159265358979, -2.9845130209103, -2.82743338823081, -2.67035375555132, -2.51327412287183, -2.35619449019234, -2.19911485751286, -2.04203522483337, -1.88495559215388, -1.72787595947439, -1.5707963267949, -1.41371669411541, -1.25663706143592, -1.09955742875643, -0.942477796076938, -0.785398163397448, -0.628318530717959, -0.471238898038469, -0.314159265358979, -0.15707963267949, 0, 0.15707963267949, 0.314159265358979, 0.471238898038469, 0.628318530717959, 0.785398163397448, 0.942477796076938, 1.09955742875643, 1.25663706143592, 1.41371669411541, 1.5707963267949, 1.72787595947439, 1.88495559215388, 2.04203522483337, 2.19911485751286, 2.35619449019234, 2.51327412287183, 2.67035375555133, 2.82743338823081, 2.9845130209103, 3.14159265358979, 3.29867228626928, 3.45575191894877, 3.61283155162826, 3.76991118430775, 3.92699081698724, 4.08407044966673, 4.24115008234622, 4.39822971502571, 4.5553093477052, 4.71238898038469, 4.86946861306418, 5.02654824574367, 5.18362787842316, 5.34070751110265, 5.49778714378214, 5.65486677646163, 5.81194640914112, 5.96902604182061, 6.1261056745001, 6.28318530717959, 6.44026493985908, 6.59734457253857, 6.75442420521805, 6.91150383789754, 7.06858347057704, 7.22566310325652, 7.38274273593601, 7.5398223686155, 7.69690200129499, 7.85398163397448, 8.01106126665397, 8.16814089933346, 8.32522053201295, 8.48230016469244, 8.63937979737193, 8.79645943005142, 8.95353906273091, 9.1106186954104, 9.26769832808989, 9.42477796076938));sin(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsin_testsin4_4efd1ab76c9bc61aebe73d501519c71f() {
+ assertEval("argv <- list(c(-1.88495559215388, 0.628318530717959, -2.51327412287183, 5.02654824574367, 0.942477796076938, -2.51327412287183, 1.5707963267949, 2.19911485751286, 1.88495559215388, -0.942477796076938, 4.71238898038469, 1.25663706143592, -1.88495559215388, -6.91150383789755, 3.45575191894877, 0, 0, 2.82743338823081, 2.51327412287183, 1.88495559215388, 2.82743338823081, 2.51327412287183, 0.314159265358979, -6.28318530717959, 1.88495559215388, -0.314159265358979, -0.628318530717959, -4.71238898038469, -1.5707963267949, 1.25663706143592));sin(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsin_testsin5_e04e4807e4be85432755890ffeee5012() {
+ assertEval("argv <- list(structure(c(-0.416146836547142, -0.989992496600445, -0.653643620863612, 0.283662185463226, 0.960170286650366, -0.416146836547142, 0.283662185463226, -0.839071529076452, -0.275163338051597, 0.64691932232864, 0.283662185463226, -0.759687912858821, 0.914742357804531, -0.918282786212119, 0.776685982021631), .Dim = c(5L, 3L)));sin(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsin_testsin6_73cfc09ed0ecddd9cb2025432ac90614() {
+ assertEval("argv <- list(c(-0.560475646552213-0.710406563699301i, -0.23017748948328+0.25688370915653i, 1.55870831414912-0.24669187846237i, 0.070508391424576-0.347542599397733i, 0.129287735160946-0.951618567265016i, 1.71506498688328-0.04502772480892i, 0.460916205989202-0.784904469457076i, -1.26506123460653-1.66794193658814i, -0.686852851893526-0.380226520287762i, -0.445661970099958+0.918996609060766i, 1.22408179743946-0.57534696260839i, 0.359813827057364+0.607964322225033i, 0.40077145059405-1.61788270828916i, 0.11068271594512-0.055561965524539i, -0.555841134754075+0.519407203943462i, 1.78691313680308+0.30115336216671i, 0.497850478229239+0.105676194148943i, -1.96661715662964-0.64070600830538i, 0.701355901563686-0.849704346033582i, -0.47279140772793-1.02412879060491i, -1.06782370598685+0.11764659710013i, -0.217974914658295-0.947474614184802i, -1.02600444830724-0.49055744370067i, -0.72889122929114-0.256092192198247i, -0.62503926784926+1.84386200523221i, -1.68669331074241-0.65194990169546i, 0.837787044494525+0.235386572284857i, 0.153373117836515+0.077960849563711i, -1.13813693701195-0.96185663413013i, 1.25381492106993-0.0713080861236i, 0.42646422147681+1.44455085842335i, -0.295071482992271+0.451504053079215i, 0.895125661045022+0.04123292199294i, 0.878133487533042-0.422496832339625i, 0.82158108163749-2.05324722154052i, 0.68864025410009+1.13133721341418i, 0.55391765353759-1.46064007092482i, -0.061911710576722+0.739947510877334i, -0.30596266373992+1.90910356921748i, -0.38047100101238-1.4438931609718i, -0.694706978920513+0.701784335374711i, -0.207917278019599-0.262197489402468i, -1.26539635156826-1.57214415914549i, 2.16895596533851-1.51466765378175i, 1.20796199830499-1.60153617357459i, -1.12310858320335-0.5309065221703i, -0.40288483529908-1.4617555849959i, -0.466655353623219+0.687916772975828i, 0.77996511833632+2.10010894052567i, -0.08336906647183-1.28703047603518i, 0.253318513994755+0.787738847475178i, -0.028546755348703+0.76904224100091i, -0.042870457291316+0.332202578950118i, 1.36860228401446-1.00837660827701i, -0.225770985659268-0.119452606630659i, 1.51647060442954-0.28039533517025i, -1.54875280423022+0.56298953322048i, 0.584613749636069-0.372438756103829i, 0.123854243844614+0.976973386685621i, 0.215941568743973-0.374580857767014i, 0.37963948275988+1.05271146557933i, -0.5023234531093-1.04917700666607i, -0.33320738366942-1.26015524475811i, -1.01857538310709+3.2410399349424i, -1.07179122647558-0.41685758816043i, 0.303528641404258+0.298227591540715i, 0.448209778629426+0.636569674033849i, 0.053004226730504-0.483780625708744i, 0.922267467879738+0.516862044313609i, 2.05008468562714+0.36896452738509i, -0.491031166056535-0.215380507641693i, -2.30916887564081+0.06529303352532i, 1.00573852446226-0.03406725373846i, -0.70920076258239+2.12845189901618i, -0.688008616467358-0.741336096272828i, 1.0255713696967-1.09599626707466i, -0.284773007051009+0.037788399171079i, -1.22071771225454+0.31048074944314i, 0.18130347974915+0.436523478910183i, -0.138891362439045-0.458365332711106i, 0.00576418589989-1.06332613397119i, 0.38528040112633+1.26318517608949i, -0.370660031792409-0.349650387953555i, 0.644376548518833-0.865512862653374i, -0.220486561818751-0.236279568941097i, 0.331781963915697-0.197175894348552i, 1.09683901314935+1.10992028971364i, 0.435181490833803+0.084737292197196i, -0.325931585531227+0.754053785184521i, 1.14880761845109-0.49929201717226i, 0.993503855962119+0.214445309581601i, 0.54839695950807-0.324685911490835i, 0.238731735111441+0.094583528173571i, -0.627906076039371-0.895363357977542i, 1.36065244853001-1.31080153332797i, -0.60025958714713+1.99721338474797i, 2.18733299301658+0.60070882367242i, 1.53261062618519-1.25127136162494i, -0.235700359100477-0.611165916680421i, -1.02642090030678-1.18548008459731i));sin(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsin_testsin7_d46f4bfb8692b20bbe5df43fe244084f() {
+ assertEval("argv <- list(Inf);sin(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsinh_testsinh1_469b091771c279b99367edbba7b94d2f() {
+ assertEval("argv <- list(FALSE);sinh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsinh_testsinh2_0805f93651aa105e4f0b268d3355b3c5() {
+ assertEval("argv <- list(c(-3, -2.96984924623116, -2.93969849246231, -2.90954773869347, -2.87939698492462, -2.84924623115578, -2.81909547738693, -2.78894472361809, -2.75879396984925, -2.7286432160804, -2.69849246231156, -2.66834170854271, -2.63819095477387, -2.60804020100502, -2.57788944723618, -2.54773869346734, -2.51758793969849, -2.48743718592965, -2.4572864321608, -2.42713567839196, -2.39698492462312, -2.36683417085427, -2.33668341708543, -2.30653266331658, -2.27638190954774, -2.24623115577889, -2.21608040201005, -2.18592964824121, -2.15577889447236, -2.12562814070352, -2.09547738693467, -2.06532663316583, -2.03517587939699, -2.00502512562814, -1.9748743718593, -1.94472361809045, -1.91457286432161, -1.88442211055276, -1.85427135678392, -1.82412060301508, -1.79396984924623, -1.76381909547739, -1.73366834170854, -1.7035175879397, -1.67336683417085, -1.64321608040201, -1.61306532663317, -1.58291457286432, -1.55276381909548, -1.52261306532663, -1.49246231155779, -1.46231155778894, -1.4321608040201, -1.40201005025126, -1.37185929648241, -1.34170854271357, -1.31155778894472, -1.28140703517588, -1.25125628140704, -1.22110552763819, -1.19095477386935, -1.1608040201005, -1.13065326633166, -1.10050251256281, -1.07035175879397, -1.04020100502513, -1.01005025125628, -0.979899497487437, -0.949748743718593, -0.919597989949749, -0.889447236180905, -0.859296482412061, -0.829145728643216, -0.798994974874372, -0.768844221105528, -0.738693467336684, -0.708542713567839, -0.678391959798995, -0.648241206030151, -0.618090452261307, -0.587939698492463, -0.557788944723618, -0.527638190954774, -0.49748743718593, -0.467336683417086, -0.437185929648241, -0.407035175879397, -0.376884422110553, -0.346733668341709, -0.316582914572864, -0.28643216080402, -0.256281407035176, -0.226130653266332, -0.195979899497488, -0.165829145728643, -0.135678391959799, -0.105527638190955, -0.0753768844221105, -0.0452261306532664, -0.0150753768844223, 0.0150753768844218, 0.0452261306532664, 0.0753768844221105, 0.105527638190955, 0.135678391959799, 0.165829145728643, 0.195979899497488, 0.226130653266332, 0.256281407035176, 0.28643216080402, 0.316582914572864, 0.346733668341709, 0.376884422110553, 0.407035175879397, 0.437185929648241, 0.467336683417085, 0.49748743718593, 0.527638190954774, 0.557788944723618, 0.587939698492462, 0.618090452261306, 0.648241206030151, 0.678391959798995, 0.708542713567839, 0.738693467336683, 0.768844221105527, 0.798994974874372, 0.829145728643216, 0.85929648241206, 0.889447236180904, 0.919597989949748, 0.949748743718593, 0.979899497487437, 1.01005025125628, 1.04020100502513, 1.07035175879397, 1.10050251256281, 1.13065326633166, 1.1608040201005, 1.19095477386935, 1.22110552763819, 1.25125628140704, 1.28140703517588, 1.31155778894472, 1.34170854271357, 1.37185929648241, 1.40201005025126, 1.4321608040201, 1.46231155778894, 1.49246231155779, 1.52261306532663, 1.55276381909548, 1.58291457286432, 1.61306532663317, 1.64321608040201, 1.67336683417085, 1.7035175879397, 1.73366834170854, 1.76381909547739, 1.79396984924623, 1.82412060301507, 1.85427135678392, 1.88442211055276, 1.91457286432161, 1.94472361809045, 1.9748743718593, 2.00502512562814, 2.03517587939698, 2.06532663316583, 2.09547738693467, 2.12562814070352, 2.15577889447236, 2.18592964824121, 2.21608040201005, 2.24623115577889, 2.27638190954774, 2.30653266331658, 2.33668341708543, 2.36683417085427, 2.39698492462312, 2.42713567839196, 2.4572864321608, 2.48743718592965, 2.51758793969849, 2.54773869346734, 2.57788944723618, 2.60804020100502, 2.63819095477387, 2.66834170854271, 2.69849246231156, 2.7286432160804, 2.75879396984925, 2.78894472361809, 2.81909547738693, 2.84924623115578, 2.87939698492462, 2.90954773869347, 2.93969849246231, 2.96984924623116, 3));sinh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsink_testsink1_1f2f54c86246d0e139afd22163c76df3() {
+ assertEval("argv <- list(structure(2L, class = c('terminal', 'connection')), FALSE, TRUE, FALSE); .Internal(sink(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsink_testsink3_0d11da5ed60ecce0a15b0a8857faf2eb() {
+ assertEval("argv <- list(-1L, FALSE, FALSE, FALSE); .Internal(sink(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsinknumber_testsinknumber1_8599c5fbb4d4e97c1b0e82b6b0732efc() {
+ assertEval("argv <- list(FALSE); .Internal(sink.number(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsort_testsort1_79d6414d8526ee939b6eafee16761ed2() {
+ assertEval("argv <- list('x1', FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsort_testsort10_86aaa4288ff365a073e7d76723839ab2() {
+ assertEval("argv <- list(c(0, 1, 2, 3, 4, 5, 10, 20, 0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 10.5, 20.5), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsort_testsort11_daa9f7f33e05e6d032715e4940a6a86c() {
+ assertEval("argv <- list(c(-2.19467484932178, -1.98568521098019, -1.77669557263859, -1.567705934297, -1.35871629595541, -1.14972665761382, -0.940737019272223, -0.73174738093063, -0.522757742589037, -0.313768104247444, -0.104778465905851, 0.104211172435742, 0.313200810777335, 0.522190449118928, 0.731180087460521, 0.940169725802114, 1.14915936414371), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsort_testsort12_d4e253c96585f41d95e1bc8ee8a869db() {
+ assertEval("argv <- list(numeric(0), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsort_testsort13_62c5e3a80e40e017f73e998ecccba30b() {
+ assertEval("argv <- list(c(3.2170141852258, 1.05106928690785, 1.66357940564162, 2.06079422122964, 4.14833588122863, 2.06378765307826, 2.36276370659185, 3.24215147884243, 2.83953129834327, 3.30869483883634, 5.46733964221407, 2.03767398891014, 2.85680802025857, 2.64551821042465, 4.67467308700083, 2.3927927372781, 3.08019075639266, 3.94941127449109, 2.10368712421998, 4.81745347591039, 3.83804007564263, 2.08807105063803, 3.61685546922612, 2.94897051693531, 3.47550643216271, 3.07230246315272, 4.23279369694672, 1.81117727446505, 2.63966096297246, 2.91308698241298, 2.16647893531705, 2.12232261640219, 3.14429741959172, 3.03010252731164, 0.612934885417947, 4.20285111588776, 3.41200339615357, 5.57848503331671, 3.84747589821948, 2.71531835120639, 5.95966880712648, 5.99450368408389, 1.9435658438782, 3.6313096161238, 2.95103074153623, 3.34932880672239, 3.38982038873719, 1.90037719729933, 3.44786724041094, 4.91152502331018, 2.99818765603358, 2.99935094946993, 4.56084966650585, 4.06067390085133, 1.51378284178709, 3.39083463343057, 4.81582489484611, 4.57755401008752, 3.58222926398261, 3.88349846728127, 1.9653424479797, 3.46240922704975, 2.20782872498056, 2.70425959207144, 4.09788134394798, 2.02538454847724, 3.42919591104144, 3.59060969963992, 3.21718963000801, 4.98446648200379, 2.13993033159313, 3.76840792160398, 3.07334709271771, 2.90144541633446, 3.62636889402076, 2.14187706948445, 1.84882674364997, 2.66779678468496, 4.91403480992383, 3.2180424347809, 3.49371205839627, 2.97243102249084, 3.6327703921222, 2.21059811715123, 4.32018812673702, 3.74698292040973, 2.35582483747667, 3.21683090598037, 3.8786092796675, 3.72000864222298, 4.64421167604526, 2.54928990527353, 4.27841427565877, 4.1988256701096, 2.99979452826552, 2.18635096734649, 2.07313246928386, 3.62006461811335, 3.09115092644749, 4.94138032701983), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsort_testsort14_f165b750593324d78377df58a2d0333e() {
+ assertEval("argv <- list(c(2.17292368994844e-311, 4.34584737989688e-311, 8.69169475979376e-311, 1.73833895195875e-310, 3.4766779039175e-310, 6.953355807835e-310, 1.390671161567e-309, 2.781342323134e-309, 5.562684646268e-309, 1.1125369292536e-308, 2.2250738585072e-308, 4.4501477170144e-308, 8.90029543402881e-308, 1.78005908680576e-307, 2.2250738585072e-303, 2.2250738585072e-298, 1.79769313486232e+298, 1.79769313486232e+303, 2.24711641857789e+307, 4.49423283715579e+307, 8.98846567431158e+307, 1.79769313486232e+308, Inf, -Inf, Inf), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsort_testsort15_71f3b467028b5e516d8bb8ad10c8ce07() {
+ assertEval("argv <- list(structure(c(74, 68, 56, 57, 60, 71, 53, 61, 67, 70, 63, 49, 50, 58, 72, 69, 73, 48, 62, 65, 66, 64, 59, 76, 75, 40, 51, 81, 55, 42, 44, 54, 80, 77, 47, 82, 46, 43, 39, 45, 52, 41), .Dim = c(42L, 1L), .Dimnames = list(c('1', '2', '3', '4', '5', '8', '9', '10', '16', '17', '18', '22', '23', '24', '25', '31', '32', '33', '36', '37', '38', '40', '43', '46', '61', '74', '77', '79', '82', '83', '84', '107', '113', '129', '133', '149', '168', '174', '182', '186', '192', '217'), 'age')), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsort_testsort2_708546602286120991b8e1a9db8a212b() {
+ assertEval("argv <- list(1:10, TRUE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsort_testsort3_15d9d561e8cd727f825b2c14c3c4d2bd() {
+ assertEval("argv <- list(c(1L, 2L, 3L, 153L, 4L, 154L, 303L, 452L, 5L, 155L, 304L, 453L, 6L, 156L, 305L, 454L, 7L, 157L, 306L, 455L, 8L, 158L, 307L, 456L, 9L, 159L, 308L, 457L, 10L, 160L, 309L, 458L, 11L, 161L, 310L, 459L, 12L, 162L, 311L, 460L, 13L, 163L, 312L, 461L, 14L, 164L, 313L, 462L, 15L, 165L, 314L, 463L, 16L, 166L, 315L, 464L, 17L, 167L, 316L, 465L, 18L, 168L, 317L, 466L, 19L, 169L, 318L, 467L, 20L, 170L, 319L, 468L, 21L, 171L, 320L, 469L, 22L, 172L, 321L, 470L, 23L, 173L, 322L, 471L, 24L, 174L, 323L, 472L, 25L, 175L, 324L, 473L, 26L, 176L, 325L, 474L, 27L, 177L, 326L, 475L, 28L, 178L, 327L, 476L, 29L, 179L, 328L, 477L, 30L, 180L, 329L, 478L, 31L, 181L, 330L, 479L, 32L, 182L, 331L, 480L, 33L, 183L, 332L, 481L, 34L, 184L, 333L, 482L, 35L, 185L, 334L, 483L, 36L, 186L, 335L, 484L, 37L, 187L, 336L, 485L, 38L, 188L, 337L, 486L, 39L, 189L, 338L, 487L, 40L, 190L, 339L, 488L, 41L, 191L, 340L, 489L, 42L, 192L, 341L, 490L, 43L, 193L, 342L, 491L, 44L, 194L, 343L, 492L, 45L, 195L, 344L, 493L, 46L, 196L, 345L, 494L, 47L, 197L, 346L, 495L, 48L, 198L, 347L, 496L, 49L, 199L, 348L, 497L, 50L, 200L, 349L, 498L, 51L, 201L, 350L, 499L, 52L, 202L, 351L, 500L, 53L, 203L, 352L, 501L, 54L, 204L, 353L, 502L, 55L, 205L, 354L, 503L, 56L, 206L, 355L, 504L, 57L, 207L, 356L, 505L, 58L, 208L, 357L, 506L, 59L, 209L, 358L, 507L, 60L, 210L, 359L, 508L, 61L, 211L, 360L, 509L, 62L, 212L, 361L, 510L, 63L, 213L, 362L, 511L, 64L, 214L, 363L, 512L, 65L, 215L, 364L, 513L, 66L, 216L, 365L, 514L, 67L, 217L, 366L, 515L, 68L, 218L, 367L, 516L, 69L, 219L, 368L, 517L, 70L, 220L, 369L, 518L, 71L, 221L, 370L, 519L, 72L, 222L, 371L, 520L, 73L, 223L, 372L, 521L, 74L, 224L, 373L, 522L, 75L, 225L, 374L, 523L, 76L, 226L, 375L, 524L, 77L, 227L, 376L, 525L, 78L, 228L, 377L, 526L, 79L, 229L, 378L, 527L, 80L, 230L, 379L, 528L, 81L, 231L, 380L, 529L, 82L, 232L, 381L, 530L, 83L, 233L, 382L, 531L, 84L, 234L, 383L, 532L, 85L, 235L, 384L, 533L, 86L, 236L, 385L, 534L, 87L, 237L, 386L, 535L, 88L, 238L, 387L, 536L, 89L, 239L, 388L, 537L, 90L, 240L, 389L, 538L, 91L, 241L, 390L, 539L, 92L, 242L, 391L, 540L, 93L, 243L, 392L, 541L, 94L, 244L, 393L, 542L, 95L, 245L, 394L, 543L, 96L, 246L, 395L, 544L, 97L, 247L, 396L, 545L, 98L, 248L, 397L, 546L, 99L, 249L, 398L, 547L, 100L, 250L, 399L, 548L, 101L, 251L, 400L, 549L, 102L, 252L, 401L, 550L, 103L, 253L, 402L, 551L, 104L, 254L, 403L, 552L, 105L, 255L, 404L, 553L, 106L, 256L, 405L, 554L, 107L, 257L, 406L, 555L, 108L, 258L, 407L, 556L, 109L, 259L, 408L, 557L, 110L, 260L, 409L, 558L, 111L, 261L, 410L, 559L, 112L, 262L, 411L, 560L, 113L, 263L, 412L, 561L, 114L, 264L, 413L, 562L, 115L, 265L, 414L, 563L, 116L, 266L, 415L, 564L, 117L, 267L, 416L, 565L, 118L, 268L, 417L, 566L, 119L, 269L, 418L, 567L, 120L, 270L, 419L, 568L, 121L, 271L, 420L, 569L, 122L, 272L, 421L, 570L, 123L, 273L, 422L, 571L, 124L, 274L, 423L, 572L, 125L, 275L, 424L, 573L, 126L, 276L, 425L, 574L, 127L, 277L, 426L, 575L, 128L, 278L, 427L, 576L, 129L, 279L, 428L, 577L, 130L, 280L, 429L, 578L, 131L, 281L, 430L, 579L, 132L, 282L, 431L, 580L, 133L, 283L, 432L, 581L, 134L, 284L, 433L, 582L, 135L, 285L, 434L, 583L, 136L, 286L, 435L, 584L, 137L, 287L, 436L, 585L, 138L, 288L, 437L, 586L, 139L, 289L, 438L, 587L, 140L, 290L, 439L, 588L, 141L, 291L, 440L, 589L, 142L, 292L, 441L, 590L, 143L, 293L, 442L, 591L, 144L, 294L, 443L, 592L, 145L, 295L, 444L, 593L, 146L, 296L, 445L, 594L, 147L, 297L, 446L, 595L, 148L, 298L, 447L, 596L, 149L, 299L, 448L, 597L, 150L, 300L, 449L, 598L, 151L, 301L, 450L, 599L, 152L, 302L, 451L, 600L), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsort_testsort4_17d1f5a0c8ed312a0f77f15c4f800fb4() {
+ assertEval("argv <- list(c('graphics', 'lattice', 'stats'), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsort_testsort5_3aea1d38e3b41d4c58dc9591ad995f14() {
+ assertEval("argv <- list(1:54, FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsort_testsort6_dc22613c6235ffad38daeae76c3318d4() {
+ assertEval("argv <- list(c(8.41842881182087, 0.633658419345243, 0.55014003120899, 0.264811823419969, 2.45100807149625e-16, 1.4406901715276e-16), TRUE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsort_testsort7_73facd058d48796b61d1c6d3fe37ddb2() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsort_testsort8_a50114ea6a8caa0932904ee06bcb3a33() {
+ assertEval("argv <- list(c(12784, 12815, 12843, 12874, 12904, 12935, 12965, 12996, 13027, 13057, 13088, 13118, 13149, 13180, 13208, 13239, 13269, 13300, 13330, 13361, 13392, 13422, 13453, 13483, 13514, 13545, 13573, 13604, 13634, 13665, 13695, 13726, 13757, 13787, 13818, 13848, 13879, 13910, 13939, 13970, 14000, 14031, 14061, 14092, 14123, 14153, 14184, 14214, 14245, 14276), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsort_testsort9_824c84a604cb744110ed9255ad9557e0() {
+ assertEval("argv <- list(c('M.user', 'Soft'), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsplit_testsplit1_20fa8ad195c599b35d20771e4afa647a() {
+ assertEval("argv <- list(1:6, structure(1:2, .Label = c('1', '2'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsplit_testsplit10_fe1259d1d240aecaadf3834c9389863a() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('1', '2', '3', '4'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsplit_testsplit12_07b457009dad5981bca3a7b1d8f8f959() {
+ assertEval("argv <- list(structure(c(95.7845839266016, 111.117917259935, 120.284583926602, 77.019531700964, 96.9521364368474, 112.285469770181, 121.452136436847, 77.019531700964, 96.9521364368474, 112.285469770181, 121.452136436847, 78.1870842112099, 98.1196889470933, 113.453022280427, 122.619688947093, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 78.1870842112099, 98.1196889470933, 113.453022280427, 122.619688947093, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 78.1870842112099, 98.1196889470933, 113.453022280427, 122.619688947093, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 78.1870842112099, 98.1196889470933, 113.453022280427, 122.619688947093, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 78.1870842112099, 98.1196889470933, 113.453022280427, 122.619688947093, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339), .Dim = c(71L, 1L), .Dimnames = list(c('2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72'), NULL)), structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('1', '2', '3', '4'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsplit_testsplit14_d5f5ee939bde53323df5d127bf51a728() {
+ assertEval("argv <- list(structure(c(123.48457192908, 239.059434652297, 290.055338401838, 18.397281603467, 6.57585722655537, 0.670931786731845, 0.178466148156965, 0.245410750178149, 0.363167328274208, 0.194808268742596, 2172.67583033103, 8.91763605923317e+38), .Dim = c(1L, 12L), .Dimnames = list(NULL, c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = '1', class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsplit_testsplit15_894df85ef61c740797eff5749f2f7e96() {
+ assertEval("argv <- list(character(0), structure(integer(0), .Label = character(0), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsplit_testsplit16_9303f5e309a42a081e329ed5895ee7a1() {
+ assertEval("argv <- list(structure(c(47.432, 12.482), .Names = c('(Intercept)', 'group2')), structure(1:2, .Label = c('0', '1'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsplit_testsplit17_48018aa2c6bcbf964501ba64840f800e() {
+ assertEval("argv <- list(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 26.3011774151224, 2.485452029809, 7.15323925419351, 16.761819986295, 10.2645644917686, 0.758337657329402, 29.4935619829433, 12.665970880074, 2.27782676164194e-08, 0.115876279686418), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L), .Label = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23', '25', '27', '29', '31', '33', '35', '37', '39', '41'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsplit_testsplit2_77b862a4544358c0eeebb5e4cfdacb12() {
+ assertEval("argv <- list(structure(c(-1.13864415195445, 0.574433648632919, 0.61125743366192, 0.291104607198021, 1.44367450704693, 0.408616385050392, -0.252815027721455, 0.73544465026571, -0.711029326417947, -0.611820918993561, -0.963259276248408, -0.28935033673839, -0.482346616963731, 0.575284398820533, 0.0664802498883062, 0.0889008730409177, -0.527009741835806, -0.572160487726669, 0.458433701366337, 0.0259549922279207, 0.79246010222197, 0.200856719794408, 0.681708382019133, 1.24959713166139, 2.28504683598586, 0.885201117877485, 0.275047494865858, 0.0611635446204713, -0.226340664609402, -0.701634984067551, -1.36331112409512, -0.470720710127998, 0.0116712292760789, 0.680960771805182, 1.25010637890252, -0.168484448953506, -0.703880448859559, -0.342493773069341, -0.359950801091045, 0.187018301421814, 0.332611568778467, 0.418088885897922, 1.52526747601546, 1.23881025318897, 1.97893910443604, 1.67980257496383, -0.0423836378777035, -0.085940264442189, 0.0751591419566941, 1.33615888669544, 1.29143414265875, 0.211686019646981, 0.107754613497605, -0.842122877395922, -0.363550334633855, -1.04260396788242, -1.00216202750311, -0.725219786582336, -0.702075395338802, -0.0588517433215815, 0.676181221812652, 0.606054389584641, -0.0722001122493283, -0.565579974058951, -1.50420998542363, -1.38835023347894, -1.6387526999868, -1.22317617387598, -2.6439685322602, -1.50311594814139, 0.58539278534518, 0.476423420506994, -0.229810354321508, -0.669629539423225, -0.500767918117353, -1.30780681405878, -0.0658147956438969, 0.619743292251259, 0.947409254626009, 0.137968713284014, -0.0705143536229389, -0.316245167388448, 0.423768217540825, -1.77132723836955, 0.437524374017483, 1.05217040293853, 1.29145821945076, 0.189519814277623, 0.405463210651828, -1.10579240546022, 0.470126971026959, 1.3013241742778, 1.57690948154138, 0.836753145709701, -0.0990436481848584, 0.305059193206195, 0.722542224965483, 0.497020187014643, -0.798519685959293, -0.162044448918511, -0.268976403560686, 0.471344909208507, 1.07960447064393, 0.816448434674936, 1.01857006703316, -0.19352270657549, 0.193745914189151, -0.0118346974247015, 0.515110447770272, 1.29117007883295, 0.484844437955959, 0.357506193819553, -1.95817055695569, -1.62102859205691, -2.13900473718215, -2.19173201733318, -1.86372596557808, -1.18864210270607, -1.19890597040604, 0.432503235072499, 0.594410727524479, 1.21432538936706, 2.15795981275539, 1.31528364302187, 0.38422055227912, 0.786869292659675, -0.703717985086569, -0.535651668024763, 0.34627858116184, 0.537117318247469, 0.901014803953916, 1.2151594352426, 0.827351473348557, -0.682186392255085, -1.33342351753519, -1.26893821314864, -1.4632463728941, -1.64736130434257, -1.21073183651285, -0.643396605364174), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100', '101', '102', '103', '104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', '115', '116', '117', '118', '119', '120', '121', '122', '123', '124', '125', '126', '127', '128', '129', '130', '131', '132', '133', '134', '135', '136', '137', '138', '139', '140')), structure(c(9L, 9L, 9L, 9L, 9L, 9L, 9L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 17L, 17L, 17L, 17L, 17L, 17L, 17L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 12L, 12L, 12L, 12L, 12L, 12L, 12L), .Label = c('10', '8', '2', '6', '3', '5', '9', '7', '1', '4', '17', '20', '11', '12', '16', '13', '14', '18', '15', '19'), class = c('ordered', 'factor'))); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsplit_testsplit3_2110887bdc67a33cdb74f2d637eba0d9() {
+ assertEval("argv <- list(structure(c(1034.46153846154, 480.076923076923, 504.692307692308, 480.076923076923, 0, 0, 0, 0, 480.076923076923, 517.230769230769, 444.307692307692, 819.846153846154, 945.230769230769, 542.769230769231, 0, 0, 0, 1824.30769230769, 444.307692307692, 912.153846153846, 0, 0, 1514.07692307692, 0, 936, 0), .Dim = 26L, .Dimnames = list(c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '2', '2', '2', '2', '2', '2', '2', '2', '2', '2', '2', '2', '2'))), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('1', '2'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsplit_testsplit4_9ebbe941bcd9318354ba4b8b72328408() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 1.48219693752374e-323, 0, 0, 0, 0, 0), .Dim = c(1L, 12L), .Dimnames = list(NULL, c('1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1', '1'))), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = '1', class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsplit_testsplit5_9a320b61d6ec695f1a620a875b64d959() {
+ assertEval("argv <- list(c(1, 3, 5, 7, 8, 3, 5, NA, 4, 5, 7, 9), structure(c(8L, 6L, 3L, 2L, NA, 5L, 1L, 4L, 7L, 3L, NA, NA), .Label = c('0', '2', '6', '8', '15', '22', '29', '35'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsplit_testsplit6_8c499e0bca4e56de70822007298be8df() {
+ assertEval("argv <- list(c(41L, 36L, 12L, 18L, NA, 28L, 23L, 19L, 8L, NA, 7L, 16L, 11L, 14L, 18L, 14L, 34L, 6L, 30L, 11L, 1L, 11L, 4L, 32L, NA, NA, NA, 23L, 45L, 115L, 37L, NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 135L, 49L, 32L, NA, 64L, 40L, 77L, 97L, 97L, 85L, NA, 10L, 27L, NA, 7L, 48L, 35L, 61L, 79L, 63L, 16L, NA, NA, 80L, 108L, 20L, 52L, 82L, 50L, 64L, 59L, 39L, 9L, 16L, 78L, 35L, 66L, 122L, 89L, 110L, NA, NA, 44L, 28L, 65L, NA, 22L, 59L, 23L, 31L, 44L, 21L, 9L, NA, 45L, 168L, 73L, NA, 76L, 118L, 84L, 85L, 96L, 78L, 73L, 91L, 47L, 32L, 20L, 23L, 21L, 24L, 44L, 21L, 28L, 9L, 13L, 46L, 18L, 13L, 24L, 16L, 13L, 23L, 36L, 7L, 14L, 30L, NA, 14L, 18L, 20L), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L), .Label = c('1', '2', '3', '4', '5'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsplit_testsplit7_c8635a0f41744cd3be693fd1f670d24b() {
+ assertEval("argv <- list(structure(c('Sex/(Age + Eth * Lrn)', 'Sex + Sex:Age + Sex:Eth + Sex:Lrn + Sex:Eth:Lrn + Sex:Age:Lrn', 'Sex + Sex:Age + Sex:Eth + Sex:Lrn + Sex:Eth:Lrn + Sex:Age:Lrn + Sex:Age:Eth + Sex:Age:Eth:Lrn', '1.597991', '1.686899', '1.928360', '132', '128', '118', '-1063.025', '-1055.398', '-1039.324', '', '1 vs 2', '2 vs 3', '', ' 4', '10', '', ' 7.627279', '16.073723', '', '0.10622602', '0.09754136'), .Dim = c(3L, 8L)), structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L, 4L, 4L, 4L, 5L, 5L, 5L, 6L, 6L, 6L, 7L, 7L, 7L, 8L, 8L, 8L), .Label = c('1', '2', '3', '4', '5', '6', '7', '8'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsplit_testsplit8_fb4094f696d5528d8ccfeb9decc633bf() {
+ assertEval("argv <- list(c(0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), structure(c(60L, 60L, 60L, 60L, 61L, 61L, 61L, 61L, 62L, 62L, 62L, 62L, 63L, 63L, 63L, 63L, 64L, 64L, 64L, 64L, 65L, 65L, 65L, 65L, 66L, 66L, 66L, 66L, 67L, 67L, 67L, 67L, 68L, 68L, 68L, 68L, 69L, 69L, 69L, 69L, 70L, 70L, 70L, 70L, 71L, 71L, 71L, 71L, 72L, 72L, 72L, 72L, 73L, 73L, 73L, 73L, 74L, 74L, 74L, 74L, 75L, 75L, 75L, 75L, 76L, 76L, 76L, 76L, 77L, 77L, 77L, 77L, 78L, 78L, 78L, 78L, 79L, 79L, 79L, 79L, 80L, 80L, 80L, 80L, 81L, 81L, 81L, 81L, 82L, 82L, 82L, 82L, 83L, 83L, 83L, 83L, 84L, 84L, 84L, 84L, 85L, 85L, 85L, 85L, 86L, 86L, 86L, 86L, 87L, 87L, 87L, 87L, 88L, 88L, 88L, 88L, 89L, 89L, 89L, 89L, 90L, 90L, 90L, 90L, 91L, 91L, 91L, 91L, 92L, 92L, 92L, 92L, 93L, 93L, 93L, 93L, 94L, 94L, 94L, 94L, 95L, 95L, 95L, 95L, 96L, 96L, 96L, 96L, 97L, 97L, 97L, 97L, 98L, 98L, 98L, 98L, 99L, 99L, 99L, 99L, 100L, 100L, 100L, 100L, 101L, 101L, 101L, 101L, 102L, 102L, 102L, 102L, 103L, 103L, 103L, 103L, 104L, 104L, 104L, 104L, 105L, 105L, 105L, 105L, 106L, 106L, 106L, 106L, 107L, 107L, 107L, 107L, 108L, 108L, 108L, 108L, 109L, 109L, 109L, 109L, 110L, 110L, 110L, 110L, 111L, 111L, 111L, 111L, 112L, 112L, 112L, 112L, 113L, 113L, 113L, 113L, 114L, 114L, 114L, 114L, 115L, 115L, 115L, 115L, 116L, 116L, 116L, 116L, 117L, 117L, 117L, 117L, 118L, 118L, 118L, 118L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L), .Label = c('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100', '101', '102', '103', '104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', '115', '116', '117'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsplit_testsplit9_1b57cbe8f915a71b63e9b370cb6ce3da() {
+ assertEval("argv <- list(structure(c(NA, NA), .Dim = 1:2), structure(1:2, .Label = c('1', '2'), class = 'factor')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf1_616a46b4d84336c3102cffdafbe6120b() {
+ assertEval("argv <- list('%s is not TRUE', 'identical(fxy, c(1, 2, 3))'); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf10_6172749ae549a836aadb4dd013b21de5() {
+ assertEval("argv <- list('%.0f%% said yes (out of a sample of size %.0f)', 66.666, 3); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf11_d23addb4a3134230d0dc4278eb1922e5() {
+ assertEval("argv <- list('%1$d %1$x %1$X', 0:15); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf12_f4d7713d7b5a3f4a6b1a93394506cd3c() {
+ assertEval("argv <- list('%03o', 1:255); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf13_478f180082d0ac4a879d1a33ff328f6b() {
+ assertEval("argv <- list('%d y value <= 0 omitted from logarithmic plot', 1L); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf14_79114a50f7b2d99eaf7f123f770951a5() {
+ assertEval("argv <- list('%o', 1:255); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf15_abe68cd9419b74554ccc9eefb2a5e000() {
+ assertEval("argv <- list('%s-class.Rd', structure('foo', .Names = 'foo')); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf16_654fd9520033d51a810841e76a3331df() {
+ assertEval("argv <- list('checkRd: (%d) %s', -3, 'evalSource.Rd:157: Unnecessary braces at ‘{\'sourceEnvironment\'}’'); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf17_5c2dcbe3c6acc9fac8529456e762629d() {
+ assertEval("argv <- list('tools:::check_compiled_code(\'%s\')', '/home/lzhao/hg/r-instrumented/library/foreign'); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf18_7c78033017935e48884a106c97df1044() {
+ assertEval("argv <- list('%5g', structure(c(18, 18, 0, 14, 4, 12, 12, 0, 4, 8, 26, 23, 3, 18, 5, 8, 5, 3, 0, 5, 21, 0, 21, 0, 0), .Dim = c(5L, 5L), .Dimnames = list(NULL, c('', '', '', '', '')))); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf19_8449b4ebb95f08588a64017df0462c09() {
+ assertEval("argv <- list('%G', 3.14159265358979e-06); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf2_6f783f16dea8a9ca3ce36d08b5e20bd2() {
+ assertEval("argv <- list('%1.0f', 3.14159265358979); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf3_4500fd7dacd66c3f6fa9f34111311bc6() {
+ assertEval("argv <- list('min 10-char string '%10s'', c('a', 'ABC', 'and an even longer one')); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf4_4ba398000579f50256b550139ded0f38() {
+ assertEval("argv <- list('%o', integer(0)); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf5_64e1e861b692ffee9902ef9fbea83743() {
+ assertEval("argv <- list('%*s', 1, ''); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf6_42afa56096704b74cdced3cc2cefb49d() {
+ assertEval("argv <- list('p,L,S = (%2d,%2d,%2d): ', TRUE, TRUE, FALSE); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf7_a11bbe5e012da496a5b842776046cc72() {
+ assertEval("argv <- list('p,L,S = (%2d,%2d,%2d): ', TRUE, FALSE, NA); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf8_06b6d94104e933b38193dbd93001fbf6() {
+ assertEval("argv <- list('plot_%02g', 1L); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsprintf_testsprintf9_034a1cf6e1acbf980f45240da29bea2e() {
+ assertEval("argv <- list('tools:::.createExdotR(\'%s\', \'%s\', silent = TRUE, use_gct = %s, addTiming = %s)', structure('KernSmooth', .Names = 'Package'), '/home/lzhao/hg/r-instrumented/library/KernSmooth', FALSE, FALSE); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsqrt_testsqrt10_c5fe6f580d109ac9f509c00e53c05393() {
+ assertEval("argv <- list(c(6L, 5L, 4L, 3L, 2L, 1L, 0L, -1L, -2L, -3L, -4L));sqrt(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsqrt_testsqrt11_9908a933b068d0de08d8bc00c66b9f2d() {
+ assertEval("argv <- list(0+1i);sqrt(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsqrt_testsqrt3_fb6096a75af46e592011add4412ad05a() {
+ assertEval("argv <- list(-17+0i);sqrt(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsqrt_testsqrt6_96cdf42e22d6df783b27e607fa15b84a() {
+ assertEval("argv <- list(structure(c(0.0101832147522745, 0.0107298799092166, 0.0605795647466432, 7.03601392438852e-05), .Names = c('ar1', 'ar2', 'intercept', 'trend')));sqrt(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsqrt_testsqrt7_300e338c3cadecc8daa738b60f0e5d37() {
+ assertEval("argv <- list(structure(1:10, id = 'test 1', class = structure('withId', package = '.GlobalEnv')));sqrt(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsqrt_testsqrt8_dcf2d8f698d67251623afa20dbd58a94() {
+ assertEval("argv <- list(structure(c(660, 543, 711, 500, 410, 309, 546, 351, 269, 203, 370, 193, 181, 117, 243, 136, 117, 87, 154, 84), .Dim = 4:5, .Dimnames = list(c('Rural Male', 'Rural Female', 'Urban Male', 'Urban Female'), c('70-74', '65-69', '60-64', '55-59', '50-54'))));sqrt(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsqrt_testsqrt9_9eb7089691129bd4fb7824790db35d24() {
+ assertEval("argv <- list(c(6L, 5L, 4L, 3L, 2L, 1L, 0L, NA, NA, NA, NA));sqrt(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstderr_teststderr1_7a012cad709ef080feb5977f7c4e5c4e() {
+ assertEval(" .Internal(stderr())");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstdin_teststdin1_0f1fda4fe13230393e2f22a90c351509() {
+ assertEval(" .Internal(stdin())");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstoragemodeassign_teststoragemodeassign1_6272e209857a868cc2dd7de3377492a9() {
+ assertEval("argv <- list(structure(c(4L, 5L, 10L, 9L, 13L, 13L, 12L, 15L, 18L, 19L, 22L, 27L, 28L, 24L, 27L, 28L, 30L, 31L, 32L, 36L, 28L, 32L, 35L, 33L, 38L, 41L, 38L, 38L, 32L, 34L, 44L, 44L, 44L, 46L, 47L, 49L, 50L, 53L, 52L, 55L, 54L, 60L, 63L, 86L, 85L, 85L, 78L, 74L, 97L, 98L, 98L, 99L, 99L, 101L, 108L, 110L, 108L, 111L, 115L, 117L, 70L, 77L, 83L, 61L, 69L, 78L, 66L, 58L, 64L, 69L, 66L, 61L, 76L, 72L, 64L, 53L, 63L, 59L, 77L, 49L, 69L, 88L, 75L, 61L, 65L, 74L, 72L, 76L, 58L, 55L, 60L, 52L, 60L, 61L, 72L, 147L, 149L, 153L, 154L, 151L, 150L, 145L, 143L, 143L, 141L, 156L, 149L, 143L, 142L, 149L, 152L, 142L, 144L, 152L, 155L, 124L, 136L, 139L, 132L, 115L, 96L, 94L, 96L, 122L, 116L, 124L, 119L, 128L, 115L, 111L, 111L, 116L, 126L, 117L, 115L, 4L, 12L, 21L, 15L, 15L, 16L, 18L, 13L, 20L, 21L, 23L, 25L, 27L, 31L, 30L), .Dim = c(75L, 2L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75'), c('x', 'y'))), value = 'double');`storage.mode<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstoragemodeassign_teststoragemodeassign3_49f221134e0cad67f91e55148990beae() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE), .Dim = c(4L, 4L)), value = 'integer');`storage.mode<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstoragemodeassign_teststoragemodeassign4_84410a9ae1c42022d71f755b12c62dc5() {
+ assertEval("argv <- list(structure(c(2, 0, 1, 2), .Dim = c(2L, 2L), .Dimnames = list(c('A', 'B'), c('A', 'B'))), value = 'logical');`storage.mode<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstoragemodeassign_teststoragemodeassign5_44f1213afd959902c1564613980ca8b7() {
+ assertEval("argv <- list(structure(c(2.5, 0, 0.75, 0, 2.5, -2.5, 0.75, -2.5, 2.8), .Dim = c(3L, 3L)), value = 'double');`storage.mode<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrptime_teststrptime1_4c7df73e00bf777919be527eb390825b() {
+ assertEval("argv <- list('2008-04-22 09:45', '%Y-%m-%d', ''); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrptime_teststrptime10_6dc9bd093153d9606f4e578147b11345() {
+ assertEval("argv <- list(c('1937/01/01', '1916/01/01', '1913/01/01', '1927/01/01', '1947/01/01', '1913/01/01', '1917/01/01', '1923/01/01', '1921/01/01', '1926/01/01', '1920/01/01', '1915/01/01', '1914/01/01', '1914/01/01', '1914/01/01', '1919/01/01', '1948/01/01', '1911/01/01', '1909/01/01', '1913/01/01', '1925/01/01', '1926/01/01', '1910/01/01', '1917/01/01', '1936/01/01', '1938/01/01', '1960/01/01', '1915/01/01', '1919/01/01', '1924/01/01', '1914/01/01', '1905/01/01', '1921/01/01', '1929/01/01', '1926/01/01', '1921/01/01', '1908/01/01', '1928/01/01', '1919/01/01', '1921/01/01', '1925/01/01', '1934/01/01', '1927/01/01', '1928/01/01', '1934/01/01', '1922/01/01', '1923/01/01', '1915/01/01', '1934/01/01', '1925/01/01', '1922/01/01', '1930/01/01', '1924/01/01', '1923/01/01', '1919/01/01', '1932/01/01', '1930/01/01', '1923/01/01', '1930/01/01', '1922/01/01', '1919/01/01', '1932/01/01', '1939/01/01', '1923/01/01', '1920/01/01', '1919/01/01', '1952/01/01', '1927/01/01', '1924/01/01', '1919/01/01', '1925/01/01', '1945/01/01', '1916/01/01', '1943/01/01', '1920/01/01', '1920/01/01', '1931/01/01', '1924/01/01', '1919/01/01', '1926/01/01', '1920/01/01', '1942/01/01', '1919/01/01', '1930/01/01', '1925/01/01', '1924/01/01', '1926/01/01', '1918/01/01', '1922/01/01', '1921/01/01', '1925/01/01', '1928/01/01', '1925/01/01', '1929/01/01', '1933/01/01', '1947/01/01', '1950/01/01', '1945/01/01', '1924/01/01', '1939/01/01', '1924/01/01', '1933/01/01', '1928/01/01'), '%Y/%m/%d', ''); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrptime_teststrptime2_9b83a552c56f01b311df72a542a966a5() {
+ assertEval("argv <- list(character(0), '%X', ''); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrptime_teststrptime3_c2b5ec483173d04d6fcc728697c0c4dc() {
+ assertEval("argv <- list('1970-01-01', '%Y-%m-%d %H:%M', 'GMT'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrptime_teststrptime4_eba0c25175f23eebff50129ca141e271() {
+ assertEval("argv <- list('2007-11-06', '%Y-%m-%d', 'GMT'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrptime_teststrptime5_1490fa43b30ec006bc9b16cd90ea411c() {
+ assertEval("argv <- list('1970-01-01', '%Y-%m-%d', 'GMT'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrptime_teststrptime6_8c4c142eca3d59458c4be09920bda7a8() {
+ assertEval("argv <- list(c('2007-11-06', NA), '%Y-%m-%d', ''); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrptime_teststrptime7_0fa492444ae1aeaf2cdc57996aef2f9e() {
+ assertEval("argv <- list(c('20010101', NA, NA, '20041026'), '%Y%m%d', 'GMT'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrptime_teststrptime8_12cdb7fc9655b4169babb42de4ea6e4a() {
+ assertEval("argv <- list('2002-02-02 02:02', '%Y-%m-%d %H:%M', ''); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrptime_teststrptime9_14974f52a3b2e223c70762d0ba1f17fa() {
+ assertEval("argv <- list(c('1890/01/01', '1891/01/01', '1892/01/01', '1893/01/01', '1894/01/01', '1895/01/01'), '%Y/%m/%d', ''); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrsplit_teststrsplit10_2cea016d569d5b424eb5691f4e7f8a05() {
+ assertEval("argv <- list('A shell of class documentation has been written to the file './myTst2/man/DocLink-class.Rd'.\n', '[ \t\n]', FALSE, TRUE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrsplit_teststrsplit11_c85911589c86839478dfc0ab22a937a6() {
+ assertEval("argv <- list(structure('pkgB', .Names = 'name'), '_', TRUE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrsplit_teststrsplit14_851cbb2463ab3826c77855238c5eb345() {
+ assertEval("argv <- list(c('* Edit the help file skeletons in 'man', possibly combining help files for multiple functions.', '* Edit the exports in 'NAMESPACE', and add necessary imports.', '* Put any C/C++/Fortran code in 'src'.', '* If you have compiled code, add a useDynLib() directive to 'NAMESPACE'.', '* Run R CMD build to build the package tarball.', '* Run R CMD check to check the package tarball.', '', 'Read \'Writing R Extensions\' for more information.'), '\n[ \t\n]*\n', FALSE, TRUE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrsplit_teststrsplit15_8b9de2a3de033f8bab773cbd9fb71d5a() {
+ assertEval("argv <- list(' \036 Complex arithmetic sometimes warned incorrectly about producing NAs when there were NaNs in the input.', '[ \t\n]', FALSE, TRUE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrsplit_teststrsplit16_2ea3c44cb1145cff944fd528beddda05() {
+ assertEval("argv <- list(structure(c('1', '2', '3', '4', '5', '1', '2', '3', '4', '5'), .Dim = 10L), '.', TRUE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrsplit_teststrsplit3_2310c2de65f0ea486d0573a2bc3d43a9() {
+ assertEval("argv <- list(' \036 isSeekable() now returns FALSE on connections which have non-default encoding. Although documented to record if ‘in principle’ the connection supports seeking, it seems safer to report FALSE when it may not work.', '[ \t\n]', FALSE, TRUE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrsplit_teststrsplit5_ed8c5430f03372dab6547993fa67a30f() {
+ assertEval("argv <- list('R CMD check now gives an error if the R code in a vignette fails to\nrun, unless this is caused by a missing package.\n\n\036R CMD check now unpacks tarballs in the same way as R CMD INSTALL,\nincluding making use of the environment variable R_INSTALL_TAR to\noverride the default behaviour.\n\n\036R CMD check performs additional code analysis of package startup\nfunctions, and notifies about incorrect argument lists and\n(incorrect) calls to functions which modify the search path or\ninappropriately generate messages.\n\n\036R CMD check now also checks compiled code for symbols corresponding\nto functions which might terminate R or write to stdout/stderr\ninstead of the console.\n\n\036R CMD check now uses a pdf() device when checking examples (rather\nthan postscript()).\n\n\036R CMD check now checks line-endings of makefiles and C/C++/Fortran\nsources in subdirectories of src as well as in src itself.\n\n\036R CMD check now reports as a NOTE what look like methods documented\nwith their full names even if there is a namespace and they are\nexported. In almost all cases they are intended to be used only as\nmethods and should use the \\method markup. In the other rare cases\nthe recommended form is to use a function such as coefHclust which\nwould not get confused with a method, document that and register it\nin the NAMESPACE file by s3method(coef, hclust, coefHclust).\n\n\036The default for the environment variable _R_CHECK_COMPACT_DATA2_ is\nnow true: thus if using the newer forms of compression introduced\nin R 2.10.0 would be beneficial is now checked (by default).\n\n\036Reference output for a vignette can be supplied when checking a\npackage by R CMD check: see ‘Writing R Extensions’.\n\n\036R CMD Rd2dvi allows the use of LaTeX package inputenx rather than\ninputenc: the value of the environment variable RD2DVI_INPUTENC is\nused. (LaTeX package inputenx is an optional install which\nprovides greater coverage of the UTF-8 encoding.)\n\n\036Rscript on a Unix-alike now accepts file names containing spaces\n(provided these are escaped or quoted in the shell).\n\n\036R CMD build on a Unix-alike (only) now tries to preserve dates on\nfiles it copies from its input directory. (This was the\nundocumented behaviour prior to R 2.13.0.)', '\n\036', TRUE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrsplit_teststrsplit6_52315502093be9aa623781f2288b2981() {
+ assertEval("argv <- list(structure('Formal Methods and Classes', .Names = 'Title'), '\n\n', TRUE, FALSE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrsplit_teststrsplit7_c1054c01a38a718df1a22d3dc6da5081() {
+ assertEval("argv <- list('', '', FALSE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrsplit_teststrsplit8_70a186f7f9c91711f9c72b14cb9202c1() {
+ assertEval("argv <- list('The \\usage entries for S3 methods should use the \\method markup and not their full name.\n', '\n', FALSE, FALSE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrtoi_teststrtoi1_932126fb56d63128a8fff131e80fdb80() {
+ assertEval("argv <- list('0777', 8L); .Internal(strtoi(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrtoi_teststrtoi2_3cac81ee83f43b33cebe79355169ea6f() {
+ assertEval("argv <- list('700', 8L); .Internal(strtoi(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrtoi_teststrtoi3_bcac6ad0b7bf34c4b9590e8a13249944() {
+ assertEval("argv <- list(c('0xff', '077', '123'), 0L); .Internal(strtoi(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrtoi_teststrtoi4_dcd5e78ea79fa15d211f9734f3c225e8() {
+ assertEval("argv <- list('1.3', 16L); .Internal(strtoi(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrtoi_teststrtoi5_6a90971d9e7f4ddd6a5de0999d87b8de() {
+ assertEval("argv <- list(character(0), 8L); .Internal(strtoi(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrtrim_teststrtrim1_811a30186b585d44bd04bb5e87aff846() {
+ assertEval("argv <- list(c('\'time\'', '\'status\''), 128); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrtrim_teststrtrim2_c68d207f987c1402c8eb1953a9b3b36c() {
+ assertEval("argv <- list('2014-03-17 14:47:20', 8); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrtrim_teststrtrim3_76b20a7a9704fff76946a10d219a4b1a() {
+ assertEval("argv <- list(c('\'1\'', '\'2\'', NA), 128); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrtrim_teststrtrim4_8fbfd0e4371659b597292b7cf96c532a() {
+ assertEval("argv <- list(c('\'gray17\'', '\'grey17\''), 128); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrtrim_teststrtrim5_23323d6e7038b663d2b84cb0665e70b9() {
+ assertEval("argv <- list(structure('\'@CRAN@\'', .Names = 'CRAN'), 128); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrtrim_teststrtrim6_136a6c56cb2710373560578e3ee15b23() {
+ assertEval("argv <- list('FALSE', FALSE); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinstrtrim_teststrtrim8_8fdaa44e7c9944acc05b068ca7ede50a() {
+ assertEval("argv <- list(character(0), 40L); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsub_testsub10_3dab460e01eaf725e46a8408c4c76c1a() {
+ assertEval("argv <- list('^[[:space:]]*([[:alnum:].]+).*$', '\\1', structure('MASS', .Names = 'Suggests'), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsub_testsub12_5d6dd00c6b4fc5065d30c622287a6304() {
+ assertEval("argv <- list('.* : ', '', structure('Error in rnorm(2, c(1, NA)) : (converted from warning) NAs produced\n', class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(2, c(1, NA)))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsub_testsub13_490587bd4ba55fcedeb99bf454df1f51() {
+ assertEval("argv <- list('.* : ', '', structure('Error in rexp(2, numeric()) : (converted from warning) NAs produced\n', class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rexp(2, numeric()))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsub_testsub14_c09fee904dc697fe3d2484f463e0cadf() {
+ assertEval("argv <- list('.* : ', '', structure('Error in rnorm(2, numeric()) : (converted from warning) NAs produced\n', class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(2, numeric()))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsub_testsub15_16a95fbfdc69cd2c525b9b7cf1506b7c() {
+ assertEval("argv <- list('.* : ', '', structure('Error in rnorm(1, sd = Inf) : (converted from warning) NAs produced\n', class = 'try-error', condition = structure(list(message = '(converted from warning) NAs produced', call = quote(rnorm(1, sd = Inf))), .Names = c('message', 'call'), class = c('simpleError', 'error', 'condition'))), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsub_testsub17_930aba9904352d58f2f5591f3d0efcfd() {
+ assertEval("argv <- list('^msgstr[[:blank:]]+[\'](.*)[\'][[:blank:]]*$', '\\1', 'msgstr \'<U+043E><U+0442><U+0440><U+0438><U+0446><U+0430><U+0442><U+0435><U+043B><U+044C><U+043D><U+044B><U+0435> <U+0432><U+0435><U+0441><U+0430> <U+043D><U+0435> <U+0440><U+0430><U+0437><U+0440><U+0435><U+0448><U+0435><U+043D><U+044B>\'', FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsub_testsub18_8a1abebf9e80afd63b6551f5adb1b4d1() {
+ assertEval("argv <- list('.*Content-Type:[^\\]*charset=([^\\[:space:]]*)[[:space:]]*\\\\n.*', '\\1', 'Project-Id-Version: lattice 0.20-10\\nReport-Msgid-Bugs-To: bugs@r-project.org\\nPOT-Creation-Date: 2012-03-10 14:42\\nPO-Revision-Date: 2012-08-31 16:36+0100\\nLast-Translator: \305\201ukasz Daniel <lukasz.daniel@gmail.com>\\nLanguage-Team: \305\201ukasz Daniel <lukasz.daniel@gmail.com>\\nLanguage: pl_PL\\nMIME-Version: 1.0\\nContent-Type: text/plain; charset=UTF-8\\nContent-Transfer-Encoding: 8bit\\nPlural-Forms: nplurals=3; plural=(n==1 ? 0 : n%10>=2 && n%10<=4 && (n%100<10 || n%100>=20) ? 1 : 2)\\nX-Poedit-SourceCharset: iso-8859-1\\n', FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsub_testsub2_9dfdd6946d4cae513af36f5b752dcfa8() {
+ assertEval("argv <- list('[b-e]', '.', c('The', 'licenses', 'for', 'most', 'software', 'are', 'designed', 'to', 'take', 'away', 'your', 'freedom', 'to', 'share', 'and', 'change', 'it.', '', 'By', 'contrast,', 'the', 'GNU', 'General', 'Public', 'License', 'is', 'intended', 'to', 'guarantee', 'your', 'freedom', 'to', 'share', 'and', 'change', 'free', 'software', '--', 'to', 'make', 'sure', 'the', 'software', 'is', 'free', 'for', 'all', 'its', 'users'), FALSE, TRUE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsub_testsub3_5184c6e4c24fe9cf68e3e65fe28f1dbd() {
+ assertEval("argv <- list('%bm', 'http://www.bioconductor.org', c('@CRAN@', 'http://www.stats.ox.ac.uk/pub/RWin', '%bm/packages/%v/bioc', '%bm/packages/%v/data/annotation', '%bm/packages/%v/data/experiment', '%bm/packages/%v/extra', 'http://www.omegahat.org/R', 'http://R-Forge.R-project.org', 'http://www.rforge.net'), FALSE, FALSE, TRUE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsub_testsub4_3323f2e8d1368cad17d14f8dd8538856() {
+ assertEval("argv <- list('^ \036 ', '\036', c('', ' \036 Merged in a set of Splus code changes that had accumulated at Mayo', ' over the course of a decade. The primary one is a change in how', ' indexing is done in the underlying C code, which leads to a major', ' speed increase for large data sets. Essentially, for the lower', ' leaves all our time used to be eaten up by bookkeeping, and this', ' was replaced by a different approach. The primary routine also', ' uses .Call{} so as to be more memory efficient.', '', ' \036 The other major change was an error for asymmetric loss matrices,', ' prompted by a user query. With L=loss asymmetric, the altered', ' priors were computed incorrectly - they were using L' instead of L.', ' Upshot - the tree would not not necessarily choose optimal splits', ' for the given loss matrix. Once chosen, splits were evaluated', ' correctly. The printed “improvement” values are of course the', ' wrong ones as well. It is interesting that for my little test', ' case, with L quite asymmetric, the early splits in the tree are', ' unchanged - a good split still looks good.', '', ' \036 Add the return.all argument to xpred.rpart().', '', ' \036 Added a set of formal tests, i.e., cases with known answers to', ' which we can compare.', '', ' \036 Add a usercode vignette, explaining how to add user defined', ' splitting functions.', '', ' \036 The class method now also returns the node probability.', '', ' \036 Add the stagec data set, used in some tests.', '', ' \036 The plot.rpart routine needs to store a value that will be visible', ' to the rpartco routine at a later time. This is now done in an', ' environment in the namespace.', ''), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsub_testsub6_95c7eef127046a2032c13750370756d0() {
+ assertEval("argv <- list('\'', '\\\'', '\\method{as.dist}{default}', FALSE, FALSE, TRUE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsub_testsub7_8ed2b6b02e3e19c08d5a5135f5d06160() {
+ assertEval("argv <- list('(\\w)(\\w*)(\\w)', '\\U\\1\\E\\2\\U\\3', 'useRs may fly into JFK or laGuardia', FALSE, TRUE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsub_testsub8_071871709a3e154f0ca90923dba1f2a4() {
+ assertEval("argv <- list('^(msgstr)\\[([[:digit:]]+)\\].*$', '\\1\\\\[\\2\\\\]', 'msgstr[0] \'%d ligne de poids nul non comptabilis<U+00E9>e\'', FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsub_testsub9_a8ad64d814b123bd01d10264df4fceeb() {
+ assertEval("argv <- list('[[:space:]]*$', '', 'identical() has a new argument, ignore.environment, used when\ncomparing functions (with default FALSE as before).\n\n\036There is a new option, options(CBoundsCheck=), which controls how\n.C() and .Fortran() pass arguments to compiled code. If true\n(which can be enabled by setting the environment variable\nR_C_BOUNDS_CHECK to yes), raw, integer, double and complex\narguments are always copied, and checked for writing off either end\nof the array on return from the compiled code (when a second copy\nis made). This also checks individual elements of character\nvectors passed to .C().\n\nThis is not intended for routine use, but can be very helpful in\nfinding segfaults in package code.\n\n\036In layout(), the limits on the grid size have been raised (again).\n\n\036New simple provideDimnames() utility function.\n\n\036Where methods for length() return a double value which is\nrepresentable as an integer (as often happens for package Matrix),\nthis is converted to an integer.\n\n\036Matrix indexing of dataframes by two-column numeric indices is now\nsupported for replacement as well as extraction.\n\n\036setNames() now has a default for its object argument, useful for a\ncharacter result.\n\n\036StructTS() has a revised additive constant in the loglik component\nof the result: the previous definition is returned as the loglik0\ncomponent. However, the help page has always warned of a lack of\ncomparability of log-likelihoods for non-stationary models.\n(Suggested by Jouni Helske.)\n\n\036The logic in aggregate.formula() has been revised. It is now\npossible to use a formula stored in a variable; previously, it had\nto be given explicitly in the function call.\n\n\036install.packages() has a new argument quiet to reduce the amount of\noutput shown.\n\n\036Setting an element of the graphics argument lwd to a negative or\ninfinite value is now an error. Lines corresponding to elements\nwith values NA or NaN are silently omitted.\n\nPreviously the behaviour was device-dependent.\n\n\036Setting graphical parameters cex, col, lty, lwd and pch in par()\nnow requires a length-one argument. Previously some silently took\nthe first element of a longer vector, but not always when\ndocumented to do so.\n\n\036Sys.which() when used with inputs which would be unsafe in a shell\n(e.g. absolute paths containing spaces) now uses appropriate\nquoting.\n\n\036as.tclObj() has been extended to handle raw vectors. Previously,\nit only worked in the other direction. (Contributed by Charlie\nFriedemann, PR#14939.)\n\n\036New functions cite() and citeNatbib() have been added, to allow\ngeneration of in-text citations from \'bibentry\' objects. A cite()\nfunction may be added to bibstyle() environments.\n\n\036A sort() method has been added for \'bibentry\' objects.\n\n\036The bibstyle() function now defaults to setting the default\nbibliography style. The getBibstyle() function has been added to\nreport the name of the current default style.\n\n\036scatter.smooth() now has an argument lpars to pass arguments to\nlines().\n\n\036pairs() has a new log argument, to allow some or all variables to\nbe plotted on logarithmic scale. (In part, wish of PR#14919.)\n\n\036split() gains a sep argument.\n\n\036termplot() does a better job when given a model with interactions\n(and no longer attempts to plot interaction terms).\n\n\036The parser now incorporates code from Romain Francois' parser\npackage, to support more detailed computation on the code, such as\nsyntax highlighting, comment-based documentation, etc. Functions\ngetParseData() and getParseText() access the data.\n\n\036There is a new function rep_len() analogous to rep.int() for when\nspeed is required (and names are not).\n\n\036The undocumented use rep(NULL, length.out = n) for n > 0 (which\nreturns NULL) now gives a warning.\n\n\036demo() gains an encoding argument for those packages with non-ASCII\ndemos: it defaults to the package encoding where there is one.\n\n\036strwrap() converts inputs with a marked encoding to the current\nlocale: previously it made some attempt to pass through as bytes\ninputs invalid in the current locale.\n\n\036Specifying both rate and scale to [dpqr]gamma is a warning (if they\nare essentially the same value) or an error.\n\n\036merge() works in more cases where the data frames include matrices.\n(Wish of PR#14974.)\n\n\036optimize() and uniroot() no longer use a shared parameter object\nacross calls. (nlm(), nlminb() and optim() with numerical\nderivatives still do, as documented.)\n\n\036The all.equal() method for date-times is now documented: times are\nregarded as equal (by default) if they differ by up to 1 msec.\n\n\036duplicated() and unique() gain a nmax argument which can be used to\nmake them much more efficient when it is known that there are only\na small number of unique entries. This is done automatically for\nfactors.\n\n\036Functions rbinom(), rgeom(), rhyper(), rpois(), rnbinom(),\nrsignrank() and rwilcox() now return integer (not double) vectors.\nThis halves the storage requirements for large simulations.\n\n\036sort(), sort.int() and sort.list() now use radix sorting for\nfactors of less than 100,000 levels when method is not supplied.\nSo does order() if called with a single factor, unless na.last =\nNA.\n\n\036diag() as used to generate a diagonal matrix has been re-written in\nC for speed and less memory usage. It now forces the result to be\nnumeric in the case diag(x) since it is said to have ‘zero\noff-diagonal entries’.\n\n\036backsolve() (and forwardsolve()) are now internal functions, for\nspeed and support for large matrices.\n\n\036More matrix algebra functions (e.g. chol() and solve()) accept\nlogical matrices (and coerce to numeric).\n\n\036sample.int() has some support for n >= 2^31: see its help for the\nlimitations.\n\nA different algorithm is used for (n, size, replace = FALSE, prob =\nNULL) for n > 1e7 and size <= n/2. This is much faster and uses\nless memory, but does give different results.\n\n\036approxfun() and splinefun() now return a wrapper to an internal\nfunction in the stats namespace rather than a .C() or .Call() call.\nThis is more likely to work if the function is saved and used in a\ndifferent session.\n\n\036The functions .C(), .Call(), .External() and .Fortran() now give an\nerror (rather than a warning) if called with a named first\nargument.\n\n\036Sweave() by default now reports the locations in the source file(s)\nof each chunk.\n\n\036clearPushBack() is now a documented interface to a long-existing\ninternal call.\n\n\036aspell() gains filters for R code, Debian Control Format and\nmessage catalog files, and support for R level dictionaries. In\naddition, package utils now provides functions\naspell_package_R_files() and aspell_package_C_files() for spell\nchecking R and C level message strings in packages.\n\n\036bibentry() gains some support for “incomplete” entries with a\ncrossref field.\n\n\036gray() and gray.colors() finally allow alpha to be specified.\n\n\036monthplot() gains parameters to control the look of the reference\nlines. (Suggestion of Ian McLeod.)\n\n\036Added support for new %~% relation (“is distributed as”) in\nplotmath.\n\n\036domain = NA is accepted by gettext() and ngettext(), analogously to\nstop() etc.\n\n\036termplot() gains a new argument plot = FALSE which returns\ninformation to allow the plots to be modified for use as part of\nother plots, but does not plot them. (Contributed by Terry\nTherneau, PR#15076.)\n\n\036quartz.save(), formerly an undocumented part of R.app, is now\navailable to copy a device to a quartz() device. dev.copy2pdf()\noptionally does this for PDF output: quartz.save() defaults to PNG.\n\n\036The default method of pairs() now allows text.panel = NULL and the\nuse of <foo>.panel = NULL is now documented.\n\n\036setRefClass() and getRefClass() now return class generator\nfunctions, similar to setClass(), but still with the reference\nfields and methods as before (suggestion of Romain Francois).\n\n\036New functions bitwNot(), bitwAnd(), bitwOr() and bitwXor(), using\nthe internal interfaces previously used for classes \'octmode\' and\n\'hexmode\'.\n\nAlso bitwShiftL() and bitwShiftR() for shifting bits in elements of\ninteger vectors.\n\n\036New option \'deparse.cutoff\' to control the deparsing of language\nobjects such as calls and formulae when printing. (Suggested by a\ncomment of Sarah Goslee.)\n\n\036colors() gains an argument distinct.\n\n\036New demo(colors) and demo(hclColors), with utility functions.\n\n\036list.files() (aka dir()) gains a new optional argument no.. which\nallows to exclude \'.\' and \'..\' from listings.\n\n\036Multiple time series are also of class \'matrix\'; consequently,\nhead(), e.g., is more useful.\n\n\036encodeString() preserves UTF-8 marked encodings. Thus if factor\nlevels are marked as UTF-8 an attempt is made to print them in\nUTF-8 in RGui on Windows.\n\n\036readLines() and scan() (and hence read.table()) in a UTF-8 locale\nnow discard a UTF-8 byte-order-mark (BOM). Such BOMs are allowed\nbut not recommended by the Unicode Standard: however Microsoft\napplications can produce them and so they are sometimes found on\nwebsites.\n\nThe encoding name \'UTF-8-BOM\' for a connection will ensure that a\nUTF-8 BOM is discarded.\n\n\036mapply(FUN, a1, ..) now also works when a1 (or a further such\nargument) needs a length() method (which the documented arguments\nnever do). (Requested by Hervé Pagès; with a patch.)\n\n\036.onDetach() is supported as an alternative to .Last.lib. Unlike\n.Last.lib, this does not need to be exported from the package's\nnamespace.\n\n\036The srcfile argument to parse() may now be a character string, to\nbe used in error messages.\n\n\036The format() method for ftable objects gains a method argument,\npropagated to write.ftable() and print(), allowing more compact\noutput, notably for LaTeX formatting, thanks to Marius Hofert.\n\n\036The utils::process.events() function has been added to trigger\nimmediate event handling.\n\n\036Sys.which() now returns NA (not \'\') for NA inputs (related to\nPR#15147).\n\n\036The print() method for class \'htest\' gives fewer trailing spaces\n(wish of PR#15124).\n\nAlso print output from HoltWinters(), nls() and others.\n\n\036loadNamespace() allows a version specification to be given, and\nthis is used to check version specifications given in the Imports\nfield when a namespace is loaded.\n\n\036setClass() has a new argument, slots, clearer and less ambiguous\nthan representation. It is recommended for future code, but should\nbe back-compatible. At the same time, the allowed slot\nspecification is slightly more general. See the documentation for\ndetails.\n\n\036mget() now has a default for envir (the frame from which it is\ncalled), for consistency with get() and assign().\n\n\036close() now returns an integer status where available, invisibly.\n(Wish of PR#15088.)\n\n\036The internal method of tar() can now store paths too long for the\nustar format, using the (widely supported) GNU extension. It can\nalso store long link names, but these are much less widely\nsupported. There is support for larger files, up to the ustar\nlimit of 8GB.\n\n\036Local reference classes have been added to package methods. These\nare a technique for avoiding unneeded copying of large components\nof objects while retaining standard R functional behavior. See\n?LocalReferenceClasses.\n\n\036untar() has a new argument restore_times which if false (not the\ndefault) discards the times in the tarball. This is useful if they\nare incorrect (some tarballs submitted to CRAN have times in a\nlocal timezone or many years in the past even though the standard\nrequired them to be in UTC).\n\n\036replayplot() cannot (and will not attempt to) replay plots recorded\nunder R < 3.0.0. It may crash the R session if an attempt is made\nto replay plots created in a different build of R >= 3.0.0.\n\n\036Palette changes get recorded on the display list, so replaying\nplots (including when resizing screen devices and using dev.copy())\nwill work better when the palette is changed during a plot.\n\n\036chol(pivot = TRUE) now defaults to LAPACK, not LINPACK.\n\n\036The parse() function has a new parameter keep.source, which\ndefaults to options(\'keep.source\').\n\n\036Profiling via Rprof() now optionally records information at the\nstatement level, not just the function level.\n\n\036The Rprof() function now quotes function names in in its output\nfile on Windows, to be consistent with the quoting in Unix.\n\n\036Profiling via Rprof() now optionally records information about time\nspent in GC.\n\n\036The HTML help page for a package now displays non-vignette\ndocumentation files in a more accessible format.\n\n\036To support options(stringsAsFactors = FALSE), model.frame(),\nmodel.matrix() and replications() now automatically convert\ncharacter vectors to factors without a warning.\n\n\036The print method for objects of class \'table\' now detects tables\nwith 0-extents and prints the results as, e.g., < table of extent 0\nx 1 x 2 >. (Wish of PR#15198.)\n\n\036Deparsing involving calls to anonymous functions and has been made\ncloser to reversible by the addition of extra parentheses.\n\n\036The function utils::packageName() has been added as a lightweight\nversion of methods::getPackageName().\n\n\036find.package(lib.loc = NULL) now treats loaded namespaces\npreferentially in the same way as attached packages have been for a\nlong time.\n\n\036In Windows, the Change Directory dialog now defaults to the current\nworking directory, rather than to the last directory chosen in that\ndialog.\n\n\036available.packages() gains a \'license/restricts_use\' filter which\nretains only packages for which installation can proceed solely\nbased on packages which are guaranteed not to restrict use.\n\n\036New check_packages_in_dir() function in package tools for\nconveniently checking source packages along with their reverse\ndependencies.\n\n\036R's completion mechanism has been improved to handle help requests\n(starting with a question mark). In particular, help prefixes are\nnow supported, as well as quoted help topics. To support this,\ncompletion inside quotes are now handled by R by default on all\nplatforms.\n\n\036The memory manager now allows the strategy used to balance garbage\ncollection and memory growth to be controlled by setting the\nenvironment variable R_GC_MEM_GROW. See ?Memory for more details.\n\n\036(‘For experts only’, as the introductory manual says.) The use of\nenvironment variables R_NSIZE and R_VSIZE to control the initial (=\nminimum) garbage collection trigger for number of cons cels and\nsize of heap has been restored: they can be overridden by the\ncommand-line options --min-nsize and --min-vsize; see ?Memory.\n\n\036On Windows, the device name for bitmap devices as reported by\n.Device and .Devices no longer includes the file name. This is for\nconsistency with other platforms and was requested by the lattice\nmaintainer.\n\nwin.metafile() still uses the file name: the exact form is used by\npackage tkrplot.\n\n\036set.seed(NULL) re-initializes .Random.seed as done at the beginning\nof the session if not already set. (Suggestion of Bill Dunlap.)\n\n\036The breaks argument in hist.default() can now be a function that\nreturns the breakpoints to be used (previously it could only return\nthe suggested number of breakpoints).\n\n\036File share/licenses/licenses.db has some clarifications, especially\nas to which variants of ‘BSD’ and ‘MIT’ is intended and how to\napply them to packages. The problematic licence ‘Artistic-1.0’ has\nbeen removed.\n', FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset1_2965b748a3e24b276173eb4aa9f23391() {
+ assertEval("argv <- list(structure(list(`Resid. Df` = c(4, 0), `Resid. Dev` = c(5.12914107700115, 7.54951656745095e-15), Df = c(NA, 4), Deviance = c(NA, 5.12914107700114), Rao = c(NA, 5.17320176026795)), .Names = c('Resid. Df', 'Resid. Dev', 'Df', 'Deviance', 'Rao'), row.names = c('1', '2'), class = 'data.frame'), 5L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset10_0f1e10c13d753a93338a20f89ac50bd8() {
+ assertEval("argv <- list(structure(list(surname = structure(2L, .Label = c('McNeil', 'R Core', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(NA_integer_, .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(NA_integer_, .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = 1L, class = 'data.frame'), 1L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset11_85c4a449ccc328e43b771b1afb28e897() {
+ assertEval("argv <- list(structure(list(height = numeric(0), weight = numeric(0)), .Names = c('height', 'weight'), row.names = integer(0), class = 'data.frame'), 1:2);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset12_dcc42c2a40b618a307e9cca278cbf6ad() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R'), frow = c(32L, 33L, 33L, 36L), lrow = c(32L, 33L, 33L, 36L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 4L), class = 'data.frame'), 'frow');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset13_9fa891d5001cad136ca0f6db1eba5c6d() {
+ assertEval("argv <- list(structure(list(surname = structure(c(5L, 6L, 4L, 3L, 3L, 1L, 2L), .Label = c('McNeil', 'R Core', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), title = structure(c(2L, 5L, 4L, 6L, 7L, 3L, 1L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, 1L, NA, NA, NA, NA, 2L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'title', 'other.author'), row.names = c(NA, -7L), class = 'data.frame'), 1L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset14_3e137112463eb901bb1219dd118598af() {
+ assertEval("argv <- list(structure(list(size = 1056, isdir = FALSE, mode = structure(420L, class = 'octmode'), mtime = structure(1393948130.23894, class = c('POSIXct', 'POSIXt')), ctime = structure(1393948130.23894, class = c('POSIXct', 'POSIXt')), atime = structure(1395074550.46596, class = c('POSIXct', 'POSIXt')), uid = 1001L, gid = 1001L, uname = 'roman', grname = 'roman'), .Names = c('size', 'isdir', 'mode', 'mtime', 'ctime', 'atime', 'uid', 'gid', 'uname', 'grname'), class = 'data.frame', row.names = '/home/roman/r-instrumented/library/grid/R/grid'), 'mtime');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset15_380284bc42693a9124ecdd36b46819ae() {
+ assertEval("argv <- list(structure(list(Sepal.Length = c(5.1, 4.9, 4.7, 4.6, 5, 5.4, 4.6, 5, 4.4, 4.9, 5.4, 4.8, 4.8, 4.3, 5.8, 5.7, 5.4, 5.1, 5.7, 5.1, 5.4, 5.1, 4.6, 5.1, 4.8, 5, 5, 5.2, 5.2, 4.7, 4.8, 5.4, 5.2, 5.5, 4.9, 5, 5.5, 4.9, 4.4, 5.1, 5, 4.5, 4.4, 5, 5.1, 4.8, 5.1, 4.6, 5.3, 5, 7, 6.4, 6.9, 5.5, 6.5, 5.7, 6.3, 4.9, 6.6, 5.2, 5, 5.9, 6, 6.1, 5.6, 6.7, 5.6, 5.8, 6.2, 5.6, 5.9, 6.1, 6.3, 6.1, 6.4, 6.6, 6.8, 6.7, 6, 5.7, 5.5, 5.5, 5.8, 6, 5.4, 6, 6.7, 6.3, 5.6, 5.5, 5.5, 6.1, 5.8, 5, 5.6, 5.7, 5.7, 6.2, 5.1, 5.7, 6.3, 5.8, 7.1, 6.3, 6.5, 7.6, 4.9, 7.3, 6.7, 7.2, 6.5, 6.4, 6.8, 5.7, 5.8, 6.4, 6.5, 7.7, 7.7, 6, 6.9, 5.6, 7.7, 6.3, 6.7, 7.2, 6.2, 6.1, 6.4, 7.2, 7.4, 7.9, 6.4, 6.3, 6.1, 7.7, 6.3, 6.4, 6, 6.9, 6.7, 6.9, 5.8, 6.8, 6.7, 6.7, 6.3, 6.5, 6.2, 5.9), Sepal.Width = c(3.5, 3, 3.2, 3.1, 3.6, 3.9, 3.4, 3.4, 2.9, 3.1, 3.7, 3.4, 3, 3, 4, 4.4, 3.9, 3.5, 3.8, 3.8, 3.4, 3.7, 3.6, 3.3, 3.4, 3, 3.4, 3.5, 3.4, 3.2, 3.1, 3.4, 4.1, 4.2, 3.1, 3.2, 3.5, 3.6, 3, 3.4, 3.5, 2.3, 3.2, 3.5, 3.8, 3, 3.8, 3.2, 3.7, 3.3, 3.2, 3.2, 3.1, 2.3, 2.8, 2.8, 3.3, 2.4, 2.9, 2.7, 2, 3, 2.2, 2.9, 2.9, 3.1, 3, 2.7, 2.2, 2.5, 3.2, 2.8, 2.5, 2.8, 2.9, 3, 2.8, 3, 2.9, 2.6, 2.4, 2.4, 2.7, 2.7, 3, 3.4, 3.1, 2.3, 3, 2.5, 2.6, 3, 2.6, 2.3, 2.7, 3, 2.9, 2.9, 2.5, 2.8, 3.3, 2.7, 3, 2.9, 3, 3, 2.5, 2.9, 2.5, 3.6, 3.2, 2.7, 3, 2.5, 2.8, 3.2, 3, 3.8, 2.6, 2.2, 3.2, 2.8, 2.8, 2.7, 3.3, 3.2, 2.8, 3, 2.8, 3, 2.8, 3.8, 2.8, 2.8, 2.6, 3, 3.4, 3.1, 3, 3.1, 3.1, 3.1, 2.7, 3.2, 3.3, 3, 2.5, 3, 3.4, 3), Petal.Length = c(1.4, 1.4, 1.3, 1.5, 1.4, 1.7, 1.4, 1.5, 1.4, 1.5, 1.5, 1.6, 1.4, 1.1, 1.2, 1.5, 1.3, 1.4, 1.7, 1.5, 1.7, 1.5, 1, 1.7, 1.9, 1.6, 1.6, 1.5, 1.4, 1.6, 1.6, 1.5, 1.5, 1.4, 1.5, 1.2, 1.3, 1.4, 1.3, 1.5, 1.3, 1.3, 1.3, 1.6, 1.9, 1.4, 1.6, 1.4, 1.5, 1.4, 4.7, 4.5, 4.9, 4, 4.6, 4.5, 4.7, 3.3, 4.6, 3.9, 3.5, 4.2, 4, 4.7, 3.6, 4.4, 4.5, 4.1, 4.5, 3.9, 4.8, 4, 4.9, 4.7, 4.3, 4.4, 4.8, 5, 4.5, 3.5, 3.8, 3.7, 3.9, 5.1, 4.5, 4.5, 4.7, 4.4, 4.1, 4, 4.4, 4.6, 4, 3.3, 4.2, 4.2, 4.2, 4.3, 3, 4.1, 6, 5.1, 5.9, 5.6, 5.8, 6.6, 4.5, 6.3, 5.8, 6.1, 5.1, 5.3, 5.5, 5, 5.1, 5.3, 5.5, 6.7, 6.9, 5, 5.7, 4.9, 6.7, 4.9, 5.7, 6, 4.8, 4.9, 5.6, 5.8, 6.1, 6.4, 5.6, 5.1, 5.6, 6.1, 5.6, 5.5, 4.8, 5.4, 5.6, 5.1, 5.1, 5.9, 5.7, 5.2, 5, 5.2, 5.4, 5.1), Petal.Width = c(0.2, 0.2, 0.2, 0.2, 0.2, 0.4, 0.3, 0.2, 0.2, 0.1, 0.2, 0.2, 0.1, 0.1, 0.2, 0.4, 0.4, 0.3, 0.3, 0.3, 0.2, 0.4, 0.2, 0.5, 0.2, 0.2, 0.4, 0.2, 0.2, 0.2, 0.2, 0.4, 0.1, 0.2, 0.2, 0.2, 0.2, 0.1, 0.2, 0.2, 0.3, 0.3, 0.2, 0.6, 0.4, 0.3, 0.2, 0.2, 0.2, 0.2, 1.4, 1.5, 1.5, 1.3, 1.5, 1.3, 1.6, 1, 1.3, 1.4, 1, 1.5, 1, 1.4, 1.3, 1.4, 1.5, 1, 1.5, 1.1, 1.8, 1.3, 1.5, 1.2, 1.3, 1.4, 1.4, 1.7, 1.5, 1, 1.1, 1, 1.2, 1.6, 1.5, 1.6, 1.5, 1.3, 1.3, 1.3, 1.2, 1.4, 1.2, 1, 1.3, 1.2, 1.3, 1.3, 1.1, 1.3, 2.5, 1.9, 2.1, 1.8, 2.2, 2.1, 1.7, 1.8, 1.8, 2.5, 2, 1.9, 2.1, 2, 2.4, 2.3, 1.8, 2.2, 2.3, 1.5, 2.3, 2, 2, 1.8, 2.1, 1.8, 1.8, 1.8, 2.1, 1.6, 1.9, 2, 2.2, 1.5, 1.4, 2.3, 2.4, 1.8, 1.8, 2.1, 2.4, 2.3, 1.9, 2.3, 2.5, 2.3, 1.9, 2, 2.3, 1.8), Species = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('setosa', 'versicolor', 'virginica'), class = 'factor')), .Names = c('Sepal.Length', 'Sepal.Width', 'Petal.Length', 'Petal.Width', 'Species'), row.names = c(NA, -150L), class = 'data.frame'), c(FALSE, FALSE, FALSE, FALSE, TRUE));.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset16_1980283add80c713cace3ee56b7539d1() {
+ assertEval("argv <- list(structure(list(VAR1 = c(1, 2, 3, 4, 5), VAR2 = c(5, 4, 3, 2, 1), VAR3 = c(1, 1, 1, 1, NA)), .Names = c('VAR1', 'VAR2', 'VAR3'), row.names = c(NA, -5L), class = 'data.frame'), c(1, 3));.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset17_890a990c36442ad4c9f3d5f10e257bf3() {
+ assertEval("argv <- list(structure(list(ii = 1:10, xx = c(-9.42477796076938, -6.28318530717959, -3.14159265358979, 0, 3.14159265358979, 6.28318530717959, 9.42477796076938, 12.5663706143592, 15.707963267949, 18.8495559215388)), .Names = c('ii', 'xx'), row.names = c(NA, -10L), class = 'data.frame'), 'C');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset18_d8f5f1286793c26a13fb2655196c1fa5() {
+ assertEval("argv <- list(structure(list(srcfile = c(NA, NA, '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R', '/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R'), frow = c(NA, NA, 427L, 427L, 432L, 434L, 434L, 438L, 438L), lrow = c(NA, NA, 428L, 428L, 432L, 437L, 437L, 441L, 441L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, 9L), class = 'data.frame'), 'lrow');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset19_f7de8f46eb70ec4fe3564d345d0d8173() {
+ assertEval("argv <- list(structure(list(x = 1:3, y = structure(4:6, .Dim = c(3L, 1L), class = 'AsIs'), z = structure(c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i'), .Dim = c(3L, 3L), class = 'AsIs')), .Names = c('x', 'y', 'z'), row.names = c(NA, -3L), class = 'data.frame'), 'z');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset2_560c621f8a16dfa25c2346d3c023e02b() {
+ assertEval("argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = 'ts'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c('y', 'lag.quarterly.revenue', 'price.index', 'income.level', 'market.potential'), row.names = c('1962.25', '1962.5', '1962.75', '1963', '1963.25', '1963.5', '1963.75', '1964', '1964.25', '1964.5', '1964.75', '1965', '1965.25', '1965.5', '1965.75', '1966', '1966.25', '1966.5', '1966.75', '1967', '1967.25', '1967.5', '1967.75', '1968', '1968.25', '1968.5', '1968.75', '1969', '1969.25', '1969.5', '1969.75', '1970', '1970.25', '1970.5', '1970.75', '1971', '1971.25', '1971.5', '1971.75'), class = 'data.frame'), 3L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset20_2666cb8374a0d027ad53970b3d63ac7c() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/stats/R/stats', '/home/lzhao/hg/r-instrumented/library/stats/R/stats'), frow = 21911:21912, lrow = 21911:21912), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2, class = 'data.frame'), 'frow');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset21_3ea4ae9f745074681927670ddfa477f7() {
+ assertEval("argv <- list(structure(list(z = c(-2.97525101631257, -2.48489962337717, -1.99157511113426, -1.4958325959814, -0.998253002608536, -0.499437269286478, 0, 0.499437269286499, 0.998253002608553, 1.49583259598141, 1.99157511113428, 2.48489962337718, 2.97525101631258), par.vals = structure(c(3.29998649934118, 3.26341935258893, 3.22450701705249, 3.18319718928165, 3.13944811066026, 3.09322935890527, 3.04452243772342, 2.99332114068265, 2.93963167421501, 2.88347253461377, 2.824874144162, 2.76387826147581, 2.70053719000543, -0.454255272277595, -0.454255272277596, -0.454255272277596, -0.454255272277598, -0.454255272277597, -0.454255272277596, -0.454255272277594, -0.454255272277597, -0.454255272277596, -0.454255272277596, -0.454255272277597, -0.454255272277596, -0.454255272277597, -0.292987124681473, -0.292987124681473, -0.292987124681474, -0.292987124681475, -0.292987124681474, -0.292987124681474, -0.292987124681473, -0.292987124681475, -0.292987124681474, -0.292987124681474, -0.292987124681474, -0.292987124681474, -0.292987124681474, -0.255464061617756, -0.218896914865511, -0.179984579329071, -0.138674751558221, -0.0949256729368359, -0.0487069211818519, 1.33790930192987e-15, 0.0512012970407721, 0.104890763508413, 0.161049903109653, 0.219648293561426, 0.280644176247611, 0.34398524771799, -0.599449309335745, -0.49954109111312, -0.399632872890496, -0.299724654667872, -0.199816436445247, -0.099908218222623, 1.42108546079721e-15, 0.0999082182226258, 0.19981643644525, 0.299724654667875, 0.399632872890499, 0.499541091113123, 0.599449309335748), .Dim = c(13L, 5L), .Dimnames = list(NULL, c('(Intercept)', 'outcome2', 'outcome3', 'treatment2', 'treatment3')))), .Names = c('z', 'par.vals'), row.names = c(NA, 13L), class = 'data.frame'), 'par.vals');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset22_08a821d7e7f002e86fb69005fffdcdcb() {
+ assertEval("argv <- list(structure(3.14159265358979, class = 'testit'), structure(3.14159265358979, class = 'testit'));.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset23_7dd505f506360b4d0915877332a75dec() {
+ assertEval("argv <- list(structure(list(Fertility = c(80.2, 83.1, 92.5, 85.8, 76.9), Agriculture = c(17, 45.1, 39.7, 36.5, 43.5), Examination = c(15L, 6L, 5L, 12L, 17L), Education = c(12L, 9L, 5L, 7L, 15L)), .Names = c('Fertility', 'Agriculture', 'Examination', 'Education'), row.names = c('Courtelary', 'Delemont', 'Franches-Mnt', 'Moutier', 'Neuveville'), class = 'data.frame'), 'Ferti');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset24_92aceae97074dc2ec6a77699c130b52c() {
+ assertEval("argv <- list(structure(list(size = 131, isdir = FALSE, mode = structure(436L, class = 'octmode'), mtime = structure(1386583148.91412, class = c('POSIXct', 'POSIXt')), ctime = structure(1386583148.91712, class = c('POSIXct', 'POSIXt')), atime = structure(1386583149.16512, class = c('POSIXct', 'POSIXt')), uid = 501L, gid = 501L, uname = 'lzhao', grname = 'lzhao'), .Names = c('size', 'isdir', 'mode', 'mtime', 'ctime', 'atime', 'uid', 'gid', 'uname', 'grname'), class = 'data.frame', row.names = 'startup.Rs'), 'mtime');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset3_9dac7647c342f2d2180c8f1f2251bf50() {
+ assertEval("argv <- list(structure(list(Var1 = c(1L, 2L, 3L, 0L, 1L, 2L, 0L, 1L, 0L), Var2 = c(0L, 0L, 0L, 1L, 1L, 1L, 2L, 2L, 3L)), .Names = c('Var1', 'Var2'), out.attrs = structure(list(dim = c(4L, 4L), dimnames = structure(list(Var1 = c('Var1=0', 'Var1=1', 'Var1=2', 'Var1=3'), Var2 = c('Var2=0', 'Var2=1', 'Var2=2', 'Var2=3')), .Names = c('Var1', 'Var2'))), .Names = c('dim', 'dimnames')), row.names = c(2L, 3L, 4L, 5L, 6L, 7L, 9L, 10L, 13L), class = 'data.frame'), 1);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset4_42edddef393f45d39518a5613eaf1ae9() {
+ assertEval("argv <- list(structure(list(Population = c(3615, 365, 2212, 2110, 21198, 2541, 3100, 579, 8277, 4931, 868, 813, 11197, 5313, 2861, 2280, 3387, 3806, 1058, 4122, 5814, 9111, 3921, 2341, 4767, 746, 1544, 590, 812, 7333, 1144, 18076, 5441, 637, 10735, 2715, 2284, 11860, 931, 2816, 681, 4173, 12237, 1203, 472, 4981, 3559, 1799, 4589, 376), Income = c(3624, 6315, 4530, 3378, 5114, 4884, 5348, 4809, 4815, 4091, 4963, 4119, 5107, 4458, 4628, 4669, 3712, 3545, 3694, 5299, 4755, 4751, 4675, 3098, 4254, 4347, 4508, 5149, 4281, 5237, 3601, 4903, 3875, 5087, 4561, 3983, 4660, 4449, 4558, 3635, 4167, 3821, 4188, 4022, 3907, 4701, 4864, 3617, 4468, 4566), Illiteracy = c(2.1, 1.5, 1.8, 1.9, 1.1, 0.7, 1.1, 0.9, 1.3, 2, 1.9, 0.6, 0.9, 0.7, 0.5, 0.6, 1.6, 2.8, 0.7, 0.9, 1.1, 0.9, 0.6, 2.4, 0.8, 0.6, 0.6, 0.5, 0.7, 1.1, 2.2, 1.4, 1.8, 0.8, 0.8, 1.1, 0.6, 1, 1.3, 2.3, 0.5, 1.7, 2.2, 0.6, 0.6, 1.4, 0.6, 1.4, 0.7, 0.6), `Life Exp` = c(69.05, 69.31, 70.55, 70.66, 71.71, 72.06, 72.48, 70.06, 70.66, 68.54, 73.6, 71.87, 70.14, 70.88, 72.56, 72.58, 70.1, 68.76, 70.39, 70.22, 71.83, 70.63, 72.96, 68.09, 70.69, 70.56, 72.6, 69.03, 71.23, 70.93, 70.32, 70.55, 69.21, 72.78, 70.82, 71.42, 72.13, 70.43, 71.9, 67.96, 72.08, 70.11, 70.9, 72.9, 71.64, 70.08, 71.72, 69.48, 72.48, 70.29), Murder = c(15.1, 11.3, 7.8, 10.1, 10.3, 6.8, 3.1, 6.2, 10.7, 13.9, 6.2, 5.3, 10.3, 7.1, 2.3, 4.5, 10.6, 13.2, 2.7, 8.5, 3.3, 11.1, 2.3, 12.5, 9.3, 5, 2.9, 11.5, 3.3, 5.2, 9.7, 10.9, 11.1, 1.4, 7.4, 6.4, 4.2, 6.1, 2.4, 11.6, 1.7, 11, 12.2, 4.5, 5.5, 9.5, 4.3, 6.7, 3, 6.9), `HS Grad` = c(41.3, 66.7, 58.1, 39.9, 62.6, 63.9, 56, 54.6, 52.6, 40.6, 61.9, 59.5, 52.6, 52.9, 59, 59.9, 38.5, 42.2, 54.7, 52.3, 58.5, 52.8, 57.6, 41, 48.8, 59.2, 59.3, 65.2, 57.6, 52.5, 55.2, 52.7, 38.5, 50.3, 53.2, 51.6, 60, 50.2, 46.4, 37.8, 53.3, 41.8, 47.4, 67.3, 57.1, 47.8, 63.5, 41.6, 54.5, 62.9), Frost = c(20, 152, 15, 65, 20, 166, 139, 103, 11, 60, 0, 126, 127, 122, 140, 114, 95, 12, 161, 101, 103, 125, 160, 50, 108, 155, 139, 188, 174, 115, 120, 82, 80, 186, 124, 82, 44, 126, 127, 65, 172, 70, 35, 137, 168, 85, 32, 100, 149, 173), Area = c(50708, 566432, 113417, 51945, 156361, 103766, 4862, 1982, 54090, 58073, 6425, 82677, 55748, 36097, 55941, 81787, 39650, 44930, 30920, 9891, 7826, 56817, 79289, 47296, 68995, 145587, 76483, 109889, 9027, 7521, 121412, 47831, 48798, 69273, 40975, 68782, 96184, 44966, 1049, 30225, 75955, 41328, 262134, 82096, 9267, 39780, 66570, 24070, 54464, 97203)), .Names = c('Population', 'Income', 'Illiteracy', 'Life Exp', 'Murder', 'HS Grad', 'Frost', 'Area'), row.names = c('Alabama', 'Alaska', 'Arizona', 'Arkansas', 'California', 'Colorado', 'Connecticut', 'Delaware', 'Florida', 'Georgia', 'Hawaii', 'Idaho', 'Illinois', 'Indiana', 'Iowa', 'Kansas', 'Kentucky', 'Louisiana', 'Maine', 'Maryland', 'Massachusetts', 'Michigan', 'Minnesota', 'Mississippi', 'Missouri', 'Montana', 'Nebraska', 'Nevada', 'New Hampshire', 'New Jersey', 'New Mexico', 'New York', 'North Carolina', 'North Dakota', 'Ohio', 'Oklahoma', 'Oregon', 'Pennsylvania', 'Rhode Island', 'South Carolina', 'South Dakota', 'Tennessee', 'Texas', 'Utah', 'Vermont', 'Virginia', 'Washington', 'West Virginia', 'Wisconsin', 'Wyoming'), class = 'data.frame'), c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset5_e21ecae22a103505c24ae74282c3fbd9() {
+ assertEval("argv <- list(structure(list(war = c(1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0), fly = c(1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), ver = c(1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0), end = c(1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, NA, 1, 1, 0, 1, 1, NA, 0), gro = c(0, 0, 1, 1, 0, 0, 0, 1, 0, 1, NA, 0, 0, 1, NA, 0, 0, NA, 1, 0), hai = c(1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1)), .Names = c('war', 'fly', 'ver', 'end', 'gro', 'hai'), row.names = c('ant', 'bee', 'cat', 'cpl', 'chi', 'cow', 'duc', 'eag', 'ele', 'fly', 'fro', 'her', 'lio', 'liz', 'lob', 'man', 'rab', 'sal', 'spi', 'wha'), class = 'data.frame'), NULL);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset6_63769bbae2a01b9b38264fe69aa8585b() {
+ assertEval("argv <- list(structure(list(surname = structure(c('McNeil', 'Ripley', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'AsIs'), nationality = structure(c(1L, 2L, 2L, 3L, 3L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(1L, 1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor'), title = structure(c(3L, 6L, 7L, 4L, 2L, 5L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, NA, NA, NA, NA, 1L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = c(NA, -6L), class = 'data.frame'), -1);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset7_0cd0e2f51749281ee02a10bc81e7e414() {
+ assertEval("argv <- list(structure(list(a = c(1L, 2L, 3L, NA), b = c(NA, 3.14159265358979, 3.14159265358979, 3.14159265358979), c = c(TRUE, NA, FALSE, TRUE), d = c('aa', 'bb', NA, 'dd'), e = structure(c('a1', NA, NA, 'a4'), class = 'AsIs'), f = c('20010101', NA, NA, '20041026')), .Names = c('a', 'b', 'c', 'd', 'e', 'f'), row.names = c(NA, -4L), class = 'data.frame'), 3L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset8_388f4801c95dbb636dae6b0d6925218d() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1, 1, 2), Deviance = c(32.825622681839, 12.2441566485997, 28.4640218366572, 32.4303239692005), AIC = c(92.5235803967766, 73.9421143635373, 90.1619795515948, 96.1282816841381)), .Names = c('Df', 'Deviance', 'AIC'), row.names = c('<none>', '+ M.user', '+ Temp', '+ Soft'), class = c('anova', 'data.frame')), 3L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset_testsubset9_86173aee5bce29893f10f2e65508c5cf() {
+ assertEval("argv <- list(structure(list(`1` = 0:10, `2` = 10:20, `3` = 20:30), .Names = c('1', '2', '3'), row.names = c(NA, -11L), class = 'data.frame'), -2);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset21_401728ff15faa0a563e033b207675e48() {
+ assertEval("argv <- list(structure(list(par.vals = structure(c(43.6690361821048, 35.0518890362789, 30.2558850234373, 27.1664611723591, 24.9930921115624, 23.3776455926353, 22.122313646246, 21.1173217554787, 20.293145402391, 19.6041024133034, 19.0188803067124, 18.5152545044936, 18.0769941360739, 17.6919540860845, 17.3508558987268, 17.0464826391527, 0.924696372559026, 1.4577878275186, 1.99087928247818, 2.52397073743776, 3.05706219239734, 3.59015364735691, 4.12324510231649, 4.65633655727607, 5.18942801223565, 5.72251946719522, 6.2556109221548, 6.78870237711438, 7.32179383207396, 7.85488528703353, 8.38797674199311, 8.92106819695269), .Dim = c(16L, 2L), .Dimnames = list(NULL, c('ymax', 'xhalf')))), .Names = 'par.vals'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset211_ff9226f88b9e91f575035a7dfd31ec88() {
+ assertEval("argv <- list(structure(list(V1 = structure(c(4L, 1L, 2L, 3L), .Label = c('1', '3', '6', 'head'), class = 'factor'), V2 = c(NA, 2L, 4L, 7L), V3 = c(NA, NA, 5L, 8L), V4 = c(NA, NA, NA, 9L)), .Names = c('V1', 'V2', 'V3', 'V4'), class = 'data.frame', row.names = c(NA, -4L)), 2L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset212_5d511b739e8e5e3163008c5a3cb96815() {
+ assertEval("argv <- list(structure(list(Res.Df = c(20, 21), RSS = c(652424.52183908, 658770.746755654), Df = c(NA, -1), `Sum of Sq` = c(NA, -6346.22491657443), F = c(NA, 0.194542807762205), `Pr(>F)` = c(NA, 0.663893424608742)), .Names = c('Res.Df', 'RSS', 'Df', 'Sum of Sq', 'F', 'Pr(>F)'), row.names = c('1', '2'), class = c('anova', 'data.frame'), heading = c('Analysis of Variance Table\n', 'Model 1: birthw ~ sex + sex:age - 1\nModel 2: birthw ~ sex + age - 1')), 6L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset213_a7c7fb413e98e76844bc1336460bf241() {
+ assertEval("argv <- list(structure(list(a = structure('abc', class = 'AsIs'), b = structure('def\'gh', class = 'AsIs')), .Names = c('a', 'b'), row.names = '1', class = 'data.frame'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset214_e20099eb554089d6b2832b23f40c0564() {
+ assertEval("argv <- list(structure(list(mtime = structure(1395082258.61787, class = c('POSIXct', 'POSIXt'))), .Names = 'mtime'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset215_8ed0f42d294953bdd86e98089c1ecc58() {
+ assertEval("argv <- list(structure(list(A = 0:10, `NA` = 20:30), .Names = c('A', NA), class = 'data.frame', row.names = c(NA, -11L)), 2L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset216_e6b7632e7460e4fab6c05aa7b1a581c7() {
+ assertEval("argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c('Employed', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'), class = 'data.frame', row.names = 1947:1962, terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year)), 3L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset217_44e77cc3d67653c3ae3ed1103b8bd05e() {
+ assertEval("argv <- list(structure(list(y = c(1.08728092481538, 0.0420572471552261, 0.787502161306819, 0.512717751544676, 3.35376639535311, 0.204341510750309, -0.334930602487435, 0.80049208412789, -0.416177803375218, -0.777970346246018, 0.934996808181635, -0.678786709127108, 1.52621589791412, 0.5895781228122, -0.744496121210548, -1.99065153885627, 1.51286447692396, -0.750182409847851), A = c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), B = c(1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0), U = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('a', 'b', 'c'), class = 'factor'), V = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L), .Label = c('a', 'b', 'c'), class = 'factor')), .Names = c('y', 'A', 'B', 'U', 'V'), class = 'data.frame', row.names = c(NA, 18L), terms = quote(y ~ (A + B):(U + V) - 1)), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset218_2737d694efa6a8afffd57589198555f0() {
+ assertEval("argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE)), .Names = c('y', 'x'), class = 'data.frame', row.names = c(NA, 10L), terms = quote(y ~ x)), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset219_704c9702777a657ec537a6656e171eae() {
+ assertEval("argv <- list(structure(list(surname = structure(2L, .Label = c('McNeil', 'R Core', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(NA_integer_, .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(NA_integer_, .Label = c('no', 'yes'), class = 'factor'), title = structure(1L, .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(2L, .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = 1L, class = 'data.frame'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset22_8ea4d7b9f4d2cb2e8ec625e3e0af6720() {
+ assertEval("argv <- list(structure(list(frow = c(NA, 2467L, 2468L, 2470L, 2470L, 2477L, 2478L, 2478L, 2480L, 2480L, 2482L, 2482L, 2482L, 2484L, 2484L, 2486L, 2486L, 2486L, 2490L, 2491L)), .Names = 'frow'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset220_402b1cec9a26967bb67d596f6a366277() {
+ assertEval("argv <- list(structure(list(surname = structure(integer(0), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(integer(0), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(integer(0), .Label = c('no', 'yes'), class = 'factor'), title = structure(integer(0), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(integer(0), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = integer(0), class = 'data.frame'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset221_5e021c44fa665922a3a62c8e7916a1c0() {
+ assertEval("argv <- list(structure(list(A = c(1, NA, 1), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA_integer_, NA_integer_, NA_integer_), E = c(FALSE, NA, TRUE), F = c('abc', NA, 'def')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')), 3L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset222_a720208691b0f3afb7ece19c4618a626() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')), 5L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset223_b9fcca8b529c3f30b3097a784b17b786() {
+ assertEval("argv <- list(structure(list(srcfile = '/home/lzhao/tmp/RtmpS45wYI/R.INSTALL2aa62411bcd3/rpart/R/rpart.R', frow = 187L, lrow = 187L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L), class = 'data.frame'), 2L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset224_be736ffbd9f1ad001365746456d2bd9f() {
+ assertEval("argv <- list(structure(list(y = c(78.5, 74.3, 104.3, 87.6, 95.9, 109.2, 102.7, 72.5, 93.1, 115.9, 83.8, 113.3, 109.4), x1 = c(7, 1, 11, 11, 7, 11, 3, 1, 2, 21, 1, 11, 10), x2 = c(26, 29, 56, 31, 52, 55, 71, 31, 54, 47, 40, 66, 68), x4 = c(60, 52, 20, 47, 33, 22, 6, 44, 22, 26, 34, 12, 12)), .Names = c('y', 'x1', 'x2', 'x4'), class = 'data.frame', row.names = c(NA, 13L), terms = quote(y ~ x1 + x2 + x4)), 3L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset225_d5ba052fc1bb6080b5d6363cc007c6d3() {
+ assertEval("argv <- list(structure(list(`cbind(X, M)` = structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(NULL, c('X', 'M'))), M.user = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L), .Label = c('N', 'Y'), class = 'factor'), Temp = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c('High', 'Low'), class = 'factor'), Soft = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c('Hard', 'Medium', 'Soft'), class = 'factor')), .Names = c('cbind(X, M)', 'M.user', 'Temp', 'Soft'), terms = quote(cbind(X, M) ~ M.user + Temp + Soft + M.user:Temp), row.names = c('1', '3', '5', '7', '9', '11', '13', '15', '17', '19', '21', '23'), class = 'data.frame'), 'cbind(X, M)');.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset226_dc3e47ec55117e9a6bfc0c96bf977f8c() {
+ assertEval("argv <- list(structure(list(Df = 10L, `Sum Sq` = 2.74035772634541, `Mean Sq` = 0.274035772634541, `F value` = NA_real_, `Pr(>F)` = NA_real_), .Names = c('Df', 'Sum Sq', 'Mean Sq', 'F value', 'Pr(>F)'), row.names = 'Residuals', class = c('anova', 'data.frame'), heading = c('Analysis of Variance Table\n', 'Response: y')), 5L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset227_0e2664c92cd3bc6f1df321bcab58653e() {
+ assertEval("argv <- list(structure(list(surname = structure(1:5, .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(c(1L, 2L, 3L, 3L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(1L, 1L, 1L, 2L, 1L), .Label = c('no', 'yes'), class = 'factor'), title = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = c(NA, -5L), class = 'data.frame'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset228_75e4822d42ca3310c7d260cb37de73a8() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1, 1, 1, 1), `Sum of Sq` = c(NA, 25.9509113775335, 2.97247824113524, 0.109090049888117, 0.246974722154086), RSS = c(47.863639350499, 73.8145507280325, 50.8361175916342, 47.9727294003871, 48.1106140726531), AIC = c(26.9442879283302, 30.5758847476115, 25.7275503692601, 24.9738836085411, 25.0111950072736)), .Names = c('Df', 'Sum of Sq', 'RSS', 'AIC'), row.names = c('<none>', '- x1', '- x2', '- x3', '- x4'), class = c('anova', 'data.frame')), 2L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset229_6a41e465c811d91aa16d8578736e378e() {
+ assertEval("argv <- list(structure(list(mtime = structure(1342423171, class = c('POSIXct', 'POSIXt'))), .Names = 'mtime'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset23_6bd0dfa01353379afa0651da61d6e077() {
+ assertEval("argv <- list(structure(list(x = c(0, 0, 1, 1), y = c(2, 2, 9, 9), z = c(0, 0, -3, -3), u = c(34, 35, 19, 37)), .Names = c('x', 'y', 'z', 'u'), row.names = c(2L, 90L, 25L, 50L), class = 'data.frame'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset230_ed64c3fd74a33c8d0a91bb13004e8139() {
+ assertEval("argv <- list(structure(list(df0 = structure(list(structure(integer(0), .Label = character(0), class = 'factor')), row.names = character(0), class = 'data.frame')), .Names = 'df0', row.names = 'c0', class = 'data.frame'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset231_fb96544e265fef59a60f89dc429f4941() {
+ assertEval("argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = 'ts'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c('y', 'lag.quarterly.revenue', 'price.index', 'income.level', 'market.potential'), row.names = c('1962.25', '1962.5', '1962.75', '1963', '1963.25', '1963.5', '1963.75', '1964', '1964.25', '1964.5', '1964.75', '1965', '1965.25', '1965.5', '1965.75', '1966', '1966.25', '1966.5', '1966.75', '1967', '1967.25', '1967.5', '1967.75', '1968', '1968.25', '1968.5', '1968.75', '1969', '1969.25', '1969.5', '1969.75', '1970', '1970.25', '1970.5', '1970.75', '1971', '1971.25', '1971.5', '1971.75'), class = 'data.frame'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset233_85c2d47894f9195a4586a7a01097d548() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), class = 'data.frame', row.names = c('1', '2', '3')), 6L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset234_fb726398b379e933ea2e414efbed9fe9() {
+ assertEval("argv <- list(structure(list(variog = c(0.00723952158228125, 0.014584633605134, 0.0142079356273193, 0.0184422668389517, 0.0111285046171491, 0.0199100817701382, 0.0270723108677323, 0.0341403794476899, 0.0283206569034573, 0.03752550654923), dist = c(1, 6, 7, 8, 13, 14, 15, 20, 21, 22), n.pairs = structure(c(16L, 16L, 144L, 16L, 16L, 128L, 16L, 16L, 112L, 16L), .Dim = 10L, .Dimnames = structure(list(c('1', '6', '7', '8', '13', '14', '15', '20', '21', '22')), .Names = ''))), .Names = c('variog', 'dist', 'n.pairs'), collapse = TRUE, row.names = c(NA, 10L), class = c('Variogram', 'data.frame')), 3L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset24_38da53b024019d3b9fa62944656c9913() {
+ assertEval("argv <- list(NULL, NULL);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset25_fb10f6c05ca8c80535c7a54d53576e01() {
+ assertEval("argv <- list(structure(list(V1 = c(1L, 9L), V2 = c(NA, NA), V3 = c(23L, 87L), V4 = c(NA, 654L)), .Names = c('V1', 'V2', 'V3', 'V4'), class = 'data.frame', row.names = c(NA, -2L)), 2L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset26_fc9c0eba30999ca172040fb6f11a3563() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 2L, 2L), Deviance = c(NA, 5.45230478674972, 2.66453525910038e-15), `Resid. Df` = c(8L, 6L, 4L), `Resid. Dev` = c(10.5814458637509, 5.12914107700115, 5.12914107700115)), .Names = c('Df', 'Deviance', 'Resid. Df', 'Resid. Dev'), row.names = c('NULL', 'outcome', 'treatment'), class = c('anova', 'data.frame'), heading = 'Analysis of Deviance Table\n\nModel: poisson, link: log\n\nResponse: counts\n\nTerms added sequentially (first to last)\n\n'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset27_1fffada81dfe35bfa3cb076387dbf136() {
+ assertEval("argv <- list(structure(list(surname = structure(c('Tukey', 'Venables', 'Tierney', 'Ripley', 'McNeil'), class = 'AsIs')), .Names = 'surname'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset28_2b9afe25abe40ad4bc0c6cf1a583c3c0() {
+ assertEval("argv <- list(structure(list(surname = structure('R Core', class = 'AsIs'), nationality = structure(NA_integer_, .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(NA_integer_, .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = 7L, class = 'data.frame'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubset2_testsubset29_7aa7ec151c558554050cc5a345272e8c() {
+ assertEval("argv <- list(structure(list(z = structure(c('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i'), .Dim = c(3L, 3L), class = 'AsIs')), .Names = 'z'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubstr_testsubstr3_be06744b575a43acbb92581c4d9d702f() {
+ assertEval("argv <- list(structure(c('as.formula', 'coef', 'makepredictcall', 'na.fail', 'predict'), .Names = c('as.formula', 'coef', 'makepredictcall', 'na.fail', 'predict')), 1L, 6L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubstr_testsubstr5_5c9a56a8fd6583281441f3a8429abbea() {
+ assertEval("argv <- list(structure('to be supported).', Rd_tag = 'TEXT'), 17L, 17L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubstr_testsubstr8_afd3ca7daa5e737bb50a9a8317607cb7() {
+ assertEval("argv <- list(structure(c('model.frame', 'predict', 'residuals'), .Names = c('model.frame', 'predict', 'residuals')), 1L, 6L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubstr_testsubstr9_314a2b7dd840e7bc6d2ba8990240c429() {
+ assertEval("argv <- list('> ### R code from vignette source 'parallel.Rnw'\n> \n> ###################################################\n> ### code chunk number 1: parallel.Rnw:474-475 (eval = FALSE)\n> ###################################################\n> ## library(parallel)\n> \n> \n> ###################################################\n> ### code chunk number 2: parallel.Rnw:500-507 (eval = FALSE)\n> ###################################################\n> ## library(boot)\n> ## cd4.rg <- function(data, mle) MASS::mvrnorm(nrow(data), mle$m, mle$v)\n> ## cd4.mle <- list(m = colMeans(cd4), v = var(cd4))\n> ## cd4.boot <- boot(cd4, corr, R = 999, sim = \'parametric\',\n> ## ran.gen = cd4.rg, mle = cd4.mle)\n> ## boot.ci(cd4.boot, type = c(\'norm\', \'basic\', \'perc\'),\n> ## conf = 0.9, h = atanh, hinv = tanh)\n> \n> \n> ###################################################\n> ### code chunk number 3: parallel.Rnw:512-522 (eval = FALSE)\n> ###################################################\n> ## cd4.rg <- function(data, mle) MASS::mvrnorm(nrow(data), mle$m, mle$v)\n> ## cd4.mle <- list(m = colMeans(cd4), v = var(cd4))\n> ## run1 <- function(...) boot(cd4, corr, R = 500, sim = \'parametric\',\n> ## ran.gen = cd4.rg, mle = cd4.mle)\n> ## mc <- 2 # set as appropriate for your hardware\n> ## ## To make this reproducible:\n> ## set.seed(123, \'L'Ecuyer\')\n> ## cd4.boot <- do.call(c, mclapply(seq_len(mc), run1) )\n> ## boot.ci(cd4.boot, type = c(\'norm\', \'basic\', \'perc\'),\n> ## conf = 0.9, h = atanh, hinv = tanh)\n> \n> \n> ###################################################\n> ### code chunk number 4: parallel.Rnw:527-528 (eval = FALSE)\n> ###################################################\n> ## do.call(c, lapply(seq_len(mc), run1))\n> \n> \n> ###################################################\n> ### code chunk number 5: parallel.Rnw:532-547 (eval = FALSE)\n> ###################################################\n> ## run1 <- function(...) {\n> ## library(boot)\n> ## cd4.rg <- function(data, mle) MASS::mvrnorm(nrow(data), mle$m, mle$v)\n> ## cd4.mle <- list(m = colMeans(cd4), v = var(cd4))\n> ## boot(cd4, corr, R = 500, sim = \'parametric\',\n> ## ran.gen = cd4.rg, mle = cd4.mle)\n> ## }\n> ## cl <- makeCluster(mc)\n> ## ## make this reproducible\n> ## clusterSetRNGStream(cl, 123)\n> ## library(boot) # needed for c() method on master\n> ## cd4.boot <- do.call(c, parLapply(cl, seq_len(mc), run1) )\n> ## boot.ci(cd4.boot, type = c(\'norm\', \'basic\', \'perc\'),\n> ## conf = 0.9, h = atanh, hinv = tanh)\n> ## stopCluster(cl)\n> \n> \n> ###################################################\n> ### code chunk number 6: parallel.Rnw:557-570 (eval = FALSE)\n> ###################################################\n> ## cl <- makeCluster(mc)\n> ## cd4.rg <- function(data, mle) MASS::mvrnorm(nrow(data), mle$m, mle$v)\n> ## cd4.mle <- list(m = colMeans(cd4), v = var(cd4))\n> ## clusterExport(cl, c(\'cd4.rg\', \'cd4.mle\'))\n> ## junk <- clusterEvalQ(cl, library(boot)) # discard result\n> ## clusterSetRNGStream(cl, 123)\n> ## res <- clusterEvalQ(cl, boot(cd4, corr, R = 500,\n> ## sim = \'parametric\', ran.gen = cd4.rg, mle = cd4.mle))\n> ## library(boot) # needed for c() method on master\n> ## cd4.boot <- do.call(c, res)\n> ## boot.ci(cd4.boot, type = c(\'norm\', \'basic\', \'perc\'),\n> ## conf = 0.9, h = atanh, hinv = tanh)\n> ## stopCluster(cl)\n> \n> \n> ###################################################\n> ### code chunk number 7: parallel.Rnw:575-589 (eval = FALSE)\n> ###################################################\n> ## R <- 999; M <- 999 ## we would like at least 999 each\n> ## cd4.nest <- boot(cd4, nested.corr, R=R, stype=\'w\', t0=corr(cd4), M=M)\n> ## ## nested.corr is a function in package boot\n> ## op <- par(pty = \'s\', xaxs = \'i\', yaxs = \'i\')\n> ## qqplot((1:R)/(R+1), cd4.nest$t[, 2], pch = \'.\', asp = 1,\n> ## xlab = \'nominal\', ylab = \'estimated\')\n> ## abline(a = 0, b = 1, col = \'grey\')\n> ## abline(h = 0.05, col = \'grey\')\n> ## abline(h = 0.95, col = \'grey\')\n> ## par(op)\n> ## \n> ## nominal <- (1:R)/(R+1)\n> ## actual <- cd4.nest$t[, 2]\n> ## 100*nominal[c(sum(actual <= 0.05), sum(actual < 0.95))]\n> \n> \n> ###################################################\n> ### code chunk number 8: parallel.Rnw:594-602 (eval = FALSE)\n> ###################################################\n> ## mc <- 9\n> ## R <- 999; M <- 999; RR <- floor(R/mc)\n> ## run2 <- function(...)\n> ## cd4.nest <- boot(cd4, nested.corr, R=RR, stype=\'w\', t0=corr(cd4), M=M)\n> ## cd4.nest <- do.call(c, mclapply(seq_len(mc), run2, mc.cores = mc) )\n> ## nominal <- (1:R)/(R+1)\n> ## actual <- cd4.nest$t[, 2]\n> ## 100*nominal[c(sum(actual <= 0.05), sum(actual < 0.95))]\n> \n> \n> ###################################################\n> ### code chunk number 9: parallel.Rnw:616-627 (eval = FALSE)\n> ###################################################\n> ## library(spatial)\n> ## towns <- ppinit(\'towns.dat\')\n> ## tget <- function(x, r=3.5) sum(dist(cbind(x$x, x$y)) < r)\n> ## t0 <- tget(towns)\n> ## R <- 1000\n> ## c <- seq(0, 1, 0.1)\n> ## ## res[1] = 0\n> ## res <- c(0, sapply(c[-1], function(c)\n> ## mean(replicate(R, tget(Strauss(69, c=c, r=3.5))))))\n> ## plot(c, res, type=\'l\', ylab=\'E t\')\n> ## abline(h=t0, col=\'grey\')\n> \n> \n> ###################################################\n> ### code chunk number 10: parallel.Rnw:631-640 (eval = FALSE)\n> ###################################################\n> ## run3 <- function(c) {\n> ## library(spatial)\n> ## towns <- ppinit(\'towns.dat\') # has side effects\n> ## mean(replicate(R, tget(Strauss(69, c=c, r=3.5))))\n> ## }\n> ## cl <- makeCluster(10, methods = FALSE)\n> ## clusterExport(cl, c(\'R\', \'towns\', \'tget\'))\n> ## res <- c(0, parSapply(cl, c[-1], run3)) # 10 tasks\n> ## stopCluster(cl)\n> \n> \n> ###################################################\n> ### code chunk number 11: parallel.Rnw:644-648 (eval = FALSE)\n> ###################################################\n> ## cl <- makeForkCluster(10) # fork after the variables have been set up\n> ## run4 <- function(c) mean(replicate(R, tget(Strauss(69, c=c, r=3.5))))\n> ## res <- c(0, parSapply(cl, c[-1], run4))\n> ## stopCluster(cl)\n> \n> \n> ###################################################\n> ### code chunk number 12: parallel.Rnw:651-653 (eval = FALSE)\n> ###################################################\n> ## run4 <- function(c) mean(replicate(R, tget(Strauss(69, c=c, r=3.5))))\n> ## res <- c(0, unlist(mclapply(c[-1], run4, mc.cores = 10)))\n> \n> \n> ###################################################\n> ### code chunk number 13: parallel.Rnw:684-718 (eval = FALSE)\n> ###################################################\n> ## pkgs <- \'<names of packages to be installed>\'\n> ## M <- 20 # number of parallel installs\n> ## M <- min(M, length(pkgs))\n> ## library(parallel)\n> ## unlink(\'install_log\')\n> ## cl <- makeCluster(M, outfile = \'install_log\')\n> ## clusterExport(cl, c(\'tars\', \'fakes\', \'gcc\')) # variables needed by do_one\n> ## \n> ## ## set up available via a call to available.packages() for\n> ## ## repositories containing all the packages involved and all their\n> ## ## dependencies.\n> ## DL <- utils:::.make_dependency_list(pkgs, available, recursive = TRUE)\n> ## DL <- lapply(DL, function(x) x[x %in% pkgs])\n> ## lens <- sapply(DL, length)\n> ## ready <- names(DL[lens == 0L])\n> ## done <- character() # packages already installed\n> ## n <- length(ready)\n> ## submit <- function(node, pkg)\n> ## parallel:::sendCall(cl[[node]], do_one, list(pkg), tag = pkg)\n> ## for (i in 1:min(n, M)) submit(i, ready[i])\n> ## DL <- DL[!names(DL) %in% ready[1:min(n, M)]]\n> ## av <- if(n < M) (n+1L):M else integer() # available workers\n> ## while(length(done) < length(pkgs)) {\n> ## d <- parallel:::recvOneResult(cl)\n> ## av <- c(av, d$node)\n> ## done <- c(done, d$tag)\n> ## OK <- unlist(lapply(DL, function(x) all(x %in% done) ))\n> ## if (!any(OK)) next\n> ## p <- names(DL)[OK]\n> ## m <- min(length(p), length(av)) # >= 1\n> ## for (i in 1:m) submit(av[i], p[i])\n> ## av <- av[-(1:m)]\n> ## DL <- DL[!names(DL) %in% p[1:m]]\n> ## }\n> \n> \n> ###################################################\n> ### code chunk number 14: parallel.Rnw:731-748 (eval = FALSE)\n> ###################################################\n> ## fn <- function(r) statistic(data, i[r, ], ...)\n> ## RR <- sum(R)\n> ## res <- if (ncpus > 1L && (have_mc || have_snow)) {\n> ## if (have_mc) {\n> ## parallel::mclapply(seq_len(RR), fn, mc.cores = ncpus)\n> ## } else if (have_snow) {\n> ## list(...) # evaluate any promises\n> ## if (is.null(cl)) {\n> ## cl <- parallel::makePSOCKcluster(rep(\'localhost\', ncpus))\n> ## if(RNGkind()[1L] == \'L'Ecuyer-CMRG\')\n> ## parallel::clusterSetRNGStream(cl)\n> ## res <- parallel::parLapply(cl, seq_len(RR), fn)\n> ## parallel::stopCluster(cl)\n> ## res\n> ## } else parallel::parLapply(cl, seq_len(RR), fn)\n> ## }\n> ## } else lapply(seq_len(RR), fn)\n> \n> \n> ###################################################\n> ### code chunk number 15: parallel.Rnw:751-752 (eval = FALSE)\n> ###################################################\n> ## list(...) # evaluate any promises\n> \n> ', 1L, 150L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsubstrassign_testsubstrassign2_52b4aa2e496589d8e3038eb5f3f8f791() {
+ assertEval("argv <- list(c('asfef', 'qwerty', 'yuiop[', 'b', 'stuff.blah.yech'), 2L, 1000000L, c('..', '+++')); .Internal(`substr<-`(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsum_testsum16_1fa4b5607c456d651c7fab1b023f809f() {
+ assertEval("argv <- list(1073741824L, 1073741824L);sum(argv[[1]],argv[[2]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsum_testsum18_f05c9601399b62fff5eb10945d0d96c4() {
+ assertEval("argv <- list(c(1073741824L, 1073741824L));sum(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsummaryconnection_testsummaryconnection1_8c97205334627ba90d66cdf7be082e86() {
+ assertEval("argv <- list(structure(2L, class = c('terminal', 'connection'))); .Internal(summary.connection(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinsysonexit_testsysonexit1_0d4c9db5997c385cb40a542f86ba4e62() {
+ assertEval(" .Internal(sys.on.exit())");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintabulate_testtabulate1_102d7e7e0b3f2b4fa4de42e2f1373091() {
+ assertEval("argv <- list(1L, 1L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintabulate_testtabulate2_feddaf0d44efd9a7d1a527c99bb5b053() {
+ assertEval("argv <- list(1:6, 6L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintabulate_testtabulate3_341d695494b43d1d262c736737411bdc() {
+ assertEval("argv <- list(integer(0), 1L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintabulate_testtabulate4_a611bb6091afebd1d281a99f55e7d258() {
+ assertEval("argv <- list(c(1L, 9L, 13L, 25L, 11L, 24L, 3L, 20L, 20L, 15L, 20L, 14L, 24L, 19L, 12L, 8L, 1L, 11L, 4L, 3L, 21L, 25L, 10L, 3L, 12L), 25L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintabulate_testtabulate5_d3a64506daf25236253f0a26305b3973() {
+ assertEval("argv <- list(structure(1:49, .Label = c('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48'), class = 'factor'), 49L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintabulate_testtabulate6_93c91da2aef4edca44d052ca098eeee8() {
+ assertEval("argv <- list(integer(0), 0L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintan_testtan1_569f4f339801a0db973e92721d4cf8d2() {
+ assertEval("argv <- list(c(2.19881034888372+1i, 1.31241297643351+1i, -0.26514505669635+1i, 0.54319405923209+1i, -0.41433994791886+1i, -0.47624689461558+1i, -0.78860283785024+1i, -0.59461726745951+1i, 1.65090746733669+1i, -0.05402812508544+1i, 0.11924523642758+1i, 0.24368742959909+1i, 1.23247587848534+1i, -0.51606383094478+1i, -0.99250715039204+1i, 1.67569693240319+1i, -0.44116321690529+1i, -0.72306596993987+1i, -1.23627311888329+1i, -1.2847157223178+1i, -0.57397347929799+1i, 0.61798581716653+1i, 1.10984813892972+1i, 0.70758835383559+1i, -0.36365729709525+1i, 0.0597499373846+1i, -0.70459646368007+1i, -0.71721816157401+1i, 0.88465049897692+1i, -1.01559257860354+1i, 1.95529396549246+1i, -0.09031959396585+1i, 0.21453882662922+1i, -0.73852770473957+1i, -0.57438868976327+1i, -1.31701613230524+1i, -0.18292538837273+1i, 0.41898240492446+1i, 0.32430434416138+1i, -0.78153648705475+1i, -0.788621970854+1i, -0.50219871834286+1i, 1.49606066984635+1i, -1.13730362066574+1i, -0.1790515943802+1i, 1.90236182167893+1i, -0.10097488532881+1i, -1.35984070382139+1i, -0.66476943527406+1i, 0.48545997890488+1i, -0.37560287166977+1i, -0.56187636354978+1i, -0.34391723412846+1i, 0.09049664713922+1i, 1.59850877114583+1i, -0.08856511213888+1i, 1.08079949615152+1i, 0.63075411565057+1i, -0.11363989550614+1i, -1.5329020028906+1i, -0.52111731755252+1i, -0.48987045313847+1i, 0.04715443276153+1i, 1.30019867766682+1i, 2.29307897383109+1i, 1.54758105898377+1i, -0.13315096432894+1i, -1.75652739555764+1i, -0.38877986407174+1i, 0.08920722307329+1i, 0.84501300406744+1i, 0.96252796848427+1i, 0.68430942941646+1i, -1.39527434979947+1i, 0.84964304563336+1i, -0.44655721642722+1i, 0.17480270016126+1i, 0.07455117717373+1i, 0.42816676497051+1i, 0.02467498282614+1i, -1.66747509758566+1i, 0.73649596477344+1i, 0.38602656834968+1i, -0.26565162527822+1i, 0.11814451104668+1i, 0.13403864536846+1i, 0.221019468561+1i, 1.64084616597749+1i, -0.21905037893348+1i, 0.16806538388466+1i, 1.16838387306909+1i, 1.05418102337692+1i, 1.14526311038036+1i, -0.57746800105956+1i, 2.00248273029283+1i, 0.06670087093018+1i, 1.86685184470686+1i, -1.35090268603071+1i, 0.02098358635424+1i, 1.24991457096922+1i));tan(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintan_testtan3_49f9c21e16cfe9b59f79f726609f6c94() {
+ assertEval("argv <- list(Inf);tan(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintan_testtan4_61456f57ec58f78d4ce30165260aa1c3() {
+ assertEval("argv <- list(c(-6.28318530717959, -6.15752160103599, -6.0318578948924, -5.90619418874881, -5.78053048260522, -5.65486677646163, -5.52920307031804, -5.40353936417444, -5.27787565803085, -5.15221195188726, -5.02654824574367, -4.90088453960008, -4.77522083345649, -4.64955712731289, -4.5238934211693, -4.39822971502571, -4.27256600888212, -4.14690230273853, -4.02123859659494, -3.89557489045134, -3.76991118430775, -3.64424747816416, -3.51858377202057, -3.39292006587698, -3.26725635973338, -3.14159265358979, -3.0159289474462, -2.89026524130261, -2.76460153515902, -2.63893782901543, -2.51327412287183, -2.38761041672824, -2.26194671058465, -2.13628300444106, -2.01061929829747, -1.88495559215388, -1.75929188601028, -1.63362817986669, -1.5079644737231, -1.38230076757951, -1.25663706143592, -1.13097335529233, -1.00530964914873, -0.879645943005142, -0.75398223686155, -0.628318530717958, -0.502654824574367, -0.376991118430775, -0.251327412287183, -0.125663706143591, 8.88178419700125e-16, 0.125663706143592, 0.251327412287184, 0.376991118430776, 0.502654824574368, 0.62831853071796, 0.753982236861551, 0.879645943005142, 1.00530964914873, 1.13097335529233, 1.25663706143592, 1.38230076757951, 1.5079644737231, 1.63362817986669, 1.75929188601028, 1.88495559215388, 2.01061929829747, 2.13628300444106, 2.26194671058465, 2.38761041672824, 2.51327412287183, 2.63893782901543, 2.76460153515902, 2.89026524130261, 3.0159289474462, 3.14159265358979, 3.26725635973339, 3.39292006587698, 3.51858377202057, 3.64424747816416, 3.76991118430775, 3.89557489045134, 4.02123859659494, 4.14690230273853, 4.27256600888212, 4.39822971502571, 4.5238934211693, 4.64955712731289, 4.77522083345649, 4.90088453960008, 5.02654824574367, 5.15221195188726, 5.27787565803085, 5.40353936417445, 5.52920307031804, 5.65486677646163, 5.78053048260522, 5.90619418874881, 6.0318578948924, 6.157521601036, 6.28318530717959));tan(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintan_testtan5_fb04c25fd1ada8f2fe176e135a4deeb7() {
+ assertEval("argv <- list(1+1000i);tan(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintanh_testtanh1_edd961811b796fcbe12fc269bb7d3f87() {
+ assertEval("argv <- list(c(0.57459950307683, 1.3311607364495));tanh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintanh_testtanh2_375a802d82e03537aa707b1631e96ac9() {
+ assertEval("argv <- list(FALSE);tanh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintanh_testtanh3_478078d9e56d432957202f074fd8cd0e() {
+ assertEval("argv <- list(c(0.018063120710024, 0.202531388051386, 0.417573408622862, 1.63052300091743, 2.60085453772445, 2.75283670267494, 2.30083138197613, 1.47188976409943, 0.829803307993584, 0.295089115172324, 0.237719196109985, 0.617898787321681, 0.850777050382226, 0.516973890969527, 0.522699166681335, 0.850446724158497, 0.645479182912265, 0.193978409371909, 0.414456893353747, 0.492772947140595, 0.420563171733189, 0.369166401583374, 0.592867562934369, 1.21638206559229, 0.54564621330955, 0.672292186547141, 0.557193544541334, 0.112218530051911, -0.0391766542932368, 0.246991917518619, -0.0310729286667355, 0.100305401934259, 0.385595467685569, 0.347899688300561, 0.0900835492886662, -0.128526864819991));tanh(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintcrossprod_testtcrossprod1_4314518b98c5af37eb020f0cc3022da1() {
+ assertEval("argv <- list(structure(c(5, 2, 0, 2, 5, 2, 0, 2, 5), .Dim = c(3L, 3L)), structure(c(0, 1, 0, 0, 2, 0, 0, 2, 0, 1, 2, 0, 1, 0, 0), .Dim = c(5L, 3L), .Dimnames = list(c('a', 'b', 'c', 'd', 'e'), NULL))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintcrossprod_testtcrossprod2_e791b4ba5ff95c8d4b7152502910c736() {
+ assertEval("argv <- list(structure(c(5, 2, 0, 2, 5, 2, 0, 2, 5), .Dim = c(3L, 3L), .Dimnames = list(c('A', 'B', 'C'), c('A', 'B', 'C'))), structure(c(0, 1, 0, 0, 2, 0, 0, 2, 0, 1, 2, 0, 1, 0, 0), .Dim = c(5L, 3L), .Dimnames = list(NULL, c('A', 'B', 'C')))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintcrossprod_testtcrossprod3_0a46978a95837c37264e7fb2582dff9d() {
+ assertEval("argv <- list(structure(c(-1.67712982705863, -1.48498667828929, -1.66855080519244, -1.58355627712096, -1.82359988031979, -1.9949008033236, -0.0318360538544526, -0.560218641212122, 0.066207937805176, 0.499775901814107, -0.00128363357081381, -0.00713986667014182, 0.296776079992064, -0.138150806520963, 0.253601178172029, -0.170225064799926, -0.240191246767341, -0.00408674943172847, -0.242382276284081, 0.0729153527553058, 0.269807081327349, 0.0299339639014576, -0.077267349576335, -0.0293027062153706, -0.0099926992270607, 0.0334924583850379, -0.0453336990810482, 0.0438958486872448, -0.112099180250145, 0.089015596249019), .Dim = c(6L, 5L)), structure(c(-0.399602067979347, -0.353820997034499, -0.397557983601584, -0.377306725388702, -0.434500818950138, -0.47531590790431, -0.0422023061126668, -0.742633452454394, 0.087766143100416, 0.662509734796894, -0.00170160212505116, -0.00946470439441127, 0.584095849615428, -0.271899651454647, 0.499121747385523, -0.335026171424641, -0.472729171281292, -0.00804328091925277, -0.637436340955898, 0.191758639997983, 0.70956029179181, 0.0787227379500612, -0.2032038701195, -0.0770626058818733, -0.062340518587102, 0.208946269374942, -0.282819110829524, 0.273848927982668, -0.699342677207614, 0.555333279468297), .Dim = c(6L, 5L))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintcrossprod_testtcrossprod4_8734f772dd52f75c834c2a0a502aab59() {
+ assertEval("argv <- list(c(2, 3), structure(c(0, 0, 1, 0), .Dim = c(2L, 2L), .Dimnames = list(NULL, NULL))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintcrossprod_testtcrossprod5_81cff9308b297ddba3d09efc2ea1c289() {
+ assertEval("argv <- list(structure(c(-0.106539372596213, -2.87400113021639, 0.341152775291742, 1.88577541025803, 0.842201032082677, -1.43117364207636, -0.69348461621825, -2.41970841038843, -3.02719090531729, -0.226641199170227, -0.332680183991575, -1.62371869115524, -1.66979618600051, -1.10431770731054, 1.88731633228519, 2.05877121721062, -0.223853590000374, 2.00359231906507, 2.73128102907396, 0.539089155601206, -0.199828039026098, -1.05787977326062, 0.306997029957149, 1.45711168105796, 1.49857746263809, -0.757919845814536, 0.268252398125501, -0.535834002202256, -0.271560453176356, -2.05847896960824, 0.980553291004929, 0.685818887220841, -0.522933983909647, -0.337189871316714, 0.191459457586776, 1.89272736696455, -0.453746315234956, 0.612338437255857, 1.37687299952389, -1.15071450872488, -0.20817483353688, -0.081142998844394, -0.253631714967276, -0.410462721238244, -0.68459626706876, -0.624834027577721, 0.00753430632431097, -0.0556623066116985, -0.563702942039652, 0.0408500401240061, -0.420302429975138, 0.033747665813787, 0.339840694442255, -0.250248532584852, -0.31434827109732, 0.378366203759376, -0.193977362697154, -0.518701418701189, 1.24086430187875, 0.0626244079886504, -0.168813902431602, -0.233723461170579, -0.0800002226605061, -0.0555238917407563, -0.947495254278566, -0.0485572234634504, -0.0296030565974314, -0.095544458696536, 0.0295824037592777, 0.194854132525369, 0.267233992325682, -0.087254491408015, 0.126110082843019, 0.159157280802928, -0.155595903815538, 0.170585777111235, -0.160659663851048, -0.059679874503493, 0.0114766797349517, -0.288711739670586, 0.192267902822735, -0.558695699349865, -0.0862396209998433, 0.00725278175306798, -0.128294571915242, -0.130284537275488, -0.0857140300930927, -0.0514859262258765, -0.0490801347386973, 0.0204665694600954, -0.14875269796722, 0.196176132315475, -0.0529883263026191, -0.132778199491125, -0.228017010951841, 0.0529472898389869), .Dim = c(12L, 8L)), structure(c(-0.0185462290552347, -0.500302207222603, 0.059387411050087, 0.328273218183171, 0.146609210012521, -0.249136760776327, -0.120720858638907, -0.421219548532773, -0.526969274886959, -0.0394533916498165, -0.057912513881884, -0.282654740999492, -0.321354169237256, -0.212527194864884, 0.363216168017541, 0.396212855019715, -0.0430808772043306, 0.385593613508892, 0.525638130815129, 0.103748319223306, -0.0384571326787796, -0.203590161804909, 0.0590819264933657, 0.28042279511599, 0.416779971858557, -0.210790446196582, 0.0746055707690415, -0.149024582263218, -0.0755255973444945, -0.572498138010465, 0.272708607475933, 0.190737938906932, -0.145436866983219, -0.0937782587701373, 0.0532481432121619, 0.52639978807016, -0.204031585044791, 0.275344124552216, 0.61912476435818, -0.517430328944052, -0.0936079034183924, -0.0364867638890611, -0.114048046419078, -0.184568682552654, -0.307835583002935, -0.280962892162748, 0.0033878764630103, -0.0250291148686315, -0.338839482109357, 0.0245547883601272, -0.252642033739931, 0.0202855808510911, 0.204276820851501, -0.150423346865756, -0.188953431740463, 0.227434343460447, -0.116598981866977, -0.311789254542753, 0.745878344887204, 0.0376432698639114, -0.159472254176866, -0.220789915226282, -0.0755732534972413, -0.0524513683353668, -0.895063746796005, -0.0458702143055051, -0.0279649134231136, -0.0902573187573718, 0.0279454034502495, 0.184071497085901, 0.252446075441722, -0.0824260930614398, 0.167922807083695, 0.211927046257706, -0.207184868571959, 0.227144744458931, -0.21392755544038, -0.0794671752416819, 0.0152818571968794, -0.384436237535829, 0.256015738204522, -0.743935362069355, -0.114833000769291, 0.00965749481472171, -0.300640883681616, -0.30530409690622, -0.200859174058623, -0.120650267011609, -0.115012621802916, 0.0479606224687302, -0.348581720171566, 0.459712089888966, -0.124170937293853, -0.311147655218321, -0.534326859224339, 0.124074773921503), .Dim = c(12L, 8L))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintcrossprod_testtcrossprod6_ddac5708483471742ea352332f0a82fd() {
+ assertEval("argv <- list(structure(c(-1.22589324018138, -0.740548974281808, -0.54768368397833, -0.441021701509591, -0.370068251595057, -0.319690799411412, -0.282987166340516, -0.254112864677485, -0.230083320312515, 0.203647970189376, -0.0305516337408725, -0.0825170335109532, -0.0984577177107505, -0.100129992839015, -0.0988979642888749, -0.0945771185256416, -0.0902309571831907, -0.0871241228998968, -0.00955870050771132, 0.0197754782700907, 0.0125304440435148, 0.00419858922572787, -0.00191073996840182, -0.0061756059258365, -0.00956682744689523, -0.0127366531032827, -0.0131079781713544, 0.000214464770644159, -0.000956552371122151, 5.72249143534175e-05, 0.00029865136977495, 0.00077852017665313, 0.00142425180877207, 0.000491677810053133, -0.000120006753650731, -0.00247588122373662, 4.2574997724815e-05, -0.000297064220851874, 0.000399761711902461, 5.67830351414009e-05, -0.00026523273781528, 0.000320119491527155, -0.00026454073650643, -0.000195756422133707, 0.000192249930248858, -4.94461924222768e-07, 2.80125995838013e-05, -0.000119138513940463, 0.000151917649712048, -7.31975645151543e-05, 4.92140187851149e-05, -1.13604576670922e-05, -3.74519303853871e-05, 9.55915555684852e-06), .Dim = c(9L, 6L)), structure(c(-0.709851441473678, -0.428813651666777, -0.317135326144804, -0.255372882626744, -0.214287405483635, -0.185116425598763, -0.163863247924954, -0.147143631578904, -0.133229363887123, 0.633337192677659, -0.0950143815681878, -0.256624734846691, -0.306199636924392, -0.311400346924765, -0.307568786499592, -0.294131125799441, -0.280614734641737, -0.270952601985731, -0.28505721606605, 0.58973945020027, 0.373679821042009, 0.125209295460755, -0.0569816174886273, -0.184167401344961, -0.285299575647986, -0.379829336915808, -0.390902901787376, 0.0675695685124445, -0.301372718615498, 0.0180293609967187, 0.0940935153626058, 0.245281648154537, 0.448726753036158, 0.154908693733931, -0.0378094944843564, -0.780054577138554, 0.056333641054865, -0.393064241503382, 0.528949712019966, 0.0751331835725979, -0.350946016360591, 0.423570111428232, -0.350030386168567, -0.259017559788085, 0.254377901167792, -0.00226968135332679, 0.128583560874789, -0.546870143699694, 0.697333080468545, -0.335991790571385, 0.225902410856869, -0.0521468239901137, -0.171912019667483, 0.0438784789244046), .Dim = c(9L, 6L))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintcrossprod_testtcrossprod7_d69f763e8621cd3655996220e07a7911() {
+ assertEval("argv <- list(0, 0); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintcrossprod_testtcrossprod8_fd4028b410685c9ccfcdf907e176e27e() {
+ assertEval("argv <- list(structure(c(1.1173625565162, 1.46907016195074, 1.1173625565162, -0.59596185089264, -1.32605913508878e-308, 0.595961850892641), .Dim = c(3L, 2L)), structure(c(0.517876924314756, 0.680886908762812, 0.517876924314755, -0.707106781186547, -1.57336481399136e-308, 0.707106781186548), .Dim = c(3L, 2L))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault1_484be8b1d7ad518ca03bbd8f72b666a7() {
+ assertEval("argv <- list(structure(c('D:', 'E:', 'F:', 'G:'), .Dim = c(4L, 1L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault10_f3f7c654a28cab3226b1d4a90f4b412f() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 74, 68, 56, 57, 60, 74, 53, 61, 57, 57, 67, 70, 63, 57, 67, 50, 58, 72, 60, 70, 53, 74, 73, 48, 61, 65, 74, 70, 68, 74, 63, 74, 63, 68, 58, 59, 62, 57, 48, 73, 69, 68, 68, 67, 63, 74, 40, 81, 73, 59, 55, 42, 44, 71, 61, 72, 63, 70, 66, 72, 69, 71, 64, 56, 63, 59, 66, 67, 55, 69, 44, 80, 76, 49, 68, 66, 80, 75, 72, 70, 66, 50, 64, 53, 47, 67, 56, 54, 56, 74, 76, 57, 71, 54, 82, 70, 60, 55, 69, 62, 63, 69, 63, 64, 46, 61, 65, 61, 56, 53, 56, 60, 39, 58, 64, 53, 72, 52, 50, 64, 71, 70, 64, 60, 73, 62, 69, 67, 69, 65, 65, 76, 67, 76, 77, 39, 66, 1, 0, 0, 1, 0, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 0, 0, 0, 3, 1, 2, 2, 2, 2, 2, 2, 1, 1, 0, 1, 0, 0, 0, 0, 1, 0, 2, 1, 1, 1, 2, 0, 1, 0, 2, 1, 0, 0, 0, 1, 1, 1, 1, 0, 2, 0, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 0, 1, 1, 2, 2, 2, 2, 1, 0, 2, 0, 1, 1, 1, 1, 0, 0, 2, 1, 0, 1, 2, 1, 0, 1, 0, 1, 0, 2, 2, 2, 1, 2, 1, 1, 0, 1, 0, 1, 1, 1, 2, 0, 0, 0, 1, 0, 1, 2, 1, 1, 1, 0, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 0, 1), .Dim = c(137L, 3L), .Dimnames = list(c('1', '2', '3', '4', '5', '6', '9', '10', '11', '15', '16', '17', '18', '20', '21', '23', '24', '25', '27', '28', '29', '30', '32', '33', '35', '37', '39', '41', '45', '47', '48', '49', '52', '53', '54', '55', '56', '58', '62', '63', '65', '66', '69', '70', '71', '73', '74', '79', '80', '81', '82', '83', '85', '86', '88', '90', '91', '92', '93', '96', '97', '98', '99', '103', '104', '105', '106', '108', '109', '111', '112', '113', '116', '117', '118', '119', '120', '121', '124', '125', '126', '127', '128', '132', '133', '135', '138', '139', '140', '142', '143', '145', '147', '148', '149', '151', '152', '155', '156', '158', '159', '163', '164', '165', '168', '169', '170', '171', '173', '175', '177', '181', '182', '188', '189', '190', '191', '192', '193', '194', '195', '196', '198', '200', '202', '206', '209', '212', '213', '215', '216', '218', '221', '223', '224', '225', '227'), c('(Intercept)', 'age', 'ph.ecog')), assign = 0:2)); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault11_dfb326b2db541aaf0d14ea02b14ffa73() {
+ assertEval("argv <- list(structure(c(NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(20L, 20L), .Dimnames = list(c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_)))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault12_77ba6d03dcb038abeaf0e35b76474deb() {
+ assertEval("argv <- list(structure('foo', .Dim = c(1L, 1L), .Dimnames = list(structure('object', simpleOnly = TRUE), NULL))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault13_92f115b08cef10b8b8b0c68910c97135() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 3.95252516672997e-323, 0, 0, 0, 0, 0), .Dim = c(12L, 1L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault14_244a400ef04182d49484e38e08920475() {
+ assertEval("argv <- list(structure(c(794, 86, 150, 570), .Dim = c(2L, 2L), .Dimnames = structure(list(`1st Survey` = c('Approve', 'Disapprove'), `2nd Survey` = c('Approve', 'Disapprove')), .Names = c('1st Survey', '2nd Survey')))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault15_3bf8ed6c1fc32cfd3d4c88d9d135726c() {
+ assertEval("argv <- list(structure(list(3, 3, 3, 3, 3, 'fred'), .Dim = 2:3)); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault16_15977dd9104f966c735b9e5ed654c521() {
+ assertEval("argv <- list(1.28578345790245); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault17_519288a8b2a786d4223f90fe3f544995() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i), .Dim = c(5L, 5L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault18_198061f5782d515338f7e7c29c33145f() {
+ assertEval("argv <- list(structure(c(0, 1954.88214285714, 557.144827586207, 0, 0, 1392.34285714286, 0, 0, 0), .Dim = c(3L, 3L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault19_b1e99a973c4728a1592b245757328a5f() {
+ assertEval("argv <- list(c(3, 4)); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault2_9db7b02224702e06049e875c1ce9a13a() {
+ assertEval("argv <- list(structure(c(0.63, -0.37, 0.4, -0.6, 0.85, -0.05, 1.02, -1.76, -1.62, -0.46, -0.57, 1.41, 0, -0.65, 0.57, -0.29, 1.22, 0.8, -0.5, 0.44, 1.63, -0.13, 0.17, 1.02, 0.11), .Dim = c(5L, 5L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault20_05b5618afd90d4ac995441ab39bfa4ee() {
+ assertEval("argv <- list(structure(c(0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 1L), .Dim = c(4L, 4L), .Dimnames = list(c('Y', 'B', 'V', 'N'), c('B', 'V', 'N', 'V:N')))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault21_cc91eeb77fc367283629c51a17902694() {
+ assertEval("argv <- list(-3:5); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault22_d2c2a099a76c7266501ec77260efbcbb() {
+ assertEval("argv <- list(structure(c(8.3, 8.6, 8.8, 10.5, 10.7, 10.8, 11, 11, 11.1, 11.2, 11.3, 11.4, 11.4, 11.7, 12, 12.9, 12.9, 13.3, 13.7, 13.8, 14, 14.2, 14.5, 16, 16.3, 17.3, 17.5, 17.9, 18, 18, 20.6, 70, 65, 63, 72, 81, 83, 66, 75, 80, 75, 79, 76, 76, 69, 75, 74, 85, 86, 71, 64, 78, 80, 74, 72, 77, 81, 82, 80, 80, 80, 87, 10.3, 10.3, 10.2, 16.4, 18.8, 19.7, 15.6, 18.2, 22.6, 19.9, 24.2, 21, 21.4, 21.3, 19.1, 22.2, 33.8, 27.4, 25.7, 24.9, 34.5, 31.7, 36.3, 38.3, 42.6, 55.4, 55.7, 58.3, 51.5, 51, 77), .Dim = c(31L, 3L), .Dimnames = list(NULL, c('Girth', 'Height', 'Volume')))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault23_12effa2ea22153b415abd808278c27fe() {
+ assertEval("argv <- list(structure(list(), .Dim = 0L)); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault24_6a7c37fd02f02f5d480ad24085c00d2c() {
+ assertEval("argv <- list(structure('Seed', .Dim = c(1L, 1L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault3_0187ca98dbbc490b77ca0ce667a77015() {
+ assertEval("argv <- list(structure(NA, .Dim = c(1L, 1L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault4_7e6340588eef18e8e6011974c6ad6bf6() {
+ assertEval("argv <- list(structure(c(0, 0, -0.51, 0, 0, 0, 0.18, -0.15, 0, 2.62, -2.77555756156289e-16, 0, 8.26162055433954e-17, 0.560000000000001, 0, 0, 0, 0, 0, 0, 1.79, 0, 0.05, 0, 0, 0, 0, 0, 0, -0.18, -1.47, 0, -5.55111512312578e-17, 0, 0, 0.23, 0, 2.206351421008e-17, -2.12, 0), .Dim = c(5L, 8L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault5_908778ccc0308160c8cc25f71d38e074() {
+ assertEval("argv <- list(structure(c(NA, 0, NA, 0, NA, 0, NA, 0, NA, 0, NA, 0, NA, 0, NA, 0), .Dim = c(4L, 4L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault6_010e6c3625447ad4f63a06ac29c54eeb() {
+ assertEval("argv <- list(structure(c(0, 10975969, 8779369, 10080625, 11148921, 7628644, 10732176, 6812100, 20115225, 8862529, 9180900, 20539024, 7579009, 15594601, 8208225, 5207524, 4748041, 9e+06, 667489, 15421329, 3964081, 0, 0, 1737124, 1758276, 1674436, 2244004, 4919524, 644809, 1373584, 4072324, 2220100, 1703025, 416025, 404496, 271441, 1028196, 1863225, 1067089, 2131600, 8225424, 3247204, 0, 0, 0, 41616, 339889, 42436, 933156, 458329, 5089536, 356409, 29584, 4343056, 476100, 2427364, 1022121, 855625, 558009, 81225, 2283121, 2611456, 1380625, 0, 0, 0, 0, 211600, 167281, 1290496, 558009, 4946176, 509796, 108900, 4210704, 546121, 2402500, 1121481, 1159929, 954529, 78400, 2762244, 3189796, 1907161, 0, 0, 0, 0, 0, 616225, 2387025, 727609, 4190209, 1243225, 534361, 3337929, 622521, 1814409, 1212201, 1461681, 1345600, 115600, 3218436, 4822416, 2521744, 0, 0, 0, 0, 0, 0, 577600, 2762244, 5934096, 211600, 72361, 5244100, 509796, 3111696, 1071225, 829921, 339889, 216225, 2241009, 1968409, 877969, 0, 0, 0, 0, 0, 0, 0, 2010724, 10214416, 211600, 72361, 8826841, 2125764, 6240004, 3161284, 2362369, 1218816, 1382976, 4202500, 422500, 2117025, 0, 0, 0, 0, 0, 0, 0, 0, 3900625, 1249924, 801025, 3748096, 24964, 2070721, 180625, 107584, 349281, 263169, 990025, 4276624, 1038361, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8392609, 5895184, 456976, 3301489, 487204, 2866249, 4774225, 6579225, 3884841, 6922161, 15100996, 8844676, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 302500, 7134241, 1343281, 4831204, 2187441, 1532644, 648025, 769129, 3066001, 900601, 1334025, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5198400, 744769, 2992900, 1399489, 1205604, 724201, 208849, 2832489, 2250000, 1452025, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1387684, 446224, 3104644, 5062500, 6285049, 3236401, 7290000, 10439361, 8625969, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1640961, 102400, 107584, 524176, 221841, 1098304, 4443664, 1338649, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1338649, 2972176, 4040100, 1620529, 4397409, 10163344, 5803281, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 381924, 1229881, 627264, 1022121, 5895184, 1857769, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 109561, 732736, 343396, 4782969, 806404, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 674041, 894916, 3076516, 183184, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2178576, 3337929, 1560001, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7327849, 1461681, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4431025, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(21L, 21L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault7_f423b93ccd388e47b737808bf79f2822() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 0L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault8_2542cdad988c78dc9e4038667355b627() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(4L, 4L), .Dimnames = list(NULL, NULL))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintdefault_testtdefault9_0115bd9923ef7aa27763093f7a0009b2() {
+ assertEval("argv <- list(structure(c(0.589872882227945+0i, 0.193623477236295+0i, 0.66266867945261+0i, 0.140441698505598+0i, -0.394596353845825+0i, 0.168331537203598+0i, 0.293129347035038+0i, -0.481237717889449+0i, 0.7985227152757+0i, -0.128496737541326+0i, -0.0231518691888815+0i, -0.892171028872675+0i, 0.158252886617681+0i, 0.418477841524233+0i, -0.0576815934568704+0i, 0.471807942431513+0i, -0.00978429568549377+0i, 0.0825499722933953+0i, 0.0943143868799564+0i, 0.872692289136496+0i, -0.632910525118973+0i, 0.283760916561723+0i, 0.545364104158516+0i, 0.398269626120626+0i, 0.25072556357658+0i), .Dim = c(5L, 5L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintolower_testtolower1_49d59726e1a184410a621309a7b8a8fc() {
+ assertEval("argv <- list('show'); .Internal(tolower(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintolower_testtolower2_e08bfa80e92b2fcb5e0102c741dd03f6() {
+ assertEval("argv <- list('TRUE'); .Internal(tolower(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintolower_testtolower3_b1b2faaf6c47b3e97fa58b7ddc86bbb1() {
+ assertEval("argv <- list(c('title', 'author', 'year', 'note')); .Internal(tolower(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintolower_testtolower4_e0ca856344333291d8c210e61162ccdd() {
+ assertEval("argv <- list(c('ChangeLog', 'DESCRIPTION', 'INDEX', 'MD5', 'NAMESPACE', 'PORTING', '0aaa.R', 'agnes.q', 'clara.q', 'clusGap.R', 'coef.R', 'daisy.q', 'diana.q', 'ellipsoidhull.R', 'fanny.q', 'internal.R', 'mona.q', 'pam.q', 'plothier.q', 'plotpart.q', 'silhouette.R', 'zzz.R', 'README', 'agriculture.tab', 'animals.tab', 'chorSub.rda', 'flower.R', 'plantTraits.rda', 'pluton.tab', 'ruspini.tab', 'votes.repub.tab', 'xclara.rda', 'CITATION', 'R-cluster.mo', 'R-cluster.mo', 'R-cluster.mo', 'agnes.Rd', 'agnes.object.Rd', 'agriculture.Rd', 'animals.Rd', 'bannerplot.Rd', 'chorSub.Rd', 'clara.Rd', 'clara.object.Rd', 'clusGap.Rd', 'clusplot.default.Rd', 'clusplot.partition.Rd', 'cluster-internal.Rd', 'coef.hclust.Rd', 'daisy.Rd', 'diana.Rd', 'dissimilarity.object.Rd', 'ellipsoidhull.Rd', 'fanny.Rd', 'fanny.object.Rd', 'flower.Rd', 'lower.to.upper.tri.inds.Rd', 'mona.Rd', 'mona.object.Rd', 'pam.Rd', 'pam.object.Rd', 'partition.object.Rd', 'plantTraits.Rd', 'plot.agnes.Rd', 'plot.diana.Rd', 'plot.mona.Rd', 'plot.partition.Rd', 'pltree.Rd', 'pltree.twins.Rd', 'pluton.Rd', 'predict.ellipsoid.Rd', 'print.agnes.Rd', 'print.clara.Rd', 'print.diana.Rd', 'print.dissimilarity.Rd', 'print.fanny.Rd', 'print.mona.Rd', 'print.pam.Rd', 'ruspini.Rd', 'silhouette.Rd', 'sizeDiss.Rd', 'summary.agnes.Rd', 'summary.clara.Rd', 'summary.diana.Rd', 'summary.mona.Rd', 'summary.pam.Rd', 'twins.object.Rd', 'volume.ellipsoid.Rd', 'votes.repub.Rd', 'xclara.Rd', 'R-cluster.pot', 'R-de.po', 'R-en@quot.po', 'R-pl.po', 'update-me.sh', 'clara.c', 'cluster.h', 'daisy.f', 'dysta.f', 'fanny.c', 'ind_2.h', 'init.c', 'mona.f', 'pam.c', 'sildist.c', 'spannel.c', 'twins.c', 'agnes-ex.R', 'agnes-ex.Rout.save', 'clara-NAs.R', 'clara-NAs.Rout.save', 'clara-ex.R', 'clara.R', 'clara.Rout.save', 'clusplot-out.R', 'clusplot-out.Rout.save', 'daisy-ex.R', 'daisy-ex.Rout.save', 'diana-boots.R', 'diana-ex.R', 'diana-ex.Rout.save', 'ellipsoid-ex.R', 'ellipsoid-ex.Rout.save', 'fanny-ex.R', 'mona.R', 'mona.Rout.save', 'pam.R', 'pam.Rout.save', 'silhouette-default.R', 'silhouette-default.Rout.save', 'sweep-ex.R', '.', 'R', 'data', 'inst', 'LC_MESSAGES', 'LC_MESSAGES', 'LC_MESSAGES', 'man', 'po', 'src', 'tests')); .Internal(tolower(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintolower_testtolower5_ce56c63a8f09ce11fc7cf1f034cabb9d() {
+ assertEval("argv <- list(structure('base', .Names = 'Priority')); .Internal(tolower(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintolower_testtolower6_6f17a87b5a1732e404bd66c1737aef8c() {
+ assertEval("argv <- list(character(0)); .Internal(tolower(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintoupper_testtoupper1_f69b864654824a38ed423cfd36444b84() {
+ assertEval("argv <- list('UTF-8'); .Internal(toupper(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintoupper_testtoupper2_1f4285823dd82cd138853f560f9c8a6e() {
+ assertEval("argv <- list(c('', '', 'remission', '', '', '', '', '', '')); .Internal(toupper(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintoupper_testtoupper3_9be0531b96c7f36fa48d1999065d9d74() {
+ assertEval("argv <- list(character(0)); .Internal(toupper(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintoupper_testtoupper4_5162da4ebde0482d08855ebe19750136() {
+ assertEval("argv <- list(structure(c('BasicClasses', 'Classes', 'Documentation', 'environment-class', 'GenericFunctions', 'language-class', 'LinearMethodsList-class', 'MethodDefinition-class', 'MethodWithNext-class', 'Methods', 'MethodsList-class', 'callNextMethod', 'ObjectsWithPackage-class', 'S3Part', 'S4groupGeneric', 'SClassExtension-class', 'StructureClasses', 'TraceClasses', 'as', 'callGeneric', 'canCoerce', 'cbind2', 'className', 'classRepresentation-class', 'classesToAM', 'dotsMethods', 'evalSource', 'findClass', 'findMethods', 'fixPre1.8', 'genericFunction-class', 'getClass', 'getMethod', 'getPackageName', 'hasArg', 'implicitGeneric', 'inheritedSlotNames', 'initialize-methods', 'is', 'isSealedMethod', 'LocalReferenceClasses', 'method.skeleton', 'new', 'nonStructure-class', 'promptClass', 'promptMethods', 'ReferenceClasses', 'representation', 'selectSuperClasses', 'setClass', 'setClassUnion', 'setGeneric', 'setLoadActions', 'setMethod', 'setOldClass', 'makeClassRepresentation', 'show', 'showMethods', 'signature-class', 'slot', 'envRefClass-class', 'testInheritedMethods', 'validObject', '.BasicFunsList'), .Names = c('/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/BasicClasses.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/Classes.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/Documentation.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/EnvironmentClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/GenericFunctions.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/LanguageClasses.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/LinearMethodsList-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/MethodDefinition-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/MethodWithNext-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/Methods.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/MethodsList-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/NextMethod.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/ObjectsWithPackage-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/S3Part.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/S4groupGeneric.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/SClassExtension-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/StructureClasses.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/TraceClasses.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/as.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/callGeneric.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/canCoerce.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/cbind2.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/className.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/classRepresentation-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/classesToAM.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/dotsMethods.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/evalSource.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/findClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/findMethods.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/fixPrevious.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/genericFunction-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/getClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/getMethod.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/getPackageName.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/hasArg.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/implicitGeneric.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/inheritedSlotNames.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/initialize-methods.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/is.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/isSealedMethod.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/localRefClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/method.skeleton.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/new.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/nonStructure-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/promptClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/promptMethods.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/refClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/representation.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/selectSuperClasses.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setClassUnion.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setGeneric.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setLoadActions.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setMethod.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setOldClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setSClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/show.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/showMethods.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/signature-class.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/slot.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/stdRefClass.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/testInheritedMethods.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/validObject.tex', '/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/zBasicFunsList.tex'))); .Internal(toupper(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintrigamma_testtrigamma1_cba772bcfaa3a8133b1733a459d1e311() {
+ assertEval("argv <- list(structure(c(9.16602362697115, 1.16602362697115, 3.16602362697115, 6.16602362697115, 6.16602362697115, 2.16602362697115, 8.16602362697115, 1.16602362697115, 7.16602362697115, 19.1660236269712, 2.16602362697115), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11')));trigamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintrigamma_testtrigamma2_d98a8040337197f30eba1e9255ab8962() {
+ assertEval("argv <- list(structure(c(3.23454845691922, 12.2345484569192, 15.2345484569192, 6.23454845691922, 6.23454845691922, 14.2345484569192, 21.2345484569192, 23.2345484569192, 7.23454845691922, 7.23454845691922, 16.2345484569192, 8.23454845691922, 15.2345484569192, 7.23454845691922, 33.2345484569192, 54.2345484569192, 58.2345484569192, 15.2345484569192, 17.2345484569192, 17.2345484569192, 18.2345484569192, 41.2345484569192, 44.2345484569192, 47.2345484569192, 9.23454845691922, 24.2345484569192, 24.2345484569192, 29.2345484569192, 35.2345484569192, 37.2345484569192, 39.2345484569192, 4.23454845691922, 6.23454845691922, 12.2345484569192, 25.2345484569192, 46.2345484569192, 6.23454845691922, 7.23454845691922, 7.23454845691922, 10.2345484569192, 14.2345484569192, 24.2345484569192, 26.2345484569192, 33.2345484569192, 54.2345484569192, 55.2345484569192, 6.23454845691922, 6.23454845691922, 12.2345484569192, 18.2345484569192, 20.2345484569192, 9.23454845691922, 14.2345484569192, 15.2345484569192, 21.2345484569192, 48.2345484569192, 49.2345484569192, 61.2345484569192, 82.2345484569192, 3.23454845691922, 1.23454845691922, 3.23454845691922, 4.23454845691922, 6.23454845691922, 11.2345484569192, 15.2345484569192, 22.2345484569192, 37.2345484569192, 41.2345484569192, 7.23454845691922, 18.2345484569192, 68.2345484569192, 1.23454845691922, 1.23454845691922, 3.23454845691922, 8.23454845691922, 12.2345484569192, 13.2345484569192, 1.23454845691922, 1.23454845691922, 6.23454845691922, 6.23454845691922, 6.23454845691922, 12.2345484569192, 18.2345484569192, 4.23454845691922, 5.23454845691922, 23.2345484569192, 31.2345484569192, 37.2345484569192, 9.23454845691922, 1.23454845691922, 2.23454845691922, 6.23454845691922, 8.23454845691922, 17.2345484569192, 28.2345484569192, 1.23454845691922, 31.2345484569192, 11.2345484569192, 15.2345484569192, 28.2345484569192, 42.2345484569192, 70.2345484569192, 26.2345484569192, 11.2345484569192, 12.2345484569192, 21.2345484569192, 34.2345484569192, 6.23454845691922, 8.23454845691922, 1.23454845691922, 2.23454845691922, 6.23454845691922, 6.23454845691922, 6.23454845691922, 6.23454845691922, 8.23454845691922, 12.2345484569192, 16.2345484569192, 6.23454845691922, 15.2345484569192, 7.23454845691922, 7.23454845691922, 8.23454845691922, 29.2345484569192, 1.23454845691922, 6.23454845691922, 15.2345484569192, 3.23454845691922, 3.23454845691922, 4.23454845691922, 9.23454845691922, 11.2345484569192, 13.2345484569192, 2.23454845691922, 2.23454845691922, 10.2345484569192, 23.2345484569192, 4.23454845691922, 4.23454845691922, 6.23454845691922, 16.2345484569192, 19.2345484569192, 23.2345484569192, 38.2345484569192), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93', '94', '95', '96', '97', '98', '99', '100', '101', '102', '103', '104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', '115', '116', '117', '118', '119', '120', '121', '122', '123', '124', '125', '126', '127', '128', '129', '130', '131', '132', '133', '134', '135', '136', '137', '138', '139', '140', '141', '142', '143', '144', '145', '146')));trigamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintrigamma_testtrigamma3_e35b54aa032bd1ba44b4f9e6f1455d2f() {
+ assertEval("argv <- list(c(1e+30, 1e+60, 1e+90, 1e+120, 1e+150, 1e+180, 1e+210, 1e+240, 1e+270, 1e+300));trigamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintrigamma_testtrigamma4_c7cef55147eeed5d89aa9c4ccb582272() {
+ assertEval("argv <- list(c(-100, -3, -2, -1, 0, 1, 2, -99.9, -7.7, -3, -2.9, -2.8, -2.7, -2.6, -2.5, -2.4, -2.3, -2.2, -2.1, -2, -1.9, -1.8, -1.7, -1.6, -1.5, -1.4, -1.3, -1.2, -1.1, -1, -0.9, -0.8, -0.7, -0.6, -0.5, -0.4, -0.3, -0.2, -0.0999999999999996, 0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2, 2.1, 2.2, 2.3, 2.4, 2.5, 2.6, 2.7, 2.8, 2.9, 3, 5.1, 77));trigamma(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintrunc_testtrunc1_3b502de0e9582f05fa2227cebe759365() {
+ assertEval("argv <- list(8.5);trunc(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintrunc_testtrunc2_0662beb6fa9d5d74ea8cd9013fee2482() {
+ assertEval("argv <- list(2819.50000004);trunc(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintrunc_testtrunc3_9014641495c8715f6ffcaaf05748be52() {
+ assertEval("argv <- list(c(4.71622523386031, 1.10082330182195, 1.6348679328803, 1.0848926147446, 1.90544273355044, 0.359849020605907, 3.11383110354654, 0.867268502479419, 0.162947811186314, 0.450064289616421, 4.9159701296594, 4.6105394908227, 3.44404035480693, 1.26481729443185, 1.04007117450237, 2.98928162781522, 0.598357603885233, 3.89095719670877, 2.72964489413425, 2.9838975192979, 0.972001742338762, 3.45619874307886, 3.40639955131337, 1.64102643262595, 2.35728174913675, 0.473953454056755, 4.98228391283192, 4.91887083626352, 0.210240299347788, 2.26199432276189, 3.70630375458859, 3.81391524686478, 0.606464599259198, 4.40811770269647, 4.44661358138546, 2.80862170271575, 3.86814354802482, 3.88661664212123, 2.99017415847629, 2.74575827643275, 0.309161052573472, 3.80168808856979, 0.44893383863382, 4.61025935830548, 0.267928446410224, 2.24770340253599, 2.89542144862935, 0.558472302509472, 1.01390165626071, 4.68876871396787, 3.99585635983385, 0.118613908998668, 0.0555002887267619, 3.01412270753644, 1.23142387834378, 1.36282247491181, 4.64942723163404, 0.578164426842704, 2.22724793478847, 1.08748292084783, 1.14620470674708, 4.12017436814494, 0.320054858457297, 2.23438119865023, 4.76558442227542, 3.10512124677189, 1.74187473836355, 0.650008224183694, 3.97324822610244, 1.69624235597439, 4.7321886930149, 2.33042042935267, 0.96714960061945, 0.195004806155339, 0.781808936735615, 0.248751927865669, 1.19189711171202, 1.64329304476269, 4.17560710804537, 3.12169580138288, 4.66810682089999, 1.36349227512255, 0.602594048250467, 2.95277393539436, 3.86122465948574, 2.54265206633136, 4.36057312530465, 0.599795600865036, 0.397377072367817, 3.41722437064163, 0.29663014691323, 2.19461180153303, 4.06796077964827, 0.185917691560462, 2.69324880791828, 1.27729995292611, 2.07541133742779, 2.81013442203403, 0.629334823461249, 2.81195943942294));trunc(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintrunc_testtrunc4_e12db55cc85e3df7618a7599b17fba35() {
+ assertEval("argv <- list(c(-2, -1.5, -1, -0.5, 0, 0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4));trunc(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof1_d0bc211b4cb02240e0c3bdef0ab8a0e8() {
+ assertEval("argv <- list(structure(c(1.23315637025077, 1.2394120713065, 1.46775472234056, 1.3131362441571, 0.834956748134462, 1.32096970624938, 1.38337762052736, 1.70911044284799, 1.23539395906175, 0.858346823253787, 1.52283660048288, 1.31313061976496, 1.12786658428867, 1.44366133143941, 1.27218165569433, 1.26731245914676, 1.42168796660342, 1.48945666726, 2.09136324227313, 1.36556393622446, 1.19497185571598, 1.3558872236906, 1.28486176009175, 0.896505382640118, 1.2920383545426, 1.43713738151143, 1.28325876023887, 1.8647069237969, 1.28069027865337, 1.3282363039678, 1.4132805261745, 0.646368078716031, 1.17057458108707, 1.35016461104197, 1.35509309393051, 0.62815321214884, 0.933778507736315, 1.38267166577057, 1.7643327299387, 0.662074713268515, 1.31638314484599, 0.127879987991043, 1.19108675802219, 1.27268759462974, 0.4383313914982, 1.4144264042562, 0.693758539302211, 1.47501143044129, 1.18104902231565, 1.31313716894023, 1.16251137109995, 1.33271580458282, 1.2645836556729, 1.27403739912758, 0.707073961081345, 1.02664693047896, NaN, 0.753985804351041, 1.38430649521587, 1.07546693634877, 1.19187230661588, 1.28069027865337, 1.31026717493666, 1.21822955912256, 1.13243112343561, 1.63256872758035, 1.02552404019857, 1.20828070506052, 1.33930727426782, 1.26731245914676, 1.38337762052736, 1.52793749920214, 1.07081398391753, 1.24912672913647, 1.44366133143941, 1.2823536700583, 1.38311795520175, 0.534347523417853, 1.25766711144813, 1.92388210662423, 1.52790220067279, 1.10639731743869, 1.88278431408355, 1.17178985993101, 1.13471940645093, 1.33429991787085, 1.59592895672966, 0.952232923176189, 2.67777307729144, 0.98546699757923, 0.534607888905458, 1.18840135978238, 2.67777307729144), .Names = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48', '49', '50', '51', '52', '53', '54', '55', '56', '57', '58', '59', '60', '61', '62', '63', '64', '65', '66', '67', '68', '69', '70', '71', '72', '73', '74', '75', '76', '77', '78', '79', '80', '81', '82', '83', '84', '85', '86', '87', '88', '89', '90', '91', '92', '93'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof10_7f6772a13074e8c8d3f29b1017b78546() {
+ assertEval("argv <- list(c(NA, '1', NA, '2', '1', NA, NA, '1', '4', '1', NA, '4', '1', '3', NA, '4', '2', '2', NA, '4', '4', '2', '4', '4', '2', '1', '4', '4', '3', '1', '1', '4', '1', '4', NA, '1', '4', '4', '2', '2', '4', '4', '3', '4', '2', '2', '3', '3', '4', '1', '1', '1', '4', '1', '4', '4', '4', '4', NA, '4', '4', '4', NA, '1', '2', '3', '4', '3', '4', '2', '4', '4', '1', '4', '1', '4', NA, '4', '2', '1', '4', '1', '1', '1', '4', '4', '2', '4', '1', '1', '1', '4', '1', '1', '1', '4', '3', '1', '4', '3', '2', '4', '3', '1', '4', '2', '4', NA, '4', '4', '4', '2', '1', '4', '4', NA, '2', '4', '4', '1', '1', '1', '1', '4', '1', '2', '3', '2', '1', '4', '4', '4', '1', NA, '4', '2', '2', '2', '4', '4', '3', '3', '4', '2', '4', '3', '1', '1', '4', '2', '4', '3', '1', '4', '3', '4', '4', '1', '1', '4', '4', '3', '1', '1', '2', '1', '3', '4', '2', '2', '2', '4', '4', '3', '2', '1', '1', '4', '1', '1', '2', NA, '2', '3', '3', '2', '1', '1', '1', '1', '4', '4', '4', '4', '4', '4', '2', '2', '1', '4', '1', '4', '3', '4', '2', '3', '1', '3', '1', '4', '1', '4', '1', '4', '3', '3', '4', '4', '1', NA, '3', '4', '4', '4', '4', '4', '4', '3', '4', '3', '4', '2', '4', '4', '1', '2', NA, '4', '4', '4', '4', '1', '2', '1', '1', '2', '1', '4', '2', '3', '1', '4', '4', '4', '1', '2', '1', '4', '2', '1', '3', '1', '2', '2', '1', '2', '1', NA, '3', '2', '2', '4', '1', '4', '4', '2', '4', '4', '4', '2', '1', '4', '2', '4', '4', '4', '4', '4', '1', '3', '4', '3', '4', '1', NA, '4', NA, '1', '1', '1', '4', '4', '4', '4', '2', '4', '3', '2', NA, '1', '4', '4', '3', '4', '4', '4', '2', '4', '2', '1', '4', '4', NA, '4', '4', '3', '3', '4', '2', '2', '4', '1', '4', '4', '4', '3', '4', '4', '4', '3', '2', '1', '3', '1', '4', '1', '4', '2', NA, '1', '4', '4', '3', '1', '4', '1', '4', '1', '4', '4', '1', '2', '2', '1', '4', '1', '1', '4', NA, '4', NA, '4', '4', '4', '1', '4', '2', '1', '2', '2', '2', '2', '1', '1', '2', '1', '4', '2', '3', '3', '1', '3', '1', '4', '1', '3', '2', '2', '4', '1', NA, '3', '4', '2', '4', '4', '4', '4', '4', '4', '3', '4', '4', '3', '2', '1', '4', '4', '2', '4', '2', '1', '2', '1', '1', '1', '1', '4', '4', '1', '1', '4', '1', '4', '4', '4', '1', '1', NA, '3', '2', '4', '4', '4', '4', '2', '3', '3', '2', NA, '4', '2', '4', '4', '1', '1', '4', '4', '1', '1', '4', '1', '2', '2', '2', '2', '1', '4', '4', '1', '2', '2', '2', '3', '4', '4', '3', '4', '1', '1', '4', '4', NA, '4', '1', '4', '4', '4', '1', '4', '4', '1', '2', '4', '4', '4', '4', '1', '2', '4', '4', '2', '1', '4', '2', '4', '2', '2', '4', '1', '3', '3', '2', '4', '1', '4', '4', '4', '1', NA, '4', '4', '2', '4', '4', '4', '4', '4', '2', NA, '4', '2', '4', '3', '1', '4', '4', '3', '4', '2', '4', '4', '1', '2', '1', '4', '1', '3', '3', '1', '4', '4', '2', '4', '4', '4', '4', '3', '2', '3', '3', '2', NA, '3', '4', '4', '3', '3', '4', '4', '4', '1', '4', '4', '4', '4', '4', '4', '4', '2', '4', '2', '3', '4', '1', '3', '1', NA, '4', '1', '2', '2', '1', '4', '3', '3', '4', '1', '1', '3')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof11_64192767f8f0028b10734d18443bb478() {
+ assertEval("argv <- list(structure(list(base = c(11L, 11L, 6L, 8L, 66L, 27L, 12L, 52L, 23L, 10L, 52L, 33L, 18L, 42L, 87L, 50L, 18L, 111L, 18L, 20L, 12L, 9L, 17L, 28L, 55L, 9L, 10L, 47L, 76L, 38L, 19L, 10L, 19L, 24L, 31L, 14L, 11L, 67L, 41L, 7L, 22L, 13L, 46L, 36L, 38L, 7L, 36L, 11L, 151L, 22L, 41L, 32L, 56L, 24L, 16L, 22L, 25L, 13L, 12L)), .Names = 'base', row.names = c(1L, 5L, 9L, 13L, 17L, 21L, 25L, 29L, 33L, 37L, 41L, 45L, 49L, 53L, 57L, 61L, 65L, 69L, 73L, 77L, 81L, 85L, 89L, 93L, 97L, 101L, 105L, 109L, 113L, 117L, 121L, 125L, 129L, 133L, 137L, 141L, 145L, 149L, 153L, 157L, 161L, 165L, 169L, 173L, 177L, 181L, 185L, 189L, 193L, 197L, 201L, 205L, 209L, 213L, 217L, 221L, 225L, 229L, 233L))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof12_870bbb98dd49f99f2f2ca2640cc327a6() {
+ assertEval("argv <- list(structure(c('Min. : 1.000 ', '1st Qu.: 9.000 ', 'Median :18.000 ', 'Mean :14.742 ', '3rd Qu.:20.000 ', 'Max. :23.000 ', NA, 'Min. :5.0000 ', '1st Qu.:5.3000 ', 'Median :6.1000 ', 'Mean :6.0841 ', '3rd Qu.:6.6000 ', 'Max. :7.7000 ', NA, 'Min. : 1.000 ', '1st Qu.: 24.250 ', 'Median : 56.500 ', 'Mean : 56.928 ', '3rd Qu.: 86.750 ', 'Max. :117.000 ', 'NA's :16 ', 'Min. : 0.500 ', '1st Qu.: 11.325 ', 'Median : 23.400 ', 'Mean : 45.603 ', '3rd Qu.: 47.550 ', 'Max. :370.000 ', NA, 'Min. :0.00300 ', '1st Qu.:0.04425 ', 'Median :0.11300 ', 'Mean :0.15422 ', '3rd Qu.:0.21925 ', 'Max. :0.81000 ', NA), .Dim = c(7L, 5L), .Dimnames = list(c('', '', '', '', '', '', ''), c(' event', ' mag', ' station', ' dist', ' accel')))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof13_7335c33e4525204b64a3a0a85b613e0d() {
+ assertEval("argv <- list(c(2L, 1L, NA)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof14_8db64e42f030b013419b080865800f26() {
+ assertEval("argv <- list(raw(0)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof15_bdd6177cdbb5c9172be825d9465ff461() {
+ assertEval("argv <- list(c(1.1+0i, NA, 3+0i)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof16_926953e0de456d6724beeb4815a26c46() {
+ assertEval("argv <- list(1e+05); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof17_e051be0967dce5983c00bdb8c68b7bcf() {
+ assertEval("argv <- list(structure(c(' ', '***'), legend = '0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1', class = 'noquote')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof18_0b21f1e0239146bb6d1e8288d35a8d74() {
+ assertEval("argv <- list(structure(c(1+1i, 2+1.4142135623731i, 3+1.73205080756888i, 4+2i, 5+2.23606797749979i, 6+2.44948974278318i, 7+2.64575131106459i, 8+2.82842712474619i, 9+3i, 10+3.1622776601684i), id = character(0), class = structure('withId', package = '.GlobalEnv'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof19_51ed1aa7d0164983333e80dd91d99266() {
+ assertEval("argv <- list(structure(list(x = structure(1L, .Label = '1.3', class = 'factor')), .Names = 'x', row.names = c(NA, -1L), class = 'data.frame')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof2_4792d624ffba2c7f13198c7534d40216() {
+ assertEval("argv <- list(structure(c(1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = 'ts')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof20_c93be545522fba28e747c906a44c6d6a() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof21_bce1108061269fc3f29261f8bf4d98da() {
+ assertEval("argv <- list(structure(list(a = 1), .Names = 'a', .Tsp = c(1, 1, 1), class = 'ts')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof22_a70882eb362d30353b62755788635eee() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof23_c594a24c5c94a2c5d381b0d2e83432eb() {
+ assertEval("argv <- list(2.22044604925031e-16); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof24_33aa49c209e9c3fa6b782dfb67ee8ab0() {
+ assertEval("argv <- list(structure(list(c0 = logical(0)), .Names = 'c0', row.names = integer(0))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof25_0ad9f467f80f97deb513d6519532b94c() {
+ assertEval("argv <- list(structure(3.14159265358979, comment = 'Start with pi', class = structure('num1', package = '.GlobalEnv'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof26_0bd9eba1766a116fa7fcda8452300f97() {
+ assertEval("argv <- list(structure(c(NA, 0.1945), .Names = c('1', '2'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof27_bd48a93a99e5301332a53330b31d7b55() {
+ assertEval("argv <- list(structure(c(1L, 1L), .Label = 'Ctl', class = 'factor')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof28_639791afaf02f5917923ea261485c4bb() {
+ assertEval("argv <- list(c(1L, NA, 1L)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof29_07b764ba7bd9d17c14d4657658741887() {
+ assertEval("argv <- list(c(NA, NA, NA)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof3_d53fd74be914f4d94f91d1f7b2385d96() {
+ assertEval("argv <- list(structure(c(NA, 9, 3, 3), .Names = c('<none>', 'Hair:Eye', 'Hair:Sex', 'Eye:Sex'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof31_780cb70dab5fc3c7d034d6d2c32ff8ae() {
+ assertEval("argv <- list(structure(list(Y = c(130L, 157L, 174L, 117L, 114L, 161L, 141L, 105L, 140L, 118L, 156L, 61L, 91L, 97L, 100L, 70L, 108L, 126L, 149L, 96L, 124L, 121L, 144L, 68L, 64L, 112L, 86L, 60L, 102L, 89L, 96L, 89L, 129L, 132L, 124L, 74L, 89L, 81L, 122L, 64L, 103L, 132L, 133L, 70L, 89L, 104L, 117L, 62L, 90L, 100L, 116L, 80L, 82L, 94L, 126L, 63L, 70L, 109L, 99L, 53L, 74L, 118L, 113L, 89L, 82L, 86L, 104L, 97L, 99L, 119L, 121L), B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c('I', 'II', 'III', 'IV', 'V', 'VI'), class = 'factor'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c('Golden.rain', 'Marvellous', 'Victory'), class = 'factor'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c('0.0cwt', '0.2cwt', '0.4cwt', '0.6cwt'), class = 'factor')), .Names = c('Y', 'B', 'V', 'N'), terms = quote(Y ~ B + V + N + V:N), row.names = 2:72)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof32_ded2c501c59bbbd85bda89dac7e0be18() {
+ assertEval("argv <- list(structure(c(-3.001e+155, -1.067e+107, -1.976e+62, -9.961e+152, -2.059e+23, 1), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof4_ae34edc347bf43e32930fd67214bce28() {
+ assertEval("argv <- list(structure(function (x, y = NULL) standardGeneric('tcrossprod'), target = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), defined = structure('ANY', class = structure('signature', package = 'methods'), .Names = 'x', package = 'methods'), generic = character(0), class = structure('MethodDefinition', package = 'methods'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof5_77d489413ad84767c5ba7bf17b4acb61() {
+ assertEval("argv <- list(structure(c('Min. : 0.060 ', '1st Qu.: 0.320 ', 'Median : 0.630 ', 'Mean : 909.592 ', '3rd Qu.: 0.905 ', 'Max. :10000.000 '), .Dim = c(6L, 1L), .Dimnames = list(c('', '', '', '', '', ''), ' x'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof6_391297bbda40c5a9b22d27953a177b14() {
+ assertEval("argv <- list(structure(c(-0.0529307911108286, -0.200175675120066), .Names = c('(Intercept)', 'xTRUE'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof7_fbb34ca066fcfab01904b3c51cc738af() {
+ assertEval("argv <- list(complex(0)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof8_ab47348c6c370e8194f1f8d43832ba61() {
+ assertEval("argv <- list(structure(list(is.array = FALSE, is.atomic = FALSE, is.call = FALSE, is.character = FALSE, is.complex = FALSE, is.data.frame = FALSE, is.double = FALSE, is.environment = FALSE, is.expression = FALSE, is.factor = FALSE, is.finite = NA, is.function = FALSE, is.infinite = NA, is.integer = FALSE, is.language = FALSE, is.list = TRUE, is.logical = FALSE, is.matrix = FALSE, is.na = structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c('coefficients', 'residuals', 'effects', 'rank', 'fitted.values', 'assign', 'qr', 'df.residual', 'xlevels', 'call', 'terms', 'model')), is.name = FALSE, is.nan = NA, is.null = FALSE, is.numeric = FALSE, is.numeric_version = FALSE, is.object = TRUE, is.ordered = FALSE, is.package_version = FALSE, is.pairlist = FALSE, is.primitive = FALSE, is.qr = FALSE, is.raw = FALSE, is.recursive = TRUE, is.symbol = FALSE, is.table = FALSE, is.vector = FALSE), .Names = c('is.array', 'is.atomic', 'is.call', 'is.character', 'is.complex', 'is.data.frame', 'is.double', 'is.environment', 'is.expression', 'is.factor', 'is.finite', 'is.function', 'is.infinite', 'is.integer', 'is.language', 'is.list', 'is.logical', 'is.matrix', 'is.na', 'is.name', 'is.nan', 'is.null', 'is.numeric', 'is.numeric_version', 'is.object', 'is.ordered', 'is.package_version', 'is.pairlist', 'is.primitive', 'is.qr', 'is.raw', 'is.recursive', 'is.symbol', 'is.table', 'is.vector'), class = 'isList')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltintypeof_testtypeof9_4cef708046ddaddc4385528c922e1606() {
+ assertEval("argv <- list(c(-21.222245139688+176.377752294836i, -21.222245139688-176.377752294836i, 61.0965873274467+76.779430575699i, 61.0965873274467-76.779430575699i, -11.7486843755171+0i)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass10_c5df816c86ac2bfb16807d65bb4588fb() {
+ assertEval("argv <- list(structure(list(GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c('GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'), row.names = 1947:1962));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass11_050a05a07604c532e4d9a5f55803796e() {
+ assertEval("argv <- list(structure(list(y = c(0.219628047744843, 0.360454661130887, -1.14267533343616, 0.772374419482067, 0.681741904304867, 0.171869265068012, 2.08409180391906, 0.367547276775469), x1 = c(1L, 2L, 5L, 6L, 7L, 8L, 9L, 10L), x2 = c(1L, 2L, 5L, 6L, 7L, 8L, 9L, 10L), `(weights)` = c(0, 1, 1, 1, 1, 1, 1, 1)), .Names = c('y', 'x1', 'x2', '(weights)'), terms = quote(y ~ x1 + x2), row.names = c('a', 'b', 'e', 'f', 'g', 'h', 'i', 'j'), na.action = structure(3:4, .Names = c('c', 'd'), class = 'omit')));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass12_764a8bc86f3cdcdee4acf3f202b3562a() {
+ assertEval("argv <- list(structure(list(`log(x)` = c(0, 0.693147180559945, 1.09861228866811, 1.38629436111989, 1.6094379124341, 1.79175946922805, 1.94591014905531, 2.07944154167984, 2.19722457733622, 2.30258509299405, 2.39789527279837, 2.484906649788, 2.56494935746154, 2.63905732961526, 2.70805020110221, 2.77258872223978, 2.83321334405622, 2.89037175789616, 2.94443897916644, 2.99573227355399, 3.04452243772342, 3.09104245335832, 3.13549421592915, 3.17805383034795, 3.2188758248682, 3.25809653802148, 3.29583686600433, 3.3322045101752, 3.36729582998647, 3.40119738166216, 3.43398720448515, 3.46573590279973, 3.49650756146648, 3.52636052461616, 3.55534806148941, 3.58351893845611, 3.61091791264422, 3.63758615972639, 3.66356164612965, 3.68887945411394, 3.71357206670431, 3.73766961828337, 3.76120011569356, 3.78418963391826, 3.80666248977032, 3.8286413964891, 3.85014760171006, 3.87120101090789, 3.89182029811063, 3.91202300542815, 3.93182563272433, 3.95124371858143, 3.97029191355212, 3.98898404656427, 4.00733318523247, 4.02535169073515, 4.04305126783455, 4.06044301054642, 4.07753744390572, 4.0943445622221, 4.11087386417331, 4.12713438504509, 4.14313472639153, 4.15888308335967, 4.17438726989564, 4.18965474202643, 4.20469261939097, 4.21950770517611, 4.23410650459726, 4.24849524204936, 4.26267987704132, 4.27666611901606, 4.29045944114839, 4.30406509320417, 4.31748811353631, 4.33073334028633, 4.34380542185368, 4.35670882668959, 4.36944785246702, 4.38202663467388, 4.39444915467244, 4.40671924726425, 4.4188406077966, 4.43081679884331, 4.44265125649032, 4.45434729625351, 4.46590811865458, 4.47733681447821, 4.48863636973214, 4.49980967033027, 4.51085950651685, 4.52178857704904, 4.53259949315326, 4.54329478227, 4.55387689160054, 4.56434819146784, 4.57471097850338, 4.58496747867057, 4.59511985013459, 4.60517018598809), `log(z)` = c(2.39789527279837, 2.484906649788, 2.56494935746154, 2.63905732961526, 2.70805020110221, 2.77258872223978, 2.83321334405622, 2.89037175789616, 2.94443897916644, 2.99573227355399, 3.04452243772342, 3.09104245335832, 3.13549421592915, 3.17805383034795, 3.2188758248682, 3.25809653802148, 3.29583686600433, 3.3322045101752, 3.36729582998647, 3.40119738166216, 3.43398720448515, 3.46573590279973, 3.49650756146648, 3.52636052461616, 3.55534806148941, 3.58351893845611, 3.61091791264422, 3.63758615972639, 3.66356164612965, 3.68887945411394, 3.71357206670431, 3.73766961828337, 3.76120011569356, 3.78418963391826, 3.80666248977032, 3.8286413964891, 3.85014760171006, 3.87120101090789, 3.89182029811063, 3.91202300542815, 3.93182563272433, 3.95124371858143, 3.97029191355212, 3.98898404656427, 4.00733318523247, 4.02535169073515, 4.04305126783455, 4.06044301054642, 4.07753744390572, 4.0943445622221, 4.11087386417331, 4.12713438504509, 4.14313472639153, 4.15888308335967, 4.17438726989564, 4.18965474202643, 4.20469261939097, 4.21950770517611, 4.23410650459726, 4.24849524204936, 4.26267987704132, 4.27666611901606, 4.29045944114839, 4.30406509320417, 4.31748811353631, 4.33073334028633, 4.34380542185368, 4.35670882668959, 4.36944785246702, 4.38202663467388, 4.39444915467244, 4.40671924726425, 4.4188406077966, 4.43081679884331, 4.44265125649032, 4.45434729625351, 4.46590811865458, 4.47733681447821, 4.48863636973214, 4.49980967033027, 4.51085950651685, 4.52178857704904, 4.53259949315326, 4.54329478227, 4.55387689160054, 4.56434819146784, 4.57471097850338, 4.58496747867057, 4.59511985013459, 4.60517018598809, 4.61512051684126, 4.62497281328427, 4.63472898822964, 4.64439089914137, 4.65396035015752, 4.66343909411207, 4.67282883446191, 4.68213122712422, 4.69134788222914, 4.70048036579242)), .Names = c('log(x)', 'log(z)'), row.names = c(NA, 100L), terms = quote(~log(x) + log(z))));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass13_5846021e31340a70579579d410f53b58() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 0L), Deviance = c(NA, 0), `Resid. Df` = c(10L, 10L), `Resid. Dev` = c(2.74035772634541, 2.74035772634541)), .Names = c('Df', 'Deviance', 'Resid. Df', 'Resid. Dev'), row.names = c('NULL', 'x'), heading = 'Analysis of Deviance Table\n\nModel: gaussian, link: identity\n\nResponse: y\n\nTerms added sequentially (first to last)\n\n'));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass14_4b1f6ca05e55214f4b767c45be86a558() {
+ assertEval("argv <- list(list(structure(list(title = 'foreign: Read Data Stored by Minitab, S, SAS, SPSS, Stata, Systat, dBase,\n...', author = structure(list(structure(list(given = 'R Core Team', family = NULL, role = c('aut', 'cph', 'cre'), email = 'R-core@R-project.org', comment = NULL), .Names = c('given', 'family', 'role', 'email', 'comment'))), class = 'person'), year = '2013', note = 'R package version 0.8-53', url = 'http://CRAN.R-project.org/package=foreign'), .Names = c('title', 'author', 'year', 'note', 'url'), bibtype = 'Manual', textVersion = 'R Core Team (2013). foreign: Read Data Stored by Minitab, S, SAS, SPSS, Stata, Systat, dBase,\n.... R package version 0.8-53. http://CRAN.R-project.org/package=foreign', header = 'To cite package ‘foreign’ in publications use:')));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass15_9b7313f2691bc27403426ccc7e72eccd() {
+ assertEval("argv <- list(structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4)));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass18_f9b40f1672c6fa5a9004c5615e941efb() {
+ assertEval("argv <- list(structure(list(srcfile = c('/home/lzhao/hg/r-instrumented/library/base/R/base', '/home/lzhao/hg/r-instrumented/library/base/R/base'), frow = 5852:5853, lrow = c(5852L, 5854L)), .Names = c('srcfile', 'frow', 'lrow'), row.names = 1:2));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass19_73436a7059ef60fbf05daf2f89349a67() {
+ assertEval("argv <- list(structure(list(b = structure(c(3L, 1L, 2L), .Label = c('A', 'B', 'C'), class = 'factor'), a = structure(c(1386423981.90268, 1386403981.90268, 1386413981.90268), class = c('POSIXct', 'POSIXt'))), .Names = c('b', 'a'), row.names = c(3L, 1L, 2L)));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass2_7c7ca0ca3d8df49ebef4cedfb1f43f49() {
+ assertEval("argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c('Employed', 'GNP.deflator', 'GNP', 'Unemployed', 'Armed.Forces', 'Population', 'Year'), terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year), row.names = 1947:1962));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass20_e774e5fad26496ce8cd0f66cd97700b1() {
+ assertEval("argv <- list(c(-2.20207097779183e-13, -2.19098062290287e-13, -2.17989026801391e-13, -2.16879991312495e-13, -2.15770955823599e-13, -2.14661920334703e-13, -2.13552884845807e-13, -2.12443849356911e-13, -2.11334813868015e-13, -2.10225778379119e-13, -2.09116742890223e-13, -2.08007707401327e-13, -2.06898671912432e-13, -2.05789636423536e-13, -2.0468060093464e-13, -2.03571565445744e-13, -2.02462529956848e-13, -2.01353494467952e-13, -2.00244458979056e-13, -1.9913542349016e-13, -1.98026388001264e-13, -1.96917352512368e-13, -1.95808317023472e-13, -1.94699281534576e-13, -1.93590246045681e-13, -1.92481210556785e-13, -1.91372175067889e-13, -1.90263139578993e-13, -1.89154104090097e-13, -1.88045068601201e-13, -1.86936033112305e-13, -1.85826997623409e-13, -1.84717962134513e-13, -1.83608926645617e-13, -1.82499891156721e-13, -1.81390855667826e-13, -1.8028182017893e-13, -1.79172784690034e-13, -1.78063749201138e-13, -1.76954713712242e-13, -1.75845678223346e-13, -1.7473664273445e-13, -1.73627607245554e-13, -1.72518571756658e-13, -1.71409536267762e-13, -1.70300500778866e-13, -1.6919146528997e-13, -1.68082429801075e-13, -1.66973394312179e-13, -1.65864358823283e-13, -1.64755323334387e-13, -1.63646287845491e-13, -1.62537252356595e-13, -1.61428216867699e-13, -1.60319181378803e-13, -1.59210145889907e-13, -1.58101110401011e-13, -1.56992074912115e-13, -1.5588303942322e-13, -1.54774003934324e-13, -1.53664968445428e-13, -1.52555932956532e-13, -1.51446897467636e-13, -1.5033786197874e-13, -1.49228826489844e-13, -1.48119791000948e-13, -1.47010755512052e-13, -1.45901720023156e-13, -1.4479268453426e-13, -1.43683649045365e-13, -1.42574613556469e-13, -1.41465578067573e-13, -1.40356542578677e-13, -1.39247507089781e-13, -1.38138471600885e-13, -1.37029436111989e-13, -1.35920400623093e-13, -1.34811365134197e-13, -1.33702329645301e-13, -1.32593294156405e-13, -1.3148425866751e-13, -1.30375223178614e-13, -1.29266187689718e-13, -1.28157152200822e-13, -1.27048116711926e-13, -1.2593908122303e-13, -1.24830045734134e-13, -1.23721010245238e-13, -1.22611974756342e-13, -1.21502939267446e-13, -1.2039390377855e-13, -1.19284868289654e-13, -1.18175832800759e-13, -1.17066797311863e-13, -1.15957761822967e-13, -1.14848726334071e-13, -1.13739690845175e-13, -1.12630655356279e-13, -1.11521619867383e-13, -1.10412584378487e-13, -1.09303548889591e-13, -1.08194513400695e-13, -1.07085477911799e-13, -1.05976442422904e-13, -1.04867406934008e-13, -1.03758371445112e-13, -1.02649335956216e-13, -1.0154030046732e-13, -1.00431264978424e-13, -9.9322229489528e-14, -9.82131940006321e-14, -9.71041585117362e-14, -9.59951230228403e-14, -9.48860875339444e-14, -9.37770520450484e-14, -9.26680165561525e-14, -9.15589810672566e-14, -9.04499455783607e-14, -8.93409100894648e-14, -8.82318746005689e-14, -8.7122839111673e-14, -8.60138036227771e-14, -8.49047681338812e-14, -8.37957326449853e-14, -8.26866971560894e-14, -8.15776616671935e-14, -8.04686261782975e-14, -7.93595906894016e-14, -7.82505552005057e-14, -7.71415197116098e-14, -7.60324842227139e-14, -7.49234487338179e-14, -7.3814413244922e-14, -7.27053777560261e-14, -7.15963422671302e-14, -7.04873067782343e-14, -6.93782712893384e-14, -6.82692358004425e-14, -6.71602003115466e-14, -6.60511648226507e-14, -6.49421293337547e-14, -6.38330938448588e-14, -6.27240583559629e-14, -6.1615022867067e-14, -6.05059873781711e-14, -5.93969518892752e-14, -5.82879164003793e-14, -5.71788809114834e-14, -5.60698454225874e-14, -5.49608099336915e-14, -5.38517744447956e-14, -5.27427389558997e-14, -5.16337034670038e-14, -5.05246679781079e-14, -4.9415632489212e-14, -4.83065970003161e-14, -4.71975615114202e-14, -4.60885260225244e-14, -4.49794905336287e-14, -4.38704550447331e-14, -4.27614195558379e-14, -4.16523840669435e-14, -4.05433485780505e-14, -3.94343130891604e-14, -3.83252776002761e-14, -3.72162421114035e-14, -3.61072066225542e-14, -3.49981711337514e-14, -3.38891356450417e-14, -3.27801001565183e-14, -3.16710646683675e-14, -3.05620291809617e-14, -2.9452993695046e-14, -2.83439582121106e-14, -2.72349227351356e-14, -2.61258872700815e-14, -2.50168518288693e-14, -2.39078164353409e-14, -2.27987811371798e-14, -2.16897460297536e-14, -2.05807113037972e-14, -1.94716773407802e-14, -1.83626449036421e-14, -1.72536155182618e-14, -1.61445922363971e-14, -1.50355811615637e-14, -1.39265945007928e-14, -1.28176566681469e-14, -1.1708816491751e-14, -1.0600171627855e-14, -9.49191738895913e-15));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass21_dd080544114669b1ebe77c2668e54848() {
+ assertEval("argv <- list(structure(c(325, 285, 706, 885), .Dim = c(1L, 4L), row.vars = structure(list(), .Names = character(0)), col.vars = structure(list(Class = c('1st', '2nd', '3rd', 'Crew')), .Names = 'Class')));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass23_e355f17cff3f1df163857548d5ca9995() {
+ assertEval("argv <- list(quote(y ~ a + b:c + d + e + e:d));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass24_ea619d66e008a10dd6b0cc85372e61a7() {
+ assertEval("argv <- list(structure(c('Min. :14.00 ', '1st Qu.:26.00 ', 'Median :29.50 ', 'Mean :36.39 ', '3rd Qu.:49.25 ', 'Max. :70.00 ', 'A:9 ', 'B:9 ', NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c('', '', '', '', '', ''), c(' breaks', 'wool'))));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass25_2daae08beb325301e01b1e9ec5acfc78() {
+ assertEval("argv <- list(structure(list(srcfile = '/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/negbin.R', frow = 135L, lrow = 137L), .Names = c('srcfile', 'frow', 'lrow'), row.names = c(NA, -1L)));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass26_fb09ecfada4d63ab789ff35a5dffdfbc() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list('a')));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass27_2f415e16e81b782e86d57c91bc4c7a99() {
+ assertEval("argv <- list(list(structure(list(label = 'FALSE', x = structure(0, unit = 'npc', valid.unit = 0L, class = 'unit'), y = structure(0.5, unit = 'npc', valid.unit = 0L, class = 'unit'), just = c('left', 'centre'), hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = 'GRID.text.106', gp = structure(list(), class = 'gpar'), vp = NULL), .Names = c('label', 'x', 'y', 'just', 'hjust', 'vjust', 'rot', 'check.overlap', 'name', 'gp', 'vp'), class = c('text', 'grob', 'gDesc'))));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass28_53c3bb212f40e80cc281362cb669f11e() {
+ assertEval("argv <- list(structure(c('0', 'list', 'list'), .Names = c('Length', 'Class', 'Mode')));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass29_1260690d2a61b4028298f4e77a61db8a() {
+ assertEval("argv <- list(structure(list(surname = structure('R Core', class = 'AsIs'), nationality = structure(NA_integer_, .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(NA_integer_, .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = 7L));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass3_82a3969871acb0e54b87f1408f59809d() {
+ assertEval("argv <- list(structure(list(x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE)), .Names = 'x', row.names = c(NA, 10L)));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass31_77b7f7e76b159e14d46c842fa5becd87() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = c(NA, -10L), terms = quote(~0)));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass32_6add8fd2ad31c7357525c0421e3abc15() {
+ assertEval("argv <- list(quote(breaks ~ (wool + tension)^2));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass33_04d15faf34540d3b15ff9330615e731f() {
+ assertEval("argv <- list(structure(c(1L, 2L, 1L), .Dim = 3L, .Dimnames = structure(list(c('1', '2', NA)), .Names = '')));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass34_a14c27890263e329a9068f79ad678a89() {
+ assertEval("argv <- list(structure(list(`cbind(A, B, C, D)` = structure(c(0.696706709347165, 0.362357754476673, -0.0291995223012888, 0.696706709347165, 0.696706709347165, -0.0291995223012888, 0.696706709347165, -0.0291995223012888, 0.362357754476673, 0.696706709347165, -0.0291995223012888, 0.362357754476673, -0.416146836547142, 0.362357754476673, 0.696706709347165, 0.696706709347165, 0.362357754476673, -0.416146836547142, -0.0291995223012888, -0.416146836547142, 0.696706709347165, -0.416146836547142, 0.362357754476673, -0.0291995223012888, 0.717356090899523, 0.932039085967226, 0.999573603041505, 0.717356090899523, 0.717356090899523, 0.999573603041505, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.909297426825682, 0.932039085967226, 0.717356090899523, 0.717356090899523, 0.932039085967226, 0.909297426825682, 0.999573603041505, 0.909297426825682, 0.717356090899523, 0.909297426825682, 0.932039085967226, 0.999573603041505, -0.0291995223012888, -0.737393715541246, -0.998294775794753, -0.0291995223012888, -0.0291995223012888, -0.998294775794753, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.653643620863612, -0.737393715541246, -0.0291995223012888, -0.0291995223012888, -0.737393715541246, -0.653643620863612, -0.998294775794753, -0.653643620863612, -0.0291995223012888, -0.653643620863612, -0.737393715541246, -0.998294775794753, 0.999573603041505, 0.67546318055115, -0.0583741434275801, 0.999573603041505, 0.999573603041505, -0.0583741434275801, 0.999573603041505, -0.0583741434275801, 0.67546318055115, 0.999573603041505, -0.0583741434275801, 0.67546318055115, -0.756802495307928, 0.67546318055115, 0.999573603041505, 0.999573603041505, 0.67546318055115, -0.756802495307928, -0.0583741434275801, -0.756802495307928, 0.999573603041505, -0.756802495307928, 0.67546318055115, -0.0583741434275801), .Dim = c(24L, 4L), .Dimnames = list(NULL, c('A', 'B', 'C', 'D'))), groups = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c('1', '2', '3'), class = 'factor')), .Names = c('cbind(A, B, C, D)', 'groups'), terms = quote(cbind(A, B, C, D) ~ groups), row.names = c(NA, 24L)));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass35_9e6cf7a568e6e9123ea5470c7bf22044() {
+ assertEval("argv <- list(structure(list(group = structure(c(1L, 1L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = 'group', row.names = 1:2, terms = quote(~group)));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass36_4b5aea621c2da6c20db6339a2a8b2a33() {
+ assertEval("argv <- list(structure(c(2671, 6.026e+77, 3.161e+152, 3.501e+299, 2.409e+227, 1.529e+302), .Names = c('Min.', '1st Qu.', 'Median', 'Mean', '3rd Qu.', 'Max.')));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass4_19ad21dba530b902071f33b093710517() {
+ assertEval("argv <- list(structure(list(X1.10 = 1:10, z = structure(list(x = 1:10, yyy = 11:20), .Names = c('x', 'yyy'), row.names = c(NA, -10L), class = 'data.frame')), .Names = c('X1.10', 'z'), row.names = c(NA, -10L)));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass5_23f1e5fa8f77173dbf02485b5fc6ec43() {
+ assertEval("argv <- list(structure(list(Df = c(1, 1, 1, NA, 1), `Sum of Sq` = c(0.109090049888117, 0.246974722154086, 2.97247824113524, NA, 25.9509113775335), RSS = c(47.9727294003871, 48.1106140726531, 50.8361175916342, 47.863639350499, 73.8145507280325), AIC = c(24.9738836085411, 25.0111950072736, 25.7275503692601, 26.9442879283302, 30.5758847476115)), .Names = c('Df', 'Sum of Sq', 'RSS', 'AIC'), row.names = c('- x3', '- x4', '- x2', '<none>', '- x1')));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass6_9344162405436c5cd2aff424385a12d8() {
+ assertEval("argv <- list(structure(list(surname = structure(2L, .Label = c('McNeil', 'R Core', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'), nationality = structure(NA_integer_, .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(NA_integer_, .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = 7L));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass7_75dd2c4267303e373f84a13afa3a0089() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c('abc', 'def'), class = 'factor')), .Names = c('A', 'B', 'C', 'D', 'E', 'F'), row.names = c('1', '2', '3')));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass8_e3a29c8e4b4f13242dfda5f928d7cef8() {
+ assertEval("argv <- list(structure(list(`cbind(w = weight, w2 = weight^2)` = structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c('w', 'w2'))), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c('Ctl', 'Trt'), class = 'factor')), .Names = c('cbind(w = weight, w2 = weight^2)', 'group'), terms = quote(cbind(w = weight, w2 = weight^2) ~ group), row.names = c(NA, 20L)));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunclass_testunclass9_297fed0824a1d9b4e506ecc094e489c8() {
+ assertEval("argv <- list(structure(c('Min. : 1.00 ', '1st Qu.: 3.25 ', 'Median : 5.50 ', 'Mean : 5.50 ', '3rd Qu.: 7.75 ', 'Max. :10.00 ', 'Min. : 1.00 Min. :11.00 ', '1st Qu.: 3.25 1st Qu.:13.25 ', 'Median : 5.50 Median :15.50 ', 'Mean : 5.50 Mean :15.50 ', '3rd Qu.: 7.75 3rd Qu.:17.75 ', 'Max. :10.00 Max. :20.00 '), .Dim = c(6L, 2L), .Dimnames = list(c('', '', '', '', '', ''), c(' X1.10', ' z.x z.yyy '))));unclass(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique10_ef111fccb616ec71870922f6bfe58d9c() {
+ assertEval("argv <- list(c(1L, 2L, 2L, 2L, 1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 2L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 1L, 2L, 1L, 1L, 2L), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique11_0f0afad996049368a67f37536ded7d8b() {
+ assertEval("argv <- list(structure(c(20.65, NA, NA, 40.25, 61.9, 55.27, 58.13, 54.04, 21.15, 18.32, NA, 65.84, 58.77, 53.99, 63.37, 64.81, 47.11, 9.65, 67.1, 48.83, 57.92, 69.5, 73.95, 5.46, 49.92, 54.21, 61.38, 56.66, 60.14, 56.68, NA, 53.13, 39.7, 74.83, 59.73, NA, 67.06, 67.99, 60.6, 4.63, 71.09, 43.4, 21.9, 61.45, 77.98, 36.67, 69.95, 55.26, 63.24, NA), .Names = c('Alabama', 'Alaska', 'Arizona', 'Arkansas', 'California', 'Colorado', 'Connecticut', 'Delaware', 'Florida', 'Georgia', 'Hawaii', 'Idaho', 'Illinois', 'Indiana', 'Iowa', 'Kansas', 'Kentucky', 'Louisiana', 'Maine', 'Maryland', 'Massachusetts', 'Michigan', 'Minnesota', 'Mississippi', 'Missouri', 'Montana', 'Nebraska', 'Nevada', 'New Hampshire', 'New Jersey', 'New Mexico', 'New York', 'North Carolina', 'North Dakota', 'Ohio', 'Oklahoma', 'Oregon', 'Pennsylvania', 'Rhode Island', 'South Carolina', 'South Dakota', 'Tennessee', 'Texas', 'Utah', 'Vermont', 'Virginia', 'Washington', 'West Virginia', 'Wisconsin', 'Wyoming')), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique12_8612fb1cced87a07f667c14877b4ca0e() {
+ assertEval("argv <- list(c(1.5, 1.5, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique13_466ce4857e42db108185182d4b376855() {
+ assertEval("argv <- list(list(NULL, NULL, NULL, NULL, NULL), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique14_d281c16643388c586de96818115fa5df() {
+ assertEval("argv <- list(c(9.18429112061858e-05, 0.0238094009226188, 0.0498038685764186), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique15_08dac8e6c97aa3b0947c6cefa7d84585() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), contrasts = structure(c(-0.666666666666667, 0.333333333333333, 0.333333333333333, -0.333333333333333, -0.333333333333333, 0.666666666666667), .Dim = c(3L, 2L), .Dimnames = list(c('placebo', 'drug', 'drug+'), c('drug', 'encourage'))), .Label = c('placebo', 'drug', 'drug+'), class = 'factor'), FALSE, FALSE, 4L); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique16_65c5ed167a6dcf5f992fdb9b692b80ef() {
+ assertEval("argv <- list(c(TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, NA, TRUE, NA, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, NA, TRUE, NA, TRUE, TRUE, NA, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, NA, NA, TRUE, TRUE, TRUE, TRUE, TRUE, NA, TRUE, NA, TRUE, NA, TRUE, TRUE, TRUE, TRUE, NA, TRUE, TRUE, NA, TRUE, NA, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, NA, NA, FALSE, TRUE, TRUE, NA, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique18_eb2d891bdbdeeb0b2c961e4d3154ecc9() {
+ assertEval("argv <- list(c(3, 4, 5, 11, 10, 9, 8, 8, 9, 10, 11, 12, 13), FALSE, TRUE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique19_934f306c157abdb78159f17c0d3b744a() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4), .Tsp = c(1945, 1974.75, 4), class = 'ts'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique2_ac2895891ed0fff68bd07e7be2d6c109() {
+ assertEval("argv <- list(c('a', 'b', 'c', 'c', 'b', 'a', 'NA', 'd', 'd', NA), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique20_f7916729a7c0e5d627513fdfa82ef90f() {
+ assertEval("argv <- list(c(4L, 6L, 9L, 15L, NA), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique21_683edeadccde1e6d4f1c955b6902f18a() {
+ assertEval("argv <- list(structure(list(A = c(3L, 5L), B = c(3L, 5L), C = c(3L, 5L), D = c(3L, 5L)), .Names = c('A', 'B', 'C', 'D')), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique22_d91900f7e3cba12b7ee8dcd6f4f61156() {
+ assertEval("argv <- list(c(25, 50, 100, 250, 500, 1e+05), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique23_0bff3075a98ff3fd606aaca877c2c90d() {
+ assertEval("argv <- list(c(1, 2, NA, 2), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique24_eebb204d276475a1fc3e17ee62af5475() {
+ assertEval("argv <- list(list('numeric_version', 'numeric_version'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique25_5b14aff6b14152235430c9bd3799c5c8() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = 'factor')), .Names = 'c0', row.names = character(0), class = structure('integer(0)', .Names = 'c0')), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique26_1a7b4529c09610720ed8391bef23c2e9() {
+ assertEval("argv <- list(list('Math2', 'round', 'signif'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique27_6831b4b1e51babf88414d36f56dc11cc() {
+ assertEval("argv <- list(list(structure('Math2', package = 'methods'), 'round', 'signif'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique28_9173b02bb5078f911c317bf4112c74a2() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L), .Names = c('vector', 'data.frameRowLabels', 'SuperClassMethod', 'atomicVector')), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique29_bcdd1cd86c9694fb6cb5506781ab7ee6() {
+ assertEval("argv <- list(NULL, FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique3_75fcd051181688ff9210cfb256ba4147() {
+ assertEval("argv <- list(c(1, 2, 4, 6, 8, 9, 11, 13, 14, 16, 3, 5, 7, 9, 10, 12, 14, 15, 17, 17), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique30_a589ab3b1d20af19b878b86ff693805f() {
+ assertEval("argv <- list(c(TRUE, FALSE, TRUE, TRUE), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique31_1ab159c6f2860b2ec00695eddfd6cd4a() {
+ assertEval("argv <- list(c(2L, 1L, NA), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique4_10eb84e0d2dcb2035b9f0336a68e2238() {
+ assertEval("argv <- list(list(c(9L, 9L), c(9L, 9L), c(9L, 9L), c(9L, 9L), c(9L, 9L), c(9L, 9L)), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique5_4b7c7b382e93d7d0e03973cbe0edfb30() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L), .Label = c('Brown', 'Blue', 'Hazel', 'Green'), class = 'factor'), FALSE, FALSE, 5L); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique7_082eba594b16036fba4b798f0c39c014() {
+ assertEval("argv <- list(structure(list(a = 1), .Names = 'a'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique8_b1bb75a1b9d1ac957e1cefc57122311c() {
+ assertEval("argv <- list(c(1, 258, 516, 774, 1032, 1290, 1548, 1806, 2064, 2322, 2580, 2838, 3096, 3354, 3612, 3870, 4128, 4386, 4644, 4902, 5160, 1, 259, 517, 775, 1033, 1291, 1549, 1807, 2065, 2323, 2581, 2839, 3097, 3355, 3613, 3871, 4129, 4387, 4645, 4903, 5160), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunique_testunique9_687732fcbebb2f8bd30a841a31f4d5a4() {
+ assertEval("argv <- list(list(FALSE), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlink_testunlink1_5ead42fd735cfdc73231e3241d3171cb() {
+ assertEval("argv <- list('/tmp/RtmptPgrXI/Pkgs', TRUE, FALSE); .Internal(unlink(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlink_testunlink2_d0c60d3877e7fcf81d9cd4025cd65eb7() {
+ assertEval("argv <- list(character(0), FALSE, FALSE); .Internal(unlink(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlink_testunlink3_9749c93d8450efa94a884a7afc15da08() {
+ assertEval("argv <- list('/home/lzhao/tmp/Rtmphu0Cms/file74e1676db2e7', FALSE, FALSE); .Internal(unlink(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist1_462a8b5b48a836fbabdf797000939a79() {
+ assertEval("argv <- list(list('yaxp'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist10_45b2d4b7bfbd438138b90c5838689ae8() {
+ assertEval("argv <- list(structure(' \'Jetz no chli züritüütsch: (noch ein bißchen Zürcher deutsch)\')\n', Rd_tag = 'RCODE'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist11_8d14d2b710fe2eb57218a1ee28e220fa() {
+ assertEval("argv <- list(structure(list(`1 sec` = 345600, `2 secs` = 172800, `5 secs` = 69120, `10 secs` = 34560, `15 secs` = 23040, `30 secs` = 11520, `1 min` = 5760, `2 mins` = 2880, `5 mins` = 1152, `10 mins` = 576, `15 mins` = 384, `30 mins` = 192, `1 hour` = 96, `3 hours` = 32, `6 hours` = 16, `12 hours` = 8, `1 DSTday` = 4, `2 DSTdays` = 2, `1 week` = 0.571428571428571, halfmonth = 0.262833675564682, `1 month` = 0.131416837782341, `3 months` = 0.0438056125941136, `6 months` = 0.0219028062970568, `1 year` = 0.0109514031485284, `2 years` = 0.0054757015742642, `5 years` = 0.00219028062970568, `10 years` = 0.00109514031485284, `20 years` = 0.00054757015742642, `50 years` = 0.000219028062970568, `100 years` = 0.000109514031485284, `200 years` = 5.4757015742642e-05, `500 years` = 2.19028062970568e-05, `1000 years` = 1.09514031485284e-05), .Names = c('1 sec', '2 secs', '5 secs', '10 secs', '15 secs', '30 secs', '1 min', '2 mins', '5 mins', '10 mins', '15 mins', '30 mins', '1 hour', '3 hours', '6 hours', '12 hours', '1 DSTday', '2 DSTdays', '1 week', 'halfmonth', '1 month', '3 months', '6 months', '1 year', '2 years', '5 years', '10 years', '20 years', '50 years', '100 years', '200 years', '500 years', '1000 years')), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist12_85d06985c85e64784174987e13a99f4a() {
+ assertEval("argv <- list(structure(list(vector = TRUE, atomicVector = TRUE, index = TRUE, numIndex = TRUE, numLike = TRUE, number = TRUE, replValue = TRUE), .Names = c('vector', 'atomicVector', 'index', 'numIndex', 'numLike', 'number', 'replValue')), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist13_9d6d7ff50cb7c1aa8ff96b10b64cd554() {
+ assertEval("argv <- list(structure(list(a = 6:10), .Names = 'a', row.names = 6:10), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist14_e8fc45595bcdcf7f18877ce66be8cb5d() {
+ assertEval("argv <- list(structure(list(`2005` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12')), .Names = ''), class = 'table'), `2006` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12')), .Names = ''), class = 'table'), `2007` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12')), .Names = ''), class = 'table'), `2008` = structure(c(31L, 29L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c('01', '02', '03', '04', '05', '06', '07', '08', '09', '10', '11', '12')), .Names = ''), class = 'table'), `2009` = structure(1L, .Dim = 1L, .Dimnames = structure(list('01'), .Names = ''), class = 'table')), .Names = c('2005', '2006', '2007', '2008', '2009')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist15_e68e9d14482d9697d63ad9e689108814() {
+ assertEval("argv <- list(list(structure(list(structure(c(1395082040.29392, 1395082040.29392, 1395082040.29392, 1395082040.29392, 1395082040.29392), class = c('AsIs', 'POSIXct', 'POSIXt'))), row.names = c(NA, -5L), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist16_ef8a39ab42b7988197c78595f300663c() {
+ assertEval("argv <- list(structure('print(.leap.seconds, tz = \'PST8PDT\') # and in Seattle's\n', Rd_tag = 'RCODE'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist17_68d3a5935e03f2754906437f2c98ff76() {
+ assertEval("argv <- list(list(TRUE, TRUE, TRUE, TRUE), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist18_cf16fc3321cb43d813f1225989a268e9() {
+ assertEval("argv <- list(list(c(NA_real_, NA_real_), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi'), c('Svansota', 'No. 462', 'Manchuria', 'No. 475', 'Velvet', 'Peatland', 'Glabron', 'No. 457', 'Wisconsin No. 38', 'Trebi')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist19_e90230a57eda2ea70728cf949b1c690f() {
+ assertEval("argv <- list(list(structure(list('/home/lzhao/tmp/RtmpTzriDZ/R.INSTALL30d4108a07be/mgcv/R/gamm.r'), row.names = c(NA, -1L), class = 'data.frame'), structure(list(1522L), row.names = c(NA, -1L), class = 'data.frame'), structure(list(1522L), row.names = c(NA, -1L), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist2_0cdeaeab670601c854e7eb393afe4cad() {
+ assertEval("argv <- list(list(c(13823, NA)), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist20_ec280af06edcb2c8983e759d5e539d6c() {
+ assertEval("argv <- list(structure(list(`1` = 2.47032822920623e-323), .Names = '1'), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist21_ee8b04513172989cbdbc2e49afe9d0e3() {
+ assertEval("argv <- list(structure(list(`1` = 5900.92307692308, `2` = 6784.76923076923), .Names = c('1', '2')), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist22_0e410f0f509e89fa627f4eeae4615b5a() {
+ assertEval("argv <- list(list(structure(list(surname = structure(c('Tukey', 'Venables', 'Tierney', 'Ripley', 'Ripley', 'McNeil'), class = 'AsIs'), nationality = structure(c(3L, 1L, 3L, 2L, 2L, 1L), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(2L, 1L, 1L, 1L, 1L, 1L), .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = c('1', '2', '3', '4', '4.1', '5'), class = 'data.frame'), structure(list(title = structure(c(2L, 5L, 4L, 6L, 7L, 3L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, 1L, NA, NA, NA, NA), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('title', 'other.author'), row.names = c(NA, 6L), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist23_7f64e1694a3712c52909400d5fc9b3b1() {
+ assertEval("argv <- list(list(structure(c(-Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0), .Dim = c(9L, 9L), .Dimnames = list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL)), structure(c(-Inf, -Inf, -Inf, 0, 0, 1, 1, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, Inf, -Inf, -Inf, -Inf, -Inf, 0, 1, 1, 1, Inf, -Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.6, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.4, 0.8, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.533333333333334, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.525, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL)), structure(c(-Inf, -Inf, 0, 0, 1, 2, Inf, Inf, Inf, -Inf, -Inf, 0, 0.5, 1, 2, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 1, 2, 2, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.8, 1.6, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.3, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.4, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.2, 1.9, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.499999999999999, 1.33333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.325, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL)), structure(c(-Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.6, 2.7, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.1, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.2, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.13333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.125, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL)), structure(c(-Inf, -Inf, 0, 1, 3, 4, Inf, Inf, Inf, -Inf, -Inf, 0, 1.5, 3, 4, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 4, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.4, 3.8, Inf, Inf, Inf, -Inf, -Inf, 0.100000000000001, 1.5, 2.9, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1.5, 3, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.2, 1.5, 2.8, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.0666666666666664, 1.5, 2.93333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.0750000000000002, 1.5, 2.925, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL)), structure(c(-Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 3, 5, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1.5, 3.2, 4.9, Inf, Inf, Inf, -Inf, -Inf, 0.300000000000001, 2, 3.7, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.2, 2, 3.8, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.4, 2, 3.6, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.266666666666667, 2, 3.73333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.275, 2, 3.725, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c('20%', '30%', '40%', '50%', '60%', '70%', '80%', '90%', '100%'), NULL))), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist24_a0828428f1fcba3b6e4eb7e6864fd104() {
+ assertEval("argv <- list(structure('# everything ', Rd_tag = 'VERB'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist25_c75b1ed028849b364b236e8a9b07d057() {
+ assertEval("argv <- list(structure(list(sec = NA_real_, min = NA_integer_, hour = NA_integer_), .Names = c('sec', 'min', 'hour')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist26_da27e26962e02bb734113c1cf3b91fe7() {
+ assertEval("argv <- list(structure(list(a = list(1:5, c('A', 'B', 'C', 'D', 'E')), b = 'Z', c = NA), .Names = c('a', 'b', 'c')), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist27_9271d18bb2626124efbee2123a7ba802() {
+ assertEval("argv <- list(list(structure(list(structure(c(0.398105880367068, -0.612026393250771, 0.341119691424425, -1.12936309608079, 1.43302370170104, 1.98039989850586, -0.367221476466509, -1.04413462631653, 0.569719627442413, -0.135054603880824, 2.40161776050478, -0.0392400027331692, 0.689739362450777, 0.0280021587806661, -0.743273208882405, 0.188792299514343, -1.80495862889104, 1.46555486156289, 0.153253338211898, 2.17261167036215, 0.475509528899663, -0.709946430921815, 0.610726353489055, -0.934097631644252, -1.2536334002391, 0.291446235517463, -0.443291873218433, 0.00110535163162413, 0.0743413241516641, -0.589520946188072, -0.568668732818502, -0.135178615123832, 1.1780869965732, -1.52356680042976, 0.593946187628422, 0.332950371213518, 1.06309983727636, -0.304183923634301, 0.370018809916288, 0.267098790772231, -0.54252003099165, 1.20786780598317, 1.16040261569495, 0.700213649514998, 1.58683345454085, 0.558486425565304, -1.27659220845804, -0.573265414236886, -1.22461261489836, -0.473400636439312, -0.620366677224124, 0.0421158731442352, -0.910921648552446, 0.158028772404075, -0.654584643918818, 1.76728726937265, 0.716707476017206, 0.910174229495227, 0.384185357826345, 1.68217608051942, -0.635736453948977, -0.461644730360566, 1.43228223854166, -0.650696353310367, -0.207380743601965, -0.392807929441984, -0.319992868548507, -0.279113302976559, 0.494188331267827, -0.177330482269606, -0.505957462114257, 1.34303882517041, -0.214579408546869, -0.179556530043387, -0.100190741213562, 0.712666307051405, -0.0735644041263263, -0.0376341714670479, -0.681660478755657, -0.324270272246319, 0.0601604404345152, -0.588894486259664, 0.531496192632572, -1.51839408178679, 0.306557860789766, -1.53644982353759, -0.300976126836611, -0.528279904445006, -0.652094780680999, -0.0568967778473925, -1.91435942568001, 1.17658331201856, -1.664972436212, -0.463530401472386, -1.11592010504285, -0.750819001193448, 2.08716654562835, 0.0173956196932517, -1.28630053043433, -1.64060553441858), .Label = structure(list(c(-1.91442143130152, -0.573203408615382), c(-0.934159637265755, -0.300914121215107), c(-0.568730738440006, 0.0174576253147555), c(-0.279175308598063, 0.384247363447848), c(0.0279401531591622, 1.16046462131646), c(0.398043874745564, 2.40167976612628)), class = 'shingleLevel'), class = 'shingle')), row.names = c(NA, -100L), class = 'data.frame'), structure(list(c(0.450187101272656, -0.018559832714638, -0.318068374543844, -0.929362147453702, -1.48746031014148, -1.07519229661568, 1.00002880371391, -0.621266694796823, -1.38442684738449, 1.86929062242358, 0.425100377372448, -0.238647100913033, 1.05848304870902, 0.886422651374936, -0.619243048231147, 2.20610246454047, -0.255027030141015, -1.42449465021281, -0.144399601954219, 0.207538339232345, 2.30797839905936, 0.105802367893711, 0.456998805423414, -0.077152935356531, -0.334000842366544, -0.0347260283112762, 0.787639605630162, 2.07524500865228, 1.02739243876377, 1.2079083983867, -1.23132342155804, 0.983895570053379, 0.219924803660651, -1.46725002909224, 0.521022742648139, -0.158754604716016, 1.4645873119698, -0.766081999604665, -0.430211753928547, -0.926109497377437, -0.17710396143654, 0.402011779486338, -0.731748173119606, 0.830373167981674, -1.20808278630446, -1.04798441280774, 1.44115770684428, -1.01584746530465, 0.411974712317515, -0.38107605110892, 0.409401839650934, 1.68887328620405, 1.58658843344197, -0.330907800682766, -2.28523553529247, 2.49766158983416, 0.667066166765493, 0.5413273359637, -0.0133995231459087, 0.510108422952926, -0.164375831769667, 0.420694643254513, -0.400246743977644, -1.37020787754746, 0.987838267454879, 1.51974502549955, -0.308740569225614, -1.25328975560769, 0.642241305677824, -0.0447091368939791, -1.73321840682484, 0.00213185968026965, -0.630300333928146, -0.340968579860405, -1.15657236263585, 1.80314190791747, -0.331132036391221, -1.60551341225308, 0.197193438739481, 0.263175646405474, -0.985826700409291, -2.88892067167955, -0.640481702565115, 0.570507635920485, -0.05972327604261, -0.0981787440052344, 0.560820728620116, -1.18645863857947, 1.09677704427424, -0.00534402827816569, 0.707310667398079, 1.03410773473746, 0.223480414915304, -0.878707612866019, 1.16296455596733, -2.00016494478548, -0.544790740001725, -0.255670709156989, -0.166121036765006, 1.02046390878411)), row.names = c(NA, -100L), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist28_5368038ae812d2ff830abc92574fa036() {
+ assertEval("argv <- list(list(NULL), TRUE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist29_2a60ac9955ad900823d69f11809e1696() {
+ assertEval("argv <- list(structure(list(a = 'a', b = 2, c = 3.14159265358979+2i), .Names = c('a', 'b', 'c')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist3_ab1a74c746c3cf44665790b5325ba276() {
+ assertEval("argv <- list(structure('A', .Names = 'x', package = '.GlobalEnv'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist30_80061cf3b5c20975e86672864aab592d() {
+ assertEval("argv <- list(structure(list(`1` = c(2, 1), `2` = c(3, 1.5, 1.5, 4), `3` = c(4, 2.5, 2.5, 5, 1), `4` = c(5, 3.5, 3.5, 7, 1.5, 6, 1.5), `5` = c(5, 3.5, 3.5, 8, 1.5, 6.5, 1.5, 6.5), `6` = c(6, 4.5, 4.5, 10, 2.5, 8.5, 2.5, 8.5, 1, 7), `7` = c(7, 5.5, 5.5, 11, 3.5, 9.5, 3.5, 9.5, 2, 8, 1)), .Dim = 7L, .Dimnames = list(c('1', '2', '3', '4', '5', '6', '7'))), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist31_4f88039b76f3acc8f328f70dd669db4e() {
+ assertEval("argv <- list(list(c(TRUE, TRUE), c(TRUE, TRUE), c(TRUE, TRUE), c(TRUE, TRUE), c(1, 2, 3)), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist32_c77f9788585d653156db95c336680a5a() {
+ assertEval("argv <- list(structure(list(mean = c(0, 1), vcov = structure(c(1, 1, 1, 0), .Dim = c(2L, 2L))), .Names = c('mean', 'vcov'), class = c('relistable', 'list')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist33_87846056b91a6826df76f89f559ead54() {
+ assertEval("argv <- list(list(c(' \036 The ‘internal’ graphics device invoked by .Call(\'R_GD_nullDevice\',', ' package = \'grDevices\') has been removed: use pdf(file = NULL)', ' instead.')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist34_e092b41837a80a264a8be9d3f48eeb19() {
+ assertEval("argv <- list(structure(list(surname = structure(c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'AsIs'), nationality = structure(c('Australia', 'UK', 'US', 'US', 'Australia'), class = 'AsIs'), deceased = structure(c('no', 'no', 'no', 'yes', 'no'), class = 'AsIs'), title = structure(c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), class = 'AsIs'), other.author = structure(c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), class = 'AsIs')), .Names = c('surname', 'nationality', 'deceased', 'title', 'other.author'), row.names = c('1', '2', '3', '4', '5')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist35_9f134e9d48d623bc91ee18721a1e6622() {
+ assertEval("argv <- list(list(structure(list(Ozone = c(96L, 78L, 73L, 91L, 47L, 32L, 20L, 23L, 21L, 24L, 44L, 21L, 28L, 9L, 13L, 46L, 18L, 13L, 24L, 16L, 13L, 23L, 36L, 7L, 14L, 30L, NA, 14L, 18L, 20L), Solar.R = c(167L, 197L, 183L, 189L, 95L, 92L, 252L, 220L, 230L, 259L, 236L, 259L, 238L, 24L, 112L, 237L, 224L, 27L, 238L, 201L, 238L, 14L, 139L, 49L, 20L, 193L, 145L, 191L, 131L, 223L), Wind = c(6.9, 5.1, 2.8, 4.6, 7.4, 15.5, 10.9, 10.3, 10.9, 9.7, 14.9, 15.5, 6.3, 10.9, 11.5, 6.9, 13.8, 10.3, 10.3, 8, 12.6, 9.2, 10.3, 10.3, 16.6, 6.9, 13.2, 14.3, 8, 11.5), Temp = c(91L, 92L, 93L, 93L, 87L, 84L, 80L, 78L, 75L, 73L, 81L, 76L, 77L, 71L, 71L, 78L, 67L, 76L, 68L, 82L, 64L, 71L, 81L, 69L, 63L, 70L, 77L, 75L, 76L, 68L), Month = c(9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L), Day = 1:30), .Names = c('Ozone', 'Solar.R', 'Wind', 'Temp', 'Month', 'Day'), row.names = 124:153, class = 'data.frame'), structure(list(c(2.67385465817826, 1.92826057080163, 1.7211511020859, 2.46674518946253, 0.6441818647641, 0.0228534586169083, -0.474209266300845, -0.349943585071407, -0.432787372557699, -0.308521691328261, 0.519916183534662, -0.432787372557699, -0.142834116355676, -0.929850097475453, -0.764162522502868, 0.602759971020954, -0.557053053787138, -0.764162522502868, -0.308521691328261, -0.63989684127343, -0.764162522502868, -0.349943585071407, 0.188541033589493, -1.01269388496175, -0.722740628759722, -0.059990328869384, NA, -0.722740628759722, -0.557053053787138, -0.474209266300845)), row.names = c(NA, -30L), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist36_e506625ad174caedb6881d35716d0c73() {
+ assertEval("argv <- list(list(c(5.87030131383818+0i, 1.5889879152884+1.34124369386909i, 2.11222603449395-1.81528547759475i, 2.90982451403972-3.07851581383191i, -0.93444299242086+4.19201264862077i, -2.47319172794455-3.70050127054969i, 3.40387225833387-2.03794044354999i, 0.964146923537224+0.43683199768595i, 0.964146923537223-0.43683199768595i, 3.40387225833387+2.03794044354999i, -2.47319172794455+3.70050127054969i, -0.93444299242086-4.19201264862077i, 2.90982451403972+3.07851581383191i, 2.11222603449395+1.81528547759475i, 1.5889879152884-1.34124369386909i), c(-0.198575181429756+0i, 3.06901469564285-0.28753262878135i, 2.52792606446531+0.34832983414202i, -0.22897831647696+4.34107190550675i, -1.1328140942159+1.10933827962707i, -2.13015831304915-3.19551716353477i, 1.66248610578085-2.34843556657312i, 2.53273081248013+0.345339148259i, 2.53273081248013-0.345339148259i, 1.66248610578085+2.34843556657312i, -2.13015831304915+3.19551716353477i, -1.1328140942159-1.10933827962708i, -0.22897831647696-4.34107190550675i, 2.52792606446531-0.34832983414202i, 3.06901469564285+0.28753262878135i), c(-0.177389766587854+0i, -0.750507869921238-0.968112891774716i, 2.01908494011385-1.61353499070386i, -1.32842557557029+1.87677956172028i, 0.278793972604843+0.060190561256586i, 0.06482045217871+2.780245561063i, -3.05075608405522+4.21179315999883i, -0.12202595251607-1.65218285338028i, -0.12202595251607+1.65218285338028i, -3.05075608405522-4.21179315999883i, 0.06482045217871-2.780245561063i, 0.278793972604844-0.060190561256586i, -1.32842557557029-1.87677956172028i, 2.01908494011385+1.61353499070386i, -0.750507869921237+0.968112891774715i), c(-1.93496831243286+0i, -4.87879352188084-3.06857420991118i, 0.91348359987171+2.30355482564816i, 2.7631069926811+6.2396752311874i, -0.9934286053847-5.99510259160787i, 0.39705745560005+3.84166415349047i, -1.5293697261841+2.76025815484515i, 3.48992984345714-5.88708433976428i, 3.48992984345714+5.88708433976428i, -1.5293697261841-2.76025815484515i, 0.39705745560005-3.84166415349047i, -0.99342860538471+5.99510259160787i, 2.7631069926811-6.2396752311874i, 0.91348359987171-2.30355482564816i, -4.87879352188084+3.06857420991118i), c(1.6954625122129+0i, 0.96480086806796-2.54002409930623i, -3.5054253146275-7.05689416264505i, -2.10114573645889-1.07773818646711i, 1.81179418950692+1.03308206229221i, 0.84721205589596-4.740786425434i, -1.90295630545443-1.68686014535334i, -2.43557705822344-1.63964363160433i, -2.43557705822344+1.63964363160433i, -1.90295630545443+1.68686014535334i, 0.84721205589596+4.740786425434i, 1.81179418950692-1.03308206229221i, -2.10114573645889+1.07773818646711i, -3.50542531462751+7.05689416264504i, 0.96480086806796+2.54002409930623i)), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist37_0f95051ca08351dae18481fe46543be5() {
+ assertEval("argv <- list(structure(list(inner = integer(0), outer = integer(0)), .Names = c('inner', 'outer')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist38_5f64c3dae7767b102c864136e51809f5() {
+ assertEval("argv <- list(structure(c('mode', 'length', 'x', 'mode', 'x', 'mode'), .Dim = 2:3), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist39_1d5e99dafdc029ed6aa358eae7c83fb0() {
+ assertEval("argv <- list(list(structure(list(b = structure(2L, .Label = c('C', 'D'), class = 'factor')), .Names = 'b', row.names = 2L, class = 'data.frame'), structure(list(a = structure(NA_real_, class = c('POSIXct', 'POSIXt'))), .Names = 'a', row.names = 'NA', class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist4_bd6943a9d134b05f2fbd9ab9074dd76d() {
+ assertEval("argv <- list(list(list(structure(function (e1, e2) standardGeneric('Ops'), generic = structure('Ops', package = 'base'), package = 'base', group = list(), valueClass = character(0), signature = c('e1', 'e2'), default = quote(`\001NULL\001`), skeleton = quote((function (e1, e2) stop('invalid call in method dispatch to 'Ops' (no default method)', domain = NA))(e1, e2)), groupMembers = list('Arith', 'Compare', 'Logic'), class = structure('groupGenericFunction', package = 'methods')))), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist40_7b8c66b7861a23cabf2f2b2cb8e59113() {
+ assertEval("argv <- list(list(structure(list(structure(c('0.007239522', '0.014584634', '0.014207936', '0.018442267', '0.011128505', '0.019910082', '0.027072311', '0.034140379', '0.028320657', '0.037525507'), class = 'AsIs')), row.names = c(NA, -10L), class = 'data.frame'), structure(list(structure(c(' 1', ' 6', ' 7', ' 8', '13', '14', '15', '20', '21', '22'), class = 'AsIs')), row.names = c(NA, -10L), class = 'data.frame'), structure(list(structure(c(' 16', ' 16', '144', ' 16', ' 16', '128', ' 16', ' 16', '112', ' 16'), .Dim = 10L, .Dimnames = structure(list(c('1', '6', '7', '8', '13', '14', '15', '20', '21', '22')), .Names = ''))), row.names = c('1', '6', '7', '8', '13', '14', '15', '20', '21', '22'), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist41_74b3504ae4d46736cfd2aa1f197ef8b3() {
+ assertEval("argv <- list(structure(list(N = 84L, ZXrows = 18, ZXcols = 5, Q = 1L, StrRows = 18, qvec = structure(c(1, 0, 0), .Names = c('Seed', '', '')), ngrps = structure(c(14L, 1L, 1L), .Names = c('Seed', 'X', 'y')), DmOff = structure(c(0, 1, 10), .Names = c('', 'Seed', '')), ncol = structure(c(1, 3, 1), .Names = c('Seed', '', '')), nrot = structure(c(4, 1, 0), .Names = c('', '', '')), ZXoff = structure(list(Seed = c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13), X = structure(18, .Names = 'Seed'), y = structure(72, .Names = '')), .Names = c('Seed', 'X', 'y')), ZXlen = structure(list(Seed = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5), X = 18, y = 18), .Names = c('Seed', 'X', 'y')), SToff = structure(list(Seed = c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13), X = structure(32, .Names = 'Seed'), y = structure(89, .Names = '')), .Names = c('Seed', 'X', 'y')), DecOff = structure(list(Seed = c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13), X = structure(18, .Names = 'Seed'), y = structure(72, .Names = '')), .Names = c('Seed', 'X', 'y')), DecLen = structure(list( Seed = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5), X = 18, y = 18), .Names = c('Seed', 'X', 'y'))), .Names = c('N', 'ZXrows', 'ZXcols', 'Q', 'StrRows', 'qvec', 'ngrps', 'DmOff', 'ncol', 'nrot', 'ZXoff', 'ZXlen', 'SToff', 'DecOff', 'DecLen')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist42_0fdc29bddb215233b4aa47d0e8df01ac() {
+ assertEval("argv <- list(structure(list(structure('\n', Rd_tag = 'RCODE'), structure('Sys.timezone()\n', Rd_tag = 'RCODE'), structure('\n', Rd_tag = 'RCODE'), structure('#ifdef windows not active', Rd_tag = 'COMMENT'), structure(list(structure('\n', Rd_tag = 'VERB'), structure('## need to supply a suitable file path (if any) for your system\n', Rd_tag = 'VERB'), structure('tzfile <- \'/usr/share/zoneinfo/zone.tab\'\n', Rd_tag = 'VERB'), structure('tzones <- read.delim(tzfile, row.names = NULL, header = FALSE,\n', Rd_tag = 'VERB'), structure(' col.names = c(\'country\', \'coords\', \'name\', \'comments\'),\n', Rd_tag = 'VERB'), structure(' as.is = TRUE, fill = TRUE, comment.char = \'#\')\n', Rd_tag = 'VERB'), structure('str(tzones$name)\n', Rd_tag = 'VERB')), Rd_tag = '\\dontrun'), structure('\n', Rd_tag = 'RCODE')), Rd_tag = '\\examples'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist43_4fa4fd309c4941c6aee15839d6fc6521() {
+ assertEval("argv <- list(structure(list(`1` = 8.91763605923317e+38), .Names = '1'), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist44_25fa144c92150c9594d00efc724c5fc2() {
+ assertEval("argv <- list(list(c(0, 0), c(0, 0, 0, 1), NULL, c(1, 1)), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist45_fd7ca258b6f76f89dd5edfc815ab9a10() {
+ assertEval("argv <- list(list(structure(list(structure(c('McNeil', 'Ripley', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'AsIs')), row.names = c(NA, -6L), class = 'data.frame'), structure(list(structure(c('Australia', 'UK', 'UK', 'US', 'US', 'Australia'), class = 'AsIs')), row.names = c(NA, -6L), class = 'data.frame'), structure(list(structure(c('no', 'no', 'no', 'no', 'yes', 'no'), class = 'AsIs')), row.names = c(NA, -6L), class = 'data.frame'), structure(list(structure(c('Interactive Data Analysis', 'Spatial Statistics', 'Stochastic Simulation', 'LISP-STAT', 'Exploratory Data Analysis', 'Modern Applied Statistics ...'), class = 'AsIs')), row.names = c(NA, -6L), class = 'data.frame'), structure(list(structure(c(NA, NA, NA, NA, NA, 'Ripley'), class = 'AsIs')), row.names = c(NA, -6L), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist46_95e6c0b469183d3a065137caa2dee4d7() {
+ assertEval("argv <- list(list(structure(list(surname = structure(c(4L, 5L, 3L, 2L, 2L, 1L, 6L), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables', 'R Core'), class = 'factor'), nationality = structure(c(3L, 1L, 3L, 2L, 2L, 1L, NA), .Label = c('Australia', 'UK', 'US'), class = 'factor'), deceased = structure(c(2L, 1L, 1L, 1L, 1L, 1L, NA), .Label = c('no', 'yes'), class = 'factor')), .Names = c('surname', 'nationality', 'deceased'), row.names = c('1', '2', '3', '4', '4.1', '5', '7'), class = 'data.frame'), structure(list(title = structure(c(2L, 5L, 4L, 6L, 7L, 3L, 1L), .Label = c('An Introduction to R', 'Exploratory Data Analysis', 'Interactive Data Analysis', 'LISP-STAT', 'Modern Applied Statistics ...', 'Spatial Statistics', 'Stochastic Simulation'), class = 'factor'), other.author = structure(c(NA, 1L, NA, NA, NA, NA, 2L), .Label = c('Ripley', 'Venables & Smith'), class = 'factor')), .Names = c('title', 'other.author'), row.names = c(NA, 7L), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist47_9ea0da81edb2da1c0683bccd68ede7e2() {
+ assertEval("argv <- list(list(structure(list(structure('DateTimeClasses', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('POSIXt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('print.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('print.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('summary.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('summary.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('+.POSIXt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('-.POSIXt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('Ops.POSIXt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('Math.POSIXt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('Summary.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('Math.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('Summary.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('[.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('[<-.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('[[.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('[.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('[<-.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('as.data.frame.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('as.data.frame.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('as.list.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('.leap.seconds', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('is.na.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('c.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('c.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list( structure('as.matrix.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('length.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('mean.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('mean.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('str.POSIXt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('check_tzones', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('duplicated.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('unique.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('split.POSIXct', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('names.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('names<-.POSIXlt', Rd_tag = 'VERB')), Rd_tag = '\\alias'), structure(list(structure('date-time', Rd_tag = 'VERB')), Rd_tag = '\\alias')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist48_96ac9fd88185f3c4e65a2f4446a73181() {
+ assertEval("argv <- list(structure(list(c(3L, 0L, 0L)), class = 'numeric_version'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist49_a372f4aa0e6e20cdc2ae9550b9f7684c() {
+ assertEval("argv <- list(list(structure(list(x = 1L, y = structure(1L, .Label = c('A', 'D', 'E'), class = 'factor'), z = 6), .Names = c('x', 'y', 'z'), row.names = 1L, class = 'data.frame'), structure(list(), .Names = character(0), row.names = 1L, class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist5_f2e05326492d9e0a912fd77a4313b62f() {
+ assertEval("argv <- list(structure(list(sec = c(8.40000009536743, 8.80000019073486), min = c(14L, 14L), hour = c(22L, 22L)), .Names = c('sec', 'min', 'hour')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist6_0a3e7470006afaffe8594e580f443c45() {
+ assertEval("argv <- list(list(structure(list(c(NA, 0L)), row.names = c(NA, -2L), class = 'data.frame'), structure(list(c(NA, 0)), row.names = c(NA, -2L), class = 'data.frame'), structure(list(c(10L, 10L)), row.names = c(NA, -2L), class = 'data.frame'), structure(list(c(2.74035772634541, 2.74035772634541)), row.names = c(NA, -2L), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist7_41d12eb4e1fdbf2c2b9125c8238d06a5() {
+ assertEval("argv <- list(structure(list(diagonalMatrix = 1, lMatrix = 1, sparseMatrix = 2, Matrix = 2, mMatrix = 4), .Names = c('diagonalMatrix', 'lMatrix', 'sparseMatrix', 'Matrix', 'mMatrix')), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist8_fe37fc7b365236baa39cbebfdbece429() {
+ assertEval("argv <- list(list(structure(list(), .Names = character(0), row.names = integer(0), class = 'data.frame'), structure(list(height = numeric(0), weight = numeric(0)), .Names = c('height', 'weight'), row.names = integer(0), class = 'data.frame')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinunlist_testunlist9_6fedda4eeb203d008f152567af7e6c5d() {
+ assertEval("argv <- list(list(c(TRUE, FALSE, FALSE, FALSE, FALSE), c(TRUE, TRUE, TRUE, TRUE, NA)), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinutf8ToInt_testutf8ToInt1_63a27d481481a00dad84e929f539c36c() {
+ assertEval("argv <- list('lasy'); .Internal(utf8ToInt(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinvector_testvector10_10df1995690904192bb1b0bc0c548dd9() {
+ assertEval("argv <- list('list', structure(1L, .Names = '\\c')); .Internal(vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinvector_testvector9_3ec6b6e35abf3a65efefe2397e0034e4() {
+ assertEval("argv <- list('raw', 0L); .Internal(vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinwhich_testwhich4_dab6a1d1d7e8fdc8bc2f723fd7e78105() {
+ assertEval("argv <- list(structure(TRUE, .Names = 'V1')); .Internal(which(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinwhich_testwhich9_0c431803ab55f27309549cbc5947f2f2() {
+ assertEval("argv <- list(structure(FALSE, .Names = 'signature-class.Rd')); .Internal(which(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinwhichmax_testwhichmax2_bc0064f5ce6fe0559a90a7d2c6ae0003() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE), .Names = c('d', 'I(as.numeric(d)^2)'))); .Internal(which.max(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinwhichmax_testwhichmax4_ab75935a3fe576e9409934730c64f62a() {
+ assertEval("argv <- list(structure(c(NA, 87, 82, 75, 63, 50, 43, 32, 35, 60, 54, 55, 36, 39, NA, NA, 69, 57, 57, 51, 45, 37, 46, 39, 36, 24, 32, 23, 25, 32, NA, 32, 59, 74, 75, 60, 71, 61, 71, 57, 71, 68, 79, 73, 76, 71, 67, 75, 79, 62, 63, 57, 60, 49, 48, 52, 57, 62, 61, 66, 71, 62, 61, 57, 72, 83, 71, 78, 79, 71, 62, 74, 76, 64, 62, 57, 80, 73, 69, 69, 71, 64, 69, 62, 63, 46, 56, 44, 44, 52, 38, 46, 36, 49, 35, 44, 59, 65, 65, 56, 66, 53, 61, 52, 51, 48, 54, 49, 49, 61, NA, NA, 68, 44, 40, 27, 28, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = 'ts')); .Internal(which.max(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinwhichmax_testwhichmax5_79fb02f2a6b85572fd6cc6c025b88103() {
+ assertEval("argv <- list(NULL); .Internal(which.max(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinwhichmax_testwhichmax6_7fc83a1e01e81a96f76d8220a4a5d2e2() {
+ assertEval("argv <- list(list()); .Internal(which.max(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinwhichmin_testwhichmin1_d6176c9b59aa6bb735350689a65f6902() {
+ assertEval("argv <- list(structure(c(345595, 172795, 69115, 34555, 23035, 11515, 5755, 2875, 1147, 571, 379, 187, 91, 27, 11, 3, 1, 3, 4.42857142857143, 4.73716632443532, 4.86858316221766, 4.95619438740589, 4.97809719370294, 4.98904859685147, 4.99452429842574, 4.99780971937029, 4.99890485968515, 4.99945242984257, 4.99978097193703, 4.99989048596851, 4.99994524298426, 4.9999780971937, 4.99998904859685), .Names = c('1 sec', '2 secs', '5 secs', '10 secs', '15 secs', '30 secs', '1 min', '2 mins', '5 mins', '10 mins', '15 mins', '30 mins', '1 hour', '3 hours', '6 hours', '12 hours', '1 DSTday', '2 DSTdays', '1 week', 'halfmonth', '1 month', '3 months', '6 months', '1 year', '2 years', '5 years', '10 years', '20 years', '50 years', '100 years', '200 years', '500 years', '1000 years'))); .Internal(which.min(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinwhichmin_testwhichmin2_d37d291f96c4c6f2e09346cb620e9770() {
+ assertEval("argv <- list(structure(c(295, 145, 55, 25, 15, 5, 0, 2.5, 4, 4.5, 4.66666666666667, 4.83333333333333, 4.91666666666667, 4.97222222222222, 4.98611111111111, 4.99305555555556, 4.99652777777778, 4.99826388888889, 4.99950396825397, 4.99977184576774, 4.99988592288387, 4.99996197429462, 4.99998098714731, 4.99999049357366, 4.99999524678683, 4.99999809871473, 4.99999904935737, 4.99999952467868, 4.99999980987147, 4.99999990493574, 4.99999995246787, 4.99999998098715, 4.99999999049357), .Names = c('1 sec', '2 secs', '5 secs', '10 secs', '15 secs', '30 secs', '1 min', '2 mins', '5 mins', '10 mins', '15 mins', '30 mins', '1 hour', '3 hours', '6 hours', '12 hours', '1 DSTday', '2 DSTdays', '1 week', 'halfmonth', '1 month', '3 months', '6 months', '1 year', '2 years', '5 years', '10 years', '20 years', '50 years', '100 years', '200 years', '500 years', '1000 years'))); .Internal(which.min(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinwhichmin_testwhichmin3_486bf281a1e82b07ad35b247d7369c9d() {
+ assertEval("argv <- list(NULL); .Internal(which.min(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinwhichmin_testwhichmin4_1bc7b4a571c1e2d2012691bb7c08f068() {
+ assertEval("argv <- list(list()); .Internal(which.min(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinwhichmin_testwhichmin5_41a9a1ccc68a580857ce6de332825860() {
+ assertEval("argv <- list(c(NA, 0.951840581382975, 0.805577027554469, 0.663985017923499, 0.53717416750558, 0.496765449963868, 0.472038350505409, 0.463306413812878, 0.485896454097402, 0.520777596351646, 0.524391122960607, 0.492063804965834, 0.513821989320989, 0.521702559081969, 0.533525525673351)); .Internal(which.min(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinwhichmin_testwhichmin6_1c622637b29a8cffa713c704cf8db17b() {
+ assertEval("argv <- list(structure(c(NA, 87, 82, 75, 63, 50, 43, 32, 35, 60, 54, 55, 36, 39, NA, NA, 69, 57, 57, 51, 45, 37, 46, 39, 36, 24, 32, 23, 25, 32, NA, 32, 59, 74, 75, 60, 71, 61, 71, 57, 71, 68, 79, 73, 76, 71, 67, 75, 79, 62, 63, 57, 60, 49, 48, 52, 57, 62, 61, 66, 71, 62, 61, 57, 72, 83, 71, 78, 79, 71, 62, 74, 76, 64, 62, 57, 80, 73, 69, 69, 71, 64, 69, 62, 63, 46, 56, 44, 44, 52, 38, 46, 36, 49, 35, 44, 59, 65, 65, 56, 66, 53, 61, 52, 51, 48, 54, 49, 49, 61, NA, NA, 68, 44, 40, 27, 28, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = 'ts')); .Internal(which.min(argv[[1]]))");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinxtfrm_testxtfrm1_3b92963ab424a885d5c6f528462f1f42() {
+ assertEval("argv <- list(structure(c(4L, 5L, 3L, 2L, 1L), .Label = c('McNeil', 'Ripley', 'Tierney', 'Tukey', 'Venables'), class = 'factor'));xtfrm(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinxtfrm_testxtfrm10_f8f0943e85c01d94ad9001ab6a6b8ffa() {
+ assertEval("argv <- list(structure(c(-0.00456054471709705, -0.0386783362736307, -0.0164476694679408, -0.191054486056936, -0.648560736432306, -0.0674820314025517, -0.0740415039370447, -0.0243389397466521, -0.00751319716764208, -2.290078352999e-05, -0.0207911295071267, -0.0697881087827301, -0.00348607275095251, -0.00951045408299201, -0.00166106374745221, -0.0259659490166321, -0.0293880116898911, -0.0140288480262381, -0.0027358575950958, -0.000491817024731849, -0.00823790481253382, -0.00148071888751321, -0.00122448210109329, -0.0168483392795904, -0.0206872529040578, -0.000471241810355829, -0.00239800266383851, -0.00875711097940079, -0.0461679706262251, -0.0100810672498937, -0.0758745277496017, -0.0537304828043233, -0.0171367489531612, -0.01057973675541, -0.0676085282986778, -0.069201293818924, -0.00065957876422003, -1.97617272327839e-05, -0.00439039022584134), .Names = c('1962.25', '1962.5', '1962.75', '1963', '1963.25', '1963.5', '1963.75', '1964', '1964.25', '1964.5', '1964.75', '1965', '1965.25', '1965.5', '1965.75', '1966', '1966.25', '1966.5', '1966.75', '1967', '1967.25', '1967.5', '1967.75', '1968', '1968.25', '1968.5', '1968.75', '1969', '1969.25', '1969.5', '1969.75', '1970', '1970.25', '1970.5', '1970.75', '1971', '1971.25', '1971.5', '1971.75')));xtfrm(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinxtfrm_testxtfrm11_726960ee2f1187190691a56ecc43c4b6() {
+ assertEval("argv <- list(structure(list(c(2L, 10L, 0L), c(2L, 10L, 1L), c(2L, 10L, 1L, 1L), c(2L, 11L, 0L), c(2L, 11L, 1L), c(2L, 11L, 1L, 1L), c(2L, 12L, 0L), c(2L, 12L, 1L), c(2L, 12L, 2L), c(2L, 12L, 2L, 1L), c(2L, 13L, 0L), c(2L, 13L, 1L), c(2L, 13L, 2L), c(2L, 14L, 0L), c(2L, 14L, 1L), c(2L, 14L, 2L), c(2L, 15L, 0L), c(2L, 15L, 1L), c(2L, 15L, 2L), c(2L, 15L, 3L), c(3L, 0L, 0L), c(3L, 0L, 1L)), class = 'numeric_version'));xtfrm(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinxtfrm_testxtfrm12_81ff59eb39910cc2fe0d247d89009bc8() {
+ assertEval("argv <- list(structure(list(c(2L, 11L, 0L)), class = 'numeric_version'));xtfrm(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinxtfrm_testxtfrm13_ff0a798c69ed5b019fef5b0c5ebdf27f() {
+ assertEval("argv <- list(structure(c(607L, 30L, 3L, 11L, 44L, 67L, 17L, 16L, 67L, 6L, 1L, 13L, 672L, 46L, 8L, 18L, 10L, 22L, 16L, 5L, 55L, 2L), .Dim = 22L, .Dimnames = structure(list(c('BUG FIXES', 'C-LEVEL FACILITIES', 'CODE MIGRATION', 'COMPRESSION', 'DEPRECATED & DEFUNCT', 'DEPRECATED AND DEFUNCT', 'GRAPHICS DEVICES', 'HELP & Rd FILE CHANGES', 'INSTALLATION', 'INTERNATIONALIZATION', 'LICENCE', 'LONG VECTORS', 'NEW FEATURES', 'PACKAGE INSTALLATION', 'PACKAGE parallel', 'PERFORMANCE IMPROVEMENTS', 'REGULAR EXPRESSIONS', 'SIGNIFICANT USER-VISIBLE CHANGES', 'SWEAVE & VIGNETTES', 'SWEAVE CHANGES', 'UTILITIES', 'WINDOWS-SPECIFIC CHANGES')), .Names = ''), class = 'table'));xtfrm(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinxtfrm_testxtfrm2_b94a50966ea5e19698742d3e4c472f73() {
+ assertEval("argv <- list(structure(c('Tukey', 'Venables', 'Tierney', 'Ripley', 'Ripley', 'McNeil', 'R Core'), class = 'AsIs'));xtfrm(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinxtfrm_testxtfrm3_97dbd1c548746bab47ac2deb0726f3c6() {
+ assertEval("argv <- list(c('9', '9', '8', '7', '6', '5', '4', '3', '2', '1'));xtfrm(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinxtfrm_testxtfrm4_96c35e16b58d24b3e6506531adb92c89() {
+ assertEval("argv <- list(list());xtfrm(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinxtfrm_testxtfrm5_1717ab01bb2368f6d10a950d12bf9feb() {
+ assertEval("argv <- list(NULL);xtfrm(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinxtfrm_testxtfrm6_469f3bdc584c134e8095e29b6e93181f() {
+ assertEval("argv <- list(structure(c(11354, 11382, 11413), class = 'Date'));xtfrm(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinxtfrm_testxtfrm7_dff11923cc8e38d39e14a1d82396b6ed() {
+ assertEval("argv <- list(structure(1:3, id = 'An Example', class = structure('numWithId', package = '.GlobalEnv')));xtfrm(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinxtfrm_testxtfrm8_1f852c9d39f4b7de7a4f70b94b8477c1() {
+ assertEval("argv <- list(structure(1:48, .Label = c('1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18', '19', '20', '21', '22', '23', '24', '25', '26', '27', '28', '29', '30', '31', '32', '33', '34', '35', '36', '37', '38', '39', '40', '41', '42', '43', '44', '45', '46', '47', '48'), class = 'factor'));xtfrm(argv[[1]]);");
+ }
+
+ @Ignore
+ public void TestrGenBuiltinxtfrm_testxtfrm9_5cc89686f3f0feb71aa223976d6bfa28() {
+ assertEval("argv <- list(structure(c(0.00318983494910604, -0.0111499005186203, -0.00684577108225438, -0.0259425874127965, 0.0236273472621072, 0.0160653568112268, 0.0169512728197135, -0.0108668370208327, 0.0075620519889718, 0.000382355180538597, 0.0147085004994818, -0.0237528559595188, -0.00450253418485462, -0.00933970368616398, -0.00295998622541489, -0.0142621134100646, 0.0149334478604598, 0.0102146485133766, 0.00423575454949581, -0.00284331639280456, 0.0113535382887161, -0.00395897382574548, -0.00413390950862867, -0.0165713012838917, -0.018012405938438, 0.00225076128639717, 0.00786949110453678, 0.00890171601854386, 0.0241231688586559, 0.0104325796748375, 0.0267124035293778, -0.0242586202225146, 0.011564413201586, -0.00791916545648325, -0.020000071186273, -0.0160024870044187, 0.00243365269147765, 0.000371702019451462, 0.00543854321166064), .Names = c('1962.25', '1962.5', '1962.75', '1963', '1963.25', '1963.5', '1963.75', '1964', '1964.25', '1964.5', '1964.75', '1965', '1965.25', '1965.5', '1965.75', '1966', '1966.25', '1966.5', '1966.75', '1967', '1967.25', '1967.5', '1967.75', '1968', '1968.25', '1968.5', '1968.75', '1969', '1969.25', '1969.5', '1969.75', '1970', '1970.25', '1970.5', '1970.75', '1971', '1971.25', '1971.5', '1971.75')));xtfrm(argv[[1]]);");
+ }
+
}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/simple/TestSimpleFunctions.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/simple/TestSimpleFunctions.java
index 50d258d132ac3a0ef511240e5c89b642e8735d1b..749ad3ca19bfd0a099a6567c31e08bc8a583fc5c 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/simple/TestSimpleFunctions.java
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/simple/TestSimpleFunctions.java
@@ -246,7 +246,9 @@ public class TestSimpleFunctions extends TestBase {
}
@Test
+ @Ignore
public void testArgs() {
+ // Test fails in unit tests but not in shell after merge with testrgen
assertEval("{ f<-function(x, row.names = NULL, optional = FALSE, ...) {print(optional)}; f(c(7,42), row.names=NULL, nm=\"x\") }");
}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinArg.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinArg.java
new file mode 100644
index 0000000000000000000000000000000000000000..ab01729b754663411d3325675647bb3f5f756c63
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinArg.java
@@ -0,0 +1,54 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinArg extends TestBase {
+
+ @Test
+ @Ignore
+ public void testArg1() {
+ assertEval("argv <- list(1+2i);Arg(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testArg2() {
+ assertEval("argv <- list(c(1554.86976865791+337.57296578684i, 1953.0195914094+434.16395869265i, 2020.8001333202+267.40279521531i, 12019.4947666225+397.6223289386i, 40989.2104557418+1079.1450107273i, 59779.5384921205+1460.5074297272i, 40703.4141691824+1049.8100128697i, 12234.4562968499+469.0052365648i, 2311.58538965355+142.56529231224i, 2158.93441543181+94.80017111005i, 2768.79882180339+256.05759156168i, 3234.20673958634+282.64174433659i, 2796.76248579155+64.23534085425i, 2030.22757739534-164.56566766766i, 1522.09271008314-273.51503749101i, 1109.23177636373-215.24298332377i, 714.154122222449-75.284630456206i, 509.684427096512-24.577531288476i, 628.214718823948+42.431050163574i, 1053.2295477549+190.4802567974i, 1388.73708931304+133.04405268816i, 1213.97041311196-135.67196064028i, 790.469479873384-232.737914916798i, 503.424076694357-99.275737105817i, 430.214847703846+45.250156289826i, 640.795334515383+121.961327286573i, 794.927869993865+100.643091831764i, 554.394621183915-15.753680159958i, 286.476583987294-104.634488576316i, 232.82067569803-92.469328935268i, 229.472155078088-54.85406188579i, 253.438957119958-65.123390974834i, 285.141954428461-79.653095359009i, 257.168942241366-34.332533775171i, 214.215071612655+18.001149572355i, 199.882436088191+0i));Arg(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testArg3() {
+ assertEval("argv <- list(c(-12.561836573133-726.935211685406i, -19.15961591777-1315.40822424617i, -666.84872452586-2013.90899841237i, -5775.9038598237-11495.8986046958i, -19052.0606820086-36788.5714510618i, -27954.209922899-52600.8398855356i, -19930.6456597181-35739.3494902644i, -7168.9170917163-10787.9325286278i, -2331.00733468417-1545.77448035635i, -1953.77845230855-212.90200115993i, -1953.60071030304+1420.43983282655i, -1700.4015174326+2765.31423009739i, -862.10275212019+2693.95914108523i, 163.24691179114+1837.1971341258i, 824.29498680332+1155.03126302727i, 939.495937605926+679.549172893055i, 686.101881005818+305.166761591578i, 460.339323160381-14.067413050801i, 533.688543397269-293.997358985575i, 773.041200043657-698.096300485637i, 716.84959340189-1127.39175172066i, 226.23728166311-1110.40349894929i, -203.687633095422-740.924670781257i, -271.865544904439-437.858153233594i, -316.769706633022-279.671035520361i, -624.842102639273-228.211019456587i, -806.31350008813-164.912647906911i, -506.559675826232+24.376187336594i, -142.784303570554+217.087547410547i, -44.704338624059+260.225831716256i, 10.565037460572+219.942519605707i, 143.643627814428+218.823069474359i, 232.58540850813+214.905815487636i, 223.286482103748+175.139821578561i, 185.008902762186+116.519845434485i, 171.150234739785-0i));Arg(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testArg4() {
+ assertEval("argv <- list(logical(0));Arg(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testArg5() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));Arg(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testArg6() {
+ assertEval("argv <- list(FALSE);Arg(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinConj.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinConj.java
new file mode 100644
index 0000000000000000000000000000000000000000..951591877fb09d533e98baf00654e8f656db0eff
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinConj.java
@@ -0,0 +1,54 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinConj extends TestBase {
+
+ @Test
+ @Ignore
+ public void testConj1() {
+ assertEval("argv <- list(NA_complex_);Conj(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testConj2() {
+ assertEval("argv <- list(c(-1.18540307978262+0i, 1.21560120163195-1.53371687180917i, 2.77616253887119+2.49241439707552i, -0.34590612779948+5.91601304866405i, -4.79620377219434-5.1021793804514i, -0.76948538129694-3.75787028288235i, 7.35246399396265+3.06008718716048i, 3.29255418488526-1.70891939683671i, -4.06380659430245+3.06999922353505i, -3.09223641978001-1.96417605896538i, -0.92141308753853+1.40901240924205i, -2.00249720671212-2.68610936520658i, -0.36243789137685+2.82396143864819i, 0.970540333825845-0.827296527575657i, -0.71012351273056-1.58808368514905i, 0.65264999887605-1.47950735242131i, 2.37634963276553+0.56734038764123i, 1.07643410940103-0.27130380644466i, -0.75915222215558-1.26274988364837i, 0.27719717365392+1.892240358725i, -0.486365810527362+0.32331047458147i, 0.458815916572034+0.775988009981045i, -1.62795265860628+1.25968253919881i, -0.31369767965175+2.67392540646143i, 1.35480053490252+0i, -0.31369767965175-2.67392540646143i, -1.62795265860628-1.25968253919881i, 0.458815916572035-0.775988009981044i, -0.486365810527364-0.323310474581469i, 0.27719717365392-1.892240358725i, -0.75915222215558+1.26274988364837i, 1.07643410940103+0.27130380644466i, 2.37634963276553-0.56734038764123i, 0.65264999887605+1.47950735242131i, -0.71012351273056+1.58808368514905i, 0.970540333825845+0.827296527575658i, -0.36243789137685-2.82396143864819i, -2.00249720671212+2.68610936520658i, -0.92141308753853-1.40901240924205i, -3.09223641978001+1.96417605896538i, -4.06380659430245-3.06999922353505i, 3.29255418488526+1.70891939683671i, 7.35246399396266-3.06008718716047i, -0.76948538129694+3.75787028288235i, -4.79620377219434+5.10217938045139i, -0.34590612779948-5.91601304866405i, 2.77616253887119-2.49241439707552i, 1.21560120163195+1.53371687180917i));Conj(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testConj3() {
+ assertEval("argv <- list(structure(c(0.087699990825051-0.22507396943778i, 0.543948655831334+0.33174688242063i, 0.162724647304311-0.15004931295852i, 0.433366361691124+0.22116458828042i, 0.237749303783571-0.07502465647926i, 0.322784067550914+0.11058229414021i, 0.312773960262831+0i, 0.212201773410704-0i, 0.387798616742091+0.07502465647926i, 0.101619479270494-0.11058229414021i, 0.462823273221351+0.15004931295852i, -0.008962814869716-0.22116458828042i, 0.537847929700611+0.22507396943778i, -0.119545109009926-0.33174688242063i), .Dim = c(2L, 7L)));Conj(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testConj4() {
+ assertEval("argv <- list(c(1+0i, 0.985449458355365-0.138495889434283i, 0.942642872008266-0.270298493966801i, 0.874055380411015-0.389154527907249i, 0.783616834775482-0.489658143691394i, 0.676434265976222-0.567595743096322i, 0.558433187362516-0.620202886580765i, 0.435944803381395-0.646314749919218i, 0.315270204563124-0.646399711551264i, 0.202254248593737-0.622474571220695i, 0.101900933636988-0.577908912337521i, 0.018058735786294-0.517134531945579i, -0.046801131817278-0.445283024979697i, -0.091697846014566-0.367779972441526i, -0.117138246792619-0.289927334668645i, -0.125-0.21650635094611i, -0.118311211562746-0.151431445234362i, -0.1009450259937-0.097481478474725i, -0.0772542485937368-0.0561284970724482i, -0.0516755705617768-0.027476388254185i, -0.0283351996132097-0.0103131692411995i, -0.0106874359562526-0.0022716846399295i, -1.21500794451954e-03-8.496163204619e-05i, -1.21500794451956e-03+8.49616320463e-05i, -0.0106874359562525+0.0022716846399297i, -0.0283351996132096+0.0103131692411996i, -0.0516755705617767+0.0274763882541851i, -0.0772542485937367+0.0561284970724481i, -0.1009450259937+0.097481478474725i, -0.118311211562746+0.151431445234362i, -0.125+0.21650635094611i, -0.117138246792619+0.289927334668644i, -0.091697846014566+0.367779972441526i, -0.046801131817278+0.445283024979697i, 0.018058735786294+0.517134531945579i, 0.101900933636988+0.577908912337521i, 0.202254248593737+0.622474571220695i, 0.315270204563124+0.646399711551264i, 0.435944803381395+0.646314749919218i, 0.558433187362516+0.620202886580765i, 0.676434265976221+0.567595743096322i, 0.783616834775482+0.489658143691394i, 0.874055380411015+0.389154527907249i, 0.942642872008266+0.270298493966801i, 0.985449458355365+0.138495889434283i));Conj(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testConj5() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));Conj(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testConj6() {
+ assertEval("argv <- list(FALSE);Conj(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinDate2POSIXlt.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinDate2POSIXlt.java
new file mode 100644
index 0000000000000000000000000000000000000000..de920cd11ef6ed931592ea2a5665a8876d1a2c21
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinDate2POSIXlt.java
@@ -0,0 +1,72 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinDate2POSIXlt extends TestBase {
+
+ @Test
+ @Ignore
+ public void testDate2POSIXlt1() {
+ assertEval("argv <- list(structure(c(14712, 14712), class = \'Date\')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testDate2POSIXlt2() {
+ assertEval("argv <- list(structure(c(11323, NA, NA, 12717), class = \'Date\')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testDate2POSIXlt3() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L), class = \'Date\')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testDate2POSIXlt4() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE), class = \'Date\')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testDate2POSIXlt5() {
+ assertEval("argv <- list(NULL); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testDate2POSIXlt6() {
+ assertEval("argv <- list(character(0)); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testDate2POSIXlt7() {
+ assertEval("argv <- list(structure(11323.9154302836, class = \'Date\')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testDate2POSIXlt8() {
+ assertEval("argv <- list(structure(c(-21915, -21550, -21185, -20819, -20454, -20089, -19724, -19358, -18993, -18628, -18263, -17897, -17532, -17167, -16802, -16436, -16071, -15706, -15341, -14975, -14610, -14245, -13880, -13514, -13149, -12784, -12419, -12053, -11688, -11323, -10958, -10592, -10227, -9862, -9497, -9131, -8766, -8401, -8036, -7670, -7305, -6940, -6575, -6209, -5844, -5479, -5114, -4748, -4383, -4018, -3653, -3287, -2922, -2557, -2192, -1826, -1461, -1096, -731, -365, 0, 365, 730, 1096, 1461, 1826, 2191, 2557, 2922, 3287, 3652, 4018, 4383, 4748, 5113, 5479, 5844, 6209, 6574, 6940, 7305, 7670, 8035, 8401, 8766, 9131, 9496, 9862, 10227, 10592), class = \'Date\')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testDate2POSIXlt9() {
+ assertEval("argv <- list(structure(c(11354, 11382, 11413), class = \'Date\')); .Internal(Date2POSIXlt(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinEncoding.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinEncoding.java
new file mode 100644
index 0000000000000000000000000000000000000000..67938f61633fd6f525785b5deb4bc06c54391813
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinEncoding.java
@@ -0,0 +1,60 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinEncoding extends TestBase {
+
+ @Test
+ @Ignore
+ public void testEncoding1() {
+ assertEval("argv <- list(\'Byte Code Compiler\'); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testEncoding2() {
+ assertEval("argv <- list(c(\'\\n\', \'\\n\', \'## These cannot be run by examples() but should be OK when pasted\\n\', \'## into an interactive R session with the tcltk package loaded\\n\', \'\\n\', \'tt <- tktoplevel()\\n\', \'tkpack(txt.w <- tktext(tt))\\n\', \'tkinsert(txt.w, \\\'0.0\\\', \\\'plot(1:10)\\\')\\n\', \'\\n\', \'# callback function\\n\', \'eval.txt <- function()\\n\', \' eval(parse(text = tclvalue(tkget(txt.w, \\\'0.0\\\', \\\'end\\\'))))\\n\', \'tkpack(but.w <- tkbutton(tt, text = \\\'Submit\\\', command = eval.txt))\\n\', \'\\n\', \'## Try pressing the button, edit the text and when finished:\\n\', \'\\n\', \'tkdestroy(tt)\\n\', \'\\n\', \'\\n\')); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testEncoding3() {
+ assertEval("argv <- list(\'detaching ‘package:nlme’, ‘package:splines’\'); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testEncoding4() {
+ assertEval("argv <- list(structure(character(0), class = \'check_code_usage_in_package\')); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testEncoding5() {
+ assertEval("argv <- list(structure(\'Type 'demo(PKG::FOO)' to run demonstration 'PKG::FOO'.\', .Names = \'demo\')); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testEncoding6() {
+ assertEval("argv <- list(\'A shell of class documentation has been written to the file './myTst2/man/DocLink-class.Rd'.\\n\'); .Internal(Encoding(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testEncoding7() {
+ assertEval("argv <- list(c(\'* Edit the help file skeletons in 'man', possibly combining help files for multiple functions.\', \'* Edit the exports in 'NAMESPACE', and add necessary imports.\', \'* Put any C/C++/Fortran code in 'src'.\', \'* If you have compiled code, add a useDynLib() directive to 'NAMESPACE'.\', \'* Run R CMD build to build the package tarball.\', \'* Run R CMD check to check the package tarball.\', \'\', \'Read \\\'Writing R Extensions\\\' for more information.\')); .Internal(Encoding(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinIm.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinIm.java
new file mode 100644
index 0000000000000000000000000000000000000000..09df8af25a86ceb5f4fd097b53ff490fba802899
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinIm.java
@@ -0,0 +1,52 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinIm extends TestBase {
+
+ @Test
+ public void testIm1() {
+ assertEval("argv <- list(c(0.117646597100126-0.573973479297987i, -0.740437474899139-0.482946826369552i, -0.333166449062945-0.753763230370951i, -0.256092192198247+0.707588353835588i, 0.522033838837248+0.102958580568997i, -0.651949901695459+0.059749937384601i, 0.235386572284857-0.70459646368007i, 0.077960849563711-0.71721816157401i, -0.563222209454641-0.518013590538404i, -0.068796124369349+0.97981641556181i, 0.244428915757284-0.330850507052219i, 0.451504053079215-0.090319593965852i, 0.04123292199294+0.214538826629216i, -0.422496832339625-0.738527704739573i, -0.451685375030484+0.126357395265016i, 0.375304016677864+0.436900190874168i, -0.674059300339186+0.084416799015191i, 0.739947510877334+0.418982404924464i, 0.509114684244823-0.086484623694157i, -0.535642839219739+0.289927561259502i, 0.629727249341749+0.707648659913726i, -0.262197489402468-0.502198718342861i, -0.333800277698424-0.317646103980588i, -0.422186107911717+0.317002735170286i, -0.616692335171505+0.068946145379939i, -0.136100485502624-0.487679764177213i, -0.68086000613138+0.047032323152903i, 0.296209908189768+0.585533462557103i, 0.43280012844045+0.136998748692477i, -0.680205941942733-0.256569497284745i, 0.787738847475178-0.375602871669773i, 0.76904224100091-0.561876363549783i, 0.332202578950118-0.343917234128459i, -0.983769553611346-0.088288289740869i, -0.046488672133508-0.622109071207677i, -0.280395335170247-0.088565112138884i, 0.379095891586975-0.727769566649926i, -0.372438756103829+0.630754115650567i, 0.976973386685621-0.113639895506141i, -0.150428076228347+0.615598727377677i, 0.762964492726935+0.377685645913312i, -0.7825325866026+0.365371705974346i, -0.792443423040311-0.029652870362208i, 0.265771060547393-0.106618612674382i, -0.076741350022367-0.422144111460857i, 0.120061986786934-0.623033085890884i, 0.636569674033849-0.133150964328944i, -0.145741981978782+0.529165019069452i, 0.516862044313609-0.388779864071743i, 0.368964527385086+0.089207223073295i, -0.215380507641693+0.845013004067436i, 0.065293033525315+0.962527968484271i, -0.034067253738464+0.684309429416465i, 0.328611964770906+0.215416587846774i, -0.583053183540166-0.668235480667835i, -0.782507286391418+0.318827979750013i, 0.037788399171079+0.174802700161256i, 0.310480749443137+0.074551177173735i, 0.436523478910183+0.428166764970505i, -0.458365332711106+0.02467498282614i, -0.271871452223431+0.426340387811162i, 0.590808184713385-0.344468770084509i, -0.349650387953555+0.386026568349676i, -0.865512862653374-0.265651625278222i, -0.236279568941097+0.118144511046681i, -0.197175894348552+0.134038645368463i, 0.866602113481861-0.172567291859327i, 0.031389337713892-0.607820631329035i, 0.754053785184521-0.219050378933476i, -0.499292017172261+0.168065383884658i, 0.151969488085021-0.827990593142535i, -0.266853748421854-0.866413193943766i, 0.071623062591495-0.867246686843546i, -0.788765741891382+0.508717463380604i, -0.228835546857432-0.349587041980114i, 0.500139791176978-0.016703152458872i, 0.15619107374708-0.485402548890295i, -0.369039310626083+0.398423724273751i, -0.611165916680421+0.020983586354237i, -0.399467692630093-0.421179989556223i, 0.411274074028001+0.133781691724871i, 0.573364366690245+0.328833257005489i, -0.265145056696353-0.938538703606894i, 0.387209171815106+0.750271083217101i, -0.41433994791886-0.437159533180399i, -0.476246894615578+0.331179172958982i, -0.168543113030619+0.43048451175239i, -0.594617267459511+0.211980433372292i, 0.388005062566602-0.290649953587954i, -0.013004326537709-0.490434895455784i, 0.069845221019376-0.762134635168809i, 0.243687429599092+0.756774763795962i, 0.27384734040072+0.383667165938905i, -0.51606383094478-0.601506708006782i, -0.894951082455532+0.317442909372288i, 0.5073401683933-0.213001485168032i, -0.441163216905286-0.105671334003774i, -0.343169835663372+0.597359384628839i, -0.283179001991236-0.385834501657171i, -0.517794900198098-0.36732932802092i));Im(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testIm2() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));Im(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testIm3() {
+ assertEval("argv <- list(FALSE);Im(argv[[1]]);");
+ }
+
+ @Test
+ public void testIm4() {
+ assertEval("argv <- list(c(0+0i, 0.01-0i, 0.02-0i, 0.03-0i, 0.04-0i, 0.05-0i, 0.06-0i, 0.07-0i, 0.08-0i, 0.09-0i, 0.1-0i, 0.11-0i, 0.12-0i, 0.13-0i, 0.14-0i, 0.15-0i, 0.16-0i, 0.17-0i, 0.18-0i, 0.19-0i, 0.2-0i, 0.21-0i, 0.22-0i, 0.23-0i, 0.24-0i, 0.25-0i, 0.26-0i, 0.27-0i, 0.28-0i, 0.29-0i, 0.3-0i, 0.31-0i, 0.32-0i, 0.33-0i, 0.34-0i, 0.35-0i, 0.36-0i, 0.37-0i, 0.38-0i, 0.39-0i, 0.4-0i, 0.41-0i, 0.42-0i, 0.43-0i, 0.44-0i, 0.45-0i, 0.46-0i, 0.47-0i, 0.48-0i, 0.49-0i, 0.5-0i, 0.51-0i, 0.52-0i, 0.53-0i, 0.54-0i, 0.55-0i, 0.56-0i, 0.57-0i, 0.58-0i, 0.59-0i, 0.6-0i, 0.61-0i, 0.62-0i, 0.63-0i, 0.64-0i, 0.65-0i, 0.66-0i, 0.67-0i, 0.68-0i, 0.69-0i, 0.7-0i, 0.71-0i, 0.72-0i, 0.73-0i, 0.74-0i, 0.75-0i, 0.76-0i, 0.77-0i, 0.78-0i, 0.79-0i, 0.8-0i, 0.81-0i, 0.82-0i, 0.83-0i, 0.84-0i, 0.85-0i, 0.86-0i, 0.87-0i, 0.88-0i, 0.89-0i, 0.9-0i, 0.91-0i, 0.92-0i, 0.93-0i, 0.94-0i, 0.95-0i, 0.96-0i, 0.97-0i, 0.98-0i, 0.99-0i, 1-0i));Im(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testIm5() {
+ assertEval("argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c(\'x1\', \'x2\'))));Im(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testIm6() {
+ assertEval("argv <- list(c(0.923879532511287+0.38268343236509i, 0.707106781186548+0.707106781186547i, 0.38268343236509+0.923879532511287i, 0+1i, -0.38268343236509+0.923879532511287i, -0.707106781186547+0.707106781186548i, -0.923879532511287+0.38268343236509i, -1+0i, -0.923879532511287-0.38268343236509i, -0.707106781186548-0.707106781186547i, -0.38268343236509-0.923879532511287i, 0-1i, 0.38268343236509-0.923879532511287i, 0.707106781186547-0.707106781186548i, 0.923879532511287-0.38268343236509i, 1-0i));Im(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinLa.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinLa.java
new file mode 100644
index 0000000000000000000000000000000000000000..e9674567be1d3d7f8ab2b4f033e0a583bc29b160
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinLa.java
@@ -0,0 +1,72 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinLa extends TestBase {
+
+ @Test
+ @Ignore
+ public void testLa1() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0), .Dim = c(18L, 7L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\'), c(\'(Intercept)\', \'Rail2\', \'Rail5\', \'Rail1\', \'Rail6\', \'Rail3\', \'Rail4\')))); .Internal(La_qr(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testLa2() {
+ assertEval("argv <- list(structure(c(-4.47213595499958, 0, -6.70820393249937, 2.23606797749979), .Dim = c(2L, 2L), .Dimnames = list(NULL, c(\'Intercept\', \'X\'))), structure(c(1, 0, 0, 1), .Dim = c(2L, 2L)), 2.22044604925031e-16); .Internal(La_solve(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testLa3() {
+ assertEval("argv <- list(structure(c(-21.2222451396881, 306.936914624821, 0, 0, 0, -101.353437863947, -21.2222451396881, 0, 0, 0, 45.8768670002026, 63.2672432400162, -11.7486843755171, 0, 0, 65.1621918666428, 125.787781278037, -111.869521123473, 61.0965873274467, -54.389932439947, -26.0785375270079, -209.347244886481, 112.817924425406, 108.385517228532, 61.0965873274467), .Dim = c(5L, 5L), .Dimnames = list(NULL, NULL)), FALSE); .Internal(La_rg(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testLa4() {
+ assertEval("argv <- list(\'S\', structure(c(1, 0, 0, 0, 0, 1.4142135623731, 0, 0, 0, 0, 1.73205080756888, 0, 0, 0, 0, 2), .Dim = c(4L, 4L), Dimnames = list(character(0), character(0))), c(2, 1.73205080756888, 1.4142135623731, 1), structure(c(0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0), .Dim = c(4L, 4L)), structure(c(0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0), .Dim = c(4L, 4L))); .Internal(La_svd(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testLa5() {
+ assertEval("argv <- list(structure(c(0.842723988615538, 1, 0, 1, 0.636010690700881, 1, 0, 1, 0.842723988615537), .Dim = c(3L, 3L)), FALSE); .Internal(La_rs(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testLa6() {
+ assertEval("argv <- list(\'S\', structure(c(FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(5L, 5L)), c(3.37916576339493, 1.53572230863579, 1.41421356237309, 0.472012430194285, 3.04287016253022e-18), structure(c(-0.38209344041777, -0.441911867608196, -0.441911867608196, -0.563415484445979, -0.38209344041777, -0.594200765232569, 0.307687929858406, 0.307687929858405, 0.32327569786942, -0.594200765232566, 0.499999999999999, -0.5, 0.500000000000001, 7.42461647718073e-16, -0.500000000000001, 0.0304967766615352, 0.45830343560406, 0.458303435604061, -0.760299819185526, 0.0304967766615352, -0.5, -0.5, 0.5, -1.11022302462516e-16, 0.5), .Dim = c(5L, 5L)), structure(c(-0.41058086214689, 0.0239384830763564, -0.707106781186547, -0.575195883735897, 0, -0.428282990831553, 0.611211774620929, 9.15933995315754e-16, 0.331150287627506, 0.577350269189626, -0.41058086214689, 0.0239384830763538, 0.707106781186548, -0.575195883735897, 5.55111512312578e-17, -0.226146609649533, -0.773838814336698, -1.55431223447522e-15, 0.129220226886747, 0.577350269189625, -0.654429600481086, -0.162627039715767, -5.27355936696949e-16, 0.460370514514253, -0.577350269189626), .Dim = c(5L, 5L))); .Internal(La_svd(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testLa7() {
+ assertEval("argv <- list(structure(c(1, 1, 3, 3), .Dim = c(2L, 2L)), \'O\'); .Internal(La_dgecon(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testLa8() {
+ assertEval("argv <- list(\'N\', structure(c(-4, 0, 0, 0, 0, 0, 0, -406.725, 41.7955066364795, 0, 0, 0, 0, 0, -1550.79375, 381.717151319926, 49.8228991342168, 0, 0, 0, 0, -1277.325, 224.617432123818, -31.1858918860748, -282.060212912726, 0, 0, 0, -1042.675, 125.261805546114, -29.9849484767744, 164.425554254677, -170.353263600129, 0, 0, -469.696, 26.3795103523805, 4.19691803785862, -3.18974110831568, 0.0462484557378925, 1.46320172717486, 0, -7818, 18.2758880432689, 1.77525956575195, -1.45298766739792, -0.449176219307484, -0.281900648530911, -0.669305080560524), .Dim = c(7L, 7L), .Dimnames = list(c(\'1947\', \'1948\', \'1949\', \'1950\', \'1951\', \'1952\', \'1953\'), c(\'(Intercept)\', \'GNP.deflator\', \'GNP\', \'Unemployed\', \'Armed.Forces\', \'Population\', \'Year\'))), c(8164.12940108939, 457.24498274114, 324.584423503013, 134.312174464868, 4.95553195929945, 1.41954832076337, 0.000342370904183799), structure(0, .Dim = c(1L, 1L)), structure(0, .Dim = c(1L, 1L))); .Internal(La_svd(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testLa9() {
+ assertEval("argv <- list(structure(c(-9.64365076099295, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, 0.103695169473043, -29634.0055320061, -5658.08855789941, 0.0595010632288954, 0.0648032071760975, 0.106336668095848, -0.0279843118999398, 0.0762911857283688, 0.188519899277481, 0.0807096390177039, 0.102801905464379, 0.158474416910002, -0.0969121832135675, -0.0447744343994132, 0.0356414154664858, 0.0276881995456826, -5.08106330417909, 3.14280306547868, 3.64768208463163, 0.0962151262827947, -0.216651778533863, -0.0914289830351174, 0.0855052819309283, -0.0191216590449975, 0.0813861110263642, 0.0607902565035442, 0.00888870310603775, -0.027169916923919, -0.0757761335977742, 0.123401654252917, -0.143330536432624, -0.207390338946085, -0.18719988871654, -0.127596387499216, 1.38045811630541, 0.0118370110620473, 0.00504893180870276, 0.0281684584122627, 0.0338400772620966, 0.0283917504929648, 0.0295082108964754, 0.0323216911133222, 0.00156557534974961, 0.00420042190203468, 0.0261141712698031, 0.00786241202554953, -3.21455025366432, -2.66432733346907, -2.18217405946767, -1.0459324747522, 2.77707906967759, -0.000588115022584812, -0.0784367740030637, -0.0437014732535189, -0.0770692424774911, 0.28985899050302, 0.307089887725235, -0.0219216068215179, -0.00578473481976082, -0.0910180640383319, 0.0166427821996303, -0.725866186311298, -0.943724610301472, -0.197997366006898, -0.255325765345392, -1.99736582726463, 1.22009740929232, -0.000660179745382102, 0.118090770461339, 0.00401505451472504, -0.265276591063721, -0.206368639386371, -0.0413572976755921, 0.0138104665936721, -0.0436723349383677, 0.0904843084594291, -0.103695169473043, 0.0314422837299137, -0.171533212490836, -0.0271695331685966, -0.234884785308008, -0.455412006973628, -0.833981960018826, -0.0497205266764892, -0.00169048456815939, 0.0359873442560765, 0.0111849454624309, 0.0174129325629219, -0.00581471075176227, 0.0183876477886015, -0.0380971980704758, -1.14064686420347, -1.21031412747477, -0.546078284372325, -0.385964209884133, -0.535335872363138, 0.617909299639904, 0.034437791264286, -2.66782912116871, -0.0707120154460491, 0.170259689757997, -0.200116024334743, -0.0120487035676503, -0.00787104751465206, -0.0743232096613527, -0.00206481367828156, -2.28129372840694, -1.27183039972242, -0.162921372163874, 0.194143545128708, 0.405329624202872, -0.0239884453210967, 0.161826508366356, 1.47283157923894, -3.57122150532158, 0.0184573285734211, 0.0768346205272587, -0.00300367200170235, -0.047539037475449, -0.0955077077363865, 0.170580587807138, -2.17759855893389, 2.82091161681306, -0.529126651121425, 0.00648102843720064, -0.227590137804697, 0.429332016819553, 0.315382802791974, -0.0921680424483324, 0.358484158960907, 2.74734594573339, -0.00180797874108619, 0.211048746835586, 0.146553774483952, 0.0892496085418831, 0.02104367339158, -1.4517323726226, 0.428703993666521, -0.198393471445493, -0.178300389025286, -0.0518091667043893, 0.133208332446864, -1.01393441911662, 0.520772381447608, 0.936102434059857, -1.6420319436063, 2.59716822825227, 0.194828402482676, 0.15057424104202, -0.232155536267878, -0.0298159890277092, -0.933256525257383, -1.20515451427884, 0.0125087156504907, 0.421920000319943, 0.452875082015975, -0.655679104390575, 0.284781968418535, 0.643096539054797, 1.38165893036928, 0.447700892848835, -0.482856979100538, 1.73960015308741, 0.115853953901054, 0.107343556163412, -0.0385322695831968, -25.7267715462619, -8.40853040573162, -1.45105839286435, -1.58984152452525, -1.59606771970776, 2.79428919380473, 0.596892611732863, -1.03839368638655, -0.0376487500979583, -0.507302835476536, 0.184174590388395, -0.70905481454677, -3.32884312972433, 0.134236291836065, -0.0993249017707237, -6.94757635469386, 1.58613921242054, 0.195741168102286, 0.638223445194413, 1.07571321411184, 0.659104584950073, 0.199707908602043, -0.565980943574209, -0.967985377031296, -0.112927393875596, -0.934672543429794, 0.198159847509218, 0.275086401661377, 3.44668029704689, -0.05066048099299, -1.65912271156868, -1.17593571026872, -0.20132598039105, -0.42732880950559, -1.20727437557593, 0.102943259109259, -0.697974199306205, 0.103630431164098, -0.0620963660266192, -0.16978912837867, 0.739571733406047, -0.872308493604205, -0.757980967070979, -2.00985526447536, -1.92891236077264), .Dim = c(15L, 15L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\'), c(\'(Intercept)\', \'Weight\', \'Cylinders4\', \'Cylinders5\', \'Cylinders6\', \'Cylinders8\', \'Cylindersrotary\', \'TypeLarge\', \'TypeMidsize\', \'TypeSmall\', \'TypeSporty\', \'TypeVan\', \'EngineSize\', \'DriveTrainFront\', \'DriveTrainRear\'))), 15L); .Internal(La_chol2inv(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinMod.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinMod.java
new file mode 100644
index 0000000000000000000000000000000000000000..b6d6628723f1733e82cc1e23ca97ea88452ca4ad
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinMod.java
@@ -0,0 +1,48 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinMod extends TestBase {
+
+ @Test
+ @Ignore
+ public void testMod1() {
+ assertEval("argv <- list(c(0+0i, 0-1.70620776722167e-16i, 0+3.59617031290993e-17i, 3.33066907387547e-16-8.7147236198461e-17i, 3.33066907387547e-16-4.4517026198843e-17i, 5.55111512312578e-16-1.81766397811914e-16i, -2.22044604925031e-16+3.76574595498641e-16i, 3.33066907387547e-16+2.8373545612348e-17i, -6.66133814775094e-16-1.98666621484541e-16i, 1.11022302462516e-15+1.3900988495185e-16i, 0+0i, 1.11022302462516e-16+0i, 0-4.88556439671224e-17i, 1.4432899320127e-15+5.4401706444201e-16i, -6.66133814775094e-16+4.18075097302204e-16i, -1.11022302462516e-15-3.7758383211069e-16i, 1.11022302462516e-16+1.21021749072872e-16i, 5.55111512312578e-16-9.7601012134884e-17i, 0+3.64949907708171e-17i, 2.99760216648792e-15-3.2254749723992e-16i));Mod(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testMod2() {
+ assertEval("argv <- list(c(1, 1, 2, 6, 24, 120, 720, 5040, 40320, 362880, 3628800, 39916800, 479001600, 6227020800, 87178291200, 1307674368000, 20922789888000, 355687428096000, 6402373705728000, 121645100408832000));Mod(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testMod3() {
+ assertEval("argv <- list(structure(c(-0.00275201701154004+0i, 0.73267342182576+1.53432836384434i, 1.19603180664097+2.58954103250214i, -1.78551995785074+3.6927974843213i, -0.21286727655171-2.24663622584203i, 1.71166744547715-2.14519629896288i, -1.56293209739181+1.57166915011841i, -1.58375104473686+3.6829699402818i, -2.00504145581753-1.3546174582843i, 0.683574008984187+0.815530349018154i, -1.53010401343571-2.36562392372444i, 0.99061039704013+3.53936165201907i, 1.67472443120722-1.95559489480179i, -0.68341618370449-2.47704044044817i, 1.48062655483323-1.57686725056915i, 2.87299425968444+2.35949377337065i, 1.8028932379829+0.54336001329155i, 0.8410445275115-2.79377726088858i, -0.85630340738898+1.95000905938152i, -0.070268282309003-0.407774647142381i, 0.87904100084727+1.42913449570069i, -0.5398835286832-1.49689799587001i, -4.20150499254585-1.17770608296304i, -4.20150499254585+1.17770608296304i, -0.5398835286832+1.49689799587001i, 0.87904100084727-1.42913449570068i, -0.070268282309002+0.407774647142381i, -0.85630340738898-1.95000905938152i, 0.8410445275115+2.79377726088858i, 1.8028932379829-0.54336001329155i, 2.87299425968444-2.35949377337065i, 1.48062655483323+1.57686725056915i, -0.68341618370449+2.47704044044817i, 1.67472443120722+1.95559489480179i, 0.99061039704013-3.53936165201907i, -1.53010401343571+2.36562392372443i, 0.683574008984187-0.815530349018153i, -2.00504145581753+1.3546174582843i, -1.58375104473686-3.6829699402818i, -1.56293209739181-1.57166915011841i, 1.71166744547714+2.14519629896288i, -0.21286727655171+2.24663622584203i, -1.78551995785073-3.6927974843213i, 1.19603180664097-2.58954103250214i, 0.73267342182576-1.53432836384434i), .Dim = c(45L, 1L), \'`scaled:center`\' = -0.00488570008479763));Mod(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testMod4() {
+ assertEval("argv <- list(logical(0));Mod(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testMod5() {
+ assertEval("argv <- list(c(1, 1, 2, 6, 24, 120, 720, 5040, 40320, 362880, 3628800, 39916800, 479001600, 6227020800, 87178291200, 1307674368000, 20922789888000, 355687428096000, 6402373705728000, 121645100408832000, 2432902008176640000, 51090942171709440000, 1.12400072777761e+21, 2.5852016738885e+22, 6.20448401733239e+23, 1.5511210043331e+25, 4.03291461126606e+26, 1.08888694504184e+28, 3.04888344611714e+29, 8.8417619937397e+30, 2.65252859812191e+32, 8.22283865417792e+33, 2.63130836933694e+35, 8.68331761881189e+36, 2.95232799039604e+38, 1.03331479663861e+40, 3.71993326789901e+41, 1.37637530912263e+43, 5.23022617466601e+44, 2.03978820811974e+46, 8.15915283247898e+47, 3.34525266131638e+49, 1.40500611775288e+51, 6.04152630633738e+52, 2.65827157478845e+54, 1.1962222086548e+56, 5.50262215981209e+57, 2.58623241511168e+59, 1.24139155925361e+61, 6.08281864034268e+62, 3.04140932017134e+64, 1.55111875328738e+66, 8.06581751709439e+67, 4.27488328406003e+69, 2.30843697339241e+71, 1.26964033536583e+73, 7.10998587804863e+74, 4.05269195048772e+76, 2.35056133128288e+78, 1.3868311854569e+80, 8.32098711274139e+81, 5.07580213877225e+83, 3.14699732603879e+85, 1.98260831540444e+87, 1.26886932185884e+89, 8.24765059208247e+90, 5.44344939077443e+92, 3.64711109181887e+94, 2.48003554243683e+96, 1.71122452428141e+98, 1.19785716699699e+100, 8.50478588567862e+101, 6.12344583768861e+103, 4.47011546151268e+105, 3.30788544151939e+107, 2.48091408113954e+109, 1.88549470166605e+111, 1.45183092028286e+113, 1.13242811782063e+115, 8.94618213078298e+116, 7.15694570462638e+118, 5.79712602074737e+120, 4.75364333701284e+122, 3.94552396972066e+124, 3.31424013456535e+126, 2.81710411438055e+128, 2.42270953836727e+130, 2.10775729837953e+132, 1.85482642257398e+134, 1.65079551609085e+136, 1.48571596448176e+138, 1.3520015276784e+140, 1.24384140546413e+142, 1.15677250708164e+144, 1.08736615665674e+146, 1.03299784882391e+148, 9.9167793487095e+149, 9.61927596824821e+151, 9.42689044888325e+153, 9.33262154439442e+155, 9.33262154439442e+157, 9.42594775983836e+159, 9.61446671503513e+161, 9.90290071648618e+163, 1.02990167451456e+166, 1.08139675824029e+168, 1.14628056373471e+170, 1.22652020319614e+172, 1.32464181945183e+174, 1.44385958320249e+176, 1.58824554152274e+178, 1.76295255109024e+180, 1.97450685722107e+182, 2.23119274865981e+184, 2.54355973347219e+186, 2.92509369349302e+188, 3.3931086844519e+190, 3.96993716080872e+192, 4.68452584975429e+194, 5.57458576120761e+196));Mod(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinPOSIXlt2Date.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinPOSIXlt2Date.java
new file mode 100644
index 0000000000000000000000000000000000000000..cb94832f510ba44fb4b56593a440389629061b62
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinPOSIXlt2Date.java
@@ -0,0 +1,78 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinPOSIXlt2Date extends TestBase {
+
+ @Test
+ @Ignore
+ public void testPOSIXlt2Date1() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), mday = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), mon = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), year = c(37L, 16L, 13L, 27L, 47L, 13L, 17L, 23L, 21L, 26L, 20L, 15L, 14L, 14L, 14L, 19L, 48L, 11L, 9L, 13L, 25L, 26L, 10L, 17L, 36L, 38L, 60L, 15L, 19L, 24L, 14L, 5L, 21L, 29L, 26L, 21L, 8L, 28L, 19L, 21L, 25L, 34L, 27L, 28L, 34L, 22L, 23L, 15L, 34L, 25L, 22L, 30L, 24L, 23L, 19L, 32L, 30L, 23L, 30L, 22L, 19L, 32L, 39L, 23L, 20L, 19L, 52L, 27L, 24L, 19L, 25L, 45L, 16L, 43L, 20L, 20L, 31L, 24L, 19L, 26L, 20L, 42L, 19L, 30L, 25L, 24L, 26L, 18L, 22L, 21L, 25L, 28L, 25L, 29L, 33L, 47L, 50L, 45L, 24L, 39L, 24L, 33L, 28L), wday = c(5L, 6L, 3L, 6L, 3L, 3L, 1L, 1L, 6L, 5L, 4L, 5L, 4L, 4L, 4L, 3L, 4L, 0L, 5L, 3L, 4L, 5L, 6L, 1L, 3L, 6L, 5L, 5L, 3L, 2L, 4L, 0L, 6L, 2L, 5L, 6L, 3L, 0L, 3L, 6L, 4L, 1L, 6L, 0L, 1L, 0L, 1L, 5L, 1L, 4L, 0L, 3L, 2L, 1L, 3L, 5L, 3L, 1L, 3L, 0L, 3L, 5L, 0L, 1L, 4L, 3L, 2L, 6L, 2L, 3L, 4L, 1L, 6L, 5L, 4L, 4L, 4L, 2L, 3L, 5L, 4L, 4L, 3L, 3L, 4L, 2L, 5L, 2L, 0L, 6L, 4L, 0L, 4L, 2L, 0L, 3L, 0L, 1L, 2L, 0L, 2L, 0L, 0L), yday = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), isdst = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testPOSIXlt2Date2() {
+ assertEval("argv <- list(structure(list(sec = c(0, NA), min = c(0L, NA), hour = c(0L, NA), mday = c(6L, NA), mon = c(10L, NA), year = c(107L, NA), wday = c(2L, NA), yday = c(309L, NA), isdst = c(0L, -1L)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testPOSIXlt2Date3() {
+ assertEval("argv <- list(structure(list(sec = numeric(0), min = integer(0), hour = integer(0), mday = integer(0), mon = integer(0), year = integer(0), wday = integer(0), yday = integer(0), isdst = integer(0)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testPOSIXlt2Date4() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 79L, wday = 1L, yday = 0L, isdst = 0L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testPOSIXlt2Date5() {
+ assertEval("argv <- list(structure(list(sec = c(0, NA, NA, 0), min = c(0L, NA, NA, 0L), hour = c(0L, NA, NA, 0L), mday = c(1L, NA, NA, 26L), mon = c(0L, NA, NA, 9L), year = c(101L, NA, NA, 104L), wday = c(1L, NA, NA, 2L), yday = c(0L, NA, NA, 299L), isdst = c(0L, -1L, -1L, 0L)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'GMT\')); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testPOSIXlt2Date6() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = c(0, 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36), year = 100L, wday = 6L, yday = 0L, isdst = 0L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'UTC\')); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testPOSIXlt2Date7() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), mday = 1, mon = c(0, 0.5, 1, 1.5, 2, 2.5, 3), year = c(101, 101, 101, 101, 101, 101, 101, 102, 102, 102, 102, 102, 102, 102), wday = c(3L, 0L, 6L, 4L, 2L, 0L, 5L, 3L, 1L, 6L, 4L), yday = c(9L, 111L, 12L, 24L, 36L, 48L, 60L, 72L, 84L, 96L, 108L), isdst = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'UTC\')); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testPOSIXlt2Date8() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 109L, wday = 4L, yday = 0L, isdst = 0L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testPOSIXlt2Date9() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L), hour = c(0L, 0L, 0L, 0L, 0L), mday = 22:26, mon = c(3L, 3L, 3L, 3L, 3L), year = c(108L, 108L, 108L, 108L, 108L), wday = 2:6, yday = 112:116, isdst = c(-1L, -1L, -1L, -1L, -1L)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'GMT\')); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testPOSIXlt2Date10() {
+ assertEval("argv <- list(structure(list(sec = 33.1798663139343, min = 47L, hour = 14L, mday = 17L, mon = 2L, year = 114L, wday = 1L, yday = 75L, isdst = 1L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = c(\'\', \'EST\', \'EDT\'))); .Internal(POSIXlt2Date(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinPrimitive.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinPrimitive.java
new file mode 100644
index 0000000000000000000000000000000000000000..2d0421cb3e5a9ed212a42541ae66f6e56fe7774c
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinPrimitive.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinPrimitive extends TestBase {
+
+ @Test
+ @Ignore
+ public void testPrimitive1() {
+ assertEval("argv <- list(\'c\');.Primitive(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinRe.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinRe.java
new file mode 100644
index 0000000000000000000000000000000000000000..4bb3f7e5cf5fa70e2d9d8a63b27fafecbc9a1be2
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinRe.java
@@ -0,0 +1,57 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinRe extends TestBase {
+
+ @Test
+ public void testRe1() {
+ assertEval("argv <- list(c(0.997564050259824+0.069756473744125i, 0.987588409757226+0.069058909006684i, 0.977612769254628+0.068361344269243i, 0.96763712875203+0.067663779531802i, 0.957661488249431+0.06696621479436i, 0.947685847746833+0.066268650056919i, 0.937710207244235+0.065571085319478i, 0.927734566741637+0.064873520582037i, 0.917758926239038+0.064175955844595i, 0.90778328573644+0.063478391107154i, 0.897807645233842+0.062780826369713i, 0.887832004731244+0.062083261632272i, 0.877856364228645+0.06138569689483i, 0.867880723726047+0.060688132157389i, 0.857905083223449+0.059990567419948i, 0.847929442720851+0.059293002682507i, 0.837953802218252+0.058595437945065i, 0.827978161715654+0.057897873207624i, 0.818002521213056+0.057200308470183i, 0.808026880710458+0.056502743732742i, 0.79805124020786+0.0558051789953i, 0.788075599705261+0.055107614257859i, 0.778099959202663+0.054410049520418i, 0.768124318700065+0.053712484782976i, 0.758148678197466+0.053014920045535i, 0.748173037694868+0.052317355308094i, 0.73819739719227+0.051619790570653i, 0.728221756689672+0.050922225833211i, 0.718246116187073+0.05022466109577i, 0.708270475684475+0.049527096358329i, 0.698294835181877+0.048829531620888i, 0.688319194679279+0.048131966883446i, 0.67834355417668+0.047434402146005i, 0.668367913674082+0.046736837408564i, 0.658392273171484+0.046039272671123i, 0.648416632668886+0.045341707933681i, 0.638440992166287+0.04464414319624i, 0.628465351663689+0.043946578458799i, 0.618489711161091+0.043249013721358i, 0.608514070658493+0.042551448983916i, 0.598538430155894+0.041853884246475i, 0.588562789653296+0.041156319509034i, 0.578587149150698+0.040458754771593i, 0.5686115086481+0.039761190034151i, 0.558635868145502+0.03906362529671i, 0.548660227642903+0.038366060559269i, 0.538684587140305+0.037668495821828i, 0.528708946637707+0.036970931084386i, 0.518733306135109+0.036273366346945i, 0.50875766563251+0.035575801609504i, 0.498782025129912+0.034878236872063i, 0.488806384627314+0.034180672134621i, 0.478830744124716+0.03348310739718i, 0.468855103622117+0.032785542659739i, 0.458879463119519+0.032087977922298i, 0.448903822616921+0.031390413184856i, 0.438928182114323+0.030692848447415i, 0.428952541611724+0.029995283709974i, 0.418976901109126+0.029297718972533i, 0.409001260606528+0.028600154235091i, 0.39902562010393+0.02790258949765i, 0.389049979601331+0.027205024760209i, 0.379074339098733+0.026507460022768i, 0.369098698596135+0.025809895285326i, 0.359123058093537+0.025112330547885i, 0.349147417590938+0.024414765810444i, 0.33917177708834+0.023717201073003i, 0.329196136585742+0.023019636335561i, 0.319220496083144+0.02232207159812i, 0.309244855580545+0.021624506860679i, 0.299269215077947+0.020926942123238i, 0.289293574575349+0.020229377385796i, 0.279317934072751+0.019531812648355i, 0.269342293570153+0.018834247910914i, 0.259366653067554+0.018136683173473i, 0.249391012564956+0.017439118436031i, 0.239415372062358+0.01674155369859i, 0.22943973155976+0.016043988961149i, 0.219464091057161+0.015346424223708i, 0.209488450554563+0.014648859486266i, 0.199512810051965+0.013951294748825i, 0.189537169549367+0.013253730011384i, 0.179561529046768+0.012556165273943i, 0.16958588854417+0.011858600536501i, 0.159610248041572+0.01116103579906i, 0.149634607538974+0.010463471061619i, 0.139658967036375+0.009765906324178i, 0.129683326533777+0.009068341586736i, 0.119707686031179+0.008370776849295i, 0.109732045528581+0.007673212111854i, 0.0997564050259824+0.0069756473744125i, 0.0897807645233842+0.0062780826369713i, 0.0798051240207859+0.00558051789953i, 0.0698294835181877+0.0048829531620888i, 0.0598538430155895+0.0041853884246475i, 0.0498782025129912+0.0034878236872063i, 0.039902562010393+0.002790258949765i, 0.0299269215077947+0.0020926942123238i, 0.0199512810051965+0.0013951294748825i, 0.00997564050259824+0.00069756473744125i, 0+0i));Re(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testRe2() {
+ assertEval("argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c(\'x1\', \'x2\'))));Re(argv[[1]]);");
+ }
+
+ @Test
+ public void testRe3() {
+ assertEval("argv <- list(c(-0.1-0.9i, -0.2-0.8i, -0.3-0.7i, -0.4-0.6i, -0.1-0.5i, -0.2-0.4i, -0.3-0.3i, -0.4-0.2i, -0.1-0.1i));Re(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testRe4() {
+ assertEval("argv <- list(c(0.923879532511287+0.38268343236509i, 0.707106781186548+0.707106781186547i, 0.38268343236509+0.923879532511287i, 0+1i, -0.38268343236509+0.923879532511287i, -0.707106781186547+0.707106781186548i, -0.923879532511287+0.38268343236509i, -1+0i, -0.923879532511287-0.38268343236509i, -0.707106781186548-0.707106781186547i, -0.38268343236509-0.923879532511287i, 0-1i, 0.38268343236509-0.923879532511287i, 0.707106781186547-0.707106781186548i, 0.923879532511287-0.38268343236509i, 1-0i));Re(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testRe5() {
+ assertEval("argv <- list(logical(0));Re(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testRe6() {
+ assertEval("argv <- list(FALSE);Re(argv[[1]]);");
+ }
+
+ @Test
+ public void testRe7() {
+ assertEval("argv <- list(c(0.00086580086580088+0i, 0.00259740259740261+0i, 0.00519480519480521+0i, 0.00865800865800867+0i, 0.012987012987013+0i, 0.0181818181818182+0i, 0.0242424242424242+0i, 0.0303030303030303+0i, 0.0363636363636363+0i, 0.0424242424242424+0i, 0.0484848484848484+0i, 0.0536796536796536+0i, 0.058008658008658+0i, 0.0614718614718614+0i, 0.064069264069264+0i, 0.0649350649350649+0i, 0.064069264069264+0i, 0.0614718614718614+0i, 0.058008658008658+0i, 0.0536796536796536+0i, 0.0484848484848485+0i, 0.0424242424242424+0i, 0.0363636363636363+0i, 0.0303030303030303+0i, 0.0242424242424242+0i, 0.0181818181818182+0i, 0.012987012987013+0i, 0.00865800865800867+0i, 0.00519480519480521+0i, 0.00259740259740261+0i, 0.000865800865800882+0i));Re(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSyschmod.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSyschmod.java
new file mode 100644
index 0000000000000000000000000000000000000000..171440365c6b64153711ff2f25dd7cbc3d6279f8
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSyschmod.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinSyschmod extends TestBase {
+
+ @Test
+ @Ignore
+ public void testSyschmod1() {
+ assertEval("argv <- list(character(0), structure(integer(0), class = \'octmode\'), TRUE); .Internal(Sys.chmod(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSysgetenv.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSysgetenv.java
new file mode 100644
index 0000000000000000000000000000000000000000..ac58defd1c8cd02ddc46c226cbf3a2fc3647704a
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSysgetenv.java
@@ -0,0 +1,29 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinSysgetenv extends TestBase {
+
+ @Test
+ @Ignore
+ public void testSysgetenv1() {
+ assertEval("argv <- list(\'EDITOR\', \'\'); .Internal(Sys.getenv(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testSysgetenv2() {
+ assertEval("argv <- list(\'SWEAVE_OPTIONS\', NA_character_); .Internal(Sys.getenv(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSysglob.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSysglob.java
new file mode 100644
index 0000000000000000000000000000000000000000..b1bcbd7a819e06f044023968743b21844142980e
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSysglob.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinSysglob extends TestBase {
+
+ @Test
+ @Ignore
+ public void testSysglob1() {
+ assertEval("argv <- list(\'/home/lzhao/hg/r-instrumented/src/library/utils/man/unix/*.rd\', FALSE); .Internal(Sys.glob(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSysreadlink.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSysreadlink.java
new file mode 100644
index 0000000000000000000000000000000000000000..41898b0f31239d7f312fccd2005c941a32b1d409
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSysreadlink.java
@@ -0,0 +1,23 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinSysreadlink extends TestBase {
+
+ @Test
+ public void testSysreadlink1() {
+ assertEval("argv <- list(character(0)); .Internal(Sys.readlink(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSyssetenv.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSyssetenv.java
new file mode 100644
index 0000000000000000000000000000000000000000..f859ad5fc6c991bd64c346d12ad034546987ed9d
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSyssetenv.java
@@ -0,0 +1,36 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinSyssetenv extends TestBase {
+
+ @Test
+ @Ignore
+ public void testSyssetenv1() {
+ assertEval("argv <- list(\'_R_NS_LOAD_\', \'Matrix\'); .Internal(Sys.setenv(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testSyssetenv2() {
+ assertEval("argv <- list(\'_R_NS_LOAD_\', \'methods\'); .Internal(Sys.setenv(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testSyssetenv3() {
+ assertEval("argv <- list(c(\'BIBINPUTS\', \'add\'), c(\'.:.:/home/lzhao/hg/r-instrumented/share/texmf/bibtex/bib::/home/lzhao/hg/r-instrumented/share/texmf/bibtex/bib:\', \'TRUE\')); .Internal(Sys.setenv(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSyssetlocale.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSyssetlocale.java
new file mode 100644
index 0000000000000000000000000000000000000000..65e4fa1b35ce77edd3b9817c9be2a27555ec4abb
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSyssetlocale.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinSyssetlocale extends TestBase {
+
+ @Test
+ @Ignore
+ public void testSyssetlocale1() {
+ assertEval("argv <- list(3L, \'C\'); .Internal(Sys.setlocale(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSyssleep.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSyssleep.java
new file mode 100644
index 0000000000000000000000000000000000000000..6ee52cfb98dfcee4314d4e1eae8d4d29895d1b7a
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSyssleep.java
@@ -0,0 +1,29 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinSyssleep extends TestBase {
+
+ @Test
+ public void testSyssleep1() {
+ assertEval("argv <- list(0.5); .Internal(Sys.sleep(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testSyssleep2() {
+ assertEval("argv <- list(FALSE); .Internal(Sys.sleep(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSysunsetenv.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSysunsetenv.java
new file mode 100644
index 0000000000000000000000000000000000000000..5f300f206cc69713a667f60961badf5b0ffab051
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSysunsetenv.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinSysunsetenv extends TestBase {
+
+ @Test
+ @Ignore
+ public void testSysunsetenv1() {
+ assertEval("argv <- list(\'_R_NS_LOAD_\'); .Internal(Sys.unsetenv(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testSysunsetenv3() {
+ assertEval("argv <- list(character(0)); .Internal(Sys.unsetenv(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinabbreviate.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinabbreviate.java
new file mode 100644
index 0000000000000000000000000000000000000000..8b0c94deb043ef1b94748acc0046ab8173e6bf8b
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinabbreviate.java
@@ -0,0 +1,90 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinabbreviate extends TestBase {
+
+ @Test
+ @Ignore
+ public void testabbreviate1() {
+ assertEval("argv <- list(\'text\', 6, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testabbreviate2() {
+ assertEval("argv <- list(c(\'Alabama\', \'Alaska\', \'Arizona\', \'Arkansas\', \'California\', \'Colorado\', \'Connecticut\', \'Delaware\', \'Florida\', \'Georgia\', \'Hawaii\', \'Idaho\', \'Illinois\', \'Indiana\', \'Iowa\', \'Kansas\', \'Kentucky\', \'Louisiana\', \'Maine\', \'Maryland\', \'Massachusetts\', \'Michigan\', \'Minnesota\', \'Mississippi\', \'Missouri\', \'Montana\', \'Nebraska\', \'Nevada\', \'New Hampshire\', \'New Jersey\', \'New Mexico\', \'New York\', \'North Carolina\', \'North Dakota\', \'Ohio\', \'Oklahoma\', \'Oregon\', \'Pennsylvania\', \'Rhode Island\', \'South Carolina\', \'South Dakota\', \'Tennessee\', \'Texas\', \'Utah\', \'Vermont\', \'Virginia\', \'Washington\', \'West Virginia\', \'Wisconsin\', \'Wyoming\'), 3, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testabbreviate3() {
+ assertEval("argv <- list(\'glm\', 6, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testabbreviate4() {
+ assertEval("argv <- list(c(\'(Intercept)\', \'sin(2 * pi * Time)\', \'cos(2 * pi * Time)\'), 6, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testabbreviate5() {
+ assertEval("argv <- list(c(\'Alabama\', \'Alaska\', \'Arizona\', \'Arkansas\', \'California\', \'Colorado\', \'Connecticut\', \'Delaware\', \'Florida\', \'Georgia\', \'Hawaii\', \'Idaho\', \'Illinois\', \'Indiana\', \'Iowa\', \'Kansas\', \'Kentucky\', \'Louisiana\', \'Maine\', \'Maryland\', \'Massachusetts\', \'Michigan\', \'Minnesota\', \'Mississippi\', \'Missouri\', \'Montana\', \'Nebraska\', \'Nevada\', \'New Hampshire\', \'New Jersey\', \'New Mexico\', \'New York\', \'North Carolina\', \'North Dakota\', \'Ohio\', \'Oklahoma\', \'Oregon\', \'Pennsylvania\', \'Rhode Island\', \'South Carolina\', \'South Dakota\', \'Tennessee\', \'Texas\', \'Utah\', \'Vermont\', \'Virginia\', \'Washington\', \'West Virginia\', \'Wisconsin\', \'Wyoming\'), 4L, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testabbreviate6() {
+ assertEval("argv <- list(c(\'Alabama\', \'Alaska\', \'Arizona\', \'Arkansas\', \'California\', \'Colorado\', \'Connecticut\', \'Delaware\', \'Florida\', \'Georgia\', \'Hawaii\', \'Idaho\', \'Illinois\', \'Indiana\', \'Iowa\', \'Kansas\', \'Kentucky\', \'Louisiana\', \'Maine\', \'Maryland\', \'Massachusetts\', \'Michigan\', \'Minnesota\', \'Mississippi\', \'Missouri\', \'Montana\', \'Nebraska\', \'Nevada\', \'New Hampshire\', \'New Jersey\', \'New Mexico\', \'New York\', \'North Carolina\', \'North Dakota\', \'Ohio\', \'Oklahoma\', \'Oregon\', \'Pennsylvania\', \'Rhode Island\', \'South Carolina\', \'South Dakota\', \'Tennessee\', \'Texas\', \'Utah\', \'Vermont\', \'Virginia\', \'Washington\', \'West Virginia\', \'Wisconsin\', \'Wyoming\'), 3L, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testabbreviate7() {
+ assertEval("argv <- list(c(\'1_\', \'Weight\', \'Cylinders4\', \'Cylinders5\', \'Cylinders6\', \'Cylinders8\', \'Cylindersrotary\', \'TypeLarge\', \'TypeMidsize\', \'TypeSmall\', \'TypeSporty\', \'TypeVan\', \'EngineSize\', \'DriveTrainFront\', \'DriveTrainRear\'), 4L, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testabbreviate8() {
+ assertEval("argv <- list(c(\'Alabama\', \'Alaska\', \'Arizona\', \'Arkansas\', \'California\', \'Colorado\', \'Connecticut\', \'Delaware\', \'Florida\', \'Georgia\', \'Hawaii\', \'Idaho\', \'Illinois\', \'Indiana\', \'Iowa\', \'Kansas\', \'Kentucky\', \'Louisiana\', \'Maine\', \'Maryland\', \'Massachusetts\', \'Michigan\', \'Minnesota\', \'Mississippi\', \'Missouri\', \'Montana\', \'Nebraska\', \'Nevada\', \'New Hampshire\', \'New Jersey\', \'New Mexico\', \'New York\', \'North Carolina\', \'North Dakota\', \'Ohio\', \'Oklahoma\', \'Oregon\', \'Pennsylvania\', \'Rhode Island\', \'South Carolina\', \'South Dakota\', \'Tennessee\', \'Texas\', \'Utah\', \'Vermont\', \'Virginia\', \'Washington\', \'West Virginia\', \'Wisconsin\', \'Wyoming\'), 1L, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testabbreviate9() {
+ assertEval("argv <- list(character(0), 4L, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testabbreviate10() {
+ assertEval("argv <- list(\'filled.contour\', 6, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testabbreviate11() {
+ assertEval("argv <- list(c(\'Svansota\', \'No. 462\', \'Manchuria\', \'No. 475\', \'Velvet\', \'Peatland\', \'Glabron\', \'No. 457\', \'Wisconsin No. 38\', \'Trebi\'), 5, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testabbreviate12() {
+ assertEval("argv <- list(\'dtrMatrix-class\', 6, TRUE); .Internal(abbreviate(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinabs.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinabs.java
new file mode 100644
index 0000000000000000000000000000000000000000..40f60b1fe509d687367ae78e0e8a01960484f238
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinabs.java
@@ -0,0 +1,139 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinabs extends TestBase {
+
+ @Test
+ public void testabs1() {
+ assertEval("argv <- list(c(0.9, 0.1, 0.3, 0.5, 0.7, 0.9, 0.1, 0.3, 0.5));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void testabs2() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE, TRUE));abs(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testabs3() {
+ assertEval("argv <- list(c(-0.510763209393394, Inf, 1, 1, Inf, 1, 0, -1.95785440613009, -48.49854545454, -Inf, 1, 1, 0.342969776609699, 0.00707175387211123));abs(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testabs4() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));abs(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testabs5() {
+ assertEval("argv <- list(structure(c(-7.0990260398094, -6.52913885777653, -3.11767063409183, -18.6913646342089), .Dim = c(4L, 1L)));abs(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testabs6() {
+ assertEval("argv <- list(structure(c(0, -1, -2, -3, -4, -5, -6, -7, -8, -9, -10, -11, -12, -13, -14, -15, -16, -17, -18, -19, -20, -21, -22, -23, -24, -25, -26, -27, -28, -29, -30, -31, -32, -33, -34, -35, -36, -37, -38, -39, -40, -41, -42, -43, -44, -45, -46, -47, -48, -49, -50, -51, -52, -53, -54, -55, -56, -57, -58, -59, -60, -61, -62, -63, -64, -65, -66, -67, -68, -69, -70, -71, -72, -73, -74, -75, -76, -77, -78, -79, -80, -81, -82, -83, -84, -85, -86, -87, -88, -89, -90, -91, -92, -93, -94, -95, -96, -97, -98, -99, -100, -101, -102, -103, -104, -105, -106, -107, -108, -109, -110, -111, -112, -113, -114, -115, -116, -117, -118, -119, -120, -121, -122, -123, -124, -125, -126, -127, -128, -129, -130, -131, -132, -133, -134, -135, -136, -137, -138, -139, -140, -141, -142, -143, -144, -145, -146, -147, -148, -149), .Tsp = c(4, 153, 1), class = \'ts\'));abs(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testabs7() {
+ assertEval("argv <- list(structure(c(3.5527136788005e-15+2.4168586625265e-16i, 2.4980018054066e-16-2.28189378671807e-16i, 0-6.89814774385614e-17i, 0-1.77454768520688e-17i), .Dim = c(2L, 2L)));abs(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testabs8() {
+ assertEval("argv <- list(1e+07);abs(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testabs9() {
+ assertEval("argv <- list(structure(c(56.8666666666667, 52.8833333333333), .Dim = 2L, .Dimnames = structure(list(K = c(\'0\', \'1\')), .Names = \'K\')));abs(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testabs10() {
+ assertEval("argv <- list(structure(c(-7.38958333333333, NA, 1.69041666666667, -16.5495833333333, 8.82041666666667, 8.84041666666667, -2.24958333333333, 9.15041666666667, 0.950416666666669, -12.5095833333333, NA, 8.86041666666667, 1.05041666666667, 3.80041666666667, 5.92041666666667, 16.1404166666667, 3.45041666666667, -32.1695833333333, 12.7504166666667, 1.18041666666667, -6.72958333333333, 14.4804166666667, 1.89041666666667, -37.9795833333333, -0.299583333333331, 2.49041666666667, 7.31041666666667, 0.66041666666667, 2.78041666666667, 3.89041666666667, 3.13041666666667, -6.08958333333333, -1.00958333333333, -1.07958333333333, 9.01041666666667, 7.84041666666667, 8.30041666666668, 9.36041666666667, -6.32958333333333, -47.3395833333333, 4.30041666666667, -2.11958333333333, -4.10958333333333, -2.29958333333333, 11.0004166666667, -1.96958333333333, 11.1804166666667, 2.55041666666667, -2.35958333333333, 7.80041666666667), .Names = c(\'Alabama\', \'Alaska\', \'Arizona\', \'Arkansas\', \'California\', \'Colorado\', \'Connecticut\', \'Delaware\', \'Florida\', \'Georgia\', \'Hawaii\', \'Idaho\', \'Illinois\', \'Indiana\', \'Iowa\', \'Kansas\', \'Kentucky\', \'Louisiana\', \'Maine\', \'Maryland\', \'Massachusetts\', \'Michigan\', \'Minnesota\', \'Mississippi\', \'Missouri\', \'Montana\', \'Nebraska\', \'Nevada\', \'New Hampshire\', \'New Jersey\', \'New Mexico\', \'New York\', \'North Carolina\', \'North Dakota\', \'Ohio\', \'Oklahoma\', \'Oregon\', \'Pennsylvania\', \'Rhode Island\', \'South Carolina\', \'South Dakota\', \'Tennessee\', \'Texas\', \'Utah\', \'Vermont\', \'Virginia\', \'Washington\', \'West Virginia\', \'Wisconsin\', \'Wyoming\')));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void testabs11() {
+ assertEval("argv <- list(c(NA, 1L));abs(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testabs12() {
+ assertEval("argv <- list(structure(c(1.47191076131574, 0.586694550701453, NA, 0.258706725324317, 0.948371836939988, 0.396080061109718, NA, 0.350912037541581), .Dim = c(4L, 2L), .Dimnames = list(c(\'(Intercept)\', \'x1\', \'x2\', \'x3\'), c(\'Estimate\', \'Std. Error\'))));abs(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testabs13() {
+ assertEval("argv <- list(structure(c(0.839669286317987, -1.37400428670216, 0.22900071445036, 0.305334285933814, 0.34350107167554, -0.0763335714834533, -0.877836072059713, 0.610668571867626, 0.763335714834533, -0.763335714834533, -0.763335714834533, 0.763335714834533, -0.45800142890072, 0.80150250057626, -0.22900071445036, -0.11450035722518, -0.34350107167554, 1.03050321502662, -1.03050321502662, 0.34350107167554, 0.11450035722518, -0.152667142966907, -0.0381667857417267, 0.0763335714834533, 0.496168214642447, -0.725168929092807, -0.0381667857417268, 0.267167500192087, 0.954169643543167, -1.52667142966907, 0.190833928708633, 0.381667857417267, 0.610668571867627, -2.78617535914605, 3.74034500268921, -1.56483821541079, 0.190833928708633, -0.572501786125899, 0.5725017861259, -0.190833928708634, 0.267167500192087, -0.229000714450361, -0.34350107167554, 0.305334285933814, 0.190833928708632, 0.190833928708634, -0.954169643543166, 0.572501786125899, -1.06867000076835, 1.67933857263597, -0.152667142966906, -0.45800142890072, -0.610668571867627, 0.877836072059714, 0.0763335714834535, -0.34350107167554, 0.381667857417267, -0.190833928708634, -0.763335714834533, 0.5725017861259, 0.496168214642447, -0.725168929092807, -0.0381667857417268, 0.267167500192087, 0.5725017861259, -0.763335714834533, -0.190833928708633, 0.381667857417267, 0.305334285933813, -0.534335000384173, 0.152667142966907, 0.076333571483453, -0.534335000384172, 0.839669286317985, -0.0763335714834534, -0.22900071445036, 0.0381667857417273, 0.0763335714834524, -0.267167500192087, 0.152667142966907, -0.22900071445036, 0.496168214642446, -0.305334285933813, 0.0381667857417267, 0, 0.190833928708633, -0.381667857417267, 0.190833928708633, 0.11450035722518, 0.0381667857417268, -0.419834643158993, 0.267167500192087, 0.11450035722518, -0.152667142966907, -0.0381667857417267, 0.0763335714834533, -0.22900071445036, 0.11450035722518, 0.45800142890072, -0.34350107167554, -0.496168214642447, 0.725168929092807, 0.0381667857417269, -0.267167500192087, 0.11450035722518, -0.534335000384173, 0.725168929092806, -0.305334285933813), .Names = c(\'M01\', \'M01\', \'M01\', \'M01\', \'M02\', \'M02\', \'M02\', \'M02\', \'M03\', \'M03\', \'M03\', \'M03\', \'M04\', \'M04\', \'M04\', \'M04\', \'M05\', \'M05\', \'M05\', \'M05\', \'M06\', \'M06\', \'M06\', \'M06\', \'M07\', \'M07\', \'M07\', \'M07\', \'M08\', \'M08\', \'M08\', \'M08\', \'M09\', \'M09\', \'M09\', \'M09\', \'M10\', \'M10\', \'M10\', \'M10\', \'M11\', \'M11\', \'M11\', \'M11\', \'M12\', \'M12\', \'M12\', \'M12\', \'M13\', \'M13\', \'M13\', \'M13\', \'M14\', \'M14\', \'M14\', \'M14\', \'M15\', \'M15\', \'M15\', \'M15\', \'M16\', \'M16\', \'M16\', \'M16\', \'F01\', \'F01\', \'F01\', \'F01\', \'F02\', \'F02\', \'F02\', \'F02\', \'F03\', \'F03\', \'F03\', \'F03\', \'F04\', \'F04\', \'F04\', \'F04\', \'F05\', \'F05\', \'F05\', \'F05\', \'F06\', \'F06\', \'F06\', \'F06\', \'F07\', \'F07\', \'F07\', \'F07\', \'F08\', \'F08\', \'F08\', \'F08\', \'F09\', \'F09\', \'F09\', \'F09\', \'F10\', \'F10\', \'F10\', \'F10\', \'F11\', \'F11\', \'F11\', \'F11\'), label = \'Standardized residuals\'));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void testabs14() {
+ assertEval("argv <- list(numeric(0));abs(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testabs15() {
+ assertEval("argv <- list(structure(c(NA, NA), .Dim = 1:2, .Dimnames = list(\'x\', c(\'Estimate\', \'Std. Error\'))));abs(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testabs16() {
+ assertEval("argv <- list(-3.31827701955945e-05);abs(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testabs17() {
+ assertEval("argv <- list(structure(c(-1.36919169254062, -0.210726311672344, 0.00840470379579385, 0.0843659249699204, 0.552921941721332), .Names = c(\'0%\', \'25%\', \'50%\', \'75%\', \'100%\')));abs(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testabs18() {
+ assertEval("argv <- list(structure(c(8, 7, 6, 5, 4, 3, 2, 1, 0, -1), .Tsp = c(2, 11, 1), class = \'ts\'));abs(argv[[1]]);");
+ }
+
+ @Test
+ public void testabs19() {
+ assertEval("argv <- list(-32L);abs(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testabs20() {
+ assertEval("argv <- list(structure(c(-0.233156370250776, -0.239412071306507, -0.467754722340573, -0.313136244157115, 0.165043251865522, -0.32096970624939, -0.383377620527381, -0.709110442848008, -0.235393959061767, 0.141653176746209, -0.522836600482894, -0.313130619764979, -0.127866584288678, -0.443661331439424, -0.272181655694344, -0.267312459146771, -0.421687966603442, -0.489456667260012, -1.09136324227316, -0.365563936224476, -0.19497185571599, -0.355887223690607, -0.284861760091765, 0.10349461735987, -0.29203835454261, -0.437137381511441, -0.283258760238879, -0.864706923796918, -0.28069027865338, -0.328236303967812, -0.413280526174513, 0.353631921283964, -0.170574581087077, -0.350164611041975, -0.35509309393052, 0.371846787851152, 0.0662214922636754, -0.38267166577059, -0.76433272993872, 0.337925286731474, -0.316383144846009, 0.872120012008955, -0.1910867580222, -0.27268759462975, 0.561668608501795, -0.414426404256215, 0.306241460697781, -0.475011430441313, -0.18104902231566, -0.313137168940244, -0.162511371099967, -0.332715804582844, -0.264583655672922, -0.27403739912759, 0.292926038918646, -0.0266469304789678, NaN, 0.246014195648949, -0.384306495215891, -0.0754669363487819, -0.19187230661589, -0.28069027865338, -0.310267174936681, -0.218229559122572, -0.132431123435626, -0.632568727580371, -0.025524040198577, -0.208280705060531, -0.339307274267833, -0.267312459146771, -0.38337762052738, -0.527937499202165, -0.0708139839175417, -0.249126729136488, -0.443661331439424, -0.282353670058315, -0.383117955201771, 0.465652476582142, -0.257667111448151, -0.923882106624253, -0.527902200672803, -0.106397317438703, -0.882784314083567, -0.171789859931029, -0.134719406450945, -0.334299917870866, -0.59592895672967, 0.0477670768238039, -1.67777307729147, 0.0145330024207598, 0.465392111094536, -0.188401359782389, -1.67777307729147), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\')));abs(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testabs21() {
+ assertEval("argv <- list(structure(c(2671, 6.026e+77, 3.161e+152, 3.501e+299, 2.409e+227, 1.529e+302), .Names = c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\')));abs(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinacos.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinacos.java
new file mode 100644
index 0000000000000000000000000000000000000000..6937bf4aafc3b918e3e1b3760a6e140bf37359c0
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinacos.java
@@ -0,0 +1,41 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinacos extends TestBase {
+
+ @Test
+ public void testacos1() {
+ assertEval("argv <- list(c(0.999950000416665, 0.999800006666578, 0.999550033748988, 0.999200106660978, 0.998750260394966, 0.998200539935204, 0.99755100025328, 0.996801706302619, 0.995952733011994, 0.995004165278026, 0.993956097956697, 0.992808635853866, 0.991561893714788, 0.990215996212637, 0.988771077936042, 0.987227283375627, 0.985584766909561, 0.983843692788121, 0.98200423511727, 0.980066577841242, 0.978030914724148, 0.975897449330606, 0.973666395005375, 0.97133797485203, 0.968912421710645, 0.966389978134513, 0.963770896365891, 0.961055438310771, 0.958243875512697, 0.955336489125606, 0.952333569885713, 0.949235418082441, 0.946042343528387, 0.942754665528346, 0.939372712847379, 0.935896823677935, 0.932327345606034, 0.92866463557651, 0.924909059857313, 0.921060994002885, 0.917120822816605, 0.913088940312308, 0.908965749674885, 0.904751663219963, 0.900447102352677, 0.896052497525525, 0.891568288195329, 0.886994922779284, 0.882332858610121, 0.877582561890373, 0.872744507645751, 0.86781917967765, 0.862807070514761, 0.857708681363824, 0.852524522059506, 0.847255111013416, 0.841900975162269, 0.836462649915187, 0.830940679100164, 0.825335614909678, 0.819648017845479, 0.813878456662534, 0.808027508312152, 0.802095757884293, 0.796083798549056, 0.789992231497365, 0.783821665880849, 0.777572718750928, 0.771246014997107, 0.764842187284488, 0.758361875990508, 0.751805729140895, 0.74517440234487, 0.738468558729588, 0.731688868873821, 0.724836010740905, 0.717910669610943, 0.710913538012277, 0.703845315652236, 0.696706709347165, 0.689498432951747, 0.682221207287614, 0.674875760071267, 0.667462825841308, 0.659983145884982, 0.652437468164052, 0.644826547240001, 0.63715114419858, 0.629412026573697, 0.621609968270664, 0.613745749488812, 0.605820156643463, 0.597833982287298, 0.589788025031098, 0.581683089463884, 0.573519986072457, 0.565299531160354, 0.557022546766217, 0.548689860581588));acos(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testacos2() {
+ assertEval("argv <- list(1.54308063481524+0i);acos(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testacos3() {
+ assertEval("argv <- list(c(-0.7104065636993+1i, 0.25688370915653+1i, -0.24669187846237+1i, -0.34754259939773+1i, -0.95161856726502+1i, -0.04502772480892+1i, -0.78490446945708+1i, -1.66794193658814+1i, -0.38022652028776+1i, 0.91899660906077+1i, -0.57534696260839+1i, 0.60796432222503+1i, -1.61788270828916+1i, -0.05556196552454+1i, 0.51940720394346+1i, 0.30115336216671+1i, 0.10567619414894+1i, -0.64070600830538+1i, -0.84970434603358+1i, -1.02412879060491+1i, 0.11764659710013+1i, -0.9474746141848+1i, -0.49055744370067+1i, -0.25609219219825+1i, 1.84386200523221+1i, -0.65194990169546+1i, 0.23538657228486+1i, 0.07796084956371+1i, -0.96185663413013+1i, -0.0713080861236+1i, 1.44455085842335+1i, 0.45150405307921+1i, 0.04123292199294+1i, -0.42249683233962+1i, -2.05324722154052+1i, 1.13133721341418+1i, -1.46064007092482+1i, 0.73994751087733+1i, 1.90910356921748+1i, -1.4438931609718+1i, 0.70178433537471+1i, -0.26219748940247+1i, -1.57214415914549+1i, -1.51466765378175+1i, -1.60153617357459+1i, -0.5309065221703+1i, -1.4617555849959+1i, 0.68791677297583+1i, 2.10010894052567+1i, -1.28703047603518+1i, 0.78773884747518+1i, 0.76904224100091+1i, 0.33220257895012+1i, -1.00837660827701+1i, -0.11945260663066+1i, -0.28039533517025+1i, 0.56298953322048+1i, -0.37243875610383+1i, 0.97697338668562+1i, -0.37458085776701+1i, 1.05271146557933+1i, -1.04917700666607+1i, -1.26015524475811+1i, 3.2410399349424+1i, -0.41685758816043+1i, 0.29822759154072+1i, 0.63656967403385+1i, -0.48378062570874+1i, 0.51686204431361+1i, 0.36896452738509+1i, -0.21538050764169+1i, 0.06529303352532+1i, -0.03406725373846+1i, 2.12845189901618+1i, -0.74133609627283+1i, -1.09599626707466+1i, 0.03778839917108+1i, 0.31048074944314+1i, 0.43652347891018+1i, -0.45836533271111+1i, -1.06332613397119+1i, 1.26318517608949+1i, -0.34965038795355+1i, -0.86551286265337+1i, -0.2362795689411+1i, -0.19717589434855+1i, 1.10992028971364+1i, 0.0847372921972+1i, 0.75405378518452+1i, -0.49929201717226+1i, 0.2144453095816+1i, -0.32468591149083+1i, 0.09458352817357+1i, -0.89536335797754+1i, -1.31080153332797+1i, 1.99721338474797+1i, 0.60070882367242+1i, -1.25127136162494+1i, -0.61116591668042+1i, -1.18548008459731+1i));acos(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testacos4() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));acos(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinacosh.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinacosh.java
new file mode 100644
index 0000000000000000000000000000000000000000..280f8362ac6d349f5adf318e08b8bd54d105d2bb
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinacosh.java
@@ -0,0 +1,48 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinacosh extends TestBase {
+
+ @Test
+ @Ignore
+ public void testacosh1() {
+ assertEval("argv <- list(FALSE);acosh(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testacosh2() {
+ assertEval("argv <- list(logical(0));acosh(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testacosh3() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));acosh(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testacosh4() {
+ assertEval("argv <- list(c(0+2i, 0.0001+2i, 0-2i, 0-2.0001i));acosh(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testacosh5() {
+ assertEval("argv <- list(c(10.0676619957778, 9.77014619112734, 9.48151278613522, 9.20149937354487, 8.92985138285227, 8.66632184886646, 8.41067118718443, 8.16266697637608, 7.92208374668136, 7.68870277502741, 7.46231188617936, 7.242705259844, 7.02968324355098, 6.82305217114139, 6.62262418669875, 6.42821707376226, 6.23965408966708, 6.05676380486112, 5.87937994705209, 5.70734125004322, 5.54049130712027, 5.37867842885638, 5.22175550520566, 5.06957987175999, 4.92201318004762, 4.77892127175541, 4.64017405676061, 4.50564539486112, 4.3752129810968, 4.24875823455752, 4.12616619057689, 4.00732539621364, 3.89212780892567, 3.78046869834458, 3.67224655106143, 3.56736297833717, 3.46572262665382, 3.36723309102506, 3.27180483098748, 3.17935108919603, 3.0897878125497, 3.00303357577581, 2.91900950740325, 2.83763921805753, 2.75884873101238, 2.68256641493482, 2.60872291876243, 2.53725110865378, 2.46808600695458, 2.40116473312406, 2.33642644656803, 2.27381229132637, 2.21326534256499, 2.1547305548233, 2.09815471197041, 2.04348637882435, 1.99067585439045, 1.93967512667636, 1.89043782904258, 1.84291919804882, 1.7970760327579, 1.75286665546022, 1.71025087378301, 1.66918994414995, 1.62964653655797, 1.59158470063915, 1.55496983297695, 1.51976864564695, 1.48594913595357, 1.45348055733525, 1.42233339141161, 1.39247932114721, 1.36389120510748, 1.33654305278346, 1.31041000096287, 1.28546829112601, 1.26169524784609, 1.23906925817407, 1.21756975198963, 1.19717718330002, 1.17787301247016, 1.15963968936754, 1.14246063740672, 1.12632023847902, 1.11120381875343, 1.09709763533618, 1.0839888637765, 1.07186558640748, 1.06071678151125, 1.05053231329877, 1.04130292269496, 1.033020218921, 1.02567667186589, 1.01926560524059, 1.01378119050839, 1.00921844158588, 1.00557321031002, 1.00284218266684, 1.00102287577853, 1.00011363564622, 1.00011363564622, 1.00102287577853, 1.00284218266684, 1.00557321031002, 1.00921844158588, 1.01378119050839, 1.01926560524059, 1.02567667186589, 1.033020218921, 1.04130292269496, 1.05053231329877, 1.06071678151125, 1.07186558640748, 1.0839888637765, 1.09709763533618, 1.11120381875343, 1.12632023847902, 1.14246063740672, 1.15963968936754, 1.17787301247016, 1.19717718330002, 1.21756975198963, 1.23906925817407, 1.26169524784609, 1.28546829112601, 1.31041000096287, 1.33654305278346, 1.36389120510748, 1.39247932114721, 1.42233339141161, 1.45348055733525, 1.48594913595357, 1.51976864564695, 1.55496983297695, 1.59158470063915, 1.62964653655796, 1.66918994414995, 1.71025087378301, 1.75286665546022, 1.7970760327579, 1.84291919804882, 1.89043782904258, 1.93967512667636, 1.99067585439045, 2.04348637882435, 2.09815471197041, 2.1547305548233, 2.21326534256499, 2.27381229132637, 2.33642644656803, 2.40116473312406, 2.46808600695458, 2.53725110865378, 2.60872291876243, 2.68256641493482, 2.75884873101238, 2.83763921805753, 2.91900950740325, 3.00303357577581, 3.0897878125497, 3.17935108919602, 3.27180483098748, 3.36723309102506, 3.46572262665381, 3.56736297833717, 3.67224655106143, 3.78046869834458, 3.89212780892567, 4.00732539621364, 4.12616619057689, 4.24875823455752, 4.3752129810968, 4.50564539486111, 4.64017405676061, 4.77892127175541, 4.92201318004762, 5.06957987175999, 5.22175550520565, 5.37867842885638, 5.54049130712027, 5.70734125004322, 5.87937994705209, 6.05676380486112, 6.23965408966708, 6.42821707376226, 6.62262418669875, 6.82305217114139, 7.02968324355097, 7.242705259844, 7.46231188617936, 7.68870277502741, 7.92208374668136, 8.16266697637608, 8.41067118718443, 8.66632184886646, 8.92985138285226, 9.20149937354487, 9.48151278613522, 9.77014619112734, 10.0676619957778));acosh(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinadist.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinadist.java
new file mode 100644
index 0000000000000000000000000000000000000000..03251aedd93b69e9e8ba5d9bf00e49def0bc36c2
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinadist.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinadist extends TestBase {
+
+ @Test
+ @Ignore
+ public void testadist1() {
+ assertEval("argv <- list(list(c(107L, 105L, 116L, 116L, 101L, 110L)), list(c(115L, 105L, 116L, 116L, 105L, 110L, 103L)), structure(c(1, 1, 1), .Names = c(\'insertions\', \'deletions\', \'substitutions\')), FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(adist(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testadist2() {
+ assertEval("argv <- list(list(c(107L, 105L, 116L, 116L, 101L, 110L), c(115L, 105L, 116L, 116L, 105L, 110L, 103L)), list(c(107L, 105L, 116L, 116L, 101L, 110L), c(115L, 105L, 116L, 116L, 105L, 110L, 103L)), structure(c(1, 1, 1), .Names = c(\'insertions\', \'deletions\', \'substitutions\')), TRUE, TRUE, FALSE, FALSE, FALSE); .Internal(adist(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testadist3() {
+ assertEval("argv <- list(\'lasy\', \'1 lazy 2\', c(1L, 1L, 1L), FALSE, TRUE, TRUE, FALSE, FALSE); .Internal(adist(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testadist4() {
+ assertEval("argv <- list(list(), list(), structure(c(1, 1, 1), .Names = c(\'insertions\', \'deletions\', \'substitutions\')), FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(adist(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinagrep.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinagrep.java
new file mode 100644
index 0000000000000000000000000000000000000000..4158a4ffd7b92cd3c597cc705f6a8aa06f2a3aa6
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinagrep.java
@@ -0,0 +1,41 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinagrep extends TestBase {
+
+ @Test
+ public void testagrep1() {
+ assertEval("argv <- list(\'x86_64-linux-gnu\', \'x86_64-linux-gnu\', FALSE, FALSE, c(1L, 1L, 1L), c(0.1, NA, NA, NA, NA), FALSE, TRUE); .Internal(agrep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testagrep3() {
+ assertEval("argv <- list(\'lasy\', c(\' 1 lazy 2\', \'1 lasy 2\'), FALSE, FALSE, c(1L, 1L, 1L), structure(c(NA, 0.1, 0.1, 0, 0.1), .Names = c(\'cost\', \'insertions\', \'deletions\', \'substitutions\', \'all\')), FALSE, TRUE); .Internal(agrep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testagrep4() {
+ assertEval("argv <- list(\'laysy\', c(\'1 lazy\', \'1\', \'1 LAZY\'), FALSE, TRUE, c(1L, 1L, 1L), c(2, NA, NA, NA, NA), FALSE, TRUE); .Internal(agrep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testagrep5() {
+ assertEval("argv <- list(\'laysy\', c(\'1 lazy\', \'1\', \'1 LAZY\'), TRUE, FALSE, c(1L, 1L, 1L), c(2, NA, NA, NA, NA), FALSE, TRUE); .Internal(agrep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinall.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinall.java
new file mode 100644
index 0000000000000000000000000000000000000000..5723c0391139883343d0c36eb8e92d3e05ef84fd
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinall.java
@@ -0,0 +1,90 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinall extends TestBase {
+
+ @Test
+ public void testall1() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE));all(argv[[1]]);");
+ }
+
+ @Test
+ public void testall2() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE), .Names = c(\'x\', \'value\')));all(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testall3() {
+ assertEval("argv <- list(c(1, 1, 3, 1, 1, 3, 3, 3, 3), FALSE, NULL);all(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testall4() {
+ assertEval("argv <- list(structure(c(0, 0, 3, 0, 0, 0, 1, 0, 0, 2, 2, 3.2, -1, 1, 3.2, 4, 3, 0, 0, 0, 0, 3.2, 0, 0, 3.2, 0, 202, 0, 0, 0, 241, 0, 243, 0, 0), .Dim = c(5L, 7L), .Dimnames = list(c(\'r1\', \'r2\', \'r3\', \'r4\', \'r5\'), c(\'c1\', \'c2\', \'c3\', \'c4\', \'c5\', \'c6\', \'c7\'))));all(argv[[1]]);");
+ }
+
+ @Test
+ public void testall5() {
+ assertEval("argv <- list(logical(0));all(argv[[1]]);");
+ }
+
+ @Test
+ public void testall6() {
+ assertEval("all( );");
+ }
+
+ @Test
+ public void testall7() {
+ assertEval("argv <- list(structure(FALSE, .Tsp = c(1, 1, 1), class = \'ts\'));all(argv[[1]]);");
+ }
+
+ @Test
+ public void testall8() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, FALSE), .Tsp = c(-1, 3, 1), class = \'ts\'));all(argv[[1]]);");
+ }
+
+ @Test
+ public void testall9() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE), .Names = c(\'+ Temp\', \'<none>\', \'+ Soft\', \'- M.user\')));all(argv[[1]]);");
+ }
+
+ @Test
+ public void testall10() {
+ assertEval("argv <- list(structure(1L, .Names = \'show\'));all(argv[[1]]);");
+ }
+
+ @Test
+ public void testall11() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = 2:3, .Dimnames = list(NULL, c(\'a\', \'b\', \'c\'))));all(argv[[1]]);");
+ }
+
+ @Test
+ public void testall12() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, FALSE, TRUE, TRUE), .Tsp = c(1, 5, 1), class = \'ts\'));all(argv[[1]]);");
+ }
+
+ @Test
+ public void testall14() {
+ assertEval("argv <- list(NA);all(argv[[1]]);");
+ }
+
+ @Test
+ public void testall15() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));all(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinallnames.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinallnames.java
new file mode 100644
index 0000000000000000000000000000000000000000..9507f0b673b6dbcb5ef77ca3175dcd9077cd0022
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinallnames.java
@@ -0,0 +1,48 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinallnames extends TestBase {
+
+ @Test
+ @Ignore
+ public void testallnames1() {
+ assertEval("argv <- list(quote(y ~ ((g1) * exp((log(g2/g1)) * (1 - exp(-k * (x - Ta)))/(1 - exp(-k * (Tb - Ta)))))), FALSE, -1L, TRUE); .Internal(all.names(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testallnames2() {
+ assertEval("argv <- list(logical(0), logical(0), -1L, TRUE); .Internal(all.names(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testallnames3() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), TRUE, -1L, FALSE); .Internal(all.names(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testallnames4() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'), structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'), -1L, FALSE); .Internal(all.names(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testallnames5() {
+ assertEval("argv <- list(0.1, FALSE, -1L, TRUE); .Internal(all.names(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinany.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinany.java
new file mode 100644
index 0000000000000000000000000000000000000000..0ab483731f3f76389415bfb564ea935fb71beff6
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinany.java
@@ -0,0 +1,94 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinany extends TestBase {
+
+ @Test
+ public void testany1() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Tsp = c(1, 101, 1), class = \'ts\'));any(argv[[1]]);");
+ }
+
+ @Test
+ public void testany2() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE), .Dim = 3L, .Dimnames = list(c(\'A\', \'B\', \'C\'))));any(argv[[1]]);");
+ }
+
+ @Test
+ public void testany3() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Tsp = c(1949, 1960.91666666667, 12), class = \'ts\'));any(argv[[1]]);");
+ }
+
+ @Test
+ public void testany4() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\'), .Dim = 5L, .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\'))));any(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testany5() {
+ assertEval("argv <- list(structure(c(14, 2, 0, 2, -7, 0), .Dim = c(3L, 2L)));any(argv[[1]]);");
+ }
+
+ @Test
+ public void testany6() {
+ assertEval("any( );");
+ }
+
+ @Test
+ public void testany7() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = 3:4, .Dimnames = structure(list(x1 = c(\'a\', \'b\', \'c\'), x2 = c(\'a\', \'b\', \'c\', NA)), .Names = c(\'x1\', \'x2\'))));any(argv[[1]]);");
+ }
+
+ @Test
+ public void testany8() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(4L, 3L), .Dimnames = list(c(\'<none>\', \'Hair:Eye\', \'Hair:Sex\', \'Eye:Sex\'), c(\'Df\', \'Deviance\', \'AIC\'))));any(argv[[1]]);");
+ }
+
+ @Test
+ public void testany9() {
+ assertEval("argv <- list(c(1L, 1L, 1L, 1L, 1L));any(argv[[1]]);");
+ }
+
+ @Test
+ public void testany10() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE), .Dim = 3L, .Dimnames = structure(list(c(\'1\', \'2\', NA)), .Names = \'\')));any(argv[[1]]);");
+ }
+
+ @Test
+ public void testany11() {
+ assertEval("argv <- list(logical(0));any(argv[[1]]);");
+ }
+
+ @Test
+ public void testany12() {
+ assertEval("argv <- list(structure(FALSE, .Dim = c(1L, 1L)));any(argv[[1]]);");
+ }
+
+ @Test
+ public void testany13() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 0L)));any(argv[[1]]);");
+ }
+
+ @Test
+ public void testany14() {
+ assertEval("argv <- list(c(FALSE, TRUE, FALSE));any(argv[[1]]);");
+ }
+
+ @Test
+ public void testany15() {
+ assertEval("argv <- list(structure(c(NA, NA, NA, NA, NA, NA, NA, NA), .Names = c(\'base\', \'utils\', \'methods\', \'grDevices\', \'graphics\', \'stats\', \'lapack\', \'R_X11\')));any(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinanyDuplicated.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinanyDuplicated.java
new file mode 100644
index 0000000000000000000000000000000000000000..eab754d9b8a10b4977ac6b101969f761beb7901c
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinanyDuplicated.java
@@ -0,0 +1,99 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinanyDuplicated extends TestBase {
+
+ @Test
+ public void testanyDuplicated1() {
+ assertEval("argv <- list(c(\'U\', \'V\'), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testanyDuplicated2() {
+ assertEval("argv <- list(c(\'refClassA\', \'envRefClass\', \'.environment\', \'refClass\', \'environment\', \'refObject\'), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testanyDuplicated3() {
+ assertEval("argv <- list(c(0, 0.00165722279589047, 0.00331444559178095, 0.00497166838767142, 0.00662889118356189, 0.00828611397945236, 0.00994333677534284, 0.0116005595712333, 0.0132577823671238, 0.0149150051630143, 0.0165722279589047, 0.0182294507547952, 0.0198866735506857, 0.0215438963465761, 0.0232011191424666, 0.0248583419383571, 0.0265155647342476, 0.028172787530138, 0.0298300103260285, 0.031487233121919, 0.0331444559178094, 0.0348016787136999, 0.0364589015095904, 0.0381161243054809, 0.0397733471013713, 0.0414305698972618, 0.0430877926931523, 0.0447450154890428, 0.0464022382849332, 0.0480594610808237, 0.0497166838767142, 0.0513739066726046, 0.0530311294684951, 0.0546883522643856, 0.0563455750602761, 0.0580027978561665, 0.059660020652057, 0.0613172434479475, 0.062974466243838, 0.0646316890397284, 0.0662889118356189, 0.0679461346315094, 0.0696033574273998, 0.0712605802232903, 0.0729178030191808, 0.0745750258150713, 0.0762322486109617, 0.0778894714068522, 0.0795466942027427, 0.0812039169986331, 0.0828611397945236, 0.0845183625904141, 0.0861755853863046, 0.087832808182195, 0.0894900309780855, 0.091147253773976, 0.0928044765698665, 0.0944616993657569, 0.0961189221616474, 0.0977761449575379, 0.0994333677534284, 0.101090590549319, 0.102747813345209, 0.1044050361411, 0.10606225893699, 0.107719481732881, 0.109376704528771, 0.111033927324662, 0.112691150120552, 0.114348372916443, 0.116005595712333, 0.117662818508224, 0.119320041304114, 0.120977264100004, 0.122634486895895, 0.124291709691785, 0.125948932487676, 0.127606155283566, 0.129263378079457, 0.130920600875347, 0.132577823671238, 0.134235046467128, 0.135892269263019, 0.137549492058909, 0.1392067148548, 0.14086393765069, 0.142521160446581, 0.144178383242471, 0.145835606038362, 0.147492828834252, 0.149150051630143, 0.150807274426033, 0.152464497221923, 0.154121720017814, 0.155778942813704, 0.157436165609595, 0.159093388405485, 0.160750611201376, 0.162407833997266, 0.164065056793157, 0.165722279589047, 0.167379502384938, 0.169036725180828, 0.170693947976719, 0.172351170772609, 0.1740083935685, 0.17566561636439, 0.177322839160281, 0.178980061956171, 0.180637284752062, 0.182294507547952, 0.183951730343842, 0.185608953139733, 0.187266175935623, 0.188923398731514, 0.190580621527404, 0.192237844323295, 0.193895067119185, 0.195552289915076, 0.197209512710966, 0.198866735506857, 0.200523958302747, 0.202181181098638, 0.203838403894528, 0.205495626690419, 0.207152849486309, 0.2088100722822, 0.21046729507809, 0.21212451787398, 0.213781740669871, 0.215438963465761, 0.217096186261652, 0.218753409057542, 0.220410631853433, 0.222067854649323, 0.223725077445214, 0.225382300241104, 0.227039523036995, 0.228696745832885, 0.230353968628776, 0.232011191424666, 0.233668414220557, 0.235325637016447, 0.236982859812338, 0.238640082608228, 0.240297305404119, 0.241954528200009, 0.243611750995899, 0.24526897379179, 0.24692619658768, 0.248583419383571, 0.250240642179461, 0.251897864975352, 0.253555087771242, 0.255212310567133, 0.256869533363023, 0.258526756158914, 0.260183978954804, 0.261841201750695, 0.263498424546585, 0.265155647342476, 0.266812870138366, 0.268470092934257, 0.270127315730147, 0.271784538526038, 0.273441761321928, 0.275098984117818, 0.276756206913709, 0.278413429709599, 0.28007065250549, 0.28172787530138, 0.283385098097271, 0.285042320893161, 0.286699543689052, 0.288356766484942, 0.290013989280833, 0.291671212076723, 0.293328434872614, 0.294985657668504, 0.296642880464395, 0.298300103260285, 0.299957326056176, 0.301614548852066, 0.303271771647956, 0.304928994443847, 0.306586217239737, 0.308243440035628, 0.309900662831518, 0.311557885627409, 0.313215108423299, 0.31487233121919, 0.31652955401508, 0.318186776810971, 0.319843999606861, 0.321501222402752, 0.323158445198642, 0.324815667994533, 0.326472890790423, 0.328130113586314, 0.329787336382204, 0.331444559178095, 0.333101781973985, 0.334759004769875, 0.336416227565766, 0.338073450361656, 0.339730673157547, 0.341387895953437, 0.343045118749328, 0.344702341545218, 0.346359564341109, 0.348016787136999, 0.34967400993289, 0.35133123272878, 0.352988455524671, 0.354645678320561, 0.356302901116452, 0.357960123912342, 0.359617346708233, 0.361274569504123, 0.362931792300013, 0.364589015095904, 0.366246237891794, 0.367903460687685, 0.369560683483575, 0.371217906279466, 0.372875129075356, 0.374532351871247, 0.376189574667137, 0.377846797463028, 0.379504020258918, 0.381161243054809, 0.382818465850699, 0.38447568864659, 0.38613291144248, 0.387790134238371, 0.389447357034261, 0.391104579830152, 0.392761802626042, 0.394419025421932, 0.396076248217823, 0.397733471013713, 0.399390693809604, 0.401047916605494, 0.402705139401385, 0.404362362197275, 0.406019584993166, 0.407676807789056, 0.409334030584947, 0.410991253380837, 0.412648476176728, 0.414305698972618, 0.415962921768509, 0.417620144564399, 0.41927736736029, 0.42093459015618, 0.42259181295207, 0.424249035747961), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testanyDuplicated4() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'), structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'), FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testanyDuplicated5() {
+ assertEval("argv <- list(c(NA, 9L, 13L), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testanyDuplicated6() {
+ assertEval("argv <- list(structure(c(\'5.1\\r3.5\\r1.4\\r0.2\', \'4.9\\r3\\r1.4\\r0.2\', \'4.7\\r3.2\\r1.3\\r0.2\', \'4.6\\r3.1\\r1.5\\r0.2\', \'5\\r3.6\\r1.4\\r0.2\', \'5.4\\r3.9\\r1.7\\r0.4\', \'4.6\\r3.4\\r1.4\\r0.3\', \'5\\r3.4\\r1.5\\r0.2\', \'4.4\\r2.9\\r1.4\\r0.2\', \'4.9\\r3.1\\r1.5\\r0.1\', \'5.4\\r3.7\\r1.5\\r0.2\', \'4.8\\r3.4\\r1.6\\r0.2\', \'4.8\\r3\\r1.4\\r0.1\', \'4.3\\r3\\r1.1\\r0.1\', \'5.8\\r4\\r1.2\\r0.2\', \'5.7\\r4.4\\r1.5\\r0.4\', \'5.4\\r3.9\\r1.3\\r0.4\', \'5.1\\r3.5\\r1.4\\r0.3\', \'5.7\\r3.8\\r1.7\\r0.3\', \'5.1\\r3.8\\r1.5\\r0.3\', \'5.4\\r3.4\\r1.7\\r0.2\', \'5.1\\r3.7\\r1.5\\r0.4\', \'4.6\\r3.6\\r1\\r0.2\', \'5.1\\r3.3\\r1.7\\r0.5\', \'4.8\\r3.4\\r1.9\\r0.2\', \'5\\r3\\r1.6\\r0.2\', \'5\\r3.4\\r1.6\\r0.4\', \'5.2\\r3.5\\r1.5\\r0.2\', \'5.2\\r3.4\\r1.4\\r0.2\', \'4.7\\r3.2\\r1.6\\r0.2\', \'4.8\\r3.1\\r1.6\\r0.2\', \'5.4\\r3.4\\r1.5\\r0.4\', \'5.2\\r4.1\\r1.5\\r0.1\', \'5.5\\r4.2\\r1.4\\r0.2\', \'4.9\\r3.1\\r1.5\\r0.2\', \'5\\r3.2\\r1.2\\r0.2\', \'5.5\\r3.5\\r1.3\\r0.2\', \'4.9\\r3.6\\r1.4\\r0.1\', \'4.4\\r3\\r1.3\\r0.2\', \'5.1\\r3.4\\r1.5\\r0.2\', \'5\\r3.5\\r1.3\\r0.3\', \'4.5\\r2.3\\r1.3\\r0.3\', \'4.4\\r3.2\\r1.3\\r0.2\', \'5\\r3.5\\r1.6\\r0.6\', \'5.1\\r3.8\\r1.9\\r0.4\', \'4.8\\r3\\r1.4\\r0.3\', \'5.1\\r3.8\\r1.6\\r0.2\', \'4.6\\r3.2\\r1.4\\r0.2\', \'5.3\\r3.7\\r1.5\\r0.2\', \'5\\r3.3\\r1.4\\r0.2\', \'7\\r3.2\\r4.7\\r1.4\', \'6.4\\r3.2\\r4.5\\r1.5\', \'6.9\\r3.1\\r4.9\\r1.5\', \'5.5\\r2.3\\r4\\r1.3\', \'6.5\\r2.8\\r4.6\\r1.5\', \'5.7\\r2.8\\r4.5\\r1.3\', \'6.3\\r3.3\\r4.7\\r1.6\', \'4.9\\r2.4\\r3.3\\r1\', \'6.6\\r2.9\\r4.6\\r1.3\', \'5.2\\r2.7\\r3.9\\r1.4\', \'5\\r2\\r3.5\\r1\', \'5.9\\r3\\r4.2\\r1.5\', \'6\\r2.2\\r4\\r1\', \'6.1\\r2.9\\r4.7\\r1.4\', \'5.6\\r2.9\\r3.6\\r1.3\', \'6.7\\r3.1\\r4.4\\r1.4\', \'5.6\\r3\\r4.5\\r1.5\', \'5.8\\r2.7\\r4.1\\r1\', \'6.2\\r2.2\\r4.5\\r1.5\', \'5.6\\r2.5\\r3.9\\r1.1\', \'5.9\\r3.2\\r4.8\\r1.8\', \'6.1\\r2.8\\r4\\r1.3\', \'6.3\\r2.5\\r4.9\\r1.5\', \'6.1\\r2.8\\r4.7\\r1.2\', \'6.4\\r2.9\\r4.3\\r1.3\', \'6.6\\r3\\r4.4\\r1.4\', \'6.8\\r2.8\\r4.8\\r1.4\', \'6.7\\r3\\r5\\r1.7\', \'6\\r2.9\\r4.5\\r1.5\', \'5.7\\r2.6\\r3.5\\r1\', \'5.5\\r2.4\\r3.8\\r1.1\', \'5.5\\r2.4\\r3.7\\r1\', \'5.8\\r2.7\\r3.9\\r1.2\', \'6\\r2.7\\r5.1\\r1.6\', \'5.4\\r3\\r4.5\\r1.5\', \'6\\r3.4\\r4.5\\r1.6\', \'6.7\\r3.1\\r4.7\\r1.5\', \'6.3\\r2.3\\r4.4\\r1.3\', \'5.6\\r3\\r4.1\\r1.3\', \'5.5\\r2.5\\r4\\r1.3\', \'5.5\\r2.6\\r4.4\\r1.2\', \'6.1\\r3\\r4.6\\r1.4\', \'5.8\\r2.6\\r4\\r1.2\', \'5\\r2.3\\r3.3\\r1\', \'5.6\\r2.7\\r4.2\\r1.3\', \'5.7\\r3\\r4.2\\r1.2\', \'5.7\\r2.9\\r4.2\\r1.3\', \'6.2\\r2.9\\r4.3\\r1.3\', \'5.1\\r2.5\\r3\\r1.1\', \'5.7\\r2.8\\r4.1\\r1.3\', \'6.3\\r3.3\\r6\\r2.5\', \'5.8\\r2.7\\r5.1\\r1.9\', \'7.1\\r3\\r5.9\\r2.1\', \'6.3\\r2.9\\r5.6\\r1.8\', \'6.5\\r3\\r5.8\\r2.2\', \'7.6\\r3\\r6.6\\r2.1\', \'4.9\\r2.5\\r4.5\\r1.7\', \'7.3\\r2.9\\r6.3\\r1.8\', \'6.7\\r2.5\\r5.8\\r1.8\', \'7.2\\r3.6\\r6.1\\r2.5\', \'6.5\\r3.2\\r5.1\\r2\', \'6.4\\r2.7\\r5.3\\r1.9\', \'6.8\\r3\\r5.5\\r2.1\', \'5.7\\r2.5\\r5\\r2\', \'5.8\\r2.8\\r5.1\\r2.4\', \'6.4\\r3.2\\r5.3\\r2.3\', \'6.5\\r3\\r5.5\\r1.8\', \'7.7\\r3.8\\r6.7\\r2.2\', \'7.7\\r2.6\\r6.9\\r2.3\', \'6\\r2.2\\r5\\r1.5\', \'6.9\\r3.2\\r5.7\\r2.3\', \'5.6\\r2.8\\r4.9\\r2\', \'7.7\\r2.8\\r6.7\\r2\', \'6.3\\r2.7\\r4.9\\r1.8\', \'6.7\\r3.3\\r5.7\\r2.1\', \'7.2\\r3.2\\r6\\r1.8\', \'6.2\\r2.8\\r4.8\\r1.8\', \'6.1\\r3\\r4.9\\r1.8\', \'6.4\\r2.8\\r5.6\\r2.1\', \'7.2\\r3\\r5.8\\r1.6\', \'7.4\\r2.8\\r6.1\\r1.9\', \'7.9\\r3.8\\r6.4\\r2\', \'6.4\\r2.8\\r5.6\\r2.2\', \'6.3\\r2.8\\r5.1\\r1.5\', \'6.1\\r2.6\\r5.6\\r1.4\', \'7.7\\r3\\r6.1\\r2.3\', \'6.3\\r3.4\\r5.6\\r2.4\', \'6.4\\r3.1\\r5.5\\r1.8\', \'6\\r3\\r4.8\\r1.8\', \'6.9\\r3.1\\r5.4\\r2.1\', \'6.7\\r3.1\\r5.6\\r2.4\', \'6.9\\r3.1\\r5.1\\r2.3\', \'5.8\\r2.7\\r5.1\\r1.9\', \'6.8\\r3.2\\r5.9\\r2.3\', \'6.7\\r3.3\\r5.7\\r2.5\', \'6.7\\r3\\r5.2\\r2.3\', \'6.3\\r2.5\\r5\\r1.9\', \'6.5\\r3\\r5.2\\r2\', \'6.2\\r3.4\\r5.4\\r2.3\', \'5.9\\r3\\r5.1\\r1.8\'), .Dim = c(50L, 3L), .Dimnames = list(NULL, c(\'Setosa\', \'Versicolor\', \'Virginica\'))), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testanyDuplicated7() {
+ assertEval("argv <- list(c(-6, -3, 0, 3, 6, 9, 12, 15), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testanyDuplicated8() {
+ assertEval("argv <- list(c(9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 1L, 2L, 3L, 4L, 5L, 3L, 4L, 5L, 6L, 7L, 0L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L), FALSE, TRUE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testanyDuplicated9() {
+ assertEval("argv <- list(c(-1.001, -1, -0.999), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testanyDuplicated10() {
+ assertEval("argv <- list(c(12784, 12874, 12965, 13057, 13149, 13239, 13330, 13422, 13514, 13604, 13695, 13787, 13879, 13970, 14061, 14153, 14245, 14335), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testanyDuplicated11() {
+ assertEval("argv <- list(structure(c(\'A\', NA), .Names = c(\'1\', \'3\')), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testanyDuplicated12() {
+ assertEval("argv <- list(c(\'A\', NA), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testanyDuplicated13() {
+ assertEval("argv <- list(c(12784, 13149, 13514, 13879, 14245, 14610), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testanyDuplicated14() {
+ assertEval("argv <- list(character(0), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testanyDuplicated15() {
+ assertEval("argv <- list(c(1L, 1L, 1L, 1L, 1L), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testanyDuplicated16() {
+ assertEval("argv <- list(c(\'1\', \'4\', \'6\', \'9\', \'11\', NA, \'15\', \'16\', \'17\', \'20\', \'21\', \'23\', \'29\', \'41\', \'45\', \'48\', \'55\', \'62\', \'63\', \'65\', \'70\', \'74\', \'82\', \'83\', \'85\', \'86\', \'92\', \'93\', \'97\', \'98\', \'99\', \'103\', \'104\', \'106\', \'108\', \'109\', \'112\', \'113\', \'120\', \'126\', \'127\', \'128\', \'132\', \'139\', \'142\', \'145\', \'148\', \'151\', \'159\', \'164\', \'165\', \'169\', \'171\', \'173\', \'175\', \'189\', \'191\', \'193\', \'194\', \'195\', \'198\', \'200\', \'202\', \'209\', \'212\', \'213\', \'215\', \'216\', \'221\', \'223\', \'224\', \'227\'), FALSE, FALSE); .Internal(anyDuplicated(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinaperm.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinaperm.java
new file mode 100644
index 0000000000000000000000000000000000000000..f1efafe0361b45a900456bc49aa911481aad127f
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinaperm.java
@@ -0,0 +1,168 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinaperm extends TestBase {
+
+ @Test
+ @Ignore
+ public void testaperm1() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(5L, 14L), .Dimnames = list(c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\'), NULL)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm2() {
+ assertEval("argv <- list(structure(c(\'[\', \'as.data.frame\', \'plot\', \'print\', \'summary\', \'as.character\', \'print\', \'print\', \'plot\', \'update\', \'dim\', \'dimnames\', \'dimnames<-\', \'[\', \'t\', \'summary\', \'print\', \'barchart\', \'barchart\', \'barchart\', \'barchart\', \'barchart\', \'barchart\', \'bwplot\', \'bwplot\', \'densityplot\', \'densityplot\', \'dotplot\', \'dotplot\', \'dotplot\', \'dotplot\', \'dotplot\', \'dotplot\', \'histogram\', \'histogram\', \'histogram\', \'qqmath\', \'qqmath\', \'stripplot\', \'stripplot\', \'qq\', \'xyplot\', \'xyplot\', \'levelplot\', \'levelplot\', \'levelplot\', \'levelplot\', \'contourplot\', \'contourplot\', \'contourplot\', \'contourplot\', \'cloud\', \'cloud\', \'cloud\', \'wireframe\', \'wireframe\', \'splom\', \'splom\', \'splom\', \'parallelplot\', \'parallelplot\', \'parallelplot\', \'parallel\', \'parallel\', \'parallel\', \'tmd\', \'tmd\', \'llines\', \'ltext\', \'lpoints\', \'shingle\', \'shingle\', \'shingle\', \'shingle\', \'shingle\', \'shingleLevel\', \'shingleLevel\', \'trellis\', \'trellis\', \'trellis\', \'trellis\', \'trellis\', \'trellis\', \'trellis\', \'trellis\', \'trellis\', \'summary.trellis\', \'formula\', \'array\', \'default\', \'matrix\', \'numeric\', \'table\', \'formula\', \'numeric\', \'formula\', \'numeric\', \'formula\', \'array\', \'default\', \'matrix\', \'numeric\', \'table\', \'formula\', \'factor\', \'numeric\', \'formula\', \'numeric\', \'formula\', \'numeric\', \'formula\', \'formula\', \'ts\', \'formula\', \'table\', \'array\', \'matrix\', \'formula\', \'table\', \'array\', \'matrix\', \'formula\', \'matrix\', \'table\', \'formula\', \'matrix\', \'formula\', \'matrix\', \'data.frame\', \'formula\', \'matrix\', \'data.frame\', \'formula\', \'matrix\', \'data.frame\', \'formula\', \'trellis\', \'default\', \'default\', \'default\', NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = c(70L, 3L)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm3() {
+ assertEval("argv <- list(structure(c(0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667, 0.666666666666667), .Dim = c(1L, 9L)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm4() {
+ assertEval("argv <- list(structure(c(0L, 0L, 0L, 1L, 0L, 1L, 1L, 1L), .Dim = c(1L, 8L), .Dimnames = list(\'strata(enum)\', c(\'rx\', \'size\', \'number\', \'strata(enum)\', \'cluster(id)\', \'rx:strata(enum)\', \'size:strata(enum)\', \'number:strata(enum)\'))), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm5() {
+ assertEval("argv <- list(structure(c(9.2319289524956, -0.470372045488369, 186.857050189827), .Dim = c(1L, 3L), .Dimnames = list(\'118\', c(\'age\', \'sex\', \'meal.cal\'))), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm6() {
+ assertEval("argv <- list(structure(c(414L, 439L, 382L, 388L, 383L, 364L, 364L, 363L, 349L, 371L, 102L, 388L, 388L, 363L, 367L, 365L, 382L, 362L, 373L, 385L, 376L, 360L, 306L, 160L, 316L, 316L, 315L, 357L, 360L, 347L, 353L, 308L, 327L, 329L, 343L, 251L, 318L, 304L, 316L, 335L, 365L, 336L, 350L, 356L, 339L, 301L, 330L, 300L, 300L, 312L, 334L, 270L, 347L, 293L, 303L, 337L, 287L, 293L, 293L, 318L, 359L, 351L, 322L, 343L, 269L, 286L, 286L, 273L, 297L, 273L, 273L, 273L, 294L, 303L, 281L, 273L, 255L, 269L, 270L, 270L, 276L, 264L, 245L, 261L, 270L, 273L, 306L, 274L, 279L, 278L, 278L, 284L, 276L, 265L, 294L, 277L, 259L, 287L, 263L, 240L, 217L, 271L, 252L, 331L, 255L, 271L, 254L, 185L, 213L, 210L, 203L, 288L, 269L, 269L, 91L, 91L, 192L, 199L, 195L, 198L, 207L, 200L, 197L, 243L, 203L, 197L, 227L, 227L, 219L, 8L, NA, NA, 246L, NA, 292L, NA, 294L, NA, 19L, 373L, NA, 211L, 82L, NA, 334L, 18L, NA, 280L, NA, NA, NA, NA, 146L, NA, NA, NA, 267L, 206L, 175L, NA, NA, NA, NA, 118L, NA, NA, NA, NA, 274L, NA, NA, 187L, NA, 6L, NA, NA, 146L, 304L, NA, 52L, 67L, NA, 265L, NA, 91L, NA, NA, NA, 318L, 57L, 226L, 65L, NA, 264L, NA, NA, NA, 236L, NA, 207L, NA, NA, NA, NA, NA, NA, 23L, NA, NA, NA, NA, NA, NA, 113L, 99L, NA, NA, 14L, NA, NA, NA, NA, NA, NA, NA, 4L, NA, 167L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 165L, NA, NA, NA, NA, NA, NA, NA, NA, 11L, NA, NA, 168L, NA, NA, 120L, NA, 104L, NA, 373L, 26L, NA, NA, 253L, NA, NA, NA, NA, NA, NA, NA, NA, 260L, 114L, NA, 370L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 280L, NA, NA, NA, NA, 240L, NA, NA, NA, NA, 361L, NA, NA, NA, NA, NA, NA, NA, 188L, NA, NA, 65L, 248L, NA, NA, NA, 121L, NA, NA, NA, NA, 121L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 306L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 159L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 22L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 152L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 265L, 337L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 255L, 250L, NA, NA, NA, 203L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 213L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 169L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 241L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 269L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 284L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 249L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 307L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 322L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 350L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = c(128L, 8L), .Dimnames = list( NULL, c(\'futime\', \'e1\', \'e2\', \'e3\', \'e4\', \'e5\', \'e6\', \'e7\'))), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm7() {
+ assertEval("argv <- list(structure(c(0, -10, 0, -10, -10, 0, NA, NA, 0, 0, 0, 0, 0, 150, 0, 170, 180, 0, 0, 0, NA, 0, 0, 0, 0, 0, NA, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 310, 0, 330, 340, 0, 0, 350, 0, 370, 380, 0), .Dim = c(6L, 8L), .Dimnames = list(NULL, NULL)), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm8() {
+ assertEval("argv <- list(structure(c(544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 1539.44739946315, 1548.66655077773, 1557.88570209231, 1566.45228027983, 1575.01885846735, 1583.14083472285, 1591.26281097836, 1599.26100149451, 1607.25919201066, 1611.39689466313, 1615.5345973156, 1612.61129444623, 1609.68799157686, 1603.44643859537, 1597.20488561388, 1588.73002343463, 1580.25516125537, 1570.86127478964, 1561.46738832392, 1549.89535441445, 1538.32332050498, 1524.62526591843, 1510.92721133189, 1499.65830819836, 1488.38940506483, 1479.31388700637, 1470.23836894792, 1460.03887936132, 1449.83938977473, 1441.27547309544, 1432.71155641615, 1432.51830671501, 1432.32505701387, 1433.15763708544, 1433.99021715701, 1434.96142536256, 1435.9326335681, 1435.47421580154, 1435.01579803498, 1433.4368629411, 1431.85792784722, 1430.85617066215, 1429.85441347709, 1432.59097206397, 1435.32753065085, 1440.49425642708, 1445.66098220331, 1448.76676550395, 1451.87254880459, 1452.9163236715, 1453.96009853841, 1454.6961768366, 1455.43225513478, 1452.22362902495, 1449.01500291512, 1442.43484036078, 1435.85467780644, 1426.50159512644, 1417.14851244644, 1409.58997614642, 1402.0314398464, 1397.59624058751, 1393.16104132862, 1386.64426440334, 1380.12748747807, 1371.71107833433, 1363.2946691906, 1354.59002807904, 1345.88538696748, 1336.94914699242, 1328.01290701735, 1318.64960669271, 49.7622186359663, -84.1535032467218, -121.764781099341, 37.2870304782966, 82.528433600382, -44.2319392670254, 25.3010406627996, -34.7698782399993, 48.5709781995188, 110.301655093951, -1.96962838525201, -3.7990131710535, -51.4783734777507, 135.066608935635, 114.916035379091, -28.990712676497, -11.7078691876363, 7.04762066618673, -38.9035366827579, 16.5957688400649, -38.4931502947952, 52.0732838386475, 26.6377575984557, 329.153973076816, -13.1797869657194, 872.199160524634, 371.882552045056, -254.299568603192, -95.2920977069916, 8.63342236039193, 16.852295225008, -29.0271834604991, 13.5051131963112, 4.54091267164154, 25.5747517733375, 386.850855912621, 259.276984531009, -199.961168270532, -153.894877042003, 94.302447817031, -20.3106357794875, 21.0527247936745, -6.29056183593116, 13.9001511905426, -29.4973604406664, -31.7957066699985, -224.096013272965, -30.9544842287708, 22.3370692945275, 432.596723859509, 47.1608224545594, -304.956866078466, 50.1150369329559, 24.6852664308792, -14.4511512739648, -4.94371710626865, -19.024507596255, -56.8030453693573, -314.583543516094, 165.222305128756, 316.17817825271, 23.9168069434991, 11.9598796643579, -128.904953645213, 0.419804589665318, -6.80218287850425, 29.2691824505584, 53.9010951754703, 40.9447832426993, -26.2505972353374, -41.4479380870087, -214.837325417531, 2134, 1863, 1877, 1877, 1492, 1249, 1280, 1131, 1209, 1492, 1621, 1846, 2103, 2137, 2153, 1833, 1403, 1288, 1186, 1133, 1053, 1347, 1545, 2066, 2020, 2750, 2283, 1479, 1189, 1160, 1113, 970, 999, 1208, 1467, 2059, 2240, 1634, 1722, 1801, 1246, 1162, 1087, 1013, 959, 1179, 1229, 1655, 2019, 2284, 1942, 1423, 1340, 1187, 1098, 1004, 970, 1140, 1110, 1812, 2263, 1820, 1846, 1531, 1215, 1075, 1056, 975, 940, 1081, 1294, 1341), .Dim = c(72L, 4L), .Dimnames = list(NULL, c(\'STL.seasonal\', \'STL.trend\', \'STL.remainder\', \'data\')), .Tsp = c(1974, 1979.91666666667, 12), class = c(\'mts\', \'ts\', \'matrix\')), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm9() {
+ assertEval("argv <- list(structure(c(0.36376697930799, 0.252815298286177, 0.144820268657847, 0.059950033165656, 0.0137701755391906, 0.00220408917547991, 6.22489401973083e-05, -0.36376697846279, -0.252815298708777, -0.144820267390048, -0.0599500327958813, -0.0137701747732286, -0.00220408987788688, -6.22486118855004e-05), .Dim = c(7L, 2L, 1L)), 1:3, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm10() {
+ assertEval("argv <- list(structure(c(32, 53, 10, 3, 11, 50, 10, 30, 10, 25, 7, 5, 3, 15, 7, 8, 36, 66, 16, 4, 9, 34, 7, 64, 5, 29, 7, 5, 2, 14, 7, 8), .Dim = c(4L, 4L, 2L), .Dimnames = structure(list(Hair = c(\'Black\', \'Brown\', \'Red\', \'Blond\'), Eye = c(\'Brown\', \'Blue\', \'Hazel\', \'Green\'), Sex = c(\'Male\', \'Female\')), .Names = c(\'Hair\', \'Eye\', \'Sex\')), class = \'table\'), c(3L, 1L, 2L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm11() {
+ assertEval("argv <- list(structure(list(3, 3, 3, 3, 3, \'fred\'), .Dim = 2:3), NULL, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm12() {
+ assertEval("argv <- list(structure(c(1, 0, -1, 0.5, -0.5, NA, NA, NA, 0), .Dim = c(3L, 3L)), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm13() {
+ assertEval("argv <- list(structure(c(\' Null deviance:\', \'Residual deviance:\', \'3.118557\', \'0.012672\', \' on\', \' on\', \'8\', \'7\', \' degrees of freedom\\n\', \' degrees of freedom\\n\'), .Dim = c(2L, 5L), .Dimnames = list(c(\'null.deviance\', \'deviance\'), NULL)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm14() {
+ assertEval("argv <- list(structure(character(0), .Dim = c(3L, 0L, 2L)), 1:3, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm15() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(5L, 20L), .Dimnames = list(c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\'), NULL)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm16() {
+ assertEval("argv <- list(structure(c(0.537261763078809+0i, 0.305061935059249+0.040985454461732i, 0.320062315956695-0.375563080684187i, 0.339383913939873+0.23302799386284i, -0.286918674221019+0.348301421162371i, 0.333809303929022+0i, -0.026432475532662-0.117484096686937i, 0.337897321317337+0.476009430788475i, -0.104431629205049-0.683873316213355i, -0.076600108155357+0.221030150757328i, 0.0283375771475593+0i, -0.439625821284244+0.725562264268455i, -0.093252555843956-0.328135936730845i, 0.099659684890077-0.362886081139892i, -0.146024566266657+0.013219412797458i, 0.437826208287688+0i, -0.047393587739568+0.297523229473226i, 0.053640336864496+0.244704251340016i, 0.189395328272566+0.197948900656662i, 0.744900728861518-0.157648587806964i, -0.63829956885596+0i, 0.190923866036828+0.209348060979014i, 0.478761262752136+0.086103851005322i, 0.365383456834977-0.041833555661111i, 0.222902888615007+0.301211043305794i), .Dim = c(5L, 5L)), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm17() {
+ assertEval("argv <- list(structure(c(\'add1\', \'anova\', \'coef\', \'confint\', \'drop1\', \'extractAIC\', \'logLik\', \'model.frame\', \'predict\', \'print\', \'print\', \'summary\', \'vcov\', \'coef\', \'predict\', \'print\', \'print\', \'summary\', \'nnet\', \'nnet\', \'multinom\', \'multinom\', \'multinom\', \'multinom\', \'multinom\', \'multinom\', \'multinom\', \'multinom\', \'multinom\', \'multinom\', \'summary.multinom\', \'multinom\', \'multinom\', \'nnet\', \'nnet\', \'nnet\', \'summary.nnet\', \'nnet\', \'default\', \'formula\', NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = c(20L, 3L)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm18() {
+ assertEval("argv <- list(structure(c(NA, NA, NA), .Dim = 3L), 1L, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm19() {
+ assertEval("argv <- list(structure(c(4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 4000, 8000, 12000, 16000, 20000, 24000, 28000, 32000, 36000, 40000, 44000, 48000, 8, 16, 24, 32, 40, 48, 56, 64, 72, 80, 88, 96, 8000, 16000, 24000, 32000, 40000, 48000, 56000, 64000, 72000, 80000, 88000, 96000, 12, 24, 36, 48, 60, 72, 84, 96, 108, 120, 132, 144, 12000, 24000, 36000, 48000, 60000, 72000, 84000, 96000, 108000, 120000, 132000, 144000, 16, 32, 48, 64, 80, 96, 112, 128, 144, 160, 176, 192, 16000, 32000, 48000, 64000, 80000, 96000, 112000, 128000, 144000, 160000, 176000, 192000, 20, 40, 60, 80, 100, 120, 140, 160, 180, 200, 220, 240, 20000, 40000, 60000, 80000, 1e+05, 120000, 140000, 160000, 180000, 2e+05, 220000, 240000, 24, 48, 72, 96, 120, 144, 168, 192, 216, 240, 264, 288, 24000, 48000, 72000, 96000, 120000, 144000, 168000, 192000, 216000, 240000, 264000, 288000, 28, 56, 84, 112, 140, 168, 196, 224, 252, 280, 308, 336, 28000, 56000, 84000, 112000, 140000, 168000, 196000, 224000, 252000, 280000, 308000, 336000, 32, 64, 96, 128, 160, 192, 224, 256, 288, 320, 352, 384, 32000, 64000, 96000, 128000, 160000, 192000, 224000, 256000, 288000, 320000, 352000, 384000, 36, 72, 108, 144, 180, 216, 252, 288, 324, 360, 396, 432, 36000, 72000, 108000, 144000, 180000, 216000, 252000, 288000, 324000, 360000, 396000, 432000, 40, 80, 120, 160, 200, 240, 280, 320, 360, 400, 440, 480, 40000, 80000, 120000, 160000, 2e+05, 240000, 280000, 320000, 360000, 4e+05, 440000, 480000, 44, 88, 132, 176, 220, 264, 308, 352, 396, 440, 484, 528, 44000, 88000, 132000, 176000, 220000, 264000, 308000, 352000, 396000, 440000, 484000, 528000, 48, 96, 144, 192, 240, 288, 336, 384, 432, 480, 528, 576, 48000, 96000, 144000, 192000, 240000, 288000, 336000, 384000, 432000, 480000, 528000, 576000, 52, 104, 156, 208, 260, 312, 364, 416, 468, 520, 572, 624, 52000, 104000, 156000, 208000, 260000, 312000, 364000, 416000, 468000, 520000, 572000, 624000, 56, 112, 168, 224, 280, 336, 392, 448, 504, 560, 616, 672, 56000, 112000, 168000, 224000, 280000, 336000, 392000, 448000, 504000, 560000, 616000, 672000, 60, 120, 180, 240, 300, 360, 420, 480, 540, 600, 660, 720, 60000, 120000, 180000, 240000, 3e+05, 360000, 420000, 480000, 540000, 6e+05, 660000, 720000, 64, 128, 192, 256, 320, 384, 448, 512, 576, 640, 704, 768, 64000, 128000, 192000, 256000, 320000, 384000, 448000, 512000, 576000, 640000, 704000, 768000, 68, 136, 204, 272, 340, 408, 476, 544, 612, 680, 748, 816, 68000, 136000, 204000, 272000, 340000, 408000, 476000, 544000, 612000, 680000, 748000, 816000, 72, 144, 216, 288, 360, 432, 504, 576, 648, 720, 792, 864, 72000, 144000, 216000, 288000, 360000, 432000, 504000, 576000, 648000, 720000, 792000, 864000, 76, 152, 228, 304, 380, 456, 532, 608, 684, 760, 836, 912, 76000, 152000, 228000, 304000, 380000, 456000, 532000, 608000, 684000, 760000, 836000, 912000, 80, 160, 240, 320, 400, 480, 560, 640, 720, 800, 880, 960, 80000, 160000, 240000, 320000, 4e+05, 480000, 560000, 640000, 720000, 8e+05, 880000, 960000, 84, 168, 252, 336, 420, 504, 588, 672, 756, 840, 924, 1008, 84000, 168000, 252000, 336000, 420000, 504000, 588000, 672000, 756000, 840000, 924000, 1008000, 88, 176, 264, 352, 440, 528, 616, 704, 792, 880, 968, 1056, 88000, 176000, 264000, 352000, 440000, 528000, 616000, 704000, 792000, 880000, 968000, 1056000, 92, 184, 276, 368, 460, 552, 644, 736, 828, 920, 1012, 1104, 92000, 184000, 276000, 368000, 460000, 552000, 644000, 736000, 828000, 920000, 1012000, 1104000, 96, 192, 288, 384, 480, 576, 672, 768, 864, 960, 1056, 1152, 96000, 192000, 288000, 384000, 480000, 576000, 672000, 768000, 864000, 960000, 1056000, 1152000), .Dim = c(3L, 4L, 2L, 3L, 4L, 2L), .Dimnames = list(c(\'A\', \'B\', \'C\'), c(\'D\', \'E\', \'F\', \'G\'), c(\'frequentist\', \'bayesian\'), NULL, NULL, c(\'happy\', \'sad\'))), c(4L, 1L, 5L, 2L, 6L, 3L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm20() {
+ assertEval("argv <- list(structure(1:24, .Dim = c(4L, 6L), .Dimnames = structure(list(happy = c(\'a\', \'b\', \'c\', \'d\'), sad = c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\')), .Names = c(\'happy\', \'sad\'))), c(2, 1), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm21() {
+ assertEval("argv <- list(structure(1:120, .Dim = 2:5, .Dimnames = list(NULL, c(\'a\', \'b\', \'c\'), NULL, c(\'V5\', \'V6\', \'V7\', \'V8\', \'V9\'))), 1:4, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm22() {
+ assertEval("argv <- list(structure(c(\' Null deviance:\', \'Residual deviance:\', \'67.5316\', \' 4.5512\', \' on\', \' on\', \'9\', \'7\', \' degrees of freedom\\n\', \' degrees of freedom\\n\'), .Dim = c(2L, 5L), .Dimnames = list(c(\'null.deviance\', \'deviance\'), NULL)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm23() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE), .Dim = c(3L, 1L)), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm24() {
+ assertEval("argv <- list(structure(c(3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3, 4, 5), .Dim = c(8L, 2L), .Dimnames = list(c(\'a\', \'b\', \'c\', \'d\', \'e\', \'f\', \'g\', \'h\'), c(\'x1\', \'x2\'))), c(2L, 1L), TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaperm25() {
+ assertEval("argv <- list(structure(c(0, 1.23517986278748, 1.95771376416406, 2.47035972557496, 2.86799882564536, 3.19289362695154, 3.46758826742286, 3.70553958836244, 3.91542752832811, 4.10317868843284, 4.27302027203108, 4.42807348973901, 4.57070862330685, 4.70276813021034, 4.82571258980942, 4.94071945114991, 5.04875179140451, 5.15060739111559, 5.2469545231864, 5.33835855122032, 5.42530203158692, 5.50820013481856, 5.58741263619316, 5.66325335252649, 5.73599765129073, 5.80588848609433, 5.87314129249217, 5.93794799299782, 6.00048029898585, 6.0608924525969, 6.11932351888589, 6.17589931393739, 6.23073403619514, 6.28393165419199, 6.33558709306823, 6.38578725390307, 6.43461189335533, 6.48213438597388, 6.52842238747091, 6.5735384140078, 6.61754034994095, 6.6604818943744, 6.70241295516147, 6.74337999760604, 6.78342635397348, 6.82259249898064, 6.86091629565604, 6.89843321531397, 6.93517653484573, 6.97117751407821, 7.00646555556857, 7.04106834888181, 7.07501200112497, 7.10832115527965, 7.14101909767645, 7.1731278557853, 7.20466828735046, 7.23566016177333, 7.26612223453848, 7.29607231538438, 7.3255273308395, 7.35450338167337, 7.38301579575098, 7.41107917672487, 7.43870744895221, 7.46591389898262, 7.49271121392624, 7.51911151697947, 7.54512640035722, 7.57076695585571, 7.59604380324749, 7.62096711669055, 7.64554664931599, 7.66979175614282, 7.69371141545478, 7.71731424876136, 7.74060853945395, 7.76360225025839, 7.78630303957574, 7.80871827679528, 7.83085505665623, 7.85272021272842, 7.87432033007586, 7.89566175716188, 7.91675061704988, 7.93759281794895, 7.95819406314991, 7.97855986039352, 7.99869553070936, 8.01860621676096, 8.03829689072971, 8.05777236176812, 8.07703728304995, 8.09609615844352, 8.11495334883177, 8.13361307810145, 8.15207943882202, 8.17035639763321, 8.1884478003592, 8.20635737686569, 5.76558893216369, 5.5342688729893, 5.69366159038267, 6.17674775070929, 6.08762735966107, 6.68653280779044, 6.70253591217234, 6.32938323618963, 6.81735284786279, 6.64835766778347, 6.91213030655848, 7.1496842781073, 7.25682341590407, 7.46164094256645, 7.37149913131863, 7.56470707593246, 7.71334191900841, 7.71375128844693, 7.82793409372511, 7.90749319121623, 7.96255733207686, 8.11381187364273, 8.21211505208663, 8.18427543602736, 8.29133399017863, 8.31295002652197, 8.345677476918, 8.39053879616249, 8.40857122007675, 8.48086068897741, 8.7064475146364, 8.66563269607315, 8.79435721712053, 8.7996087849725, 8.82443395257555, 8.91314507957224, 8.8999544270272, 8.96760168103462, 8.93548690078514, 9.01332239000153, 9.07083338712431, 9.15422051683385, 9.20109302097792, 9.2062218972166, 9.31170984199071, 9.30909253379462, 9.35447695163181, 9.45333740615033, 9.41458248768079, 9.46983861007334, 9.51652628670815, 9.5301888386762, 9.59497468213833, 9.61268143770055, 9.64141492393412, 9.68857453461133, 9.77580537125637, 9.79816256416163, 9.79128849346381, 9.80699184934282, 9.91833626833319, 9.95487179604373, 9.88086373278725, 9.93505313047982, 9.97034080826287, 9.97752630228797, 10.1165750634827, 10.0977558023188, 10.1414502841663, 10.129071787117, 10.166774063688, 10.1792762662323, 10.2172491181904, 10.2670710204409, 10.2742314938915, 10.287876622612, 10.3447249333494, 10.4075370351282, 10.3465199067119, 10.4404223214255, 10.422301774768, 10.4739543513507, 10.5314461891317, 10.4813429169605, 10.5097541699286, 10.5389544549716, 10.5752633644781, 10.6133054015308, 10.6776080133421, 10.6266190058322, 10.6657950921482, 10.7067723709738, 10.7424707425861, 10.7418659657784, 10.7335163259687, 10.780101845273, 10.8334343829096, 10.8616735406708, 10.8535694508523, 10.8900668188725), .Dim = c(100L, 2L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\'), c(\'log(x)\', \'log(z)\'))), 1:2, TRUE); .Internal(aperm(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinaregexec.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinaregexec.java
new file mode 100644
index 0000000000000000000000000000000000000000..64f03afba22d55a93c089bfac78517184c4cb8fc
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinaregexec.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinaregexec extends TestBase {
+
+ @Test
+ @Ignore
+ public void testaregexec1() {
+ assertEval("argv <- list(\'FALSE\', \'FALSE\', c(0.1, NA, NA, NA, NA), c(1L, 1L, 1L), FALSE, FALSE, FALSE); .Internal(aregexec(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testaregexec2() {
+ assertEval("argv <- list(\'(lay)(sy)\', c(\'1 lazy\', \'1\', \'1 LAZY\'), c(2, NA, NA, NA, NA), c(1L, 1L, 1L), FALSE, FALSE, FALSE); .Internal(aregexec(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinargs.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinargs.java
new file mode 100644
index 0000000000000000000000000000000000000000..df85402c97c53a391521d292d2849b69a9fef9ca
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinargs.java
@@ -0,0 +1,48 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinargs extends TestBase {
+
+ @Test
+ @Ignore
+ public void testargs1() {
+ assertEval("argv <- list(NULL); .Internal(args(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testargs2() {
+ assertEval("argv <- list(character(0)); .Internal(args(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testargs3() {
+ assertEval("argv <- list(.Primitive(\':\')); .Internal(args(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testargs4() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\')); .Internal(args(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testargs5() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(args(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinarray.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinarray.java
new file mode 100644
index 0000000000000000000000000000000000000000..89597a1de667037ea2f84d5a7441560b9f9a1218
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinarray.java
@@ -0,0 +1,172 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinarray extends TestBase {
+
+ @Test
+ @Ignore
+ public void testarray1() {
+ assertEval("argv <- list(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L), 59L, structure(list(dr = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59.5\')), .Names = \'dr\')); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testarray2() {
+ assertEval("argv <- list(FALSE, FALSE, NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray3() {
+ assertEval("argv <- list(2.10239639473973e-05, c(1L, 1L), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray4() {
+ assertEval("argv <- list(0, c(105L, 1L), list(NULL, structure(\'d\', .Names = \'CURVE\'))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray5() {
+ assertEval("argv <- list(structure(list(`1` = structure(list(lower = 13.2743449189798, est. = 24.8054653131966, upper = 46.3534067526313), .Names = c(\'lower\', \'est.\', \'upper\'), row.names = \'reStruct.Rail.sd((Intercept))\', class = \'data.frame\')), .Names = \'1\'), c(1L, 1L), list(\'1\', NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testarray6() {
+ assertEval("argv <- list(0, 61, NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray7() {
+ assertEval("argv <- list(c(10L, 10L, 11L, 10L, 12L, 11L, 13L, 12L, 14L, 13L, 15L, 14L, 16L, 15L, 17L, 16L, 18L, 17L, 19L, 18L, 20L, 19L, 21L, 20L, 22L, 21L, 23L, 22L, 24L, 23L, 25L, 24L, 26L, 25L, 27L, 26L, 28L, 27L, 29L, 28L, 30L, 29L, 31L, 30L, 32L, 31L, 33L, 32L, 34L, 33L, 35L, 34L, 36L, 35L, 37L, 36L, 38L, 36L, 39L, 38L, 40L, 39L), c(2L, 31L), list(c(\'target\', \'actual\'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testarray8() {
+ assertEval("argv <- list(c(NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), c(30L, 1L), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray9() {
+ assertEval("argv <- list(integer(0), c(1L, 0L), structure(list(\'1\', NULL), .Names = c(\'\', \'\'))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray10() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), c(5L, 16L), list(c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray11() {
+ assertEval("argv <- list(list(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL), 8L, list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\'))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray12() {
+ assertEval("argv <- list(c(-Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 3, 5, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1.5, 3.2, 4.9, Inf, Inf, Inf, -Inf, -Inf, 0.300000000000001, 2, 3.7, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.2, 2, 3.8, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.4, 2, 3.6, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.266666666666667, 2, 3.73333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.275, 2, 3.725, Inf, Inf, Inf, Inf), c(9L, 9L), list(c(\'20%\', \'30%\', \'40%\', \'50%\', \'60%\', \'70%\', \'80%\', \'90%\', \'100%\'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray13() {
+ assertEval("argv <- list(NA, 1L, list(\'1\')); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testarray14() {
+ assertEval("argv <- list(logical(0), 0L, NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray15() {
+ assertEval("argv <- list(structure(c(-5.3088868291531, 5.2393213877113, -5.301817110509, 5.29234872074472), .Names = c(\'5%\', \'95%\', \'5%\', \'95%\')), c(2, 2), list(c(\'5%\', \'95%\'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray16() {
+ assertEval("argv <- list(c(1L, 0L), 2L, structure(list(object = c(\'FALSE\', NA)), .Names = \'object\')); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testarray17() {
+ assertEval("argv <- list(c(\'\', \'\', \'\'), c(3, 1), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testarray18() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), 0L, NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray19() {
+ assertEval("argv <- list(structure(c(31.9166666666667, -5.77777777777778, -10.4101831674686, -2.63888888888889, NA), .Names = c(\'(Intercept)\', \'woolB\', \'tens.L\', \'tensionM\', \'tensionH\')), c(5L, 1L), list(c(\'(Intercept)\', \'woolB\', \'tens.L\', \'tensionM\', \'tensionH\'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray20() {
+ assertEval("argv <- list(c(0.92317305817397+0i, 0.160449395256071+0.220125597679977i, 0.40353715410585+2.39063261466203i, -3.64092275386503+3.51619480964107i, -0.30877433127864+1.37503901638266i, -0.5590368753986+2.95994484328048i, 2.07117052177259-1.58552086053907i, 5.12796916272868+5.50114308371867i, 0.71791019962021-4.36295436036464i, 3.6182846955548+0.01693946731429i, 5.86560669896785+3.41674024963709i, 7.14153164455803+0i, 5.86560669896785-3.41674024963709i, 3.6182846955548-0.01693946731429i, 0.71791019962021+4.36295436036464i, 5.12796916272868-5.50114308371867i, 2.07117052177259+1.58552086053907i, -0.5590368753986-2.95994484328048i, -0.30877433127864-1.37503901638266i, -3.64092275386503-3.51619480964107i, 0.40353715410585-2.39063261466203i, 0.160449395256071-0.220125597679976i, 0.994686860835215+0i, -0.711636086238366+0.034977366507257i, -3.47255638259391-3.00654729467177i, -1.61617641806619-2.52564108817258i, -1.83729841635945+1.24025696654912i, -0.05940773912914+1.99807537840182i, 2.14861624215501+1.14547234755584i, -0.18935885218927+5.11711397439959i, 3.55025883223277-3.01463113510177i, 0.37587194655463-4.62160286369829i, -0.57999032040714+3.57394816552023i, -3.22078701201057+0i, -0.57999032040714-3.57394816552023i, 0.37587194655463+4.62160286369829i, 3.55025883223277+3.01463113510177i, -0.18935885218927-5.11711397439959i, 2.14861624215501-1.14547234755584i, -0.05940773912914-1.99807537840182i, -1.83729841635945-1.24025696654912i, -1.61617641806619+2.52564108817258i, -3.47255638259391+3.00654729467177i, -0.711636086238366-0.034977366507256i, -0.376031201145236+0i, 0.36561036190112-2.94822783523588i, 2.53378536984825+1.14599403212998i, -0.59345500414631-1.46249091231517i, -5.47371957596241-2.40983118775265i, 0.994698295196402+0.827012883372647i, 4.88614691865207-0.66440097322583i, -1.22869446246947-1.85036568311679i, 4.54719422944744-1.7507307644741i, -1.25805718969215-0.46461775748286i, -6.6950163960079-1.32606545879492i, -1.8510470181104-0i, -6.6950163960079+1.32606545879492i, -1.25805718969215+0.46461775748286i, 4.54719422944744+1.7507307644741i, -1.22869446246947+1.85036568311679i, 4.88614691865207+0.66440097322583i, 0.994698295196402-0.827012883372647i, -5.47371957596241+2.40983118775265i, -0.59345500414631+1.46249091231517i, 2.53378536984825-1.14599403212998i, 0.36561036190112+2.94822783523588i, 1.86949363581639+0i, 3.2510927680528+3.7297126359622i, 5.77117909703734-0.58113122596059i, -2.73489323319193-2.03739778844743i, 1.59256247378073-3.23882870600546i, -2.21652163259476+3.70287191787544i, -6.80966667821261-4.74346958471693i, -0.48551953206469-3.42445496113818i, -4.95350216815663-1.60107509096991i, -0.651322462114205+0.588393022429161i, 3.32067078328635+3.75999833207777i, -1.35013798358527+0i, 3.32067078328635-3.75999833207777i, -0.651322462114205-0.588393022429161i, -4.95350216815663+1.60107509096991i, -0.48551953206469+3.42445496113818i, -6.80966667821261+4.74346958471693i, -2.21652163259476-3.70287191787544i, 1.59256247378073+3.23882870600546i, -2.73489323319193+2.03739778844743i, 5.77117909703734+0.58113122596059i, 3.2510927680528-3.7297126359622i, -3.90806827793786+0i, -4.10078155861753-4.25996878161911i, -0.63461032994351-2.08074582601136i, -0.10593736514835-3.82022652091785i, 6.14817602783479+2.33657685886581i, 0.64431546852762-1.776774088028i, 3.43771282488202-3.00904523977379i, -3.6812061457129+3.53944567666635i, 3.07722382691467+4.5373840425762i, 3.3679046040028+7.20820407858926i, 7.47003475089893-0.4463480891006i, 13.9322715624418-0i, 7.47003475089893+0.4463480891006i, 3.3679046040028-7.20820407858926i, 3.07722382691467-4.5373840425762i, -3.6812061457129-3.53944567666635i, 3.43771282488202+3.00904523977379i, 0.64431546852762+1.776774088028i, 6.14817602783479-2.33657685886581i, -0.10593736514835+3.82022652091785i, -0.63461032994351+2.08074582601136i, -4.10078155861753+4.25996878161911i), c(22, 5), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testarray21() {
+ assertEval("argv <- list(NA, c(1, 4), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testarray22() {
+ assertEval("argv <- list(structure(c(-0.350406242534262, -0.350406242534262, -3.35040624253426, 0.649593757465738, 1.64959375746574, 17.755677101477, 7.755677101477, -11.3171453341876, 5.68285466581244, -11.3171453341876, -2.31714533418756, 6.68285466581244, -16.3171453341876, 8.38722300809366, 42.3872230080937, 13.3872230080937, 27.8866653386156, -25.1133346613844, 7.88666533861561, -21.1133346613844, 9.71094990017841, 5.71094990017841, 26.7109499001784, -7.28905009982159, 21.7109499001784, -20.2890500998216, 6.226070726676, -15.773929273324, -28.773929273324, 14.226070726676, -14.773929273324, 21.226070726676, 6.226070726676, 29.226070726676, 13.226070726676, -1.18678877265756, 15.8132112273424, 1.81321122734244, 25.8132112273424, -0.186788772657565, 3.81321122734244, -10.1867887726576, 15.8132112273424, 9.81321122734244, 9.81321122734244, -35.0551967576179, 14.9448032423821, 13.9448032423821, -17.0551967576179, -6.05519675761792, -17.7296046985831, 14.9139035439664), gradient = structure(c(0, 0, 0, 0, 0, 56.989995924654, 56.989995924654, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 109.608811230383, 109.608811230383, 109.608811230383, 107.478028232287, 107.478028232287, 107.478028232287, 107.478028232287, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 10.7055301785859, 0, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 0.914597467778369, 0.914597467778369, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.599195286063472, 0.599195286063472, 0.599195286063472, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0202635232425103, 2.60032456603692e-08, 0, 0, 0, 0, 0, 0.165626203544259, 0.165626203544259, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.503396799290371, 0.503396799290371, 0.503396799290371, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.984387422945875, 0.999999996451695), .Dim = c(52L, 3L))), c(52L, 1L), NULL); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray23() {
+ assertEval("argv <- list(c(1L, 2L, 1L), 3L, structure(list(c(\'1\', \'2\', NA)), .Names = \'\')); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray24() {
+ assertEval("argv <- list(c(4L, 10L, 16L, 22L, 28L, 34L, 40L, 46L, 52L, 58L, 64L, 70L, 76L, 82L, 88L, 94L, 100L, 106L, 112L, 118L), 4:5, list(NULL, c(\'V5\', \'V6\', \'V7\', \'V8\', \'V9\'))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray25() {
+ assertEval("argv <- list(c(1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 12, 12, 12, 12, 12, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 17, 17, 17, 17, 17, 18, 18, 18, 18, 18, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 23, 23, 23, 23, 23, 24, 24, 24, 24, 24, 25, 25, 25, 25, 25, 26, 26, 26, 26, 26, 27, 27, 27, 27, 27, 28, 28, 28, 28, 28, 29, 29, 29, 29, 29, 30, 30, 30, 30, 30, 31, 31, 31, 31, 31, 32, 32, 32, 32, 32, 33, 33, 33, 33, 33, 34, 34, 34, 34, 34, 35, 35, 35, 35, 35, 36, 36, 36, 36, 36, 37, 37, 37, 37, 37, 38, 38, 38, 38, 38, 39, 39, 39, 39, 39, 40, 40, 40, 40, 40, 41, 41, 41, 41, 41, 42, 42, 42, 42, 42, 43, 43, 43, 43, 43, 44, 44, 44, 44, 44, 45, 45, 45, 45, 45, 46, 46, 46, 46, 46, 47, 47, 47, 47, 47, 48, 48, 48, 48, 48, 49, 49, 49, 49, 49, 50, 50, 50, 50, 50, 51, 51, 51, 51, 51, 52, 52, 52, 52, 52, 53, 53, 53, 53, 53, 54, 54, 54, 54, 54, 55, 55, 55, 55, 55, 56, 56, 56, 56, 56, 57, 57, 57, 57, 57, 58, 58, 58, 58, 58, 59, 59, 59, 59, 59, 60, 60, 60, 60, 60, 61, 61, 61, 61, 61, 62, 62, 62, 62, 62, 63, 63, 63, 63, 63, 64, 64, 64, 64, 64, 65, 65, 65, 65, 65, 66, 66, 66, 66, 66, 67, 67, 67, 67, 67, 68, 68, 68, 68, 68, 69, 69, 69, 69, 69, 70, 70, 70, 70, 70, 71, 71, 71, 71, 71, 72, 72, 72, 72, 72, 73, 73, 73, 73, 73, 74, 74, 74, 74, 74, 75, 75, 75, 75, 75, 76, 76, 76, 76, 76, 77, 77, 77, 77, 77, 78, 78, 78, 78, 78, 79, 79, 79, 79, 79, 80, 80, 80, 80, 80, 81, 81, 81, 81, 81, 82, 82, 82, 82, 82, 83, 83, 83, 83, 83, 84, 84, 84, 84, 84, 85, 85, 85, 85, 85, 86, 86, 86, 86, 86, 87, 87, 87, 87, 87, 88, 88, 88, 88, 88, 89, 89, 89, 89, 89, 90, 90, 90, 90, 90, 91, 91, 91, 91, 91, 92, 92, 92, 92, 92, 93, 93, 93, 93, 93, 94, 94, 94, 94, 94, 95, 95, 95, 95, 95, 96, 96, 96, 96, 96, 97, 97, 97, 97, 97, 98, 98, 98, 98, 98, 99, 99, 99, 99, 99, 100, 100, 100, 100, 100, 101, 101, 101, 101, 101, 102, 102, 102, 102, 102, 103, 103, 103, 103, 103, 104, 104, 104, 104, 104, 105, 105, 105, 105, 105, 106, 106, 106, 106, 106, 107, 107, 107, 107, 107, 108, 108, 108, 108, 108, 109, 109, 109, 109, 109, 110, 110, 110, 110, 110, 111, 111, 111, 111, 111, 112, 112, 112, 112, 112, 113, 113, 113, 113, 113, 114, 114, 114, 114, 114, 115, 115, 115, 115, 115, 116, 116, 116, 116, 116, 117, 117, 117, 117, 117, 118, 118, 118, 118, 118, 119, 119, 119, 119, 119, 120, 120, 120, 120, 120), c(5, 2, 3, 4, 5), list(NULL, NULL, c(\'a\', \'b\', \'c\'), NULL, c(\'V5\', \'V6\', \'V7\', \'V8\', \'V9\'))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray26() {
+ assertEval("argv <- list(\'\', c(4L, 3L), list(c(\'<none>\', \'Hair:Eye\', \'Hair:Sex\', \'Eye:Sex\'), c(\'Df\', \'Deviance\', \'AIC\'))); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testarray27() {
+ assertEval("argv <- list(-1, c(3L, 2L), list(c(\'a\', \'b\', \'c\'), NULL)); .Internal(array(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasPOSIXct.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasPOSIXct.java
new file mode 100644
index 0000000000000000000000000000000000000000..fae82586ce2abf889e4d67c4b33b75aa18fc350b
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasPOSIXct.java
@@ -0,0 +1,96 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinasPOSIXct extends TestBase {
+
+ @Test
+ @Ignore
+ public void testasPOSIXct1() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 109L, wday = 4L, yday = 0L, isdst = 0L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'UTC\'), \'UTC\'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXct2() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1, mon = c(11, 12, 13, 14), year = 100L, wday = 0L, yday = 365L, isdst = -1L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'GMT\'), \'GMT\'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXct3() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = -3L, mon = 1L, year = 102L, wday = 6L, yday = 32L, isdst = -1L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = c(\'\', \'EST\', \'EDT\')), \'\'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXct4() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 12L, mday = 1L, mon = 0L, year = c(70L, 75L, 80L, 85L, 90L, 95L, 100L, 105L, 110L, 115L), wday = 4L, yday = 0L, isdst = -1L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'GMT\'), \'GMT\'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXct5() {
+ assertEval("argv <- list(structure(list(sec = numeric(0), min = integer(0), hour = integer(0), mday = integer(0), mon = integer(0), year = integer(0), wday = integer(0), yday = integer(0), isdst = integer(0)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\')), \'\'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXct6() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = -5L, wday = 2L, yday = 0L, isdst = 0L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'GMT\'), \'GMT\'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXct7() {
+ assertEval("argv <- list(structure(list(sec = NA_real_, min = NA_integer_, hour = NA_integer_, mday = NA_integer_, mon = NA_integer_, year = NA_integer_, wday = NA_integer_, yday = NA_integer_, isdst = -1L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'GMT\'), \'GMT\'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXct8() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 70L, wday = 4L, yday = 0L, isdst = 0L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'GMT\'), \'GMT\'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXct9() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 22:27, mon = 3L, year = 108L, wday = 2L, yday = 112L, isdst = -1L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'GMT\'), \'GMT\'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXct10() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1, mon = 1L, year = 109L, wday = 0L, yday = 31L, isdst = -1), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'UTC\'), \'UTC\'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXct11() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49), year = 105L, wday = 6L, yday = 0L, isdst = -1L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'UTC\'), \'UTC\'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXct12() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 2L, hour = 2L, mday = 2L, mon = 1L, year = c(102L, 1102L), wday = 6L, yday = 32L, isdst = -1L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = c(\'\', \'EST\', \'EDT\')), \'\'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXct13() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = c(2L, 4L, 6L, 8L, 10L, 12L, 14L, 16L, 18L, 20L, 22L, 24L, 26L, 28L, 30L, 32L), mon = 1L, year = 102L, wday = 6L, yday = 32L, isdst = -1L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = c(\'\', \'EST\', \'EDT\')), \'\'); .Internal(as.POSIXct(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasPOSIXlt.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasPOSIXlt.java
new file mode 100644
index 0000000000000000000000000000000000000000..0975909aa1f0c96b774acd400a590186a3c6d05a
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasPOSIXlt.java
@@ -0,0 +1,84 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinasPOSIXlt extends TestBase {
+
+ @Test
+ @Ignore
+ public void testasPOSIXlt1() {
+ assertEval("argv <- list(structure(c(2147483648.4, 2147483648.8), class = c(\'POSIXct\', \'POSIXt\'), tzone = \'\'), \'\'); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXlt2() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE), class = c(\'POSIXct\', \'POSIXt\')), \'\'); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXlt3() {
+ assertEval("argv <- list(structure(1041324768, class = c(\'POSIXct\', \'POSIXt\'), tzone = \'GMT\'), \'GMT\'); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXlt4() {
+ assertEval("argv <- list(structure(c(1208865600, 1208952000, 1209038400, 1209124800, 1209211200), tzone = \'GMT\', class = c(\'POSIXct\', \'POSIXt\')), \'GMT\'); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXlt5() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), \'\'); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXlt6() {
+ assertEval("argv <- list(structure(32569542120, class = c(\'POSIXct\', \'POSIXt\')), \'\'); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXlt7() {
+ assertEval("argv <- list(structure(c(1012798800, 1013403600, 1014008400, 1014613200), class = c(\'POSIXct\', \'POSIXt\'), tzone = \'\'), \'\'); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXlt8() {
+ assertEval("argv <- list(structure(c(-1893412800, -1861876800, -1830340800, -1798718400, -1767182400, -1735646400, -1704110400, -1672488000, -1640952000, -1609416000, -1577880000, -1546257600, -1514721600, -1483185600, -1451649600, -1420027200, -1388491200, -1356955200, -1325419200, -1293796800, -1262260800, -1230724800, -1199188800, -1167566400, -1136030400, -1104494400, -1072958400, -1041336000, -1009800000, -978264000, -946728000, -915105600, -883569600, -852033600, -820497600, -788875200, -757339200, -725803200, -694267200, -662644800, -631108800, -599572800, -568036800, -536414400, -504878400, -473342400, -441806400, -410184000, -378648000, -347112000, -315576000, -283953600, -252417600, -220881600, -189345600, -157723200, -126187200, -94651200, -63115200, -31492800, 43200, 31579200, 63115200, 94737600, 126273600, 157809600, 189345600, 220968000, 252504000, 284040000, 315576000, 347198400, 378734400, 410270400, 441806400, 473428800, 504964800, 536500800, 568036800, 599659200, 631195200, 662731200, 694267200, 725889600, 757425600, 788961600, 820497600, 852120000, 883656000, 915192000), class = c(\'POSIXct\', \'POSIXt\'), tzone = \'GMT\'), \'GMT\'); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXlt9() {
+ assertEval("argv <- list(list(), \'\'); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXlt10() {
+ assertEval("argv <- list(character(0), \'\'); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasPOSIXlt11() {
+ assertEval("argv <- list(NULL, \'\'); .Internal(as.POSIXlt(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinascall.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinascall.java
new file mode 100644
index 0000000000000000000000000000000000000000..1c7909545f1bc544518f0cda3f4ce2ddaa27c2b6
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinascall.java
@@ -0,0 +1,54 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinascall extends TestBase {
+
+ @Test
+ @Ignore
+ public void testascall1() {
+ assertEval("argv <- list(list(quote(quote), c(0.568, 1.432, -1.08, 1.08)));as.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascall2() {
+ assertEval("argv <- list(list(quote(quote), FALSE));as.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascall3() {
+ assertEval("argv <- list(list(quote(quote), list(NULL, c(\'time\', \'status\'))));as.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascall4() {
+ assertEval("argv <- list(structure(expression(data.frame, check.names = TRUE, stringsAsFactors = TRUE), .Names = c(\'\', \'check.names\', \'stringsAsFactors\')));as.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascall5() {
+ assertEval("argv <- list(list(quote(quote), 80L));as.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascall6() {
+ assertEval("argv <- list(list(quote(quote), NA));as.call(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinascharacter.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinascharacter.java
new file mode 100644
index 0000000000000000000000000000000000000000..72a02f79e38ad08b7be827d20428c425baebf94b
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinascharacter.java
@@ -0,0 +1,274 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinascharacter extends TestBase {
+
+ @Test
+ public void testascharacter1() {
+ assertEval("argv <- list(\'bessel_y(2,nu=181.2): precision lost in result\');as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter2() {
+ assertEval("argv <- list(structure(c(12784, 12874, 12965, 13057, 13149, 13239, 13330, 13422, 13514, 13604, 13695, 13787, 13879, 13970, 14061, 14153, 14245), class = \'Date\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter3() {
+ assertEval("argv <- list(c(2L, 1L, NA));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter4() {
+ assertEval("argv <- list(c(\'### Encoding: UTF-8\', \'\', \'### Name: text\', \'### Title: Add Text to a Plot\', \'### Aliases: text text.default\', \'### Keywords: aplot\', \'\', \'### ** Examples\', \'\', \'plot(-1:1, -1:1, type = \\\'n\\\', xlab = \\\'Re\\\', ylab = \\\'Im\\\')\', \'K <- 16; text(exp(1i * 2 * pi * (1:K) / K), col = 2)\', \'\', \'## The following two examples use latin1 characters: these may not\', \'## appear correctly (or be omitted entirely).\', \'plot(1:10, 1:10, main = \\\'text(...) examples\\\\n~~~~~~~~~~~~~~\\\',\', \' sub = \\\'R is GNU ©, but not ® ...\\\')\', \'mtext(\\\'«Latin-1 accented chars»: éè øØ å<Å æ<Æ\\\', side = 3)\', \'points(c(6,2), c(2,1), pch = 3, cex = 4, col = \\\'red\\\')\', \'text(6, 2, \\\'the text is CENTERED around (x,y) = (6,2) by default\\\',\', \' cex = .8)\', \'text(2, 1, \\\'or Left/Bottom - JUSTIFIED at (2,1) by 'adj = c(0,0)'\\\',\', \' adj = c(0,0))\', \'text(4, 9, expression(hat(beta) == (X^t * X)^{-1} * X^t * y))\', \'text(4, 8.4, \\\'expression(hat(beta) == (X^t * X)^{-1} * X^t * y)\\\',\', \' cex = .75)\', \'text(4, 7, expression(bar(x) == sum(frac(x[i], n), i==1, n)))\', \'\', \'## Two more latin1 examples\', \'text(5, 10.2,\', \' \\\'Le français, c'est façile: Règles, Liberté, Egalité, Fraternité...\\\')\', \'text(5, 9.8,\', \' \\\'Jetz no chli züritüütsch: (noch ein bißchen Zürcher deutsch)\\\')\', \'\', \'\', \'\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter5() {
+ assertEval("argv <- list(structure(1395082040.29392, class = c(\'POSIXct\', \'POSIXt\')));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter6() {
+ assertEval("argv <- list(structure(2:3, .Label = c(\'C\', \'A\', \'B\'), class = \'factor\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter7() {
+ assertEval("argv <- list(structure(1:255, class = \'octmode\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter8() {
+ assertEval("argv <- list(c(Inf, -Inf, NaN, NA));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter9() {
+ assertEval("argv <- list(c(1, 2, NA, 2));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter10() {
+ assertEval("argv <- list(structure(character(0), package = character(0), class = structure(\'ObjectsWithPackage\', package = \'methods\')));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter11() {
+ assertEval("argv <- list(c(FALSE, TRUE));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter12() {
+ assertEval("argv <- list(structure(1:4, .Dim = c(1L, 4L)));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter13() {
+ assertEval("argv <- list(structure(\'1\', .Tsp = c(1, 1, 1), class = \'ts\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter14() {
+ assertEval("argv <- list(structure(\'Estimates a probability density function, \\n\', Rd_tag = \'TEXT\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter15() {
+ assertEval("argv <- list(c(2L, 1L, 3L, NA, 4L));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter16() {
+ assertEval("argv <- list(structure(-841, class = \'Date\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter17() {
+ assertEval("argv <- list(structure(list(list(structure(\'x\', Rd_tag = \'TEXT\')), list(structure(\'an R object representing a hierarchical clustering.\\n\', Rd_tag = \'TEXT\'), structure(\' For the default method, an object of class \', Rd_tag = \'TEXT\'), structure(list(structure(\'\\\'\', Rd_tag = \'RCODE\'), structure(list(structure(\'hclust\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\link\'), structure(\'\\\'\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\' or\\n\', Rd_tag = \'TEXT\'), structure(\' with a method for \', Rd_tag = \'TEXT\'), structure(list( structure(list(structure(\'as.hclust\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\link\'), structure(\'()\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\' such as\\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\'), structure(list(structure(\'\\\'\', Rd_tag = \'RCODE\'), structure(list(structure(\'agnes\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\link\', Rd_option = structure(\'cluster\', Rd_tag = \'TEXT\')), structure(\'\\\'\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\' in package \', Rd_tag = \'TEXT\'), structure(c(\'\\\\href{http://CRAN.R-project.org/package=#1}{\\\\pkg{#1}}\', \'cluster\'), Rd_tag = \'USERMACRO\'), structure(list(list(structure(\'http://CRAN.R-project.org/package=cluster\', Rd_tag = \'VERB\')), list(structure(list(structure(\'cluster\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\pkg\'))), Rd_tag = \'\\\\href\'), structure(\'.\', Rd_tag = \'TEXT\'))), Rd_tag = \'\\\\item\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter18() {
+ assertEval("argv <- list(list(epsilon = 1e-08, maxit = 25, trace = FALSE));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter19() {
+ assertEval("argv <- list(structure(list(structure(list(given = c(\'George\', \'E.\', \'P.\'), family = \'Box\', role = NULL, email = NULL, comment = NULL), .Names = c(\'given\', \'family\', \'role\', \'email\', \'comment\')), structure(list(given = c(\'David\', \'R.\'), family = \'Cox\', role = NULL, email = NULL, comment = NULL), .Names = c(\'given\', \'family\', \'role\', \'email\', \'comment\'))), class = \'person\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter20() {
+ assertEval("argv <- list(structure(list(structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\'), structure(list(list(structure(\'coerce\', Rd_tag = \'TEXT\')), list(structure(list(structure(\'signature(from = \\\'dgCMatrix\\\', to =\\n\', Rd_tag = \'RCODE\'), structure(\'\\t\\\'ngCMatrix\\\')\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\', and many similar ones; typically you should\\n\', Rd_tag = \'TEXT\'), structure(\' coerce to \', Rd_tag = \'TEXT\'), structure(list(structure(\'\\\'nsparseMatrix\\\'\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\' (or \', Rd_tag = \'TEXT\'), structure(list(structure(\'\\\'nMatrix\\\'\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\'). Note that\\n\', Rd_tag = \'TEXT\'), structure(\' coercion to a sparse pattern matrix records all the potential\\n\', Rd_tag = \'TEXT\'), structure(\' non-zero entries, i.e., explicit (\', Rd_tag = \'TEXT\'), structure(list(structure(\'non-structural\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\dQuote\'), structure(\') zeroes\\n\', Rd_tag = \'TEXT\'), structure(\' are coerced to \', Rd_tag = \'TEXT\'), structure(list(structure(\'TRUE\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\', not \', Rd_tag = \'TEXT\'), structure(list(structure(\'FALSE\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\', see the example.\\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\'))), Rd_tag = \'\\\\item\'), structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\'), structure(list(list(structure(\'t\', Rd_tag = \'TEXT\')), list(structure(list(structure(\'signature(x = \\\'ngCMatrix\\\')\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\': returns the transpose\\n\', Rd_tag = \'TEXT\'), structure(\' of \', Rd_tag = \'TEXT\'), structure(list(structure(\'x\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'))), Rd_tag = \'\\\\item\'), structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\'), structure(list(list(structure(\'which\', Rd_tag = \'TEXT\')), list(structure(list(structure(\'signature(x = \\\'lsparseMatrix\\\')\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\', semantically\\n\', Rd_tag = \'TEXT\'), structure(\' equivalent to \', Rd_tag = \'TEXT\'), structure(list(structure(\'base\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\pkg\'), structure(\' function \', Rd_tag = \'TEXT\'), structure(list(structure(list(structure(\'which\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\link\'), structure(\'(x, arr.ind)\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\';\\n\', Rd_tag = \'TEXT\'), structure(\' for details, see the \', Rd_tag = \'TEXT\'), structure(list(structure(list(structure(\'lMatrix\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\linkS4class\')), Rd_tag = \'\\\\code\'), structure(\' class documentation.\', Rd_tag = \'TEXT\'))), Rd_tag = \'\\\\item\'), structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\describe\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter21() {
+ assertEval("argv <- list(c(3, 3, NA, NA, NA, NA, 4, 3, 4, NA, NA, 2, 3, 3, NA, NA, 2, 4, NA, 2, 5, 2, 2, 4, 3, NA, 2, NA, 3, 3));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter22() {
+ assertEval("argv <- list(structure(list(structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\'), structure(list(list(structure(list(structure(\'languageEl\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\':\', Rd_tag = \'TEXT\')), list(structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' extract an element of a language object, consistently for\\n\', Rd_tag = \'TEXT\'), structure(\' different kinds of objects.\\n\', Rd_tag = \'TEXT\'), structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' The 1st., etc. elements of a function are the corresponding formal\\n\', Rd_tag = \'TEXT\'), structure(\' arguments, with the default expression if any as value.\\n\', Rd_tag = \'TEXT\'), structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' The first element of a call is the name or the function object\\n\', Rd_tag = \'TEXT\'), structure(\' being called.\\n\', Rd_tag = \'TEXT\'), structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' The 2nd, 3rd, etc. elements are the 1st, 2nd, etc. arguments\\n\', Rd_tag = \'TEXT\'), structure(\' expressions. Note that the form of the extracted name is\\n\', Rd_tag = \'TEXT\'), structure(\' different for R and S-Plus. When the name (the first element) of\\n\', Rd_tag = \'TEXT\'), structure(\' a call is replaced, the languageEl replacement function coerces a\\n\', Rd_tag = \'TEXT\'), structure(\' character string to the internal form for each system.\\n\', Rd_tag = \'TEXT\'), structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' The 1st, 2nd, 3rd elements of an \', Rd_tag = \'TEXT\'), structure(list(structure(\'if\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\' expression are the\\n\', Rd_tag = \'TEXT\'), structure(\' test, first, and second branch.\\n\', Rd_tag = \'TEXT\'), structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' The 1st element of a \', Rd_tag = \'TEXT\'), structure(list(structure(\'for\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\' object is the name (symbol) being\\n\', Rd_tag = \'TEXT\'), structure(\' used in the loop, the second is the expression for the range of\\n\', Rd_tag = \'TEXT\'), structure(\' the loop, the third is the body of the loop.\\n\', Rd_tag = \'TEXT\'), structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' The first element of a \', Rd_tag = \'TEXT\'), structure(list(structure(\'while\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\' object is the loop test, and\\n\', Rd_tag = \'TEXT\'), structure(\' the second the body of the loop.\\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\'))), Rd_tag = \'\\\\item\'), structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\'), structure(list(list(structure(list(structure(\'isGrammarSymbol\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\':\', Rd_tag = \'TEXT\')), list(structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' Checks whether the symbol is part of the grammar.\\n\', Rd_tag = \'TEXT\'), structure(\' Don't use this function directly.\\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\'))), Rd_tag = \'\\\\item\'), structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\describe\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter23() {
+ assertEval("argv <- list(structure(c(1L, 2L, 2L, 3L, 3L, 1L, NA), .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter24() {
+ assertEval("argv <- list(structure(list(4L), class = c(\'package_version\', \'numeric_version\')));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter25() {
+ assertEval("argv <- list(c(-Inf, NaN, Inf));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter26() {
+ assertEval("argv <- list(FALSE, useSource = TRUE);as.character(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter27() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, NA, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, NA, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, NA, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, NA, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c(\'0\', \'1\'), class = \'factor\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter28() {
+ assertEval("argv <- list(structure(c(11323, 11330, 11337, 11344, 11351, 11358, 11365, 11372, 11379, 11386), class = \'Date\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter29() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Dim = c(10L, 2L)));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter30() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, NA, NA, FALSE, FALSE, TRUE, FALSE, NA, NA, NA, NA, NA, NA, FALSE, NA, FALSE, FALSE, NA, NA, FALSE, NA, NA, FALSE, FALSE, FALSE, FALSE, FALSE, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, TRUE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, NA, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, NA, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, NA, NA, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, FALSE, TRUE, FALSE, NA, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter31() {
+ assertEval("argv <- list(structure(c(1338523200, 1338609600, 1338696000, 1338782400, 1338868800, 1338955200, 1339041600), class = c(\'POSIXct\', \'POSIXt\'), tzone = \'\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter32() {
+ assertEval("argv <- list(structure(1:4, class = \'roman\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter33() {
+ assertEval("argv <- list(logical(0));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter34() {
+ assertEval("argv <- list(structure(c(1104537600, 1107216000, 1109635200, 1112313600, 1114905600, 1117584000, 1120176000, 1122854400, 1125532800, 1128124800, 1130803200, 1133395200, 1136073600, 1138752000, 1141171200, 1143849600, 1146441600, 1149120000, 1151712000, 1154390400, 1157068800, 1159660800, 1162339200, 1164931200, 1167609600, 1170288000, 1172707200, 1175385600, 1177977600, 1180656000, 1183248000, 1185926400, 1188604800, 1191196800, 1193875200, 1196467200, 1199145600, 1201824000, 1204329600, 1207008000, 1209600000, 1212278400, 1214870400, 1217548800, 1220227200, 1222819200, 1225497600, 1228089600, 1230768000), class = c(\'POSIXct\', \'POSIXt\'), tzone = \'UTC\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter35() {
+ assertEval("argv <- list(c(-4, 4, 3.99, -1, -3.01));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter36() {
+ assertEval("argv <- list(list(exit.code = 0L, send = NULL));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter37() {
+ assertEval("argv <- list(c(34L, -45L));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter38() {
+ assertEval("argv <- list(structure(c(978307200, 978912000, 979516800, 980121600, 980726400, 981331200, 981936000, 982540800, 983145600, 983750400), class = c(\'POSIXct\', \'POSIXt\'), tzone = \'GMT\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter39() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'), structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'));as.character(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter40() {
+ assertEval("argv <- list(structure(list(), class = \'numeric_version\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter41() {
+ assertEval("argv <- list(structure(list(c0 = structure(character(0), class = \'AsIs\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascharacter42() {
+ assertEval("argv <- list(structure(c(12784, 13879), class = \'Date\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter43() {
+ assertEval("argv <- list(NaN);as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter44() {
+ assertEval("argv <- list(Inf);as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter45() {
+ assertEval("argv <- list(c(\'class\', \'names\', \'package\'));as.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testascharacter46() {
+ assertEval("argv <- list(c(59.5, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59.5));as.character(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinascomplex.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinascomplex.java
new file mode 100644
index 0000000000000000000000000000000000000000..35d24e583753d116e808619ee80498ee4016096c
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinascomplex.java
@@ -0,0 +1,78 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinascomplex extends TestBase {
+
+ @Test
+ public void testascomplex1() {
+ assertEval("argv <- list(logical(0), logical(0));as.complex(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testascomplex2() {
+ assertEval("argv <- list(FALSE, FALSE);as.complex(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascomplex3() {
+ assertEval("argv <- list(\' \');as.complex(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascomplex4() {
+ assertEval("argv <- list(structure(c(-0.626453810742332, 0.183643324222082, -0.835628612410047, 1.59528080213779, 0.329507771815361, -0.820468384118015, 0.487429052428485, 0.738324705129217, 0.575781351653492, -0.305388387156356, 1.51178116845085, 0.389843236411431, -0.621240580541804, -2.2146998871775, 1.12493091814311, -0.0449336090152309, -0.0161902630989461, 0.943836210685299, 0.821221195098089, 0.593901321217509, 0.918977371608218, 0.782136300731067, 0.0745649833651906, -1.98935169586337, 0.61982574789471), .Dim = c(5L, 5L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\'), c(\'a\', \'b\', \'c\', \'d\', \'e\'))));as.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void testascomplex5() {
+ assertEval("argv <- list(\'1.3\');as.complex(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascomplex6() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'), structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'));as.complex(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascomplex7() {
+ assertEval("argv <- list(NA_complex_);as.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void testascomplex8() {
+ assertEval("argv <- list(integer(0));as.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void testascomplex9() {
+ assertEval("argv <- list(1L);as.complex(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testascomplex10() {
+ assertEval("argv <- list(structure(list(a = 1), .Names = \'a\'));as.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void testascomplex11() {
+ assertEval("argv <- list(NULL, NULL);as.complex(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasdouble.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasdouble.java
new file mode 100644
index 0000000000000000000000000000000000000000..1132001f852f35492864ff07b7a1e49758033dd0
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasdouble.java
@@ -0,0 +1,181 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinasdouble extends TestBase {
+
+ @Test
+ public void testasdouble1() {
+ assertEval("argv <- list(c(3.14159265358979, 3.14159265358981, 3.14159265358981, 3.14159265358981, 3.14159265358978, 3.1415926535898, 3.1415926535898, 3.14159265358978, 3.14159265358981, 3.14159265358979, 3.14159265358979, 3.14159265358978, 3.14159265358979, 3.14159265358981, 3.1415926535898, 3.14159265358978, 3.14159265358978, 3.14159265358978, 3.14159265358978, 3.14159265358981, 3.14159265358981, 3.14159265358978, 3.14159265358979, 3.14159265358978, 3.14159265358978, 3.14159265358978, 3.1415926535898, 3.14159265358977, 3.14159265358979, 3.14159265358979, 3.1415926535898, 3.14159265358979, 3.1415926535898, 3.14159265358979, 3.14159265358979, 3.14159265358981, 3.14159265358978, 3.1415926535898, 3.14159265358979, 3.14159265358981, 3.1415926535898, 3.14159265358981, 3.14159265358978, 3.1415926535898, 3.14159265358981, 3.1415926535898, 3.14159265358978, 3.14159265358979, 3.14159265358978, 3.14159265358979, 3.1415926535898, 3.14159265358981, 3.14159265358978, 3.1415926535898, 3.14159265358979, 3.1415926535898, 3.14159265358978, 3.1415926535898, 3.14159265358978, 3.14159265358979, 3.1415926535898, 3.14159265358978, 3.1415926535898, 3.14159265358981, 3.14159265358977, 3.14159265358981, 3.14159265358978, 3.14159265358978, 3.14159265358981, 3.14159265358979, 3.14159265358977, 3.14159265358978, 3.14159265358981, 3.14159265358979, 3.14159265358981, 3.1415926535898, 3.14159265358979, 3.14159265358979, 3.1415926535898, 3.14159265358979, 3.14159265358981, 3.14159265358979, 3.14159265358979, 3.14159265358981, 3.14159265358977, 3.1415926535898, 3.14159265358979, 3.1415926535898, 3.14159265358979, 3.1415926535898, 3.1415926535898, 3.1415926535898, 3.14159265358978, 3.1415926535898, 3.1415926535898, 3.1415926535898, 3.14159265358981, 3.14159265358979, 3.14159265358978, 3.14159265358981, 3.14159265358981));as.double(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasdouble2() {
+ assertEval("argv <- list(c(\'10\', \'2.7404\', \'0.27404\', \'\'));as.double(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasdouble3() {
+ assertEval("argv <- list(structure(4, tzone = \'GMT\', units = \'days\', class = \'difftime\'), units = \'secs\');as.double(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testasdouble4() {
+ assertEval("argv <- list(\'NaN\');as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void testasdouble5() {
+ assertEval("argv <- list(structure(c(1.97479242156194, 1.71068206679967, 1.52241456554483), .Names = c(\'Bens of Jura\', \'Knock Hill\', \'Lairig Ghru\')));as.double(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasdouble6() {
+ assertEval("argv <- list(c(856722023.658297, 302896976.260735, 107090252.958018, 37862122.0336249, 13386281.6212132, 4732765.25626924, 1673285.20557359, 591595.661165903, 209160.656540579, 73949.4659102332, 26145.0937553316, 9243.69976775411, 3268.16009484595, 1155.49552841673, 408.56675987247, 144.503039869403, 51.1642500846007, 18.1945635811076, 6.57944169516568, 2.52146555042134, 1.10249557516018, 0.395623281358704, -0.367112032460934, 0.27396220835345, -0.0693674921217567, 0.0814543296800769, 0.0923699793060252, 0.0504684833914985, -0.0498360425475413, 0.00273531641447061, -0.00392881268836618));as.double(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasdouble7() {
+ assertEval("argv <- list(c(1.90069420068965e+68, 1.85614668036113e+65, 1.81264324254072e+62, 1.77015941654582e+59, 1.72867130522891e+56, 1.68815557154536e+53, 1.64858942546521e+50, 1.60995061130567e+47, 1.57221739580551e+44, 1.53536855821758e+41, 1.49938338742443e+38, 1.46424170564914e+35, 1.42992399523352e+32, 1.39641192722393e+29, 1.36369045875401e+26, 1.33175605805513e+23, 1.30064886911081e+20, 127057845771019376, 124241617095379, 121963623349.57, 121618014.278689, 129184.542208039, 178.330555907964, 0.906701004569228, -0.0905266041439205, 0.141777480680994, 0.0921442943441807, 0.0658533118803105, -0.0402995417166551, 0.0244881559995369, -0.0194680918617461));as.double(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasdouble8() {
+ assertEval("argv <- list(c(3.69420518444359e+25, 2.30887824027777e+24, 1.44304890017492e+23, 9.01905562612606e+21, 5.63690976641081e+20, 35230686042118275072, 2201917878145066496, 137619867512235136, 8601241751556820, 537577617482832, 33598603095309.8, 2099913194115.17, 131244699796.888, 8202825028.58974, 512684387.219832, 32044730.0464007, 2003284.70114408, 125327.674230857, 7863.68742857025, 499.272560819512, 33.2784230289721, 2.7659432263306, 0.488936768533843, -0.282943224311172, 7.32218543045282e-05, -0.00636442868227041, -0.0483709204009262, -0.0704795507649514, 0.0349437746169591, -0.0264830837608839, 0.0200901469411759));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void testasdouble9() {
+ assertEval("argv <- list(c(\'-.1\', \' 2.7 \', \'B\'));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void testasdouble10() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 0, 7, 8, 9, 10, 11, 12), .Dim = c(4L, 3L)));as.double(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasdouble11() {
+ assertEval("argv <- list(c(NA, \'0.0021\'));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void testasdouble12() {
+ assertEval("argv <- list(character(0));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void testasdouble13() {
+ assertEval("argv <- list(structure(c(21, 16.4, 18.7, 16.8, 17.8, 10.9, 14, 3.5, 4.3, 3.5, 2.7, 6, 14, 2.3), .Dim = c(7L, 2L), .Dimnames = list(c(\'L\', \'NL\', \'D\', \'B\', \'F\', \'IRL\', \'UK\'), c(\'x\', \'y\'))));as.double(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasdouble14() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707712e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.96881154539801e-173, 0, 8.23599653846971e-150, 0, 0, 0, 0, 6.51733217171342e-10, 0, 2.36840184577368e-67, 0, 9.43484083575241e-307, 0, 1.59959906013772e-89, 0, 8.73836857865035e-286, 7.09716190970993e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044552e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.07028772732371e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.75227273320951e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void testasdouble15() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c(\'WinF\', \'WinNF\', \'Veh\', \'Con\', \'Tabl\', \'Head\'), class = \'factor\'));as.double(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasdouble16() {
+ assertEval("argv <- list(structure(28, units = \'days\', class = \'difftime\'), units = \'secs\');as.double(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testasdouble17() {
+ assertEval("argv <- list(structure(c(0, 0.000202660677936876, 0.00241803309686265, 0.00307283986031733, 0.00265711006681184, 0.00284334291579362, 0.00328411981940272, 0.00355926216704063, 0.00344761438149018, 0.00289210744006633, 0.00204225708046235, 0.00178504641867207, 0.00172572372502035, 0.00159946455058003, 0.00194868716238274, 0.00230753595074067, 0.00246954915831488, 0.00290833971278575, 0.00337412960419987, 0.00358181270769781, 0.00354428559372645, 0.00326334045783046, 0.00298117073292367, 0.00293436142844913, 0.0029459867318606, 0.00298412396438805, 0.00320781989229225, 0.00342867445796099, 0.00405369787195761, 0.00417753179826535, 0.00414267894375602, 0.00407024400729904, 0.00393965520892809, 0.00385238230694322, 0.00383595140804293, 0.00378781523717584, 0.0037736404476557, 0.00382248725149436, 0.00381326514145668, 0.0038973026728862, 0.00395676065396717, 0.00431861015154494, 0.00443079015716877, 0.00450544753584657, 0.00439372971759073, 0.00433442297069524, 0.00429954456230782, 0.00426944313801568, 0.00423795462806802, 0.00417472474765742, 0.0042795282659813, 0.00454163385850258, 0.00473601380444899, 0.00466407336984038, 0.00462392764582444, 0.00456056187379283, 0.0045055003087985, 0.00442670076624794, 0.00431121205766447, 0.00421990442925801, 0.00416971729251421, 0.00407853686842565, 0.00409133004830999, 0.0041364805798209, 0.00427208054940612, 0.0044573146303062, 0.00463786827882152, 0.00462599613024964, 0.00456902544608922, 0.00448500474247415, 0.00443631355776013, 0.0043987926301962, 0.00439976139365821, 0.00444739366229557, 0.00441357461857941, 0.00445091952164202, 0.00450346393728121, 0.00462169457996522, 0.004734024297345, 0.00475873200245829, 0.00475253573403064, 0.00471631526131182, 0.00465515282727091, 0.00464698887217466, 0.00462685789718263, 0.00462996361305565, 0.00464191147874474, 0.00464879307071608, 0.00469113571839472, 0.00476270873398438, 0.00477314235918783, 0.00479544142345609, 0.0047737904084596, 0.00471999826644103, 0.00469372169840419, 0.0046463488677134, 0.00461799759453906, 0.00458947682120691, 0.00460912357592989, 0.00463333675159159, 0.00466732307616235, 0.00471231441093801, 0.00474022677208645, 0.00477297287765633, 0.00476766819213148, 0.00473849505147981, 0.00469782534032621, 0.00463861048753855, 0.00457840111456501, 0.00452291229235016, 0.00446341204452307, 0.00442002128896248, 0.00442991931450486, 0.00446688166198173, 0.00452411449686222, 0.00458536543416883, 0.00454175859707822, 0.00450829288322652, 0.00445725707512455, 0.00439091360820385, 0.00437267387139272, 0.00436951404759565, 0.00439586780117785, 0.00443132731253063, 0.00447997483459774, 0.00446916178054371, 0.00448357738281654, 0.00448976052744213, 0.00450610513067692, 0.00449385388080097, 0.00448875792730345, 0.00450025038413588, 0.00448200635475038, 0.00445933490412089, 0.00437269614488144, 0.00441152247400175, 0.00444283816260407, 0.00446748686328766, 0.00448539598299297, 0.00445924890176085, 0.00444386385593038, 0.00445984197910477, 0.00443574296742794, 0.00440036042966077), .Tsp = c(1949, 1960.91666666667, 12), class = \'ts\'));as.double(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasdouble18() {
+ assertEval("argv <- list(c(0.0099, 0.099, 0.99, 9.9, 99, 990, 9900, 99000, 990000, 9900000, 9.9e+07, 9.9e+08, 9.9e+09, 9.9e+10));as.double(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasdouble19() {
+ assertEval("argv <- list(structure(180.958333333333, units = \'days\', class = \'difftime\'), units = \'secs\');as.double(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testasdouble20() {
+ assertEval("argv <- list(NULL);as.double(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasdouble21() {
+ assertEval("argv <- list(structure(list(foo = 5L, Species = 2L), .Names = c(\'foo\', \'Species\'), out.attrs = structure(list(dim = structure(c(6L, 3L), .Names = c(\'foo\', \'Species\')), dimnames = structure(list(foo = c(\'foo=1\', \'foo=2\', \'foo=3\', \'foo=4\', \'foo=5\', \'foo=6\'), Species = c(\'Species=1\', \'Species=2\', \'Species=3\')), .Names = c(\'foo\', \'Species\'))), .Names = c(\'dim\', \'dimnames\')), row.names = 11L, class = \'data.frame\'));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void testasdouble22() {
+ assertEval("argv <- list(c(TRUE, FALSE, TRUE));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void testasdouble23() {
+ assertEval("argv <- list(c(TRUE, TRUE, FALSE));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void testasdouble24() {
+ assertEval("argv <- list(c(NA, NA, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void testasdouble25() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L), .Label = c(\'Rural Male\', \'Rural Female\', \'Urban Male\', \'Urban Female\'), class = \'factor\', .Dim = c(5L, 4L)));as.double(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasdouble26() {
+ assertEval("argv <- list(c(NaN, 9.51350769866873, 4.5908437119988, 2.99156898768759, 2.21815954375769, 1.77245385090552, 1.48919224881282, 1.29805533264756, 1.1642297137253, 1.06862870211932, 1));as.double(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasdouble27() {
+ assertEval("argv <- list(structure(3:5, .Tsp = c(1, 3, 1), class = \'ts\'));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void testasdouble28() {
+ assertEval("argv <- list(\'Inf\');as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void testasdouble29() {
+ assertEval("argv <- list(c(\' 9\', \' 3\', \' 3\', \' 6.761\', \'156.678\', \' 18.327\', \' 11.764\', \'191.64\', \'323.56\', \'197.21\', \'190.64\'));as.double(argv[[1]]);");
+ }
+
+ @Test
+ public void testasdouble30() {
+ assertEval("argv <- list(structure(c(NA, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L, 70L, 71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 80L, 81L, 82L, 83L, 84L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L, 97L, 98L, 99L, 100L), .Tsp = c(1, 101, 1), class = \'ts\'));as.double(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasin.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasin.java
new file mode 100644
index 0000000000000000000000000000000000000000..4be812d4aae2d48fefcff0c55ea2a5e5dffa2758
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasin.java
@@ -0,0 +1,41 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinasin extends TestBase {
+
+ @Test
+ public void testasin1() {
+ assertEval("argv <- list(c(0.185157057377868, 0.15968866445196, 0.190428414477965, 0.0799378829516562, 0.043979457119882, 0.0348843282121068, 0.0484793103572122, 0.109221220908651, 0.264364324223884, 0.211999913632203, 0.141157385938914, 0.143099951254224, 0.193270515700824, 0.217573738375349, 0.216954681783302, 0.291716047319384, 0.387858840434923, 0.461666520261029, 0.49992310387409, 0.421641232345205, 0.419256648241403, 0.442116045838704, 0.375354272383531, 0.416333612927645, 0.506835005179142, 0.408511923588378, 0.442160540547329, 0.59649385178332, 0.729919018318794, 0.811421169963513, 0.896290688103034, 0.752346465072037, 0.654905104838795, 0.821242494513718, 0.91715624670646, 0.885960209053628));asin(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasin2() {
+ assertEval("argv <- list(c(2+0i, 2-0.0001i, -2+0i, -2+0.0001i));asin(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasin3() {
+ assertEval("argv <- list(logical(0));asin(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasin4() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));asin(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasinh.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasinh.java
new file mode 100644
index 0000000000000000000000000000000000000000..6ad77615cfa9712398655b954ab52899386fcd71
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasinh.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinasinh extends TestBase {
+
+ @Test
+ @Ignore
+ public void testasinh1() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));asinh(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasinh2() {
+ assertEval("argv <- list(FALSE);asinh(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasinh3() {
+ assertEval("argv <- list(c(-10.0178749274099, -9.71883514604503, -9.428631115578, -9.14699900083883, -8.87368275970178, -8.60843391030797, -8.35101130516145, -8.10118091189307, -7.85871560049306, -7.62339493681878, -7.39500498218993, -7.17333809888897, -6.95819276139009, -6.74937337314489, -6.54669008875839, -6.34995864139355, -6.15900017524753, -5.9736410829473, -5.79371284771676, -5.61905189017195, -5.44949941960501, -5.28490128962169, -5.12510785800119, -4.96997385065093, -4.81935822953248, -4.67312406443873, -4.53113840850555, -4.39327217734495, -4.25940003168967, -4.12940026344266, -4.00315468502777, -3.88054852194104, -3.76147030840502, -3.64581178603109, -3.53346780539777, -3.42433623045557, -3.31831784567124, -3.21531626582739, -3.11523784839505, -3.01799160839986, -2.92348913570423, -2.83164451463048, -2.74237424585168, -2.65559717047939, -2.57123439627907, -2.48920922594631, -2.40944708737842, -2.33187546587824, -2.25642383822831, -2.18302360857567, -2.1116080460688, -2.04211222419016, -1.97447296172911, -1.90862876534153, -1.84451977364398, -1.78208770279149, -1.72127579348957, -1.66202875939226, -1.60429273683927, -1.54801523588655, -1.49314509258573, -1.43963242246912, -1.38742857519786, -1.33648609033215, -1.2867586541832, -1.23820105770775, -1.19076915540686, -1.1444198251916, -1.0991109291792, -1.05480127538394, -1.01145058026799, -0.969019432118151, -0.927469255215247, -0.886762274763496, -0.84686148254806, -0.807730603289509, -0.769334061664634, -0.731636949963607, -0.6946049963541, -0.658204533723497, -0.622402469070884, -0.587166253420983, -0.55246385223268, -0.518263716275245, -0.484534752945762, -0.451246298001703, -0.41836808768293, -0.385870231197804, -0.353723183548358, -0.321897718669858, -0.290364902860306, -0.25909606847575, -0.22806278786747, -0.19723684753736, -0.166590222487993, -0.13609505074407, -0.105723608022064, -0.0754482825250618, -0.0452415498398571, -0.0150759479134945, 0.015075947913494, 0.0452415498398571, 0.0754482825250618, 0.105723608022064, 0.136095050744069, 0.166590222487993, 0.19723684753736, 0.22806278786747, 0.259096068475749, 0.290364902860306, 0.321897718669858, 0.353723183548358, 0.385870231197804, 0.41836808768293, 0.451246298001702, 0.484534752945762, 0.518263716275245, 0.55246385223268, 0.587166253420983, 0.622402469070883, 0.658204533723497, 0.6946049963541, 0.731636949963607, 0.769334061664634, 0.807730603289509, 0.84686148254806, 0.886762274763496, 0.927469255215247, 0.96901943211815, 1.01145058026799, 1.05480127538394, 1.0991109291792, 1.1444198251916, 1.19076915540686, 1.23820105770775, 1.2867586541832, 1.33648609033215, 1.38742857519786, 1.43963242246912, 1.49314509258573, 1.54801523588655, 1.60429273683927, 1.66202875939226, 1.72127579348957, 1.78208770279149, 1.84451977364398, 1.90862876534153, 1.97447296172911, 2.04211222419016, 2.1116080460688, 2.18302360857567, 2.25642383822831, 2.33187546587824, 2.40944708737842, 2.48920922594631, 2.57123439627907, 2.65559717047939, 2.74237424585168, 2.83164451463048, 2.92348913570423, 3.01799160839985, 3.11523784839505, 3.21531626582738, 3.31831784567124, 3.42433623045557, 3.53346780539777, 3.64581178603109, 3.76147030840502, 3.88054852194104, 4.00315468502777, 4.12940026344266, 4.25940003168967, 4.39327217734494, 4.53113840850555, 4.67312406443873, 4.81935822953248, 4.96997385065093, 5.12510785800119, 5.28490128962168, 5.44949941960501, 5.61905189017195, 5.79371284771676, 5.9736410829473, 6.15900017524753, 6.34995864139355, 6.54669008875838, 6.74937337314489, 6.95819276139008, 7.17333809888896, 7.39500498218993, 7.62339493681878, 7.85871560049306, 8.10118091189307, 8.35101130516145, 8.60843391030797, 8.87368275970177, 9.14699900083883, 9.428631115578, 9.71883514604503, 10.0178749274099));asinh(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasinh4() {
+ assertEval("argv <- list(c(0+2i, 0.0001+2i, 0-2i, 0-2.0001i));asinh(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasinteger.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasinteger.java
new file mode 100644
index 0000000000000000000000000000000000000000..f9efc977028bf1ade9e4ad41f521479dd1aad087
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasinteger.java
@@ -0,0 +1,120 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinasinteger extends TestBase {
+
+ @Test
+ public void testasinteger1() {
+ assertEval("argv <- list(structure(c(4L, 5L, 3L, 2L, 2L, 1L, 6L), .Label = c(\'McNeil\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\', \'R Core\'), class = \'factor\'));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasinteger2() {
+ assertEval("argv <- list(c(\' 33\', \' 34\', \' 35\', \' 36\', \' 37\', \' 38\', \' 18\', \' 19\', \' 20\', \' 21\', \' 22\', \' 23\', \' 36\', \' 37\', \' 38\', \' 39\'));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasinteger3() {
+ assertEval("argv <- list(c(-Inf, -8.5, -2.83333333333333, -1.41666666666667, -0.85, -0.566666666666666, -0.404761904761905, -0.303571428571428, -0.236111111111111, -0.188888888888889));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testasinteger4() {
+ assertEval("argv <- list(c(0, 1, NA, NA, 1, 1, -1, 1, 3, -2, -2, 7, -1, -1, -1, -1, -1, -1, -1, -1, 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0));as.integer(argv[[1]]);");
+ }
+
+
+ @Test
+ public void testasinteger6() {
+ assertEval("argv <- list(2e+05);as.integer(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasinteger7() {
+ assertEval("argv <- list(NULL);as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testasinteger8() {
+ assertEval("argv <- list(list(7L, 20, 0L, 1));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testasinteger9() {
+ assertEval("argv <- list(\'-1\');as.integer(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasinteger10() {
+ assertEval("argv <- list(c(\'1\', NA, \'0\'));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasinteger11() {
+ assertEval("argv <- list(c(\'3\', \'14159265358979\'));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testasinteger12() {
+ assertEval("argv <- list(TRUE);as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testasinteger13() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0), .Dim = c(13L, 1L), .Dimnames = list(c(\'59\', \'115\', \'156\', \'268\', \'329\', \'431\', \'448\', \'477\', \'638\', \'803\', \'855\', \'1040\', \'1106\'), NULL)));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testasinteger14() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testasinteger15() {
+ assertEval("argv <- list(character(0));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testasinteger16() {
+ assertEval("argv <- list(4999.0000000001);as.integer(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testasinteger17() {
+ assertEval("argv <- list(structure(c(100, -1e-13, Inf, -Inf, NaN, 3.14159265358979, NA), .Names = c(\' 100\', \'-1e-13\', \' Inf\', \'-Inf\', \' NaN\', \'3.14\', \' NA\')));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testasinteger18() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 2L), .Label = c(\'1\', \'2\', NA), class = \'factor\'));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testasinteger19() {
+ assertEval("argv <- list(structure(c(NA, 1L, NA, 2L, 1L, NA, NA, 1L, 4L, 1L, NA, 4L, 1L, 3L, NA, 4L, 2L, 2L, NA, 4L, 4L, 2L, 4L, 4L, 2L, 1L, 4L, 4L, 3L, 1L, 1L, 4L, 1L, 4L, NA, 1L, 4L, 4L, 2L, 2L, 4L, 4L, 3L, 4L, 2L, 2L, 3L, 3L, 4L, 1L, 1L, 1L, 4L, 1L, 4L, 4L, 4L, 4L, NA, 4L, 4L, 4L, NA, 1L, 2L, 3L, 4L, 3L, 4L, 2L, 4L, 4L, 1L, 4L, 1L, 4L, NA, 4L, 2L, 1L, 4L, 1L, 1L, 1L, 4L, 4L, 2L, 4L, 1L, 1L, 1L, 4L, 1L, 1L, 1L, 4L, 3L, 1L, 4L, 3L, 2L, 4L, 3L, 1L, 4L, 2L, 4L, NA, 4L, 4L, 4L, 2L, 1L, 4L, 4L, NA, 2L, 4L, 4L, 1L, 1L, 1L, 1L, 4L, 1L, 2L, 3L, 2L, 1L, 4L, 4L, 4L, 1L, NA, 4L, 2L, 2L, 2L, 4L, 4L, 3L, 3L, 4L, 2L, 4L, 3L, 1L, 1L, 4L, 2L, 4L, 3L, 1L, 4L, 3L, 4L, 4L, 1L, 1L, 4L, 4L, 3L, 1L, 1L, 2L, 1L, 3L, 4L, 2L, 2L, 2L, 4L, 4L, 3L, 2L, 1L, 1L, 4L, 1L, 1L, 2L, NA, 2L, 3L, 3L, 2L, 1L, 1L, 1L, 1L, 4L, 4L, 4L, 4L, 4L, 4L, 2L, 2L, 1L, 4L, 1L, 4L, 3L, 4L, 2L, 3L, 1L, 3L, 1L, 4L, 1L, 4L, 1L, 4L, 3L, 3L, 4L, 4L, 1L, NA, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 3L, 4L, 3L, 4L, 2L, 4L, 4L, 1L, 2L, NA, 4L, 4L, 4L, 4L, 1L, 2L, 1L, 1L, 2L, 1L, 4L, 2L, 3L, 1L, 4L, 4L, 4L, 1L, 2L, 1L, 4L, 2L, 1L, 3L, 1L, 2L, 2L, 1L, 2L, 1L, NA, 3L, 2L, 2L, 4L, 1L, 4L, 4L, 2L, 4L, 4L, 4L, 2L, 1L, 4L, 2L, 4L, 4L, 4L, 4L, 4L, 1L, 3L, 4L, 3L, 4L, 1L, NA, 4L, NA, 1L, 1L, 1L, 4L, 4L, 4L, 4L, 2L, 4L, 3L, 2L, NA, 1L, 4L, 4L, 3L, 4L, 4L, 4L, 2L, 4L, 2L, 1L, 4L, 4L, NA, 4L, 4L, 3L, 3L, 4L, 2L, 2L, 4L, 1L, 4L, 4L, 4L, 3L, 4L, 4L, 4L, 3L, 2L, 1L, 3L, 1L, 4L, 1L, 4L, 2L, NA, 1L, 4L, 4L, 3L, 1L, 4L, 1L, 4L, 1L, 4L, 4L, 1L, 2L, 2L, 1L, 4L, 1L, 1L, 4L, NA, 4L, NA, 4L, 4L, 4L, 1L, 4L, 2L, 1L, 2L, 2L, 2L, 2L, 1L, 1L, 2L, 1L, 4L, 2L, 3L, 3L, 1L, 3L, 1L, 4L, 1L, 3L, 2L, 2L, 4L, 1L, NA, 3L, 4L, 2L, 4L, 4L, 4L, 4L, 4L, 4L, 3L, 4L, 4L, 3L, 2L, 1L, 4L, 4L, 2L, 4L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 4L, 4L, 1L, 1L, 4L, 1L, 4L, 4L, 4L, 1L, 1L, NA, 3L, 2L, 4L, 4L, 4L, 4L, 2L, 3L, 3L, 2L, NA, 4L, 2L, 4L, 4L, 1L, 1L, 4L, 4L, 1L, 1L, 4L, 1L, 2L, 2L, 2L, 2L, 1L, 4L, 4L, 1L, 2L, 2L, 2L, 3L, 4L, 4L, 3L, 4L, 1L, 1L, 4L, 4L, NA, 4L, 1L, 4L, 4L, 4L, 1L, 4L, 4L, 1L, 2L, 4L, 4L, 4L, 4L, 1L, 2L, 4L, 4L, 2L, 1L, 4L, 2L, 4L, 2L, 2L, 4L, 1L, 3L, 3L, 2L, 4L, 1L, 4L, 4L, 4L, 1L, NA, 4L, 4L, 2L, 4L, 4L, 4L, 4L, 4L, 2L, NA, 4L, 2L, 4L, 3L, 1L, 4L, 4L, 3L, 4L, 2L, 4L, 4L, 1L, 2L, 1L, 4L, 1L, 3L, 3L, 1L, 4L, 4L, 2L, 4L, 4L, 4L, 4L, 3L, 2L, 3L, 3L, 2L, NA, 3L, 4L, 4L, 3L, 3L, 4L, 4L, 4L, 1L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 2L, 4L, 2L, 3L, 4L, 1L, 3L, 1L, NA, 4L, 1L, 2L, 2L, 1L, 4L, 3L, 3L, 4L, 1L, 1L, 3L), .Label = c(\'(1) Approve STRONGLY\', \'(2) Approve SOMEWHAT\', \'(3) Disapprove SOMEWHAT\', \'(4) Disapprove STRONGLY\'), class = \'factor\'));as.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testasinteger20() {
+ assertEval("argv <- list(39);as.integer(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinaslogical.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinaslogical.java
new file mode 100644
index 0000000000000000000000000000000000000000..b44821a1455545a255d5ab002d862cdb1ef42bf6
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinaslogical.java
@@ -0,0 +1,88 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinaslogical extends TestBase {
+
+ @Test
+ public void testaslogical1() {
+ assertEval("argv <- list(structure(c(0L, 0L, 0L, 1L), .Names = c(\'Y\', \'B\', \'V\', \'N\')));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void testaslogical2() {
+ assertEval("argv <- list(structure(c(-4, 1), .Names = c(\'\', \'\')));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void testaslogical3() {
+ assertEval("argv <- list(structure(c(1L, 0L, 0L, 0L, 0L), .Names = c(\'bibtype\', NA, NA, NA, NA)));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void testaslogical4() {
+ assertEval("argv <- list(c(1L, NA, 0L));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void testaslogical7() {
+ assertEval("argv <- list(\'FALSE\');as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void testaslogical8() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 0L), .Dimnames = list(NULL, NULL)));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void testaslogical9() {
+ assertEval("argv <- list(c(3.74165738677394, 0, 8.55235974119758, 1.96396101212393));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void testaslogical10() {
+ assertEval("argv <- list(NULL);as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void testaslogical11() {
+ assertEval("argv <- list(structure(\'TRUE\', .Names = \'.registration\'));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void testaslogical12() {
+ assertEval("argv <- list(structure(c(0, 1, 2, 2), .Dim = c(4L, 1L), .Dimnames = list(c(\'Y\', \'B\', \'V\', \'N\'), NULL)));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void testaslogical13() {
+ assertEval("argv <- list(c(TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void testaslogical14() {
+ assertEval("argv <- list(structure(list(a = 1), .Names = \'a\'));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void testaslogical15() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'));as.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void testaslogical17() {
+ assertEval("argv <- list(c(1, 2, 3, 4, 5, NA, NA, 2, 3, 4, 5, 6));as.logical(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasraw.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasraw.java
new file mode 100644
index 0000000000000000000000000000000000000000..f588f16761c0b1280f85db1cfa546f5f1a40a57b
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasraw.java
@@ -0,0 +1,48 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinasraw extends TestBase {
+
+ @Test
+ public void testasraw1() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));as.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void testasraw2() {
+ assertEval("argv <- list(integer(0));as.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void testasraw3() {
+ assertEval("argv <- list(logical(0));as.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void testasraw4() {
+ assertEval("argv <- list(character(0));as.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void testasraw5() {
+ assertEval("argv <- list(NULL);as.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void testasraw6() {
+ assertEval("argv <- list(list());as.raw(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasvector.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasvector.java
new file mode 100644
index 0000000000000000000000000000000000000000..027a43e963674c334e26ae8089561c5b91fd2829
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasvector.java
@@ -0,0 +1,468 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinasvector extends TestBase {
+
+ @Test
+ @Ignore
+ public void testasvector1() {
+ assertEval("argv <- list(\'ylog\', \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector2() {
+ assertEval("argv <- list(structure(character(0), package = character(0), class = structure(\'ObjectsWithPackage\', package = \'methods\')), \'character\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector3() {
+ assertEval("argv <- list(quote(list(ya, x[rep.int(NA_integer_, nyy), nm.x, drop = FALSE])), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector4() {
+ assertEval("argv <- list(NA_character_, \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector5() {
+ assertEval("argv <- list(structure(NA_integer_, .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector6() {
+ assertEval("argv <- list(structure(list(a1 = 1:3, a2 = 4:6, a3 = 3.14159265358979, a4 = c(\'a\', \'b\', \'c\')), .Names = c(\'a1\', \'a2\', \'a3\', \'a4\')), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector7() {
+ assertEval("argv <- list(quote(list(ii = 1:10, xx = pi * -3:6)), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector8() {
+ assertEval("argv <- list(c(-1L, -2L), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector9() {
+ assertEval("argv <- list(quote(list(x = 1:100, z = 1:100 + rnorm(100, 10))), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector10() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\', \'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector11() {
+ assertEval("argv <- list(structure(c(0.00290239468554411, 0.00140705152597282, 0.00182415100508824, 0.000171517300342798, 0.0747454613066297, 0.00103234723292905, 0.000179983318697139, 0.035258608446556, 0.00336847595628205, 0.0640696486471418, 0.0132108002751951, 0.00194778778741288, 0.00351950115137134, 0.00070046832029645, 0.00252844357734999, 0.014372012195495, 0.00923422554274329, 7.64817786749709e-06, 0.00387339857745524, 0.00121246491006704, 0.00624917129689857, 0.00187753034805145, 0.000103002251547081, 0.0136703020254034, 0.000349542811339765, 0.00120367047056318, 0.00194205014408536, 0.00462815827742801, 0.000149291834133955, 0.00193441236645678, 9.00084520363788e-05, 0.0160915134527436, 0.00346675958538611, 0.00481936427422656, 3.13343033856204e-05, 0.0564685345533007, 0.00929771993193244, 0.0103876340982415, 0.0133005891226512, 0.0325989357511189, 0.00228122925969392, 0.0460976655088242, 0.00300363745967821, 0.000271060875811077, 0.0301696315261026, 4.72002631048228e-05, 0.0262321004865233, 0.00594174673473013, 0.00288915040856096, 0.00635277836091399, 0.00569342819072193, 0.0163907345734163, 0.000360581939026215, 0.00023772587191537, 0.0164062036225435, 0.0238391417439454, NaN, 0.0421542087325977, 0.00133954856768466, 0.0113421570571088, 0.0081824228772913, 0.000149291834133955, 0.00162069399881579, 0.0018026229128858, 0.0043164627226381, 0.000407784303899559, 0.00876301280354452, 0.00179253664026376, 0.000416739394150718, 0.014372012195495, 0.000179983318697139, 0.00115986529332945, 0.00377736311314377, 0.00219491136307178, 0.00070046832029645, 0.000522557531637993, 9.86336244510646e-05, 0.0216346027446621, 0.000659639144027202, 0.0137501462695058, 5.91425796335962e-08, 0.0279425064631674, 0.000170828237014775, 0.0042454690355613, 0.0114879015536739, 0.000173346990819198, 0.00138111062254461, 0.00772582941114727, 0.0277947034678616, 0.00892024547056825, 0.0618577709874562, 0.0125790610228498, 0.0277947034678616), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\')), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector12() {
+ assertEval("argv <- list(structure(c(0.164593338447767, 0.182090654313858, NA, 0.484947927602608), .Names = c(\'(Intercept)\', \'x1\', \'x2\', \'x3\')), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector13() {
+ assertEval("argv <- list(\'\', \'double\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector14() {
+ assertEval("argv <- list(structure(c(\'myTst\', \'Package\', \'What the package does (short line)\', \'1.0\', \'2014-03-17\', \'Who wrote it\', \'Who to complain to <yourfault@somewhere.net>\', \'More about what it does (maybe more than one line)\', \'What license is it under?\', \'methods\'), .Names = c(\'Package\', \'Type\', \'Title\', \'Version\', \'Date\', \'Author\', \'Maintainer\', \'Description\', \'License\', \'Depends\')), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector15() {
+ assertEval("argv <- list(quote(sqrt(abs(`Standardized residuals`))), \'expression\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector16() {
+ assertEval("argv <- list(1, \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector17() {
+ assertEval("argv <- list(quote(list(X[[2L]])), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector18() {
+ assertEval("argv <- list(NA, \'logical\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector19() {
+ assertEval("argv <- list(NULL, \'double\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector20() {
+ assertEval("argv <- list(quote(list(x = c(1, 1, 1, 1, 1, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 11, 12), y = c(73, 73, 70, 74, 75, 115, 105, 107, 124, 107, 116, 125, 102, 144, 178, 149, 177, 124, 157, 128, 169, 165, 186, 152, 181, 139, 173, 151, 138, 181, 152, 188, 173, 196, 180, 171, 188, 174, 198, 172, 176, 162, 188, 182, 182, 141, 191, 190, 159, 170, 163, 197), weight = c(1, rep(0.1, 51)))), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector21() {
+ assertEval("argv <- list(NULL, \'integer\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector22() {
+ assertEval("argv <- list(quote(list(ff <- factor(c(1:2, NA, 2), exclude = NULL))), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector23() {
+ assertEval("argv <- list(c(-1, 3, 1, 1, 5, 1), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector24() {
+ assertEval("argv <- list(quote(list(y, x1, x2)), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector25() {
+ assertEval("argv <- list(structure(c(0.005, 50, 550), .Names = c(\'k\', \'g1\', \'g2\')), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector26() {
+ assertEval("argv <- list(quote(list(V1 = c(\'a\', \'d e\', \'h\'), V2 = c(\'b'\', \'f\', \'i\'), V3 = c(\'c\', \'g\', \'j\\nk l m\'))), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector27() {
+ assertEval("argv <- list(NA, \'integer\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector28() {
+ assertEval("argv <- list(c(NA, NaN), \'character\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector29() {
+ assertEval("argv <- list(c(NA, NaN), \'integer\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector30() {
+ assertEval("argv <- list(list(\'a\', \'b\', \'c\'), \'pairlist\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector31() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4, .Dimnames = list(c(\'A\', \'B\', \'C\'), c(\'D\', \'E\', \'F\', \'G\'))), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector32() {
+ assertEval("argv <- list(quote(list(x = c(2:3, NA), y = c(3:4, NA))), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector33() {
+ assertEval("argv <- list(quote(list(cut(Dtimes, \'3 months\'))), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector34() {
+ assertEval("argv <- list(quote(list(a = I(\'abc\'), b = I(\'def\\\'gh\'))), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector35() {
+ assertEval("argv <- list(structure(list(a = 1), .Names = \'a\'), \'double\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector36() {
+ assertEval("argv <- list(structure(c(0, 0.0123079727211562, 0.00970882237374837, 0.62883302403078, 0.689843718945119, 0.689843718944881, 0.672453157851573, 0.534493702379921, 0.171039529097608, 0.17103952909345, 0.50219835346871, 0.530975095958163, 0.0050966004562048, 0.0106639382954144, 0.811192712625201, 0.0957932531337699), .Names = c(\'(Intercept)\', \'M.userY\', \'TempHigh\', \'M.userY:TempHigh\', \'SoftMedium\', \'SoftSoft\', \'M.userY:SoftMedium\', \'M.userY:SoftSoft\', \'TempHigh:SoftMedium\', \'TempHigh:SoftSoft\', \'M.userY:TempHigh:SoftMedium\', \'M.userY:TempHigh:SoftSoft\', \'BrandM\', \'M.userY:BrandM\', \'TempHigh:BrandM\', \'M.userY:TempHigh:BrandM\')), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector37() {
+ assertEval("argv <- list(c(-2, -1.95959595959596, -1.91919191919192, -1.87878787878788, -1.83838383838384, -1.7979797979798, -1.75757575757576, -1.71717171717172, -1.67676767676768, -1.63636363636364, -1.5959595959596, -1.55555555555556, -1.51515151515152, -1.47474747474747, -1.43434343434343, -1.39393939393939, -1.35353535353535, -1.31313131313131, -1.27272727272727, -1.23232323232323, -1.19191919191919, -1.15151515151515, -1.11111111111111, -1.07070707070707, -1.03030303030303, -0.98989898989899, -0.949494949494949, -0.909090909090909, -0.868686868686869, -0.828282828282828, -0.787878787878788, -0.747474747474747, -0.707070707070707, -0.666666666666667, -0.626262626262626, -0.585858585858586, -0.545454545454545, -0.505050505050505, -0.464646464646465, -0.424242424242424, -0.383838383838384, -0.343434343434343, -0.303030303030303, -0.262626262626263, -0.222222222222222, -0.181818181818182, -0.141414141414141, -0.101010101010101, -0.0606060606060606, -0.0202020202020201, 0.0202020202020203, 0.060606060606061, 0.101010101010101, 0.141414141414141, 0.181818181818182, 0.222222222222222, 0.262626262626263, 0.303030303030303, 0.343434343434343, 0.383838383838384, 0.424242424242424, 0.464646464646465, 0.505050505050505, 0.545454545454546, 0.585858585858586, 0.626262626262626, 0.666666666666667, 0.707070707070707, 0.747474747474748, 0.787878787878788, 0.828282828282829, 0.868686868686869, 0.909090909090909, 0.94949494949495, 0.98989898989899, 1.03030303030303, 1.07070707070707, 1.11111111111111, 1.15151515151515, 1.19191919191919, 1.23232323232323, 1.27272727272727, 1.31313131313131, 1.35353535353535, 1.39393939393939, 1.43434343434343, 1.47474747474747, 1.51515151515152, 1.55555555555556, 1.5959595959596, 1.63636363636364, 1.67676767676768, 1.71717171717172, 1.75757575757576, 1.7979797979798, 1.83838383838384, 1.87878787878788, 1.91919191919192, 1.95959595959596, 2), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector38() {
+ assertEval("argv <- list(integer(0), \'pairlist\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector39() {
+ assertEval("argv <- list(structure(\'lightblue\', .Names = \'bg\'), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector40() {
+ assertEval("argv <- list(c(NA, NaN), \'logical\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector41() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'character(0)\', row.names = character(0), class = \'data.frame\'), \'pairlist\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector42() {
+ assertEval("argv <- list(NA, \'double\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector43() {
+ assertEval("argv <- list(list(\'GRID.VP.12\'), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector44() {
+ assertEval("argv <- list(NULL, \'logical\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector45() {
+ assertEval("argv <- list(structure(1:20, .Tsp = c(1, 20, 1), class = \'ts\'), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector47() {
+ assertEval("argv <- list(structure(c(0.1, 0.8, 1, 0.5, 0.8, 1, 0, 0.5, 1), .Dim = c(3L, 3L), .Dimnames = list(c(\'(3.59,4.5]\', \'(4.5,5.4]\', \'(5.4,6.31]\'), c(\'ctrl\', \'trt1\', \'trt2\'))), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector48() {
+ assertEval("argv <- list(integer(0), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector49() {
+ assertEval("argv <- list(structure(c(1L, 1L), .Label = \'registered S3method for $\', class = \'factor\'), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector50() {
+ assertEval("argv <- list(\'1.3\', \'double\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector51() {
+ assertEval("argv <- list(c(8L, 11L, 14L, 16L, 19L, 4L, 6L, 9L, 15L, NA, 7L, 10L, 20L), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector52() {
+ assertEval("argv <- list(structure(c(5.4278733372119e-07, 0.000257866433233453, NA), .Names = c(\'x\', \'m\', \'Residuals\')), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector53() {
+ assertEval("argv <- list(\'1.3\', \'pairlist\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector54() {
+ assertEval("argv <- list(1L, \'pairlist\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector55() {
+ assertEval("argv <- list(NULL, \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector56() {
+ assertEval("argv <- list(quote(list(expand.grid(Hair = lab$Hair, Eye = lab$Eye, Sex = lab$Sex, stringsAsFactors = TRUE), Fr = as.vector(HairEyeColor))), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector57() {
+ assertEval("argv <- list(FALSE, \'pairlist\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector59() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'character(0)\', row.names = character(0), class = \'data.frame\'), \'character\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector60() {
+ assertEval("argv <- list(1L, \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector61() {
+ assertEval("argv <- list(c(\'The C and R code has been reformatted for legibility.\', \'The old compatibility function rpconvert() has been removed.\', \'The cross-validation functions allow for user interrupt at the end\\nof evaluating each split.\', \'Variable Reliability in data set car90 is corrected to be an\\nordered factor, as documented.\', \'Surrogate splits are now considered only if they send two or more\\ncases _with non-zero weight_ each way. For numeric/ordinal\\nvariables the restriction to non-zero weights is new: for\\ncategorical variables this is a new restriction.\', \'Surrogate splits which improve only by rounding error over the\\ndefault split are no longer returned. Where weights and missing\\nvalues are present, the splits component for some of these was not\\nreturned correctly.\', \'A fit of class \\\'rpart\\\' now contains a component for variable\\n‘importance’, which is reported by the summary() method.\', \'The text() method gains a minlength argument, like the labels()\\nmethod. This adds finer control: the default remains pretty =\\nNULL, minlength = 1L.\', \'The handling of fits with zero and fractional weights has been\\ncorrected: the results may be slightly different (or even\\nsubstantially different when the proportion of zero weights is\\nlarge).\', \'Some memory leaks have been plugged.\', \'There is a second vignette, longintro.Rnw, a version of the\\noriginal Mayo Tecnical Report on rpart.\', \'Added dataset car90, a corrected version of the S-PLUS dataset\\ncar.all (used with permission).\', \'This version does not use paste0{} and so works with R 2.14.x.\', \'Merged in a set of Splus code changes that had accumulated at Mayo\\nover the course of a decade. The primary one is a change in how\\nindexing is done in the underlying C code, which leads to a major\\nspeed increase for large data sets. Essentially, for the lower\\nleaves all our time used to be eaten up by bookkeeping, and this\\nwas replaced by a different approach. The primary routine also\\nuses .Call{} so as to be more memory efficient.\', \'The other major change was an error for asymmetric loss matrices,\\nprompted by a user query. With L=loss asymmetric, the altered\\npriors were computed incorrectly - they were using L' instead of L.\\nUpshot - the tree would not not necessarily choose optimal splits\\nfor the given loss matrix. Once chosen, splits were evaluated\\ncorrectly. The printed “improvement” values are of course the\\nwrong ones as well. It is interesting that for my little test\\ncase, with L quite asymmetric, the early splits in the tree are\\nunchanged - a good split still looks good.\', \'Add the return.all argument to xpred.rpart().\', \'Added a set of formal tests, i.e., cases with known answers to\\nwhich we can compare.\', \'Add a usercode vignette, explaining how to add user defined\\nsplitting functions.\', \'The class method now also returns the node probability.\', \'Add the stagec data set, used in some tests.\', \'The plot.rpart routine needs to store a value that will be visible\\nto the rpartco routine at a later time. This is now done in an\\nenvironment in the namespace.\', \'Force use of registered symbols in R >= 2.16.0\', \'Update Polish translations.\', \'Work on message formats.\', \'Add Polish translations\', \'rpart, rpart.matrix: allow backticks in formulae.\', \'tests/backtick.R: regession test\', \'src/xval.c: ensure unused code is not compiled in.\', \'Change description of margin in ?plot.rpart as suggested by Bill\\nVenables.\'), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector63() {
+ assertEval("argv <- list(2, \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector64() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\')), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector66() {
+ assertEval("argv <- list(3.18309886183776e-301, \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector67() {
+ assertEval("argv <- list(quote(list(a = 1:3, b = letters[1:3])), \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector68() {
+ assertEval("argv <- list(NA, \'list\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector69() {
+ assertEval("argv <- list(c(200, 500, 1000, 2000, 5000, 10000, 20000, 50000, 1e+05, 2e+05, 5e+05), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector70() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i), .Dim = c(5L, 5L)), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector71() {
+ assertEval("argv <- list(structure(c(2.2250738585072e-308, 1.79769313486232e+308), .Names = c(\'double.xmin\', \'double.xmax\')), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector72() {
+ assertEval("argv <- list(structure(1.6, class = \'object_size\'), \'character\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector73() {
+ assertEval("argv <- list(structure(NA_integer_, .Label = c(\'no\', \'yes\'), class = \'factor\'), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector74() {
+ assertEval("argv <- list(FALSE, \'character\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector75() {
+ assertEval("argv <- list(3.14159265358979, \'pairlist\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector76() {
+ assertEval("argv <- list(structure(list(c0 = structure(character(0), class = \'AsIs\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'), \'character\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector77() {
+ assertEval("argv <- list(structure(list(), .Dim = 0L), \'any\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector80() {
+ assertEval("argv <- list(structure(\'1\', .Tsp = c(1, 1, 1), class = \'ts\'), \'character\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testasvector81() {
+ assertEval("argv <- list(\'diff\', \'symbol\'); .Internal(as.vector(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinatan.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinatan.java
new file mode 100644
index 0000000000000000000000000000000000000000..54e3dbd3e96e3b9f56cc767072e5073b63ac53a1
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinatan.java
@@ -0,0 +1,52 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinatan extends TestBase {
+
+ @Test
+ @Ignore
+ public void testatan1() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\', \'101\', \'102\', \'103\', \'104\', \'105\', \'106\', \'107\', \'108\', \'109\', \'110\', \'111\', \'112\', \'113\', \'114\', \'115\', \'116\', \'117\', \'118\', \'119\', \'120\', \'121\', \'122\', \'123\', \'124\', \'125\', \'126\', \'127\', \'128\', \'129\', \'130\', \'131\', \'132\', \'133\', \'134\', \'135\', \'136\', \'137\', \'138\', \'139\', \'140\', \'141\', \'142\', \'143\', \'144\', \'145\', \'146\', \'147\', \'148\', \'149\', \'150\', \'151\', \'152\', \'153\', \'154\', \'155\', \'156\', \'157\', \'158\', \'159\', \'160\', \'161\', \'162\', \'163\', \'164\', \'165\', \'166\', \'167\', \'168\', \'169\', \'170\', \'171\', \'172\', \'173\', \'174\', \'175\', \'176\', \'177\', \'178\', \'179\', \'180\', \'181\', \'182\', \'183\', \'184\', \'185\', \'186\', \'187\', \'188\', \'189\', \'190\', \'191\', \'192\', \'193\', \'194\', \'195\', \'196\', \'197\', \'198\', \'199\', \'200\', \'201\', \'202\', \'203\', \'204\', \'205\', \'206\', \'207\', \'208\', \'209\', \'210\', \'211\', \'212\', \'213\', \'214\', \'215\', \'216\', \'217\', \'218\', \'219\', \'220\', \'221\', \'222\', \'223\', \'224\', \'225\', \'226\', \'227\', \'228\')));atan(argv[[1]]);");
+ }
+
+ @Test
+ public void testatan2() {
+ assertEval("argv <- list(c(-Inf, Inf));atan(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testatan3() {
+ assertEval("argv <- list(c(0+2i, 0.0001+2i, 0-2i, 0-2.0001i));atan(argv[[1]]);");
+ }
+
+ @Test
+ public void testatan4() {
+ assertEval("argv <- list(c(1.24374261655622, 0.0991858914142951, -2.20142053912221, 2.32991997369528, -1.81371893641746, -2.23549697963848, 1.2062731926336, 0.766855355229013, 2.22205301460314, 3.00826513920171, 2.93956891545304, -0.947558891656842, -1.25682397176386, -0.535715772527751, 3.41845348048775, -0.760770219081429, -1.17237584279591, 5.89658401779422, 4.83929989447739, 1.29127425323328, 5.07843950370286, -0.812083060727, 0.688022442899665, 0.51448669913956, -0.286066209156396, -0.571116279122374, 3.99296063466557, 0.543926802451157, 10.5876703046153, -0.012750328000196, 8.35693622233428, -0.357306991432726, 4.27528487251696, 6.30217771913028, 3.89678155886045, -1.57897283794064, -2.06992463735805, 4.67986125893053, -1.26868871126894, 0.0676543743900469, 3.24354507548999, 0.242170808041476, 3.39848727561001, -0.616002138333813, 4.61847372836275, 1.27216752717472, -0.280512588403515, -0.898619929521427, -1.39985243813315, -1.28443284360156, 2.63389613373223, 6.30217771913028, 1.87342709084826, -1.09797072834446, 5.71334116764491, 13.1134896151196, 3.66949044715118, -1.08958378903637, 0.8976473859976, 0.169792654329705, 2.15662832698598, 2.85593682526588, 5.94427279099212, 3.06088249587567, 5.71334116764491, 2.35752884553298, -1.60367725265451, 0.275679954649422, 2.06745683332381, -1.66968494417226, 1.25318650417107, 10.8387072712787, 3.66949044715118, 2.11807401040277, 0.289193352142719, -1.16420273509137, 0.750915507554624, 10.8387072712787, 2.83949743554363, -1.49627880689407, 4.61847372836275, 2.52897165841403, 2.99093712861336, -1.55047774121799, 1.45900279946893, -0.889632055927773, 3.35896467002158, -1.30399295303346, 3.06088249587567, -0.951966998076272, 1.9567142584347, 4.83929989447739, 1.88517906265842, -0.640640247845954, 7.94407524992589, 2.7907339351624, 1.2062731926336, -0.037046093389687, 3.00826513920171, -0.49471891801084, 0.131065830042764, 0.742978487169905, 4.27528487251696, 2.82315118733936, 3.18752185714054, -0.335573516981329, 10.8387072712787, 0.26894691754398, 0.847902962488109, 9.94387770885966, 2.75867688212949, 1.46917954755241, 2.4562951432938, -0.308174402320662, 10.3567386812681, 2.30257280126274, -0.308174402320662, 1.41865102155398, 0.750915507554624, 0.182817981601453, 2.48514643462545, -0.447890214901362, 6.24824895102907, -0.489553106263216, 2.37143299336077, 4.71105188801319, 5.94427279099212, -0.453131097523732, -0.410935024130492, 1.36899222090483, 2.44197697450093, 0.831510275829206, -0.235694520704707, 1.6370875838366, -0.235694520704707, 0.688022442899665, 0.56620571694393, 0.0865319014350673, 0.965336240640277, 2.4562951432938, 0.442174515567164, 2.16959511326347, 5.84967070625675, 0.0802256582898436, 0.807094572229046, 0.831510275829206, 3.06088249587567, 7.84947316519051, 0.939766456519272, 2.08002811722361, 0.169792654329705, 1.16011052636907, 2.74278094610367, 3.18752185714054, 1.03465140856114, 0.742978487169905, 1.38875329192844, 2.7907339351624, 0.649399307990452, 0.588658009946432, 1.62630213168625, 1.37885583765837, 3.4588052584027, 0.378607817368726, 1.64791350682152, 2.55856273925465, 1.11467486151704, 2.75867688212949, 1.44886182210277, 1.29127425323328, 0.872667965105639, 2.51428915807333, 0.603723867107512, 1.27216752717472, 1.33960210165592, 2.77466088473214, 2.68005879999676, 3.39848727561001, 1.61555684891069, 1.30087527736898, 1.45900279946893, 0.856134366332116, 1.58355905227488, 1.37885583765837, 1.00846268026794, 1.44886182210277, 1.72485420222661, 4.19550729872178, 1.43875636487019, 1.60485143740593, 5.07843950370286, 3.69143051554687, 2.13086828897653, 1.61555684891069, 2.13086828897653, 1.90882759744288, 1.51024935267055, 1.54143998175321, 3.6046538963397, 5.15057088795887, 5.99276309359934, 1.94466787312459, 2.44197697450093, 2.00540917116861, 4.32972243262905, 2.14371955784334, 1.9567142584347, 1.98095898169889, 2.88909931785647, 1.80390312212468, 2.18262044053522, 2.69561196483408, 4.71105188801319, 10.3567386812681, 2.16959511326347, 2.5884604688802, 2.72697211153424, 2.31621398549464, 2.85593682526588, 2.51428915807333, 2.42772951300254, 4.04227987136562, 2.64920176692422, 2.60352632604128, 4.32972243262905, 2.87247042403941, 2.82315118733936));atan(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testatan5() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));atan(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testatan6() {
+ assertEval("argv <- list(-1.46941282670977e-16);atan(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinatan2.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinatan2.java
new file mode 100644
index 0000000000000000000000000000000000000000..39539e6579f7c2da7380c3a5817e82ade9773d9d
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinatan2.java
@@ -0,0 +1,54 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinatan2 extends TestBase {
+
+ @Test
+ @Ignore
+ public void testatan21() {
+ assertEval("argv <- list(structure(0.142857142857143, .Names = \'Var2\'), structure(1.75510204081633, .Names = \'Var1\')); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testatan22() {
+ assertEval("argv <- list(structure(-0.224489795918367, .Names = \'Var2\'), structure(-0.816326530612245, .Names = \'Var1\')); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testatan23() {
+ assertEval("argv <- list(c(-1.95681154249341, -2.88854075894443, -2.84850921846233, -2.14635417317387, -1.72790445779804, -0.92649412488672, -0.261537463816701, 0.948205247045638, 1.0990096500205, 2.09024037060933, 2.90928417418961, 4.00425294069879, 1.70515935701163), c(-3.2406391957027, -2.61163262017643, -0.21977838696678, 1.24931893031091, 1.6032898858835, 2.16902716372255, 2.15792786802985, 2.10075226013806, 2.04989923648162, 1.49269068253165, 0.515893014329757, -2.61745072267338, -4.64929811590859)); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testatan24() {
+ assertEval("argv <- list(0+1i, 0+0i); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testatan25() {
+ assertEval("argv <- list(2.43782895752771e-05, 0.999996523206508); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testatan26() {
+ assertEval("argv <- list(logical(0), logical(0)); .Internal(atan2(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinatanh.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinatanh.java
new file mode 100644
index 0000000000000000000000000000000000000000..d0d146eb1e7399deda8f34ef6e7c8873d7a11d9b
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinatanh.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinatanh extends TestBase {
+
+ @Test
+ @Ignore
+ public void testatanh1() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));atanh(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testatanh2() {
+ assertEval("argv <- list(c(0.667355731370168, 0.757545006911892, 0.835315653735585, 0.984260691393257, 0.997724361757832, 0.998320334761744, 0.995857200407461, 0.978447456936914, 0.924289918318784, 0.794303899816803, 0.772144244057747, 0.886598050753707, 0.927287003572071, 0.862971883028345, 0.864426227271356, 0.927240697865085, 0.892356439729065, 0.753876685479294, 0.834371238466667, 0.856663357154979, 0.836217049107607, 0.820080611345367, 0.881122397467922, 0.964328668319385, 0.870112695225674, 0.897689370465451, 0.872889563044137, 0.716354206299899, 0.634385015212608, 0.77586178284932, 0.639202570327528, 0.710504816816848, 0.825388608284517, 0.812993921221196, 0.705406278672692, 0.577944207218662));atanh(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testatanh3() {
+ assertEval("argv <- list(-0.133190890463189);atanh(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testatanh4() {
+ assertEval("argv <- list(c(2+0i, 2-0.0001i, -2+0i, -2+0.0001i));atanh(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinattr.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinattr.java
new file mode 100644
index 0000000000000000000000000000000000000000..9ea688dcaf70a5d620fd19eeb9036aa7692cdfcc
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinattr.java
@@ -0,0 +1,258 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinattr extends TestBase {
+
+ @Test
+ public void testattr1() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1), .Dim = c(32L, 23L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\'), c(\'(Intercept)\', \'HairBrown\', \'HairRed\', \'HairBlond\', \'EyeBlue\', \'EyeHazel\', \'EyeGreen\', \'SexFemale\', \'HairBrown:EyeBlue\', \'HairRed:EyeBlue\', \'HairBlond:EyeBlue\', \'HairBrown:EyeHazel\', \'HairRed:EyeHazel\', \'HairBlond:EyeHazel\', \'HairBrown:EyeGreen\', \'HairRed:EyeGreen\', \'HairBlond:EyeGreen\', \'HairBrown:SexFemale\', \'HairRed:SexFemale\', \'HairBlond:SexFemale\', \'EyeBlue:SexFemale\', \'EyeHazel:SexFemale\', \'EyeGreen:SexFemale\')), assign = c(0L, 1L, 1L, 1L, 2L, 2L, 2L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 6L, 6L, 6L), contrasts = structure(list(Hair = \'contr.treatment\', Eye = \'contr.treatment\', Sex = \'contr.treatment\'), .Names = c(\'Hair\', \'Eye\', \'Sex\'))), \'assign\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr2() {
+ assertEval("argv <- list(structure(list(`cbind(X, M)` = structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(NULL, c(\'X\', \'M\'))), M.user = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L), .Label = c(\'N\', \'Y\'), class = \'factor\'), Temp = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c(\'High\', \'Low\'), class = \'factor\'), Soft = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c(\'Hard\', \'Medium\', \'Soft\'), class = \'factor\')), .Names = c(\'cbind(X, M)\', \'M.user\', \'Temp\', \'Soft\'), terms = quote(cbind(X, M) ~ M.user + Temp + Soft), row.names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\'), class = \'data.frame\'), \'terms\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr4() {
+ assertEval("argv <- list(structure(list(`cbind(w = weight, w2 = weight^2)` = structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c(\'w\', \'w2\'))), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c(\'Ctl\', \'Trt\'), class = \'factor\')), .Names = c(\'cbind(w = weight, w2 = weight^2)\', \'group\'), terms = quote(cbind(w = weight, w2 = weight^2) ~ group), row.names = c(NA, 20L), class = \'data.frame\'), \'terms\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr5() {
+ assertEval("argv <- list(structure(list(title = structure(1L, .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(2L, .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'title\', \'other.author\'), row.names = 1L, class = \'data.frame\'), \'row.names\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr6() {
+ assertEval("argv <- list(structure(list(Y = c(130L, 157L, 174L, 117L, 114L, 161L, 141L, 105L, 140L, 118L, 156L, 61L, 91L, 97L, 100L, 70L, 108L, 126L, 149L, 96L, 124L, 121L, 144L, 68L, 64L, 112L, 86L, 60L, 102L, 89L, 96L, 89L, 129L, 132L, 124L, 74L, 89L, 81L, 122L, 64L, 103L, 132L, 133L, 70L, 89L, 104L, 117L, 62L, 90L, 100L, 116L, 80L, 82L, 94L, 126L, 63L, 70L, 109L, 99L, 53L, 74L, 118L, 113L, 89L, 82L, 86L, 104L, 97L, 99L, 119L, 121L), B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c(\'I\', \'II\', \'III\', \'IV\', \'V\', \'VI\'), class = \'factor\'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c(\'Golden.rain\', \'Marvellous\', \'Victory\'), class = \'factor\'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\'), class = \'factor\')), .Names = c(\'Y\', \'B\', \'V\', \'N\'), terms = quote(Y ~ B + V + N + V:N), row.names = 2:72, class = \'data.frame\'), \'na.action\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr7() {
+ assertEval("argv <- list(structure(\'mtext(\\\'«Latin-1 accented chars»: éè øØ å<Å æ<Æ\\\', side = 3)\\n\', Rd_tag = \'RCODE\'), \'Rd_tag\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr8() {
+ assertEval("argv <- list(structure(c(72.8922646699554, 72.8922646699554, 72.8922646699554, 72.8922646699554, 72.8922646699554, 99.6344113579063, 99.6344113579063, 122.561298550713, 122.561298550713, 122.561298550713, 122.561298550713, 122.561298550713, 122.561298550713, 140.590935258431, 140.590935258431, 140.590935258431, 153.976908924618, 153.976908924618, 153.976908924618, 153.976908924618, 163.542360717164, 163.542360717164, 163.542360717164, 163.542360717164, 163.542360717164, 163.542360717164, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 170.206309375934, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 174.771283819687, 177.863643456281, 177.863643456281, 177.863643456281, 177.863643456281, 177.863643456281, 181.334266157228, 182.262171017221), gradient = structure(c(0, 0, 0, 0, 0, 57.4245712142609, 57.4245712142609, 92.0663000396056, 92.0663000396056, 92.0663000396056, 92.0663000396056, 92.0663000396056, 92.0663000396056, 102.603355837019, 102.603355837019, 102.603355837019, 96.1864486469068, 96.1864486469068, 96.1864486469068, 96.1864486469068, 80.9127637202515, 80.9127637202515, 80.9127637202515, 80.9127637202515, 80.9127637202515, 80.9127637202515, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 62.7567863240641, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 45.2165616754423, 29.9327435335998, 29.9327435335998, 29.9327435335998, 29.9327435335998, 29.9327435335998, 7.54853144661603, 0, 0.999999995832131, 0.999999995832131, 0.999999995832131, 0.999999995832131, 0.999999995832131, 0.900752404767751, 0.900752404767751, 0.72805882604922, 0.72805882604922, 0.72805882604922, 0.72805882604922, 0.72805882604922, 0.72805882604922, 0.546325339398677, 0.546325339398677, 0.546325339398677, 0.388712482407919, 0.388712482407919, 0.388712482407919, 0.388712482407919, 0.265313345750221, 0.265313345750221, 0.265313345750221, 0.265313345750221, 0.265313345750221, 0.265313345750221, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.174363797963106, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.109797198736723, 0.0650421524858363, 0.0650421524858363, 0.0650421524858363, 0.0650421524858363, 0.0650421524858363, 0.0138547080588812, -2.61666809427403e-08, 0, 0, 0, 0, 0, 0.186415683651876, 0.186415683651876, 0.381271875735367, 0.381271875735367, 0.381271875735367, 0.381271875735367, 0.381271875735367, 0.381271875735367, 0.552874143045278, 0.552874143045278, 0.552874143045278, 0.689351882872836, 0.689351882872836, 0.689351882872836, 0.689351882872836, 0.791184856858009, 0.791184856858009, 0.791184856858009, 0.791184856858009, 0.791184856858009, 0.791184856858009, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.864120807233518, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.914989166321596, 0.949854646587551, 0.949854646587551, 0.949854646587551, 0.949854646587551, 0.949854646587551, 0.989368022459573, 0.999999988297389), .Dim = c(52L, 3L))), \'gradient\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr9() {
+ assertEval("argv <- list(structure(list(Fr = c(32, 53, 10, 3, 11, 50, 10, 30, 10, 25, 7, 5, 3, 15, 7, 8, 36, 66, 16, 4, 9, 34, 7, 64, 5, 29, 7, 5, 2, 14, 7, 8), Hair = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c(\'Black\', \'Brown\', \'Red\', \'Blond\'), class = \'factor\'), Eye = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L), .Label = c(\'Brown\', \'Blue\', \'Hazel\', \'Green\'), class = \'factor\'), Sex = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c(\'Male\', \'Female\'), class = \'factor\')), .Names = c(\'Fr\', \'Hair\', \'Eye\', \'Sex\'), terms = quote(Fr ~ (Hair + Eye + Sex)^2), row.names = c(NA, 32L), class = \'data.frame\'), \'terms\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr10() {
+ assertEval("argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c(\'Employed\', \'GNP.deflator\', \'GNP\', \'Unemployed\', \'Armed.Forces\', \'Population\', \'Year\'), terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year), row.names = 1947:1962, class = \'data.frame\'), \'terms\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr11() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0), .Dim = c(12L, 3L), .Dimnames = list(c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\'), c(\'(Intercept)\', \'M.userY\', \'TempLow\')), assign = 0:2, contrasts = structure(list(M.user = \'contr.treatment\', Temp = \'contr.treatment\'), .Names = c(\'M.user\', \'Temp\'))), \'contrasts\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr12() {
+ assertEval("argv <- list(structure(list(`1000/MPG.city` = c(40, 55.5555555555556, 50, 52.6315789473684, 45.4545454545455, 45.4545454545455, 52.6315789473684, 62.5, 52.6315789473684, 62.5, 62.5, 40, 40, 52.6315789473684, 47.6190476190476, 55.5555555555556, 66.6666666666667, 58.8235294117647, 58.8235294117647, 50, 43.4782608695652, 50, 34.4827586206897, 43.4782608695652, 45.4545454545455, 58.8235294117647, 47.6190476190476, 55.5555555555556, 34.4827586206897, 50, 32.258064516129, 43.4782608695652, 45.4545454545455, 45.4545454545455, 41.6666666666667, 66.6666666666667, 47.6190476190476, 55.5555555555556, 21.7391304347826, 33.3333333333333, 41.6666666666667, 23.8095238095238, 41.6666666666667, 34.4827586206897, 45.4545454545455, 38.4615384615385, 50, 58.8235294117647, 55.5555555555556, 55.5555555555556, 58.8235294117647, 55.5555555555556, 34.4827586206897, 35.7142857142857, 38.4615384615385, 55.5555555555556, 58.8235294117647, 50, 52.6315789473684, 43.4782608695652, 52.6315789473684, 34.4827586206897, 55.5555555555556, 34.4827586206897, 41.6666666666667, 58.8235294117647, 47.6190476190476, 41.6666666666667, 43.4782608695652, 55.5555555555556, 52.6315789473684, 43.4782608695652, 32.258064516129, 43.4782608695652, 52.6315789473684, 52.6315789473684, 52.6315789473684, 50, 35.7142857142857, 30.3030303030303, 40, 43.4782608695652, 25.6410256410256, 31.25, 40, 45.4545454545455, 55.5555555555556, 40, 58.8235294117647, 47.6190476190476, 55.5555555555556, 47.6190476190476, 50), Weight = c(2705L, 3560L, 3375L, 3405L, 3640L, 2880L, 3470L, 4105L, 3495L, 3620L, 3935L, 2490L, 2785L, 3240L, 3195L, 3715L, 4025L, 3910L, 3380L, 3515L, 3085L, 3570L, 2270L, 2670L, 2970L, 3705L, 3080L, 3805L, 2295L, 3490L, 1845L, 2530L, 2690L, 2850L, 2710L, 3735L, 3325L, 3950L, 1695L, 2475L, 2865L, 2350L, 3040L, 2345L, 2620L, 2285L, 2885L, 4000L, 3510L, 3515L, 3695L, 4055L, 2325L, 2440L, 2970L, 3735L, 2895L, 2920L, 3525L, 2450L, 3610L, 2295L, 3730L, 2545L, 3050L, 4100L, 3200L, 2910L, 2890L, 3715L, 3470L, 2640L, 2350L, 2575L, 3240L, 3450L, 3495L, 2775L, 2495L, 2045L, 2490L, 3085L, 1965L, 2055L, 2950L, 3030L, 3785L, 2240L, 3960L, 2985L, 2810L, 2985L, 3245L), Cylinders = structure(c(2L, 4L, 4L, 4L, 2L, 2L, 4L, 4L, 4L, 5L, 5L, 2L, 2L, 4L, 2L, 4L, 4L, 5L, 5L, 4L, 2L, 4L, 2L, 2L, 2L, 4L, 2L, 4L, 2L, 4L, 2L, 2L, 2L, 2L, 2L, 4L, 4L, 5L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 5L, 4L, 4L, 4L, 5L, 2L, 2L, 2L, 4L, 6L, 2L, 4L, 2L, 4L, 2L, 4L, 2L, 2L, 4L, 4L, 2L, 2L, 4L, 4L, 2L, 2L, 2L, 4L, 4L, 4L, 2L, 2L, 1L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 4L, 2L, 3L), .Label = c(\'3\', \'4\', \'5\', \'6\', \'8\', \'rotary\'), class = \'factor\'), Type = structure(c(4L, 3L, 1L, 3L, 3L, 3L, 2L, 2L, 3L, 2L, 3L, 1L, 1L, 5L, 3L, 6L, 6L, 2L, 5L, 2L, 1L, 2L, 4L, 4L, 1L, 6L, 3L, 5L, 4L, 2L, 4L, 4L, 1L, 5L, 5L, 6L, 3L, 2L, 4L, 5L, 5L, 4L, 1L, 4L, 4L, 5L, 3L, 3L, 3L, 3L, 3L, 2L, 4L, 4L, 1L, 6L, 5L, 1L, 3L, 5L, 3L, 4L, 3L, 4L, 1L, 6L, 3L, 1L, 3L, 6L, 2L, 5L, 4L, 1L, 5L, 3L, 2L, 1L, 4L, 4L, 4L, 1L, 4L, 4L, 5L, 3L, 6L, 4L, 6L, 1L, 5L, 1L, 3L), .Label = c(\'Compact\', \'Large\', \'Midsize\', \'Small\', \'Sporty\', \'Van\'), class = \'factor\'), EngineSize = c(1.8, 3.2, 2.8, 2.8, 3.5, 2.2, 3.8, 5.7, 3.8, 4.9, 4.6, 2.2, 2.2, 3.4, 2.2, 3.8, 4.3, 5, 5.7, 3.3, 3, 3.3, 1.5, 2.2, 2.5, 3, 2.5, 3, 1.5, 3.5, 1.3, 1.8, 2.3, 2.3, 2, 3, 3, 4.6, 1, 1.6, 2.3, 1.5, 2.2, 1.5, 1.8, 1.5, 2, 4.5, 3, 3, 3.8, 4.6, 1.6, 1.8, 2.5, 3, 1.3, 2.3, 3.2, 1.6, 3.8, 1.5, 3, 1.6, 2.4, 3, 3, 2.3, 2.2, 3.8, 3.8, 1.8, 1.6, 2, 3.4, 3.4, 3.8, 2.1, 1.9, 1.2, 1.8, 2.2, 1.3, 1.5, 2.2, 2.2, 2.4, 1.8, 2.5, 2, 2.8, 2.3, 2.4), DriveTrain = structure(c(2L, 2L, 2L, 2L, 3L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 1L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 1L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 3L, 2L, 3L, 2L, 2L, 2L, 1L, 3L, 3L, 3L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 3L, 2L), .Label = c(\'4WD\', \'Front\', \'Rear\'), class = \'factor\')), .Names = c(\'1000/MPG.city\', \'Weight\', \'Cylinders\', \'Type\', \'EngineSize\', \'DriveTrain\'), terms = quote(1000/MPG.city ~ Weight + Cylinders + Type + EngineSize + DriveTrain), row.names = c(NA, 93L), class = \'data.frame\'), \'row.names\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr13() {
+ assertEval("argv <- list(quote(cbind(X, M) ~ 1), \'term.labels\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr14() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 2L, 1L), .Label = c(\'no\', \'yes\'), class = \'factor\'), \'levels\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr15() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1), Deviance = c(5.65604443125997, 8.44399377410362), AIC = c(71.3540021461976, 72.1419514890413)), .Names = c(\'Df\', \'Deviance\', \'AIC\'), row.names = c(\'<none>\', \'- M.user:Temp\'), class = c(\'anova\', \'data.frame\'), heading = c(\'Single term deletions\', \'\\nModel:\', \'cbind(X, M) ~ M.user + Temp + M.user:Temp\')), \'row.names\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr16() {
+ assertEval("argv <- list(structure(list(`1000/MPG.city` = c(40, 55.5555555555556, 50, 52.6315789473684, 45.4545454545455, 45.4545454545455, 52.6315789473684, 62.5, 52.6315789473684, 62.5, 62.5, 40, 40, 52.6315789473684, 47.6190476190476, 55.5555555555556, 66.6666666666667, 58.8235294117647, 58.8235294117647, 50, 43.4782608695652, 50, 34.4827586206897, 43.4782608695652, 45.4545454545455, 58.8235294117647, 47.6190476190476, 55.5555555555556, 34.4827586206897, 50, 32.258064516129, 43.4782608695652, 45.4545454545455, 45.4545454545455, 41.6666666666667, 66.6666666666667, 47.6190476190476, 55.5555555555556, 21.7391304347826, 33.3333333333333, 41.6666666666667, 23.8095238095238, 41.6666666666667, 34.4827586206897, 45.4545454545455, 38.4615384615385, 50, 58.8235294117647, 55.5555555555556, 55.5555555555556, 58.8235294117647, 55.5555555555556, 34.4827586206897, 35.7142857142857, 38.4615384615385, 55.5555555555556, 58.8235294117647, 50, 52.6315789473684, 43.4782608695652, 52.6315789473684, 34.4827586206897, 55.5555555555556, 34.4827586206897, 41.6666666666667, 58.8235294117647, 47.6190476190476, 41.6666666666667, 43.4782608695652, 55.5555555555556, 52.6315789473684, 43.4782608695652, 32.258064516129, 43.4782608695652, 52.6315789473684, 52.6315789473684, 52.6315789473684, 50, 35.7142857142857, 30.3030303030303, 40, 43.4782608695652, 25.6410256410256, 31.25, 40, 45.4545454545455, 55.5555555555556, 40, 58.8235294117647, 47.6190476190476, 55.5555555555556, 47.6190476190476, 50), Weight = c(2705L, 3560L, 3375L, 3405L, 3640L, 2880L, 3470L, 4105L, 3495L, 3620L, 3935L, 2490L, 2785L, 3240L, 3195L, 3715L, 4025L, 3910L, 3380L, 3515L, 3085L, 3570L, 2270L, 2670L, 2970L, 3705L, 3080L, 3805L, 2295L, 3490L, 1845L, 2530L, 2690L, 2850L, 2710L, 3735L, 3325L, 3950L, 1695L, 2475L, 2865L, 2350L, 3040L, 2345L, 2620L, 2285L, 2885L, 4000L, 3510L, 3515L, 3695L, 4055L, 2325L, 2440L, 2970L, 3735L, 2895L, 2920L, 3525L, 2450L, 3610L, 2295L, 3730L, 2545L, 3050L, 4100L, 3200L, 2910L, 2890L, 3715L, 3470L, 2640L, 2350L, 2575L, 3240L, 3450L, 3495L, 2775L, 2495L, 2045L, 2490L, 3085L, 1965L, 2055L, 2950L, 3030L, 3785L, 2240L, 3960L, 2985L, 2810L, 2985L, 3245L), Cylinders = structure(c(2L, 4L, 4L, 4L, 2L, 2L, 4L, 4L, 4L, 5L, 5L, 2L, 2L, 4L, 2L, 4L, 4L, 5L, 5L, 4L, 2L, 4L, 2L, 2L, 2L, 4L, 2L, 4L, 2L, 4L, 2L, 2L, 2L, 2L, 2L, 4L, 4L, 5L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 5L, 4L, 4L, 4L, 5L, 2L, 2L, 2L, 4L, 6L, 2L, 4L, 2L, 4L, 2L, 4L, 2L, 2L, 4L, 4L, 2L, 2L, 4L, 4L, 2L, 2L, 2L, 4L, 4L, 4L, 2L, 2L, 1L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 4L, 2L, 3L), .Label = c(\'3\', \'4\', \'5\', \'6\', \'8\', \'rotary\'), class = \'factor\'), Type = structure(c(4L, 3L, 1L, 3L, 3L, 3L, 2L, 2L, 3L, 2L, 3L, 1L, 1L, 5L, 3L, 6L, 6L, 2L, 5L, 2L, 1L, 2L, 4L, 4L, 1L, 6L, 3L, 5L, 4L, 2L, 4L, 4L, 1L, 5L, 5L, 6L, 3L, 2L, 4L, 5L, 5L, 4L, 1L, 4L, 4L, 5L, 3L, 3L, 3L, 3L, 3L, 2L, 4L, 4L, 1L, 6L, 5L, 1L, 3L, 5L, 3L, 4L, 3L, 4L, 1L, 6L, 3L, 1L, 3L, 6L, 2L, 5L, 4L, 1L, 5L, 3L, 2L, 1L, 4L, 4L, 4L, 1L, 4L, 4L, 5L, 3L, 6L, 4L, 6L, 1L, 5L, 1L, 3L), .Label = c(\'Compact\', \'Large\', \'Midsize\', \'Small\', \'Sporty\', \'Van\'), class = \'factor\'), EngineSize = c(1.8, 3.2, 2.8, 2.8, 3.5, 2.2, 3.8, 5.7, 3.8, 4.9, 4.6, 2.2, 2.2, 3.4, 2.2, 3.8, 4.3, 5, 5.7, 3.3, 3, 3.3, 1.5, 2.2, 2.5, 3, 2.5, 3, 1.5, 3.5, 1.3, 1.8, 2.3, 2.3, 2, 3, 3, 4.6, 1, 1.6, 2.3, 1.5, 2.2, 1.5, 1.8, 1.5, 2, 4.5, 3, 3, 3.8, 4.6, 1.6, 1.8, 2.5, 3, 1.3, 2.3, 3.2, 1.6, 3.8, 1.5, 3, 1.6, 2.4, 3, 3, 2.3, 2.2, 3.8, 3.8, 1.8, 1.6, 2, 3.4, 3.4, 3.8, 2.1, 1.9, 1.2, 1.8, 2.2, 1.3, 1.5, 2.2, 2.2, 2.4, 1.8, 2.5, 2, 2.8, 2.3, 2.4), DriveTrain = structure(c(2L, 2L, 2L, 2L, 3L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 1L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 1L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 3L, 2L, 3L, 2L, 2L, 2L, 1L, 3L, 3L, 3L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 3L, 2L), .Label = c(\'4WD\', \'Front\', \'Rear\'), class = \'factor\')), .Names = c(\'1000/MPG.city\', \'Weight\', \'Cylinders\', \'Type\', \'EngineSize\', \'DriveTrain\'), terms = quote(1000/MPG.city ~ Weight + Cylinders + Type + EngineSize + DriveTrain), row.names = c(NA, 93L), class = \'data.frame\'), \'na.action\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr17() {
+ assertEval("argv <- list(structure(c(0.5, 0.5, 0.5, 0.5), gradient = structure(c(NaN, NaN, NaN, NaN), .Dim = c(4L, 1L), .Dimnames = list(NULL, \'L75\'))), \'gradient\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr18() {
+ assertEval("argv <- list(c(NA, NA, \'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/histogram.R\', \'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/histogram.R\'), \'levels\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr19() {
+ assertEval("argv <- list(structure(list(srcfile = c(\'/home/lzhao/hg/r-instrumented/library/stats/R/stats\', \'/home/lzhao/hg/r-instrumented/library/stats/R/stats\', \'/home/lzhao/hg/r-instrumented/library/stats/R/stats\', \'/home/lzhao/hg/r-instrumented/library/stats/R/stats\', \'/home/lzhao/hg/r-instrumented/library/stats/R/stats\', \'/home/lzhao/hg/r-instrumented/library/stats/R/stats\'), frow = c(2418L, 2418L, 2418L, 2421L, 2422L, 2424L), lrow = c(2418L, 2418L, 2418L, 2421L, 2426L, 2424L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, 6L), class = \'data.frame\'), \'row.names\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr20() {
+ assertEval("argv <- list(structure(c(\'[[.bibentry\', \'[[.data.frame\', \'[[.Date\', \'[[.dendrogram\', \'[[.factor\', \'[[.numeric_version\', \'[[.pdf_doc\', \'[[.person\', \'[[.POSIXct\'), class = \'MethodsFunction\', info = structure(list(visible = c(FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE), from = structure(c(9L, 2L, 2L, 9L, 2L, 2L, 9L, 9L, 2L), .Label = c(\'CheckExEnv\', \'package:base\', \'package:datasets\', \'package:graphics\', \'package:grDevices\', \'package:methods\', \'package:stats\', \'package:utils\', \'registered S3method for [[\'), class = \'factor\')), .Names = c(\'visible\', \'from\'), row.names = c(\'[[.bibentry\', \'[[.data.frame\', \'[[.Date\', \'[[.dendrogram\', \'[[.factor\', \'[[.numeric_version\', \'[[.pdf_doc\', \'[[.person\', \'[[.POSIXct\'), class = \'data.frame\')), \'info\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr21() {
+ assertEval("argv <- list(structure(list(ID = c(63L, 63L, 63L, 63L, 63L), Age = c(30L, 30L, 30L, 30L, 30L), OME = structure(c(3L, 3L, 3L, 3L, 3L), .Label = c(\'N/A\', \'high\', \'low\'), class = \'factor\'), Loud = c(35L, 40L, 45L, 50L, 55L), Noise = structure(c(2L, 2L, 2L, 2L, 2L), .Label = c(\'coherent\', \'incoherent\'), class = \'factor\'), Correct = c(1L, 1L, 1L, 3L, 1L), Trials = c(2L, 1L, 1L, 3L, 1L), UID = c(67L, 67L, 67L, 67L, 67L), UIDn = c(67.1, 67.1, 67.1, 67.1, 67.1)), .Names = c(\'ID\', \'Age\', \'OME\', \'Loud\', \'Noise\', \'Correct\', \'Trials\', \'UID\', \'UIDn\'), row.names = c(635L, 639L, 643L, 647L, 651L), class = \'data.frame\'), \'na.action\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr22() {
+ assertEval("argv <- list(structure(c(0, 3, 3, 0), .Dim = c(2L, 2L), counts = structure(c(0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 2L, 2L, 0L), .Dim = c(2L, 2L, 3L), .Dimnames = list(NULL, NULL, c(\'ins\', \'del\', \'sub\'))), trafos = structure(c(\'MMMMMM\', \'SMMMSMD\', \'SMMMSMI\', \'MMMMMMM\'), .Dim = c(2L, 2L))), \'trafos\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr23() {
+ assertEval("argv <- list(structure(list(y = c(73, 73, 70, 74, 75, 115, 105, 107, 124, 107, 116, 125, 102, 144, 178, 149, 177, 124, 157, 128, 169, 165, 186, 152, 181, 139, 173, 151, 138, 181, 152, 188, 173, 196, 180, 171, 188, 174, 198, 172, 176, 162, 188, 182, 182, 141, 191, 190, 159, 170, 163, 197), x = c(1, 1, 1, 1, 1, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 11, 12), Ta = 1, Tb = 12), .Names = c(\'y\', \'x\', \'Ta\', \'Tb\'), terms = quote(~y + x)), \'terms\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr24() {
+ assertEval("argv <- list(structure(c(804.851443135267, 3.3994157758076, 28.3699038266834, 1.84375046462573), .Dim = c(2L, 2L), .Dimnames = list(c(\'(Intercept)\', \'day\'), c(\'Variance\', \'StdDev\')), formStr = \'pdLogChol(day)\', corr = structure(c(\'(Intr)\', \'-0.555\'), .Dim = c(2L, 1L), .Dimnames = list(c(\'(Intercept)\', \'day\'), \'Corr\'))), which = \'corr\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr25() {
+ assertEval("argv <- list(structure(c(0.0319339476375948, 0.0319339476375948, 0.114405269727263, 0.114405269727263, 0.211060625790557, 0.211060625790557, 0.375868556643391, 0.375868556643391, 0.631987388405009, 0.631987388405009, 0.977771587733117, 0.977771587733117, 1.3655287091085, 1.3655287091085, 1.71941659701549, 1.71941659701549), gradient = structure(c(0.013379193963099, 0.013379193963099, 0.0479317593757097, 0.0479317593757097, 0.0884269330704518, 0.0884269330704518, 0.157475623779182, 0.157475623779182, 0.264780350605592, 0.264780350605592, 0.409651693312349, 0.409651693312349, 0.572108204994814, 0.572108204994814, 0.720374706438093, 0.720374706438093, -0.0298119721009501, -0.0298119721009501, -0.103062799493893, -0.103062799493893, -0.182048260790464, -0.182048260790464, -0.299644491810901, -0.299644491810901, -0.439656344689613, -0.439656344689613, -0.546177195068236, -0.546177195068236, -0.552869486814534, -0.552869486814534, -0.454930857067767, -0.454930857067767), .Dim = c(16L, 2L), .Dimnames = list(NULL, c(\'Asym\', \'xmid\')))), \'gradient\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr26() {
+ assertEval("argv <- list(structure(list(structure(list(structure(\'Update varFunc Object\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\title\'), structure(list(structure(\'update.varFunc\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\name\'), structure(list(structure(\'update.varExp\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'update.varFunc\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'update.varComb\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'update.varConstPower\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'update.varExpon\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'update.varPower\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'models\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\keyword\'), structure(list(structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' If the \', Rd_tag = \'TEXT\'), structure(list(structure(\'formula(object)\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\' includes a \', Rd_tag = \'TEXT\'), structure(list(structure(\'\\\'.\\\'\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\' term, representing\\n\', Rd_tag = \'TEXT\'), structure(\' a fitted object, the variance covariate needs to be updated upon\\n\', Rd_tag = \'TEXT\'), structure(\' completion of an optimization cycle (in which the variance function\\n\', Rd_tag = \'TEXT\'), structure(\' weights are kept fixed). This method function allows a reevaluation of\\n\', Rd_tag = \'TEXT\'), structure(\' the variance covariate using the current fitted object and,\\n\', Rd_tag = \'TEXT\'), structure(\' optionally, other variables in the original data.\\n\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\description\'), structure(list(structure(\'\\n\', Rd_tag = \'RCODE\'), structure(list(list(structure(\'update\', Rd_tag = \'TEXT\')), list(structure(\'varFunc\', Rd_tag = \'TEXT\'))), Rd_tag = \'\\\\method\'), structure(\'(object, data, \', Rd_tag = \'RCODE\'), structure(list(), Rd_tag = \'\\\\dots\'), structure(\')\\n\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\usage\'), structure(list(structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\'), structure(list(list(structure(\'object\', Rd_tag = \'TEXT\')), list(structure(\'an object inheriting from class \', Rd_tag = \'TEXT\'), structure(list(structure(\'varFunc\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\',\\n\', Rd_tag = \'TEXT\'), structure(\' representing a variance function structure.\', Rd_tag = \'TEXT\'))), Rd_tag = \'\\\\item\'), structure(\' \\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\'), structure(list(list(structure(\'data\', Rd_tag = \'TEXT\')), list(structure(\'a list with a component named \', Rd_tag = \'TEXT\'), structure(list(structure(\'\\\'.\\\'\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\' with the current\\n\', Rd_tag = \'TEXT\'), structure(\' version of the fitted object (from which fitted values, coefficients,\\n\', Rd_tag = \'TEXT\'), structure(\' and residuals can be extracted) and, if necessary, other variables\\n\', Rd_tag = \'TEXT\'), structure(\' used to evaluate the variance covariate(s).\', Rd_tag = \'TEXT\'))), Rd_tag = \'\\\\item\'), structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\'), structure(list(list(structure(list(), Rd_tag = \'\\\\dots\')), list(structure(\'some methods for this generic require additional\\n\', Rd_tag = \'TEXT\'), structure(\' arguments. None are used in this method.\', Rd_tag = \'TEXT\'))), Rd_tag = \'\\\\item\'), structure(\' \\n\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\arguments\'), structure(list(structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' if \', Rd_tag = \'TEXT\'), structure(list(structure(\'formula(object)\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\' includes a \', Rd_tag = \'TEXT\'), structure(list(structure(\'\\\'.\\\'\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\' term, an\\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\'), structure(list(structure(\'varFunc\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\' object similar to \', Rd_tag = \'TEXT\'), structure(list(structure(\'object\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\', but with the \\n\', Rd_tag = \'TEXT\'), structure(\' variance covariate reevaluated at the current fitted object value;\\n\', Rd_tag = \'TEXT\'), structure(\' else \', Rd_tag = \'TEXT\'), structure(list(structure(\'object\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\' is returned unchanged.\\n\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\value\'), structure(list(structure(\'José Pinheiro and Douglas Bates \', Rd_tag = \'TEXT\'), structure(list(structure(\'bates@stat.wisc.edu\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\email\')), Rd_tag = \'\\\\author\'), structure(list(structure(list(structure(list(structure(\'needUpdate\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\link\')), Rd_tag = \'\\\\code\'), structure(\',\\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\'), structure(list(structure(list(structure(\'covariate<-.varFunc\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\link\')), Rd_tag = \'\\\\code\'), structure(\'\\n\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\seealso\')), Rdfile = \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/man/update.varFunc.Rd\', class = \'Rd\', meta = structure(list(docType = character(0)), .Names = \'docType\'), prepared = 3L), \'prepared\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr27() {
+ assertEval("argv <- list(structure(list(structure(list(structure(\'Print a varFunc Object\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\title\'), structure(list(structure(\'print.varFunc\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\name\'), structure(list(structure(\'print.varFunc\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'print.varComb\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'models\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\keyword\'), structure(list(structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' The class and the coefficients associated with \', Rd_tag = \'TEXT\'), structure(list(structure(\'x\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\' are printed.\\n\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\description\'), structure(list(structure(\'\\n\', Rd_tag = \'RCODE\'), structure(list(list(structure(\'print\', Rd_tag = \'TEXT\')), list(structure(\'varFunc\', Rd_tag = \'TEXT\'))), Rd_tag = \'\\\\method\'), structure(\'(x, \', Rd_tag = \'RCODE\'), structure(list(), Rd_tag = \'\\\\dots\'), structure(\')\\n\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\usage\'), structure(list(structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\'), structure(list(list(structure(\'x\', Rd_tag = \'TEXT\')), list(structure(\'an object inheriting from class \', Rd_tag = \'TEXT\'), structure(list(structure(\'varFunc\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\', representing a\\n\', Rd_tag = \'TEXT\'), structure(\' variance function structure.\', Rd_tag = \'TEXT\'))), Rd_tag = \'\\\\item\'), structure(\'\\n\', Rd_tag = \'TEXT\'), structure(\' \', Rd_tag = \'TEXT\'), structure(list(list(structure(list(), Rd_tag = \'\\\\dots\')), list(structure(\'optional arguments passed to \', Rd_tag = \'TEXT\'), structure(list(structure(\'print.default\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\code\'), structure(\'; see\\n\', Rd_tag = \'TEXT\'), structure(\' the documentation on that method function.\', Rd_tag = \'TEXT\'))), Rd_tag = \'\\\\item\'), structure(\'\\n\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\arguments\'), structure(list(structure(\'Jos<U+00E9> Pinheiro and Douglas Bates \', Rd_tag = \'TEXT\'), structure(list(structure(\'bates@stat.wisc.edu\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\email\')), Rd_tag = \'\\\\author\'), structure(list(structure(list( structure(list(structure(\'summary.varFunc\', Rd_tag = \'TEXT\')), Rd_tag = \'\\\\link\')), Rd_tag = \'\\\\code\')), Rd_tag = \'\\\\seealso\'), structure(list(structure(\'\\n\', Rd_tag = \'RCODE\'), structure(\'vf1 <- varPower(0.3, form = ~age)\\n\', Rd_tag = \'RCODE\'), structure(\'vf1 <- Initialize(vf1, Orthodont)\\n\', Rd_tag = \'RCODE\'), structure(\'print(vf1)\\n\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\examples\')), Rdfile = \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/man/print.varFunc.Rd\', class = \'Rd\', meta = structure(list( docType = character(0)), .Names = \'docType\'), prepared = 3L), \'meta\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr28() {
+ assertEval("argv <- list(structure(list(variable1 = c(1, 2, 2), variable2 = c(1, 1, 3)), .Names = c(\'variable1\', \'variable2\'), row.names = c(NA, -3L), class = \'data.frame\', variable.labels = structure(c(\'variable1\', \'variable2\'), .Names = c(\'variable1\', \'variable2\')), codepage = 20127L), \'variable.labels\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr29() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c(\'abc\', \'def\'), class = \'factor\')), .Names = c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\'), class = \'data.frame\', row.names = c(\'1\', \'2\', \'3\')), \'row.names\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr30() {
+ assertEval("argv <- list(structure(list(srcfile = c(\'/home/lzhao/hg/r-instrumented/library/graphics/R/graphics\', \'/home/lzhao/hg/r-instrumented/library/graphics/R/graphics\'), frow = 4262:4263, lrow = 4262:4263), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = 1:2, class = \'data.frame\'), \'row.names\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr31() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c(\'1\', \'2\', NA), class = c(\'ordered\', \'factor\')), \'levels\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr32() {
+ assertEval("argv <- list(structure(1:10, date = structure(200171400, class = c(\'POSIXct\', \'POSIXt\'), tzone = \'\'), class = \'stamped\'), \'date\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr33() {
+ assertEval("argv <- list(structure(c(49.9, 52.3, 49.4, 51.1, 49.4, 47.9, 49.8, 50.9, 49.3, 51.9, 50.8, 49.6, 49.3, 50.6, 48.4, 50.7, 50.9, 50.6, 51.5, 52.8, 51.8, 51.1, 49.8, 50.2, 50.4, 51.6, 51.8, 50.9, 48.8, 51.7, 51, 50.6, 51.7, 51.5, 52.1, 51.3, 51, 54, 51.4, 52.7, 53.1, 54.6, 52, 52, 50.9, 52.6, 50.2, 52.6, 51.6, 51.9, 50.5, 50.9, 51.7), .Tsp = c(1, 53, 1)), \'tsp\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr34() {
+ assertEval("argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c(\'y\', \'x\', \'z\'), class = \'data.frame\', row.names = c(NA, 10L), terms = quote(y ~ x * z)), \'row.names\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr35() {
+ assertEval("argv <- list(structure(c(123.48457192908, 239.059434652297, 290.055338401838, 18.397281603467, 6.57585722655537, 0.670931786731845, 0.178466148156965, 0.245410750178149, 0.363167328274208, 0.194808268742596, 2172.67583033103, 8.91763605923317e+38), .Dim = c(1L, 12L), .Dimnames = list(NULL, c(\'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\'))), \'class\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr36() {
+ assertEval("argv <- list(structure(c(8.85169533448293e-238, 2.77884205079773e-237, 8.5330427463164e-242, 7.89244209468013e-215, 6.74732964729372e-231, 1.30818670504849e-217, 1.39113376416096e-208, 1.35683278955814e-215, 7.74002099666521e-219, 3.64254537730231e-220, 6.75916981442421e-296, 0), .Dim = c(1L, 12L), .Dimnames = list(NULL, c(\'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\'))), \'class\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr37() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 1.90299264808673e-318, 0, 0, 0, 0, 0), .Dim = c(1L, 12L), .Dimnames = list(NULL, c(\'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\'))), \'class\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr38() {
+ assertEval("argv <- list(list(c(57, 95, 8, 69, 92, 90, 15, 2, 84, 6, 127, 36, 51, 2, 69, 71, 87, 72, 5, 39, 22, 16, 72, 4, 130, 4, 114, 9, 20, 24, 10, 51, 43, 28, 60, 5, 17, 7, 81, 71, 12, 29, 44, 77, 4, 27, 47, 76, 8, 72, 13, 57, 4, 81, 20, 61, 80, 114, 39, 14, 86, 55, 3, 19)), \'names\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr39() {
+ assertEval("argv <- list(structure(list(coef = c(0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099, 0.0099009900990099), m = 50L), .Names = c(\'coef\', \'m\'), name = \'Daniell(50)\', class = \'tskernel\'), \'name\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr40() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.0519265581680438, 0.0688412118115477, 0.0907383424760159, 0.11871257874736, 0.153851867351129, 0.197066627437879, 0.248849916275927, 0.309003712276245, 0.376411716520019, 0.448970177554117, 0.523767544415284, 0.560977234455458), .Dim = c(12L, 2L), gradient = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.00738389705040961, -0.00961449255414965, -0.0123746759217436, -0.0156916432890164, -0.0195255505224529, -0.0237326760503604, -0.0280361473696848, -0.032025323792521, -0.035205879677649, -0.0371062207595128, -0.0374120660881388, -0.0369391076611127, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.142994094104604, 0.166962078687643, 0.190145150639427, 0.209729276540067, 0.221920901693929, 0.222272332097609, 0.206504915766748, 0.17183720786829, 0.11849125053358, 0.0506747206505475, -0.0237317230350864, -0.0603708169587119), .Dim = c(12L, 2L, 2L))), \'gradient\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr41() {
+ assertEval("argv <- list(structure(list(A = 0:10, B = 10:20, `NA` = 20:30), .Names = c(\'A\', \'B\', NA), row.names = c(NA, -11L), class = \'data.frame\'), \'row.names\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr42() {
+ assertEval("argv <- list(structure(list(coef = c(0.1, 0.1, 0.1, 0.1, 0.1, 0.05), m = 5L), .Names = c(\'coef\', \'m\'), name = \'mDaniell(5)\', class = \'tskernel\'), \'name\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr43() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Dim = c(10L, 2L), .Dimnames = list(NULL, c(\'tt\', \'tt + 1\')), .Tsp = c(1920.5, 1921.25, 12), class = c(\'mts\', \'ts\', \'matrix\')), \'tsp\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattr44() {
+ assertEval("argv <- list(structure(c(2L, NA, NA, 4L, 3L, 2L, 1L, 5L, 5L, 6L), .Label = c(\'NA\', \'a\', \'b\', \'c\', \'d\', NA), class = \'factor\'), \'levels\');attr(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testattr45() {
+ assertEval("argv <- list(c(35.2589338684655, 59.5005803666983, 12.4529321610302, 2.53579570262684, 10.370198579714, 42.0067149618146, 8.14319638132861, 34.0508943233725, 7.78517191057496, 26.9998965458032, 6.70435391953205, 3.62502215105156, 2.59277105754344, 14.4998960151485, 6.70435391953205, 5.8000097831969, 32.741875696675, 59.5015090627504, 13.5512565366133, 4.46460764999704, 9.62989278443572, 42.0073706103832, 8.86141045052292, 59.9511558158597, 7.22940551532861, 27.0003179651772, 7.29566488446303, 6.38233656214029, 2.40767880256155, 14.5001223322046, 7.29566488446303, 10.2116933242272), \'dim\');attr(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinattrassign.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinattrassign.java
new file mode 100644
index 0000000000000000000000000000000000000000..7f80682b22d7df81a9239b7e1e011120425c63a2
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinattrassign.java
@@ -0,0 +1,114 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinattrassign extends TestBase {
+
+ @Test
+ @Ignore
+ public void testattrassign1() {
+ assertEval("argv <- list(structure(1, foo = structure(list(a = \'a\'), .Names = \'a\')), \'foo\', value = structure(list(a = \'a\'), .Names = \'a\'));`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattrassign2() {
+ assertEval("argv <- list(structure(c(-99, 123, 0, -27, 0, 136, 3.5527136788005e-14, 0, -89, -59, 54.9999999999999, -260, 30, 47, 0), .Dim = c(5L, 3L)), \'dimnames\', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattrassign3() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, NA, 1, 0, 0, 0, 7, 1, 0, 3, 0, 0, 1), .Dim = c(4L, 4L)), \'dimnames\', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattrassign4() {
+ assertEval("argv <- list(structure(c(51.4483279898675, 51.4483279898675, 103.874299440142, 103.874299440142, 135.181084465022, 135.181084465022, 165.022949241512, 165.022949241512, 190.564205234787, 190.564205234787, 200.417426252912, 200.417426252912), gradient = structure(c(0.242941154845256, 0.242941154845256, 0.490498782967253, 0.490498782967253, 0.638330730196604, 0.638330730196604, 0.779245262792577, 0.779245262792577, 0.899852140987463, 0.899852140987463, 0.946379462411014, 0.946379462411014, -624.945810835795, -624.945810835795, -849.17029094943, -849.17029094943, -784.456730502965, -784.456730502965, -584.515233856856, -584.515233856856, -306.213585850174, -306.213585850174, -172.428123740936, -172.428123740936), .Dim = c(12L, 2L), .Dimnames = list(NULL, c(\'Vm\', \'K\'))), hessian = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2.95102023587733, -2.95102023587733, -4.00981760153928, -4.00981760153928, -3.70423746466663, -3.70423746466663, -2.76010536174851, -2.76010536174851, -1.44595334935665, -1.44595334935665, -0.814212806248508, -0.814212806248508, -2.95102023587733, -2.95102023587733, -4.00981760153928, -4.00981760153928, -3.70423746466663, -3.70423746466663, -2.76010536174851, -2.76010536174851, -1.44595334935665, -1.44595334935665, -0.814212806248508, -0.814212806248508, 15182.5057000153, 15182.5057000153, 13883.8998080881, 13883.8998080881, 9104.41522890179, 9104.41522890179, 4140.73388193682, 4140.73388193682, 984.096252952598, 984.096252952598, 296.69533645543, 296.69533645543), .Dim = c(12L, 2L, 2L), .Dimnames = list(NULL, c(\'Vm\', \'K\'), c(\'Vm\', \'K\')))), \'hessian\', value = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2.95102023587733, -2.95102023587733, -4.00981760153928, -4.00981760153928, -3.70423746466663, -3.70423746466663, -2.76010536174851, -2.76010536174851, -1.44595334935665, -1.44595334935665, -0.814212806248508, -0.814212806248508, -2.95102023587733, -2.95102023587733, -4.00981760153928, -4.00981760153928, -3.70423746466663, -3.70423746466663, -2.76010536174851, -2.76010536174851, -1.44595334935665, -1.44595334935665, -0.814212806248508, -0.814212806248508, 15182.5057000153, 15182.5057000153, 13883.8998080881, 13883.8998080881, 9104.41522890179, 9104.41522890179, 4140.73388193682, 4140.73388193682, 984.096252952598, 984.096252952598, 296.69533645543, 296.69533645543), .Dim = c(12L, 2L, 2L), .Dimnames = list(NULL, c(\'Vm\', \'K\'), c(\'Vm\', \'K\'))));`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattrassign5() {
+ assertEval("argv <- list(structure(c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = 3:4), \'dimnames\', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattrassign6() {
+ assertEval("argv <- list(structure(c(\'o\', \'p\', \'v\', \'i\', \'r\', \'w\', \'b\', \'m\', \'f\', \'s\'), date = structure(1224086400, class = c(\'POSIXct\', \'POSIXt\'), tzone = \'\')), \'date\', value = structure(1224086400, class = c(\'POSIXct\', \'POSIXt\'), tzone = \'\'));`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattrassign7() {
+ assertEval("argv <- list(structure(list(structure(list(structure(13L, label = \'Illinois\', members = 1L, height = 0, leaf = TRUE), structure(32L, label = \'New York\', members = 1L, height = 0, leaf = TRUE)), members = 2L, midpoint = 0.5, height = 6.23698645180507), structure(list(structure(22L, label = \'Michigan\', members = 1L, height = 0, leaf = TRUE), structure(28L, label = \'Nevada\', members = 1L, height = 0, leaf = TRUE)), members = 2L, midpoint = 0.5, height = 13.2973681606549)), members = 4L, midpoint = 1.5, height = 18.4173313943456, class = \'dendrogram\', edgePar = structure(list( p.col = \'plum\'), .Names = \'p.col\'), edgetext = \'4 members\'), \'edgetext\', value = \'4 members\');`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattrassign8() {
+ assertEval("argv <- list(structure(4, \'`Object created`\' = \'Sat Dec 7 00:26:20 2013\'), \'Object created\', value = \'Sat Dec 7 00:26:20 2013\');`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattrassign9() {
+ assertEval("argv <- list(structure(1:3, .Names = c(\'a\', \'b\', \'c\')), \'names\', value = list(\'a\', \'b\', \'c\'));`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattrassign10() {
+ assertEval("argv <- list(structure(list(a = 1:3, b = structure(1:3, .Label = c(\'a\', \'b\', \'c\'), class = \'factor\')), .Names = c(\'a\', \'b\'), row.names = c(NA, -3L), class = \'data.frame\', foo = 10), \'foo\', value = 10);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattrassign11() {
+ assertEval("argv <- list(structure(c(50.566057038188, 50.566057038188, 102.811023011144, 102.811023011144, 134.361651733496, 134.361651733496, 164.684698598908, 164.684698598908, 190.832887571642, 190.832887571642, 200.968775266774, 200.968775266774), gradient = structure(c(0.237752464043283, 0.237752464043283, 0.483398854556726, 0.483398854556726, 0.631744210319564, 0.631744210319564, 0.774317697987532, 0.774317697987532, 0.897261758147131, 0.897261758147131, 0.944918870762493, 0.944918870762493, -601.11023288912, -601.11023288912, -828.312179323201, -828.312179323201, -771.656323378267, -771.656323378267, -579.628530513078, -579.628530513078, -305.762593240759, -305.762593240759, -172.635625621456, -172.635625621456), .Dim = c(12L, 2L), .Dimnames = list(NULL, c(\'Vm\', \'K\')))), \'gradient\', value = structure(c(0.237752464043283, 0.237752464043283, 0.483398854556726, 0.483398854556726, 0.631744210319564, 0.631744210319564, 0.774317697987532, 0.774317697987532, 0.897261758147131, 0.897261758147131, 0.944918870762493, 0.944918870762493, -601.11023288912, -601.11023288912, -828.312179323201, -828.312179323201, -771.656323378267, -771.656323378267, -579.628530513078, -579.628530513078, -305.762593240759, -305.762593240759, -172.635625621456, -172.635625621456), .Dim = c(12L, 2L), .Dimnames = list(NULL, c(\'Vm\', \'K\'))));`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattrassign12() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 20L)), \'dimnames\', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattrassign13() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(19L, 22L)), \'dimnames\', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattrassign14() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 20L)), \'dimnames\', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattrassign15() {
+ assertEval("argv <- list(structure(c(\'8189464 kB\', \'52252 kB\', \'237240 kB\', \'6704452 kB\', \'5868 kB\', \'3947300 kB\', \'3641700 kB\', \'521488 kB\', \'126264 kB\', \'3425812 kB\', \'3515436 kB\', \'0 kB\', \'0 kB\', \'20603324 kB\', \'20546156 kB\', \'1964 kB\', \'0 kB\', \'645292 kB\', \'12420 kB\', \'76 kB\', \'343696 kB\', \'303404 kB\', \'40292 kB\', \'2344 kB\', \'8464 kB\', \'0 kB\', \'0 kB\', \'0 kB\', \'24698056 kB\', \'1053308 kB\', \'34359738367 kB\', \'301080 kB\', \'34359386948 kB\', \'0 kB\', \'0\', \'0\', \'0\', \'0\', \'2048 kB\', \'7488 kB\', \'8376320 kB\'), .Names = c(\'MemTotal\', \'MemFree\', \'Buffers\', \'Cached\', \'SwapCached\', \'Active\', \'Inactive\', \'Active(anon)\', \'Inactive(anon)\', \'Active(file)\', \'Inactive(file)\', \'Unevictable\', \'Mlocked\', \'SwapTotal\', \'SwapFree\', \'Dirty\', \'Writeback\', \'AnonPages\', \'Mapped\', \'Shmem\', \'Slab\', \'SReclaimable\', \'SUnreclaim\', \'KernelStack\', \'PageTables\', \'NFS_Unstable\', \'Bounce\', \'WritebackTmp\', \'CommitLimit\', \'Committed_AS\', \'VmallocTotal\', \'VmallocUsed\', \'VmallocChunk\', \'HardwareCorrupted\', \'HugePages_Total\', \'HugePages_Free\', \'HugePages_Rsvd\', \'HugePages_Surp\', \'Hugepagesize\', \'DirectMap4k\', \'DirectMap2M\'), Name = \'/proc/meminfo\'), \'Name\', value = \'/proc/meminfo\');`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattrassign16() {
+ assertEval("argv <- list(structure(c(0, -187, -34, 0, 165, 0, -95, 121, 107, 0, 41, 0, 0, 93, 0), .Dim = c(5L, 3L)), \'dimnames\', value = NULL);`attr<-`(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinattributes.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinattributes.java
new file mode 100644
index 0000000000000000000000000000000000000000..ef08f7b976147c0abe67fde039b490af2197aa8a
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinattributes.java
@@ -0,0 +1,185 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinattributes extends TestBase {
+
+ @Test
+ @Ignore
+ public void testattributes1() {
+ assertEval("argv <- list(structure(c(5.79821692617331, 1.82341879820553, 2.78390295547843, 5.76851897647876, 1.96728131351224, 1.64012180629841, 0.76150764829566, 8.78324957466388, 0.711713280005232, 0.0432245134694077, 0.484038236738706, 2.2604286525194), .Names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void testattributes2() {
+ assertEval("argv <- list(1386518010.66723);attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes3() {
+ assertEval("argv <- list(structure(list(x = c(55, 55.4, 55.8, 56.2, 56.6, 57, 57.4, 57.8, 58.2, 58.6, 59, 59.4, 59.8, 60.2, 60.6, 61, 61.4, 61.8, 62.2, 62.6, 63, 63.4, 63.8, 64.2, 64.6, 65, 65.4, 65.8, 66.2, 66.6, 67, 67.4, 67.8, 68.2, 68.6, 69, 69.4, 69.8, 70.2, 70.6, 71, 71.4, 71.8, 72.2, 72.6, 73, 73.4, 73.8, 74.2, 74.6, 75), y = c(NA, NA, NA, NA, NA, NA, NA, NA, 115.348528272371, 116.097056544742, 117, 118.121358638144, 119.369358638144, 120.616754451341, 121.816150264538, 123, 124.196077478756, 125.399549206385, 126.598034046405, 127.793047158796, 129, 130.223726064439, 131.424330251242, 132.555722198323, 133.686509958601, 135, 136.60008742339, 138.253074310999, 139.654076730115, 140.802092261622, 142, 143.481497863021, 145.150710102743, 146.833352023286, 148.446781704108, 150, 151.524882658905, 153.128867127397, 154.93285159589, 156.93285159589, 159, 161.026859361644, 163.013429680822, NA, NA, NA, NA, NA, NA, NA, NA)), .Names = c(\'x\', \'y\')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void testattributes4() {
+ assertEval("argv <- list(structure(c(1+1i, 2+1.4142135623731i, 3+1.73205080756888i, 4+2i, 5+2.23606797749979i, 6+2.44948974278318i, 7+2.64575131106459i, 8+2.82842712474619i, 9+3i, 10+3.1622776601684i), id = character(0), class = structure(\'withId\', package = \'.GlobalEnv\')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes5() {
+ assertEval("argv <- list(structure(c(\'o\', \'p\', \'v\', \'i\', \'r\', \'w\', \'b\', \'m\', \'f\', \'s\'), date = structure(1224086400, class = c(\'POSIXct\', \'POSIXt\'), tzone = \'\'), .S3Class = \'stamped\', class = structure(\'stamped\', package = \'.GlobalEnv\')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes6() {
+ assertEval("argv <- list(structure(list(loc = c(0.0804034870161223, 10.3548347412639), cov = structure(c(3.01119301965569, 6.14320559215603, 6.14320559215603, 14.7924762275451), .Dim = c(2L, 2L)), d2 = 2, wt = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), sqdist = c(0.439364946869246, 0.0143172566761092, 0.783644692619938, 0.766252947443554, 0.346865912102713, 1.41583192825661, 0.168485512965902, 0.354299830956879, 0.0943280426627965, 1.05001058449122, 1.02875556201707, 0.229332323173361, 0.873263925064789, 2.00000009960498, 0.449304354954282, 0.155023307933165, 0.118273979375253, 0.361693898800799, 0.21462398586105, 0.155558909016629, 0.471723661454506, 0.719528696331092, 0.0738164380664225, 1.46001193111051, 0.140785322548143, 0.127761195166703, 0.048012401156175, 0.811750426884519, 0.425827709817574, 0.163016638545231, 0.557810866640707, 0.277350147637843, 0.0781399119055092, 1.29559183995835, 0.718376405567138, 1.37650242941478, 0.175087780508154, 0.233808973148729, 0.693473805463067, 0.189096604125073, 1.96893781800017, 0.4759756980592, 1.69665760380474, 0.277965749373647, 0.920525436884815, 0.57525234053591, 1.59389578665009, 0.175715364671313, 0.972045794851437, 1.75514684962809, 0.0597413185507202, 0.174340343040626, 0.143421553552865, 0.997322770596838, 1.94096736957465, 2.00000001159796, 0.367000821772989, 0.682474530588235, 1.20976163307984, 1.27031685239035, 1.79775635513363, 0.0857761902860323, 0.435578932929501, 0.214370604878221, 0.494714247412686, 1.78784623754399, 1.24216674083069, 1.87749485326709, 0.0533296334123023, 1.45588362584438, 2.00000000631459, 0.208857144738039, 0.119251291573058, 0.365303924649962, 0.690656674239668, 0.0396958405786268, 0.258262120876164, 1.57360254057537, 0.307548421049514, 0.628417063100241, 1.00647098749202, 0.297624360530352, 0.400289147351669, 1.98298426250944, 0.129127182829694, 0.0794695319493149, 0.991481735944321, 0.444068154119836, 0.206790162395106, 0.574310829851377, 0.181887577583334, 0.433872021297517, 0.802994892604009, 0.293053770941001, 1.7002969001965, 0.77984639982848, 1.36127407487932, 0.761935213110323, 0.597915313430067, 0.237134831067472), prob = NULL, tol = 1e-07, eps = 9.96049758228423e-08, it = 898L, maxit = 5000, ierr = 0L, conv = TRUE), .Names = c(\'loc\', \'cov\', \'d2\', \'wt\', \'sqdist\', \'prob\', \'tol\', \'eps\', \'it\', \'maxit\', \'ierr\', \'conv\'), class = \'ellipsoid\'));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes7() {
+ assertEval("argv <- list(NULL);attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void testattributes8() {
+ assertEval("argv <- list(\'Error in setClass(\\\'class3\\\', representation(\\\'class1\\\', \\\'class2\\\')) : \\n error in contained classes (\\\'class2\\\') for class “class3”; class definition removed from ‘.GlobalEnv’\\n\');attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes9() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), .S3Class = \'data.frame\', extra = character(0)));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes10() {
+ assertEval("argv <- list(structure(list(zi.si. = c(-2.73014251717135, -2.16787987308811, -1.61026765290054, -1.06093652746977, -0.523224065200069, 0, 0.506450782357207, 0.994479058519472, 1.46306067722175, 1.91173866627745, 2.34053598638487, 2.74985599456053)), .Names = \'zi.si.\', row.names = c(NA, -12L), class = \'data.frame\'));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes11() {
+ assertEval("argv <- list(structure(c(4L, 5L, 1L, 5L, 3L, 4L, 5L, 3L, 2L, 4L), .Label = c(\'a\', \'c\', \'i\', \'s\', \'t\'), class = \'factor\', contrasts = structure(c(1, 0, 0, 0, -1, 0, 1, 0, 0, -1, -0.247125681008604, -0.247125681008604, -0.149872105789645, 0.891249148815458, -0.247125681008604, 0.268816352031209, 0.268816352031209, -0.881781351530059, 0.0753322954364324, 0.268816352031209), .Dim = c(5L, 4L), .Dimnames = list(c(\'a\', \'c\', \'i\', \'s\', \'t\'), NULL))));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes12() {
+ assertEval("argv <- list(structure(character(0), .Names = character(0), package = character(0), class = structure(\'signature\', package = \'methods\')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void testattributes13() {
+ assertEval("argv <- list(c(FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes14() {
+ assertEval("argv <- list(structure(list(a_string = c(\'foo\', \'bar\'), a_bool = FALSE, a_struct = structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = \'foo\'), .Names = c(\'a\', \'b\', \'c\')), a_cell = structure(list(1, \'foo\', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), \'bar\'), .Dim = c(2L, 2L)), a_complex_scalar = 0+1i, a_list = list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), \'foo\'), a_complex_matrix = structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), a_range = c(1, 2, 3, 4, 5), a_scalar = 1, a_complex_3_d_array = structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), a_3_d_array = structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), a_matrix = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), a_bool_matrix = structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))), .Names = c(\'a_string\', \'a_bool\', \'a_struct\', \'a_cell\', \'a_complex_scalar\', \'a_list\', \'a_complex_matrix\', \'a_range\', \'a_scalar\', \'a_complex_3_d_array\', \'a_3_d_array\', \'a_matrix\', \'a_bool_matrix\')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes15() {
+ assertEval("argv <- list(structure(c(1L, NA, 3L), .Label = c(\'1\', \'2\', NA)));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes16() {
+ assertEval("argv <- list(structure(1, .Dim = c(1L, 1L), a = c(NA, 3, -1, 2), class = structure(\'B\', package = \'.GlobalEnv\')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes17() {
+ assertEval("argv <- list(structure(list(L = structure(c(\'Min. :14.00 \', \'1st Qu.:26.00 \', \'Median :29.50 \', \'Mean :36.39 \', \'3rd Qu.:49.25 \', \'Max. :70.00 \', \'A:9 \', \'B:9 \', NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c(\'\', \'\', \'\', \'\', \'\', \'\'), c(\' breaks\', \'wool\')), class = \'table\'), M = structure(c(\'Min. :12.00 \', \'1st Qu.:18.25 \', \'Median :27.00 \', \'Mean :26.39 \', \'3rd Qu.:33.75 \', \'Max. :42.00 \', \'A:9 \', \'B:9 \', NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c(\'\', \'\', \'\', \'\', \'\', \'\'), c(\' breaks\', \'wool\')), class = \'table\'), H = structure(c(\'Min. :10.00 \', \'1st Qu.:15.25 \', \'Median :20.50 \', \'Mean :21.67 \', \'3rd Qu.:25.50 \', \'Max. :43.00 \', \'A:9 \', \'B:9 \', NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c(\'\', \'\', \'\', \'\', \'\', \'\'), c(\' breaks\', \'wool\')), class = \'table\')), .Dim = 3L, .Dimnames = structure(list(`warpbreaks[, \'tension\']` = c(\'L\', \'M\', \'H\')), .Names = \'warpbreaks[, \\\'tension\\\']\')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void testattributes18() {
+ assertEval("argv <- list(structure(3.14159265358979, comment = \'Start with pi\'));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes19() {
+ assertEval("argv <- list(structure(list(school = c(1L, 1L, 2L, 2L, 3L, 3L), class = c(9L, 10L, 9L, 10L, 9L, 10L), score.1 = c(0.487429052428485, 0.738324705129217, 1.51178116845085, 0.389843236411431, 1.12493091814311, -0.0449336090152309), score.2 = c(0.575781351653492, -0.305388387156356, -0.621240580541804, -2.2146998871775, -0.0161902630989461, 0.943836210685299)), .Names = c(\'school\', \'class\', \'score.1\', \'score.2\'), row.names = c(1L, 2L, 5L, 6L, 9L, 10L), class = \'data.frame\', reshapeWide = structure(list(v.names = NULL, timevar = \'time\', idvar = c(\'school\', \'class\'), times = c(1, 2), varying = structure(c(\'score.1\', \'score.2\'), .Dim = 1:2)), .Names = c(\'v.names\', \'timevar\', \'idvar\', \'times\', \'varying\'))));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes20() {
+ assertEval("argv <- list(structure(c(-0.927486533732408, -0.13045118082262, -1.45825662858798, -1.81793776180039, -1.62313249921887, 1.26834845395072, -0.994859212587552, -0.60437576902456, -1.06120404454492, 0.877124074149983, 0.824787552890982, 0.704014030529726, -0.702775741558964, 0.544818578451748, 1.48964468805446, 0.13432541283722, -0.128923575804159, -0.354052007275421, 1.0711307633823, -1.33461699082502, 0.380875114294515, -1.07786690183251, 0.810306659502442, -2.17501201437322, -0.407604875801864, -0.462999392844433, 0.194880873045067, 2.65407152575046, 0.564656783773942, 0.906337761254496, -0.631531096896236, -1.27819755429098, -0.538330333636237, 1.00231821330914, -0.286364553583536, 0.469006850788945, 1.05885815169124, 1.21503113231427, 1.44216953152086, 0.486588338054406, 0.268701510628534, -0.463411907566429, 1.02436199321322, -1.39004777906874, 0.999688613035661, -0.916808034628566, -0.502852003923634, 0.212379391073633, -0.0134736853666567, 1.31736970279298, -0.0944249611837457, 0.806746464646202, 0.315038937675493, -1.17340599897154, 0.482494016048211, -0.791050343541626, 0.808325470742601, 0.588652339988029, 1.10512245024341, 1.12322151831428, 0.208749082415184, -0.357070741737234, 0.572101015785145, -0.533738015097777, -0.360034768896796, 0.0342776735716719, -1.99368868442296, 2.04525110526828, 0.854582964377424, -0.292897401378698, -1.18433316855268, -0.376789959833897, -0.538288068463758, -0.232305057346106, -0.375870899318979, -0.359017335348666, -0.741816586737615, -0.269774297924449, -0.796951579131833, 0.0323594165086663, 0.439067375500569, 0.466080486767734, -1.49275492910805, 0.947406234969688, 0.182071046143441, 0.445836300099003, 2.02477378068589, -1.70432399838533, -0.440962927710655, 0.831168740087201, 2.13610340066555, -1.8137969168688, 1.22501979912183, 0.795942206968001, 1.87235555725712, -1.26557065145048, 0.378275537740316, 0.789728084675539, 0.99886763527649, 2.29736830042939, -0.00228198643744461, 0.161544616498807, -1.14848457105275, -1.08025155036982, -1.03819987128219, -0.856130938839897, 1.0042164519591, -0.843667376942675, -1.21154108350058, 0.460882948229546, -0.468389916732288, -0.946568852822378, 1.17783540515932, -0.973911234750034, -0.0639785174878419, -1.1045450251553, 0.442020873295079, 0.0831991221894004, 0.269053190969569, 0.901338595939942, -0.086250034518703, 0.478492308026563, -0.925167039266549, -0.658186865278783, 1.0337884593443, -0.434569632901449, 2.038954875659, 0.202381377518746, 0.484762177881311, -0.360074615793248, -0.129300783906607, 0.651643789311553, 0.934922268235395, -0.0934722501709123, -0.0103213567459648, 1.61917070438612, -1.06268414268298, 0.696244014590397, 0.992388229201836, 0.697363816464206, 0.250252166543902, -0.557960198745092, 0.221087284404152, 0.10961920608307, 0.259174711435693, -0.70162900779778, 1.92431317758909, -0.578758205883074, 1.59171854092147, 0.902876390823624, 0.840275033814991, 1.77586917630517, 0.403033282757909, 0.0539091417299491, -1.26615014148617, 0.0148781649233171, 0.256100494565364, -1.01942222514274, 0.549839939376835, -0.724728578424903, 0.151976282801212, 0.326791648750199, 0.748909789058061, -1.85444018168148, 0.0869984536340467, 1.25350587157032, 0.962041461790638, 0.120578653081864, -0.11935793490114, 0.6951267107979, -1.39729724662012, 1.03310979193329, -0.619324332563388, 0.60759513170927, 0.665670243263983, 1.34746787641065, 0.213814029897928, -0.43608749915348, -0.196912890515945, -0.474024803180795, -0.0932220458288109, -0.739450980689706, -0.299196422560384, -0.765918956807232, -0.374980670595253, 0.65328744055362, -0.552631311606602, -1.24532249102801, 1.50941913047883, -1.79189867145273, -0.892183862327233, 1.20950581962313, 0.454528744013934, 0.266817155028672, 1.65771215541012, 1.00893183514602, 0.761621316769915, 0.262896620317128, -0.128241496594234, 0.980274347240293), .Label = structure(list(c(-2.17503193782145, -0.474004879732569), c(-0.97393115819826, -0.0932021223805848), c(-0.468409840180514, 0.266837078476898), c(-0.086269957966929, 0.696263938038623), c(0.268681587180308, 1.02438191666144), c(0.697343893015979, 2.65409144919869)), class = \'shingleLevel\'), class = \'shingle\'));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes21() {
+ assertEval("argv <- list(structure(c(82, 82, 82, 75, 63, 50, 43, 35, 35, 54, 54, 54, 39, 36, 0, 0, 57, 57, 57, 51, 45, 45, 39, 39, 36, 32, 25, 25, 25, 25, 32, 32, 59, 74, 74, 71, 71, 71, 71, 71, 71, 71, 73, 73, 73, 71, 71, 75, 75, 63, 62, 60, 57, 49, 49, 52, 57, 61, 62, 66, 66, 62, 61, 61, 72, 72, 78, 78, 78, 71, 71, 74, 74, 64, 62, 62, 73, 73, 69, 69, 69, 69, 64, 63, 62, 56, 46, 44, 44, 44, 44, 44, 44, 44, 44, 44, 59, 65, 65, 65, 61, 56, 53, 52, 51, 51, 49, 49, 49, 49, 0, 0, 44, 44, 40, 28, 27, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = \'ts\'));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void testattributes22() {
+ assertEval("argv <- list(c(1000, 1e+07, 1));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes23() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), arguments = structure(\'object\', simpleOnly = TRUE), signatures = list(), generic = structure(function (object) standardGeneric(\'show\'), generic = structure(\'show\', package = \'methods\'), package = \'methods\', group = list(), valueClass = character(0), signature = structure(\'object\', simpleOnly = TRUE), default = structure(function (object) showDefault(object, FALSE), target = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'object\', package = \'methods\'), defined = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'object\', package = \'methods\'), generic = structure(\'show\', package = \'methods\'), class = structure(\'derivedDefaultMethod\', package = \'methods\')), skeleton = quote((function (object) showDefault(object, FALSE))(object)), class = structure(\'standardGeneric\', package = \'methods\')), class = structure(\'listOfMethods\', package = \'methods\')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes24() {
+ assertEval("argv <- list(structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c(\'A\', \'B\', \'C\'), class = \'factor\')), .Names = c(\'x\', \'y\', \'fac\'), row.names = c(NA, -10L), class = \'data.frame\'));attributes(argv[[1]]);");
+ }
+
+ @Test
+ public void testattributes25() {
+ assertEval("argv <- list(structure(character(0), package = character(0), class = structure(\'ObjectsWithPackage\', package = \'methods\')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes26() {
+ assertEval("argv <- list(structure(list(qr = structure(c(-561841.166008647, 1.48748911573234e-06, 1.62250974987379e-06, 1.29819733159371e-06, 1.3199650315892e-06, 1.59089005368605e-06, 3.38370366592718e-06, 1.54037267089339e-06, 1.26888887472893e-06, 1.66561998324397e-06, 2.71299853206351e-06, 1.82740883826792e-06, 1.69185183297085e-06, 1.36523405858032e-06, 1.55319864307643e-06, 1.56902110896583e-06, 1.3906190700334e-06, 1.2997165800148e-06, 1.56369334788134e-06, 1.43353743471477e-06, 1.74457009494164e-06, 2.03022219956374e-06, 1.73363224357496e-06, 1.47177180858703e-06, 4.47621920517122e-06, 1.45868913292866e-06, 1.67531329485535e-06, 1.56635043280177e-06, 1.90866628223014e-06, 1.54802991445627e-06, 1.60217310325092e-06, 2.68573152311995e-06, 1.55319864307643e-06, 1.65295348775885e-06, 1.41747488364731e-06, 0.999999999831096, 1.61369967706714e-06, 1.31520838537442e-06, 2.44157411192876e-06, 5.1686927260975e-06, 1.81484917852149e-06, 1.50372096623665e-06, 1.91837965937479e-06, 1.68517783522785e-06, 1.65295348775885e-06, 1.58810634192319e-06, 1.77478134630985e-06, 1.66883236806679e-06, 2.2002369936867e-06, 1.56635043280177e-06, 1.31520838537442e-06, 1.23229813671524e-06, 1.69185183297085e-06, 1.77091892313243e-06, 1.92329229138616e-06, 1.33290617468824e-06, 1.64672765212343e-06, 2.17841592228372e-06, 2.07828144894252e-06, 1.72289757538629e-06, 1.92824285888419e-06, 1.81484917852149e-06, 2.01304088471671e-06, 1.47621155263461e-06, 1.91350448082172e-06, 1.47177180858703e-06, 1.60217310325092e-06, 1.53282794306286e-06, 1.53282794306286e-06, 2.24592152723567e-06, 1.3564992660355e-06, 1.61662040285441e-06, 1.78652203450807e-06, 1.84456798315616e-06, 1.83165369610876e-06, 2.34653452685434e-06, 2.12325719919593e-06, 1.37956761746782e-06, 1.32156208605305e-06, 1.77478134630985e-06, 1.66242607813213e-06, 1.88501398961327e-06, 1.75571762111387e-06, 1.71936342279218e-06, 2.15723147161546e-06, 1.48294715363101e-06, 1.94332712676627e-06, 1.26606598163328e-06, 1.70544122262692e-06, 1.72289757538629e-06, 1.44385821185109e-06, 1.53533052096275e-06, 1.35133818480092e-06, 1.72645361131692e-06, 1.82319335667127e-06, 1.32963523435973e-06, 1.41158914936576e-06, 2.12325719919593e-06, 1.47844654491007e-06, 1.44385821185109e-06, 1472023.85454144, -24.6606754318977, 0.101285140222523, 0.12658801819228, 0.124500435606533, 0.103298237275271, 0.0485666635912155, 0.106685971539808, 0.129511920733888, 0.0986636292980589, 0.0605734308209414, 0.0899284547245126, 0.0971338624854, 0.120372186413924, 0.105804979598362, 0.104738008044408, 0.118174850871225, 0.126440048191751, 0.105094868834514, 0.114636830861078, 0.0941986135491651, 0.0809448199785816, 0.0947929347785712, 0.111658733889352, 0.0367127444946359, 0.11266018033215, 0.0980927625103667, 0.104916590166795, 0.0860999235367981, 0.106158253725478, 0.102570773477205, 0.06118841105676, 0.105804979598362, 0.0994196861729652, 0.115935876650863, -0.105466791174436, 0.101838113293825, 0.124950710904606, 0.0673073062385254, 0.0317940330935366, 0.0905508070559734, 0.109286343932539, 0.0856639697119484, 0.0975185539657231, 0.0994196861729652, 0.103479304149645, 0.0925951094262163, 0.0984737080806255, 0.0746900879658086, 0.104916590166795, 0.124950710904606, 0.13335753753099, 0.0971338624854, 0.0927970627378338, 0.0854451586907835, 0.123291662172605, 0.099795566659867, 0.075438259057915, 0.0790730002999382, 0.0953835529495729, 0.0852257858900505, 0.0905508070559734, 0.0816356880948164, 0.111322916452723, 0.085882223247457, 0.111658733889352, 0.102570773477205, 0.10721109183635, 0.10721109183635, 0.0731707992415186, 0.121147290839092, 0.101654123163447, 0.0919865892416036, 0.0890918891744519, 0.0897200446166977, 0.0700334141981384, 0.0773980324983756, 0.119121529360296, 0.124349981516283, 0.0925951094262163, 0.0988531856309209, 0.0871802709827442, 0.093600518723111, 0.095579614648734, 0.0761790825557647, 0.110817282218029, 0.0845642530341719, 0.129800688512867, 0.096359872295819, 0.0953835529495729, 0.113817398381304, 0.107036337986806, 0.121609982184857, 0.0951870874129862, 0.0901363829552483, 0.123594963843665, 0.116419281840054, 0.0773980324983756, 0.111154627274007, 0.113817398381304), .Dim = c(100L, 2L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\'), c(\'(Intercept)\', \'x\'))), rank = 2L, qraux = c(1.00000155841949, 1.11047890709071), pivot = 1:2, tol = 1e-11), .Names = c(\'qr\', \'rank\', \'qraux\', \'pivot\', \'tol\')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes27() {
+ assertEval("argv <- list(structure(list(message = \'NAs produced\', call = quote(rnorm(2, numeric()))), .Names = c(\'message\', \'call\')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes28() {
+ assertEval("argv <- list(structure(c(7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 8L, 8L, 8L, 8L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 27L, 27L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 22L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 23L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 26L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 24L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 17L, 17L, 17L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 14L), .Label = structure(c(\'9\', \'8\', \'7\', \'4\', \'2\', \'10\', \'1\', \'3\', \'5\', \'6\', \'21\', \'22\', \'24\', \'27\', \'26\', \'25\', \'23\', \'17\', \'11\', \'14\', \'13\', \'15\', \'16\', \'20\', \'19\', \'18\', \'12\'), .Names = c(\'Control1\', \'Control2\', \'Control3\', \'Control4\', \'Control5\', \'Control6\', \'Control7\', \'Control8\', \'Control9\', \'Control10\', \'High1\', \'High2\', \'High3\', \'High4\', \'High5\', \'High6\', \'High7\', \'Low1\', \'Low2\', \'Low3\', \'Low4\', \'Low5\', \'Low6\', \'Low7\', \'Low8\', \'Low9\', \'Low10\')), class = c(\'ordered\', \'factor\')));attributes(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributes29() {
+ assertEval("argv <- list(structure(list(tau = c(-0.704193760852047, 0, 1.5847914530377, 2.07658624888165, 2.62779840842982, 3.16900609499152, 3.70430313207003), par.vals = structure(c(1.19410356771918, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 0.0145810141529953, 0.24263452560295, 0.470688037052905, 0.562956252821107, 0.683253495496408, 0.823187854524599, 0.98897386701965), .Dim = c(7L, 2L), .Dimnames = list(NULL, c(\'a\', \'b\')))), .Names = c(\'tau\', \'par.vals\')));attributes(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinattributesassign.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinattributesassign.java
new file mode 100644
index 0000000000000000000000000000000000000000..53639f9011ee316b418483daf39185ceae48d4a9
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinattributesassign.java
@@ -0,0 +1,54 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinattributesassign extends TestBase {
+
+ @Test
+ @Ignore
+ public void testattributesassign1() {
+ assertEval("argv <- list(NULL, NULL);`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributesassign2() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'), structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'));`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributesassign3() {
+ assertEval("argv <- list(NA, value = NULL);`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributesassign4() {
+ assertEval("argv <- list(1:6, value = NULL);`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributesassign5() {
+ assertEval("argv <- list(c(2.63548374681491, 2.5910646070265, 2.66370092538965, 2.70586371228392, 2.78247262416629, 2.79379038469082, 2.72835378202123, 2.67394199863409, 2.66370092538965, 2.6222140229663, 2.59217675739587, 2.62013605497376, 2.60745502321467, 2.55870857053317, 2.60959440922522, 2.66558099101795, 2.74741180788642, 2.73878055848437, 2.67394199863409, 2.6232492903979, 2.59769518592551, 2.60852603357719, 2.53402610605613, 2.55630250076729, 2.52762990087134, 2.49136169383427, 2.55509444857832, 2.60638136511061, 2.70329137811866, 2.69108149212297, 2.63848925695464, 2.55990662503611, 2.54157924394658, 2.55870857053317, 2.50242711998443, 2.53147891704225, 2.52633927738984, 2.48429983934679, 2.54032947479087, 2.60638136511061, 2.66931688056611, 2.66745295288995, 2.62531245096167, 2.55022835305509, 2.54157924394658, 2.55144999797288, 2.47856649559384, 2.4983105537896, 2.48572142648158, 2.43296929087441, 2.48572142648158, 2.55022835305509, 2.60745502321467, 2.6159500516564, 2.57287160220048, 2.50242711998443, 2.49554433754645, 2.50105926221775, 2.44247976906445, 2.45331834004704, 2.44404479591808, 2.3747483460101, 2.43775056282039, 2.49415459401844, 2.54032947479087, 2.56110138364906, 2.4983105537896, 2.43136376415899, 2.42975228000241, 2.42651126136458, 2.36735592102602, 2.38381536598043, 2.35983548233989, 2.30749603791321, 2.35983548233989, 2.41329976408125, 2.46686762035411, 2.48000694295715, 2.42160392686983, 2.36921585741014, 2.35602585719312, 2.37106786227174, 2.27415784926368, 2.3096301674259, 2.30319605742049, 2.25527250510331, 2.32428245529769, 2.3747483460101, 2.4345689040342, 2.42160392686983, 2.38560627359831, 2.35983548233989, 2.37106786227174, 2.37291200297011, 2.29225607135648, 2.29225607135648, 2.28780172993023, 2.23552844690755, 2.28103336724773, 2.32014628611105, 2.38381536598043, 2.36172783601759, 2.3384564936046, 2.26245108973043, 2.25767857486918, 2.28555730900777, 2.25527250510331, 2.23299611039215, 2.22010808804005, 2.16435285578444, 2.20951501454263, 2.26481782300954, 2.29885307640971, 2.29885307640971, 2.25042000230889, 2.23552844690755, 2.21218760440396, 2.25042000230889, 2.17609125905568, 2.16136800223497, 2.14612803567824, 2.05690485133647, 2.12385164096709, 2.19865708695442, 2.23044892137827, 2.23044892137827, 2.17318626841227, 2.09691001300806, 2.13033376849501, 2.14921911265538, 2.10037054511756, 2.06069784035361, 2.07188200730613, 2.01703333929878, 2.07554696139253, 2.13353890837022, 2.17026171539496, 2.17026171539496, 2.13033376849501, 2.08278537031645, 2.11058971029925, 2.12057393120585, 2.07188200730613, 2.04921802267018), value = structure(list(tsp = c(1949, 1960.91666666667, 12), class = \'ts\'), .Names = c(\'tsp\', \'class\')));`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testattributesassign6() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 2, 3), .Dim = c(3L, 2L), .Dimnames = list(NULL, c(\'I\', \'a\')), foo = \'bar\', class = \'matrix\'), value = structure(list(class = \'matrix\', foo = \'bar\', dimnames = list(NULL, c(\'I\', \'a\')), dim = c(3L, 2L)), .Names = c(\'class\', \'foo\', \'dimnames\', \'dim\')));`attributes<-`(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbacksolve.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbacksolve.java
new file mode 100644
index 0000000000000000000000000000000000000000..3269dc502a7b0c5c71f162455737a23bb6bdb97e
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbacksolve.java
@@ -0,0 +1,36 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinbacksolve extends TestBase {
+
+ @Test
+ @Ignore
+ public void testbacksolve1() {
+ assertEval("argv <- list(structure(c(-2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0421675318334475, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0421675318334475, 0, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.445407110781343, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510819156714975, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510819156714975, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510819156714975, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592753100948471, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.428419619610855, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.252201198430086, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.428419619610855, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510819156714975, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592753100948472, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592753100948472, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, -0.252201198430086, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, -0.252201198430086, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, 0, -0.0421675318334475, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, -0.0421675318334475, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, -0.0486697428190666, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, -0.0486697428190666, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, -0.0486697428190666, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, -0.0486697428190666, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.935285871700694), .Dim = c(22L, 22L), .Dimnames = list(c(\'StripS01\', \'StripS02\', \'StripS03\', \'StripS04\', \'StripS05\', \'StripS06\', \'StripS07\', \'StripS08\', \'StripS09\', \'StripS10\', \'StripS11\', \'StripS12\', \'StripS13\', \'StripS14\', \'StripS15\', \'StripS16\', \'StripS17\', \'StripS18\', \'StripS19\', \'StripS20\', \'StripS21\', \'\'), c(\'3\', \'4\', \'5\', \'6\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'19\', \'20\', \'21\', \'25\', \'26\', \'27\', \'31\', \'32\', \'33\', \'39\'))), structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.00019677474442243), .Dim = c(22L, 1L)), 22L, FALSE, FALSE); .Internal(backsolve(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbacksolve2() {
+ assertEval("argv <- list(structure(c(-2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0421590411210753, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0421590411210753, 0, 0, -2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.445373554228914, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510781706167877, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510781706167877, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510781706167877, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592635069735823, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.428392065749892, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.252172670570357, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.428392065749892, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.510781706167877, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592635069735823, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, 0, -0.0592635069735823, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, 0, -0.252172670570357, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.4142135623731, 0, 0, 0, 0, 0, 0, -0.252172670570357, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, 0, -0.0421590411210753, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -2, 0, 0, 0, 0, -0.0421590411210753, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, 0, -0.0486599542810648, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, 0, -0.0486599542810647, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, 0, -0.0486599542810648, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.73205080756888, -0.0486599542810648, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.935253697073914), .Dim = c(22L, 22L), .Dimnames = list(c(\'StripS01\', \'StripS02\', \'StripS03\', \'StripS04\', \'StripS05\', \'StripS06\', \'StripS07\', \'StripS08\', \'StripS09\', \'StripS10\', \'StripS11\', \'StripS12\', \'StripS13\', \'StripS14\', \'StripS15\', \'StripS16\', \'StripS17\', \'StripS18\', \'StripS19\', \'StripS20\', \'StripS21\', \'\'), c(\'3\', \'4\', \'5\', \'6\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'19\', \'20\', \'21\', \'25\', \'26\', \'27\', \'31\', \'32\', \'33\', \'39\'))), structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.20033559004316e-05), .Dim = c(22L, 1L)), 22L, FALSE, FALSE); .Internal(backsolve(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbacksolve3() {
+ assertEval("argv <- list(structure(c(-0.91092349872819, -1.26769315823132, 0, -1.11965595698793), .Dim = c(2L, 2L)), structure(c(-0.000210872744086474, 0.000210873298561107), .Dim = c(2L, 1L)), 2L, FALSE, FALSE); .Internal(backsolve(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbasename.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbasename.java
new file mode 100644
index 0000000000000000000000000000000000000000..71330955b2864f55305c5db1b03708d6611e2bd9
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbasename.java
@@ -0,0 +1,53 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinbasename extends TestBase {
+
+ @Test
+ public void testbasename1() {
+ assertEval("argv <- list(\'/home/roman/r-instrumented/library/base/help/DateTimeClasses\'); .Internal(basename(argv[[1]]))");
+ }
+
+ @Test
+ public void testbasename2() {
+ assertEval("argv <- list(structure(\'myTst\', .Names = \'\')); .Internal(basename(argv[[1]]))");
+ }
+
+ @Test
+ public void testbasename3() {
+ assertEval("argv <- list(c(\'file55711ba85492.R\', \'/file55711ba85492.R\')); .Internal(basename(argv[[1]]))");
+ }
+
+ @Test
+ public void testbasename4() {
+ assertEval("argv <- list(character(0)); .Internal(basename(argv[[1]]))");
+ }
+
+ @Test
+ public void testbasename5() {
+ assertEval("argv <- list(structure(\'/home/lzhao/hg/r-instrumented/library/utils\', .Names = \'Dir\')); .Internal(basename(argv[[1]]))");
+ }
+
+ @Test
+ public void testbasename6() {
+ assertEval("argv <- list(\'tk_messageBox.Rd\'); .Internal(basename(argv[[1]]))");
+ }
+
+ @Test
+ public void testbasename7() {
+ assertEval("argv <- list(c(\'.\', \'.\', \'.\', \'.\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'R\', \'data\', \'data\', \'data\', \'data\', \'data\', \'data\', \'data\', \'data\', \'data\', \'data\', \'data\', \'data\', \'data\', \'data\', \'data\', \'data\', \'data\', \'data\', \'data\', \'inst\', \'inst\', \'inst/doc\', \'inst/doc\', \'inst/doc\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'man\', \'noweb\', \'noweb\', \'noweb\', \'noweb\', \'noweb\', \'noweb\', \'noweb\', \'noweb\', \'noweb\', \'noweb/figures\', \'noweb/figures\', \'noweb\', \'noweb\', \'noweb\', \'noweb\', \'noweb\', \'noweb/rates\', \'noweb/rates\', \'noweb/rates\', \'noweb/rates\', \'noweb/rates\', \'noweb/rates\', \'noweb/rates\', \'noweb/rates\', \'noweb/rates\', \'noweb/rates\', \'noweb/rates\', \'noweb/rates\', \'noweb/rates\', \'noweb/rates\', \'noweb/rates\', \'noweb/rates\', \'noweb\', \'noweb\', \'noweb\', \'noweb\', \'noweb\', \'noweb\', \'noweb\', \'noweb\', \'noweb\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'src\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'tests\', \'vignettes\', \'vignettes\', \'vignettes\')); .Internal(basename(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbcVersion.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbcVersion.java
new file mode 100644
index 0000000000000000000000000000000000000000..307d0fa6e4ee1f4eba28e6ffd1577ae94c83975f
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbcVersion.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinbcVersion extends TestBase {
+
+ @Test
+ @Ignore
+ public void testbcVersion1() {
+ assertEval(" .Internal(bcVersion())");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbesselI.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbesselI.java
new file mode 100644
index 0000000000000000000000000000000000000000..6f0b48d3907611daaf3eaf4c7445ac30dcbb5074
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbesselI.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinbesselI extends TestBase {
+
+ @Test
+ @Ignore
+ public void testbesselI1() {
+ assertEval("argv <- list(FALSE, FALSE, 1); .Internal(besselI(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbesselI2() {
+ assertEval("argv <- list(logical(0), logical(0), 1); .Internal(besselI(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbesselJ.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbesselJ.java
new file mode 100644
index 0000000000000000000000000000000000000000..6af49dec6428063875cbbbcebb963a395e00ffde
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbesselJ.java
@@ -0,0 +1,36 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinbesselJ extends TestBase {
+
+ @Test
+ @Ignore
+ public void testbesselJ1() {
+ assertEval("argv <- list(logical(0), logical(0)); .Internal(besselJ(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbesselJ2() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(besselJ(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbesselJ3() {
+ assertEval("argv <- list(c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), 2.5); .Internal(besselJ(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbesselK.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbesselK.java
new file mode 100644
index 0000000000000000000000000000000000000000..f8c90adb56b3ce6761725177af0b5b4ce2a65147
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbesselK.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinbesselK extends TestBase {
+
+ @Test
+ @Ignore
+ public void testbesselK1() {
+ assertEval("argv <- list(FALSE, FALSE, 1); .Internal(besselK(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbesselK2() {
+ assertEval("argv <- list(logical(0), logical(0), 1); .Internal(besselK(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbesselK3() {
+ assertEval("argv <- list(c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), 3, 1); .Internal(besselK(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbesselK4() {
+ assertEval("argv <- list(c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), 3.5, 1); .Internal(besselK(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbesselY.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbesselY.java
new file mode 100644
index 0000000000000000000000000000000000000000..ef895fd8641eb8e3588072dbe09fb75fa95e33d7
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbesselY.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinbesselY extends TestBase {
+
+ @Test
+ @Ignore
+ public void testbesselY1() {
+ assertEval("argv <- list(c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), 20.5); .Internal(besselY(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbesselY2() {
+ assertEval("argv <- list(2, c(3, 8.94, 14.88, 20.82, 26.76, 32.7, 38.64, 44.58, 50.52, 56.46, 62.4, 68.34, 74.28, 80.22, 86.16, 92.1, 98.04, 103.98, 109.92, 115.86, 121.8, 127.74, 133.68, 139.62, 145.56, 151.5, 157.44, 163.38, 169.32, 175.26, 181.2, 187.14, 193.08, 199.02, 204.96, 210.9, 216.84, 222.78, 228.72, 234.66, 240.6, 246.54, 252.48, 258.42, 264.36, 270.3, 276.24, 282.18, 288.12, 294.06, 300)); .Internal(besselY(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbesselY3() {
+ assertEval("argv <- list(c(0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2, 2.1, 2.2, 2.3, 2.4, 2.5, 2.6, 2.7, 2.8, 2.9, 3, 3.1, 3.2, 3.3, 3.4, 3.5, 3.6, 3.7, 3.8, 3.9, 4, 4.1, 4.2, 4.3, 4.4, 4.5, 4.6, 4.7, 4.8, 4.9, 5, 5.1, 5.2, 5.3, 5.4, 5.5, 5.6, 5.7, 5.8, 5.9, 6, 6.1, 6.2, 6.3, 6.4, 6.5, 6.6, 6.7, 6.8, 6.9, 7, 7.1, 7.2, 7.3, 7.4, 7.5, 7.6, 7.7, 7.8, 7.9, 8, 8.1, 8.2, 8.3, 8.4, 8.5, 8.6, 8.7, 8.8, 8.9, 9, 9.1, 9.2, 9.3, 9.4, 9.5, 9.6, 9.7, 9.8, 9.9, 10), -0.2); .Internal(besselY(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbesselY4() {
+ assertEval("argv <- list(logical(0), logical(0)); .Internal(besselY(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbeta.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbeta.java
new file mode 100644
index 0000000000000000000000000000000000000000..0425b03c27c79de4812031981627e215ddb63a55
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbeta.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinbeta extends TestBase {
+
+ @Test
+ @Ignore
+ public void testbeta1() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(beta(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbeta2() {
+ assertEval("argv <- list(logical(0), logical(0)); .Internal(beta(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbincode.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbincode.java
new file mode 100644
index 0000000000000000000000000000000000000000..f02b8a5d0f5950b928ae30f348c5a14d6ec7539a
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbincode.java
@@ -0,0 +1,54 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinbincode extends TestBase {
+
+ @Test
+ @Ignore
+ public void testbincode1() {
+ assertEval("argv <- list(c(-1, -1, -1, -1, -1), c(-1.001, -1, -0.999), TRUE, FALSE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbincode2() {
+ assertEval("argv <- list(c(8.70599232813489e-06, 7.24187268717448e-10, 7.84878459581784e-14), c(0, 0.001, 0.01, 0.05, 0.1, 1), TRUE, TRUE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbincode3() {
+ assertEval("argv <- list(c(0.00316901674455053, 0.000313731190323184, 2.12051012154177e-05, 0.000158772845963692), c(0, 0.001, 0.01, 0.05, 0.1, 1), TRUE, TRUE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbincode4() {
+ assertEval("argv <- list(c(NA, 0.0654707112145736, 0.999999999999999), c(0, 0.001, 0.01, 0.05, 0.1, 1), TRUE, TRUE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbincode5() {
+ assertEval("argv <- list(structure(c(3.00863041155973, 0.411191886071604, -0.690490615408105, -4.08011169113016, -1.74096111020938, 0.149871643848704, -0.617403399223794, 1.77225991336381, 0.70873696276922, 0.831384833755618, 0.760421822835713, -1.43576852408133, -1.06684579764157, 0.112230570314199, 1.7784773190779, 0.601241755061942, 3.2084694607557, 1.30812378137844, 0.548795030131126, -4.19457515085108, -2.57754314942853, -2.82255910587143, -1.79648698551886, 8.02186933983834, -1.32562596449111, 1.07620193452922, 0.454145574974766, -1.70834615344098, -1.67960999025708, -0.580565722061994, 1.46027792034151, 0.274978829340024), class = \'table\', .Dim = c(4L, 4L, 2L), .Dimnames = structure(list(Hair = c(\'Black\', \'Brown\', \'Red\', \'Blond\'), Eye = c(\'Brown\', \'Blue\', \'Hazel\', \'Green\'), Sex = c(\'Male\', \'Female\')), .Names = c(\'Hair\', \'Eye\', \'Sex\'))), c(-Inf, -4, -2, 0, 2, 4, Inf), TRUE, FALSE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbincode6() {
+ assertEval("argv <- list(c(4L, 8L, 7L, 4L, 8L, 7L, NA, 7L, 6L, 7L, 7L, 8L, 8L, 6L, 7L, 8L, 5L, 4L, 8L, 7L, 5L, 6L, 5L, 6L, 5L, 6L, 7L, 6L, 5L, 7L, 4L, 6L, 6L, 5L, 7L, 5L, 5L, 6L, 6L, 6L, 5L, 7L, 5L, 7L, 5L, 3L, 7L, 6L, 5L, 5L, 6L, 5L, 5L, 6L, 10L, 10L, 6L, 3L, 5L, 8L, 7L, 5L, 6L, 5L, 5L, 5L, 6L, 5L, 6L, 5L, 5L, 6L, 7L, 7L, 6L, 7L, 7L, 8L, 9L, 7L, 8L, 6L, 4L, 7L, 7L, 6L, NA, 8L, 5L, 7L, 6L, 5L, NA, 7L, 6L, 7L, 7L, 9L, 5L, 8L, 6L, 8L, 9L, 6L, 6L, 7L, 8L, 8L, 8L, 7L, 8L, 7L, 6L, 6L, 9L, 7L, 6L, 8L, 5L, 7L, 8L, 8L, 7L, 7L, 7L, 8L, 5L, 6L, 6L, 5L, 7L, 5L, 7L, 7L, 4L, 5L, 8L, 5L, 5L, 6L, 7L, 5L, 9L, 5L, 6L, 7L), c(2, 5.5, 10), TRUE, FALSE); .Internal(bincode(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbindtextdomain.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbindtextdomain.java
new file mode 100644
index 0000000000000000000000000000000000000000..dd2f43d6bec1cc53b93433b352761a8950652489
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbindtextdomain.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinbindtextdomain extends TestBase {
+
+ @Test
+ @Ignore
+ public void testbindtextdomain1() {
+ assertEval("argv <- list(\'splines\', \'/home/roman/r-instrumented/library/translations\'); .Internal(bindtextdomain(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbindtextdomain2() {
+ assertEval("argv <- list(\'utils\', \'/home/lzhao/hg/r-instrumented/library/translations\'); .Internal(bindtextdomain(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseAnd.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseAnd.java
new file mode 100644
index 0000000000000000000000000000000000000000..07f9ee60bc5ecbf2266e8eb094b8aaea0d0df0ca
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseAnd.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinbitwiseAnd extends TestBase {
+
+ @Test
+ @Ignore
+ public void testbitwiseAnd1() {
+ assertEval("argv <- list(structure(c(420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 493L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 420L, 493L, 493L, 493L, 493L, 493L, 493L, 493L, 493L, 493L, 493L, 493L), class = \'octmode\'), structure(256L, class = \'octmode\')); .Internal(bitwiseAnd(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbitwiseAnd2() {
+ assertEval("argv <- list(structure(integer(0), class = \'hexmode\'), structure(integer(0), class = \'hexmode\')); .Internal(bitwiseAnd(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseNot.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseNot.java
new file mode 100644
index 0000000000000000000000000000000000000000..b76e61798c1a1be0150b8301343e0eaa58bf86d0
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseNot.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinbitwiseNot extends TestBase {
+
+ @Test
+ @Ignore
+ public void testbitwiseNot1() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(bitwiseNot(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseOr.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseOr.java
new file mode 100644
index 0000000000000000000000000000000000000000..aed7277e9155ddb81e74391cae5a2329a6f1414e
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseOr.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinbitwiseOr extends TestBase {
+
+ @Test
+ @Ignore
+ public void testbitwiseOr1() {
+ assertEval("argv <- list(15L, 7L); .Internal(bitwiseOr(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseShiftR.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseShiftR.java
new file mode 100644
index 0000000000000000000000000000000000000000..65e83fd748eae27a124e829779f3e74352345772
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseShiftR.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinbitwiseShiftR extends TestBase {
+
+ @Test
+ @Ignore
+ public void testbitwiseShiftR1() {
+ assertEval("argv <- list(-1, 1:31); .Internal(bitwiseShiftR(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseXor.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseXor.java
new file mode 100644
index 0000000000000000000000000000000000000000..867d9a1dc6cb5fea945da347525b0453dbeb5ac3
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseXor.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinbitwiseXor extends TestBase {
+
+ @Test
+ @Ignore
+ public void testbitwiseXor1() {
+ assertEval("argv <- list(-1L, 1L); .Internal(bitwiseXor(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbody.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbody.java
new file mode 100644
index 0000000000000000000000000000000000000000..faad2315f65682d002c3d54c7afb568ca6707127
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbody.java
@@ -0,0 +1,54 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinbody extends TestBase {
+
+ @Test
+ @Ignore
+ public void testbody1() {
+ assertEval("argv <- list(function (x, y) { c(x, y)}); .Internal(body(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbody2() {
+ assertEval("argv <- list(function (object) TRUE); .Internal(body(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbody3() {
+ assertEval("argv <- list(function (from, strict = TRUE) from); .Internal(body(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbody4() {
+ assertEval("argv <- list(.Primitive(\'/\')); .Internal(body(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbody5() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\')); .Internal(body(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testbody6() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(body(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinc.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinc.java
new file mode 100644
index 0000000000000000000000000000000000000000..23a7531640d9b016fad4b0c83fc820d822340ebf
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinc.java
@@ -0,0 +1,430 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinc extends TestBase {
+
+ @Test
+ public void testc1() {
+ assertEval("argv <- list(character(0), \'myLib/myTst\');c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc2() {
+ assertEval("argv <- list(structure(list(names = c(\'x\', \'z\')), .Names = \'names\'), structure(list(class = \'data.frame\', row.names = c(NA, 10L)), .Names = c(\'class\', \'row.names\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc3() {
+ assertEval("argv <- list(0.1, 1e+60);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc4() {
+ assertEval("argv <- list(1, 1, 1, 1, NA);c(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);");
+ }
+
+ @Test
+ public void testc5() {
+ assertEval("argv <- list(`difference in location` = -30);c(argv[[1]]);");
+ }
+
+ @Test
+ public void testc6() {
+ assertEval("argv <- list(TRUE, TRUE, NA);c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc7() {
+ assertEval("argv <- list(expression(data.frame), list(), check.names = TRUE, stringsAsFactors = TRUE);c(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ public void testc8() {
+ assertEval("argv <- list(-0.1, 0.1);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc9() {
+ assertEval("argv <- list(NULL, structure(list(class = \'try-error\', condition = structure(list(message = \'more columns than column names\', call = quote(read.table(\'foo6\', header = TRUE))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))), .Names = c(\'class\', \'condition\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc10() {
+ assertEval("argv <- list(NULL, structure(list(class = \'try-error\', condition = structure(list(message = \'supply both 'x' and 'y' or a matrix-like 'x'\', call = quote(cor(rnorm(10), NULL))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))), .Names = c(\'class\', \'condition\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc11() {
+ assertEval("argv <- list(`(Intercept)` = \'(Intercept)\', structure(list(B = \'B\', V = \'V\', N = \'N\', `V:N` = c(\'V\', \'N\'), Residuals = c(\'B\', \'V\', \'N\', \'Within\')), .Names = c(\'B\', \'V\', \'N\', \'V:N\', \'Residuals\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc12() {
+ assertEval("argv <- list(structure(c(512, 313, 89, 19, 353, 207, 17, 8, 120, 205, 202, 391, 138, 279, 131, 244, 53, 138, 94, 299, 22, 351, 24, 317), .Dim = c(2L, 2L, 6L), .Dimnames = structure(list(Admit = c(\'Admitted\', \'Rejected\'), Gender = c(\'Male\', \'Female\'), Dept = c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\')), .Names = c(\'Admit\', \'Gender\', \'Dept\')), class = \'table\'));c(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc13() {
+ assertEval("argv <- list(structure(1208822400, class = c(\'POSIXct\', \'POSIXt\')), structure(1209168000, class = c(\'POSIXct\', \'POSIXt\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc14() {
+ assertEval("argv <- list(`Grand mean` = structure(103.87323943662, class = \'mtable\'), structure(list(N = structure(c(78.7365206866197, 98.5088731171753, 113.842206450509, 123.008873117175), .Dim = 4L, .Dimnames = structure(list(N = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\')), .Names = \'N\'), class = \'mtable\'), `V:N` = structure(c(79.5323303457107, 86.1989970123773, 69.7732394366197, 98.0323303457106, 108.032330345711, 89.1989970123773, 114.198997012377, 116.698997012377, 110.365663679044, 124.365663679044, 126.365663679044, 118.032330345711), .Dim = 3:4, .Dimnames = structure(list(V = c(\'Golden.rain\', \'Marvellous\', \'Victory\'), N = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\')), .Names = c(\'V\', \'N\')), class = \'mtable\')), .Names = c(\'N\', \'V:N\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc15() {
+ assertEval("argv <- list(NULL, structure(list(class = \'try-error\', condition = structure(list(message = \'(converted from warning) NAs produced\', call = quote(rexp(2, numeric()))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))), .Names = c(\'class\', \'condition\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc16() {
+ assertEval("argv <- list(NULL, structure(list(other = structure(1:3, .Label = c(\'A\', \'B\', \'C\'), class = \'factor\')), .Names = \'other\'));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc17() {
+ assertEval("argv <- list(logical(0), structure(1:10, .Tsp = c(1920.5, 1921.25, 12), class = \'ts\'), logical(0));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc18() {
+ assertEval("argv <- list(structure(list(V1 = c(1L, 1L, 2L, 3L), V2 = structure(c(1L, 1L, 2L, 3L), .Label = c(\'A\', \'D\', \'E\'), class = \'factor\'), V3 = c(6, 6, 9, 10)), .Names = c(\'V1\', \'V2\', \'V3\'), row.names = c(NA, 4L), class = \'data.frame\'), sep = \'\\r\');c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc19() {
+ assertEval("argv <- list(10L, NULL, 10);c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc20() {
+ assertEval("argv <- list(NULL, structure(list(class = \'try-error\', condition = structure(list(message = \'non-numeric argument to mathematical function\', call = quote(log(\'a\'))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))), .Names = c(\'class\', \'condition\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc21() {
+ assertEval("argv <- list(NULL, structure(list(class = \'try-error\', condition = structure(list(message = \''x' is empty\', call = quote(cor(Z[, FALSE], use = \'pairwise.complete.obs\', method = \'kendall\'))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))), .Names = c(\'class\', \'condition\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc22() {
+ assertEval("argv <- list(structure(list(N = structure(c(17, 18, 18, 18), .Dim = 4L, .Dimnames = structure(list(N = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\')), .Names = \'N\'))), .Names = \'N\'), structure(list(`V:N` = structure(c(6, 6, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6), .Dim = 3:4, .Dimnames = structure(list(V = c(\'Golden.rain\', \'Marvellous\', \'Victory\'), N = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\')), .Names = c(\'V\', \'N\')))), .Names = \'V:N\'));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc23() {
+ assertEval("argv <- list(list(NULL), list(NULL, c(\'a\', \'b\', \'c\'), NULL, c(\'V5\', \'V6\', \'V7\', \'V8\', \'V9\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc24() {
+ assertEval("argv <- list(NULL, structure(list(class = \'try-error\', condition = structure(list(message = \'undefined columns selected\', call = quote(`[.data.frame`(dd, , \'C\'))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))), .Names = c(\'class\', \'condition\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc25() {
+ assertEval("argv <- list(NULL, structure(list(class = \'try-error\', condition = structure(list(message = \'line 1 did not have 4 elements\', call = quote(scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings, flush, fill, strip.white, quiet, blank.lines.skip, multi.line, comment.char, allowEscapes, encoding))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))), .Names = c(\'class\', \'condition\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc26() {
+ assertEval("argv <- list(0, c(FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc27() {
+ assertEval("argv <- list(character(0));c(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc28() {
+ assertEval("argv <- list(NULL, structure(list(class = \'try-error\', condition = structure(list(message = \'(converted from warning) NAs produced\', call = quote(rnorm(1, sd = Inf))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))), .Names = c(\'class\', \'condition\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc29() {
+ assertEval("argv <- list(1944, 1944.75, 4);c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc30() {
+ assertEval("argv <- list(structure(c(2.8709968773466e-06, -0.000158359165766342, 0.00727428858396739, -0.000819679205658397, -0.000777694946526408, -0.00356554678621684, 0.000131355545630207, 0.0114265093267527, -0.000158359165766342, 5.43254707707774e-06, -0.000158630865337517, 9.73709585506688e-05, 0.000111529300368063, 5.13485783500411e-05, -6.33871099330885e-05, -0.000383481109923256, 0.00727428858396739, -0.000158630865337517, -1.56486391901245e-05, -0.00236056684784514, -0.00652700637569598, 0.00050199030070891, 0.00218994696407579, 0.0203300594009954, -0.000819679205658397, 9.73709585506688e-05, -0.00236056684784514, 7.93209373295412e-07, 0.00187235412049774, 0.00143329638746881, -3.6749249077872e-05, -0.0118829190788863, -0.000777694946526408, 0.000111529300368063, -0.00652700637569598, 0.00187235412049774, 4.25289264915918e-06, 0.00235407805712873, -0.000833270910443051, -0.00229252218256459, -0.00356554678621684, 5.13485783500411e-05, 0.00050199030070891, 0.00143329638746881, 0.00235407805712873, -3.00860514170775e-05, -0.00105162168837414, -0.00640852176345075, 0.000131355545630207, -6.33871099330885e-05, 0.00218994696407579, -3.6749249077872e-05, -0.000833270910443051, -0.00105162168837414, 2.63610545947479e-06, 0.00637158302982355, 0.0114265093267527, -0.000383481109923256, 0.0203300594009954, -0.0118829190788863, -0.00229252218256459, -0.00640852176345075, 0.00637158302982355, -9.55643771360926e-05), .Dim = c(8L, 8L), .Dimnames = list(c(\'height\', \'arm.span\', \'forearm\', \'lower.leg\', \'weight\', \'bitro.diameter\', \'chest.girth\', \'chest.width\'), c(\'height\', \'arm.span\', \'forearm\', \'lower.leg\', \'weight\', \'bitro.diameter\', \'chest.girth\', \'chest.width\'))));c(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc31() {
+ assertEval("argv <- list(c(-Inf, 2.17292368994844e-311, 4.34584737989688e-311, 8.69169475979376e-311, 1.73833895195875e-310, 3.4766779039175e-310, 6.953355807835e-310, 1.390671161567e-309, 2.781342323134e-309, 5.562684646268e-309, 1.1125369292536e-308, 2.2250738585072e-308, 4.4501477170144e-308, 8.90029543402881e-308, 1.78005908680576e-307, 2.2250738585072e-303, 2.2250738585072e-298, 1.79769313486232e+298, 1.79769313486232e+303, 2.24711641857789e+307, 4.49423283715579e+307, 8.98846567431158e+307, 1.79769313486232e+308, Inf, Inf), c(NaN, NA));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc32() {
+ assertEval("argv <- list(list(structure(list(Ozone = c(NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), Solar.R = c(286L, 287L, 242L, 186L, 220L, 264L, 127L, 273L, 291L, 323L, 259L, 250L, 148L, 332L, 322L, 191L, 284L, 37L, 120L, 137L, 150L, 59L, 91L, 250L, 135L, 127L, 47L, 98L, 31L, 138L), Wind = c(8.6, 9.7, 16.1, 9.2, 8.6, 14.3, 9.7, 6.9, 13.8, 11.5, 10.9, 9.2, 8, 13.8, 11.5, 14.9, 20.7, 9.2, 11.5, 10.3, 6.3, 1.7, 4.6, 6.3, 8, 8, 10.3, 11.5, 14.9, 8), Temp = c(78L, 74L, 67L, 84L, 85L, 79L, 82L, 87L, 90L, 87L, 93L, 92L, 82L, 80L, 79L, 77L, 72L, 65L, 73L, 76L, 77L, 76L, 76L, 76L, 75L, 78L, 73L, 80L, 77L, 83L), Month = c(6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), Day = 1:30), .Names = c(\'Ozone\', \'Solar.R\', \'Wind\', \'Temp\', \'Month\', \'Day\'), row.names = 32:61, class = \'data.frame\')), structure(list(Oz.Z = structure(c(NA, NA, NA, NA, NA, NA, -0.0244094233987339, NA, 2.28228108778162, 0.52480260307278, NA, NA, -0.353936639281642, NA, NA, -0.463779044575945, 0.414960197778477, -0.518700247223096, -0.958069868400307, -0.903148665753156, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = c(30L, 1L), \'`scaled:center`\' = 29.4444444444444, \'`scaled:scale`\' = 18.2079042664931)), .Names = \'Oz.Z\'));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc33() {
+ assertEval("argv <- list(list(\'*\', \' \', \'skipping installation test\', \'\\n\'), sep = \'\');c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc34() {
+ assertEval("argv <- list(\'exNSS4\', \'myLib\', structure(c(\'1.0\', NA, \'methods\', NA, NA, NA, NA, \'GPL (>= 2)\', NA, NA, NA, NA, NA, NA, \'3.0.1\'), .Names = c(\'Version\', NA, \'Depends\', NA, NA, NA, NA, \'License\', NA, NA, NA, NA, NA, NA, \'Built\')));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc35() {
+ assertEval("argv <- list(c(\'‘?’ for shortcuts to help topics.\', \'\', \' ‘help.search()’ or ‘??’ for finding help pages\', \' on a vague topic;\', \' ‘help.start()’ which opens the HTML version of the R\', \' help pages;\', \' ‘library()’ for listing available packages and the\', \' help objects they contain;\', \' ‘data()’ for listing available data sets;\', \' ‘methods()’.\', \'\', \' Use ‘prompt\'), character(0));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc36() {
+ assertEval("argv <- list(-1, 0+1i);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc37() {
+ assertEval("argv <- list(c(0, 1, 1.3, 1.8, 2.4), 4.6, NULL);c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void testc38() {
+ assertEval("argv <- list(raw(0), 61);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc39() {
+ assertEval("argv <- list(structure(list(c(1L, 2L, 4L), 1:3, c(2L, 1L)), class = c(\'package_version\', \'numeric_version\')));c(argv[[1]]);");
+ }
+
+ @Test
+ public void testc40() {
+ assertEval("argv <- list(structure(list(A = 1, c = \'C\'), .Names = c(\'A\', \'c\')), d = 1:3);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc41() {
+ assertEval("argv <- list(structure(list(1:3), class = c(\'package_version\', \'numeric_version\')), structure(list(c(2L, 1L)), class = c(\'package_version\', \'numeric_version\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc42() {
+ assertEval("argv <- list(structure(list(Ozone = c(41L, 36L, 12L, 18L, NA, 28L, 23L, 19L, 8L, NA, 7L, 16L, 11L, 14L, 18L, 14L, 34L, 6L, 30L, 11L, 1L, 11L, 4L, 32L, NA, NA, NA, 23L, 45L, 115L, 37L, NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 135L, 49L, 32L, NA, 64L, 40L, 77L, 97L, 97L, 85L, NA, 10L, 27L, NA, 7L, 48L, 35L, 61L, 79L, 63L, 16L, NA, NA, 80L, 108L, 20L, 52L, 82L, 50L, 64L, 59L, 39L, 9L, 16L, 78L, 35L, 66L, 122L, 89L, 110L, NA, NA, 44L, 28L, 65L, NA, 22L, 59L, 23L, 31L, 44L, 21L, 9L, NA, 45L, 168L, 73L, NA, 76L, 118L, 84L, 85L, 96L, 78L, 73L, 91L, 47L, 32L, 20L, 23L, 21L, 24L, 44L, 21L, 28L, 9L, 13L, 46L, 18L, 13L, 24L, 16L, 13L, 23L, 36L, 7L, 14L, 30L, NA, 14L, 18L, 20L), Solar.R = c(190L, 118L, 149L, 313L, NA, NA, 299L, 99L, 19L, 194L, NA, 256L, 290L, 274L, 65L, 334L, 307L, 78L, 322L, 44L, 8L, 320L, 25L, 92L, 66L, 266L, NA, 13L, 252L, 223L, 279L, 286L, 287L, 242L, 186L, 220L, 264L, 127L, 273L, 291L, 323L, 259L, 250L, 148L, 332L, 322L, 191L, 284L, 37L, 120L, 137L, 150L, 59L, 91L, 250L, 135L, 127L, 47L, 98L, 31L, 138L, 269L, 248L, 236L, 101L, 175L, 314L, 276L, 267L, 272L, 175L, 139L, 264L, 175L, 291L, 48L, 260L, 274L, 285L, 187L, 220L, 7L, 258L, 295L, 294L, 223L, 81L, 82L, 213L, 275L, 253L, 254L, 83L, 24L, 77L, NA, NA, NA, 255L, 229L, 207L, 222L, 137L, 192L, 273L, 157L, 64L, 71L, 51L, 115L, 244L, 190L, 259L, 36L, 255L, 212L, 238L, 215L, 153L, 203L, 225L, 237L, 188L, 167L, 197L, 183L, 189L, 95L, 92L, 252L, 220L, 230L, 259L, 236L, 259L, 238L, 24L, 112L, 237L, 224L, 27L, 238L, 201L, 238L, 14L, 139L, 49L, 20L, 193L, 145L, 191L, 131L, 223L), Wind = c(7.4, 8, 12.6, 11.5, 14.3, 14.9, 8.6, 13.8, 20.1, 8.6, 6.9, 9.7, 9.2, 10.9, 13.2, 11.5, 12, 18.4, 11.5, 9.7, 9.7, 16.6, 9.7, 12, 16.6, 14.9, 8, 12, 14.9, 5.7, 7.4, 8.6, 9.7, 16.1, 9.2, 8.6, 14.3, 9.7, 6.9, 13.8, 11.5, 10.9, 9.2, 8, 13.8, 11.5, 14.9, 20.7, 9.2, 11.5, 10.3, 6.3, 1.7, 4.6, 6.3, 8, 8, 10.3, 11.5, 14.9, 8, 4.1, 9.2, 9.2, 10.9, 4.6, 10.9, 5.1, 6.3, 5.7, 7.4, 8.6, 14.3, 14.9, 14.9, 14.3, 6.9, 10.3, 6.3, 5.1, 11.5, 6.9, 9.7, 11.5, 8.6, 8, 8.6, 12, 7.4, 7.4, 7.4, 9.2, 6.9, 13.8, 7.4, 6.9, 7.4, 4.6, 4, 10.3, 8, 8.6, 11.5, 11.5, 11.5, 9.7, 11.5, 10.3, 6.3, 7.4, 10.9, 10.3, 15.5, 14.3, 12.6, 9.7, 3.4, 8, 5.7, 9.7, 2.3, 6.3, 6.3, 6.9, 5.1, 2.8, 4.6, 7.4, 15.5, 10.9, 10.3, 10.9, 9.7, 14.9, 15.5, 6.3, 10.9, 11.5, 6.9, 13.8, 10.3, 10.3, 8, 12.6, 9.2, 10.3, 10.3, 16.6, 6.9, 13.2, 14.3, 8, 11.5), Temp = c(67L, 72L, 74L, 62L, 56L, 66L, 65L, 59L, 61L, 69L, 74L, 69L, 66L, 68L, 58L, 64L, 66L, 57L, 68L, 62L, 59L, 73L, 61L, 61L, 57L, 58L, 57L, 67L, 81L, 79L, 76L, 78L, 74L, 67L, 84L, 85L, 79L, 82L, 87L, 90L, 87L, 93L, 92L, 82L, 80L, 79L, 77L, 72L, 65L, 73L, 76L, 77L, 76L, 76L, 76L, 75L, 78L, 73L, 80L, 77L, 83L, 84L, 85L, 81L, 84L, 83L, 83L, 88L, 92L, 92L, 89L, 82L, 73L, 81L, 91L, 80L, 81L, 82L, 84L, 87L, 85L, 74L, 81L, 82L, 86L, 85L, 82L, 86L, 88L, 86L, 83L, 81L, 81L, 81L, 82L, 86L, 85L, 87L, 89L, 90L, 90L, 92L, 86L, 86L, 82L, 80L, 79L, 77L, 79L, 76L, 78L, 78L, 77L, 72L, 75L, 79L, 81L, 86L, 88L, 97L, 94L, 96L, 94L, 91L, 92L, 93L, 93L, 87L, 84L, 80L, 78L, 75L, 73L, 81L, 76L, 77L, 71L, 71L, 78L, 67L, 76L, 68L, 82L, 64L, 71L, 81L, 69L, 63L, 70L, 77L, 75L, 76L, 68L), Month = c(5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L), Day = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L)), .Names = c(\'Ozone\', \'Solar.R\', \'Wind\', \'Temp\', \'Month\', \'Day\'), row.names = c(NA, -153L)), list(NULL, NULL));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc43() {
+ assertEval("argv <- list(list(structure(list(u = c(5, 10, 15, 20, 30, 40, 60, 80, 100), lot1 = c(118, 58, 42, 35, 27, 25, 21, 19, 18), lot2 = c(69, 35, 26, 21, 18, 16, 13, 12, 12)), .Names = c(\'u\', \'lot1\', \'lot2\'), row.names = c(NA, -9L), class = \'data.frame\')), structure(list(max.level = 0, give.attr = FALSE, digits = 3), .Names = c(\'max.level\', \'give.attr\', \'digits\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc44() {
+ assertEval("argv <- list(list(structure(list(structure(\'vpl1\', class = c(\'vpListing\', \'gridVectorListing\', \'gridListing\')), structure(\'1\', class = c(\'vpUpListing\', \'gridVectorListing\', \'gridListing\'))), class = c(\'gridListListing\', \'gridListing\'))), list(structure(\'vpl2\', class = c(\'vpListing\', \'gridVectorListing\', \'gridListing\'))));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc45() {
+ assertEval("argv <- list(1, c(2, 3, 4, 6, 7, 8, 9, 10, 11), c(3, 4, 5, 7, 8, 9, 10, 11), 11L);c(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ public void testc46() {
+ assertEval("argv <- list(TRUE, NULL);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc47() {
+ assertEval("argv <- list(NULL, structure(list(names = structure(\'stats\', .Names = \'name\')), .Names = \'names\'));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc48() {
+ assertEval("argv <- list(list(c(\'foo\', \'bar\'), FALSE, structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = \'foo\'), .Names = c(\'a\', \'b\', \'c\')), structure(list(1, \'foo\', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), \'bar\'), .Dim = c(2L, 2L)), 0+1i, list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), \'foo\'), structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), c(1, 2, 3, 4, 5), 1, structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), structure(c(1, 3, 2, 4), .Dim = c(2L, 2L))), list(structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc49() {
+ assertEval("argv <- list(c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), structure(c(3.3032627879465, 3.28768675817403, 3.28198500972868, 3.26064954685429, 3.28230636466286, 3.29427556805693, 3.28140319515598, 3.31501132729969, 3.29996451963546, 3.3405648068776, 3.3615463372345, 3.37238152179651, 3.32652089130696, 3.31449399159178, 3.31051950313397, 3.29704421073007, 3.31063284281209, 3.31814807478072, 3.3100622663054, 3.33117177869743, 3.32172069914554, 3.34722215914612, 3.36040087649739, 3.36720656884446), .Tsp = c(1983, 1984.91666666667, 12), class = \'ts\'), logical(0));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void testc50() {
+ assertEval("argv <- list(1, 1, 1, list());c(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc51() {
+ assertEval("argv <- list(list(\'1: In matrix(1:7, 3, 4) :\\n data length [7] is not a sub-multiple or multiple of the number of rows [3]\'), list(), fill = TRUE);c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void testc52() {
+ assertEval("argv <- list(structure(list(names = c(\'freq\', \'score\')), .Names = \'names\'), structure(list(class = \'data.frame\', row.names = integer(0)), .Names = c(\'class\', \'row.names\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc53() {
+ assertEval("argv <- list(1, FALSE, c(0, 0));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc54() {
+ assertEval("argv <- list(structure(list(x = structure(1:8, .Dim = structure(8L, .Names = \'voice.part\'))), .Names = \'x\'), list(4));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc55() {
+ assertEval("argv <- list(c(1L, 2L, 3L, NA), c(-1, 0, 1, NA));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc56() {
+ assertEval("argv <- list(369.430769230769, 4.99999999999983);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc57() {
+ assertEval("argv <- list(structure(list(structure(list(title = \'boot: Bootstrap R (S-PLUS) Functions\', author = structure(list(structure(list(given = \'Angelo\', family = \'Canty\', role = \'aut\', email = NULL, comment = \'S original\'), .Names = c(\'given\', \'family\', \'role\', \'email\', \'comment\')), structure(list(given = c(\'Brian\', \'D.\'), family = \'Ripley\', role = c(\'aut\', \'trl\', \'cre\'), email = \'ripley@stats.ox.ac.uk\', comment = \'R port, author of parallel support\'), .Names = c(\'given\', \'family\', \'role\', \'email\', \'comment\'))), class = \'person\'), year = \'2012\', note = \'R package version 1.3-4\', url = \'http://CRAN.R-project.org/package=boot\'), .Names = c(\'title\', \'author\', \'year\', \'note\', \'url\'), bibtype = \'Manual\', key = \'boot-package\')), class = \'bibentry\'), structure(list(structure(list(title = \'Bootstrap Methods and Their Applications\', author = structure(list(structure(list(given = c(\'Anthony\', \'C.\'), family = \'Davison\', role = \'aut\', email = NULL, comment = NULL), .Names = c(\'given\', \'family\', \'role\', \'email\', \'comment\')), structure(list( given = c(\'David\', \'V.\'), family = \'Hinkley\', role = \'aut\', email = NULL, comment = NULL), .Names = c(\'given\', \'family\', \'role\', \'email\', \'comment\'))), class = \'person\'), year = \'1997\', publisher = \'Cambridge University Press\', address = \'Cambridge\', isbn = \'0-521-57391-2\', url = \'http://statwww.epfl.ch/davison/BMA/\'), .Names = c(\'title\', \'author\', \'year\', \'publisher\', \'address\', \'isbn\', \'url\'), bibtype = \'Book\', key = \'boot-book\')), class = \'bibentry\'));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc58() {
+ assertEval("argv <- list(FALSE, \'More testing :\', 12321, \'B2\');c(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ public void testc59() {
+ assertEval("argv <- list(1:10, 1+1i, TRUE);c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void testc60() {
+ assertEval("argv <- list(\'ArgMethod\', 1.10714871779409);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc61() {
+ assertEval("argv <- list(structure(list(`ANY#ANY` = .Primitive(\'==\')), .Names = \'ANY#ANY\'), list());c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc62() {
+ assertEval("argv <- list(list(), list());c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testc63() {
+ assertEval("argv <- list(recursive = TRUE);c(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc64() {
+ assertEval("argv <- list(structure(1386393974.25184, class = c(\'POSIXct\', \'POSIXt\')), structure(1386393974.25184, class = c(\'POSIXct\', \'POSIXt\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc65() {
+ assertEval("argv <- list(\'BiocInstaller\', \'/home/lzhao/R/x86_64-unknown-linux-gnu-library/3.0\', structure(c(\'1.12.0\', NA, \'R (>= 3.0.0)\', NA, NA, \'RUnit, BiocGenerics\', NA, \'Artistic-2.0\', NA, NA, NA, NA, NA, NA, \'3.0.1\'), .Names = c(\'Version\', NA, \'Depends\', NA, NA, \'Suggests\', NA, \'License\', NA, NA, NA, NA, NA, NA, \'Built\')));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void testc66() {
+ assertEval("argv <- list(NA, 1+2i);c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc67() {
+ assertEval("argv <- list(structure(c(0.06, 0.32, 0.63), .Names = c(\'0%\', \'25%\', \'50%\')), 909.591818181818, structure(c(0.905, 10000), .Names = c(\'75%\', \'100%\')));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void testc68() {
+ assertEval("argv <- list(structure(list(ctrl = c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14), trt1 = c(4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69), trt2 = c(6.31, 5.12, 5.54, 5.5, 5.37, 5.29, 4.92, 6.15, 5.8, 5.26)), .Dim = 3L, .Dimnames = list(c(\'ctrl\', \'trt1\', \'trt2\'))));c(argv[[1]]);");
+ }
+
+ @Test
+ public void testc69() {
+ assertEval("argv <- list(list(NA, FALSE), structure(list(na.rm = TRUE), .Names = \'na.rm\'));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc70() {
+ assertEval("argv <- list(structure(list(Topic = character(0), File = character(0)), .Names = c(\'Topic\', \'File\'), class = \'data.frame\', row.names = integer(0)), sep = \'\\r\');c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc71() {
+ assertEval("argv <- list(structure(list(Subject = structure(c(1L, 3L, 6L, 2L, 4L, 5L), .Label = c(\'1\', \'4\', \'2\', \'5\', \'6\', \'3\'), class = c(\'ordered\', \'factor\')), conc.0.25 = c(1.5, 2.03, 2.72, 1.85, 2.05, 2.31), conc.0.5 = c(0.94, 1.63, 1.49, 1.39, 1.04, 1.44), conc.0.75 = c(0.78, 0.71, 1.16, 1.02, 0.81, 1.03), conc.1 = c(0.48, 0.7, 0.8, 0.89, 0.39, 0.84), conc.1.25 = c(0.37, 0.64, 0.8, 0.59, 0.3, 0.64), conc.2 = c(0.19, 0.36, 0.39, 0.4, 0.23, 0.42)), row.names = c(1L, 12L, 23L, 34L, 45L, 56L), .Names = c(\'Subject\', \'conc.0.25\', \'conc.0.5\', \'conc.0.75\', \'conc.1\', \'conc.1.25\', \'conc.2\')), list(NULL));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc72() {
+ assertEval("argv <- list(structure(list(x.limits = c(-2.46408176011189, 2.92512533057276), y.limits = structure(c(1386479490.57927, 1387608090.57927), class = c(\'POSIXct\', \'POSIXt\')), x.used.at = NULL, y.used.at = NULL, x.num.limit = NULL, y.num.limit = NULL, aspect.ratio = 1, prepanel.default = \'prepanel.default.xyplot\', prepanel = NULL), .Names = c(\'x.limits\', \'y.limits\', \'x.used.at\', \'y.used.at\', \'x.num.limit\', \'y.num.limit\', \'aspect.ratio\', \'prepanel.default\', \'prepanel\')), structure(list(index.cond = list(1:3), perm.cond = 1L), .Names = c(\'index.cond\', \'perm.cond\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc73() {
+ assertEval("argv <- list(structure(list(coefficients = structure(c(-0.0529307911108286, -0.200175675120066), .Names = c(\'(Intercept)\', \'xTRUE\')), residuals = structure(c(0.196977726701894, -0.102864715594501, -1.21764591766838, -0.425219263997792, 0.671048026430597, 1.41161034263987, 0.150318738887899, 0.440602402670198, 0.19930142564799, -1.32412876571778), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\')), effects = structure(c(0.483887391035467, -0.316505532770654, -1.29088865053614, -0.430233412486575, 0.597805293562832, 1.40659619415109, 0.0770760060201344, 0.435588254181415, 0.126058692780225, -1.32914291420656), .Names = c(\'(Intercept)\', \'xTRUE\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\')), rank = 2L), .Names = c(\'coefficients\', \'residuals\', \'effects\', \'rank\')), structure(list(fitted.values = structure(c(-0.253106466230895, -0.0529307911108286, -0.253106466230895, -0.0529307911108285, -0.253106466230895, -0.0529307911108285, -0.253106466230895, -0.0529307911108285, -0.253106466230895, -0.0529307911108285), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\')), assign = 0:1, qr = structure(list(qr = structure(c(-3.16227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, -1.58113883008419, 1.58113883008419, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634), .Dim = c(10L, 2L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\'), c(\'(Intercept)\', \'xTRUE\')), assign = 0:1, contrasts = structure(list(x = \'contr.treatment\'), .Names = \'x\')), qraux = c(1.31622776601684, 1.39220245868163), pivot = 1:2, tol = 1e-07, rank = 2L), .Names = c(\'qr\', \'qraux\', \'pivot\', \'tol\', \'rank\'), class = \'qr\'), df.residual = 8L), .Names = c(\'fitted.values\', \'assign\', \'qr\', \'df.residual\')));c(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testc74() {
+ assertEval("argv <- list(structure(list(object = c(\'time\', \'status\')), .Names = \'object\'), structure(list(max.level = NA, vec.len = 4, digits.d = 3, nchar.max = 128, give.attr = TRUE, give.head = TRUE, width = 80L, envir = NULL, strict.width = \'no\', formatNum = function (x, ...) format(x, trim = TRUE, drop0trailing = TRUE, ...), list.len = 99), .Names = c(\'max.level\', \'vec.len\', \'digits.d\', \'nchar.max\', \'give.attr\', \'give.head\', \'width\', \'envir\', \'strict.width\', \'formatNum\', \'list.len\')), structure(list(give.length = TRUE, nest.lev = 2, indent.str = \' .. ..\'), .Names = c(\'give.length\', \'nest.lev\', \'indent.str\')));c(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincache.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincache.java
new file mode 100644
index 0000000000000000000000000000000000000000..7b264da23d441a76eace19e5314c0b77d6e23b08
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincache.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincache extends TestBase {
+
+ @Test
+ @Ignore
+ public void testcache1() {
+ assertEval("argv <- list(\'ddenseMatrix\', c(\'ddenseMatrix\', \'dMatrix\', \'denseMatrix\', \'Matrix\', \'mMatrix\'));.cache_class(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcache2() {
+ assertEval("argv <- list(\'numeric\', c(\'numeric\', \'vector\', \'atomicVector\'));.cache_class(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincat.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincat.java
new file mode 100644
index 0000000000000000000000000000000000000000..a759089b5a0cc6f930e2e5b82dfbee1f9bc2bace
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincat.java
@@ -0,0 +1,44 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincat extends TestBase {
+
+ @Test
+ public void testcat1() {
+ assertEval("argv <- list(\'head\\n\', 1:2, \'\\n\', 3:4, file = \'foo4\');cat(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcat2() {
+ assertEval("argv <- list(list(\'Loading required package: splines\\n\'), structure(2L, class = c(\'terminal\', \'connection\')), \'\', FALSE, NULL, FALSE); .Internal(cat(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void testcat3() {
+ assertEval("argv <- list(\'%comment\\n\\n%another\\n%\\n%\\n\', \'C1\\tC2\\tC3\\n\\\'Panel\\\'\\t\\\'Area Examined\\\'\\t\\\'% Blemishes\\\'\\n\', \'\\\'1\\\'\\t\\\'0.8\\\'\\t\\\'3\\\'\\n\', \'\\\'2\\\'\\t\\\'0.6\\\'\\t\\\'2\\\'\\n\', \'\\\'3\\\'\\t\\\'0.8\\\'\\t\\\'3\\\'\\n\', file = \'test.dat\', sep = \'\');cat(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]]);");
+ }
+
+ @Test
+ public void testcat4() {
+ assertEval("argv <- list(\'#comment\\n\\n#another\\n#\\n#\\n\', \'C1\\tC2\\tC3\\n\\\'Panel\\\'\\t\\\'Area Examined\\\'\\t\\\'# Blemishes\\\'\\n\', \'\\\'1\\\'\\t\\\'0.8\\\'\\t\\\'3\\\'\\n\', \'\\\'2\\\'\\t\\\'0.6\\\'\\t\\\'2\\\'\\n\', \'\\\'3\\\'\\t\\\'0.8\\\'\\t\\\'3\\\'\\n\', file = \'test.dat\', sep = \'\');cat(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]]);");
+ }
+
+ @Test
+ public void testcat5() {
+ assertEval("argv <- list(\'head\\n\', file = \'foo2\');cat(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinceiling.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinceiling.java
new file mode 100644
index 0000000000000000000000000000000000000000..04d24e2f79cfe78bf03ca27f19cd60fb2b43d232
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinceiling.java
@@ -0,0 +1,55 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinceiling extends TestBase {
+
+ @Test
+ public void testceiling1() {
+ assertEval("argv <- list(1001);ceiling(argv[[1]]);");
+ }
+
+ @Test
+ public void testceiling2() {
+ assertEval("argv <- list(13990.84);ceiling(argv[[1]]);");
+ }
+
+ @Test
+ public void testceiling3() {
+ assertEval("argv <- list(c(1, 4.5, 8, 11.5, 15));ceiling(argv[[1]]);");
+ }
+
+ @Test
+ public void testceiling4() {
+ assertEval("argv <- list(c(1, 5.5, 10.5, 15.5, 20));ceiling(argv[[1]]);");
+ }
+
+ @Test
+ public void testceiling5() {
+ assertEval("argv <- list(-0.698970004336019);ceiling(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testceiling6() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));ceiling(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testceiling7() {
+ assertEval("argv <- list(1e+05);ceiling(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincharToRaw.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincharToRaw.java
new file mode 100644
index 0000000000000000000000000000000000000000..48476500b5c53b30ec97244f886fbb5c355ef344
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincharToRaw.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincharToRaw extends TestBase {
+
+ @Test
+ @Ignore
+ public void testcharToRaw1() {
+ assertEval("argv <- list(\'\'); .Internal(charToRaw(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincharmatch.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincharmatch.java
new file mode 100644
index 0000000000000000000000000000000000000000..4fff0ed8fd38cbeb44da14e181c2c9b0519f0291
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincharmatch.java
@@ -0,0 +1,66 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincharmatch extends TestBase {
+
+ @Test
+ @Ignore
+ public void testcharmatch1() {
+ assertEval("argv <- list(c(\'x\', \'y\', \'z\'), c(\'row.names\', \'x\', \'y\', \'z\'), 0L); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcharmatch2() {
+ assertEval("argv <- list(character(0), c(\'row.names\', \'height\', \'weight\'), 0L); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcharmatch3() {
+ assertEval("argv <- list(\'package:methods\', c(\'.GlobalEnv\', \'CheckExEnv\', \'package:stats\', \'package:graphics\', \'package:grDevices\', \'package:utils\', \'package:datasets\', \'package:methods\', \'Autoloads\', \'package:base\'), NA_integer_); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcharmatch4() {
+ assertEval("argv <- list(\'package:methods\', c(\'.GlobalEnv\', \'package:graphics\', \'package:stats\', \'Autoloads\', \'package:base\'), NA_integer_); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcharmatch5() {
+ assertEval("argv <- list(c(\'0\', \'1\'), c(\'0\', \'1\'), 0); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcharmatch6() {
+ assertEval("argv <- list(c(\'m\', \'f\'), c(\'male\', \'female\'), NA_integer_); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcharmatch7() {
+ assertEval("argv <- list(\'me\', c(\'mean\', \'median\', \'mode\'), NA_integer_); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcharmatch8() {
+ assertEval("argv <- list(character(0), c(\'semiTransparency\', \'transparentBackground\', \'rasterImage\', \'capture\', \'locator\', \'events\'), 0L); .Internal(charmatch(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinchartr.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinchartr.java
new file mode 100644
index 0000000000000000000000000000000000000000..3a926178b846b9adeca0020895dc47d907c14f2f
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinchartr.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinchartr extends TestBase {
+
+ @Test
+ @Ignore
+ public void testchartr1() {
+ assertEval("argv <- list(\'.\', \'.\', c(\'0.02\', \'0.06\', \'0.11\', \'0.22\', \'0.56\', \'1.1\')); .Internal(chartr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testchartr2() {
+ assertEval("argv <- list(\'iXs\', \'why\', \'MiXeD cAsE 123\'); .Internal(chartr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testchartr3() {
+ assertEval("argv <- list(\'a-cX\', \'D-Fw\', \'MiXeD cAsE 123\'); .Internal(chartr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testchartr4() {
+ assertEval("argv <- list(\'.\', \'.\', character(0)); .Internal(chartr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinchoose.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinchoose.java
new file mode 100644
index 0000000000000000000000000000000000000000..8fd277d6cdf0b8df5be9e6e7090b5808a9666f00
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinchoose.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinchoose extends TestBase {
+
+ @Test
+ @Ignore
+ public void testchoose1() {
+ assertEval("argv <- list(-1, 3); .Internal(choose(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testchoose2() {
+ assertEval("argv <- list(9L, c(-14, -13, -12, -11, -10, -9, -8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24)); .Internal(choose(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testchoose3() {
+ assertEval("argv <- list(logical(0), logical(0)); .Internal(choose(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testchoose4() {
+ assertEval("argv <- list(0.5, 0:10); .Internal(choose(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinclass.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinclass.java
new file mode 100644
index 0000000000000000000000000000000000000000..bcf2a7e99a68932dfe3b9db952f8b099ea09f04a
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinclass.java
@@ -0,0 +1,174 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinclass extends TestBase {
+
+ @Test
+ @Ignore
+ public void testclass1() {
+ assertEval("argv <- list(structure(function (x) standardGeneric(\'exp\', .Primitive(\'exp\')), generic = structure(\'exp\', package = \'base\'), package = \'base\', group = list(\'Math\'), valueClass = character(0), signature = \'x\', default = .Primitive(\'exp\'), skeleton = quote(.Primitive(\'exp\')(x)), class = structure(\'standardGeneric\', package = \'methods\')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass2() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, 1, 0, 0, 0, 1), .Dim = c(3L, 3L), class = structure(\'mmat2\', package = \'.GlobalEnv\')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass3() {
+ assertEval("argv <- list(structure(3.14159265358979, comment = \'Start with pi\', class = structure(\'num1\', package = \'.GlobalEnv\')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass4() {
+ assertEval("argv <- list(structure(c(1+1i, 2+1.4142135623731i, 3+1.73205080756888i, 4+2i, 5+2.23606797749979i, 6+2.44948974278318i, 7+2.64575131106459i, 8+2.82842712474619i, 9+3i, 10+3.1622776601684i), id = character(0), class = structure(\'withId\', package = \'.GlobalEnv\')));class(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclass5() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass6() {
+ assertEval("argv <- list(structure(list(x = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), y = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), width = structure(1, unit = \'npc\', valid.unit = 0L, class = \'unit\'), height = structure(1, unit = \'npc\', valid.unit = 0L, class = \'unit\'), justification = \'centre\', gp = structure(list(), class = \'gpar\'), clip = TRUE, xscale = c(-15.89, 356.89), yscale = c(0.683750615306643, 5.8340977374556), angle = 0, layout = NULL, layout.pos.row = c(21L, 21L), layout.pos.col = c(17L, 17L), valid.just = c(0.5, 0.5), valid.pos.row = c(21L, 21L), valid.pos.col = c(17L, 17L), name = \'plot_01.panel.3.1.vp\'), .Names = c(\'x\', \'y\', \'width\', \'height\', \'justification\', \'gp\', \'clip\', \'xscale\', \'yscale\', \'angle\', \'layout\', \'layout.pos.row\', \'layout.pos.col\', \'valid.just\', \'valid.pos.row\', \'valid.pos.col\', \'name\'), class = \'viewport\'));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass7() {
+ assertEval("argv <- list(c(NA, \'2\', \'3\'));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass8() {
+ assertEval("argv <- list(c(325, 257, 303, 315, 380, 153, 263, 242, 206, 344, 258));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass9() {
+ assertEval("argv <- list(structure(list(message = \'Choosing method ‘sparseMatrix#ANY’ from 2 ambiguous possibilities\', call = NULL), .Names = c(\'message\', \'call\'), class = c(\'simpleCondition\', \'condition\')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass10() {
+ assertEval("argv <- list(structure(list(time = 1:10, y = c(1, 1.4142135623731, 1.73205080756888, 2, 2.23606797749979, 2.44948974278318, 2.64575131106459, 2.82842712474619, 3, 3.16227766016838)), .Names = c(\'time\', \'y\'), row.names = c(NA, 10L), .S3Class = \'data.frame\', date = structure(16045, class = \'Date\'), class = structure(\'dataFrameD\', package = \'.GlobalEnv\')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass11() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), .S3Class = \'data.frame\', class = structure(\'data.frame\', package = \'methods\')));class(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclass12() {
+ assertEval("argv <- list(structure(function (qr, y) .Call(sparseQR_resid_fitted, qr, y, TRUE), target = structure(c(\'sparseQR\', \'ddenseMatrix\'), .Names = c(\'qr\', \'y\'), package = c(\'Matrix\', \'Matrix\'), class = structure(\'signature\', package = \'methods\')), defined = structure(c(\'sparseQR\', \'ddenseMatrix\'), .Names = c(\'qr\', \'y\'), package = c(\'Matrix\', \'Matrix\'), class = structure(\'signature\', package = \'methods\')), generic = structure(\'qr.resid\', package = \'base\'), class = structure(\'MethodDefinition\', package = \'methods\')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass13() {
+ assertEval("argv <- list(structure(c(3.1, 6.695, 8.14, 7.50090909091, 8.95, 9.26), .Names = c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\'), class = c(\'summaryDefault\', \'table\')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass14() {
+ assertEval("argv <- list(complex(0));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass15() {
+ assertEval("argv <- list(structure(c(-0.00225540511921, -0.00045867962383, -8.86739505379e-06, -1.96554854754e-06, 0.000402346479421, 0.00193962597167), .Names = c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\'), class = c(\'summaryDefault\', \'table\')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass16() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, NA, NA, TRUE, TRUE, TRUE, NA, NA, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass17() {
+ assertEval("argv <- list(c(-10, -10, -10, NA, NA, 150, 170, 180, NA, NA, 310, 330, 340, 350, 370, 380));class(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclass18() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = 0L));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass19() {
+ assertEval("argv <- list(structure(c(0.5, 0, 0.5, 0, 0, 0.5, 0, 0, 0.0740740740740741, 0, 0, 0.5, 1, 0, 0, 0.5, 1, 0.5), unit = c(\'char\', \'grobheight\', \'char\', \'grobheight\', \'grobheight\', \'char\', \'mm\', \'lines\', \'null\', \'mm\', \'mm\', \'char\', \'grobheight\', \'char\', \'grobheight\', \'char\', \'grobheight\', \'char\'), valid.unit = c(18L, 22L, 18L, 22L, 22L, 18L, 7L, 3L, 5L, 7L, 7L, 18L, 22L, 18L, 22L, 18L, 22L, 18L), data = list(NULL, structure(list(label = \'\', x = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), y = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), just = \'centre\', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = \'GRID.text.1\', gp = structure(list(), class = \'gpar\'), vp = NULL), .Names = c(\'label\', \'x\', \'y\', \'just\', \'hjust\', \'vjust\', \'rot\', \'check.overlap\', \'name\', \'gp\', \'vp\'), class = c(\'text\', \'grob\', \'gDesc\')), NULL, structure(list(label = \'\', x = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), y = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), just = \'centre\', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = \'GRID.text.2\', gp = structure(list(), class = \'gpar\'), vp = NULL), .Names = c(\'label\', \'x\', \'y\', \'just\', \'hjust\', \'vjust\', \'rot\', \'check.overlap\', \'name\', \'gp\', \'vp\'), class = c(\'text\', \'grob\', \'gDesc\')), structure(list(label = \'\', x = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), y = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), just = \'centre\', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = \'GRID.text.3\', gp = structure(list(), class = \'gpar\'), vp = NULL), .Names = c(\'label\', \'x\', \'y\', \'just\', \'hjust\', \'vjust\', \'rot\', \'check.overlap\', \'name\', \'gp\', \'vp\'), class = c(\'text\', \'grob\', \'gDesc\')), NULL, NULL, NULL, NULL, NULL, NULL, NULL, structure(list(label = \'Column\', x = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), y = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), just = \'centre\', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = \'plot_01.xlab\', gp = structure(list(fontface = 1, alpha = 1, cex = 1, col = \'#000000\', lineheight = 1, font = 1L), .Names = c(\'fontface\', \'alpha\', \'cex\', \'col\', \'lineheight\', \'font\'), class = \'gpar\'), vp = NULL), .Names = c(\'label\', \'x\', \'y\', \'just\', \'hjust\', \'vjust\', \'rot\', \'check.overlap\', \'name\', \'gp\', \'vp\'), class = c(\'text\', \'grob\', \'gDesc\')), NULL, structure(list(label = \'\', x = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), y = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), just = \'centre\', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = \'GRID.text.5\', gp = structure(list(), class = \'gpar\'), vp = NULL), .Names = c(\'label\', \'x\', \'y\', \'just\', \'hjust\', \'vjust\', \'rot\', \'check.overlap\', \'name\', \'gp\', \'vp\'), class = c(\'text\', \'grob\', \'gDesc\')), NULL, structure(list(label = \'Dimensions: 4 x 54\', x = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), y = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), just = \'centre\', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = \'plot_01.sub\', gp = structure(list(fontface = 2, alpha = 1, cex = 1, col = \'#000000\', lineheight = 1, font = 2L), .Names = c(\'fontface\', \'alpha\', \'cex\', \'col\', \'lineheight\', \'font\'), class = \'gpar\'), vp = NULL), .Names = c(\'label\', \'x\', \'y\', \'just\', \'hjust\', \'vjust\', \'rot\', \'check.overlap\', \'name\', \'gp\', \'vp\'), class = c(\'text\', \'grob\', \'gDesc\')), NULL), class = \'unit\'));class(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclass20() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(24L, 13L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\'), c(\'(Intercept)\', \'block2\', \'block3\', \'block4\', \'block5\', \'block6\', \'N1\', \'P1\', \'K1\', \'N1:P1\', \'N1:K1\', \'P1:K1\', \'N1:P1:K1\')), assign = c(0L, 1L, 1L, 1L, 1L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L), contrasts = structure(list(block = \'contr.treatment\', N = \'contr.treatment\', P = \'contr.treatment\', K = \'contr.treatment\'), .Names = c(\'block\', \'N\', \'P\', \'K\'))));class(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclass21() {
+ assertEval("argv <- list(.Primitive(\'dimnames<-\'));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass22() {
+ assertEval("argv <- list(c(17, 289, 4913, 83521, 1419857, 24137569, 410338673, 6975757441, 118587876497, 2015993900449, 34271896307633, 582622237229761, 9904578032905936, 168377826559400928, 2862423051509815808, 48661191875666870272, 8.27240261886337e+20, 1.40630844520677e+22, 2.39072435685151e+23, 4.06423140664757e+24, 6.90919339130087e+25, 1.17456287652115e+27, 1.99675689008595e+28, 3.39448671314612e+29, 5.7706274123484e+30, 9.81006660099228e+31, 1.66771132216869e+33, 2.83510924768677e+34, 4.81968572106751e+35, 8.19346572581477e+36, 1.39288917338851e+38, 2.36791159476047e+39, 4.02544971109279e+40, 6.84326450885775e+41, 1.16335496650582e+43, 1.97770344305989e+44, 3.36209585320181e+45, 5.71556295044308e+46, 9.71645701575324e+47, 1.65179769267805e+49, 2.80805607755269e+50, 4.77369533183957e+51, 8.11528206412726e+52, 1.37959795090163e+54, 2.34531651653278e+55, 3.98703807810572e+56, 6.77796473277973e+57, 1.15225400457255e+59, 1.95883180777334e+60, 3.33001407321468e+61, 5.66102392446496e+62, 9.62374067159043e+63, 1.63603591417037e+65, 2.78126105408963e+66, 4.72814379195238e+67, 8.03784444631904e+68, 1.36643355587424e+70, 2.3229370449862e+71, 3.94899297647655e+72, 6.71328806001013e+73, 1.14125897020172e+75, 1.94014024934293e+76, 3.29823842388298e+77, 5.60700532060106e+78, 9.5319090450218e+79, 1.62042453765371e+81, 2.7547217140113e+82, 4.68302691381921e+83, 7.96114575349266e+84, 1.35339477809375e+86, 2.30077112275938e+87, 3.91131090869094e+88, 6.6492285447746e+89, 1.13036885261168e+91, 1.92162704943986e+92, 3.26676598404776e+93, 5.5535021728812e+94, 9.44095369389803e+95, 1.60496212796267e+97, 2.72843561753653e+98, 4.6383405498121e+99, 7.88517893468058e+100, 1.3404804188957e+102, 2.27881671212269e+103, 3.87398841060857e+104, 6.58578029803456e+105, 1.11958265066588e+107, 1.90329050613199e+108, 3.23559386042438e+109, 5.50050956272145e+110, 9.35086625662646e+111, 1.5896472636265e+113, 2.70240034816505e+114, 4.59408059188058e+115, 7.80993700619699e+116, 1.32768929105349e+118, 2.25707179479093e+119, 3.83702205114458e+120, 6.52293748694579e+121, 1.10889937278078e+123, 5.5535021728812e+94, 3.33001407321468e+61, 1.95883180777334e+60, 1.15225400457255e+59, 6.77796473277973e+57, 3.98703807810572e+56, 2.34531651653278e+55, 1.37959795090163e+54, 8.11528206412726e+52, 4.77369533183957e+51, 2.80805607755269e+50, 1.65179769267805e+49, 2015993900449));class(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclass23() {
+ assertEval("argv <- list(structure(function (a, b, ...) standardGeneric(\'solve\'), generic = structure(\'solve\', package = \'base\'), package = \'base\', group = list(), valueClass = character(0), signature = c(\'a\', \'b\'), default = structure(function (a, b, ...) UseMethod(\'solve\'), target = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'a\', package = \'methods\'), defined = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'a\', package = \'methods\'), generic = structure(\'solve\', package = \'base\'), class = structure(\'derivedDefaultMethod\', package = \'methods\')), skeleton = quote((function (a, b, ...) UseMethod(\'solve\'))(a, b, ...)), class = structure(\'standardGeneric\', package = \'methods\')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass24() {
+ assertEval("argv <- list(c(-0.31833672642477-1.38507061859438i, 1.42379885362755+0.0383231810219i, 0.405090858049187-0.763030162361974i, -0.995386565684023+0.212306135525839i, -0.95881778764026+1.42553796686779i, -0.918087896319951+0.744479822333976i, 0.15096960188161+0.70022940298623i, 1.2230687888662-0.22935461345173i, 0.868824288637794+0.197093861895352i, 1.04248536490429+1.20715377387226i));class(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclass25() {
+ assertEval("argv <- list(structure(function (x, type, ...) .Call(dgeMatrix_norm, as(x, \'dgeMatrix\'), type), target = structure(c(\'matrix\', \'character\'), .Names = c(\'x\', \'type\'), package = c(\'methods\', \'methods\'), class = structure(\'signature\', package = \'methods\')), defined = structure(c(\'matrix\', \'character\'), .Names = c(\'x\', \'type\'), package = c(\'methods\', \'methods\'), class = structure(\'signature\', package = \'methods\')), generic = structure(\'norm\', package = \'base\'), class = structure(\'MethodDefinition\', package = \'methods\')));class(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclass26() {
+ assertEval("argv <- list(structure(function (x, mode = \'any\') .Internal(as.vector(x, mode)), target = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), defined = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), generic = character(0), class = structure(\'MethodDefinition\', package = \'methods\')));class(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclass27() {
+ assertEval("argv <- list(structure(function (x, uplo) { if (uplo == x@uplo) x else t(x)}, target = structure(c(\'nsCMatrix\', \'character\'), .Names = c(\'x\', \'uplo\'), package = c(\'Matrix\', \'methods\'), class = structure(\'signature\', package = \'methods\')), defined = structure(c(\'nsCMatrix\', \'character\'), .Names = c(\'x\', \'uplo\'), package = c(\'Matrix\', \'methods\'), class = structure(\'signature\', package = \'methods\')), generic = structure(\'forceSymmetric\', package = \'Matrix\'), class = structure(\'MethodDefinition\', package = \'methods\')));class(argv[[1]]);");
+ }
+
+ @Test
+ public void testclass28() {
+ assertEval("argv <- list(c(1.1+0i, NA, 3+0i));class(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclass29() {
+ assertEval("argv <- list(structure(1:10, .Tsp = c(1959.25, 1961.5, 4), class = \'ts\'));class(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinclassassign.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinclassassign.java
new file mode 100644
index 0000000000000000000000000000000000000000..dfd181a7044907d8ec6af316c2897337bfef4979
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinclassassign.java
@@ -0,0 +1,130 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinclassassign extends TestBase {
+
+ @Test
+ @Ignore
+ public void testclassassign1() {
+ assertEval("argv <- list(structure(function (x, mode = \'any\') .Internal(as.vector(x, mode)), target = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), defined = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), generic = character(0), class = structure(\'MethodDefinition\', package = \'methods\')), value = structure(\'MethodDefinition\', package = \'methods\'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclassassign2() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\')), structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\')));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclassassign3() {
+ assertEval("argv <- list(character(0), character(0));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testclassassign4() {
+ assertEval("argv <- list(structure(c(8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14, 8, 10, 12, 14), class = \'anyC\'), value = \'anyC\');`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclassassign5() {
+ assertEval("argv <- list(structure(character(0), .Names = character(0), package = character(0), class = structure(\'signature\', package = \'methods\')), value = structure(\'signature\', package = \'methods\'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclassassign6() {
+ assertEval("argv <- list(structure(list(par = 5.5, loglik = 0.970661978016996), .Names = c(\'par\', \'loglik\'), class = \'pfit\'), value = \'pfit\');`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclassassign7() {
+ assertEval("argv <- list(structure(FALSE, class = \'FALSE\'), FALSE);`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclassassign8() {
+ assertEval("argv <- list(1:3, value = \'numeric\');`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclassassign9() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, 1, 0, 0, 0, 1), .Dim = c(3L, 3L), class = structure(\'mmat2\', package = \'.GlobalEnv\')), value = structure(\'mmat2\', package = \'.GlobalEnv\'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclassassign10() {
+ assertEval("argv <- list(structure(c(\'o\', \'p\', \'v\', \'i\', \'r\', \'w\', \'b\', \'m\', \'f\', \'s\'), date = structure(1224086400, class = c(\'POSIXct\', \'POSIXt\'), tzone = \'\'), class = \'stamped\'), value = \'stamped\');`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclassassign11() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')), structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testclassassign12() {
+ assertEval("argv <- list(structure(1, class = \'bar\'), value = \'bar\');`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclassassign13() {
+ assertEval("argv <- list(structure(function (qr, y, k = qr$rank) standardGeneric(\'qr.fitted\'), target = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'qr\', package = \'methods\'), defined = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'qr\', package = \'methods\'), generic = character(0), class = structure(\'MethodDefinition\', package = \'methods\')), value = structure(\'MethodDefinition\', package = \'methods\'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclassassign14() {
+ assertEval("argv <- list(structure(function (x = 1, nrow, ncol) standardGeneric(\'diag\'), target = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), defined = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), generic = character(0), class = structure(\'MethodDefinition\', package = \'methods\')), value = structure(\'MethodDefinition\', package = \'methods\'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclassassign15() {
+ assertEval("argv <- list(structure(1:6, class = \'A\'), value = \'A\');`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclassassign16() {
+ assertEval("argv <- list(structure(function (x, y, ...) standardGeneric(\'plot\'), target = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), defined = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), generic = character(0), class = structure(\'MethodDefinition\', package = \'methods\')), value = structure(\'MethodDefinition\', package = \'methods\'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclassassign17() {
+ assertEval("argv <- list(structure(function (x, logarithm = TRUE, ...) UseMethod(\'determinant\'), target = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), defined = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), generic = character(0), class = structure(\'MethodDefinition\', package = \'methods\')), value = structure(\'MethodDefinition\', package = \'methods\'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclassassign18() {
+ assertEval("argv <- list(structure(function (x, y = NULL) .Internal(crossprod(x, y)), target = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), defined = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), generic = character(0), class = structure(\'MethodDefinition\', package = \'methods\')), value = structure(\'MethodDefinition\', package = \'methods\'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testclassassign19() {
+ assertEval("argv <- list(structure(function (obj, force = FALSE) standardGeneric(\'unname\'), target = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'obj\', package = \'methods\'), defined = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'obj\', package = \'methods\'), generic = character(0), class = structure(\'MethodDefinition\', package = \'methods\')), value = structure(\'MethodDefinition\', package = \'methods\'));`class<-`(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinclearPushBack.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinclearPushBack.java
new file mode 100644
index 0000000000000000000000000000000000000000..ea1bc45fe3677a9b9d77d9956f958336cd87e587
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinclearPushBack.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinclearPushBack extends TestBase {
+
+ @Test
+ @Ignore
+ public void testclearPushBack1() {
+ assertEval("argv <- list(FALSE); .Internal(clearPushBack(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincol.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincol.java
new file mode 100644
index 0000000000000000000000000000000000000000..f33e6ad8482a6df0002d938173054fd00bed4f62
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincol.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincol extends TestBase {
+
+ @Test
+ @Ignore
+ public void testcol1() {
+ assertEval("argv <- list(c(2L, 2L)); .Internal(col(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcol3() {
+ assertEval("argv <- list(c(1L, 0L)); .Internal(col(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincolMeans.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincolMeans.java
new file mode 100644
index 0000000000000000000000000000000000000000..63067fa437e14444b202edbf63bcbfc48f64c2d8
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincolMeans.java
@@ -0,0 +1,71 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincolMeans extends TestBase {
+
+ @Test
+ @Ignore
+ public void testcolMeans1() {
+ assertEval("argv <- list(structure(1:5, .Dim = c(5L, 1L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\'), \'a\')), 5, 1, FALSE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testcolMeans2() {
+ assertEval("argv <- list(structure(c(135L, 49L, 32L, NA, 64L, 40L, 77L, 97L, 97L, 85L, NA, 10L, 27L, NA, 7L, 48L, 35L, 61L, 79L, 63L, 16L, NA, NA, 80L, 108L, 20L, 52L, 82L, 50L, 64L, 59L), .Dim = c(31L, 1L)), 31, 1, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testcolMeans3() {
+ assertEval("argv <- list(structure(c(2, 1, 0, 1, 0, NA, NA, NA, 0), .Dim = c(3L, 3L)), 3, 3, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testcolMeans4() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), 0, 0, FALSE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testcolMeans5() {
+ assertEval("argv <- list(structure(c(3, 3, NA, 3, 3, 3, 3, 3, 4, 3, NA, NA, 2, 3, 4, 5), .Dim = c(8L, 2L), .Dimnames = list(NULL, c(\'x1\', \'x2\'))), 8, 2, FALSE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testcolMeans6() {
+ assertEval("argv <- list(structure(c(2.72365184362824, -0.796449881281511, 0.796148249055565, 2.02271745300814, 1.2802770548002, 1.337056204255, 2.6107240701292, 2.10828628469836, 1.43875587381801, 0.595316954266145, 3.49563715531476, 1.48558049063486, 1.41226464164167, 2.44508400241911, 2.57984360481665, -1.20772288776711, 2.43688378444644, 0.533076425061003, 1.3034273968671, 3.70362282204711, 0.608593870458723, 0.953140512120224, 0.386257122548769, 3.75339780206139, 3.42482460204159, 0.619548124388308, 3.14887764228466, 0.751148471471006, 1.87137783412956, 1.62046400462005, 0.94345287218966, 1.64506447351138, 1.30606946576658, 2.45886447346843, 2.03431588373773, -0.338520676288604, 2.03487908340323, 1.29252851374035, 1.2267540180234, 2.05222753374982, 2.83569182599169, 3.48408642621763, 2.39258208808217, 1.92637187747015, 1.9464722888473, 0.936987622444041, -0.457825141151114, 0.770998483524033, 1.80682914026242, 0.916590155958594, 2.78096073652237, 1.55750387883765, 3.3880545417157, 3.65182127019008, 1.46303726963845, 2.58757002961928, 2.44326477189276, 0.94225036142597, 1.29219317072567, 2.94893881867, 1.24384829814308, 1.84885702049451, 1.32523566412607, 1.28973308890195, 0.395997063065922, 1.22892077218378, 1.7220093913143, 0.805646559888977, 1.01315020534677, 1.31726023805076, 1.72638291442835, 1.7933922500199, 1.62417301864782, 2.84632954278294, 1.06390349068226, 0.393286798351562, 2.85644316208756, 1.17640470313741, 0.528983054741685, 1.96126284937392, 0.917057889286139, 2.45214192885654, 2.46901056075969, 0.964752028993787, 1.15564656732576, 1.8050377493702, 3.92150679994132, 1.89242778597682, 1.79539660063946, 3.11975967552643, 3.60233448863085, 1.28811938153997, 2.49044833125605, 2.82723855540917, 0.488353198794268), .Dim = c(95L, 1L)), 95, 1, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testcolMeans7() {
+ assertEval("argv <- list(structure(FALSE, .Dim = c(1L, 1L)), 1, 1, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcolMeans8() {
+ assertEval("argv <- list(structure(c(234.505586749024, 30.477338238484, 110.520869124744, 10.8182256360112, 147.313169560589, 97.6285379622695, 176.128082322087, 47.2454421006426, 1.90674769458181e-15, 30.477338238484, 416.975499504725, 31.7861370189749, 190.703952476833, 120.117506711705, 442.506661969244, 239.889830502368, 22.2127533877541, 8.96469890623342e-16, 110.520869124744, 31.7861370189749, 1515.40698347813, 93.4417828515041, 178.042033105564, 210.514489336906, 228.304319294085, 24.2402628282532, 9.78296809359315e-16, 10.8182256360112, 190.703952476833, 93.4417828515041, 1736.17011782569, 171.990208955525, 616.163154757563, 314.295577560061, 190.513839846008, 7.68882264110221e-15, 147.313169560589, 120.117506711705, 178.042033105564, 171.990208955525, 4391.22673539453, 270.845832643245, 258.906125067947, 151.459157745218, 6.11264043711995e-15, 97.6285379622695, 442.506661969244, 210.514489336906, 616.163154757563, 270.845832643245, 3843.51687278644, 444.735756817902, 537.305365376654, 2.16847535162432e-14, 176.128082322087, 239.889830502368, 228.304319294085, 314.295577560062, 258.906125067947, 444.735756817902, 5767.34674134268, 307.533224133396, 1.24115309340219e-14, 47.2454421006426, 22.2127533877541, 24.2402628282532, 190.513839846008, 151.459157745218, 537.305365376655, 307.533224133396, 264.760049944031, 1.06852765558369e-14, 1.90674769458181e-15, 8.96469890623341e-16, 9.78296809359316e-16, 7.6888226411022e-15, 6.11264043711995e-15, 2.16847535162432e-14, 1.24115309340219e-14, 1.06852765558369e-14, 4.31240042063952e-31), .Dim = c(9L, 9L)), 9, 9, FALSE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testcolMeans9() {
+ assertEval("argv <- list(structure(c(NA, 17.4716236802524, 0.424429400003, -2.45474630431729, -8.6855922903657, -11.7956139807344, -8.08147081196715, -13.3123167980156, -1.24650334752019, 21.281002075072, -5.32311940332657, 0.621869751489083, -19.2022951076469, -0.543162784063959, NA, NA, 15.344649382745, -9.74060313555005, 0.149375174081257, -5.85062482591874, -6.90563567110309, -9.96064651628744, 5.6326723568001, -8.78481137542338, -6.01565736147178, -15.543162784064, 2.34681552556734, -13.2465033475202, -3.82901961529671, 1.5226506664314, NA, -5.9777558474085, 22.7534966524798, 15.5010454558094, 4.13857256877024, -11.6855922903657, 11.6768805966734, -7.38893285382193, 10.8527157375375, -11.3889328538219, 14.1493751740813, -0.388932853821931, 13.0835617235859, -1.98225172690947, 5.96273742790618, -1.50975714950164, -1.38893285382193, 9.90772658272184, 7.3144077096343, -12.9822517269095, 2.02855087840155, -4.7956139807344, 3.14937517408126, -10.3231194033266, -2.25730595283121, 2.56685890630474, 4.27019946976097, 5.14937517408126, 0.0285508784015471, 5.85271573753749, 6.73189144185778, -6.38893285382193, 0.0285508784015471, -3.14728426246251, 15.1493751740813, 13.7869022870421, -7.27891116345324, 9.61106714617807, 4.84191313222647, -3.98225172690947, -6.38893285382193, 13.0285508784015, 5.13857256877024, -8.50975714950164, -0.619778839870337, -3.97144912159845, 23.1493751740813, -2.80641658604541, -1.03726257209382, 2.25939686444995, 4.25939686444995, -4.38893285382193, 6.38022116012966, -4.74060313555005, 2.02855087840155, -15.7956139807344, 8.21518862457662, -12.0264599667828, -2.1364816571515, 5.8635183428485, -14.729800530239, 4.80850749766416, -11.7848113754234, 9.45683721593604, -15.2573059528312, 5.28100207507198, 12.8635183428485, 6.50104545580937, 1.55605630099372, -7.44394369900628, 9.9735400332172, -11.2681085581422, 7.44603461062503, -8.14728426246251, -1.72980053023903, -3.90563567110309, 4.56685890630474, -5.37813024851092, -1.25730595283121, 10.7426940471688, NA, NA, 6.24343998511081, -21.9164382764141, -6.1364816571515, -15.8398222206077, -4.12567905184048, -7.94984391097642, -6.4773493335686, -5.65318447443266), .Dim = c(120L, 1L)), 120, 1, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcolMeans10() {
+ assertEval("argv <- list(structure(c(NA, 30.6929824561403, 25.6929824561403, 18.6929824561403, 6.69298245614035, -6.30701754385965, -13.3070175438597, -24.3070175438597, -21.3070175438597, 3.69298245614035, -2.30701754385965, -1.30701754385965, -20.3070175438597, -17.3070175438597, NA, NA, 12.6929824561403, 0.692982456140349, 0.692982456140349, -5.30701754385965, -11.3070175438597, -19.3070175438597, -10.3070175438597, -17.3070175438597, -20.3070175438597, -32.3070175438597, -24.3070175438597, -33.3070175438597, -31.3070175438597, -24.3070175438597, NA, -24.3070175438597, 2.69298245614035, 17.6929824561403, 18.6929824561403, 3.69298245614035, 14.6929824561403, 4.69298245614035, 14.6929824561403, 0.692982456140349, 14.6929824561403, 11.6929824561403, 22.6929824561403, 16.6929824561403, 19.6929824561403, 14.6929824561403, 10.6929824561403, 18.6929824561403, 22.6929824561403, 5.69298245614035, 6.69298245614035, 0.692982456140349, 3.69298245614035, -7.30701754385965, -8.30701754385965, -4.30701754385965, 0.692982456140349, 5.69298245614035, 4.69298245614035, 9.69298245614035, 14.6929824561403, 5.69298245614035, 4.69298245614035, 0.692982456140349, 15.6929824561403, 26.6929824561403, 14.6929824561403, 21.6929824561403, 22.6929824561403, 14.6929824561403, 5.69298245614035, 17.6929824561403, 19.6929824561403, 7.69298245614035, 5.69298245614035, 0.692982456140349, 23.6929824561403, 16.6929824561403, 12.6929824561403, 12.6929824561403, 14.6929824561403, 7.69298245614035, 12.6929824561403, 5.69298245614035, 6.69298245614035, -10.3070175438597, -0.307017543859651, -12.3070175438597, -12.3070175438597, -4.30701754385965, -18.3070175438597, -10.3070175438597, -20.3070175438597, -7.30701754385965, -21.3070175438597, -12.3070175438597, 2.69298245614035, 8.69298245614035, 8.69298245614035, -0.307017543859651, 9.69298245614035, -3.30701754385965, 4.69298245614035, -4.30701754385965, -5.30701754385965, -8.30701754385965, -2.30701754385965, -7.30701754385965, -7.30701754385965, 4.69298245614035, NA, NA, 11.6929824561403, -12.3070175438597, -16.3070175438597, -29.3070175438597, -28.3070175438597, -31.3070175438597, -32.3070175438597, -32.3070175438597), .Dim = c(120L, 1L), \'`scaled:center`\' = 56.3070175438597, .Dimnames = list(NULL, \'Series 1\'), .Tsp = c(1, 120, 1), class = \'ts\'), 120, 1, TRUE); .Internal(colMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincolSums.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincolSums.java
new file mode 100644
index 0000000000000000000000000000000000000000..dfcd49dade6eadb7f3052414addfcff6a9a95db2
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincolSums.java
@@ -0,0 +1,65 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincolSums extends TestBase {
+
+ @Test
+ public void testcolSums1() {
+ assertEval("argv <- list(structure(c(365, 365, 365, 366, 1, 0), .Dim = c(3L, 2L)), 3, 2, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testcolSums2() {
+ assertEval("argv <- list(structure(c(1L, 0L, 0L, 0L, 2L, 0L, 0L, 0L, 3L), .Dim = c(3L, 3L)), 3, 3, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testcolSums3() {
+ assertEval("argv <- list(structure(c(5, 29, 14, 16, 15, 54, 14, 10, 20, 84, 17, 94, 68, 119, 26, 7), .Dim = c(4L, 4L), .Dimnames = structure(list(Hair = c(\'Black\', \'Brown\', \'Red\', \'Blond\'), Eye = c(\'Green\', \'Hazel\', \'Blue\', \'Brown\')), .Names = c(\'Hair\', \'Eye\'))), 4, 4, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testcolSums4() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, NA, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 49, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 21, 0, 0, 7, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, NA, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 21, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(16L, 16L), .Dimnames = list(NULL, NULL)), 16, 16, TRUE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testcolSums5() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(16L, 16L), .Dimnames = list(NULL, NULL)), 16, 16, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testcolSums6() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), 0, 0, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcolSums7() {
+ assertEval("argv <- list(structure(c(-7.5, -6.5, -5.5, -4.5, -3.5, -2.5, -1.5, -0.5, 0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, -421.875, -274.625, -166.375, -91.125, -42.875, -15.625, -3.375, -0.125, 0.125, 3.375, 15.625, 42.875, 91.125, 166.375, 274.625, 421.875, -9187.5, -2866.5, -445.499999999999, -4.5, -283.5, -562.5, -541.5, -220.5, 220.5, 541.5, 562.5, 283.5, 4.49999999999999, 445.5, 2866.5, 9187.5, -139741.875, -4844.38499999995, -10122.255, -28872.045, -28539.315, -15800.625, -4325.535, -178.605, 178.605, 4325.535, 15800.625, 28539.315, 28872.045, 10122.255, 4844.38500000001, 139741.875), .Dim = c(16L, 4L)), 16, 4, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcolSums8() {
+ assertEval("argv <- list(structure(0:1, .Dim = 1:2, .Dimnames = list(\'strata(grp)\', c(\'x\', \'strata(grp)\'))), 1, 2, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testcolSums9() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, -1.43884556914512e-134, 0, 0, 0, -7.95468296571581e-252, 1.76099882882167e-260, 0, -9.38724727098368e-323, -0.738228974836154, 0, 0, 0, 0, 0, 0, 0, 0, 0, -6.84657791618065e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.05931985100232e-174, 0, -3.41789378681991e-150, 0, 0, 0, 0, -1.07225492686949e-10, 0, 1.65068934474523e-67, 0, -6.49830035279282e-307, 0, 5.83184963977238e-90, 0, -9.81722610183938e-287, 6.25336419454196e-54, 0, 0, 0, -1.72840591500382e-274, 1.22894687952101e-13, 0.660132850077566, 0, 0, 7.79918925397516e-200, -2.73162827952857e-178, 1.32195942051179e-41, 0, 0, 0, 0, 2.036057023761e-45, -3.40425060445074e-186, 1.59974269220388e-26, 0, 6.67054294775317e-124, 0.158503117506202, 0, 0, 0, 0, 0, 0, 3.42455724859116e-97, 0, 0, -2.70246891320217e-272, 0, 0, -3.50562438899045e-06, 0, 0, 1.35101732326608e-274, 0, 0, 0, 0, 0, 0, 0, 7.24580295957621e-65, 0, -3.54887341172294e-149, 0, 0, 0, 0, 0, 0, 0, 0, 1.77584594753563e-133, 0, 0, 0, 2.88385135688311e-250, 1.44299633616158e-259, 0, 1.56124744085834e-321, 1.63995835868977, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.01050064173383e-122, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.64868196850938e-172, 0, 6.28699823828692e-149, 0, 0, 0, 0, 5.0552295590188e-09, 0, 2.30420733561404e-66, 0, 7.0823279075443e-306, 0, 2.05009901740696e-88, 0, 7.41800724282869e-285, 7.18347043784483e-53, 0, 0, 0, 1.04251223075649e-273, 9.75816316577433e-13, 4.29519957592147, 0, 0, 1.33541454912682e-198, 2.34606233784019e-176, 8.38236726536896e-41, 0, 0, 0, 0, 1.35710537434521e-43, 1.15710503176511e-185, 1.25601735272233e-25, 0, 4.46811655846376e-123, 4.4196641795634, 0, 0, 0, 0, 0, 0, 3.74179015251531e-93, 0, 0, 3.62662047836582e-271, 0, 0, 1.26220330674453e-05, 0, 0, 1.72715562657338e-273, 0, 0, 0, 0, 0, 0, 0, 5.46372806810809e-64, 0, 2.47081972486962e-148, 0, 0, 0), .Dim = c(100L, 2L)), 100, 2, FALSE); .Internal(colSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincomment.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincomment.java
new file mode 100644
index 0000000000000000000000000000000000000000..abd742712b44f8a48ebdb3d709592fd2914a0f8a
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincomment.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincomment extends TestBase {
+
+ @Test
+ @Ignore
+ public void testcomment1() {
+ assertEval("argv <- list(NULL); .Internal(comment(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcomment2() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\'))); .Internal(comment(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcomment3() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(comment(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcomment4() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4, comment = c(\'This is my very important data from experiment #0234\', \'Jun 5, 1998\'))); .Internal(comment(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincommentassign.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincommentassign.java
new file mode 100644
index 0000000000000000000000000000000000000000..0f7eaebe420b2e17a058c429b1e8ca31308599cd
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincommentassign.java
@@ -0,0 +1,36 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincommentassign extends TestBase {
+
+ @Test
+ @Ignore
+ public void testcommentassign1() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4, comment = c(\'This is my very important data from experiment #0234\', \'Jun 5, 1998\')), c(\'This is my very important data from experiment #0234\', \'Jun 5, 1998\')); .Internal(`comment<-`(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcommentassign2() {
+ assertEval("argv <- list(character(0), NULL); .Internal(`comment<-`(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcommentassign3() {
+ assertEval("argv <- list(logical(0), NULL); .Internal(`comment<-`(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincomplex.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincomplex.java
new file mode 100644
index 0000000000000000000000000000000000000000..370a875695116a4715b7bfdd1d25b3be5696adbd
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincomplex.java
@@ -0,0 +1,60 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincomplex extends TestBase {
+
+ @Test
+ @Ignore
+ public void testcomplex1() {
+ assertEval("argv <- list(0, numeric(0), numeric(0)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcomplex2() {
+ assertEval("argv <- list(FALSE, FALSE, numeric(0)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcomplex3() {
+ assertEval("argv <- list(0L, 1:10, c(1, 1.4142135623731, 1.73205080756888, 2, 2.23606797749979, 2.44948974278318, 2.64575131106459, 2.82842712474619, 3, 3.16227766016838)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcomplex4() {
+ assertEval("argv <- list(0L, NA_real_, NA_real_); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcomplex5() {
+ assertEval("argv <- list(0L, c(-0.560475646552213, -0.23017748948328, 1.55870831414912, 0.070508391424576, 0.129287735160946, 1.71506498688328, 0.460916205989202, -1.26506123460653, -0.686852851893526, -0.445661970099958, 1.22408179743946, 0.359813827057364, 0.400771450594052, 0.11068271594512, -0.555841134754075, 1.78691313680308, 0.497850478229239, -1.96661715662964, 0.701355901563686, -0.472791407727934, -1.06782370598685, -0.217974914658295, -1.02600444830724, -0.72889122929114, -0.625039267849257, -1.68669331074241, 0.837787044494525, 0.153373117836515, -1.13813693701195, 1.25381492106993, 0.426464221476814, -0.295071482992271, 0.895125661045022, 0.878133487533042, 0.821581081637487, 0.688640254100091, 0.553917653537589, -0.0619117105767217, -0.305962663739917, -0.380471001012383, -0.694706978920513, -0.207917278019599, -1.26539635156826, 2.16895596533851, 1.20796199830499, -1.12310858320335, -0.402884835299076, -0.466655353623219, 0.779965118336318, -0.0833690664718293, 0.253318513994755, -0.028546755348703, -0.0428704572913161, 1.36860228401446, -0.225770985659268, 1.51647060442954, -1.54875280423022, 0.584613749636069, 0.123854243844614, 0.215941568743973, 0.379639482759882, -0.502323453109302, -0.33320738366942, -1.01857538310709, -1.07179122647558, 0.303528641404258, 0.448209778629426, 0.0530042267305041, 0.922267467879738, 2.05008468562714, -0.491031166056535, -2.30916887564081, 1.00573852446226, -0.709200762582393, -0.688008616467358, 1.0255713696967, -0.284773007051009, -1.22071771225454, 0.18130347974915, -0.138891362439045, 0.00576418589988693, 0.38528040112633, -0.370660031792409, 0.644376548518833, -0.220486561818751, 0.331781963915697, 1.09683901314935, 0.435181490833803, -0.325931585531227, 1.14880761845109, 0.993503855962119, 0.54839695950807, 0.238731735111441, -0.627906076039371, 1.36065244853001, -0.600259587147127, 2.18733299301658, 1.53261062618519, -0.235700359100477, -1.02642090030678), c(-0.710406563699301, 0.25688370915653, -0.246691878462374, -0.347542599397733, -0.951618567265016, -0.0450277248089203, -0.784904469457076, -1.66794193658814, -0.380226520287762, 0.918996609060766, -0.575346962608392, 0.607964322225033, -1.61788270828916, -0.0555619655245394, 0.519407203943462, 0.301153362166714, 0.105676194148943, -0.640706008305376, -0.849704346033582, -1.02412879060491, 0.117646597100126, -0.947474614184802, -0.490557443700668, -0.256092192198247, 1.84386200523221, -0.651949901695459, 0.235386572284857, 0.0779608495637108, -0.961856634130129, -0.0713080861235987, 1.44455085842335, 0.451504053079215, 0.0412329219929399, -0.422496832339625, -2.05324722154052, 1.13133721341418, -1.46064007092482, 0.739947510877334, 1.90910356921748, -1.4438931609718, 0.701784335374711, -0.262197489402468, -1.57214415914549, -1.51466765378175, -1.60153617357459, -0.530906522170303, -1.4617555849959, 0.687916772975828, 2.10010894052567, -1.28703047603518, 0.787738847475178, 0.76904224100091, 0.332202578950118, -1.00837660827701, -0.119452606630659, -0.280395335170247, 0.56298953322048, -0.372438756103829, 0.976973386685621, -0.374580857767014, 1.05271146557933, -1.04917700666607, -1.26015524475811, 3.2410399349424, -0.416857588160432, 0.298227591540715, 0.636569674033849, -0.483780625708744, 0.516862044313609, 0.368964527385086, -0.215380507641693, 0.0652930335253153, -0.034067253738464, 2.12845189901618, -0.741336096272828, -1.09599626707466, 0.0377883991710788, 0.310480749443137, 0.436523478910183, -0.458365332711106, -1.06332613397119, 1.26318517608949, -0.349650387953555, -0.865512862653374, -0.236279568941097, -0.197175894348552, 1.10992028971364, 0.0847372921971965, 0.754053785184521, -0.499292017172261, 0.214445309581601, -0.324685911490835, 0.0945835281735714, -0.895363357977542, -1.31080153332797, 1.99721338474797, 0.600708823672418, -1.25127136162494, -0.611165916680421, -1.18548008459731)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcomplex6() {
+ assertEval("argv <- list(0L, numeric(0), numeric(0)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcomplex7() {
+ assertEval("argv <- list(0L, NULL, numeric(0)); .Internal(complex(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincopyDFattr.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincopyDFattr.java
new file mode 100644
index 0000000000000000000000000000000000000000..259a11431682398325791a8ded3f3ecd3956ceba
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincopyDFattr.java
@@ -0,0 +1,138 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincopyDFattr extends TestBase {
+
+ @Test
+ @Ignore
+ public void testcopyDFattr1() {
+ assertEval("argv <- list(structure(list(size = 1056, isdir = FALSE, mode = structure(420L, class = \'octmode\'), mtime = structure(1395082115.08988, class = c(\'POSIXct\', \'POSIXt\')), ctime = structure(1395082122.18188, class = c(\'POSIXct\', \'POSIXt\')), atime = structure(1395082175.70988, class = c(\'POSIXct\', \'POSIXt\')), uid = 1001L, gid = 1001L, uname = \'roman\', grname = \'roman\'), .Names = c(\'size\', \'isdir\', \'mode\', \'mtime\', \'ctime\', \'atime\', \'uid\', \'gid\', \'uname\', \'grname\'), class = \'data.frame\', row.names = \'/home/roman/r-instrumented/tests/myLib/pkgA/R/pkgA\'), structure(list( size = NULL, isdir = NULL, mode = NULL, mtime = NULL, ctime = NULL, atime = NULL, uid = NULL, gid = NULL, uname = NULL, grname = NULL), .Names = c(\'size\', \'isdir\', \'mode\', \'mtime\', \'ctime\', \'atime\', \'uid\', \'gid\', \'uname\', \'grname\'), class = \'data.frame\', row.names = \'/home/roman/r-instrumented/tests/myLib/pkgA/R/pkgA\')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr2() {
+ assertEval("argv <- list(structure(list(y = c(2.30923841792462, 3.23011719303818, 2.9161246695212, 3.35931329373059, 5.3777049208621, 5.63518136825043, 7.37725908636056, 7.75621985157329, 10.1175871700049, 8.86877085545769), x1 = 1:10, x2 = 1:10, x3 = c(0.1, 0.4, 0.9, 1.6, 2.5, 3.6, 4.9, 6.4, 8.1, 10)), .Names = c(\'y\', \'x1\', \'x2\', \'x3\'), class = \'data.frame\', row.names = c(NA, 10L), terms = quote(y ~ x1 + x2 + x3)), structure(list(y = NULL, x1 = NULL, x2 = NULL, x3 = NULL), .Names = c(\'y\', \'x1\', \'x2\', \'x3\'), class = \'data.frame\', row.names = c(NA, 10L), terms = quote(y ~ x1 + x2 + x3))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr3() {
+ assertEval("argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c(\'y\', \'x\', \'z\'), class = \'data.frame\', row.names = c(NA, 10L), terms = quote(y ~ x * z)), structure(list(y = NULL, x = NULL, z = NULL), .Names = c(\'y\', \'x\', \'z\'), class = \'data.frame\', row.names = c(NA, 10L), terms = quote(y ~ x * z))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr4() {
+ assertEval("argv <- list(structure(list(surname = structure(integer(0), .Label = c(\'McNeil\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'factor\'), nationality = structure(integer(0), .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(integer(0), .Label = c(\'no\', \'yes\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\'), row.names = integer(0), class = \'data.frame\'), structure(list(surname = NULL, nationality = NULL, deceased = NULL), .Names = c(\'surname\', \'nationality\', \'deceased\'), row.names = integer(0), class = \'data.frame\')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr5() {
+ assertEval("argv <- list(structure(list(A = 0:10, B = 10:20, `NA` = 20:30), .Names = c(\'A\', \'B\', NA), row.names = c(NA, -11L), class = \'data.frame\'), structure(list(A = NULL, B = NULL, `NA` = NULL), .Names = c(\'A\', \'B\', NA), row.names = c(NA, -11L), class = \'data.frame\')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr6() {
+ assertEval("argv <- list(structure(list(`Surv(stop, status * as.numeric(event), type = \'mstate\')` = structure(c(760, 2160, 5441, 277, 1815, 2587, 547, 1125, 2010, 2422, 6155, 1767, 61, 60, 7807, 7732, 6126, 7921, 3590, 5231, 5384, 5934, 6415, 6789, 6778, 3561, 4505, 3987, 4726, 5550, 5216, 5757, 2345, 6931, 6760, 5796, 4810, 5143, 3091, 3316, 700, 1706, 5088, 944, 2466, 1706, 7364, 1857, 9510, 9603, 31, 7479, 2006, 2588, 2983, 8761, 3932, 4201, 5293, 273, 2223, 4249, 5308, 8327, 499, 5789, 7417, 3242, 3275, 10359, 10852, 362, 9993, 1795, 3562, 4139, 4840, 4959, 547, 4119, 8308, 1674, 2953, 3776, 1369, 7911, 7519, 9318, 4370, 7301, 1642, 4169, 7417, 6117, 4536, 7235, 6723, 7397, 7428, 2084, 4066, 1673, 2860, 0, 3773, 4810, 4206, 2314, 4065, 8961, 6143, 517, 3837, 7498, 2815, 8806, 7668, 12457, 8600, 7003, 2435, 1826, 2403, 3805, 4901, 365, 6642, 3318, 3012, 1431, 2223, 4962, 5982, 638, 3346, 4996, 6800, 7454, 8887, 5024, 2833, 4232, 5238, 3186, 3380, 3382, 8100, 1766, 7184, 8059, 6008, 5047, 2236, 8165, 4224, 2844, 6256, 7370, 3560, 4939, 4941, 2230, 3068, 152, 10122, 3226, 3943, 518, 8569, 845, 2099, 8006, 8052, 9560, 0, 7965, 7470, 8133, 809, 153, 1851, 3010, 2121, 7085, 5068, 7093, 5930, 6878, 8080, 791, 6626, 3962, 1116, 1249, 9257, 1077, 566, 174, 4627, 5022, 2070, 3012, 1625, 6607, 8381, 8389, 1005, 3895, 4236, 6970, 8497, 2861, 8487, 3227, 8030, 8023, 31, 2435, 518, 4758, 7958, 7884, 4453, 6349, 7862, 1392, 3167, 6025, 4656, 1767, 7736, 2678, 2191, 3658, 7758, 8009, 2556, 3511, 7954, 822, 4321, 5151, 7545, 7576, 32, 7875, 5236, 7106, 2802, 7898, 3014, 7867, 5354, 2989, 7555, 6089, 8697, 6479, 1826, 5917, 792, 1431, 1434, 4763, 2910, 6209, 5824, 2400, 1400, 3027, 7198, 7247, 2557, 3855, 61, 7410, 1492, 7160, 7899, 5181, 7280, 3448, 7381, 2434, 6763, 7065, 1218, 1554, 7533, 7288, 2922, 5988, 2495, 5234, 9598, 2953, 2961, 4539, 3775, 6524, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 0, 0, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 0, 2, 1, 2, 2, 0, 2, 1, 2, 0, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 0, 1, 2, 1, 2, 2, 0, 1, 2, 1, 2, 2, 2, 2, 0, 2, 1, 2, 2, 0, 1, 2, 2, 0, 1, 2, 0, 2, 1, 2, 2, 1, 2, 1, 2, 2, 2, 2, 1, 2, 2, 1, 2, 0, 2, 2, 1, 0, 2, 2, 0, 0, 2, 0, 2, 1, 2, 1, 2, 2, 2, 2, 2, 1, 2, 1, 2, 2, 1, 2, 1, 0, 0, 2, 2, 1, 2, 2, 1, 2, 0, 2, 1, 2, 2, 2, 2, 0, 2, 2, 2, 0, 2, 1, 2, 1, 2, 2, 0, 2, 2, 2, 0, 2, 2, 1, 2, 0, 2, 0, 0, 0, 2, 2, 2, 2, 2, 2, 2, 0, 2, 2, 0, 2, 2, 2, 1, 2, 0, 2, 2, 2, 1, 2, 1, 2, 2, 2, 0, 0, 2, 1, 2, 1, 0, 1, 0, 2, 0, 0, 2, 2, 2, 2, 0, 0, 2, 2, 0, 2, 2, 2, 2, 2, 0, 2, 1, 2, 0, 0, 1, 2, 0, 2, 1, 2, 1, 2, 2, 0, 1, 2, 1, 0, 2, 0, 2, 2, 0, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1, 2, 0, 0, 1, 2, 2, 0, 2, 0, 2, 2, 0, 2, 0, 2, 2, 0, 1, 2, 0, 0, 1, 2, 1, 2, 0, 1, 2, 2, 1, 2), .Dim = c(300L, 2L), .Dimnames = list(NULL, c(\'time\', \'status\')), type = \'mright\', states = c(\'1\', \'2\'), class = \'Surv\')), .Names = \'Surv(stop, status * as.numeric(event), type = \\\'mstate\\\')\', class = \'data.frame\', row.names = c(NA, 300L)), structure(list(`Surv(stop, status * as.numeric(event), type = \'mstate\')` = NULL), .Names = \'Surv(stop, status * as.numeric(event), type = \\\'mstate\\\')\', class = \'data.frame\', row.names = c(NA, 300L))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr7() {
+ assertEval("argv <- list(structure(list(size = 284, isdir = FALSE, mode = structure(436L, class = \'octmode\'), mtime = structure(1386397148.36693, class = c(\'POSIXct\', \'POSIXt\')), ctime = structure(1386397148.36693, class = c(\'POSIXct\', \'POSIXt\')), atime = structure(1386397148.36793, class = c(\'POSIXct\', \'POSIXt\')), uid = 501L, gid = 501L, uname = \'lzhao\', grname = \'lzhao\'), .Names = c(\'size\', \'isdir\', \'mode\', \'mtime\', \'ctime\', \'atime\', \'uid\', \'gid\', \'uname\', \'grname\'), class = \'data.frame\', row.names = \'/home/lzhao/tmp/RtmpvWhahC/Rex4eb8743f75cc\'), structure(list( size = NULL, isdir = NULL, mode = NULL, mtime = NULL, ctime = NULL, atime = NULL, uid = NULL, gid = NULL, uname = NULL, grname = NULL), .Names = c(\'size\', \'isdir\', \'mode\', \'mtime\', \'ctime\', \'atime\', \'uid\', \'gid\', \'uname\', \'grname\'), class = \'data.frame\', row.names = \'/home/lzhao/tmp/RtmpvWhahC/Rex4eb8743f75cc\')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr8() {
+ assertEval("argv <- list(structure(list(File = character(0), Title = character(0), PDF = character(0), Depends = list(), Keywords = list()), .Names = c(\'File\', \'Title\', \'PDF\', \'Depends\', \'Keywords\'), row.names = integer(0), class = \'data.frame\'), structure(list(File = NULL, Title = NULL, PDF = NULL, Depends = NULL, Keywords = NULL), .Names = c(\'File\', \'Title\', \'PDF\', \'Depends\', \'Keywords\'), row.names = integer(0), class = \'data.frame\')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr9() {
+ assertEval("argv <- list(structure(list(Version = c(\'2.11.0\', \'2.11.0\', \'2.11.0\', \'2.11.0\', \'2.11.0\', \'2.11.0\', \'2.11.0\', \'2.11.0\', \'2.11.0\'), Date = c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), Category = c(\'BUG FIXES\', \'BUG FIXES\', \'BUG FIXES\', \'BUG FIXES\', \'BUG FIXES\', \'BUG FIXES\', \'BUG FIXES\', \'BUG FIXES\', \'BUG FIXES\'), Text = c(\'Using with(), eval() etc with a list with some unnamed elements now\\n works. (PR#14035)\', \'cor(A, B) where A is n x 1 and B a 1-dimensional array segfaulted or\\n gave an internal error. (The case cor(B, A) was PR#7116.)\', \'cut.POSIXt() applied to a start value after the DST transition on a\\n DST-change day could give the wrong time for argument breaks in\\n units of days or longer. (PR#14208)\', \'do_par() UNPROTECTed too early (PR#14214)\', \'Subassignment x[[....]] <- y didn't check for a zero-length right\\n hand side, and inserted a rubbish value. (PR#14217)\', \'Extreme tail behavior of, pbeta() {and hence pf()}, e.g., pbeta(x,\\n 3, 2200, lower.tail=FALSE, log.p=TRUE) now returns finite values\\n instead of jumping to -Inf too early. (PR#14230).\', \'read.fwf() misread multi-line records when n was specified.\\n (PR#14241)\', \'gzcon( <textConnection> ), an error, no longer damages the\\n connection (in a way to have it segfault). (PR#14237)\', \'If xy[z].coords (used internally by many graphics functions) are\\n given a list as x, they now check that the list has suitable names\\n and give a more informative error message. (PR#13936)\')), .Names = c(\'Version\', \'Date\', \'Category\', \'Text\'), bad = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), package = \'R\', row.names = c(1473L, 1483L, 1484L, 1485L, 1486L, 1493L, 1499L, 1503L, 1505L), class = c(\'news_db_from_Rd\', \'news_db\', \'data.frame\')), structure(list(Version = NULL, Date = NULL, Category = NULL, Text = NULL), .Names = c(\'Version\', \'Date\', \'Category\', \'Text\'), bad = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), package = \'R\', row.names = c(1473L, 1483L, 1484L, 1485L, 1486L, 1493L, 1499L, 1503L, 1505L), class = c(\'news_db_from_Rd\', \'news_db\', \'data.frame\'))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr10() {
+ assertEval("argv <- list(structure(list(Df = c(1, 1, 1, 1, 16), `Sum Sq` = c(309.6845, 0.420500000000001, 4.90050000000001, 3.9605, 64.924), `Mean Sq` = c(309.6845, 0.420500000000001, 4.90050000000001, 3.9605, 4.05775), `F value` = c(76.3192656028586, 0.103628858357464, 1.20768899020393, 0.976033516111146, NA), `Pr(>F)` = c(1.73825946976405e-07, 0.751685166772039, 0.288052080502172, 0.337885793589305, NA)), .Names = c(\'Df\', \'Sum Sq\', \'Mean Sq\', \'F value\', \'Pr(>F)\'), class = c(\'anova\', \'data.frame\'), row.names = c(\'(Intercept) \', \'rate \', \'additive \', \'rate:additive\', \'Residuals \')), structure(list(Df = NULL, `Sum Sq` = NULL, `Mean Sq` = NULL, `F value` = NULL, `Pr(>F)` = NULL), .Names = c(\'Df\', \'Sum Sq\', \'Mean Sq\', \'F value\', \'Pr(>F)\'), class = c(\'anova\', \'data.frame\'), row.names = c(\'(Intercept) \', \'rate \', \'additive \', \'rate:additive\', \'Residuals \'))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr11() {
+ assertEval("argv <- list(structure(list(srcfile = c(NA, \'/home/lzhao/hg/r-instrumented/library/stats/R/stats\', \'/home/lzhao/hg/r-instrumented/library/stats/R/stats\', \'/home/lzhao/hg/r-instrumented/library/stats/R/stats\'), frow = c(NA, 2228L, 2369L, 2379L), lrow = c(NA, 2228L, 2369L, 2380L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, 4L), class = \'data.frame\'), structure(list(srcfile = NULL, frow = NULL, lrow = NULL), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, 4L), class = \'data.frame\')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr12() {
+ assertEval("argv <- list(structure(list(y = c(73, 73, 70, 74, 75, 115, 105, 107, 124, 107, 116, 125, 102, 144, 178, 149, 177, 124, 157, 128, 169, 165, 186, 152, 181, 139, 173, 151, 138, 181, 152, 188, 173, 196, 180, 171, 188, 174, 198, 172, 176, 162, 188, 182, 182, 141, 191, 190, 159, 170, 163, 197), x = c(1, 1, 1, 1, 1, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 11, 12)), .Names = c(\'y\', \'x\'), class = \'data.frame\', row.names = c(NA, 52L), terms = quote(~y + x)), structure(list(y = NULL, x = NULL), .Names = c(\'y\', \'x\'), class = \'data.frame\', row.names = c(NA, 52L), terms = quote(~y + x))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr13() {
+ assertEval("argv <- list(structure(list(x = 1:10, y = c(-0.626453810742332, 0.183643324222082, -0.835628612410047, 1.59528080213779, 0.329507771815361, -0.820468384118015, 0.487429052428485, 0.738324705129217, 0.575781351653492, -0.305388387156356), z = structure(c(9L, 3L, 6L, 2L, 10L, 5L, 1L, 4L, 8L, 7L), .Label = c(\'a\', \'c\', \'f\', \'h\', \'i\', \'p\', \'v\', \'x\', \'y\', \'z\'), class = \'factor\')), .Names = c(\'x\', \'y\', \'z\'), row.names = c(NA, 10L), .S3Class = \'data.frame\', timestamps = structure(1386392033.84327, class = c(\'POSIXct\', \'POSIXt\')), class = structure(\'myFrame\', package = \'.GlobalEnv\')), structure(list(x = NULL, y = NULL, z = NULL), .Names = c(\'x\', \'y\', \'z\'), row.names = c(NA, 10L), .S3Class = \'data.frame\', timestamps = structure(1386392033.84327, class = c(\'POSIXct\', \'POSIXt\')), class = structure(\'myFrame\', package = \'.GlobalEnv\'))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr14() {
+ assertEval("argv <- list(structure(list(y = c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434)), .Names = \'y\', class = \'data.frame\', row.names = c(NA, 10L), terms = quote(y ~ 0)), structure(list(y = NULL), .Names = \'y\', class = \'data.frame\', row.names = c(NA, 10L), terms = quote(y ~ 0))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr15() {
+ assertEval("argv <- list(structure(list(`cbind(w = weight, w2 = weight^2)` = structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c(\'w\', \'w2\'))), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c(\'Ctl\', \'Trt\'), class = \'factor\')), .Names = c(\'cbind(w = weight, w2 = weight^2)\', \'group\'), class = \'data.frame\', row.names = c(NA, 20L), terms = quote(cbind(w = weight, w2 = weight^2) ~ group)), structure(list(`cbind(w = weight, w2 = weight^2)` = NULL, group = NULL), .Names = c(\'cbind(w = weight, w2 = weight^2)\', \'group\'), class = \'data.frame\', row.names = c(NA, 20L), terms = quote(cbind(w = weight, w2 = weight^2) ~ group))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr16() {
+ assertEval("argv <- list(structure(list(Y = c(130L, 157L, 174L, 117L, 114L, 161L, 141L, 105L, 140L, 118L, 156L, 61L, 91L, 97L, 100L, 70L, 108L, 126L, 149L, 96L, 124L, 121L, 144L, 68L, 64L, 112L, 86L, 60L, 102L, 89L, 96L, 89L, 129L, 132L, 124L, 74L, 89L, 81L, 122L, 64L, 103L, 132L, 133L, 70L, 89L, 104L, 117L, 62L, 90L, 100L, 116L, 80L, 82L, 94L, 126L, 63L, 70L, 109L, 99L, 53L, 74L, 118L, 113L, 89L, 82L, 86L, 104L, 97L, 99L, 119L, 121L), B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c(\'I\', \'II\', \'III\', \'IV\', \'V\', \'VI\'), class = \'factor\'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c(\'Golden.rain\', \'Marvellous\', \'Victory\'), class = \'factor\'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\'), class = \'factor\')), .Names = c(\'Y\', \'B\', \'V\', \'N\'), terms = quote(Y ~ B + V + N + V:N), row.names = 2:72, class = \'data.frame\'), structure(list(Y = NULL, B = NULL, V = NULL, N = NULL), .Names = c(\'Y\', \'B\', \'V\', \'N\'), terms = quote(Y ~ B + V + N + V:N), row.names = 2:72, class = \'data.frame\')); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr17() {
+ assertEval("argv <- list(structure(list(Fr = c(32, 53, 10, 3, 11, 50, 10, 30, 10, 25, 7, 5, 3, 15, 7, 8, 36, 66, 16, 4, 9, 34, 7, 64, 5, 29, 7, 5, 2, 14, 7, 8), Hair = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c(\'Black\', \'Brown\', \'Red\', \'Blond\'), class = \'factor\'), Eye = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L), .Label = c(\'Brown\', \'Blue\', \'Hazel\', \'Green\'), class = \'factor\'), Sex = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c(\'Male\', \'Female\'), class = \'factor\')), .Names = c(\'Fr\', \'Hair\', \'Eye\', \'Sex\'), class = \'data.frame\', row.names = c(NA, 32L), terms = quote(Fr ~ (Hair + Eye + Sex)^2)), structure(list(Fr = NULL, Hair = NULL, Eye = NULL, Sex = NULL), .Names = c(\'Fr\', \'Hair\', \'Eye\', \'Sex\'), class = \'data.frame\', row.names = c(NA, 32L), terms = quote(Fr ~ (Hair + Eye + Sex)^2))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr18() {
+ assertEval("argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c(\'Employed\', \'GNP.deflator\', \'GNP\', \'Unemployed\', \'Armed.Forces\', \'Population\', \'Year\'), class = \'data.frame\', row.names = 1947:1962, terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year)), structure(list(Employed = NULL, GNP.deflator = NULL, GNP = NULL, Unemployed = NULL, Armed.Forces = NULL, Population = NULL, Year = NULL), .Names = c(\'Employed\', \'GNP.deflator\', \'GNP\', \'Unemployed\', \'Armed.Forces\', \'Population\', \'Year\'), class = \'data.frame\', row.names = 1947:1962, terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr19() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1, 1, 2), Deviance = c(12.2441566485997, 32.825622681839, 8.44399377410362, 11.9670615295804), AIC = c(73.9421143635373, 92.5235803967766, 72.1419514890412, 77.665019244518)), .Names = c(\'Df\', \'Deviance\', \'AIC\'), row.names = c(\'<none>\', \'- M.user\', \'+ Temp\', \'+ Soft\'), class = c(\'anova\', \'data.frame\')), structure(list(Df = NULL, Deviance = NULL, AIC = NULL), .Names = c(\'Df\', \'Deviance\', \'AIC\'), row.names = c(\'<none>\', \'- M.user\', \'+ Temp\', \'+ Soft\'), class = c(\'anova\', \'data.frame\'))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcopyDFattr20() {
+ assertEval("argv <- list(structure(list(`cbind(X, M)` = structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(NULL, c(\'X\', \'M\'))), M.user = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L), .Label = c(\'N\', \'Y\'), class = \'factor\'), Temp = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c(\'High\', \'Low\'), class = \'factor\'), Soft = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c(\'Hard\', \'Medium\', \'Soft\'), class = \'factor\')), .Names = c(\'cbind(X, M)\', \'M.user\', \'Temp\', \'Soft\'), class = \'data.frame\', row.names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\'), terms = quote(cbind(X, M) ~ M.user + Temp + Soft)), structure(list(`cbind(X, M)` = NULL, M.user = NULL, Temp = NULL, Soft = NULL), .Names = c(\'cbind(X, M)\', \'M.user\', \'Temp\', \'Soft\'), class = \'data.frame\', row.names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\'), terms = quote(cbind(X, M) ~ M.user + Temp + Soft))); .Internal(copyDFattr(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincos.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincos.java
new file mode 100644
index 0000000000000000000000000000000000000000..c76e9b30126248039b3c24e17cd1c13f9c0887fb
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincos.java
@@ -0,0 +1,54 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincos extends TestBase {
+
+ @Test
+ @Ignore
+ public void testcos1() {
+ assertEval("argv <- list(c(-6.28318530717959, -6.1261056745001, -5.96902604182061, -5.81194640914112, -5.65486677646163, -5.49778714378214, -5.34070751110265, -5.18362787842316, -5.02654824574367, -4.86946861306418, -4.71238898038469, -4.5553093477052, -4.39822971502571, -4.24115008234622, -4.08407044966673, -3.92699081698724, -3.76991118430775, -3.61283155162826, -3.45575191894877, -3.29867228626928, -3.14159265358979, -2.9845130209103, -2.82743338823081, -2.67035375555132, -2.51327412287183, -2.35619449019234, -2.19911485751286, -2.04203522483337, -1.88495559215388, -1.72787595947439, -1.5707963267949, -1.41371669411541, -1.25663706143592, -1.09955742875643, -0.942477796076938, -0.785398163397448, -0.628318530717959, -0.471238898038469, -0.314159265358979, -0.15707963267949, 0, 0.15707963267949, 0.314159265358979, 0.471238898038469, 0.628318530717959, 0.785398163397448, 0.942477796076938, 1.09955742875643, 1.25663706143592, 1.41371669411541, 1.5707963267949, 1.72787595947439, 1.88495559215388, 2.04203522483337, 2.19911485751286, 2.35619449019234, 2.51327412287183, 2.67035375555133, 2.82743338823081, 2.9845130209103, 3.14159265358979, 3.29867228626928, 3.45575191894877, 3.61283155162826, 3.76991118430775, 3.92699081698724, 4.08407044966673, 4.24115008234622, 4.39822971502571, 4.5553093477052, 4.71238898038469, 4.86946861306418, 5.02654824574367, 5.18362787842316, 5.34070751110265, 5.49778714378214, 5.65486677646163, 5.81194640914112, 5.96902604182061, 6.1261056745001, 6.28318530717959, 6.44026493985908, 6.59734457253857, 6.75442420521805, 6.91150383789754, 7.06858347057704, 7.22566310325652, 7.38274273593601, 7.5398223686155, 7.69690200129499, 7.85398163397448, 8.01106126665397, 8.16814089933346, 8.32522053201295, 8.48230016469244, 8.63937979737193, 8.79645943005142, 8.95353906273091, 9.1106186954104, 9.26769832808989, 9.42477796076938));cos(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcos2() {
+ assertEval("argv <- list(c(0-3i, 0-2.96984924623116i, 0-2.93969849246231i, 0-2.90954773869347i, 0-2.87939698492462i, 0-2.84924623115578i, 0-2.81909547738693i, 0-2.78894472361809i, 0-2.75879396984925i, 0-2.7286432160804i, 0-2.69849246231156i, 0-2.66834170854271i, 0-2.63819095477387i, 0-2.60804020100502i, 0-2.57788944723618i, 0-2.54773869346734i, 0-2.51758793969849i, 0-2.48743718592965i, 0-2.4572864321608i, 0-2.42713567839196i, 0-2.39698492462312i, 0-2.36683417085427i, 0-2.33668341708543i, 0-2.30653266331658i, 0-2.27638190954774i, 0-2.24623115577889i, 0-2.21608040201005i, 0-2.18592964824121i, 0-2.15577889447236i, 0-2.12562814070352i, 0-2.09547738693467i, 0-2.06532663316583i, 0-2.03517587939699i, 0-2.00502512562814i, 0-1.9748743718593i, 0-1.94472361809045i, 0-1.91457286432161i, 0-1.88442211055276i, 0-1.85427135678392i, 0-1.82412060301508i, 0-1.79396984924623i, 0-1.76381909547739i, 0-1.73366834170854i, 0-1.7035175879397i, 0-1.67336683417085i, 0-1.64321608040201i, 0-1.61306532663317i, 0-1.58291457286432i, 0-1.55276381909548i, 0-1.52261306532663i, 0-1.49246231155779i, 0-1.46231155778894i, 0-1.4321608040201i, 0-1.40201005025126i, 0-1.37185929648241i, 0-1.34170854271357i, 0-1.31155778894472i, 0-1.28140703517588i, 0-1.25125628140704i, 0-1.22110552763819i, 0-1.19095477386935i, 0-1.1608040201005i, 0-1.13065326633166i, 0-1.10050251256281i, 0-1.07035175879397i, 0-1.04020100502513i, 0-1.01005025125628i, 0-0.979899497487437i, 0-0.949748743718593i, 0-0.919597989949749i, 0-0.889447236180905i, 0-0.859296482412061i, 0-0.829145728643216i, 0-0.798994974874372i, 0-0.768844221105528i, 0-0.738693467336684i, 0-0.70854271356784i, 0-0.678391959798995i, 0-0.648241206030151i, 0-0.618090452261307i, 0-0.587939698492463i, 0-0.557788944723618i, 0-0.527638190954774i, 0-0.49748743718593i, 0-0.467336683417086i, 0-0.437185929648241i, 0-0.407035175879397i, 0-0.376884422110553i, 0-0.346733668341709i, 0-0.316582914572864i, 0-0.28643216080402i, 0-0.256281407035176i, 0-0.226130653266332i, 0-0.195979899497488i, 0-0.165829145728643i, 0-0.135678391959799i, 0-0.105527638190955i, 0-0.0753768844221105i, 0-0.0452261306532664i, 0-0.0150753768844223i, 0+0.0150753768844218i, 0+0.0452261306532664i, 0+0.0753768844221105i, 0+0.105527638190955i, 0+0.135678391959799i, 0+0.165829145728643i, 0+0.195979899497488i, 0+0.226130653266332i, 0+0.256281407035176i, 0+0.28643216080402i, 0+0.316582914572864i, 0+0.346733668341709i, 0+0.376884422110553i, 0+0.407035175879397i, 0+0.437185929648241i, 0+0.467336683417085i, 0+0.49748743718593i, 0+0.527638190954774i, 0+0.557788944723618i, 0+0.587939698492462i, 0+0.618090452261306i, 0+0.648241206030151i, 0+0.678391959798995i, 0+0.708542713567839i, 0+0.738693467336683i, 0+0.768844221105527i, 0+0.798994974874372i, 0+0.829145728643216i, 0+0.85929648241206i, 0+0.889447236180904i, 0+0.919597989949748i, 0+0.949748743718593i, 0+0.979899497487437i, 0+1.01005025125628i, 0+1.04020100502513i, 0+1.07035175879397i, 0+1.10050251256281i, 0+1.13065326633166i, 0+1.1608040201005i, 0+1.19095477386935i, 0+1.22110552763819i, 0+1.25125628140704i, 0+1.28140703517588i, 0+1.31155778894472i, 0+1.34170854271357i, 0+1.37185929648241i, 0+1.40201005025126i, 0+1.4321608040201i, 0+1.46231155778894i, 0+1.49246231155779i, 0+1.52261306532663i, 0+1.55276381909548i, 0+1.58291457286432i, 0+1.61306532663317i, 0+1.64321608040201i, 0+1.67336683417085i, 0+1.7035175879397i, 0+1.73366834170854i, 0+1.76381909547739i, 0+1.79396984924623i, 0+1.82412060301507i, 0+1.85427135678392i, 0+1.88442211055276i, 0+1.91457286432161i, 0+1.94472361809045i, 0+1.9748743718593i, 0+2.00502512562814i, 0+2.03517587939698i, 0+2.06532663316583i, 0+2.09547738693467i, 0+2.12562814070352i, 0+2.15577889447236i, 0+2.18592964824121i, 0+2.21608040201005i, 0+2.24623115577889i, 0+2.27638190954774i, 0+2.30653266331658i, 0+2.33668341708543i, 0+2.36683417085427i, 0+2.39698492462312i, 0+2.42713567839196i, 0+2.4572864321608i, 0+2.48743718592965i, 0+2.51758793969849i, 0+2.54773869346734i, 0+2.57788944723618i, 0+2.60804020100502i, 0+2.63819095477387i, 0+2.66834170854271i, 0+2.69849246231156i, 0+2.7286432160804i, 0+2.75879396984925i, 0+2.78894472361809i, 0+2.81909547738693i, 0+2.84924623115578i, 0+2.87939698492462i, 0+2.90954773869347i, 0+2.93969849246231i, 0+2.96984924623116i, 0+3i));cos(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcos3() {
+ assertEval("argv <- list(structure(c(2, 3, 4, 5, 6, 2, 5, 10, 17, 26, 5, 15, 31, 53, 81), .Dim = c(5L, 3L)));cos(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcos4() {
+ assertEval("argv <- list(Inf);cos(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcos5() {
+ assertEval("argv <- list(c(3.14159265358979, 6.28318530717959, 1.5707963267949, 3.14159265358979, 4.71238898038469, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 0.785398163397448, 1.5707963267949, 2.35619449019234, 3.14159265358979, 3.92699081698724, 4.71238898038469, 5.49778714378214, 6.28318530717959, 2.0943951023932, 4.18879020478639, 6.28318530717959, 3.14159265358979, 6.28318530717959, 0.897597901025655, 1.79519580205131, 2.69279370307697, 3.59039160410262, 4.48798950512828, 5.38558740615393, 6.28318530717959, 2.0943951023932, 4.18879020478639, 6.28318530717959, 1.25663706143592, 2.51327412287183, 3.76991118430775, 5.02654824574367, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 2.0943951023932, 4.18879020478639, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 1.25663706143592, 2.51327412287183, 3.76991118430775, 5.02654824574367, 6.28318530717959, 3.14159265358979, 6.28318530717959, 2.0943951023932, 4.18879020478639, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959, 3.14159265358979, 6.28318530717959));cos(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcos6() {
+ assertEval("argv <- list(logical(0));cos(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincosh.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincosh.java
new file mode 100644
index 0000000000000000000000000000000000000000..4c60c788816dbf6ddcdebd902fd3149b43df9bf6
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincosh.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincosh extends TestBase {
+
+ @Test
+ @Ignore
+ public void testcosh1() {
+ assertEval("argv <- list(logical(0));cosh(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcosh2() {
+ assertEval("argv <- list(FALSE);cosh(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcosh3() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));cosh(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcosh4() {
+ assertEval("argv <- list(c(-3, -2.96984924623116, -2.93969849246231, -2.90954773869347, -2.87939698492462, -2.84924623115578, -2.81909547738693, -2.78894472361809, -2.75879396984925, -2.7286432160804, -2.69849246231156, -2.66834170854271, -2.63819095477387, -2.60804020100502, -2.57788944723618, -2.54773869346734, -2.51758793969849, -2.48743718592965, -2.4572864321608, -2.42713567839196, -2.39698492462312, -2.36683417085427, -2.33668341708543, -2.30653266331658, -2.27638190954774, -2.24623115577889, -2.21608040201005, -2.18592964824121, -2.15577889447236, -2.12562814070352, -2.09547738693467, -2.06532663316583, -2.03517587939699, -2.00502512562814, -1.9748743718593, -1.94472361809045, -1.91457286432161, -1.88442211055276, -1.85427135678392, -1.82412060301508, -1.79396984924623, -1.76381909547739, -1.73366834170854, -1.7035175879397, -1.67336683417085, -1.64321608040201, -1.61306532663317, -1.58291457286432, -1.55276381909548, -1.52261306532663, -1.49246231155779, -1.46231155778894, -1.4321608040201, -1.40201005025126, -1.37185929648241, -1.34170854271357, -1.31155778894472, -1.28140703517588, -1.25125628140704, -1.22110552763819, -1.19095477386935, -1.1608040201005, -1.13065326633166, -1.10050251256281, -1.07035175879397, -1.04020100502513, -1.01005025125628, -0.979899497487437, -0.949748743718593, -0.919597989949749, -0.889447236180905, -0.859296482412061, -0.829145728643216, -0.798994974874372, -0.768844221105528, -0.738693467336684, -0.708542713567839, -0.678391959798995, -0.648241206030151, -0.618090452261307, -0.587939698492463, -0.557788944723618, -0.527638190954774, -0.49748743718593, -0.467336683417086, -0.437185929648241, -0.407035175879397, -0.376884422110553, -0.346733668341709, -0.316582914572864, -0.28643216080402, -0.256281407035176, -0.226130653266332, -0.195979899497488, -0.165829145728643, -0.135678391959799, -0.105527638190955, -0.0753768844221105, -0.0452261306532664, -0.0150753768844223, 0.0150753768844218, 0.0452261306532664, 0.0753768844221105, 0.105527638190955, 0.135678391959799, 0.165829145728643, 0.195979899497488, 0.226130653266332, 0.256281407035176, 0.28643216080402, 0.316582914572864, 0.346733668341709, 0.376884422110553, 0.407035175879397, 0.437185929648241, 0.467336683417085, 0.49748743718593, 0.527638190954774, 0.557788944723618, 0.587939698492462, 0.618090452261306, 0.648241206030151, 0.678391959798995, 0.708542713567839, 0.738693467336683, 0.768844221105527, 0.798994974874372, 0.829145728643216, 0.85929648241206, 0.889447236180904, 0.919597989949748, 0.949748743718593, 0.979899497487437, 1.01005025125628, 1.04020100502513, 1.07035175879397, 1.10050251256281, 1.13065326633166, 1.1608040201005, 1.19095477386935, 1.22110552763819, 1.25125628140704, 1.28140703517588, 1.31155778894472, 1.34170854271357, 1.37185929648241, 1.40201005025126, 1.4321608040201, 1.46231155778894, 1.49246231155779, 1.52261306532663, 1.55276381909548, 1.58291457286432, 1.61306532663317, 1.64321608040201, 1.67336683417085, 1.7035175879397, 1.73366834170854, 1.76381909547739, 1.79396984924623, 1.82412060301507, 1.85427135678392, 1.88442211055276, 1.91457286432161, 1.94472361809045, 1.9748743718593, 2.00502512562814, 2.03517587939698, 2.06532663316583, 2.09547738693467, 2.12562814070352, 2.15577889447236, 2.18592964824121, 2.21608040201005, 2.24623115577889, 2.27638190954774, 2.30653266331658, 2.33668341708543, 2.36683417085427, 2.39698492462312, 2.42713567839196, 2.4572864321608, 2.48743718592965, 2.51758793969849, 2.54773869346734, 2.57788944723618, 2.60804020100502, 2.63819095477387, 2.66834170854271, 2.69849246231156, 2.7286432160804, 2.75879396984925, 2.78894472361809, 2.81909547738693, 2.84924623115578, 2.87939698492462, 2.90954773869347, 2.93969849246231, 2.96984924623116, 3));cosh(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincrossprod.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincrossprod.java
new file mode 100644
index 0000000000000000000000000000000000000000..a0bdd6c67707b215946248b2ce4d136b796edbc4
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincrossprod.java
@@ -0,0 +1,65 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincrossprod extends TestBase {
+
+ @Test
+ @Ignore
+ public void testcrossprod1() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1), .Dim = c(60L, 5L)), structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), .Dim = c(60L, 6L))); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcrossprod2() {
+ assertEval("argv <- list(numeric(0), numeric(0)); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testcrossprod3() {
+ assertEval("argv <- list(c(1.078125, 0.603125, -0.90625, 0.984375, 1.359375, -2.21875, -0.5, 1.2, 0.5), c(3.1859635002998, 2.5309880107589, 0.0716489644728567, 1.23651898905887, 1.28393932315826, -0.671528370670039, 0.873486219199556, 1.05088299688189, 0.0536562654335257)); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcrossprod4() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6), .Dim = 2:3), c(2, 1)); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcrossprod5() {
+ assertEval("argv <- list(c(1, 2, 3), structure(c(1, 3, 5, 2, 4, 6), .Dim = c(3L, 2L))); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcrossprod6() {
+ assertEval("argv <- list(structure(c(0, 0, 1, 0), .Dim = c(2L, 2L), .Dimnames = list(NULL, NULL)), c(2, 3)); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcrossprod7() {
+ assertEval("argv <- list(structure(c(-0.409148064492827, 0, 0.486127240746069, 0.000757379686646223), .Dim = c(2L, 2L), .Dimnames = list(c(\'Vm\', \'K\'), NULL)), structure(c(0, 6.20800822278518, 6.20800822278518, -25013.7571686415), .Dim = c(2L, 2L))); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testcrossprod8() {
+ assertEval("argv <- list(structure(c(-0.0972759604917099, -0.0972759604917099, -0.197781705719934, -0.197781705719934, -0.258476920906799, -0.258476920906799, -0.31681058743414, -0.31681058743414, -0.36711291168933, -0.36711291168933, -0.386611727075222, -0.386611727075222, -0.339690730499459, -0.33969073049946, -0.392353467475584, -0.392353467475584, -0.277328754578855, -0.277328754578855, -0.062581948827679, -0.062581948827679, 0.204605005658209, 0.204605005658209, 0.32860008733551, 0.32860008733551, 0.504748197638673, 0.504748197638673, 0.0398546163039329, 0.039854616303933, -0.269613788250837, -0.269613788250837, -0.312096598983548, -0.312096598983548, 0.0190548270250438, 0.0190548270250438, 0.270521530002251, 0.270521530002251), .Dim = c(12L, 3L)), structure(c(-2.82631170793264, -2.82631170793264, -3.89457420977924, -3.89457420977924, -3.62818861156626, -3.62818861156626, -2.72530862462141, -2.72530862462141, -1.437640468988, -1.437640468988, -0.811701520293695, -0.811701520293695, 14291.543903102, 14291.543903102, 13346.8386233407, 13346.8386233407, 8863.44390274002, 8863.44390274002, 4080.15117667984, 4080.15117667984, 979.818149952962, 979.818149952962, 296.593928028368, 296.593928028368), .Dim = c(12L, 2L), .Dimnames = list(NULL, c(\'Vm\', \'K\')))); .Internal(crossprod(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincummax.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincummax.java
new file mode 100644
index 0000000000000000000000000000000000000000..6d4b3f88489768ecdbaf9538dcb397a10aa354eb
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincummax.java
@@ -0,0 +1,64 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincummax extends TestBase {
+
+ @Test
+ public void testcummax1() {
+ assertEval("argv <- list(c(3L, 2L, 1L, 2L, 1L, 0L, 4L, 3L, 2L));cummax(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcummax2() {
+ assertEval("argv <- list(c(1.4124321047876e-05, 0.00123993824202733, 0.00149456828694326, 0.00559442649445619, 0.00589461369451042, 0.00682814400910408, 0.00716033530387356, 0.00831306755655091, 0.0117236981036592, 0.0193564395772821, 0.0305747157670471, 0.0790837327244679, 0.158516621910594, 0.166302063477173, 0.240901842706431, 0.30743590191449, 0.310605928993035, 0.378620529843491, 0.394843673266257, 0.463217214123843, 0.846006725553553, 1.91986719718639, 2.30025314520167, 2.31702860292334, 2.66225504155806, 2.89838614884136, 2.93533263484596, 3.92915929103845, 6.05054801269533, 6.38133071205875, 6.62764115953293, 8.28240123423701, 8.53690564463391, 12.5838414070157, 12.5601043160765, 12.3043865122123, 12.7666868655065, 13.228566067383, 12.7230281716064, 12.9903781159995, 12.727240095027, 12.2523157614464, 11.8051459071199, 11.7060028009859, 11.5037817968679, 12.2693077958414, 11.5842811936712, 11.6626896867753, 10.9424154292091, 10.3816792396216));cummax(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcummax3() {
+ assertEval("argv <- list(list());cummax(argv[[1]]);");
+ }
+
+ @Test
+ public void testcummax4() {
+ assertEval("argv <- list(FALSE);cummax(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcummax5() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\')));cummax(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcummax6() {
+ assertEval("argv <- list(NULL);cummax(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcummax7() {
+ assertEval("argv <- list(character(0));cummax(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcummax8() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));cummax(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincummin.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincummin.java
new file mode 100644
index 0000000000000000000000000000000000000000..148e103a40777908ace56c0ea019dc321044eadd
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincummin.java
@@ -0,0 +1,64 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincummin extends TestBase {
+
+ @Test
+ public void testcummin1() {
+ assertEval("argv <- list(c(3L, 2L, 1L, 2L, 1L, 0L, 4L, 3L, 2L));cummin(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcummin2() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\')));cummin(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcummin3() {
+ assertEval("argv <- list(c(0.943789021783783, 0.931269398230562, 0.936135627032134, 0.76691878645786, 0.751187345517812, 0.732102071759373, 0.736981399184748, 0.745009176294265, 0.742307320914255, 0.711777799810146, 0.726511637567943, 0.690091181919273, 0.656233947317988, 0.662510996891949, 0.657978635660952, 0.44347561790306, 0.428400063839846, 0.342071801782345, 0.329359004493355, 0.312959379967, 0.204112170963036, 0.153481444959266, 0.152881906752072, 0.141986935549763, 0.125244789347208, 0.126329692184989, 0.107405157884553, 0.0483432414602031, 0.0271151539974933, 0.0237499953844365, 0.0234803429360305, 0.0199319312722803, 0.0204957267942993, 0.0167583890578386, 0.0121314575180917, 0.0121935863008149, 0.00645581491628309, 0.00266833883057866, 0.00182178254845008, 0.00120243057473427, 0.000941101987534066, 0.000909248927476008, 0.000993184583142412, 0.00101050520477321, 0.00117777399883288, 0.000412294699846418, 0.000504381657773829, 1.12994568383008e-05));cummin(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcummin4() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));cummin(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcummin5() {
+ assertEval("argv <- list(logical(0));cummin(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcummin6() {
+ assertEval("argv <- list(character(0));cummin(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcummin7() {
+ assertEval("argv <- list(NULL);cummin(argv[[1]]);");
+ }
+
+ @Test
+ public void testcummin8() {
+ assertEval("argv <- list(FALSE);cummin(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincumprod.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincumprod.java
new file mode 100644
index 0000000000000000000000000000000000000000..5cca7e52dd7d9b85b9affec17bedcc66f4edd36d
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincumprod.java
@@ -0,0 +1,75 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincumprod extends TestBase {
+
+ @Test
+ @Ignore
+ public void testcumprod1() {
+ assertEval("argv <- list(structure(c(1, 60, 60, 24, 7), .Names = c(\'secs\', \'mins\', \'hours\', \'days\', \'weeks\')));cumprod(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcumprod2() {
+ assertEval("argv <- list(c(0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i, 0.2853725+0.3927816i));cumprod(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcumprod3() {
+ assertEval("argv <- list(c(1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49));cumprod(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcumprod4() {
+ assertEval("argv <- list(structure(0L, .Names = \'l0\'));cumprod(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcumprod5() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\')));cumprod(argv[[1]]);");
+ }
+
+ @Test
+ public void testcumprod6() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));cumprod(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcumprod7() {
+ assertEval("argv <- list(structure(list(), .Names = character(0)));cumprod(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcumprod8() {
+ assertEval("argv <- list(NULL);cumprod(argv[[1]]);");
+ }
+
+ @Test
+ public void testcumprod9() {
+ assertEval("argv <- list(character(0));cumprod(argv[[1]]);");
+ }
+
+ @Test
+ public void testcumprod10() {
+ assertEval("argv <- list(c(0.982149602642989, 0.91866776738084, 0.859369083800704, 0.921182928974104));cumprod(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincumsum.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincumsum.java
new file mode 100644
index 0000000000000000000000000000000000000000..5ca04dd53a269b85f8213ed3266f8d9f13b765f3
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincumsum.java
@@ -0,0 +1,101 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltincumsum extends TestBase {
+
+ @Test
+ public void testcumsum1() {
+ assertEval("argv <- list(c(9L, 5L, 13L));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcumsum2() {
+ assertEval("argv <- list(structure(c(15L, 14L), .Names = c(\'bibentry\', NA)));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcumsum3() {
+ assertEval("argv <- list(structure(c(79.3831968838961, 8.55983483385341e+101), .Names = c(\'\', \'\')));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcumsum4() {
+ assertEval("argv <- list(structure(c(-191.999930599838, 7.71626352011359e-309), .Names = c(\'\', \'\')));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcumsum5() {
+ assertEval("argv <- list(NULL);cumsum(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcumsum6() {
+ assertEval("argv <- list(structure(c(5L, 8L, 4L, 19L, 26L, 18L, 41L, 42L, 51L, 90L, 97L, 95L, 122L, 134L, 195L, 215L, 225L, 237L, 274L, 291L, 305L, 333L, 353L, 330L, 363L, 376L, 365L, 393L, 409L, 407L, 376L, 371L, 366L, 337L, 307L, 333L, 290L, 244L, 224L, 218L, 209L, 144L, 147L, 112L, 91L, 79L, 69L, 58L, 54L, 38L, 27L, 17L, 30L, 10L, 7L, 19L), .Dim = 56L, .Dimnames = structure(list(c(\'0\', \'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\')), .Names = \'\'), class = \'table\'));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcumsum7() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\')));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void testcumsum8() {
+ assertEval("argv <- list(c(6, 6, 5));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcumsum9() {
+ assertEval("argv <- list(structure(c(7, 7, 7, 7), .Dim = 4L, .Dimnames = list(c(\'Urban Female\', \'Urban Male\', \'Rural Female\', \'Rural Male\'))));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testcumsum10() {
+ assertEval("argv <- list(structure(c(-0.233567190135781, 1.27766471142225), .Names = c(\'Low|Medium\', \'Medium|High\')));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void testcumsum11() {
+ assertEval("argv <- list(c(8L, 2L, 12L, 6L, 4L, 5L, 13L));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void testcumsum12() {
+ assertEval("argv <- list(c(0.535137960496205, -0.371944875163495, -1.02554224849711, -0.582401674605252, 0.342888392897331, -0.450934647056651, 0.51423012023069, -0.334338052169782, -0.105559908794475, -0.730509672807828, 1.9050435849087, 0.332621731470394, 0.230633640499451, -1.69186241488407, 0.659791899549327, -1.02362358887971, -0.891521574354298, 0.918341171021649, -0.45270064650823, -1.74837228000318, 1.76990410988936, -2.37740692539252, 0.572811529859585, 1.01724924908461, -0.630967866660535, 0.444287051411554, 0.439130388388555, 1.04062315291451, 0.484099387952522, -0.244883779092525, 0.915992057940211, 0.800622356509766, -0.936569034135793, -1.40078743399573, 0.160277539993178, -0.273962374775183, -0.985539112562296, 0.0839306795150329, -1.31999652648691, 0.161226351326199, -0.62492838754192, 0.957164274192481, 2.42448914116153, -0.915979243686792, 1.05766417094298, 0.825149727768283, -0.0701942243053587, -0.453646374057015, 1.57530770683748, -2.00545781823625, -0.643194791593663, -1.43684344365778, 1.39531343894608, -0.190703432644857, -0.524671199469671, 3.18404447406633, -0.0500372678876282, -0.443749311866524, 0.299865250136145, -1.56842462075497, 0.490302642672068, -0.0961632010799668, 0.468525122530146, -0.982370635937854, -1.02298384214794, -0.693414663276185, -0.767989573092782, 1.29904996668359, 1.57914556180809, -0.156891953039067, -0.35893656058468, -0.329038830421669, 0.0692364778530165, 0.0969042337010548, 0.290034387765571, -0.746678941046256, -0.846896388820319, 1.19707766374608, -0.548627361103323, 0.303045695225451, -0.056970533803332, -0.957849392150669, 0.591061909411507, 0.173104873492955, 1.39978335621251, 0.117459584626988, -0.331545758200853, 0.278294913305364, -1.18559164903534, -0.835894053393597, 0.510273251139431, -0.333120901223949, -0.0659609463524635, -0.11522170942195, -0.650512618774529, -2.01868865908242, 0.348834970176592, 0.761639507646859, -1.28871623535013, 1.48240271845861));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void testcumsum13() {
+ assertEval("argv <- list(c(23L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, -7L, 15L, 15L, 15L, 15L, 15L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, -4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, -9L, -9L, -9L, -9L, -9L, -9L, -9L, -9L, -9L, -9L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -6L, -6L, -6L, -6L, -6L, -6L, -6L, -6L, -6L, -1L, -1L, -1L, -1L, -1L, -1L, -1L, -1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, NA, NA, 3L, 3L, 3L, -19L, -19L, -19L, -19L, -19L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void testcumsum14() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE));cumsum(argv[[1]]);");
+ }
+
+ @Test
+ public void testcumsum15() {
+ assertEval("argv <- list(character(0));cumsum(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindeparse.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindeparse.java
new file mode 100644
index 0000000000000000000000000000000000000000..cc293ae9becb20cab36a370fa85f87e857890836
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindeparse.java
@@ -0,0 +1,300 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltindeparse extends TestBase {
+
+ @Test
+ @Ignore
+ public void testdeparse1() {
+ assertEval("argv <- list(quote(rsp), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse2() {
+ assertEval("argv <- list(quote(rnorm(1, sd = Inf)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse3() {
+ assertEval("argv <- list(quote(rnorm(2, c(1, NA))), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse4() {
+ assertEval("argv <- list(quote(unclass(x)), 500, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse5() {
+ assertEval("argv <- list(quote(cor(rnorm(10), NULL)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse6() {
+ assertEval("argv <- list(quote(5 * exp(-x)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse7() {
+ assertEval("argv <- list(quote(y ~ ((g1) * exp((log(g2/g1)) * (1 - exp(-k * (x - Ta)))/(1 - exp(-k * (Tb - Ta)))))), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse8() {
+ assertEval("argv <- list(quote(tt <- table(c(rep(0, 7), rep(1, 4), rep(5, 3)))), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse9() {
+ assertEval("argv <- list(quote(utils::str), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse10() {
+ assertEval("argv <- list(quote(1:10), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse11() {
+ assertEval("argv <- list(quote(x[[i]]), 500L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse12() {
+ assertEval("argv <- list(quote(t1 - 4), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse13() {
+ assertEval("argv <- list(quote(read.table(\'foo1\')), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse14() {
+ assertEval("argv <- list(quote(`[.data.frame`(dd, , \'x\')), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse15() {
+ assertEval("argv <- list(1e-07, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse16() {
+ assertEval("argv <- list(\'coef.corStruct\', 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse17() {
+ assertEval("argv <- list(\'Version of 'graph' is too old --- no tests done here!\\n\', 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse18() {
+ assertEval("argv <- list(Inf, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse19() {
+ assertEval("argv <- list(structure(list(Sex = structure(c(2L, 2L, 1L, 1L, 2L, 2L), .Label = c(\'Female\', \'Male\'), class = \'factor\'), age = c(15, 20, 10, 12, 2, 4), Subject = structure(c(2L, 2L, 1L, 1L, 3L, 3L), .Label = c(\'F30\', \'M01\', \'M04\'), class = \'factor\')), .Names = c(\'Sex\', \'age\', \'Subject\'), row.names = c(NA, -6L), class = \'data.frame\'), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse20() {
+ assertEval("argv <- list(TRUE, 500L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse21() {
+ assertEval("argv <- list(.Primitive(\'interactive\'), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse22() {
+ assertEval("argv <- list(0+1i, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse23() {
+ assertEval("argv <- list(quote(cor(Z[, FALSE], use = \'pairwise.complete.obs\', method = \'kendall\')), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse24() {
+ assertEval("argv <- list(c(7.4, 8, 12.6, 11.5, 14.3, 14.9, 8.6, 13.8, 20.1, 8.6, 6.9, 9.7, 9.2, 10.9, 13.2, 11.5, 12, 18.4, 11.5, 9.7, 9.7, 16.6, 9.7, 12, 16.6, 14.9, 8, 12, 14.9, 5.7, 7.4, 8.6, 9.7, 16.1, 9.2, 8.6, 14.3, 9.7, 6.9, 13.8, 11.5, 10.9, 9.2, 8, 13.8, 11.5, 14.9, 20.7, 9.2, 11.5, 10.3, 6.3, 1.7, 4.6, 6.3, 8, 8, 10.3, 11.5, 14.9, 8, 6.9, 13.8, 7.4, 6.9, 7.4, 4.6, 4, 10.3, 8, 8.6, 11.5, 11.5, 11.5, 9.7, 11.5, 10.3, 6.3, 7.4, 10.9, 10.3, 15.5, 14.3, 12.6, 9.7, 3.4, 8, 5.7, 9.7, 2.3, 6.3, 6.3, 6.9, 5.1, 2.8, 4.6, 7.4, 15.5, 10.9, 10.3, 10.9, 9.7, 14.9, 15.5, 6.3, 10.9, 11.5, 6.9, 13.8, 10.3, 10.3, 8, 12.6, 9.2, 10.3, 10.3, 16.6, 6.9, 13.2, 14.3, 8, 11.5), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse25() {
+ assertEval("argv <- list(1e+05, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse26() {
+ assertEval("argv <- list(structure(list(distance = c(26, 25, 29, 31, 21.5, 22.5), age = c(8, 10, 12, 14, 8, 10), Subject = structure(c(2L, 2L, 2L, 2L, 1L, 1L), .Label = c(\'M02\', \'M01\'), class = c(\'ordered\', \'factor\')), Sex = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = c(\'Male\', \'Female\'), class = \'factor\')), .Names = c(\'distance\', \'age\', \'Subject\', \'Sex\'), row.names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\'), class = \'data.frame\'), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse27() {
+ assertEval("argv <- list(\'\\t *ERROR* !!\\n\', 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse28() {
+ assertEval("argv <- list(\'\\n\\f\\n\', 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse29() {
+ assertEval("argv <- list(\' +\\\\.\', 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse30() {
+ assertEval("argv <- list(structure(FALSE, .Dim = 1L), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse31() {
+ assertEval("argv <- list(c(0, 0.587785252292473, 0.951056516295154, 0.951056516295154, 0.587785252292473, 1.22464679914735e-16, -0.587785252292473, -0.951056516295154, -0.951056516295154, -0.587785252292473, -2.44929359829471e-16, 0.587785252292473, 0.951056516295154), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse32() {
+ assertEval("argv <- list(structure(c(39.384847580955, 40.3469409309138, 42.6018205723052, 46.6665176252597, 51.3438205965467, 60.0069972599329, 64.6480892875058, 62.5709232928432, 57.679739382496, 49.5060394945433, 43.474726406114, 39.8236314289602, 38.361391396627, 37.9275637097922, 43.6868952734483, 45.1919846859641, 51.722520194987, 59.3399821539983, 61.9345241730145, 62.1515308754468, 57.6561604617486, 49.2849925780811, 42.606775772378, 39.6394677676018, 38.6328048791077, 38.4418602988203, 43.1520834957543, 45.6551746936999, 51.7999631155049, 59.5021948495759, 62.9217123388139, 62.0751910659837, 57.8048619656866, 49.5091658164884, 42.8045075272742, 40.2515159054665), .Tsp = c(1937, 1939.91666666667, 12), class = \'ts\'), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse33() {
+ assertEval("argv <- list(NA_real_, 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse34() {
+ assertEval("argv <- list(quote(lm(formula = y ~ x1 + x2 + x3)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse35() {
+ assertEval("argv <- list(structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, 104, 118, 115, 126, 141, 135, 125, 149, 170, 170, 158, 133, 114, 140, 145, 150, 178, 163, 172, 178, 199, 199, 184, 162, 146, 166, 171, 180, 193, 181, 183, 218, 230, 242, 209, 191, 172, 194, 196, 196, 236, 235, 229, 243, 264, 272, 237, 211, 180, 201, 204, 188, 235, 227, 234, 264, 302, 293, 259, 229, 203, 229, 242, 233, 267, 269, 270, 315, 364, 347, 312, 274, 237, 278, 284, 277, 317, 313, 318, 374, 413, 405, 355, 306, 271, 306, 315, 301, 356, 348, 355, 422, 465, 467, 404, 347, 305, 336, 340, 318, 362, 348, 363, 435, 491, 505, 404, 359, 310, 337, 360, 342, 406, 396, 420, 472, 548, 559, 463, 407, 362, 405, 417, 391, 419, 461, 472, 535, 622, 606, 508, 461, 390, 432, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 419.147602949539, 391.474665943444, 435.919286153217, 443.935203034261, 455.023399013445, 517.28707821144, 589.71337277669, 582.999919227301, 484.573388713116, 428.878182738437, 368.526582998452, 406.728709993152, 415.660571294428, 388.716535970235, 433.006017658935, 440.885684396326, 451.651900136866, 513.051252429496, 584.327164324967, 577.055407135124, 479.076505013118, 423.494870357491, 363.43932958967, 400.592058645117, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 484.030717075782, 462.954959541421, 526.353307750503, 546.165638262644, 569.502470928676, 657.838443307596, 761.241730163307, 763.280655335144, 642.989004951864, 576.423799567567, 501.429012064338, 559.981301364233, 591.700754553767, 565.210772316967, 642.377841008703, 666.682421047093, 695.547100430962, 804.065022775202, 931.340589597203, 934.837830059897, 788.422986194072, 707.666678543854, 616.37838266375, 689.250456425465), .Dim = c(168L, 3L), .Dimnames = list(NULL, c(\'structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, \', \'structure(c(419.147602949539, 391.474665943444, 435.919286153217, \', \'structure(c(484.030717075782, 462.954959541421, 526.353307750503, \')), .Tsp = c(1949, 1962.91666666667, 12), class = c(\'mts\', \'ts\', \'matrix\')), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse36() {
+ assertEval("argv <- list(numeric(0), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse37() {
+ assertEval("argv <- list(0:12, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse38() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\')), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse39() {
+ assertEval("argv <- list(NA, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse40() {
+ assertEval("argv <- list(logical(0), logical(0), FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse41() {
+ assertEval("argv <- list(FALSE, 50L, FALSE, 69, 2L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse42() {
+ assertEval("argv <- list(c(FALSE, FALSE), 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse43() {
+ assertEval("argv <- list(quote(glm(formula = y ~ x, family = poisson(identity), start = c(1, 0))), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse44() {
+ assertEval("argv <- list(quote(lm(formula = 1000/MPG.city ~ Weight + Cylinders + Type + EngineSize + DriveTrain, data = Cars93)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse45() {
+ assertEval("argv <- list(0.333333333333333, 60L, FALSE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse46() {
+ assertEval("argv <- list(quote(Fr ~ (Hair + Eye + Sex)^2), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdeparse47() {
+ assertEval("argv <- list(quote(glm(formula = cbind(X, M) ~ M.user + Temp + M.user:Temp, family = binomial, data = detg1)), 60L, TRUE, 69, -1L); .Internal(deparse(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindet.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindet.java
new file mode 100644
index 0000000000000000000000000000000000000000..d9903e439188b969648e3f34e919b064d3a45b5d
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindet.java
@@ -0,0 +1,36 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltindet extends TestBase {
+
+ @Test
+ @Ignore
+ public void testdet1() {
+ assertEval("argv <- list(structure(c(FALSE, TRUE, TRUE, FALSE), .Dim = c(2L, 2L), .Dimnames = list(c(\'A\', \'B\'), c(\'A\', \'B\'))), TRUE); .Internal(det_ge_real(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdet2() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L), .Dimnames = list(c(\'A\', \'B\'), c(\'A\', \'B\'))), TRUE); .Internal(det_ge_real(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdet3() {
+ assertEval("argv <- list(structure(c(2, 1, 1, 2), .Dim = c(2L, 2L), .Dimnames = list(c(\'A\', \'B\'), c(\'A\', \'B\'))), TRUE); .Internal(det_ge_real(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindfltWarn.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindfltWarn.java
new file mode 100644
index 0000000000000000000000000000000000000000..fd855a80aca52ce07ae675094154c5c1c31ced2d
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindfltWarn.java
@@ -0,0 +1,90 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltindfltWarn extends TestBase {
+
+ @Test
+ @Ignore
+ public void testdfltWarn1() {
+ assertEval("argv <- list(\''f' is deprecated.\\nUse 'convertY' instead.\\nSee help(\\\'Deprecated\\\')\', NULL); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdfltWarn2() {
+ assertEval("argv <- list(\'bessel_y(2,nu=288.12): precision lost in result\', quote(besselY(2, nu = nu <- seq(3, 300, len = 51)))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdfltWarn3() {
+ assertEval("argv <- list(\'glm.fit: algorithm stopped at boundary value\', NULL); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdfltWarn4() {
+ assertEval("argv <- list(\'header and 'col.names' are of different lengths\', quote(read.table(\'foo3\', header = TRUE, col.names = letters[1:4]))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdfltWarn5() {
+ assertEval("argv <- list(\'‘graphics’ namespace cannot be unloaded:\\n namespace ‘graphics’ is imported by ‘stats’ so cannot be unloaded\', NULL); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdfltWarn6() {
+ assertEval("argv <- list(\'NaNs produced\', quote(log(ifelse(y == 0, 1, y/mu)))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdfltWarn7() {
+ assertEval("argv <- list(\''drop' argument will be ignored\', quote(`[.data.frame`(women, \'height\', drop = FALSE))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdfltWarn8() {
+ assertEval("argv <- list(\'prediction from a rank-deficient fit may be misleading\', quote(predict.lm(object, newdata, se.fit, scale = residual.scale, type = ifelse(type == \'link\', \'response\', type), terms = terms, na.action = na.action))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdfltWarn9() {
+ assertEval("argv <- list(\'1 y value <= 0 omitted from logarithmic plot\', quote(xy.coords(x, NULL, log = log))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdfltWarn10() {
+ assertEval("argv <- list(\''x' is neither a vector nor a matrix: using as.numeric(x)\', quote(dotchart(table(infert$education)))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdfltWarn11() {
+ assertEval("argv <- list(\'Invalid file name(s) for R code in ./myTst/R:\\n 'file55711ba85492'\\n are now renamed to 'z<name>.R'\', quote(package.skeleton(\'myTst\', code_files = tmp))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdfltWarn12() {
+ assertEval("argv <- list(\'incomplete final line found by readTableHeader on 'foo4'\', quote(read.table(\'foo4\', header = TRUE))); .Internal(.dfltWarn(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindiag.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindiag.java
new file mode 100644
index 0000000000000000000000000000000000000000..e574883f0cd029b1db3bcc7a21a6087466359721
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindiag.java
@@ -0,0 +1,102 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltindiag extends TestBase {
+
+ @Test
+ @Ignore
+ public void testdiag1() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 4L, 1L), .Dim = 5L), 5L, 5L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdiag2() {
+ assertEval("argv <- list(NULL, 0L, 0L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdiag3() {
+ assertEval("argv <- list(structure(c(0.00258017518312032, 0.00371592854270272, 4.74358130918145e-05, 0.00490111130607204, 0.000101990092933588, 0.00674107947251412, 0.000239828967315095, 0.00980847069198632, 0.000617541923597065, 0.0155189333862593, 0.00178497855501229, 0.0281274123275302, 0.00633033372222146, 0.0642581517771313, 0.0351608933185668, 0.151097171670205, 0.967636582993474, 0.0809667077153405), .Names = c(\'Xr1\', \'Xr2\', \'Xr3\', \'Xr4\', \'Xr5\', \'Xr6\', \'Xr7\', \'Xr8\', \'Xr9\', \'Xr10\', \'Xr11\', \'Xr12\', \'Xr13\', \'Xr14\', \'Xr15\', \'Xr16\', \'Xr17\', \'Xr18\')), 18L, 18L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdiag4() {
+ assertEval("argv <- list(c(FALSE, TRUE, TRUE, TRUE), 4L, 4L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdiag5() {
+ assertEval("argv <- list(c(-2.80063713410797-0i, 2.40432724210166-0i, -1.40502612938985+0i, 1.39344241164891+0i, 0.785422253492721+0i), 5L, 5L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdiag6() {
+ assertEval("argv <- list(structure(c(0.662193594830517, 0.883082096514931, 0.80211645621425, 0.806993241239092, 0.593615611337433, 0.55837479933202, 0.531727869384763, 0.696607367099979, 0.506321785494117, 0.489681023915914, 0.742249020738322, 0.65965217395585, 0.700437655250271, 0.80388520340336, 0.834325796707322, 0.741083805719802, 0.77320911661894, 0.76968452857621, 0.872531808824412, 0.769100148773066, 0.763385216756006, 0.775173380089108, 0.705125971098107, 0.706916424657676), .Names = c(\'VisualPerception\', \'Cubes\', \'PaperFormBoard\', \'Flags\', \'GeneralInformation\', \'PargraphComprehension\', \'SentenceCompletion\', \'WordClassification\', \'WordMeaning\', \'Addition\', \'Code\', \'CountingDots\', \'StraightCurvedCapitals\', \'WordRecognition\', \'NumberRecognition\', \'FigureRecognition\', \'ObjectNumber\', \'NumberFigure\', \'FigureWord\', \'Deduction\', \'NumericalPuzzles\', \'ProblemReasoning\', \'SeriesCompletion\', \'ArithmeticProblems\')), 24L, 24L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdiag7() {
+ assertEval("argv <- list(1, 0L, 0L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdiag8() {
+ assertEval("argv <- list(structure(c(0.553622032575332, 1.83583330034692, 0.540309168173204, 0.347171956892285), .Names = c(\'A\', \'B\', \'C\', \'D\')), 4L, 4L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdiag9() {
+ assertEval("argv <- list(structure(c(-875.251472917967, 12.8319913648351, -28.2155558559225, -27.6015982680416, -70.4377976184188, -98.9293825275015, 32.8291346503008, -20.6544753576079, 26.3486263439148, -42.5376299218819, -131.164911564755, -12.7775395276621, 3.34207338870892, -6.39516049903921, 5.97199502480298, 9.16451921253422, 4.70193189358059), .Names = c(\'(Intercept)\', \'BII\', \'BIII\', \'BIV\', \'BV\', \'BVI\', \'VMarvellous\', \'VVictory\', \'N0.2cwt\', \'N0.4cwt\', \'N0.6cwt\', \'VMarvellous:N0.2cwt\', \'VVictory:N0.2cwt\', \'VMarvellous:N0.4cwt\', \'VVictory:N0.4cwt\', \'VMarvellous:N0.6cwt\', \'VVictory:N0.6cwt\')), 71L, 17L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdiag10() {
+ assertEval("argv <- list(structure(c(-268.831499270454, 5.6415423423032, 14.3443760756611, -6.07661158322081, -7.61383061715105, 3.28804653251744, 13.7579673886322, 2.89856286229343, -9.75713414208632, 4.61320568224165), .Names = c(\'(Intercept)\', \'block2\', \'block3\', \'block4\', \'block5\', \'block6\', \'N1\', \'P1\', \'K1\', \'N1:P1\')), 24L, 10L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdiag11() {
+ assertEval("argv <- list(structure(c(0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285, 0.00284900284900285), .Dim = 10L, .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\'))), 10L, 10L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdiag12() {
+ assertEval("argv <- list(list(1, 1, 1), 3L, 3L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdiag13() {
+ assertEval("argv <- list(list(), 0L, 0L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdiag14() {
+ assertEval("argv <- list(character(0), 0L, 0L); .Internal(diag(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindigamma.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindigamma.java
new file mode 100644
index 0000000000000000000000000000000000000000..c12af933590239aff6fb782f1407ecdb7b2475d0
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindigamma.java
@@ -0,0 +1,48 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltindigamma extends TestBase {
+
+ @Test
+ @Ignore
+ public void testdigamma1() {
+ assertEval("argv <- list(structure(c(3.80516394437114, 12.8051639443711, 15.8051639443711, 6.80516394437114, 6.80516394437114, 14.8051639443711, 21.8051639443711, 23.8051639443711, 7.80516394437114, 7.80516394437114, 16.8051639443711, 8.80516394437114, 15.8051639443711, 7.80516394437114, 33.8051639443711, 54.8051639443711, 58.8051639443711, 15.8051639443711, 17.8051639443711, 17.8051639443711, 18.8051639443711, 41.8051639443711, 44.8051639443711, 47.8051639443711, 9.80516394437114, 24.8051639443711, 24.8051639443711, 29.8051639443711, 35.8051639443711, 37.8051639443711, 39.8051639443711, 4.80516394437114, 6.80516394437114, 12.8051639443711, 25.8051639443711, 46.8051639443711, 6.80516394437114, 7.80516394437114, 7.80516394437114, 10.8051639443711, 14.8051639443711, 24.8051639443711, 26.8051639443711, 33.8051639443711, 54.8051639443711, 55.8051639443711, 6.80516394437114, 6.80516394437114, 12.8051639443711, 18.8051639443711, 20.8051639443711, 9.80516394437114, 14.8051639443711, 15.8051639443711, 21.8051639443711, 48.8051639443711, 49.8051639443711, 61.8051639443711, 82.8051639443711, 3.80516394437114, 1.80516394437114, 3.80516394437114, 4.80516394437114, 6.80516394437114, 11.8051639443711, 15.8051639443711, 22.8051639443711, 37.8051639443711, 41.8051639443711, 7.80516394437114, 18.8051639443711, 68.8051639443711, 1.80516394437114, 1.80516394437114, 3.80516394437114, 8.80516394437114, 12.8051639443711, 13.8051639443711, 1.80516394437114, 1.80516394437114, 6.80516394437114, 6.80516394437114, 6.80516394437114, 12.8051639443711, 18.8051639443711, 4.80516394437114, 5.80516394437114, 23.8051639443711, 31.8051639443711, 37.8051639443711, 9.80516394437114, 1.80516394437114, 2.80516394437114, 6.80516394437114, 8.80516394437114, 17.8051639443711, 28.8051639443711, 1.80516394437114, 31.8051639443711, 11.8051639443711, 15.8051639443711, 28.8051639443711, 42.8051639443711, 70.8051639443711, 26.8051639443711, 11.8051639443711, 12.8051639443711, 21.8051639443711, 34.8051639443711, 6.80516394437114, 8.80516394437114, 1.80516394437114, 2.80516394437114, 6.80516394437114, 6.80516394437114, 6.80516394437114, 6.80516394437114, 8.80516394437114, 12.8051639443711, 16.8051639443711, 6.80516394437114, 15.8051639443711, 7.80516394437114, 7.80516394437114, 8.80516394437114, 29.8051639443711, 1.80516394437114, 6.80516394437114, 15.8051639443711, 3.80516394437114, 3.80516394437114, 4.80516394437114, 9.80516394437114, 11.8051639443711, 13.8051639443711, 2.80516394437114, 2.80516394437114, 10.8051639443711, 23.8051639443711, 4.80516394437114, 4.80516394437114, 6.80516394437114, 16.8051639443711, 19.8051639443711, 23.8051639443711, 38.8051639443711), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\', \'101\', \'102\', \'103\', \'104\', \'105\', \'106\', \'107\', \'108\', \'109\', \'110\', \'111\', \'112\', \'113\', \'114\', \'115\', \'116\', \'117\', \'118\', \'119\', \'120\', \'121\', \'122\', \'123\', \'124\', \'125\', \'126\', \'127\', \'128\', \'129\', \'130\', \'131\', \'132\', \'133\', \'134\', \'135\', \'136\', \'137\', \'138\', \'139\', \'140\', \'141\', \'142\', \'143\', \'144\', \'145\', \'146\')));digamma(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdigamma2() {
+ assertEval("argv <- list(structure(c(9.16602330897621, 9.16602330897621, 1.16602330897621, 1.16602330897621, 3.16602330897621, 3.16602330897621, 6.16602330897621, 6.16602330897621, 6.16602330897621, 6.16602330897621, 2.16602330897621, 2.16602330897621, 8.16602330897621, 8.16602330897621, 1.16602330897621, 1.16602330897621, 7.16602330897621, 7.16602330897621, 19.1660233089762, 19.1660233089762, 2.16602330897621, 2.16602330897621), .Names = c(\'1\', \'1.1\', \'2\', \'2.1\', \'3\', \'3.1\', \'4\', \'4.1\', \'5\', \'5.1\', \'6\', \'6.1\', \'7\', \'7.1\', \'8\', \'8.1\', \'9\', \'9.1\', \'10\', \'10.1\', \'11\', \'11.1\')));digamma(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdigamma3() {
+ assertEval("argv <- list(FALSE);digamma(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdigamma4() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));digamma(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdigamma5() {
+ assertEval("argv <- list(c(1e+30, 1e+60, 1e+90, 1e+120, 1e+150, 1e+180, 1e+210, 1e+240, 1e+270, 1e+300));digamma(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindim.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindim.java
new file mode 100644
index 0000000000000000000000000000000000000000..c34079756698ce3fbfc8027a9c66d025b2a17fbc
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindim.java
@@ -0,0 +1,176 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltindim extends TestBase {
+
+ @Test
+ @Ignore
+ public void testdim1() {
+ assertEval("argv <- list(structure(c(3, 3, 3, 3, 3, 3, 3, 3, 4, 3, 2, 1, 2, 3, 4, 5), .Dim = c(8L, 2L), .Dimnames = list(c(\'a\', \'b\', \'c\', \'d\', \'e\', \'f\', \'g\', \'h\'), c(\'x1\', \'x2\'))));dim(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdim2() {
+ assertEval("argv <- list(structure(list(surname = structure(1:5, .Label = c(\'McNeil\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'factor\'), nationality = structure(c(1L, 2L, 3L, 3L, 1L), .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(c(1L, 1L, 1L, 2L, 1L), .Label = c(\'no\', \'yes\'), class = \'factor\'), title = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\', \'title\', \'other.author\'), row.names = c(5L, 4L, 3L, 1L, 2L), class = \'data.frame\'));dim(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdim3() {
+ assertEval("argv <- list(structure(c(0.100837939896365, 0.100837939896365, -2.89916206010363, 1.10083793989637, 2.10083793989637, 15.3663689601092, 5.36636896010918, -15.5557367724452, 1.44426322755481, -15.5557367724452, -6.55573677244519, 2.44426322755481, -20.5557367724452, 3.41611550389052, 37.4161155038905, 8.41611550389052, 23.0292477138695, -29.9707522861305, 3.02924771386952, -25.9707522861305, 5.46163181127829, 1.46163181127829, 22.4616318112783, -11.5383681887217, 17.4616318112783, -24.5383681887217, 2.79509291794369, -19.2049070820563, -32.2049070820563, 10.7950929179437, -18.2049070820563, 17.7950929179437, 2.79509291794369, 25.7950929179437, 9.79509291794369, -3.77239539978251, 13.2276046002175, -0.772395399782511, 23.2276046002175, -2.77239539978251, 1.22760460021749, -12.7723953997825, 13.2276046002175, 7.22760460021749, 7.22760460021749, -36.8669529292102, 13.1330470707898, 12.1330470707898, -18.8669529292102, -7.86695292921016, -18.3408059382389, 14.7301967628363), .Dim = c(52L, 1L)));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void testdim4() {
+ assertEval("argv <- list(structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c(\'Golden.rain\', \'Marvellous\', \'Victory\'), class = \'factor\', contrasts = \'contr.treatment\'));dim(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdim5() {
+ assertEval("argv <- list(structure(list(df = 10L, ss = 2.74035772634541, ms = 0.274035772634541, f = NA_real_, P = NA_real_), .Names = c(\'df\', \'ss\', \'ms\', \'f\', \'P\'), row.names = c(NA, -1L), class = \'data.frame\'));dim(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdim6() {
+ assertEval("argv <- list(structure(list(File = c(\'GOusage.Rnw\', \'annotate.Rnw\', \'chromLoc.Rnw\', \'prettyOutput.Rnw\', \'query.Rnw\', \'useDataPkgs.Rnw\', \'useHomology.Rnw\', \'useProbeInfo.Rnw\'), Title = c(\'Basic GO Usage\', \'Annotation Overview\', \'HowTo: use chromosomal information\', \'HowTo: Get HTML Output\', \'HOWTO: Use the online query tools\', \'Using Data Packages\', \'Using the homology package\', \'Using Affymetrix Probe Level Data\'), PDF = c(\'GOusage.pdf\', \'annotate.pdf\', \'chromLoc.pdf\', \'prettyOutput.pdf\', \'query.pdf\', \'useDataPkgs.pdf\', \'useHomology.pdf\', \'useProbeInfo.pdf\'), Depends = list(c(\'GO.db\', \'hgu95av2.db\', \'Biobase\'), c(\'Biobase\', \'genefilter\', \'annotate\', \'hgu95av2.db\'), c(\'annotate\', \'hgu95av2.db\'), c(\'annotate\', \'hgu95av2.db\'), c(\'annotate\', \'hgu95av2.db\'), c(\'hgu95av2.db\', \'GO.db\'), \'hom.Hs.inp.db\', c(\'hgu95av2.db\', \'rae230a.db\', \'rae230aprobe\', \'Biostrings\')), Keywords = list(c(\'GO\', \'ontology\'), c(\'Expression Analysis\', \'Annotation\'), c(\'Expression Analysis\', \'Annotation\'), c(\'Expression Analysis\', \'Annotation\'), c(\'Expression Analysis\', \'Annotation\'), \'Annotation\', \'Annotation\', \'Annotation\'), R = c(\'GOusage.R\', \'annotate.R\', \'chromLoc.R\', \'prettyOutput.R\', \'query.R\', \'useDataPkgs.R\', \'useHomology.R\', \'useProbeInfo.R\')), .Names = c(\'File\', \'Title\', \'PDF\', \'Depends\', \'Keywords\', \'R\'), row.names = c(NA, -8L), class = \'data.frame\'));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void testdim7() {
+ assertEval("argv <- list(c(2832L, 2836L, 2836L, 2833L, 2833L));dim(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdim8() {
+ assertEval("argv <- list(structure(list(day = structure(1:6, .Label = c(\'2012-06-01\', \'2012-06-02\', \'2012-06-03\', \'2012-06-04\', \'2012-06-05\', \'2012-06-06\', \'2012-06-07\'), class = \'factor\')), .Names = \'day\', row.names = c(1L, 5L, 9L, 13L, 17L, 21L), class = \'data.frame\'));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void testdim9() {
+ assertEval("argv <- list(c(NA, NA, \'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R\', \'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R\', \'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R\', \'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R\', \'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R\'));dim(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdim10() {
+ assertEval("argv <- list(structure(c(93.3042409622253, 72.8638419893434, 65.9708818502055, 74.2809886424684, 79.8889070755712, 100.233809580112, 104.965351919781, 83.86798597082, 105.795365211341, 108.580858711588, 95.3646703714076, 98.1558192431132, 5.58314117171466, 29.7542740978848, 32.2224082035474, 27.8665232792916, 25.046508702598, 23.5818201384803, 35.0327999599812, 33.2751275770215, 43.2947043117474, 39.1828378794408, 11.7874053171943, 57.3766532219607), .Dim = c(12L, 2L)));dim(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdim11() {
+ assertEval("argv <- list(structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)));dim(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdim12() {
+ assertEval("argv <- list(structure(list(height = numeric(0), weight = numeric(0)), .Names = c(\'height\', \'weight\'), class = \'data.frame\', row.names = integer(0)));dim(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdim13() {
+ assertEval("argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c(\'x1\', \'x2\'))));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void testdim14() {
+ assertEval("argv <- list(c(99, 1, 2, -3, 4, 3, NA));dim(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdim15() {
+ assertEval("argv <- list(structure(c(\'‘[,1]’\', \'‘[,2]’\', \'‘height’\', \'‘weight’\', \'numeric\', \'numeric\', \'Height (in) \', \'Weight (lbs)\'), .Dim = c(2L, 4L)));dim(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdim16() {
+ assertEval("argv <- list(structure(list(V1 = c(0.497699242085218, 0.991906094830483), V2 = c(0.668466738192365, 0.107943625887856), V3 = c(0.0994661601725966, 0.518634263193235), V4 = c(0.892198335845023, 0.389989543473348), V5 = c(0.79730882588774, 0.410084082046524)), .Names = c(\'V1\', \'V2\', \'V3\', \'V4\', \'V5\'), row.names = c(16L, 18L), class = \'data.frame\'));dim(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdim17() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(5L, 21L), .Dimnames = list(c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\'), NULL)));dim(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdim18() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, -1.43884556914512e-134, 0, 0, 0, -7.95468296571581e-252, 1.76099882882167e-260, 0, -9.38724727098368e-323, -0.738228974836154, 0, 0, 0, 0, 0, 0, 0, 0, 0, -6.84657791618065e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.05931985100232e-174, 0, -3.41789378681991e-150, 0, 0, 0, 0, -1.07225492686949e-10, 0, 1.65068934474523e-67, 0, -6.49830035279282e-307, 0, 5.83184963977238e-90, 0, -9.81722610183938e-287, 6.25336419454196e-54, 0, 0, 0, -1.72840591500382e-274, 1.22894687952101e-13, 0.660132850077566, 0, 0, 7.79918925397516e-200, -2.73162827952857e-178, 1.32195942051179e-41, 0, 0, 0, 0, 2.036057023761e-45, -3.40425060445074e-186, 1.59974269220388e-26, 0, 6.67054294775317e-124, 0.158503117506202, 0, 0, 0, 0, 0, 0, 3.42455724859116e-97, 0, 0, -2.70246891320217e-272, 0, 0, -3.50562438899045e-06, 0, 0, 1.35101732326608e-274, 0, 0, 0, 0, 0, 0, 0, 7.24580295957621e-65, 0, -3.54887341172294e-149, 0, 0, 0, 0, 0, 0, 0, 0, 1.77584594753563e-133, 0, 0, 0, 2.88385135688311e-250, 1.44299633616158e-259, 0, 1.56124744085834e-321, 1.63995835868977, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.01050064173383e-122, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.64868196850938e-172, 0, 6.28699823828692e-149, 0, 0, 0, 0, 5.0552295590188e-09, 0, 2.30420733561404e-66, 0, 7.0823279075443e-306, 0, 2.05009901740696e-88, 0, 7.41800724282869e-285, 7.18347043784483e-53, 0, 0, 0, 1.04251223075649e-273, 9.75816316577433e-13, 4.29519957592147, 0, 0, 1.33541454912682e-198, 2.34606233784019e-176, 8.38236726536896e-41, 0, 0, 0, 0, 1.35710537434521e-43, 1.15710503176511e-185, 1.25601735272233e-25, 0, 4.46811655846376e-123, 4.4196641795634, 0, 0, 0, 0, 0, 0, 3.74179015251531e-93, 0, 0, 3.62662047836582e-271, 0, 0, 1.26220330674453e-05, 0, 0, 1.72715562657338e-273, 0, 0, 0, 0, 0, 0, 0, 5.46372806810809e-64, 0, 2.47081972486962e-148, 0, 0, 0), .Dim = c(100L, 2L)));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void testdim19() {
+ assertEval("argv <- list(structure(c(0, 87, 82, 75, 63, 50, 43, 32, 35, 60, 54, 55, 36, 39, 0, 0, 69, 57, 57, 51, 45, 37, 46, 39, 36, 24, 32, 23, 25, 32, 0, 32, 59, 74, 75, 60, 71, 61, 71, 57, 71, 68, 79, 73, 76, 71, 67, 75, 79, 62, 63, 57, 60, 49, 48, 52, 57, 62, 61, 66, 71, 62, 61, 57, 72, 83, 71, 78, 79, 71, 62, 74, 76, 64, 62, 57, 80, 73, 69, 69, 71, 64, 69, 62, 63, 46, 56, 44, 44, 52, 38, 46, 36, 49, 35, 44, 59, 65, 65, 56, 66, 53, 61, 52, 51, 48, 54, 49, 49, 61, 0, 0, 68, 44, 40, 27, 28, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = \'ts\'));dim(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdim20() {
+ assertEval("argv <- list(structure(raw(0), .Dim = c(0L, 0L)));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void testdim21() {
+ assertEval("argv <- list(c(0, 1, 131072, 129140163, 17179869184, 762939453125, 16926659444736, 232630513987207, 2251799813685248, 16677181699666568, 1e+17));dim(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdim22() {
+ assertEval("argv <- list(structure(1:20, .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = \'ts\'));dim(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdim23() {
+ assertEval("argv <- list(structure(c(1, 0, -1, 0.5, -0.5, NA, NA, NA, 0), .Dim = c(3L, 3L)));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void testdim24() {
+ assertEval("argv <- list(c(NA, NA, NA, NA, NA, \'Ripley\', \'Venables & Smith\'));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void testdim25() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));dim(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdim26() {
+ assertEval("argv <- list(structure(c(31.9624451639742, -0.0105001367774998, 0.669596455370805, 5.14945152173688, 4.36500574231155, 6.30517873115649, 2.15562516502081, 1.77361974340981, 1.31721464996217, -6.23951992881235, -3.14333173153233, 3.7074414096456, 0.619951366669834, -3.31636282291298, -1.38277940327151, -0.0105001367774998, 4.92314051157491e-06, -0.00208176000671443, -0.00393685976143421, -0.00306114840585819, -0.00304239831702958, -0.00360485387426285, -0.000776863531985863, -0.000930425548039592, 0.00177325947012459, 0.000873478088813267, -0.00222133591240768, -0.0010997058222662, 0.000971542840761233, 0.000408638350886089, 0.669596455370805, -0.00208176000671443, 6.25966104941131, 7.27107350691908, 7.1568051334171, 7.69164996000523, 6.38546846168565, 0.584255359868468, 0.425893553320666, -0.302152926219182, -0.539719353375365, 0.767832198930969, -0.0339253942409593, -0.954875198336619, -0.44454733172958, 5.14945152173688, -0.00393685976143421, 7.27107350691908, 16.9287891082998, 9.68170957680298, 10.1927925852141, 8.31848730773964, 0.0225771728679827, -0.13423885912137, -0.952279072677042, -1.28303151957048, -0.309366054071832, 0.277949783704086, -1.95357808926458, -1.1490330193693, 4.36500574231155, -0.00306114840585819, 7.1568051334171, 9.68170957680298, 10.6200372990959, 12.0025058084698, 7.09661626032293, 0.00831356355794886, -0.18522684338686, -1.13540989802495, -1.33382692805767, 0.308573868840132, -0.809762853334073, -1.09668270906855, -0.213078730283059, 6.30517873115649, -0.00304239831702958, 7.69164996000523, 10.1927925852141, 12.0025058084698, 17.4522685874698, 6.92295996047857, -0.125541819250371, -0.215552520930932, -1.84365094178865, -1.59654434238815, 0.684384781199279, -1.93856751571012, -1.02265709591595, -0.303713451023131, 2.15562516502081, -0.00360485387426285, 6.38546846168565, 8.31848730773964, 7.09661626032293, 6.92295996047857, 23.2114402831465, -0.28786423278137, 0.360665125986693, -0.292516552346824, -1.61368872459996, 0.400045448449001, 1.49305046916227, -1.52595532739395, -2.45569084011985, 1.77361974340981, -0.000776863531985863, 0.584255359868468, 0.0225771728679827, 0.00831356355794886, -0.125541819250371, -0.28786423278137, 3.63382138185307, 1.73220942447866, 0.201523343362283, 0.961824629517822, 2.18512927857691, -0.299291412368627, -0.222951433523371, 0.190518621032026, 1.31721464996217, -0.000930425548039592, 0.425893553320666, -0.13423885912137, -0.18522684338686, -0.215552520930932, 0.360665125986693, 1.73220942447866, 2.07264968016672, 0.409359459121014, 0.882002960805309, 1.87214770160952, 0.189008347036503, -0.266586895155729, -0.112011626327013, -6.23951992881235, 0.00177325947012459, -0.302152926219182, -0.952279072677042, -1.13540989802495, -1.84365094178865, -0.292516552346824, 0.201523343362283, 0.409359459121014, 2.48234483048294, 1.19369459724506, -0.189893084140488, 0.16622651987368, 0.28664359918476, -0.0113387579323685, -3.14333173153233, 0.000873478088813267, -0.539719353375365, -1.28303151957048, -1.33382692805767, -1.59654434238815, -1.61368872459996, 0.961824629517822, 0.882002960805309, 1.19369459724506, 2.16828149626507, 0.76585533428598, 0.0326711935947258, 0.375684864300291, 0.0175473410796721, 3.7074414096456, -0.00222133591240768, 0.767832198930969, -0.309366054071832, 0.308573868840132, 0.684384781199279, 0.400045448449001, 2.18512927857691, 1.87214770160952, -0.189893084140488, 0.76585533428598, 4.87998635701286, 0.240260053826388, 0.639583107689077, 1.24508720406537, 0.619951366669834, -0.0010997058222662, -0.0339253942409593, 0.277949783704086, -0.809762853334073, -1.93856751571012, 1.49305046916227, -0.299291412368627, 0.189008347036503, 0.16622651987368, 0.0326711935947258, 0.240260053826388, 1.27358692244222, -0.271133086074816, -0.61768767314107, -3.31636282291298, 0.000971542840761233, -0.954875198336619, -1.95357808926458, -1.09668270906855, -1.02265709591595, -1.52595532739395, -0.222951433523371, -0.266586895155729, 0.28664359918476, 0.375684864300291, 0.639583107689077, -0.271133086074816, 2.24773578295184, 2.00648977390012, -1.38277940327151, 0.000408638350886089, -0.44454733172958, -1.1490330193693, -0.213078730283059, -0.303713451023131, -2.45569084011985, 0.190518621032026, -0.112011626327013, -0.0113387579323685, 0.0175473410796721, 1.24508720406537, -0.61768767314107, 2.00648977390012, 3.44090885157986), .Dim = c(15L, 15L), .Dimnames = list(c(\'(Intercept)\', \'Weight\', \'Cylinders4\', \'Cylinders5\', \'Cylinders6\', \'Cylinders8\', \'Cylindersrotary\', \'TypeLarge\', \'TypeMidsize\', \'TypeSmall\', \'TypeSporty\', \'TypeVan\', \'EngineSize\', \'DriveTrainFront\', \'DriveTrainRear\'), c(\'(Intercept)\', \'Weight\', \'Cylinders4\', \'Cylinders5\', \'Cylinders6\', \'Cylinders8\', \'Cylindersrotary\', \'TypeLarge\', \'TypeMidsize\', \'TypeSmall\', \'TypeSporty\', \'TypeVan\', \'EngineSize\', \'DriveTrainFront\', \'DriveTrainRear\'))));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void testdim27() {
+ assertEval("argv <- list(structure(c(-3.001e+155, -1.067e+107, -1.976e+62, -9.961e+152, -2.059e+23, 1), .Names = c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\'), class = \'table\'));dim(argv[[1]]);");
+ }
+
+ @Test
+ public void testdim28() {
+ assertEval("argv <- list(structure(1395082220.91387, class = c(\'POSIXct\', \'POSIXt\')));dim(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindimassign.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindimassign.java
new file mode 100644
index 0000000000000000000000000000000000000000..abb05d741ec799bb5b8aeb5a81deed2269676627
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindimassign.java
@@ -0,0 +1,84 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltindimassign extends TestBase {
+
+ @Test
+ @Ignore
+ public void testdimassign1() {
+ assertEval("argv <- list(structure(c(300, 3000, 400, 4000), .Dim = c(2L, 2L, 1L)), value = c(2, 2, 1));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimassign2() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 0L)), value = c(0L, 0L));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimassign3() {
+ assertEval("argv <- list(structure(1:12, .Dim = 12L), value = 12L);`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimassign4() {
+ assertEval("argv <- list(structure(list(1:3, 4:6, 3.14159265358979, c(\'a\', \'b\', \'c\')), .Dim = c(2L, 2L)), value = c(2, 2));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimassign5() {
+ assertEval("argv <- list(structure(list(NULL, NULL, NULL, NULL, NULL, NULL), .Dim = 2:3), value = c(2, 3));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimassign6() {
+ assertEval("argv <- list(structure(list(1L, 3.14159265358979, 3+5i, \'testit\', TRUE, structure(1L, .Label = \'foo\', class = \'factor\')), .Dim = c(1L, 6L)), value = c(1, 6));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimassign7() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4), value = 3:4);`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimassign8() {
+ assertEval("argv <- list(NULL, NULL);`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimassign9() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 1L, 2L, 3L, 4L, 5L, 6L, 7L), .Dim = c(3L, 4L, 2L)), value = c(3, 4, 2));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimassign10() {
+ assertEval("argv <- list(structure(c(1, 0.870865388077469, -0.224541709419829, -0.331803324650025, -0.493630926048296, -0.413999601257247, 0.00943216495885559, -0.569185666759019, 0.183501080823027, -0.658299946719611, -0.563901271084431, -0.104454834691276, 0.715158727414282, -0.0805825981616209, -0.773816895694757, -0.253034783981378, -0.783775136777695, -0.439357063536005, -0.941680494841322, 0.227158249206389, -0.50752863656701, -0.0658964161620369, -0.0689244902651806, 0.185611518464636, 0.378167766177418, -0.0629003710494349, 0.487507055153686, -0.148876486655171), .Dim = c(1L, 28L)), value = c(1, 28));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimassign11() {
+ assertEval("argv <- list(structure(NA, .Dim = c(1L, 1L)), value = c(1L, 1L));`dim<-`(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindimnames.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindimnames.java
new file mode 100644
index 0000000000000000000000000000000000000000..bc936ffe0cae8ed7ae1859a5c48f4ca3d77b4ee9
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindimnames.java
@@ -0,0 +1,160 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltindimnames extends TestBase {
+
+ @Test
+ public void testdimnames1() {
+ assertEval("argv <- list(structure(c(4L, 3L, 2L, 1L, 2L), .Label = c(\'0.6\', \'0.8\', \'Area Examined\', \'C2\'), class = \'factor\'));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void testdimnames2() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 56.989995924654, 56.989995924654, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 109.608811230383, 109.608811230383, 109.608811230383, 107.478028232287, 107.478028232287, 107.478028232287, 107.478028232287, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 10.7055301785859, 0, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 0.914597467778369, 0.914597467778369, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.599195286063472, 0.599195286063472, 0.599195286063472, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0202635232425103, 2.60032456603692e-08, 0, 0, 0, 0, 0, 0.165626203544259, 0.165626203544259, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.503396799290371, 0.503396799290371, 0.503396799290371, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.984387422945875, 0.999999996451695), .Dim = c(52L, 3L)));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void testdimnames3() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE), .Dim = c(3L, 1L)));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnames4() {
+ assertEval("argv <- list(structure(c(NA, 1, 2, 5.65604443125997, 8.44399377410362, 5.49523049516867, 71.3540021461976, 72.1419514890413, 75.1931882101063), .Dim = c(3L, 3L), .Dimnames = list(c(\'<none>\', \'- M.user:Temp\', \'+ Soft\'), c(\'Df\', \'Deviance\', \'AIC\'))));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void testdimnames5() {
+ assertEval("argv <- list(structure(c(0.0495149735282523, -0.108383943640066, 0.077846206317523, -0.0237949779538032, 0.00481774174809338, -0.108383943640066, 0.280303242453237, -0.276080245636638, 0.130604235856321, -0.0264432890328551, 0.077846206317523, -0.276080245636638, 0.443183251704797, -0.364557026828347, 0.119607814442664, -0.0237949779538032, 0.130604235856321, -0.364557026828347, 0.44886505191838, -0.191117282992552, 0.00481774174809338, -0.0264432890328551, 0.119607814442664, -0.191117282992552, 0.0931350158346494), .Dim = c(5L, 5L)));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnames6() {
+ assertEval("argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c(\'x1\', \'x2\'))));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void testdimnames7() {
+ assertEval("argv <- list(structure(c(13.0879058831551, -0.0481782079188499, 0.0648397936975344, -0.0703016880559154, -0.433062454113996, -0.000149473169823967, -16.3229386445345, -0.0481782079188499, 1.42936577525521, 0.00346026862477374, 0.000168722552167122, -0.00850959684180395, -9.2926002743558e-06, -1.44812039916227, 0.0648397936975344, 0.00346026862477374, 0.0649221455479854, 1.50206888047831e-06, 0.0303152177308945, -5.59890220792902e-06, -0.238079760031664, -0.0703016880559154, 0.000168722552167122, 1.50206888047831e-06, 0.00876007504795771, 0.000744776618395879, -6.15610217329725e-06, -0.0811419414051802, -0.433062454113996, -0.00850959684180395, 0.0303152177308945, 0.000744776618395879, 10.728754385628, -6.46786616103191e-05, -11.116657381748, -0.000149473169823967, -9.2926002743558e-06, -5.59890220792902e-06, -6.15610217329725e-06, -6.46786616103191e-05, 0.00193527894824396, -0.000812297378584339, -16.3229386445345, -1.44812039916227, -0.238079760031664, -0.0811419414051802, -11.116657381748, -0.000812297378584339, 249.99918229946), .Dim = c(7L, 7L)));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnames8() {
+ assertEval("argv <- list(structure(list(visible = c(TRUE, TRUE, TRUE, TRUE, TRUE), from = structure(c(2L, 2L, 2L, 2L, 2L), .Label = c(\'CheckExEnv\', \'package:base\', \'package:datasets\', \'package:graphics\', \'package:grDevices\', \'package:methods\', \'package:stats\', \'package:utils\'), class = \'factor\')), .Names = c(\'visible\', \'from\'), row.names = c(\'[[.data.frame\', \'[[.Date\', \'[[.factor\', \'[[.numeric_version\', \'[[.POSIXct\'), class = \'data.frame\'));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnames9() {
+ assertEval("argv <- list(structure(c(-0.148741651280925, -0.200659450546418, -0.0705810742857073, -0.356547323513813, -0.214670164989233, -0.161150909262745, -0.0362121726544447, -0.259637310505756, -0.142667503568732, -0.113509274827518, -0.0362121726544447, -0.221848749616356, -0.0809219076239261, -0.0969100130080564, 0, -0.113509274827518, -0.0362121726544447, 0, 0.0934216851622351, 0, 0.0644579892269184, 0.113943352306837, 0.161368002234975, 0.0969100130080564, 0.100370545117563, 0.139879086401236, 0.269512944217916, 0.193124598354462, 0.184691430817599, 0.201397124320452, 0.262451089730429, 0.269512944217916, 0.184691430817599, 0.315970345456918, 0.369215857410143, 0.352182518111362, 0.334453751150931, 0.385606273598312, 0.431363764158987, 0.352182518111362, 0.445604203273598, 0.534026106056135, 0.56702636615906, 0.556302500767287, 0.556302500767287, 0.635483746814912, 0.635483746814912, 0.607455023214668, 0.686636269262293, 0.702430536445525, 0.702430536445525, 0.644438589467839, 0.746634198937579, 0.76715586608218, 0.817565369559781, 0.725094521081469, 0.780317312140151, 0.8055008581584, 0.840733234611807, 0.76715586608218, 0.840733234611807, 0.888740960682893, 0.893761762057943, 0.786751422145561, 0.888740960682893, 0.949877704036875, 0.91803033678488, 0.835056101720116, 0.979548374704095, 1.0111473607758, 0.979548374704095, 0.94101424370557, 1.07481644064517, 1.08134730780413, 1.08457627793433, 0.949877704036875, 1.14736710779379, 1.11260500153457, 1.17172645365323, 0.999565488225982, 1.20951501454263, 1.16643011384328, 1.20466251174822, 1.06483221973857, -0.159187512164844, -0.175393808396786, -0.187687755757946, -0.207642507026642, -0.198621515607727, -0.176754605786408, -0.158836651491979, -0.149428697683695, -0.140952828307713, -0.131024527567456, -0.123872539048553, -0.114280817787828, -0.0994047163123464, -0.087368495856282, -0.0695543741081212, -0.0471907302590792, -0.0252858368758202, -0.00046875732235226, 0.0256791224090317, 0.0513817320777501, 0.0766209131410961, 0.0968522890603896, 0.10926580806596, 0.12423159770419, 0.140017729684574, 0.160995251972733, 0.186207523410629, 0.20145502677125, 0.212779940301236, 0.218492043424262, 0.230096897140732, 0.249642407137453, 0.267032743986859, 0.296832600908836, 0.324482776968729, 0.34857076887723, 0.365213423984069, 0.378158595546285, 0.395931013687348, 0.419646007489754, 0.460582747648703, 0.501139500862399, 0.536421474743013, 0.565667794936187, 0.583727648968917, 0.604807814936374, 0.625205889668605, 0.647621016647276, 0.667938096838737, 0.680279300032779, 0.691704012845436, 0.70875844749856, 0.731043761734682, 0.751082618736354, 0.768818358528044, 0.778037539482349, 0.783883770017724, 0.793567437831882, 0.808497952330164, 0.824527436015885, 0.837662628092942, 0.850394585087975, 0.86126020516377, 0.869685339227116, 0.881257746828503, 0.896341202762879, 0.909788792806972, 0.926007182864941, 0.946255773007512, 0.966071629523008, 0.986442844639348, 1.01212132840619, 1.03013203323943, 1.04537749097574, 1.05767268306294, 1.06939407179363, 1.08529788756315, 1.10060754122045, 1.11720247611807, 1.12845012932749, 1.1415063364534, 1.15405124613828, 1.16739846403236, 1.18260472251233, -0.500829194148537, -0.52138894326571, -0.395290556425639, -0.612473674589852, -0.501276350125614, -0.491690167245187, -0.390354415846618, -0.612811414694937, -0.50108691493379, -0.487593021259144, -0.410519772822145, -0.60198159752223, -0.486883827608277, -0.503288363976579, -0.42574385459525, -0.568147157695982, -0.507959098850015, -0.498398837847198, -0.433186387433784, -0.55201418458838, -0.518671455596172, -0.493155285150245, -0.444313944722341, -0.526234257426627, -0.532725645126928, -0.515368327315997, -0.429924874711845, -0.513474228757053, -0.535827355681639, -0.509755301472591, -0.457834384119355, -0.484020307382735, -0.566550518367581, -0.484439669223823, -0.460465869949124, -0.506741194861463, -0.536243725945176, -0.486859832443798, -0.457576573769744, -0.545126578784142, -0.515794992319117, -0.47384137864798, -0.476642594236321, -0.523341985476231, -0.522293038769951, -0.469249989654994, -0.486003635866052, -0.541938916235621, -0.49102139505142, -0.478259440132195, -0.481086490677911, -0.556698657805247, -0.48671796302777, -0.486157330493723, -0.461848039861244, -0.556823945253764, -0.498054862552783, -0.480860984756722, -0.4661755221955, -0.561135228990277, -0.497359948541683, -0.46413941340098, -0.470914891619888, -0.579021563367855, -0.488243746349874, -0.449175409103654, -0.488562751281115, -0.586017616755797, -0.467647247160106, -0.454360847750584, -0.499693656171344, -0.581118529375087, -0.458579410956407, -0.467570268776559, -0.473550583747953, -0.613665700345632, -0.438534120752666, -0.486034341320657, -0.452438304433326, -0.626272401483727, -0.43259461595065, -0.48652221719006, -0.460246994058915, -0.618889869869875), .Dim = c(84L, 3L), .Dimnames = list(NULL, c(\'JJ\', \'sm[, 1]\', \'sm[, 3] - 0.5\')), .Tsp = c(1960, 1980.75, 4), class = c(\'mts\', \'ts\', \'matrix\')));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnames10() {
+ assertEval("argv <- list(structure(list(Ozone = c(41L, 36L, 12L, 18L, NA, 28L, 23L, 19L, 8L, NA, 7L, 16L, 11L, 14L, 18L, 14L, 34L, 6L, 30L, 11L, 1L, 11L, 4L, 32L, NA, NA, NA, 23L, 45L, 115L, 37L), Solar.R = c(190L, 118L, 149L, 313L, NA, NA, 299L, 99L, 19L, 194L, NA, 256L, 290L, 274L, 65L, 334L, 307L, 78L, 322L, 44L, 8L, 320L, 25L, 92L, 66L, 266L, NA, 13L, 252L, 223L, 279L), Wind = c(7.4, 8, 12.6, 11.5, 14.3, 14.9, 8.6, 13.8, 20.1, 8.6, 6.9, 9.7, 9.2, 10.9, 13.2, 11.5, 12, 18.4, 11.5, 9.7, 9.7, 16.6, 9.7, 12, 16.6, 14.9, 8, 12, 14.9, 5.7, 7.4), Temp = c(67L, 72L, 74L, 62L, 56L, 66L, 65L, 59L, 61L, 69L, 74L, 69L, 66L, 68L, 58L, 64L, 66L, 57L, 68L, 62L, 59L, 73L, 61L, 61L, 57L, 58L, 57L, 67L, 81L, 79L, 76L), Month = c(5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L), Day = 1:31, Oz.Z = c(0.782229292792786, 0.557251841325834, -0.522639925715534, -0.252666983955192, NA, 0.197287918978711, -0.0276895324882403, -0.207671493661802, -0.702621886889095, NA, -0.747617377182486, -0.342657964541973, -0.567635416008924, -0.432648945128753, -0.252666983955192, -0.432648945128753, 0.467260860739053, -0.792612867475876, 0.287278899565492, -0.567635416008924, -1.01759031894283, -0.567635416008924, -0.882603848062657, 0.377269880152273, NA, NA, NA, -0.0276895324882403, 0.962211253966347, 4.11189557450367, 0.602247331619224)), .Names = c(\'Ozone\', \'Solar.R\', \'Wind\', \'Temp\', \'Month\', \'Day\', \'Oz.Z\'), row.names = c(NA, 31L), class = \'data.frame\'));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnames11() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnames12() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 4L), .Dimnames = list(NULL, c(\'Estimate\', \'Std. Error\', \'t value\', \'Pr(>|t|)\'))));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void testdimnames13() {
+ assertEval("argv <- list(structure(c(1.00000000141919, 1.00000000141919, 1.00000000141919, 1.00000000141919, 1.00000000141919, 1.00000003943081, 0.999999963407572, 1.00000003943081, 0.999999887384338, 0.999999887384338, 1.00000110375608, 0.999998671012596, 1.00000353649956, 0.999993805525628, 1.0000132674735, 0.999993805525628, 0.999954881629886, 1.00003272942137, 1.00018842500434, 1.00018842500434, 0.998942860340576, 0.998942860340576, 1.00143398966811, 1.00641624832317, 0.996451731013043, 0.996451731013043, 0.996451731013043, 0.956593661772521, 1.11602593873461, 0.956593661772521, 0.637729107848348, 1.2754582156967, 0, 5.10183286278678, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.94013552497596, 3.76412613616612, 7.30291496677768, 14.1686451539795, 27.4890922070583, 53.3325661305982, 103.472408672272, 200.750502109581, 389.483191189237, 755.650202381997, 1466.06384193569, 2844.36258373045, 5518.44906703615, 10706.5393765913, 20772.1380196383, 40300.7636161042, 78188.9463884664, 151697.155845212, 294313.049942543, 571007.218374244, 1107831.42112573, 2149343.17429151, 4170017.13104157, 8090398.61389002, 15696470.311059, 30453280.1141634, 59083492.559312, 114629985.805561, 222397713.850125, 431481718.951103, 837133036.93017, 1624151587.48205, 3151074263.75394, 6113511302.83196, 11861040827.0204, 23012027206.5324, 44646452442.3573, 86620170794.9288, 168054874821.487, 326049245490.904, 632579733498.458, 1227290450360.24, 2381109863489.76, 4619676014664.61, 8962797733853.2, 17389042711398.3, 33737100912048.4, 65454549040847.5, 126990699928896, 246379175201939, 478009006423530, 927402279739830, 1799286146937082, 3490859083252747, 6772739936266967, 13140033736528760, 25493446790450148, 49460743386475336, 95960547120913696, 186176471759588736, 361207596842468544, 700791709787994368, 1359630936550262016, 2637868362903399936, 5117822236182886400, 9929268960054196224, 19264127970060791808, 37375020125774807040, 72512606973297393664, 1.40684287014036e+20, 2.7294659047997e+20, 5.29553390729944e+20, 1.02740538360686e+21, 1.99330573047582e+21, 3.86728338996836e+21, 7.50305404171627e+21, 1.45569421000466e+22, 2.82424412804067e+22, 5.47941653460064e+22, 1.06308109216746e+23, 2.06252146205912e+23, 4.00157124688985e+23, 7.76359070435321e+23, 1.50624186823988e+24, 2.9223134410489e+24, 5.66968428254813e+24, 1.09999562078627e+25, 2.13414063286361e+25, 4.14052220754691e+25, 8.03317433205064e+25, 1.55854473744651e+26, 3.02378808245954e+26, 5.8665589378512e+26, 1.1381919629553e+27, 2.20824672789753e+27, 4.28429802210817e+27, 8.31211904202342e+27, 1.6126637849175e+28, 3.12878639712715e+28, 6.07026977774323e+28, -1.69869203952449, -6.59138547321901, -19.1822720729097, -49.6216113971901, -120.340815686727, -280.172995242172, -634.16918707159, -1406.14196698717, -3069.11929954479, -6616.11942037001, -14119.7855095835, -29884.6887074354, -62812.0433183954, -131238.022320374, -272806.670597037, -564567.387887297, -1163795.8381508, -2390740.65186453, -4896047.65118829, -9998943.37840444, -20369271.0188994, -41401011.400719, -83974646.5467737, -170005771.46876, -343577337.860415, -693250079.585253, -1396729874.79437, -2810209917.82931, -5646909305.11788, -11333554766.2687, -22721587164.2141, -45504990439.9914, -91044782407.2254, -181991924578.337, -363473977210.141, -725337050553.89, -1446342551648.47, -2881941162160.65, -5738497521398.03, -11418936575319.8, -22708142164275.2, -45131432245311.6, -89645884346409.8, -177969941625094, -353133219287688, -700351348689777, -1388315183960579, -2750828581307066, -5448167546359572, -10785901526178346, -21344633431230288, -42223472396959864, -83494631109252016, -165047335865753888, -326144099824872960, -644268556323104896, -1272289222665704960, -2511719077288045568, -4957094068295422976, -9780441891046391808, -1.9291639356539e+19, -38041976425069862912, -74997019625717596160, -1.47813980522732e+20, -2.91260085798056e+20, -5.73777646929122e+20, -1.13007319819804e+21, -2.22521899361014e+21, -4.38071519248462e+21, -8.62235781974388e+21, -1.69675222834625e+22, -3.33829458816692e+22, -6.56669878434099e+22, -1.2914810481395e+23, -2.53950840681221e+23, -4.99268379737403e+23, -9.81393715458217e+23, -1.92876460684381e+24, -3.79004004348997e+24, -7.44626980645141e+24, -1.46273574426805e+25, -2.87294154406129e+25, -5.64187042306716e+25, -1.10778729236262e+26, -2.1748439290622e+26, -4.26913311245721e+26, -8.37900750248964e+26, -1.64432657900359e+27, -3.22646894393502e+27, -6.33012184999843e+27, -1.24177532894999e+28, -2.4356873672908e+28, -4.77692848222753e+28, -9.36754365223252e+28, -1.83676481719521e+29, -3.60108404728876e+29, -7.05936824038065e+29, -1.38373288587828e+30, -2.71202352823357e+30, -5.31484173040654e+30), .Dim = c(100L, 3L)));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnames14() {
+ assertEval("argv <- list(structure(c(0.0267062896727757, 0.0288568829806391, 0.0492797675063702, -0.0572758706635325, 0.0323212080834915, 0.0153959090462038, -0.0926263811460125, 0.063635852899097, -0.0487298690847772, 0.0550557154550753, -0.0198673280094324, -0.0926263811460125, 0.0140766975562449, 0.0582283948223117, 0.00131213541438663, 0.091788691086849, -0.047804624481445, 0.0620410336020094, -0.0572622511611348, 0.0287132484691924, -0.083909175260886, -0.078402304235417, 0.0355405280997754, 0.0717493130601819, -0.0215453924782896, 0.0433187167027035, -0.0391463972547204, 0.0355405280997753, -0.101433295142967, -0.0534964348088565, -0.0100532600167173, 0.115085165377514), .Dim = c(16L, 2L), .Dimnames = list(structure(c(\'M1\', \'M2\', \'M4\', \'M5\', \'BF\', \'HF\', \'NM\', \'SF\', \'U1\', \'U2\', \'U3\', \'C0\', \'C1\', \'C2\', \'C3\', \'C4\'), .Names = c(\'Mois1\', \'Mois2\', \'Mois3\', \'Mois4\', \'Manag1\', \'Manag2\', \'Manag3\', \'Manag4\', \'Use1\', \'Use2\', \'Use3\', \'Manure1\', \'Manure2\', \'Manure3\', \'Manure4\', \'Manure5\')), c(\'1\', \'2\'))));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnames15() {
+ assertEval("argv <- list(structure(\'foo\', .Dim = c(1L, 1L), .Dimnames = list(NULL, structure(\'object\', simpleOnly = TRUE))));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnames16() {
+ assertEval("argv <- list(structure(c(\'4.1-0\', \'4.1-0\', \'4.1-0\', \'4.1-0\', \'4.1-0\', \'4.1-0\', \'4.0-3\', \'4.0-3\', \'4.0-3\', \'4.0-3\', \'4.0-3\', \'4.0-2\', \'4.0-2\', \'4.0-1\', \'4.0-1\', \'4.0-1\', \'4.0-1\', \'4.0-1\', \'4.0-1\', \'4.0-1\', \'4.0-1\', \'3.1-55\', \'3.1-55\', \'3.1-55\', \'3.1-54\', \'3.1-53\', \'3.1-53\', \'3.1-52\', \'3.1-51\', NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, \'The C and R code has been reformatted for legibility.\', \'The old compatibility function rpconvert() has been removed.\', \'The cross-validation functions allow for user interrupt at the end\\nof evaluating each split.\', \'Variable Reliability in data set car90 is corrected to be an\\nordered factor, as documented.\', \'Surrogate splits are now considered only if they send two or more\\ncases _with non-zero weight_ each way. For numeric/ordinal\\nvariables the restriction to non-zero weights is new: for\\ncategorical variables this is a new restriction.\', \'Surrogate splits which improve only by rounding error over the\\ndefault split are no longer returned. Where weights and missing\\nvalues are present, the splits component for some of these was not\\nreturned correctly.\', \'A fit of class \\\'rpart\\\' now contains a component for variable\\n‘importance’, which is reported by the summary() method.\', \'The text() method gains a minlength argument, like the labels()\\nmethod. This adds finer control: the default remains pretty =\\nNULL, minlength = 1L.\', \'The handling of fits with zero and fractional weights has been\\ncorrected: the results may be slightly different (or even\\nsubstantially different when the proportion of zero weights is\\nlarge).\', \'Some memory leaks have been plugged.\', \'There is a second vignette, longintro.Rnw, a version of the\\noriginal Mayo Tecnical Report on rpart.\', \'Added dataset car90, a corrected version of the S-PLUS dataset\\ncar.all (used with permission).\', \'This version does not use paste0{} and so works with R 2.14.x.\', \'Merged in a set of Splus code changes that had accumulated at Mayo\\nover the course of a decade. The primary one is a change in how\\nindexing is done in the underlying C code, which leads to a major\\nspeed increase for large data sets. Essentially, for the lower\\nleaves all our time used to be eaten up by bookkeeping, and this\\nwas replaced by a different approach. The primary routine also\\nuses .Call{} so as to be more memory efficient.\', \'The other major change was an error for asymmetric loss matrices,\\nprompted by a user query. With L=loss asymmetric, the altered\\npriors were computed incorrectly - they were using L' instead of L.\\nUpshot - the tree would not not necessarily choose optimal splits\\nfor the given loss matrix. Once chosen, splits were evaluated\\ncorrectly. The printed “improvement” values are of course the\\nwrong ones as well. It is interesting that for my little test\\ncase, with L quite asymmetric, the early splits in the tree are\\nunchanged - a good split still looks good.\', \'Add the return.all argument to xpred.rpart().\', \'Added a set of formal tests, i.e., cases with known answers to\\nwhich we can compare.\', \'Add a usercode vignette, explaining how to add user defined\\nsplitting functions.\', \'The class method now also returns the node probability.\', \'Add the stagec data set, used in some tests.\', \'The plot.rpart routine needs to store a value that will be visible\\nto the rpartco routine at a later time. This is now done in an\\nenvironment in the namespace.\', \'Force use of registered symbols in R >= 2.16.0\', \'Update Polish translations.\', \'Work on message formats.\', \'Add Polish translations\', \'rpart, rpart.matrix: allow backticks in formulae.\', \'tests/backtick.R: regession test\', \'src/xval.c: ensure unused code is not compiled in.\', \'Change description of margin in ?plot.rpart as suggested by Bill\\nVenables.\'), .Dim = c(29L, 4L)));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void testdimnames17() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, -1.43884556914512e-134, 0, 0, 0, -7.95468296571581e-252, 1.76099882882167e-260, 0, -9.38724727098368e-323, -0.738228974836154, 0, 0, 0, 0, 0, 0, 0, 0, 0, -6.84657791618065e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1.05931985100232e-174, 0, -3.41789378681991e-150, 0, 0, 0, 0, -1.07225492686949e-10, 0, 1.65068934474523e-67, 0, -6.49830035279282e-307, 0, 5.83184963977238e-90, 0, -9.81722610183938e-287, 6.25336419454196e-54, 0, 0, 0, -1.72840591500382e-274, 1.22894687952101e-13, 0.660132850077566, 0, 0, 7.79918925397516e-200, -2.73162827952857e-178, 1.32195942051179e-41, 0, 0, 0, 0, 2.036057023761e-45, -3.40425060445074e-186, 1.59974269220388e-26, 0, 6.67054294775317e-124, 0.158503117506202, 0, 0, 0, 0, 0, 0, 3.42455724859116e-97, 0, 0, -2.70246891320217e-272, 0, 0, -3.50562438899045e-06, 0, 0, 1.35101732326608e-274, 0, 0, 0, 0, 0, 0, 0, 7.24580295957621e-65, 0, -3.54887341172294e-149, 0, 0, 0, 0, 0, 0, 0, 0, 1.77584594753563e-133, 0, 0, 0, 2.88385135688311e-250, 1.44299633616158e-259, 0, 1.56124744085834e-321, 1.63995835868977, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.01050064173383e-122, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.64868196850938e-172, 0, 6.28699823828692e-149, 0, 0, 0, 0, 5.0552295590188e-09, 0, 2.30420733561404e-66, 0, 7.0823279075443e-306, 0, 2.05009901740696e-88, 0, 7.41800724282869e-285, 7.18347043784483e-53, 0, 0, 0, 1.04251223075649e-273, 9.75816316577433e-13, 4.29519957592147, 0, 0, 1.33541454912682e-198, 2.34606233784019e-176, 8.38236726536896e-41, 0, 0, 0, 0, 1.35710537434521e-43, 1.15710503176511e-185, 1.25601735272233e-25, 0, 4.46811655846376e-123, 4.4196641795634, 0, 0, 0, 0, 0, 0, 3.74179015251531e-93, 0, 0, 3.62662047836582e-271, 0, 0, 1.26220330674453e-05, 0, 0, 1.72715562657338e-273, 0, 0, 0, 0, 0, 0, 0, 5.46372806810809e-64, 0, 2.47081972486962e-148, 0, 0, 0), .Dim = c(100L, 2L)));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnames18() {
+ assertEval("argv <- list(structure(list(Ozone = c(39L, 9L, 16L, 78L, 35L, 66L, 122L, 89L, 110L, NA, NA, 44L, 28L, 65L, NA, 22L, 59L, 23L, 31L, 44L, 21L, 9L, NA, 45L, 168L, 73L, NA, 76L, 118L, 84L, 85L), Solar.R = c(83L, 24L, 77L, NA, NA, NA, 255L, 229L, 207L, 222L, 137L, 192L, 273L, 157L, 64L, 71L, 51L, 115L, 244L, 190L, 259L, 36L, 255L, 212L, 238L, 215L, 153L, 203L, 225L, 237L, 188L), Wind = c(6.9, 13.8, 7.4, 6.9, 7.4, 4.6, 4, 10.3, 8, 8.6, 11.5, 11.5, 11.5, 9.7, 11.5, 10.3, 6.3, 7.4, 10.9, 10.3, 15.5, 14.3, 12.6, 9.7, 3.4, 8, 5.7, 9.7, 2.3, 6.3, 6.3), Temp = c(81L, 81L, 82L, 86L, 85L, 87L, 89L, 90L, 90L, 92L, 86L, 86L, 82L, 80L, 79L, 77L, 79L, 76L, 78L, 78L, 77L, 72L, 75L, 79L, 81L, 86L, 88L, 97L, 94L, 96L, 94L), Month = c(8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L), Day = 1:31, Oz.Z = c(-0.528248463997741, -1.28427378861836, -1.10786787954022, 0.454584458009066, -0.629051840613824, 0.152174328160817, 1.56342160078598, 0.731793743703293, 1.26101147093773, NA, NA, -0.402244243227638, -0.805457749691969, 0.126973484006797, NA, -0.956662814616093, -0.0242315809173275, -0.931461970462072, -0.729855217229907, -0.402244243227638, -0.981863658770114, -1.28427378861836, NA, -0.377043399073617, 2.72266043187093, 0.328580237238962, NA, 0.404182769701024, 1.46261822416989, 0.60578952293319, 0.63099036708721)), .Names = c(\'Ozone\', \'Solar.R\', \'Wind\', \'Temp\', \'Month\', \'Day\', \'Oz.Z\'), row.names = 93:123, class = \'data.frame\'));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnames19() {
+ assertEval("argv <- list(structure(c(28L, 138L, 16L), .Dim = 3L, .Dimnames = structure(list(object = c(\'FALSE\', \'TRUE\', NA)), .Names = \'object\'), class = \'table\'));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnames20() {
+ assertEval("argv <- list(structure(c(\'myTst\', \'myLib\', \'1.0\', NA, \'methods\', NA, NA, NA, NA, \'What license is it under?\', NA, NA, NA, NA, NA, NA, \'3.0.1\'), .Dim = c(1L, 17L), .Dimnames = list(\'ret0\', c(\'Package\', \'LibPath\', \'Version\', \'Priority\', \'Depends\', \'Imports\', \'LinkingTo\', \'Suggests\', \'Enhances\', \'License\', \'License_is_FOSS\', \'License_restricts_use\', \'OS_type\', \'Archs\', \'MD5sum\', \'NeedsCompilation\', \'Built\'))));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnames21() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1, 1, 2), Deviance = c(12.2441566485997, 32.825622681839, 8.44399377410362, 11.9670615295804), AIC = c(73.9421143635373, 92.5235803967766, 72.1419514890412, 77.665019244518)), .Names = c(\'Df\', \'Deviance\', \'AIC\'), row.names = c(\'<none>\', \'- M.user\', \'+ Temp\', \'+ Soft\'), class = c(\'anova\', \'data.frame\')));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnames22() {
+ assertEval("argv <- list(structure(c(1L, 2L, 1L), .Dim = 3L, .Dimnames = structure(list(c(\'1\', \'2\', NA)), .Names = \'\'), class = \'table\'));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnames23() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Dim = c(10L, 2L), .Dimnames = list(NULL, c(\'tt\', \'tt + 1\')), .Tsp = c(1920.5, 1921.25, 12), class = c(\'mts\', \'ts\', \'matrix\')));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ public void testdimnames24() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 2L, 1L, NA), .Label = c(\'no\', \'yes\'), class = \'factor\'));dimnames(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnames26() {
+ assertEval("argv <- list(structure(c(-15.7095066647243, 0.26727943386171, 0.297238382214578, 0.257897591876632, 0.340108731286838, 0.236310380889319, 0.317311605722827, 0.262866287094154, 0.338086383499512, 0.234905236792884, 0.325336667185977, 0.218927692395608, -7.51574917378772, 7.84743436370915, -0.381048703752012, -0.330615253498497, 0.244844953659604, 0.170120314286586, -0.406781840034597, -0.336984938523255, 0.243389061455961, 0.169108748250409, -0.417069674483433, -0.280657271719851, -5.36168424071406, 0.204399594459056, 7.44580265802875, 0.18731755950565, -0.56882795084156, -0.395226400731518, -0.439007571789656, -0.363681278343691, 0.147865047400615, 0.10273786720867, 0.236300269698257, 0.159012733501467, -5.07819471343419, -0.0276453301370831, -3.65602301353979, 6.37342950130462, 0.0099206539914638, 0.0068929530698134, 0.118301269982087, 0.0980027677458417, -0.620575419067553, -0.431180972906935, -0.48536920518568, -0.326617841666301), .Dim = c(12L, 4L), .Dimnames = list(c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\'), c(\'(Intercept)\', \'M.userY\', \'SoftMedium\', \'SoftSoft\'))));dimnames(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindimnamesassign.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindimnamesassign.java
new file mode 100644
index 0000000000000000000000000000000000000000..2fc7b8eb27960e40e2fb8f9863b487b9259ef9fc
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindimnamesassign.java
@@ -0,0 +1,108 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltindimnamesassign extends TestBase {
+
+ @Test
+ @Ignore
+ public void testdimnamesassign1() {
+ assertEval("argv <- list(structure(c(300, 3000, 400, 4000), .Dim = c(2L, 2L, 1L), .Dimnames = list(c(\'happy\', \'sad\'), NULL, \'\')), value = list(c(\'happy\', \'sad\'), NULL, \'\'));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnamesassign2() {
+ assertEval("argv <- list(structure(1:24, .Dim = 2:4, .Dimnames = list(c(\'A\', \'B\'), NULL, NULL)), value = list(c(\'A\', \'B\'), NULL, NULL));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnamesassign3() {
+ assertEval("argv <- list(structure(c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), .Dim = 3:4), value = NULL);`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnamesassign4() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 20L)), value = NULL);`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnamesassign5() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 7, 0, 0, 0, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 22, 0, 0, 25, 0, 0, 0, 0, 30, 0, 0, 0, 0, 0, 0, 0, 38, 39, 0, 0, 0, 0, 0, 86, 0, 0, 0, 90, 91, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 103, 0, 0, 0, 0, 0, 0, 0, 0, 0, 113, 114, 0, 0, 0, 0, 0, 0, 121, 0, 0, 0, 0, 0, 128, 129, 0, 0, 132, 133, 0, 0, 0, 0, 138, 0, 0, 141, 142, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 159, 0, 1, 0, 0, 0, 2, 0, 0, 0, 1, 171, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 187, 0, 1, 0, 0, 0, 193, 0, 0, 196, 0, 0, 0, 1, 1, 202, 0, 0, 3, 0, 208, 0, 2, 0, 212, 0, 0, 0, 0, 0, 218, 0, 220, 1, 0, 0, 0, 0, 226, 227, 0, 2, 230, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 241, 0, 0, 0, 0, 0, 0, 0, 250, 251, 0, 0, 0, 255, 256, 257, 0, 0, 0, 261, 262, 0, 264, 0, 0, 0, 268, 0, 0, 0, 0, 0, 0, 275, 276, 0, 0, 0, 0, 0, 0, 0, 0, 0, 287, 0, 0, 290, 0, 292, 293, 0, 0, 0, 0, 0, 0, 300, 0, 0, 0, 0, 305, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 319, 0, 0, 0, 324, 0, 0, 0, 328, 329, 0, 0, 0, 0, 0, 335, 0, 0, 0, 339, 340, 0, 0, 343, 0, 0, 0, 0, 0, 0, 0, 351, 0, 0, 354, 0, 0, 0, 0, 0, 360, 0, 0, 0, 0, 0, 0, 0, 0, 0, 371, 0, 0, 0, 0, 0, 0, 0, 379, 0, 0, 0, 0, 0, 385, 0, 387, 0, 389, 0, 391, 0, 393, 394, 395, 396, 0, 0, 399, 0, 0, 0, 0, 405, 1, 407, 408, 0, 2, 0, 0, 0, 414, 415, 0, 417, 0, 0, 0, 0, 0, 0, 424, 0, 0, 0, 428, 1, 0, 431, 0, 433, 0, 435, 0, 0, 0, 439, 1, 441, 0, 0, 0, 0, 0, 0, 0, 0, 0, 452, 0, 0, 0, 0, 457, 0, 0, 0, 461, 0, 463, 0, 0, 0, 0, 0, 0, 0, 0, 0, 473, 474, 475, 0, 477, 0, 0, 0, 0, 482, 484, 0, 0, 487, 0, 0, 490, 491, 492, 0, 0, 0, 0, 0, 0, 499, 0, 501, 502, 0, 0, 0, 0, 0, 0, 0, 510, 0, 0, 0, 0, 515, 516, 0, 0, 519, 0, 0, 522, 524, 0, 0, 527, 528, 529, 530, 0, 532, 533, 0, 0, 0, 0, 538, 0, 0, 0, 0, 0, 0, 0, 0, 0, 548, 0, 0, 0, 0, 553, 0, 555, 0, 0, 0, 0, 560, 561, 0, 564, 0, 566, 0, 568, 0, 570, 0, 0, 0, 0, 0, 0, 0, 0, 0, 580, 0, 0, 0, 0, 0, 586, 0, 0, 589, 0, 0, 592, 593, 594, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 608, 0, 0, 0, 0, 0, 614, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 625, 626, 0, 628, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 640, 0, 0, 0, 645, 1, 0, 648, 0, 0, 0, 0, 653, 0, 0, 0, 657, 0, 0, 0, 0, 0, 0, 0, 665, 0, 0, 0, 0, 670, 671, 0, 0, 0, 675, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 691, 0, 0, 0, 695, 0, 697, 0, 0, 700, 0, 702, 0, 0, 0, 0, 0, 708, 0, 710, 711, 0, 0, 0, 0, 716, 0, 718, 0, 0, 0, 722, 0, 0, 0, 727, 728, 729, 0, 731, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 745, 0, 747, 0, 0, 750, 0, 0, 0, 0, 0, 0, 0, 0, 0, 760, 0, 0, 764, 0, 2, 0, 0, 0, 0, 0, 772, 0, 0, 0, 776, 777, 0, 0, 0, 1, 0, 0, 784, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 796, 0, 0, 0, 1), .Dim = c(39L, 19L)), value = NULL);`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnamesassign6() {
+ assertEval("argv <- list(structure(c(-75, 0, 103, 0, 124, -1, 0, -2.77555756156289e-17, 0, -1.66533453693773e-16, 0, 0, 0, 178, 0), .Dim = c(5L, 3L)), value = NULL);`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnamesassign7() {
+ assertEval("argv <- list(structure(c(-0.0124410638457178, NA, 0.00669768951701377, NA, 0.00669754897238661, NA, 3.45036480545864, 2.52673085623929, 1, 2.64771226663238, 0.0632378108418818, 0.404928794321981), .Dim = c(2L, 6L), .Dimnames = list(c(\'linear\', \'nonlin\'), NULL)), value = list(c(\'linear\', \'nonlin\'), NULL));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnamesassign8() {
+ assertEval("argv <- list(structure(c(300, 3000, 400, 4000), .Dim = c(2L, 2L)), value = NULL);`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnamesassign9() {
+ assertEval("argv <- list(structure(c(1259, 1360, 845, 1053, 719, 774, 390, 413), .Dim = c(2L, 4L), .Dimnames = list(c(\'a\', \'b\'), NULL)), value = list(c(\'a\', \'b\')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnamesassign10() {
+ assertEval("argv <- list(structure(1:9, .Dim = c(3L, 3L), .Dimnames = list(c(\'x\', \'y\', NA), c(\'1\', NA, \'3\'))), value = list(c(\'x\', \'y\', NA), c(\'1\', NA, \'3\')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnamesassign11() {
+ assertEval("argv <- list(structure(c(0-0.5i, 0-0.577350269189626i, 0-0.707106781186548i, 0-1i, Inf+0i, 1+0i, 0.707106781186548+0i, 0.577350269189626+0i, 0.5+0i, 0.447213595499958+0i, 0.408248290463863+0i, 0.377964473009227+0i, 0.353553390593274+0i, 0.333333333333333+0i, 0.316227766016838+0i, 0.301511344577764+0i, 0.288675134594813+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 1+0i, 0+2i, 0+1.73205080756888i, 0+1.41421356237309i, 0+1i, 0+0i, 1+0i, 1.41421356237309+0i, 1.73205080756888+0i, 2+0i, 2.23606797749979+0i, 2.44948974278318+0i, 2.64575131106459+0i, 2.82842712474619+0i, 3+0i, 3.16227766016838+0i, 3.3166247903554+0i, 3.46410161513775+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, 0-8i, 0-5.19615242270663i, 0-2.82842712474619i, 0-1i, 0+0i, 1+0i, 2.82842712474619+0i, 5.19615242270663+0i, 8+0i, 11.1803398874989+0i, 14.6969384566991+0i, 18.5202591774521+0i, 22.6274169979695+0i, 27+0i, 31.6227766016838+0i, 36.4828726939094+0i, 41.5692193816531+0i, 16+0i, 9+0i, 4+0i, 1+0i, 0+0i, 1+0i, 4+0i, 9+0i, 16+0i, 25+0i, 36+0i, 49+0i, 64+0i, 81+0i, 100+0i, 121+0i, 144+0i), .Dim = c(17L, 6L), .Dimnames = structure(list(c(\'-4\', \'-3\', \'-2\', \'-1\', \'0\', \'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\'), `^` = c(\'-0.5\', \'0\', \'0.5\', \'1\', \'1.5\', \'2\')), .Names = c(\'\', \'^\'))), value = structure(list(c(\'-4\', \'-3\', \'-2\', \'-1\', \'0\', \'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\'), `^` = c(\'-0.5\', \'0\', \'0.5\', \'1\', \'1.5\', \'2\')), .Names = c(\'\', \'^\')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnamesassign12() {
+ assertEval("argv <- list(structure(list(fair = c(326L, 688L, 343L, 98L), red = c(38L, 116L, 84L, 48L), medium = c(241L, 584L, 909L, 403L), dark = c(110L, 188L, 412L, 681L), black = c(3L, 4L, 26L, 85L)), .Names = c(\'fair\', \'red\', \'medium\', \'dark\', \'black\'), class = \'data.frame\', row.names = c(\'blue\', \'light\', \'medium\', \'dark\')), value = list(c(\'blue\', \'light\', \'medium\', \'dark\'), c(\'F\', \'R\', \'M\', \'D\', \'B\')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnamesassign13() {
+ assertEval("argv <- list(structure(c(4L, 96L, 0L, 99L, 0L, 1L, 91L, 0L, 9L, 99L, 0L, 1L, 4L, 0L, 96L, 82L, 18L, 0L, 87L, 13L, 0L, 92L, 0L, 8L, 2L, 1L, 97L, 81L, 19L, 0L, 44L, 56L, 0L, 12L, 88L, 0L, 22L, 78L, 0L, 5L, 95L, 0L, 1L, 99L, 0L, 57L, 43L, 0L, 24L, 76L, 0L, 1L, 99L, 0L, 13L, 87L, 0L, 2L, 0L, 98L, 4L, 0L, 96L, 4L, 0L, 96L, 8L, 0L, 92L, 2L, 0L, 98L), .Dim = c(3L, 24L), .Dimnames = structure(list(cluster = c(\'1\', \'2\', \'3\'), obs = c(\' 30\', \' 243\', \' 245\', \' 309\', \' 562\', \' 610\', \' 708\', \' 727\', \' 770\', \'1038\', \'1081\', \'1120\', \'1248\', \'1289\', \'1430\', \'1610\', \'1644\', \'1683\', \'1922\', \'2070\', \'2380\', \'2662\', \'2821\', \'2983\')), .Names = c(\'cluster\', \'obs\'))), value = structure(list(cluster = c(\'1\', \'2\', \'3\'), obs = c(\' 30\', \' 243\', \' 245\', \' 309\', \' 562\', \' 610\', \' 708\', \' 727\', \' 770\', \'1038\', \'1081\', \'1120\', \'1248\', \'1289\', \'1430\', \'1610\', \'1644\', \'1683\', \'1922\', \'2070\', \'2380\', \'2662\', \'2821\', \'2983\')), .Names = c(\'cluster\', \'obs\')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnamesassign14() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0), .Dim = c(2L, 2L), .Dimnames = list(NULL, c(\'A\', \'B\'))), value = list(NULL, c(\'A\', \'B\')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testdimnamesassign15() {
+ assertEval("argv <- list(structure(c(\'NULL\', \'double\', \'integer\', \'complex\', \'list\', \'list\', \'pairlist\', \'builtin\', \'closure\', \'symbol\', \'symbol\', \'language\', \'language\', \'symbol\', \'symbol\', \'NULL\', \'double\', \'integer\', \'complex\', \'list\', \'list\', \'pairlist\', \'function\', \'function\', \'symbol\', \'symbol\', \'language\', \'language\', \'symbol\', \'symbol\', \'NULL\', \'numeric\', \'numeric\', \'complex\', \'list\', \'list\', \'pairlist\', \'function\', \'function\', \'name\', \'name\', \'call\', \'(\', \'name\', \'name\'), .Dim = c(15L, 3L), .Dimnames = list( c(\'NULL\', \'1\', \'1:1\', \'1i\', \'list(1)\', \'data.frame(x = 1)\', \'pairlist(pi)\', \'c\', \'lm\', \'formals(lm)[[1]]\', \'formals(lm)[[2]]\', \'y ~ x\', \'expression((1))[[1]]\', \'(y ~ x)[[1]]\', \'expression(x <- pi)[[1]][[1]]\'), c(\'typeof(.)\', \'storage.mode(.)\', \'mode(.)\'))), value = list(c(\'NULL\', \'1\', \'1:1\', \'1i\', \'list(1)\', \'data.frame(x = 1)\', \'pairlist(pi)\', \'c\', \'lm\', \'formals(lm)[[1]]\', \'formals(lm)[[2]]\', \'y ~ x\', \'expression((1))[[1]]\', \'(y ~ x)[[1]]\', \'expression(x <- pi)[[1]][[1]]\'), c(\'typeof(.)\', \'storage.mode(.)\', \'mode(.)\')));`dimnames<-`(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindircreate.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindircreate.java
new file mode 100644
index 0000000000000000000000000000000000000000..e59115199f3cf131dedfee69a3433e642e2dd9af
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindircreate.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltindircreate extends TestBase {
+
+ @Test
+ @Ignore
+ public void testdircreate1() {
+ assertEval("argv <- list(\'/home/lzhao/tmp/RtmptS6o2G/translations\', FALSE, FALSE, structure(511L, class = \'octmode\')); .Internal(dir.create(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindirname.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindirname.java
new file mode 100644
index 0000000000000000000000000000000000000000..38792a343df5664c072439fe0f850c4e044e77bd
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindirname.java
@@ -0,0 +1,44 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltindirname extends TestBase {
+
+ @Test
+ public void testdirname1() {
+ assertEval("argv <- list(\'/home/roman/r-instrumented/library/graphics\'); .Internal(dirname(argv[[1]]))");
+ }
+
+ @Test
+ public void testdirname2() {
+ assertEval("argv <- list(\'/home/lzhao/hg/r-instrumented/tests/Packages/survival/inst/CITATION\'); .Internal(dirname(argv[[1]]))");
+ }
+
+ @Test
+ public void testdirname3() {
+ assertEval("argv <- list(character(0)); .Internal(dirname(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdirname4() {
+ assertEval("argv <- list(c(\'ChangeLog\', \'DESCRIPTION\', \'INDEX\', \'MD5\', \'NAMESPACE\', \'PORTING\', \'R/0aaa.R\', \'R/agnes.q\', \'R/clara.q\', \'R/clusGap.R\', \'R/coef.R\', \'R/daisy.q\', \'R/diana.q\', \'R/ellipsoidhull.R\', \'R/fanny.q\', \'R/internal.R\', \'R/mona.q\', \'R/pam.q\', \'R/plothier.q\', \'R/plotpart.q\', \'R/silhouette.R\', \'R/zzz.R\', \'README\', \'data/agriculture.tab\', \'data/animals.tab\', \'data/chorSub.rda\', \'data/flower.R\', \'data/plantTraits.rda\', \'data/pluton.tab\', \'data/ruspini.tab\', \'data/votes.repub.tab\', \'data/xclara.rda\', \'inst/CITATION\', \'inst/po/de/LC_MESSAGES/R-cluster.mo\', \'inst/po/en@quot/LC_MESSAGES/R-cluster.mo\', \'inst/po/pl/LC_MESSAGES/R-cluster.mo\', \'man/agnes.Rd\', \'man/agnes.object.Rd\', \'man/agriculture.Rd\', \'man/animals.Rd\', \'man/bannerplot.Rd\', \'man/chorSub.Rd\', \'man/clara.Rd\', \'man/clara.object.Rd\', \'man/clusGap.Rd\', \'man/clusplot.default.Rd\', \'man/clusplot.partition.Rd\', \'man/cluster-internal.Rd\', \'man/coef.hclust.Rd\', \'man/daisy.Rd\', \'man/diana.Rd\', \'man/dissimilarity.object.Rd\', \'man/ellipsoidhull.Rd\', \'man/fanny.Rd\', \'man/fanny.object.Rd\', \'man/flower.Rd\', \'man/lower.to.upper.tri.inds.Rd\', \'man/mona.Rd\', \'man/mona.object.Rd\', \'man/pam.Rd\', \'man/pam.object.Rd\', \'man/partition.object.Rd\', \'man/plantTraits.Rd\', \'man/plot.agnes.Rd\', \'man/plot.diana.Rd\', \'man/plot.mona.Rd\', \'man/plot.partition.Rd\', \'man/pltree.Rd\', \'man/pltree.twins.Rd\', \'man/pluton.Rd\', \'man/predict.ellipsoid.Rd\', \'man/print.agnes.Rd\', \'man/print.clara.Rd\', \'man/print.diana.Rd\', \'man/print.dissimilarity.Rd\', \'man/print.fanny.Rd\', \'man/print.mona.Rd\', \'man/print.pam.Rd\', \'man/ruspini.Rd\', \'man/silhouette.Rd\', \'man/sizeDiss.Rd\', \'man/summary.agnes.Rd\', \'man/summary.clara.Rd\', \'man/summary.diana.Rd\', \'man/summary.mona.Rd\', \'man/summary.pam.Rd\', \'man/twins.object.Rd\', \'man/volume.ellipsoid.Rd\', \'man/votes.repub.Rd\', \'man/xclara.Rd\', \'po/R-cluster.pot\', \'po/R-de.po\', \'po/R-en@quot.po\', \'po/R-pl.po\', \'po/update-me.sh\', \'src/clara.c\', \'src/cluster.h\', \'src/daisy.f\', \'src/dysta.f\', \'src/fanny.c\', \'src/ind_2.h\', \'src/init.c\', \'src/mona.f\', \'src/pam.c\', \'src/sildist.c\', \'src/spannel.c\', \'src/twins.c\', \'tests/agnes-ex.R\', \'tests/agnes-ex.Rout.save\', \'tests/clara-NAs.R\', \'tests/clara-NAs.Rout.save\', \'tests/clara-ex.R\', \'tests/clara.R\', \'tests/clara.Rout.save\', \'tests/clusplot-out.R\', \'tests/clusplot-out.Rout.save\', \'tests/daisy-ex.R\', \'tests/daisy-ex.Rout.save\', \'tests/diana-boots.R\', \'tests/diana-ex.R\', \'tests/diana-ex.Rout.save\', \'tests/ellipsoid-ex.R\', \'tests/ellipsoid-ex.Rout.save\', \'tests/fanny-ex.R\', \'tests/mona.R\', \'tests/mona.Rout.save\', \'tests/pam.R\', \'tests/pam.Rout.save\', \'tests/silhouette-default.R\', \'tests/silhouette-default.Rout.save\', \'tests/sweep-ex.R\')); .Internal(dirname(argv[[1]]))");
+ }
+
+ @Test
+ public void testdirname5() {
+ assertEval("argv <- list(structure(\'/home/lzhao/hg/r-instrumented/library/utils\', .Names = \'Dir\')); .Internal(dirname(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindoTrace.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindoTrace.java
new file mode 100644
index 0000000000000000000000000000000000000000..c79722c7e00aa65441923f7362ce7910aba209f9
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindoTrace.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltindoTrace extends TestBase {
+
+ @Test
+ @Ignore
+ public void testdoTrace1() {
+ assertEval("argv <- list(c(1, 1, 2));.doTrace(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindput.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindput.java
new file mode 100644
index 0000000000000000000000000000000000000000..949decae0036006045045b46b074ffb00cc77691
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindput.java
@@ -0,0 +1,66 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltindput extends TestBase {
+
+ @Test
+ @Ignore
+ public void testdput1() {
+ assertEval("argv <- list(logical(0), structure(1L, class = c(\'terminal\', \'connection\')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdput2() {
+ assertEval("argv <- list(structure(1, .Dim = 1L), structure(1L, class = c(\'terminal\', \'connection\')), 95); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdput3() {
+ assertEval("argv <- list(character(0), structure(1L, class = c(\'terminal\', \'connection\')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdput4() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), structure(1L, class = c(\'terminal\', \'connection\')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdput5() {
+ assertEval("argv <- list(NULL, structure(1L, class = c(\'terminal\', \'connection\')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdput6() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\')), structure(1L, class = c(\'terminal\', \'connection\')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdput7() {
+ assertEval("argv <- list(FALSE, structure(1L, class = c(\'terminal\', \'connection\')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdput8() {
+ assertEval("argv <- list(c(0.00508571428571428, 0.876285714285715), structure(1L, class = c(\'terminal\', \'connection\')), 69); .Internal(dput(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindrop.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindrop.java
new file mode 100644
index 0000000000000000000000000000000000000000..16fae755206cf1eafbe30796a6d9f03fd16bafaa
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindrop.java
@@ -0,0 +1,84 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltindrop extends TestBase {
+
+ @Test
+ @Ignore
+ public void testdrop1() {
+ assertEval("argv <- list(structure(c(1.50117937791368, 1.64775918264914, 1.38492642933039, 2.16331573723593, 2.09255307288088, 1.44052566560935, 0.318431987979291, 1.53656071009121, 2.26440525774314, 1.31416376497534, 0.495338648866914, 1.09176681985947, 1.27372795677245, 1.95608222019614, 1.5112883299644, 1.48096147381224, 1.88531955584109, 2.15826126121057, 1.49107042586296, 1.77412108328316, 1.19791081639204, 0.884533302819684, 1.21307424446813, 1.68314051482667, 0.181961135294554, 1.71346737097883, 1.29900033689926, 1.4860159498376, 1.00078625140298, 1.52139728201513, 1.42030776150791, 0.505447600917635, 1.5112883299644, 1.33438166907678, 1.81455689148604, -1.61842961254877e-09, 1.40008985740647, 2.10771650095696, 0.611591597450209, 0.136470851066308, 1.10693024793555, 1.61237785047162, 0.990677299352257, 1.28383690882317, 1.33438166907678, 1.44558014163472, 1.15747500818916, 1.30910928894998, 0.753116926160307, 1.4860159498376, 2.10771650095696, 2.40087611042788, 1.27372795677245, 1.16252948421452, 0.985622823326897, 2.05211726467799, 1.3444906211275, 0.768280354236389, 0.844097494616799, 1.22823767254421, 0.980568347301536, 1.10693024793555, 0.899696730895766, 1.67303156277594, 0.995731775377618, 1.68314051482667, 1.42030776150791, 1.55172413816729, 1.55172413816729, 0.722790070008143, 1.98135460032294, 1.39503538138111, 1.14231158011308, 1.07154891575803, 1.08671234383411, 0.662136357703815, 0.808716162439274, 1.91564641199326, 2.08749859685552, 1.15747500818916, 1.3192182410007, 1.02605863152978, 1.18274738831596, 1.23329214856957, 0.783443782312471, 1.65786813469986, 0.965404919225454, 2.27451420979386, 1.25351005267101, 1.22823767254421, 1.74884870315635, 1.54666966214193, 1.99651802839903, 1.22318319651885, 1.09682129588483, 2.06222621672871, 1.82972031956212, 0.808716162439274, 1.66797708675058, 1.74884870315635), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\'))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdrop2() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE), .Dim = c(40L, 1L), .Dimnames = list(c(\'r1\', \'r2\', \'r3\', \'r4\', \'r5\', \'r6\', \'r7\', \'r8\', \'r9\', \'r10\', \'r11\', \'r12\', \'r13\', \'r14\', \'r15\', \'r16\', \'r17\', \'r18\', \'r19\', \'r20\', \'r21\', \'r22\', \'r23\', \'r24\', \'r25\', \'r26\', \'r27\', \'r28\', \'r29\', \'r30\', \'r31\', \'r32\', \'r33\', \'r34\', \'r35\', \'r36\', \'r37\', \'r38\', \'r39\', \'r40\'), \'c1\'))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdrop3() {
+ assertEval("argv <- list(structure(c(-0.146170181357627, 24.3243243243243, NA, 84.2105263157895, 2.13784643479304), .Dim = c(5L, 1L))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdrop4() {
+ assertEval("argv <- list(structure(1, .Dim = c(1L, 1L))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdrop5() {
+ assertEval("argv <- list(structure(1:4, .Dim = c(4L, 1L), .Dimnames = list(c(\'a\', \'b\', \'c\', \'d\'), NULL))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdrop6() {
+ assertEval("argv <- list(structure(c(0.0394556761478965, 0.0353930191803619, 0.0421772348795039, 0.0302920451103359, 0.0377457762283076, 0.0338591835815583, 0.0403493901288877, 0.0289792716248635, 0.0342125137383397, 0.0306897327119817, 0.0365724115929804, 0.0262666138482847, 0.0422657427158027, 0.0379137398889158, 0.0451811331581029, 0.032449470138841), .Dim = c(1L, 4L, 4L), .Dimnames = list(\'1\', c(\'DAX\', \'SMI\', \'CAC\', \'FTSE\'), c(\'DAX\', \'SMI\', \'CAC\', \'FTSE\')))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdrop7() {
+ assertEval("argv <- list(c(10.8924449093617, 19.1956646477802, 5.83862354833301, 8.94491073999977, 10.0151293814506)); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdrop8() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\'))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdrop9() {
+ assertEval("argv <- list(structure(FALSE, .Tsp = c(1, 1, 1), class = \'ts\')); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdrop10() {
+ assertEval("argv <- list(structure(c(-2.12168716972669e-05, 7.51519194600216e-05, -6.21732236176711e-06), .Dim = c(3L, 1L))); .Internal(drop(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testdrop11() {
+ assertEval("argv <- list(structure(c(\' 16\', \' 16\', \'144\', \' 16\', \' 16\', \'128\', \' 16\', \' 16\', \'112\', \' 16\'), .Dim = 10L, .Dimnames = structure(list(c(\'1\', \'6\', \'7\', \'8\', \'13\', \'14\', \'15\', \'20\', \'21\', \'22\')), .Names = \'\'))); .Internal(drop(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinduplicated.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinduplicated.java
new file mode 100644
index 0000000000000000000000000000000000000000..84a979f3ec0aa8df71277eca3451cd9620dc9f53
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinduplicated.java
@@ -0,0 +1,96 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinduplicated extends TestBase {
+
+ @Test
+ @Ignore
+ public void testduplicated1() {
+ assertEval("argv <- list(c(\'methods\', \'base\'), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testduplicated2() {
+ assertEval("argv <- list(list(\'!\', \'%%\', \'%*%\', \'%/%\', \'&\', \'*\', \'+\', \'-\', \'/\', \'Arith\', \'BunchKaufman\', \'Cholesky\', \'Compare\', \'Logic\', \'Math2\', \'Math\', \'Ops\', \'Schur\', \'Summary\', \'[\', \'[<-\', \'^\', \'all.equal\', \'all\', \'any\', \'as.array\', \'as.integer\', \'as.logical\', \'as.matrix\', \'as.numeric\', \'as.vector\', \'band\', \'cbind2\', \'chol2inv\', \'chol\', \'coerce\', \'coerce<-\', \'colMeans\', \'colSums\', \'cov2cor\', \'crossprod\', \'determinant\', \'diag\', \'diag<-\', \'diff\', \'dim\', \'dim<-\', \'dimnames\', \'dimnames<-\', \'drop\', \'expand\', \'expm\', \'facmul\', \'forceSymmetric\', \'format\', \'head\', \'image\', \'initialize\', \'is.finite\', \'is.infinite\', \'is.na\', \'isDiagonal\', \'isSymmetric\', \'isTriangular\', \'kronecker\', \'length\', \'lu\', \'mean\', \'nnzero\', \'norm\', \'pack\', \'print\', \'prod\', \'qr.Q\', \'qr.R\', \'qr.coef\', \'qr.fitted\', \'qr.qty\', \'qr.qy\', \'qr.resid\', \'qr\', \'rbind2\', \'rcond\', \'rep\', \'rowMeans\', \'rowSums\', \'show\', \'skewpart\', \'solve\', \'sum\', \'summary\', \'symmpart\', \'t\', \'tail\', \'tcrossprod\', \'toeplitz\', \'tril\', \'triu\', \'unname\', \'unpack\', \'update\', \'updown\', \'which\', \'writeMM\', \'zapsmall\', \'Ops\', \'[\', \'Math\'), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testduplicated3() {
+ assertEval("argv <- list(c(3L, 8L, 18L), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testduplicated4() {
+ assertEval("argv <- list(c(0, 0.700492869640978, NA), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testduplicated5() {
+ assertEval("argv <- list(1L, FALSE, TRUE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testduplicated6() {
+ assertEval("argv <- list(character(0), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testduplicated7() {
+ assertEval("argv <- list(list(\'plot\', \'Ops\', \'[\', \'Math\'), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testduplicated8() {
+ assertEval("argv <- list(structure(\'lattice\', .Names = \'\'), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testduplicated10() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\')), structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\')), FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testduplicated11() {
+ assertEval("argv <- list(c(\'\\\\title\', \'\\\\name\', \'\\\\alias\', \'\\\\alias\', \'\\\\keyword\', \'\\\\keyword\', \'\\\\description\', \'\\\\usage\', \'\\\\arguments\', \'\\\\details\', \'\\\\value\', \'\\\\section\', \'\\\\section\', \'\\\\seealso\', \'\\\\examples\'), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testduplicated12() {
+ assertEval("argv <- list(structure(c(-0.838428742794102, 0.838428742794102, 0.838428742794102, 0.838428742794102, -0.838428742794102, -0.838428742794102), .Dim = c(6L, 1L), .Dimnames = list(c(\'1\', \'3\', \'4\', \'5\', \'6\', \'7\'), NULL)), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testduplicated13() {
+ assertEval("argv <- list(c(-1628571, -1628571, -1200000, -1200000, -1057143, -914286, -771429, -771429, -771429, -628571, -628571, -485714, -485714, -485714, -485714, -342857, -342857, -342857, -342857, -2e+05, -2e+05, -2e+05, -2e+05, -57143, -57143, -57143, 85714, 85714, 228571, 228571, 228571, 371429, 371429, 371429, 371429, 514286, 514286, 514286, 657143, 657143, 657143, 657143, 657143, 942857, 1085714, 1228571, 1228571, 1228571, 1228571, 1371429), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testduplicated14() {
+ assertEval("argv <- list(c(1, 0.778249191273129, 0.65570344192776, 0.65570344192776, 0.105668080308148, 0.0451091129154675, 0.0451091129154675, 1.49604383156071e-06, 8.3976239365668e-11, 2.13195391672632e-15, 1.4298180954663e-20, 1.47541167362595e-26, 1.09353648287987e-33, 1.6858825926109e-42, 1.6858825926109e-42, 1.6858825926109e-42), FALSE, FALSE, NA); .Internal(duplicated(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenc2native.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenc2native.java
new file mode 100644
index 0000000000000000000000000000000000000000..e6205ad3b2c74778397df8548bee60042f4cea50
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenc2native.java
@@ -0,0 +1,36 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinenc2native extends TestBase {
+
+ @Test
+ @Ignore
+ public void testenc2native1() {
+ assertEval("argv <- list(character(0));enc2native(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testenc2native3() {
+ assertEval("argv <- list(structure(character(0), .Names = character(0)));enc2native(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testenc2native4() {
+ assertEval("argv <- list(\'José Pinheiro [aut] (S version)\');enc2native(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenc2utf8.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenc2utf8.java
new file mode 100644
index 0000000000000000000000000000000000000000..777c0a608cc8b7c6ceab0c49336208c3415f2b8d
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenc2utf8.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinenc2utf8 extends TestBase {
+
+ @Test
+ @Ignore
+ public void testenc2utf81() {
+ assertEval("argv <- list(\'Add Text to a Plot\');enc2utf8(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testenc2utf82() {
+ assertEval("argv <- list(\'Modes\');enc2utf8(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testenc2utf83() {
+ assertEval("argv <- list(c(\'\', \'(De)compress I/O Through Connections\'));enc2utf8(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testenc2utf84() {
+ assertEval("argv <- list(character(0));enc2utf8(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinencodeString.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinencodeString.java
new file mode 100644
index 0000000000000000000000000000000000000000..7d9826bad2d4a9ea69910c9485560a2634ba4a92
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinencodeString.java
@@ -0,0 +1,84 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinencodeString extends TestBase {
+
+ @Test
+ @Ignore
+ public void testencodeString1() {
+ assertEval("argv <- list(c(\'1\', \'2\', NA), 0L, \'\\\'\', 0L, FALSE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testencodeString3() {
+ assertEval("argv <- list(c(\'a\', \'ab\', \'abcde\'), NA, \'\', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testencodeString4() {
+ assertEval("argv <- list(c(\'a\', \'ab\', \'abcde\'), NA, \'\', 1L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testencodeString6() {
+ assertEval("argv <- list(c(\'NA\', \'a\', \'b\', \'c\', \'d\', NA), 0L, \'\', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testencodeString7() {
+ assertEval("argv <- list(\'ab\\bc\\ndef\', 0L, \'\', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testencodeString8() {
+ assertEval("argv <- list(c(\'FALSE\', NA), 0L, \'\', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testencodeString9() {
+ assertEval("argv <- list(structure(\'integer(0)\', .Names = \'c0\', row.names = character(0)), 0L, \'\', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testencodeString10() {
+ assertEval("argv <- list(\'\\\'class\\\' is a reserved slot name and cannot be redefined\', 0L, \'\\\'\', 0L, FALSE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testencodeString11() {
+ assertEval("argv <- list(structure(character(0), .Dim = c(0L, 0L)), 0L, \'\', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testencodeString12() {
+ assertEval("argv <- list(character(0), logical(0), \'\', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testencodeString13() {
+ assertEval("argv <- list(structure(\'integer(0)\', .Names = \'c0\', row.names = character(0)), structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\')), \'\', 0L, TRUE); .Internal(encodeString(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenvironment.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenvironment.java
new file mode 100644
index 0000000000000000000000000000000000000000..44fb7445669f24f267eca402026c3a4cc089f364
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenvironment.java
@@ -0,0 +1,39 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinenvironment extends TestBase {
+
+ @Test
+ @Ignore
+ public void testenvironment1() {
+ assertEval("argv <- list(quote(cbind(X, M) ~ M.user + Temp + M.user:Temp + Soft)); .Internal(environment(argv[[1]]))");
+ }
+
+ @Test
+ public void testenvironment2() {
+ assertEval("argv <- list(FALSE); .Internal(environment(argv[[1]]))");
+ }
+
+ @Test
+ public void testenvironment3() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(environment(argv[[1]]))");
+ }
+
+ @Test
+ public void testenvironment4() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\'))); .Internal(environment(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenvironmentName.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenvironmentName.java
new file mode 100644
index 0000000000000000000000000000000000000000..79dcab7e434d220ec798f4e5c1633c64ddb5f138
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenvironmentName.java
@@ -0,0 +1,33 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinenvironmentName extends TestBase {
+
+ @Test
+ public void testenvironmentName1() {
+ assertEval("argv <- list(FALSE); .Internal(environmentName(argv[[1]]))");
+ }
+
+ @Test
+ public void testenvironmentName2() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\'))); .Internal(environmentName(argv[[1]]))");
+ }
+
+ @Test
+ public void testenvironmentName3() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(environmentName(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenvironmentassign.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenvironmentassign.java
new file mode 100644
index 0000000000000000000000000000000000000000..52f68ab7a5a40693a7a5c4438fe1bd373bbc86f7
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenvironmentassign.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinenvironmentassign extends TestBase {
+
+ @Test
+ @Ignore
+ public void testenvironmentassign1() {
+ assertEval("argv <- list(NULL, NULL);`environment<-`(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinexp.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinexp.java
new file mode 100644
index 0000000000000000000000000000000000000000..d6216d18615918ef2ff17399cb3666e2e61fb084
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinexp.java
@@ -0,0 +1,75 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinexp extends TestBase {
+
+ @Test
+ public void testexp1() {
+ assertEval("argv <- list(-3.99290891786396);exp(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testexp2() {
+ assertEval("argv <- list(structure(3.3059560902335, .Names = \'lymax\'));exp(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testexp3() {
+ assertEval("argv <- list(structure(c(-0.00324566582797463, -0.0174366299092001, -0.0697465196367962, -0.00678668749718479, -0.0364599944879883, -0.145839977951944, -0.014190964081224, -0.0762378512927396, -0.304951405170939, -0.0296733069908004, -0.159413352946301, -0.637653411785165, -0.0620468872115091, -0.333333333333361, -1.33333333333336, -0.129740045955487, -0.697000025766712, -2.78800010306667, -0.271286446121824, -1.45742710775627, -5.8297084310247, -0.567259979811165, -3.04748019497741, -12.1899207799089, -1.18614066163432, -6.37228132326786, -25.4891252930698), .Dim = c(3L, 9L), .Dimnames = list(c(\'x\', \'x\', \'\'), NULL)));exp(argv[[1]]);");
+ }
+
+ @Test
+ public void testexp4() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 0.312525079410893, 0.312525079410893, 0.519628781161469, 0.519628781161469, 0.519628781161469, 0.519628781161469, 0.519628781161469, 0.519628781161469, 0.656871985321733, 0.656871985321733, 0.656871985321733, 0.747820128348458, 0.747820128348458, 0.747820128348458, 0.747820128348458, 0.808089522163767, 0.808089522163767, 0.808089522163767, 0.808089522163767, 0.808089522163767, 0.808089522163767, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.848028763471832, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.874495646499593, 0.892034685155886, 0.892034685155886, 0.892034685155886, 0.892034685155886, 0.892034685155886, 0.911359578074335, 0.916463626041527));exp(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testexp5() {
+ assertEval("argv <- list(c(0+0.392699081698724i, 0+0.785398163397448i, 0+1.17809724509617i, 0+1.5707963267949i, 0+1.96349540849362i, 0+2.35619449019234i, 0+2.74889357189107i, 0+3.14159265358979i, 0+3.53429173528852i, 0+3.92699081698724i, 0+4.31968989868597i, 0+4.71238898038469i, 0+5.10508806208341i, 0+5.49778714378214i, 0+5.89048622548086i, 0+6.28318530717959i));exp(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testexp6() {
+ assertEval("argv <- list(c(-0.1, -3.16227766016838, -100));exp(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testexp8() {
+ assertEval("argv <- list(logical(0));exp(argv[[1]]);");
+ }
+
+ @Test
+ public void testexp9() {
+ assertEval("argv <- list(c(4.92585186838819, 4.80249477012754, 4.18570927882429, 4.06235218056364, 3.81563798404234, 3.32220959099974, 3.19885249273909, 2.95213829621779, 2.45870990317518, 2.33535280491453, 2.08863860839323, 1.59521021535063, 1.47185311708998, 1.34849601882933, 0.608353429265429, 0.361639232744128, -0.131789160298473, -0.255146258559123, -1.11864594638368, -1.24200304464433, -1.85878853594758, -1.98214563420823, -2.84564532203278, -3.09235951855408, -3.70914500985733));exp(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testexp10() {
+ assertEval("argv <- list(c(47.5645940356179, -6.38155741912049, -4.72835558025993, -9.12276173822938, 16.7269898773273, 1.72738845624351, 2.57214256243276, -6.38155741912049, 54.3235157345705, -1.01577550708815, 1.03229146110395, -7.85550713095368, -0.907238963715769, -0.92327375484205, -4.72835558025993, -1.01577550708815, 46.5450612116912, 4.59443066488959, -2.69397762349353, -13.3238428844397, -4.89920529326131, -9.12276173822938, 1.03229146110395, 4.59443066488959, 47.7416929123262, -3.84567249122941, -9.99434616922533, -0.0518296900644576, 16.7269898773273, -7.85550713095368, -2.69397762349353, -3.84567249122941, 49.4381847193856, 8.76151535039852, 0.371991514317358, 1.72738845624351, -0.907238963715769, -13.3238428844397, -9.99434616922533, 8.76151535039852, 50.1823716395239, -1.41801229530673, 2.57214256243276, -0.92327375484205, -4.89920529326131, -0.0518296900644576, 0.371991514317358, -1.41801229530673, 44.6019728197531));exp(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testexp11() {
+ assertEval("argv <- list(c(-745, -744, -743, -742, -741, -740, -730, -720, -710, -709, -708, -707, -706, -705));exp(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinexpm1.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinexpm1.java
new file mode 100644
index 0000000000000000000000000000000000000000..2bcb8b9456442a774206b885bd51bc4d9de27834
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinexpm1.java
@@ -0,0 +1,47 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinexpm1 extends TestBase {
+
+ @Test
+ public void testexpm11() {
+ assertEval("argv <- list(-0.518798300715899);expm1(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testexpm12() {
+ assertEval("argv <- list(-1.5314339531682e-113);expm1(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testexpm13() {
+ assertEval("argv <- list(structure(c(-0.0996985539253204, -0.208486018303182, -0.412624920187971, -0.781459230080118, -1.41933833538431, -2.49413413365086, -4.24041092023363, -7.0213317713299), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\')));expm1(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testexpm14() {
+ assertEval("argv <- list(logical(0));expm1(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testexpm15() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));expm1(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfileaccess.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfileaccess.java
new file mode 100644
index 0000000000000000000000000000000000000000..b00783d60491ed2943bb0156caead9acd871accb
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfileaccess.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinfileaccess extends TestBase {
+
+ @Test
+ @Ignore
+ public void testfileaccess1() {
+ assertEval("argv <- list(character(0), 0); .Internal(file.access(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testfileaccess2() {
+ assertEval("argv <- list(\'/home/lzhao/R/x86_64-unknown-linux-gnu-library/3.0/FALSE\', 5); .Internal(file.access(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfilecreate.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfilecreate.java
new file mode 100644
index 0000000000000000000000000000000000000000..d43115ff0eef39fc52cc1f3497f108d47704dd04
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfilecreate.java
@@ -0,0 +1,28 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinfilecreate extends TestBase {
+
+ @Test
+ public void testfilecreate1() {
+ assertEval("argv <- list(\'codetools-manual.log\', TRUE); .Internal(file.create(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testfilecreate2() {
+ assertEval("argv <- list(character(0), TRUE); .Internal(file.create(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfileexists.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfileexists.java
new file mode 100644
index 0000000000000000000000000000000000000000..789d986835c45b875530f18a5347335fab583cda
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfileexists.java
@@ -0,0 +1,33 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinfileexists extends TestBase {
+
+ @Test
+ public void testfileexists1() {
+ assertEval("argv <- list(\'/home/lzhao/hg/r-instrumented/library/methods/data/Rdata.rdb\'); .Internal(file.exists(argv[[1]]))");
+ }
+
+ @Test
+ public void testfileexists2() {
+ assertEval("argv <- list(c(\'src/Makevars\', \'src/Makevars.in\')); .Internal(file.exists(argv[[1]]))");
+ }
+
+ @Test
+ public void testfileexists3() {
+ assertEval("argv <- list(character(0)); .Internal(file.exists(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfileinfo.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfileinfo.java
new file mode 100644
index 0000000000000000000000000000000000000000..9b848c8d158c478848479e57f03dc62a6a2e585c
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfileinfo.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinfileinfo extends TestBase {
+
+ @Test
+ @Ignore
+ public void testfileinfo1() {
+ assertEval("argv <- list(\'/home/lzhao/hg/r-instrumented/library/codetools/data\'); .Internal(file.info(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testfileinfo2() {
+ assertEval("argv <- list(character(0)); .Internal(file.info(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfilepath.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfilepath.java
new file mode 100644
index 0000000000000000000000000000000000000000..a3f5ea94429a4c62c5e7c6b07e908bc285d81927
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfilepath.java
@@ -0,0 +1,48 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinfilepath extends TestBase {
+
+ @Test
+ @Ignore
+ public void testfilepath1() {
+ assertEval("argv <- list(list(\'/home/lzhao/hg/r-instrumented/tests/Packages/rpart/R\', \'summary.rpart.R\'), \'/\'); .Internal(file.path(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testfilepath2() {
+ assertEval("argv <- list(list(\'/home/lzhao/hg/r-instrumented/src/library/parallel/R/unix\', c(\'forkCluster.R\', \'mcfork.R\', \'mclapply.R\', \'mcmapply.R\', \'mcparallel.R\', \'pvec.R\')), \'/\'); .Internal(file.path(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testfilepath3() {
+ assertEval("argv <- list(list(\'/home/lzhao/hg/r-instrumented/tests/tcltk.Rcheck\', structure(\'tcltk\', .Names = \'Package\'), \'help\'), \'/\'); .Internal(file.path(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testfilepath4() {
+ assertEval("argv <- list(list(character(0), \'DESCRIPTION\'), \'/\'); .Internal(file.path(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testfilepath5() {
+ assertEval("argv <- list(list(structure(character(0), .Dim = c(0L, 0L))), \'/\'); .Internal(file.path(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfileremove.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfileremove.java
new file mode 100644
index 0000000000000000000000000000000000000000..76dc9f629da4e042ff3d25ea902a6a900a9a2aeb
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfileremove.java
@@ -0,0 +1,23 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinfileremove extends TestBase {
+
+ @Test
+ public void testfileremove1() {
+ assertEval("argv <- list(character(0)); .Internal(file.remove(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfilerename.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfilerename.java
new file mode 100644
index 0000000000000000000000000000000000000000..33d54f9ced58c3ef29c6c0b1ca0855354c286281
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfilerename.java
@@ -0,0 +1,23 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinfilerename extends TestBase {
+
+ @Test
+ public void testfilerename1() {
+ assertEval("argv <- list(character(0), character(0)); .Internal(file.rename(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfindInterval.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfindInterval.java
new file mode 100644
index 0000000000000000000000000000000000000000..4a9000a69c4bc46cd9bfd80f128671bf06a20cc8
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfindInterval.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinfindInterval extends TestBase {
+
+ @Test
+ @Ignore
+ public void testfindInterval1() {
+ assertEval("argv <- list(c(1, 2, 3, 4, 5, 6, 7, 8, 9), c(3, 3.25, 3.5, 3.75, 4, 4.25, 4.5, 4.75, 5, 5.25, 5.5, 5.75, 6), FALSE, FALSE); .Internal(findInterval(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testfindInterval2() {
+ assertEval("argv <- list(NA_real_, NA_real_, FALSE, FALSE); .Internal(findInterval(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testfindInterval3() {
+ assertEval("argv <- list(numeric(0), numeric(0), FALSE, FALSE); .Internal(findInterval(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testfindInterval4() {
+ assertEval("argv <- list(c(5, 10, 15), c(2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18), FALSE, FALSE); .Internal(findInterval(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfloor.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfloor.java
new file mode 100644
index 0000000000000000000000000000000000000000..02366490b752eba8b01e59d04336341a6e6d406e
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfloor.java
@@ -0,0 +1,68 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinfloor extends TestBase {
+
+ @Test
+ public void testfloor1() {
+ assertEval("argv <- list(c(2.2, 3.3, 4.4, 5.5, 6.6, 7.7, 8.8, 9.9, 11));floor(argv[[1]]);");
+ }
+
+ @Test
+ public void testfloor2() {
+ assertEval("argv <- list(structure(c(12784, 13149, 13514, 13879, 14245, 14610), tzone = \'UTC\'));floor(argv[[1]]);");
+ }
+
+ @Test
+ public void testfloor3() {
+ assertEval("argv <- list(c(-0.783587745879035, -0.739712343519063, -0.314304892261569));floor(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testfloor4() {
+ assertEval("argv <- list(structure(c(1920.5, 1920.5833, 1920.6667, 1920.75, 1920.8333, 1920.9167, 1921, 1921.0833, 1921.1667, 1921.25), .Tsp = c(1920.5, 1921.25, 12), class = \'ts\'));floor(argv[[1]]);");
+ }
+
+ @Test
+ public void testfloor5() {
+ assertEval("argv <- list(c(-1.94786705265839, 0.813844117537122));floor(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testfloor6() {
+ assertEval("argv <- list(structure(c(0.555857947411444, 2.74659181662125, NA, 6.01634386021798, 3.26975214359673, 2.19073396920981, 2.74659181662125, NA, 0.555857947411444, 3.82560999100817, 0.555857947411444, 2.19073396920981, 2.74659181662125, 2.74659181662125, 1.07901827438692, 4.38146783841962, 1.11171579482289, 1e-07, 7.09536203460491, 11.9999901, 4.93732568583106, 5.46048601280654), .Dim = c(22L, 1L)));floor(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testfloor7() {
+ assertEval("argv <- list(structure(c(3.08577921002324, 0.531033162063639, 1.47434325842442, 5.64214292692797, 6.21994378924106, 2.27200744902353, 11.9999901, 0.424434048635841, 0.549397569660826, 0.973929660925175, 1e-07, 3.54172739357752, 11.9999901, 2.27200744902353, 4.47284349010678, 6.43648940805496, 7.50963843787849, 7.11757579203344, 11.9999901, 3.54172739357752, 6.21994378924106, 5.1224060214714, 6.89175397596987, 6.52603528890926, 11.9999901, 7.11757579203344, 1e-07, 5.64214292692797, 6.00414304408873, 9.63018799510384, 11.9999901, 6.52603528890926, 7.50963843787849, 0.973929660925175, 1.47434325842442, 4.2100341139702, 11.9999901, 9.63018799510384, 6.89175397596987, 6.43648940805496, 0.549397569660826, 0.531033162063639, 11.9999901, 4.2100341139702, 6.00414304408873, 5.1224060214714, 4.47284349010678, 0.424434048635841, 3.08577921002324), .Dim = c(7L, 7L), .Dimnames = list(c(\'privileges\', \'rating\', \'complaints\', \'learning\', \'raises\', \'critical\', \'advance\'), c(\'advance\', \'critical\', \'raises\', \'learning\', \'complaints\', \'rating\', \'privileges\'))));floor(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testfloor8() {
+ assertEval("argv <- list(structure(c(1976, 1976.0833, 1976.1667, 1976.25, 1976.3333, 1976.4167, 1976.5, 1976.5833, 1976.6667, 1976.75, 1976.8333, 1976.9167, 1977, 1977.0833, 1977.1667, 1977.25, 1977.3333, 1977.4167, 1977.5, 1977.5833, 1977.6667, 1977.75, 1977.8333, 1977.9167, 1978), .Tsp = c(1976, 1978, 12), class = \'ts\'));floor(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testfloor9() {
+ assertEval("argv <- list(logical(0));floor(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinflush.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinflush.java
new file mode 100644
index 0000000000000000000000000000000000000000..a314050d116b589341b68041ec75febd2cf6332e
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinflush.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinflush extends TestBase {
+
+ @Test
+ @Ignore
+ public void testflush1() {
+ assertEval("argv <- list(structure(1L, class = c(\'terminal\', \'connection\'))); .Internal(flush(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testflush2() {
+ assertEval("argv <- list(structure(2L, class = c(\'terminal\', \'connection\'))); .Internal(flush(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformals.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformals.java
new file mode 100644
index 0000000000000000000000000000000000000000..a0f4e3014b48fe45d28933fcb89824552565d932
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformals.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinformals extends TestBase {
+
+ @Test
+ @Ignore
+ public void testformals1() {
+ assertEval("argv <- list(.Primitive(\'length<-\')); .Internal(formals(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformals2() {
+ assertEval("argv <- list(logical(0)); .Internal(formals(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformals3() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(formals(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformals4() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\')); .Internal(formals(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformat.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformat.java
new file mode 100644
index 0000000000000000000000000000000000000000..ce0d8dc0ab7bcefb3fe3b3c7e207f1a367d66304
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformat.java
@@ -0,0 +1,310 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinformat extends TestBase {
+
+ @Test
+ @Ignore
+ public void testformat1(){
+ assertEval("argv <- list(structure(c(0, 72.7, 56.4, 72.7, 0, 63.3, 56.4, 63.3, 0), .Dim = c(3L, 3L), .Dimnames = list(c(\'Girth\', \'Height\', \'Volume\'), c(\'Girth\', \'Height\', \'Volume\'))), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat2(){
+ assertEval("argv <- list(\'\\\\ab\\\\c\', FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat3(){
+ assertEval("argv <- list(c(\'Inf\', \'-Inf\', \'NaN\', \'NA\'), FALSE, NULL, 0L, 4, 1L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat4(){
+ assertEval("argv <- list(structure(c(\'axx\', \'b\', \'c\', \'d\', \'e\', \'f\', \'g\', \'h\'), .Dim = c(2L, 4L)), FALSE, NULL, 0L, NULL, 1L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat6(){
+ assertEval("argv <- list(structure(c(47.97, 57.9, 74.76, 868.88), .Names = c(\'<none>\', \'- x4\', \'- x2\', \'- x1\')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat7(){
+ assertEval("argv <- list(c(\'a\', \'NA\', NA, \'b\'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat8(){
+ assertEval("argv <- list(NA_real_, FALSE, 4L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testformat9(){
+ assertEval("argv <- list(integer(0), TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testformat10(){
+ assertEval("argv <- list(c(FALSE, NA, TRUE), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat11(){
+ assertEval("argv <- list(structure(c(1L, 2L, 1L), .Dim = 3L, .Dimnames = structure(list(c(\'1\', \'2\', NA)), .Names = \'\')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat12(){
+ assertEval("argv <- list(c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testformat13(){
+ assertEval("argv <- list(c(1L, 2L, 3L, 4L, 5L, -1L, -2L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat14(){
+ assertEval("argv <- list(structure(c(NA, 1, 1, 1), .Names = c(\'<none>\', \'- x4\', \'- x2\', \'- x1\')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat15(){
+ assertEval("argv <- list(2.22044604925031e-16, FALSE, 1, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testformat16(){
+ assertEval("argv <- list(structure(c(1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = \'ts\'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat17(){
+ assertEval("argv <- list(c(2.3e-05, 4.5e-06), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testformat18(){
+ assertEval("argv <- list(c(2L, 4L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testformat19(){
+ assertEval("argv <- list(c(1L, NA, 1L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat20(){
+ assertEval("argv <- list(c(\'abc\', NA, \'def\'), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat23(){
+ assertEval("argv <- list(c(NA, 2L, 4L, 7L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat24(){
+ assertEval("argv <- list(c(1.1+0i, NA, 3+0i), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat25(){
+ assertEval("argv <- list(c(\' 9 \', \' 13 \', \' 13+\', \' 18 \', \' 23 \', \' 28+\', \' 31 \', \' 34 \', \' 45+\', \' 48 \'), TRUE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testformat26(){
+ assertEval("argv <- list(c(172, 88, 88, 55, 92, 92, 72, 72, 63, 63), TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat27(){
+ assertEval("argv <- list(structure(c(142L, 104L, 71L, 250L), .Dim = 4L, .Dimnames = structure(list(c(\'(1) Approve STRONGLY\', \'(2) Approve SOMEWHAT\', \'(3) Disapprove SOMEWHAT\', \'(4) Disapprove STRONGLY\')), .Names = \'\')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat28(){
+ assertEval("argv <- list(structure(c(\'***\', \'*\', \' \', \' \', \' \'), legend = \'0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1\', class = \'noquote\'), FALSE, NULL, 0L, NULL, 0L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat29(){
+ assertEval("argv <- list(structure(c(0, 5, 118, 57, 0, 1, 4, 140, 0, 11, 154, 14, 0, 13, 13, 80, 35, 13, 387, 75, 17, 14, 89, 76, 0, 0, 670, 192, 0, 0, 3, 20), .Dim = c(1L, 32L), row.vars = structure(list(), .Names = character(0)), col.vars = structure(list(Class = c(\'1st\', \'2nd\', \'3rd\', \'Crew\'), Sex = c(\'Male\', \'Female\'), Age = c(\'Child\', \'Adult\'), Survived = c(\'No\', \'Yes\')), .Names = c(\'Class\', \'Sex\', \'Age\', \'Survived\'))), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat30(){
+ assertEval("argv <- list(c(\'\', \'\', \'\\\'Adult\\\'\', \'\\\'No\\\'\', \'\', \'387\'), FALSE, NULL, 0L, NULL, 1L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat31(){
+ assertEval("argv <- list(2.2250738585072e-308, TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat32(){
+ assertEval("argv <- list(c(-0.318309886183791+0i, 0-0.564189583547756i, 1+0i, 0+1.77245385090552i, -3.14159265358979+0i), TRUE, 2, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat33(){
+ assertEval("argv <- list(0+1i, TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat34(){
+ assertEval("argv <- list(structure(c(-Inf, -Inf, -2.248e+263, -Inf, -3.777e+116, -1), .Names = c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testformat35(){
+ assertEval("argv <- list(c(-41L, -36L, -12L, -18L, NA, -28L, -23L, -19L, -8L, NA, -7L, -16L, -11L, -14L, -18L, -14L, -34L, -6L, -30L, -11L, -1L, -11L, -4L, -32L, NA, NA, NA, -23L, -45L, -115L, -37L, NA, NA, NA, NA, NA, NA, -29L, NA, -71L, -39L, NA, NA, -23L, NA, NA, -21L, -37L, -20L, -12L, -13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, -135L, -49L, -32L, NA, -64L, -40L, -77L, -97L, -97L, -85L, NA, -10L, -27L, NA, -7L, -48L, -35L, -61L, -79L, -63L, -16L, NA, NA, -80L, -108L, -20L, -52L, -82L, -50L, -64L, -59L, -39L, -9L, -16L, -78L, -35L, -66L, -122L, -89L, -110L, NA, NA, -44L, -28L, -65L, NA, -22L, -59L, -23L, -31L, -44L, -21L, -9L, NA, -45L, -168L, -73L, NA, -76L, -118L, -84L, -85L, -96L, -78L, -73L, -91L, -47L, -32L, -20L, -23L, -21L, -24L, -44L, -21L, -28L, -9L, -13L, -46L, -18L, -13L, -24L, -16L, -13L, -23L, -36L, -7L, -14L, -30L, NA, -14L, -18L, -20L), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testformat36(){
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'), TRUE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat37(){
+ assertEval("argv <- list(structure(c(213198964, 652424.52183908), .Names = c(\'null.deviance\', \'deviance\')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat38(){
+ assertEval("argv <- list(structure(integer(0), .Dim = c(1L, 0L), row.vars = structure(list(), .Names = character(0)), col.vars = structure(list(df0 = NULL), .Names = \'df0\')), FALSE, 7L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testformat39(){
+ assertEval("argv <- list(FALSE, FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat40(){
+ assertEval("argv <- list(1e-07, TRUE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testformat41(){
+ assertEval("argv <- list(structure(c(3035, 2552, 2704, 2554, 2014, 1655, 1721, 1524, 1596, 2074, 2199, 2512, 2933, 2889, 2938, 2497, 1870, 1726, 1607, 1545, 1396, 1787, 2076, 2837, 2787, 3891, 3179, 2011, 1636, 1580, 1489, 1300, 1356, 1653, 2013, 2823, 3102, 2294, 2385, 2444, 1748, 1554, 1498, 1361, 1346, 1564, 1640, 2293, 2815, 3137, 2679, 1969, 1870, 1633, 1529, 1366, 1357, 1570, 1535, 2491, 3084, 2605, 2573, 2143, 1693, 1504, 1461, 1354, 1333, 1492, 1781, 1915), .Tsp = c(1973, 1978.91666666667, 12), class = \'ts\'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat42(){
+ assertEval("argv <- list(c(2.5, 97.5), TRUE, 3, 0L, NULL, 3L, TRUE, FALSE); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat43(){
+ assertEval("argv <- list(structure(c(9.4, 10.2, 9.2, 4.4, 3.5, 2.7), .Dim = c(3L, 2L), .Dimnames = list(NULL, c(\'Estimate\', \'Std.Err\'))), FALSE, 2, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testformat44(){
+ assertEval("argv <- list(95, 2, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat46(){
+ assertEval("argv <- list(1.2e+07, FALSE, NULL, 9L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat47(){
+ assertEval("argv <- list(-0.01234+3.14159265358979i, FALSE, NULL, 14L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testformat48(){
+ assertEval("argv <- list(c(TRUE, FALSE, TRUE, FALSE, FALSE, FALSE), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat49(){
+ assertEval("argv <- list(3.141, FALSE, NULL, 13L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testformat50(){
+ assertEval("argv <- list(c(Inf, -Inf), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat51(){
+ assertEval("argv <- list(structure(c(2, NA), .Names = c(\'N:P:K\', \'Residuals\')), FALSE, 5L, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat52(){
+ assertEval("argv <- list(structure(\'def\\\'gh\', class = \'AsIs\'), FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat53(){
+ assertEval("argv <- list(structure(4:9, .Dim = c(3L, 2L), .Dimnames = list(NULL, c(\'a\', \'b\'))), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat54(){
+ assertEval("argv <- list(c(NA, NA, NA, NA, NA, \'Ripley\', \'Venables & Smith\'), FALSE, NULL, 0L, NULL, 3L, FALSE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformat55(){
+ assertEval("argv <- list(1e-11, FALSE, NULL, 0L, NULL, 3L, TRUE, NA); .Internal(format(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformatC.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformatC.java
new file mode 100644
index 0000000000000000000000000000000000000000..1af385023a9cfb2ad029fe64c9bb8e9021e7cca5
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformatC.java
@@ -0,0 +1,102 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinformatC extends TestBase {
+
+ @Test
+ @Ignore
+ public void testformatC1() {
+ assertEval("argv <- list(c(3.14159265358979, 3.1415926535898, 1), \'double\', 10, 4L, \'g\', \'\', c(12L, 12L, 12L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatC2() {
+ assertEval("argv <- list(1, \'double\', 8, 5, \'g\', \'-\', 13); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatC3() {
+ assertEval("argv <- list(structure(c(1.5, 13.3414265412268, 1e-15, 8, 1, 500, 28), .Dim = c(7L, 1L), .Dimnames = list(c(\'m.ship.expon.\', \'objective\', \'tolerance\', \'iterations\', \'converged\', \'maxit\', \'n\'), \' \')), \'double\', 8L, 7L, \'g\', \'\', c(15L, 15L, 15L, 15L, 15L, 15L, 15L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatC4() {
+ assertEval("argv <- list(c(1000, 1e+07, 1), \'double\', 5, 4L, \'g\', \'\', c(12L, 12L, 12L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatC5() {
+ assertEval("argv <- list(c(-3, -2, -1, 0, 1, 2, 3), \'double\', 1L, 4L, \'g\', \'\', c(12L, 12L, 12L, 12L, 12L, 12L, 12L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatC6() {
+ assertEval("argv <- list(3L, \'integer\', 3, 2L, \'d\', \'0\', 10L); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatC7() {
+ assertEval("argv <- list(c(0, 25, 50, 75, 100), \'double\', 1, 7L, \'fg\', \'\', c(16L, 15L, 15L, 15L, 15L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatC8() {
+ assertEval("argv <- list(structure(48.4333681840033, .Names = \'value\'), \'double\', 5L, 4L, \'g\', \'\', 12L); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatC9() {
+ assertEval("argv <- list(c(0.0599, 0.00599, 0.000599, 5.99e-05, 5.99e-06, 5.99e-07), \'double\', 3, -2, \'fg\', \'#\', c(10, 11, 12, 13, 14, 15)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatC10() {
+ assertEval("argv <- list(c(20, 30, 40, 50, 60, 70, 80, 90, 100), \'double\', 1, 7L, \'fg\', \'\', c(15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatC11() {
+ assertEval("argv <- list(c(0, 25, 50, 75, 100), \'double\', 1, 6L, \'fg\', \'\', c(14L, 13L, 13L, 13L, 13L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatC12() {
+ assertEval("argv <- list(5L, \'integer\', 2, 2L, \'d\', \'\', 10L); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatC13() {
+ assertEval("argv <- list(c(3.14159265358979e-05, 0.000314159265358979, 0.00314159265358979, 0.0314159265358979, 0.314159265358979, 3.14159265358979, 31.4159265358979, 314.159265358979, 3141.59265358979, 31415.9265358979), \'double\', 5, 4, \'fg\', \'\', c(15, 14, 13, 12, 11, 10, 9, 9, 9, 9)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatC14() {
+ assertEval("argv <- list(structure(c(1962.25, 1962.5, 1962.75, 1963, 1963.25, 1963.5, 1963.75, 1964, 1964.25, 1964.5, 1964.75, 1965, 1965.25, 1965.5, 1965.75, 1966, 1966.25, 1966.5, 1966.75, 1967, 1967.25, 1967.5, 1967.75, 1968, 1968.25, 1968.5, 1968.75, 1969, 1969.25, 1969.5, 1969.75, 1970, 1970.25, 1970.5, 1970.75, 1971, 1971.25, 1971.5, 1971.75), .Tsp = c(1962.25, 1971.75, 4), class = \'ts\'), \'double\', 1, 4L, \'g\', \'\', c(12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L)); .Internal(formatC(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformatPOSIXlt.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformatPOSIXlt.java
new file mode 100644
index 0000000000000000000000000000000000000000..0b71d57fc1f26bda8995126126b97b14753411ae
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformatPOSIXlt.java
@@ -0,0 +1,72 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinformatPOSIXlt extends TestBase {
+
+ @Test
+ @Ignore
+ public void testformatPOSIXlt1() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L), hour = c(0L, 0L, 0L, 0L, 0L), mday = c(1L, 1L, 1L, 1L, 1L), mon = c(0L, 0L, 0L, 0L, 0L), year = 105:109, wday = c(6L, 0L, 1L, 2L, 4L), yday = c(0L, 0L, 0L, 0L, 0L), isdst = c(0L, 0L, 0L, 0L, 0L)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'UTC\'), \'%Y-%m-%d\', FALSE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatPOSIXlt2() {
+ assertEval("argv <- list(structure(list(sec = 10.7712235450745, min = 48L, hour = 14L, mday = 17L, mon = 2L, year = 114L, wday = 1L, yday = 75L, isdst = 1L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = c(\'\', \'EST\', \'EDT\')), \'%Y-%m-%d\', FALSE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatPOSIXlt3() {
+ assertEval("argv <- list(structure(list(sec = 59.7693939208984, min = 47L, hour = 18L, mday = 17L, mon = 2L, year = 114L, wday = 1L, yday = 75L, isdst = 0L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'GMT\'), \'%Y-%m-%d %H:%M:%S\', TRUE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatPOSIXlt4() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(20L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 19L, 19L, 19L, 20L, 20L, 20L, 19L, 20L, 19L, 19L, 19L, 20L), mday = c(30L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 30L, 30L, 30L, 30L, 31L, 31L, 31L, 30L, 30L, 30L, 31L, 30L, 31L, 31L, 31L, 30L), mon = c(5L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 5L, 5L, 5L, 5L, 11L, 11L, 11L, 5L, 5L, 5L, 11L, 5L, 11L, 11L, 11L, 5L), year = c(72L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 81L, 82L, 83L, 85L, 87L, 89L, 90L, 92L, 93L, 94L, 95L, 97L, 98L, 105L, 108L, 112L), wday = c(5L, 0L, 1L, 2L, 3L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 0L, 4L, 0L, 1L, 2L, 3L, 4L, 0L, 1L, 4L, 6L, 3L, 6L), yday = c(181L, 365L, 364L, 364L, 364L, 365L, 364L, 364L, 364L, 180L, 180L, 180L, 180L, 364L, 364L, 364L, 181L, 180L, 180L, 364L, 180L, 364L, 364L, 365L, 181L), isdst = c(1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 1L)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = c(\'\', \'EST\', \'EDT\')), \'%Y-%m-%d %H:%M:%S\', TRUE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatPOSIXlt5() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 19L, mday = 31L, mon = 11L, year = 69L, wday = 3L, yday = 364L, isdst = 0L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = c(\'\', \'EST\', \'EDT\')), \'%Y-%m-%d %H:%M:%S\', TRUE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatPOSIXlt6() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L), hour = c(0L, 0L, 0L, 0L, 0L, 0L), mday = 6:11, mon = 0:5, year = -10:-5, wday = c(1L, 6L, 2L, 0L, 4L, 2L), yday = c(5L, 37L, 67L, 98L, 129L, 161L), isdst = c(0L, 0L, 0L, 0L, 0L, 0L)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'UTC\'), \'%Y\', FALSE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatPOSIXlt7() {
+ assertEval("argv <- list(structure(list(sec = c(0, NA, NA, 0), min = c(0L, NA, NA, 0L), hour = c(0L, NA, NA, 0L), mday = c(1L, NA, NA, 26L), mon = c(0L, NA, NA, 9L), year = c(101L, NA, NA, 104L), wday = c(1L, NA, NA, 2L), yday = c(0L, NA, NA, 299L), isdst = c(0L, -1L, -1L, 0L)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'UTC\'), \'%Y-%m-%d\', FALSE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatPOSIXlt8() {
+ assertEval("argv <- list(structure(list(sec = 11.3034093379974, min = 37L, hour = 7L, mday = 7L, mon = 11L, year = 113L, wday = 6L, yday = 340L, isdst = 0L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = c(\'\', \'EST\', \'EDT\')), \'%H:%M:%OS3\', FALSE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatPOSIXlt9() {
+ assertEval("argv <- list(structure(list(sec = numeric(0), min = integer(0), hour = integer(0), mday = integer(0), mon = integer(0), year = integer(0), wday = integer(0), yday = integer(0), isdst = integer(0)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'UTC\'), \'%Y-%m-%d\', TRUE); .Internal(format.POSIXlt(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformatinfo.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformatinfo.java
new file mode 100644
index 0000000000000000000000000000000000000000..901913038874fcadde991105b108948322325481
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformatinfo.java
@@ -0,0 +1,90 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinformatinfo extends TestBase {
+
+ @Test
+ @Ignore
+ public void testformatinfo1() {
+ assertEval("argv <- list(c(0.099999994, 0.2), 7L, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatinfo2() {
+ assertEval("argv <- list(c(0.099999994, 0.2), 6L, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatinfo3() {
+ assertEval("argv <- list(c(Inf, -Inf), NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatinfo4() {
+ assertEval("argv <- list(FALSE, NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatinfo5() {
+ assertEval("argv <- list(3.14159265358979e-10, NULL, 8); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatinfo6() {
+ assertEval("argv <- list(1e+08, NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatinfo7() {
+ assertEval("argv <- list(1e+222, NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatinfo8() {
+ assertEval("argv <- list(31.4159265358979, NULL, 8); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatinfo9() {
+ assertEval("argv <- list(712L, NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatinfo10() {
+ assertEval("argv <- list(structure(c(2, 0, 0, 0, 0, 1, 0, 0, 0, 0, 3, 0, 6, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Names = c(\'a\', \'b\', \'c\', \'d\', \'e\', \'f\', \'g\', \'h\', \'i\', \'j\', \'k\', \'l\', \'m\', \'n\', \'o\', \'p\', \'q\', \'r\', \'s\', \'t\', \'u\', \'v\', \'w\', \'x\', \'y\')), NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatinfo11() {
+ assertEval("argv <- list(structure(c(-3.14159265358979e-05, 3.14159265358979e-05, -0.000314159265358979, 0.000314159265358979, -0.00314159265358979, 0.00314159265358979, -0.0314159265358979, 0.0314159265358979, -0.314159265358979, 0.314159265358979, -3.14159265358979, 3.14159265358979, -31.4159265358979, 31.4159265358979, -314.159265358979, 314.159265358979, -3141.59265358979, 3141.59265358979, -31415.9265358979, 31415.9265358979, -314159.265358979, 314159.265358979, -1e-05, 1e-05, -1e-04, 1e-04, -0.001, 0.001, -0.01, 0.01, -0.1, 0.1), .Dim = c(2L, 16L)), NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testformatinfo12() {
+ assertEval("argv <- list(c(NaN, NA), NULL, 0L); .Internal(format.info(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuilting.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuilting.java
new file mode 100644
index 0000000000000000000000000000000000000000..f4be602e04ab4b2aa410e8d95e7c8afa1b93c3c9
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuilting.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuilting extends TestBase {
+
+ @Test
+ @Ignore
+ public void testg1() {
+ assertEval("argv <- list(1);g(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingamma.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingamma.java
new file mode 100644
index 0000000000000000000000000000000000000000..a72eecb62c2df3a4468fb49f3ef63cabc47e5eb7
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingamma.java
@@ -0,0 +1,48 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltingamma extends TestBase {
+
+ @Test
+ @Ignore
+ public void testgamma1() {
+ assertEval("argv <- list(c(0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1));gamma(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testgamma2() {
+ assertEval("argv <- list(FALSE);gamma(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testgamma3() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));gamma(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testgamma5() {
+ assertEval("argv <- list(101);gamma(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testgamma6() {
+ assertEval("argv <- list(c(-3.000001, -3, -3, -2.999999, -2.965, -2.93, -2.895, -2.86, -2.825, -2.79, -2.755, -2.72, -2.685, -2.65, -2.615, -2.58, -2.545, -2.51, -2.475, -2.44, -2.405, -2.37, -2.335, -2.3, -2.265, -2.23, -2.195, -2.16, -2.125, -2.09, -2.055, -2.02, -2.000001, -2, -1.999999, -1.985, -1.95, -1.915, -1.88, -1.845, -1.81, -1.775, -1.74, -1.705, -1.67, -1.635, -1.6, -1.565, -1.53, -1.495, -1.46, -1.425, -1.39, -1.355, -1.32, -1.285, -1.25, -1.215, -1.18, -1.145, -1.11, -1.075, -1.04, -1.005, -1.000001, -1, -0.999999, -0.97, -0.935, -0.9, -0.865, -0.83, -0.795, -0.76, -0.725, -0.69, -0.655, -0.62, -0.585, -0.55, -0.515, -0.48, -0.445, -0.41, -0.375, -0.34, -0.305, -0.27, -0.235, -0.2, -0.165, -0.13, -0.0949999999999998, -0.0599999999999996, -0.0249999999999999, -1e-06, 0, 1e-06, 0.0100000000000002, 0.0450000000000004, 0.0800000000000001, 0.115, 0.15, 0.185, 0.22, 0.255, 0.29, 0.325, 0.36, 0.395, 0.43, 0.465, 0.5, 0.535, 0.57, 0.605, 0.640000000000001, 0.675, 0.71, 0.745000000000001, 0.78, 0.815, 0.850000000000001, 0.885, 0.92, 0.955000000000001, 0.99, 1.025, 1.06, 1.095, 1.13, 1.165, 1.2, 1.235, 1.27, 1.305, 1.34, 1.375, 1.41, 1.445, 1.48, 1.515, 1.55, 1.585, 1.62, 1.655, 1.69, 1.725, 1.76, 1.795, 1.83, 1.865, 1.9, 1.935, 1.97, 2.005, 2.04, 2.075, 2.11, 2.145, 2.18, 2.215, 2.25, 2.285, 2.32, 2.355, 2.39, 2.425, 2.46, 2.495, 2.53, 2.565, 2.6, 2.635, 2.67, 2.705, 2.74, 2.775, 2.81, 2.845, 2.88, 2.915, 2.95, 2.985, 3.02, 3.055, 3.09, 3.125, 3.16, 3.195, 3.23, 3.265, 3.3, 3.335, 3.37, 3.405, 3.44, 3.475, 3.51, 3.545, 3.58, 3.615, 3.65, 3.685, 3.72, 3.755, 3.79, 3.825, 3.86, 3.895, 3.93, 3.965, 4));gamma(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingcinfo.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingcinfo.java
new file mode 100644
index 0000000000000000000000000000000000000000..b0a94f77d0035fa8863b0a5f92b1a9846894de13
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingcinfo.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltingcinfo extends TestBase {
+
+ @Test
+ @Ignore
+ public void testgcinfo1() {
+ assertEval("argv <- list(list()); .Internal(gcinfo(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgcinfo2() {
+ assertEval("argv <- list(FALSE); .Internal(gcinfo(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingctorture2.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingctorture2.java
new file mode 100644
index 0000000000000000000000000000000000000000..16ec75d8cdd92aa041882d32112976b3b6d0e67b
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingctorture2.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltingctorture2 extends TestBase {
+
+ @Test
+ @Ignore
+ public void testgctorture21() {
+ assertEval("argv <- list(NULL, NULL, FALSE); .Internal(gctorture2(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgctorture22() {
+ assertEval("argv <- list(FALSE, FALSE, FALSE); .Internal(gctorture2(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingetConnection.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingetConnection.java
new file mode 100644
index 0000000000000000000000000000000000000000..75968c918fc53ab3cc17e4e1cc5f1e56b06e45a5
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingetConnection.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltingetConnection extends TestBase {
+
+ @Test
+ @Ignore
+ public void testgetConnection1() {
+ assertEval("argv <- list(FALSE); .Internal(getConnection(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingetRestart.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingetRestart.java
new file mode 100644
index 0000000000000000000000000000000000000000..955d06341cff0fb190aca0e74be518e184ac8554
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingetRestart.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltingetRestart extends TestBase {
+
+ @Test
+ @Ignore
+ public void testgetRestart1() {
+ assertEval("argv <- list(2L); .Internal(.getRestart(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgetRestart2() {
+ assertEval("argv <- list(1L); .Internal(.getRestart(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingetSymbolInfo.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingetSymbolInfo.java
new file mode 100644
index 0000000000000000000000000000000000000000..7a745e5cbd6f1febd861684c1440110f05f11fa4
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingetSymbolInfo.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltingetSymbolInfo extends TestBase {
+
+ @Test
+ @Ignore
+ public void testgetSymbolInfo1() {
+ assertEval("argv <- list(\'FALSE\', \'\', FALSE); .Internal(getSymbolInfo(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingetconst.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingetconst.java
new file mode 100644
index 0000000000000000000000000000000000000000..343fd9d1b482b70ddad2a7a54243ece9c4131385
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingetconst.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltingetconst extends TestBase {
+
+ @Test
+ @Ignore
+ public void testgetconst1() {
+ assertEval("argv <- list(list(list(), NULL), 1); .Internal(getconst(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgetconst2() {
+ assertEval("argv <- list(list(FALSE), 1); .Internal(getconst(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingettext.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingettext.java
new file mode 100644
index 0000000000000000000000000000000000000000..b6f68c73beb42afcd09e774fa5b89f0b74c30080
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingettext.java
@@ -0,0 +1,50 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltingettext extends TestBase {
+
+ @Test
+ public void testgettext1() {
+ assertEval("argv <- list(NULL, \'Loading required package: %s\'); .Internal(gettext(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testgettext2() {
+ assertEval("argv <- list(NULL, \'\'); .Internal(gettext(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgettext3() {
+ assertEval("argv <- list(NULL, \'The following object is masked from ‘package:base’:\\n\\n det\\n\'); .Internal(gettext(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testgettext4() {
+ assertEval("argv <- list(NULL, c(\'/\', \' not meaningful for factors\')); .Internal(gettext(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testgettext5() {
+ assertEval("argv <- list(NULL, character(0)); .Internal(gettext(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgettext6() {
+ assertEval("argv <- list(NULL, NULL); .Internal(gettext(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingregexpr.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingregexpr.java
new file mode 100644
index 0000000000000000000000000000000000000000..50f89275567e4d5099458eb5a37a319edd202e97
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingregexpr.java
@@ -0,0 +1,89 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltingregexpr extends TestBase {
+
+ @Test
+ @Ignore
+ public void testgregexpr1() {
+ assertEval("argv <- list(\'\', \'abc\', FALSE, FALSE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgregexpr2() {
+ assertEval("argv <- list(\'[^\\\\.\\\\w:?$@[\\\\]]+\', \'version$m\', FALSE, TRUE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgregexpr3() {
+ assertEval("argv <- list(\'$\', \'version$m\', FALSE, FALSE, TRUE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgregexpr4() {
+ assertEval("argv <- list(\'éè\', \'«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè\', FALSE, FALSE, TRUE, TRUE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgregexpr5() {
+ assertEval("argv <- list(\'\', \'abc\', FALSE, TRUE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgregexpr6() {
+ assertEval("argv <- list(\'\', \'abc\', FALSE, FALSE, TRUE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgregexpr7() {
+ assertEval("argv <- list(\'éè\', \'«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè\', TRUE, FALSE, FALSE, TRUE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ public void testgregexpr8() {
+ assertEval("argv <- list(\'[[:space:]]?(,|,?[[:space:]]and)[[:space:]]+\', character(0), FALSE, FALSE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgregexpr9() {
+ assertEval("argv <- list(\'\\\\[[^]]*\\\\]\', \'FALSE\', FALSE, FALSE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgregexpr10() {
+ assertEval("argv <- list(\'(?<first>[[:upper:]][[:lower:]]+) (?<last>[[:upper:]][[:lower:]]+)\', c(\' Ben Franklin and Jefferson Davis\', \'\\tMillard Fillmore\'), FALSE, TRUE, FALSE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgregexpr11() {
+ assertEval("argv <- list(\'?\', \'utils::data\', FALSE, FALSE, TRUE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgregexpr12() {
+ assertEval("argv <- list(\'[[\', \'utils:::.show_help_on_topic_\', FALSE, FALSE, TRUE, FALSE); .Internal(gregexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingrep.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingrep.java
new file mode 100644
index 0000000000000000000000000000000000000000..1f5d7cb910fc0a1b4b658674dcb6c454ec54aba4
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingrep.java
@@ -0,0 +1,82 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltingrep extends TestBase {
+
+ @Test
+ @Ignore
+ public void testgrep1() {
+ assertEval("argv <- list(\'|\', \'wool\', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgrep2() {
+ assertEval("argv <- list(\'éè\', \'«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè\', TRUE, FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgrep3() {
+ assertEval("argv <- list(\'[\', \'^\\\\.__[MT]\', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgrep4() {
+ assertEval("argv <- list(\'éè\', \'«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè\', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgrep5() {
+ assertEval("argv <- list(\'[\', \'^[[:alpha:]]+\', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgrep6() {
+ assertEval("argv <- list(\'.__T__[:\', c(\'.__T__plot:graphics\', \'.__T__$:base\', \'.__T__$<-:base\', \'.__T__Arith:base\', \'.__T__Compare:methods\', \'.__T__Complex:base\', \'.__T__Logic:base\', \'.__T__Math2:methods\', \'.__T__Math:base\', \'.__T__Ops:base\', \'.__T__Summary:base\', \'.__T__[:base\', \'.__T__addNextMethod:methods\', \'.__T__body<-:base\', \'.__T__cbind2:methods\', \'.__T__coerce:methods\', \'.__T__coerce<-:methods\', \'.__T__initialize:methods\', \'.__T__kronecker:base\', \'.__T__loadMethod:methods\', \'.__T__rbind2:methods\', \'.__T__show:methods\', \'.__T__slotsFromS3:methods\'), FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgrep7() {
+ assertEval("argv <- list(\''\', structure(\'exNSS4_1.0.tar.gz\', .Names = \'\'), FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testgrep9() {
+ assertEval("argv <- list(\'^[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789]\', \'all.R\', FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgrep10() {
+ assertEval("argv <- list(\'-package$\', structure(c(\'bkde\', \'bkde2D\', \'bkfe\', \'dpih\', \'dpik\', \'dpill\', \'locpoly\'), .Names = c(\'/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/bkde.tex\', \'/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/bkde2D.tex\', \'/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/bkfe.tex\', \'/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/dpih.tex\', \'/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/dpik.tex\', \'/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/dpill.tex\', \'/home/lzhao/tmp/RtmphvE7Uy/ltxf49c4960bf/locpoly.tex\')), FALSE, FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgrep11() {
+ assertEval("argv <- list(\'.__T__unname:\', c(\'.__T__!:base\', \'.__T__%%:base\', \'.__T__%*%:base\', \'.__T__%/%:base\', \'.__T__&:base\', \'.__T__*:base\', \'.__T__+:base\', \'.__T__-:base\', \'.__T__/:base\', \'.__T__Arith:base\', \'.__T__BunchKaufman:Matrix\', \'.__T__Cholesky:Matrix\', \'.__T__Compare:methods\', \'.__T__Logic:base\', \'.__T__Math2:methods\', \'.__T__Math:base\', \'.__T__Ops:base\', \'.__T__Schur:Matrix\', \'.__T__Summary:base\', \'.__T__[:base\', \'.__T__[<-:base\', \'.__T__^:base\', \'.__T__all.equal:base\', \'.__T__all:base\', \'.__T__any:base\', \'.__T__as.array:base\', \'.__T__as.integer:base\', \'.__T__as.logical:base\', \'.__T__as.matrix:base\', \'.__T__as.numeric:base\', \'.__T__as.vector:base\', \'.__T__band:Matrix\', \'.__T__cbind2:methods\', \'.__T__chol2inv:base\', \'.__T__chol:base\', \'.__T__coerce:methods\', \'.__T__coerce<-:methods\', \'.__T__colMeans:base\', \'.__T__colSums:base\', \'.__T__cov2cor:stats\', \'.__T__crossprod:base\', \'.__T__determinant:base\', \'.__T__diag:base\', \'.__T__diag<-:base\', \'.__T__diff:base\', \'.__T__dim:base\', \'.__T__dim<-:base\', \'.__T__dimnames:base\', \'.__T__dimnames<-:base\', \'.__T__drop:base\', \'.__T__expand:Matrix\', \'.__T__expm:Matrix\', \'.__T__facmul:Matrix\', \'.__T__forceSymmetric:Matrix\', \'.__T__format:base\', \'.__T__head:utils\', \'.__T__image:graphics\', \'.__T__initialize:methods\', \'.__T__is.finite:base\', \'.__T__is.infinite:base\', \'.__T__is.na:base\', \'.__T__isDiagonal:Matrix\', \'.__T__isSymmetric:base\', \'.__T__isTriangular:Matrix\', \'.__T__kronecker:base\', \'.__T__length:base\', \'.__T__lu:Matrix\', \'.__T__mean:base\', \'.__T__nnzero:Matrix\', \'.__T__norm:base\', \'.__T__pack:Matrix\', \'.__T__print:base\', \'.__T__prod:base\', \'.__T__qr.Q:base\', \'.__T__qr.R:base\', \'.__T__qr.coef:base\', \'.__T__qr.fitted:base\', \'.__T__qr.qty:base\', \'.__T__qr.qy:base\', \'.__T__qr.resid:base\', \'.__T__qr:base\', \'.__T__rbind2:methods\', \'.__T__rcond:base\', \'.__T__rep:base\', \'.__T__rowMeans:base\', \'.__T__rowSums:base\', \'.__T__show:methods\', \'.__T__skewpart:Matrix\', \'.__T__solve:base\', \'.__T__sum:base\', \'.__T__summary:base\', \'.__T__symmpart:Matrix\', \'.__T__t:base\', \'.__T__tail:utils\', \'.__T__tcrossprod:base\', \'.__T__toeplitz:stats\', \'.__T__tril:Matrix\', \'.__T__triu:Matrix\', \'.__T__unname:base\', \'.__T__unpack:Matrix\', \'.__T__update:stats\', \'.__T__updown:Matrix\', \'.__T__which:base\', \'.__T__writeMM:Matrix\', \'.__T__zapsmall:base\'), FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testgrep12() {
+ assertEval("argv <- list(\'^[[:blank:]]*$\', \'mtext(\\\'«Latin-1 accented chars»: éè øØ å<Å æ<Æ\\\', side = 3)\', FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grep(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingrepl.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingrepl.java
new file mode 100644
index 0000000000000000000000000000000000000000..171aa95a8638b18fcc929851b83c6f2ed0bde2b9
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingrepl.java
@@ -0,0 +1,75 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltingrepl extends TestBase {
+
+ @Test
+ public void testgrepl1() {
+ assertEval("argv <- list(\'([[:digit:]]+[.-]){1,}[[:digit:]]+\', c(\'1.0\', \'1.0\'), FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgrepl3() {
+ assertEval("argv <- list(\'\\n\', structure(\'c(person(\\\'José\\\', \\\'Pinheiro\\\', role = \\\'aut\\\',\\n comment = \\\'S version\\\'),\\n person(\\\'Douglas\\\', \\\'Bates\\\', role = \\\'aut\\\',\\n comment = \\\'up to 2007\\\'),\\n person(\\\'Saikat\\\', \\\'DebRoy\\\', role = \\\'ctb\\\',\\n comment = \\\'up to 2002\\\'),\\n person(\\\'Deepayan\\\', \\\'Sarkar\\\', role = \\\'ctb\\\',\\n comment = \\\'up to 2005\\\'),\\n\\t person(\\\'R-core\\\', email = \\\'R-core@R-project.org\\\',\\n role = c(\\\'aut\\\', \\\'cre\\\')),\\n person(\\\'EISPACK authors\\\', role = \\\'ctb\\\'))\', .Names = \'Authors@R\'), FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testgrepl4() {
+ assertEval("argv <- list(\'([[:digit:]]+[.-]){1,}[[:digit:]]+\', structure(\'7.3-26\', .Names = \'Version\'), FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgrepl5() {
+ assertEval("argv <- list(\'\\n\', c(\'### Encoding: UTF-8\', \'\', \'### Name: text\', \'### Title: Add Text to a Plot\', \'### Aliases: text text.default\', \'### Keywords: aplot\', \'\', \'### ** Examples\', \'\', \'plot(-1:1, -1:1, type = \\\'n\\\', xlab = \\\'Re\\\', ylab = \\\'Im\\\')\', \'K <- 16; text(exp(1i * 2 * pi * (1:K) / K), col = 2)\', \'\', \'## The following two examples use latin1 characters: these may not\', \'## appear correctly (or be omitted entirely).\', \'plot(1:10, 1:10, main = \\\'text(...) examples\\\\n~~~~~~~~~~~~~~\\\',\', \' sub = \\\'R is GNU ©, but not ® ...\\\')\', \'mtext(\\\'«Latin-1 accented chars»: éè øØ å<Å æ<Æ\\\', side = 3)\', \'points(c(6,2), c(2,1), pch = 3, cex = 4, col = \\\'red\\\')\', \'text(6, 2, \\\'the text is CENTERED around (x,y) = (6,2) by default\\\',\', \' cex = .8)\', \'text(2, 1, \\\'or Left/Bottom - JUSTIFIED at (2,1) by 'adj = c(0,0)'\\\',\', \' adj = c(0,0))\', \'text(4, 9, expression(hat(beta) == (X^t * X)^{-1} * X^t * y))\', \'text(4, 8.4, \\\'expression(hat(beta) == (X^t * X)^{-1} * X^t * y)\\\',\', \' cex = .75)\', \'text(4, 7, expression(bar(x) == sum(frac(x[i], n), i==1, n)))\', \'\', \'## Two more latin1 examples\', \'text(5, 10.2,\', \' \\\'Le français, c'est façile: Règles, Liberté, Egalité, Fraternité...\\\')\', \'text(5, 9.8,\', \' \\\'Jetz no chli züritüütsch: (noch ein bißchen Zürcher deutsch)\\\')\', \'\', \'\', \'\'), FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgrepl6() {
+ assertEval("argv <- list(\'x\', \'x\', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgrepl7() {
+ assertEval("argv <- list(\'^[[:space:]]*## No test:\', \'Diagonal(3)\', FALSE, FALSE, TRUE, FALSE, TRUE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgrepl8() {
+ assertEval("argv <- list(\'\\\\\\\\keyword\\\\{\\\\s*internal\\\\s*\\\\}\', c(\'\\\\inputencoding{utf8}\', \'\\\\HeaderA{condest}{Compute Approximate CONDition number and 1-Norm of (Large) Matrices}{condest}\', \'\\\\aliasA{onenormest}{condest}{onenormest}\', \'%\', \'\\\\begin{Description}\\\\relax\', \'``Estimate'', i.e. compute approximately the CONDition number of\', \'a (potentially large, often sparse) matrix \\\\code{A}.\', \'It works by apply a fast approximation of the 1-norm,\', \'\\\\code{norm(A,\\\'1\\\')}, through \\\\code{onenormest(.)}.\', \'\\\\end{Description}\', \'%\', \'\\\\begin{Usage}\', \'\\\\begin{verbatim}\', \'condest(A, t = min(n, 5), normA = norm(A, \\\'1\\\'),\', \' silent = FALSE, quiet = TRUE)\', \'\', \'onenormest(A, t = min(n, 5), A.x, At.x, n,\', \' silent = FALSE, quiet = silent,\', \' iter.max = 10, eps = 4 * .Machine$double.eps)\', \'\\\\end{verbatim}\', \'\\\\end{Usage}\', \'%\', \'\\\\begin{Arguments}\', \'\\\\begin{ldescription}\', \'\\\\item[\\\\code{A}] a square matrix, optional for \\\\code{onenormest()}, where\', \'instead of \\\\code{A}, \\\\code{A.x} and \\\\code{At.x} can be specified,\', \'see there.\', \'\\\\item[\\\\code{t}] number of columns to use in the iterations.\', \'\\\\item[\\\\code{normA}] number; (an estimate of) the 1-norm of \\\\code{A}, by\', \'default \\\\code{\\\\LinkA{norm}{norm}(A, \\\'1\\\')}; may be replaced by an estimate.\', \'\\\\item[\\\\code{silent}] logical indicating if warning and (by default)\', \'convergence messages should be displayed.\', \'\\\\item[\\\\code{quiet}] logical indicating if convergence messages should be\', \'displayed.\', \'\\\\item[\\\\code{A.x, At.x}] when \\\\code{A} is missing, these two must be given as\', \'functions which compute \\\\code{A \\\\%\\\\% x}, or \\\\code{t(A) \\\\%\\\\% x},\', \'respectively.\', \'\\\\item[\\\\code{n}] \\\\code{ == nrow(A)}, only needed when \\\\code{A} is not specified.\', \'\\\\item[\\\\code{iter.max}] maximal number of iterations for the 1-norm estimator.\', \'\\\\item[\\\\code{eps}] the relaive change that is deemed irrelevant.\', \'\\\\end{ldescription}\', \'\\\\end{Arguments}\', \'%\', \'\\\\begin{Value}\', \'Both functions return a \\\\code{\\\\LinkA{list}{list}};\', \'\\\\code{onenormest()} with components,\', \'\\\\begin{ldescription}\', \'\\\\item[\\\\code{est}] a number \\\\eqn{> 0}{}, the estimated \\\\code{norm(A, \\\'1\\\')}.\', \'\\\\item[\\\\code{v}] the maximal \\\\eqn{A X}{} column.\', \'\', \'\\\\end{ldescription}\', \'The function \\\\code{condest()} returns a list with components,\', \'\\\\begin{ldescription}\', \'\\\\item[\\\\code{est}] a number \\\\eqn{> 0}{}, the estimated condition number\', \'\\\\eqn{\\\\hat\\\\kappa}{}; when \\\\eqn{r :=}{}\\\\code{rcond(A)},\', \'\\\\eqn{1/\\\\hat\\\\kappa \\\\approx r}{}.\', \'\\\\item[\\\\code{v}] integer vector length \\\\code{n}, with an \\\\code{1} at the index\', \'\\\\code{j} with maximal column \\\\code{A[,j]} in \\\\eqn{A}{}.\', \'\\\\item[\\\\code{w}] numeric vector, the largest \\\\eqn{A x}{} found.\', \'\\\\item[\\\\code{iter}] the number of iterations used.\', \'\\\\end{ldescription}\', \'\\\\end{Value}\', \'%\', \'\\\\begin{Author}\\\\relax\', \'This is based on octave's \\\\code{condest()} and\', \'\\\\code{onenormest()} implementations with original author\', \'Jason Riedy, U Berkeley; translation to \\\\R{} and\', \'adaption by Martin Maechler.\', \'\\\\end{Author}\', \'%\', \'\\\\begin{References}\\\\relax\', \'\', \'Nicholas J. Higham and Fran\\303\\247oise Tisseur (2000).\', \'A Block Algorithm for Matrix 1-Norm Estimation, with an Application to 1-Norm\', \'Pseudospectra.\', \'\\\\emph{SIAM J. Matrix Anal. Appl.} \\\\bold{21}, 4, 1185--1201.\', \'\\\\url{http://dx.doi.org/10.1137/S0895479899356080}\', \'\', \'\', \'William W. Hager (1984).\', \'Condition Estimates.\', \'\\\\emph{SIAM J. Sci. Stat. Comput.} \\\\bold{5}, 311--316.\', \'\\\\end{References}\', \'%\', \'\\\\begin{SeeAlso}\\\\relax\', \'\\\\code{\\\\LinkA{norm}{norm}}, \\\\code{\\\\LinkA{rcond}{rcond}}.\', \'\\\\end{SeeAlso}\', \'%\', \'\\\\begin{Examples}\', \'\\\\begin{ExampleCode}\', \'data(KNex)\', \'mtm <- with(KNex, crossprod(mm))\', \'system.time(ce <- condest(mtm))\', \'## reciprocal\', \'1 / ce$est\', \'system.time(rc <- rcond(mtm)) # takes ca 3 x longer\', \'rc\', \'all.equal(rc, 1/ce$est) # TRUE -- the approxmation was good\', \'\\\\end{ExampleCode}\', \'\\\\end{Examples}\'), FALSE, FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgrepl9() {
+ assertEval("argv <- list(\'\\n\', \'\\nqr(x, ...)\\nqrR(qr, complete=FALSE, backPermute=TRUE)\\n\', FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgrepl10() {
+ assertEval("argv <- list(\'{refObject}\', c(\'\\\\section{Extends}{\', \'Class \\\\code{\\\'\\\\linkS4class{refClassA}\\\'}, directly.\', \'Class \\\\code{\\\'\\\\linkS4class{envRefClass}\\\'}, by class \\\'refClassA\\\', distance 2.\', \'Class \\\\code{\\\'\\\\linkS4class{.environment}\\\'}, by class \\\'refClassA\\\', distance 3.\', \'Class \\\\code{\\\'\\\\linkS4class{refClass}\\\'}, by class \\\'refClassA\\\', distance 3.\', \'Class \\\\code{\\\'\\\\linkS4class{environment}\\\'}, by class \\\'refClassA\\\', distance 4, with explicit coerce.\', \'Class \\\\code{\\\'\\\\linkS4class{refObject}\\\'}, by class \\\'refClassA\\\', distance 4.\', \'}\'), FALSE, FALSE, FALSE, TRUE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ public void testgrepl11() {
+ assertEval("argv <- list(\'^prepare_Rd\', structure(character(0), class = \'checkRd\'), FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(grepl(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingrowconst.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingrowconst.java
new file mode 100644
index 0000000000000000000000000000000000000000..3755c6eb75b9de91bbbc734739699b07989a2d79
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingrowconst.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltingrowconst extends TestBase {
+
+ @Test
+ @Ignore
+ public void testgrowconst1() {
+ assertEval("argv <- list(list(list())); .Internal(growconst(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingsub.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingsub.java
new file mode 100644
index 0000000000000000000000000000000000000000..9df6012179454c4b9bef3890cf4169c4896d53e1
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingsub.java
@@ -0,0 +1,184 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltingsub extends TestBase {
+
+ @Test
+ public void testgsub1() {
+ assertEval("argv <- list(\'([[:alnum:]])--([[:alnum:]])\', \'\\\\1-\\\\2\', \'Date-Time Classes\', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub2() {
+ assertEval("argv <- list(\'\\\\\\\\(link|var)\\\\{([^}]+)\\\\}\', \'\\\\2\', structure(\' \\\'Jetz no chli züritüütsch: (noch ein bißchen Zürcher deutsch)\\\')\\n\', Rd_tag = \'RCODE\'), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub3() {
+ assertEval("argv <- list(\'\\\\bsl\', \'\\\\bsl{}\', structure(\' knots).\\n\', Rd_tag = \'TEXT\'), FALSE, FALSE, TRUE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub4() {
+ assertEval("argv <- list(\'\\\\bsl\', \'\\\\bsl{}\', structure(\' \', Rd_tag = \'TEXT\'), FALSE, FALSE, TRUE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub5() {
+ assertEval("argv <- list(\'([{}$#_])\', \'\\\\\\\\\\\\1\', structure(\'2013-03-19 13:18:58\', .Names = \'Date/Publication\'), FALSE, FALSE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub6() {
+ assertEval("argv <- list(\'é\', \'gh\', \'«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè\', FALSE, FALSE, TRUE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub7() {
+ assertEval("argv <- list(\'([&$%_#])\', \'\\\\\\\\\\\\1\', structure(\', then \', Rd_tag = \'TEXT\'), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub8() {
+ assertEval("argv <- list(\''([^']*)'\', \'‘\\\\1’\', \'‘/home/lzhao/hg/r-instrumented/tests/rpart.Rcheck’\', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub9() {
+ assertEval("argv <- list(\'\\\\\', \'\\\\bsl\', structure(\'range specified by \', Rd_tag = \'TEXT\'), FALSE, FALSE, TRUE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub10() {
+ assertEval("argv <- list(\'a*\', \'x\', \'baaac\', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub11() {
+ assertEval("argv <- list(\'é\', \'gh\', \'«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè\', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testgsub12() {
+ assertEval("argv <- list(\'([[:digit:]]+[.-]){1,}[[:digit:]]+\', \'\', \'pkgB_1.0.tar.gz\', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub13() {
+ assertEval("argv <- list(\'\\\\b\', \'|\', \'The quick brown èé\', FALSE, TRUE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub14() {
+ assertEval("argv <- list(\'/home/lzhao/hg/r-instrumented/src/library/utils\', \'\', \'/home/lzhao/hg/r-instrumented/src/library/utils/vignettes\', FALSE, FALSE, TRUE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub15() {
+ assertEval("argv <- list(\'(‘|’)\', \''\', c(\'\', \'\', \'> library(survival)\', \'Loading required package: splines\', \'> options(na.action=na.exclude) # preserve missings\', \'> options(contrasts=c('contr.treatment', 'contr.poly')) #ensure constrast type\', \'> \', \'> #\', \'> # Simple tests of concordance. These numbers were derived in multiple\', \'> # codes.\', \'> #\', \'> aeq <- function(x,y, ...) all.equal(as.vector(x), as.vector(y), ...)\', \'> \', \'> grank <- function(x, time, grp, wt) \', \'+ unlist(tapply(x, grp, rank))\', \'> grank2 <- function(x, time, grp, wt) { #for case weights\', \'+ if (length(wt)==0) wt <- rep(1, length(x))\', \'+ z <- double(length(x))\', \'+ for (i in unique(grp)) {\', \'+ indx <- which(grp==i)\', \'+ temp <- tapply(wt[indx], x[indx], sum)\', \'+ temp <- temp/2 + c(0, cumsum(temp)[-length(temp)])\', \'+ z[indx] <- temp[match(x[indx], names(temp))]\', \'+ }\', \'+ z\', \'+ }\', \'> \', \'> \', \'> tdata <- aml[aml$x=='Maintained',]\', \'> tdata$y <- c(1,6,2,7,3,7,3,8,4,4,5)\', \'> tdata$wt <- c(1,2,3,2,1,2,3,4,3,2,1)\', \'> fit <- survConcordance(Surv(time, status) ~y, tdata)\', \'> aeq(fit$stats[1:4], c(14,24,2,0))\', \'[1] TRUE\', \'> cfit <- coxph(Surv(time, status) ~ tt(y), tdata, tt=grank, method='breslow',\', \'+ iter=0, x=T)\', \'> cdt <- coxph.detail(cfit)\', \'> aeq(4*sum(cdt$imat),fit$stats[5]^2) \', \'[1] TRUE\', \'> aeq(2*sum(cdt$score), diff(fit$stats[2:1]))\', \'[1] TRUE\', \'> \', \'> \', \'> # Lots of ties\', \'> tempx <- Surv(c(1,2,2,2,3,4,4,4,5,2), c(1,0,1,0,1,0,1,1,0,1))\', \'> tempy <- c(5,5,4,4,3,3,7,6,5,4)\', \'> fit2 <- survConcordance(tempx ~ tempy)\', \'> aeq(fit2$stats[1:4], c(13,13,5,2))\', \'[1] TRUE\', \'> cfit2 <- coxph(tempx ~ tt(tempy), tt=grank, method='breslow', iter=0)\', \'> aeq(4/cfit2$var, fit2$stats[5]^2)\', \'[1] TRUE\', \'> \', \'> # Bigger data\', \'> fit3 <- survConcordance(Surv(time, status) ~ age, lung)\', \'> aeq(fit3$stats[1:4], c(10717, 8706, 591, 28))\', \'[1] TRUE\', \'> cfit3 <- coxph(Surv(time, status) ~ tt(age), lung, \', \'+ iter=0, method='breslow', tt=grank, x=T)\', \'> cdt <- coxph.detail(cfit3)\', \'> aeq(4*sum(cdt$imat),fit3$stats[5]^2) \', \'[1] TRUE\', \'> aeq(2*sum(cdt$score), diff(fit3$stats[2:1]))\', \'[1] TRUE\', \'> \', \'> \', \'> # More ties\', \'> fit4 <- survConcordance(Surv(time, status) ~ ph.ecog, lung)\', \'> aeq(fit4$stats[1:4], c(8392, 4258, 7137, 28))\', \'[1] TRUE\', \'> cfit4 <- coxph(Surv(time, status) ~ tt(ph.ecog), lung, \', \'+ iter=0, method='breslow', tt=grank)\', \'> aeq(4/cfit4$var, fit4$stats[5]^2)\', \'[1] TRUE\', \'> \', \'> # Case weights\', \'> fit5 <- survConcordance(Surv(time, status) ~ y, tdata, weight=wt)\', \'> fit6 <- survConcordance(Surv(time, status) ~y, tdata[rep(1:11,tdata$wt),])\', \'> aeq(fit5$stats[1:4], c(70, 91, 7, 0)) # checked by hand\', \'[1] TRUE\', \'> aeq(fit5$stats[1:3], fit6$stats[1:3]) #spurious \\\'tied on time\\\' value, ignore\', \'[1] TRUE\', \'> aeq(fit5$std, fit6$std)\', \'[1] TRUE\', \'> cfit5 <- coxph(Surv(time, status) ~ tt(y), tdata, weight=wt, \', \'+ iter=0, method='breslow', tt=grank2)\', \'> cfit6 <- coxph(Surv(time, status) ~ tt(y), tdata[rep(1:11,tdata$wt),], \', \'+ iter=0, method='breslow', tt=grank)\', \'> aeq(4/cfit6$var, fit6$stats[5]^2)\', \'[1] TRUE\', \'> aeq(cfit5$var, cfit6$var)\', \'[1] TRUE\', \'> \', \'> # Start, stop simplest cases\', \'> fit7 <- survConcordance(Surv(rep(0,11), time, status) ~ y, tdata)\', \'> aeq(fit7$stats, fit$stats)\', \'[1] TRUE\', \'> aeq(fit7$std.err, fit$std.err)\', \'[1] TRUE\', \'> fit7 <- survConcordance(Surv(rep(0,11), time, status) ~ y, tdata, weight=wt)\', \'> aeq(fit5$stats, fit7$stats)\', \'[1] TRUE\', \'> \', \'> # Multiple intervals for some, but same risk sets as tdata\', \'> tdata2 <- data.frame(time1=c(0,3, 5, 6,7, 0, 4,17, 7, 0,16, 2, 0, \', \'+ 0,9, 5),\', \'+ time2=c(3,9, 13, 7,13, 18, 17,23, 28, 16,31, 34, 45, \', \'+ 9,48, 60),\', \'+ status=c(0,1, 1, 0,0, 1, 0,1, 0, 0,1, 1, 0, 0,1, 0),\', \'+ y = c(1,1, 6, 2,2, 7, 3,3, 7, 3,3, 8, 4, 4,4, 5),\', \'+ wt= c(1,1, 2, 3,3, 2, 1,1, 2, 3,3, 4, 3, 2,2, 1))\', \'> fit8 <- survConcordance(Surv(time1, time2, status) ~y, tdata2, weight=wt)\', \'> aeq(fit5$stats, fit8$stats)\', \'[1] TRUE\', \'> aeq(fit5$std.err, fit8$std.err)\', \'[1] TRUE\', \'> cfit8 <- coxph(Surv(time1, time2, status) ~ tt(y), tdata2, weight=wt, \', \'+ iter=0, method='breslow', tt=grank2)\', \'> aeq(4/cfit8$var, fit8$stats[5]^2)\', \'[1] TRUE\', \'> aeq(fit8$stats[5]/(2*sum(fit8$stats[1:3])), fit8$std.err)\', \'[1] TRUE\', \'> \', \'> # Stratified\', \'> tdata3 <- data.frame(time1=c(tdata2$time1, rep(0, nrow(lung))),\', \'+ time2=c(tdata2$time2, lung$time),\', \'+ status = c(tdata2$status, lung$status -1),\', \'+ x = c(tdata2$y, lung$ph.ecog),\', \'+ wt= c(tdata2$wt, rep(1, nrow(lung))),\', \'+ grp=rep(1:2, c(nrow(tdata2), nrow(lung))))\', \'> fit9 <- survConcordance(Surv(time1, time2, status) ~x + strata(grp),\', \'+ data=tdata3, weight=wt)\', \'> aeq(fit9$stats[1,], fit5$stats)\', \'[1] TRUE\', \'> aeq(fit9$stats[2,], fit4$stats)\', \'[1] TRUE\', \'> \'), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub16() {
+ assertEval("argv <- list(\'[[:blank:][:cntrl:]]*\', \'\', structure(\' unix\\n\', Rd_tag = \'TEXT\'), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub17() {
+ assertEval("argv <- list(\'(\\\\w)(\\\\w*)\', \'\\\\U\\\\1\\\\L\\\\2\', \'a test of capitalizing\', FALSE, TRUE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub18() {
+ assertEval("argv <- list(\'\\\\.\', \'\\\\\\\\.\', \'^*.t??$\', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub19() {
+ assertEval("argv <- list(\'(\\\\w)(\\\\w*)(\\\\w)\', \'\\\\U\\\\1\\\\E\\\\2\\\\U\\\\3\', \'useRs may fly into JFK or laGuardia\', FALSE, TRUE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub20() {
+ assertEval("argv <- list(\'([&$%_#])\', \'\\\\\\\\\\\\1\', structure(\'with 5% of the range added to each end.\\n\', Rd_tag = \'TEXT\'), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub21() {
+ assertEval("argv <- list(\'[[:space:]]*%+[[:space:]]*\\\\\\\\VignetteEngine\\\\{([^}]*)\\\\}\', \'\\\\1\', character(0), FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub22() {
+ assertEval("argv <- list(\'^\\\\s+\', \'\', \' utilities \', FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub23() {
+ assertEval("argv <- list(\'([^\\\\])\\\\[\', \'\\\\1\\\\\\\\[\', \'^.*[.*$\', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub24() {
+ assertEval("argv <- list(\'.__M__(.*):([^:]+)\', \'\\\\1\', character(0), FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub25() {
+ assertEval("argv <- list(\'%\', \'\\\\\\\\%\', structure(\'foo\', .Names = \'object\'), FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub26() {
+ assertEval("argv <- list(\'\\\\\\\\(l|)dots\', \'...\', structure(\'plot(1:10, 1:10, main = \\\'text(...) examples\\\\n~~~~~~~~~~~~~~\\\',\\n\', Rd_tag = \'RCODE\'), FALSE, TRUE, FALSE, TRUE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub27() {
+ assertEval("argv <- list(\'.__T__(.*):([^:]+(.*))\', \'\\\\2\', c(\'.__T__!:base\', \'.__T__%%:base\', \'.__T__%*%:base\', \'.__T__%/%:base\', \'.__T__&:base\', \'.__T__*:base\', \'.__T__+:base\', \'.__T__-:base\', \'.__T__/:base\', \'.__T__Arith:base\', \'.__T__BunchKaufman:Matrix\', \'.__T__Cholesky:Matrix\', \'.__T__Compare:methods\', \'.__T__Logic:base\', \'.__T__Math2:methods\', \'.__T__Math:base\', \'.__T__Ops:base\', \'.__T__Schur:Matrix\', \'.__T__Summary:base\', \'.__T__[:base\', \'.__T__[<-:base\', \'.__T__^:base\', \'.__T__all.equal:base\', \'.__T__all:base\', \'.__T__any:base\', \'.__T__as.array:base\', \'.__T__as.integer:base\', \'.__T__as.logical:base\', \'.__T__as.matrix:base\', \'.__T__as.numeric:base\', \'.__T__as.vector:base\', \'.__T__band:Matrix\', \'.__T__cbind2:methods\', \'.__T__chol2inv:base\', \'.__T__chol:base\', \'.__T__coerce:methods\', \'.__T__coerce<-:methods\', \'.__T__colMeans:base\', \'.__T__colSums:base\', \'.__T__cov2cor:stats\', \'.__T__crossprod:base\', \'.__T__determinant:base\', \'.__T__diag:base\', \'.__T__diag<-:base\', \'.__T__diff:base\', \'.__T__dim:base\', \'.__T__dim<-:base\', \'.__T__dimnames:base\', \'.__T__dimnames<-:base\', \'.__T__drop:base\', \'.__T__expand:Matrix\', \'.__T__expm:Matrix\', \'.__T__facmul:Matrix\', \'.__T__forceSymmetric:Matrix\', \'.__T__format:base\', \'.__T__head:utils\', \'.__T__image:graphics\', \'.__T__initialize:methods\', \'.__T__is.finite:base\', \'.__T__is.infinite:base\', \'.__T__is.na:base\', \'.__T__isDiagonal:Matrix\', \'.__T__isSymmetric:base\', \'.__T__isTriangular:Matrix\', \'.__T__kronecker:base\', \'.__T__length:base\', \'.__T__lu:Matrix\', \'.__T__mean:base\', \'.__T__nnzero:Matrix\', \'.__T__norm:base\', \'.__T__pack:Matrix\', \'.__T__print:base\', \'.__T__prod:base\', \'.__T__qr.Q:base\', \'.__T__qr.R:base\', \'.__T__qr.coef:base\', \'.__T__qr.fitted:base\', \'.__T__qr.qty:base\', \'.__T__qr.qy:base\', \'.__T__qr.resid:base\', \'.__T__qr:base\', \'.__T__rbind2:methods\', \'.__T__rcond:base\', \'.__T__rep:base\', \'.__T__rowMeans:base\', \'.__T__rowSums:base\', \'.__T__show:methods\', \'.__T__skewpart:Matrix\', \'.__T__solve:base\', \'.__T__sum:base\', \'.__T__summary:base\', \'.__T__symmpart:Matrix\', \'.__T__t:base\', \'.__T__tail:utils\', \'.__T__tcrossprod:base\', \'.__T__toeplitz:stats\', \'.__T__tril:Matrix\', \'.__T__triu:Matrix\', \'.__T__unname:base\', \'.__T__unpack:Matrix\', \'.__T__update:stats\', \'.__T__updown:Matrix\', \'.__T__which:base\', \'.__T__writeMM:Matrix\', \'.__T__zapsmall:base\'), FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testgsub28() {
+ assertEval("argv <- list(\'([^\\\\])\\\\(\', \'\\\\1\\\\\\\\(\', \'^.*{n.*$\', FALSE, FALSE, FALSE, FALSE); .Internal(gsub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltiniconv.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltiniconv.java
new file mode 100644
index 0000000000000000000000000000000000000000..307146314206a3fd4f31dbff7c8d1a20ff270b72
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltiniconv.java
@@ -0,0 +1,72 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltiniconv extends TestBase {
+
+ @Test
+ @Ignore
+ public void testiconv1() {
+ assertEval("argv <- list(\'Report Information on C Stack Size and Usage\', \'UTF-8\', \'\', \'byte\', FALSE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testiconv2() {
+ assertEval("argv <- list(\'façile\' , \'latin1\', \'ASCII\', NA_character_, TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testiconv3() {
+ assertEval("argv <- list(c(\'% This file is part of the 'foreign' package for R\', \'% It is distributed under the GPL version 2 or later\', \'\', \'\\\\name{S3 read functions}\', \'\\\\alias{data.restore}\', \'\\\\alias{read.S}\', \'\\\\title{Read an S3 Binary or data.dump File}\', \'\\\\description{\', \' Reads binary data files or \\\\code{data.dump} files that were produced\', \' in S version 3.\', \'}\', \'\\\\usage{\', \' data.restore(file, print = FALSE, verbose = FALSE, env = .GlobalEnv)\', \' read.S(file)\', \'}\', \'\\\\arguments{\', \' \\\\item{file}{the filename of the S-PLUS \\\\code{data.dump} or binary\', \' file.}\', \' \\\\item{print}{whether to print the name of each object as read from the\', \' file.}\', \' \\\\item{verbose}{whether to print the name of every subitem within each\', \' object.}\', \' \\\\item{env}{environment within which to create the restored object(s).}\', \'}\', \'\\\\value{\', \' For \\\\code{read.S}, an R version of the S3 object.\', \'\', \' For \\\\code{data.restore}, the name of the file.\', \'}\', \'\\\\details{\', \' \\\\code{read.S} can read the binary files produced in some older\', \' versions of S-PLUS on either Windows (versions 3.x, 4.x, 2000) or Unix\', \' (version 3.x with 4 byte integers). It automatically detects whether\', \' the file was produced on a big- or little-endian machine and adapts\', \' itself accordingly.\', \'\', \' \\\\code{data.restore} can read a similar range of files produced by\', \' \\\\code{data.dump} and for newer versions of S-PLUS, those from\', \' \\\\code{data.dump(....., oldStyle=TRUE)}.\', \'\', \' Not all S3 objects can be handled in the current version. The most\', \' frequently encountered exceptions are functions and expressions; you\', \' will also have trouble with objects that contain model formulas. In\', \' particular, comments will be lost from function bodies, and the\', \' argument lists of functions will often be changed.\', \'}\', \'\\\\author{\', \' Duncan Murdoch\', \'}\', \'\\\\examples{\', \'\\\\dontrun{read.S(file.path(\\\'_Data\\\', \\\'myobj\\\'))\', \'data.restore(\\\'dumpdata\\\', print = TRUE)\', \'}}\', \'\\\\keyword{data}\', \'\\\\keyword{file}\'), \'\', \'ASCII\', NA_character_, TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testiconv4() {
+ assertEval("argv <- list(c(\'\', \'Compute a Survival Curve for Censored Data\'), \'UTF-8\', \'\', \'byte\', FALSE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testiconv5() {
+ assertEval("argv <- list(character(0), \'latin1\', \'ASCII\', NA_character_, TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testiconv6() {
+ assertEval("argv <- list(list(), \'latin1\', \'ASCII\', NA_character_, TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testiconv7() {
+ assertEval("argv <- list(\'façile\' , \'latin1\', \'ASCII\', \'\', TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testiconv8() {
+ assertEval("argv <- list(structure(\'Prediction matrix for soap film smooth\', Rd_tag = \'TEXT\'), \'UTF-8\', \'ASCII\', NA_character_, FALSE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testiconv9() {
+ assertEval("argv <- list(structure(c(\'Q.1 Opinion of president's job performance\', \'Q.1 Opinion of president's job performance\', \'Q.1 Opinion of president's job performance\', \'Q.1 Opinion of president's job performance\', \'Q.1 Opinion of president's job performance\', \'Q.1 Opinion of president's job performance\', \'Q.1 Opinion of president's job performance\', \'Q.1 Opinion of president's job performance\', \'Q.1 Opinion of president's job performance\', \'Q.1 Opinion of president's job performance\'), .Names = c(\'Q1_MISSING_NONE\', \'Q1_MISSING_1\', \'Q1_MISSING_2\', \'Q1_MISSING_3\', \'Q1_MISSING_RANGE\', \'Q1_MISSING_LOW\', \'Q1_MISSING_HIGH\', \'Q1_MISSING_RANGE_1\', \'Q1_MISSING_LOW_1\', \'Q1_MISSING_HIGH_1\')), \'latin1\', \'\', NA_character_, TRUE, FALSE); .Internal(iconv(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinicuSetCollate.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinicuSetCollate.java
new file mode 100644
index 0000000000000000000000000000000000000000..19fbcbaa7af069077dd074ab1decc0754bfe5b6f
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinicuSetCollate.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinicuSetCollate extends TestBase {
+
+ @Test
+ @Ignore
+ public void testicuSetCollate1() {
+ assertEval(" .Internal(icuSetCollate())");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinidentical.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinidentical.java
new file mode 100644
index 0000000000000000000000000000000000000000..fb2e4a668a9252d31cf1bd1dba5131512306a6ad
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinidentical.java
@@ -0,0 +1,195 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinidentical extends TestBase {
+
+ @Test
+ public void testidentical1() {
+ assertEval("argv <- list(\'oats[-1, ]\', \'newdata\', TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical2() {
+ assertEval("argv <- list(structure(c(NA, 2, NA, 1, NA, 0), .Dim = 2:3), structure(c(NA, 2, NA, 1, NA, 0), .Dim = 2:3), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical3() {
+ assertEval("argv <- list(structure(c(\'dgTMatrix\', \'matrix.coo\'), .Names = c(\'from\', \'to\'), package = c(\'Matrix\', \'\'), class = structure(\'signature\', package = \'methods\')), structure(c(\'dgTMatrix\', \'matrix.coo\'), .Names = c(\'from\', \'to\'), package = c(\'Matrix\', \'\'), class = structure(\'signature\', package = \'methods\')), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical4() {
+ assertEval("argv <- list(structure(3.14159265358979, comment = \'Start with pi\', class = structure(\'num1\', package = \'.GlobalEnv\')), structure(3.14159265358979, comment = \'Start with pi\', class = structure(\'num1\', package = \'.GlobalEnv\')), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testidentical5() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list(\'a\')), structure(list(a = 1), .Dim = 1L, .Dimnames = list(\'a\')), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testidentical6() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = \'data.frame\'), structure(list(), .Names = character(0), row.names = integer(0), class = \'data.frame\'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical7() {
+ assertEval("argv <- list(c(-1.38507061859438+0.31833672642477i, 0.0383231810219-1.42379885362755i, -0.763030162361974-0.405090858049187i, 0.212306135525839+0.995386565684023i, 1.42553796686779+0.95881778764026i, 0.744479822333976+0.918087896319951i, 0.70022940298623-0.15096960188161i, -0.22935461345173-1.2230687888662i, 0.197093861895352-0.868824288637794i, 1.20715377387226-1.04248536490429i), c(-1.38507061859438+0.31833672642477i, 0.0383231810219-1.42379885362755i, -0.763030162361974-0.405090858049187i, 0.212306135525839+0.995386565684023i, 1.42553796686779+0.95881778764026i, 0.744479822333976+0.918087896319951i, 0.70022940298623-0.15096960188161i, -0.22935461345173-1.2230687888662i, 0.197093861895352-0.868824288637794i, 1.20715377387226-1.04248536490429i), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testidentical8() {
+ assertEval("argv <- list(structure(list(a = 1), .Names = \'a\', .Tsp = c(1, 1, 1), class = \'ts\'), structure(list(a = 1), .Names = \'a\', .Tsp = c(1, 1, 1), class = \'ts\'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical9() {
+ assertEval("argv <- list(c(TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE), c(TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical10() {
+ assertEval("argv <- list(complex(0), complex(0), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testidentical11() {
+ assertEval("argv <- list(NULL, \'\\\\link\', TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical12() {
+ assertEval("argv <- list(c(TRUE, TRUE, NA), c(TRUE, TRUE, NA), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testidentical13() {
+ assertEval("argv <- list(NA_complex_, NA_complex_, TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testidentical14() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 2, 3), .Dim = c(3L, 2L), .Dimnames = list(NULL, c(\'I\', \'a\')), foo = \'bar\', class = \'matrix\'), structure(c(1, 1, 1, 1, 2, 3), .Dim = c(3L, 2L), class = \'matrix\', foo = \'bar\', .Dimnames = list(NULL, c(\'I\', \'a\'))), TRUE, TRUE, FALSE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testidentical15() {
+ assertEval("argv <- list(structure(list(x = 1L), .Names = \'x\', row.names = c(NA, -1L), class = \'data.frame\'), structure(list(x = 1L), .Names = \'x\', row.names = c(NA, -1L), class = \'data.frame\'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testidentical16() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L), .Label = c(\'1\', \'2\'), class = \'factor\'), structure(list(f = structure(c(1L, 1L, 1L), .Label = c(\'1\', \'2\'), class = \'factor\'), u = structure(12:14, unit = \'kg\', class = \'avector\')), .Names = c(\'f\', \'u\'), row.names = 2:4, class = \'data.frame\'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical17() {
+ assertEval("argv <- list(raw(0), raw(0), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical18() {
+ assertEval("argv <- list(c(1, 1, 0.5, 1, 1, 1, 1, 1, 0, 0, 0.5, 1, 0, 1, 0, 1, 0.5, 1, NA, 0.75, 0.5, 0, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 1, 1, 0.666666666666667, 1, 0.666666666666667, 0.666666666666667, 0.333333333333333, 0.5, 1, 0, 1, 0.5, 1, 1, 1, 0, 1, 0.5, 1, 1, 0.5, 1, 1, 1, 0.5, 1, 1, NA, 0.5), c(1, 1, 0.5, 1, 1, 1, 1, 1, 0, 0, 0.5, 1, 0, 1, 0, 1, 0.5, 1, NA, 0.75, 0.5, 0, 0.5, 0.5, 0.666666666666667, 0.666666666666667, 1, 1, 0.666666666666667, 1, 0.666666666666667, 0.666666666666667, 0.333333333333333, 0.5, 1, 0, 1, 0.5, 1, 1, 1, 0, 1, 0.5, 1, 1, 0.5, 1, 1, 1, 0.5, 1, 1, NA, 0.5), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical19() {
+ assertEval("argv <- list(c(0.0804034870161223, 10.3548347412639), structure(list(loc = c(0.0804034870161223, 10.3548347412639), cov = structure(c(3.01119301965569, 6.14320559215603, 6.14320559215603, 14.7924762275451), .Dim = c(2L, 2L)), d2 = 2, wt = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), sqdist = c(0.439364946869246, 0.0143172566761092, 0.783644692619938, 0.766252947443554, 0.346865912102713, 1.41583192825661, 0.168485512965902, 0.354299830956879, 0.0943280426627965, 1.05001058449122, 1.02875556201707, 0.229332323173361, 0.873263925064789, 2.00000009960498, 0.449304354954282, 0.155023307933165, 0.118273979375253, 0.361693898800799, 0.21462398586105, 0.155558909016629, 0.471723661454506, 0.719528696331092, 0.0738164380664225, 1.46001193111051, 0.140785322548143, 0.127761195166703, 0.048012401156175, 0.811750426884519, 0.425827709817574, 0.163016638545231, 0.557810866640707, 0.277350147637843, 0.0781399119055092, 1.29559183995835, 0.718376405567138, 1.37650242941478, 0.175087780508154, 0.233808973148729, 0.693473805463067, 0.189096604125073, 1.96893781800017, 0.4759756980592, 1.69665760380474, 0.277965749373647, 0.920525436884815, 0.57525234053591, 1.59389578665009, 0.175715364671313, 0.972045794851437, 1.75514684962809, 0.0597413185507202, 0.174340343040626, 0.143421553552865, 0.997322770596838, 1.94096736957465, 2.00000001159796, 0.367000821772989, 0.682474530588235, 1.20976163307984, 1.27031685239035, 1.79775635513363, 0.0857761902860323, 0.435578932929501, 0.214370604878221, 0.494714247412686, 1.78784623754399, 1.24216674083069, 1.87749485326709, 0.0533296334123023, 1.45588362584438, 2.00000000631459, 0.208857144738039, 0.119251291573058, 0.365303924649962, 0.690656674239668, 0.0396958405786268, 0.258262120876164, 1.57360254057537, 0.307548421049514, 0.628417063100241, 1.00647098749202, 0.297624360530352, 0.400289147351669, 1.98298426250944, 0.129127182829694, 0.0794695319493149, 0.991481735944321, 0.444068154119836, 0.206790162395106, 0.574310829851377, 0.181887577583334, 0.433872021297517, 0.802994892604009, 0.293053770941001, 1.7002969001965, 0.77984639982848, 1.36127407487932, 0.761935213110323, 0.597915313430067, 0.237134831067472), prob = NULL, tol = 1e-07, eps = 9.96049758228423e-08, it = 898L, maxit = 5000, ierr = 0L, conv = TRUE), .Names = c(\'loc\', \'cov\', \'d2\', \'wt\', \'sqdist\', \'prob\', \'tol\', \'eps\', \'it\', \'maxit\', \'ierr\', \'conv\'), class = \'ellipsoid\'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testidentical20() {
+ assertEval("argv <- list(NaN, NaN, TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical21() {
+ assertEval("argv <- list(c(\'«\', \'»\', \'¿\', \'?\'), \'TeX\', TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical22() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')), 42, TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical23() {
+ assertEval("argv <- list(c(3L, 3L, NA, 3L), c(3L, 3L, NA, 3L), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testidentical24() {
+ assertEval("argv <- list(list(c(\'r1\', \'r3\', \'r4\', \'r5\', \'r6\', \'r7\', \'r8\', \'r9\', \'r10\', \'r11\', \'r12\', \'r13\', \'r14\', \'r15\', \'r16\', \'r17\', \'r18\', \'r19\', \'r20\', \'r21\', \'r22\', \'r23\', \'r24\', \'r25\', \'r26\', \'r27\', \'r28\', \'r29\', \'r30\', \'r31\', \'r32\', \'r33\', \'r34\', \'r35\', \'r36\', \'r37\', \'r38\', \'r39\', \'r40\'), c(\'c1\', \'c2\', \'c3\', \'c4\', \'c5\', \'c6\', \'c7\', \'c8\', \'c9\', \'c10\', \'c11\', \'c12\', \'c13\', \'c14\', \'c15\', \'c16\', \'c17\', \'c18\', \'c19\', \'c20\')), list(character(0), character(0)), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical25() {
+ assertEval("argv <- list(c(\'object\', NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), c(\'object\', NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical26() {
+ assertEval("argv <- list(3.04888344611714e+29, 3.04888344611714e+29, TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical27() {
+ assertEval("argv <- list(structure(\'BunchKaufman\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), structure(\'Matrix\', .Names = \'x\', package = \'Matrix\', class = structure(\'signature\', package = \'methods\')), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testidentical28() {
+ assertEval("argv <- list(structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c(\'A\', \'B\', \'C\'), class = \'factor\')), .Names = c(\'x\', \'y\', \'fac\'), row.names = c(NA, -10L), class = \'data.frame\'), structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c(\'A\', \'B\', \'C\'), class = \'factor\')), .Names = c(\'x\', \'y\', \'fac\'), row.names = c(NA, 10L), class = \'data.frame\'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical29() {
+ assertEval("argv <- list(c(\'1\', \'2\', NA), c(\'1\', \'2\', NA), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical30() {
+ assertEval("argv <- list(c(-9.42477796076938, -6.28318530717959, -3.14159265358979, 0, 3.14159265358979, 6.28318530717959, 9.42477796076938, 12.5663706143592, 15.707963267949, 18.8495559215388), c(-9.42477796076938, -6.28318530717959, -3.14159265358979, 0, 3.14159265358979, 6.28318530717959, 9.42477796076938, 12.5663706143592, 15.707963267949, 18.8495559215388), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical31() {
+ assertEval("argv <- list(structure(\'classGeneratorFunction\', package = \'methods\'), structure(\'classGeneratorFunction\', package = \'methods\'), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testidentical32() {
+ assertEval("argv <- list(structure(function (x) standardGeneric(\'cosh\', .Primitive(\'cosh\')), generic = structure(\'cosh\', package = \'base\'), package = \'base\', group = list(\'Math\'), valueClass = character(0), signature = \'x\', default = .Primitive(\'cosh\'), skeleton = quote(.Primitive(\'cosh\')(x)), class = structure(\'standardGeneric\', package = \'methods\')), FALSE, TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testidentical33() {
+ assertEval("argv <- list(structure(1L, match.length = 8L, useBytes = TRUE), structure(1L, match.length = 8L, useBytes = TRUE), TRUE, TRUE, TRUE, TRUE, FALSE); .Internal(identical(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltininherits.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltininherits.java
new file mode 100644
index 0000000000000000000000000000000000000000..68c9350fd3074d31c149177ee42dd964fa922f1e
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltininherits.java
@@ -0,0 +1,181 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltininherits extends TestBase {
+
+ @Test
+ public void testinherits1() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Names = c(\'dtrMatrix\', \'MatrixFactorization\', \'ddenseMatrix\', \'triangularMatrix\', \'dMatrix\', \'denseMatrix\', \'Matrix\', \'mMatrix\')), \'factor\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits2() {
+ assertEval("argv <- list(structure(list(x = numeric(0), y = numeric(0), fac = structure(integer(0), .Label = c(\'A\', \'B\', \'C\'), class = \'factor\')), .Names = c(\'x\', \'y\', \'fac\'), row.names = integer(0), class = \'data.frame\'), \'data.frame\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits3() {
+ assertEval("argv <- list(structure(c(2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Tsp = c(2, 11, 1)), \'data.frame\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits4() {
+ assertEval("argv <- list(structure(list(Sepal.Length = c(4.7, 4.8, 5.4, 5.2, 5.5, 4.9, 5, 5.5, 4.9, 4.4, 5.1, 5, 4.5, 4.4, 5, 5.1, 4.8, 5.1, 4.6, 5.3, 5, 7, 6.4, 6.9, 5.5, 6.5, 5.7, 6.3, 4.9, 6.6, 5.2, 5, 5.9, 6, 6.1, 5.6, 6.7, 5.6, 5.8, 6.2, 5.6, 5.9, 6.1, 6.3, 6.1, 6.4, 6.6, 6.8, 6.7, 6, 5.7, 5.5, 5.5, 5.8, 6, 5.4, 6, 6.7, 6.3, 5.6, 5.5, 5.5, 6.1, 5.8, 5, 5.6, 5.7, 5.7, 6.2, 5.1, 5.7, 6.3, 5.8, 7.1, 6.3, 6.5, 7.6, 4.9, 7.3, 6.7, 7.2, 6.5, 6.4, 6.8, 5.7, 5.8, 6.4, 6.5, 7.7, 7.7, 6, 6.9, 5.6, 7.7, 6.3, 6.7, 7.2, 6.2, 6.1, 6.4, 7.2), Sepal.Width = c(3.2, 3.1, 3.4, 4.1, 4.2, 3.1, 3.2, 3.5, 3.6, 3, 3.4, 3.5, 2.3, 3.2, 3.5, 3.8, 3, 3.8, 3.2, 3.7, 3.3, 3.2, 3.2, 3.1, 2.3, 2.8, 2.8, 3.3, 2.4, 2.9, 2.7, 2, 3, 2.2, 2.9, 2.9, 3.1, 3, 2.7, 2.2, 2.5, 3.2, 2.8, 2.5, 2.8, 2.9, 3, 2.8, 3, 2.9, 2.6, 2.4, 2.4, 2.7, 2.7, 3, 3.4, 3.1, 2.3, 3, 2.5, 2.6, 3, 2.6, 2.3, 2.7, 3, 2.9, 2.9, 2.5, 2.8, 3.3, 2.7, 3, 2.9, 3, 3, 2.5, 2.9, 2.5, 3.6, 3.2, 2.7, 3, 2.5, 2.8, 3.2, 3, 3.8, 2.6, 2.2, 3.2, 2.8, 2.8, 2.7, 3.3, 3.2, 2.8, 3, 2.8, 3), Petal.Length = c(1.6, 1.6, 1.5, 1.5, 1.4, 1.5, 1.2, 1.3, 1.4, 1.3, 1.5, 1.3, 1.3, 1.3, 1.6, 1.9, 1.4, 1.6, 1.4, 1.5, 1.4, 4.7, 4.5, 4.9, 4, 4.6, 4.5, 4.7, 3.3, 4.6, 3.9, 3.5, 4.2, 4, 4.7, 3.6, 4.4, 4.5, 4.1, 4.5, 3.9, 4.8, 4, 4.9, 4.7, 4.3, 4.4, 4.8, 5, 4.5, 3.5, 3.8, 3.7, 3.9, 5.1, 4.5, 4.5, 4.7, 4.4, 4.1, 4, 4.4, 4.6, 4, 3.3, 4.2, 4.2, 4.2, 4.3, 3, 4.1, 6, 5.1, 5.9, 5.6, 5.8, 6.6, 4.5, 6.3, 5.8, 6.1, 5.1, 5.3, 5.5, 5, 5.1, 5.3, 5.5, 6.7, 6.9, 5, 5.7, 4.9, 6.7, 4.9, 5.7, 6, 4.8, 4.9, 5.6, 5.8 ), Petal.Width = c(0.2, 0.2, 0.4, 0.1, 0.2, 0.2, 0.2, 0.2, 0.1, 0.2, 0.2, 0.3, 0.3, 0.2, 0.6, 0.4, 0.3, 0.2, 0.2, 0.2, 0.2, 1.4, 1.5, 1.5, 1.3, 1.5, 1.3, 1.6, 1, 1.3, 1.4, 1, 1.5, 1, 1.4, 1.3, 1.4, 1.5, 1, 1.5, 1.1, 1.8, 1.3, 1.5, 1.2, 1.3, 1.4, 1.4, 1.7, 1.5, 1, 1.1, 1, 1.2, 1.6, 1.5, 1.6, 1.5, 1.3, 1.3, 1.3, 1.2, 1.4, 1.2, 1, 1.3, 1.2, 1.3, 1.3, 1.1, 1.3, 2.5, 1.9, 2.1, 1.8, 2.2, 2.1, 1.7, 1.8, 1.8, 2.5, 2, 1.9, 2.1, 2, 2.4, 2.3, 1.8, 2.2, 2.3, 1.5, 2.3, 2, 2, 1.8, 2.1, 1.8, 1.8, 1.8, 2.1, 1.6)), .Names = c(\'Sepal.Length\', \'Sepal.Width\', \'Petal.Length\', \'Petal.Width\'), row.names = 30:130, class = \'data.frame\'), \'data.frame\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits5() {
+ assertEval("argv <- list(structure(1L, .Dim = 1L), \'try-error\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits6() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), \'Surv\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits7() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c(\'Ctl\', \'A\', \'B\'), class = \'factor\', contrasts = \'contr.treatment\'), \'factor\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits8() {
+ assertEval("argv <- list(c(NA, NA, \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/groupedData.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/groupedData.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/groupedData.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/groupedData.R\'), \'ordered\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits9() {
+ assertEval("argv <- list(list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\'))), \'try-error\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits10() {
+ assertEval("argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c(\'x1\', \'x2\'))), \'data.frame\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits11() {
+ assertEval("argv <- list(structure(list(srcfile = \'/home/lzhao/hg/r-instrumented/library/stats/R/stats\', frow = 853L, lrow = 853L), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, -1L), class = \'data.frame\'), \'data.frame\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testinherits12() {
+ assertEval("argv <- list(quote(y ~ a + b:c + d + e + e:d), \'formula\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits13() {
+ assertEval("argv <- list(structure(10, class = c(\'a\', \'b\')), c(\'a\', \'b\', \'c\'), TRUE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits14() {
+ assertEval("argv <- list(complex(0), \'try-error\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits15() {
+ assertEval("argv <- list(structure(FALSE, .Tsp = c(0, 0, 1), class = \'ts\'), \'ts\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits16() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list(\'a\')), \'try-error\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits17() {
+ assertEval("argv <- list(raw(0), \'try-error\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits18() {
+ assertEval("argv <- list(structure(c(-1.5116089581734, 0.200010507218348, 0.266001075015567, 0.339550302820724, 0.425045882083188, 0.496549005782181, 0.576998440511346, -0.909988579721932, -1.06576984591386, 0.174059431391812, -0.0372498129362256, -0.282881300668478, -0.488312023557303, -0.719445779363312), gradient = structure(c(0.160743714207466, 0.251172444221428, 0.307513919261763, 0.350467096622222, 0.367731527586793, 0.346345778958899, 0.262925702855199, -0.160743714207466, -0.251172444221428, -0.307513919261763, -0.350467096622222, -0.367731526984617, -0.346345778958899, -0.262925703156287), .Dim = c(7L, 2L, 1L)), .Dim = c(7L, 2L)), \'data.frame\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits19() {
+ assertEval("argv <- list(structure(3.14159265358979, comment = \'Start with pi\'), \'try-error\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits20() {
+ assertEval("argv <- list(c(TRUE, NA, FALSE, TRUE), \'Date\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits21() {
+ assertEval("argv <- list(c(-1, 1, -1, 2, 1, NA, -1, 1, 4, 1, NA, 4, 1, 3, NA, 4, 2, 2, NA, 4, 4, 2, 4, 4, 2, 1, 4, 4, 3, 1, 1, 4, 1, 4, NA, 1, 4, 4, 2, 2, 4, 4, 3, 4, 2, 2, 3, 3, 4, 1, 1, 1, 4, 1, 4, 4, 4, 4, NA, 4, 4, 4, NA, 1, 2, 3, 4, 3, 4, 2, 4, 4, 1, 4, 1, 4, NA, 4, 2, 1, 4, 1, 1, 1, 4, 4, 2, 4, 1, 1, 1, 4, 1, 1, 1, 4, 3, 1, 4, 3, 2, 4, 3, 1, 4, 2, 4, NA, 4, 4, 4, 2, 1, 4, 4, NA, 2, 4, 4, 1, 1, 1, 1, 4, 1, 2, 3, 2, 1, 4, 4, 4, 1, NA, 4, 2, 2, 2, 4, 4, 3, 3, 4, 2, 4, 3, 1, 1, 4, 2, 4, 3, 1, 4, 3, 4, 4, 1, 1, 4, 4, 3, 1, 1, 2, 1, 3, 4, 2, 2, 2, 4, 4, 3, 2, 1, 1, 4, 1, 1, 2, NA, 2, 3, 3, 2, 1, 1, 1, 1, 4, 4, 4, 4, 4, 4, 2, 2, 1, 4, 1, 4, 3, 4, 2, 3, 1, 3, 1, 4, 1, 4, 1, 4, 3, 3, 4, 4, 1, NA, 3, 4, 4, 4, 4, 4, 4, 3, 4, 3, 4, 2, 4, 4, 1, 2, NA, 4, 4, 4, 4, 1, 2, 1, 1, 2, 1, 4, 2, 3, 1, 4, 4, 4, 1, 2, 1, 4, 2, 1, 3, 1, 2, 2, 1, 2, 1, NA, 3, 2, 2, 4, 1, 4, 4, 2, 4, 4, 4, 2, 1, 4, 2, 4, 4, 4, 4, 4, 1, 3, 4, 3, 4, 1, NA, 4, NA, 1, 1, 1, 4, 4, 4, 4, 2, 4, 3, 2, NA, 1, 4, 4, 3, 4, 4, 4, 2, 4, 2, 1, 4, 4, NA, 4, 4, 3, 3, 4, 2, 2, 4, 1, 4, 4, 4, 3, 4, 4, 4, 3, 2, 1, 3, 1, 4, 1, 4, 2, NA, 1, 4, 4, 3, 1, 4, 1, 4, 1, 4, 4, 1, 2, 2, 1, 4, 1, 1, 4, NA, 4, NA, 4, 4, 4, 1, 4, 2, 1, 2, 2, 2, 2, 1, 1, 2, 1, 4, 2, 3, 3, 1, 3, 1, 4, 1, 3, 2, 2, 4, 1, NA, 3, 4, 2, 4, 4, 4, 4, 4, 4, 3, 4, 4, 3, 2, 1, 4, 4, 2, 4, 2, 1, 2, 1, 1, 1, 1, 4, 4, 1, 1, 4, 1, 4, 4, 4, 1, 1, NA, 3, 2, 4, 4, 4, 4, 2, 3, 3, 2, NA, 4, 2, 4, 4, 1, 1, 4, 4, 1, 1, 4, 1, 2, 2, 2, 2, 1, 4, 4, 1, 2, 2, 2, 3, 4, 4, 3, 4, 1, 1, 4, 4, NA, 4, 1, 4, 4, 4, 1, 4, 4, 1, 2, 4, 4, 4, 4, 1, 2, 4, 4, 2, 1, 4, 2, 4, 2, 2, 4, 1, 3, 3, 2, 4, 1, 4, 4, 4, 1, NA, 4, 4, 2, 4, 4, 4, 4, 4, 2, NA, 4, 2, 4, 3, 1, 4, 4, 3, 4, 2, 4, 4, 1, 2, 1, 4, 1, 3, 3, 1, 4, 4, 2, 4, 4, 4, 4, 3, 2, 3, 3, 2, NA, 3, 4, 4, 3, 3, 4, 4, 4, 1, 4, 4, 4, 4, 4, 4, 4, 2, 4, 2, 3, 4, 1, 3, 1, NA, 4, 1, 2, 2, 1, 4, 3, 3, 4, 1, 1, 3), \'Date\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testinherits22() {
+ assertEval("argv <- list(.Primitive(\'[\'), \'try-error\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits23() {
+ assertEval("argv <- list(structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790, 800, 810, 820, 830, 840, 850, 860, 870, 880, 890, 900, 910, 920, 930, 940, 950, 960, 970, 980, 990, 1000, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96), .Dim = c(101L, 3L), .Dimnames = list(NULL, c(\'t1\', \'10 * t1\', \'t1 - 4\')), .Tsp = c(1, 101, 1), class = c(\'mts\', \'ts\', \'matrix\')), \'ts\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits24() {
+ assertEval("argv <- list(c(10000, 20000, 30000, 40000, 50000, 60000, 70000, 80000, 90000, 1e+05, 110000, 120000, 130000, 140000, 150000, 160000, 170000, 180000, 190000, 2e+05, 210000, 220000, 230000, 240000, 250000, 260000, 270000, 280000, 290000, 3e+05, 310000, 320000, 330000, 340000, 350000, 360000, 370000, 380000, 390000, 4e+05, 410000, 420000, 430000, 440000, 450000, 460000, 470000, 480000, 490000, 5e+05, 510000, 520000, 530000, 540000, 550000, 560000, 570000, 580000, 590000, 6e+05, 610000, 620000, 630000, 640000, 650000, 660000, 670000, 680000, 690000, 7e+05, 710000, 720000, 730000, 740000, 750000, 760000, 770000, 780000, 790000, 8e+05, 810000, 820000, 830000, 840000, 850000, 860000, 870000, 880000, 890000, 9e+05, 910000, 920000, 930000, 940000, 950000, 960000, 970000, 980000, 990000, 1e+06), \'POSIXlt\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits25() {
+ assertEval("argv <- list(structure(list(srcfile = c(\'/home/lzhao/hg/r-instrumented/library/grid/R/grid\', \'/home/lzhao/hg/r-instrumented/library/grid/R/grid\'), frow = 3581:3582, lrow = c(3581L, 3590L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = 1:2, class = \'data.frame\'), \'data.frame\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits26() {
+ assertEval("argv <- list(\' Running ‘scales.R’\', \'condition\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits27() {
+ assertEval("argv <- list(c(0.923879532511287+0.38268343236509i, 0.707106781186548+0.707106781186547i, 0.38268343236509+0.923879532511287i, 0+1i, -0.38268343236509+0.923879532511287i, -0.707106781186547+0.707106781186548i, -0.923879532511287+0.38268343236509i, -1+0i, -0.923879532511287-0.38268343236509i, -0.707106781186548-0.707106781186547i, -0.38268343236509-0.923879532511287i, 0-1i, 0.38268343236509-0.923879532511287i, 0.707106781186547-0.707106781186548i, 0.923879532511287-0.38268343236509i, 1-0i), \'ts\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits28() {
+ assertEval("argv <- list(structure(character(0), .Names = character(0), package = character(0), class = structure(\'signature\', package = \'methods\')), \'try-error\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits29() {
+ assertEval("argv <- list(structure(c(11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = \'ts\'), \'ts\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits30() {
+ assertEval("argv <- list(structure(list(coefficients = numeric(0), residuals = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\')), fitted.values = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\')), weights = NULL, rank = 0L, df.residual = 10L, call = quote(lm(formula = y ~ 0)), terms = quote(y ~ 0), model = structure(list(y = c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434)), .Names = \'y\', terms = quote(y ~ 0), row.names = c(NA, 10L), class = \'data.frame\')), .Names = c(\'coefficients\', \'residuals\', \'fitted.values\', \'weights\', \'rank\', \'df.residual\', \'call\', \'terms\', \'model\'), class = \'lm\'), \'lm\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testinherits31() {
+ assertEval("argv <- list(structure(c(-0.562441486309934, -0.588967592535822, 0.0277608937997097, 0.568074124752969, 3.89980510825846, -0.428174866497729, -0.343990813420242, -0.260996370058754, -2.31774610938305, 0.314764947225063, -0.455124436264437, -0.0444006414474544, -0.27748974692001, -0.303134023269405, -0.670168347915028, 2.92643313367, -0.749546667806845, -0.410394401887929, -0.203261263063707, 0.1847365997012, 0.128559671155683, 0.313558179929332, -0.0668425264405297, -0.106427678524531, -0.523747793519006, -0.402585404761851, 0.0642079595716389, -0.779859286629166, 0.356484381211739, -0.625053119472271, 1.31547628490512, -0.21959878152752, -0.102402088986461), .Names = c(\'Craig Dunain\', \'Ben Rha\', \'Ben Lomond\', \'Goatfell\', \'Bens of Jura\', \'Cairnpapple\', \'Scolty\', \'Traprain\', \'Lairig Ghru\', \'Dollar\', \'Lomonds\', \'Cairn Table\', \'Eildon Two\', \'Cairngorm\', \'Seven Hills\', \'Knock Hill\', \'Black Hill\', \'Creag Beag\', \'Kildcon Hill\', \'Meall Ant-Suidhe\', \'Half Ben Nevis\', \'Cow Hill\', \'N Berwick Law\', \'Creag Dubh\', \'Burnswark\', \'Largo Law\', \'Criffel\', \'Acmony\', \'Ben Nevis\', \'Knockfarrel\', \'Two Breweries\', \'Cockleroi\', \'Moffat Chase\')), \'factor\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testinherits32() {
+ assertEval("argv <- list(quote(breaks ~ (wool + tension) - tension), \'formula\', FALSE); .Internal(inherits(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinintToBits.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinintToBits.java
new file mode 100644
index 0000000000000000000000000000000000000000..aed5ed01f0a82718d342bf6586a85178bf206614
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinintToBits.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinintToBits extends TestBase {
+
+ @Test
+ @Ignore
+ public void testintToBits1() {
+ assertEval("argv <- list(list()); .Internal(intToBits(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testintToBits2() {
+ assertEval("argv <- list(NULL); .Internal(intToBits(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinintToUtf8.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinintToUtf8.java
new file mode 100644
index 0000000000000000000000000000000000000000..0f9c60437548aa6adcf4c09098f8c845ca429a93
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinintToUtf8.java
@@ -0,0 +1,36 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinintToUtf8 extends TestBase {
+
+ @Test
+ @Ignore
+ public void testintToUtf81() {
+ assertEval("argv <- list(NULL, FALSE); .Internal(intToUtf8(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testintToUtf82() {
+ assertEval("argv <- list(list(), FALSE); .Internal(intToUtf8(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testintToUtf83() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(intToUtf8(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltininvisible.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltininvisible.java
new file mode 100644
index 0000000000000000000000000000000000000000..4cbd76f713c74359dea954356c1fdb8b4e94e684
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltininvisible.java
@@ -0,0 +1,277 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltininvisible extends TestBase {
+
+ @Test
+ public void testinvisible1() {
+ assertEval("argv <- list(c(3.14159265358977, 3.14159265358981));invisible(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testinvisible2() {
+ assertEval("argv <- list(structure(\'Error in cov(rnorm(10), NULL) : \\n supply both 'x' and 'y' or a matrix-like 'x'\\n\', class = \'try-error\', condition = structure(list(message = \'supply both 'x' and 'y' or a matrix-like 'x'\', call = quote(cov(rnorm(10), NULL))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))));invisible(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testinvisible3() {
+ assertEval("argv <- list(quote(Y ~ X));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible4() {
+ assertEval("argv <- list(structure(list(height = numeric(0), weight = numeric(0)), .Names = c(\'height\', \'weight\'), row.names = integer(0), class = \'data.frame\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testinvisible5() {
+ assertEval("argv <- list(structure(c(\'Min. : 1.000 \', \'1st Qu.: 9.000 \', \'Median :18.000 \', \'Mean :14.742 \', \'3rd Qu.:20.000 \', \'Max. :23.000 \', NA, \'Min. :5.0000 \', \'1st Qu.:5.3000 \', \'Median :6.1000 \', \'Mean :6.0841 \', \'3rd Qu.:6.6000 \', \'Max. :7.7000 \', NA, \'Min. : 1.000 \', \'1st Qu.: 24.250 \', \'Median : 56.500 \', \'Mean : 56.928 \', \'3rd Qu.: 86.750 \', \'Max. :117.000 \', \'NA's :16 \', \'Min. : 0.500 \', \'1st Qu.: 11.325 \', \'Median : 23.400 \', \'Mean : 45.603 \', \'3rd Qu.: 47.550 \', \'Max. :370.000 \', NA, \'Min. :0.00300 \', \'1st Qu.:0.04425 \', \'Median :0.11300 \', \'Mean :0.15422 \', \'3rd Qu.:0.21925 \', \'Max. :0.81000 \', NA), .Dim = c(7L, 5L), .Dimnames = list(c(\'\', \'\', \'\', \'\', \'\', \'\', \'\'), c(\' event\', \' mag\', \' station\', \' dist\', \' accel\')), class = \'table\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible6() {
+ assertEval("argv <- list(structure(list(call = quote(lm(formula = y ~ x1 + x2 + x3)), terms = quote(y ~ x1 + x2 + x3), residuals = structure(c(0.224762433374997, 0.4813346401898, -0.548705796690786, -0.873306430909872, 0.3255545927283, -0.288240908441576, 0.530823516045489, -0.0649703574297026, 1.2699009772491, -1.05715266611575), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\')), coefficients = structure(c(1.47191076131574, 0.586694550701453, 0.258706725324317, 0.948371836939988, 0.396080061109718, 0.350912037541581, 1.55203972111298, 1.48125242421363, 0.737240953991673, 0.164593338447767, 0.182090654313858, 0.484947927602608), .Dim = 3:4, .Dimnames = list(c(\'(Intercept)\', \'x1\', \'x3\'), c(\'Estimate\', \'Std. Error\', \'t value\', \'Pr(>|t|)\'))), aliased = structure(c(FALSE, FALSE, TRUE, FALSE), .Names = c(\'(Intercept)\', \'x1\', \'x2\', \'x3\')), sigma = 0.806334473232766, df = c(3L, 7L, 4L), r.squared = 0.932605950232242, adj.r.squared = 0.913350507441455, fstatistic = structure(c(48.4333681840033, 2, 7), .Names = c(\'value\', \'numdf\', \'dendf\')), cov.unscaled = structure(c(1.38333333333333, -0.525000000000001, 0.416666666666667, -0.525000000000001, 0.241287878787879, -0.208333333333334, 0.416666666666667, -0.208333333333334, 0.18939393939394), .Dim = c(3L, 3L), .Dimnames = list(c(\'(Intercept)\', \'x1\', \'x3\'), c(\'(Intercept)\', \'x1\', \'x3\'))), correlation = structure(c(1, -0.908715905467124, 0.814033538872717, -0.908715905467124, 1, -0.974558628915209, 0.814033538872717, -0.974558628915209, 1), .Dim = c(3L, 3L), .Dimnames = list( c(\'(Intercept)\', \'x1\', \'x3\'), c(\'(Intercept)\', \'x1\', \'x3\'))), symbolic.cor = FALSE), .Names = c(\'call\', \'terms\', \'residuals\', \'coefficients\', \'aliased\', \'sigma\', \'df\', \'r.squared\', \'adj.r.squared\', \'fstatistic\', \'cov.unscaled\', \'correlation\', \'symbolic.cor\'), class = \'summary.lm\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible7() {
+ assertEval("argv <- list(structure(list(call = quote(lm(formula = y ~ 0)), terms = quote(y ~ 0), aliased = logical(0), residuals = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\')), df = c(0L, 10L, 0L), coefficients = structure(logical(0), .Dim = c(0L, 4L), .Dimnames = list(NULL, c(\'Estimate\', \'Std. Error\', \'t value\', \'Pr(>|t|)\'))), sigma = 0.523484262069588, adj.r.squared = 0, r.squared = 0), .Names = c(\'call\', \'terms\', \'aliased\', \'residuals\', \'df\', \'coefficients\', \'sigma\', \'adj.r.squared\', \'r.squared\'), class = \'summary.lm\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible8() {
+ assertEval("argv <- list(structure(list(width = 80L, minIndent = 10L, extraIndent = 4L, sectionIndent = 5L, sectionExtra = 2L, itemBullet = \'• \', enumFormat = function (n) sprintf(\'%d. \', n), showURLs = FALSE, code_quote = TRUE, underline_titles = FALSE), .Names = c(\'width\', \'minIndent\', \'extraIndent\', \'sectionIndent\', \'sectionExtra\', \'itemBullet\', \'enumFormat\', \'showURLs\', \'code_quote\', \'underline_titles\')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testinvisible9() {
+ assertEval("argv <- list(quote(breaks ~ (wool + tension)^2));invisible(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testinvisible10() {
+ assertEval("argv <- list(structure(list(surname = structure(1:5, .Label = c(\'McNeil\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'factor\'), nationality = structure(c(1L, 2L, 3L, 3L, 1L), .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(c(1L, 1L, 1L, 2L, 1L), .Label = c(\'no\', \'yes\'), class = \'factor\'), title = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\', \'title\', \'other.author\'), row.names = c(NA, -5L), class = \'data.frame\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible11() {
+ assertEval("argv <- list(structure(\'Error in `[.data.frame`(dd, , \\\'x\\\') : undefined columns selected\\n\', class = \'try-error\', condition = structure(list(message = \'undefined columns selected\', call = quote(`[.data.frame`(dd, , \'x\'))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible12() {
+ assertEval("argv <- list(structure(list(value = structure(c(NA, NA, 1L, 9L), .Names = c(\'size\', \'current\', \'direction\', \'eval_depth\')), visible = TRUE), .Names = c(\'value\', \'visible\')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testinvisible13() {
+ assertEval("argv <- list(structure(function (...) new(\'test1\', ...), className = structure(\'test1\', package = \'.GlobalEnv\'), package = \'.GlobalEnv\', class = structure(\'classGeneratorFunction\', package = \'methods\')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible14() {
+ assertEval("argv <- list(structure(list(coefficients = structure(c(-0.0880891704401362, -0.508170309402877, -0.00510235947825228, 0.0737329622006759), .Names = c(\'(Intercept)\', \'x1\', \'z\', \'x1:z\')), residuals = structure(c(0.471500137591588, -0.418206002310214, -1.08038471222353, -0.582889907355648, 0.671048026430597, 1.41161034263987, 0.0130575334430522, 0.598273046028054, -0.0752209852417045, -1.00878747900206), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\')), effects = structure(c(0.483887391035467, -0.316505532770654, -0.0456368905560498, -0.659487662652535, 0.502868792132386, 1.20242722895332, -0.301792379913696, 0.0429789614006214, -0.536741577656989, -1.91019253457038), .Names = c(\'(Intercept)\', \'x1\', \'z\', \'x1:z\', \'\', \'\', \'\', \'\', \'\', \'\')), rank = 4L, fitted.values = structure(c(-0.527628877120589, 0.262410495604884, -0.390367671675741, 0.104739852247028, -0.253106466230895, -0.0529307911108283, -0.115845260786048, -0.210601434468685, 0.0214159446587994, -0.368272077826542), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\')), assign = 0:3, qr = structure(list(qr = structure(c(-3.16227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0, 3.16227766016838, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634, -0.240253073352042, 0.392202458681634, -17.3925271309261, -1.58113883008419, 8.94427190999916, 0.0204447427551466, -0.048810308101025, -0.203162054994832, -0.272417105851004, -0.426768852744811, -0.496023903600983, -0.65037565049479, 1.58113883008419, 17.3925271309261, 2.77555756156289e-17, -8.94427190999916, 0.202312619197469, -0.0523458957441388, 0.422028033632482, -0.279844076809084, 0.641743448067495, -0.507342257874029), .Dim = c(10L, 4L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\'), c(\'(Intercept)\', \'x1\', \'z\', \'x1:z\')), assign = 0:3, contrasts = structure(list( x = \'contr.helmert\'), .Names = \'x\')), qraux = c(1.31622776601684, 1.39220245868163, 1.17479648964895, 1.17515228532081), pivot = 1:4, tol = 1e-07, rank = 4L), .Names = c(\'qr\', \'qraux\', \'pivot\', \'tol\', \'rank\'), class = \'qr\'), df.residual = 6L, contrasts = structure(list(x = \'contr.helmert\'), .Names = \'x\'), xlevels = structure(list(), .Names = character(0)), call = quote(lm(formula = y ~ x * z)), terms = quote(y ~ x * z), model = structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c(\'y\', \'x\', \'z\'), terms = quote(y ~ x * z), row.names = c(NA, 10L), class = \'data.frame\')), .Names = c(\'coefficients\', \'residuals\', \'effects\', \'rank\', \'fitted.values\', \'assign\', \'qr\', \'df.residual\', \'contrasts\', \'xlevels\', \'call\', \'terms\', \'model\'), class = \'lm\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible15() {
+ assertEval("argv <- list(structure(\'Error in scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings, : \\n line 1 did not have 4 elements\\n\', class = \'try-error\', condition = structure(list(message = \'line 1 did not have 4 elements\', call = quote(scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings, flush, fill, strip.white, quiet, blank.lines.skip, multi.line, comment.char, allowEscapes, encoding))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))));invisible(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testinvisible16() {
+ assertEval("argv <- list(structure(\'Error in cor(Z[, FALSE], use = \\\'pairwise.complete.obs\\\', method = \\\'kendall\\\') : \\n 'x' is empty\\n\', class = \'try-error\', condition = structure(list(message = \''x' is empty\', call = quote(cor(Z[, FALSE], use = \'pairwise.complete.obs\', method = \'kendall\'))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible17() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c(\'abc\', \'def\'), class = \'factor\')), .Names = c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\'), class = \'data.frame\', row.names = c(\'1\', \'2\', \'3\')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible18() {
+ assertEval("argv <- list(structure(c(3, 8), .Dim = 2L, .Dimnames = structure(list(g = c(\'1\', \'2\')), .Names = \'g\'), call = quote(by.data.frame(data = X, INDICES = g, FUN = colMeans)), class = \'by\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible19() {
+ assertEval("argv <- list(structure(\'Error in rnorm(2, c(1, NA)) : (converted from warning) NAs produced\\n\', class = \'try-error\', condition = structure(list(message = \'(converted from warning) NAs produced\', call = quote(rnorm(2, c(1, NA)))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible20() {
+ assertEval("argv <- list(structure(list(z = structure(c(1395082040.29392, 1395082040.29392, 1395082040.29392, 1395082040.29392, 1395082040.29392), class = c(\'AsIs\', \'POSIXct\', \'POSIXt\'))), .Names = \'z\', row.names = c(NA, -5L), class = \'data.frame\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testinvisible21() {
+ assertEval("argv <- list(quote(~a + b:c + d + e + e:d));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible22() {
+ assertEval("argv <- list(structure(list(tables = structure(list(`Grand mean` = 103.87323943662, N = structure(c(78.7365206866197, 98.5088731171753, 113.842206450509, 123.008873117175), .Dim = 4L, .Dimnames = structure(list(N = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\')), .Names = \'N\'), class = \'mtable\'), `V:N` = structure(c(79.5323303457107, 86.1989970123773, 69.7732394366197, 98.0323303457106, 108.032330345711, 89.1989970123773, 114.198997012377, 116.698997012377, 110.365663679044, 124.365663679044, 126.365663679044, 118.032330345711), .Dim = 3:4, .Dimnames = structure(list(V = c(\'Golden.rain\', \'Marvellous\', \'Victory\'), N = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\')), .Names = c(\'V\', \'N\')), class = \'mtable\')), .Names = c(\'Grand mean\', \'N\', \'V:N\')), n = structure(list(N = structure(c(17, 18, 18, 18), .Dim = 4L, .Dimnames = structure(list(N = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\')), .Names = \'N\')), `V:N` = structure(c(6, 6, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6), .Dim = 3:4, .Dimnames = structure(list(V = c(\'Golden.rain\', \'Marvellous\', \'Victory\'), N = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\')), .Names = c(\'V\', \'N\')))), .Names = c(\'N\', \'V:N\'))), .Names = c(\'tables\', \'n\'), type = \'means\', class = c(\'tables_aov\', \'list.of\')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible23() {
+ assertEval("argv <- list(structure(list(A = 0:10, `NA` = 20:30), .Names = c(\'A\', NA), class = \'data.frame\', row.names = c(NA, -11L)));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible24() {
+ assertEval("argv <- list(structure(c(-Inf, -Inf, -2.248e+263, -Inf, -3.777e+116, -1), .Names = c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\'), class = \'table\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible25() {
+ assertEval("argv <- list(structure(list(Df = c(1, 1, NA, 2), Deviance = c(12.2441566485997, 28.4640218366572, 32.825622681839, 32.4303239692005), AIC = c(73.9421143635373, 90.1619795515948, 92.5235803967766, 96.1282816841381)), .Names = c(\'Df\', \'Deviance\', \'AIC\'), row.names = c(\'+ M.user\', \'+ Temp\', \'<none>\', \'+ Soft\'), class = c(\'anova\', \'data.frame\')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible26() {
+ assertEval("argv <- list(c(-1, -0.5, 0, 0.5, 1));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible27() {
+ assertEval("argv <- list(structure(c(\'Min. : 5.00 \', \'1st Qu.: 12.50 \', \'Median : 23.00 \', \'Mean : 29.48 \', \'3rd Qu.: 33.50 \', \'Max. :161.00 \', \'Min. :0.0000 \', \'1st Qu.:1.0000 \', \'Median :1.0000 \', \'Mean :0.7826 \', \'3rd Qu.:1.0000 \', \'Max. :1.0000 \', \'Maintained :11 \', \'Nonmaintained:12 \', NA, NA, NA, NA), .Dim = c(6L, 3L), .Dimnames = list(c(\'\', \'\', \'\', \'\', \'\', \'\'), c(\' time\', \' status\', \' x\')), class = \'table\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible28() {
+ assertEval("argv <- list(structure(list(latin1 = 0L, utf8 = 0L, bytes = 0L, unknown = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c(\'non_ASCII\', \'where\')))), .Names = c(\'latin1\', \'utf8\', \'bytes\', \'unknown\'), class = \'check_package_datasets\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible29() {
+ assertEval("argv <- list(structure(NA, .Tsp = c(1, 1, 1), class = \'ts\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible30() {
+ assertEval("argv <- list(structure(list(), class = \'formula\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible31() {
+ assertEval("argv <- list(structure(list(strip.vp = structure(list(x = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), y = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), width = structure(1, unit = \'npc\', valid.unit = 0L, class = \'unit\'), height = structure(1, unit = \'npc\', valid.unit = 0L, class = \'unit\'), justification = \'centre\', gp = structure(list(), class = \'gpar\'), clip = FALSE, xscale = c(-0.0330971105140634, 1.03229244338581), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = c(1L, 1L), layout.pos.col = c(1L, 1L), valid.just = c(0.5, 0.5), valid.pos.row = c(1L, 1L), valid.pos.col = c(1L, 1L), name = \'GRID.VP.40\'), .Names = c(\'x\', \'y\', \'width\', \'height\', \'justification\', \'gp\', \'clip\', \'xscale\', \'yscale\', \'angle\', \'layout\', \'layout.pos.row\', \'layout.pos.col\', \'valid.just\', \'valid.pos.row\', \'valid.pos.col\', \'name\'), class = \'viewport\'), plot.vp = structure(list(x = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), y = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), width = structure(1, unit = \'npc\', valid.unit = 0L, class = \'unit\'), height = structure(1, unit = \'npc\', valid.unit = 0L, class = \'unit\'), justification = \'centre\', gp = structure(list(), class = \'gpar\'), clip = FALSE, xscale = c(-0.0330971105140634, 1.03229244338581), yscale = c(-0.0353837383445352, 1.04704589419998), angle = 0, layout = NULL, layout.pos.row = c(2L, 2L), layout.pos.col = c(1L, 1L), valid.just = c(0.5, 0.5), valid.pos.row = c(2L, 2L), valid.pos.col = c(1L, 1L), name = \'GRID.VP.41\'), .Names = c(\'x\', \'y\', \'width\', \'height\', \'justification\', \'gp\', \'clip\', \'xscale\', \'yscale\', \'angle\', \'layout\', \'layout.pos.row\', \'layout.pos.col\', \'valid.just\', \'valid.pos.row\', \'valid.pos.col\', \'name\'), class = \'viewport\')), .Names = c(\'strip.vp\', \'plot.vp\')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testinvisible32() {
+ assertEval("argv <- list(structure(list(name = \'list\', objs = structure(list(`package:base` = .Primitive(\'list\'), .Primitive(\'list\')), .Names = c(\'package:base\', \'\')), where = c(\'package:base\', \'namespace:base\'), visible = c(TRUE, FALSE), dups = c(FALSE, TRUE)), .Names = c(\'name\', \'objs\', \'where\', \'visible\', \'dups\'), class = \'getAnywhere\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible33() {
+ assertEval("argv <- list(structure(list(GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962, Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551)), .Names = c(\'GNP.deflator\', \'GNP\', \'Unemployed\', \'Armed.Forces\', \'Population\', \'Year\', \'Employed\'), row.names = 1947:1962, class = \'data.frame\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible34() {
+ assertEval("argv <- list(structure(list(sec = 59.7693939208984, min = 47L, hour = 18L, mday = 17L, mon = 2L, year = 114L, wday = 1L, yday = 75L, isdst = 0L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'GMT\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible35() {
+ assertEval("argv <- list(structure(list(x = structure(c(63.8079770211941, 64.1015289795127, 64.3950809378313, 64.6886328961499, 64.9821848544685, 65.2757368127871, 65.5692887711057, 65.8628407294243, 66.1563926877429, 66.4499446460616, 66.7434966043802, 67.0370485626988, 67.3306005210174, 67.624152479336, 67.9177044376546, 68.2112563959732, 68.5048083542918, 68.7983603126104, 69.091912270929, 69.3854642292476, 69.6790161875662, 69.9725681458849, 70.2661201042035, 70.5596720625221, 70.8532240208407, 71.1467759791593, 71.4403279374779, 71.7338798957965, 72.0274318541151, 72.3209838124337, 72.6145357707524, 72.908087729071, 73.2016396873896, 73.4951916457082, 73.7887436040268, 74.0822955623454, 74.375847520664, 74.6693994789826, 74.9629514373012, 75.2565033956198, 75.5500553539384, 75.843607312257, 76.1371592705757, 76.4307112288943, 76.7242631872129, 77.0178151455315, 77.3113671038501, 77.6049190621687, 77.8984710204873, 78.1920229788059), unit = \'native\', valid.unit = 4L, class = \'unit\'), y = structure(c(0.000292389503184205, 0.000897790147984954, 0.00234624782100963, 0.00521720896677798, 0.00989423163518025, 0.015999825469344, 0.0221693602680603, 0.0266484406702544, 0.0287592128884921, 0.0302032637184832, 0.0349150884986298, 0.0473117449499264, 0.069811568153779, 0.101849712371392, 0.14014558800306, 0.179532924691013, 0.213121481011927, 0.233373692723354, 0.235396372946243, 0.221556776074102, 0.201658872746641, 0.187397555681655, 0.184299939839784, 0.187901304936084, 0.186879499085897, 0.171534710980926, 0.140953197828419, 0.103411084284294, 0.0700968149951466, 0.0478115464491638, 0.0363916682131507, 0.0310202066683672, 0.0267344490723088, 0.0212112857883806, 0.0149149265224817, 0.00956339674119522, 0.00665150505587597, 0.00689835920722663, 0.010231338259878, 0.0157315524205489, 0.0215689799990253, 0.0254154063025622, 0.0255363521874538, 0.0218531199052928, 0.0159232922023665, 0.00987834564939972, 0.00521442208935573, 0.00234582757042574, 0.000897736459776011, 0.000292383673435392), unit = \'native\', valid.unit = 4L, class = \'unit\'), arrow = NULL, name = \'plot_02.density.lines.panel.3.1\', gp = structure(list(lty = 1, col = \'#0080ff\', lwd = 1, alpha = 1), .Names = c(\'lty\', \'col\', \'lwd\', \'alpha\'), class = \'gpar\'), vp = NULL), .Names = c(\'x\', \'y\', \'arrow\', \'name\', \'gp\', \'vp\'), class = c(\'lines\', \'grob\', \'gDesc\')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible37() {
+ assertEval("argv <- list(structure(list(sec = numeric(0), min = integer(0), hour = integer(0), mday = integer(0), mon = integer(0), year = integer(0), wday = integer(0), yday = integer(0), isdst = integer(0)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'UTC\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible38() {
+ assertEval("argv <- list(structure(list(value = 4.94065645841247e-324, visible = TRUE), .Names = c(\'value\', \'visible\')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible39() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\'), c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = c(\'c0\', \'c0\'), row.names = integer(0), class = \'data.frame\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible40() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible41() {
+ assertEval("argv <- list(c(1e-10, 1e+49, 1e+108, 1e+167, 1e+226));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible42() {
+ assertEval("argv <- list(structure(\'checkRd: (-3) Surv.Rd:90: Unnecessary braces at ‘{time2}’\', class = \'checkRd\'));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible43() {
+ assertEval("argv <- list(structure(list(raster = structure(\'#000000\', .Dim = c(1L, 1L), class = \'raster\'), x = structure(0, unit = \'npc\', valid.unit = 0L, class = \'unit\'), y = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), width = NULL, height = NULL, just = \'centre\', hjust = NULL, vjust = NULL, interpolate = TRUE, name = \'GRID.rastergrob.785\', gp = structure(list(), class = \'gpar\'), vp = NULL), .Names = c(\'raster\', \'x\', \'y\', \'width\', \'height\', \'just\', \'hjust\', \'vjust\', \'interpolate\', \'name\', \'gp\', \'vp\'), class = c(\'rastergrob\', \'grob\', \'gDesc\')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible44() {
+ assertEval("argv <- list(structure(c(\'0\', \'NULL\', \'NULL\'), .Names = c(\'Length\', \'Class\', \'Mode\'), class = c(\'summaryDefault\', \'table\')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible45() {
+ assertEval("argv <- list(structure(list(TEST = structure(c(1L, 2L, 6L, 3L, 4L, 5L, 10L, 11L, 9L, 7L, 8L), .Label = c(\'1\', \'2\', \'4\', \'5\', \'\\\\040\', \'\\\\b\', \'\\\\n\', \'\\\\r\', \'\\\\t\', \'\\\\x20\', \'c:\\\\spencer\\\\tests\'), class = \'factor\')), .Names = \'TEST\', class = \'data.frame\', row.names = c(NA, -11L)));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible46() {
+ assertEval("argv <- list(structure(list(size = numeric(0), isdir = logical(0), mode = structure(integer(0), class = \'octmode\'), mtime = structure(numeric(0), class = c(\'POSIXct\', \'POSIXt\')), ctime = structure(numeric(0), class = c(\'POSIXct\', \'POSIXt\')), atime = structure(numeric(0), class = c(\'POSIXct\', \'POSIXt\')), uid = integer(0), gid = integer(0), uname = character(0), grname = character(0)), .Names = c(\'size\', \'isdir\', \'mode\', \'mtime\', \'ctime\', \'atime\', \'uid\', \'gid\', \'uname\', \'grname\'), class = \'data.frame\', row.names = character(0)));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible47() {
+ assertEval("argv <- list(structure(list(a = c(1L, 4L, 7L), b = c(2L, 5L, 8L), c = c(3L, 6L, 9L)), .Names = c(\'a\', \'b\', \'c\'), class = \'data.frame\', row.names = c(NA, -3L)));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible49() {
+ assertEval("argv <- list(structure(\'Error in rnorm(1, sd = Inf) : (converted from warning) NAs produced\\n\', class = \'try-error\', condition = structure(list(message = \'(converted from warning) NAs produced\', call = quote(rnorm(1, sd = Inf))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible50() {
+ assertEval("argv <- list(structure(1395078479.75887, class = c(\'POSIXct\', \'POSIXt\')));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible51() {
+ assertEval("argv <- list(structure(\'Error in read.table(\\\'foo1\\\') : no lines available in input\\n\', class = \'try-error\', condition = structure(list(message = \'no lines available in input\', call = quote(read.table(\'foo1\'))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))));invisible(argv[[1]]);");
+ }
+
+ @Test
+ public void testinvisible52() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Dim = c(10L, 2L), .Dimnames = list(NULL, c(\'tt\', \'tt + 1\')), .Tsp = c(1920.5, 1921.25, 12), class = c(\'mts\', \'ts\', \'matrix\')));invisible(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisNamespaceEnv.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisNamespaceEnv.java
new file mode 100644
index 0000000000000000000000000000000000000000..aa3e09373b259522f0ba0afa460a4e3270587bd9
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisNamespaceEnv.java
@@ -0,0 +1,36 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisNamespaceEnv extends TestBase {
+
+ @Test
+ @Ignore
+ public void testisNamespaceEnv1() {
+ assertEval("argv <- list(FALSE); .Internal(isNamespaceEnv(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisNamespaceEnv2() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L))); .Internal(isNamespaceEnv(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisNamespaceEnv3() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\')); .Internal(isNamespaceEnv(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisOpen.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisOpen.java
new file mode 100644
index 0000000000000000000000000000000000000000..f84f6d46c481c3e78b6a04ab5fb23f99248d2d6f
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisOpen.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisOpen extends TestBase {
+
+ @Test
+ @Ignore
+ public void testisOpen1() {
+ assertEval("argv <- list(structure(2L, class = c(\'terminal\', \'connection\')), 0L); .Internal(isOpen(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisOpen3() {
+ assertEval("argv <- list(FALSE, 2L); .Internal(isOpen(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisS4.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisS4.java
new file mode 100644
index 0000000000000000000000000000000000000000..1e9cc61df350b18fe8bd132e14e966259fd91ff5
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisS4.java
@@ -0,0 +1,120 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisS4 extends TestBase {
+
+ @Test
+ @Ignore
+ public void testisS41() {
+ assertEval("argv <- list(c(\'time\', \'status\'));isS4(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisS42() {
+ assertEval("argv <- list(structure(1:10, .Tsp = c(1959.25, 1961.5, 4), class = \'ts\'));isS4(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisS43() {
+ assertEval("argv <- list(1.79769313486232e+308);isS4(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisS44() {
+ assertEval("argv <- list(structure(c(\'a1\', NA, NA, \'a4\'), class = \'AsIs\'));isS4(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisS45() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 2L, 2L), Deviance = c(NA, 5.45230478674972, 2.66453525910038e-15), `Resid. Df` = c(8L, 6L, 4L), `Resid. Dev` = c(10.5814458637509, 5.12914107700115, 5.12914107700115)), .Names = c(\'Df\', \'Deviance\', \'Resid. Df\', \'Resid. Dev\'), row.names = c(\'NULL\', \'outcome\', \'treatment\'), class = c(\'anova\', \'data.frame\'), heading = \'Analysis of Deviance Table\\n\\nModel: poisson, link: log\\n\\nResponse: counts\\n\\nTerms added sequentially (first to last)\\n\\n\'));isS4(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisS46() {
+ assertEval("argv <- list(structure(list(f = structure(c(1L, 1L, 1L), .Label = c(\'1\', \'2\'), class = \'factor\'), u = structure(12:14, unit = \'kg\', class = \'avector\')), .Names = c(\'f\', \'u\'), row.names = 2:4, class = \'data.frame\'));isS4(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisS47() {
+ assertEval("argv <- list(structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)));isS4(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisS48() {
+ assertEval("argv <- list(structure(list(a = c(1L, 2L, 3L, NA), b = c(NA, 3.14159265358979, 3.14159265358979, 3.14159265358979), c = c(TRUE, NA, FALSE, TRUE), d = structure(c(1L, 2L, NA, 3L), .Label = c(\'aa\', \'bb\', \'dd\'), class = \'factor\'), e = structure(c(1L, NA, NA, 2L), .Label = c(\'a1\', \'a4\'), class = \'factor\'), f = structure(c(11323, NA, NA, 12717), class = \'Date\')), .Names = c(\'a\', \'b\', \'c\', \'d\', \'e\', \'f\'), row.names = c(NA, -4L), class = \'data.frame\', data_types = c(\'N\', \'N\', \'L\', \'C\', \'C\', \'D\')));isS4(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisS49() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));isS4(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisS410() {
+ assertEval("argv <- list(structure(list(coefficients = structure(c(62.4053692999179, 1.55110264750845, 0.510167579684914, 0.101909403579661, -0.144061029071015), .Names = c(\'(Intercept)\', \'x1\', \'x2\', \'x3\', \'x4\')), residuals = structure(c(0.00476041849820263, 1.51120069970905, -1.67093753208295, -1.72710025504269, 0.250755561773019, 3.92544270216433, -1.44866908650026, -3.17498851728652, 1.3783494772083, 0.281547998741553, 1.99098357125943, 0.972989034920119, -2.2943340733616), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\')), effects = structure(c(-344.052796708698, 38.0798677535417, -34.7531619513928, -3.12951579377076, 0.496965514049109, 4.50219669010871, -0.53327716269669, -2.71488989732451, 1.79317596396333, 1.57288365899254, 2.82474425399188, 1.8967418325489, -1.63480882826157), .Names = c(\'(Intercept)\', \'x1\', \'x2\', \'x3\', \'x4\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\')), rank = 5L, fitted.values = structure(c(78.4952395815018, 72.7887993002909, 105.970937532083, 89.3271002550427, 95.649244438227, 105.274557297836, 104.1486690865, 75.6749885172865, 91.7216505227917, 115.618452001258, 81.8090164287406, 112.32701096508, 111.694334073362), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\')), assign = 0:4, qr = structure(list(qr = structure(c(-3.60555127546399, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, 0.277350098112615, -26.9029595169236, 20.3772120082893, -0.178565892506596, -0.178565892506596, 0.0177318148722558, -0.178565892506596, 0.214029522251108, 0.312178375940534, 0.263103949095821, -0.669310160953726, 0.312178375940534, -0.178565892506596, -0.129491465661883, -173.621161418497, 12.3214560939341, -52.4773668110126, -0.304364982610169, 0.171821393780133, 0.152975037639542, 0.609896101816292, -0.114330335930658, 0.304950385474031, -0.189506282456539, 0.0571721716629835, 0.362589213587327, 0.41970434660942, -42.43456501123, -18.2858864335223, -1.11991681104158, -12.5171816310368, -0.405342735734607, 0.108637576500954, 0.150506108798058, 0.497910771855039, 0.197741319088291, 0.429225499683342, 0.557905444893665, 0.0843208353807417, -0.0702259750833564, -108.16653826392, -14.2315837849668, 54.6072781350954, 12.8688326829848, -3.44968738078449, -0.0383654655076831, 0.50336264362848, 0.326250451511037, -0.0404173233188265, 0.0147578414456289, 0.526049642157631, 0.437713824243366, 0.410519010978314), .Dim = c(13L, 5L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\'), c(\'(Intercept)\', \'x1\', \'x2\', \'x3\', \'x4\')), assign = 0:4), qraux = c(1.27735009811261, 1.31217837594053, 1.17203087181661, 1.08180209589898, 1.00399408483144), pivot = 1:5, tol = 1e-07, rank = 5L), .Names = c(\'qr\', \'qraux\', \'pivot\', \'tol\', \'rank\'), class = \'qr\'), df.residual = 8L, xlevels = structure(list(), .Names = character(0)), call = quote(lm(formula = y ~ x1 + x2 + x3 + x4, data = d2)), terms = quote(y ~ x1 + x2 + x3 + x4), model = structure(list(y = c(78.5, 74.3, 104.3, 87.6, 95.9, 109.2, 102.7, 72.5, 93.1, 115.9, 83.8, 113.3, 109.4), x1 = c(7, 1, 11, 11, 7, 11, 3, 1, 2, 21, 1, 11, 10), x2 = c(26, 29, 56, 31, 52, 55, 71, 31, 54, 47, 40, 66, 68), x3 = c(6, 15, 8, 8, 6, 9, 17, 22, 18, 4, 23, 9, 8), x4 = c(60, 52, 20, 47, 33, 22, 6, 44, 22, 26, 34, 12, 12)), .Names = c(\'y\', \'x1\', \'x2\', \'x3\', \'x4\'), terms = quote(y ~ x1 + x2 + x3 + x4), row.names = c(NA, 13L), class = \'data.frame\'), formula = quote(y ~ x1 + x2 + x3 + x4)), .Names = c(\'coefficients\', \'residuals\', \'effects\', \'rank\', \'fitted.values\', \'assign\', \'qr\', \'df.residual\', \'xlevels\', \'call\', \'terms\', \'model\', \'formula\'), class = \'lm\'));isS4(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisS411() {
+ assertEval("argv <- list(3.14159265358979);isS4(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisS412() {
+ assertEval("argv <- list(structure(1, .Dim = 1L));isS4(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisS413() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c(\'1\', \'2\', NA), class = \'factor\'));isS4(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisS414() {
+ assertEval("argv <- list(structure(list(usr = c(0.568, 1.432, -1.08, 1.08), xaxp = c(0.6, 1.4, 4), yaxp = c(-1, 1, 4)), .Names = c(\'usr\', \'xaxp\', \'yaxp\')));isS4(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisS415() {
+ assertEval("argv <- list(structure(list(row.names = c(\'rate\', \'additive\', \'rate:additive\', \'Residuals\'), SS = structure(list(rate = structure(c(1.7405, -1.5045, 0.855500000000001, -1.5045, 1.3005, -0.739500000000001, 0.855500000000001, -0.739500000000001, 0.420500000000001), .Dim = c(3L, 3L), .Dimnames = list(c(\'tear\', \'gloss\', \'opacity\'), c(\'tear\', \'gloss\', \'opacity\'))), additive = structure(c(0.760499999999999, 0.682499999999998, 1.9305, 0.682499999999998, 0.612499999999998, 1.7325, 1.9305, 1.7325, 4.90050000000001), .Dim = c(3L, 3L), .Dimnames = list(c(\'tear\', \'gloss\', \'opacity\'), c(\'tear\', \'gloss\', \'opacity\'))), `rate:additive` = structure(c(0.000500000000000012, 0.0165000000000002, 0.0445000000000006, 0.0165000000000002, 0.5445, 1.4685, 0.0445000000000006, 1.4685, 3.9605), .Dim = c(3L, 3L), .Dimnames = list(c(\'tear\', \'gloss\', \'opacity\'), c(\'tear\', \'gloss\', \'opacity\'))), Residuals = structure(c(1.764, 0.0200000000000005, -3.07, 0.0200000000000005, 2.628, -0.551999999999994, -3.07, -0.551999999999994, 64.924), .Dim = c(3L, 3L), .Dimnames = list(c(\'tear\', \'gloss\', \'opacity\'), c(\'tear\', \'gloss\', \'opacity\')))), .Names = c(\'rate\', \'additive\', \'rate:additive\', \'Residuals\')), Eigenvalues = structure(c(1.61877188028067, 0.911918322770912, 0.286826136427727, -8.75998844614162e-17, -6.73817551294033e-18, 8.58370095630716e-18, 1.36263996836868e-17, -6.73817551294033e-18, -2.24871081520413e-19), .Dim = c(3L, 3L), .Dimnames = list(c(\'rate\', \'additive\', \'rate:additive\'), NULL)), stats = structure(c(1, 1, 1, 16, 0.618141615338857, 0.476965104581081, 0.222894242126575, NA, 7.55426877464313, 4.25561883959759, 1.33852196999606, NA, 3, 3, 3, NA, 14, 14, 14, NA, 0.00303404516026092, 0.0247452809990207, 0.301781645099671, NA), .Dim = c(4L, 6L), .Dimnames = list(c(\'rate\', \'additive\', \'rate:additive\', \'Residuals\'), c(\'Df\', \'Pillai\', \'approx F\', \'num Df\', \'den Df\', \'Pr(>F)\')))), .Names = c(\'row.names\', \'SS\', \'Eigenvalues\', \'stats\'), class = \'summary.manova\'));isS4(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisS416() {
+ assertEval("argv <- list(4.94065645841247e-324);isS4(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisS417() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = \'data.frame\'));isS4(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisarray.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisarray.java
new file mode 100644
index 0000000000000000000000000000000000000000..ea8b32f241dfcadcfddde7a4d1c29a57d8770aa9
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisarray.java
@@ -0,0 +1,141 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisarray extends TestBase {
+
+ @Test
+ public void testisarray1() {
+ assertEval("argv <- list(structure(list(weight = c(4.17, 5.58), group = structure(c(1L, 1L), .Label = c(\'Ctl\', \'Trt\'), class = \'factor\')), .Names = c(\'weight\', \'group\'), row.names = 1:2, class = \'data.frame\'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void testisarray2() {
+ assertEval("argv <- list(structure(list(weight = c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c(\'Ctl\', \'Trt\'), class = \'factor\')), .Names = c(\'weight\', \'group\'), row.names = c(NA, -20L), class = \'data.frame\'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisarray3() {
+ assertEval("argv <- list(structure(c(3.3675190249981e-55, 0.765191717864009, 1.84321904447013e-13, 0.270563224172485, 1.09996038197079, 1.31584681249013e-26, 0.00018392029356426, 0.515909871821833, 3.2666146281237e-45, -9.79475754683005e-56, -0.139604410987981, -1.56689901864133e-13, -0.285096750996398, -0.00590762252543826, -1.87837727043588e-27, -1.95765906855729e-05, -0.587847588896037, -1.0000270983218e-45), .Dim = c(9L, 2L), .Dimnames = list(NULL, c(\'Comp.1\', \'Comp.2\'))));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void testisarray4() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.array(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisarray5() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE), .Dim = c(11L, 2L)));is.array(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisarray6() {
+ assertEval("argv <- list(structure(c(3+2i, 3+2i, NA, 3+2i, 3+2i, 3+2i, 3+2i, 3+2i, 4-5i, 3-5i, NA, NA, 2-5i, 3-5i, 4-5i, 5-5i), .Dim = c(8L, 2L), .Dimnames = list(NULL, c(\'x1\', \'x2\'))));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void testisarray7() {
+ assertEval("argv <- list(c(\'2001-01-01\', NA, NA, \'2004-10-26\'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void testisarray8() {
+ assertEval("argv <- list(structure(list(breaks = c(26, 30, 54, 25, 70, 52, 51, 26, 67, 27, 14, 29, 19, 29, 31, 41, 20, 44), wool = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c(\'A\', \'B\'), class = \'factor\'), tension = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c(\'L\', \'M\', \'H\'), class = \'factor\')), .Names = c(\'breaks\', \'wool\', \'tension\'), row.names = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L), class = \'data.frame\'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void testisarray9() {
+ assertEval("argv <- list(structure(list(carb = c(33, 40, 37, 27, 30, 43, 34, 48, 30, 38, 50, 51, 30, 36, 41, 42, 46, 24, 35, 37), age = c(33, 47, 49, 35, 46, 52, 62, 23, 32, 42, 31, 61, 63, 40, 50, 64, 56, 61, 48, 28), wgt = c(100, 92, 135, 144, 140, 101, 95, 101, 98, 105, 108, 85, 130, 127, 109, 107, 117, 100, 118, 102), prot = c(14, 15, 18, 12, 15, 15, 14, 17, 15, 14, 17, 19, 19, 20, 15, 16, 18, 13, 18, 14)), .Names = c(\'carb\', \'age\', \'wgt\', \'prot\'), row.names = c(NA, -20L), class = \'data.frame\'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void testisarray10() {
+ assertEval("argv <- list(structure(integer(0), .Names = character(0)));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void testisarray11() {
+ assertEval("argv <- list(structure(list(c0 = logical(0)), .Names = \'c0\', row.names = integer(0), class = \'difftime\'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void testisarray12() {
+ assertEval("argv <- list(structure(list(B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c(\'I\', \'II\', \'III\', \'IV\', \'V\', \'VI\'), class = \'factor\'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c(\'Golden.rain\', \'Marvellous\', \'Victory\'), class = \'factor\'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\'), class = \'factor\'), Y = c(130L, 157L, 174L, 117L, 114L, 161L, 141L, 105L, 140L, 118L, 156L, 61L, 91L, 97L, 100L, 70L, 108L, 126L, 149L, 96L, 124L, 121L, 144L, 68L, 64L, 112L, 86L, 60L, 102L, 89L, 96L, 89L, 129L, 132L, 124L, 74L, 89L, 81L, 122L, 64L, 103L, 132L, 133L, 70L, 89L, 104L, 117L, 62L, 90L, 100L, 116L, 80L, 82L, 94L, 126L, 63L, 70L, 109L, 99L, 53L, 74L, 118L, 113L, 89L, 82L, 86L, 104L, 97L, 99L, 119L, 121L)), .Names = c(\'B\', \'V\', \'N\', \'Y\'), row.names = 2:72, class = \'data.frame\'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void testisarray13() {
+ assertEval("argv <- list(1.79769313486232e+308);is.array(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisarray14() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list(\'a\')));is.array(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisarray15() {
+ assertEval("argv <- list(structure(c(-0.826728474083517, -0.154469781470927, 0.390336546510923, 1.36531474451071, 2.06722571939869, 1.96521311125433, 1.45602298338166, 0.730191404067138, -0.941608750081938, -0.839732558506723, -0.0905911085922035, 0.450465973953452, 1.12065714554563, 1.45760317860118, 1.25109677501882, 1.2162018587134, 1.45496813096317, -0.271923056200992, -2.39070401244086, -2.40312653243942, 1.3490211050246, 0.723634003520978, -0.525571703048375, -2.20018568844273, -1.57021740950431, -1.15394138529193, -0.771438011070496, 0.948968136215006, 1.11028283982967, 1.3490211050246, 0.723634003520978, -0.771438011070496, -1.76787333029837, -2.97849067734298, -2.56564546193719, -1.42386100140387, -0.482534191368393, 0.15506930200634, 0.878254497780181, 1.05319014844382, 0.0786502243396558, -0.896275208780418, -0.852907979665288, -1.36905276490888, -0.852907979665288, 0.378793517229249, 1.51661659600387, 1.37393548755461, -1.19044178751146, -1.01371204398328, -0.413541319881442, -0.0155111902607956, 0.511260101660621, 1.1596935438887, 1.49073250236106, 1.90481616825336, 1.72198968844944, 1.06922804353907, -0.525571703048375, -2.20018568844273, -1.57021740950431, -1.15394138529193, -0.771438011070496, 0.948968136215006, 1.11028283982967, 1.3490211050246, 0.723634003520978, -0.771438011070496, -1.76787333029837, 1.90481616825336, -1.15394138529193, -0.771438011070496, 0.948968136215006, 1.11028283982967, 1.3490211050246, 0.723634003520978, -0.771438011070496, -1.76787333029837, 1.17726251300777, 0.873546391155001, -0.257195249490748, -1.08470959372261, -1.32132136208769, -1.28389495656857, -0.471605120836204, 0.606878400401293, 1.31985237043395, 2.02783906485667, 1.57046182864688, -0.252818874890949, -1.24388962195487, -0.626057778621366, 1.49073250236106, 1.90481616825336, 1.72198968844944, 1.06922804353907, -0.525571703048375, -2.20018568844273, -1.57021740950431, -1.15394138529193, -0.771438011070496, 0.948968136215006, 1.11028283982967, 1.45760317860118, 1.25109677501882, 1.2162018587134, 1.45496813096317, -0.271923056200992, -2.39070401244086, -2.40312653243942, -2.10302193998908, -1.35143116355906, -0.796191750223435, 0.24658809164983), .Dim = c(114L, 1L), .Dimnames = list(NULL, \'Series 1\'), .Tsp = c(1, 114, 1), class = \'ts\'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisarray16() {
+ assertEval("argv <- list(structure(c(1.82608695652174, 1.17391304347826, 1.17391304347826, 4.17391304347826, 1.82608695652174, 1.82608695652174, 2.17391304347826, 0.173913043478262, 4.17391304347826, 0.826086956521738, 2.17391304347826, 2.17391304347826, 2.17391304347826, 4.17391304347826, 2.82608695652174, 2.17391304347826, 2.17391304347826, 0.826086956521738, 3.82608695652174, 1.82608695652174, 4.82608695652174, 0.173913043478262, 7.82608695652174, 1.15, 5.15, 0.85, 1.15, 2.85, 2.85, 1.85, NA, 6.15, 2.85, 0.15, 3.15, 0.15, NA, NA, 1.15, 1.85, 0.15, 0.85, 0.85, 2.15, 2.85, 2.85, 32.2608695652174, 54.2608695652174, 36.2608695652174, 45.2608695652174, 194.739130434783, 130.739130434783, 35.2608695652174, 59.2608695652174, 63.2608695652174, 25.7391304347826, 25.2608695652174, 44.2608695652174, 16.2608695652174, 63.2608695652174, 53.2608695652174, 56.2608695652174, 19.2608695652174, 35.2608695652174, 39.2608695652174, 7.26086956521739, 38.2608695652174, 213.739130434783, 158.739130434783, 8.09999999999999, 94.9, 59.9, 49.9, 176.1, 11.1, 59.9, NA, 100.1, 15.1, 21.1, 84.1, 65.1, NA, NA, 63.9, 37.9, 26.9, 128.9, 42.1, 87.9, 118.1, 30.9), .Dim = c(23L, 4L), .Dimnames = list(NULL, c(\'V1\', \'V2\', \'V3\', \'V4\')), \'`scaled:center`\' = structure(c(10.8260869565217, 3.85, 95.2608695652174, 137.9), .Names = c(\'V1\', \'V2\', \'V3\', \'V4\'))));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void testisarray17() {
+ assertEval("argv <- list(c(\'1\', \'2\', NA));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void testisarray18() {
+ assertEval("argv <- list(structure(list(y = c(0.219628047744843, 0.360454661130887, NA, 0.114681204747219, -1.14267533343616, 0.772374419482067, 0.681741904304867, 0.171869265068012, 2.08409180391906, 0.367547276775469), x1 = c(1L, 2L, 3L, NA, 5L, 6L, 7L, 8L, 9L, 10L), x2 = 1:10, x3 = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), wt = c(0, 1, 1, 1, 1, 1, 1, 1, 1, 1)), .Names = c(\'y\', \'x1\', \'x2\', \'x3\', \'wt\'), row.names = c(\'a\', \'b\', \'c\', \'d\', \'e\', \'f\', \'g\', \'h\', \'i\', \'j\'), class = \'data.frame\'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void testisarray19() {
+ assertEval("argv <- list(structure(list(x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861)), .Names = c(\'x\', \'y\'), row.names = c(NA, -10L), class = \'data.frame\'));is.array(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisarray20() {
+ assertEval("argv <- list(structure(c(365, 365, 365, 366, 1, 0), .Dim = c(3L, 2L)));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void testisarray21() {
+ assertEval("argv <- list(integer(0));is.array(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisarray22() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4, .Dimnames = list(c(\'A\', \'B\', \'C\'), c(\'D\', \'E\', \'F\', \'G\'))));is.array(argv[[1]]);");
+ }
+
+ @Test
+ public void testisarray23() {
+ assertEval("argv <- list(c(0.568, 1.432, -1.08, 1.08));is.array(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisatomic.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisatomic.java
new file mode 100644
index 0000000000000000000000000000000000000000..ae1efd103741a3ce84846e1e73e60d3ef798b7fa
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisatomic.java
@@ -0,0 +1,180 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisatomic extends TestBase {
+
+ @Test
+ public void testisatomic1() {
+ assertEval("argv <- list(c(\'01\', \'02\', \'03\', \'04\', \'05\', \'06\', \'07\', \'08\', \'09\', \'10\', \'11\', \'12\'));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic2() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 0, 10, NA), .Dim = c(3L, 2L)));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic3() {
+ assertEval("argv <- list(structure(list(x = 1:10, yyy = 11:20), .Names = c(\'x\', \'yyy\'), row.names = c(NA, -10L), class = \'data.frame\'));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic4() {
+ assertEval("argv <- list(c(-1.12778377684043, -12820.0784261145, -21650982809.6744, -473300382255715392, -6.08456909882282e+25, -3.04622557026196e+34, -4.60125024792566e+43, -1.76183826972506e+53, -1.5069799345972e+63, -2.61556777274611e+73, -8.54170618068872e+83, -4.9383857330861e+94, -4.80716085942859e+105, -7.55412056676629e+116, -1.84898368353639e+128, -6.83535188151783e+139, -3.71562599613334e+151, -2.90089508183654e+163, -3.18582547396557e+175, -4.83110332887119e+187, -9.94902790498679e+199, -2.74100158340596e+212, -9.96611412047338e+224, -4.72336572671053e+237, -2.88514442494869e+250, -2.24780296109123e+263, -2.21240023126594e+276, -2.72671165723473e+289, -4.17369555651928e+302, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic5() {
+ assertEval("argv <- list(c(2.5, 6, 6, 7.5, 8, 8, 16, 6, 5, 6, 28, 5, 9.5, 6, 4.5, 10, 14, 3, 4.5, 5.5, 3, 3.5, 6, 2, 3, 4, 6, 5, 6.5, 5, 10, 6, 18, 4.5, 20));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic6() {
+ assertEval("argv <- list(structure(c(1, 2, 2, 3, 3, 3, 4, 5), .Names = c(\'dsyMatrix\', \'ddenseMatrix\', \'symmetricMatrix\', \'dMatrix\', \'denseMatrix\', \'compMatrix\', \'Matrix\', \'mMatrix\')));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic7() {
+ assertEval("argv <- list(c(-Inf, -Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic8() {
+ assertEval("argv <- list(structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c(\'w\', \'w2\'))));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic9() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\')));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic10() {
+ assertEval("argv <- list(structure(c(123.263157894737, 88.6052631578949, 77.0526315789476, 60.9473684210528, 54.3947368421055, 43.8421052631581, 34.2894736842107, 14.7368421052633, 10.6315789473686, 1.07894736842124, -9.47368421052613, -11.0263157894735, -16.1315789473682, -13.6842105263156, -3.23684210526298, -1.34210526315772, 11.1052631578949, -0.44736842105246, 7.00000000000017, 7.4473684210528, 6.89473684210543, 5.34210526315806, -8.21052631578931, -15.7631578947367, -3.31578947368405, 24.5789473684212, 27.0263157894738, 26.4736842105265, 21.9210526315791, 23.3684210526317, 27.263157894737, 19.6052631578949, 21.0526315789475, 26.5000000000001, 22.9473684210528, 12.3947368421054, 1.84210526315803, 5.28947368421066, -1.81578947368408, 4.63157894736855, 24.5263157894738, 10.9736842105264, 4.42105263157907, -10.1315789473683, -10.6842105263157, 12.763157894737, 33.2105263157896, 35.1052631578949, 44.5526315789475, 41.0000000000001, 46.4473684210527, 59.8947368421054, 69.342105263158, 64.7894736842106, 48.6842105263159, 63.1315789473685, 54.0263157894738, 46.4736842105264, 41.921052631579, 35.3684210526317, 27.8157894736843, 32.2631578947369, 36.7105263157896, 32.1578947368422, 23.6052631578948, 14.0526315789475, 12.5000000000001, -5.05263157894728, 9.84210526315798, 7.28947368421061, 16.7368421052632, 13.1842105263159, 13.6315789473685, 7.07894736842113, 9.52631578947376, 6.42105263157902, 4.31578947368428, -7.23684210526309, -15.7894736842105, 0.657894736842167, -5.8947368421052, 0.552631578947427, 7.44736842105269, -10.1052631578947, -3.65789473684205, 0.789473684210577, 7.23684210526321, 16.6842105263158, 7.13157894736847, -4.4210526315789, -5.97368421052627, -11.5263157894736, -4.07894736842101, -16.6315789473684, -14.1842105263158, -19.7368421052631, -11.2894736842105, -5.84210526315786, -13.3947368421052, -14.9473684210526, -15.5, -21.0526315789473, -6.60526315789471, -14.1578947368421, -8.71052631578945, -6.26315789473682, -11.8157894736842, -19.3684210526316, -6.92105263157893, -18.4736842105263, -19.0263157894737, -15.578947368421, -16.1315789473684, -12.6842105263158, 5.76315789473685, 3.21052631578948, 2.65789473684211, 5.10526315789474, 11.5526315789474), .Names = c(\'11\', \'12\', \'13\', \'15\', \'26\', \'30\', \'31\', \'53\', \'54\', \'59\', \'60\', \'65\', \'71\', \'81\', \'88\', \'92\', \'93\', \'95\', \'105\', \'107\', \'110\', \'116\', \'118\', \'131\', \'132\', \'135\', \'142\', \'144\', \'147\', \'156\', \'163\', \'166\', \'170\', \'174\', \'175\', \'176\', \'177\', \'179\', \'180\', \'181\', \'183\', \'185\', \'188\', \'189\', \'191\', \'196\', \'197\', \'202\', \'207\', \'210\', \'212\', \'218\', \'221\', \'222\', \'223\', \'225\', \'229\', \'230\', \'237\', \'239\', \'246\', \'259\', \'267\', \'269\', \'270\', \'279\', \'283\', \'284\', \'285\', \'286\', \'288\', \'291\', \'292\', \'300\', \'301\', \'303\', \'306\', \'310\', \'320\', \'329\', \'337\', \'353\', \'363\', \'364\', \'371\', \'387\', \'390\', \'394\', \'404\', \'413\', \'428\', \'429\', \'442\', \'444\', \'455\', \'457\', \'458\', \'460\', \'477\', \'519\', \'524\', \'533\', \'558\', \'567\', \'574\', \'583\', \'613\', \'624\', \'643\', \'655\', \'689\', \'707\', \'791\', \'806\', \'814\', \'840\', \'883\', \'1010\', \'1022\')));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic11() {
+ assertEval("argv <- list(structure(c(0, -0.0555555555555556, 0.02, 0.0625, 0.0625, 0.04, 0, 0), .Dim = c(8L, 1L), .Dimnames = list(c(\'2\', \'3\', \'6\', \'7\', \'8\', \'9\', \'14\', \'17\'), \'x\')));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic12() {
+ assertEval("argv <- list(structure(c(2.21843970753346, 1.80732678656753, -1.09399175987006, 0.585986462327552, -5.68458926982395, 1.23352238598674, 0.457950438444482, 2.51599006679516, -2.28780372840319, 5.53596062467695, 2.17890565095959, -1.59611751350773, -2.9672978602151, 0.745175851232308, 1.93388282434376, -3.03559459078455, 2.19500990255906, 0.0725275773318347, -0.75336064096447, -1.15505962102859, -2.84782886882524, -1.41070341448251, -0.540252474026749, 4.87719739781058, 0.890715639552621, -0.968642103099399, 1.73177156113283, -0.993218102309356, -0.656454198323984, -1.5299506933835, -0.298424468882268, 6.51011264717937, 2.68326774833378, 1.99295445531679, -0.214079422583434, 6.73505308264589, -4.54579214489424, -2.3991834444486, -1.71479569181251, -6.47293095421849, -1.67116930820449, -11.5853328029437, -2.48588878138021, -0.888857646918452, 8.06807102468956, -0.216046323028316, 6.24682938323398, -1.74761908105831, 2.53082303181417, 2.31410662801887, 2.97453294161523, -2.88723068649699, -1.04144266580674, -0.835536300630093, -6.10229135345437, -4.37605802846523, -1.94289029309402e-16, 5.96619037131792, -1.1474434665393, 3.78819830631063, -3.01580771910632, -0.656454198323984, 1.50824785799851, -2.06401783962239, -3.02346226775125, 0.407243897855763, -3.96478352340807, -2.12718621336067, -0.78924288871239, -3.03559459078455, 0.457950438444496, -0.797900839851943, -3.38233849466459, 1.97815029009903, 0.745175851232309, -1.09645503136389, 0.341748714147263, 7.32472922782987, -1.33672649241008, 1.51931399477032, 0.00590129163826772, -4.09533092706814, 0.195481697042187, -2.7736762657602, -3.48737543915568, 0.536312040203338, 0.775871729180551, 4.37979177946206, 1.30271070089245, 4.2132287611068, 7.33457656622414, 3.28311350719274, -1.30271070089245), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\')));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic13() {
+ assertEval("argv <- list(c(1, 0, 2, NA, 3));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic14() {
+ assertEval("argv <- list(c(1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.00566013786017473, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, -0.00900237050730269, -0.728901016108085, 1, 0, 0, 0, 0, 0, 0, 0, 0, -0.0165439610603712, 0.195986923200517, -0.65974257839475, 1, 0, 0, 0, 0, 0, 0, 0, -0.066085607580362, -0.0156976524162818, 0.173905017001082, -0.499536921684336, 1, 0, 0, 0, 0, 0, 0, -0.0738085645370442, -0.0203225592950423, -0.115986092442635, 0.0129919901272555, -0.442920654638837, 1, 0, 0, 0, 0, 0, 0.0393894522336503, -0.0197375262983596, -0.124011676515792, -0.217221939591068, -0.129869023991585, -0.565387274218169, 1, 0, 0, 0, 0, 0.0607863121945582, -0.0166644168652946, -0.107337280394758, -0.197961946387821, -0.278643450192551, -0.207586147284064, -0.767412521925717, 1, 0, 0, 0, 0.062350529551034, -0.00752786862124525, -0.0512212310455943, -0.0966787787982999, -0.13451920005707, -0.183723918913255, -0.15174930099133, -1.08016400642495, 1, 0, 0, 0.00956599068508591, -0.00134207672049057, -0.00895378984363029, -0.0175914048294707, -0.0252596683886793, -0.0334470581271047, -0.0623904491074943, 0.117178336161866, -1.32461347964996, 1, 0, -0.000288769768734922, -7.2526747819756e-05, -0.000396728614559744, -0.000760325293277726, -0.00119170347009929, -0.00158048211775626, -0.00256503558312322, -0.00605270851626604, 0.3995724375217, -0.740914424130097, 1));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic15() {
+ assertEval("argv <- list(structure(list(age = 62.4473684210526, age.strata.sex.sex.2 = 24.109649122807), .Names = c(\'age\', \'age.strata.sex.sex.2\'), row.names = c(NA, -1L), class = \'data.frame\'));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic16() {
+ assertEval("argv <- list(structure(list(base = c(11L, 11L, 6L, 8L, 66L, 27L, 12L, 52L, 23L, 10L, 52L, 33L, 18L, 42L, 87L, 50L, 18L, 111L, 18L, 20L, 12L, 9L, 17L, 28L, 55L, 9L, 10L, 47L, 76L, 38L, 19L, 10L, 19L, 24L, 31L, 14L, 11L, 67L, 41L, 7L, 22L, 13L, 46L, 36L, 38L, 7L, 36L, 11L, 151L, 22L, 41L, 32L, 56L, 24L, 16L, 22L, 25L, 13L, 12L)), .Names = \'base\', class = \'data.frame\', row.names = c(1L, 5L, 9L, 13L, 17L, 21L, 25L, 29L, 33L, 37L, 41L, 45L, 49L, 53L, 57L, 61L, 65L, 69L, 73L, 77L, 81L, 85L, 89L, 93L, 97L, 101L, 105L, 109L, 113L, 117L, 121L, 125L, 129L, 133L, 137L, 141L, 145L, 149L, 153L, 157L, 161L, 165L, 169L, 173L, 177L, 181L, 185L, 189L, 193L, 197L, 201L, 205L, 209L, 213L, 217L, 221L, 225L, 229L, 233L)));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic17() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 0, 2.47032822920623e-323, 0, 0, 0, 0, 0));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic18() {
+ assertEval("argv <- list(structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic19() {
+ assertEval("argv <- list(c(NA, \'Ripley\', \'Venables & Smith\'));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic20() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic21() {
+ assertEval("argv <- list(structure(FALSE, .Tsp = c(1, 1, 1), class = \'ts\'));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic22() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(4L, 0L)));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisatomic23() {
+ assertEval("argv <- list(structure(1:3, .Label = c(\'4\', \'5\', \'6\'), class = \'factor\'));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic24() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L, 4L, 4L, 4L), .Label = c(\'freckle\', \'superficial\', \'nodular\', \'indeterminate\'), class = \'factor\', contrasts = \'contr.treatment\'));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic25() {
+ assertEval("argv <- list(raw(0));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic26() {
+ assertEval("argv <- list(c(19.7787405591752, 12504507.4953993, 12504507.4953993, 5.96190157728191e+41));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic27() {
+ assertEval("argv <- list(character(0));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic28() {
+ assertEval("argv <- list(structure(list(a1 = 1:3, a2 = 4:6, a3 = 3.14159265358979, a4 = c(\'a\', \'b\', \'c\')), .Names = c(\'a1\', \'a2\', \'a3\', \'a4\')));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic29() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c(\'1\', \'2\', NA), class = \'factor\'));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic30() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ public void testisatomic31() {
+ assertEval("argv <- list(c(2L, 1L, NA));is.atomic(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisatomic32() {
+ assertEval("argv <- list(structure(1:20, .Tsp = c(1, 20, 1), class = \'ts\'));is.atomic(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltiniscall.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltiniscall.java
new file mode 100644
index 0000000000000000000000000000000000000000..a87ef6fc1a831cf8919f536945222e7b4c9d6753
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltiniscall.java
@@ -0,0 +1,168 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltiniscall extends TestBase {
+
+ @Test
+ @Ignore
+ public void testiscall1() {
+ assertEval("argv <- list(structure(list(dim = c(93L, 19L), dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\'), c(\'dfb.1_\', \'dfb.Wght\', \'dfb.Cyl4\', \'dfb.Cyl5\', \'dfb.Cyl6\', \'dfb.Cyl8\', \'dfb.Cyln\', \'dfb.TypL\', \'dfb.TypM\', \'dfb.TypSm\', \'dfb.TypSp\', \'dfb.TypV\', \'dfb.EngS\', \'dfb.DrTF\', \'dfb.DrTR\', \'dffit\', \'cov.r\', \'cook.d\', \'hat\'))), .Names = c(\'dim\', \'dimnames\')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall2() {
+ assertEval("argv <- list(structure(1:10, .Tsp = c(1920.5, 1921.25, 12), class = \'ts\'));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall3() {
+ assertEval("argv <- list(structure(c(1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = \'ts\'));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall4() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall5() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = \'data.frame\'));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall6() {
+ assertEval("argv <- list(structure(list(var = structure(c(4L, 4L, 1L, 2L, 1L, 2L, 3L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 2L, 3L, 2L, 1L, 3L, 1L, 1L, 1L, 3L, 1L, 1L), .Label = c(\'<leaf>\', \'Age\', \'Number\', \'Start\'), class = \'factor\'), wt = c(318, 244, 114, 130, 49, 81, 65, 34, 31, 17, 14, 3, 11, 16, 74, 42, 35, 16, 19, 10, 9, 7, 32, 3, 29), dev = c(95.4, 34.5652173913044, 0, 34.5652173913044, 0, 34.5652173913044, 15.2086956521739, 0, 15.2086956521739, 0, 5.36385542168675, 0, 0, 3.57590361445783, 53.6385542168675, 22.1217391304348, 12.4434782608696, 0, 12.4434782608696, 0, 0, 0, 7.15180722891566, 0, 1.78795180722892), yval = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 1, 1, 1, 1, 1, 2, 2, 2, 1, 2), complexity = c(0.165415284325709, 0.0551384281085695, 0.039, 0.0551384281085695, 0.039, 0.0551384281085695, 0.0515976951283394, 0.039, 0.0515976951283394, 0.039, 0.0515976951283394, 0.039, 0.039, 0.039, 0.165415284325709, 0.101449275362319, 0.0652173913043478, 0.039, 0.0652173913043478, 0.039, 0.039, 0.039, 0.0562248995983936, 0.039, 0.039), ncompete = c(2L, 2L, 0L, 2L, 0L, 2L, 2L, 0L, 2L, 0L, 2L, 0L, 0L, 0L, 2L, 2L, 2L, 0L, 2L, 0L, 0L, 0L, 2L, 0L, 0L), nsurrogate = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), yval2 = structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 1, 1, 1, 1, 1, 2, 2, 2, 1, 2, 249, 219, 114, 105, 49, 56, 54, 34, 20, 17, 3, 3, 0, 2, 30, 26, 26, 16, 10, 10, 0, 0, 4, 3, 1, 69, 25, 0, 25, 0, 25, 11, 0, 11, 0, 11, 0, 11, 14, 44, 16, 9, 0, 9, 0, 9, 7, 28, 0, 28, 0.7, 0.849942146369685, 1, 0.730869001297017, 1, 0.591562233449249, 0.760430333245867, 1, 0.540359120657828, 1, 0.149906890130354, 1, 0, 0.0845588235294117, 0.305967312808818, 0.512362301101591, 0.651314765831648, 1, 0.418073227733056, 1, 0, 0, 0.0845588235294117, 1, 0.0225711481844946, 0.3, 0.150057853630315, 0, 0.269130998702983, 0, 0.408437766550751, 0.239569666754133, 0, 0.459640879342172, 0, 0.850093109869646, 0, 1, 0.915441176470588, 0.694032687191182, 0.487637698898409, 0.348685234168352, 0, 0.581926772266944, 0, 1, 1, 0.915441176470588, 0, 0.977428851815505, 1, 0.724358302776323, 0.320481927710843, 0.403876375065479, 0.137751004016064, 0.266125371049415, 0.199633315872184, 0.095582329317269, 0.104050986554915, 0.0477911646586345, 0.0562598218962808, 0.00843373493975903, 0.0478260869565217, 0.0664920551772307, 0.275641697223677, 0.142657586869216, 0.11222280426052, 0.0449799196787148, 0.0672428845818055, 0.0281124497991968, 0.0391304347826087, 0.0304347826086957, 0.132984110354461, 0.00843373493975903, 0.124550375414702), .Dim = c(25L, 6L), .Dimnames = list(NULL, c(\'\', \'\', \'\', \'\', \'\', \'nodeprob\')))), .Names = c(\'var\', \'wt\', \'dev\', \'yval\', \'complexity\', \'ncompete\', \'nsurrogate\', \'yval2\'), class = \'data.frame\', row.names = c(1L, 2L, 4L, 5L, 10L, 11L, 22L, 44L, 45L, 90L, 91L, 182L, 183L, 23L, 3L, 6L, 12L, 24L, 25L, 50L, 51L, 13L, 7L, 14L, 15L)));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall7() {
+ assertEval("argv <- list(structure(c(2.828, -1.04, -2.738, 3.084), .Names = c(\'(Intercept)\', \'age\', \'wgt\', \'prot\')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall8() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list(\'a\')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall9() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall10() {
+ assertEval("argv <- list(structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall11() {
+ assertEval("argv <- list(c(TRUE, FALSE, TRUE, NA, FALSE, FALSE, TRUE));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall12() {
+ assertEval("argv <- list(structure(c(NA, 9.93, 26.79, 820.91), .Names = c(\'<none>\', \'- x4\', \'- x2\', \'- x1\')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall13() {
+ assertEval("argv <- list(structure(list(nationality = structure(c(1L, 2L, 2L, 3L, 3L, 1L), .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(c(1L, 1L, 1L, 1L, 2L, 1L), .Label = c(\'no\', \'yes\'), class = \'factor\'), title = structure(c(3L, 6L, 7L, 4L, 2L, 5L), .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(c(NA, NA, NA, NA, NA, 1L), .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'nationality\', \'deceased\', \'title\', \'other.author\'), class = \'data.frame\', row.names = c(NA, -6L)));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall14() {
+ assertEval("argv <- list(structure(c(10L, 10L, 10L, 10L, 10L), .Dim = 5L, .Dimnames = structure(list(a = c(\'0.333333333333333\', \'0.5\', \'1\', \'Inf\', NA)), .Names = \'a\')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall15() {
+ assertEval("argv <- list(1.79769313486232e+308);is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall16() {
+ assertEval("argv <- list(c(3.71357206670431, 3.58351893845611, 2.484906649788, 2.89037175789616, NA, 3.3322045101752, 3.13549421592915, 2.94443897916644, 2.07944154167984, NA, 1.94591014905531, 2.77258872223978, 2.39789527279837, 2.63905732961526, 2.89037175789616, 2.63905732961526, 3.52636052461616, 1.79175946922805, 3.40119738166216, 2.39789527279837, 0, 2.39789527279837, 1.38629436111989, 3.46573590279973, NA, NA, NA, 3.13549421592915, 3.80666248977032, 4.74493212836325, 3.61091791264422, NA, NA, NA, NA, NA, NA, 3.36729582998647, NA, 4.26267987704132, 3.66356164612965, NA, NA, 3.13549421592915, NA, NA, 3.04452243772342, 3.61091791264422, 2.99573227355399, 2.484906649788, 2.56494935746154, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 4.90527477843843, 3.89182029811063, 3.46573590279973, NA, 4.15888308335967, 3.68887945411394, 4.34380542185368, 4.57471097850338, 4.57471097850338, 4.44265125649032, NA, 2.30258509299405, 3.29583686600433, NA, 1.94591014905531, 3.87120101090789, 3.55534806148941, 4.11087386417331, 4.36944785246702, 4.14313472639153, 2.77258872223978, NA, NA, 4.38202663467388, 4.68213122712422, 2.99573227355399, 3.95124371858143, 4.40671924726425, 3.91202300542815, 4.15888308335967, 4.07753744390572, 3.66356164612965, 2.19722457733622, 2.77258872223978, 4.35670882668959, 3.55534806148941, 4.18965474202643, 4.80402104473326, 4.48863636973214, 4.70048036579242, NA, NA, 3.78418963391826, 3.3322045101752, 4.17438726989564, NA, 3.09104245335832, 4.07753744390572, 3.13549421592915, 3.43398720448515, 3.78418963391826, 3.04452243772342, 2.19722457733622, NA, 3.80666248977032, 5.12396397940326, 4.29045944114839, NA, 4.33073334028633, 4.77068462446567, 4.43081679884331, 4.44265125649032, 4.56434819146784, 4.35670882668959, 4.29045944114839, 4.51085950651685, 3.85014760171006, 3.46573590279973, 2.99573227355399, 3.13549421592915, 3.04452243772342, 3.17805383034795, 3.78418963391826, 3.04452243772342, 3.3322045101752, 2.19722457733622, 2.56494935746154, 3.8286413964891, 2.89037175789616, 2.56494935746154, 3.17805383034795, 2.77258872223978, 2.56494935746154, 3.13549421592915, 3.58351893845611, 1.94591014905531, 2.63905732961526, 3.40119738166216, NA, 2.63905732961526, 2.89037175789616, 2.99573227355399));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall17() {
+ assertEval("argv <- list(c(1.1+0i, NA, 3+0i));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall18() {
+ assertEval("argv <- list(structure(c(\'***\', \'***\', \'*\', \'*\'), legend = \'0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1\', class = \'noquote\'));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall19() {
+ assertEval("argv <- list(structure(3.14159265358979, .Tsp = c(1, 1, 1), class = \'ts\'));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall20() {
+ assertEval("argv <- list(structure(c(0.00290239468554394, 0.00140705152597278, 0.00182415100508828, 0.000171517300342801, 0.0747454613066304, 0.00103234723292907, 0.000179983318697126, 0.0352586084465556, 0.00336847595628202, 0.0640696486471412, 0.013210800275195, 0.00194778778741287, 0.00351950115137133, 0.000700468320296444, 0.00252844357735001, 0.0143720121954949, 0.0092342255427433, 7.64817786749446e-06, 0.00387339857745543, 0.00121246491006704, 0.00624917129689855, 0.00187753034805145, 0.000103002251547083, 0.0136703020254034, 0.000349542811339773, 0.00120367047056317, 0.00194205014408538, 0.00462815827742801, 0.000149291834133954, 0.00193441236645676, 9.00084520363835e-05, 0.0160915134527436, 0.0034667595853861, 0.00481936427422654, 3.13343033856193e-05, 0.0564685345533007, 0.00929771993193245, 0.0103876340982416, 0.0133005891226511, 0.0325989357511191, 0.00228122925969391, 0.0460976655088242, 0.0030036374596782, 0.000271060875811076, 0.0301696315261026, 4.72002631048293e-05, 0.0262321004865234, 0.00594174673473018, 0.00288915040856097, 0.00635277836091401, 0.00569342819072192, 0.0163907345734164, 0.000360581939026221, 0.000237725871915377, 0.0164062036225434, 0.0238391417439455, NaN, 0.0421542087325977, 0.00133954856768466, 0.0113421570571087, 0.00818242287729128, 0.000149291834133954, 0.00162069399881579, 0.00180262291288582, 0.0043164627226381, 0.000407784303899558, 0.0087630128035445, 0.00179253664026378, 0.000416739394150714, 0.0143720121954949, 0.000179983318697137, 0.00115986529332947, 0.00377736311314377, 0.00219491136307178, 0.000700468320296447, 0.000522557531637987, 9.86336244510677e-05, 0.0216346027446621, 0.000659639144027213, 0.0137501462695059, 5.91425796333253e-08, 0.0279425064631674, 0.000170828237014783, 0.00424546903556132, 0.0114879015536739, 0.000173346990819205, 0.00138111062254461, 0.00772582941114727, 0.0277947034678616, 0.00892024547056825, 0.061857770987456, 0.0125790610228498, 0.0277947034678616), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall21() {
+ assertEval("argv <- list(structure(c(1920, 1920, 1920, 1920, 1920, 1920, 1921, 1921, 1921, 1921), .Tsp = c(1920.5, 1921.25, 12), class = \'ts\'));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall23() {
+ assertEval("argv <- list(structure(c(2671, 6.026e+77, 3.161e+152, 3.501e+299, 2.409e+227, 1.529e+302), .Names = c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall24() {
+ assertEval("argv <- list(structure(c(1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 7, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 10, 11, 11, 11, 12, 13, 13, 14, 14, 14, 14, 15, 15, 15, 15, 16, 16, 16, 17, 17, 17, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 7, 7.4, 7.4, 7.4, 7.4, 7.4, 7.4, 7.4, 7.4, 7.4, 7.4, 5.3, 6.1, 6.1, 6.1, 6.1, 6.1, 6.1, 6.1, 6.1, 6.1, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 5.6, 5.7, 5.3, 5.3, 5.3, 5.3, 5.3, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 6.6, 5.3, 7.7, 7.7, 7.7, 6.2, 5.6, 5.6, 5.2, 5.2, 5.2, 5.2, 6, 6, 6, 6, 5.1, 5.1, 5.1, 7.6, 7.6, 7.6, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 6.5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.8, 5.5, 5.5, 5.5, 5.5, 5.5, 5.5, 5.5, 5.5, 5.5, 5.5, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 5.3, 24, 13, 15, 68, 39, 74, 22, 1, 8, 55, 24, 20, 51, 13, 3, 4, 5, 6, 15, 2, 8, 60, 67, 23, 58, 24, 22, 21, 37, 74, 59, 39, 14, 14, 19, 23, 70, 21, 22, 31, 29, 30, 45, 58, 17, 7, 19, 26, 39, 74, 57, 59, 12, 72, 70, 37, 64, 16, 18, 21, 22, 8, 62, 61, 63, 71, 105, 64, 10, 41, 8, 27, 11, 34, 32, 33, 68, 107, NA, 66, NA, 65, 48, 52, 43, 47, 46, 44, 41, 54, 28, 50, 40, NA, 69, NA, 75, 109, NA, 86, 112, 110, 104, 24, 111, 87, NA, NA, 92, 73, 85, 90, 89, NA, 83, NA, 102, NA, 108, 88, 91, 93, NA, 94, 84, NA, 106, NA, 95, 82, 56, 87, 109, 75, 104, 110, 112, 111, 24, 73, 85, 86, 90, 89, 102, 88, 92, 9, 49, 42, 38, 35, 36, 25, NA, NA, 9, 49, 42, NA, 36, 38, 25, 53, 79, 78, 103, 77, 80, 114, 97, 113, 76, 96, 81, 116, 99, 117, 115, 98, 101, 100, 12, 148, 42, 85, 107, 109, 156, 224, 293, 359, 370, 8, 16.1, 63.6, 6.6, 9.3, 13, 17.3, 105, 112, 123, 105, 122, 141, 200, 45, 130, 147, 187, 197, 203, 211, 62, 62, 19, 21, 13, 22, 29, 17, 19.6, 20.2, 21.1, 21.9, 24.2, 66, 87, 23.4, 24.6, 25.7, 28.6, 37.4, 46.7, 56.9, 60.7, 61.4, 62, 64, 82, 88, 91, 31, 45, 145, 300, 5, 50, 16, 17, 8, 10, 10, 8, 32, 30, 31, 2.9, 3.2, 7.6, 25.4, 32.9, 92.2, 1.2, 1.6, 9.1, 3.7, 5.3, 7.4, 17.9, 19.2, 23.4, 30, 38.9, 23.5, 26, 0.5, 0.6, 1.3, 1.4, 2.6, 3.8, 4, 5.1, 6.2, 6.8, 7.5, 7.6, 8.4, 8.5, 8.5, 10.6, 12.6, 12.7, 12.9, 14, 15, 16, 17.7, 18, 22, 22, 23, 23.2, 29, 32, 32.7, 36, 43.5, 49, 60, 64, 7.5, 8.8, 8.9, 9.4, 9.7, 9.7, 10.5, 10.5, 12, 12.2, 12.8, 14.6, 14.9, 17.6, 23.9, 25, 10.8, 15.7, 16.7, 20.8, 28.5, 33.1, 40.3, 4, 10.1, 11.1, 17.7, 22.5, 26.5, 29, 30.9, 37.8, 48.3, 5.8, 12, 12.1, 20.5, 20.5, 25.3, 35.9, 36.1, 36.3, 38.5, 41.4, 43.6, 44.4, 46.1, 47.1, 47.7, 49.2, 53.1, 0.359, 0.014, 0.196, 0.135, 0.062, 0.054, 0.014, 0.018, 0.01, 0.004, 0.004, 0.127, 0.411, 0.018, 0.509, 0.467, 0.279, 0.072, 0.012, 0.006, 0.003, 0.018, 0.048, 0.011, 0.007, 0.142, 0.031, 0.006, 0.01, 0.01, 0.006, 0.013, 0.005, 0.003, 0.086, 0.179, 0.205, 0.073, 0.045, 0.374, 0.2, 0.147, 0.188, 0.204, 0.335, 0.057, 0.021, 0.152, 0.217, 0.114, 0.15, 0.148, 0.112, 0.043, 0.057, 0.03, 0.027, 0.028, 0.034, 0.03, 0.039, 0.03, 0.11, 0.01, 0.01, 0.39, 0.031, 0.13, 0.011, 0.12, 0.17, 0.14, 0.11, 0.04, 0.07, 0.08, 0.21, 0.39, 0.28, 0.16, 0.064, 0.09, 0.42, 0.23, 0.13, 0.26, 0.27, 0.26, 0.11, 0.12, 0.038, 0.044, 0.046, 0.17, 0.21, 0.32, 0.52, 0.72, 0.32, 0.81, 0.64, 0.56, 0.51, 0.4, 0.61, 0.26, 0.24, 0.46, 0.22, 0.23, 0.28, 0.38, 0.27, 0.31, 0.2, 0.11, 0.43, 0.27, 0.15, 0.15, 0.15, 0.13, 0.19, 0.13, 0.066, 0.35, 0.1, 0.16, 0.14, 0.049, 0.034, 0.264, 0.263, 0.23, 0.147, 0.286, 0.157, 0.237, 0.133, 0.055, 0.097, 0.129, 0.192, 0.147, 0.154, 0.06, 0.057, 0.12, 0.154, 0.052, 0.045, 0.086, 0.056, 0.065, 0.259, 0.267, 0.071, 0.275, 0.058, 0.026, 0.039, 0.112, 0.065, 0.026, 0.123, 0.133, 0.073, 0.097, 0.096, 0.23, 0.082, 0.11, 0.11, 0.094, 0.04, 0.05, 0.022, 0.07, 0.08, 0.033, 0.017, 0.022), .Dim = c(182L, 5L), .Dimnames = list(NULL, c(\'event\', \'mag\', \'station\', \'dist\', \'accel\'))));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall25() {
+ assertEval("argv <- list(structure(c(8.444, 12.244, 11.967, 32.826), .Names = c(\'+ Temp\', \'<none>\', \'+ Soft\', \'- M.user\')));is.call(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscall26() {
+ assertEval("argv <- list(quote(cbind(X, M) ~ M.user + Temp + M.user:Temp));is.call(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinischaracter.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinischaracter.java
new file mode 100644
index 0000000000000000000000000000000000000000..6b2195f9bae28d9235aeaab4df6845f2688b1b6d
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinischaracter.java
@@ -0,0 +1,58 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinischaracter extends TestBase {
+
+ @Test
+ public void testischaracter1() {
+ assertEval("argv <- list(\'pch\');is.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testischaracter2() {
+ assertEval("argv <- list(structure(list(mai = c(0.51, 0.41, 0.41, 0.21), mar = c(5.1, 4.1, 4.1, 2.1), cex = 1, yaxs = \'r\'), .Names = c(\'mai\', \'mar\', \'cex\', \'yaxs\')));is.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testischaracter3() {
+ assertEval("argv <- list(structure(list(usr = c(-0.04, 1.04, -0.04, 1.04), mgp = c(3, 1, 0)), .Names = c(\'usr\', \'mgp\')));is.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testischaracter4() {
+ assertEval("argv <- list(c(-1, 1, -1, 1));is.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testischaracter5() {
+ assertEval("argv <- list(structure(list(usr = c(-4.82721591443179, -1.44459960821772, -4.82721591443179, -1.44459960821772)), .Names = \'usr\'));is.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testischaracter6() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'character(0)\', row.names = character(0), class = \'data.frame\'));is.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testischaracter7() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.character(argv[[1]]);");
+ }
+
+ @Test
+ public void testischaracter8() {
+ assertEval("argv <- list(structure(c(238L, 154L, 73L), .Dim = c(3L, 1L), .Dimnames = list(c(\'red\', \'green\', \'blue\'), NULL)));is.character(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltiniscomplex.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltiniscomplex.java
new file mode 100644
index 0000000000000000000000000000000000000000..d532cd44ac6c156885c543f18d60e8ecc008949d
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltiniscomplex.java
@@ -0,0 +1,55 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltiniscomplex extends TestBase {
+
+ @Test
+ public void testiscomplex1() {
+ assertEval("argv <- list(integer(0));is.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void testiscomplex2() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'character(0)\', row.names = character(0), class = \'data.frame\'));is.complex(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscomplex3() {
+ assertEval("argv <- list(structure(1:24, .Dim = 2:4));is.complex(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testiscomplex4() {
+ assertEval("argv <- list(NA_complex_);is.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void testiscomplex5() {
+ assertEval("argv <- list(1.3+0i);is.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void testiscomplex6() {
+ assertEval("argv <- list(complex(0));is.complex(argv[[1]]);");
+ }
+
+ @Test
+ public void testiscomplex7() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.complex(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisdouble.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisdouble.java
new file mode 100644
index 0000000000000000000000000000000000000000..3ec3b2c41c5cca09c5540621b7b26f154cc1df32
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisdouble.java
@@ -0,0 +1,45 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisdouble extends TestBase {
+
+ @Test
+ public void testisdouble1() {
+ assertEval("argv <- list(list(1, list(3, \'A\')));is.double(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisdouble2() {
+ assertEval("argv <- list(structure(1:7, .Names = c(\'a1\', \'a2\', \'a3\', \'a4\', \'a5\', \'a6\', \'a7\')));is.double(argv[[1]]);");
+ }
+
+ @Test
+ public void testisdouble3() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.double(argv[[1]]);");
+ }
+
+ @Test
+ public void testisdouble4() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'character(0)\', row.names = character(0), class = \'data.frame\'));is.double(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisdouble5() {
+ assertEval("argv <- list(structure(1:24, .Dim = 2:4));is.double(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisenvironment.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisenvironment.java
new file mode 100644
index 0000000000000000000000000000000000000000..b037847cea240ef604ca4407f5da472c84929b70
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisenvironment.java
@@ -0,0 +1,93 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisenvironment extends TestBase {
+
+ @Test
+ public void testisenvironment1() {
+ assertEval("argv <- list(structure(list(B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c(\'I\', \'II\', \'III\', \'IV\', \'V\', \'VI\'), class = \'factor\'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c(\'Golden.rain\', \'Marvellous\', \'Victory\'), class = \'factor\'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\'), class = \'factor\'), Y = c(130L, 157L, 174L, 117L, 114L, 161L, 141L, 105L, 140L, 118L, 156L, 61L, 91L, 97L, 100L, 70L, 108L, 126L, 149L, 96L, 124L, 121L, 144L, 68L, 64L, 112L, 86L, 60L, 102L, 89L, 96L, 89L, 129L, 132L, 124L, 74L, 89L, 81L, 122L, 64L, 103L, 132L, 133L, 70L, 89L, 104L, 117L, 62L, 90L, 100L, 116L, 80L, 82L, 94L, 126L, 63L, 70L, 109L, 99L, 53L, 74L, 118L, 113L, 89L, 82L, 86L, 104L, 97L, 99L, 119L, 121L)), .Names = c(\'B\', \'V\', \'N\', \'Y\'), row.names = 2:72, class = \'data.frame\'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void testisenvironment2() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void testisenvironment3() {
+ assertEval("argv <- list(structure(list(ID = c(65L, 65L), Age = c(18L, 18L), OME = structure(c(1L, 1L), .Label = c(\'N/A\', \'high\', \'low\'), class = \'factor\'), Loud = c(35L, 50L), Noise = structure(c(2L, 2L), .Label = c(\'coherent\', \'incoherent\'), class = \'factor\'), Correct = 0:1, Trials = c(1L, 1L), UID = c(71L, 71L), UIDn = c(71.1, 71.1)), .Names = c(\'ID\', \'Age\', \'OME\', \'Loud\', \'Noise\', \'Correct\', \'Trials\', \'UID\', \'UIDn\'), row.names = c(691L, 701L), class = \'data.frame\'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void testisenvironment4() {
+ assertEval("argv <- list(c(1.21066831870929-1.66634219937781i, -1.3109785475009-4.03477541783013i, -8.31047673770943-2.70023589529419i, -14.5607479203187+10.5790080335186i, 0.0000113099668+37.0708585836817i, 61.7727497177743+44.8804951883406i, 149.572574104172-48.599145973822i, 100.099969025816-308.076538446181i, -392.173075447774-539.779307378543i, -1374.2485561312+0.00083854036i, -1663.75779164483+2289.96937670968i, 1801.61375934412+5544.78319295828i, 11420.6629218159+3710.7883116515i, 20010.0779347631-14538.198725138i, -0.0466281166-50944.5738831589i, -84891.1497420117-61676.9039120865i, -205549.85324714+66787.431606375i, -137561.979567894+423373.822075425i, 538943.735314369+741790.604941508i, 1888559.09402798-2.30472576i));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void testisenvironment5() {
+ assertEval("argv <- list(structure(c(FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(5L, 5L)));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void testisenvironment6() {
+ assertEval("argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = \'ts\'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c(\'y\', \'lag.quarterly.revenue\', \'price.index\', \'income.level\', \'market.potential\'), row.names = c(\'1962.25\', \'1962.5\', \'1962.75\', \'1963\', \'1963.25\', \'1963.5\', \'1963.75\', \'1964\', \'1964.25\', \'1964.5\', \'1964.75\', \'1965\', \'1965.25\', \'1965.5\', \'1965.75\', \'1966\', \'1966.25\', \'1966.5\', \'1966.75\', \'1967\', \'1967.25\', \'1967.5\', \'1967.75\', \'1968\', \'1968.25\', \'1968.5\', \'1968.75\', \'1969\', \'1969.25\', \'1969.5\', \'1969.75\', \'1970\', \'1970.25\', \'1970.5\', \'1970.75\', \'1971\', \'1971.25\', \'1971.5\', \'1971.75\'), class = \'data.frame\'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void testisenvironment7() {
+ assertEval("argv <- list(structure(c(1+0i, 5+0i, 9+0i, 13+0i, 17+0i, 21+0i, 2+0i, 6+0i, 10+0i, 14+0i, 18+0i, 22+0i, 3+0i, 7+0i, 11+0i, 15+0i, 19+0i, 23+0i, 4+0i, 8+0i, 12+0i, 16+0i, 20+0i, 24+0i), .Dim = c(6L, 4L)));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void testisenvironment8() {
+ assertEval("argv <- list(structure(list(z = c(-3.32814298919898, -2.50040106767383, -1.77388580318944, -1.1253131847654, -0.538436159302777, 0, 0.494272294062615, 0.955576378633541, 1.38763151510367, 1.79457990658358, 2.17975641634868, 2.54588157879649, 2.89520069061619), par.vals = structure(c(14.1116522107389, 16.2879401909036, 18.4642281710683, 20.640516151233, 22.8168041313977, 24.9930921115624, 27.1693800917271, 29.3456680718919, 31.5219560520566, 33.6982440322213, 35.874532012386, 38.0508199925507, 40.2271079727154, 9.77292620586829, 6.94555751970939, 5.3344468962477, 4.29948550876711, 3.58192055542193, 3.05706219239734, 2.6578922832996, 2.34490705796319, 2.09354140228955, 1.88766190416604, 1.71625883349025, 1.57157057930468, 1.44797941211333), .Dim = c(13L, 2L), .Dimnames = list(NULL, c(\'ymax\', \'xhalf\')))), .Names = c(\'z\', \'par.vals\'), row.names = c(NA, -13L), class = \'data.frame\'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void testisenvironment9() {
+ assertEval("argv <- list(structure(list(GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962, Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551)), .Names = c(\'GNP.deflator\', \'GNP\', \'Unemployed\', \'Armed.Forces\', \'Population\', \'Year\', \'Employed\'), row.names = 1947:1962, class = \'data.frame\'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void testisenvironment10() {
+ assertEval("argv <- list(structure(list(breaks = c(26, 30, 54, 25, 70, 52, 51, 26, 67, 18, 21, 29, 17, 12, 18, 35, 30, 36, 36, 21, 24, 18, 10, 43, 28, 15, 26, 27, 14, 29, 19, 29, 31, 41, 20, 44, 42, 26, 19, 16, 39, 28, 21, 39, 29, 20, 21, 24, 17, 13, 15, 15, 16, 28), wool = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c(\'A\', \'B\'), class = \'factor\'), tension = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c(\'L\', \'M\', \'H\'), class = \'factor\')), .Names = c(\'breaks\', \'wool\', \'tension\'), row.names = c(NA, -54L), class = \'data.frame\'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void testisenvironment11() {
+ assertEval("argv <- list(structure(list(y = c(0.219628047744843, 0.360454661130887, NA, 0.114681204747219, -1.14267533343616, 0.772374419482067, 0.681741904304867, 0.171869265068012, 2.08409180391906, 0.367547276775469), x1 = c(1L, 2L, 3L, NA, 5L, 6L, 7L, 8L, 9L, 10L), x2 = 1:10, x3 = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), wt = c(0, 1, 1, 1, 1, 1, 1, 1, 1, 1)), .Names = c(\'y\', \'x1\', \'x2\', \'x3\', \'wt\'), row.names = c(\'a\', \'b\', \'c\', \'d\', \'e\', \'f\', \'g\', \'h\', \'i\', \'j\'), class = \'data.frame\'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void testisenvironment12() {
+ assertEval("argv <- list(structure(list(x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861)), .Names = c(\'x\', \'y\'), row.names = c(NA, -10L), class = \'data.frame\'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void testisenvironment13() {
+ assertEval("argv <- list(structure(list(weight = c(1.9, 3.1, 3.3, 4.8, 5.3, 6.1, 6.4, 7.6, 9.8, 12.4), depression = c(2, 1, 5, 5, 20, 20, 23, 10, 30, 25)), .Names = c(\'weight\', \'depression\'), row.names = c(NA, -10L), class = \'data.frame\'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void testisenvironment14() {
+ assertEval("argv <- list(structure(list(loglik = c(-577.080015666702, -568.702653976085, -567.639101463216, -565.252511135152), Chisq = c(NA, 16.7547233812336, 2.12710502573896, 4.77318065612872), Df = c(NA, 1, 1, 3), `Pr(>|Chi|)` = c(NA, 4.25362427346476e-05, 0.144713844418628, 0.189179603743297)), .Names = c(\'loglik\', \'Chisq\', \'Df\', \'Pr(>|Chi|)\'), row.names = c(\'NULL\', \'ph.ecog\', \'wt.loss\', \'poly(age, 3)\'), class = c(\'anova\', \'data.frame\'), heading = \'Analysis of Deviance Table\\n Cox model: response is Surv(time, status)\\nTerms added sequentially (first to last)\\n\'));is.environment(argv[[1]]);");
+ }
+
+ @Test
+ public void testisenvironment16() {
+ assertEval("argv <- list(numeric(0));is.environment(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisexpression.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisexpression.java
new file mode 100644
index 0000000000000000000000000000000000000000..4cb393243f6fb5fe0e4b05705cd2bfdb6a172261
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisexpression.java
@@ -0,0 +1,134 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisexpression extends TestBase {
+
+ @Test
+ public void testisexpression1() {
+ assertEval("argv <- list(c(20L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 19L, 19L, 19L, 20L, 20L, 20L, 19L, 20L, 19L, 19L, 19L, 20L));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression2() {
+ assertEval("argv <- list(structure(list(class = c(\'ordered\', \'factor\'), levels = character(0)), .Names = c(\'class\', \'levels\')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression3() {
+ assertEval("argv <- list(c(TRUE, FALSE, TRUE, NA, FALSE, FALSE, TRUE));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression4() {
+ assertEval("argv <- list(structure(list(nationality = structure(c(1L, 2L, 2L, 3L, 3L, 1L), .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(c(1L, 1L, 1L, 1L, 2L, 1L), .Label = c(\'no\', \'yes\'), class = \'factor\'), title = structure(c(3L, 6L, 7L, 4L, 2L, 5L), .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(c(NA, NA, NA, NA, NA, 1L), .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'nationality\', \'deceased\', \'title\', \'other.author\'), class = \'data.frame\', row.names = c(NA, -6L)));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression5() {
+ assertEval("argv <- list(structure(c(\'Min. :10.00 \', \'1st Qu.:15.25 \', \'Median :20.50 \', \'Mean :21.67 \', \'3rd Qu.:25.50 \', \'Max. :43.00 \', \'A:9 \', \'B:9 \', NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c(\'\', \'\', \'\', \'\', \'\', \'\'), c(\' breaks\', \'wool\'))));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression6() {
+ assertEval("argv <- list(structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression7() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = \'data.frame\'));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression8() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression9() {
+ assertEval("argv <- list(structure(3.14159265358979, .Tsp = c(1, 1, 1), class = \'ts\'));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression10() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list(\'a\')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression11() {
+ assertEval("argv <- list(structure(list(var = structure(c(3L, 5L, 3L, 1L, 1L, 1L, 3L, 4L, 1L, 2L, 1L, 1L, 1L), .Label = c(\'<leaf>\', \'frost\', \'life.exp\', \'population\', \'region\'), class = \'factor\'), n = c(50L, 21L, 13L, 10L, 3L, 8L, 29L, 21L, 4L, 17L, 9L, 8L, 8L), wt = c(50, 21, 13, 10, 3, 8, 29, 21, 4, 17, 9, 8, 8), dev = c(667.7458, 87.3866666666667, 18.8523076923077, 6.989, 2.84666666666667, 28.2, 222.311724137931, 116.909523809524, 10.18, 50.8823529411765, 24.24, 11.62, 14.415), yval = c(7.378, 4.23333333333333, 3.14615384615385, 2.69, 4.66666666666667, 6, 9.6551724137931, 8.56190476190476, 5.2, 9.35294117647059, 8.46666666666667, 10.35, 12.525), complexity = c(0.536203161735203, 0.0604037628905475, 0.0135031040639133, 0.00508384221318095, 0.01, 0.01, 0.136260236048519, 0.0836353757198433, 0.01, 0.0224971133344103, 0.01, 0.01, 0.01), ncompete = c(4L, 4L, 4L, 0L, 0L, 0L, 4L, 4L, 0L, 4L, 0L, 0L, 0L), nsurrogate = c(5L, 4L, 1L, 0L, 0L, 0L, 4L, 3L, 0L, 5L, 0L, 0L, 0L)), .Names = c(\'var\', \'n\', \'wt\', \'dev\', \'yval\', \'complexity\', \'ncompete\', \'nsurrogate\'), row.names = c(1L, 2L, 4L, 8L, 9L, 5L, 3L, 6L, 12L, 13L, 26L, 27L, 7L), class = \'data.frame\'));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression12() {
+ assertEval("argv <- list(structure(c(1, 24.25, 56.5, 56.92771, 86.75, 117), .Names = c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression13() {
+ assertEval("argv <- list(1.79769313486232e+308);is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression14() {
+ assertEval("argv <- list(c(1.1+0i, NA, 3+0i));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression15() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression16() {
+ assertEval("argv <- list(structure(c(\'***\', \'***\', \'*\', \'*\'), legend = \'0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1\', class = \'noquote\'));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression17() {
+ assertEval("argv <- list(structure(c(-0.0880891704401362, -0.508170309402877, -0.00510235947825228, 0.0737329622006759), .Names = c(\'(Intercept)\', \'x1\', \'z\', \'x1:z\')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression18() {
+ assertEval("argv <- list(structure(c(-Inf, -Inf, -2.248e+263, -Inf, -3.777e+116, -1), .Names = c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisexpression19() {
+ assertEval("argv <- list(quote(print(.leap.seconds, tz = \'PST8PDT\')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression20() {
+ assertEval("argv <- list(c(-0.5, -0.47979797979798, -0.45959595959596, -0.439393939393939, -0.419191919191919, -0.398989898989899, -0.378787878787879, -0.358585858585859, -0.338383838383838, -0.318181818181818, -0.297979797979798, -0.277777777777778, -0.257575757575758, -0.237373737373737, -0.217171717171717, -0.196969696969697, -0.176767676767677, -0.156565656565657, -0.136363636363636, -0.116161616161616, -0.0959595959595959, -0.0757575757575757, -0.0555555555555555, -0.0353535353535353, -0.0151515151515151, 0.00505050505050508, 0.0252525252525253, 0.0454545454545455, 0.0656565656565657, 0.0858585858585859, 0.106060606060606, 0.126262626262626, 0.146464646464647, 0.166666666666667, 0.186868686868687, 0.207070707070707, 0.227272727272727, 0.247474747474748, 0.267676767676768, 0.287878787878788, 0.308080808080808, 0.328282828282828, 0.348484848484849, 0.368686868686869, 0.388888888888889, 0.409090909090909, 0.429292929292929, 0.44949494949495, 0.46969696969697, 0.48989898989899, 0.51010101010101, 0.53030303030303, 0.550505050505051, 0.570707070707071, 0.590909090909091, 0.611111111111111, 0.631313131313131, 0.651515151515152, 0.671717171717172, 0.691919191919192, 0.712121212121212, 0.732323232323232, 0.752525252525253, 0.772727272727273, 0.792929292929293, 0.813131313131313, 0.833333333333333, 0.853535353535354, 0.873737373737374, 0.893939393939394, 0.914141414141414, 0.934343434343434, 0.954545454545455, 0.974747474747475, 0.994949494949495, 1.01515151515152, 1.03535353535354, 1.05555555555556, 1.07575757575758, 1.0959595959596, 1.11616161616162, 1.13636363636364, 1.15656565656566, 1.17676767676768, 1.1969696969697, 1.21717171717172, 1.23737373737374, 1.25757575757576, 1.27777777777778, 1.2979797979798, 1.31818181818182, 1.33838383838384, 1.35858585858586, 1.37878787878788, 1.3989898989899, 1.41919191919192, 1.43939393939394, 1.45959595959596, 1.47979797979798, 1.5));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression21() {
+ assertEval("argv <- list(structure(list(dim = 1L, dimnames = list(\'a\')), .Names = c(\'dim\', \'dimnames\')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression22() {
+ assertEval("argv <- list(structure(c(NA, 6346.2), .Names = c(\'1\', \'2\')));is.expression(argv[[1]]);");
+ }
+
+ @Test
+ public void testisexpression23() {
+ assertEval("argv <- list(3.97376540705816e-12);is.expression(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisfinite.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisfinite.java
new file mode 100644
index 0000000000000000000000000000000000000000..7238ea5040a77065c3d1100e5ea06b3db3adc701
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisfinite.java
@@ -0,0 +1,157 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisfinite extends TestBase {
+
+ @Test
+ public void testisfinite1() {
+ assertEval("argv <- list(c(20.1635649375266, 0.00464806897188935, 7.66871331765456, 12.5627629785965, 11.5797681339384, 12.9719582729673, 25.2769526097163, -1.81739378653632, 0.81215865601413, -3.83170645669318, -0.246853801421158, 3.46135095276697, 2.4554639832607, -3.21187324485145, -3.0183971859156));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void testisfinite2() {
+ assertEval("argv <- list(c(NA, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfinite3() {
+ assertEval("argv <- list(structure(485.051413351662, .Names = \'value\'));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void testisfinite4() {
+ assertEval("argv <- list(151.670620533678);is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void testisfinite5() {
+ assertEval("argv <- list(c(NA, 5, 9, 1, 2, 5, 6, 7, 8, 3, 8));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfinite6() {
+ assertEval("argv <- list(structure(1.27861470300044, .Dim = c(1L, 1L), .Dimnames = list(\'(Intercept)\', \'(Intercept)\')));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void testisfinite7() {
+ assertEval("argv <- list(c(3.16233404821525, 0.257188565034331, -0.453229834209339, 0.242190153165057, -0.923637244637281, -0.792686406797337, -0.000583432444331871, -0.115409318984254, 0.305847927531439, 0.0246693430266492, 0.461347310132161, -0.236100949717949, 0.28892702011061, -0.134702428025256, -0.00354133265015019, -0.239319416508562, -0.657338306370259, 0.617201588652923, 0.864066808989359, 0.903680787204032, 0.524476724719486, 1.12851069606821, -0.0690532444696005, 0.111965689984579, -0.494558736384601, -0.26678456955063, -0.953423764504691, 0.0388401464034938, -0.280977489674148, -0.0317343673308523, 0.332270617799988, -0.0953997363217814));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfinite8() {
+ assertEval("argv <- list(c(96L, 78L, 73L, 91L, 47L, 32L, 20L, 23L, 21L, 24L, 44L, 21L, 28L, 9L, 13L, 46L, 18L, 13L, 24L, 16L, 13L, 23L, 36L, 7L, 14L, 30L, NA, 14L, 18L, 20L));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfinite9() {
+ assertEval("argv <- list(structure(c(0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.0220588235294118, 0.00735294117647059, 0.0147058823529412, 0.0110294117647059, 0.0257352941176471, 0.00735294117647059, 0.0294117647058824, 0.0147058823529412, 0.00735294117647059, 0.00735294117647059, 0.00367647058823529, 0.0110294117647059, 0.0110294117647059, 0.0147058823529412, 0.0110294117647059, 0.00735294117647059, 0.00367647058823529, 0.00735294117647059, 0.0110294117647059, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.00367647058823529, 0.0110294117647059, 0.00367647058823529, 0.00735294117647059, 0.00735294117647059, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.00735294117647059, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.00735294117647059, 0.0147058823529412, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.00367647058823529, 0.0183823529411765, 0.00735294117647059, 0.00367647058823529, 0.0110294117647059, 0.00735294117647059, 0.00367647058823529, 0.00367647058823529, 0.0220588235294118, 0.00735294117647059, 0.00367647058823529, 0.00735294117647059, 0.0183823529411765, 0.00735294117647059, 0.00735294117647059, 0.00735294117647059, 0.0147058823529412, 0.0147058823529412, 0.00367647058823529, 0.00367647058823529, 0.0110294117647059, 0.0147058823529412, 0.00735294117647059, 0.00735294117647059, 0.00735294117647059, 0.00367647058823529, 0.0183823529411765, 0.0147058823529412, 0.00367647058823529, 0.0110294117647059, 0.00367647058823529, 0.00367647058823529, 0.0147058823529412, 0.00735294117647059, 0.0110294117647059, 0.00735294117647059, 0.00367647058823529, 0.0294117647058824, 0.00367647058823529, 0.0183823529411765, 0.00367647058823529, 0.0110294117647059, 0.0147058823529412, 0.0147058823529412, 0.00367647058823529, 0.0110294117647059, 0.00367647058823529, 0.00735294117647059, 0.0220588235294118, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.0220588235294118, 0.00735294117647059, 0.00735294117647059, 0.00367647058823529, 0.00367647058823529, 0.00735294117647059, 0.0110294117647059, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529, 0.00367647058823529), class = \'table\', .Dim = 126L, .Dimnames = structure(list(fe = c(\'1.6\', \'1.667\', \'1.7\', \'1.733\', \'1.75\', \'1.783\', \'1.8\', \'1.817\', \'1.833\', \'1.85\', \'1.867\', \'1.883\', \'1.917\', \'1.933\', \'1.95\', \'1.967\', \'1.983\', \'2\', \'2.017\', \'2.033\', \'2.067\', \'2.083\', \'2.1\', \'2.133\', \'2.15\', \'2.167\', \'2.183\', \'2.2\', \'2.217\', \'2.233\', \'2.25\', \'2.267\', \'2.283\', \'2.3\', \'2.317\', \'2.333\', \'2.35\', \'2.367\', \'2.383\', \'2.4\', \'2.417\', \'2.483\', \'2.617\', \'2.633\', \'2.8\', \'2.883\', \'2.9\', \'3.067\', \'3.317\', \'3.333\', \'3.367\', \'3.417\', \'3.45\', \'3.5\', \'3.567\', \'3.6\', \'3.683\', \'3.717\', \'3.733\', \'3.75\', \'3.767\', \'3.817\', \'3.833\', \'3.85\', \'3.883\', \'3.917\', \'3.95\', \'3.966\', \'3.967\', \'4\', \'4.033\', \'4.05\', \'4.067\', \'4.083\', \'4.1\', \'4.117\', \'4.133\', \'4.15\', \'4.167\', \'4.183\', \'4.2\', \'4.233\', \'4.25\', \'4.267\', \'4.283\', \'4.3\', \'4.317\', \'4.333\', \'4.35\', \'4.366\', \'4.367\', \'4.383\', \'4.4\', \'4.417\', \'4.433\', \'4.45\', \'4.467\', \'4.483\', \'4.5\', \'4.517\', \'4.533\', \'4.55\', \'4.567\', \'4.583\', \'4.6\', \'4.617\', \'4.633\', \'4.65\', \'4.667\', \'4.7\', \'4.716\', \'4.733\', \'4.75\', \'4.767\', \'4.783\', \'4.8\', \'4.817\', \'4.833\', \'4.85\', \'4.883\', \'4.9\', \'4.933\', \'5\', \'5.033\', \'5.067\', \'5.1\')), .Names = \'fe\')));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfinite10() {
+ assertEval("argv <- list(structure(c(-32.6915744137254, -24.6945405669482, -24.6945405669482, -357.79068676373), .Dim = c(2L, 2L)));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void testisfinite11() {
+ assertEval("argv <- list(3.18309886183776e-301);is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void testisfinite12() {
+ assertEval("argv <- list(c(0.0599, 0.00599, 0.000599, 5.99e-05, 5.99e-06, 5.99e-07));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfinite13() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i), .Dim = c(5L, 5L)));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfinite14() {
+ assertEval("argv <- list(structure(2L, .Label = c(\'Northeast\', \'South\', \'North Central\', \'West\'), class = \'factor\'));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void testisfinite15() {
+ assertEval("argv <- list(c(0.0099, 0.099, 0.99, 9.9, 99, 990, 9900, 99000, 990000, 9900000, 9.9e+07, 9.9e+08, 9.9e+09, 9.9e+10));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfinite16() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfinite17() {
+ assertEval("argv <- list(NULL);is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void testisfinite18() {
+ assertEval("argv <- list(structure(1, .Tsp = c(1, 1, 1), class = \'ts\'));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfinite19() {
+ assertEval("argv <- list(structure(c(100, -1e-13, Inf, -Inf, NaN, 3.14159265358979, NA), .Names = c(\' 100\', \'-1e-13\', \' Inf\', \'-Inf\', \' NaN\', \'3.14\', \' NA\')));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfinite20() {
+ assertEval("argv <- list(structure(c(100L, 0L, NA, NA, NA, 3L, NA), .Names = c(\' 100\', \'-1e-13\', \' Inf\', \'-Inf\', \' NaN\', \'3.14\', \' NA\')));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void testisfinite21() {
+ assertEval("argv <- list(c(1.86606598307361, 339033474310168, 6.15968019059533e+28, 1.11911250438065e+43, 2.03324321833028e+57, 3.69406826275609e+71, 6.71151400229846e+85, 1.21937162496937e+100, 2.2153975381282e+114, 4.02501267984465e+128, 7.31278553581751e+142, 1.32861276588395e+157, 2.41387071044804e+171, 4.38560576593759e+185, 7.96792382084694e+199, 1.44764060891943e+214, 2.63012470966353e+228, 4.77850368783602e+242, 8.6817546752692e+256, 1.57733192575377e+271));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfinite22() {
+ assertEval("argv <- list(structure(1:7, .Dim = c(1L, 7L)));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfinite23() {
+ assertEval("argv <- list(structure(c(-4, 0, 0, 0, 0, 0, 0, -406.725, 41.7955066364795, 0, 0, 0, 0, 0, -1550.79375, 381.717151319926, 49.8228991342168, 0, 0, 0, 0, -1277.325, 224.617432123818, -31.1858918860748, -282.060212912726, 0, 0, 0, -1042.675, 125.261805546114, -29.9849484767744, 164.425554254677, -170.353263600129, 0, 0, -469.696, 26.3795103523805, 4.19691803785862, -3.18974110831568, 0.0462484557378925, 1.46320172717486, 0, -7818, 18.2758880432689, 1.77525956575195, -1.45298766739792, -0.449176219307484, -0.281900648530911, -0.669305080560524), .Dim = c(7L, 7L), .Dimnames = list(c(\'1947\', \'1948\', \'1949\', \'1950\', \'1951\', \'1952\', \'1953\'), c(\'(Intercept)\', \'GNP.deflator\', \'GNP\', \'Unemployed\', \'Armed.Forces\', \'Population\', \'Year\'))));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfinite24() {
+ assertEval("argv <- list(c(13L, 13L));is.finite(argv[[1]]);");
+ }
+
+ @Test
+ public void testisfinite25() {
+ assertEval("argv <- list(structure(c(13991, 13995), class = \'Date\'));is.finite(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisfunction.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisfunction.java
new file mode 100644
index 0000000000000000000000000000000000000000..e0d2b935960717e47c8f2380787f51c1370bc8a0
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisfunction.java
@@ -0,0 +1,138 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisfunction extends TestBase {
+
+ @Test
+ @Ignore
+ public void testisfunction1() {
+ assertEval("argv <- list(function (x, y) { c(x, y)});is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction2() {
+ assertEval("argv <- list(c(\'a\', \'b\', NA, NA, NA, \'f\', \'g\', \'h\', \'i\', \'j\', \'k\', \'l\'));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction3() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction4() {
+ assertEval("argv <- list(structure(c(1, 0.341108926893721, 7.03552967282433, 0.0827010685995216, 2.31431632448833, 2.09774421189194, 17.4719768806091, 0.00710660186854106, 0.341108926893721, 6.24415190746514, 0.0686360870302571, 2.93161486304804, 1, 20.6254633582673, 0.242447681896313, 6.78468413466471, 6.14977811045541, 51.2211071100253, 0.02083381966358, 1, 18.3054485390546, 0.201214572879361, 0.142135709250525, 0.0484837592557245, 1, 0.0117547750411693, 0.328946992211217, 0.298164361383444, 2.48339182593415, 0.00101010189694619, 0.0484837592557245, 0.887516960035576, 0.00975563891022635, 12.0917421858535, 4.12460120129202, 85.071810944714, 1, 27.984116332225, 25.3653821820638, 211.266639917518, 0.0859311976119033, 4.12460120129202, 75.5026750343739, 0.829929869015672, 0.432093050296869, 0.147390796704999, 3.04000347678479, 0.0357345569939779, 1, 0.906420695258988, 7.54951978505874, 0.00307071327862333, 0.147390796704999, 2.69805464421362, 0.0296571762053451, 0.476702542822467, 0.16260749282968, 3.35385488513828, 0.0394238096955273, 1.10324047677913, 1, 8.32893580712171, 0.00338773518156042, 0.16260749282968, 2.97660309205839, 0.0327189972167077, 0.0572345079685763, 0.0195232015944512, 0.402675079122419, 0.00473335496976909, 0.132458756115733, 0.120063357811564, 1, 0.000406742861274512, 0.0195232015944512, 0.357380962104814, 0.00392835267006514, 140.714228614202, 47.998879521268, 989.999130803802, 11.6372170735519, 325.65723636963, 295.182458606281, 2458.55574912007, 1, 47.998879521268, 878.641019008853, 9.65807404155984, 2.93161486304804, 1, 20.6254633582673, 0.242447681896313, 6.78468413466471, 6.14977811045541, 51.2211071100253, 0.02083381966358, 1, 18.3054485390546, 0.201214572879361, 0.160149851384054, 0.0546285439478035, 1.12673903151092, 0.0132445638455158, 0.370637415422497, 0.335953423776254, 2.79813450081517, 0.00113812123309249, 0.0546285439478035, 1, 0.0109920591374787, 14.5695951396408, 4.96981896335886, 102.50481892598, 1.20492108711069, 33.7186518728567, 30.5632838737905, 254.559629439639, 0.103540312043258, 4.96981896335886, 90.9747652821832, 1), .Dim = c(11L, 11L), .Dimnames = list(c(\'ATS\', \'BEF\', \'DEM\', \'ESP\', \'FIM\', \'FRF\', \'IEP\', \'ITL\', \'LUF\', \'NLG\', \'PTE\'), c(\'ATS\', \'BEF\', \'DEM\', \'ESP\', \'FIM\', \'FRF\', \'IEP\', \'ITL\', \'LUF\', \'NLG\', \'PTE\'))));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction5() {
+ assertEval("argv <- list(structure(c(1+0i, 5+0i, 9+0i, 13+0i, 17+0i, 21+0i, 2+0i, 6+0i, 10+0i, 14+0i, 18+0i, 22+0i, 3+0i, 7+0i, 11+0i, 15+0i, 19+0i, 23+0i, 4+0i, 8+0i, 12+0i, 16+0i, 20+0i, 24+0i), .Dim = c(6L, 4L)));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction6() {
+ assertEval("argv <- list(structure(list(Df = c(1L, 7L), `Sum Sq` = c(158.407612694902, 204.202165082876), `Mean Sq` = c(158.407612694902, 29.1717378689823), `F value` = c(5.43017400630538, NA), `Pr(>F)` = c(0.052592726218915, NA)), .Names = c(\'Df\', \'Sum Sq\', \'Mean Sq\', \'F value\', \'Pr(>F)\'), row.names = c(\'depression\', \'Residuals\'), class = c(\'anova\', \'data.frame\'), heading = c(\'Analysis of Variance Table\\n\', \'Response: weight\')));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction7() {
+ assertEval("argv <- list(structure(list(GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962, Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551)), .Names = c(\'GNP.deflator\', \'GNP\', \'Unemployed\', \'Armed.Forces\', \'Population\', \'Year\', \'Employed\'), row.names = 1947:1962, class = \'data.frame\'));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction8() {
+ assertEval("argv <- list(structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, 104, 118, 115, 126, 141, 135, 125, 149, 170, 170, 158, 133, 114, 140, 145, 150, 178, 163, 172, 178, 199, 199, 184, 162, 146, 166, 171, 180, 193, 181, 183, 218, 230, 242, 209, 191, 172, 194, 196, 196, 236, 235, 229, 243, 264, 272, 237, 211, 180, 201, 204, 188, 235, 227, 234, 264, 302, 293, 259, 229, 203, 229, 242, 233, 267, 269, 270, 315, 364, 347, 312, 274, 237, 278, 284, 277, 317, 313, 318, 374, 413, 405, 355, 306, 271, 306, 315, 301, 356, 348, 355, 422, 465, 467, 404, 347, 305, 336, 340, 318, 362, 348, 363, 435, 491, 505, 404, 359, 310, 337, 360, 342, 406, 396, 420, 472, 548, 559, 463, 407, 362, 405, 417, 391, 419, 461, 472, 535, 622, 606, 508, 461, 390, 432), .Tsp = c(1949, 1960.91666666667, 12), class = \'ts\'));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction9() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction10() {
+ assertEval("argv <- list(structure(c(FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(5L, 5L)));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction11() {
+ assertEval("argv <- list(c(0.2853725+0.3927816i, -0.07283992154231+0.224178134292i, -0.10883955678256+0.035364093700981i, -0.0449501817243521-0.0326582354266614i, 8.2299281e-09-2.69753665872767e-02i, 0.0105954299973322-0.0076980245688633i, 0.00604728675391113+0.00196488543076221i, 0.00095395849586903+0.00293598723445021i, -0.00088096824266454+0.00121254736140417i, -7.27670402517897e-04-4.44010655e-10i, -2.07656947543323e-04-2.85815671682054e-04i, 5.3003554565545e-05-1.6312776087427e-04i, 7.9199339795869e-05-2.57333559721505e-05i, 3.27089023280074e-05+2.37644512768026e-05i, -1.79660253e-11+1.96291758626278e-05i, -7.70998422901389e-06+5.60161993213361e-06i, -4.4004307139296e-06-1.42979165736404e-06i, -6.9416605906477e-07-2.13643143624753e-06i, 6.4105505412914e-07-8.82334435385704e-07i, 5.29504214700362e-07+6.46186824e-13i));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction12() {
+ assertEval("argv <- list(structure(c(9, 13, 13, 18, 23, 28, 31, 34, 45, 48, 161, 5, 5, 8, 8, 12, 16, 23, 27, 30, 33, 43, 45, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1), .Dim = c(23L, 2L), .Dimnames = list(NULL, c(\'time\', \'status\')), type = \'right\', class = \'Surv\'));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction13() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = \'data.frame\'));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction14() {
+ assertEval("argv <- list(structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c(\'A\', \'B\', \'C\'), class = \'factor\')), .Names = c(\'x\', \'y\', \'fac\'), row.names = c(NA, -10L), class = \'data.frame\'));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction15() {
+ assertEval("argv <- list(structure(function (x) standardGeneric(\'dim\', .Primitive(\'dim\')), generic = structure(\'dim\', package = \'base\'), package = \'base\', group = list(), valueClass = character(0), signature = \'x\', default = .Primitive(\'dim\'), skeleton = quote(.Primitive(\'dim\')(x)), class = structure(\'standardGeneric\', package = \'methods\')));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction16() {
+ assertEval("argv <- list(structure(function (x, na.rm = FALSE, dims = 1, ...) standardGeneric(\'rowMeans\'), generic = structure(\'rowMeans\', package = \'base\'), package = \'base\', group = list(), valueClass = character(0), signature = c(\'x\', \'na.rm\', \'dims\'), default = structure(function (x, na.rm = FALSE, dims = 1, ...) base::rowMeans(x, na.rm = na.rm, dims = dims, ...), target = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), defined = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), generic = structure(\'rowMeans\', package = \'base\'), class = structure(\'derivedDefaultMethod\', package = \'methods\')), skeleton = quote((function (x, na.rm = FALSE, dims = 1, ...) base::rowMeans(x, na.rm = na.rm, dims = dims, ...))(x, na.rm, dims, ...)), class = structure(\'standardGeneric\', package = \'methods\')));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction17() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c(\'1\', \'2\', NA), class = c(\'ordered\', \'factor\')));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction18() {
+ assertEval("argv <- list(structure(list(usr = c(0.568, 1.432, -1.08, 1.08), xaxp = c(0.6, 1.4, 4), yaxp = c(-1, 1, 4)), .Names = c(\'usr\', \'xaxp\', \'yaxp\')));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction19() {
+ assertEval("argv <- list(structure(list(double.eps = 2.22044604925031e-16, double.neg.eps = 1.11022302462516e-16, double.xmin = 2.2250738585072e-308, double.xmax = 1.79769313486232e+308, double.base = 2L, double.digits = 53L, double.rounding = 5L, double.guard = 0L, double.ulp.digits = -52L, double.neg.ulp.digits = -53L, double.exponent = 11L, double.min.exp = -1022L, double.max.exp = 1024L, integer.max = 2147483647L, sizeof.long = 8L, sizeof.longlong = 8L, sizeof.longdouble = 16L, sizeof.pointer = 8L), .Names = c(\'double.eps\', \'double.neg.eps\', \'double.xmin\', \'double.xmax\', \'double.base\', \'double.digits\', \'double.rounding\', \'double.guard\', \'double.ulp.digits\', \'double.neg.ulp.digits\', \'double.exponent\', \'double.min.exp\', \'double.max.exp\', \'integer.max\', \'sizeof.long\', \'sizeof.longlong\', \'sizeof.longdouble\', \'sizeof.pointer\')));is.function(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisfunction20() {
+ assertEval("argv <- list(structure(list(extra = c(0.7, -1.6, -0.2, -1.2, -0.1, 3.4, 3.7, 0.8, 0, 2, 1.9, 0.8, 1.1, 0.1, -0.1, 4.4, 5.5, 1.6, 4.6, 3.4), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c(\'1\', \'2\'), class = \'factor\'), ID = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L), .Label = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\'), class = \'factor\')), .Names = c(\'extra\', \'group\', \'ID\'), row.names = c(NA, -20L), class = \'data.frame\'));is.function(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisinfinite.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisinfinite.java
new file mode 100644
index 0000000000000000000000000000000000000000..c1580630d0a5fe1c82d7890c90fe816b9e9203bf
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisinfinite.java
@@ -0,0 +1,108 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisinfinite extends TestBase {
+
+ @Test
+ @Ignore
+ public void testisinfinite1() {
+ assertEval("argv <- list(structure(c(100L, 0L, NA, NA, NA, 3L, NA), .Names = c(\' 100\', \'-1e-13\', \' Inf\', \'-Inf\', \' NaN\', \'3.14\', \' NA\')));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisinfinite2() {
+ assertEval("argv <- list(c(Inf, -Inf));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisinfinite3() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 0L)));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisinfinite4() {
+ assertEval("argv <- list(structure(c(0.00241725013897913, 2.73568372449633e-07, 0.00400531454105884, 0.0305181933571734, 0.022064930648429, 0.000416097494498381, 0.0186357510997526, 0.00896237344987589, 0.00202331168264955, 0.00279067096737535, 0.0447487811957221, 0.000577210896095096, 0.00782925975125774, 0.033211430744327, 0.0093483442273581, 0.00136284952207105, 0.0275004422708864, 0.0135979349769553, 0.000181644594904405, 0.00803803085466393, 0.00350275333198457, 0.014998898960339, 5.39459255498146e-05, 0.00123860219686858, 1.13323906102913e-05, 0.0297916373848854, 0.0312890114433758, 5.85350754663798e-05, 0.0131002435454964, 0.00277072267615578, 0.0222123285012571, 0.00194205331979335, 0.0103231522531299, 0.0261098279661105, 0.0358853728812373, 1.13323906102913e-05, 0.0486308859679786, 0.000674881587747117, 0.0218633172580077, 0.000558592420498928, 0.000802158707806158, 0.0581913205761545, 0.000436809276845313, 0.00631994234432259, 0.000141965876420771, 0.000262833357340149, 0.0055965687842748, 0.000654737007593888, 0.0140931986366498, 0.00241538552182261, 0.00414822230660342, 0.00884150659070285, 0.0647626092888162, 0.0935599413167129, 0.00117891119201738, 0.00742609802768654, 0.0306399064130622, 0.0274290617824389, 0.00217883778937331, 0.0108387379377857, 0.0242348837396833, 0.0168720396936779, 0.022211269097018, 0.0355286679037712, 0.00017126708391638, 0.00443642409999561, 0.0068913158904869, 0.0635882367317516, 0.0566932963429416, 0.00904861729235097, 0.00038919481466495), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\')));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisinfinite5() {
+ assertEval("argv <- list(structure(c(80, 80, 75, 62, 62, 62, 62, 62, 58, 58, 58, 58, 58, 58, 50, 50, 50, 50, 50, 56, 70, 27, 27, 25, 24, 22, 23, 24, 24, 23, 18, 18, 17, 18, 19, 18, 18, 19, 19, 20, 20, 20, 89, 88, 90, 87, 87, 87, 93, 93, 87, 80, 89, 88, 82, 93, 89, 86, 72, 79, 80, 82, 91, 42, 37, 37, 28, 18, 18, 19, 20, 15, 14, 14, 13, 11, 12, 8, 7, 8, 8, 9, 15, 15), .Dim = c(21L, 4L), .Dimnames = list(NULL, c(\'Air.Flow\', \'Water.Temp\', \'Acid.Conc.\', \'stack.loss\'))));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisinfinite6() {
+ assertEval("argv <- list(structure(c(1.12411954394441, -0.567321126080105, 1.28594901629635, -0.519809468914999, -1.485548782458, -0.435305441405687, -0.281625943801696, -0.527525498975648, 2.60041695299567, NA), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\')));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisinfinite7() {
+ assertEval("argv <- list(NULL);is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisinfinite8() {
+ assertEval("argv <- list(structure(c(0.00544194018731062, 0.00542949133552226, 1.20718999105839e-05, 0.00505497198006266, 0.827687885653788, 0.00315385274195005, 0.0023164952286401, 0.00117183915211372, 2.09167441982205, 0.00193959227691399, 0.00358084102808485, 3.39138861812986e-05, 0.00163051710052444, 0.00168735925488057, 0.0167253073891896, 0.237074502262169, 0.0118967636015583, 0.00307437031103621, 0.00114371252369823, 0.000860763872820255, 0.00028432076263802, 0.00329557354736053, 0.000123683950933913, 0.00026114238659798, 0.00471892942651347, 0.00317288091968884, 6.76955217513137e-05, 0.0119061189538054, 0.00233356124758579, 0.00672098496026968, 0.134965372025281, 0.00102115420103838, 0.00114816901125044), .Names = c(\'Craig Dunain\', \'Ben Rha\', \'Ben Lomond\', \'Goatfell\', \'Bens of Jura\', \'Cairnpapple\', \'Scolty\', \'Traprain\', \'Lairig Ghru\', \'Dollar\', \'Lomonds\', \'Cairn Table\', \'Eildon Two\', \'Cairngorm\', \'Seven Hills\', \'Knock Hill\', \'Black Hill\', \'Creag Beag\', \'Kildcon Hill\', \'Meall Ant-Suidhe\', \'Half Ben Nevis\', \'Cow Hill\', \'N Berwick Law\', \'Creag Dubh\', \'Burnswark\', \'Largo Law\', \'Criffel\', \'Acmony\', \'Ben Nevis\', \'Knockfarrel\', \'Two Breweries\', \'Cockleroi\', \'Moffat Chase\')));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisinfinite9() {
+ assertEval("argv <- list(structure(c(0.648648743252693, 0.52170345712821, -0.338075767187078, 0.169770656775468, -1.86324282017776, 0.362268009067608, 0.136032794890515, 0.901814933704047, -0.671639624694386, 1.79387977353953, 0.714576709724596, -0.471811539980989, -0.857026690426369, 0.226899513968796, 0.568565310101759, -0.944564385994918, 0.693403222263985, 0.02231307737364, -0.276817414323803, -0.344452836733253, -0.844829717537689, -0.421779195680793, -0.154748062715674, 1.43960300137753, 0.256965508768852, -0.295370227475694, 0.507911869619344, -0.346156318366332, -0.187948961031579, -0.454073164294974, -0.0895014237058297, 1.91227371168715, 0.779246572061347, 0.606406152381391, -0.0628430973426908, 2.1063179091687, -1.32672093069913, -0.754254955100625, -0.59565543740158, -1.95946772292555, -0.495798772099865, -3.58086046245482, -0.721772682345538, -0.254468243441054, 2.41750264738881, -0.0647957309150968, 1.87354174039771, -0.552199273430865, 0.732944502427441, 0.703597322009966, 0.875011400025303, -0.916329805907907, -0.297942295133666, -0.239141969395332, -1.79620422664673, -1.34633804643361, -Inf, 1.84762640960041, -0.344523591926435, 1.12935189480329, -0.902874350916712, -0.187948961031579, 0.444184743731147, -0.595767030989317, -0.878351658910786, 0.131398128073247, -1.16349118303155, -0.612790192876235, -0.231519954928205, -0.944564385994918, 0.136032794890519, -0.250233723215235, -0.972829009134415, 0.576852333601859, 0.226899513968797, -0.316245505808486, 0.101419270213227, 2.16953626752671, -0.383691077846572, 0.547999893193889, 0.00183871707028874, -1.28758691932778, 0.0676445397107313, -0.809987759639438, -1.04896153736838, 0.156556073105978, 0.248659709506608, 1.27246860456928, 0.554771572109539, 1.2326801378144, 2.2926344791142, 1.00034303387372, -0.554771572109538), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\')));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisinfinite10() {
+ assertEval("argv <- list(structure(c(100, -1e-13, Inf, -Inf, NaN, 3.14159265358979, NA), .Names = c(\' 100\', \'-1e-13\', \' Inf\', \'-Inf\', \' NaN\', \'3.14\', \' NA\')));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisinfinite11() {
+ assertEval("argv <- list(structure(c(0.140840156507829, 0.04056135019562, 0.0029302031336855, 0.244192917875952, 0.613916838192149, 0.0888451715064135, 0.0786481028238466, 0.000549230092684491, 0.00048785961836479, 0.235214398525727, 0.000402612842061681, 0.00423992719924668, 0.0355604120039037, 0.00432748168352161, 0.170388213068447, 0.466682597016338), .Names = c(\'1947\', \'1948\', \'1949\', \'1950\', \'1951\', \'1952\', \'1953\', \'1954\', \'1955\', \'1956\', \'1957\', \'1958\', \'1959\', \'1960\', \'1961\', \'1962\')));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisinfinite12() {
+ assertEval("argv <- list(4);is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisinfinite13() {
+ assertEval("argv <- list(structure(1:24, .Dim = 2:4));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisinfinite14() {
+ assertEval("argv <- list(structure(c(1, 0.5, 0.5, 1), .Dim = c(2L, 2L), .Dimnames = list(c(\'A\', \'B\'), c(\'A\', \'B\'))));is.infinite(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisinfinite15() {
+ assertEval("argv <- list(c(21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 21L, 36L, 51L, 66L, 81L, 96L, 111L, 126L, 141L, 156L, 171L, 178L, 185L, 192L, 199L, 206L, 213L, 220L, 227L, 234L, 241L, 248L, 250L, 252L, 254L, 256L, 258L, 260L, 262L, 264L, 266L, 268L, 270L, 267L, 264L, 261L, 258L, 255L, 242L, 229L, 216L, 203L, 190L, 177L, 164L, 151L, 138L, 125L, 112L, 111L, 110L, 109L, 108L, 107L, 106L, 105L, 104L, 103L, 102L, 101L, 100L, 99L, 102L, 105L, 108L, 111L, 114L, 117L, 120L, 123L, 126L, 129L, 132L, 141L, 150L, 159L, 168L, 177L, 186L, 195L, 204L, 213L, 222L, 231L, 240L, 257L, 274L, 291L, 308L, 325L, 342L, 359L, 376L, 393L, 384L, 375L, 366L, 357L, 348L, 339L, 330L, 321L, 312L, 303L, 294L, 285L, 286L, 287L, 288L, 289L, 290L, 291L, 292L, 293L, 294L, 295L, 296L, 282L, 268L, 254L, 240L, 226L, 212L, 198L, 184L, 170L, 156L, 142L, 128L, 114L, 100L, 86L, 72L, 58L, 44L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA));is.infinite(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisinteger.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisinteger.java
new file mode 100644
index 0000000000000000000000000000000000000000..58643a08115ef813e543475562ecc08a70c6a55d
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisinteger.java
@@ -0,0 +1,63 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisinteger extends TestBase {
+
+ @Test
+ public void testisinteger1() {
+ assertEval("argv <- list(2.74035772634541);is.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testisinteger2() {
+ assertEval("argv <- list(c(NA, 9, 3, 3));is.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testisinteger3() {
+ assertEval("argv <- list(c(NA, 0L));is.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testisinteger4() {
+ assertEval("argv <- list(c(NA, -4.19095158576965e-09));is.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testisinteger5() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'character(0)\', row.names = character(0), class = \'data.frame\'));is.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testisinteger6() {
+ assertEval("argv <- list(c(-0.6, -0.6, -0.6, -0.6, -0.6, -0.6, -0.6, -0.6, -0.3, -0.3, -0.3, -0.3, -0.3, -0.3, -0.3, -0.3, 0.3, 0.3, 0.3, 0.3, 0.3, 0.3, 0.3, 0.3, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6));is.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testisinteger7() {
+ assertEval("argv <- list(c(NA, 1L));is.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testisinteger8() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.integer(argv[[1]]);");
+ }
+
+ @Test
+ public void testisinteger9() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1), .Dim = 1:3));is.integer(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinislanguage.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinislanguage.java
new file mode 100644
index 0000000000000000000000000000000000000000..a80467569475178543d54bdabf7078cba19ddc1b
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinislanguage.java
@@ -0,0 +1,135 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinislanguage extends TestBase {
+
+ @Test
+ public void testislanguage1() {
+ assertEval("argv <- list(c(3.14159265358988, 3.14159265358988, 3.14159265358983, 3.14159265358982, 3.14159265358974, 3.14159265358989, 3.14159265358976, 3.14159265358993, 3.14159265358997, 3.14159265358984, 3.14159265358969, 3.14159265358989, 3.14159265358977, 3.14159265358964, 3.14159265358982, 3.14159265358969, 3.14159265358968, 3.1415926535898, 3.14159265358961, 3.14159265358967, 3.14159265358983, 3.14159265358997, 3.14159265358987, 3.14159265358995, 3.14159265358992, 3.14159265358996, 3.14159265358965, 3.14159265358964, 3.14159265358997, 3.14159265358968, 3.14159265358995, 3.14159265358961, 3.14159265358993, 3.14159265358985, 3.14159265358996, 3.14159265358964, 3.1415926535898, 3.1415926535896, 3.14159265358964, 3.14159265358994, 3.14159265358964, 3.14159265358962, 3.14159265358985, 3.14159265358962, 3.14159265358977, 3.14159265358973, 3.14159265358969, 3.14159265358987, 3.14159265358978, 3.14159265358965, 3.14159265358991, 3.14159265358997, 3.14159265358979, 3.1415926535897, 3.14159265358974, 3.14159265358977, 3.14159265358985, 3.14159265358982, 3.14159265358981, 3.14159265358984, 3.14159265358991, 3.14159265358989, 3.14159265358978, 3.14159265358967, 3.1415926535899, 3.14159265358998, 3.14159265358992, 3.14159265358972, 3.14159265358984, 3.14159265358974, 3.14159265358969, 3.14159265358984, 3.14159265358983, 3.14159265358995, 3.14159265358963, 3.14159265358996, 3.14159265358976, 3.14159265358973, 3.14159265358995, 3.14159265358965, 3.14159265358966, 3.1415926535898, 3.14159265358965, 3.14159265358992, 3.14159265358959, 3.14159265358988, 3.14159265358988, 3.14159265358974, 3.14159265358994, 3.14159265358996, 3.1415926535897, 3.14159265358973, 3.14159265358971, 3.14159265358986, 3.14159265358998, 3.14159265358984, 3.14159265358988, 3.1415926535896, 3.1415926535897, 3.14159265358985, 3.14159265358983));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage2() {
+ assertEval("argv <- list(structure(c(FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE), .Dim = 16:17));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage3() {
+ assertEval("argv <- list(structure(c(-5.96781464124519, -6.49437440734601, -3.09795335180399, -6.0516983940436, 2.94181419227242, 1.32243907887975, -6.14000748997388, -1.17705131190311), .Dim = c(4L, 2L), .Dimnames = list(c(\'Murder\', \'Assault\', \'UrbanPop\', \'Rape\'), c(\'PC1\', \'PC2\'))));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage4() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage6() {
+ assertEval("argv <- list(1.79769313486232e+308);is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage7() {
+ assertEval("argv <- list(c(\'2001-01-01\', NA, NA, \'2004-10-26\'));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage8() {
+ assertEval("argv <- list(c(0+0i, 0.00809016994374947-0.00587785252292473i, 0.0161803398874989-0.0117557050458495i, 0.0242705098312484-0.0176335575687742i, 0.0323606797749979-0.0235114100916989i, 0.0404508497187474-0.0293892626146237i, 0.0485410196624968-0.0352671151375484i, 0.0566311896062463-0.0411449676604731i, 0.0647213595499958-0.0470228201833979i, 0.0728115294937453-0.0529006727063226i, 0.0809016994374947-0.0587785252292473i, 0.0889918693812442-0.0646563777521721i, 0.0970820393249937-0.0705342302750968i, 0.105172209268743-0.076412082798022i, 0.113262379212493-0.082289935320946i, 0.121352549156242-0.088167787843871i, 0.129442719099992-0.094045640366796i, 0.137532889043741-0.09992349288972i, 0.14562305898749-0.105801345412645i, 0.15371322893124-0.11167919793557i, 0.16180339887499-0.117557050458495i, 0.169893568818739-0.123434902981419i, 0.177983738762488-0.129312755504344i, 0.186073908706238-0.135190608027269i, 0.194164078649987-0.141068460550194i, 0.202254248593737-0.146946313073118i, 0.210344418537486-0.152824165596043i, 0.218434588481236-0.158702018118968i, 0.226524758424985-0.164579870641893i, 0.234614928368735-0.170457723164817i, 0.242705098312484-0.176335575687742i, 0.250795268256234-0.182213428210667i, 0.258885438199983-0.188091280733591i, 0.266975608143733-0.193969133256516i, 0.275065778087482-0.199846985779441i, 0.283155948031232-0.205724838302366i, 0.291246117974981-0.21160269082529i, 0.29933628791873-0.217480543348215i, 0.30742645786248-0.22335839587114i, 0.315516627806229-0.229236248394065i, 0.323606797749979-0.235114100916989i, 0.331696967693728-0.240991953439914i, 0.339787137637478-0.246869805962839i, 0.347877307581227-0.252747658485764i, 0.355967477524977-0.258625511008688i, 0.364057647468726-0.264503363531613i, 0.372147817412476-0.270381216054538i, 0.380237987356225-0.276259068577462i, 0.388328157299975-0.282136921100387i, 0.396418327243724-0.288014773623312i, 0.404508497187474-0.293892626146237i, 0.412598667131223-0.299770478669161i, 0.420688837074973-0.305648331192086i, 0.428779007018722-0.311526183715011i, 0.436869176962472-0.317404036237936i, 0.444959346906221-0.32328188876086i, 0.453049516849971-0.329159741283785i, 0.46113968679372-0.33503759380671i, 0.469229856737469-0.340915446329634i, 0.477320026681219-0.346793298852559i, 0.485410196624968-0.352671151375484i, 0.493500366568718-0.358549003898409i, 0.501590536512467-0.364426856421333i, 0.509680706456217-0.370304708944258i, 0.517770876399966-0.376182561467183i, 0.525861046343716-0.382060413990108i, 0.533951216287465-0.387938266513032i, 0.542041386231215-0.393816119035957i, 0.550131556174964-0.399693971558882i, 0.558221726118714-0.405571824081807i, 0.566311896062463-0.411449676604731i, 0.574402066006213-0.417327529127656i, 0.582492235949962-0.423205381650581i, 0.590582405893712-0.429083234173506i, 0.598672575837461-0.43496108669643i, 0.60676274578121-0.440838939219355i, 0.61485291572496-0.44671679174228i, 0.62294308566871-0.452594644265205i, 0.631033255612459-0.458472496788129i, 0.639123425556208-0.464350349311054i, 0.647213595499958-0.470228201833979i, 0.655303765443707-0.476106054356903i, 0.663393935387457-0.481983906879828i, 0.671484105331206-0.487861759402753i, 0.679574275274956-0.493739611925678i, 0.687664445218705-0.499617464448602i, 0.695754615162455-0.505495316971527i, 0.703844785106204-0.511373169494452i, 0.711934955049954-0.517251022017377i, 0.720025124993703-0.523128874540301i, 0.728115294937453-0.529006727063226i, 0.736205464881202-0.534884579586151i, 0.744295634824952-0.540762432109075i, 0.752385804768701-0.546640284632i, 0.76047597471245-0.552518137154925i, 0.7685661446562-0.55839598967785i, 0.77665631459995-0.564273842200774i, 0.784746484543699-0.570151694723699i, 0.792836654487448-0.576029547246624i, 0.800926824431198-0.581907399769549i, 0.809016994374947-0.587785252292473i));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage9() {
+ assertEval("argv <- list(structure(c(-0.148741651280925, -0.200659450546418, -0.0705810742857073, -0.356547323513813, -0.214670164989233, -0.161150909262745, -0.0362121726544447, -0.259637310505756, -0.142667503568732, -0.113509274827518, -0.0362121726544447, -0.221848749616356, -0.0809219076239261, -0.0969100130080564, 0, -0.113509274827518, -0.0362121726544447, 0, 0.0934216851622351, 0, 0.0644579892269184, 0.113943352306837, 0.161368002234975, 0.0969100130080564, 0.100370545117563, 0.139879086401236, 0.269512944217916, 0.193124598354462, 0.184691430817599, 0.201397124320452, 0.262451089730429, 0.269512944217916, 0.184691430817599, 0.315970345456918, 0.369215857410143, 0.352182518111362, 0.334453751150931, 0.385606273598312, 0.431363764158987, 0.352182518111362, 0.445604203273598, 0.534026106056135, 0.56702636615906, 0.556302500767287, 0.556302500767287, 0.635483746814912, 0.635483746814912, 0.607455023214668, 0.686636269262293, 0.702430536445525, 0.702430536445525, 0.644438589467839, 0.746634198937579, 0.76715586608218, 0.817565369559781, 0.725094521081469, 0.780317312140151, 0.8055008581584, 0.840733234611807, 0.76715586608218, 0.840733234611807, 0.888740960682893, 0.893761762057943, 0.786751422145561, 0.888740960682893, 0.949877704036875, 0.91803033678488, 0.835056101720116, 0.979548374704095, 1.0111473607758, 0.979548374704095, 0.94101424370557, 1.07481644064517, 1.08134730780413, 1.08457627793433, 0.949877704036875, 1.14736710779379, 1.11260500153457, 1.17172645365323, 0.999565488225982, 1.20951501454263, 1.16643011384328, 1.20466251174822, 1.06483221973857), .Tsp = c(1960, 1980.75, 4), class = \'ts\'));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage10() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage11() {
+ assertEval("argv <- list(numeric(0));is.language(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testislanguage12() {
+ assertEval("argv <- list(expression(sqrt(abs(`Standardized residuals`))));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage13() {
+ assertEval("argv <- list(structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage14() {
+ assertEval("argv <- list(c(NA, NA, 0, NA, NA, NA, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 0, NA, NA, NA, NA, NA, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 0, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage15() {
+ assertEval("argv <- list(c(3L, 3L, NA, 3L, 4L, 3L, NA, 3L, 3L, 3L, 3L, 2L, 3L, 3L, 4L, 3L, 2L, 2L, 3L, 5L, 2L, 2L, 2L, 4L, 3L, 3L, 3L, 3L, 4L, 4L, 3L, 3L, 4L, 3L, 4L, 3L, 3L, 4L, 3L, 1L, 3L, 3L, 5L, 3L, NA, 2L, 4L, 1L, 3L, 3L, NA, 2L, 5L, 3L, 4L, 4L, 5L, 4L, 4L, 3L, 5L, 4L, 4L, NA, 3L, 5L, 5L, 5L, 5L, 4L, 5L, 4L, 4L, 5L));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage16() {
+ assertEval("argv <- list(structure(list(nationality = structure(c(1L, 2L, 2L, 3L, 3L, 1L), .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(c(1L, 1L, 1L, 1L, 2L, 1L), .Label = c(\'no\', \'yes\'), class = \'factor\'), title = structure(c(3L, 6L, 7L, 4L, 2L, 5L), .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(c(NA, NA, NA, NA, NA, 1L), .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'nationality\', \'deceased\', \'title\', \'other.author\'), class = \'data.frame\', row.names = c(NA, -6L)));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage17() {
+ assertEval("argv <- list(structure(list(x = c(0.3, 3.6, 6.2, 3.8, 3.1, 4.1, 6), y = c(6.1, 6.2, 5.2, 2.3, 1.1, 0.8, 0.1)), .Names = c(\'x\', \'y\'), row.names = c(1L, 4L, 12L, 31L, 37L, 48L, 50L), class = \'data.frame\'));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage18() {
+ assertEval("argv <- list(c(\'1\', \'2\', NA));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage19() {
+ assertEval("argv <- list(structure(c(9, 13, 13, 18, 23, 28, 31, 34, 45, 48, 161, 5, 5, 8, 8, 12, 16, 23, 27, 30, 33, 43, 45, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1), .Dim = c(23L, 2L), .Dimnames = list(NULL, c(\'time\', \'status\')), type = \'right\', class = \'Surv\'));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage20() {
+ assertEval("argv <- list(c(0.923879532511287+0.38268343236509i, 0.707106781186548+0.707106781186547i, 0.38268343236509+0.923879532511287i, 0+1i, -0.38268343236509+0.923879532511287i, -0.707106781186547+0.707106781186548i, -0.923879532511287+0.38268343236509i, -1+0i, -0.923879532511287-0.38268343236509i, -0.707106781186548-0.707106781186547i, -0.38268343236509-0.923879532511287i, 0-1i, 0.38268343236509-0.923879532511287i, 0.707106781186547-0.707106781186548i, 0.923879532511287-0.38268343236509i, 1-0i));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage21() {
+ assertEval("argv <- list(integer(0));is.language(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testislanguage22() {
+ assertEval("argv <- list(structure(0:100, .Tsp = c(1, 101, 1), class = \'ts\'));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage23() {
+ assertEval("argv <- list(c(0.568, 1.432, -1.08, 1.08));is.language(argv[[1]]);");
+ }
+
+ @Test
+ public void testislanguage24() {
+ assertEval("argv <- list(\'«Latin-1 accented chars»: éè øØ å<Å æ<Æ\');is.language(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinislist.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinislist.java
new file mode 100644
index 0000000000000000000000000000000000000000..efc72d301264ef28cdea08e4dec6276a2c5b58a8
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinislist.java
@@ -0,0 +1,165 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinislist extends TestBase {
+
+ @Test
+ @Ignore
+ public void testislist1() {
+ assertEval("argv <- list(structure(function (e1, e2) standardGeneric(\'/\', .Primitive(\'/\')), generic = structure(\'/\', package = \'base\'), package = \'base\', group = list(\'Arith\'), valueClass = character(0), signature = c(\'e1\', \'e2\'), default = .Primitive(\'/\'), skeleton = quote(.Primitive(\'/\')(e1, e2)), class = structure(\'standardGeneric\', package = \'methods\')));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist2() {
+ assertEval("argv <- list(structure(c(2671, 6.026e+77, 3.161e+152, 3.501e+299, 2.409e+227, 1.529e+302), .Names = c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\')));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist3() {
+ assertEval("argv <- list(\'• \');is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist4() {
+ assertEval("argv <- list(13186.6170826564);is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist5() {
+ assertEval("argv <- list(structure(list(object = c(0.568, 1.432, -1.08, 1.08), max.level = NA, vec.len = 4, digits.d = 3, nchar.max = 128, give.attr = TRUE, give.head = TRUE, width = 80L, envir = NULL, strict.width = \'no\', formatNum = function (x, ...) format(x, trim = TRUE, drop0trailing = TRUE, ...), list.len = 99, give.length = TRUE, nest.lev = 1, indent.str = \' ..\'), .Names = c(\'object\', \'max.level\', \'vec.len\', \'digits.d\', \'nchar.max\', \'give.attr\', \'give.head\', \'width\', \'envir\', \'strict.width\', \'formatNum\', \'list.len\', \'give.length\', \'nest.lev\', \'indent.str\')));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist6() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c(\'1\', \'2\', NA), class = \'factor\'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist7() {
+ assertEval("argv <- list(structure(list(y = c(1.08728092481538, 0.0420572471552261, 0.787502161306819, 0.512717751544676, 3.35376639535311, 0.204341510750309, -0.334930602487435, 0.80049208412789, -0.416177803375218, -0.777970346246018, 0.934996808181635, -0.678786709127108, 1.52621589791412, 0.5895781228122, -0.744496121210548, -1.99065153885627, 1.51286447692396, -0.750182409847851), A = c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), U = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c(\'a\', \'b\', \'c\'), class = \'factor\'), V = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L), .Label = c(\'a\', \'b\', \'c\'), class = \'factor\')), .Names = c(\'y\', \'A\', \'U\', \'V\'), terms = quote(y ~ A:U + A:V - 1), row.names = c(NA, 18L), class = \'data.frame\'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testislist8() {
+ assertEval("argv <- list(structure(list(title = structure(1L, .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(2L, .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'title\', \'other.author\'), row.names = 1L, class = \'data.frame\'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist9() {
+ assertEval("argv <- list(structure(list(srcfile = \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R\', frow = 612L, lrow = 612L), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, -1L)));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist10() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist11() {
+ assertEval("argv <- list(structure(list(a_string = c(\'foo\', \'bar\'), a_bool = FALSE, a_struct = structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = \'foo\'), .Names = c(\'a\', \'b\', \'c\')), a_cell = structure(list(1, \'foo\', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), \'bar\'), .Dim = c(2L, 2L)), a_complex_scalar = 0+1i, a_list = list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), \'foo\'), a_complex_matrix = structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), a_range = c(1, 2, 3, 4, 5), a_scalar = 1, a_complex_3_d_array = structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), a_3_d_array = structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), a_matrix = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), a_bool_matrix = structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))), .Names = c(\'a_string\', \'a_bool\', \'a_struct\', \'a_cell\', \'a_complex_scalar\', \'a_list\', \'a_complex_matrix\', \'a_range\', \'a_scalar\', \'a_complex_3_d_array\', \'a_3_d_array\', \'a_matrix\', \'a_bool_matrix\')));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist12() {
+ assertEval("argv <- list(5e-14);is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist13() {
+ assertEval("argv <- list(structure(c(NA, 6346.2), .Names = c(\'1\', \'2\')));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist14() {
+ assertEval("argv <- list(c(1.1+0i, NA, 3+0i));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist15() {
+ assertEval("argv <- list(structure(list(Ozone = c(NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), Solar.R = c(286L, 287L, 242L, 186L, 220L, 264L, 127L, 273L, 291L, 323L, 259L, 250L, 148L, 332L, 322L, 191L, 284L, 37L, 120L, 137L, 150L, 59L, 91L, 250L, 135L, 127L, 47L, 98L, 31L, 138L), Wind = c(8.6, 9.7, 16.1, 9.2, 8.6, 14.3, 9.7, 6.9, 13.8, 11.5, 10.9, 9.2, 8, 13.8, 11.5, 14.9, 20.7, 9.2, 11.5, 10.3, 6.3, 1.7, 4.6, 6.3, 8, 8, 10.3, 11.5, 14.9, 8), Temp = c(78L, 74L, 67L, 84L, 85L, 79L, 82L, 87L, 90L, 87L, 93L, 92L, 82L, 80L, 79L, 77L, 72L, 65L, 73L, 76L, 77L, 76L, 76L, 76L, 75L, 78L, 73L, 80L, 77L, 83L), Month = c(6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), Day = 1:30), .Names = c(\'Ozone\', \'Solar.R\', \'Wind\', \'Temp\', \'Month\', \'Day\'), row.names = 32:61, class = \'data.frame\'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist16() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4), .Tsp = c(1945, 1974.75, 4), class = \'ts\'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist17() {
+ assertEval("argv <- list(structure(c(\'***\', \'***\', \'*\', \'*\'), legend = \'0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1\', class = \'noquote\'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist18() {
+ assertEval("argv <- list(structure(list(`/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/lookup.xport.Rd` = structure(c(\'read.xport\', \'\'), .Dim = 1:2, .Dimnames = list(NULL, c(\'Target\', \'Anchor\'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.S.Rd` = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c(\'Target\', \'Anchor\'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.arff.Rd` = structure(c(\'connection\', \'write.arff\', \'\', \'\'), .Dim = c(2L, 2L), .Dimnames = list( NULL, c(\'Target\', \'Anchor\'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.dbf.Rd` = structure(c(\'make.names\', \'write.dbf\', \'\', \'\'), .Dim = c(2L, 2L), .Dimnames = list(NULL, c(\'Target\', \'Anchor\'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.dta.Rd` = structure(c(\'write.dta\', \'attributes\', \'Date\', \'factor\', \'\', \'\', \'\', \'\'), .Dim = c(4L, 2L), .Dimnames = list(NULL, c(\'Target\', \'Anchor\'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.epiinfo.Rd` = structure(c(\'Date\', \'DateTimeClasses\', \'\', \'\'), .Dim = c(2L, 2L), .Dimnames = list(NULL, c(\'Target\', \'Anchor\'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.mtp.Rd` = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c(\'Target\', \'Anchor\'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.octave.Rd` = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c(\'Target\', \'Anchor\'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.spss.Rd` = structure(c(\'sub\', \'iconv\', \'iconvlist\', \'\', \'\', \'\'), .Dim = c(3L, 2L), .Dimnames = list(NULL, c(\'Target\', \'Anchor\'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.ssd.Rd` = structure(c(\'read.xport\', \'\'), .Dim = 1:2, .Dimnames = list(NULL, c(\'Target\', \'Anchor\'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.systat.Rd` = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c(\'Target\', \'Anchor\'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.xport.Rd` = structure(c(\'lookup.xport\', \'\'), .Dim = 1:2, .Dimnames = list(NULL, c(\'Target\', \'Anchor\'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.arff.Rd` = structure(c(\'make.names\', \'read.arff\', \'\', \'\'), .Dim = c(2L, 2L), .Dimnames = list(NULL, c(\'Target\', \'Anchor\'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.dbf.Rd` = structure(c(\'read.dbf\', \'\'), .Dim = 1:2, .Dimnames = list(NULL, c(\'Target\', \'Anchor\'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.dta.Rd` = structure(c(\'drop\', \'read.dta\', \'attributes\', \'DateTimeClasses\', \'abbreviate\', \'\', \'\', \'\', \'\', \'\'), .Dim = c(5L, 2L), .Dimnames = list(NULL, c(\'Target\', \'Anchor\'))), `/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.foreign.Rd` = structure(character(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c(\'Target\', \'Anchor\')))), .Names = c(\'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/lookup.xport.Rd\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.S.Rd\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.arff.Rd\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.dbf.Rd\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.dta.Rd\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.epiinfo.Rd\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.mtp.Rd\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.octave.Rd\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.spss.Rd\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.ssd.Rd\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.systat.Rd\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/read.xport.Rd\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.arff.Rd\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.dbf.Rd\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.dta.Rd\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/man/write.foreign.Rd\')));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist19() {
+ assertEval("argv <- list(3.14159265358979e+20);is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist20() {
+ assertEval("argv <- list(structure(list(srcfile = c(NA, \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\'), frow = c(NA, 88L, 89L, 89L, 90L, 90L, 90L, 88L, 88L, 92L, 92L, 92L, 92L, 92L, 94L, 94L, 100L, 103L, 108L, 108L, 128L, 131L, 138L, 142L, 160L, 160L), lrow = c(NA, 91L, 89L, 89L, 90L, 90L, 90L, 91L, 91L, 93L, 93L, 93L, 93L, 93L, 95L, 95L, 100L, 104L, 108L, 108L, 132L, 131L, 138L, 144L, 160L, 160L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, 26L)));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist21() {
+ assertEval("argv <- list(structure(list(srcfile = c(\'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/R_systat.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/R_systat.R\'), frow = 21:22, lrow = 21:22), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = 1:2));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist22() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, NA, NA, NA, NA, NA), .Label = c(\'[0,2)\', \'[2,4)\', \'[4,6)\', \'[6,8)\'), class = \'factor\'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist23() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10), .Dim = c(10L, 2L), .Dimnames = list(NULL, c(\'x\', \'y\'))));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist24() {
+ assertEval("argv <- list(structure(list(loc = c(0.0804034870161223, 10.3548347412639), cov = structure(c(3.01119301965569, 6.14320559215603, 6.14320559215603, 14.7924762275451), .Dim = c(2L, 2L)), d2 = 2, wt = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), sqdist = c(0.439364946869246, 0.0143172566761092, 0.783644692619938, 0.766252947443554, 0.346865912102713, 1.41583192825661, 0.168485512965902, 0.354299830956879, 0.0943280426627965, 1.05001058449122, 1.02875556201707, 0.229332323173361, 0.873263925064789, 2.00000009960498, 0.449304354954282, 0.155023307933165, 0.118273979375253, 0.361693898800799, 0.21462398586105, 0.155558909016629, 0.471723661454506, 0.719528696331092, 0.0738164380664225, 1.46001193111051, 0.140785322548143, 0.127761195166703, 0.048012401156175, 0.811750426884519, 0.425827709817574, 0.163016638545231, 0.557810866640707, 0.277350147637843, 0.0781399119055092, 1.29559183995835, 0.718376405567138, 1.37650242941478, 0.175087780508154, 0.233808973148729, 0.693473805463067, 0.189096604125073, 1.96893781800017, 0.4759756980592, 1.69665760380474, 0.277965749373647, 0.920525436884815, 0.57525234053591, 1.59389578665009, 0.175715364671313, 0.972045794851437, 1.75514684962809, 0.0597413185507202, 0.174340343040626, 0.143421553552865, 0.997322770596838, 1.94096736957465, 2.00000001159796, 0.367000821772989, 0.682474530588235, 1.20976163307984, 1.27031685239035, 1.79775635513363, 0.0857761902860323, 0.435578932929501, 0.214370604878221, 0.494714247412686, 1.78784623754399, 1.24216674083069, 1.87749485326709, 0.0533296334123023, 1.45588362584438, 2.00000000631459, 0.208857144738039, 0.119251291573058, 0.365303924649962, 0.690656674239668, 0.0396958405786268, 0.258262120876164, 1.57360254057537, 0.307548421049514, 0.628417063100241, 1.00647098749202, 0.297624360530352, 0.400289147351669, 1.98298426250944, 0.129127182829694, 0.0794695319493149, 0.991481735944321, 0.444068154119836, 0.206790162395106, 0.574310829851377, 0.181887577583334, 0.433872021297517, 0.802994892604009, 0.293053770941001, 1.7002969001965, 0.77984639982848, 1.36127407487932, 0.761935213110323, 0.597915313430067, 0.237134831067472), prob = NULL, tol = 1e-07, eps = 9.96049758228423e-08, it = 898L, maxit = 5000, ierr = 0L, conv = TRUE), .Names = c(\'loc\', \'cov\', \'d2\', \'wt\', \'sqdist\', \'prob\', \'tol\', \'eps\', \'it\', \'maxit\', \'ierr\', \'conv\'), class = \'ellipsoid\'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist25() {
+ assertEval("argv <- list(structure(c(NA, 1, 1, 2), .Names = c(\'<none>\', \'M.user\', \'Temp\', \'Soft\')));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist26() {
+ assertEval("argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c(\'y\', \'x\', \'z\'), terms = quote(y ~ x * z), row.names = c(NA, 10L), class = \'data.frame\'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist27() {
+ assertEval("argv <- list(structure(c(1920, 1920, 1920, 1920, 1920, 1920, 1921, 1921, 1921, 1921), .Tsp = c(1920.5, 1921.25, 12), class = \'ts\'));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist29() {
+ assertEval("argv <- list(structure(1, .Dim = 1L));is.list(argv[[1]]);");
+ }
+
+ @Test
+ public void testislist30() {
+ assertEval("argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c(\'Employed\', \'GNP.deflator\', \'GNP\', \'Unemployed\', \'Armed.Forces\', \'Population\', \'Year\'), terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year), row.names = 1947:1962, class = \'data.frame\'));is.list(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinislistfactor.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinislistfactor.java
new file mode 100644
index 0000000000000000000000000000000000000000..e930717bcbf2f1ecec0338a81e2afaa4652a1c1a
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinislistfactor.java
@@ -0,0 +1,186 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinislistfactor extends TestBase {
+
+ @Test
+ @Ignore
+ public void testislistfactor1() {
+ assertEval("argv <- list(list(structure(list(structure(\'R Core\', class = \'AsIs\')), row.names = c(NA, -1L), class = \'data.frame\'), structure(list(structure(NA_character_, class = \'AsIs\')), row.names = c(NA, -1L), class = \'data.frame\'), structure(list(structure(NA_character_, class = \'AsIs\')), row.names = c(NA, -1L), class = \'data.frame\'), structure(list(structure(\'An Introduction to R\', class = \'AsIs\')), row.names = c(NA, -1L), class = \'data.frame\'), structure(list(structure(\'Venables & Smith\', class = \'AsIs\')), row.names = c(NA, -1L), class = \'data.frame\')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor2() {
+ assertEval("argv <- list(list(c(TRUE, FALSE, FALSE, FALSE, FALSE), c(TRUE, TRUE, TRUE, TRUE, NA)), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor3() {
+ assertEval("argv <- list(structure(list(a = 6:10), .Names = \'a\', row.names = 6:10), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor4() {
+ assertEval("argv <- list(structure(list(k = 0.413311097189709, g1 = 72.8306629700373, g2 = 181.793153976139), .Names = c(\'k\', \'g1\', \'g2\')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor5() {
+ assertEval("argv <- list(list(structure(list(structure(\'text\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'text.default\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor6() {
+ assertEval("argv <- list(list(structure(list(surname = structure(c(4L, 5L, 3L, 2L, 2L, 1L, 6L), .Label = c(\'McNeil\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\', \'R Core\'), class = \'factor\'), nationality = structure(c(3L, 1L, 3L, 2L, 2L, 1L, NA), .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(c(2L, 1L, 1L, 1L, 1L, 1L, NA), .Label = c(\'no\', \'yes\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\'), row.names = c(\'1\', \'2\', \'3\', \'4\', \'4.1\', \'5\', \'7\'), class = \'data.frame\'), structure(list(title = structure(c(2L, 5L, 4L, 6L, 7L, 3L, 1L), .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(c(NA, 1L, NA, NA, NA, NA, 2L), .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'title\', \'other.author\'), row.names = c(NA, 7L), class = \'data.frame\')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor7() {
+ assertEval("argv <- list(list(c(\' The binary arithmetic operators are generic functions: methods can\', \' be written for them individually or via the ‘Ops’ group generic\', \' function. (See ‘Ops’ for how dispatch is computed.)\')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor8() {
+ assertEval("argv <- list(list(structure(list(structure(1:4, .Label = c(\'0\', \'1\', \'2\', \'3\'), class = \'factor\')), row.names = c(NA, -4L), class = \'data.frame\')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor9() {
+ assertEval("argv <- list(structure(list(`1` = c(2, 1, 4, 3), `2` = c(3, 1.5, 5, 4, 1.5), `3` = c(6.5, 1.5, 9, 8, 1.5, 6.5, 4, 4, 4), `4` = c(7, 1.5, 10, 9, 1.5, 7, 4, 4, 4, 7)), .Dim = 4L, .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\'))), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor10() {
+ assertEval("argv <- list(list(structure(c(0, 1, 1, 2, 2, 4, NA), .Names = c(\'ddiMatrix\', \'diagonalMatrix\', \'dMatrix\', \'sparseMatrix\', \'Matrix\', \'mMatrix\', \'ANY\')), structure(c(0, 1, 1, 1, 2, 2, 2, 3, 4, NA), .Names = c(\'dgCMatrix\', \'CsparseMatrix\', \'dsparseMatrix\', \'generalMatrix\', \'dMatrix\', \'sparseMatrix\', \'compMatrix\', \'Matrix\', \'mMatrix\', \'ANY\'))), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor11() {
+ assertEval("argv <- list(list(structure(0, .Dim = c(1L, 1L)), structure(-4.9497224423095e-07, .Dim = c(1L, 1L)), structure(0, .Dim = c(1L, 1L)), structure(-7.44931694456399e-07, .Dim = c(1L, 1L))), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor12() {
+ assertEval("argv <- list(structure(list(event = c(\'Min. : 1.00 \', \'1st Qu.: 9.00 \', \'Median :18.00 \', \'Mean :14.74 \', \'3rd Qu.:20.00 \', \'Max. :23.00 \', NA), mag = c(\'Min. :5.000 \', \'1st Qu.:5.300 \', \'Median :6.100 \', \'Mean :6.084 \', \'3rd Qu.:6.600 \', \'Max. :7.700 \', NA), station = c(\'117 : 5 \', \'1028 : 4 \', \'113 : 4 \', \'112 : 3 \', \'135 : 3 \', \'(Other):147 \', \'NA's : 16 \'), dist = c(\'Min. : 0.50 \', \'1st Qu.: 11.32 \', \'Median : 23.40 \', \'Mean : 45.60 \', \'3rd Qu.: 47.55 \', \'Max. :370.00 \', NA), accel = c(\'Min. :0.00300 \', \'1st Qu.:0.04425 \', \'Median :0.11300 \', \'Mean :0.15422 \', \'3rd Qu.:0.21925 \', \'Max. :0.81000 \', NA)), .Names = c(\'event\', \'mag\', \'station\', \'dist\', \'accel\')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor13() {
+ assertEval("argv <- list(structure(list(`1` = 1.97626258336499e-323), .Names = \'1\'), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor14() {
+ assertEval("argv <- list(structure(list(name = structure(c(\'McNeil\', \'Ripley\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'AsIs\'), title = structure(c(\'Interactive Data Analysis\', \'Spatial Statistics\', \'Stochastic Simulation\', \'LISP-STAT\', \'Exploratory Data Analysis\', \'Modern Applied Statistics ...\'), class = \'AsIs\'), other.author = structure(c(NA, NA, NA, NA, NA, \'Ripley\'), class = \'AsIs\'), nationality = structure(c(\'Australia\', \'UK\', \'UK\', \'US\', \'US\', \'Australia\'), class = \'AsIs\'), deceased = structure(c(\'no\', \'no\', \'no\', \'no\', \'yes\', \'no\'), class = \'AsIs\')), .Names = c(\'name\', \'title\', \'other.author\', \'nationality\', \'deceased\'), row.names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor15() {
+ assertEval("argv <- list(structure(list(`1` = 8.91763605923317e+38), .Names = \'1\'), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor16() {
+ assertEval("argv <- list(structure(list(V1 = c(0.908207789994776, 0.62911404389888, 0.205974574899301), V2 = c(0.125555095961317, 0.86969084572047, 0.482080115471035), V3 = c(0.553036311641335, 0.7323137386702, 0.477619622135535), V4 = c(0.332394674187526, 0.0842469143681228, 0.339072937844321), V5 = c(0.325352151878178, 0.245488513959572, 0.239629415096715)), .Names = c(\'V1\', \'V2\', \'V3\', \'V4\', \'V5\'), row.names = c(4L, 9L, 11L)), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor17() {
+ assertEval("argv <- list(structure(list(V1 = c(0.497699242085218, 0.991906094830483), V2 = c(0.668466738192365, 0.107943625887856), V3 = c(0.0994661601725966, 0.518634263193235), V4 = c(0.892198335845023, 0.389989543473348), V5 = c(0.79730882588774, 0.410084082046524)), .Names = c(\'V1\', \'V2\', \'V3\', \'V4\', \'V5\'), row.names = c(16L, 18L)), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor18() {
+ assertEval("argv <- list(list(structure(list(structure(\'rm\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'remove\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor19() {
+ assertEval("argv <- list(list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\'))), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor20() {
+ assertEval("argv <- list(list(c(0.92317305817397+0i, 0.160449395256071+0.220125597679977i, 0.40353715410585+2.39063261466203i, -3.64092275386503+3.51619480964107i, -0.30877433127864+1.37503901638266i, -0.5590368753986+2.95994484328048i, 2.07117052177259-1.58552086053907i, 5.12796916272868+5.50114308371867i, 0.71791019962021-4.36295436036464i, 3.6182846955548+0.01693946731429i, 5.86560669896785+3.41674024963709i, 7.14153164455803+0i, 5.86560669896785-3.41674024963709i, 3.6182846955548-0.01693946731429i, 0.71791019962021+4.36295436036464i, 5.12796916272868-5.50114308371867i, 2.07117052177259+1.58552086053907i, -0.5590368753986-2.95994484328048i, -0.30877433127864-1.37503901638266i, -3.64092275386503-3.51619480964107i, 0.40353715410585-2.39063261466203i, 0.160449395256071-0.220125597679976i), c(0.994686860835215+0i, -0.711636086238366+0.034977366507257i, -3.47255638259391-3.00654729467177i, -1.61617641806619-2.52564108817258i, -1.83729841635945+1.24025696654912i, -0.05940773912914+1.99807537840182i, 2.14861624215501+1.14547234755584i, -0.18935885218927+5.11711397439959i, 3.55025883223277-3.01463113510177i, 0.37587194655463-4.62160286369829i, -0.57999032040714+3.57394816552023i, -3.22078701201057+0i, -0.57999032040714-3.57394816552023i, 0.37587194655463+4.62160286369829i, 3.55025883223277+3.01463113510177i, -0.18935885218927-5.11711397439959i, 2.14861624215501-1.14547234755584i, -0.05940773912914-1.99807537840182i, -1.83729841635945-1.24025696654912i, -1.61617641806619+2.52564108817258i, -3.47255638259391+3.00654729467177i, -0.711636086238366-0.034977366507256i), c(-0.376031201145236+0i, 0.36561036190112-2.94822783523588i, 2.53378536984825+1.14599403212998i, -0.59345500414631-1.46249091231517i, -5.47371957596241-2.40983118775265i, 0.994698295196402+0.827012883372647i, 4.88614691865207-0.66440097322583i, -1.22869446246947-1.85036568311679i, 4.54719422944744-1.7507307644741i, -1.25805718969215-0.46461775748286i, -6.6950163960079-1.32606545879492i, -1.8510470181104-0i, -6.6950163960079+1.32606545879492i, -1.25805718969215+0.46461775748286i, 4.54719422944744+1.7507307644741i, -1.22869446246947+1.85036568311679i, 4.88614691865207+0.66440097322583i, 0.994698295196402-0.827012883372647i, -5.47371957596241+2.40983118775265i, -0.59345500414631+1.46249091231517i, 2.53378536984825-1.14599403212998i, 0.36561036190112+2.94822783523588i), c(1.86949363581639+0i, 3.2510927680528+3.7297126359622i, 5.77117909703734-0.58113122596059i, -2.73489323319193-2.03739778844743i, 1.59256247378073-3.23882870600546i, -2.21652163259476+3.70287191787544i, -6.80966667821261-4.74346958471693i, -0.48551953206469-3.42445496113818i, -4.95350216815663-1.60107509096991i, -0.651322462114205+0.588393022429161i, 3.32067078328635+3.75999833207777i, -1.35013798358527+0i, 3.32067078328635-3.75999833207777i, -0.651322462114205-0.588393022429161i, -4.95350216815663+1.60107509096991i, -0.48551953206469+3.42445496113818i, -6.80966667821261+4.74346958471693i, -2.21652163259476-3.70287191787544i, 1.59256247378073+3.23882870600546i, -2.73489323319193+2.03739778844743i, 5.77117909703734+0.58113122596059i, 3.2510927680528-3.7297126359622i), c(-3.90806827793786+0i, -4.10078155861753-4.25996878161911i, -0.63461032994351-2.08074582601136i, -0.10593736514835-3.82022652091785i, 6.14817602783479+2.33657685886581i, 0.64431546852762-1.776774088028i, 3.43771282488202-3.00904523977379i, -3.6812061457129+3.53944567666635i, 3.07722382691467+4.5373840425762i, 3.3679046040028+7.20820407858926i, 7.47003475089893-0.4463480891006i, 13.9322715624418-0i, 7.47003475089893+0.4463480891006i, 3.3679046040028-7.20820407858926i, 3.07722382691467-4.5373840425762i, -3.6812061457129-3.53944567666635i, 3.43771282488202+3.00904523977379i, 0.64431546852762+1.776774088028i, 6.14817602783479-2.33657685886581i, -0.10593736514835+3.82022652091785i, -0.63461032994351+2.08074582601136i, -4.10078155861753+4.25996878161911i)), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor21() {
+ assertEval("argv <- list(structure(list(), .Names = character(0)), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor22() {
+ assertEval("argv <- list(structure(list(a = \'a\', b = 2, c = 3.14159265358979+2i), .Names = c(\'a\', \'b\', \'c\')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor23() {
+ assertEval("argv <- list(list(structure(list(surname = structure(2L, .Label = c(\'McNeil\', \'R Core\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'factor\'), nationality = structure(NA_integer_, .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(NA_integer_, .Label = c(\'no\', \'yes\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\'), row.names = 1L, class = \'data.frame\'), structure(list(title = structure(1L, .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(2L, .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'title\', \'other.author\'), row.names = 1L, class = \'data.frame\')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor25() {
+ assertEval("argv <- list(list(structure(list(structure(c(\'\', \'+ M.user\', \'+ Temp\', \'+ M.user:Temp\'), class = \'AsIs\')), row.names = c(NA, -4L), class = \'data.frame\'), structure(list(c(NA, -1, -1, -1)), row.names = c(NA, -4L), class = \'data.frame\'), structure(list(c(NA, 20.5814660332393, 3.80016287449608, 2.78794934284365)), row.names = c(NA, -4L), class = \'data.frame\'), structure(list(c(11, 10, 9, 8)), row.names = c(NA, -4L), class = \'data.frame\'), structure(list(c(32.825622681839, 12.2441566485997, 8.44399377410362, 5.65604443125997)), row.names = c(NA, -4L), class = \'data.frame\'), structure(list(c(92.5235803967766, 73.9421143635373, 72.1419514890413, 71.3540021461976)), row.names = c(NA, -4L), class = \'data.frame\')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor26() {
+ assertEval("argv <- list(structure(list(`2005` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c(\'01\', \'02\', \'03\', \'04\', \'05\', \'06\', \'07\', \'08\', \'09\', \'10\', \'11\', \'12\')), .Names = \'\'), class = \'table\'), `2006` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c(\'01\', \'02\', \'03\', \'04\', \'05\', \'06\', \'07\', \'08\', \'09\', \'10\', \'11\', \'12\')), .Names = \'\'), class = \'table\'), `2007` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c(\'01\', \'02\', \'03\', \'04\', \'05\', \'06\', \'07\', \'08\', \'09\', \'10\', \'11\', \'12\')), .Names = \'\'), class = \'table\'), `2008` = structure(c(31L, 29L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c(\'01\', \'02\', \'03\', \'04\', \'05\', \'06\', \'07\', \'08\', \'09\', \'10\', \'11\', \'12\')), .Names = \'\'), class = \'table\'), `2009` = structure(1L, .Dim = 1L, .Dimnames = structure(list(\'01\'), .Names = \'\'), class = \'table\')), .Names = c(\'2005\', \'2006\', \'2007\', \'2008\', \'2009\')), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor27() {
+ assertEval("argv <- list(structure(\'mtext(\\\'«Latin-1 accented chars»: éè øØ å<Å æ<Æ\\\', side = 3)\\n\', Rd_tag = \'RCODE\'), TRUE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor28() {
+ assertEval("argv <- list(structure(list(V1 = structure(c(\'head\', \'1\', \'3\', \'6\'), class = \'AsIs\'), V2 = structure(c(\'NA\', \' 2\', \' 4\', \' 7\'), class = \'AsIs\'), V3 = structure(c(\'NA\', \'NA\', \' 5\', \' 8\'), class = \'AsIs\'), V4 = structure(c(\'NA\', \'NA\', \'NA\', \' 9\'), class = \'AsIs\')), .Names = c(\'V1\', \'V2\', \'V3\', \'V4\'), row.names = c(\'1\', \'2\', \'3\', \'4\')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testislistfactor29() {
+ assertEval("argv <- list(structure(list(`1 sec` = 345600, `2 secs` = 172800, `5 secs` = 69120, `10 secs` = 34560, `15 secs` = 23040, `30 secs` = 11520, `1 min` = 5760, `2 mins` = 2880, `5 mins` = 1152, `10 mins` = 576, `15 mins` = 384, `30 mins` = 192, `1 hour` = 96, `3 hours` = 32, `6 hours` = 16, `12 hours` = 8, `1 DSTday` = 4, `2 DSTdays` = 2, `1 week` = 0.571428571428571, halfmonth = 0.262833675564682, `1 month` = 0.131416837782341, `3 months` = 0.0438056125941136, `6 months` = 0.0219028062970568, `1 year` = 0.0109514031485284, `2 years` = 0.0054757015742642, `5 years` = 0.00219028062970568, `10 years` = 0.00109514031485284, `20 years` = 0.00054757015742642, `50 years` = 0.000219028062970568, `100 years` = 0.000109514031485284, `200 years` = 5.4757015742642e-05, `500 years` = 2.19028062970568e-05, `1000 years` = 1.09514031485284e-05), .Names = c(\'1 sec\', \'2 secs\', \'5 secs\', \'10 secs\', \'15 secs\', \'30 secs\', \'1 min\', \'2 mins\', \'5 mins\', \'10 mins\', \'15 mins\', \'30 mins\', \'1 hour\', \'3 hours\', \'6 hours\', \'12 hours\', \'1 DSTday\', \'2 DSTdays\', \'1 week\', \'halfmonth\', \'1 month\', \'3 months\', \'6 months\', \'1 year\', \'2 years\', \'5 years\', \'10 years\', \'20 years\', \'50 years\', \'100 years\', \'200 years\', \'500 years\', \'1000 years\')), FALSE); .Internal(islistfactor(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisloaded.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisloaded.java
new file mode 100644
index 0000000000000000000000000000000000000000..e88243423e9a752838a4d5daef21bf7e0cc6e017
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisloaded.java
@@ -0,0 +1,28 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisloaded extends TestBase {
+
+ @Test
+ public void testisloaded1() {
+ assertEval("argv <- list(\'PDF\', \'\', \'External\'); .Internal(is.loaded(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testisloaded2() {
+ assertEval("argv <- list(\'supsmu\', \'\', \'\'); .Internal(is.loaded(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinislogical.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinislogical.java
new file mode 100644
index 0000000000000000000000000000000000000000..58c70ffe505f1efc044aa340bc20c13d6b898d71
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinislogical.java
@@ -0,0 +1,43 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinislogical extends TestBase {
+
+ @Test
+ public void testislogical1() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(22L, 13L), .Dimnames = list(c(\'r39\', \'r17\', \'r39\', \'r14\', \'r39\', \'r8\', \'r25\', \'r9\', \'r17\', \'r27\', \'r17\', \'r14\', \'r39\', \'r27\', \'r9\', \'r25\', \'r8\', \'r17\', \'r9\', \'r8\', \'r25\', \'r5\'), c(\'c4\', \'c1\', \'c13\', \'c13\', \'c1\', \'c20\', \'c20\', \'c13\', \'c20\', \'c8\', \'c8\', \'c8\', \'c13\'))));is.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void testislogical2() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'character(0)\', row.names = character(0), class = \'data.frame\'));is.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void testislogical3() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void testislogical4() {
+ assertEval("argv <- list(structure(c(1, 4.16333634234434e-17, 5.55111512312578e-17, -1.38777878078145e-17, 2.77555756156289e-17, 4.16333634234434e-17, 1, -1.11022302462516e-16, -2.77555756156289e-17, -5.55111512312578e-17, 5.55111512312578e-17, -1.11022302462516e-16, 1, 5.55111512312578e-17, 0, -1.38777878078145e-17, -2.77555756156289e-17, 5.55111512312578e-17, 1, -1.11022302462516e-16, 2.77555756156289e-17, -5.55111512312578e-17, 0, -1.11022302462516e-16, 1), .Dim = c(5L, 5L)));is.logical(argv[[1]]);");
+ }
+
+ @Test
+ public void testislogical5() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, NA, 6, 0, 0, 0, 14, 3, 0, 15, 0, 0, 8), .Dim = c(4L, 4L)));is.logical(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinismatrix.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinismatrix.java
new file mode 100644
index 0000000000000000000000000000000000000000..a7c316be711f4dab2a8dd3ac7962713751b261d4
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinismatrix.java
@@ -0,0 +1,131 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinismatrix extends TestBase {
+
+ @Test
+ public void testismatrix1() {
+ assertEval("argv <- list(c(-3.44, 62.44));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testismatrix2() {
+ assertEval("argv <- list(structure(list(surname = structure(2L, .Label = c(\'McNeil\', \'R Core\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'factor\'), nationality = structure(NA_integer_, .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(NA_integer_, .Label = c(\'no\', \'yes\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\'), row.names = 1L, class = \'data.frame\'));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void testismatrix3() {
+ assertEval("argv <- list(structure(list(visible = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), from = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = \'registered S3method for summary\', class = \'factor\')), .Names = c(\'visible\', \'from\'), row.names = c(\'summary.aspell\', \'summary.ecdf\', \'summary.loess\', \'summary.nls\', \'summary.packageStatus\', \'summary.PDF_Dictionary\', \'summary.PDF_Stream\', \'summary.ppr\', \'summary.prcomp\', \'summary.princomp\', \'summary.stl\', \'summary.tukeysmooth\'), class = \'data.frame\'));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void testismatrix4() {
+ assertEval("argv <- list(structure(c(0, 87, 82, 75, 63, 50, 43, 32, 35, 60, 54, 55, 36, 39, 0, 0, 69, 57, 57, 51, 45, 37, 46, 39, 36, 24, 32, 23, 25, 32, 0, 32, 59, 74, 75, 60, 71, 61, 71, 57, 71, 68, 79, 73, 76, 71, 67, 75, 79, 62, 63, 57, 60, 49, 48, 52, 57, 62, 61, 66, 71, 62, 61, 57, 72, 83, 71, 78, 79, 71, 62, 74, 76, 64, 62, 57, 80, 73, 69, 69, 71, 64, 69, 62, 63, 46, 56, 44, 44, 52, 38, 46, 36, 49, 35, 44, 59, 65, 65, 56, 66, 53, 61, 52, 51, 48, 54, 49, 49, 61, 0, 0, 68, 44, 40, 27, 28, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = \'ts\'));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void testismatrix5() {
+ assertEval("argv <- list(structure(list(srcfile = c(\'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\'), frow = c(112L, 114L, 115L, 116L, 127L, 130L, 130L, 130L, 133L, 133L, 133L, 136L, 136L, 136L, 140L, 140L, 140L, 143L, 143L, 143L, 147L, 147L, 147L, 147L, 150L, 150L, 150L, 155L, 161L), lrow = c(156L, 114L, 115L, 116L, 127L, 130L, 130L, 130L, 133L, 133L, 133L, 136L, 136L, 136L, 140L, 140L, 140L, 143L, 143L, 143L, 147L, 147L, 147L, 147L, 150L, 150L, 150L, 155L, 178L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, 29L), class = \'data.frame\'));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void testismatrix6() {
+ assertEval("argv <- list(structure(list(a_string = c(\'foo\', \'bar\'), a_bool = FALSE, a_struct = structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = \'foo\'), .Names = c(\'a\', \'b\', \'c\')), a_cell = structure(list(1, \'foo\', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), \'bar\'), .Dim = c(2L, 2L)), a_complex_scalar = 0+1i, a_list = list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), \'foo\'), a_complex_matrix = structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), a_range = c(1, 2, 3, 4, 5), a_scalar = 1, a_complex_3_d_array = structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), a_3_d_array = structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), a_matrix = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), a_bool_matrix = structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))), .Names = c(\'a_string\', \'a_bool\', \'a_struct\', \'a_cell\', \'a_complex_scalar\', \'a_list\', \'a_complex_matrix\', \'a_range\', \'a_scalar\', \'a_complex_3_d_array\', \'a_3_d_array\', \'a_matrix\', \'a_bool_matrix\')));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void testismatrix7() {
+ assertEval("argv <- list(c(1.2e+100, 1.3e+100));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testismatrix8() {
+ assertEval("argv <- list(structure(c(1.46658790096676e-05, -0.00015671726259936, -4.04552045434325e-05, 0.00255024941225984, -0.00162786181391528, 8.23090637551149e-05, -0.00015671726259936, 3.72287793770631e-05, 0.000886372801540247, -0.0567316142279179, 0.0349990628241952, -0.00175223081612341, -4.04552045434325e-05, 0.000886372801540247, 2.56091878967357e-05, -0.000729189497559513, -0.000975857105361189, 4.86109322531125e-05, 0.00255024941225984, -0.0567316142279179, -0.000729189497559513, 0.000230331183246113, 0.0612339887096517, -0.00297447704687248, -0.00162786181391528, 0.0349990628241952, -0.000975857105361189, 0.0612339887096517, -1.91064691608123e-05, -0.000246257006748074, 8.23090637551149e-05, -0.00175223081612341, 4.86109322531125e-05, -0.00297447704687248, -0.000246257006748074, 2.51870808007926e-05), .Dim = c(6L, 6L), .Dimnames = list(c(\'v1\', \'v2\', \'v3\', \'v4\', \'v5\', \'v6\'), c(\'v1\', \'v2\', \'v3\', \'v4\', \'v5\', \'v6\'))));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void testismatrix9() {
+ assertEval("argv <- list(structure(list(Topic = c(\'myTst-package\', \'foo-class\', \'myTst\', \'show,foo-method\', \'show,foo-method\', \'show-methods\'), File = c(\'myTst-package\', \'foo-class\', \'myTst-package\', \'foo-class\', \'show-methods\', \'show-methods\')), .Names = c(\'Topic\', \'File\'), row.names = c(3L, 1L, 4L, 2L, 6L, 5L), class = \'data.frame\'));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testismatrix10() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(25L, 0L)));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void testismatrix11() {
+ assertEval("argv <- list(structure(list(srcfile = c(\'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/arff.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/arff.R\'), frow = c(86L, 86L), lrow = c(88L, 88L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = 1:2, class = \'data.frame\'));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testismatrix12() {
+ assertEval("argv <- list(structure(c(-15.8396536770559, 0.267020886067525, -10.0516337591148, 7.62751967585832), .Dim = c(2L, 2L), .Dimnames = list(c(\'1\', \'3\'), c(\'(Intercept)\', \'TempLow\'))));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void testismatrix13() {
+ assertEval("argv <- list(structure(list(srcfile = c(NA, \'/home/lzhao/hg/r-instrumented/library/stats/R/stats\', \'/home/lzhao/hg/r-instrumented/library/stats/R/stats\'), frow = c(NA, 16987L, 16991L), lrow = c(NA, 16987L, 16991L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, 3L), class = \'data.frame\'));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void testismatrix14() {
+ assertEval("argv <- list(structure(list(V1 = c(NA, 2, NA, 4, 5), V2 = c(NA, NA, 3, 4, 5)), .Names = c(\'V1\', \'V2\'), class = \'data.frame\', row.names = c(NA, -5L)));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testismatrix15() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 56.989995924654, 56.989995924654, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 94.3649041101607, 109.608811230383, 109.608811230383, 109.608811230383, 107.478028232287, 107.478028232287, 107.478028232287, 107.478028232287, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 94.6057793667664, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 76.6771074226725, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 57.5975949121373, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 39.6403646307366, 10.7055301785859, 0, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 1.00000000551046, 0.914597467778369, 0.914597467778369, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.764820801027804, 0.599195286063472, 0.599195286063472, 0.599195286063472, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.446659102876937, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.319471715663991, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.21965732107982, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.144322069921372, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0889140940358009, 0.0202635232425103, 2.60032456603692e-08, 0, 0, 0, 0, 0, 0.165626203544259, 0.165626203544259, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.341691261149167, 0.503396799290371, 0.503396799290371, 0.503396799290371, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.638987326722699, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.746106779008021, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.827421615259225, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.887496120452751, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.931061257482989, 0.984387422945875, 0.999999996451695), .Dim = c(52L, 3L)));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void testismatrix16() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1), Deviance = c(12.2441566485997, 32.825622681839), AIC = c(73.9421143635373, 92.5235803967766)), .Names = c(\'Df\', \'Deviance\', \'AIC\'), row.names = c(\'<none>\', \'- M.user\'), class = c(\'anova\', \'data.frame\'), heading = c(\'Single term deletions\', \'\\nModel:\', \'cbind(X, M) ~ M.user\')));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void testismatrix17() {
+ assertEval("argv <- list(structure(list(V1 = 1L, V2 = structure(1L, .Label = c(\'A\', \'D\', \'E\'), class = \'factor\'), V3 = 6), .Names = c(\'V1\', \'V2\', \'V3\'), class = \'data.frame\', row.names = c(NA, -1L)));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testismatrix18() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(10L, 0L)));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ public void testismatrix19() {
+ assertEval("argv <- list(c(-1.12778377684043, -12820.0784261145, -21650982809.6744, -473300382255715392, -6.08456909882282e+25, -3.04622557026196e+34, -4.60125024792566e+43, -1.76183826972506e+53, -1.5069799345972e+63, -2.61556777274611e+73, -8.54170618068872e+83, -4.9383857330861e+94, -4.80716085942859e+105, -7.55412056676629e+116, -1.84898368353639e+128, -6.83535188151783e+139, -3.71562599613334e+151, -2.90089508183654e+163, -3.18582547396557e+175, -4.83110332887119e+187, -9.94902790498679e+199, -2.74100158340596e+212, -9.96611412047338e+224, -4.72336572671053e+237, -2.88514442494869e+250, -2.24780296109123e+263, -2.21240023126594e+276, -2.72671165723473e+289, -4.17369555651928e+302, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testismatrix20() {
+ assertEval("argv <- list(structure(c(-15.7116658409483, 0.267197739695975, -7.51681521806951, 7.8485143735526), .Dim = c(2L, 2L), .Dimnames = list(c(\'1\', \'3\'), c(\'(Intercept)\', \'M.userY\'))));is.matrix(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testismatrix21() {
+ assertEval("argv <- list(structure(c(NA, NA, NA, NA), .Dim = c(1L, 4L), .Dimnames = list(\'x\', c(\'Estimate\', \'Std. Error\', \'t value\', \'Pr(>|t|)\'))));is.matrix(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisna.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisna.java
new file mode 100644
index 0000000000000000000000000000000000000000..a6db546646f315f43a5932f6f4f37d2e62e28655
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisna.java
@@ -0,0 +1,272 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisna extends TestBase {
+
+ @Test
+ public void testisna1() {
+ assertEval("argv <- list(8.21977282218514e-09);is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna2() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 0, 10, NA), .Dim = c(3L, 2L)));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna3() {
+ assertEval("argv <- list(structure(c(17L, 18L, 18L, 18L), .Dim = 4L, .Dimnames = structure(list(N = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\')), .Names = \'N\')));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna4() {
+ assertEval("argv <- list(structure(0:100, .Tsp = c(1, 101, 1), class = \'ts\'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void testisna6() {
+ assertEval("argv <- list(list(list(1)));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna7() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 9L, mon = 9L, year = 103L, wday = 4L, yday = 281L, isdst = 1L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\')));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna8() {
+ assertEval("argv <- list(structure(c(23L, 24L, 47L, 48L, 71L, 72L, 95L, 96L, 119L, 120L), .Dim = c(2L, 5L), .Dimnames = list(NULL, c(\'V5\', \'V6\', \'V7\', \'V8\', \'V9\'))));is.na(argv[[1]]);");
+ }
+
+
+ @Test
+ @Ignore
+ public void testisna10() {
+ assertEval("argv <- list(structure(TRUE, .Names = NA_character_));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void testisna11() {
+ assertEval("argv <- list(\'•\');is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void testisna12() {
+ assertEval("argv <- list(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, NA, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, NA, 16L, NA, NA, 17L, 18L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 19L, 20L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 21L, 22L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 23L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 24L, 25L, NA, NA, NA, NA, NA, 26L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 27L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 28L, NA, NA, NA, NA, NA, NA, NA));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna13() {
+ assertEval("argv <- list(structure(list(VAR1 = c(1, 2, 3, 4, 5), VAR3 = c(1, 1, 1, 1, NA)), .Names = c(\'VAR1\', \'VAR3\'), class = \'data.frame\', row.names = c(NA, -5L)));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void testisna14() {
+ assertEval("argv <- list(structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c(\'High\', \'Low\'), class = \'factor\'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna15() {
+ assertEval("argv <- list(structure(\'graphics\', .Names = \'plot\'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna16() {
+ assertEval("argv <- list(structure(c(1.47191076131574, 0.586694550701453, NA, 0.258706725324317), .Names = c(\'(Intercept)\', \'x1\', \'x2\', \'x3\')));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna17() {
+ assertEval("argv <- list(structure(0.0129709025545593, .Names = \'value\'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void testisna18() {
+ assertEval("argv <- list(c(1.15623864987889e-07, 2.29156215117184e-06, 2.23566813947706e-05, 0.000143191143888661, 0.000677580461489631, 0.00252801907454942, 0.00775156037133752, 0.0201095764491411, 0.0451105149252681, 0.0890234210350955, 0.15678837112652, 0.249535722442692, 0.362988194603088, 0.487807940725587, 0.611969188999548, 0.724126192770213, 0.816469100858263, 0.885981556331846, 0.933947517503216, 0.964353470219262, 0.982092072679401, 0.991629921792979));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna19() {
+ assertEval("argv <- list(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna20() {
+ assertEval("argv <- list(structure(list(conc = c(NA, 1.4, NA, NA, NA, NA, NA, NA, 2.2, NA, NA, 0.6)), .Names = \'conc\', row.names = 407:418, class = \'data.frame\'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void testisna21() {
+ assertEval("argv <- list(structure(c(-0.435358622483264, -0.0335050551134034, 0.133034650300067, -0.159998333048696, 0.195871393282558, 0.350272600548034, 0.39175188095922, 0.80136172049434, 0.278604939810076, 0.226807608071186, -0.705366153102363, -0.673376038650154, 1.0575405448001, -0.361896730525493, -0.183063001472974, 0.770224627641576, -0.723327517911943, 0.641508754101234, -0.497966152633253, -0.565883899194175, -0.163154615929682, -1.04605311744929, 0.345822472294285, -0.120642075306238, -0.310915191264717, -0.421459810417331, 0.127313193315093, 0.0460216192070582, -0.571263568938105, -0.255068194977355, 0.466680400648398, -0.577405253130228, 0.427189001707599, -0.117526978398191, 0.338157182237428, 0.106063414615583, 0.0652166343937516, 0.113976880905178, -0.508973211491926, -0.0281367896906678, 0.0255810420505139, -0.0895312259800421, 0.343273059276787, 0.25878029892501, 0.178005594248437, 0.616202813145647, -0.223306051799002, -0.822237650949987, 0.181243736532592, 1.03805050988759, -0.535064558180362, 0.629967292956912, -0.206091625685159, -0.0982523326578774, 0.414371639034748, -0.332128640110978, 0.0280866409684434, -0.53195331347224, -0.0381291521565174, -0.0522348719327905, 0.221019543981438, -0.306904771316101, 0.553064781030607, -0.15705513179628, 0.740342712486913, -0.307570821127478, -0.952143530102099, -0.691835269560791, -0.27190785111766, -0.196035414096589, -0.970405281846342, -0.177170015488179, -0.885843727603163, 0.429176556994819, 0.310459328495626, -0.258604904263182, -1.18516758379134, -0.690975294813695, 0.965849167652318, 0.44535708731974, -0.0846102375086248, -0.32082832908822, 0.528416539604261, 0.620184198607294, 0.317666232431379, 0.283097649168652, 0.223675435302281, -0.697584545802335, 1.0301502006605, 0.452533534739715, 0.264750609900989, 0.267980537616643, 0.0973596082099813, 0.161838610289358, 0.612946027273891, 0.816578471249094, -1.15340096289088, -1.01680545446605, 0.422976667855578, -0.23961110455947, 0.0316786188682291, -0.797164261874229, 0.184311996008136, 0.0876867376986658, 0.312240812855443, 0.0432826980205777, -0.00317515675173313, -0.296692321406956, 0.598755930788477, 0.298681977334167, 0.258864357137695, 0.126248580888692, 0.318393890044881, 0.316636862337678), .Tsp = c(1, 114, 1), class = \'ts\'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna22() {
+ assertEval("argv <- list(c(-Inf, 2.17292368994844e-311, 4.34584737989688e-311, 8.69169475979376e-311, 1.73833895195875e-310, 3.4766779039175e-310, 6.953355807835e-310, 1.390671161567e-309, 2.781342323134e-309, 5.562684646268e-309, 1.1125369292536e-308, 2.2250738585072e-308, 4.4501477170144e-308, 8.90029543402881e-308, 1.78005908680576e-307, 2.2250738585072e-303, 2.2250738585072e-298, 1.79769313486232e+298, 1.79769313486232e+303, 2.24711641857789e+307, 4.49423283715579e+307, 8.98846567431158e+307, 1.79769313486232e+308, Inf, Inf, NaN, NA));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna23() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 105L, wday = 6L, yday = 0L, isdst = 0L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'GMT\'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna24() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna25() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 60L, wday = 5L, yday = 0L, isdst = 0L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'GMT\'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna26() {
+ assertEval("argv <- list(structure(list(conc = c(NA, NA, NA, NA, NA, NA, NA, 1.4, NA, NA, NA, NA, NA, NA, NA, 3)), .Names = \'conc\', row.names = c(NA, 16L), class = \'data.frame\'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna27() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna28() {
+ assertEval("argv <- list(structure(list(conc = c(NA, 3.6)), .Names = \'conc\', row.names = 419:420, class = \'data.frame\'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna29() {
+ assertEval("argv <- list(NULL);is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna30() {
+ assertEval("argv <- list(structure(list(sec = NA_real_, min = NA_integer_, hour = NA_integer_, mday = NA_integer_, mon = NA_integer_, year = NA_integer_, wday = NA_integer_, yday = NA_integer_, isdst = -1L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'GMT\'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna31() {
+ assertEval("argv <- list(structure(c(\'R (>= 2.10.0), methods, DBI (>= 0.2-5)\', \'methods, DBI (>= 0.2-3)\', NA), .Names = c(\'Depends\', \'Imports\', \'LinkingTo\')));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna32() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 12L, mon = 2L, year = 112L, wday = 1L, yday = 71L, isdst = 0L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'GMT\'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna33() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(8L, 5L)));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna34() {
+ assertEval("argv <- list(structure(c(\'Min. : 1.00 \', \'1st Qu.: 9.00 \', \'Median :18.00 \', \'Mean :14.74 \', \'3rd Qu.:20.00 \', \'Max. :23.00 \', NA, \'Min. :5.000 \', \'1st Qu.:5.300 \', \'Median :6.100 \', \'Mean :6.084 \', \'3rd Qu.:6.600 \', \'Max. :7.700 \', NA, \'117 : 5 \', \'1028 : 4 \', \'113 : 4 \', \'112 : 3 \', \'135 : 3 \', \'(Other):147 \', \'NA's : 16 \', \'Min. : 0.50 \', \'1st Qu.: 11.32 \', \'Median : 23.40 \', \'Mean : 45.60 \', \'3rd Qu.: 47.55 \', \'Max. :370.00 \', NA, \'Min. :0.00300 \', \'1st Qu.:0.04425 \', \'Median :0.11300 \', \'Mean :0.15422 \', \'3rd Qu.:0.21925 \', \'Max. :0.81000 \', NA), .Dim = c(7L, 5L), .Dimnames = list(c(\'\', \'\', \'\', \'\', \'\', \'\', \'\'), c(\' event\', \' mag\', \' station\', \' dist\', \' accel\')), class = \'table\'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna35() {
+ assertEval("argv <- list(NA_complex_);is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna36() {
+ assertEval("argv <- list(complex(0));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna37() {
+ assertEval("argv <- list(structure(list(sec = 40, min = 24L, hour = 11L, mday = 15L, mon = 11L, year = 100L, wday = 5L, yday = 349L, isdst = 0L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\')));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna38() {
+ assertEval("argv <- list(structure(c(2L, 6L, 2L, 5L, 4L, 2L, 5L, 4L), .Dim = 8L, .Dimnames = structure(list(statef = c(\'act\', \'nsw\', \'nt\', \'qld\', \'sa\', \'tas\', \'vic\', \'wa\')), .Names = \'statef\'), class = \'table\'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna39() {
+ assertEval("argv <- list(structure(c(2, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 0), .Dim = 3:4, .Dimnames = structure(list(x1 = c(\'a\', \'b\', \'c\'), x2 = c(\'a\', \'b\', \'c\', NA)), .Names = c(\'x1\', \'x2\')), class = c(\'xtabs\', \'table\')));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void testisna40() {
+ assertEval("argv <- list(structure(list(1L, 3L), class = structure(\'L\', package = \'.GlobalEnv\')));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void testisna41() {
+ assertEval("argv <- list(c(\'«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè\', \'éè\'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void testisna42() {
+ assertEval("argv <- list(c(-Inf, -Inf, -Inf, 0, 1, 2, Inf, Inf));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna43() {
+ assertEval("argv <- list(structure(c(-3.001e+155, -1.067e+107, -1.976e+62, -9.961e+152, -2.059e+23, 0.5104), .Names = c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\'), class = c(\'summaryDefault\', \'table\')));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna44() {
+ assertEval("argv <- list(structure(list(sec = 0, min = 0L, hour = 0L, mday = 1L, mon = 0L, year = 70L, wday = 4L, yday = 0L, isdst = 0L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = \'GMT\'));is.na(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisna45() {
+ assertEval("argv <- list(119:120);is.na(argv[[1]]);");
+ }
+
+ @Test
+ public void testisna46() {
+ assertEval("argv <- list(integer(0));is.na(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisnan.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisnan.java
new file mode 100644
index 0000000000000000000000000000000000000000..ff6ac2ebbb7563582b8707b53f7f39b6f11dbbd0
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisnan.java
@@ -0,0 +1,72 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisnan extends TestBase {
+
+ @Test
+ @Ignore
+ public void testisnan1() {
+ assertEval("argv <- list(NA);is.nan(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisnan2() {
+ assertEval("argv <- list(structure(1:7, .Names = c(\'a1\', \'a2\', \'a3\', \'a4\', \'a5\', \'a6\', \'a7\')));is.nan(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisnan3() {
+ assertEval("argv <- list(1:3);is.nan(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisnan4() {
+ assertEval("argv <- list(structure(NaN, .Dim = c(1L, 1L)));is.nan(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisnan5() {
+ assertEval("argv <- list(3.14159265358979);is.nan(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisnan6() {
+ assertEval("argv <- list(NULL);is.nan(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisnan7() {
+ assertEval("argv <- list(structure(1:3, .Dim = c(3L, 1L)));is.nan(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisnan9() {
+ assertEval("argv <- list(c(-Inf, 2.17292368994844e-311, 4.34584737989688e-311, 8.69169475979376e-311, 1.73833895195875e-310, 3.4766779039175e-310, 6.953355807835e-310, 1.390671161567e-309, 2.781342323134e-309, 5.562684646268e-309, 1.1125369292536e-308, 2.2250738585072e-308, 4.4501477170144e-308, 8.90029543402881e-308, 1.78005908680576e-307, 2.2250738585072e-303, 2.2250738585072e-298, 1.79769313486232e+298, 1.79769313486232e+303, 2.24711641857789e+307, 4.49423283715579e+307, 8.98846567431158e+307, 1.79769313486232e+308, Inf, Inf, NaN, NA));is.nan(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisnan10() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1), .Dim = 1:3));is.nan(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisnull.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisnull.java
new file mode 100644
index 0000000000000000000000000000000000000000..8423da7f5292fca69be27990b0407f6c3965eb59
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisnull.java
@@ -0,0 +1,78 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisnull extends TestBase {
+
+ @Test
+ public void testisnull1() {
+ assertEval("argv <- list(c(\'a\', \'b\', \'c\'));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnull2() {
+ assertEval("argv <- list(structure(c(NA, NA, 159.125, 204, 221.25, 245.125, 319.75, 451.5, 561.125, 619.25, 615.625, 548, 462.125, 381.125, 316.625, 264, 228.375, 210.75, 188.375, 199, 207.125, 191, 166.875, 72, -9.25, -33.125, -36.75, 36.25, 103, 131.625, NA, NA), .Tsp = c(1951, 1958.75, 4), class = \'ts\'));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnull3() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c(\'L\', \'M\', \'H\'), class = \'factor\'));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnull4() {
+ assertEval("argv <- list(c(\'(2,5.5]\', \'(5.5,10]\', NA));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnull5() {
+ assertEval("argv <- list(structure(list(z = c(-2.71928906935559, -2.42170276502517, -2.09964379178171, -1.74953243478614, -1.36765437050161, -0.950481896729501, -0.49514368442691, 0, 0.534774072422106, 1.1067130528647, 1.71078417306203, 2.33938293418822, 2.98268239609615), par.vals = structure(c(0.707463571249756, 0.714694094477037, 0.725412821685713, 0.74111612512182, 0.763750498997247, 0.795678221483334, 0.839503022768249, 0.897728639347183, 0.972289000300049, 1.06404105741634, 1.1722925771844, 1.29437141627989, 1.42522018859931, -3.11497037357416, -3.12714840246737, -3.14532049441438, -3.17220876767473, -3.21154655520113, -3.26827705075488, -3.34869944608425, -3.46054428079529, -3.61294451442018, -3.81614134368036, -4.08060875057211, -4.41549521607872, -4.82702626542922, -0.0255577133668773, -0.0384397882414428, -0.0575047563177536, -0.085367554260897, -0.125387593962273, -0.181561305237101, -0.258149413255891, -0.359008117508679, -0.486728760637899, -0.641785962540215, -0.821841695092364, -1.02123122113516, -1.23065013245083, 7.95100998228548, 7.54634587182367, 7.14890399737901, 6.76196968783309, 6.39005226899545, 6.03912521056563, 5.71679838524513, 5.43240185128028, 5.19696909896364, 5.02301800418124, 4.92391121830517, 4.91279665045699, 5.00177553632184, -9.53200922191114, -8.69335766510962, -7.8547061083081, -7.01605455150657, -6.17740299470505, -5.33875143790352, -4.500099881102, -3.66144832430047, -2.82279676749895, -1.98414521069743, -1.1454936538959, -0.306842097094378, 0.531809459707146), .Dim = c(13L, 5L), .Dimnames = list( NULL, c(\'(Intercept)\', \'PS\', \'AI\', \'VS\', \'PS:AI\')))), .Names = c(\'z\', \'par.vals\'), row.names = c(NA, 13L), class = \'data.frame\'));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnull6() {
+ assertEval("argv <- list(structure(c(-4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96), .Tsp = c(1, 101, 1), class = \'ts\'));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnull7() {
+ assertEval("argv <- list(numeric(0));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnull8() {
+ assertEval("argv <- list(structure(c(2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Tsp = c(1920.5, 1921.25, 12), class = \'ts\'));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnull10() {
+ assertEval("argv <- list(structure(list(coefficients = numeric(0), residuals = structure(c(-68.7898369431611, -71.7713382904347, -44.0000000000001, -56.5455568546283, -29.303772984227), .Dim = c(5L, 1L), .Dimnames = list(c(\'2\', \'3\', \'4\', \'5\', \'6\'), NULL)), fitted.values = structure(c(0, 0, 0, 0, 0), .Dim = c(5L, 1L), .Dimnames = list(c(\'2\', \'3\', \'4\', \'5\', \'6\'), NULL)), weights = NULL, rank = 0L, df.residual = 5L), .Names = c(\'coefficients\', \'residuals\', \'fitted.values\', \'weights\', \'rank\', \'df.residual\'), class = c(\'aov\', \'lm\')));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnull11() {
+ assertEval("argv <- list(complex(0));is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnull12() {
+ assertEval("argv <- list(1.74126257032961e-18);is.null(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnull13() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.null(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisnumeric.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisnumeric.java
new file mode 100644
index 0000000000000000000000000000000000000000..79ca1eb2d3f996277698f7fc0429bf566198a265
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisnumeric.java
@@ -0,0 +1,133 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisnumeric extends TestBase {
+
+ @Test
+ public void testisnumeric1() {
+ assertEval("argv <- list(structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c(\'w\', \'w2\'))));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisnumeric2() {
+ assertEval("argv <- list(structure(c(12784, 12874, 12965, 13057, 13149, 13239, 13330, 13422, 13514, 13604, 13695, 13787, 13879, 13970, 14061, 14153, 14245, 14335), class = \'Date\'));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnumeric3() {
+ assertEval("argv <- list(c(1.4615016373309e+48, 5.70899077082384e+45, 2.23007451985306e+43, 8.71122859317602e+40, 3.40282366920938e+38, 1.32922799578492e+36, 5.19229685853483e+33, 2.02824096036517e+31, 7.92281625142643e+28, 3.09485009821345e+26, 1.20892581961463e+24, 4.72236648286965e+21, 18446744073709551616, 72057594037927936, 281474976710656, 1099511627776, 4294967296, 16777216, 65536, 256, 1, 0.00390625, 1.52587890625e-05, 5.96046447753906e-08, 2.3283064365387e-10, 9.09494701772928e-13, 3.5527136788005e-15, 1.38777878078145e-17, 5.42101086242752e-20, 2.11758236813575e-22, 8.27180612553028e-25));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnumeric4() {
+ assertEval("argv <- list(integer(0));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnumeric5() {
+ assertEval("argv <- list(c(16.4, 11.4, 7.8, 14, 10.9, 16.8, 16.6, 5.9, 21));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnumeric6() {
+ assertEval("argv <- list(c(0, 0, 0, 1, 0, 0, 0, 0, 1, 0, NA, NA, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, NA, 1, 0, 1, 0, NA, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, NA, 0, 1, 0, 0, 0, 0, NA, 1, 1));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnumeric7() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisnumeric8() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c(\'1\', \'2\', \'3\', \'4\'), class = \'factor\'));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnumeric9() {
+ assertEval("argv <- list(structure(list(a_string = c(\'foo\', \'bar\'), a_bool = FALSE, a_struct = structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = \'foo\'), .Names = c(\'a\', \'b\', \'c\')), a_cell = structure(list(1, \'foo\', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), \'bar\'), .Dim = c(2L, 2L)), a_complex_scalar = 0+1i, a_list = list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), \'foo\'), a_complex_matrix = structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), a_range = c(1, 2, 3, 4, 5), a_scalar = 1, a_complex_3_d_array = structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), a_3_d_array = structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), a_matrix = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), a_bool_matrix = structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))), .Names = c(\'a_string\', \'a_bool\', \'a_struct\', \'a_cell\', \'a_complex_scalar\', \'a_list\', \'a_complex_matrix\', \'a_range\', \'a_scalar\', \'a_complex_3_d_array\', \'a_3_d_array\', \'a_matrix\', \'a_bool_matrix\')));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnumeric10() {
+ assertEval("argv <- list(structure(c(1L, 2L, NA, 3L), .Label = c(\'aa\', \'bb\', \'dd\')));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnumeric11() {
+ assertEval("argv <- list(structure(c(1120, 1160, 963, 1210, 1160, 1160, 813, 1230, 1370, 1140, 995, 935, 1110, 994, 1020, 960, 1180, 799, 958, 1140, 1100, 1210, 1150, 1250, 1260, 1220, 1030, 1100, 774, 840, 874, 694, 940, 833, 701, 916, 692, 1020, 1050, 969, 831, 726, 456, 824, 702, 1120, 1100, 832, 764, 821, 768, 845, 864, 862, 698, 845, 744, 796, 1040, 759, 781, 865, 845, 944, 984, 897, 822, 1010, 771, 676, 649, 846, 812, 742, 801, 1040, 860, 874, 848, 890, 744, 749, 838, 1050, 918, 986, 797, 923, 975, 815, 1020, 906, 901, 1170, 912, 746, 919, 718, 714, 740), .Tsp = c(1871, 1970, 1), class = \'ts\'));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnumeric12() {
+ assertEval("argv <- list(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisnumeric13() {
+ assertEval("argv <- list(structure(c(39.7, 27.7, 43.5, 89.7, 70.2, 63.5, 36.5, 15.2, 35.3, 45.2, 1.2, 49.5, 63.1, 34, 17, 17.6, 67.8, 45.1, 50.9, 64.9, 59.8, 73, 37.6, 60.7, 60.8, 69.3, 71.2, 64.5, 75.9, 7.7, 72.6, 18.7, 78.2, 55.1, 58.1, 62, 53.3, 85.9, 67.5, 16.7, 46.6, 84.9, 19.4, 38.4, 5, 22, 17, 5, 16, 6, 12, 31, 9, 16, 37, 15, 13, 17, 15, 35, 14, 6, 22, 7, 22, 19, 15, 19, 16, 22, 12, 14, 9, 29, 18, 25, 12, 14, 14, 21, 12, 3, 14, 22, 16, 7, 26, 26, 5, 29, 15, 2, 7, 3, 7, 20, 7, 13, 53, 8, 13, 8, 12, 32, 8, 9, 12, 3, 10, 9, 7, 12, 10, 5, 1, 6, 9, 11, 2, 7, 6, 3, 8, 12, 7, 2, 7, 13, 29, 6, 28, 12, 93.4, 58.33, 5.16, 100, 92.85, 2.56, 33.77, 2.15, 90.57, 91.38, 42.34, 6.1, 96.83, 3.3, 9.96, 16.92, 97.16, 84.84, 15.14, 98.22, 5.23, 2.84, 4.97, 4.43, 7.72, 2.82, 2.4, 98.61, 99.06, 13.79, 24.2, 8.65, 98.96, 4.52, 5.23, 8.52, 97.67, 99.71, 2.27, 11.22, 50.43, 99.68, 12.11, 5.62, 20.2, 19.3, 20.6, 18.3, 23.6, 18, 20.3, 10.8, 26.6, 24.4, 18, 22.5, 18.1, 20, 22.2, 23, 24.9, 22.2, 16.7, 20.2, 18, 20, 20, 22.7, 16.3, 18.7, 21, 24.5, 17.8, 20.5, 21.2, 19.5, 19.4, 22.4, 23.8, 16.5, 21, 15.1, 19.1, 18.9, 18.2, 19.8, 20.2, 20.3), .Dim = c(44L, 5L), .Dimnames = list(c(\'Franches-Mnt\', \'Rive Gauche\', \'Neuveville\', \'Herens\', \'Broye\', \'Paysd'enhaut\', \'Moutier\', \'La Vallee\', \'Porrentruy\', \'Sarine\', \'V. De Geneve\', \'Yverdon\', \'Sion\', \'Grandson\', \'Courtelary\', \'Neuchatel\', \'Glane\', \'Delemont\', \'Nyone\', \'Monthey\', \'Morges\', \'Lavaux\', \'Val de Ruz\', \'Avenches\', \'Rolle\', \'Cossonay\', \'Oron\', \'Veveyse\', \'St Maurice\', \'La Chauxdfnd\', \'Echallens\', \'ValdeTravers\', \'Martigwy\', \'Moudon\', \'Payerne\', \'Aigle\', \'Gruyere\', \'Conthey\', \'Aubonne\', \'Le Locle\', \'Rive Droite\', \'Entremont\', \'Lausanne\', \'Boudry\'), c(\'Agriculture\', \'Examination\', \'Education\', \'Catholic\', \'Infant.Mortality\'))));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisnumeric14() {
+ assertEval("argv <- list(structure(c(1386439154.20645, 1386469154.20645, 1386499154.20645, 1386529154.20645, 1386559154.20645, 1386589154.20645, 1386619154.20645, 1386649154.20645, 1386679154.20645, 1386709154.20645, 1386739154.20645, 1386769154.20645, 1386799154.20645, 1386829154.20645, 1386859154.20645, 1386889154.20645, 1386919154.20645, 1386949154.20645, 1386979154.20645, 1387009154.20645, 1387039154.20645, 1387069154.20645, 1387099154.20645, 1387129154.20645, 1387159154.20645, 1387189154.20645, 1387219154.20645, 1387249154.20645, 1387279154.20645, 1387309154.20645, 1387339154.20645, 1387369154.20645, 1387399154.20645, 1387429154.20645), class = c(\'POSIXct\', \'POSIXt\')));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnumeric15() {
+ assertEval("argv <- list(c(\'2001-01-01\', NA, NA, \'2004-10-26\'));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnumeric16() {
+ assertEval("argv <- list(c(1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374947, 0.707106781186547, 0.587785252292473, 0.453990499739547, 0.309016994374947, 0.156434465040231, -1.83697019872103e-16, -0.156434465040231, -0.309016994374948, -0.453990499739547, -0.587785252292473, -0.707106781186548, -0.809016994374948, -0.891006524188368, -0.951056516295154, -0.987688340595138, -1, -0.987688340595138, -0.951056516295154, -0.891006524188368, -0.809016994374947, -0.707106781186547, -0.587785252292473, -0.453990499739547, -0.309016994374947, -0.156434465040231, 6.12323399573677e-17, 0.156434465040231, 0.309016994374947, 0.453990499739547, 0.587785252292473, 0.707106781186548, 0.809016994374947, 0.891006524188368, 0.951056516295154, 0.987688340595138, 1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374947, 0.707106781186548, 0.587785252292473, 0.453990499739547, 0.309016994374947, 0.156434465040231, 6.12323399573677e-17, -0.15643446504023, -0.309016994374947, -0.453990499739548, -0.587785252292473, -0.707106781186547, -0.809016994374947, -0.891006524188368, -0.951056516295154, -0.987688340595138, -1, -0.987688340595138, -0.951056516295154, -0.891006524188368, -0.809016994374948, -0.707106781186547, -0.587785252292473, -0.453990499739548, -0.309016994374948, -0.15643446504023, -1.83697019872103e-16, 0.15643446504023, 0.309016994374947, 0.453990499739547, 0.587785252292473, 0.707106781186547, 0.809016994374947, 0.891006524188368, 0.951056516295154, 0.987688340595138, 1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374948, 0.707106781186547, 0.587785252292473, 0.453990499739548, 0.309016994374948, 0.15643446504023, 3.06161699786838e-16, -0.15643446504023, -0.309016994374947, -0.453990499739547, -0.587785252292473, -0.707106781186547, -0.809016994374947, -0.891006524188368, -0.951056516295153, -0.987688340595138, -1));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnumeric17() {
+ assertEval("argv <- list(structure(c(0.696706709347165, 0.362357754476673, -0.0291995223012888, 0.696706709347165, 0.696706709347165, -0.0291995223012888, 0.696706709347165, -0.0291995223012888, 0.362357754476673, 0.696706709347165, -0.0291995223012888, 0.362357754476673, -0.416146836547142, 0.362357754476673, 0.696706709347165, 0.696706709347165, 0.362357754476673, -0.416146836547142, -0.0291995223012888, -0.416146836547142, 0.696706709347165, -0.416146836547142, 0.362357754476673, -0.0291995223012888, 0.717356090899523, 0.932039085967226, 0.999573603041505, 0.717356090899523, 0.717356090899523, 0.999573603041505, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.909297426825682, 0.932039085967226, 0.717356090899523, 0.717356090899523, 0.932039085967226, 0.909297426825682, 0.999573603041505, 0.909297426825682, 0.717356090899523, 0.909297426825682, 0.932039085967226, 0.999573603041505, -0.0291995223012888, -0.737393715541246, -0.998294775794753, -0.0291995223012888, -0.0291995223012888, -0.998294775794753, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.653643620863612, -0.737393715541246, -0.0291995223012888, -0.0291995223012888, -0.737393715541246, -0.653643620863612, -0.998294775794753, -0.653643620863612, -0.0291995223012888, -0.653643620863612, -0.737393715541246, -0.998294775794753, 0.999573603041505, 0.67546318055115, -0.0583741434275801, 0.999573603041505, 0.999573603041505, -0.0583741434275801, 0.999573603041505, -0.0583741434275801, 0.67546318055115, 0.999573603041505, -0.0583741434275801, 0.67546318055115, -0.756802495307928, 0.67546318055115, 0.999573603041505, 0.999573603041505, 0.67546318055115, -0.756802495307928, -0.0583741434275801, -0.756802495307928, 0.999573603041505, -0.756802495307928, 0.67546318055115, -0.0583741434275801), .Dim = c(24L, 4L), .Dimnames = list(NULL, c(\'A\', \'B\', \'C\', \'D\'))));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnumeric18() {
+ assertEval("argv <- list(c(1, 1, NA, 2));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnumeric19() {
+ assertEval("argv <- list(structure(c(79.5323303457107, 6, 86.1989970123773, 6, 69.7732394366197, 5, 98.0323303457106, 6, 108.032330345711, 6, 89.1989970123773, 6, 114.198997012377, 6, 116.698997012377, 6, 110.365663679044, 6, 124.365663679044, 6, 126.365663679044, 6, 118.032330345711, 6), .Dim = c(6L, 4L), .Dimnames = structure(list(V = c(\'Golden.rain\', \'rep \', \'Marvellous \', \'rep \', \'Victory \', \'rep \'), N = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\')), .Names = c(\'V\', \'N\'))));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnumeric20() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(3L, 0L)));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisnumeric21() {
+ assertEval("argv <- list(structure(16146, class = \'Date\'));is.numeric(argv[[1]]);");
+ }
+
+ @Test
+ public void testisnumeric22() {
+ assertEval("argv <- list(structure(c(-3.001e+155, -1.067e+107, -1.976e+62, -9.961e+152, -2.059e+23, 0.5104), .Names = c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\'), class = c(\'summaryDefault\', \'table\')));is.numeric(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisobject.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisobject.java
new file mode 100644
index 0000000000000000000000000000000000000000..f134de79fa817e9309c7475459d4dae7ba5fda0d
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisobject.java
@@ -0,0 +1,88 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisobject extends TestBase {
+
+ @Test
+ public void testisobject1() {
+ assertEval("argv <- list(c(45.0314849918875, 57.5361690778799, 61.7043971065441, 61.7043971065441, 128.39604556517, 45.0314849918875, 36.6950289345592, 45.0314849918875, 228.43351825311, 36.6950289345592, 74.2090811925365, 45.0314849918875, 32.5268009058951, 78.3773092212007, 111.723133450514, 20.0221168199027, 32.5268009058951, 40.8632569632234, 20.0221168199027, 24.1903448485668, 45.0314849918875, 11.6856607625744, 20.0221168199027, 28.3585728772309, 45.0314849918875, 36.6950289345592, 49.1997130205517, 36.6950289345592, 78.3773092212007, 45.0314849918875, 145.068957679827, 32.5268009058951, 161.741869794484));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void testisobject2() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L), .Label = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\'), class = \'factor\'));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void testisobject3() {
+ assertEval("argv <- list(c(-2.97525100835805, -2.82075793382799, -2.66593061478436, -2.51078653265898, -2.35534314690423, -2.19961777085284, -2.04362765822923, -1.88739011884942, -1.73092311663886, -1.57424503752904, -1.41737428587374, -1.26032952797003, -1.10312969205829, -0.945793720579289, -0.788340724666015, -0.630790076924443, -0.473161172617641, -0.315473462875692, -0.157746535777026, -4.9960036108132e-16, 0.157746535777027, 0.315473462875696, 0.473161172617647, 0.630790076924451, 0.788340724666025, 0.9457937205793, 1.1031296920583, 1.26032952797003, 1.41737428587374, 1.57424503752905, 1.73092311663887, 1.88739011884943, 2.04362765822924, 2.19961777085286, 2.35534314690424, 2.510786532659, 2.66593061478437, 2.82075793382801, 2.97525100835807));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void testisobject4() {
+ assertEval("argv <- list(structure(c(-0.266501885293689, -3.8931863588937, -0.272681427089914, 0.685830427280619, 0.146697567632144, -0.178509228122189, -0.827954133483467, -0.00847153748452917, -0.439077730128206, -0.100627762490786, 1.90697806298419, 0.534191446603769, 0.118116488305486, 0.266107216595585, 1.09677961111435, 0.294604712451767, 1.26527267402907, -1.37468346842381, -0.501152044022612, 0.277514706049866, 0.080458897112638, 0.0436443543043109, -0.480973816036986, 1.25647294144768, 0.371150285558408), .Dim = 25L, .Dimnames = list( c(\'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\'))));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void testisobject5() {
+ assertEval("argv <- list(c(0.3814, 1.0281, 0.3814, 0.1202, -0.3385, 0.6757, 0.6757, -0.5422, -1.0914, 1.0281, -0.3385, 0.3814, 0.3814, -1.0914, -0.7326, 0.6757, 1.5128, 0.6757, 1.0281, 0.6757, 1.0281, -1.0914, -0.7326, 0.1202, -0.3385, 0.3814, 0.6757, 1.5128, 0.1202, -0.7326, 1.5128, -1.0914, 0.6757, 2.4608, 0.3814, 0.6757, -0.8176, 1.0281, 0.1202, 2.4404, -0.5422, 0.1202, -0.1182, 0.3814, -0.5422, -0.5422, 0.6757, -0.3385, -1.6508, 0.6757, -0.7326, -0.1182, -1.0914, 0.3814, 0.3814, -0.1182, 0.3814, 0.1202, 0.6757, 0.6757, 0.1202, -0.5422, 1.5128, 0.3814, -1.2692, 1.0281, 0.6757, 0.1202, -0.5422, 0.3814, -0.3385, 1.0281, -0.1182, 0.1202, 1.5128, 2.4608, 0.6757, -1.0914, -0.9144, -0.3385, 0.1202, 0.1202, 0.1202, 0.3814, -0.13, -0.5422, 0.1202, -0.1182, 0.3814, 1.0281, 0.6757, 1.0281, -1.2692, 0.1202, 0.3814, 1.5128, -0.1182, 0.3814, 1.0281, 0.3814, 0.1202, -0.3385, 0.6757, 0.6757, -0.5422, -1.0914, 1.0281, -0.3385, 0.3814, 0.3814, -1.0914, -0.7326, 0.6757, 1.5128, 0.6757, 1.0281, 0.6757, 1.0281, -1.0914, -0.7326, 0.1202, -0.3385, 0.3814, 0.6757, 1.5128, 0.1202, -0.7326, 1.5128, -1.0914, 0.6757, 2.4608, 0.3814, 0.6757, -0.8176, 1.0281, 0.1202, 2.4404, -0.5422, 0.1202, -0.1182, 0.3814, -0.5422, -0.5422, 0.6757, -0.3385, -1.6508, 0.6757, -0.7326, -0.1182, -1.0914, 0.3814, 0.3814, -0.1182, 0.3814, 0.1202, 0.6757, 0.6757, 0.1202, -0.5422, 1.5128, 0.3814, -1.2692, 1.0281, 0.6757, 0.1202, -0.5422, 0.3814, -0.3385, 1.0281, -0.1182, 0.1202, 1.5128, 2.4608, 0.6757, -1.0914, -0.9144, -0.3385, 0.1202, 0.1202, 0.1202, 0.3814, -0.13, -0.5422, 0.1202, -0.1182, 0.3814, 1.0281, 0.6757, 1.0281, -1.2692, 0.1202, 0.3814, 1.5128, -0.1182, 0.3814, 1.0281, 0.3814, 0.1202, -0.3385, 0.6757, 0.6757, -0.5422, -1.0914, 1.0281, -0.3385, 0.3814, 0.3814, -1.0914, -0.7326, 0.6757, 1.5128, 0.6757, 1.0281, 0.6757, 1.0281, -1.0914, -0.7326, 0.1202, -0.3385, 0.3814, 0.6757, 1.5128, 0.1202, -0.7326, 1.5128, -1.0914, 0.6757, 2.4608, 0.3814, 0.6757, -0.8176, 1.0281, 0.1202, 2.4404, -0.5422, 0.1202, -0.1182, 0.3814, -0.5422, -0.5422, 0.6757, -0.3385, -1.6508, 0.6757, -0.7326, -0.1182, -1.0914, 0.3814, 0.3814, -0.1182, 0.3814, 0.1202, 0.6757, 0.6757, 0.1202, -0.5422, 1.5128, 0.3814, -1.2692, 1.0281, 0.6757, 0.1202, -0.5422, 0.3814, -0.3385, 1.0281, -0.1182, 0.1202, 1.5128, 2.4608, 0.6757, -1.0914, -0.9144, -0.3385, 0.1202, 0.1202, 0.1202, 0.3814, -0.13, -0.5422, 0.1202, -0.1182, 0.3814, 1.0281, 0.6757, 1.0281, -1.2692, 0.1202, 0.3814, 1.5128, -0.1182, NA, NA, NA));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void testisobject6() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void testisobject7() {
+ assertEval("argv <- list(structure(c(-0.00544194018731062, -0.00542949133552226, -1.20718999105839e-05, -0.00505497198006266, -0.827687885653788, -0.00315385274195005, -0.0023164952286401, -0.00117183915211372, -2.09167441982205, -0.00193959227691399, -0.00358084102808485, -3.39138861812986e-05, -0.00163051710052444, -0.00168735925488057, -0.0167253073891896, -0.237074502262169, -0.0118967636015583, -0.00307437031103621, -0.00114371252369823, -0.000860763872820255, -0.00028432076263802, -0.00329557354736053, -0.000123683950933913, -0.00026114238659798, -0.00471892942651347, -0.00317288091968884, -6.76955217513137e-05, -0.0119061189538054, -0.00233356124758579, -0.00672098496026968, -0.134965372025281, -0.00102115420103838, -0.00114816901125044), .Names = c(\'Craig Dunain\', \'Ben Rha\', \'Ben Lomond\', \'Goatfell\', \'Bens of Jura\', \'Cairnpapple\', \'Scolty\', \'Traprain\', \'Lairig Ghru\', \'Dollar\', \'Lomonds\', \'Cairn Table\', \'Eildon Two\', \'Cairngorm\', \'Seven Hills\', \'Knock Hill\', \'Black Hill\', \'Creag Beag\', \'Kildcon Hill\', \'Meall Ant-Suidhe\', \'Half Ben Nevis\', \'Cow Hill\', \'N Berwick Law\', \'Creag Dubh\', \'Burnswark\', \'Largo Law\', \'Criffel\', \'Acmony\', \'Ben Nevis\', \'Knockfarrel\', \'Two Breweries\', \'Cockleroi\', \'Moffat Chase\')));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void testisobject8() {
+ assertEval("argv <- list(c(FALSE, FALSE));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void testisobject9() {
+ assertEval("argv <- list(structure(2L, .Label = c(\'McNeil\', \'R Core\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'factor\'));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void testisobject10() {
+ assertEval("argv <- list(structure(c(-0.562441486309934, -0.588967592535822, 0.0277608937997097, 0.568074124752969, 3.89980510825846, -0.428174866497729, -0.343990813420242, -0.260996370058754, -2.31774610938305, 0.314764947225063, -0.455124436264437, -0.0444006414474544, -0.27748974692001, -0.303134023269405, -0.670168347915028, 2.92643313367, -0.749546667806845, -0.410394401887929, -0.203261263063707, 0.1847365997012, 0.128559671155683, 0.313558179929332, -0.0668425264405297, -0.106427678524531, -0.523747793519006, -0.402585404761851, 0.0642079595716389, -0.779859286629166, 0.356484381211739, -0.625053119472271, 1.31547628490512, -0.21959878152752, -0.102402088986461), .Names = c(\'Craig Dunain\', \'Ben Rha\', \'Ben Lomond\', \'Goatfell\', \'Bens of Jura\', \'Cairnpapple\', \'Scolty\', \'Traprain\', \'Lairig Ghru\', \'Dollar\', \'Lomonds\', \'Cairn Table\', \'Eildon Two\', \'Cairngorm\', \'Seven Hills\', \'Knock Hill\', \'Black Hill\', \'Creag Beag\', \'Kildcon Hill\', \'Meall Ant-Suidhe\', \'Half Ben Nevis\', \'Cow Hill\', \'N Berwick Law\', \'Creag Dubh\', \'Burnswark\', \'Largo Law\', \'Criffel\', \'Acmony\', \'Ben Nevis\', \'Knockfarrel\', \'Two Breweries\', \'Cockleroi\', \'Moffat Chase\')));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void testisobject11() {
+ assertEval("argv <- list(integer(0));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void testisobject12() {
+ assertEval("argv <- list(c(25, 50, 100, 250, 500, 1e+05));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void testisobject13() {
+ assertEval("argv <- list(numeric(0));is.object(argv[[1]]);");
+ }
+
+ @Test
+ public void testisobject14() {
+ assertEval("argv <- list(c(TRUE, FALSE));is.object(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinispairlist.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinispairlist.java
new file mode 100644
index 0000000000000000000000000000000000000000..ac3994b3dc16dae8e089ad46950907edb0659c16
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinispairlist.java
@@ -0,0 +1,89 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinispairlist extends TestBase {
+
+ @Test
+ public void testispairlist1() {
+ assertEval("argv <- list(list(NULL, c(\'time\', \'status\')));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void testispairlist2() {
+ assertEval("argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = \'ts\'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c(\'y\', \'lag.quarterly.revenue\', \'price.index\', \'income.level\', \'market.potential\'), row.names = c(\'1962.25\', \'1962.5\', \'1962.75\', \'1963\', \'1963.25\', \'1963.5\', \'1963.75\', \'1964\', \'1964.25\', \'1964.5\', \'1964.75\', \'1965\', \'1965.25\', \'1965.5\', \'1965.75\', \'1966\', \'1966.25\', \'1966.5\', \'1966.75\', \'1967\', \'1967.25\', \'1967.5\', \'1967.75\', \'1968\', \'1968.25\', \'1968.5\', \'1968.75\', \'1969\', \'1969.25\', \'1969.5\', \'1969.75\', \'1970\', \'1970.25\', \'1970.5\', \'1970.75\', \'1971\', \'1971.25\', \'1971.5\', \'1971.75\'), class = \'data.frame\'));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void testispairlist3() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = \'data.frame\'));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void testispairlist4() {
+ assertEval("argv <- list(structure(list(double.eps = 2.22044604925031e-16, double.neg.eps = 1.11022302462516e-16, double.xmin = 2.2250738585072e-308, double.xmax = 1.79769313486232e+308, double.base = 2L, double.digits = 53L, double.rounding = 5L, double.guard = 0L, double.ulp.digits = -52L, double.neg.ulp.digits = -53L, double.exponent = 11L, double.min.exp = -1022L, double.max.exp = 1024L, integer.max = 2147483647L, sizeof.long = 8L, sizeof.longlong = 8L, sizeof.longdouble = 16L, sizeof.pointer = 8L), .Names = c(\'double.eps\', \'double.neg.eps\', \'double.xmin\', \'double.xmax\', \'double.base\', \'double.digits\', \'double.rounding\', \'double.guard\', \'double.ulp.digits\', \'double.neg.ulp.digits\', \'double.exponent\', \'double.min.exp\', \'double.max.exp\', \'integer.max\', \'sizeof.long\', \'sizeof.longlong\', \'sizeof.longdouble\', \'sizeof.pointer\')));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void testispairlist5() {
+ assertEval("argv <- list(structure(list(widths = structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.880387330793302, 0.872694837975491, 0.862482627238653, 0.85694743348285, 0.844691564126209, 0.837992157219203, 0.826065549537932, 0.821813943091766, 0.801815430713592, 0.777814415451275, 0.862246453969427, 0.852609391860845, 0.852456189097792, 0.852184980555031, 0.847433895388854, 0.847321709738264, 0.843043642624801, 0.839180526055581, 0.838791375904974, 0.832684615585117, 0.829332878628487, 0.818738807141856, 0.817393740696655, 0.795187378905238, 0.771817782697421, 0.644452148607831, 0.532190150080465, 0.330404926016424), .Dim = c(28L, 3L), .Dimnames = list(c(\'10\', \'9\', \'2\', \'4\', \'8\', \'7\', \'6\', \'3\', \'1\', \'5\', \'22\', \'19\', \'11\', \'13\', \'18\', \'15\', \'16\', \'23\', \'24\', \'12\', \'14\', \'20\', \'21\', \'17\', \'25\', \'27\', \'28\', \'26\'), c(\'cluster\', \'neighbor\', \'sil_width\'))), clus.avg.widths = c(0.838270528963027, 0.778192810753059), avg.width = 0.799649138685191), .Names = c(\'widths\', \'clus.avg.widths\', \'avg.width\')));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void testispairlist6() {
+ assertEval("argv <- list(structure(list(loc = c(0.0804034870161223, 10.3548347412639), cov = structure(c(3.01119301965569, 6.14320559215603, 6.14320559215603, 14.7924762275451), .Dim = c(2L, 2L)), d2 = 2, wt = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), sqdist = c(0.439364946869246, 0.0143172566761092, 0.783644692619938, 0.766252947443554, 0.346865912102713, 1.41583192825661, 0.168485512965902, 0.354299830956879, 0.0943280426627965, 1.05001058449122, 1.02875556201707, 0.229332323173361, 0.873263925064789, 2.00000009960498, 0.449304354954282, 0.155023307933165, 0.118273979375253, 0.361693898800799, 0.21462398586105, 0.155558909016629, 0.471723661454506, 0.719528696331092, 0.0738164380664225, 1.46001193111051, 0.140785322548143, 0.127761195166703, 0.048012401156175, 0.811750426884519, 0.425827709817574, 0.163016638545231, 0.557810866640707, 0.277350147637843, 0.0781399119055092, 1.29559183995835, 0.718376405567138, 1.37650242941478, 0.175087780508154, 0.233808973148729, 0.693473805463067, 0.189096604125073, 1.96893781800017, 0.4759756980592, 1.69665760380474, 0.277965749373647, 0.920525436884815, 0.57525234053591, 1.59389578665009, 0.175715364671313, 0.972045794851437, 1.75514684962809, 0.0597413185507202, 0.174340343040626, 0.143421553552865, 0.997322770596838, 1.94096736957465, 2.00000001159796, 0.367000821772989, 0.682474530588235, 1.20976163307984, 1.27031685239035, 1.79775635513363, 0.0857761902860323, 0.435578932929501, 0.214370604878221, 0.494714247412686, 1.78784623754399, 1.24216674083069, 1.87749485326709, 0.0533296334123023, 1.45588362584438, 2.00000000631459, 0.208857144738039, 0.119251291573058, 0.365303924649962, 0.690656674239668, 0.0396958405786268, 0.258262120876164, 1.57360254057537, 0.307548421049514, 0.628417063100241, 1.00647098749202, 0.297624360530352, 0.400289147351669, 1.98298426250944, 0.129127182829694, 0.0794695319493149, 0.991481735944321, 0.444068154119836, 0.206790162395106, 0.574310829851377, 0.181887577583334, 0.433872021297517, 0.802994892604009, 0.293053770941001, 1.7002969001965, 0.77984639982848, 1.36127407487932, 0.761935213110323, 0.597915313430067, 0.237134831067472), prob = NULL, tol = 1e-07, eps = 9.96049758228423e-08, it = 898L, maxit = 5000, ierr = 0L, conv = TRUE), .Names = c(\'loc\', \'cov\', \'d2\', \'wt\', \'sqdist\', \'prob\', \'tol\', \'eps\', \'it\', \'maxit\', \'ierr\', \'conv\'), class = \'ellipsoid\'));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void testispairlist7() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(20L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 19L, 19L, 19L, 20L, 20L, 20L, 19L, 20L, 19L, 19L, 19L, 20L), mday = c(30L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 30L, 30L, 30L, 30L, 31L, 31L, 31L, 30L, 30L, 30L, 31L, 30L, 31L, 31L, 31L, 30L), mon = c(5L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 5L, 5L, 5L, 5L, 11L, 11L, 11L, 5L, 5L, 5L, 11L, 5L, 11L, 11L, 11L, 5L), year = c(72L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 81L, 82L, 83L, 85L, 87L, 89L, 90L, 92L, 93L, 94L, 95L, 97L, 98L, 105L, 108L, 112L), wday = c(5L, 0L, 1L, 2L, 3L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 0L, 4L, 0L, 1L, 2L, 3L, 4L, 0L, 1L, 4L, 6L, 3L, 6L), yday = c(181L, 365L, 364L, 364L, 364L, 365L, 364L, 364L, 364L, 180L, 180L, 180L, 180L, 364L, 364L, 364L, 181L, 180L, 180L, 364L, 180L, 364L, 364L, 365L, 181L), isdst = c(1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 1L)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), tzone = c(\'\', \'EST\', \'EDT\')));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void testispairlist8() {
+ assertEval("argv <- list(structure(list(usr = c(0.568, 1.432, -1.08, 1.08), xaxp = c(0.6, 1.4, 4), yaxp = c(-1, 1, 4)), .Names = c(\'usr\', \'xaxp\', \'yaxp\')));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void testispairlist9() {
+ assertEval("argv <- list(structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c(\'A\', \'B\', \'C\'), class = \'factor\')), .Names = c(\'x\', \'y\', \'fac\'), row.names = c(NA, -10L), class = \'data.frame\'));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void testispairlist10() {
+ assertEval("argv <- list(structure(list(height = c(58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72), weight = c(115, 117, 120, 123, 126, 129, 132, 135, 139, 142, 146, 150, 154, 159, 164)), .Names = c(\'height\', \'weight\'), row.names = c(NA, -15L), class = \'data.frame\'));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void testispairlist11() {
+ assertEval("argv <- list(structure(list(a_string = c(\'foo\', \'bar\'), a_bool = FALSE, a_struct = structure(list(a = 1, b = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), c = \'foo\'), .Names = c(\'a\', \'b\', \'c\')), a_cell = structure(list(1, \'foo\', structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), \'bar\'), .Dim = c(2L, 2L)), a_complex_scalar = 0+1i, a_list = list(1, structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), \'foo\'), a_complex_matrix = structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), a_range = c(1, 2, 3, 4, 5), a_scalar = 1, a_complex_3_d_array = structure(c(1+1i, 3+1i, 2+1i, 4+1i, 5-1i, 7-1i, 6-1i, 8-1i), .Dim = c(2L, 2L, 2L)), a_3_d_array = structure(c(1, 3, 2, 4, 5, 7, 6, 8), .Dim = c(2L, 2L, 2L)), a_matrix = structure(c(1, 3, 2, 4), .Dim = c(2L, 2L)), a_bool_matrix = structure(c(TRUE, FALSE, FALSE, TRUE), .Dim = c(2L, 2L))), .Names = c(\'a_string\', \'a_bool\', \'a_struct\', \'a_cell\', \'a_complex_scalar\', \'a_list\', \'a_complex_matrix\', \'a_range\', \'a_scalar\', \'a_complex_3_d_array\', \'a_3_d_array\', \'a_matrix\', \'a_bool_matrix\')));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testispairlist12() {
+ assertEval("argv <- list(structure(list(f = structure(c(1L, 1L, 1L), .Label = c(\'1\', \'2\'), class = \'factor\'), u = structure(12:14, unit = \'kg\', class = \'avector\')), .Names = c(\'f\', \'u\'), row.names = 2:4, class = \'data.frame\'));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void testispairlist13() {
+ assertEval("argv <- list(structure(list(a = c(1L, 2L, 3L, NA), b = c(NA, 3.14159265358979, 3.14159265358979, 3.14159265358979), c = c(TRUE, NA, FALSE, TRUE), d = structure(c(1L, 2L, NA, 3L), .Label = c(\'aa\', \'bb\', \'dd\'), class = \'factor\'), e = structure(c(\'a1\', NA, NA, \'a4\'), class = \'AsIs\'), f = structure(c(11323, NA, NA, 12717), class = \'Date\')), .Names = c(\'a\', \'b\', \'c\', \'d\', \'e\', \'f\'), row.names = c(NA, -4L), class = \'data.frame\'));is.pairlist(argv[[1]]);");
+ }
+
+ @Test
+ public void testispairlist14() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.pairlist(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisraw.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisraw.java
new file mode 100644
index 0000000000000000000000000000000000000000..cabcd68c28b55eb36ffacdacad45b14164e846f3
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisraw.java
@@ -0,0 +1,43 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisraw extends TestBase {
+
+ @Test
+ public void testisraw1() {
+ assertEval("argv <- list(structure(list(`character(0)` = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'character(0)\', row.names = character(0), class = \'data.frame\'));is.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void testisraw2() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void testisraw3() {
+ assertEval("argv <- list(c(0.367649186507741, -0.792514168501158, 0.0770550181313438, 0.193209990320579, 0.556026088821232, -1.90995675991293, 1.21007077813812, -1.22764970620883));is.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void testisraw4() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1), .Dim = 1:3));is.raw(argv[[1]]);");
+ }
+
+ @Test
+ public void testisraw5() {
+ assertEval("argv <- list(raw(0));is.raw(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisrecursive.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisrecursive.java
new file mode 100644
index 0000000000000000000000000000000000000000..50bdbd81b517e75c35db2714a9744b5f84bf0120
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisrecursive.java
@@ -0,0 +1,84 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisrecursive extends TestBase {
+
+ @Test
+ @Ignore
+ public void testisrecursive1() {
+ assertEval("argv <- list(c(1, 5.75, 10.5, 15.25, 20));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisrecursive2() {
+ assertEval("argv <- list(structure(c(1+0i, 5+0i, 9+0i, 13+0i, 17+0i, 21+0i, 2+0i, 6+0i, 10+0i, 14+0i, 18+0i, 22+0i, 3+0i, 7+0i, 11+0i, 15+0i, 19+0i, 23+0i, 4+0i, 8+0i, 12+0i, 16+0i, 20+0i, 24+0i), .Dim = c(6L, 4L)));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisrecursive3() {
+ assertEval("argv <- list(structure(list(var = structure(c(2L, 5L, 1L, 1L, 4L, 5L, 5L, 1L, 3L, 1L, 1L, 2L, 1L, 6L, 1L, 1L, 1L), .Label = c(\'<leaf>\', \'hs.grad\', \'illiteracy\', \'murder\', \'population\', \'region\'), class = \'factor\'), n = c(50L, 10L, 7L, 3L, 40L, 32L, 13L, 3L, 10L, 6L, 4L, 19L, 4L, 15L, 11L, 4L, 8L), wt = c(50, 10, 7, 3, 40, 32, 13, 3, 10, 6, 4, 19, 4, 15, 11, 4, 8), dev = c(18501092, 668812.4, 269049.714285714, 40824, 9908099.1, 5718045.5, 2592172, 97824.6666666667, 1337366.4, 249796.833333333, 155810.75, 2105534.63157895, 276864.75, 1264031.6, 209138.181818182, 224618.75, 2526229.5), yval = c(4435.8, 3639.6, 3515.57142857143, 3929, 4634.85, 4532.875, 4317, 3772.33333333333, 4480.4, 4231.16666666667, 4854.25, 4680.57894736842, 4346.75, 4769.6, 4627.72727272727, 5159.75, 5042.75), complexity = c(0.42830879928601, 0.0194009459395308, 0.01, 0.01, 0.089931129470628, 0.0588430078006851, 0.0588430078006851, 0.01, 0.050362368700543, 0.01, 0.01, 0.0376981247853036, 0.01, 0.0376981247853036, 0.00682341562063013, 0.01, 0.01), ncompete = c(4L, 3L, 0L, 0L, 4L, 4L, 4L, 0L, 4L, 0L, 0L, 4L, 0L, 4L, 0L, 0L, 0L), nsurrogate = c(3L, 0L, 0L, 0L, 2L, 4L, 0L, 0L, 4L, 0L, 0L, 2L, 0L, 3L, 0L, 0L, 0L)), .Names = c(\'var\', \'n\', \'wt\', \'dev\', \'yval\', \'complexity\', \'ncompete\', \'nsurrogate\'), row.names = c(1L, 2L, 4L, 5L, 3L, 6L, 12L, 24L, 25L, 50L, 51L, 13L, 26L, 27L, 54L, 55L, 7L), class = \'data.frame\'));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisrecursive4() {
+ assertEval("argv <- list(structure(c(0, 0.693147180559945, 1.09861228866811, 1.38629436111989, 1.6094379124341, 1.79175946922805, 1.94591014905531, 2.07944154167984, 2.19722457733622, 2.30258509299405, 2.39789527279837, 2.484906649788, 2.56494935746154, 2.63905732961526, 2.70805020110221, 2.77258872223978, 2.83321334405622, 2.89037175789616, 2.94443897916644, 2.99573227355399, 3.04452243772342, 3.09104245335832, 3.13549421592915, 3.17805383034795, 3.2188758248682, 3.25809653802148, 3.29583686600433, 3.3322045101752, 3.36729582998647, 3.40119738166216, 3.43398720448515, 3.46573590279973, 3.49650756146648, 3.52636052461616, 3.55534806148941, 3.58351893845611, 3.61091791264422, 3.63758615972639, 3.66356164612965, 3.68887945411394, 3.71357206670431, 3.73766961828337, 3.76120011569356, 3.78418963391826, 3.80666248977032, 3.8286413964891, 3.85014760171006, 3.87120101090789, 3.89182029811063, 3.91202300542815, 3.93182563272433, 3.95124371858143, 3.97029191355212, 3.98898404656427, 4.00733318523247, 4.02535169073515, 4.04305126783455, 4.06044301054642, 4.07753744390572, 4.0943445622221, 4.11087386417331, 4.12713438504509, 4.14313472639153, 4.15888308335967, 4.17438726989564, 4.18965474202643, 4.20469261939097, 4.21950770517611, 4.23410650459726, 4.24849524204936, 4.26267987704132, 4.27666611901606, 4.29045944114839, 4.30406509320417, 4.31748811353631, 4.33073334028633, 4.34380542185368, 4.35670882668959, 4.36944785246702, 4.38202663467388, 4.39444915467244, 4.40671924726425, 4.4188406077966, 4.43081679884331, 4.44265125649032, 4.45434729625351, 4.46590811865458, 4.47733681447821, 4.48863636973214, 4.49980967033027, 4.51085950651685, 4.52178857704904, 4.53259949315326, 4.54329478227, 4.55387689160054, 4.56434819146784, 4.57471097850338, 4.58496747867057, 4.59511985013459, 4.60517018598809), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\')));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisrecursive5() {
+ assertEval("argv <- list(c(4.2946094590101+0i, -3.25699475013756-2.24807847868298i, -7.95013358893225-2.01799537233252i, -3.67333331331688+0.2922506370947i, 10.1942090590333+0.2633318847587i, -3.52243716497356+3.01559327870726i, 0.840489557961749+0.760755891710788i, 0.34614657901946+3.92303947429563i, 1.25203951718932-0.04113309513059i, 1.25203951718932+0.04113309513059i, 0.34614657901946-3.92303947429563i, 0.840489557961749-0.760755891710788i, -3.52243716497356-3.01559327870726i, 10.1942090590333-0.2633318847587i, -3.67333331331688-0.2922506370947i, -7.95013358893225+2.01799537233252i, -3.25699475013756+2.24807847868298i));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisrecursive6() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'age\', \'eet\', \'g2\', \'grade\', \'gleason\', \'ploidy\')));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisrecursive7() {
+ assertEval("argv <- list(structure(list(var = structure(c(2L, 1L, 1L), .Label = c(\'<leaf>\', \'Start\'), class = \'factor\'), n = c(81L, 62L, 19L), wt = c(81, 62, 19), dev = c(24.3, 8.57647058823529, 14.175), yval = c(1, 1, 2), complexity = c(0.0637254901960785, 0, 1e-15), ncompete = c(2L, 0L, 0L), nsurrogate = c(0L, 0L, 0L), yval2 = structure(c(1, 1, 2, 64, 56, 8, 17, 6, 11, 0.7, 0.852610030706244, 0.310704960835509, 0.3, 0.147389969293756, 0.689295039164491, 0.999999999999999, 0.718382352941176, 0.281617647058824), .Dim = c(3L, 6L), .Dimnames = list(NULL, c(\'\', \'\', \'\', \'\', \'\', \'nodeprob\')))), .Names = c(\'var\', \'n\', \'wt\', \'dev\', \'yval\', \'complexity\', \'ncompete\', \'nsurrogate\', \'yval2\'), row.names = c(NA, 3L), class = \'data.frame\'));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisrecursive8() {
+ assertEval("argv <- list(1e+09);is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisrecursive9() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisrecursive10() {
+ assertEval("argv <- list(logical(0));is.recursive(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testisrecursive11() {
+ assertEval("argv <- list(structure(list(Df = c(1L, 7L), `Sum Sq` = c(158.407612694902, 204.202165082876), `Mean Sq` = c(158.407612694902, 29.1717378689823), `F value` = c(5.43017400630538, NA), `Pr(>F)` = c(0.052592726218915, NA)), .Names = c(\'Df\', \'Sum Sq\', \'Mean Sq\', \'F value\', \'Pr(>F)\'), row.names = c(\'depression\', \'Residuals\'), class = c(\'anova\', \'data.frame\'), heading = c(\'Analysis of Variance Table\\n\', \'Response: weight\')));is.recursive(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinissymbol.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinissymbol.java
new file mode 100644
index 0000000000000000000000000000000000000000..20df2c20366b0db849a496fb7a5abc8f301fd713
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinissymbol.java
@@ -0,0 +1,38 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinissymbol extends TestBase {
+
+ @Test
+ public void testissymbol1() {
+ assertEval("argv <- list(0.05);is.symbol(argv[[1]]);");
+ }
+
+ @Test
+ public void testissymbol2() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1), .Dim = 1:3));is.symbol(argv[[1]]);");
+ }
+
+ @Test
+ public void testissymbol3() {
+ assertEval("argv <- list(numeric(0));is.symbol(argv[[1]]);");
+ }
+
+ @Test
+ public void testissymbol4() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));is.symbol(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisunsorted.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisunsorted.java
new file mode 100644
index 0000000000000000000000000000000000000000..d2298e76de48dc22f5b8fb56f44199550d70dcb7
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisunsorted.java
@@ -0,0 +1,72 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisunsorted extends TestBase {
+
+ @Test
+ @Ignore
+ public void testisunsorted1() {
+ assertEval("argv <- list(c(1L, 2L, 4L), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisunsorted2() {
+ assertEval("argv <- list(c(10.7041467781967, 11.5754756379084, 12.524991240374, 13.5975143137056, 14.4688431734172, 15.4183587758829, 16.4908818492144, 17.7566218541999, 19.1425780866377, 20.5285343190754, 22.0685075746448, 23.9825281292691, 26.4455166737415, 29.7592803351446, 34.4380365011698, 41.4254228764895, 44.7391865378926, 49.4179427039178, 56.4053290792375), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisunsorted3() {
+ assertEval("argv <- list(c(-19, -12.21, -7.07, -6.14, -4.56, -4.09, -3.8, -2.22, -1.97, -1.95, -1.83, -1.82, -1.77, -1.56, -1.48, -1.42, -1.19, -1.12, -1.09, -1.04, -0.96, -0.89, -0.87, -0.87, -0.78, -0.77, -0.77, -0.74, -0.71, -0.63, -0.61, -0.59, -0.54, -0.51, -0.5, -0.5, -0.44, -0.4, -0.4, -0.37, -0.33, -0.28, -0.21, -0.2, -0.16, -0.16, -0.12, -0.1, -0.05, -0.01, -0.01, 0.04, 0.11, 0.13, 0.14, 0.15, 0.15, 0.25, 0.25, 0.26, 0.34, 0.42, 0.44, 0.46, 0.48, 0.48, 0.49, 0.49, 0.51, 0.57, 0.58, 0.64, 0.66, 0.7, 0.74, 0.8, 0.83, 0.94, 0.94, 1.02, 1.09, 1.12, 1.15, 1.18, 1.19, 1.63, 1.86, 1.92, 2.11, 2.17, 2.21, 2.22, 2.25, 2.64, 2.75, 4.18, 4.6, 5.74, 22.42, 44.32), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisunsorted4() {
+ assertEval("argv <- list(c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\', \'G\', \'H\', \'I\', \'J\', \'K\', \'L\', \'M\', \'N\', \'O\', \'P\', \'Q\', \'R\', \'S\', \'T\', \'U\', \'V\', \'W\', \'X\', \'Y\', \'Z\'), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisunsorted5() {
+ assertEval("argv <- list(c(8, 6, 9, 4, 3, 7, 1, 5, 2), TRUE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisunsorted6() {
+ assertEval("argv <- list(c(1, 2, 3, 2), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisunsorted7() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\')), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisunsorted8() {
+ assertEval("argv <- list(c(2L, 1L, 0L, 3L), FALSE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisunsorted9() {
+ assertEval("argv <- list(c(1L, 3L, 2L, 4L), TRUE); .Internal(is.unsorted(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisvector.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisvector.java
new file mode 100644
index 0000000000000000000000000000000000000000..b8c68869ab5a2e5fb737ab7f3c59272fa816b9f8
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisvector.java
@@ -0,0 +1,210 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinisvector extends TestBase {
+
+ @Test
+ @Ignore
+ public void testisvector1() {
+ assertEval("argv <- list(list(structure(0, class = c(\'POSIXct\', \'POSIXt\'), tzone = \'GMT\'), 1262304000), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector2() {
+ assertEval("argv <- list(list(c(\' 1\', \'NA\', \' 1\'), c(\'1.1\', \' NA\', \'2.0\'), c(\'1.1+0i\', \' NA\', \'3.0+0i\'), c(\'NA\', \'NA\', \'NA\'), c(\'FALSE\', \' NA\', \' TRUE\'), c(\'abc\', NA, \'def\')), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector3() {
+ assertEval("argv <- list(structure(list(A = c(1, NA, 1), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA_integer_, NA_integer_, NA_integer_), E = c(FALSE, NA, TRUE), F = c(\'abc\', NA, \'def\')), .Names = c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\'), class = \'data.frame\', row.names = c(\'1\', \'2\', \'3\')), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector4() {
+ assertEval("argv <- list(structure(list(character = character(0), numeric = numeric(0), numeric = numeric(0), complex = complex(0), integer = integer(0), logical = logical(0), character = character(0)), .Names = c(\'character\', \'numeric\', \'numeric\', \'complex\', \'integer\', \'logical\', \'character\')), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector5() {
+ assertEval("argv <- list(structure(list(group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c(\'Ctl\', \'Trt\'), class = \'factor\')), .Names = \'group\', class = \'data.frame\', row.names = c(NA, 20L)), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector6() {
+ assertEval("argv <- list(structure(list(y = c(1.08728092481538, 0.0420572471552261, 0.787502161306819, 0.512717751544676, 3.35376639535311, 0.204341510750309, -0.334930602487435, 0.80049208412789, -0.416177803375218, -0.777970346246018, 0.934996808181635, -0.678786709127108, 1.52621589791412, 0.5895781228122, -0.744496121210548, -1.99065153885627, 1.51286447692396, -0.750182409847851), A = c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), U = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c(\'a\', \'b\', \'c\'), class = \'factor\'), V = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L), .Label = c(\'a\', \'b\', \'c\'), class = \'factor\')), .Names = c(\'y\', \'A\', \'U\', \'V\'), terms = quote(y ~ A:U + A:V - 1), row.names = c(NA, 18L), class = \'data.frame\'), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector7() {
+ assertEval("argv <- list(list(integer(0)), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector8() {
+ assertEval("argv <- list(list(structure(0:100, .Tsp = c(1, 101, 1), class = \'ts\'), structure(c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790, 800, 810, 820, 830, 840, 850, 860, 870, 880, 890, 900, 910, 920, 930, 940, 950, 960, 970, 980, 990, 1000), .Tsp = c(1, 101, 1), class = \'ts\'), structure(c(-4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96), .Tsp = c(1, 101, 1), class = \'ts\')), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector9() {
+ assertEval("argv <- list(structure(list(Plant = structure(c(5L, 5L, 5L, 5L, 5L, 5L, 5L), .Label = c(\'Qn1\', \'Qn2\', \'Qn3\', \'Qc1\', \'Qc3\', \'Qc2\', \'Mn3\', \'Mn2\', \'Mn1\', \'Mc2\', \'Mc3\', \'Mc1\'), class = c(\'ordered\', \'factor\')), Type = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c(\'Quebec\', \'Mississippi\'), class = \'factor\'), Treatment = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c(\'nonchilled\', \'chilled\'), class = \'factor\')), .Names = c(\'Plant\', \'Type\', \'Treatment\'), class = \'data.frame\', row.names = 36:42), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector10() {
+ assertEval("argv <- list(structure(list(`1` = c(0, 0, 0, 0, 0, 0, 2.96439387504748e-323, 0, 0, 0, 0, 0)), .Names = \'1\'), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector11() {
+ assertEval("argv <- list(list(structure(list(srcfile = c(\'/home/lzhao/hg/r-instrumented/library/methods/R/methods\', \'/home/lzhao/hg/r-instrumented/library/methods/R/methods\'), frow = c(6030L, 6032L), lrow = c(6031L, 6063L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = 1:2, class = \'data.frame\'), structure(list(srcfile = \'/home/lzhao/hg/r-instrumented/library/methods/R/methods\', frow = 6036L, lrow = 6055L), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, -1L), class = \'data.frame\')), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector12() {
+ assertEval("argv <- list(structure(list(B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c(\'I\', \'II\', \'III\', \'IV\', \'V\', \'VI\'), class = \'factor\'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c(\'Golden.rain\', \'Marvellous\', \'Victory\'), class = \'factor\'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\'), class = \'factor\')), .Names = c(\'B\', \'V\', \'N\'), class = \'data.frame\', row.names = 2:72), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector13() {
+ assertEval("argv <- list(list(\'‘FUN’ is found by a call to ‘match.fun’ and typically is specified as a function or a symbol (e.g. a backquoted name) or a character string specifying a function to be searched for from the environment of the call to ‘lapply’.\'), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector14() {
+ assertEval("argv <- list(list(c(35, 232, 232, 355, 1041, 1510, 1525, 1548, 1560, 1560, 1563, 1641, 1648, 1652, 1654, 1654, 1690, 1690, 1710, 1710, 1710, 1710, 1779, 1779, 1779, 1779, 1787, 1804, 1812, 1836, 1854, 1864, 1899, 1919, 1920, 1958, 1963, 2007, 2011, 2024, 2024, 2024, 2028, 2061, 2061, 2061, 2062, 2062, 2075, 2085, 2103, 2156, 2227, 2264, 2339, 2339, 2361, 2361, 2387, 2387, 2388, 2426, 2431, 2460, 2493, 2493, 2542, 2559, 2559, 2570, 2676, 2738, 2782, 2984, 3067, 3144, 3154, 3199, 3228, 3297, 3328, 3328, 3330, 3383, 3384, 3384, 3402, 3402, 3441, 3458, 3459, 3459, 3476, 3476, 3695, 3695, 3776, 3776, 3776, 3830, 3856, 3909, 3909, 3968, 3968, 4001, 4119, 4124, 4207, 4207, 4310, 4390, 4479, 4479, 4688), c(0, 0, 0, 0, -1, 0, 0, -1, -1, -1, 0, 0, 0, 0, 0, 0, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector15() {
+ assertEval("argv <- list(structure(c(1+2i, 5+0i, 3-4i, -6+0i), .Dim = c(2L, 2L)), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector16() {
+ assertEval("argv <- list(structure(list(row.names = character(0), A = numeric(0), B = numeric(0), C = complex(0), D = integer(0), E = logical(0), F = character(0)), .Names = c(\'row.names\', \'A\', \'B\', \'C\', \'D\', \'E\', \'F\')), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector17() {
+ assertEval("argv <- list(structure(c(315.42, 316.32, 316.49, 317.56, 318.13, 318, 316.39, 314.66, 313.68, 313.18, 314.66, 315.43, 316.27, 316.81, 317.42, 318.87, 319.87, 319.43, 318.01, 315.75, 314, 313.68, 314.84, 316.03, 316.73, 317.54, 318.38, 319.31, 320.42, 319.61, 318.42, 316.64, 314.83, 315.15, 315.95, 316.85, 317.78, 318.4, 319.53, 320.41, 320.85, 320.45, 319.44, 317.25, 316.12, 315.27, 316.53, 317.53, 318.58, 318.92, 319.7, 321.22, 322.08, 321.31, 319.58, 317.61, 316.05, 315.83, 316.91, 318.2, 319.41, 320.07, 320.74, 321.4, 322.06, 321.73, 320.27, 318.54, 316.54, 316.71, 317.53, 318.55, 319.27, 320.28, 320.73, 321.97, 322, 321.71, 321.05, 318.71, 317.65, 317.14, 318.71, 319.25, 320.46, 321.43, 322.22, 323.54, 323.91, 323.59, 322.26, 320.21, 318.48, 317.94, 319.63, 320.87, 322.17, 322.34, 322.88, 324.25, 324.83, 323.93, 322.39, 320.76, 319.1, 319.23, 320.56, 321.8, 322.4, 322.99, 323.73, 324.86, 325.41, 325.19, 323.97, 321.92, 320.1, 319.96, 320.97, 322.48, 323.52, 323.89, 325.04, 326.01, 326.67, 325.96, 325.13, 322.9, 321.61, 321.01, 322.08, 323.37, 324.34, 325.3, 326.29, 327.54, 327.54, 327.21, 325.98, 324.42, 322.91, 322.9, 323.85, 324.96, 326.01, 326.51, 327.01, 327.62, 328.76, 328.4, 327.2, 325.28, 323.2, 323.4, 324.64, 325.85, 326.6, 327.47, 327.58, 329.56, 329.9, 328.92, 327.89, 326.17, 324.68, 325.04, 326.34, 327.39, 328.37, 329.4, 330.14, 331.33, 332.31, 331.9, 330.7, 329.15, 327.34, 327.02, 327.99, 328.48, 329.18, 330.55, 331.32, 332.48, 332.92, 332.08, 331.02, 329.24, 327.28, 327.21, 328.29, 329.41, 330.23, 331.24, 331.87, 333.14, 333.8, 333.42, 331.73, 329.9, 328.4, 328.17, 329.32, 330.59, 331.58, 332.39, 333.33, 334.41, 334.71, 334.17, 332.88, 330.77, 329.14, 328.77, 330.14, 331.52, 332.75, 333.25, 334.53, 335.9, 336.57, 336.1, 334.76, 332.59, 331.41, 330.98, 332.24, 333.68, 334.8, 335.22, 336.47, 337.59, 337.84, 337.72, 336.37, 334.51, 332.6, 332.37, 333.75, 334.79, 336.05, 336.59, 337.79, 338.71, 339.3, 339.12, 337.56, 335.92, 333.74, 333.7, 335.13, 336.56, 337.84, 338.19, 339.9, 340.6, 341.29, 341, 339.39, 337.43, 335.72, 335.84, 336.93, 338.04, 339.06, 340.3, 341.21, 342.33, 342.74, 342.07, 340.32, 338.27, 336.52, 336.68, 338.19, 339.44, 340.57, 341.44, 342.53, 343.39, 343.96, 343.18, 341.88, 339.65, 337.8, 337.69, 339.09, 340.32, 341.2, 342.35, 342.93, 344.77, 345.58, 345.14, 343.81, 342.22, 339.69, 339.82, 340.98, 342.82, 343.52, 344.33, 345.11, 346.88, 347.25, 346.61, 345.22, 343.11, 340.9, 341.17, 342.8, 344.04, 344.79, 345.82, 347.25, 348.17, 348.75, 348.07, 346.38, 344.52, 342.92, 342.63, 344.06, 345.38, 346.12, 346.79, 347.69, 349.38, 350.04, 349.38, 347.78, 345.75, 344.7, 344.01, 345.5, 346.75, 347.86, 348.32, 349.26, 350.84, 351.7, 351.11, 349.37, 347.97, 346.31, 346.22, 347.68, 348.82, 350.29, 351.58, 352.08, 353.45, 354.08, 353.66, 352.25, 350.3, 348.58, 348.74, 349.93, 351.21, 352.62, 352.93, 353.54, 355.27, 355.52, 354.97, 353.74, 351.51, 349.63, 349.82, 351.12, 352.35, 353.47, 354.51, 355.18, 355.98, 356.94, 355.99, 354.58, 352.68, 350.72, 350.92, 352.55, 353.91), .Tsp = c(1959, 1990.91666666667, 12), class = \'ts\'), \'symbol\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector18() {
+ assertEval("argv <- list(structure(list(age = 60), .Names = \'age\', row.names = c(NA, -1L), class = \'data.frame\'), \'numeric\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector19() {
+ assertEval("argv <- list(c(1.00000001+1.00000001i, 1.00000002+1.00000002i, 1.00000003+1.00000003i, 1.00000004+1.00000004i, 1.00000005+1.00000005i, 1.00000006+1.00000006i, 1.00000007+1.00000007i, 1.00000008+1.00000008i, 1.00000009+1.00000009i, 1.0000001+1.0000001i), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector20() {
+ assertEval("argv <- list(list(), \'list\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector21() {
+ assertEval("argv <- list(structure(list(`1` = c(256.266652076228, 529.998452486383, 655.612271403493, 31.5607377310524, 10.1780771257452, 0.82654086298349, 0.192588149393303, 0.27340160887417, 0.420761091220242, 0.212073424883136, 6006.37649011526, 8.9782737548589e+42)), .Names = \'1\'), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector22() {
+ assertEval("argv <- list(structure(list(Subject = structure(c(40L, 40L, 40L, 40L, 40L, 40L, 40L, 40L), .Label = c(\'42\', \'28\', \'30\', \'56\', \'46\', \'5\', \'55\', \'32\', \'43\', \'29\', \'3\', \'11\', \'45\', \'22\', \'40\', \'47\', \'31\', \'14\', \'7\', \'41\', \'33\', \'44\', \'23\', \'57\', \'34\', \'18\', \'36\', \'21\', \'15\', \'38\', \'10\', \'1\', \'58\', \'51\', \'4\', \'6\', \'19\', \'2\', \'27\', \'53\', \'37\', \'20\', \'12\', \'9\', \'17\', \'26\', \'8\', \'49\', \'39\', \'54\', \'25\', \'35\', \'52\', \'13\', \'16\', \'59\', \'48\', \'24\', \'50\'), class = c(\'ordered\', \'factor\')), Wt = c(1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7, 1.7), Apgar = structure(c(8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L), .Label = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\'), class = c(\'ordered\', \'factor\')), ApgarInd = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c(\'< 5\', \'>= 5\'), class = \'factor\'), time = c(0, 4, 6, 23.8, 27, 28, 39.5, 47), dose = c(17, 17, NA, 4, 7.5, 4, 4, NA), conc = c(NA, NA, 19.1, NA, NA, NA, NA, 33.3)), .Names = c(\'Subject\', \'Wt\', \'Apgar\', \'ApgarInd\', \'time\', \'dose\', \'conc\'), row.names = c(\'669\', \'670\', \'671\', \'672\', \'673\', \'674\', \'675\', \'676\'), class = \'data.frame\'), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector23() {
+ assertEval("argv <- list(list(structure(c(0.445983387275159, 0.0291424961297979, 0.305722673636889, 0.0640910333172597, 6.1841587262516e-05, 0.000608774190997193, 0.00533346072966287, 1.87468589092225, 0.00776943250876635, 0.00695873604736988), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\')), 0), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector24() {
+ assertEval("argv <- list(structure(list(`1` = structure(list(stats = c(-9.90250128905181, -7.70852699427806, -5.13496062122677, -3.95948091921295, 1.46970778502994), n = 29L, conf = c(-6.23492561965266, -4.03499562280088), out = numeric(0)), .Names = c(\'stats\', \'n\', \'conf\', \'out\')), `2` = structure(list(stats = c(-11.1332994435188, -6.39592651878103, -4.21825647639093, -2.4710346135438, 0.142332232638518), n = 27L, conf = c(-5.41170283935282, -3.02481011342905), out = c(5.49660997093232, 3.55716552721441)), .Names = c(\'stats\', \'n\', \'conf\', \'out\')), `3` = structure(list(stats = c(-6.21825647639093, -4.89504044270307, -3.50339002906768, -2.12460329098075, 1.68674122392151), n = 27L, conf = c(-4.34580001700278, -2.66098004113257), out = 3.49961675599928), .Names = c(\'stats\', \'n\', \'conf\', \'out\')), `4` = structure(list(stats = c(-5.85766776736148, -2.17391966458661, -1.21825647639093, 0.620760276498144, 4.06758688195534), n = 27L, conf = c(-2.06803799696724, -0.368474955814626), out = numeric(0)), .Names = c(\'stats\', \'n\', \'conf\', \'out\')), `5` = structure(list(stats = c(-7.47307099543129, -3.31679346391683, -0.571500134198763, 0.883997101871453, 5.68320653608317), n = 29L, conf = c(-1.8040063492643, 0.661006080866776), out = numeric(0)), .Names = c(\'stats\', \'n\', \'conf\', \'out\')), `6` = structure(list(stats = c(-5.74371144541934, -1.32005454439779, -0.0691719185754582, 1.68918858100201, 5.88399710187145), n = 25L, conf = c(-1.02009274620179, 0.881748909050878), out = numeric(0)), .Names = c(\'stats\', \'n\', \'conf\', \'out\')), `7` = structure(list( stats = c(-0.959725366614089, 1.04051908078705, 2.68320653608317, 4.68320653608317, 6.86503937877323), n = 29L, conf = c(1.61444701144563, 3.7519660607207), out = c(10.4020441274641, 11.9338597320297)), .Names = c(\'stats\', \'n\', \'conf\', \'out\')), `8` = structure(list(stats = c(-4.31872184443094, -0.341901367712618, 2.09749871094819, 4.42849305489153, 9.86504029478776), n = 29L, conf = c(0.69787150218962, 3.49712591970676), out = numeric(0)), .Names = c(\'stats\', \'n\', \'conf\', \'out\')), `9` = structure(list( stats = c(-4.47307099543129, 1.46970778502994, 3.27573063223268, 6.09749871094819, 8.5266833961141), n = 29L, conf = c(1.91794309465097, 4.63351816981439), out = numeric(0)), .Names = c(\'stats\', \'n\', \'conf\', \'out\')), `10` = structure(list(stats = c(-5.31679346391683, -1.04725655125673, 2.61440793064106, 7.68320653608317, 14.5985362650564), n = 26L, conf = c(-0.0908438616349159, 5.31965972291703), out = numeric(0)), .Names = c(\'stats\', \'n\', \'conf\', \'out\')), `11` = structure(list(stats = c(-4.26322883423527, -1.27884444060771, 1.37070166144218, 5.85051662661329, 10.1854674121229), n = 31L, conf = c(-0.65244259398095, 3.39384591686531), out = numeric(0)), .Names = c(\'stats\', \'n\', \'conf\', \'out\'))), .Dim = 11L, .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\'))), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector25() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c(\'abc\', \'def\'), class = \'factor\')), .Names = c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\'), class = \'data.frame\', row.names = c(\'1\', \'2\', \'3\')), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector26() {
+ assertEval("argv <- list(list(structure(list(srcfile = c(NA, \'/home/lzhao/hg/r-instrumented/library/graphics/R/graphics\'), frow = c(NA, 3990L), lrow = c(NA, 3991L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = 1:2, class = \'data.frame\'), structure(list(srcfile = \'/home/lzhao/hg/r-instrumented/library/graphics/R/graphics\', frow = 3998L, lrow = 4009L), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, -1L), class = \'data.frame\')), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector27() {
+ assertEval("argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c(\'y\', \'x\', \'z\'), terms = quote(y ~ x * z), row.names = c(NA, 10L), class = \'data.frame\'), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector28() {
+ assertEval("argv <- list(list(structure(c(-1L, -2L, -3L, -4L, -5L, -6L, -7L, -8L, -9L, -10L), .Dim = c(2L, 5L)), structure(list(V1 = 1:5, V2 = 6:10, V3 = 11:15, V4 = 16:20, V5 = 21:25), .Names = c(\'V1\', \'V2\', \'V3\', \'V4\', \'V5\'), row.names = c(NA, -5L), class = \'data.frame\')), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector29() {
+ assertEval("argv <- list(structure(list(group = structure(c(1L, 1L), .Label = c(\'Ctl\', \'Trt\'), class = \'factor\', contrasts = \'contr.treatment\')), .Names = \'group\', class = \'data.frame\', row.names = 1:2), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector30() {
+ assertEval("argv <- list(structure(c(12L, 120L, 116L), .Dim = 3L, .Dimnames = structure(list(c(\'0-5yrs\', \'6-11yrs\', \'12+ yrs\')), .Names = \'\'), class = \'table\'), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector31() {
+ assertEval("argv <- list(structure(c(1L, 3L, 2L, 3L, 3L, 1L, 2L, 3L, 2L, 2L), .Label = c(\'A\', \'B\', \'C\'), class = \'factor\'), \'symbol\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testisvector32() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 0L), Deviance = c(NA, 0), `Resid. Df` = c(10L, 10L), `Resid. Dev` = c(2.74035772634541, 2.74035772634541)), .Names = c(\'Df\', \'Deviance\', \'Resid. Df\', \'Resid. Dev\'), row.names = c(\'NULL\', \'x\'), class = c(\'anova\', \'data.frame\'), heading = \'Analysis of Deviance Table\\n\\nModel: gaussian, link: identity\\n\\nResponse: y\\n\\nTerms added sequentially (first to last)\\n\\n\'), \'any\'); .Internal(is.vector(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlazyLoadDBflush.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlazyLoadDBflush.java
new file mode 100644
index 0000000000000000000000000000000000000000..7b560dc0b60fd226f1d7e6c42de146fbdb338cd5
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlazyLoadDBflush.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinlazyLoadDBflush extends TestBase {
+
+ @Test
+ @Ignore
+ public void testlazyLoadDBflush1() {
+ assertEval("argv <- list(\'/home/roman/r-instrumented/library/tools/R/tools.rdb\'); .Internal(lazyLoadDBflush(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testlazyLoadDBflush2() {
+ assertEval("argv <- list(\'/home/lzhao/hg/r-instrumented/library/stats4/R/stats4.rdb\'); .Internal(lazyLoadDBflush(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlbeta.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlbeta.java
new file mode 100644
index 0000000000000000000000000000000000000000..4266f2fbe15063c11693718deadf7877952018c2
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlbeta.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinlbeta extends TestBase {
+
+ @Test
+ @Ignore
+ public void testlbeta1() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(lbeta(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlchoose.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlchoose.java
new file mode 100644
index 0000000000000000000000000000000000000000..9cd2c805eacedf556c1dd00ef1714ca03b086cb1
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlchoose.java
@@ -0,0 +1,36 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinlchoose extends TestBase {
+
+ @Test
+ @Ignore
+ public void testlchoose1() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(lchoose(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testlchoose2() {
+ assertEval("argv <- list(50L, 0:48); .Internal(lchoose(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testlchoose3() {
+ assertEval("argv <- list(0.5, 1:9); .Internal(lchoose(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlength.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlength.java
new file mode 100644
index 0000000000000000000000000000000000000000..4a5440cf5fd213ac6be48504f3bb654ae6e8dbe7
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlength.java
@@ -0,0 +1,200 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinlength extends TestBase {
+
+ @Test
+ public void testlength1() {
+ assertEval("argv <- list(\'~ . + Soft+M.user:Temp\');length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength2() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c(\'abc\', \'def\'), class = \'factor\')), .Names = c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\'), class = \'data.frame\', row.names = c(\'1\', \'2\', \'3\')));length(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlength3() {
+ assertEval("argv <- list(structure(\' \\\'Le français, c'est façile: Règles, Liberté, Egalité, Fraternité...\\\')\\n\', Rd_tag = \'RCODE\'));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength4() {
+ assertEval("argv <- list(structure(list(a = 6:10), .Names = \'a\', row.names = 6:10, class = \'data.frame\'));length(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlength5() {
+ assertEval("argv <- list(structure(list(`log(x)` = c(0, 0.693147180559945, 1.09861228866811, 1.38629436111989, 1.6094379124341, 1.79175946922805, 1.94591014905531, 2.07944154167984, 2.19722457733622, 2.30258509299405, 2.39789527279837, 2.484906649788, 2.56494935746154, 2.63905732961526, 2.70805020110221, 2.77258872223978, 2.83321334405622, 2.89037175789616, 2.94443897916644, 2.99573227355399, 3.04452243772342, 3.09104245335832, 3.13549421592915, 3.17805383034795, 3.2188758248682, 3.25809653802148, 3.29583686600433, 3.3322045101752, 3.36729582998647, 3.40119738166216, 3.43398720448515, 3.46573590279973, 3.49650756146648, 3.52636052461616, 3.55534806148941, 3.58351893845611, 3.61091791264422, 3.63758615972639, 3.66356164612965, 3.68887945411394, 3.71357206670431, 3.73766961828337, 3.76120011569356, 3.78418963391826, 3.80666248977032, 3.8286413964891, 3.85014760171006, 3.87120101090789, 3.89182029811063, 3.91202300542815, 3.93182563272433, 3.95124371858143, 3.97029191355212, 3.98898404656427, 4.00733318523247, 4.02535169073515, 4.04305126783455, 4.06044301054642, 4.07753744390572, 4.0943445622221, 4.11087386417331, 4.12713438504509, 4.14313472639153, 4.15888308335967, 4.17438726989564, 4.18965474202643, 4.20469261939097, 4.21950770517611, 4.23410650459726, 4.24849524204936, 4.26267987704132, 4.27666611901606, 4.29045944114839, 4.30406509320417, 4.31748811353631, 4.33073334028633, 4.34380542185368, 4.35670882668959, 4.36944785246702, 4.38202663467388, 4.39444915467244, 4.40671924726425, 4.4188406077966, 4.43081679884331, 4.44265125649032, 4.45434729625351, 4.46590811865458, 4.47733681447821, 4.48863636973214, 4.49980967033027, 4.51085950651685, 4.52178857704904, 4.53259949315326, 4.54329478227, 4.55387689160054, 4.56434819146784, 4.57471097850338, 4.58496747867057, 4.59511985013459, 4.60517018598809), `log(z)` = c(2.39789527279837, 2.484906649788, 2.56494935746154, 2.63905732961526, 2.70805020110221, 2.77258872223978, 2.83321334405622, 2.89037175789616, 2.94443897916644, 2.99573227355399, 3.04452243772342, 3.09104245335832, 3.13549421592915, 3.17805383034795, 3.2188758248682, 3.25809653802148, 3.29583686600433, 3.3322045101752, 3.36729582998647, 3.40119738166216, 3.43398720448515, 3.46573590279973, 3.49650756146648, 3.52636052461616, 3.55534806148941, 3.58351893845611, 3.61091791264422, 3.63758615972639, 3.66356164612965, 3.68887945411394, 3.71357206670431, 3.73766961828337, 3.76120011569356, 3.78418963391826, 3.80666248977032, 3.8286413964891, 3.85014760171006, 3.87120101090789, 3.89182029811063, 3.91202300542815, 3.93182563272433, 3.95124371858143, 3.97029191355212, 3.98898404656427, 4.00733318523247, 4.02535169073515, 4.04305126783455, 4.06044301054642, 4.07753744390572, 4.0943445622221, 4.11087386417331, 4.12713438504509, 4.14313472639153, 4.15888308335967, 4.17438726989564, 4.18965474202643, 4.20469261939097, 4.21950770517611, 4.23410650459726, 4.24849524204936, 4.26267987704132, 4.27666611901606, 4.29045944114839, 4.30406509320417, 4.31748811353631, 4.33073334028633, 4.34380542185368, 4.35670882668959, 4.36944785246702, 4.38202663467388, 4.39444915467244, 4.40671924726425, 4.4188406077966, 4.43081679884331, 4.44265125649032, 4.45434729625351, 4.46590811865458, 4.47733681447821, 4.48863636973214, 4.49980967033027, 4.51085950651685, 4.52178857704904, 4.53259949315326, 4.54329478227, 4.55387689160054, 4.56434819146784, 4.57471097850338, 4.58496747867057, 4.59511985013459, 4.60517018598809, 4.61512051684126, 4.62497281328427, 4.63472898822964, 4.64439089914137, 4.65396035015752, 4.66343909411207, 4.67282883446191, 4.68213122712422, 4.69134788222914, 4.70048036579242)), .Names = c(\'log(x)\', \'log(z)\'), class = \'data.frame\', row.names = c(NA, 100L), terms = quote(~log(x) + log(z))));length(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlength6() {
+ assertEval("argv <- list(list(\'Residuals vs Fitted\', \'Normal Q-Q\', \'Scale-Location\', \'Cook's distance\', \'Residuals vs Leverage\', expression(\'Cook's dist vs Leverage \' * h[ii]/(1 - h[ii]))));length(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlength7() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(20L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 19L, 19L, 19L, 20L, 20L, 20L, 19L, 20L, 19L, 19L, 19L, 20L), mday = c(30L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 30L, 30L, 30L, 30L, 31L, 31L, 31L, 30L, 30L, 30L, 31L, 30L, 31L, 31L, 31L, 30L), mon = c(5L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 5L, 5L, 5L, 5L, 11L, 11L, 11L, 5L, 5L, 5L, 11L, 5L, 11L, 11L, 11L, 5L), year = c(72L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 81L, 82L, 83L, 85L, 87L, 89L, 90L, 92L, 93L, 94L, 95L, 97L, 98L, 105L, 108L, 112L), wday = c(5L, 0L, 1L, 2L, 3L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 0L, 4L, 0L, 1L, 2L, 3L, 4L, 0L, 1L, 4L, 6L, 3L, 6L), yday = c(181L, 365L, 364L, 364L, 364L, 365L, 364L, 364L, 364L, 180L, 180L, 180L, 180L, 364L, 364L, 364L, 181L, 180L, 180L, 364L, 180L, 364L, 364L, 365L, 181L), isdst = c(1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 1L)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = c(\'\', \'EST\', \'EDT\')));length(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlength8() {
+ assertEval("argv <- list(complex(0));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength9() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength10() {
+ assertEval("argv <- list(list(structure(c(-1L, -2L, -3L, -4L, -5L, -6L, -7L, -8L, -9L, -10L), .Dim = c(2L, 5L)), structure(list(V1 = 1:5, V2 = 6:10, V3 = 11:15, V4 = 16:20, V5 = 21:25), .Names = c(\'V1\', \'V2\', \'V3\', \'V4\', \'V5\'), row.names = c(NA, -5L), class = \'data.frame\')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength11() {
+ assertEval("argv <- list(structure(list(weight = c(4.17, 5.58), group = structure(c(1L, 1L), .Label = c(\'Ctl\', \'Trt\'), class = \'factor\')), .Names = c(\'weight\', \'group\'), row.names = 1:2, class = \'data.frame\'));length(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlength12() {
+ assertEval("argv <- list(quote(cbind(X, M) ~ M.user + Temp + M.user:Temp));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength13() {
+ assertEval("argv <- list(structure(c(-Inf, -Inf, 0, 0, 1, 2, Inf, Inf, Inf, -Inf, -Inf, 0, 0.5, 1, 2, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 1, 2, 2, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.8, 1.6, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.3, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.4, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.2, 1.9, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.499999999999999, 1.33333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.325, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c(\'20%\', \'30%\', \'40%\', \'50%\', \'60%\', \'70%\', \'80%\', \'90%\', \'100%\'), NULL)));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength14() {
+ assertEval("argv <- list(structure(list(character = character(0), numeric = numeric(0), numeric = numeric(0), complex = complex(0), integer = integer(0), logical = logical(0), character = character(0)), .Names = c(\'character\', \'numeric\', \'numeric\', \'complex\', \'integer\', \'logical\', \'character\')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength15() {
+ assertEval("argv <- list(structure(list(loc = c(0.0804034870161223, 10.3548347412639), cov = structure(c(3.01119301965569, 6.14320559215603, 6.14320559215603, 14.7924762275451), .Dim = c(2L, 2L)), d2 = 2, wt = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0), sqdist = c(0.439364946869246, 0.0143172566761092, 0.783644692619938, 0.766252947443554, 0.346865912102713, 1.41583192825661, 0.168485512965902, 0.354299830956879, 0.0943280426627965, 1.05001058449122, 1.02875556201707, 0.229332323173361, 0.873263925064789, 2.00000009960498, 0.449304354954282, 0.155023307933165, 0.118273979375253, 0.361693898800799, 0.21462398586105, 0.155558909016629, 0.471723661454506, 0.719528696331092, 0.0738164380664225, 1.46001193111051, 0.140785322548143, 0.127761195166703, 0.048012401156175, 0.811750426884519, 0.425827709817574, 0.163016638545231, 0.557810866640707, 0.277350147637843, 0.0781399119055092, 1.29559183995835, 0.718376405567138, 1.37650242941478, 0.175087780508154, 0.233808973148729, 0.693473805463067, 0.189096604125073, 1.96893781800017, 0.4759756980592, 1.69665760380474, 0.277965749373647, 0.920525436884815, 0.57525234053591, 1.59389578665009, 0.175715364671313, 0.972045794851437, 1.75514684962809, 0.0597413185507202, 0.174340343040626, 0.143421553552865, 0.997322770596838, 1.94096736957465, 2.00000001159796, 0.367000821772989, 0.682474530588235, 1.20976163307984, 1.27031685239035, 1.79775635513363, 0.0857761902860323, 0.435578932929501, 0.214370604878221, 0.494714247412686, 1.78784623754399, 1.24216674083069, 1.87749485326709, 0.0533296334123023, 1.45588362584438, 2.00000000631459, 0.208857144738039, 0.119251291573058, 0.365303924649962, 0.690656674239668, 0.0396958405786268, 0.258262120876164, 1.57360254057537, 0.307548421049514, 0.628417063100241, 1.00647098749202, 0.297624360530352, 0.400289147351669, 1.98298426250944, 0.129127182829694, 0.0794695319493149, 0.991481735944321, 0.444068154119836, 0.206790162395106, 0.574310829851377, 0.181887577583334, 0.433872021297517, 0.802994892604009, 0.293053770941001, 1.7002969001965, 0.77984639982848, 1.36127407487932, 0.761935213110323, 0.597915313430067, 0.237134831067472), prob = NULL, tol = 1e-07, eps = 9.96049758228423e-08, it = 898L, maxit = 5000, ierr = 0L, conv = TRUE), .Names = c(\'loc\', \'cov\', \'d2\', \'wt\', \'sqdist\', \'prob\', \'tol\', \'eps\', \'it\', \'maxit\', \'ierr\', \'conv\'), class = \'ellipsoid\'));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength16() {
+ assertEval("argv <- list(c(-167.089651989438, -122.420302709026));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength17() {
+ assertEval("argv <- list(structure(list(srcfile = c(\'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\'), frow = c(1809L, 1810L, 1811L, 1812L, 1802L, 1827L, 1840L), lrow = c(1809L, 1814L, 1811L, 1813L, 1816L, 1834L, 1842L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, 7L)));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength18() {
+ assertEval("argv <- list(structure(list(object = structure(3.14159265358979, comment = \'Start with pi\'), slots = \'comment\', dataPart = TRUE), .Names = c(\'object\', \'slots\', \'dataPart\')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength19() {
+ assertEval("argv <- list(structure(list(name = structure(c(\'McNeil\', \'Ripley\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'AsIs\'), title = structure(c(3L, 6L, 7L, 4L, 2L, 5L), .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(c(NA, NA, NA, NA, NA, 1L), .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\'), nationality = structure(c(1L, 2L, 2L, 3L, 3L, 1L), .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(c(1L, 1L, 1L, 1L, 2L, 1L), .Label = c(\'no\', \'yes\'), class = \'factor\')), .Names = c(\'name\', \'title\', \'other.author\', \'nationality\', \'deceased\'), row.names = c(6L, 4L, 5L, 3L, 1L, 2L), class = \'data.frame\'));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength20() {
+ assertEval("argv <- list(c(\' These operators return vectors containing the result of the element\', \' by element operations. The elements of shorter vectors are recycled\', \' as necessary (with a ‘warning’ when they are recycled only\', \' _fractionally_). The operators are ‘+’ for addition,\', \' ‘-’ for subtraction, ‘*’ for multiplication, ‘/’ for\', \' division and ‘^’ for exponentiation.\', \'\', \' ‘%%’ indicates ‘x mod y’ and ‘%/%’ indicates\', \' integer division. It is guaranteed that \'));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength21() {
+ assertEval("argv <- list(structure(c(3.14475800140539, 3.11465478132706, 3.10630529271564, 3.0844667956717, 3.10602734436792, 3.1179780987041, 3.10510218928681, 3.13870964347838, 3.1236627058491, 3.16426296817658, 3.18524449375727, 3.19607967740367, 3.12404668400251, 3.1073799072767, 3.10252776401906, 3.0888846453793, 3.10244112014795, 3.1099501880355, 3.10186319790916, 3.12297248377609, 3.11352136079872, 3.13902281247452, 3.1522015282299, 3.15900722027104), .Tsp = c(1983, 1984.91666666667, 12), class = \'ts\'));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength22() {
+ assertEval("argv <- list(c(3.14159265358979e-10, 0.0314159265358979, 3.14159265358979, 31.4159265358979, 314.159265358979, 314159265.358979, 3.14159265358979e+20));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength23() {
+ assertEval("argv <- list(structure(list(names = character(0), row.names = integer(0), class = \'data.frame\'), .Names = c(\'names\', \'row.names\', \'class\')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength24() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list(\'a\')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength25() {
+ assertEval("argv <- list(c(0+0i, -0.740437474899139-0.482946826369552i, -0.333166449062945-0.753763230370951i, 0+0i, 0.522033838837248+0.102958580568997i, 0+0i, 0+0i, 0+0i, -0.563222209454641-0.518013590538404i, -0.068796124369349+0.97981641556181i, 0.244428915757284-0.330850507052219i, 0+0i, 0+0i, 0+0i, -0.451685375030484+0.126357395265016i, 0.375304016677864+0.436900190874168i, -0.674059300339186+0.084416799015191i, 0+0i, 0.509114684244823-0.086484623694157i, -0.535642839219739+0.289927561259502i, 0.629727249341749+0.707648659913726i, 0+0i, -0.333800277698424-0.317646103980588i, -0.422186107911717+0.317002735170286i, -0.616692335171505+0.068946145379939i, -0.136100485502624-0.487679764177213i, -0.68086000613138+0.047032323152903i, 0.296209908189768+0.585533462557103i, 0.43280012844045+0.136998748692477i, -0.680205941942733-0.256569497284745i, 0+0i, 0+0i, 0+0i, -0.983769553611346-0.088288289740869i, -0.046488672133508-0.622109071207677i, 0+0i, 0.379095891586975-0.727769566649926i, 0+0i, 0+0i, -0.150428076228347+0.615598727377677i, 0.762964492726935+0.377685645913312i, -0.7825325866026+0.365371705974346i, -0.792443423040311-0.029652870362208i, 0.265771060547393-0.106618612674382i, -0.076741350022367-0.422144111460857i, 0.120061986786934-0.623033085890884i, 0+0i, -0.145741981978782+0.529165019069452i, 0+0i, 0+0i, 0+0i, 0+0i, 0+0i, 0.328611964770906+0.215416587846774i, -0.583053183540166-0.668235480667835i, -0.782507286391418+0.318827979750013i, 0+0i, 0+0i, 0+0i, 0+0i, -0.271871452223431+0.426340387811162i, 0.590808184713385-0.344468770084509i, 0+0i, 0+0i, 0+0i, 0+0i, 0.866602113481861-0.172567291859327i, 0.031389337713892-0.607820631329035i, 0+0i, 0+0i, 0.151969488085021-0.827990593142535i, -0.266853748421854-0.866413193943766i, 0.071623062591495-0.867246686843546i, -0.788765741891382+0.508717463380604i, -0.228835546857432-0.349587041980114i, 0.500139791176978-0.016703152458872i, 0.15619107374708-0.485402548890295i, -0.369039310626083+0.398423724273751i, 0+0i, -0.399467692630093-0.421179989556223i, 0.411274074028001+0.133781691724871i, 0.573364366690245+0.328833257005489i, 0+0i, 0.387209171815106+0.750271083217101i, 0+0i, 0+0i, -0.168543113030619+0.43048451175239i, 0+0i, 0.388005062566602-0.290649953587954i, -0.013004326537709-0.490434895455784i, 0.069845221019376-0.762134635168809i, 0+0i, 0.27384734040072+0.383667165938905i, 0+0i, -0.894951082455532+0.317442909372288i, 0.5073401683933-0.213001485168032i, 0+0i, -0.343169835663372+0.597359384628839i, -0.283179001991236-0.385834501657171i, -0.517794900198098-0.36732932802092i));length(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlength26() {
+ assertEval("argv <- list(structure(list(sec = numeric(0), min = integer(0), hour = integer(0), mday = integer(0), mon = integer(0), year = integer(0), wday = integer(0), yday = integer(0), isdst = integer(0)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = c(\'\', \'EST\', \'EDT\')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength27() {
+ assertEval("argv <- list(c(FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength28() {
+ assertEval("argv <- list(structure(list(A = c(1, NA, 1), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA_integer_, NA_integer_, NA_integer_), E = c(FALSE, NA, TRUE), F = c(\'abc\', NA, \'def\')), .Names = c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\'), class = \'data.frame\', row.names = c(\'1\', \'2\', \'3\')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength29() {
+ assertEval("argv <- list(list(structure(list(srcfile = c(\'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\'), frow = 122:123, lrow = 122:123), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = 1:2, class = \'data.frame\'), structure(list(srcfile = \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/rlm.R\', frow = 124L, lrow = 124L), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, -1L), class = \'data.frame\')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength30() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1, 1, 1), `Sum of Sq` = c(NA, 820.907401534698, 26.7893827563485, 9.93175377572661), RSS = c(47.9727294003871, 868.880130935086, 74.7621121567356, 57.9044831761137), AIC = c(24.9738836085411, 60.6293256496563, 28.7417044039189, 25.4199908988691)), .Names = c(\'Df\', \'Sum of Sq\', \'RSS\', \'AIC\'), row.names = c(\'<none>\', \'- x1\', \'- x2\', \'- x4\'), class = c(\'anova\', \'data.frame\')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength31() {
+ assertEval("argv <- list(list(structure(c(30.3398431424662, 53.0273088677942, 11.6721423374092, 3.1219098789343, 9.58888402166762, 41.0027598267751, 8.26816396385794, 46.7997906867199, 7.96616780447507, 27.2952699050281, 7.05399789883986, 5.03904688224502, 2.61409832611023, 14.9537930856989, 7.22312484916424, 8.25480759597494, 37.7467076615774, 65.972863357068, 14.5216619125438, 3.88406159493231, 10.6419076139158, 45.5055646732323, 9.17614988785547, 51.9392087455927, 7.84624470450625, 26.8843655076016, 6.94780665155944, 4.96318881123281, 2.45558360989303, 14.0470191347445, 6.78512618085463, 7.75424934595279), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\')), 2.22044604925031e-16));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength32() {
+ assertEval("argv <- list(structure(c(78796800, 94694400, 126230400, 157766400, 189302400, 220924800, 252460800, 283996800, 315532800, 362793600, 394329600, 425865600, 489024000, 567993600, 631152000, 662688000, 709948800, 741484800, 773020800, 820454400, 867715200, 915148800, 1136073600, 1230768000, 1341100800), class = c(\'POSIXct\', \'POSIXt\')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength33() {
+ assertEval("argv <- list(c(1.03711990677284e+29, 4.58346574364236e+27, 2.02562481791768e+26, 8.95208153058638e+24, 3.95629847255715e+23, 1.7484534240517e+22, 7.7271454561408e+20, 34149480972585590784, 1509208102926327040, 66698206089453432, 2947672264272576, 130269967045726, 5757178273805.44, 254434569303.796, 11244672651.0134, 496975017.177538, 21967997.2327598, 971670.715389718, 43086.3667907314, 1929.95757399166, 90.0797181275922, 5.03402841668789, 0.625146618950265, -0.304867530220417, -0.123332207492738, 0.0884498083502638, 0.0243523396488189, -0.0527015109337102, -3.68088311960635e-05, -0.0351989174304481, 0.024656114194774));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength34() {
+ assertEval("argv <- list(structure(c(\'1.0\', NA, NA, \'methods, graphics, pkgA\', NA, NA, NA, \'GPL (>= 2)\', NA, NA, NA, NA, NA, NA, \'R 3.0.1; ; 2014-03-17 18:49:56 UTC; unix\'), .Names = c(\'Version\', NA, NA, \'Imports\', NA, NA, NA, \'License\', NA, NA, NA, NA, NA, NA, \'Built\')));length(argv[[1]]);");
+ }
+
+ @Test
+ public void testlength35() {
+ assertEval("argv <- list(structure(c(-1, 0, 1, 2, 3), .Tsp = c(-1, 3, 1)));length(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlengthassign.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlengthassign.java
new file mode 100644
index 0000000000000000000000000000000000000000..60e69af7e8ef463e5dae4854070ab90f0cbb4241
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlengthassign.java
@@ -0,0 +1,54 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinlengthassign extends TestBase {
+
+ @Test
+ @Ignore
+ public void testlengthassign1() {
+ assertEval("argv <- list(c(\'A\', \'B\'), value = 5);`length<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlengthassign2() {
+ assertEval("argv <- list(list(list(2, 2, 6), list(2, 2, 0)), value = 0);`length<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlengthassign3() {
+ assertEval("argv <- list(list(list(2, 2, 6), list(1, 3, 9), list(1, 3, -1)), value = 1);`length<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlengthassign4() {
+ assertEval("argv <- list(c(28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1), value = 0L);`length<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlengthassign5() {
+ assertEval("argv <- list(c(0L, 1L, 2L, 3L, 4L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 5L, 6L), value = 0L);`length<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlengthassign6() {
+ assertEval("argv <- list(list(), value = 0L);`length<-`(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlevelsassign.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlevelsassign.java
new file mode 100644
index 0000000000000000000000000000000000000000..3ee415b7317940a958a4667209acc6267ab1f579
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlevelsassign.java
@@ -0,0 +1,54 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinlevelsassign extends TestBase {
+
+ @Test
+ @Ignore
+ public void testlevelsassign1() {
+ assertEval("argv <- list(structure(1:2, .Label = c(\'a\', \'b\'), class = \'factor\'), value = structure(list(C = \'C\', A = \'a\', B = \'b\'), .Names = c(\'C\', \'A\', \'B\')));`levels<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlevelsassign2() {
+ assertEval("argv <- list(structure(c(24L, 13L, 15L, 68L, 39L, 74L, 22L, 1L, 8L, 55L, 24L, 20L, 51L, 13L, 3L, 4L, 5L, 6L, 15L, 2L, 8L, 60L, 67L, 23L, 58L, 24L, 22L, 21L, 37L, 74L, 59L, 39L, 14L, 14L, 19L, 23L, 70L, 21L, 22L, 31L, 29L, 30L, 45L, 58L, 17L, 7L, 19L, 26L, 39L, 74L, 57L, 59L, 12L, 72L, 70L, 37L, 64L, 16L, 18L, 21L, 22L, 8L, 62L, 61L, 63L, 71L, 105L, 64L, 10L, 41L, 8L, 27L, 11L, 34L, 32L, 33L, 68L, 107L, NA, 66L, NA, 65L, 48L, 52L, 43L, 47L, 46L, 44L, 41L, 54L, 28L, 50L, 40L, NA, 69L, NA, 75L, 109L, NA, 86L, 112L, 110L, 104L, 24L, 111L, 87L, NA, NA, 92L, 73L, 85L, 90L, 89L, NA, 83L, NA, 102L, NA, 108L, 88L, 91L, 93L, NA, 94L, 84L, NA, 106L, NA, 95L, 82L, 56L, 87L, 109L, 75L, 104L, 110L, 112L, 111L, 24L, 73L, 85L, 86L, 90L, 89L, 102L, 88L, 92L, 9L, 49L, 42L, 38L, 35L, 36L, 25L, NA, NA, 9L, 49L, 42L, NA, 36L, 38L, 25L, 53L, 79L, 78L, 103L, 77L, 80L, 114L, 97L, 113L, 76L, 96L, 81L, 116L, 99L, 117L, 115L, 98L, 101L, 100L), .Label = c(\'1008\', \'1011\', \'1013\', \'1014\', \'1015\', \'1016\', \'1027\', \'1028\', \'1030\', \'1032\', \'1051\', \'1052\', \'1083\', \'1093\', \'1095\', \'1096\', \'110\', \'1102\', \'111\', \'1117\', \'112\', \'113\', \'116\', \'117\', \'1219\', \'125\', \'1250\', \'1251\', \'126\', \'127\', \'128\', \'1291\', \'1292\', \'1293\', \'1298\', \'1299\', \'130\', \'1308\', \'135\', \'1376\', \'1377\', \'1383\', \'1408\', \'1409\', \'141\', \'1410\', \'1411\', \'1413\', \'1418\', \'1422\', \'1438\', \'1445\', \'1456\', \'1492\', \'2001\', \'2316\', \'262\', \'266\', \'269\', \'270\', \'2708\', \'2714\', \'2715\', \'272\', \'2728\', \'2734\', \'280\', \'283\', \'286\', \'290\', \'3501\', \'411\', \'412\', \'475\', \'5028\', \'5042\', \'5043\', \'5044\', \'5045\', \'5047\', \'5049\', \'5050\', \'5051\', \'5052\', \'5053\', \'5054\', \'5055\', \'5056\', \'5057\', \'5058\', \'5059\', \'5060\', \'5061\', \'5062\', \'5066\', \'5067\', \'5068\', \'5069\', \'5070\', \'5072\', \'5073\', \'5115\', \'5160\', \'5165\', \'655\', \'724\', \'885\', \'931\', \'942\', \'952\', \'955\', \'958\', \'c118\', \'c168\', \'c203\', \'c204\', \'c266\'), class = \'factor\'), value = c(\'1008\', \'1011\', \'1013\', \'1014\', \'1015\', \'1016\', \'1027\', \'1028\', \'1030\', \'1032\', \'1051\', \'1052\', \'1083\', \'1093\', \'1095\', \'1096\', \'110\', \'1102\', \'111\', \'1117\', \'112\', \'113\', \'116\', \'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz\', \'1219\', \'125\', \'1250\', \'1251\', \'126\', \'127\', \'128\', \'1291\', \'1292\', \'1293\', \'1298\', \'1299\', \'130\', \'1308\', \'135\', \'1376\', \'1377\', \'1383\', \'1408\', \'1409\', \'141\', \'1410\', \'1411\', \'1413\', \'1418\', \'1422\', \'1438\', \'1445\', \'1456\', \'1492\', \'2001\', \'2316\', \'262\', \'266\', \'269\', \'270\', \'2708\', \'2714\', \'2715\', \'272\', \'2728\', \'2734\', \'280\', \'283\', \'286\', \'290\', \'3501\', \'411\', \'412\', \'475\', \'5028\', \'5042\', \'5043\', \'5044\', \'5045\', \'5047\', \'5049\', \'5050\', \'5051\', \'5052\', \'5053\', \'5054\', \'5055\', \'5056\', \'5057\', \'5058\', \'5059\', \'5060\', \'5061\', \'5062\', \'5066\', \'5067\', \'5068\', \'5069\', \'5070\', \'5072\', \'5073\', \'5115\', \'5160\', \'5165\', \'655\', \'724\', \'885\', \'931\', \'942\', \'952\', \'955\', \'958\', \'c118\', \'c168\', \'c203\', \'c204\', \'c266\'));`levels<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlevelsassign4() {
+ assertEval("argv <- list(structure(c(1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L), .Label = c(\'1\', \'2\', \'3\'), class = \'factor\'), value = structure(list(A = c(1, 3), B = 2), .Names = c(\'A\', \'B\')));`levels<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlevelsassign5() {
+ assertEval("argv <- list(structure(FALSE, .Label = FALSE), FALSE);`levels<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlevelsassign6() {
+ assertEval("argv <- list(NULL, NULL);`levels<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlevelsassign7() {
+ assertEval("argv <- list(structure(list(), .Label = list()), list());`levels<-`(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlgamma.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlgamma.java
new file mode 100644
index 0000000000000000000000000000000000000000..4494462b69c3ed6b9bf3fc62bb037e0099b54d4a
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlgamma.java
@@ -0,0 +1,60 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinlgamma extends TestBase {
+
+ @Test
+ @Ignore
+ public void testlgamma1() {
+ assertEval("argv <- list(structure(c(2, 1, 1, 1, 3, 1, 1, 1, 4), .Dim = c(3L, 3L)));lgamma(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlgamma2() {
+ assertEval("argv <- list(structure(c(2, 3, 2, 1, 4, 4, 7, 2, 11, 11, 15, 10, 7, 8, 13, 12), .Dim = c(4L, 4L), .Dimnames = structure(list(income = c(\'< 15k\', \'15-25k\', \'25-40k\', \'> 40k\'), satisfaction = c(\'VeryD\', \'LittleD\', \'ModerateS\', \'VeryS\')), .Names = c(\'income\', \'satisfaction\'))));lgamma(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlgamma3() {
+ assertEval("argv <- list(1.72926007700446);lgamma(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlgamma4() {
+ assertEval("argv <- list(0.999935539560166);lgamma(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlgamma5() {
+ assertEval("argv <- list(FALSE);lgamma(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlgamma6() {
+ assertEval("argv <- list(numeric(0));lgamma(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlgamma7() {
+ assertEval("argv <- list(structure(c(11.4065045686104, 9.40650456861037, 8.40650456861037, 11.4065045686104, 9.40650456861037, 6.40650456861036, 15.4065045686104, 9.40650456861037, 9.40650456861037, 8.40650456861037, 6.40650456861036, 7.40650456861036, 8.40650456861037, 7.40650456861036, 9.40650456861037, 13.4065045686104, 10.4065045686104, 11.4065045686104, 14.4065045686104, 10.4065045686104, 16.4065045686104, 10.4065045686104, 7.40650456861036, 9.40650456861037, 7.40650456861036, 13.4065045686104, 17.4065045686104, 4.40650456861036, 10.4065045686104, 5.40650456861036, 6.40650456861036, 4.40650456861036, 5.40650456861036, 4.40650456861036, 4.40650456861036, 8.40650456861037, 9.40650456861037, 5.40650456861036, 9.40650456861037, 7.40650456861036, 7.40650456861036, 8.40650456861037), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\')));lgamma(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlist.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlist.java
new file mode 100644
index 0000000000000000000000000000000000000000..606713ee825e3d084ccf4b8295ab818ed65328f3
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlist.java
@@ -0,0 +1,396 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinlist extends TestBase {
+
+ @Test
+ @Ignore
+ public void testlist1() {
+ assertEval("argv <- list(surname = structure(c(\'McNeil\', \'Ripley\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\', \'R Core\'), class = \'AsIs\'), nationality = structure(c(\'Australia\', \'UK\', \'UK\', \'US\', \'US\', \'Australia\', NA), class = \'AsIs\'), deceased = structure(c(\'no\', \'no\', \'no\', \'no\', \'yes\', \'no\', NA), class = \'AsIs\'), title = structure(c(\'Interactive Data Analysis\', \'Spatial Statistics\', \'Stochastic Simulation\', \'LISP-STAT\', \'Exploratory Data Analysis\', \'Modern Applied Statistics ...\', \'An Introduction to R\'), class = \'AsIs\'), other.author = structure(c(NA, NA, NA, NA, NA, \'Ripley\', \'Venables & Smith\'), class = \'AsIs\'));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist2() {
+ assertEval("argv <- list(`_R_NS_LOAD_` = structure(\'survival\', .Names = \'name\'));list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist3() {
+ assertEval("argv <- list(x = c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), y = c(3.69420518444359e+25, 2.30887824027777e+24, 1.44304890017492e+23, 9.01905562612606e+21, 5.63690976641081e+20, 35230686042118275072, 2201917878145066496, 137619867512235136, 8601241751556820, 537577617482832, 33598603095309.8, 2099913194115.17, 131244699796.888, 8202825028.58974, 512684387.219832, 32044730.0464007, 2003284.70114408, 125327.674230857, 7863.68742857025, 499.272560819512, 33.2784230289721, 2.7659432263306, 0.488936768533843, -0.282943224311172, 7.32218543045282e-05, -0.00636442868227041, -0.0483709204009262, -0.0704795507649514, 0.0349437746169591, -0.0264830837608839, 0.0200901469411759), xlab = NULL, ylab = NULL);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist4() {
+ assertEval("argv <- list(class = \'try-error\', condition = structure(list(message = \'line 1 did not have 4 elements\', call = quote(scan(file, what, nmax, sep, dec, quote, skip, nlines, na.strings, flush, fill, strip.white, quiet, blank.lines.skip, multi.line, comment.char, allowEscapes, encoding))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist5() {
+ assertEval("argv <- list(structure(list(Hair = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c(\'Black\', \'Brown\', \'Red\', \'Blond\'), class = \'factor\'), Eye = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L), .Label = c(\'Brown\', \'Blue\', \'Hazel\', \'Green\'), class = \'factor\'), Sex = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c(\'Male\', \'Female\'), class = \'factor\')), .Names = c(\'Hair\', \'Eye\', \'Sex\'), out.attrs = structure(list(dim = structure(c(4L, 4L, 2L), .Names = c(\'Hair\', \'Eye\', \'Sex\')), dimnames = structure(list(Hair = c(\'Hair=Black\', \'Hair=Brown\', \'Hair=Red\', \'Hair=Blond\'), Eye = c(\'Eye=Brown\', \'Eye=Blue\', \'Eye=Hazel\', \'Eye=Green\'), Sex = c(\'Sex=Male\', \'Sex=Female\')), .Names = c(\'Hair\', \'Eye\', \'Sex\'))), .Names = c(\'dim\', \'dimnames\')), class = \'data.frame\', row.names = c(NA, -32L)), Fr = c(32, 53, 10, 3, 11, 50, 10, 30, 10, 25, 7, 5, 3, 15, 7, 8, 36, 66, 16, 4, 9, 34, 7, 64, 5, 29, 7, 5, 2, 14, 7, 8));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist6() {
+ assertEval("argv <- list(deviance.resid = structure(c(0.979005810350303, 0.190415231217834, -0.262041786489909, -1.18856115310823, -0.0713326116251696, 0.258231444611709, 0.637403312181204, -1.72855514890285, -0.632723785156881, -0.819071604478243, 2.23780874325045, -0.472376375886729), .Names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\')), coefficients = structure(c(0.291009862544455, -0.575062166945441, 0.0881289026086606, 0.127412648101879, 3.30209334202984, -4.5133836829576, 0.00095966129066828, 6.38014475989249e-06), .Dim = c(2L, 4L), .Dimnames = list(c(\'(Intercept)\', \'M.userY\'), c(\'Estimate\', \'Std. Error\', \'z value\', \'Pr(>|z|)\'))), aliased = structure(c(FALSE, FALSE), .Names = c(\'(Intercept)\', \'M.userY\')), dispersion = 1, df = c(2L, 10L, 2L), cov.unscaled = structure(c(0.00776670347500679, -0.00776670347500679, -0.00776670347500679, 0.0162339828963334), .Dim = c(2L, 2L), .Dimnames = list(c(\'(Intercept)\', \'M.userY\'), c(\'(Intercept)\', \'M.userY\'))), cov.scaled = structure(c(0.00776670347500679, -0.00776670347500679, -0.00776670347500679, 0.0162339828963334), .Dim = c(2L, 2L), .Dimnames = list(c(\'(Intercept)\', \'M.userY\'), c(\'(Intercept)\', \'M.userY\'))));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist7() {
+ assertEval("argv <- list(class = \'try-error\', condition = structure(list(message = \'(converted from warning) NAs produced\', call = quote(rnorm(1, sd = Inf))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist8() {
+ assertEval("argv <- list(upper = quote(~M.user * Temp * Soft));list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist9() {
+ assertEval("argv <- list(label = \'\', x = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), y = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), just = \'centre\', hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = NULL, gp = structure(list(), class = \'gpar\'), vp = NULL);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]],argv[[8]],argv[[9]],argv[[10]],argv[[11]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist10() {
+ assertEval("argv <- list(linkfun = function (mu) .Call(C_logit_link, mu), linkinv = function (eta) .Call(C_logit_linkinv, eta), mu.eta = function (eta) .Call(C_logit_mu_eta, eta), valideta = function (eta) TRUE, name = \'logit\');list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist11() {
+ assertEval("argv <- list(linkfun = function (mu) log(mu), linkinv = function (eta) pmax(exp(eta), .Machine$double.eps), mu.eta = function (eta) pmax(exp(eta), .Machine$double.eps), valideta = function (eta) TRUE, name = \'log\');list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist12() {
+ assertEval("argv <- list(class = \'try-error\', condition = structure(list(message = \'(converted from warning) NAs produced\', call = quote(rnorm(2, numeric()))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist13() {
+ assertEval("argv <- list(class = \'try-error\', condition = structure(list(message = \'undefined columns selected\', call = quote(`[.data.frame`(dd, , \'x\'))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist14() {
+ assertEval("argv <- list(error = function (e) -1);list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist15() {
+ assertEval("argv <- list(error = function (e) warning(gettextf(\'%s namespace cannot be unloaded:\\n \', sQuote(pkgname)), conditionMessage(e), call. = FALSE, domain = NA));list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist16() {
+ assertEval("argv <- list(aa = structure(c(\'1\', \'2\', \'3\'), class = \'AsIs\'), ..dfd.row.names = structure(c(\'4\', \'5\', \'6\', \'7\', \'8\', \'9\'), .Dim = c(3L, 2L), .Dimnames = list(NULL, c(\'a\', \'b\'))));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist17() {
+ assertEval("argv <- list(deviance.resid = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\')), coefficients = structure(logical(0), .Dim = c(0L, 4L), .Dimnames = list(NULL, c(\'Estimate\', \'Std. Error\', \'t value\', \'Pr(>|t|)\'))), aliased = structure(TRUE, .Names = \'x\'), dispersion = 0.274035772634541, df = c(0L, 10L, 1L), cov.unscaled = structure(logical(0), .Dim = c(0L, 0L)), cov.scaled = structure(logical(0), .Dim = c(0L, 0L)));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist18() {
+ assertEval("argv <- list(date = structure(1065672000, class = c(\'POSIXct\', \'POSIXt\'), tzone = \'\'));list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist19() {
+ assertEval("argv <- list(arguments = structure(\'object\', simpleOnly = TRUE), generic = structure(function (object) standardGeneric(\'show\'), generic = structure(\'show\', package = \'methods\'), package = \'methods\', group = list(), valueClass = character(0), signature = structure(\'object\', simpleOnly = TRUE), default = structure(function (object) showDefault(object, FALSE), target = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'object\', package = \'methods\'), defined = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'object\', package = \'methods\'), generic = structure(\'show\', package = \'methods\'), class = structure(\'derivedDefaultMethod\', package = \'methods\')), skeleton = quote((function (object) showDefault(object, FALSE))(object)), class = structure(\'standardGeneric\', package = \'methods\')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist20() {
+ assertEval("argv <- list(\'Residuals vs Fitted\', \'Normal Q-Q\', \'Scale-Location\', \'Cook's distance\', \'Residuals vs Leverage\', expression(\'Cook's dist vs Leverage \' * h[ii]/(1 - h[ii])));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist21() {
+ assertEval("argv <- list(Df = structure(c(NA, 2, 1), .Names = c(\'<none>\', \'Soft\', \'M.user:Temp\')), Deviance = structure(c(8.44399377410362, 8.2279889309135, 5.65604443125997), .Names = c(\'<none>\', \'Soft\', \'M.user:Temp\')), AIC = structure(c(72.1419514890413, 75.9259466458512, 71.3540021461976), .Names = c(\'<none>\', \'Soft\', \'M.user:Temp\')));list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist22() {
+ assertEval("argv <- list(structure(TRUE, .Dim = c(1L, 1L)));list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist23() {
+ assertEval("argv <- list(V1 = c(1L, 1L, 2L, 3L), V2 = structure(c(1L, 1L, 2L, 3L), .Label = c(\'A\', \'D\', \'E\'), class = \'factor\'), V3 = c(6, 6, 9, 10));list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist24() {
+ assertEval("argv <- list(structure(1:5, .Tsp = c(-1, 3, 1), class = \'ts\'), structure(1:5, .Tsp = c(1, 5, 1), class = \'ts\'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist25() {
+ assertEval("argv <- list(structure(list(x = 1L, y = structure(1L, .Label = c(\'A\', \'D\', \'E\'), class = \'factor\'), z = 6), .Names = c(\'x\', \'y\', \'z\'), row.names = 1L, class = \'data.frame\'), structure(list(), .Names = character(0), row.names = 1L, class = \'data.frame\'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist26() {
+ assertEval("argv <- list(1L, 3.14159265358979, 3+5i, \'testit\', TRUE, structure(1L, .Label = \'foo\', class = \'factor\'));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist27() {
+ assertEval("argv <- list(structure(c(24L, 13L, 15L, 68L, 39L, 74L, 22L, 1L, 8L, 55L, 24L, 20L, 51L, 13L, 3L, 4L, 5L, 6L, 15L, 2L, 8L, 60L, 67L, 23L, 58L, 24L, 22L, 21L, 37L, 74L, 59L, 39L, 14L, 14L, 19L, 23L, 70L, 21L, 22L, 31L, 29L, 30L, 45L, 58L, 17L, 7L, 19L, 26L, 39L, 74L, 57L, 59L, 12L, 72L, 70L, 37L, 64L, 16L, 18L, 21L, 22L, 8L, 62L, 61L, 63L, 71L, 105L, 64L, 10L, 41L, 8L, 27L, 11L, 34L, 32L, 33L, 68L, 107L, NA, 66L, NA, 65L, 48L, 52L, 43L, 47L, 46L, 44L, 41L, 54L, 28L, 50L, 40L, NA, 69L, NA, 75L, 109L, NA, 86L, 112L, 110L, 104L, 24L, 111L, 87L, NA, NA, 92L, 73L, 85L, 90L, 89L, NA, 83L, NA, 102L, NA, 108L, 88L, 91L, 93L, NA, 94L, 84L, NA, 106L, NA, 95L, 82L, 56L, 87L, 109L, 75L, 104L, 110L, 112L, 111L, 24L, 73L, 85L, 86L, 90L, 89L, 102L, 88L, 92L, 9L, 49L, 42L, 38L, 35L, 36L, 25L, NA, NA, 9L, 49L, 42L, NA, 36L, 38L, 25L, 53L, 79L, 78L, 103L, 77L, 80L, 114L, 97L, 113L, 76L, 96L, 81L, 116L, 99L, 117L, 115L, 98L, 101L, 100L), .Label = c(\'1008\', \'1011\', \'1013\', \'1014\', \'1015\', \'1016\', \'1027\', \'1028\', \'1030\', \'1032\', \'1051\', \'1052\', \'1083\', \'1093\', \'1095\', \'1096\', \'110\', \'1102\', \'111\', \'1117\', \'112\', \'113\', \'116\', \'117\', \'1219\', \'125\', \'1250\', \'1251\', \'126\', \'127\', \'128\', \'1291\', \'1292\', \'1293\', \'1298\', \'1299\', \'130\', \'1308\', \'135\', \'1376\', \'1377\', \'1383\', \'1408\', \'1409\', \'141\', \'1410\', \'1411\', \'1413\', \'1418\', \'1422\', \'1438\', \'1445\', \'1456\', \'1492\', \'2001\', \'2316\', \'262\', \'266\', \'269\', \'270\', \'2708\', \'2714\', \'2715\', \'272\', \'2728\', \'2734\', \'280\', \'283\', \'286\', \'290\', \'3501\', \'411\', \'412\', \'475\', \'5028\', \'5042\', \'5043\', \'5044\', \'5045\', \'5047\', \'5049\', \'5050\', \'5051\', \'5052\', \'5053\', \'5054\', \'5055\', \'5056\', \'5057\', \'5058\', \'5059\', \'5060\', \'5061\', \'5062\', \'5066\', \'5067\', \'5068\', \'5069\', \'5070\', \'5072\', \'5073\', \'5115\', \'5160\', \'5165\', \'655\', \'724\', \'885\', \'931\', \'942\', \'952\', \'955\', \'958\', \'c118\', \'c168\', \'c203\', \'c204\', \'c266\'), class = \'factor\'));list(argv[[1]]);");
+ }
+
+ @Test
+ public void testlist28() {
+ assertEval("argv <- list(3.14159265358979, \'C\', NaN, Inf, 1:3, c(0, NA), NA);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist29() {
+ assertEval("argv <- list(assign = c(0L, 1L, 1L, 1L), qr = structure(list(qr = structure(c(-28.8270706107991, 0.273146306828071, 0.312206540911182, 0.247733407426682, 0.216636580341913, 0.0849718577324175, 0.298411357268471, 0.294351149612123, 0.247733407426682, 0.308328048219576, 0.125075187976724, 0.138758462627192, 0.190002850064127, 0.1835601922086, 0.232705016165824, 0.069379231313596, 0.120168353625222, 0.222121918799273, 0.190002850064127, 0.247733407426682, 0.0917800961043001, -10.2334366187554, 13.7940847818881, 0.190374922931528, 0.151060987411652, 0.132099001405849, -0.125761881229701, -0.441661211981173, -0.435651935890569, -0.366655739827817, -0.45633832676795, -0.185116476853374, 0.084611076858457, 0.115858488525451, 0.111929933764425, 0.141897089628727, 0.0423055384292285, 0.0732753420009814, 0.13544380924692, 0.115858488525451, 0.151060987411652, 0.0559649668822123, -4.26682272578616, -3.16543363464969, 9.7352069177467, 0.118607830555703, 0.10371953900067, 0.00616533725634264, 0.0216519528674631, 0.0213573547475655, 0.0179748924786157, 0.0223714822011986, 0.00907513071804667, -0.344446140042991, -0.471652301867824, -0.45565941330494, -0.577653737792655, -0.172223070021495, 0.0575332486360618, 0.106345765721762, 0.0909680534393656, 0.118607830555703, 0.0439417444752447, -4.89123580760852, -3.62866782508622, -3.32364207119197, 9.63649238427318, 0.135617489972887, 0.00806142768852949, 0.0283108036266689, 0.0279256046761512, 0.0235028985277947, 0.0292516173165799, 0.0118661002643811, 0.0254562434016423, 0.0348573968510539, 0.0336754446773372, 0.0426914180233895, 0.0127281217008212, -0.284250391934964, -0.525414891452651, -0.449439332155022, -0.585997195035538, -0.217099822893807), assign = c(0L, 1L, 1L, 1L), contrasts = structure(list(trt = \'contr.treatment\'), .Names = \'trt\'), .Dim = c(21L, 4L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\'), c(\'(Intercept)\', \'trt2\', \'trt3\', \'trt4\'))), qraux = c(1.21663658034191, 1.16655707135303, 1.14947576464323, 1.15508453302121), pivot = 1:4, tol = 1e-07, rank = 4L), .Names = c(\'qr\', \'qraux\', \'pivot\', \'tol\', \'rank\'), class = \'qr\'), df.residual = 17L);list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist30() {
+ assertEval("argv <- list(function (x, i, j, ...) x@aa[[i]]);list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist31() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = 2:3, .Dimnames = list(NULL, c(\'a\', \'b\', \'c\'))), structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L, 5L)), TRUE);list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist32() {
+ assertEval("argv <- list(structure(function (e1, e2) standardGeneric(\'Ops\'), generic = structure(\'Ops\', package = \'base\'), package = \'base\', group = list(), valueClass = character(0), signature = c(\'e1\', \'e2\'), default = quote(`\\001NULL\\001`), skeleton = quote((function (e1, e2) stop(\'invalid call in method dispatch to 'Ops' (no default method)\', domain = NA))(e1, e2)), groupMembers = list(\'Arith\', \'Compare\', \'Logic\'), class = structure(\'groupGenericFunction\', package = \'methods\')));list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist33() {
+ assertEval("argv <- list(tables = structure(list(`Grand mean` = 103.87323943662, N = structure(c(78.7365206866197, 98.5088731171753, 113.842206450509, 123.008873117175), .Dim = 4L, .Dimnames = structure(list(N = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\')), .Names = \'N\'), class = \'mtable\'), `V:N` = structure(c(79.5323303457107, 86.1989970123773, 69.7732394366197, 98.0323303457106, 108.032330345711, 89.1989970123773, 114.198997012377, 116.698997012377, 110.365663679044, 124.365663679044, 126.365663679044, 118.032330345711), .Dim = 3:4, .Dimnames = structure(list(V = c(\'Golden.rain\', \'Marvellous\', \'Victory\'), N = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\')), .Names = c(\'V\', \'N\')), class = \'mtable\')), .Names = c(\'Grand mean\', \'N\', \'V:N\')), n = structure(list(N = structure(c(17, 18, 18, 18), .Dim = 4L, .Dimnames = structure(list(N = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\')), .Names = \'N\')), `V:N` = structure(c(6, 6, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6), .Dim = 3:4, .Dimnames = structure(list(V = c(\'Golden.rain\', \'Marvellous\', \'Victory\'), N = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\')), .Names = c(\'V\', \'N\')))), .Names = c(\'N\', \'V:N\')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist34() {
+ assertEval("argv <- list(itemBullet = \'• \');list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist35() {
+ assertEval("argv <- list(class = \'try-error\', condition = structure(list(message = \'more columns than column names\', call = quote(read.table(\'foo6\', header = TRUE))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\')));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist36() {
+ assertEval("argv <- list(name = \'list\', objs = structure(list(`package:base` = .Primitive(\'list\'), .Primitive(\'list\')), .Names = c(\'package:base\', \'\')), where = c(\'package:base\', \'namespace:base\'), visible = c(TRUE, FALSE), dups = c(FALSE, TRUE));list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist37() {
+ assertEval("argv <- list(structure(-1.81670076485116, .Names = \'5%\'), structure(c(-0.569903669351869, -3.58817618394987, 1.7002237104195, 0.247262299686774, -1.6099565644337, -0.117004990933267, 2.26201852051082, 1.27765184061634, -0.585159452768219, 0.777745165779344, -0.299055554574658, -0.10613560158199, -0.96347850905908, 2.01298478288055, -0.65898967614864, 0.497719980170775, 0.113843920033269, -0.766958149949393, 3.9222560854539, -0.936533336103743, 0.287536526568389, -1.36853788163704, 0.875060974238616, 6.63795852562496, -1.7181964535622, -1.84566355665129, -2.51563250429738, -0.197885450775488, 0.343408036526242, 0.0203380393884578, 0.207160904400713, 0.869565410777187, -0.815315222368209, -0.0998963343276999, 0.656114271672876, 1.27566552196184, 0.0658788246994603, -1.69200573781689, -0.0369929356350034, -0.342061734014624, 0.31798622848054, -1.52242182038666, -1.33617654990952, 0.0175687049379899, -0.093090859182165, -0.0507330478224399, -0.431715933999334, 0.37428759377223, -1.51710077889452, 0.148230661369186, 0.214909263767934, 0.178494903424769, -2.69339417614172, 0.644025806665703, -0.287978582462478, 3.36345700350871, 1.39656784449323, -0.344866954524567, -0.270662469024608, -1.32424067954204), .Dim = 60L, .Dimnames = list(c(\'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\'))), c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L));list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void testlist38() {
+ assertEval("argv <- list(srcfile = \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', frow = 1271L, lrow = 1273L);list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist39() {
+ assertEval("argv <- list(structure(list(srcfile = c(\'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\'), frow = c(6889L, 6893L, 6897L, 6901L, 6902L, 6903L, 6903L, 6917L, 6918L, 6919L, 6919L, 6927L, 6928L), lrow = c(6889L, 6893L, 6900L, 6901L, 6902L, 6903L, 6903L, 6917L, 6918L, 6919L, 6919L, 6927L, 6928L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, 13L), class = \'data.frame\'), structure(list( srcfile = \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', frow = 6928L, lrow = 6928L), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, -1L), class = \'data.frame\'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testlist40() {
+ assertEval("argv <- list(x = c(190, 118, 149, 313, NA, NA, 299, 99, 19, 194, NA, 256, 290, 274, 65, 334, 307, 78, 322, 44, 8, 320, 25, 92, 66, 266, NA, 13, 252, 223, 279, 286, 287, 242, 186, 220, 264, 127, 273, 291, 323, 259, 250, 148, 332, 322, 191, 284, 37, 120, 137, 150, 59, 91, 250, 135, 127, 47, 98, 31, 138, 269, 248, 236, 101, 175, 314, 276, 267, 272, 175, 139, 264, 175, 291, 48, 260, 274, 285, 187, 220, 7, 258, 295, 294, 223, 81, 82, 213, 275, 253, 254, 83, 24, 77, NA, NA, NA, 255, 229, 207, 222, 137, 192, 273, 157, 64, 71, 51, 115, 244, 190, 259, 36, 255, 212, 238, 215, 153, 203, 225, 237, 188, 167, 197, 183, 189, 95, 92, 252, 220, 230, 259, 236, 259, 238, 24, 112, 237, 224, 27, 238, 201, 238, 14, 139, 49, 20, 193, 145, 191, 131, 223), y = c(7.4, 8, 12.6, 11.5, 14.3, 14.9, 8.6, 13.8, 20.1, 8.6, 6.9, 9.7, 9.2, 10.9, 13.2, 11.5, 12, 18.4, 11.5, 9.7, 9.7, 16.6, 9.7, 12, 16.6, 14.9, 8, 12, 14.9, 5.7, 7.4, 8.6, 9.7, 16.1, 9.2, 8.6, 14.3, 9.7, 6.9, 13.8, 11.5, 10.9, 9.2, 8, 13.8, 11.5, 14.9, 20.7, 9.2, 11.5, 10.3, 6.3, 1.7, 4.6, 6.3, 8, 8, 10.3, 11.5, 14.9, 8, 4.1, 9.2, 9.2, 10.9, 4.6, 10.9, 5.1, 6.3, 5.7, 7.4, 8.6, 14.3, 14.9, 14.9, 14.3, 6.9, 10.3, 6.3, 5.1, 11.5, 6.9, 9.7, 11.5, 8.6, 8, 8.6, 12, 7.4, 7.4, 7.4, 9.2, 6.9, 13.8, 7.4, 6.9, 7.4, 4.6, 4, 10.3, 8, 8.6, 11.5, 11.5, 11.5, 9.7, 11.5, 10.3, 6.3, 7.4, 10.9, 10.3, 15.5, 14.3, 12.6, 9.7, 3.4, 8, 5.7, 9.7, 2.3, 6.3, 6.3, 6.9, 5.1, 2.8, 4.6, 7.4, 15.5, 10.9, 10.3, 10.9, 9.7, 14.9, 15.5, 6.3, 10.9, 11.5, 6.9, 13.8, 10.3, 10.3, 8, 12.6, 9.2, 10.3, 10.3, 16.6, 6.9, 13.2, 14.3, 8, 11.5), xlab = NULL, ylab = NULL);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist41() {
+ assertEval("argv <- list(properties = structure(list(.Data = \'numeric\', comment = \'character\'), .Names = c(\'.Data\', \'comment\')), prototype = structure(3.14159265358979, comment = \'Start with pi\'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist42() {
+ assertEval("argv <- list(structure(c(NA, NA, FALSE), .Names = c(\'perm\', \'LDL\', \'super\')));list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist43() {
+ assertEval("argv <- list(raster = structure(\'#000000\', .Dim = c(1L, 1L), class = \'raster\'), x = structure(0, unit = \'npc\', valid.unit = 0L, class = \'unit\'), y = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), width = NULL, height = NULL, just = \'centre\', hjust = NULL, vjust = NULL, interpolate = TRUE, name = NULL, gp = structure(list(), class = \'gpar\'), vp = NULL);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]],argv[[8]],argv[[9]],argv[[10]],argv[[11]],argv[[12]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist44() {
+ assertEval("argv <- list(trace = 0, fnscale = 1, parscale = 1, ndeps = 0.001, maxit = 100L, abstol = -Inf, reltol = 1.49011611938477e-08, alpha = 1, beta = 0.5, gamma = 2, REPORT = 10, type = 1, lmm = 5, factr = 1e+07, pgtol = 0, tmax = 10, temp = 10);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]],argv[[5]],argv[[6]],argv[[7]],argv[[8]],argv[[9]],argv[[10]],argv[[11]],argv[[12]],argv[[13]],argv[[14]],argv[[15]],argv[[16]],argv[[17]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist45() {
+ assertEval("argv <- list(error = function (...) {});list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist46() {
+ assertEval("argv <- list(structure(list(srcfile = c(NA, \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R\'), frow = c(NA, 832L, 833L, 834L, 842L, 845L, 845L, 849L, 858L, 860L, 862L, 863L), lrow = c(NA, 832L, 833L, 834L, 842L, 846L, 846L, 851L, 859L, 860L, 862L, 863L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, 12L), class = \'data.frame\'), structure(list( srcfile = \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/lmList.R\', frow = 863L, lrow = 863L), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, -1L), class = \'data.frame\'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist48() {
+ assertEval("argv <- list(structure(list(Month = c(5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L)), .Names = \'Month\', class = \'data.frame\', row.names = c(1L, 2L, 3L, 4L, 6L, 7L, 8L, 9L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 28L, 29L, 30L, 31L, 38L, 40L, 41L, 44L, 47L, 48L, 49L, 50L, 51L, 62L, 63L, 64L, 66L, 67L, 68L, 69L, 70L, 71L, 73L, 74L, 76L, 77L, 78L, 79L, 80L, 81L, 82L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L, 97L, 98L, 99L, 100L, 101L, 104L, 105L, 106L, 108L, 109L, 110L, 111L, 112L, 113L, 114L, 116L, 117L, 118L, 120L, 121L, 122L, 123L, 124L, 125L, 126L, 127L, 128L, 129L, 130L, 131L, 132L, 133L, 134L, 135L, 136L, 137L, 138L, 139L, 140L, 141L, 142L, 143L, 144L, 145L, 146L, 147L, 148L, 149L, 151L, 152L, 153L)));list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist49() {
+ assertEval("argv <- list(structure(list(stats = c(7, 35, 60, 80, 135), n = 26L, conf = c(46.0561427916751, 73.9438572083249), out = integer(0)), .Names = c(\'stats\', \'n\', \'conf\', \'out\')));list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist50() {
+ assertEval("argv <- list(\'‘\', \'Matrix\', \'’\');list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void testlist51() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist52() {
+ assertEval("argv <- list(structure(1386392034.50546, class = c(\'POSIXct\', \'POSIXt\')));list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist53() {
+ assertEval("argv <- list(structure(list(sec = 54.5054557323456, min = 53L, hour = 23L, mday = 6L, mon = 11L, year = 113L, wday = 5L, yday = 339L, isdst = 0L), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = c(\'\', \'EST\', \'EDT\')));list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist54() {
+ assertEval("argv <- list(values = c(0.266917355843816, 0.00557315714782281, 0.00229578896250102, 0.000615239459643172, 8.19421206363694e-05), vectors = structure(c(-0.452472222108953, -0.386550651250976, -0.453293999783174, -0.439775552409852, -0.496960255453506, -0.157430201026812, 0.910628681750865, -0.204120426456847, -0.072367418669335, -0.314752194584169, 0.437863914035591, 0.0975567326834968, -0.370843683888789, -0.67178336056532, 0.458192050652246, 0.752103796361061, -0.0893037594956476, 0.0198033027727173, 0.0214021063919376, -0.652314722415877, 0.114453887261006, -0.0619800003080987, -0.784182499538679, 0.591277842073673, 0.136040832629847), .Dim = c(5L, 5L)));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist55() {
+ assertEval("argv <- list(object = c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));list(argv[[1]]);");
+ }
+
+ @Test
+ public void testlist56() {
+ assertEval("argv <- list(class = \'data.frame\', row.names = c(NA, 32L));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist57() {
+ assertEval("argv <- list(structure(list(srcfile = c(\'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\'), frow = 164:165, lrow = c(164L, 169L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = 1:2, class = \'data.frame\'), structure(list(srcfile = \'/home/lzhao/tmp/Rtmpe5iuYI/R.INSTALL2aa854a74188/foreign/R/spss.R\', frow = 170L, lrow = 177L), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, -1L), class = \'data.frame\'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist58() {
+ assertEval("argv <- list(structure(FALSE, .Names = \'Series 1\', .Tsp = c(0, 0, 1), class = \'ts\'), structure(FALSE, .Names = \'Series 1\', .Tsp = c(1, 1, 1), class = \'ts\'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist59() {
+ assertEval("argv <- list(structure(FALSE, .Tsp = c(1, 1, 1), class = \'ts\'), structure(FALSE, .Tsp = c(1, 1, 1), class = \'ts\'));list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist60() {
+ assertEval("argv <- list(Depends = structure(logical(0), .Dim = c(0L, 3L)), Installed = structure(logical(0), .Dim = c(0L, 3L)), R = structure(logical(0), .Dim = c(0L, 3L)));list(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist61() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(12L, 1L), .Dimnames = structure(list(` p L s` = c(\'. . .\', \'| . .\', \'. | .\', \'| | .\', \'. . |\', \'| . |\', \'. | |\', \'| | |\', \'. . ?\', \'| . ?\', \'. | ?\', \'| | ?\'), NULL), .Names = c(\' p L s\', \'\'))));list(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist62() {
+ assertEval("argv <- list(values = c(-2572.90550008339+0i, -915.064609071159+0i, -456.632018115023+0i, 419.980933101553+0i, -366.745362912885+0i, -308.301779528581+0i, -258.104614655539+0i, -208.43876984087+0i, -174.152165416129+0i, 166.131403923756+0i, -153.932564395224+31.248756965275i, -153.932564395224-31.248756965275i, -145.261798316303+0i, -140.969649074553+0i, -109.026224585292+37.27313202252i, -109.026224585292-37.27313202252i, -95.4200045428049+0i, -94.2845517186135+0i, 93.6287479850051+0i, -83.7083948970612+39.7221174209657i, -83.7083948970612-39.7221174209657i, -89.7405335285911+14.6972603541884i, -89.7405335285911-14.6972603541884i, -90.4677652619726+0i, 80.9227484547009+0i, -79.2808369338756+0i, -67.7641499054793+34.4882180369511i, -67.7641499054793-34.4882180369511i, -74.7131802385517+0i, -72.7892236613541+0i, -70.8748882290923+0i, -65.326216345093+24.6325729497989i, -65.326216345093-24.6325729497989i, -65.6613463045206+12.2012477360608i, -65.6613463045206-12.2012477360608i, -64.009437139127+0i, -53.8555784147338+28.3814233344012i, -53.8555784147338-28.3814233344012i, -60.372612826631+0i, -55.598407412763+0i, -53.8337490558365+13.1765372798343i, -53.8337490558365-13.1765372798343i, -48.7010835501729+24.5244827641945i, -48.7010835501729-24.5244827641945i, -51.620171425175+0i, -49.1047272072286+7.0804434036442i, -49.1047272072286-7.0804434036442i, -44.0755122578262+21.8965512206582i, -44.0755122578262-21.8965512206582i, -47.6686025497685+0i, -47.0350049752776+0i, 43.2054741656531+0i, -42.0546965543942+0i, -41.4311176038551+0i, -36.4574226401686+16.1634950480082i, -36.4574226401686-16.1634950480082i, -39.2901755793811+0i, -36.5376333751307+11.2152902727145i, -36.5376333751307-11.2152902727145i, -38.0398197891428+0i, -32.9946255929378+12.9867445602001i, -32.9946255929378-12.9867445602001i, -34.7321001383969+0i, -32.0667502593492+12.342590095597i, -32.0667502593492-12.342590095597i, -27.2830437098322+11.6992356475951i, -27.2830437098322-11.6992356475951i, -29.1247671355682+2.0847233845627i, -29.1247671355682-2.0847233845627i, -28.1216021055426+0i, -27.0745572919711+0i, 26.1565478253913+0i, -23.4210302095847+1.8723763695687i, -23.4210302095847-1.8723763695687i, 20.782836979896+0i, 16.5058357149619+0i, -15.9316203363047+0i, 13.2377600042936+0i, -11.9119569568831+0i, -11.1832867499603+0i, 8.99100195370794+0i, 7.62805946796798+0i, -7.44159556589097+0i, -6.46699019595805+0i, 5.57838460483725+0i, 5.07382264677001+0i, -4.77172378340461+0i, 4.21976444063592+0i, -2.86123099075901+0i, -2.69814683135512+0i, -2.29820560404041+0i, 2.05951624519943+0i, -1.8306332549612+0i, 1.66021670517454+0i, 1.03505989993491+0i, -0.773887754953459+0i, -0.416100454072758+0i, 0.213086170361661+0i, -3.42336062193255e-06+0i, 3.42336057523814e-06+0i), vectors = NULL);list(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testlist63() {
+ assertEval("argv <- list(x = 2.28125, y = 1.70580465116279, xlab = NULL, ylab = NULL);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist64() {
+ assertEval("argv <- list(fit = structure(numeric(0), .Dim = c(10L, 0L), constant = 0), se.fit = structure(numeric(0), .Dim = c(10L, 0L)), df = 10L, residual.scale = 0.523484262069588);list(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlist65() {
+ assertEval("argv <- list(ANY = structure(function (x, y = NULL) .Internal(crossprod(x, y)), target = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), defined = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), generic = structure(\'crossprod\', package = \'base\'), class = structure(\'derivedDefaultMethod\', package = \'methods\')));list(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlistdirs.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlistdirs.java
new file mode 100644
index 0000000000000000000000000000000000000000..6eabc616b51fb2107792c69f3c18480feff6d4db
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlistdirs.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinlistdirs extends TestBase {
+
+ @Test
+ @Ignore
+ public void testlistdirs1() {
+ assertEval("argv <- list(\'/home/lzhao/hg/r-instrumented/library/rpart/doc\', TRUE, FALSE); .Internal(list.dirs(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlistfiles.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlistfiles.java
new file mode 100644
index 0000000000000000000000000000000000000000..a44116587084f18b4b31f4e22091cdfdecebaf7f
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlistfiles.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinlistfiles extends TestBase {
+
+ @Test
+ @Ignore
+ public void testlistfiles1() {
+ assertEval("argv <- list(\'.\', \'myTst_.*tar\\\\.gz$\', FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(list.files(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testlistfiles2() {
+ assertEval("argv <- list(\'./myTst/data\', NULL, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(list.files(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testlistfiles3() {
+ assertEval("argv <- list(\'.\', \'^CITATION.*\', FALSE, FALSE, TRUE, FALSE, FALSE, FALSE); .Internal(list.files(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testlistfiles4() {
+ assertEval("argv <- list(\'mgcv\', NULL, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE); .Internal(list.files(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlog10.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlog10.java
new file mode 100644
index 0000000000000000000000000000000000000000..32efbdc946a351da1797b0448862d6f2ce9f318e
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlog10.java
@@ -0,0 +1,57 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinlog10 extends TestBase {
+
+ @Test
+ public void testlog101() {
+ assertEval("argv <- list(c(0.047, 0.013, 0.002, 1e-04, 2.3e-05, 4.5e-06));log10(argv[[1]]);");
+ }
+
+ @Test
+ public void testlog102() {
+ assertEval("argv <- list(1.529e+302);log10(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlog103() {
+ assertEval("argv <- list(structure(7.94649180820227e-05, .Names = \'value\'));log10(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlog104() {
+ assertEval("argv <- list(c(0.0654707112145738, 0.999999999999999));log10(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlog105() {
+ assertEval("argv <- list(structure(c(160.1, 129.7, 84.8, 120.1, 160.1, 124.9, 84.8, 116.9, 169.7, 140.9, 89.7, 123.3, 187.3, 144.1, 92.9, 120.1, 176.1, 147.3, 89.7, 123.3, 185.7, 155.3, 99.3, 131.3, 200.1, 161.7, 102.5, 136.1, 204.9, 176.1, 112.1, 140.9, 227.3, 195.3, 115.3, 142.5, 244.9, 214.5, 118.5, 153.7, 244.9, 216.1, 188.9, 142.5, 301, 196.9, 136.1, 267.3, 317, 230.5, 152.1, 336.2, 371.4, 240.1, 158.5, 355.4, 449.9, 286.6, 179.3, 403.4, 491.5, 321.8, 177.7, 409.8, 593.9, 329.8, 176.1, 483.5, 584.3, 395.4, 187.3, 485.1, 669.2, 421, 216.1, 509.1, 827.7, 467.5, 209.7, 542.7, 840.5, 414.6, 217.7, 670.8, 848.5, 437, 209.7, 701.2, 925.3, 443.4, 214.5, 683.6, 917.3, 515.5, 224.1, 694.8, 989.4, 477.1, 233.7, 730, 1087, 534.7, 281.8, 787.6, 1163.9, 613.1, 347.4, 782.8), .Tsp = c(1960, 1986.75, 4), class = \'ts\'));log10(argv[[1]]);");
+ }
+
+ @Test
+ public void testlog106() {
+ assertEval("argv <- list(c(10, 100, 1000, 10000, 1e+05));log10(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlog107() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(20L, 0L), .Dimnames = list(c(\'ant\', \'bee\', \'cat\', \'cpl\', \'chi\', \'cow\', \'duc\', \'eag\', \'ele\', \'fly\', \'fro\', \'her\', \'lio\', \'liz\', \'lob\', \'man\', \'rab\', \'sal\', \'spi\', \'wha\'), NULL)));log10(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlog1p.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlog1p.java
new file mode 100644
index 0000000000000000000000000000000000000000..35c86440bedbee3af30598801177c8ee4b6d4cd3
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlog1p.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinlog1p extends TestBase {
+
+ @Test
+ @Ignore
+ public void testlog1p1() {
+ assertEval("argv <- list(c(-0.160475096572577, -0.953101214495634, -0.329547420118877, -0.234819677566528, -0.108178529791777, -0.0994458210555148, -0.282992873965743, -0.731707656126625, -0.866467764292465, -0.76039953639421, -0.3580569675068, -0.52382260076554, -0.240530699925064, -0.236619747356161, -0.811827419307205, -0.154911720192001, -0.97472580847241, -0.464016625026599, -0.58493655376716, -0.230096919024049));log1p(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlog1p2() {
+ assertEval("argv <- list(-7e-04);log1p(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlog2.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlog2.java
new file mode 100644
index 0000000000000000000000000000000000000000..b61c0417d3487179ac54117f9273840d8dbd0822
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlog2.java
@@ -0,0 +1,34 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinlog2 extends TestBase {
+
+ @Test
+ public void testlog21() {
+ assertEval("argv <- list(48L);log2(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testlog22() {
+ assertEval("argv <- list(FALSE);log2(argv[[1]]);");
+ }
+
+ @Test
+ public void testlog23() {
+ assertEval("argv <- list(2.2250738585072e-308);log2(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmakenames.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmakenames.java
new file mode 100644
index 0000000000000000000000000000000000000000..7690d44a67a7ba354c9a31aca274e4caf3bd1b93
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmakenames.java
@@ -0,0 +1,84 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinmakenames extends TestBase {
+
+ @Test
+ @Ignore
+ public void testmakenames1() {
+ assertEval("argv <- list(\'head\', TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmakenames2() {
+ assertEval("argv <- list(\'FALSE\', TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmakenames3() {
+ assertEval("argv <- list(c(\'.Call\', \'.Call numParameters\', \'.Fortran\', \'.Fortran numParameters\'), TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmakenames4() {
+ assertEval("argv <- list(\'..adfl.row.names\', TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmakenames5() {
+ assertEval("argv <- list(c(\'name\', \'title\', \'other.author\'), TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmakenames6() {
+ assertEval("argv <- list(\'.2a\', TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmakenames7() {
+ assertEval("argv <- list(\'\', TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmakenames8() {
+ assertEval("argv <- list(NA_character_, TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmakenames9() {
+ assertEval("argv <- list(c(\'Subject\', \'predict.fixed\', \'predict.Subject\'), TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmakenames10() {
+ assertEval("argv <- list(c(\'\', \'\', \'bady\'), TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmakenames11() {
+ assertEval("argv <- list(character(0), TRUE); .Internal(make.names(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmakeunique.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmakeunique.java
new file mode 100644
index 0000000000000000000000000000000000000000..a30561f44db8aed779aaa60b96a4b1313e03b42f
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmakeunique.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinmakeunique extends TestBase {
+
+ @Test
+ @Ignore
+ public void testmakeunique1() {
+ assertEval("argv <- list(c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\'), \'.\'); .Internal(make.unique(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmakeunique2() {
+ assertEval("argv <- list(c(\'b\', \'NA\', \'NA\'), \'.\'); .Internal(make.unique(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmakeunique3() {
+ assertEval("argv <- list(c(\'1\', \'2\', \'3\', \'6\', \'7\', \'7\', \'7\', \'8\', \'8\', \'10\', \'11\', \'12\', \'12\', \'12\', \'15\', \'15\', \'16\', \'17\', \'19\', \'20\', \'21\', \'21\', \'23\'), \'.\'); .Internal(make.unique(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmakeunique4() {
+ assertEval("argv <- list(character(0), \'.\'); .Internal(make.unique(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmapply.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmapply.java
new file mode 100644
index 0000000000000000000000000000000000000000..43cf6f06edb6404219b514afcc7eda303a3f3361
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmapply.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinmapply extends TestBase {
+
+ @Test
+ @Ignore
+ public void testmapply1() {
+ assertEval("argv <- list(.Primitive(\'c\'), list(list(), list(), list()), NULL); .Internal(mapply(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmatch.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmatch.java
new file mode 100644
index 0000000000000000000000000000000000000000..115aa016e4ec383f792029d6524e3e569e788433
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmatch.java
@@ -0,0 +1,187 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinmatch extends TestBase {
+
+ @Test
+ public void testmatch1() {
+ assertEval("argv <- list(\'corMatrix\', c(\'dpoMatrix\', \'dsyMatrix\', \'ddenseMatrix\', \'symmetricMatrix\', \'dMatrix\', \'denseMatrix\', \'compMatrix\', \'Matrix\', \'mMatrix\'), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch2() {
+ assertEval("argv <- list(c(\'ANY\', \'abIndex\', \'ddenseMatrix\', \'diagonalMatrix\', \'dsparseMatrix\', \'lMatrix\', \'nMatrix\', \'nsparseVector\', \'pMatrix\', \'sparseVector\'), \'ANY\', NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch3() {
+ assertEval("argv <- list(character(0), NA_integer_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatch4() {
+ assertEval("argv <- list(c(\'1\', \'2\', NA), NA_real_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch5() {
+ assertEval("argv <- list(c(0.00711247435174189, 0.251292124343149, -0.319172743733056, 5.75733114833721e-05, -0.35788385867217, -0.423873493915367, -0.440922191441033, 0.454737405613056, -0.337349081024889, -0.340540089756868, 0.0142999714851724, -0.337349081024889, 0.16929974943645, 0.0119141094780619, 0.0237947544260095, 0.481799107922823, -0.398620160881439, 0.112296211162227, 0.124500575635478, -0.423873493915367, 0.476631055345105, -0.201544176575946, 0.0504435384277691, 0.0142999714851724, 0.0859627732681778, -0.402191440217491, 0.0237947544260095, -0.35788385867217, 0.131606068222389, -0.328335725283617, -0.366873527650917, 0.855944113774621, 0.0506448607016037, -0.540294711232517, 0.365377890605673, 0.122315677921641, 0.122315677921641, 0.476631055345105, 0.0859627732681778, 0.028962807003728, 0.130710526672205, 0.704128425262244, 0.0119141094780619, 0.0506448607016037, 0.0859627732681778, 0.131606068222389, 0.122315677921641, -0.429041546493085, 0.0506448607016037, -0.35788385867217, 0.746844979419744, -0.158827622418446, -0.340540089756868, 0.130710526672205, -0.429041546493085, 0.126579318324608, 0.0119141094780619, 0.251292124343149, -0.283536551482645, 0.107466982896435, 0.586499858105134, -0.402392762491326, -0.85437461044313, 0.133663557186039, -0.328335725283617, 0.124500575635478, 0.0237947544260095, 0.133663557186039, 0.133663557186039, 0.656149860060726, 0.579415619243703, 0.107466982896435, -0.599127482939288, -0.326256982594487, 0.746844979419744, -0.452778727607612, -0.328335725283617, 0.0119141094780619, -0.340540089756868, -0.319172743733056, -0.725390113737062, 0.503481161620698, -0.661275243349858, -0.402392762491326, 0.476631055345105, 0.126579318324608, 0.251292124343149, -0.0874584103134217, 0.107466982896435, -0.201544176575946, 0.0734191385691725), c(-0.85437461044313, -0.725390113737062, -0.661275243349858, -0.599127482939288, -0.540294711232517, -0.452778727607612, -0.440922191441033, -0.429041546493085, -0.423873493915367, -0.402392762491326, -0.402191440217491, -0.398620160881439, -0.366873527650917, -0.35788385867217, -0.340540089756868, -0.337349081024889, -0.328335725283617, -0.326256982594487, -0.319172743733056, -0.283536551482645, -0.201544176575946, -0.158827622418446, -0.0874584103134217, 5.75733114833721e-05, 0.00711247435174189, 0.0119141094780619, 0.0142999714851724, 0.0237947544260095, 0.028962807003728, 0.0504435384277691, 0.0506448607016037, 0.0734191385691725, 0.0859627732681778, 0.107466982896435, 0.112296211162227, 0.122315677921641, 0.124500575635478, 0.126579318324608, 0.130710526672205, 0.131606068222389, 0.133663557186039, 0.16929974943645, 0.251292124343149, 0.365377890605673, 0.454737405613056, 0.476631055345105, 0.481799107922823, 0.503481161620698, 0.579415619243703, 0.586499858105134, 0.656149860060726, 0.704128425262244, 0.746844979419744, 0.855944113774621), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch6() {
+ assertEval("argv <- list(c(\'1008\', \'1011\', \'1013\', \'1014\', \'1015\', \'1016\', \'1027\', \'1028\', \'1030\', \'1032\', \'1051\', \'1052\', \'1083\', \'1093\', \'1095\', \'1096\', \'110\', \'1102\', \'111\', \'1117\', \'112\', \'113\', \'116\', \'117\', \'1219\', \'125\', \'1250\', \'1251\', \'126\', \'127\', \'128\', \'1291\', \'1292\', \'1293\', \'1298\', \'1299\', \'130\', \'1308\', \'135\', \'1376\', \'1377\', \'1383\', \'1408\', \'1409\', \'141\', \'1410\', \'1411\', \'1413\', \'1418\', \'1422\', \'1438\', \'1445\', \'1456\', \'1492\', \'2001\', \'2316\', \'262\', \'266\', \'269\', \'270\', \'2708\', \'2714\', \'2715\', \'272\', \'2728\', \'2734\', \'280\', \'283\', \'286\', \'290\', \'3501\', \'411\', \'412\', \'475\', \'5028\', \'5042\', \'5043\', \'5044\', \'5045\', \'5047\', \'5049\', \'5050\', \'5051\', \'5052\', \'5053\', \'5054\', \'5055\', \'5056\', \'5057\', \'5058\', \'5059\', \'5060\', \'5061\', \'5062\', \'5066\', \'5067\', \'5068\', \'5069\', \'5070\', \'5072\', \'5073\', \'5115\', \'5160\', \'5165\', \'655\', \'724\', \'885\', \'931\', \'942\', \'952\', \'955\', \'958\', \'c118\', \'c168\', \'c203\', \'c204\', \'c266\'), NA_integer_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch7() {
+ assertEval("argv <- list(character(0), c(\'methods\', \'utils\', \'XML\', \'RCurl\'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch8() {
+ assertEval("argv <- list(c(\'0\', \'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\'), NA_real_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch9() {
+ assertEval("argv <- list(c(-1628571, -1628571, -1200000, -1200000, -1057143, -914286, -771429, -771429, -771429, -628571, -628571, -485714, -485714, -485714, -485714, -342857, -342857, -342857, -342857, -2e+05, -2e+05, -2e+05, -2e+05, -57143, -57143, -57143, 85714, 85714, 228571, 228571, 228571, 371429, 371429, 371429, 371429, 514286, 514286, 514286, 657143, 657143, 657143, 657143, 657143, 942857, 1085714, 1228571, 1228571, 1228571, 1228571, 1371429), c(-1628571, -1200000, -1057143, -914286, -771429, -628571, -485714, -342857, -2e+05, -57143, 85714, 228571, 371429, 514286, 657143, 942857, 1085714, 1228571, 1371429), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatch10() {
+ assertEval("argv <- list(structure(1:27, .Label = c(\'M16\', \'M05\', \'M02\', \'M11\', \'M07\', \'M08\', \'M03\', \'M12\', \'M13\', \'M14\', \'M09\', \'M15\', \'M06\', \'M04\', \'M01\', \'M10\', \'F10\', \'F09\', \'F06\', \'F01\', \'F05\', \'F07\', \'F02\', \'F08\', \'F03\', \'F04\', \'F11\'), class = c(\'ordered\', \'factor\')), structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 11L, 11L, 11L, 11L, 12L, 12L, 12L, 12L, 13L, 13L, 13L, 13L, 14L, 14L, 14L, 14L, 15L, 15L, 15L, 15L, 16L, 16L, 16L, 16L, 17L, 17L, 17L, 17L, 18L, 18L, 18L, 18L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 21L, 21L, 21L, 21L, 22L, 22L, 22L, 22L, 23L, 23L, 23L, 23L, 24L, 24L, 24L, 24L, 25L, 25L, 25L, 25L, 26L, 26L, 26L, 26L, 27L, 27L, 27L, 27L), .Label = c(\'M16\', \'M05\', \'M02\', \'M11\', \'M07\', \'M08\', \'M03\', \'M12\', \'M13\', \'M14\', \'M09\', \'M15\', \'M06\', \'M04\', \'M01\', \'M10\', \'F10\', \'F09\', \'F06\', \'F01\', \'F05\', \'F07\', \'F02\', \'F08\', \'F03\', \'F04\', \'F11\'), class = c(\'ordered\', \'factor\')), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatch11() {
+ assertEval("argv <- list(\'g\', \'l\', NA_character_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch12() {
+ assertEval("argv <- list(1:4, 3L, 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch13() {
+ assertEval("argv <- list(c(\'0.5\', \'0.5\', \'0.5\', \'0.5\', \'0.5\'), 0.5, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatch14() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'), structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch15() {
+ assertEval("argv <- list(c(\'May\', \'Jun\', \'Jul\', \'Aug\', \'Sep\'), c(NA, NaN), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch16() {
+ assertEval("argv <- list(c(1L, 2L, 4L, 13L, 14L, 15L, 16L, 17L, 18L, 23L), c(23L, 28L), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch17() {
+ assertEval("argv <- list(c(\'dMatrix\', \'nonStructure\', \'structure\'), c(\'nonStructure\', \'structure\'), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch18() {
+ assertEval("argv <- list(structure(c(0, 1), .Names = c(\'Domestic\', \'Foreign\')), NA_integer_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatch19() {
+ assertEval("argv <- list(structure(list(col = 1, cellvp = structure(list(structure(list(x = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), y = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), width = structure(1, unit = \'npc\', valid.unit = 0L, class = \'unit\'), height = structure(1, unit = \'npc\', valid.unit = 0L, class = \'unit\'), justification = \'centre\', gp = structure(list(), class = \'gpar\'), clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = c(1L, 1L), layout.pos.col = c(1L, 1L), valid.just = c(0.5, 0.5), valid.pos.row = c(1L, 1L), valid.pos.col = c(1L, 1L), name = \'GRID.VP.8\'), .Names = c(\'x\', \'y\', \'width\', \'height\', \'justification\', \'gp\', \'clip\', \'xscale\', \'yscale\', \'angle\', \'layout\', \'layout.pos.row\', \'layout.pos.col\', \'valid.just\', \'valid.pos.row\', \'valid.pos.col\', \'name\'), class = \'viewport\'), structure(list(x = structure(1, unit = \'lines\', valid.unit = 3L, data = list(NULL), class = \'unit\'), y = structure(1, unit = \'lines\', valid.unit = 3L, data = list( NULL), class = \'unit\'), width = structure(list(fname = \'-\', arg1 = structure(1, unit = \'npc\', valid.unit = 0L, class = \'unit\'), arg2 = structure(list(fname = \'sum\', arg1 = structure(c(1, 1), unit = c(\'lines\', \'lines\'), valid.unit = c(3L, 3L), data = list(NULL, NULL), class = \'unit\'), arg2 = NULL), .Names = c(\'fname\', \'arg1\', \'arg2\'), class = c(\'unit.arithmetic\', \'unit\'))), .Names = c(\'fname\', \'arg1\', \'arg2\'), class = c(\'unit.arithmetic\', \'unit\')), height = structure(list(fname = \'-\', arg1 = structure(1, unit = \'npc\', valid.unit = 0L, class = \'unit\'), arg2 = structure(list(fname = \'sum\', arg1 = structure(c(1, 1), unit = c(\'lines\', \'lines\'), valid.unit = c(3L, 3L), data = list(NULL, NULL), class = \'unit\'), arg2 = NULL), .Names = c(\'fname\', \'arg1\', \'arg2\'), class = c(\'unit.arithmetic\', \'unit\'))), .Names = c(\'fname\', \'arg1\', \'arg2\'), class = c(\'unit.arithmetic\', \'unit\')), justification = c(\'left\', \'bottom\'), gp = structure(list(), class = \'gpar\'), clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = NULL, layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0, 0), valid.pos.row = NULL, valid.pos.col = NULL, name = \'GRID.VP.9\'), .Names = c(\'x\', \'y\', \'width\', \'height\', \'justification\', \'gp\', \'clip\', \'xscale\', \'yscale\', \'angle\', \'layout\', \'layout.pos.row\', \'layout.pos.col\', \'valid.just\', \'valid.pos.row\', \'valid.pos.col\', \'name\'), class = \'viewport\')), class = c(\'vpStack\', \'viewport\'))), .Names = c(\'col\', \'cellvp\')), c(\'children\', \'childrenOrder\'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch20() {
+ assertEval("argv <- list(structure(c(1, 1, 6, 2, 2, 7, 3, 3, 7, 3, 3, 8, 4, 4, 4, 5), .Dim = c(16L, 1L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\'), \'y\')), c(1, 2, 3, 4, 5, 6, 7, 8), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch21() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3), .Tsp = c(1959, 1997.91666667, 12), class = \'ts\'), c(0, 1, 2, 3), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch22() {
+ assertEval("argv <- list(c(NA, NA, 3, 4, 5), c(NA, NA, 4, 5), 0L, NA); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch23() {
+ assertEval("argv <- list(structure(\'tools\', .Names = \'name\'), c(\'base\', \'utils\'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatch24() {
+ assertEval("argv <- list(structure(list(framevp = structure(list(x = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), y = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), width = structure(1, unit = \'npc\', valid.unit = 0L, class = \'unit\'), height = structure(1, unit = \'npc\', valid.unit = 0L, class = \'unit\'), justification = \'centre\', gp = structure(list(), class = \'gpar\'), clip = FALSE, xscale = c(0, 1), yscale = c(0, 1), angle = 0, layout = structure(list(nrow = 1L, ncol = 1L, widths = structure(list( fname = \'sum\', arg1 = structure(c(1, 1, 1), unit = c(\'lines\', \'lines\', \'lines\'), valid.unit = c(3L, 3L, 3L), data = list(NULL, NULL, NULL), class = \'unit\'), arg2 = NULL), .Names = c(\'fname\', \'arg1\', \'arg2\'), class = c(\'unit.arithmetic\', \'unit\')), heights = structure(list(fname = \'sum\', arg1 = structure(c(1, 1, 1), unit = c(\'lines\', \'lines\', \'lines\'), valid.unit = c(3L, 3L, 3L), data = list(NULL, NULL, NULL), class = \'unit\'), arg2 = NULL), .Names = c(\'fname\', \'arg1\', \'arg2\'), class = c(\'unit.arithmetic\', \'unit\')), respect = FALSE, valid.respect = 0L, respect.mat = structure(0L, .Dim = c(1L, 1L)), just = \'centre\', valid.just = c(0.5, 0.5)), .Names = c(\'nrow\', \'ncol\', \'widths\', \'heights\', \'respect\', \'valid.respect\', \'respect.mat\', \'just\', \'valid.just\'), class = \'layout\'), layout.pos.row = NULL, layout.pos.col = NULL, valid.just = c(0.5, 0.5), valid.pos.row = NULL, valid.pos.col = NULL, name = \'GRID.VP.33\'), .Names = c(\'x\', \'y\', \'width\', \'height\', \'justification\', \'gp\', \'clip\', \'xscale\', \'yscale\', \'angle\', \'layout\', \'layout.pos.row\', \'layout.pos.col\', \'valid.just\', \'valid.pos.row\', \'valid.pos.col\', \'name\'), class = \'viewport\')), .Names = \'framevp\'), c(\'children\', \'childrenOrder\'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatch25() {
+ assertEval("argv <- list(\' *** Run successfully completed ***\', c(\'\', \'> ### R code from vignette source 'Design-issues.Rnw'\', \'> \', \'> ###################################################\', \'> ### code chunk number 1: preliminarie .... [TRUNCATED] \', \'\', \'> ###################################################\', \'> ### code chunk number 2: diag-class\', \'> ###################################################\', \'> li .... [TRUNCATED] \', \'Loading required package: lattice\', \'\', \'Attaching package: ‘Matrix’\', \'\', \'The following object is masked from ‘package:base’:\', \'\', \' det\', \'\', \'\', \'> (D4 <- Diagonal(4, 10*(1:4)))\', \'4 x 4 diagonal matrix of class \\\'ddiMatrix\\\'\', \' [,1] [,2] [,3] [,4]\', \'[1,] 10 . . .\', \'[2,] . 20 . .\', \'[3,] . . 30 .\', \'[4,] . . . 40\', \'\', \'> str(D4)\', \'Formal class 'ddiMatrix' [package \\\'Matrix\\\'] with 4 slots\', \' ..@ diag : chr \\\'N\\\'\', \' ..@ Dim : int [1:2] 4 4\', \' ..@ Dimnames:List of 2\', \' .. ..$ : NULL\', \' .. ..$ : NULL\', \' ..@ x : num [1:4] 10 20 30 40\', \'\', \'> diag(D4)\', \'[1] 10 20 30 40\', \'\', \'> ###################################################\', \'> ### code chunk number 3: diag-2\', \'> ###################################################\', \'> diag(D .... [TRUNCATED] \', \'\', \'> D4\', \'4 x 4 diagonal matrix of class \\\'ddiMatrix\\\'\', \' [,1] [,2] [,3] [,4]\', \'[1,] 11 . . .\', \'[2,] . 22 . .\', \'[3,] . . 33 .\', \'[4,] . . . 44\', \'\', \'> ###################################################\', \'> ### code chunk number 4: unit-diag\', \'> ###################################################\', \'> str .... [TRUNCATED] \', \'Formal class 'ddiMatrix' [package \\\'Matrix\\\'] with 4 slots\', \' ..@ diag : chr \\\'U\\\'\', \' ..@ Dim : int [1:2] 3 3\', \' ..@ Dimnames:List of 2\', \' .. ..$ : NULL\', \' .. ..$ : NULL\', \' ..@ x : num(0) \', \'\', \'> getClass(\\\'diagonalMatrix\\\') ## extending \\\'denseMatrix\\\'\', \'Virtual Class \\\'diagonalMatrix\\\' [package \\\'Matrix\\\']\', \'\', \'Slots:\', \' \', \'Name: diag Dim Dimnames\', \'Class: character integer list\', \'\', \'Extends: \', \'Class \\\'sparseMatrix\\\', directly\', \'Class \\\'Matrix\\\', by class \\\'sparseMatrix\\\', distance 2\', \'Class \\\'mMatrix\\\', by class \\\'Matrix\\\', distance 3\', \'\', \'Known Subclasses: \\\'ddiMatrix\\\', \\\'ldiMatrix\\\'\', \'\', \'> ###################################################\', \'> ### code chunk number 5: Matrix-ex\', \'> ###################################################\', \'> (M .... [TRUNCATED] \', \'4 x 4 sparse Matrix of class \\\'dgTMatrix\\\'\', \' \', \'[1,] . . 4 .\', \'[2,] . 1 . .\', \'[3,] 4 . . .\', \'[4,] . . . 8\', \'\', \'> m <- as(M, \\\'matrix\\\')\', \'\', \'> (M. <- Matrix(m)) # dsCMatrix (i.e. *symmetric*)\', \'4 x 4 sparse Matrix of class \\\'dsCMatrix\\\'\', \' \', \'[1,] . . 4 .\', \'[2,] . 1 . .\', \'[3,] 4 . . .\', \'[4,] . . . 8\', \'\', \'> ###################################################\', \'> ### code chunk number 6: sessionInfo\', \'> ###################################################\', \'> t .... [TRUNCATED] \', \'\\\\begin{itemize}\\\\raggedright\', \' \\\\item R version 3.0.1 (2013-05-16), \\\\verb|x86_64-unknown-linux-gnu|\', \' \\\\item Locale: \\\\verb|LC_CTYPE=en_US.UTF-8|, \\\\verb|LC_NUMERIC=C|, \\\\verb|LC_TIME=en_US.UTF-8|, \\\\verb|LC_COLLATE=C|, \\\\verb|LC_MONETARY=en_US.UTF-8|, \\\\verb|LC_MESSAGES=en_US.UTF-8|, \\\\verb|LC_PAPER=C|, \\\\verb|LC_NAME=C|, \\\\verb|LC_ADDRESS=C|, \\\\verb|LC_TELEPHONE=C|, \\\\verb|LC_MEASUREMENT=en_US.UTF-8|, \\\\verb|LC_IDENTIFICATION=C|\', \' \\\\item Base packages: base, datasets, grDevices, graphics,\', \' methods, stats, utils\', \' \\\\item Other packages: Matrix~1.0-12, lattice~0.20-15\', \' \\\\item Loaded via a namespace (and not attached): grid~3.0.1,\', \' tools~3.0.1\', \'\\\\end{itemize}\', \'\', \' *** Run successfully completed ***\', \'> proc.time()\', \' user system elapsed \', \'157.417 4.183 161.773 \'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatch26() {
+ assertEval("argv <- list(c(NA, NA, NA, NA, NA, NA, NA, NA), c(\'real\', \'double\'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch27() {
+ assertEval("argv <- list(c(\'2005-01-01\', \'2006-01-01\', \'2007-01-01\', \'2008-01-01\', \'2009-01-01\'), c(NA, NaN), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatch28() {
+ assertEval("argv <- list(c(NA, NA), c(\'real\', \'double\'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch29() {
+ assertEval("argv <- list(c(\'TRUE\', \'FALSE\', \'TRUE\', \'FALSE\', \'TRUE\', \'FALSE\', \'TRUE\', \'FALSE\', \'TRUE\', \'FALSE\'), c(FALSE, TRUE), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch30() {
+ assertEval("argv <- list(c(\'2005-01-01\', \'2005-02-01\', \'2005-03-01\', \'2005-04-01\', \'2005-05-01\', \'2005-06-01\', \'2005-07-01\', \'2005-08-01\', \'2005-09-01\', \'2005-10-01\', \'2005-11-01\', \'2005-12-01\', \'2006-01-01\', \'2006-02-01\', \'2006-03-01\', \'2006-04-01\', \'2006-05-01\', \'2006-06-01\', \'2006-07-01\', \'2006-08-01\', \'2006-09-01\', \'2006-10-01\', \'2006-11-01\', \'2006-12-01\', \'2007-01-01\', \'2007-02-01\', \'2007-03-01\', \'2007-04-01\', \'2007-05-01\', \'2007-06-01\', \'2007-07-01\', \'2007-08-01\', \'2007-09-01\', \'2007-10-01\', \'2007-11-01\', \'2007-12-01\', \'2008-01-01\', \'2008-02-01\', \'2008-03-01\', \'2008-04-01\', \'2008-05-01\', \'2008-06-01\', \'2008-07-01\', \'2008-08-01\', \'2008-09-01\', \'2008-10-01\', \'2008-11-01\', \'2008-12-01\', \'2009-01-01\'), NA_integer_, NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch31() {
+ assertEval("argv <- list(c(1, 2, 3, 4, 8, 12), c(1, 2, 3, 4, 8, 12), NA_integer_, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testmatch32() {
+ assertEval("argv <- list(c(\'.__C__classA\', \'.__T__$:base\', \'.__T__$<-:base\', \'.__T__[:base\', \'.__T__plot:graphics\', \'plot\'), c(\'.__NAMESPACE__.\', \'.__S3MethodsTable__.\', \'.packageName\', \'.First.lib\', \'.Last.lib\', \'.onLoad\', \'.onAttach\', \'.onDetach\', \'.conflicts.OK\', \'.noGenerics\'), 0L, NULL); .Internal(match(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmatrix.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmatrix.java
new file mode 100644
index 0000000000000000000000000000000000000000..e45e3cf5d47e113f43602828d062c49b866bcd64
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmatrix.java
@@ -0,0 +1,282 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinmatrix extends TestBase {
+
+ @Test
+ @Ignore
+ public void testmatrix1() {
+ assertEval("argv <- list(NA_real_, 1L, 5L, FALSE, list(\'Residuals\', c(\'Df\', \'Sum Sq\', \'Mean Sq\', \'F value\', \'Pr(>F)\')), FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix2() {
+ assertEval("argv <- list(c(NA, \'a\', \'b\', \'10\', NA, NA, \'d\', \'12\', NA, NA, NA, \'14\'), 1, 4, TRUE, NULL, TRUE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix3() {
+ assertEval("argv <- list(NA, 0L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix4() {
+ assertEval("argv <- list(\'foo\', 1L, 1, FALSE, list(structure(\'object\', simpleOnly = TRUE), NULL), FALSE, TRUE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix5() {
+ assertEval("argv <- list(c(1, 2, 3, 0, 10, NA), 3, 2, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix6() {
+ assertEval("argv <- list(1:25, 5, 5, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix7() {
+ assertEval("argv <- list(\'ANY\', 2L, 3L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix8() {
+ assertEval("argv <- list(0L, 1L, 1L, TRUE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix9() {
+ assertEval("argv <- list(0L, 0L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix10() {
+ assertEval("argv <- list(c(1, 1, 1, 1, 1, 1), 1, 1, FALSE, NULL, TRUE, TRUE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix11() {
+ assertEval("argv <- list(c(420.223016031624, 290.609964753365, 290.609964753365, 200), 2, 2, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix12() {
+ assertEval("argv <- list(1:4, 1, 2, FALSE, NULL, TRUE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix13() {
+ assertEval("argv <- list(c(0, 0, 0, 0), 4L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix14() {
+ assertEval("argv <- list(0+0i, 7L, 2L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix15() {
+ assertEval("argv <- list(0L, 1L, 2L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix16() {
+ assertEval("argv <- list(0, 12L, 12L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix17() {
+ assertEval("argv <- list(NA, 240, 4L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix18() {
+ assertEval("argv <- list(c(1448665, 18316380, 77.4, 139.8, 2251281, 26424236, 120.3, 201.7, NA, NA, 1835812, 22608335, 98.1, 172.5), 2L, 7L, FALSE, list(c(\'Ncells\', \'Vcells\'), c(\'used\', \'(Mb)\', \'gc trigger\', \'(Mb)\', \'limit (Mb)\', \'max used\', \'(Mb)\')), FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix19() {
+ assertEval("argv <- list(c(\'315.45\', \'363.01\', \'405.02\', \'443.06\', \'478.09\', \'510.72\'), 1L, 1, TRUE, list(\'1979\', c(\'Jan\', \'Feb\', \'Mar\', \'Apr\', \'May\', \'Jun\')), FALSE, TRUE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix20() {
+ assertEval("argv <- list(\'\', 0L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix21() {
+ assertEval("argv <- list(character(0), 0L, 2L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix22() {
+ assertEval("argv <- list(raw(0), 0L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix23() {
+ assertEval("argv <- list(character(0), 0L, 17L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix24() {
+ assertEval("argv <- list(c(TRUE, FALSE, FALSE, TRUE), 2L, 2L, TRUE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix25() {
+ assertEval("argv <- list(c(0.342020143325669, 0, -0.939692620785908, 0, 1, 0, 0.939692620785908, 0, 0.342020143325669), 3, 3, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix26() {
+ assertEval("argv <- list(NA_integer_, 1L, 1L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix27() {
+ assertEval("argv <- list(numeric(0), 1, 1L, FALSE, NULL, TRUE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix28() {
+ assertEval("argv <- list(NA_complex_, 5L, 1L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix29() {
+ assertEval("argv <- list(NA_character_, 4L, 17L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix30() {
+ assertEval("argv <- list(c(2.8421709430404e-14, 0, 0, 0, 0, 0, 0, -4.44089209850063e-16, 0, 0, 0, 0, 0, 0, 4.44089209850063e-16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7.105427357601e-15), 6L, 6L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix31() {
+ assertEval("argv <- list(structure(integer(0), .Dim = c(0L, 2L), .Dimnames = list(NULL, c(\'row\', \'col\'))), 0, 2, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix32() {
+ assertEval("argv <- list(c(24.2407407407407, 22.3953488372093, 24.4761904761905, 25.625, 24.3518518518519, 30.8333333333333, 30.8333333333333, 30.8333333333333, 24.2037037037037, 30.5, 30.5, 30.5, 24.4444444444444, 30.8571428571429, 30.8571428571429, 30.8571428571429, 24.2037037037037, 30.5, 30.5, 30.5, 24.2407407407407, 31.4545454545455, 31.4545454545455, 31.4545454545455, 24.8333333333333, 30.7857142857143, 30.7857142857143, 30.7857142857143, 24.7777777777778, 31.1428571428571, 31.1428571428571, 31.1428571428571, 24.2407407407407, 31.4545454545455, 31.4545454545455, 31.4545454545455, 24.2407407407407, 31.4545454545455, 31.4545454545455, 31.4545454545455, 24.2037037037037, 30.5, 30.5, 30.5, 24.5185185185185, 30.6428571428571, 30.6428571428571, 30.6428571428571, 24.8333333333333, 31.2857142857143, 31.2857142857143, 31.2857142857143, 24.8333333333333, 22.75, 20.5789473684211, 20.5789473684211, 24.5185185185185, 22.375, 24.4, 23.5833333333333, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.4444444444444, 22.2, 24.05, 24.05, 24.3518518518519, 30.8333333333333, 30.8333333333333, 30.8333333333333, 24.8148148148148, 22.4615384615385, 24.3809523809524, 25.5714285714286, 24.8333333333333, 22.575, 24.3333333333333, 23.5384615384615, 24.4444444444444, 22.2, 24.05, 24.05, 24.3518518518519, 30.8333333333333, 30.8333333333333, 30.8333333333333, 24.2037037037037, 22.4047619047619, 24.4761904761905, 24.4761904761905, 24.8148148148148, 22.4615384615385, 24.3809523809524, 25.5714285714286, 24.8148148148148, 22.4615384615385, 24.3809523809524, 25.5714285714286, 24.3518518518519, 22.5, 20.695652173913, 20.695652173913, 24.2407407407407, 22.3953488372093, 24.4761904761905, 25.625, 24.5185185185185, 22.375, 24.4, 23.5833333333333, 24.2407407407407, 22.3953488372093, 24.4761904761905, 23.7692307692308, 24.4444444444444, 22.2, 24.05, 24.05, 24.5185185185185, 22.375, 20.35, 20.35, 24.5185185185185, 22.375, 24.4, 23.5833333333333, 24.7777777777778, 22.55, 24.65, 26, 24.8148148148148, 30.9333333333333, 30.9333333333333, 30.9333333333333, 24.7777777777778, 22.55, 24.65, 23.9230769230769, 24.8333333333333, 22.575, 24.3333333333333, 23.5384615384615, 24.7777777777778, 22.55, 24.65, 23.9230769230769, 24.8333333333333, 22.575, 20.6315789473684, 20.6315789473684, 24.8333333333333, 22.75, 24.7142857142857, 24.7142857142857, 24.8333333333333, 22.75, 24.7142857142857, 24.7142857142857, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.2037037037037, 22.4047619047619, 20.3333333333333, 20.3333333333333, 24.7777777777778, 22.55, 20.45, 20.45, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.3518518518519, 22.5, 24.6842105263158, 24.6842105263158, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.4444444444444, 22.2, 20.35, 20.35, 24.2037037037037, 22.4047619047619, 24.4761904761905, 24.4761904761905, 24.5185185185185, 22.375, 20.35, 20.35, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.3518518518519, 22.5, 20.695652173913, 20.695652173913, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222, 24.8333333333333, 22.575, 20.6315789473684, 20.6315789473684, 24.7777777777778, 22.55, 20.45, 20.45, 24.8333333333333, 22.75, 20.5789473684211, 20.5789473684211, 24.8333333333333, 22.575, 20.6315789473684, 20.6315789473684, 24.8333333333333, 22.75, 20.5789473684211, 20.5789473684211, 24.4444444444444, 22.2, 20.35, 20.35, 24.8148148148148, 22.4615384615385, 20.2222222222222, 20.2222222222222), 60L, 1, TRUE, list(c(\'Eagle Summit 4\', \'Ford Escort 4\', \'Ford Festiva 4\', \'Honda Civic 4\', \'Mazda Protege 4\', \'Mercury Tracer 4\', \'Nissan Sentra 4\', \'Pontiac LeMans 4\', \'Subaru Loyale 4\', \'Subaru Justy 3\', \'Toyota Corolla 4\', \'Toyota Tercel 4\', \'Volkswagen Jetta 4\', \'Chevrolet Camaro V8\', \'Dodge Daytona\', \'Ford Mustang V8\', \'Ford Probe\', \'Honda Civic CRX Si 4\', \'Honda Prelude Si 4WS 4\', \'Nissan 240SX 4\', \'Plymouth Laser\', \'Subaru XT 4\', \'Audi 80 4\', \'Buick Skylark 4\', \'Chevrolet Beretta 4\', \'Chrysler Le Baron V6\', \'Ford Tempo 4\', \'Honda Accord 4\', \'Mazda 626 4\', \'Mitsubishi Galant 4\', \'Mitsubishi Sigma V6\', \'Nissan Stanza 4\', \'Oldsmobile Calais 4\', \'Peugeot 405 4\', \'Subaru Legacy 4\', \'Toyota Camry 4\', \'Volvo 240 4\', \'Acura Legend V6\', \'Buick Century 4\', \'Chrysler Le Baron Coupe\', \'Chrysler New Yorker V6\', \'Eagle Premier V6\', \'Ford Taurus V6\', \'Ford Thunderbird V6\', \'Hyundai Sonata 4\', \'Mazda 929 V6\', \'Nissan Maxima V6\', \'Oldsmobile Cutlass Ciera 4\', \'Oldsmobile Cutlass Supreme V6\', \'Toyota Cressida 6\', \'Buick Le Sabre V6\', \'Chevrolet Caprice V8\', \'Ford LTD Crown Victoria V8\', \'Chevrolet Lumina APV V6\', \'Dodge Grand Caravan V6\', \'Ford Aerostar V6\', \'Mazda MPV V6\', \'Mitsubishi Wagon 4\', \'Nissan Axxess 4\', \'Nissan Van 4\'), structure(c(\'0.79767456\', \'0.28300396\', \'0.04154257\', \'0.01132626\'), .Names = c(\'1\', \'2\', \'3\', \'4\'))), FALSE, TRUE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix33() {
+ assertEval("argv <- list(c(1+2i, 3-4i, 5+0i, -6+0i), 2L, 2L, TRUE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix34() {
+ assertEval("argv <- list(NA, 2, 5, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix35() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(1L, 0L), .Dimnames = list(\'r\', NULL)), 0L, 0L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix36() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 0, 4.94065645841247e-324, 0, 0, 0, 0, 0), structure(12L, .Names = \'1\'), 1L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix37() {
+ assertEval("argv <- list(1:7, 3, 4, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix38() {
+ assertEval("argv <- list(c(1, 3, 2, -2, 16, 4, 3, 3, 1, 32, -3, 2, 3, 2, 5, 1, 3, 4, 9, 0, 4, 16, 3, 5, 1, -1, 3, 2, -3, 4, 1, 2, 8, 0, 8, 5, 4, 2, 6, 5, 3, 1, 3, 1), 4L, 4L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix39() {
+ assertEval("argv <- list(c(-1, 4, 4, 9, 5, 1, 4, 8, 8, 2, 6, 0, 2, 3, 8, 8, 4, 4, 2, 3, 4, 0, -1, 7, 2, 4, 2, 3, 5, 6, 6, 5, 4, 3, 7, -1, 3, 1, -1, 2, 32, 1, 4, 4), 2L, 5L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix40() {
+ assertEval("argv <- list(c(1259, 845, 719, 390, 1360, 1053, 774, 413), 2, 1, TRUE, NULL, FALSE, TRUE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix41() {
+ assertEval("argv <- list(1:2, 2, 12, TRUE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix42() {
+ assertEval("argv <- list(NA_character_, 1L, 17L, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix43() {
+ assertEval("argv <- list(c(\'\', \'\', \'\', \'\', \'\', \'\', \' 1\', \' 2\', \' 3\', \' 4\', \' 5\', \' 6\', \' 7\', \' 8\', \' 9\', \'10\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\'), 1, 12, TRUE, list(c(\'1920\', \'1921\'), c(\'Jan\', \'Feb\', \'Mar\', \'Apr\', \'May\', \'Jun\', \'Jul\', \'Aug\', \'Sep\', \'Oct\', \'Nov\', \'Dec\')), TRUE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmatrix44() {
+ assertEval("argv <- list(structure(list(a1 = 1:3, a2 = 4:6, a3 = 3.14159265358979, a4 = c(\'a\', \'b\', \'c\')), .Names = c(\'a1\', \'a2\', \'a3\', \'a4\')), 2, 2, FALSE, NULL, FALSE, FALSE); .Internal(matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmax.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmax.java
new file mode 100644
index 0000000000000000000000000000000000000000..78b78995867e8f37df5662214ea1970a8c32d67b
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmax.java
@@ -0,0 +1,159 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinmax extends TestBase {
+
+ @Test
+ public void testmax1() {
+ assertEval("argv <- list(10L, 1L);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmax2() {
+ assertEval("argv <- list(structure(c(1208822400, 1209168000, 1208822400, 1209168000), class = c(\'POSIXct\', \'POSIXt\')), na.rm = TRUE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testmax3() {
+ assertEval("argv <- list(5, 1, 0);max(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void testmax4() {
+ assertEval("argv <- list(c(NA, 1, 2, 3, -Inf, NaN, Inf));max(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmax5() {
+ assertEval("max( );");
+ }
+
+ @Test
+ @Ignore
+ public void testmax6() {
+ assertEval("argv <- list(1L, structure(1:10, .Label = c(\'a\', \'b\', \'c\', \'d\', \'e\', \'f\', \'g\', \'h\', \'i\', \'j\'), class = \'factor\'));max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testmax7() {
+ assertEval("argv <- list(1573.05073007216, 1000);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testmax8() {
+ assertEval("argv <- list(structure(c(6L, 3L, 8L, 4L, 4L, 5L, 7L, 8L, 5L), .Dim = 9L, .Dimnames = structure(list(state.division = c(\'New England\', \'Middle Atlantic\', \'South Atlantic\', \'East South Central\', \'West South Central\', \'East North Central\', \'West North Central\', \'Mountain\', \'Pacific\')), .Names = \'state.division\'), class = \'table\'));max(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmax9() {
+ assertEval("argv <- list(structure(list(x = c(-1, 1, 1, -1, -1, 1, 1, -1), y = c(-0.701149425287356, -0.701149425287356, -0.701149425287356, -0.701149425287356, 0.701149425287356, 0.701149425287356, 0.701149425287356, 0.701149425287356), z = c(-0.4, -0.4, 0.4, 0.4, -0.4, -0.4, 0.4, 0.4)), .Names = c(\'x\', \'y\', \'z\'), row.names = c(NA, -8L), class = \'data.frame\'), na.rm = FALSE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testmax10() {
+ assertEval("argv <- list(c(FALSE, FALSE));max(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmax11() {
+ assertEval("argv <- list(numeric(0));max(argv[[1]]);");
+ }
+
+ @Test
+ public void testmax12() {
+ assertEval("argv <- list(4L, numeric(0));max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testmax13() {
+ assertEval("argv <- list(6L, numeric(0));max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testmax14() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));max(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmax15() {
+ assertEval("argv <- list(c(1.2e+100, 1.3e+100));max(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmax16() {
+ assertEval("argv <- list(structure(c(11368.8306749654, 11347.7238090355, 11341.9182102121, 11392.4878842821, 11367.3445285107, 11337.9245694652, 11332.0560643654, 11356.4682624019, 11387.6852128883, 11364.9132677, 11391.3319486445, 11374.2254758319, 11347.9708838458, 11353.2031583386, 11333.3748092474, 11323.9154302836, 11373.0896246266, 11330.2228965024, 11354.2399044028, 11367.8070731596, 11392.4287034031, 11357.6915504499, 11356.9044667059, 11335.1409634408, 11375.8374661156, 11354.7726842454, 11358.781884864, 11337.5281579299, 11339.0060699913, 11364.6998397419, 11363.2410538797, 11328.3945066198, 11325.487840571, 11367.9956844538, 11388.0030639744, 11364.8664695648, 11362.2630523606, 11359.821940674, 11391.9566656714, 11358.5349275633, 11370.7951655071, 11365.1078852355, 11339.7208074429, 11341.0716148671, 11374.0516736354, 11354.6799581982, 11335.2588737891, 11375.2688788734, 11330.349134828, 11383.518146432, 11366.0251480173, 11362.0011677193, 11346.0144123337, 11354.7192011815, 11358.0308680837, 11335.6606452791, 11360.0741421962, 11328.2693021996, 11342.4429152855, 11337.8889663466, 11342.9353336683, 11385.6565872063, 11354.2364726327, 11377.5989422849, 11384.6433324409, 11351.9186946652, 11327.4665936357, 11346.4841244179, 11373.6608162634, 11346.6330733448, 11367.1289885738, 11381.8430187805, 11382.9292165297, 11350.3951496719, 11349.6345719923, 11385.6811798196, 11368.1021034038, 11374.8755054101, 11365.3712412571, 11386.2157128048, 11343.5611108569, 11336.3882076922, 11385.0515660313, 11358.2337640012, 11384.3940280117, 11336.2435535709, 11376.0672136671, 11373.7149224868, 11389.0607372806, 11361.3352610911, 11372.8220707406, 11350.2233569878, 11330.0611188328, 11387.9111462012, 11342.8262750218, 11364.340121117, 11330.7252423461, 11381.8354922482, 11345.257457911, 11377.7995935893), class = \'Date\'), na.rm = TRUE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmax17() {
+ assertEval("argv <- list(structure(c(3L, 2L, 1L), .Label = c(\'A\', \'B\', \'C\'), class = c(\'ordered\', \'factor\')), na.rm = FALSE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmax18() {
+ assertEval("argv <- list(structure(c(1338544800L, 1338566400L, 1338588000L, 1338609600L, 1338631200L, 1338652800L, 1338674400L, 1338696000L, 1338717600L, 1338739200L, 1338760800L, 1338782400L, 1338804000L, 1338825600L, 1338847200L, 1338868800L, 1338890400L, 1338912000L, 1338933600L, 1338955200L, 1338976800L, 1338998400L, 1339020000L, 1339041600L), class = c(\'POSIXct\', \'POSIXt\'), tzone = \'\'), na.rm = TRUE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmax19() {
+ assertEval("argv <- list(structure(list(c(1L, 2L, 4L), 1:3, c(2L, 1L)), class = c(\'package_version\', \'numeric_version\')), na.rm = FALSE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmax20() {
+ assertEval("argv <- list(structure(c(1208822400, 1209168000), class = c(\'POSIXct\', \'POSIXt\'), tzone = \'GMT\'), na.rm = FALSE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testmax21() {
+ assertEval("argv <- list(structure(c(13823, NA), class = \'Date\'), na.rm = TRUE);max(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testmax22() {
+ assertEval("argv <- list(structure(c(7L, 4L, 3L), .Dim = 3L, .Dimnames = structure(list(c(\'0\', \'1\', \'5\')), .Names = \'\'), class = \'table\'));max(argv[[1]]);");
+ }
+
+ @Test
+ public void testmax23() {
+ assertEval("argv <- list(structure(c(0, 1, 1, 1, 1), .Names = c(\'Hair\', \'Eye\', \'Sex\', \'Hair:Eye\', \'Hair:Sex\')));max(argv[[1]]);");
+ }
+
+ @Test
+ public void testmax24() {
+ assertEval("argv <- list(structure(c(Inf, Inf, 2.248e+263, Inf, 3.777e+116, 1.128), .Names = c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\')));max(argv[[1]]);");
+ }
+
+ @Test
+ public void testmax25() {
+ assertEval("argv <- list(structure(c(-11.3814849918875, -11.9361690778798, 0.562602893455921, 11.5126028934559, 76.2209544348296, -8.66448499188751, -6.94502893455923, -5.28148499188751, -35.7665182531098, 6.35497106544077, -9.20908119253651, -0.898484991887508, -5.59380090589508, -6.12730922120065, -13.3061334505138, 58.6278831800973, -15.1098009058951, -8.29625696322337, -4.07211681990265, 3.7096551514332, 2.60151500811249, 6.24733923742563, -1.33911681990266, -2.14157287723094, -10.5984849918875, -8.12802893455923, 1.30028697944835, -15.7450289345592, 7.20569077879935, -12.6484849918875, 25.1810423201731, -4.42680090589508, -1.90886979448351), .Names = c(\'Craig Dunain\', \'Ben Rha\', \'Ben Lomond\', \'Goatfell\', \'Bens of Jura\', \'Cairnpapple\', \'Scolty\', \'Traprain\', \'Lairig Ghru\', \'Dollar\', \'Lomonds\', \'Cairn Table\', \'Eildon Two\', \'Cairngorm\', \'Seven Hills\', \'Knock Hill\', \'Black Hill\', \'Creag Beag\', \'Kildcon Hill\', \'Meall Ant-Suidhe\', \'Half Ben Nevis\', \'Cow Hill\', \'N Berwick Law\', \'Creag Dubh\', \'Burnswark\', \'Largo Law\', \'Criffel\', \'Acmony\', \'Ben Nevis\', \'Knockfarrel\', \'Two Breweries\', \'Cockleroi\', \'Moffat Chase\')));max(argv[[1]]);");
+ }
+
+ @Test
+ public void testmax26() {
+ assertEval("argv <- list(c(1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374947, 0.707106781186547, 0.587785252292473, 0.453990499739547, 0.309016994374947, 0.156434465040231, -1.83697019872103e-16, -0.156434465040231, -0.309016994374948, -0.453990499739547, -0.587785252292473, -0.707106781186548, -0.809016994374948, -0.891006524188368, -0.951056516295154, -0.987688340595138, -1, -0.987688340595138, -0.951056516295154, -0.891006524188368, -0.809016994374947, -0.707106781186547, -0.587785252292473, -0.453990499739547, -0.309016994374947, -0.156434465040231, 6.12323399573677e-17, 0.156434465040231, 0.309016994374947, 0.453990499739547, 0.587785252292473, 0.707106781186548, 0.809016994374947, 0.891006524188368, 0.951056516295154, 0.987688340595138, 1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374947, 0.707106781186548, 0.587785252292473, 0.453990499739547, 0.309016994374947, 0.156434465040231, 6.12323399573677e-17, -0.15643446504023, -0.309016994374947, -0.453990499739548, -0.587785252292473, -0.707106781186547, -0.809016994374947, -0.891006524188368, -0.951056516295154, -0.987688340595138, -1, -0.987688340595138, -0.951056516295154, -0.891006524188368, -0.809016994374948, -0.707106781186547, -0.587785252292473, -0.453990499739548, -0.309016994374948, -0.15643446504023, -1.83697019872103e-16, 0.15643446504023, 0.309016994374947, 0.453990499739547, 0.587785252292473, 0.707106781186547, 0.809016994374947, 0.891006524188368, 0.951056516295154, 0.987688340595138, 1, 0.987688340595138, 0.951056516295154, 0.891006524188368, 0.809016994374948, 0.707106781186547, 0.587785252292473, 0.453990499739548, 0.309016994374948, 0.15643446504023, 3.06161699786838e-16, -0.15643446504023, -0.309016994374947, -0.453990499739547, -0.587785252292473, -0.707106781186547, -0.809016994374947, -0.891006524188368, -0.951056516295153, -0.987688340595138, -1));max(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmaxcol.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmaxcol.java
new file mode 100644
index 0000000000000000000000000000000000000000..ab876ee2e56dda9bb97acacd71c60c8b33377f19
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmaxcol.java
@@ -0,0 +1,36 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinmaxcol extends TestBase {
+
+ @Test
+ @Ignore
+ public void testmaxcol1() {
+ assertEval("argv <- list(structure(c(80.2, 17, 15, 12, 9.96, 22.2, 83.1, 45.1, 6, 9, 84.84, 22.2, 92.5, 39.7, 5, 5, 93.4, 20.2, 85.8, 36.5, 12, 7, 33.77, 20.3, 76.9, 43.5, 17, 15, 5.16, 20.6, 76.1, 35.3, 9, 7, 90.57, 26.6, 83.8, 70.2, 16, 7, 92.85, 23.6, 92.4, 67.8, 14, 8, 97.16, 24.9, 82.4, 53.3, 12, 7, 97.67, 21, 82.9, 45.2, 16, 13, 91.38, 24.4, 87.1, 64.5, 14, 6, 98.61, 24.5, 64.1, 62, 21, 12, 8.52, 16.5, 66.9, 67.5, 14, 7, 2.27, 19.1, 68.9, 60.7, 19, 12, 4.43, 22.7, 61.7, 69.3, 22, 5, 2.82, 18.7, 68.3, 72.6, 18, 2, 24.2, 21.2, 71.7, 34, 17, 8, 3.3, 20, 55.7, 19.4, 26, 28, 12.11, 20.2, 54.3, 15.2, 31, 20, 2.15, 10.8, 65.1, 73, 19, 9, 2.84, 20, 65.5, 59.8, 22, 10, 5.23, 18, 65, 55.1, 14, 3, 4.52, 22.4, 56.6, 50.9, 22, 12, 15.14, 16.7, 57.4, 54.1, 20, 6, 4.2, 15.3, 72.5, 71.2, 12, 1, 2.4, 21, 74.2, 58.1, 14, 8, 5.23, 23.8, 72, 63.5, 6, 3, 2.56, 18, 60.5, 60.8, 16, 10, 7.72, 16.3, 58.3, 26.8, 25, 19, 18.46, 20.9, 65.4, 49.5, 15, 8, 6.1, 22.5, 75.5, 85.9, 3, 2, 99.71, 15.1, 69.3, 84.9, 7, 6, 99.68, 19.8, 77.3, 89.7, 5, 2, 100, 18.3, 70.5, 78.2, 12, 6, 98.96, 19.4, 79.4, 64.9, 7, 3, 98.22, 20.2, 65, 75.9, 9, 9, 99.06, 17.8, 92.2, 84.6, 3, 3, 99.46, 16.3, 79.3, 63.1, 13, 13, 96.83, 18.1, 70.4, 38.4, 26, 12, 5.62, 20.3, 65.7, 7.7, 29, 11, 13.79, 20.5, 72.7, 16.7, 22, 13, 11.22, 18.9, 64.4, 17.6, 35, 32, 16.92, 23, 77.6, 37.6, 15, 7, 4.97, 20, 67.6, 18.7, 25, 7, 8.65, 19.5, 35, 1.2, 37, 53, 42.34, 18, 44.7, 46.6, 16, 29, 50.43, 18.2, 42.8, 27.7, 22, 29, 58.33, 19.3), .Dim = c(6L, 47L), .Dimnames = list(c(\'Fertility\', \'Agriculture\', \'Examination\', \'Education\', \'Catholic\', \'Infant.Mortality\'), c(\'Courtelary\', \'Delemont\', \'Franches-Mnt\', \'Moutier\', \'Neuveville\', \'Porrentruy\', \'Broye\', \'Glane\', \'Gruyere\', \'Sarine\', \'Veveyse\', \'Aigle\', \'Aubonne\', \'Avenches\', \'Cossonay\', \'Echallens\', \'Grandson\', \'Lausanne\', \'La Vallee\', \'Lavaux\', \'Morges\', \'Moudon\', \'Nyone\', \'Orbe\', \'Oron\', \'Payerne\', \'Paysd'enhaut\', \'Rolle\', \'Vevey\', \'Yverdon\', \'Conthey\', \'Entremont\', \'Herens\', \'Martigwy\', \'Monthey\', \'St Maurice\', \'Sierre\', \'Sion\', \'Boudry\', \'La Chauxdfnd\', \'Le Locle\', \'Neuchatel\', \'Val de Ruz\', \'ValdeTravers\', \'V. De Geneve\', \'Rive Droite\', \'Rive Gauche\'))), 1L); .Internal(max.col(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmaxcol2() {
+ assertEval("argv <- list(structure(c(0.0140185568997224, 0.0152950000405453, 0.013933189413423, 0.0141545247888734, 0.0144656253644622, 0.0138841285101751, 0.014995293880605, 0.0135531935867069, 0.0136464824425927, 0.0139216121812551, 0.0150015663096977, 0.0141230892456885, 0.013614290948012, 0.0169498879707739, 0.0167919904349555, 0.0164281655519131, 0.0145450130659148, 0.0154935322596005, 0.0140566103751186, 0.0137862479562347, 0.0138916844301758, 0.0144143878263478, 0.0153699249520618, 0.0156955405518398, 0.0143684930741837, 0.991123944314599, 0.772371856665358, 0.998388573397845, 0.997744681008954, 0.935000528851613, 0.995759465226583, 0.998319991897437, 0.998446741491899, 0.997291233910865, 0.998453850443283, 0.449550979690061, 0.99765492178392, 0.0744670889060699, 0.997953251276348, 0.998367231220745, 0.998303801028119, 0.996490251221358, 0.987068752837462, 0.963362766144961, 0.997745619693091, 0.998180187351627, 0.995230116685749, 0.99834615324817, 0.998224606721368, 0.998138182928866, 0.000101796455995556, 0.0169548122668949, 0.00010041243364593, 0.994976075194857, 0.000116262428296307, 0.000266333816370553, 0.000213420942072358, 0.000150164062855871, 9.91852669694001e-05, 0.962237984681016, 0.000109709045973819, 0.363503438381572, 0.000165884012322677, 0.000404227768170316, 0.000101407372837694, 0.000138346452367636, 0.76867700377653, 0.000101067307394145, 0.000798310678132636, 0.439735407970107, 0.000105640126458538, 0.000103729730504055, 0.000157422658078269, 0.00062878104546921, 0.000140302481934868, 0.987636544924171, 0.986762198204236, 0.987695606647598, 0.987542563977846, 0.987328468487257, 0.987729584212166, 0.986966061808917, 0.987959390267427, 0.987894530108167, 0.987703622276188, 0.986961786481457, 0.987564327481863, 0.987916920251847, 0.98565103396999, 0.98575611086066, 0.985998830615913, 0.98727397408636, 0.986627618096195, 0.987610242071539, 0.987797448350422, 0.987724349638781, 0.987363673212559, 0.986711269247982, 0.986491053812255, 0.987395229430566, 0.0127450421932153, 0.00673790924500044, 0.0168765170487183, 0.015797380803532, 0.00875985277873091, 0.0142537568101031, 0.0172964637554702, 0.0177648866573519, 0.0158550778308362, 0.0172334564486378, 0.00522951225361075, 0.016267073149734, 0.00347221059583105, 0.0218803200901225, 0.0183403081414579, 0.0180163362514856, 0.0146261930363668, 0.0119682371438135, 0.00971509310832369, 0.0157071233034631, 0.017455515535567, 0.0139105878597395, 0.0174050248646065, 0.0173796025035352, 0.0168918350504782, 0.00106971573173608, 0.0026383344434856, 0.00106703814487522, 0.0135614845327103, 0.0010949673490627, 0.00126684800065677, 0.0012190851300456, 0.00114670950680761, 0.00106469628452917, 0.00946684926508704, 0.00108427378412549, 0.00489096395354091, 0.00116581741675497, 0.00136406369196257, 0.00106938597766297, 0.00112914854449728, 0.00664571845549644, 0.00106837166942789, 0.00153810249624049, 0.0051794966429432, 0.00107683746869901, 0.00107356047093305, 0.00115632815053843, 0.001475874716352, 0.00113310775095649, 0.000705529701133523, 0.000706190813132159, 0.000705483416292851, 0.000705607277564461, 0.000705767694047911, 0.000705456690994395, 0.000706040550884142, 0.000705277731844386, 0.000705325918720134, 0.00070547711802582, 0.000706043725519247, 0.000705586003991082, 0.000705308033747408, 0.000706976814055453, 0.000706900888924168, 0.000706734153004456, 0.000705809204506355, 0.000706288779684405, 0.000705550244606539, 0.000705403095546089, 0.000705460812978617, 0.000705740784771567, 0.000706233802920496, 0.000706387215078423, 0.000705716602186515, 0.00537527373619432, 0.193553056279976, 0.000869791621482113, 0.00126068143747944, 0.0477132994644455, 0.00247011263414166, 0.000876993026210466, 0.000793804652755058, 0.00147446124252569, 0.000818798505743392, 0.527720370257185, 0.0012613575859543, 0.931485133910046, 0.000794860447953985, 0.000799403966921179, 0.000843774285071599, 0.00203097055872496, 0.00804383321163345, 0.0255537088264535, 0.00126855734163029, 0.000930853589102135, 0.00281671019786704, 0.000858777960111907, 0.000915470358337216, 0.000986308498091386, 0.999944492377256, 0.98624753604171, 0.999945310582066, 0.00303527549384713, 0.999935958318038, 0.99984366374275, 0.999876760118408, 0.999915533835607, 0.999946031942947, 0.0270168111120999, 0.999939809617296, 0.622685795280626, 0.999906081646851, 0.999754847875723, 0.999944697838299, 0.999922757726417, 0.198924025871316, 0.99994491987507, 0.99948964681356, 0.539122196215121, 0.999942224996369, 0.999943338667082, 0.999911124821608, 0.999605022779117, 0.999921489451661), .Dim = c(75L, 3L), .Dimnames = list( NULL, c(\'c\', \'s\', \'v\'))), 1L); .Internal(max.col(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmaxcol3() {
+ assertEval("argv <- list(structure(list(), .Dim = 0:1), 1L); .Internal(max.col(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmean.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmean.java
new file mode 100644
index 0000000000000000000000000000000000000000..5664f1fa545e6c2ad510512f8fc803c14bab5ef0
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmean.java
@@ -0,0 +1,120 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinmean extends TestBase {
+
+ @Test
+ @Ignore
+ public void testmean1() {
+ assertEval("argv <- list(c(95.4489970123773, 98.5489970123773, 98.5489970123773, 98.5489970123773, 98.5489970123773, 98.5489970123773)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmean2() {
+ assertEval("argv <- list(c(0.104166666666667, 0.285714285714286, 0.285714285714286, NA)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmean3() {
+ assertEval("argv <- list(structure(c(59.8164361195774, 16.3642182644146, 111.747292631572, 33.1308121255244, 111.087966260681, 17.8530570409338, 109.920202428016, 21.131775457295, 0, 0, 16.3642182644146, 161.535939255833, 37.6748802609012, 67.2883398244609, 38.6252764993654, 76.8303935707398, 28.4778348377214, 75.3935967432183, 0, 0, 111.747292631572, 37.6748802609012, 398.433064545232, 41.228743361535, 56.6580728922266, 34.5026155985806, 59.292325604515, 36.0412835987832, 0, 0, 33.1308121255244, 67.2883398244609, 41.228743361535, 1176.45954558834, 42.4165944769534, 69.928075668575, 32.9974365646273, 68.4061187132491, 0, 0, 111.087966260681, 38.6252764993654, 56.6580728922266, 42.4165944769534, 1738.19143232074, 35.3995546471346, 61.6125843485971, 37.0026062612778, 0, 0, 17.8530570409338, 76.8303935707398, 34.5026155985806, 69.928075668575, 35.3995546471346, 3334.81773597237, 25.0719711616328, 77.7527739510622, 0, 0, 109.920202428016, 28.4778348377214, 59.292325604515, 32.9974365646273, 61.6125843485971, 25.0719711616328, 3310.21623403309, 26.7939833992556, 0, 0, 21.131775457295, 75.3935967432183, 36.0412835987832, 68.4061187132491, 37.0026062612778, 77.7527739510622, 26.7939833992556, 6145.64636329227, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(10L, 10L))); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmean4() {
+ assertEval("argv <- list(structure(c(36, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 33, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 40, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 28, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 50, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 47, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 55, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 38, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 42), .Dim = c(10L, 10L), .Dimnames = list(c(\'a1\', \'a2\', \'a3\', \'a4\', \'a5\', \'a6\', \'a7\', \'a8\', \'a9\', \'a10\'), c(\'a1\', \'a2\', \'a3\', \'a4\', \'a5\', \'a6\', \'a7\', \'a8\', \'a9\', \'a10\')))); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmean5() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmean6() {
+ assertEval("argv <- list(c(-0.207917278019599, -0.0833690664718293, 0.878133487533042, 0.070508391424576, 0.460916205989202, 0.497850478229239, 0.400771450594052, 0.400771450594052, -0.380471001012383, -0.686852851893526, 1.25381492106993, 0.821581081637487, -0.402884835299076, 0.821581081637487, 0.11068271594512, -0.560475646552213, 1.55870831414912, -0.686852851893526, -1.26539635156826, 1.55870831414912, 0.11068271594512, 1.20796199830499, 0.153373117836515, -0.694706978920513, -0.466655353623219, 0.821581081637487, -1.06782370598685, 0.779965118336318, -0.402884835299076, -1.68669331074241, 0.460916205989202, -0.295071482992271, -0.207917278019599, 0.460916205989202, 1.25381492106993, -0.0833690664718293, 0.359813827057364, -1.06782370598685, 1.71506498688328, 0.11068271594512, 0.837787044494525, 1.78691313680308, 0.426464221476814, -0.0833690664718293, 0.426464221476814, -1.26506123460653, 0.688640254100091, 0.878133487533042, 0.497850478229239, -0.217974914658295)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmean7() {
+ assertEval("argv <- list(1.47130567537631e-314); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmean8() {
+ assertEval("argv <- list(4.9306115419259e+108); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmean9() {
+ assertEval("argv <- list(structure(c(2134, 1863, 1877, 1877, 1492, 1249, 1280, 1131, 1209, 1492, 1621, 1846, 2103, 2137, 2153, 1833, 1403, 1288, 1186, 1133, 1053, 1347, 1545, 2066, 2020, 2750, 2283, 1479, 1189, 1160, 1113, 970, 999, 1208, 1467, 2059, 2240, 1634, 1722, 1801, 1246, 1162, 1087, 1013, 959, 1179, 1229, 1655, 2019, 2284, 1942, 1423, 1340, 1187, 1098, 1004, 970, 1140, 1110, 1812, 2263, 1820, 1846, 1531, 1215, 1075, 1056, 975), .Tsp = c(1974, 1979.58333333333, 12), class = \'ts\')); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmean10() {
+ assertEval("argv <- list(c(TRUE, FALSE, TRUE, TRUE)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmean11() {
+ assertEval("argv <- list(structure(c(103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662, 103.87323943662), .Names = c(\'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\'))); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmean12() {
+ assertEval("argv <- list(c(-1.12778377684043, -12820.0784261145, -21650982809.6744, -473300382255715392, -6.08456909882282e+25, -3.04622557026196e+34, -4.60125024792566e+43, -1.76183826972506e+53, -1.5069799345972e+63, -2.61556777274611e+73, -8.54170618068872e+83, -4.9383857330861e+94, -4.80716085942859e+105, -7.55412056676629e+116, -1.84898368353639e+128, -6.83535188151783e+139, -3.71562599613334e+151, -2.90089508183654e+163, -3.18582547396557e+175, -4.83110332887119e+187, -9.94902790498679e+199, -2.74100158340596e+212, -9.96611412047338e+224, -4.72336572671053e+237, -2.88514442494869e+250, -2.24780296109123e+263, -2.21240023126594e+276, -2.72671165723473e+289, -4.17369555651928e+302, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmean13() {
+ assertEval("argv <- list(1:10); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmean14() {
+ assertEval("argv <- list(c(-2.16610675289233, 2.16610675289233)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmean15() {
+ assertEval("argv <- list(c(-Inf, Inf)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmean16() {
+ assertEval("argv <- list(numeric(0)); .Internal(mean(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmean17() {
+ assertEval("argv <- list(c(1.77635683940025e-15, 7.105427357601e-14, 4.54747350886464e-13, 4.54747350886464e-13, 1.81898940354586e-12, 7.27595761418343e-12, 7.27595761418343e-12, 1.45519152283669e-11, 2.91038304567337e-11, 5.82076609134674e-11)); .Internal(mean(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmerge.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmerge.java
new file mode 100644
index 0000000000000000000000000000000000000000..459443d42c9cbd9eaf250ac3093b5a3248348147
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmerge.java
@@ -0,0 +1,36 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinmerge extends TestBase {
+
+ @Test
+ @Ignore
+ public void testmerge1() {
+ assertEval("argv <- list(c(0L, 0L, 0L, 0L, 0L), 0L, FALSE, TRUE); .Internal(merge(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmerge2() {
+ assertEval("argv <- list(c(0L, 0L, 0L, 0L, 0L), 0L, TRUE, FALSE); .Internal(merge(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testmerge3() {
+ assertEval("argv <- list(c(0L, 0L, 0L, 3L, 4L), c(0L, 0L, 0L, 3L, 4L), FALSE, FALSE); .Internal(merge(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmin.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmin.java
new file mode 100644
index 0000000000000000000000000000000000000000..17417e8c64c91cee7977ab283e99fc959a853b5b
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmin.java
@@ -0,0 +1,128 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinmin extends TestBase {
+
+ @Test
+ public void testmin1() {
+ assertEval("argv <- list(c(10L, 1L));min(argv[[1]]);");
+ }
+
+ @Test
+ public void testmin2() {
+ assertEval("argv <- list(structure(c(0.25069599964819, 0.252830784944624), .Dim = 1:2));min(argv[[1]]);");
+ }
+
+ @Test
+ public void testmin3() {
+ assertEval("argv <- list(c(-3.37619548064471, -3.28575139573497, -3.19530731082523, -3.10486322591549, -3.01441914100575, -2.923975056096, -2.83353097118626, -2.74308688627652, -2.65264280136678, -2.56219871645704, -2.4717546315473, -2.38131054663755, -2.29086646172781, -2.20042237681807, -2.10997829190833, -2.01953420699859, -1.92909012208884, -1.8386460371791, -1.74820195226936, -1.65775786735962, -1.56731378244988, -1.47686969754013, -1.38642561263039, -1.29598152772065, -1.20553744281091, -1.11509335790117, -1.02464927299142, -0.934205188081682, -0.84376110317194, -0.753317018262198, -0.662872933352456, -0.572428848442715, -0.481984763532973, -0.39154067862323, -0.301096593713489, -0.210652508803747, -0.120208423894005, -0.029764338984263, 0.0606797459254791, 0.151123830835221, 0.241567915744963, 0.332012000654705, 0.422456085564447, 0.512900170474189, 0.603344255383931, 0.693788340293673, 0.784232425203414, 0.874676510113156, 0.965120595022898, 1.05556467993264, 1.14600876484238, 1.23645284975212, 1.32689693466187, 1.41734101957161, 1.50778510448135, 1.59822918939109, 1.68867327430083, 1.77911735921058, 1.86956144412032, 1.96000552903006, 2.0504496139398, 2.14089369884954, 2.23133778375928, 2.32178186866903, 2.41222595357877, 2.50267003848851, 2.59311412339825, 2.68355820830799, 2.77400229321774, 2.86444637812748, 2.95489046303722, 3.04533454794696, 3.1357786328567, 3.22622271776645, 3.31666680267619, 3.40711088758593, 3.49755497249567, 3.58799905740541, 3.67844314231516, 3.7688872272249, 3.85933131213464, 3.94977539704438, 4.04021948195412, 4.13066356686387, 4.22110765177361, 4.31155173668335, 4.40199582159309, 4.49243990650283, 4.58288399141258, 4.67332807632232, 4.76377216123206, 4.8542162461418, 4.94466033105154, 5.03510441596129, 5.12554850087103, 5.21599258578077, 5.30643667069051, 5.39688075560025, 5.48732484051, 5.57776892541974, 5.66821301032948, 5.75865709523922, 5.84910118014896, 5.9395452650587, 6.02998934996845, 6.12043343487819, 6.21087751978793, 6.30132160469767, 6.39176568960741, 6.48220977451716, 6.5726538594269, 6.66309794433664, 6.75354202924638, 6.84398611415612, 6.93443019906586, 7.02487428397561, 7.11531836888535, 7.20576245379509, 7.29620653870483, 7.38665062361457, 7.47709470852432, 7.56753879343406, 7.6579828783438, 7.74842696325354, 7.83887104816328, 7.92931513307303, 8.01975921798277, 8.11020330289251));min(argv[[1]]);");
+ }
+
+ @Test
+ public void testmin4() {
+ assertEval("argv <- list(c(NA, 1, 2, 3, -Inf, NaN, Inf));min(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmin5() {
+ assertEval("argv <- list(structure(list(c(1L, 2L, 4L), 1:3, c(2L, 1L)), class = c(\'package_version\', \'numeric_version\')), na.rm = FALSE);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmin6() {
+ assertEval("argv <- list(structure(c(1338544800L, 1338566400L, 1338588000L, 1338609600L, 1338631200L, 1338652800L, 1338674400L, 1338696000L, 1338717600L, 1338739200L, 1338760800L, 1338782400L, 1338804000L, 1338825600L, 1338847200L, 1338868800L, 1338890400L, 1338912000L, 1338933600L, 1338955200L, 1338976800L, 1338998400L, 1339020000L, 1339041600L), class = c(\'POSIXct\', \'POSIXt\'), tzone = \'\'), na.rm = TRUE);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmin7() {
+ assertEval("argv <- list(1.234e+100);min(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmin8() {
+ assertEval("argv <- list(structure(c(3L, 2L, 1L), .Label = c(\'A\', \'B\', \'C\'), class = c(\'ordered\', \'factor\')), na.rm = FALSE);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmin9() {
+ assertEval("argv <- list(structure(c(11368.8306749654, 11347.7238090355, 11341.9182102121, 11392.4878842821, 11367.3445285107, 11337.9245694652, 11332.0560643654, 11356.4682624019, 11387.6852128883, 11364.9132677, 11391.3319486445, 11374.2254758319, 11347.9708838458, 11353.2031583386, 11333.3748092474, 11323.9154302836, 11373.0896246266, 11330.2228965024, 11354.2399044028, 11367.8070731596, 11392.4287034031, 11357.6915504499, 11356.9044667059, 11335.1409634408, 11375.8374661156, 11354.7726842454, 11358.781884864, 11337.5281579299, 11339.0060699913, 11364.6998397419, 11363.2410538797, 11328.3945066198, 11325.487840571, 11367.9956844538, 11388.0030639744, 11364.8664695648, 11362.2630523606, 11359.821940674, 11391.9566656714, 11358.5349275633, 11370.7951655071, 11365.1078852355, 11339.7208074429, 11341.0716148671, 11374.0516736354, 11354.6799581982, 11335.2588737891, 11375.2688788734, 11330.349134828, 11383.518146432, 11366.0251480173, 11362.0011677193, 11346.0144123337, 11354.7192011815, 11358.0308680837, 11335.6606452791, 11360.0741421962, 11328.2693021996, 11342.4429152855, 11337.8889663466, 11342.9353336683, 11385.6565872063, 11354.2364726327, 11377.5989422849, 11384.6433324409, 11351.9186946652, 11327.4665936357, 11346.4841244179, 11373.6608162634, 11346.6330733448, 11367.1289885738, 11381.8430187805, 11382.9292165297, 11350.3951496719, 11349.6345719923, 11385.6811798196, 11368.1021034038, 11374.8755054101, 11365.3712412571, 11386.2157128048, 11343.5611108569, 11336.3882076922, 11385.0515660313, 11358.2337640012, 11384.3940280117, 11336.2435535709, 11376.0672136671, 11373.7149224868, 11389.0607372806, 11361.3352610911, 11372.8220707406, 11350.2233569878, 11330.0611188328, 11387.9111462012, 11342.8262750218, 11364.340121117, 11330.7252423461, 11381.8354922482, 11345.257457911, 11377.7995935893), class = \'Date\'), na.rm = TRUE);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmin10() {
+ assertEval("argv <- list(c(2.00256647265648e-308, 2.22284878464869e-308, 2.22507363599982e-308, 2.2250738585072e-308, 2.22507408101459e-308, 2.22729893236571e-308, 2.44758124435792e-308));min(argv[[1]]);");
+ }
+
+ @Test
+ public void testmin11() {
+ assertEval("argv <- list(c(FALSE, FALSE));min(argv[[1]]);");
+ }
+
+ @Test
+ public void testmin12() {
+ assertEval("argv <- list(c(2, 13954490295224484, 9.73638996997572e+31, 6.79331796732739e+47, 4.73986448237219e+63, 3.30711964599708e+79, 2.30745845026066e+95, 1.60997032753976e+111, 1.12331576556267e+127, 7.83764947450857e+142, 5.46852017646992e+158, 3.8155205865895e+174, 2.66218224983966e+190, 1.85746981847535e+206, 1.29600222777925e+222, 9.04252525506755e+237, 6.30919154580821e+253, 4.40207760983472e+269, 3.07143746426322e+285, 2.14301721437253e+301));min(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmin13() {
+ assertEval("min( );");
+ }
+
+ @Test
+ public void testmin14() {
+ assertEval("argv <- list(structure(c(13823, NA), class = \'Date\'), na.rm = TRUE);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmin15() {
+ assertEval("argv <- list(structure(c(1208822400, 1209168000), class = c(\'POSIXct\', \'POSIXt\'), tzone = \'GMT\'), na.rm = FALSE);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testmin16() {
+ assertEval("argv <- list(3L, 7);min(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testmin17() {
+ assertEval("argv <- list(c(-7, -5.6, -4.2, -2.8, -1.4, 0, 1.4, 2.8, 4.2, 5.6, 7));min(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmin18() {
+ assertEval("argv <- list(c(4.5241870901798, 0.211646098116025, 1.86003798801034e-43));min(argv[[1]]);");
+ }
+
+ @Test
+ public void testmin19() {
+ assertEval("argv <- list(structure(c(-0.562441486309934, -0.588967592535822, 0.0277608937997097, 0.568074124752969, 3.89980510825846, -0.428174866497729, -0.343990813420242, -0.260996370058754, -2.31774610938305, 0.314764947225063, -0.455124436264437, -0.0444006414474544, -0.27748974692001, -0.303134023269405, -0.670168347915028, 2.92643313367, -0.749546667806845, -0.410394401887929, -0.203261263063707, 0.1847365997012, 0.128559671155683, 0.313558179929332, -0.0668425264405297, -0.106427678524531, -0.523747793519006, -0.402585404761851, 0.0642079595716389, -0.779859286629166, 0.356484381211739, -0.625053119472271, 1.31547628490512, -0.21959878152752, -0.102402088986461), .Names = c(\'Craig Dunain\', \'Ben Rha\', \'Ben Lomond\', \'Goatfell\', \'Bens of Jura\', \'Cairnpapple\', \'Scolty\', \'Traprain\', \'Lairig Ghru\', \'Dollar\', \'Lomonds\', \'Cairn Table\', \'Eildon Two\', \'Cairngorm\', \'Seven Hills\', \'Knock Hill\', \'Black Hill\', \'Creag Beag\', \'Kildcon Hill\', \'Meall Ant-Suidhe\', \'Half Ben Nevis\', \'Cow Hill\', \'N Berwick Law\', \'Creag Dubh\', \'Burnswark\', \'Largo Law\', \'Criffel\', \'Acmony\', \'Ben Nevis\', \'Knockfarrel\', \'Two Breweries\', \'Cockleroi\', \'Moffat Chase\')));min(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testmin20() {
+ assertEval("argv <- list(numeric(0));min(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnames.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnames.java
new file mode 100644
index 0000000000000000000000000000000000000000..3ce91905ac68340579d00e5acccb718b25d606ea
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnames.java
@@ -0,0 +1,207 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinnames extends TestBase {
+
+ @Test
+ public void testnames1() {
+ assertEval("argv <- list(structure(list(size = 113, isdir = FALSE, mode = structure(436L, class = \'octmode\'), mtime = structure(1395082088.72988, class = c(\'POSIXct\', \'POSIXt\')), ctime = structure(1395082088.72988, class = c(\'POSIXct\', \'POSIXt\')), atime = structure(1395082088.77388, class = c(\'POSIXct\', \'POSIXt\')), uid = 1001L, gid = 1001L, uname = \'roman\', grname = \'roman\'), .Names = c(\'size\', \'isdir\', \'mode\', \'mtime\', \'ctime\', \'atime\', \'uid\', \'gid\', \'uname\', \'grname\'), class = \'data.frame\', row.names = \'/tmp/RtmptPgrXI/file55711ba85492\'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames2() {
+ assertEval("argv <- list(list(character(0), numeric(0), numeric(0), complex(0), integer(0), logical(0), character(0)));names(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnames3() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = \'data.frame\'));names(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnames4() {
+ assertEval("argv <- list(structure(list(A = NULL, B = NULL, `NA` = NULL), .Names = c(\'A\', \'B\', NA)));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames6() {
+ assertEval("argv <- list(structure(list(groups = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c(\'1\', \'2\', \'3\'), class = \'factor\')), .Names = \'groups\'));names(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnames7() {
+ assertEval("argv <- list(structure(1:20, .Tsp = c(1, 20, 1), class = \'ts\'));names(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnames8() {
+ assertEval("argv <- list(structure(c(12L, 120L, 116L), .Dim = 3L, .Dimnames = structure(list(c(\'0-5yrs\', \'6-11yrs\', \'12+ yrs\')), .Names = \'\'), class = \'table\'));names(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnames9() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), hour = c(20L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 19L, 19L, 19L, 20L, 20L, 20L, 19L, 20L, 19L, 19L, 19L, 20L), mday = c(30L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 31L, 30L, 30L, 30L, 30L, 31L, 31L, 31L, 30L, 30L, 30L, 31L, 30L, 31L, 31L, 31L, 30L), mon = c(5L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 5L, 5L, 5L, 5L, 11L, 11L, 11L, 5L, 5L, 5L, 11L, 5L, 11L, 11L, 11L, 5L), year = c(72L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 81L, 82L, 83L, 85L, 87L, 89L, 90L, 92L, 93L, 94L, 95L, 97L, 98L, 105L, 108L, 112L), wday = c(5L, 0L, 1L, 2L, 3L, 5L, 6L, 0L, 1L, 2L, 3L, 4L, 0L, 4L, 0L, 1L, 2L, 3L, 4L, 0L, 1L, 4L, 6L, 3L, 6L), yday = c(181L, 365L, 364L, 364L, 364L, 365L, 364L, 364L, 364L, 180L, 180L, 180L, 180L, 364L, 364L, 364L, 181L, 180L, 180L, 364L, 180L, 364L, 364L, 365L, 181L), isdst = c(1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 1L)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\'), tzone = c(\'\', \'EST\', \'EDT\')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames10() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c(\'abc\', \'def\'), class = \'factor\')), .Names = c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\'), class = \'data.frame\', row.names = c(\'1\', \'2\', \'3\')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames11() {
+ assertEval("argv <- list(structure(c(NA, NA, NA, NA, NA, 1L, 2L), .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames12() {
+ assertEval("argv <- list(structure(list(V1 = c(-1L, -2L, 1L, 2L, 3L, 4L, 5L), V2 = c(-3L, -4L, 6L, 7L, 8L, 9L, 10L), V3 = c(-5L, -6L, 11L, 12L, 13L, 14L, 15L), V4 = c(-7L, -8L, 16L, 17L, 18L, 19L, 20L), V5 = c(-9L, -10L, 21L, 22L, 23L, 24L, 25L)), .Names = c(\'V1\', \'V2\', \'V3\', \'V4\', \'V5\'), row.names = c(NA, 7L), class = \'data.frame\'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames13() {
+ assertEval("argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c(\'Employed\', \'GNP.deflator\', \'GNP\', \'Unemployed\', \'Armed.Forces\', \'Population\', \'Year\'), class = \'data.frame\', row.names = 1947:1962, terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year)));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames14() {
+ assertEval("argv <- list(structure(list(ii = 1:10, xx = c(-9.42477796076938, -6.28318530717959, -3.14159265358979, 0, 3.14159265358979, 6.28318530717959, 9.42477796076938, 12.5663706143592, 15.707963267949, 18.8495559215388)), .Names = c(\'ii\', \'xx\')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames15() {
+ assertEval("argv <- list(structure(list(`cbind(X, M)` = structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(NULL, c(\'X\', \'M\'))), M.user = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L), .Label = c(\'N\', \'Y\'), class = \'factor\'), Temp = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c(\'High\', \'Low\'), class = \'factor\'), Soft = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c(\'Hard\', \'Medium\', \'Soft\'), class = \'factor\')), .Names = c(\'cbind(X, M)\', \'M.user\', \'Temp\', \'Soft\'), class = \'data.frame\', row.names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\'), terms = quote(cbind(X, M) ~ M.user + Temp + Soft)));names(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnames16() {
+ assertEval("argv <- list(structure(list(), .Names = character(0)));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames17() {
+ assertEval("argv <- list(c(1281L, 1283L));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames18() {
+ assertEval("argv <- list(structure(list(itemBullet = \'• \'), .Names = \'itemBullet\'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames19() {
+ assertEval("argv <- list(structure(list(srcfile = c(\'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\', \'/home/lzhao/hg/r-instrumented/library/utils/R/utils\'), frow = c(2417L, 2417L, 2418L, 2418L, 2420L, 2420L, 2422L, 2422L, 2423L, 2424L, 2426L, 2426L, 2426L, 2426L), lrow = c(2417L, 2417L, 2419L, 2419L, 2421L, 2421L, 2422L, 2422L, 2434L, 2425L, 2433L, 2433L, 2433L, 2433L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, 14L), class = \'data.frame\'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames20() {
+ assertEval("argv <- list(c(-21.222245139688+176.377752294836i, -21.222245139688-176.377752294836i, 61.0965873274464+76.7794305756989i, 61.0965873274464-76.7794305756989i, -11.748684375517+0i));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames21() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list(\'a\')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames22() {
+ assertEval("argv <- list(structure(list(`Surv(time, status)` = structure(c(9, 1, 1, 6, 6, 8, 1, 1, 0, 1, 1, 0), .Dim = c(6L, 2L), .Dimnames = list(NULL, c(\'time\', \'status\')), class = \'Surv\', type = \'right\'), x = c(0, 1, 1, 1, 0, 0)), .Names = c(\'Surv(time, status)\', \'x\'), class = \'data.frame\', row.names = c(1L, 3L, 4L, 5L, 6L, 7L)));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames23() {
+ assertEval("argv <- list(structure(list(xlev = structure(list(), .Names = character(0))), .Names = \'xlev\'));names(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnames24() {
+ assertEval("argv <- list(structure(c(0.434200949779115, NA, 0.907914219551846, 0.907914219551846, 0.907914219551846, 0.434200949779115, 0.434200949779115), .Names = c(\'1\', NA, \'3\', \'4\', \'5\', \'6\', \'7\')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames25() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames26() {
+ assertEval("argv <- list(structure(c(3.22711508258913, 3.17840134153376, 3.17811325231463, 3.14144977340047, 3.21272015441784, 3.17926446433903, 3.19284611518884, 3.21218760440396, 3.19838213000829, 3.21827285357145, 3.33284226699435, 3.33203427702752, 3.24353410183206, 3.24674470972384, 3.23477029516092, 3.19256745333655, 3.19728055812562, 3.18184358794477, 3.25647720624168, 3.25527250510331, 3.23527587668705, 3.30276370847298, 3.35063560825895, 3.39410130204004, 3.30749603791321, 3.21879799811174, 3.22865695810894, 3.21031851982623, 3.25647720624168, 3.24204423936955, 3.25406445291434, 3.28465628278852, 3.20924684875337, 3.29928933408768, 3.34888872307144, 3.34084054981233, 3.31806333496276, 3.24748226067705, 3.26363606858811, 3.19562294358694, 3.29578694025161, 3.2678754193189, 3.29336255471145, 3.22762964957101, 3.24993175663419, 3.29578694025161, 3.37966803403365, 3.42390091852842, 3.32159843046534, 3.29292029960001, 3.22453306260609, 3.28802553538836, 3.30168094929358, 3.25839780409551, 3.30362797638389, 3.28148788794008, 3.31889771462749, 3.31806333496276, 3.32592595577147, 3.33243845991561, 3.20628604441243, 3.17695898058691, 3.18977095634687, 3.14050804303818, 3.23829706787539, 3.25478968739721, 3.25017594808393, 3.27577190016493, 3.30189771719521, 3.3174364965351, 3.32056168019524, 3.31196566036837, 3.1978316933289, 3.13225968953104, 3.21801004298436, 3.14050804303818, 3.18155777386279, 3.15259407792747, 3.15896526038341, 3.18836592606315, 3.21906033244886, 3.19340290306242, 3.27989498001164, 3.34222522936079, 3.16820274684263, 3.21879799811174, 3.14829409743475, 3.14457420760962, 3.1846914308176, 3.11693964655076, 3.18355453361886, 3.12287092286444, 3.21138755293686, 3.24254142829838, 3.29181268746712, 3.35679046035172, 3.2169572073611, 3.14643813528577, 3.14952701375435, 3.14705767102836, 3.14426277376199, 3.18184358794477, 3.18412335423967, 3.21563756343506, 3.18041263283832, 3.22659990520736, 3.30102999566398, 3.34537373055909, 3.29136885045158, 3.16494737262184, 3.19395897801919, 3.16405529189345, 3.16016829295851, 3.21005084987514, 3.21932250841934, 3.2143138974244, 3.21563756343506, 3.22608411597582, 3.31175386105575, 3.35449260058944, 3.25839780409551, 3.15986784709257, 3.24600590407603, 3.1646502159343, 3.19200959265367, 3.15563963375978, 3.15442397311465, 3.1914510144649, 3.21616590228599, 3.21827285357145, 3.30449052777349, 3.34380233316165, 3.22141423784234, 3.13385812520333, 3.17782497186468, 3.13353890837022, 3.16226561429802, 3.18241465243455, 3.16435285578444, 3.19089171692217, 3.18977095634687, 3.26173854735254, 3.2397998184471, 3.28802553538836, 3.16849748352303, 3.16375752398196, 3.18808437371494, 3.14736710779379, 3.18241465243455, 3.14144977340047, 3.21510858105309, 3.17897694729317, 3.22556771343947, 3.28735377271475, 3.27137687189407, 3.23704079137919, 3.16316137497702, 3.15986784709257, 3.16316137497702, 3.13513265137677, 3.17231096852195, 3.19256745333655, 3.17260293120986, 3.22634208716363, 3.20248831706009, 3.26717172840301, 3.30059548388996, 3.31785448933147), .Tsp = c(1969, 1982.91666666667, 12), class = \'ts\'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames27() {
+ assertEval("argv <- list(structure(list(object = structure(3.14159265358979, comment = \'Start with pi\'), slots = \'comment\', dataPart = TRUE, class = structure(\'classPrototypeDef\', package = \'methods\')), .Names = c(\'object\', \'slots\', \'dataPart\', \'class\')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames28() {
+ assertEval("argv <- list(list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'#ifdef\', \'\\\\Sexpr\', \'build\', \'install\', \'render\'))));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames29() {
+ assertEval("argv <- list(structure(list(zz = complex(0)), .Names = \'zz\'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames31() {
+ assertEval("argv <- list(list(structure(list(srcfile = c(\'/home/lzhao/tmp/RtmpTzriDZ/R.INSTALL30d4108a07be/mgcv/R/gam.fit3.r\', \'/home/lzhao/tmp/RtmpTzriDZ/R.INSTALL30d4108a07be/mgcv/R/gam.fit3.r\'), frow = c(1287L, 1289L), lrow = c(1287L, 1289L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = 1:2, class = \'data.frame\'), structure(list(srcfile = \'/home/lzhao/tmp/RtmpTzriDZ/R.INSTALL30d4108a07be/mgcv/R/gam.fit3.r\', frow = 1289L, lrow = 1289L), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, -1L), class = \'data.frame\')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames32() {
+ assertEval("argv <- list(structure(list(trace = 0, fnscale = 1, parscale = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), ndeps = c(0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001, 0.001), maxit = 100L, abstol = -Inf, reltol = 1.49011611938477e-08, alpha = 1, beta = 0.5, gamma = 2, REPORT = 10, type = 1, lmm = 5, factr = 1e+07, pgtol = 0, tmax = 10, temp = 10), .Names = c(\'trace\', \'fnscale\', \'parscale\', \'ndeps\', \'maxit\', \'abstol\', \'reltol\', \'alpha\', \'beta\', \'gamma\', \'REPORT\', \'type\', \'lmm\', \'factr\', \'pgtol\', \'tmax\', \'temp\')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames33() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 0L), Deviance = c(NA, 0), `Resid. Df` = c(10L, 10L), `Resid. Dev` = c(2.74035772634541, 2.74035772634541)), .Names = c(\'Df\', \'Deviance\', \'Resid. Df\', \'Resid. Dev\'), row.names = c(\'NULL\', \'x\'), class = c(\'anova\', \'data.frame\'), heading = \'Analysis of Deviance Table\\n\\nModel: gaussian, link: identity\\n\\nResponse: y\\n\\nTerms added sequentially (first to last)\\n\\n\'));names(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnames34() {
+ assertEval("argv <- list(structure(c(100, -1e-13, Inf, -Inf, NaN, 3.14159265358979, NA), .Names = c(\' 100\', \'-1e-13\', \' Inf\', \'-Inf\', \' NaN\', \'3.14\', \' NA\')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames35() {
+ assertEval("argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c(\'y\', \'x\', \'z\'), class = \'data.frame\', row.names = c(NA, 10L), terms = quote(y ~ x * z)));names(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnames36() {
+ assertEval("argv <- list(structure(c(2671, 6.026e+77, 3.161e+152, 3.501e+299, 2.409e+227, 1.529e+302), .Names = c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\'), class = \'table\'));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames37() {
+ assertEval("argv <- list(structure(list(surname = structure(c(\'McNeil\', \'Ripley\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'AsIs\'), nationality = structure(c(\'Australia\', \'UK\', \'UK\', \'US\', \'US\', \'Australia\'), class = \'AsIs\'), deceased = structure(c(\'no\', \'no\', \'no\', \'no\', \'yes\', \'no\'), class = \'AsIs\'), title = structure(c(\'Interactive Data Analysis\', \'Spatial Statistics\', \'Stochastic Simulation\', \'LISP-STAT\', \'Exploratory Data Analysis\', \'Modern Applied Statistics ...\'), class = \'AsIs\'), other.author = structure(c(NA, NA, NA, NA, NA, \'Ripley\'), class = \'AsIs\')), .Names = c(\'surname\', \'nationality\', \'deceased\', \'title\', \'other.author\')));names(argv[[1]]);");
+ }
+
+ @Test
+ public void testnames38() {
+ assertEval("argv <- list(structure(list(head = logical(0)), .Names = \'head\', class = \'data.frame\', row.names = integer(0)));names(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnamesassign.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnamesassign.java
new file mode 100644
index 0000000000000000000000000000000000000000..b395de0d671f5bd27f125213fc987234bf1c36bd
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnamesassign.java
@@ -0,0 +1,120 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinnamesassign extends TestBase {
+
+ @Test
+ @Ignore
+ public void testnamesassign1() {
+ assertEval("argv <- list(structure(list(happy = c(\'a\', \'b\', \'c\', \'d\'), sad = c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\')), .Names = c(\'happy\', \'sad\')), value = c(\'happy\', \'sad\'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnamesassign2() {
+ assertEval("argv <- list(structure(list(population = c(3615, 365, 2212, 2110, 21198, 2541, 3100, 579, 8277, 4931, 868, 813, 11197, 5313, 2861, 2280, 3387, 3806, 1058, 4122, 5814, 9111, 3921, 2341, 4767, 746, 1544, 590, 812, 7333, 1144, 18076, 5441, 637, 10735, 2715, 2284, 11860, 931, 2816, 681, 4173, 12237, 1203, 472, 4981, 3559, 1799, 4589, 376), income = c(3624, 6315, 4530, 3378, 5114, 4884, 5348, 4809, 4815, 4091, 4963, 4119, 5107, 4458, 4628, 4669, 3712, 3545, 3694, 5299, 4755, 4751, 4675, 3098, 4254, 4347, 4508, 5149, 4281, 5237, 3601, 4903, 3875, 5087, 4561, 3983, 4660, 4449, 4558, 3635, 4167, 3821, 4188, 4022, 3907, 4701, 4864, 3617, 4468, 4566), illiteracy = c(2.1, 1.5, 1.8, 1.9, 1.1, 0.7, 1.1, 0.9, 1.3, 2, 1.9, 0.6, 0.9, 0.7, 0.5, 0.6, 1.6, 2.8, 0.7, 0.9, 1.1, 0.9, 0.6, 2.4, 0.8, 0.6, 0.6, 0.5, 0.7, 1.1, 2.2, 1.4, 1.8, 0.8, 0.8, 1.1, 0.6, 1, 1.3, 2.3, 0.5, 1.7, 2.2, 0.6, 0.6, 1.4, 0.6, 1.4, 0.7, 0.6), life.exp = c(69.05, 69.31, 70.55, 70.66, 71.71, 72.06, 72.48, 70.06, 70.66, 68.54, 73.6, 71.87, 70.14, 70.88, 72.56, 72.58, 70.1, 68.76, 70.39, 70.22, 71.83, 70.63, 72.96, 68.09, 70.69, 70.56, 72.6, 69.03, 71.23, 70.93, 70.32, 70.55, 69.21, 72.78, 70.82, 71.42, 72.13, 70.43, 71.9, 67.96, 72.08, 70.11, 70.9, 72.9, 71.64, 70.08, 71.72, 69.48, 72.48, 70.29), murder = c(15.1, 11.3, 7.8, 10.1, 10.3, 6.8, 3.1, 6.2, 10.7, 13.9, 6.2, 5.3, 10.3, 7.1, 2.3, 4.5, 10.6, 13.2, 2.7, 8.5, 3.3, 11.1, 2.3, 12.5, 9.3, 5, 2.9, 11.5, 3.3, 5.2, 9.7, 10.9, 11.1, 1.4, 7.4, 6.4, 4.2, 6.1, 2.4, 11.6, 1.7, 11, 12.2, 4.5, 5.5, 9.5, 4.3, 6.7, 3, 6.9), hs.grad = c(41.3, 66.7, 58.1, 39.9, 62.6, 63.9, 56, 54.6, 52.6, 40.6, 61.9, 59.5, 52.6, 52.9, 59, 59.9, 38.5, 42.2, 54.7, 52.3, 58.5, 52.8, 57.6, 41, 48.8, 59.2, 59.3, 65.2, 57.6, 52.5, 55.2, 52.7, 38.5, 50.3, 53.2, 51.6, 60, 50.2, 46.4, 37.8, 53.3, 41.8, 47.4, 67.3, 57.1, 47.8, 63.5, 41.6, 54.5, 62.9), frost = c(20, 152, 15, 65, 20, 166, 139, 103, 11, 60, 0, 126, 127, 122, 140, 114, 95, 12, 161, 101, 103, 125, 160, 50, 108, 155, 139, 188, 174, 115, 120, 82, 80, 186, 124, 82, 44, 126, 127, 65, 172, 70, 35, 137, 168, 85, 32, 100, 149, 173), area = c(50708, 566432, 113417, 51945, 156361, 103766, 4862, 1982, 54090, 58073, 6425, 82677, 55748, 36097, 55941, 81787, 39650, 44930, 30920, 9891, 7826, 56817, 79289, 47296, 68995, 145587, 76483, 109889, 9027, 7521, 121412, 47831, 48798, 69273, 40975, 68782, 96184, 44966, 1049, 30225, 75955, 41328, 262134, 82096, 9267, 39780, 66570, 24070, 54464, 97203), region = structure(c(2L, 4L, 4L, 2L, 4L, 4L, 1L, 2L, 2L, 2L, 4L, 4L, 3L, 3L, 3L, 3L, 2L, 2L, 1L, 2L, 1L, 3L, 3L, 2L, 3L, 4L, 3L, 4L, 1L, 1L, 4L, 1L, 2L, 3L, 3L, 2L, 4L, 1L, 1L, 2L, 3L, 2L, 2L, 4L, 1L, 2L, 4L, 2L, 3L, 4L), .Label = c(\'Northeast\', \'South\', \'North Central\', \'West\'), class = \'factor\')), .Names = c(\'population\', \'income\', \'illiteracy\', \'life.exp\', \'murder\', \'hs.grad\', \'frost\', \'area\', \'region\'), row.names = c(\'Alabama\', \'Alaska\', \'Arizona\', \'Arkansas\', \'California\', \'Colorado\', \'Connecticut\', \'Delaware\', \'Florida\', \'Georgia\', \'Hawaii\', \'Idaho\', \'Illinois\', \'Indiana\', \'Iowa\', \'Kansas\', \'Kentucky\', \'Louisiana\', \'Maine\', \'Maryland\', \'Massachusetts\', \'Michigan\', \'Minnesota\', \'Mississippi\', \'Missouri\', \'Montana\', \'Nebraska\', \'Nevada\', \'New Hampshire\', \'New Jersey\', \'New Mexico\', \'New York\', \'North Carolina\', \'North Dakota\', \'Ohio\', \'Oklahoma\', \'Oregon\', \'Pennsylvania\', \'Rhode Island\', \'South Carolina\', \'South Dakota\', \'Tennessee\', \'Texas\', \'Utah\', \'Vermont\', \'Virginia\', \'Washington\', \'West Virginia\', \'Wisconsin\', \'Wyoming\'), class = \'data.frame\'), value = c(\'population\', \'income\', \'illiteracy\', \'life.exp\', \'murder\', \'hs.grad\', \'frost\', \'area\', \'region\'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnamesassign3() {
+ assertEval("argv <- list(structure(list(`Sepal Length` = c(5.1, 4.9, 4.7, 4.6, 5, 5.4, 4.6, 5, 4.4, 4.9, 5.4, 4.8, 4.8, 4.3, 5.8, 5.7, 5.4, 5.1, 5.7, 5.1, 5.4, 5.1, 4.6, 5.1, 4.8, 5, 5, 5.2, 5.2, 4.7, 4.8, 5.4, 5.2, 5.5, 4.9, 5, 5.5, 4.9, 4.4, 5.1, 5, 4.5, 4.4, 5, 5.1, 4.8, 5.1, 4.6, 5.3, 5, 7, 6.4, 6.9, 5.5, 6.5, 5.7, 6.3, 4.9, 6.6, 5.2, 5, 5.9, 6, 6.1, 5.6, 6.7, 5.6, 5.8, 6.2, 5.6, 5.9, 6.1, 6.3, 6.1, 6.4, 6.6, 6.8, 6.7, 6, 5.7, 5.5, 5.5, 5.8, 6, 5.4, 6, 6.7, 6.3, 5.6, 5.5, 5.5, 6.1, 5.8, 5, 5.6, 5.7, 5.7, 6.2, 5.1, 5.7, 6.3, 5.8, 7.1, 6.3, 6.5, 7.6, 4.9, 7.3, 6.7, 7.2, 6.5, 6.4, 6.8, 5.7, 5.8, 6.4, 6.5, 7.7, 7.7, 6, 6.9, 5.6, 7.7, 6.3, 6.7, 7.2, 6.2, 6.1, 6.4, 7.2, 7.4, 7.9, 6.4, 6.3, 6.1, 7.7, 6.3, 6.4, 6, 6.9, 6.7, 6.9, 5.8, 6.8, 6.7, 6.7, 6.3, 6.5, 6.2, 5.9), `Sepal Width` = c(3.5, 3, 3.2, 3.1, 3.6, 3.9, 3.4, 3.4, 2.9, 3.1, 3.7, 3.4, 3, 3, 4, 4.4, 3.9, 3.5, 3.8, 3.8, 3.4, 3.7, 3.6, 3.3, 3.4, 3, 3.4, 3.5, 3.4, 3.2, 3.1, 3.4, 4.1, 4.2, 3.1, 3.2, 3.5, 3.6, 3, 3.4, 3.5, 2.3, 3.2, 3.5, 3.8, 3, 3.8, 3.2, 3.7, 3.3, 3.2, 3.2, 3.1, 2.3, 2.8, 2.8, 3.3, 2.4, 2.9, 2.7, 2, 3, 2.2, 2.9, 2.9, 3.1, 3, 2.7, 2.2, 2.5, 3.2, 2.8, 2.5, 2.8, 2.9, 3, 2.8, 3, 2.9, 2.6, 2.4, 2.4, 2.7, 2.7, 3, 3.4, 3.1, 2.3, 3, 2.5, 2.6, 3, 2.6, 2.3, 2.7, 3, 2.9, 2.9, 2.5, 2.8, 3.3, 2.7, 3, 2.9, 3, 3, 2.5, 2.9, 2.5, 3.6, 3.2, 2.7, 3, 2.5, 2.8, 3.2, 3, 3.8, 2.6, 2.2, 3.2, 2.8, 2.8, 2.7, 3.3, 3.2, 2.8, 3, 2.8, 3, 2.8, 3.8, 2.8, 2.8, 2.6, 3, 3.4, 3.1, 3, 3.1, 3.1, 3.1, 2.7, 3.2, 3.3, 3, 2.5, 3, 3.4, 3), `Petal Length` = c(1.4, 1.4, 1.3, 1.5, 1.4, 1.7, 1.4, 1.5, 1.4, 1.5, 1.5, 1.6, 1.4, 1.1, 1.2, 1.5, 1.3, 1.4, 1.7, 1.5, 1.7, 1.5, 1, 1.7, 1.9, 1.6, 1.6, 1.5, 1.4, 1.6, 1.6, 1.5, 1.5, 1.4, 1.5, 1.2, 1.3, 1.4, 1.3, 1.5, 1.3, 1.3, 1.3, 1.6, 1.9, 1.4, 1.6, 1.4, 1.5, 1.4, 4.7, 4.5, 4.9, 4, 4.6, 4.5, 4.7, 3.3, 4.6, 3.9, 3.5, 4.2, 4, 4.7, 3.6, 4.4, 4.5, 4.1, 4.5, 3.9, 4.8, 4, 4.9, 4.7, 4.3, 4.4, 4.8, 5, 4.5, 3.5, 3.8, 3.7, 3.9, 5.1, 4.5, 4.5, 4.7, 4.4, 4.1, 4, 4.4, 4.6, 4, 3.3, 4.2, 4.2, 4.2, 4.3, 3, 4.1, 6, 5.1, 5.9, 5.6, 5.8, 6.6, 4.5, 6.3, 5.8, 6.1, 5.1, 5.3, 5.5, 5, 5.1, 5.3, 5.5, 6.7, 6.9, 5, 5.7, 4.9, 6.7, 4.9, 5.7, 6, 4.8, 4.9, 5.6, 5.8, 6.1, 6.4, 5.6, 5.1, 5.6, 6.1, 5.6, 5.5, 4.8, 5.4, 5.6, 5.1, 5.1, 5.9, 5.7, 5.2, 5, 5.2, 5.4, 5.1), `Petal Width` = c(0.2, 0.2, 0.2, 0.2, 0.2, 0.4, 0.3, 0.2, 0.2, 0.1, 0.2, 0.2, 0.1, 0.1, 0.2, 0.4, 0.4, 0.3, 0.3, 0.3, 0.2, 0.4, 0.2, 0.5, 0.2, 0.2, 0.4, 0.2, 0.2, 0.2, 0.2, 0.4, 0.1, 0.2, 0.2, 0.2, 0.2, 0.1, 0.2, 0.2, 0.3, 0.3, 0.2, 0.6, 0.4, 0.3, 0.2, 0.2, 0.2, 0.2, 1.4, 1.5, 1.5, 1.3, 1.5, 1.3, 1.6, 1, 1.3, 1.4, 1, 1.5, 1, 1.4, 1.3, 1.4, 1.5, 1, 1.5, 1.1, 1.8, 1.3, 1.5, 1.2, 1.3, 1.4, 1.4, 1.7, 1.5, 1, 1.1, 1, 1.2, 1.6, 1.5, 1.6, 1.5, 1.3, 1.3, 1.3, 1.2, 1.4, 1.2, 1, 1.3, 1.2, 1.3, 1.3, 1.1, 1.3, 2.5, 1.9, 2.1, 1.8, 2.2, 2.1, 1.7, 1.8, 1.8, 2.5, 2, 1.9, 2.1, 2, 2.4, 2.3, 1.8, 2.2, 2.3, 1.5, 2.3, 2, 2, 1.8, 2.1, 1.8, 1.8, 1.8, 2.1, 1.6, 1.9, 2, 2.2, 1.5, 1.4, 2.3, 2.4, 1.8, 1.8, 2.1, 2.4, 2.3, 1.9, 2.3, 2.5, 2.3, 1.9, 2, 2.3, 1.8), Species = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c(\'setosa\', \'versicolor\', \'virginica\'), class = \'factor\')), .Names = c(\'Sepal Length\', \'Sepal Width\', \'Petal Length\', \'Petal Width\', \'Species\'), row.names = c(NA, -150L), class = \'data.frame\'), value = c(\'Sepal Length\', \'Sepal Width\', \'Petal Length\', \'Petal Width\', \'Species\'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnamesassign4() {
+ assertEval("argv <- list(structure(list(y = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962, Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551)), .Names = c(\'y\', \'GNP\', \'Unemployed\', \'Armed.Forces\', \'Population\', \'Year\', \'Employed\'), row.names = 1947:1962, class = \'data.frame\'), value = c(\'y\', \'GNP\', \'Unemployed\', \'Armed.Forces\', \'Population\', \'Year\', \'Employed\'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnamesassign5() {
+ assertEval("argv <- list(c(-3.21402130636699, 101.08748330158, -8.50234284659562), value = NULL);`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnamesassign6() {
+ assertEval("argv <- list(structure(1:3, .Names = c(NA, \'b\', NA)), value = c(NA, \'b\'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnamesassign7() {
+ assertEval("argv <- list(structure(c(3.14159265358979e-10, 0.0314159265358979, 3.14159265358979, 31.4159265358979, 314.159265358979, 314159265.358979, 3.14159265358979e+20), .Names = c(\'3.14e-10\', \'0.0314\', \'3.14\', \'31.4\', \'314\', \'3.14e+08\', \'3.14e+20\')), value = c(\'3.14e-10\', \'0.0314\', \'3.14\', \'31.4\', \'314\', \'3.14e+08\', \'3.14e+20\'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnamesassign8() {
+ assertEval("argv <- list(structure(c(\'variable1\', \'variable2\'), .Names = c(\'variable1\', \'variable2\')), value = c(\'variable1\', \'variable2\'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnamesassign9() {
+ assertEval("argv <- list(structure(c(NA, FALSE, TRUE), .Names = c(NA, \'FALSE\', \'TRUE\')), value = c(NA, \'FALSE\', \'TRUE\'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnamesassign10() {
+ assertEval("argv <- list(structure(list(), .Names = character(0)), character(0));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnamesassign11() {
+ assertEval("argv <- list(structure(list(save.object = NULL, panel.error = NULL, drop.unused.levels = NULL, default.theme = NULL, legend.bbox = NULL, banking = NULL, default.args = NULL, axis.padding = NULL, skip.boundary.labels = NULL, interaction.sep = NULL, panel.contourplot = NULL, panel.levelplot = NULL, panel.levelplot.raster = NULL, panel.parallel = NULL, panel.densityplot = NULL, panel.splom = NULL, panel.wireframe = NULL, panel.dotplot = NULL, panel.qq = NULL, panel.stripplot = NULL, panel.xyplot = NULL, panel.qqmath = NULL, panel.barchart = NULL, panel.bwplot = NULL, panel.histogram = NULL, panel.cloud = NULL, panel.pairs = NULL, prepanel.default.bwplot = NULL, prepanel.default.cloud = NULL, prepanel.default.densityplot = NULL, prepanel.default.histogram = NULL, prepanel.default.levelplot = NULL, prepanel.default.parallel = NULL, prepanel.default.qq = NULL, prepanel.default.qqmath = NULL, prepanel.default.splom = NULL, prepanel.default.xyplot = NULL, prepanel.default.dotplot = NULL, prepanel.default.barchart = NULL, prepanel.default.wireframe = NULL, prepanel.default.contourplot = NULL, axis.units = NULL, layout.heights = NULL, layout.widths = NULL, highlight.gpar = NULL), .Names = c(\'save.object\', \'panel.error\', \'drop.unused.levels\', \'default.theme\', \'legend.bbox\', \'banking\', \'default.args\', \'axis.padding\', \'skip.boundary.labels\', \'interaction.sep\', \'panel.contourplot\', \'panel.levelplot\', \'panel.levelplot.raster\', \'panel.parallel\', \'panel.densityplot\', \'panel.splom\', \'panel.wireframe\', \'panel.dotplot\', \'panel.qq\', \'panel.stripplot\', \'panel.xyplot\', \'panel.qqmath\', \'panel.barchart\', \'panel.bwplot\', \'panel.histogram\', \'panel.cloud\', \'panel.pairs\', \'prepanel.default.bwplot\', \'prepanel.default.cloud\', \'prepanel.default.densityplot\', \'prepanel.default.histogram\', \'prepanel.default.levelplot\', \'prepanel.default.parallel\', \'prepanel.default.qq\', \'prepanel.default.qqmath\', \'prepanel.default.splom\', \'prepanel.default.xyplot\', \'prepanel.default.dotplot\', \'prepanel.default.barchart\', \'prepanel.default.wireframe\', \'prepanel.default.contourplot\', \'axis.units\', \'layout.heights\', \'layout.widths\', \'highlight.gpar\')), value = c(\'save.object\', \'panel.error\', \'drop.unused.levels\', \'default.theme\', \'legend.bbox\', \'banking\', \'default.args\', \'axis.padding\', \'skip.boundary.labels\', \'interaction.sep\', \'panel.contourplot\', \'panel.levelplot\', \'panel.levelplot.raster\', \'panel.parallel\', \'panel.densityplot\', \'panel.splom\', \'panel.wireframe\', \'panel.dotplot\', \'panel.qq\', \'panel.stripplot\', \'panel.xyplot\', \'panel.qqmath\', \'panel.barchart\', \'panel.bwplot\', \'panel.histogram\', \'panel.cloud\', \'panel.pairs\', \'prepanel.default.bwplot\', \'prepanel.default.cloud\', \'prepanel.default.densityplot\', \'prepanel.default.histogram\', \'prepanel.default.levelplot\', \'prepanel.default.parallel\', \'prepanel.default.qq\', \'prepanel.default.qqmath\', \'prepanel.default.splom\', \'prepanel.default.xyplot\', \'prepanel.default.dotplot\', \'prepanel.default.barchart\', \'prepanel.default.wireframe\', \'prepanel.default.contourplot\', \'axis.units\', \'layout.heights\', \'layout.widths\', \'highlight.gpar\'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnamesassign12() {
+ assertEval("argv <- list(structure(c(100, -1e-13, Inf, -Inf, NaN, 3.14159265358979, NA), .Names = c(\' 100\', \'-1e-13\', \' Inf\', \'-Inf\', \' NaN\', \'3.14\', \' NA\')), value = c(\' 100\', \'-1e-13\', \' Inf\', \'-Inf\', \' NaN\', \'3.14\', \' NA\'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnamesassign13() {
+ assertEval("argv <- list(structure(list(A = 0:10, B = 10:20, `NA` = 20:30), .Names = c(\'A\', \'B\', NA), row.names = c(NA, -11L), class = \'data.frame\'), value = c(\'A\', \'B\', NA));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnamesassign15() {
+ assertEval("argv <- list(structure(list(surname = structure(c(5L, 6L, 4L, 3L, 3L, 1L, 2L), .Label = c(\'McNeil\', \'R Core\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'factor\'), title = structure(c(2L, 5L, 4L, 6L, 7L, 3L, 1L), .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(c(NA, 1L, NA, NA, NA, NA, 2L), .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'surname\', \'title\', \'other.author\'), row.names = c(NA, -7L), class = \'data.frame\'), value = c(\'surname\', \'title\', \'other.author\'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnamesassign16() {
+ assertEval("argv <- list(structure(1:3, .Names = c(\'foo\', \'bar\', \'baz\')), value = c(\'foo\', \'bar\', \'baz\'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnamesassign17() {
+ assertEval("argv <- list(structure(c(1+1i, 1.2+10i), .Names = c(\'a\', \'b\')), value = c(\'a\', \'b\'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnamesassign18() {
+ assertEval("argv <- list(structure(c(67L, 34L), .Dim = 2L, .Dimnames = list(c(\'\\\'actual\\\'\', \'virtual\')), class = \'table\'), value = c(\'\\\'actual\\\'\', \'virtual\'));`names<-`(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnargs.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnargs.java
new file mode 100644
index 0000000000000000000000000000000000000000..5c07fe8074135951f9c21967211f174de66f0e5a
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnargs.java
@@ -0,0 +1,23 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinnargs extends TestBase {
+
+ @Test
+ public void testnargs1() {
+ assertEval("nargs( );");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnchar.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnchar.java
new file mode 100644
index 0000000000000000000000000000000000000000..e014ad2987c47f6017f3736ee0f6460bb1068324
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnchar.java
@@ -0,0 +1,79 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinnchar extends TestBase {
+
+ @Test
+ public void testnchar1() {
+ assertEval("argv <- list(\'DtTmCl> format(.leap.seconds) # all 24 leap seconds in your timezone\', \'c\', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testnchar2() {
+ assertEval("argv <- list(c(\'\\\'a\\\'\', \'\\\'b\\\'\', NA, NA, NA, \'\\\'f\\\'\', \'\\\'g\\\'\', \'\\\'h\\\'\', \'\\\'i\\\'\', \'\\\'j\\\'\', \'\\\'k\\\'\', \'\\\'l\\\'\'), \'w\', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testnchar3() {
+ assertEval("argv <- list(\'\\\'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz\\\'\', \'w\', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testnchar4() {
+ assertEval("argv <- list(structure(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'1\', \'2\', \'3\', \'4\', \'5\'), .Dim = 10L), \'c\', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testnchar5() {
+ assertEval("argv <- list(c(\'Var1\', \'Var2\'), \'bytes\', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testnchar6() {
+ assertEval("argv <- list(c(\'0.0470\', \'0.0130\', \'0.0020\', \'0.0001\', \'2.3e-05\', \'4.5e-06\'), \'w\', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testnchar7() {
+ assertEval("argv <- list(c(\'x1\', \'x.2\', \'x3\'), \'bytes\', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testnchar9() {
+ assertEval("argv <- list(c(\'\\\'1\\\'\', \'\\\'2\\\'\', NA), \'w\', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testnchar10() {
+ assertEval("argv <- list(FALSE, \'chars\', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testnchar11() {
+ assertEval("argv <- list(\'> contour(x, y, volcano, levels = lev, col=\\\'yellow\\\', lty=\\\'solid\\\', add=TRUE)\', \'c\', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testnchar12() {
+ assertEval("argv <- list(character(0), \'c\', FALSE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testnchar13() {
+ assertEval("argv <- list(structure(c(\'rpart\', \'recommended\', \'4.1-1\', \'2013-03-20\', \'c(person(\\\'Terry\\\', \\\'Therneau\\\', role = \\\'aut\\\',\\n\\t email = \\\'therneau@mayo.edu\\\'),\\n person(\\\'Beth\\\', \\\'Atkinson\\\', role = \\\'aut\\\',\\t\\n\\t email = \\\'atkinson@mayo.edu\\\'),\\n person(\\\'Brian\\\', \\\'Ripley\\\', role = c(\\\'aut\\\', \\\'trl\\\', \\\'cre\\\'),\\n email = \\\'ripley@stats.ox.ac.uk\\\',\\n\\t\\t comment = \\\'author of R port\\\'))\', \'Recursive partitioning and regression trees\', \'Recursive Partitioning\', \'R (>= 2.14.0), graphics, stats, grDevices\', \'survival\', \'GPL-2 | GPL-3\', \'yes\', \'yes\', \'Maintainers are not available to give advice on using a package\\nthey did not author.\', \'2013-03-20 07:27:05 UTC; ripley\', \'Terry Therneau [aut],\\n Beth Atkinson [aut],\\n Brian Ripley [aut, trl, cre] (author of R port)\', \'Brian Ripley <ripley@stats.ox.ac.uk>\'), .Names = c(\'Package\', \'Priority\', \'Version\', \'Date\', \'Authors@R\', \'Description\', \'Title\', \'Depends\', \'Suggests\', \'License\', \'LazyData\', \'ByteCompile\', \'Note\', \'Packaged\', \'Author\', \'Maintainer\')), \'c\', TRUE); .Internal(nchar(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinngettext.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinngettext.java
new file mode 100644
index 0000000000000000000000000000000000000000..4043886d25927ceb89c02b0388d1a0f69e914924
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinngettext.java
@@ -0,0 +1,28 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinngettext extends TestBase {
+
+ @Test
+ public void testngettext1() {
+ assertEval("argv <- list(1L, \'%s is not TRUE\', \'%s are not all TRUE\', NULL); .Internal(ngettext(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testngettext2() {
+ assertEval("argv <- list(2L, \'%s is not TRUE\', \'%s are not all TRUE\', NULL); .Internal(ngettext(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnormalizePath.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnormalizePath.java
new file mode 100644
index 0000000000000000000000000000000000000000..346f511d115ca6e4eb2f2418c38b290677f41234
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnormalizePath.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinnormalizePath extends TestBase {
+
+ @Test
+ @Ignore
+ public void testnormalizePath1() {
+ assertEval("argv <- list(c(\'/home/lzhao/hg/r-instrumented/library\', \'/home/lzhao/R/x86_64-unknown-linux-gnu-library/3.0\', \'/home/lzhao/hg/r-instrumented/library\'), \'/\', NA); .Internal(normalizePath(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnzchar.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnzchar.java
new file mode 100644
index 0000000000000000000000000000000000000000..f4beb557c4fd0d5d2c31f8cc5862f8899fb4dcc0
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnzchar.java
@@ -0,0 +1,69 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinnzchar extends TestBase {
+
+ @Test
+ public void testnzchar1() {
+ assertEval("argv <- list(\'./myTst2/man/DocLink-class.Rd\');nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void testnzchar2() {
+ assertEval("argv <- list(FALSE);nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void testnzchar3() {
+ assertEval("argv <- list(c(\'a\', \'b\', \'c\'));nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void testnzchar4() {
+ assertEval("argv <- list(structure(\'MASS\', .Names = \'\'));nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void testnzchar5() {
+ assertEval("argv <- list(NULL);nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void testnzchar6() {
+ assertEval("argv <- list(c(\'Fr\', \'Temp\', \'Soft\', \'M.user\', \'Brand\'));nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void testnzchar7() {
+ assertEval("argv <- list(structure(\'survival\', .Names = \'\'));nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void testnzchar8() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));nzchar(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testnzchar9() {
+ assertEval("argv <- list(c(\' \\036 The other major change was an error for asymmetric loss matrices,\', \' prompted by a user query. With L=loss asymmetric, the altered\', \' priors were computed incorrectly - they were using L' instead of L.\', \' Upshot - the tree would not not necessarily choose optimal splits\', \' for the given loss matrix. Once chosen, splits were evaluated\', \' correctly. The printed “improvement” values are of course the\', \' wrong ones as well. It is interesting that for my little test\', \' case, with L quite asymmetric, the early splits in the tree are\', \' unchanged - a good split still looks good.\'));nzchar(argv[[1]]);");
+ }
+
+ @Test
+ public void testnzchar10() {
+ assertEval("argv <- list(logical(0));nzchar(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinoldClass.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinoldClass.java
new file mode 100644
index 0000000000000000000000000000000000000000..95c258b4e668692baaf83eda0f5e69363ab0bdca
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinoldClass.java
@@ -0,0 +1,121 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinoldClass extends TestBase {
+
+ @Test
+ public void testoldClass1() {
+ assertEval("argv <- list(structure(list(`cbind(w = weight, w2 = weight^2)` = structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c(\'w\', \'w2\'))), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c(\'Ctl\', \'Trt\'), class = \'factor\')), .Names = c(\'cbind(w = weight, w2 = weight^2)\', \'group\'), terms = quote(cbind(w = weight, w2 = weight^2) ~ group), row.names = c(NA, 20L), class = \'data.frame\'));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void testoldClass2() {
+ assertEval("argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = \'ts\'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c(\'y\', \'lag.quarterly.revenue\', \'price.index\', \'income.level\', \'market.potential\'), row.names = c(\'1962.25\', \'1962.5\', \'1962.75\', \'1963\', \'1963.25\', \'1963.5\', \'1963.75\', \'1964\', \'1964.25\', \'1964.5\', \'1964.75\', \'1965\', \'1965.25\', \'1965.5\', \'1965.75\', \'1966\', \'1966.25\', \'1966.5\', \'1966.75\', \'1967\', \'1967.25\', \'1967.5\', \'1967.75\', \'1968\', \'1968.25\', \'1968.5\', \'1968.75\', \'1969\', \'1969.25\', \'1969.5\', \'1969.75\', \'1970\', \'1970.25\', \'1970.5\', \'1970.75\', \'1971\', \'1971.25\', \'1971.5\', \'1971.75\'), class = \'data.frame\'));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void testoldClass3() {
+ assertEval("argv <- list(c(7.50863122075491e-09, 1.87762632589663e-07, 2.29589583061716e-06, 1.83002461474278e-05, 0.000106962770210119, 0.000488992941332962, 0.00182154707835978, 0.0056884235091347, 0.0152093632759767, 0.0353957474549943, 0.0726726073416657, 0.13316547411151));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void testoldClass4() {
+ assertEval("argv <- list(c(0.2853725+0.3927816i, -0.07283992154231+0.224178134292i, -0.10883955678256+0.035364093700981i, -0.0449501817243521-0.0326582354266614i, 8.2299281e-09-2.69753665872767e-02i, 0.0105954299973322-0.0076980245688633i, 0.00604728675391113+0.00196488543076221i, 0.00095395849586903+0.00293598723445021i, -0.00088096824266454+0.00121254736140417i, -7.27670402517897e-04-4.44010655e-10i, -2.07656947543323e-04-2.85815671682054e-04i, 5.3003554565545e-05-1.6312776087427e-04i, 7.9199339795869e-05-2.57333559721504e-05i, 3.27089023280074e-05+2.37644512768026e-05i, -1.79660253e-11+1.96291758626278e-05i, -7.70998422901389e-06+5.60161993213361e-06i, -4.4004307139296e-06-1.42979165736404e-06i, -6.9416605906477e-07-2.13643143624753e-06i, 6.41055054129141e-07-8.82334435385704e-07i, 5.29504214700362e-07+6.46186824e-13i));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void testoldClass5() {
+ assertEval("argv <- list(structure(list(Subject = structure(c(1L, 3L, 6L, 2L, 4L, 5L), .Label = c(\'1\', \'4\', \'2\', \'5\', \'6\', \'3\'), class = c(\'ordered\', \'factor\')), conc.0.25 = c(1.5, 2.03, 2.72, 1.85, 2.05, 2.31), conc.0.5 = c(0.94, 1.63, 1.49, 1.39, 1.04, 1.44), conc.0.75 = c(0.78, 0.71, 1.16, 1.02, 0.81, 1.03), conc.1 = c(0.48, 0.7, 0.8, 0.89, 0.39, 0.84), conc.1.25 = c(0.37, 0.64, 0.8, 0.59, 0.3, 0.64), conc.2 = c(0.19, 0.36, 0.39, 0.4, 0.23, 0.42)), row.names = c(1L, 12L, 23L, 34L, 45L, 56L), .Names = c(\'Subject\', \'conc.0.25\', \'conc.0.5\', \'conc.0.75\', \'conc.1\', \'conc.1.25\', \'conc.2\'), class = c(\'nfnGroupedData\', \'nfGroupedData\', \'groupedData\', \'data.frame\')));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void testoldClass6() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i), .Dim = c(5L, 5L)));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void testoldClass7() {
+ assertEval("argv <- list(3.18309886183791e-301);oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void testoldClass8() {
+ assertEval("argv <- list(structure(list(visible = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), from = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = \'registered S3method for predict\', class = \'factor\')), .Names = c(\'visible\', \'from\'), row.names = c(\'predict.Arima\', \'predict.HoltWinters\', \'predict.StructTS\', \'predict.ar\', \'predict.arima0\', \'predict.bSpline\', \'predict.bs\', \'predict.glm\', \'predict.glmmPQL\', \'predict.lda\', \'predict.lm\', \'predict.loess\', \'predict.lqs\', \'predict.mca\', \'predict.mlm\', \'predict.nbSpline\', \'predict.nls\', \'predict.npolySpline\', \'predict.ns\', \'predict.pbSpline\', \'predict.polr\', \'predict.poly\', \'predict.polySpline\', \'predict.ppolySpline\', \'predict.ppr\', \'predict.prcomp\', \'predict.princomp\', \'predict.qda\', \'predict.rlm\', \'predict.smooth.spline\', \'predict.smooth.spline.fit\'), class = \'data.frame\'));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void testoldClass9() {
+ assertEval("argv <- list(structure(c(4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L), .Label = c(\'C\', \'E\', \'D\', \'A\', \'F\', \'B\'), class = \'factor\', scores = structure(c(14, 16.5, 1.5, 5, 3, 15), .Dim = 6L, .Dimnames = list(c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\')))));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoldClass10() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\')));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void testoldClass11() {
+ assertEval("argv <- list(structure(list(srcfile = c(\'/home/lzhao/tmp/RtmpS45wYI/R.INSTALL2aa62411bcd3/rpart/R/rsq.rpart.R\', \'/home/lzhao/tmp/RtmpS45wYI/R.INSTALL2aa62411bcd3/rpart/R/rsq.rpart.R\'), frow = c(7L, 9L), lrow = c(7L, 9L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = 1:2, class = \'data.frame\'));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoldClass12() {
+ assertEval("argv <- list(structure(1:5, .Tsp = c(1, 5, 1), class = \'ts\'));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void testoldClass13() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void testoldClass14() {
+ assertEval("argv <- list(structure(list(`cbind(A, B, C, D)` = structure(c(0.696706709347165, 0.362357754476673, -0.0291995223012888, 0.696706709347165, 0.696706709347165, -0.0291995223012888, 0.696706709347165, -0.0291995223012888, 0.362357754476673, 0.696706709347165, -0.0291995223012888, 0.362357754476673, -0.416146836547142, 0.362357754476673, 0.696706709347165, 0.696706709347165, 0.362357754476673, -0.416146836547142, -0.0291995223012888, -0.416146836547142, 0.696706709347165, -0.416146836547142, 0.362357754476673, -0.0291995223012888, 0.717356090899523, 0.932039085967226, 0.999573603041505, 0.717356090899523, 0.717356090899523, 0.999573603041505, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.909297426825682, 0.932039085967226, 0.717356090899523, 0.717356090899523, 0.932039085967226, 0.909297426825682, 0.999573603041505, 0.909297426825682, 0.717356090899523, 0.909297426825682, 0.932039085967226, 0.999573603041505, -0.0291995223012888, -0.737393715541246, -0.998294775794753, -0.0291995223012888, -0.0291995223012888, -0.998294775794753, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.653643620863612, -0.737393715541246, -0.0291995223012888, -0.0291995223012888, -0.737393715541246, -0.653643620863612, -0.998294775794753, -0.653643620863612, -0.0291995223012888, -0.653643620863612, -0.737393715541246, -0.998294775794753, 0.999573603041505, 0.67546318055115, -0.0583741434275801, 0.999573603041505, 0.999573603041505, -0.0583741434275801, 0.999573603041505, -0.0583741434275801, 0.67546318055115, 0.999573603041505, -0.0583741434275801, 0.67546318055115, -0.756802495307928, 0.67546318055115, 0.999573603041505, 0.999573603041505, 0.67546318055115, -0.756802495307928, -0.0583741434275801, -0.756802495307928, 0.999573603041505, -0.756802495307928, 0.67546318055115, -0.0583741434275801), .Dim = c(24L, 4L), .Dimnames = list(NULL, c(\'A\', \'B\', \'C\', \'D\'))), groups = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c(\'1\', \'2\', \'3\'), class = \'factor\')), .Names = c(\'cbind(A, B, C, D)\', \'groups\'), terms = quote(cbind(A, B, C, D) ~ groups), row.names = c(NA, 24L), class = \'data.frame\'));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void testoldClass15() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), class = \'data.frame\', row.names = c(NA, -10L)));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void testoldClass16() {
+ assertEval("argv <- list(structure(list(y = c(1.08728092481538, 0.0420572471552261, 0.787502161306819, 0.512717751544676, 3.35376639535311, 0.204341510750309, -0.334930602487435, 0.80049208412789, -0.416177803375218, -0.777970346246018, 0.934996808181635, -0.678786709127108, 1.52621589791412, 0.5895781228122, -0.744496121210548, -1.99065153885627, 1.51286447692396, -0.750182409847851), A = c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), U = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c(\'a\', \'b\', \'c\'), class = \'factor\'), V = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L), .Label = c(\'a\', \'b\', \'c\'), class = \'factor\')), .Names = c(\'y\', \'A\', \'U\', \'V\'), class = \'data.frame\', row.names = c(NA, 18L), terms = quote(y ~ A:U + A:V - 1)));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void testoldClass17() {
+ assertEval("argv <- list(structure(list(surname = structure(integer(0), .Label = c(\'McNeil\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'factor\'), nationality = structure(integer(0), .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(integer(0), .Label = c(\'no\', \'yes\'), class = \'factor\'), title = structure(integer(0), .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(integer(0), .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\', \'title\', \'other.author\'), row.names = integer(0), class = \'data.frame\'));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void testoldClass18() {
+ assertEval("argv <- list(structure(list(srcfile = c(NA, NA, \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R\', \'/home/lzhao/tmp/RtmptukZK0/R.INSTALL2ccc3a5cba55/nlme/R/pdMat.R\'), frow = c(NA, NA, 1739L, 1741L, 1807L, 1868L, 1868L, 1868L, 1870L, 1873L, 1888L, 1888L, 1888L, 1898L, 1898L, 1898L, 1899L, 1905L), lrow = c(NA, NA, 1739L, 1742L, 1807L, 1868L, 1868L, 1868L, 1872L, 1873L, 1888L, 1888L, 1888L, 1898L, 1898L, 1898L, 1901L, 1905L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, 18L), class = \'data.frame\'));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ public void testoldClass19() {
+ assertEval("argv <- list(structure(list(double.eps = 2.22044604925031e-16, double.neg.eps = 1.11022302462516e-16, double.xmin = 2.2250738585072e-308, double.xmax = 1.79769313486232e+308, double.base = 2L, double.digits = 53L, double.rounding = 5L, double.guard = 0L, double.ulp.digits = -52L, double.neg.ulp.digits = -53L, double.exponent = 11L, double.min.exp = -1022L, double.max.exp = 1024L, integer.max = 2147483647L, sizeof.long = 8L, sizeof.longlong = 8L, sizeof.longdouble = 16L, sizeof.pointer = 8L), .Names = c(\'double.eps\', \'double.neg.eps\', \'double.xmin\', \'double.xmax\', \'double.base\', \'double.digits\', \'double.rounding\', \'double.guard\', \'double.ulp.digits\', \'double.neg.ulp.digits\', \'double.exponent\', \'double.min.exp\', \'double.max.exp\', \'integer.max\', \'sizeof.long\', \'sizeof.longlong\', \'sizeof.longdouble\', \'sizeof.pointer\')));oldClass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoldClass20() {
+ assertEval("argv <- list(structure(list(Model = 1:2, df = c(5, 6), AIC = c(\'1571.455\', \'1570.925\'), BIC = c(\'1590.056\', \'1593.247\'), logLik = c(-780.727255295109, -779.462624623506), Test = structure(1:2, .Label = c(\'\', \'1 vs 2\'), class = \'factor\'), L.Ratio = c(NA, 2.52926134320705), `p-value` = c(NA, 0.111752518719366)), .Names = c(\'Model\', \'df\', \'AIC\', \'BIC\', \'logLik\', \'Test\', \'L.Ratio\', \'p-value\'), row.names = c(\'fm1\', \'fm2\'), class = \'data.frame\'));oldClass(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinoldClassassign.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinoldClassassign.java
new file mode 100644
index 0000000000000000000000000000000000000000..05c60abd90510de6f2d282ddd0406429bb691530
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinoldClassassign.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinoldClassassign extends TestBase {
+
+ @Test
+ @Ignore
+ public void testoldClassassign1() {
+ assertEval("argv <- list(list(), NULL);`oldClass<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoldClassassign2() {
+ assertEval("argv <- list(NULL, NULL);`oldClass<-`(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinoperators.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinoperators.java
new file mode 100644
index 0000000000000000000000000000000000000000..c2beae0965b567157c97ac2c1c2fb4b8c8e7ed61
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinoperators.java
@@ -0,0 +1,2135 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinoperators extends TestBase {
+
+ @Test
+ @Ignore
+ public void testoperators1() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));`!`(argv[[1]]);");
+ }
+
+ @Test
+ public void testoperators2() {
+ assertEval("argv <- list(c(NA, \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\'), c(\'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', NA));`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators3() {
+ assertEval("argv <- list(2.2250738585072e-308, c(0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 1e+05, 1e+10));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators4() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'), structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators5() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'));`*`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators6() {
+ assertEval("argv <- list(structure(5.34872109992236, .Names = \'x\'), structure(-17494.4659893938, .Names = \'x\'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators7() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0.5, 0.5, 1, 1, 0, 0, 0, 0, 0, 1), .Dim = c(6L, 4L)), c(1, 1, 1, 0, 0, 0));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators8() {
+ assertEval("argv <- list(0.5, c(0.0945457474962427, 0.369817831189094, 0.485958087431202, 0.498816870239398, 0.499902671395055));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators9() {
+ assertEval("argv <- list(structure(1:10, class = structure(\'NumericNotStructure\', package = \'.GlobalEnv\')), 1);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators10() {
+ assertEval("argv <- list(1, 0+1i);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators11() {
+ assertEval("argv <- list(structure(68.6851383798793, .Names = \'\'), structure(35.9756377289347, .Names = \'Var1\'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators12() {
+ assertEval("argv <- list(structure(0.070387338608913, .Names = \'Var1\'), structure(0.00374843815077052, .Names = \'Var2\'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators13() {
+ assertEval("argv <- list(c(1, 1, 10, 1, 1, 10, 10), 0);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators14() {
+ assertEval("argv <- list(c(23.454000046244, 23.454000046244, 23.454000046244, 23.454000046244, 28.3020224298599, 28.3020224298599, 28.3020224298599, 28.3020224298599, 30.800519631939, 30.800519631939, 30.800519631939, 30.800519631939, 25.9206422064884, 25.9206422064884, 25.9206422064884, 23.2002066882042, 23.2002066882042, 23.2002066882042, 20.1196890721666, 20.1196890721666, 20.1196890721666, 33.5952341720171, 33.5952341720171, 39.0519830824759, 39.0519830824759, 32.136512000254, 32.136512000254, 40.0046131871928, 40.0046131871928, 36.1899385542654, 36.1899385542654, 36.1899385542654, 36.9107066354437, 36.9107066354437, 30.6345192978006, 30.6345192978006, 34.3113600002908, 34.3113600002908, 38.3947952390571, 38.3947952390571, 31.2256309266188, 31.2256309266188, 31.2256309266188, 31.2256309266188, 31.2302025081837, 31.2302025081837, 31.2302025081837, 31.2302025081837, 19.9976293105352, 19.9976293105352, 19.9976293105352, 37.0952034528547, 37.0952034528547, 37.0952034528547, 32.5940180631865, 32.5940180631865, 32.5940180631865, 30.3755575381127, 30.3755575381127, 30.3755575381127), c(-7.78372381938215, -2.21918545910218, -0.632702831725275, -0.180387300047981, -7.49017129741483, -2.13549190787282, -0.608841307830204, -0.173584239188075, -22.5802449738518, -16.4998575320751, -8.81014962829596, -2.51182549655016, -23.557038894075, -17.2136212906412, -9.19126598036131, -21.8778835738372, -15.9866273589884, -8.53610880037608, -15.0686941140291, -11.0110101269414, -5.87936269076593, -5.59523381317633, -1.59523408160483, -33.4519828181102, -13.051983020203, -16.7365117167447, -8.93651185736664, -28.2046129643012, -11.0046131346857, -24.7866580698756, -18.1121297542524, -9.67102733534973, -10.9107059357263, -3.11070645913868, -6.43451888517834, -1.83451919385285, -19.311359673177, -10.3113598354284, -17.5947943688525, -9.39479451670115, -13.4592527410221, -3.83731214857368, -1.09404027169438, -0.311917318619494, -9.6582725100978, -2.75363032037238, -0.7850762062622, -0.223829845669225, -4.53229442651767, -1.2921838083017, -0.368409206751382, -8.25942763485825, -2.35481141586021, -0.671370589998607, -10.5255747423345, -3.00090328985181, -0.855575184775718, -7.55762449149225, -2.15472321038819, -0.614324265331269));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators15() {
+ assertEval("argv <- list(structure(c(1976, 1976.08333333333, 1976.16666666667, 1976.25, 1976.33333333333, 1976.41666666667, 1976.5, 1976.58333333333, 1976.66666666667, 1976.75, 1976.83333333333, 1976.91666666667, 1977, 1977.08333333333, 1977.16666666667, 1977.25, 1977.33333333333, 1977.41666666667, 1977.5, 1977.58333333333, 1977.66666666667, 1977.75, 1977.83333333333, 1977.91666666667, 1978), .Tsp = c(1976, 1978, 12), class = \'ts\'), 0.001);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators16() {
+ assertEval("argv <- list(1.678932e-305, 0+0i);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators17() {
+ assertEval("argv <- list(4.40646552950873, structure(c(2.62980519617636, 3.871217247387, 4.50132920500077, 4.98499803067693, 5.10709299286893, 5.03983500591087, 4.63030887318817, 5.53509956067429, 5.33332559980012, 5.70084841033141, 4.71574513022187, 4.22037009914704, 3.98171648049174, 4.03049403236714, 4.12846177743637, 4.47709151156657, 5.3332151234887, 5.63317778205492, 5.92697054095118, 6.19581080008781, 6.04311655609605, 6.94831988490059, 6.18986185304067, 5.62147157665625, 4.74634441202163, 4.26914765102244, 5.32109627677161, 6.60533693281051, 5.67035960484307, 5.44401652160046, 3.65126501643718, 3.93293892861635, 3.04580339357603, 3.07640267537579, 2.77049106976243, 2.76443164640389, 3.33918351115387, 4.07927158424254, 4.04908494376122, 4.33034621462195, 3.99989475056739, 4.25702880430535), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\')));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators18() {
+ assertEval("argv <- list(100.35609040323, c(16.9869197055322, 32.9569269674228, 63.9409059420178, 124.054025326065, 240.681625836759, 466.954980809107, 905.955962962971, 1757.67737910411, 3410.13238536472, 6616.11910351861, 12836.1679387595, 24903.9058659644, 48316.9533415093, 93741.4393055559, 181871.099797343, 352854.587965931, 684585.733452663, 1328189.12501195, 2576866.95120412, 4999471.20418434, 9699651.86203691, 18818639.4925072, 36510711.6612103, 70835729.9973146, 137430918.652385, 266634612.255063, 517307292.635014, 1003646273.64047, 1947209824.67014, 3777851022.69026, 7329543107.69234, 14220307218.2724, 27589323701.4766, 53527027976.3571, 103849690372.38, 201482477136.65, 390903318513.094, 758405428581.828, 1471409340525, 2854733584163.2, 5538570139592.47, 10745576876721.9, 20847875806089.6, 40447705191861.9, 78474031143733.8, 152250258320878, 295386140114522, 573089154225693, 1111870646888807, 2157179779616058, 4185221198711724, 8119896472079771, 15753699885107074, 30564313341110788, 59298911165416064, 115047926192872144, 223208572655883520, 433054888999496256, 840185189372140416, 1630073162483360512, 3162562907154039296, 6135800755390145536, 11904285231665293312, 23095927088628809728, 44809229424741679104, 86935979401654583296, 1.68667585038894e+20, 3.27237979472409e+20, 6.34886040400066e+20, 1.23176498322335e+21, 2.3897910449238e+21, 4.63651858608037e+21, 8.99547458123233e+21, 1.74524401098118e+22, 3.38600996574481e+22, 6.56931833943232e+22, 1.2745368112143e+23, 2.47277418935474e+23, 4.79751713543167e+23, 9.30783359186e+23, 1.80584589336672e+24, 3.50358583273485e+24, 6.79743145992125e+24, 1.31879384887967e+25, 2.55863884188836e+25, 4.96410620111801e+25, 9.63103896202531e+25, 1.8685521165353e+26, 3.62524440610747e+26, 7.03346558424191e+26, 1.36458766866515e+27, 2.64748506006045e+27, 5.13647990832267e+27, 9.96546732089944e+27, 1.93343575165167e+28, 3.75112745382766e+28, 7.27769576146466e+28, 1.41197163381895e+29, 2.73941637580644e+29, 5.31483912303488e+29));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators19() {
+ assertEval("argv <- list(structure(c(798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988, 798.368155587988), .Tsp = c(1971, 2000, 1), class = \'ts\'), structure(c(96.1627886140128, 99.5328179233045, 102.792420797859, 105.951789523417, 109.019638748919, 112.00348906474, 114.909884224142, 117.744560053261, 120.512577567101, 123.218429147578, 125.866124161059, 128.459258681722, 131.001072784874, 133.494498015905, 135.942197018618, 138.34659685001, 140.70991716901, 143.034194231449, 145.321301429523, 147.572966965162, 149.790789131479, 151.976249586445, 154.130724932091, 156.255496856342, 158.351761049736, 160.420635073182, 162.463165323754, 164.480333221768, 166.473060722972, 168.442215243699), .Tsp = c(1971, 2000, 1), class = \'ts\'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators20() {
+ assertEval("argv <- list(structure(978350400, class = c(\'POSIXct\', \'POSIXt\'), tzone = \'GMT\'), c(1605796.39468342, 2250605.34500331, 3464617.14155227, 5492840.71388841, 1219772.31891453, 5433460.81468463, 5713396.02452517, 3996505.04896045, 3804881.73750043, 373683.36378783, 1245734.22899097, 1067815.23929536, 4155114.17658627, 2323059.28775668, 4656000.90815127, 3010085.0161314, 4340156.73798323, 5999048.06153476, 2298452.76521891, 4701988.69854212, 5653097.23772854, 1283037.96871752, 3941322.93728739, 759357.220374048, 1616150.60446411, 2335218.03170443, 80984.7349449992, 2312682.3643595, 5259890.2349174, 2058430.73196709, 2915620.53836882, 3626174.11217093, 2984937.82503158, 1126244.053334, 5003953.83093506, 4042886.83258742, 4803562.677674, 652843.049369752, 4377003.8016513, 2487387.75048405, 4965083.1868127, 3913420.05222291, 4735177.34632641, 3344763.6128068, 3203744.02103573, 4774026.48925781, 141107.11171478, 2886287.43334115, 4429033.49147737, 4189640.45360684, 2888643.47467571, 5208594.91588175, 2649611.30449176, 1480533.93148631, 427466.877132654, 601571.336723864, 1912811.28504127, 3136700.02379268, 4003806.70217425, 2460508.97211581, 5521073.589921, 1775713.19845319, 2776429.51241881, 2010322.98948616, 3936464.58484232, 1560485.48977822, 2894241.66157097, 4634646.93606645, 509525.338098407, 5293943.40406358, 2050713.12808245, 5076935.23793668, 2096741.74243212, 2018670.78146338, 2880972.33020514, 5396015.5351907, 5227525.11837333, 2358656.75892681, 4701235.58655381, 5809817.647174, 2628820.56391239, 4309288.77686709, 2419165.9430936, 1967729.81455922, 4578863.07127029, 1225882.75911659, 4300861.15349829, 735992.738373578, 1484714.53242749, 866704.886756837, 1449278.70250493, 356435.113750398, 3884559.38760191, 5299676.19835585, 4710875.96918643, 4822123.77896905, 2753499.89549071, 2480188.52821738, 4904143.22827756, 3658636.53959334));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators21() {
+ assertEval("argv <- list(1, c(FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators22() {
+ assertEval("argv <- list(1, structure(list(x = 1:9, y = c(-0.626453810742332, 0.183643324222082, -0.835628612410047, 1.59528080213779, 0.329507771815361, -0.820468384118015, 0.487429052428485, 0.738324705129217, 0.575781351653492)), .Names = c(\'x\', \'y\'), row.names = c(NA, -9L), class = \'data.frame\'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators23() {
+ assertEval("argv <- list(1:2, c(0+8i, 0+9i));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators24() {
+ assertEval("argv <- list(c(14, 2, 2, -7), c(14, 2, 2, -7));`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators25() {
+ assertEval("argv <- list(c(-1, -2, -3, -4, -5, -6, -7, -8, -9, -10, -11, -12, -13, -14, -15, -16, -17, -18, -19, -20, -21, -22, -23, -24, -25, -26, -27, -28, -29, -30, -31, -32, -33, -34, -35, -36, -37, -38, -39, -40, -41, -42, -43, -44, -45, -46, -47, -48, -49, -50, -1000, -10000, -1e+05, -1e+06, -1e+07, -1e+08, -1e+09, -1e+10, -1e+20, -1e+50, -1e+150, -1e+250, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 1000, 10000, 1e+05, 1e+06, 1e+07, 1e+08, 1e+09, 1e+10, 1e+20, 1e+50, 1e+150, 1e+250));`+`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators26() {
+ assertEval("argv <- list(structure(c(1+1i, 2+2i, 1.2+10i, 2.4+20i), .Dim = c(2L, 2L), .Dimnames = list(c(\'x\', \'\'), c(\'a\', \'b\'))), 3.14159265358979);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators27() {
+ assertEval("argv <- list(structure(c(1, 0.81, 0.64, 0.49, 0.36, 0.25, 0.16, 0.09, 0.04, 0.01, 0.81, 1, 0.81, 0.64, 0.49, 0.36, 0.25, 0.16, 0.09, 0.04, 0.64, 0.81, 1, 0.81, 0.64, 0.49, 0.36, 0.25, 0.16, 0.09, 0.49, 0.64, 0.81, 1, 0.81, 0.64, 0.49, 0.36, 0.25, 0.16, 0.36, 0.49, 0.64, 0.81, 1, 0.81, 0.64, 0.49, 0.36, 0.25, 0.25, 0.36, 0.49, 0.64, 0.81, 1, 0.81, 0.64, 0.49, 0.36, 0.16, 0.25, 0.36, 0.49, 0.64, 0.81, 1, 0.81, 0.64, 0.49, 0.09, 0.16, 0.25, 0.36, 0.49, 0.64, 0.81, 1, 0.81, 0.64, 0.04, 0.09, 0.16, 0.25, 0.36, 0.49, 0.64, 0.81, 1, 0.81, 0.01, 0.04, 0.09, 0.16, 0.25, 0.36, 0.49, 0.64, 0.81, 1), .Dim = c(10L, 10L)), structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), .Dim = c(10L, 10L)));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators28() {
+ assertEval("argv <- list(structure(5.5965311794562, .Names = \'thetas\'), structure(c(3, 2, 2, 1, 1, 2), .Dim = 6L, .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\'))));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators29() {
+ assertEval("argv <- list(c(NA, 6.12, 19.92, 29.64, 35.4, 39.72, 45.24, 52.32, 63.48), c(6.12, 19.92, 29.64, 35.4, 39.72, 45.24, 52.32, 63.48, NA));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators30() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0i, 1.39139505579429+0i, 0.928710764113827+0i, -0.469267985412949+0i, 0.7424437487+0i, 0.460916205989202+0i, -0.452623703774585+0i, -0.0945011868321433+0i, -0.331818442379127+0i, 1.39139505579429+0i, -0.452623703774585+0i, 0.400771450594052+0i, -0.927967220342259+0i, -0.790922791530657+0i, 0.928710764113827+0i, -0.0945011868321433+0i, -0.927967220342259+0i, 0.701355901563686+0i, -0.600841318509537+0i, -0.469267985412949+0i, -0.331818442379127+0i, -0.790922791530657+0i, -0.600841318509537+0i, -0.625039267849257+0i), .Dim = c(5L, 5L)), c(0-1.68669331074241i, 0+0.837787044494525i, 0+0.153373117836515i, 0-1.13813693701195i, 0+1.25381492106993i, 0+0.426464221476814i, 0-0.295071482992271i, 0+0.895125661045022i, 0+0.878133487533042i, 0+0.821581081637487i, 0+0.688640254100091i, 0+0.553917653537589i, 0-0.0619117105767217i, 0-0.305962663739917i, 0-0.380471001012383i, 0-0.694706978920513i, 0-0.207917278019599i, 0-1.26539635156826i, 0+2.16895596533851i, 0+1.20796199830499i, 0-1.12310858320335i, 0-0.402884835299076i, 0-0.466655353623219i, 0+0.779965118336318i, 0-0.0833690664718293i));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators31() {
+ assertEval("argv <- list(structure(FALSE, class = structure(\'foo\', package = \'.GlobalEnv\')), NA);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators32() {
+ assertEval("argv <- list(2.11111111111111, structure(c(3, 2, 2, 1, 1, 2), .Dim = 6L, .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\'))));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators33() {
+ assertEval("argv <- list(c(20.8, 11.2, 6.2, 12.8, 43.4), c(10.4, 5.6, 3.1, 6.4, 21.7, 0, 10.4, 5.6, 3.1, 6.4, 21.7));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators34() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'), structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators35() {
+ assertEval("argv <- list(c(3, 1, 2, 2, 3.2, -1, 1, 3.2, 4, 3, 3.2, 3.2, 202, 241, 243), 0);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators36() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'));`+`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators37() {
+ assertEval("argv <- list(logical(0));`+`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators38() {
+ assertEval("argv <- list(structure(c(0.2, -1.84560926910116e-17, -3.69226410848886e-17, 2.11212282911474e-17, 9.44321399451751e-18, 3.05608209061811e-17, 0.2, -5.35638147485559e-17, 5.12150597333887e-17, 1.92692213766805e-17, 6.57361167807833e-17, -7.28393619263486e-17, 0.2, 7.17735727503349e-17, 3.10850404080861e-17, -2.28831714606547e-17, 2.83709294123644e-17, 7.98995130974544e-17, 0.2, 0, 8.8841915809257e-17, -1.17177477007305e-16, -1.30709215062431e-16, 1.04641694001652e-16, 0.2), .Dim = c(5L, 5L), fracs = c(\'1/5\', \'0\', \'0\', \'0\', \'0\', \'0\', \'1/5\', \'0\', \'0\', \'0\', \'0\', \'0\', \'1/5\', \'0\', \'0\', \'0\', \'0\', \'0\', \'1/5\', \'0\', \'0\', \'0\', \'0\', \'0\', \'1/5\'), class = c(\'fractions\', \'matrix\')), 1);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators39() {
+ assertEval("argv <- list(structure(c(-24.5833333333333, -5.08333333333333, 10.25, 19.4166666666667), .Dim = 4L, .Dimnames = structure(list(N = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\')), .Names = \'N\'), strata = structure(\'Within\', .Names = \'N\'), class = \'mtable\'), structure(103.972222222222, class = \'mtable\'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators40() {
+ assertEval("argv <- list(structure(1.2728543779194, .Names = \'Var1\'), 1);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators41() {
+ assertEval("argv <- list(1.15);`-`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators42() {
+ assertEval("argv <- list(structure(c(6316.53846153846, 6350.69230769231), .Dim = 2L, .Dimnames = list(c(\'1\', \'2\'))), c(6314.13609467456, 6338.60946745562));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators43() {
+ assertEval("argv <- list(1, c(0.588534374722704, 0.346372710230244, 0.203852246436365, 0.119974054392244, 0.0706088550846872, 0.0244569805019377));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators44() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0i, 1.39139505579429+0i, 0.928710764113827+0i, -0.469267985412949+0i, 0.7424437487+0i, 0.460916205989202+0i, -0.452623703774585+0i, -0.0945011868321433+0i, -0.331818442379127+0i, 1.39139505579429+0i, -0.452623703774585+0i, 0.400771450594052+0i, -0.927967220342259+0i, -0.790922791530657+0i, 0.928710764113827+0i, -0.0945011868321433+0i, -0.927967220342259+0i, 0.701355901563686+0i, -0.600841318509537+0i, -0.469267985412949+0i, -0.331818442379127+0i, -0.790922791530657+0i, -0.600841318509537+0i, -0.625039267849257+0i), .Dim = c(5L, 5L)), structure(c(-0.560475646552213+0i, 0.742443748700001+0i, 1.39139505579429+0i, 0.928710764113827+0i, -0.469267985412949+0i, 0.742443748700001+0i, 0.460916205989202+0i, -0.452623703774585+0i, -0.094501186832143+0i, -0.331818442379127+0i, 1.39139505579429+0i, -0.452623703774585+0i, 0.400771450594052+0i, -0.927967220342258+0i, -0.790922791530656+0i, 0.928710764113827+0i, -0.094501186832143+0i, -0.927967220342258+0i, 0.701355901563685+0i, -0.600841318509537+0i, -0.469267985412949+0i, -0.331818442379127+0i, -0.790922791530656+0i, -0.600841318509537+0i, -0.625039267849256+0i), .Dim = c(5L, 5L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators45() {
+ assertEval("argv <- list(38, 24L);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators46() {
+ assertEval("argv <- list(structure(c(14, 2, 0, 2, -7, 0), .Dim = c(3L, 2L)), 0);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators47() {
+ assertEval("argv <- list(1979.91666666667, structure(1979.91666666667, .Names = \'data\'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators48() {
+ assertEval("argv <- list(41L, 0L);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators49() {
+ assertEval("argv <- list(7.12801378828154e+22);`-`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators50() {
+ assertEval("argv <- list(structure(c(315.42, 316.31, 316.5, 317.56, 318.13, 318, 316.39, 314.65, 313.68, 313.18, 314.66, 315.43, 316.27, 316.81, 317.42, 318.87, 319.87, 319.43, 318.01, 315.74, 314, 313.68, 314.84, 316.03), .Tsp = c(1959, 1960.91666666667, 12), class = \'ts\'), structure(c(-0.234444444444459, 0.192638888888913, 0.743888888888894, 2.15972222222219, 3.13138888888888, 2.65888888888892, 0.480138888888822, -1.31611111111111, -2.34527777777775, -2.93819444444447, -1.58527777777776, -0.947361111111074, -0.234444444444459, 0.192638888888913, 0.743888888888894, 2.15972222222219, 3.13138888888888, 2.65888888888892, 0.480138888888822, -1.31611111111111, -2.34527777777775, -2.93819444444447, -1.58527777777776, -0.947361111111074), .Tsp = c(1959, 1960.91666666667, 12), class = \'ts\'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators51() {
+ assertEval("argv <- list(structure(c(94694400, 126230400, 157766400, 189302400, 220924800, 252460800, 283996800, 315532800, 362793600, 394329600, 425865600, 489024000, 567993600, 631152000, 662688000, 709948800, 741484800, 773020800, 820454400, 867715200, 915148800, 1136073600, 1230768000, 1341100800), class = c(\'POSIXct\', \'POSIXt\')), structure(c(78796800, 94694400, 126230400, 157766400, 189302400, 220924800, 252460800, 283996800, 315532800, 362793600, 394329600, 425865600, 489024000, 567993600, 631152000, 662688000, 709948800, 741484800, 773020800, 820454400, 867715200, 1136073600, 1230768000, 1341100800), class = c(\'POSIXct\', \'POSIXt\')));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators52() {
+ assertEval("argv <- list(structure(c(9, 12, 12, 15, 9, 9, 13, 11, 15, 10, 13, 13, 13, 15, 8, 13, 13, 10, 7, 9, 6, 11, 3, 5, 9, 3, 5, 1, 1, 2, NA, 10, 1, 4, 7, 4, NA, NA, 5, 2, 4, 3, 3, 6, 1, 1, 63, 41, 59, 50, 290, 226, 60, 36, 32, 121, 70, 51, 79, 32, 42, 39, 76, 60, 56, 88, 57, 309, 254, 146, 43, 78, 88, 314, 149, 78, NA, 238, 153, 159, 222, 203, NA, NA, 74, 100, 111, 9, 180, 50, 256, 107), .Dim = c(23L, 4L), .Dimnames = list(NULL, c(\'V1\', \'V2\', \'V3\', \'V4\'))), structure(c(10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 10.8260869565217, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 3.85, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 95.2608695652174, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9, 137.9), .Dim = c(23L, 4L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators53() {
+ assertEval("argv <- list(structure(c(58.56, 2.776, 61.341, 0, 0), .Names = c(\'user.self\', \'sys.self\', \'elapsed\', \'user.child\', \'sys.child\'), class = \'proc_time\'), structure(c(40.692, 0.307, 41, 0, 0), .Names = c(\'user.self\', \'sys.self\', \'elapsed\', \'user.child\', \'sys.child\'), class = \'proc_time\'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators54() {
+ assertEval("argv <- list(0+1e-04i);`-`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators55() {
+ assertEval("argv <- list(structure(c(1.05569354979237, 0.694336127879446, -0.0222037058662105), .Dim = c(1L, 3L)), 0.055);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators56() {
+ assertEval("argv <- list(structure(c(-50, 175, 149, 214, 247, 237, 225, 329, 729, 809, 530, 489, 540, 457, 195, 176, 337, 239, 128, 102, 232, 429, 3, 98, 43, -141, -77, -13, 125, 361, -45, 184), .Tsp = c(1951, 1958.75, 4), class = \'ts\'), structure(c(NA, NA, 159.125, 204, 221.25, 245.125, 319.75, 451.5, 561.125, 619.25, 615.625, 548, 462.125, 381.125, 316.625, 264, 228.375, 210.75, 188.375, 199, 207.125, 191, 166.875, 72, -9.25, -33.125, -36.75, 36.25, 103, 131.625, NA, NA), .Tsp = c(1951, 1958.75, 4), class = \'ts\'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators57() {
+ assertEval("argv <- list(structure(c(0, 1, 0, 2), .Names = c(\'age\', \'strata(ss)\', \'age2\', \'age:strata(ss)\')), 1);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators58() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'), 1L);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators59() {
+ assertEval("argv <- list(50, structure(c(1, 2, 1, 3, 4, 4, 4, 1, 2, 2, 1, 4, 2, 1, 5, 5, 5, 1, 1, 5, 2, 4, 5, 2, 3, 2, 1, 1, 1, 3, 2, 2, 5, 5, 2, 1, 1, 4, 1, 1, 1, 6, 4, 1, 4, 2, 4, 1, 1, 1, 7, 7, 7, 8, 8, 9, 10, 7, 7, 10, 8, 7, 8, 9, 11, 7, 9, 10, 12, 7, 9, 7, 12, 9, 7, 7, 8, 8, 9, 11, 7, 7, 7, 13, 9, 10, 7, 8, 10, 8, 9, 9, 7, 7, 9, 10, 10, 7, 11, 10, 14, 14, 12, 14, 14, 15, 14, 14, 15, 13, 8, 12, 12, 15, 15, 12, 13, 13, 15, 15, 12, 14, 15, 12, 13, 13, 12, 13, 15, 13, 15, 13, 15, 13, 14, 12, 14, 13, 9, 12, 12, 8, 14, 14, 12, 12, 12, 12, 13, 13, 4, 1, 4, 2, 1, 1, 1, 4, 3, 3, 4, 3, 1, 4, 1, 4, 1, 4, 2, 4, 3, 1, 4, 1, 4, 3, 2, 4, 2, 2, 3, 1, 4, 4, 1, 2, 2, 1, 4, 2, 4, 2, 1, 4, 3, 1, 1, 4, 4, 2, 10, 10, 8, 12, 7, 10, 7, 10, 8, 7, 7, 10, 7, 10, 7, 11, 10, 7, 8, 10, 13, 11, 13, 10, 10, 10, 7, 9, 10, 7, 8, 10, 10, 14, 10, 7, 10, 12, 7, 7, 13, 10, 10, 10, 10, 7, 7, 10, 7, 7, 15, 15, 15, 13, 15, 14, 13, 15, 14, 12, 9, 15, 13, 14, 14, 13, 14, 14, 14, 14, 13, 13, 14, 8, 14, 14, 8, 9, 14, 12, 12, 9, 14, 9, 13, 15, 13, 14, 13, 8, 15, 12, 15, 15, 15, 8, 15, 13, 14, 14), .Dim = c(150L, 2L), .Dimnames = list(NULL, c(\'cluster\', \'neighbor\'))));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators60() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L), .Dim = c(3L, 3L)), structure(c(1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L), .Dim = c(3L, 3L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators61() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1), .Dim = c(7L, 7L), .Dimnames = list(NULL, NULL)), c(1, 0, 0, 0, 0, 0, 0));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators62() {
+ assertEval("argv <- list(c(1, 0, 0, 0, 0, 0, 0, 0, 0, 0), structure(c(1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1), .Dim = c(10L, 10L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators63() {
+ assertEval("argv <- list(structure(list(war = c(1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L), fly = c(1L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), ver = c(1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 2L), end = c(1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 2L, 1L, NA, 1L, 1L, 2L, 1L, 1L, NA, 2L), gro = c(2L, 2L, 1L, 1L, 2L, 2L, 2L, 1L, 2L, 1L, NA, 2L, 2L, 1L, NA, 2L, 2L, NA, 1L, 2L), hai = c(1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 2L, 1L)), .Names = c(\'war\', \'fly\', \'ver\', \'end\', \'gro\', \'hai\'), class = \'data.frame\', row.names = c(\'ant\', \'bee\', \'cat\', \'cpl\', \'chi\', \'cow\', \'duc\', \'eag\', \'ele\', \'fly\', \'fro\', \'her\', \'lio\', \'liz\', \'lob\', \'man\', \'rab\', \'sal\', \'spi\', \'wha\')), 1);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators64() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'));`-`(argv[[1]]);");
+ }
+
+ @Test
+ public void testoperators65() {
+ assertEval("argv <- list(c(41L, 36L, 12L, 18L, NA, 28L, 23L, 19L, 8L, NA, 7L, 16L, 11L, 14L, 18L, 14L, 34L, 6L, 30L, 11L, 1L, 11L, 4L, 32L, NA, NA, NA, 23L, 45L, 115L, 37L, NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 135L, 49L, 32L, NA, 64L, 40L, 77L, 97L, 97L, 85L, NA, 10L, 27L, NA, 7L, 48L, 35L, 61L, 79L, 63L, 16L, NA, NA, 80L, 108L, 20L, 52L, 82L, 50L, 64L, 59L, 39L, 9L, 16L, 78L, 35L, 66L, 122L, 89L, 110L, NA, NA, 44L, 28L, 65L, NA, 22L, 59L, 23L, 31L, 44L, 21L, 9L, NA, 45L, 168L, 73L, NA, 76L, 118L, 84L, 85L, 96L, 78L, 73L, 91L, 47L, 32L, 20L, 23L, 21L, 24L, 44L, 21L, 28L, 9L, 13L, 46L, 18L, 13L, 24L, 16L, 13L, 23L, 36L, 7L, 14L, 30L, NA, 14L, 18L, 20L));`-`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators66() {
+ assertEval("argv <- list(structure(c(0.163529648037515, 0.690300939958932, 1.33873438218701, 1.66977334065937, 2.08385700655167, 1.90103052674775, 1.24826888183738, -0.346530864750065, -2.02114485014442, -1.391176571206, -0.974900546993623, -0.592397172772186, 1.12800897451332, 1.28932367812798, 1.52806194332292, 0.902674841819288, -0.592397172772186, -1.58883249200006, -2.79944983904467, -2.38660462363888, 1.11301751209174, 0.656516272159253, 0.0219290473645453, -0.905668755424301, -1.30280742075591, -1.17239032526075, -0.455509560368709, -0.00488221008611145, 1.01557266990962, 1.33518324209154, 1.7902682423845, 1.2223240303426, -0.642532985196542, -2.3156528876666, -2.94255068268534, -2.71429203070436, -2.52857488490927, -1.36967036598504, -0.673867141366977, 0.557834355527559, -1.17239032526075, -0.455509560368709, -0.00488221008611145, 1.01557266990962, 1.33518324209154, 1.7902682423845, 1.2223240303426, -0.642532985196542, -2.3156528876666, -2.94255068268534, -2.71429203070436, -2.52857488490927, -1.36967036598504, -0.673867141366977, 0.557834355527559, 1.69565743430218, 1.55297632585292, -0.231087508986891, -1.95215197865747, -1.57567440742255, 1.27884061694483, 1.52424121861625, -1.01140094921315, -0.834671205684972, -0.234500481583131, 0.163529648037515, 0.690300939958932, 1.33873438218701, 1.66977334065937, 2.08385700655167, 1.90103052674775, 1.24826888183738, -0.346530864750065, -2.02114485014442, -1.391176571206, -0.974900546993623, -0.592397172772186, 1.12800897451332, 1.28932367812798, 1.52806194332292, -0.720008297364832, -0.01169886906521, 0.795118935598027, 1.30411137828236, 1.35630335130608, 1.05258722945331, -0.0781544111924379, -0.905668755424301, -1.14228052378938, -1.10485411827026, -0.292564282537893, 0.785919238699603, 1.49889320873226, 2.20687990315498, 1.74950266694519, -0.073778036592639, -1.06484878365656, -0.447016940323056, -0.725579342414288, 0.0582966915354195, 1.55297632585292, -0.231087508986891, -1.95215197865747, -1.57567440742255, -0.647687635785206, 0.0245710568273836, 0.569377384809234, 1.54435558280902, 2.246266557697, 2.14425394955264, 1.63506382167997, 0.909232242365448, -0.762567911783628, -0.660691720208413), .Dim = c(114L, 1L), .Dimnames = list(NULL, \'Series 1\'), .Tsp = c(1, 114, 1), class = \'ts\'), structure(c(-1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16, -1.79193891693885e-16), .Dim = c(114L, 1L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators67() {
+ assertEval("argv <- list(c(4L, 3L, 2L, 1L, 2L, 3L, 4L, 5L), 0+5i);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators68() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'), structure(integer(0), .Label = character(0), class = \'factor\'));`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators69() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'), structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators70() {
+ assertEval("argv <- list(1, structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59), .Tsp = c(0, 59, 1), class = \'ts\'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators71() {
+ assertEval("argv <- list(-3.14159265358979, 3.14159265358979);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators72() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 2L, 2L, 2L), .Label = c(\'1\', \'2\'), class = \'factor\'), structure(c(1L, 1L, 2L, 2L, 3L, 3L), .Label = c(\'1\', \'2\', \'3\'), class = \'factor\'));`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators74() {
+ assertEval("argv <- list(0.5, -0.5);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators75() {
+ assertEval("argv <- list(101L, 1L);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators76() {
+ assertEval("argv <- list(FALSE, 1);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators77() {
+ assertEval("argv <- list(structure(c(0, 4.44089209850063e-16, 8.88178419700125e-16, 1.66533453693773e-15, 2.22044604925031e-16, 3.33066907387547e-16, 2.77555756156289e-16, 5.55111512312578e-17, 8.32667268468867e-17, 1.66533453693773e-16, 8.88178419700125e-16, 1.11022302462516e-16, 2.44249065417534e-15, 2.22044604925031e-16, 1.11022302462516e-16, 1.88737914186277e-15, 1.11022302462516e-16, 2.22044604925031e-16, 1.4432899320127e-15, 8.88178419700125e-16, 3.33066907387547e-16, 1.66533453693773e-16, 1.11022302462516e-16, 7.7715611723761e-16, 1.11022302462516e-16), .Dim = c(5L, 5L)), 2.22044604925031e-13);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators78() {
+ assertEval("argv <- list(1, 4);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators79() {
+ assertEval("argv <- list(NULL, NULL);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators80() {
+ assertEval("argv <- list(structure(1L, .Label = c(\'A\', \'B\', \'C\'), class = c(\'ordered\', \'factor\')), structure(3L, .Label = c(\'A\', \'B\', \'C\'), class = c(\'ordered\', \'factor\')));`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators81() {
+ assertEval("argv <- list(structure(1386500270.17764, class = c(\'POSIXct\', \'POSIXt\')), structure(c(1383854025.35606, 1386388510.66806), class = c(\'POSIXct\', \'POSIXt\')));`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators82() {
+ assertEval("argv <- list(c(0.999998001700552, -0.0013118835870674, -0.000526551904329415, 0.999999038344567, -0.000903475278483392, -0.000381296378838388, 0.999999057686544, -0.000896140095625969, -0.000373156128147092, 0.999998405868953, -0.00114777435393854, -0.000526063245555164, 0.99999814161282, -0.00120795166706622, -0.000631851641234638, 0.999997792453059, -0.00139185834612791, -0.000519877304541034, 0.999998020546725, -0.00127080900255349, -0.00060373324887666, 0.999998059330159, -0.00123814735894241, -0.000638480377887232, 0.999998337108097, -0.00115570987192407, -0.000572034814304861, 0.999998571810103, -0.00106400147389197, -0.00054414035107764, 0.999999136998844, -0.000829344110491764, -0.000418555560445895, 0.999999436800894, -0.000688792506748533, -0.00029793232712181, 0.999999182435777, -0.000786088000160243, -0.000446798847724984, 0.999998035855459, -0.00125214214514046, -0.000629508325517675, 0.999995461301925, -0.00191759993645823, -0.000928163756226527, 0.999990501294199, -0.00282586497589704, -0.00123008240127283, 0.99998523015117, -0.00349306924843624, -0.00160252859811979, 0.999980247693918, -0.00393070891026528, -0.00207399213858218, 0.999258133391236, -0.0212608113487506, 0.0170086490790013, 0.999752823870685, -0.0151150534926454, -0.00431858671218418, 0.998521231438773, -0.0331918414882689, 0.0193619075348229, 0.973987730061349, 0.0773006134969334, -0.139141104294479, 0.997923156801661, -0.0321910695742469, 0.0321910695742468, 0.999947758503179, -0.00259457124676546, -0.006745885241587, -0.0013118835870674, 0.138748425090248, -0.345681325192261, -0.000903475278483392, 0.151184975864853, -0.358227947918666, -0.000896140095625969, 0.147770769059702, -0.354871477867884, -0.00114777435393854, 0.173602465164251, -0.378765536799718, -0.00120795166706622, 0.214831416406957, -0.410703566802515, -0.00139185834612791, 0.122433312766354, -0.327782640513123, -0.00127080900255349, 0.184140620360657, -0.387596745778816, -0.00123814735894241, 0.21006198499474, -0.407350481092054, -0.00115570987192407, 0.196781639012774, -0.397564195941878, -0.00106400147389197, 0.207318901950479, -0.405384561552842, -0.000829344110491764, 0.203000309817415, -0.402231893588506, -0.000688792506748533, 0.157606764246543, -0.364371236069974, -0.000786088000160243, 0.244176387845927, -0.429597092087573, -0.00125214214514046, 0.201759382472957, -0.401311557517518, -0.00191759993645823, 0.189814026846399, -0.392149187005707, -0.00282586497589704, 0.159305169670633, -0.365949514378666, -0.00349306924843624, 0.173889122744829, -0.378998013455332, -0.00393070891026528, 0.217788926857211, -0.412724435577854, -0.0212608113487506, 0.000452357688250284, -0.00036188615058233, -0.0151150534926454, 0.000228521327097438, 6.52918077527545e-05, -0.0331918414882689, 0.00110332991097693, -0.000643609114746404, 0.0773006134969334, 0.00613496932514866, -0.0110429447852694, -0.0321910695742469, 0.0010384215991718, -0.00103842159917336, -0.00259457124676546, 6.73215168555691e-06, 1.75035942027152e-05, -0.000526551904329415, -0.345681325192261, 0.861253573209199, -0.000381296378838388, -0.358227947918666, 0.848815985790579, -0.000373156128147092, -0.354871477867884, 0.852230173253752, -0.000526063245555164, -0.378765536799718, 0.826399128966796, -0.000631851641234638, -0.410703566802515, 0.785170441980223, -0.000519877304541034, -0.327782640513123, 0.877568894780586, -0.00060373324887666, -0.387596745778816, 0.815861359092619, -0.000638480377887232, -0.407350481092054, 0.789939955675102, -0.000572034814304861, -0.397564195941878, 0.803220023879128, -0.00054414035107764, -0.405384561552842, 0.792682526239419, -0.000418555560445895, -0.402231893588506, 0.797000553183741, -0.00029793232712181, -0.364371236069974, 0.842393798952562, -0.000446798847724984, -0.429597092087573, 0.755824429718295, -0.000629508325517675, -0.401311557517518, 0.798242581671585, -0.000928163756226527, -0.392149187005707, 0.810190511851676, -0.00123008240127283, -0.365949514378666, 0.840704329035169, -0.00160252859811979, -0.378998013455332, 0.826125647104002, -0.00207399213858218, -0.412724435577854, 0.782230825448871, 0.0170086490790013, -0.00036188615058233, 0.00028950892043616, -0.00431858671218418, 6.52918077527545e-05, 1.86548021961656e-05, 0.0193619075348229, -0.000643609114746404, 0.000375438650284673, -0.139141104294479, -0.0110429447852694, 0.0198773006134874, 0.0321910695742468, -0.00103842159917336, 0.00103842159917592, -0.006745885241587, 1.75035942027152e-05, 4.55093454284494e-05), 0.692636183089874);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators83() {
+ assertEval("argv <- list(20, structure(c(-1, -1, -1, -1, -1, -1, -1, 8, 9, 10, 11, 12, 13, 14, 15, 100, 17, 18, 19, 20, 21, 200, 200, 24, 25, 26, 27, 28), .Dim = c(7L, 4L), .Dimnames = list(NULL, NULL)));`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators84() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'));`<`(argv[[1]]);");
+ }
+
+ @Test
+ public void testoperators85() {
+ assertEval("argv <- list(c(2.00256647265648e-308, 2.22284878464869e-308, 2.22507363599982e-308, 2.2250738585072e-308, 2.22507408101459e-308, 2.22729893236571e-308, 2.44758124435792e-308, 1.61792382137608e+308, 1.79589544172745e+308, 1.797692955093e+308, 1.79769313486232e+308), 1);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators86() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'), 1L);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators87() {
+ assertEval("argv <- list(structure(c(629, 1026, 1422, 1819, 2214, 2611), class = \'difftime\', units = \'days\', .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\')), 0);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators88() {
+ assertEval("argv <- list(c(1, 2, 3, 4, 5, 6, 7, NA, 9, 10, 11, 12), 2);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators89() {
+ assertEval("argv <- list(structure(3.0625, base = 4, lens = 3L, .classes = c(\'R_system_version\', \'package_version\', \'numeric_version\')), structure(3.25, .Names = \'gridSVG2\', base = 4, lens = structure(2L, .Names = \'gridSVG2\'), .classes = \'numeric_version\'));`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators90() {
+ assertEval("argv <- list(c(1, 0, 0, 1, 0, 1, 2, 2, 1, 2, 1, 2, 1, NA, 1, 1, 1, 2, 2, 1, 1, 0, 1, 0, 0, 1, 0, 3, 1, 2, 1, 2, 2, 2, 2, 2, 2, 1, 2, 1, 1, 2, 0, 2, 1, 2, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 2, 1, 1, 2, 1, 1, 1, 1, 2, 2, 0, 0, 1, 0, 1, 2, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 2, 0, 1, 1, 1, 0, 2, 1, 1, 1, 0, 0, 1, 1, 1, 2, 1, 1, 1, 1, 2, 0, 1, 1, 0, 1, 2, 2, 2, 2, 1, 0, 2, 1, 2, 0, 1, 1, 1, 2, 0, 1, 1, 0, 1, 0, 2, 1, 2, 1, 0, 2, 1, 2, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 2, 2, 1, 2, 1, 1, 0, 1, 2, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 2, 1, 1, 0, 0, 0, 0, 1, 0, 0, 2, 0, 1, 0, 1, 2, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 0, 2, 0, 2, 1, 1, 0, 1, 1, 2, 1, 1, 1, 2, 2, 0, 1, 1, 1, 1, 0, 2, 1, 1), 1);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators91() {
+ assertEval("argv <- list(structure(list(c(3L, 0L, 1L)), class = c(\'R_system_version\', \'package_version\', \'numeric_version\')), structure(\'3.1\', .Names = \'gridSVG2\'));`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators92() {
+ assertEval("argv <- list(structure(c(0, 0.414213562373095, 0.732050807568877, 0, 0.23606797749979, 0.449489742783178, 0.645751311064591, 0.82842712474619, 0, 0.16227766016838), id = \'test 1\', class = structure(\'withId\', package = \'.GlobalEnv\')), 0.01);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators93() {
+ assertEval("argv <- list(NULL, NULL);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators94() {
+ assertEval("argv <- list(\'a\', \'b\');`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators95() {
+ assertEval("argv <- list(structure(c(1386478800, 1386651600, 1386824400, 1386997200, 1387170000, 1387342800, 1387515600, 1387688400, 1387861200, 1388034000, 1388206800, 1388379600, 1388552400, 1388725200), class = c(\'POSIXct\', \'POSIXt\'), tzone = \'\'), structure(1387538790.57927, class = c(\'POSIXct\', \'POSIXt\')));`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators96() {
+ assertEval("argv <- list(c(17, 45.1, 39.7, 36.5, 43.5), 6);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators97() {
+ assertEval("argv <- list(structure(c(69, 35, 26, 21, 18, 16, 13, 12, 12), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\')), 0);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators98() {
+ assertEval("argv <- list(c(0L, 1L, 2L, 2L, 2L, 3L, 4L, 5L, 5L, 5L, 6L, 7L, 7L, 7L, 8L, 9L, 9L, 9L, 10L, 11L, 11L, 11L, 12L, 12L, 12L, 13L, 14L, 14L, 14L), 1L);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators99() {
+ assertEval("argv <- list(150000, 3e+09);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators100() {
+ assertEval("argv <- list(c(30L, 30L, 60L, 60L, 60L, 60L, 60L, 60L, 30L, 30L, 60L, 60L, 60L, NA, 30L, 30L, 30L, 30L, 60L, 60L, 60L, 60L, 60L, 60L, 30L, 30L, 60L, 60L, 60L, 60L, 30L, 30L, 30L, NA, 30L, 30L, 60L, 60L, 30L, 30L, 30L, 30L, 30L, 60L, 60L, 30L, 30L, 30L, 30L, 60L, NA, 60L, NA, 30L, 60L, 60L, 30L, NA, 30L, 30L, 60L, NA, 30L, 30L, 30L, 30L, 30L, NA, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, NA, 18L, 18L, 30L, 30L, 30L, 30L, 18L, 18L, 30L, 30L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, NA, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, NA, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 30L, 30L, NA, 18L, NA, 30L, 30L, NA, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 30L, 30L, NA, 30L, 18L, 18L, 30L, 30L, 18L, 18L, 7L, 7L, 30L, 30L, 18L, 18L, NA, 30L, 7L, 7L, 7L, NA, 18L, 18L, 7L, 7L, 18L, NA, 30L, 30L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 18L, 18L), 60);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators101() {
+ assertEval("argv <- list(structure(c(21, 0, 77, 0, 0, 96, 0, 0, 0, 0, 0, 0, 0, 0, 77, 0, 325, 0, 0, 288, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 361, 0, 513, 96, 0, 288, 0, 0, 576, 0, 0, 0, 0, 0, 513, 0, 729), .Dim = c(7L, 7L), .Dimnames = list(NULL, NULL)), 0);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators102() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'), 0L);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators103() {
+ assertEval("argv <- list(NULL, NULL);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators104() {
+ assertEval("argv <- list(structure(c(-1.47120249322699, 0.791288894530825, 4.43110323863505), .Dim = c(1L, 3L)), 0.0031308);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators105() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'));`<=`(argv[[1]]);");
+ }
+
+ @Test
+ public void testoperators106() {
+ assertEval("argv <- list(0.998212441139784, c(0.999998001700552, -0.0013118835870674, -0.000526551904329415, 0.999999038344567, -0.000903475278483392, -0.000381296378838388, 0.999999057686544, -0.000896140095625969, -0.000373156128147092, 0.999998405868953, -0.00114777435393854, -0.000526063245555164, 0.99999814161282, -0.00120795166706622, -0.000631851641234638, 0.999997792453059, -0.00139185834612791, -0.000519877304541034, 0.999998020546725, -0.00127080900255349, -0.00060373324887666, 0.999998059330159, -0.00123814735894241, -0.000638480377887232, 0.999998337108097, -0.00115570987192407, -0.000572034814304861, 0.999998571810103, -0.00106400147389197, -0.00054414035107764, 0.999999136998844, -0.000829344110491764, -0.000418555560445895, 0.999999436800894, -0.000688792506748533, -0.00029793232712181, 0.999999182435777, -0.000786088000160243, -0.000446798847724984, 0.999998035855459, -0.00125214214514046, -0.000629508325517675, 0.999995461301925, -0.00191759993645823, -0.000928163756226527, 0.999990501294199, -0.00282586497589704, -0.00123008240127283, 0.99998523015117, -0.00349306924843624, -0.00160252859811979, 0.999980247693918, -0.00393070891026528, -0.00207399213858218, 0.999258133391236, -0.0212608113487506, 0.0170086490790013, 0.999752823870685, -0.0151150534926454, -0.00431858671218418, 0.998521231438773, -0.0331918414882689, 0.0193619075348229, 0.973987730061349, 0.0773006134969334, -0.139141104294479, 0.997923156801661, -0.0321910695742469, 0.0321910695742468, 0.999947758503179, -0.00259457124676546, -0.006745885241587, -0.0013118835870674, 0.138748425090248, -0.345681325192261, -0.000903475278483392, 0.151184975864853, -0.358227947918666, -0.000896140095625969, 0.147770769059702, -0.354871477867884, -0.00114777435393854, 0.173602465164251, -0.378765536799718, -0.00120795166706622, 0.214831416406957, -0.410703566802515, -0.00139185834612791, 0.122433312766354, -0.327782640513123, -0.00127080900255349, 0.184140620360657, -0.387596745778816, -0.00123814735894241, 0.21006198499474, -0.407350481092054, -0.00115570987192407, 0.196781639012774, -0.397564195941878, -0.00106400147389197, 0.207318901950479, -0.405384561552842, -0.000829344110491764, 0.203000309817415, -0.402231893588506, -0.000688792506748533, 0.157606764246543, -0.364371236069974, -0.000786088000160243, 0.244176387845927, -0.429597092087573, -0.00125214214514046, 0.201759382472957, -0.401311557517518, -0.00191759993645823, 0.189814026846399, -0.392149187005707, -0.00282586497589704, 0.159305169670633, -0.365949514378666, -0.00349306924843624, 0.173889122744829, -0.378998013455332, -0.00393070891026528, 0.217788926857211, -0.412724435577854, -0.0212608113487506, 0.000452357688250284, -0.00036188615058233, -0.0151150534926454, 0.000228521327097438, 6.52918077527545e-05, -0.0331918414882689, 0.00110332991097693, -0.000643609114746404, 0.0773006134969334, 0.00613496932514866, -0.0110429447852694, -0.0321910695742469, 0.0010384215991718, -0.00103842159917336, -0.00259457124676546, 6.73215168555691e-06, 1.75035942027152e-05, -0.000526551904329415, -0.345681325192261, 0.861253573209199, -0.000381296378838388, -0.358227947918666, 0.848815985790579, -0.000373156128147092, -0.354871477867884, 0.852230173253752, -0.000526063245555164, -0.378765536799718, 0.826399128966796, -0.000631851641234638, -0.410703566802515, 0.785170441980223, -0.000519877304541034, -0.327782640513123, 0.877568894780586, -0.00060373324887666, -0.387596745778816, 0.815861359092619, -0.000638480377887232, -0.407350481092054, 0.789939955675102, -0.000572034814304861, -0.397564195941878, 0.803220023879128, -0.00054414035107764, -0.405384561552842, 0.792682526239419, -0.000418555560445895, -0.402231893588506, 0.797000553183741, -0.00029793232712181, -0.364371236069974, 0.842393798952562, -0.000446798847724984, -0.429597092087573, 0.755824429718295, -0.000629508325517675, -0.401311557517518, 0.798242581671585, -0.000928163756226527, -0.392149187005707, 0.810190511851676, -0.00123008240127283, -0.365949514378666, 0.840704329035169, -0.00160252859811979, -0.378998013455332, 0.826125647104002, -0.00207399213858218, -0.412724435577854, 0.782230825448871, 0.0170086490790013, -0.00036188615058233, 0.00028950892043616, -0.00431858671218418, 6.52918077527545e-05, 1.86548021961656e-05, 0.0193619075348229, -0.000643609114746404, 0.000375438650284673, -0.139141104294479, -0.0110429447852694, 0.0198773006134874, 0.0321910695742468, -0.00103842159917336, 0.00103842159917592, -0.006745885241587, 1.75035942027152e-05, 4.55093454284494e-05));`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators107() {
+ assertEval("argv <- list(structure(0:100, .Tsp = c(1, 101, 1), class = \'ts\'), 0);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators108() {
+ assertEval("argv <- list(structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 320, 330, 340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450, 460, 470, 480, 490, 500, 510, 520, 530, 540, 550, 560, 570, 580, 590, 600, 610, 620, 630, 640, 650, 660, 670, 680, 690, 700, 710, 720, 730, 740, 750, 760, 770, 780, 790, 800, 810, 820, 830, 840, 850, 860, 870, 880, 890, 900, 910, 920, 930, 940, 950, 960, 970, 980, 990, 1000, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96), .Dim = c(101L, 3L), .Dimnames = list(NULL, c(\'t1\', \'10 * t1\', \'t1 - 4\')), .Tsp = c(1, 101, 1), class = c(\'mts\', \'ts\', \'matrix\')), 0);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators109() {
+ assertEval("argv <- list(structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, 104, 118, 115, 126, 141, 135, 125, 149, 170, 170, 158, 133, 114, 140, 145, 150, 178, 163, 172, 178, 199, 199, 184, 162, 146, 166, 171, 180, 193, 181, 183, 218, 230, 242, 209, 191, 172, 194, 196, 196, 236, 235, 229, 243, 264, 272, 237, 211, 180, 201, 204, 188, 235, 227, 234, 264, 302, 293, 259, 229, 203, 229, 242, 233, 267, 269, 270, 315, 364, 347, 312, 274, 237, 278, 284, 277, 317, 313, 318, 374, 413, 405, 355, 306, 271, 306, 315, 301, 356, 348, 355, 422, 465, 467, 404, 347, 305, 336, 340, 318, 362, 348, 363, 435, 491, 505, 404, 359, 310, 337, 360, 342, 406, 396, 420, 472, 548, 559, 463, 407, 362, 405, 417, 391, 419, 461, 472, 535, 622, 606, 508, 461, 390, 432, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 419.147602949539, 391.474665943444, 435.919286153217, 443.935203034261, 455.023399013445, 517.28707821144, 589.71337277669, 582.999919227301, 484.573388713116, 428.878182738437, 368.526582998452, 406.728709993152, 415.660571294428, 388.716535970235, 433.006017658935, 440.885684396326, 451.651900136866, 513.051252429496, 584.327164324967, 577.055407135124, 479.076505013118, 423.494870357491, 363.43932958967, 400.592058645117, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 484.030717075782, 462.954959541421, 526.353307750503, 546.165638262644, 569.502470928676, 657.838443307596, 761.241730163307, 763.280655335144, 642.989004951864, 576.423799567567, 501.429012064338, 559.981301364233, 591.700754553767, 565.210772316967, 642.377841008703, 666.682421047093, 695.547100430962, 804.065022775202, 931.340589597203, 934.837830059897, 788.422986194072, 707.666678543854, 616.37838266375, 689.250456425465), .Dim = c(168L, 3L), .Dimnames = list(NULL, c(\'structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, \', \'structure(c(419.147602949539, 391.474665943444, 435.919286153217, \', \'structure(c(484.030717075782, 462.954959541421, 526.353307750503, \')), .Tsp = c(1949, 1962.91666666667, 12), class = c(\'mts\', \'ts\', \'matrix\')), 0);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators110() {
+ assertEval("argv <- list(structure(list(Fertility = c(80.2, 83.1, 92.5, 85.8, 76.9), Agriculture = c(17, 45.1, 39.7, 36.5, 43.5), Examination = c(15L, 6L, 5L, 12L, 17L), Education = c(12L, 9L, 5L, 7L, 15L)), .Names = c(\'Fertility\', \'Agriculture\', \'Examination\', \'Education\'), row.names = c(\'Courtelary\', \'Delemont\', \'Franches-Mnt\', \'Moutier\', \'Neuveville\'), class = \'data.frame\'), 6);`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators111() {
+ assertEval("argv <- list(c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, NA, 2L, 2L, 0L, NA, 1L, 1L), c(0, 0, 0, 0, 0, 0, 0, 0, 1, NA, 2, 2, 0, NA, 1, 1));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators112() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'));`!`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators113() {
+ assertEval("argv <- list(structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c(\'fm2\', \'original\'), class = c(\'ordered\', \'factor\')), \'original\');`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators114() {
+ assertEval("argv <- list(structure(c(1, 2, 0, 1, 2, 0, 1, 2, 0, 1, 2, 0), .Dim = 12L), 0);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators115() {
+ assertEval("argv <- list(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 124, 125, 126, 127, 160, 160, 164, 167, 168, 173, 173, 176, 180, 184, 193, 194, 196, 199, 201, 203, 205, 206, 211, 212, 214, 215, 218, 220, 221, 223, 225, 226, 228, 231, 233, 235, 237, 238, 243, 244, 246, 247, 250, 252, 253, 258, 259, 260, 261, 262, 263, 268, 269, 270, 271, 272, 272, 273, 273, 280, 281, 282, 283, 313, 314, 317, 318, 321, 322, 323, 324, 327, 328, 336, 336, 337, 337, 340, 341, 344, 345, 346, 347, 350, 351, 352, 353, 354, 354, 355, 355, 356, 357, 366, 367, 368, 368, 369, 369, 377, 378, 379, 379, 380, 380, 381, 382, 711, 728, 729, 731, 733), structure(231L, .Names = \'e7\', class = c(\'noquote\', \'hexmode\')));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators116() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L), .Dim = 3:4), structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L, 4L, 4L, 4L), .Dim = 3:4));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators117() {
+ assertEval("argv <- list(structure(c(9L, 4L, 6L, 5L, 3L, 10L, 5L, 3L, 5L), .Dim = 9L, .Dimnames = structure(list(x = c(\'0\', \'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\')), .Names = \'x\'), class = \'table\'), c(9, 4, 6, 5, 3, 10, 5, 3, 5));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators118() {
+ assertEval("argv <- list(structure(c(\'white\', \'aquamarine3\', \'bisque2\', \'blueviolet\', \'burlywood4\', \'chartreuse4\', \'coral4\', \'cyan3\', \'darkgreen\', \'darkorange1\', \'aliceblue\', \'white\', \'white\', \'white\', \'white\', \'chocolate\', \'cornflowerblue\', \'cyan4\', \'darkgrey\', \'darkorange2\', \'antiquewhite\', \'white\', \'white\', \'white\', \'white\', \'chocolate1\', \'cornsilk\', \'darkblue\', \'darkkhaki\', \'darkorange3\', \'antiquewhite1\', \'white\', \'white\', \'white\', \'white\', \'chocolate2\', \'cornsilk1\', \'darkcyan\', \'darkmagenta\', \'darkorange4\', \'antiquewhite2\', \'azure2\', \'blanchedalmond\', \'brown3\', \'cadetblue3\', \'chocolate3\', \'cornsilk2\', \'darkgoldenrod\', \'darkolivegreen\', \'darkorchid\', \'antiquewhite3\', \'azure3\', \'blue\', \'brown4\', \'cadetblue4\', \'chocolate4\', \'cornsilk3\', \'darkgoldenrod1\', \'darkolivegreen1\', \'darkorchid1\', \'antiquewhite4\', \'azure4\', \'blue1\', \'burlywood\', \'chartreuse\', \'coral\', \'cornsilk4\', \'darkgoldenrod2\', \'darkolivegreen2\', \'darkorchid2\', \'aquamarine\', \'beige\', \'blue2\', \'burlywood1\', \'chartreuse1\', \'coral1\', \'cyan\', \'darkgoldenrod3\', \'darkolivegreen3\', \'darkorchid3\', \'aquamarine1\', \'bisque\', \'blue3\', \'burlywood2\', \'chartreuse2\', \'coral2\', \'cyan1\', \'darkgoldenrod4\', \'darkolivegreen4\', \'darkorchid4\', \'aquamarine2\', \'bisque1\', \'blue4\', \'burlywood3\', \'chartreuse3\', \'coral3\', \'cyan2\', \'darkgray\', \'darkorange\', \'darkred\'), .Dim = c(10L, 10L), class = \'raster\'), \'white\');`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators119() {
+ assertEval("argv <- list(c(0, 7.93839803127729e-06, 7.93839803127729e-06, 1.58767960625546e-05, 2.38151940938319e-05, 3.96919901563864e-05, 5.5568786218941e-05, 8.73223783440502e-05, 0.000119075970469159, 0.0001746447566881, 0.000230213542907041, 0.000317535921251092, 0.000412796697626419, 0.00055568786218941, 0.000698579026752401, 0.000904977375565611, 0.00112725252044137, 0.00142097324759863, 0.00173057077081845, 0.00213542907041359, 0.00255616416607129, 0.00308803683416687, 0.00364372469635628, 0.00431848852901484, 0.00501706755576725, 0.00585853774708264, 0.00670000793839803, 0.00769230769230769, 0.00869254584424863, 0.00983567516075256, 0.0109629276811939, 0.0122410097642296, 0.0134714614590776, 0.0148448043184885, 0.016146701595618, 0.0175597364451854, 0.0188775105183774, 0.020298483765976, 0.0215606890529491, 0.022902278320235, 0.0240692228308327, 0.0252758593315869, 0.0262602206874653, 0.0272763356354688, 0.0280304834484401, 0.0287925696594427, 0.0292768119393506, 0.0297372390251647, 0.0299118837818528, 0.0300706517424784, 0.0299118837818528, 0.0297372390251647, 0.0292768119393506, 0.0287925696594427, 0.0280304834484401, 0.0272763356354688, 0.0262602206874653, 0.0252758593315869, 0.0240692228308327, 0.022902278320235, 0.0215606890529491, 0.020298483765976, 0.0188775105183774, 0.0175597364451854, 0.016146701595618, 0.0148448043184885, 0.0134714614590776, 0.0122410097642296, 0.0109629276811939, 0.00983567516075256, 0.00869254584424863, 0.00769230769230769, 0.00670000793839803, 0.00585853774708264, 0.00501706755576725, 0.00431848852901484, 0.00364372469635628, 0.00308803683416687, 0.00255616416607129, 0.00213542907041359, 0.00173057077081845, 0.00142097324759863, 0.00112725252044137, 0.000904977375565611, 0.000698579026752401, 0.00055568786218941, 0.000412796697626419, 0.000317535921251092, 0.000230213542907041, 0.0001746447566881, 0.000119075970469159, 8.73223783440502e-05, 5.5568786218941e-05, 3.96919901563864e-05, 2.38151940938319e-05, 1.58767960625546e-05, 7.93839803127729e-06, 7.93839803127729e-06, 0), c(0, 7.93839803127729e-06, 7.93839803127729e-06, 1.58767960625546e-05, 2.38151940938319e-05, 3.96919901563864e-05, 5.5568786218941e-05, 8.73223783440502e-05, 0.000119075970469159, 0.0001746447566881, 0.000230213542907041, 0.000317535921251092, 0.000412796697626419, 0.00055568786218941, 0.000698579026752401, 0.000904977375565611, 0.00112725252044137, 0.00142097324759863, 0.00173057077081845, 0.00213542907041359, 0.00255616416607129, 0.00308803683416687, 0.00364372469635628, 0.00431848852901484, 0.00501706755576725, 0.00585853774708264, 0.00670000793839803, 0.00769230769230769, 0.00869254584424863, 0.00983567516075256, 0.0109629276811939, 0.0122410097642296, 0.0134714614590776, 0.0148448043184885, 0.016146701595618, 0.0175597364451854, 0.0188775105183774, 0.020298483765976, 0.0215606890529491, 0.022902278320235, 0.0240692228308327, 0.0252758593315869, 0.0262602206874653, 0.0272763356354688, 0.0280304834484401, 0.0287925696594427, 0.0292768119393506, 0.0297372390251647, 0.0299118837818528, 0.0300706517424784, 0.0299118837818528, 0.0297372390251647, 0.0292768119393506, 0.0287925696594427, 0.0280304834484401, 0.0272763356354688, 0.0262602206874653, 0.0252758593315869, 0.0240692228308327, 0.022902278320235, 0.0215606890529491, 0.020298483765976, 0.0188775105183774, 0.0175597364451854, 0.016146701595618, 0.0148448043184885, 0.0134714614590776, 0.0122410097642296, 0.0109629276811939, 0.00983567516075256, 0.00869254584424863, 0.00769230769230769, 0.00670000793839803, 0.00585853774708264, 0.00501706755576725, 0.00431848852901484, 0.00364372469635628, 0.00308803683416687, 0.00255616416607129, 0.00213542907041359, 0.00173057077081845, 0.00142097324759863, 0.00112725252044137, 0.000904977375565611, 0.000698579026752401, 0.00055568786218941, 0.000412796697626419, 0.000317535921251092, 0.000230213542907041, 0.0001746447566881, 0.000119075970469159, 8.73223783440502e-05, 5.5568786218941e-05, 3.96919901563864e-05, 2.38151940938319e-05, 1.58767960625546e-05, 7.93839803127729e-06, 7.93839803127729e-06, 0));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators120() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12), .Tsp = c(1959, 1997.91666666667, 12), class = \'ts\'), 10L);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators121() {
+ assertEval("argv <- list(structure(c(0.86317353889998+0i, -3.79913366221062+3.31244294914647i, 1.55614767167993-1.74174276171448i, -2.23430861671215-1.65262168622253i, -2.23430861671215+1.65262168622253i, 1.55614767167993+1.74174276171448i, -3.79913366221062-3.31244294914647i, -3.33827801689622+0i, -0.24558402446046-1.38976239274682i, 0.38994543428825+2.49010387459687i, 1.4081214006546+1.81482300583077i, 1.4081214006546-1.81482300583077i, 0.38994543428825-2.49010387459687i, -0.24558402446046+1.38976239274682i, -2.31885928035568+0i, -4.19304293056817-0.22777444729915i, 0.98896416070392-1.81216964948694i, 1.39179443748361-4.40983340277928i, 1.39179443748361+4.40983340277928i, 0.98896416070392+1.81216964948694i, -4.19304293056817+0.22777444729915i, -1.0554525205105+0i, -0.26365333042432+1.4074399019829i, 0.40560122186879+3.13070845018955i, -1.20041403617116-3.43234427504359i, -1.20041403617116+3.43234427504359i, 0.40560122186879-3.13070845018955i, -0.26365333042432-1.4074399019829i, 0.0498590799965546+0i, 1.83744919383128-0.49050274510365i, -0.24547773966823+4.86316579489277i, -0.99323533469825+1.90306050881202i, -0.99323533469825-1.90306050881202i, -0.24547773966823-4.86316579489277i, 1.83744919383128+0.49050274510365i), .Dim = c(7L, 5L)), structure(c(0.86317353889998+0i, -3.79913366221062+3.31244294914647i, 1.55614767167993-1.74174276171448i, -2.23430861671215-1.65262168622253i, -2.23430861671215+1.65262168622253i, 1.55614767167993+1.74174276171448i, -3.79913366221062-3.31244294914647i, -3.33827801689622+0i, -0.24558402446046-1.38976239274682i, 0.38994543428825+2.49010387459687i, 1.4081214006546+1.81482300583077i, 1.4081214006546-1.81482300583077i, 0.38994543428825-2.49010387459687i, -0.24558402446046+1.38976239274682i, -2.31885928035568+0i, -4.19304293056817-0.22777444729915i, 0.98896416070392-1.81216964948694i, 1.39179443748361-4.40983340277928i, 1.39179443748361+4.40983340277928i, 0.98896416070392+1.81216964948694i, -4.19304293056817+0.22777444729915i, -1.0554525205105+0i, -0.26365333042432+1.4074399019829i, 0.40560122186879+3.13070845018955i, -1.20041403617116-3.43234427504359i, -1.20041403617116+3.43234427504359i, 0.40560122186879-3.13070845018955i, -0.26365333042432-1.4074399019829i, 0.0498590799965546+0i, 1.83744919383128-0.49050274510365i, -0.24547773966823+4.86316579489277i, -0.99323533469825+1.90306050881202i, -0.99323533469825-1.90306050881202i, -0.24547773966823-4.86316579489277i, 1.83744919383128+0.49050274510365i), .Dim = c(7L, 5L)));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators122() {
+ assertEval("argv <- list(c(1.22408179743946+0i, 0.359813827057364+0i, 0.400771450594052+0i, 0.11068271594512+0i, -0.555841134754075+0i), structure(c(1.22408179743946+0i, 0.359813827057364+0i, 0.400771450594052+0i, 0.11068271594512+0i, -0.555841134754075+0i), .Dim = c(1L, 5L)));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators123() {
+ assertEval("argv <- list(structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 1L, 2L), .Label = c(\'0-9g/day\', \'10-19\', \'20-29\', \'30+\'), class = c(\'ordered\', \'factor\'), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\')), structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 1L, 2L), .Label = c(\'0-9g/day\', \'10-19\', \'20-29\', \'30+\'), class = c(\'ordered\', \'factor\')));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators124() {
+ assertEval("argv <- list(16L, 8);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators125() {
+ assertEval("argv <- list(\'«Latin-1 accented chars»: ghè øØ å<Å æ<Æ gh ghè\', \'«Latin-1 accented chars»: ghè øØ å<Å æ<Æ gh ghè\');`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators126() {
+ assertEval("argv <- list(structure(list(cde = 2L, cd = 4L), .Names = c(\'cde\', \'cd\'), row.names = \'ab\', class = \'data.frame\'), c(2, 4));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators127() {
+ assertEval("argv <- list(1, structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Names = c(\'is.array\', \'is.atomic\', \'is.call\', \'is.character\', \'is.complex\', \'is.data.frame\', \'is.double\', \'is.environment\', \'is.expression\', \'is.factor\', \'is.finite\', \'is.function\', \'is.infinite\', \'is.integer\', \'is.language\', \'is.list\', \'is.logical\', \'is.matrix\', \'is.na\', \'is.name\', \'is.nan\', \'is.null\', \'is.numeric\', \'is.numeric_version\', \'is.object\', \'is.ordered\', \'is.package_version\', \'is.pairlist\', \'is.primitive\', \'is.qr\', \'is.raw\', \'is.recursive\', \'is.symbol\', \'is.table\', \'is.vector\')));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators128() {
+ assertEval("argv <- list(c(30000L, 100000L), c(30000, 1e+05));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators129() {
+ assertEval("argv <- list(2L, e2 = 2);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators130() {
+ assertEval("argv <- list(2, structure(list(2L), class = structure(\'L\', package = \'.GlobalEnv\')));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators131() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'), 1L);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators132() {
+ assertEval("argv <- list(NULL, NULL);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators133() {
+ assertEval("argv <- list(structure(c(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2), .Dim = 5:6), structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Dim = 5:6, .Dimnames = structure(list(blocks = c(\'1\', \'2\', \'3\', \'4\', \'5\'), varieties = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\')), .Names = c(\'blocks\', \'varieties\')), class = \'table\'));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators134() {
+ assertEval("argv <- list(FALSE, \'Sweave\');`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators135() {
+ assertEval("argv <- list(1, 26);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators136() {
+ assertEval("argv <- list(NULL, NULL);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators137() {
+ assertEval("argv <- list(structure(c(2, 1, 0, 1, 2), .Tsp = c(-1, 3, 1), class = \'ts\'), 1e-05);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators138() {
+ assertEval("argv <- list(structure(NA_real_, class = c(\'POSIXct\', \'POSIXt\')), structure(1386394754, class = c(\'POSIXct\', \'POSIXt\')));`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators139() {
+ assertEval("argv <- list(structure(c(-0.626453810742332, 0.183643324222082, -0.835628612410047, 1.59528080213779, 0.329507771815361, -0.820468384118015, 0.487429052428485, 0.738324705129217, 0.575781351653492, -0.305388387156356, 1.51178116845085, 0.389843236411431, -0.621240580541804, -2.2146998871775, 1.12493091814311, -0.0449336090152309, -0.0161902630989461, 0.943836210685299, 0.821221195098089, 0.593901321217509, 0.918977371608218, 0.782136300731067, 0.0745649833651906, -1.98935169586337, 0.61982574789471, -0.0561287395290008, -0.155795506705329, -1.47075238389927), .Dim = c(4L, 7L)), 0);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators140() {
+ assertEval("argv <- list(structure(c(24L, 13L, 15L, 68L, 39L, 74L, 22L, 1L, 8L, 55L, 24L, 20L, 51L, 13L, 3L, 4L, 5L, 6L, 15L, 2L, 8L, 60L, 67L, 23L, 58L, 24L, 22L, 21L, 37L, 74L, 59L, 39L, 14L, 14L, 19L, 23L, 70L, 21L, 22L, 31L, 29L, 30L, 45L, 58L, 17L, 7L, 19L, 26L, 39L, 74L, 57L, 59L, 12L, 72L, 70L, 37L, 64L, 16L, 18L, 21L, 22L, 8L, 62L, 61L, 63L, 71L, 105L, 64L, 10L, 41L, 8L, 27L, 11L, 34L, 32L, 33L, 68L, 107L, NA, 66L, NA, 65L, 48L, 52L, 43L, 47L, 46L, 44L, 41L, 54L, 28L, 50L, 40L, NA, 69L, NA, 75L, 109L, NA, 86L, 112L, 110L, 104L, 24L, 111L, 87L, NA, NA, 92L, 73L, 85L, 90L, 89L, NA, 83L, NA, 102L, NA, 108L, 88L, 91L, 93L, NA, 94L, 84L, NA, 106L, NA, 95L, 82L, 56L, 87L, 109L, 75L, 104L, 110L, 112L, 111L, 24L, 73L, 85L, 86L, 90L, 89L, 102L, 88L, 92L, 9L, 49L, 42L, 38L, 35L, 36L, 25L, NA, NA, 9L, 49L, 42L, NA, 36L, 38L, 25L, 53L, 79L, 78L, 103L, 77L, 80L, 114L, 97L, 113L, 76L, 96L, 81L, 116L, 99L, 117L, 115L, 98L, 101L, 100L), .Label = c(\'1008\', \'1011\', \'1013\', \'1014\', \'1015\', \'1016\', \'1027\', \'1028\', \'1030\', \'1032\', \'1051\', \'1052\', \'1083\', \'1093\', \'1095\', \'1096\', \'110\', \'1102\', \'111\', \'1117\', \'112\', \'113\', \'116\', \'117\', \'1219\', \'125\', \'1250\', \'1251\', \'126\', \'127\', \'128\', \'1291\', \'1292\', \'1293\', \'1298\', \'1299\', \'130\', \'1308\', \'135\', \'1376\', \'1377\', \'1383\', \'1408\', \'1409\', \'141\', \'1410\', \'1411\', \'1413\', \'1418\', \'1422\', \'1438\', \'1445\', \'1456\', \'1492\', \'2001\', \'2316\', \'262\', \'266\', \'269\', \'270\', \'2708\', \'2714\', \'2715\', \'272\', \'2728\', \'2734\', \'280\', \'283\', \'286\', \'290\', \'3501\', \'411\', \'412\', \'475\', \'5028\', \'5042\', \'5043\', \'5044\', \'5045\', \'5047\', \'5049\', \'5050\', \'5051\', \'5052\', \'5053\', \'5054\', \'5055\', \'5056\', \'5057\', \'5058\', \'5059\', \'5060\', \'5061\', \'5062\', \'5066\', \'5067\', \'5068\', \'5069\', \'5070\', \'5072\', \'5073\', \'5115\', \'5160\', \'5165\', \'655\', \'724\', \'885\', \'931\', \'942\', \'952\', \'955\', \'958\', \'c118\', \'c168\', \'c203\', \'c204\', \'c266\')), 20);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators141() {
+ assertEval("argv <- list(structure(c(2, 2, 1, 1, 1, 0, 1, 2, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0), .Dim = 18L, .Dimnames = list(c(\'5\', \'8\', \'9\', \'12\', \'13\', \'16\', \'18\', \'23\', \'27\', \'28\', \'30\', \'31\', \'33\', \'34\', \'43\', \'45\', \'48\', \'161\'))), 0);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators142() {
+ assertEval("argv <- list(structure(list(c(3L, 0L, 1L)), class = c(\'R_system_version\', \'package_version\', \'numeric_version\')), structure(\'2.13.2\', .Names = \'SweaveListingUtils\'));`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators143() {
+ assertEval("argv <- list(c(8262, 2889), 1e+05);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators144() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'));`>`(argv[[1]]);");
+ }
+
+ @Test
+ public void testoperators145() {
+ assertEval("argv <- list(c(1, 2, 3, NA, -1, 0, 1, NA), 0);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators146() {
+ assertEval("argv <- list(10, 16L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators147() {
+ assertEval("argv <- list(structure(0, .Tsp = c(1, 1, 1), class = \'ts\'), 1e-05);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators148() {
+ assertEval("argv <- list(FALSE, FALSE);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators149() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'));`>=`(argv[[1]]);");
+ }
+
+ @Test
+ public void testoperators150() {
+ assertEval("argv <- list(NULL, NULL);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators151() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 6L, 2L, 4L, 3L, 7L, 2L, 8L, 4L, 2L, 2L, 1L, 3L, 3L, 4L, 3L, 2L, 1L, 2L, 3L, 1L, 1L, 2L, 1L, 3L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 4L, 1L, 1L, 1L, 1L, 2L, 1L, 5L, 2L, 1L, 3L, 2L, 2L, 6L, 2L, 1L, 2L, 5L, 2L, 2L, 2L, 4L, 4L, 1L, 1L, 3L, 4L, 2L, 2L, 2L, 1L, 5L, 4L, 4L, 1L, 1L, 4L, 2L, 3L, 2L, 1L, 8L, 1L, 5L, 1L, 3L, 4L, 4L, 1L, 3L, 1L, 2L, 6L, 1L, 1L, 1L, 1L, 1L, 6L, 2L, 2L, 1L, 1L, 2L, 3L, 1L, 1L, 1L, 1L), .Dim = 124L, .Dimnames = structure(list(ne60 = c(\'96\', \'100\', \'102\', \'104\', \'105\', \'107\', \'108\', \'109\', \'110\', \'111\', \'112\', \'113\', \'115\', \'116\', \'117\', \'118\', \'119\', \'120\', \'121\', \'122\', \'124\', \'125\', \'126\', \'128\', \'129\', \'130\', \'131\', \'132\', \'133\', \'134\', \'135\', \'136\', \'137\', \'138\', \'139\', \'140\', \'141\', \'142\', \'143\', \'144\', \'145\', \'149\', \'157\', \'158\', \'168\', \'173\', \'174\', \'184\', \'199\', \'200\', \'202\', \'205\', \'207\', \'210\', \'214\', \'216\', \'221\', \'223\', \'224\', \'225\', \'226\', \'229\', \'230\', \'231\', \'233\', \'235\', \'237\', \'238\', \'240\', \'242\', \'243\', \'244\', \'245\', \'246\', \'247\', \'248\', \'249\', \'250\', \'251\', \'252\', \'254\', \'255\', \'256\', \'257\', \'258\', \'259\', \'260\', \'261\', \'262\', \'263\', \'264\', \'265\', \'266\', \'267\', \'268\', \'269\', \'270\', \'271\', \'272\', \'273\', \'274\', \'275\', \'276\', \'277\', \'278\', \'279\', \'280\', \'282\', \'283\', \'284\', \'285\', \'286\', \'287\', \'288\', \'289\', \'290\', \'291\', \'293\', \'294\', \'296\', \'300\', \'302\', \'304\', \'306\')), .Names = \'ne60\'), class = \'table\'), 4);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators152() {
+ assertEval("argv <- list(structure(3.00390625, base = 16, lens = 3L, .classes = c(\'R_system_version\', \'package_version\', \'numeric_version\')), structure(2.9375, base = 16, lens = 3L, .classes = c(\'package_version\', \'numeric_version\')));`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators153() {
+ assertEval("argv <- list(structure(list(2L), class = \'numeric_version\'), \'2\');`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators154() {
+ assertEval("argv <- list(\'3.0.1\', \'2.3.0\');`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators155() {
+ assertEval("argv <- list(c(30L, 30L, 60L, 60L, 60L, 60L, 60L, 60L, 30L, 30L, 60L, 60L, 60L, NA, 30L, 30L, 30L, 30L, 60L, 60L, 60L, 60L, 60L, 60L, 30L, 30L, 60L, 60L, 60L, 60L, 30L, 30L, 30L, NA, 30L, 30L, 60L, 60L, 30L, 30L, 30L, 30L, 30L, 60L, 60L, 30L, 30L, 30L, 30L, 60L, NA, 60L, NA, 30L, 60L, 60L, 30L, NA, 30L, 30L, 60L, NA, 30L, 30L, 30L, 30L, 30L, NA, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, NA, 18L, 18L, 30L, 30L, 30L, 30L, 18L, 18L, 30L, 30L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, NA, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, NA, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 18L, 18L, 30L, 30L, 30L, 30L, NA, 18L, NA, 30L, 30L, NA, 18L, 18L, 30L, 30L, 7L, 7L, 18L, 18L, 30L, 30L, 30L, 30L, NA, 30L, 18L, 18L, 30L, 30L, 18L, 18L, 7L, 7L, 30L, 30L, 18L, 18L, NA, 30L, 7L, 7L, 7L, NA, 18L, 18L, 7L, 7L, 18L, NA, 30L, 30L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 18L, 18L), 30);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators156() {
+ assertEval("argv <- list(structure(c(0L, 1L, 1L, 3L), .Names = c(\'1\', \'2\', \'3\', \'4\')), 0:3);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators157() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'), structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'));`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators158() {
+ assertEval("argv <- list(c(1.67451869393188, 0.668927329809365, 0.0791361259651342, 0.543924729050942, 0.00967644138302005, 0.464139419264689, 1.12629957234273), 1e-30);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators159() {
+ assertEval("argv <- list(c(2.00256647265648e-308, 2.22284878464869e-308, 2.22507363599982e-308, 2.2250738585072e-308, 2.22507408101459e-308, 2.22729893236571e-308, 2.44758124435792e-308, 1.61792382137608e+308, 1.79589544172745e+308, 1.797692955093e+308, 1.79769313486232e+308), 1);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators160() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1), .Dim = c(4L, 4L)), 0);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators161() {
+ assertEval("argv <- list(structure(c(-0.626453810742332, 0.183643324222082, -0.835628612410047, 1.59528080213779, 0.329507771815361, -0.820468384118015, 0.487429052428485, 0.738324705129217, 0.575781351653492, -0.305388387156356, 1.51178116845085, 0.389843236411431, -0.621240580541804, -2.2146998871775, 1.12493091814311, -0.0449336090152309, -0.0161902630989461, 0.943836210685299, 0.821221195098089, 0.593901321217509, 0.918977371608218, 0.782136300731067, 0.0745649833651906, -1.98935169586337, 0.61982574789471, -0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861, -0.41499456329968, -0.394289953710349, -0.0593133967111857, 1.10002537198388, 0.763175748457544, -0.164523596253587, -0.253361680136508, 0.696963375404737, 0.556663198673657, -0.68875569454952, -0.70749515696212, 0.36458196213683, 0.768532924515416, -0.112346212150228, 0.881107726454215), .Label = structure(list(c(-2.21578569960353, -0.304302574730325), c(-0.689841506975551, -0.0550429271029698), c(-0.254447492562539, 0.3887574239854), c(-0.0548908530089361, 0.620911560320741), c(0.3887574239854, 0.882193538880246), c(0.695877562978706, 1.59636661456382)), class = \'shingleLevel\'), class = \'shingle\'), -0.254447492562539);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators162() {
+ assertEval("argv <- list(c(1, 2, 3, 4, 5, 6, 7, NA, 9, 10, 11, 12), 1);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators163() {
+ assertEval("argv <- list(structure(c(18000, 315550800, 631170000, 946702800, 1262322000, 1577854800), class = c(\'POSIXct\', \'POSIXt\'), tzone = \'\'), 28304640);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators164() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));`!`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators165() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE), .Names = c(\' 100\', \'-1e-13\', \' Inf\', \'-Inf\', \' NaN\', \'3.14\', \' NA\')));`!`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators166() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE), .Dim = c(5L, 2L), .Dimnames = list(NULL, c(\'VAR1\', \'VAR3\'))));`!`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators167() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, TRUE), .Names = c(\' 100\', \'-1e-13\', \' Inf\', \'-Inf\', \' NaN\', \'3.14\', \' NA\')), structure(c(TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE), .Names = c(\' 100\', \'-1e-13\', \' Inf\', \'-Inf\', \' NaN\', \'3.14\', \' NA\')));`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators168() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'));`%%`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators169() {
+ assertEval("argv <- list(structure(1:3, .Label = c(\'1\', \'2\', NA), class = \'factor\'), structure(1:3, .Label = c(\'1\', \'2\', NA), class = \'factor\'));`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators170() {
+ assertEval("argv <- list(429204532L, 2L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators171() {
+ assertEval("argv <- list(structure(c(1960.08433333333, 1960.16766666667, 1960.251, 1960.33433333333, 1960.41766666667, 1960.501, 1960.58433333333, 1960.66766666667, 1960.751, 1960.83433333333, 1960.91766666667, 1961.001, 1961.08433333333, 1961.16766666667, 1961.251, 1961.33433333333, 1961.41766666667, 1961.501, 1961.58433333333, 1961.66766666667), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = \'ts\'), 1);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators172() {
+ assertEval("argv <- list(c(-1, 0, 0, 0, 0, 0, 1, 1, 1), 2L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators173() {
+ assertEval("argv <- list(-65205377L, 1073741824L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators174() {
+ assertEval("argv <- list(160L, 16);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators175() {
+ assertEval("argv <- list(structure(c(52L, 52L, 1L, 1L), .Names = c(\'y\', \'x\', \'Ta\', \'Tb\')), 52L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators176() {
+ assertEval("argv <- list(1, 2);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators177() {
+ assertEval("argv <- list(c(0, 1, 1, 2, 2, 3, 3, 4, 4), 2L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators178() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0), .Dim = c(12L, 4L), .Dimnames = list(c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\'), c(\'(Intercept)\', \'M.userY\', \'TempLow\', \'M.userY:TempLow\')), assign = 0:3, contrasts = structure(list(M.user = \'contr.treatment\', Temp = \'contr.treatment\'), .Names = c(\'M.user\', \'Temp\'))), c(0.262364229584951, -0.851832547542732, 0.0441056253109867, 0.444266588736502));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators179() {
+ assertEval("argv <- list(structure(c(1976.001, 1976.08433333333, 1976.16766666667, 1976.251, 1976.33433333333, 1976.41766666667, 1976.501, 1976.58433333333, 1976.66766666667, 1976.751, 1976.83433333333, 1976.91766666667, 1977.001, 1977.08433333333, 1977.16766666667, 1977.251, 1977.33433333333, 1977.41766666667, 1977.501, 1977.58433333333, 1977.66766666667, 1977.751, 1977.83433333333, 1977.91766666667, 1978.001), .Tsp = c(1976, 1978, 12), class = \'ts\'), 1);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators180() {
+ assertEval("argv <- list(structure(c(1, 0, NA, 1), .Dim = c(2L, 2L)), structure(c(1, 2, 0, 1, 0, 0), .Dim = 2:3));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators181() {
+ assertEval("argv <- list(0, NA_real_);`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators182() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.35, 0.64, 0.12, 1.66, 1.52, 0.23, -1.99, 0.42, 1.86, -0.02, -1.64, -0.46, -0.1, 1.25, 0.37, 0.31, 1.11, 1.65, 0.33, 0.89, -0.25, -0.87, -0.22, 0.71, -2.26, 0.77, -0.05, 0.32, -0.64, 0.39, 0.19, -1.62, 0.37, 0.02, 0.97, -2.62, 0.15, 1.55, -1.41, -2.35, -0.43, 0.57, -0.66, -0.08, 0.02, 0.24, -0.33, -0.03, -1.13, 0.32, 1.55, 2.13, -0.1, -0.32, -0.67, 1.44, 0.04, -1.1, -0.95, -0.19, -0.68, -0.43, -0.84, 0.69, -0.65, 0.71, 0.19, 0.45, 0.45, -1.19, 1.3, 0.14, -0.36, -0.5, -0.47, -1.31, -1.02, 1.17, 1.51, -0.33, -0.01, -0.59, -0.28, -0.18, -1.07, 0.66, -0.71, 1.88, -0.14, -0.19, 0.84, 0.44, 1.33, -0.2, -0.45, 1.46, 1, -1.02, 0.68, 0.84), .Dim = c(100L, 2L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\'), c(\'(Intercept)\', \'x\')), assign = 0:1), c(1.15937252188199, 0.442508987631707));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators183() {
+ assertEval("argv <- list(c(-3, -2, -1, 0, 1, 2, 3, 4, 5), structure(c(-3, -2, -1, 0, 1, 2, 3, 4, 5), .Dim = c(1L, 9L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators184() {
+ assertEval("argv <- list(c(4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 4000, 8000, 12000, 16000, 20000, 24000, 28000, 32000, 36000, 40000, 44000, 48000), structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24), .Dim = c(1L, 24L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators185() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(10L, 0L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\'), NULL)), structure(numeric(0), .Names = character(0)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators186() {
+ assertEval("argv <- list(structure(c(0.553622032575332, 0, 0, 0, 0, 1.83583330034692, 0, 0, 0, 0, 0.540309168173204, 0, 0, 0, 0, 0.347171956892285), .Dim = c(4L, 4L)), structure(c(3.26267089696047, -0.712693854979374, 2.39769041729195, 5.15111718577956, -0.712693854979374, 0.296710908544859, -1.00753262176762, -0.987904999293151, 2.39769041729195, -1.00753262176762, 3.42543180838832, 3.32535677689614, 5.15111718577956, -0.987904999293151, 3.32535677689614, 8.29680198510459), .Dim = c(4L, 4L), .Dimnames = list(c(\'A\', \'B\', \'C\', \'D\'), c(\'A\', \'B\', \'C\', \'D\'))));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators187() {
+ assertEval("argv <- list(243L, 16);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators188() {
+ assertEval("argv <- list(4L, 2L);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators189() {
+ assertEval("argv <- list(5, 3);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators190() {
+ assertEval("argv <- list(1:2, 4L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators191() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators192() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, NA), .Dim = c(5L, 2L), .Dimnames = list(NULL, c(\'VAR1\', \'VAR3\'))), structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE), .Dim = c(5L, 2L), .Dimnames = list(NULL, c(\'VAR1\', \'VAR3\'))));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators193() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE), .Names = c(\' 100\', \'-1e-13\', \' Inf\', \'-Inf\', \' NaN\', \'3.14\', \' NA\')), structure(c(TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE), .Names = c(\' 100\', \'-1e-13\', \' Inf\', \'-Inf\', \' NaN\', \'3.14\', \' NA\')));`&`(argv[[1]],argv[[2]]);");
+ }
+
+
+ @Test
+ @Ignore
+ public void testoperators195() {
+ assertEval("argv <- list(7);`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators196() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c(\'NA\', \'a\', \'b\'), class = \'factor\'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators197() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = integer(0), class = \'data.frame\'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators198() {
+ assertEval("argv <- list(structure(c(0.500999999999976, 0.584333333333234, 0.667666666666719, 0.750999999999976, 0.834333333333234, 0.917666666666719, 0.000999999999976353, 0.0843333333332339, 0.167666666666719, 0.250999999999976), .Tsp = c(1920.5, 1921.25, 12), class = \'ts\'));`(`(argv[[1]]);");
+ }
+
+
+ @Test
+ @Ignore
+ public void testoperators200() {
+ assertEval("argv <- list(structure(list(coefficients = structure(NA_real_, .Names = \'x\'), residuals = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\')), effects = structure(c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), .Names = c(\'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\')), rank = 0L, fitted.values = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\')), assign = 1L, qr = structure(list(qr = structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(10L, 1L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\'), \'x\'), assign = 1L), qraux = 0, pivot = 1L, tol = 1e-07, rank = 0L), .Names = c(\'qr\', \'qraux\', \'pivot\', \'tol\', \'rank\'), class = \'qr\'), df.residual = 10L, xlevels = structure(list(), .Names = character(0)), call = quote(lm(formula = y ~ x + 0)), terms = quote(y ~ x + 0), model = structure(list(y = c(-0.667819876370237, 0.170711734013213, 0.552921941721332, -0.253162069270378, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, -1.36919169254062, 0.0881443844426084, -0.0834190388782434), x = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), .Names = c(\'y\', \'x\'), terms = quote(y ~ x + 0), row.names = c(NA, 10L), class = \'data.frame\')), .Names = c(\'coefficients\', \'residuals\', \'effects\', \'rank\', \'fitted.values\', \'assign\', \'qr\', \'df.residual\', \'xlevels\', \'call\', \'terms\', \'model\'), class = \'lm\'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void testoperators201() {
+ assertEval("argv <- list(3e+09, 30000L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators202() {
+ assertEval("argv <- list(structure(list(A = c(1, NA, 1), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA_integer_, NA_integer_, NA_integer_), E = c(FALSE, NA, TRUE), F = c(\'abc\', NA, \'def\')), .Names = c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\'), class = \'data.frame\', row.names = c(\'1\', \'2\', \'3\')));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators203() {
+ assertEval("argv <- list(structure(1395082079.73982, class = c(\'POSIXct\', \'POSIXt\')));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators204() {
+ assertEval("argv <- list(quote(y ~ a + b:c + d + e + e:d));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators205() {
+ assertEval("argv <- list(structure(c(-Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, 0, 0, 1, 1, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, Inf, -Inf, -Inf, -Inf, -Inf, 0, 1, 1, 1, Inf, -Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.6, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.4, 0.8, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.533333333333334, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.525, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 0, 1, 2, Inf, Inf, Inf, -Inf, -Inf, 0, 0.5, 1, 2, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 1, 2, 2, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.8, 1.6, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.3, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.4, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.2, 1.9, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.499999999999999, 1.33333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.325, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.6, 2.7, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.1, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.2, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.13333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.125, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 3, 4, Inf, Inf, Inf, -Inf, -Inf, 0, 1.5, 3, 4, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 4, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.4, 3.8, Inf, Inf, Inf, -Inf, -Inf, 0.100000000000001, 1.5, 2.9, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1.5, 3, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.2, 1.5, 2.8, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.0666666666666664, 1.5, 2.93333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.0750000000000002, 1.5, 2.925, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 3, 5, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1.5, 3.2, 4.9, Inf, Inf, Inf, -Inf, -Inf, 0.300000000000001, 2, 3.7, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.2, 2, 3.8, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.4, 2, 3.6, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.266666666666667, 2, 3.73333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.275, 2, 3.725, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L, 6L), .Dimnames = list(c(\'20%\', \'30%\', \'40%\', \'50%\', \'60%\', \'70%\', \'80%\', \'90%\', \'100%\'), NULL, NULL)));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators206() {
+ assertEval("argv <- list(structure(character(0), .Dim = c(0L, 7L), .Dimnames = list(NULL, c(\'description\', \'class\', \'mode\', \'text\', \'isopen\', \'can read\', \'can write\'))));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators207() {
+ assertEval("argv <- list(structure(list(coefficients = structure(c(1.47191076131574, 0.586694550701453, NA, 0.258706725324317), .Names = c(\'(Intercept)\', \'x1\', \'x2\', \'x3\')), residuals = structure(c(0.224762433374997, 0.4813346401898, -0.548705796690786, -0.873306430909872, 0.3255545927283, -0.288240908441576, 0.530823516045489, -0.0649703574297026, 1.2699009772491, -1.05715266611575), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\')), effects = structure(c(-18.0083860263211, 7.91372047070235, 0.594462796282497, -0.733976126666906, 0.546582698364345, -0.032332374655677, 0.774795104738016, 0.120246912926227, 1.34954655602521, -1.1298961521627), .Names = c(\'(Intercept)\', \'x1\', \'x3\', \'\', \'\', \'\', \'\', \'\', \'\', \'\')), rank = 3L, fitted.values = structure(c(2.08447598454963, 2.74878255284838, 3.46483046621199, 4.23261972464046, 5.0521503281338, 5.923422276692, 6.84643557031507, 7.821190209003, 8.84768619275579, 9.92592352157344), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\')), assign = 0:3, qr = structure(list( qr = structure(c(-3.16227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, 0.316227766016838, -17.3925271309261, 9.08295106229247, 0.15621147358221, 0.0461150970695743, -0.0639812794430617, -0.174077655955698, -0.284174032468334, -0.39427040898097, -0.504366785493606, -0.614463162006242, -12.1747689916483, 9.99124616852172, 2.29782505861521, 0.388354773181155, 0.471167347118467, 0.46694109307793, 0.375676011059543, 0.197372101063308, -0.0679706369107753, -0.420352202862709, -17.3925271309261, 9.08295106229247, 1.30962518065979e-16, -1.00907321685019e-15, 0.0501848681992808, -0.170313338748631, 0.0400139169574381, -0.419073670426332, -0.887431917453648, -0.0447724572319277), .Dim = c(10L, 4L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\'), c(\'(Intercept)\', \'x1\', \'x3\', \'x2\')), assign = 0:3), qraux = c(1.31622776601684, 1.26630785009485, 1.21850337126599, 1.04136435435488 ), pivot = c(1L, 2L, 4L, 3L), tol = 1e-07, rank = 3L), .Names = c(\'qr\', \'qraux\', \'pivot\', \'tol\', \'rank\'), class = \'qr\'), df.residual = 7L, xlevels = structure(list(), .Names = character(0)), call = quote(lm(formula = y ~ x1 + x2 + x3)), terms = quote(y ~ x1 + x2 + x3), model = structure(list(y = c(2.30923841792462, 3.23011719303818, 2.9161246695212, 3.35931329373059, 5.3777049208621, 5.63518136825043, 7.37725908636056, 7.75621985157329, 10.1175871700049, 8.86877085545769), x1 = 1:10, x2 = 1:10, x3 = c(0.1, 0.4, 0.9, 1.6, 2.5, 3.6, 4.9, 6.4, 8.1, 10)), .Names = c(\'y\', \'x1\', \'x2\', \'x3\'), terms = quote(y ~ x1 + x2 + x3), row.names = c(NA, 10L), class = \'data.frame\')), .Names = c(\'coefficients\', \'residuals\', \'effects\', \'rank\', \'fitted.values\', \'assign\', \'qr\', \'df.residual\', \'xlevels\', \'call\', \'terms\', \'model\'), class = \'lm\'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators208() {
+ assertEval("argv <- list(structure(c(1L, 2L, 1L), .Dim = 3L, .Dimnames = structure(list(c(\'1\', \'2\', NA)), .Names = \'\'), class = \'table\'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void testoperators209() {
+ assertEval("argv <- list(0.603420215896625, c(0, 0, 0, 0, 0, -0.0303676182248376, -0.0303676182248376, -0.0616574286863247, -0.0616574286863247, -0.0616574286863247, -0.0616574286863247, -0.0616574286863247, -0.0616574286863247, -0.0938974361662337, -0.0938974361662337, -0.0938974361662337, -0.127116495884859, -0.127116495884859, -0.127116495884859, -0.127116495884859, -0.161344339326807, -0.161344339326807, -0.161344339326807, -0.161344339326807, -0.161344339326807, -0.161344339326807, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.196611600851059, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.232949845109116, -0.270391595295763, -0.270391595295763, -0.270391595295763, -0.270391595295763, -0.270391595295763, -0.348720674486417, -0.389678109021166));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators210() {
+ assertEval("argv <- list(5, c(0.90483741803596, 0.042329219623205, 3.72007597602068e-44));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators211() {
+ assertEval("argv <- list(structure(c(110, 72, 89, 67, 116, 56, 102, 70, 116, 56, 106, 48), .Names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\')), structure(c(0.618181818181818, 0.583333333333333, 0.415730337078652, 0.358208955223881, 0.568965517241379, 0.589285714285714, 0.46078431372549, 0.328571428571429, 0.543103448275862, 0.517857142857143, 0.537735849056604, 0.395833333333333), .Names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\')));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators212() {
+ assertEval("argv <- list(0, 0L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators213() {
+ assertEval("argv <- list(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), structure(c(110, 72, 89, 67, 116, 56, 102, 70, 116, 56, 106, 48), .Names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\')));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators214() {
+ assertEval("argv <- list(0+6.28318530717959i, 1:16);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators215() {
+ assertEval("argv <- list(10, structure(0:100, .Tsp = c(1, 101, 1), class = \'ts\'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators216() {
+ assertEval("argv <- list(1, 8);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators217() {
+ assertEval("argv <- list(0+1i, 2);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators218() {
+ assertEval("argv <- list(2L, 5L);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators219() {
+ assertEval("argv <- list(0+2i, 3.14159265358979);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators220() {
+ assertEval("argv <- list(structure(11323, class = \'Date\'), c(12, 24, 36, 48, 60, 72, 84, 96, 108));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators221() {
+ assertEval("argv <- list(3, 0+5i);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators222() {
+ assertEval("argv <- list(structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19), .Names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\')), structure(c(42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\')));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators224() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4), 3);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators225() {
+ assertEval("argv <- list(0.02);`+`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators226() {
+ assertEval("argv <- list(1, structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = \'ts\'));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators227() {
+ assertEval("argv <- list(3.14159265358979, c(8.24339426780198e-14, 8.88066145332545e-14, 3.39607080058103e-14, 2.87112686384263e-14, -5.3372537031158e-14, 9.96185601455202e-14, -3.26659396832497e-14, 1.39086823244366e-13, 1.72881695621852e-13, 4.32507741831361e-14, -9.84603924440361e-14, 9.87208407136427e-14, -2.73032911651077e-14, -1.48736837028697e-13, 2.94392054503409e-14, -1.05171613093738e-13, -1.14029445758562e-13, 5.13338041611324e-15, -1.87531579189825e-13, -1.25627528672486e-13, 4.10267164560562e-14, 1.74236574669889e-13, 8.02066525165472e-14, 1.57764465352e-13, 1.23253351804626e-13, 1.6788749880341e-13, -1.39908165098147e-13, -1.58115885024452e-13, 1.81544497697974e-13, -1.14362367874561e-13, 1.56626365789358e-13, -1.81348445541539e-13, 1.34029870837468e-13, 5.83660521214748e-14, 1.66415892254192e-13, -1.55962501921682e-13, 5.56922447997358e-15, -1.90684901734508e-13, -1.56068620913678e-13, 1.42594677103356e-13, -1.5324035174056e-13, -1.72045664669025e-13, 6.15626207230525e-14, -1.70423231918929e-13, -2.2440318442518e-14, -6.47937716601402e-14, -1.03307295568126e-13, 7.89213836842498e-14, -9.01552844071197e-15, -1.39863491975671e-13, 1.21580502093206e-13, 1.74391617154328e-13, -7.68474764369541e-15, -9.62952541877272e-14, -5.3148471902392e-14, -2.21880305144443e-14, 5.26389742858333e-14, 2.7159840200832e-14, 1.87431554819324e-14, 4.56102486340353e-14, 1.11966090535737e-13, 9.46528420538298e-14, -1.10626253790834e-14, -1.20682584010224e-13, 1.09679727142136e-13, 1.85521222833898e-13, 1.28904258163856e-13, -7.30112958403796e-14, 4.38190249362539e-14, -5.25642067782032e-14, -1.07266296983526e-13, 4.48939091164837e-14, 4.09010010401022e-14, 1.576058154827e-13, -1.65586113176678e-13, 1.64953139323032e-13, -3.61017352519794e-14, -5.98713716165795e-14, 1.5553263601743e-13, -1.40329145253713e-13, -1.34306416738384e-13, 6.33760537168414e-15, -1.47719256195174e-13, 1.30439641217338e-13, -1.9949544714752e-13, 8.89585653992738e-14, 9.03099047696007e-14, -5.47032374550363e-14, 1.44655516265113e-13, 1.70556682807057e-13, -9.71359599142186e-14, -6.53941098287223e-14, -8.38818567534634e-14, 6.7826899389696e-14, 1.86838153280979e-13, 4.37228204318607e-14, 8.3759639291968e-14, -1.92868749423155e-13, -9.13894925944948e-14, 5.76515542011828e-14, 3.92733987046576e-14));`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators228() {
+ assertEval("argv <- list(4, 1:5);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators229() {
+ assertEval("argv <- list(structure(c(1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\')), 0.1);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators230() {
+ assertEval("argv <- list(structure(1:10, .Tsp = c(1920.5, 1921.25, 12), class = \'ts\'), 1);`+`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators231() {
+ assertEval("argv <- list(1, 1);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators232() {
+ assertEval("argv <- list(structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\'), c(\'X\', \'M\'))), structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\'), c(\'X\', \'M\'))));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators233() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Tsp = c(3, 10, 1), class = \'ts\'), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Tsp = c(3, 10, 1), class = \'ts\'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators234() {
+ assertEval("argv <- list(c(-1.04843842027757e+143, -9.998687937523e+136, -9.53549188377803e+130, -9.09375370386458e+124, -8.67247934711978e+118, -8.27072081298779e+112, -7.88757401780305e+106, -7.52217676063816e+100, -7.17370678430818e+94, -6.84137992972049e+88, -6.5244483891549e+82, -6.22219909169008e+76, -5.93395235884653e+70, -5.65906136797865e+64, -5.39691448428537e+58, -5.14694833309681e+52, -4.90870165301755e+46, -4.68202458334831e+40, -4.46788150641526e+34, -4.27143012156591e+28, -4.11397031483551e+22, -40816513889983680, -45637199262.2201, -83492.8982026505, -1.56717399085881, -0.0019371698216247, -0.0388983050293216, 0.00184649674288725, -0.049895679671468, 0.0161192923654623, -0.0169866996250208));`-`(argv[[1]]);");
+ }
+
+ @Test
+ public void testoperators235() {
+ assertEval("argv <- list(FALSE, c(-3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L, 70L));`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators236() {
+ assertEval("argv <- list(structure(1395082079.75887, class = c(\'POSIXct\', \'POSIXt\')), 3600);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators237() {
+ assertEval("argv <- list(structure(c(2, 1, 0, 1, 0, NA, NA, NA, 0), .Dim = c(3L, 3L)), structure(c(1, 1, 1, 0.5, 0.5, 0.5, 0, 0, 0), .Dim = c(3L, 3L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators238() {
+ assertEval("argv <- list(structure(2:10, .Tsp = c(2, 10, 1), class = \'ts\'), structure(1:9, .Tsp = c(2, 10, 1), class = \'ts\'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators239() {
+ assertEval("argv <- list(structure(0:100, .Tsp = c(1, 101, 1), class = \'ts\'), 4);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators240() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 4L)), structure(numeric(0), .Dim = c(0L, 4L)));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators241() {
+ assertEval("argv <- list(structure(c(1L, 0L, 0L, 1L), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c(\'1\', \'2\'), y = c(\'1\', \'2\')), .Names = c(\'x\', \'y\')), class = \'table\'), 1);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators242() {
+ assertEval("argv <- list(5);`-`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators243() {
+ assertEval("argv <- list(structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19), .Names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\')), structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19), .Names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\')));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators244() {
+ assertEval("argv <- list(10, structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), .Tsp = c(1, 10, 1), class = \'ts\'));`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators245() {
+ assertEval("argv <- list(17L, 10L);`-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators246() {
+ assertEval("argv <- list(structure(100L, .Names = \'expsumNoisy\'), 100L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators247() {
+ assertEval("argv <- list(50, 51);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators248() {
+ assertEval("argv <- list(-1, 1);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators249() {
+ assertEval("argv <- list(1L, structure(15L, .Names = \'nc\'));`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators250() {
+ assertEval("argv <- list(-20, 10);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators251() {
+ assertEval("argv <- list(-7L, -1L);`:`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators252() {
+ assertEval("argv <- list(structure(c(0.618181818181818, 0.583333333333333, 0.415730337078652, 0.358208955223881, 0.568965517241379, 0.589285714285714, 0.46078431372549, 0.328571428571429, 0.543103448275862, 0.517857142857143, 0.537735849056604, 0.395833333333333), .Names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\')), 0);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators253() {
+ assertEval("argv <- list(c(1, 1, 1, 1, 1), -10);`<`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators254() {
+ assertEval("argv <- list(structure(c(1208822400, 1208908800, 1208995200, 1209081600, 1209168000, 1209254400), class = c(\'POSIXct\', \'POSIXt\'), tzone = \'GMT\'), structure(1209168000, class = c(\'POSIXct\', \'POSIXt\'), tzone = \'GMT\'));`<=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators257() {
+ assertEval("argv <- list(structure(c(1, 1.4142135623731, 1.73205080756888, 2, 2.23606797749979, 2.44948974278318, 2.64575131106459, 2.82842712474619, 3, 3.16227766016838), id = \'test 1\', class = structure(\'withId\', package = \'.GlobalEnv\')), 1);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators258() {
+ assertEval("argv <- list(2L, 1);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators259() {
+ assertEval("argv <- list(structure(c(2L, NA, NA, 4L, 3L, 2L, 1L, 5L, 5L, 6L), .Label = c(\'NA\', \'a\', \'b\', \'c\', \'d\', NA), class = \'factor\'), structure(c(2L, NA, NA, 4L, 3L, 2L, 1L, 5L, 5L, 6L), .Label = c(\'NA\', \'a\', \'b\', \'c\', \'d\', NA), class = \'factor\'));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators260() {
+ assertEval("argv <- list(c(-Inf, Inf), c(-Inf, Inf));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators261() {
+ assertEval("argv <- list(structure(list(VAR1 = c(1, 2, 3, 4, 5), VAR3 = c(1, 1, 1, 1, NA)), .Names = c(\'VAR1\', \'VAR3\'), class = \'data.frame\', row.names = c(NA, -5L)), 1);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators262() {
+ assertEval("argv <- list(structure(1:20, .Dim = c(2L, 2L, 5L)), structure(1:20, .Dim = c(2L, 2L, 5L)));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators263() {
+ assertEval("argv <- list(structure(c(1L, 2L, NA), .Label = c(\'1\', \'2\'), class = \'factor\'), structure(c(1L, 2L, NA), .Label = c(\'1\', \'2\'), class = \'factor\'));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators264() {
+ assertEval("argv <- list(c(5L, 2L, 4L), c(5, 2, 4));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators265() {
+ assertEval("argv <- list(NULL, \'foo\');`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators266() {
+ assertEval("argv <- list(structure(FALSE, .Names = \'d\'), FALSE);`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators267() {
+ assertEval("argv <- list(c(\'1\', \'2\', NA), c(\'1\', \'2\', NA));`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators268() {
+ assertEval("argv <- list(-1:12, 2);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators269() {
+ assertEval("argv <- list(structure(\'(converted from warning) NAs produced\\n\', class = \'try-error\', condition = structure(list(message = \'(converted from warning) NAs produced\', call = quote(rnorm(1, sd = Inf))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))), \'(converted from warning) NAs produced\\n\');`==`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators270() {
+ assertEval("argv <- list(75.1931882101063, 0);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators271() {
+ assertEval("argv <- list(3.001e+155, 0);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators272() {
+ assertEval("argv <- list(structure(c(4, 3, 2, 1, 0), .Tsp = c(-1, 3, 1), class = \'ts\'), 1e-05);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators273() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(12L, 2L), .Dimnames = list(c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\'), c(\'X\', \'M\'))), 0.001);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators274() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 3.5527136788005e-15, 0, 0), .Names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\')), 0.001);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators275() {
+ assertEval("argv <- list(structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8), .Tsp = c(3, 11, 1), class = \'ts\'), 1e-05);`>`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators276() {
+ assertEval("argv <- list(structure(c(13991, 13992, 13993, 13994, 13995), class = \'Date\', labels = c(\'Apr 22\', \'Apr 23\', \'Apr 24\', \'Apr 25\', \'Apr 26\')), 13991);`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators277() {
+ assertEval("argv <- list(structure(3.00510204081633, base = 14, lens = 3L, .classes = c(\'R_system_version\', \'package_version\', \'numeric_version\')), structure(2.92857142857143, base = 14, lens = 3L, .classes = c(\'package_version\', \'numeric_version\')));`>=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators278() {
+ assertEval("argv <- list(2, c(1, 53.6315789473684, 106.263157894737, 158.894736842105, 211.526315789474, 264.157894736842, 316.789473684211, 369.421052631579, 422.052631578947, 474.684210526316, 527.315789473684, 579.947368421053, 632.578947368421, 685.210526315789, 737.842105263158, 790.473684210526, 843.105263157895, 895.736842105263, 948.368421052632, 1001));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators279() {
+ assertEval("argv <- list(structure(1:12, .Dim = 12L), 3);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators280() {
+ assertEval("argv <- list(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69), 2);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators281() {
+ assertEval("argv <- list(c(2, 13954490295224484, 9.73638996997572e+31, 6.79331796732739e+47, 4.73986448237219e+63, 3.30711964599708e+79, 2.30745845026066e+95, 1.60997032753976e+111, 1.12331576556267e+127, 7.83764947450857e+142, 5.46852017646992e+158, 3.8155205865895e+174, 2.66218224983966e+190, 1.85746981847535e+206, 1.29600222777925e+222, 9.04252525506755e+237, 6.30919154580821e+253, 4.40207760983472e+269, 3.07143746426322e+285, 2.14301721437253e+301), 0.9);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators282() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE), .Names = c(\' 100\', \'-1e-13\', \' Inf\', \'-Inf\', \' NaN\', \'3.14\', \' NA\')), structure(c(TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE), .Names = c(\' 100\', \'-1e-13\', \' Inf\', \'-Inf\', \' NaN\', \'3.14\', \' NA\')));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators283() {
+ assertEval("argv <- list(10, structure(c(2.62236698682835, 2.59270366218715, 2.63940608371058, 2.64731958493827, 2.65803373028597, 2.71373162990423, 2.77064097627242, 2.76566849458896, 2.68535956033309, 2.6323339540094, 2.56646882037186, 2.60930482928073, 2.61873883018004, 2.58963301587663, 2.63649393196055, 2.64432599746861, 2.65480384168506, 2.71016075212057, 2.76665607635342, 2.76121751481566, 2.68040487260442, 2.62684815424423, 2.56043192269559, 2.60270233556967), .Tsp = c(1961, 1962.91666666667, 12), class = \'ts\'));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators284() {
+ assertEval("argv <- list(10, -324:-307);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators285() {
+ assertEval("argv <- list(structure(c(2, -2, -2, 2), .Dim = c(2L, 2L), .Dimnames = list(c(\'Milk\', \'Tea\'), c(\'Milk\', \'Tea\'))), 2);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators286() {
+ assertEval("argv <- list(c(-0.672916599964862, -0.584338371560402, 0.572115715156077, -0.341116997543456, -0.218053452331652, 0.603114283893957, -0.415268358002702, -0.0134950134274691, 0.76321585191833, 0.804319710846886, 0.0536892937002835, 1.74635019377278, -0.471646028332481, 1.63758588525433, -0.578351427808452, 0.946667542637206, -0.329423655668059, -0.187791022191408, 0.794323068130594, 0.894218687970535, -1.22656982031204, 1.0590522527981, 0.612808669537666, -0.939425042488798, 2.69005530237799, -5.30421668373535, 2.81829750013497, -0.200427817155017, 0.828486397910241, 0.279395276763307, 0.0200169554117855, -0.787735991519008, -1.29364959334893, -0.511638483749587, 0.113049755514737, 1.10102046217428, -0.306657900899176, 0.268100169311174, -0.305146107712725, 0.396162277846222, 0.0150939553276523, 1.49211381144096, -1.92447564755755, 0.872283353434605, -1.19828539105242, 0.249023119183754, -0.888972367366677, -0.343085496017779, -0.789859289813313, 2.25212409468034, 2.24112978772768, -0.268185452742113, -0.258069470254978, -1.83609460856723, -0.0896167695808968, -0.0862703217063487, -0.00265875112142955, -0.414323880711934, -0.87767314293053, -2.22003587446461, -0.8313148988929, 0.832662806275473, -0.671837383858861, -1.85809916947114, -0.433937023889368, -0.851823367571459, -1.57641862799745, -0.880161315252144, -0.658071675968036, -1.21910415241982, -0.103154147995399, -1.92102359833593, 0.794527839025225, -1.0143657782449, 0.633288668140732, -0.0981774734963654, -0.927622152862583, -1.15272382197142, 3.28038998456465, -2.43807429671523, 0.0242203067253644, -0.377015290181077, 1.18353877313309, -5.69817122824189, -0.316441438096387, -0.0880345184260629, -0.161984388003683, -1.04890926431944, 3.34283466347557, -1.14655469197163, -0.0469559138168916, 4.57732396845363, -1.10972642208237, 6.74369483998494, -4.51689622564278, -0.942648739247179, 2.19288903907033, 1.26921808442688, -0.705352464586085, 0.00567568850361933), 2);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators287() {
+ assertEval("argv <- list(-3:4, 2);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators288() {
+ assertEval("argv <- list(0.9, Inf);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators289() {
+ assertEval("argv <- list(0+0i, -3:3);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators290() {
+ assertEval("argv <- list(structure(c(8L, 8L), .Names = c(\'y\', \'x\')), 8L);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators291() {
+ assertEval("argv <- list(c(-Inf, -2, -1), -3);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators292() {
+ assertEval("argv <- list(integer(0), 1:3);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators293() {
+ assertEval("argv <- list(c(NA, -2L, -1L, 0L, 1L, 2L, NA, NA, NA), 0L);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators294() {
+ assertEval("argv <- list(c(-4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i, -4+0i, -3+0i, -2+0i, -1+0i, 0+0i, 1+0i, 2+0i, 3+0i, 4+0i, 5+0i, 6+0i, 7+0i, 8+0i, 9+0i, 10+0i, 11+0i, 12+0i), c(-0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, -0.5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 1.5, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators295() {
+ assertEval("argv <- list(structure(c(26.2845882236184, 26.2845882236184, 26.2845882236184, 19.6276109953659, 19.6276109953659, 19.6276109953659, 19.6276109953659, 19.6276109953659, 16.7854987799975, 16.7854987799975, 16.7854987799975, 12.5343124120522, 12.5343124120522, 28.7031306388734, 28.7031306388734, 28.7031306388734, 28.7031306388734, 21.4336202544253, 21.4336202544253, 21.4336202544253, 21.4336202544253, 21.4336202544253, 21.4336202544253, 21.4336202544253, 28.044754781901, 28.044754781901, 28.044754781901, 28.044754781901, 28.044754781901, 28.044754781901, 28.044754781901, 24.2091543637699, 18.0778127599455, 18.0778127599455, 18.0778127599455, 18.0778127599455, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 15.4601140250197, 11.5446017812987, 11.5446017812987, 11.5446017812987, 11.5446017812987, 11.5446017812987, 26.436728414697, 26.436728414697, 26.436728414697, 26.436728414697, 26.436728414697, 26.436728414697, 26.436728414697, 26.436728414697, 19.7412193373284, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 25.830337984867, 14.8736630467598, 14.8736630467598, 14.8736630467598, 11.1066785552923, 11.1066785552923, 11.1066785552923, 11.1066785552923, 11.1066785552923, 11.1066785552923, 9.49841217984702, 9.49841217984702, 9.49841217984702, 9.49841217984702, 9.49841217984702, 9.49841217984702, 9.49841217984702, 7.0927928470328, 7.0927928470328, 16.2422439293196, 16.2422439293196, 16.2422439293196, 12.1286452283118, 12.1286452283118, 12.1286452283118, 12.1286452283118, 12.1286452283118, 12.1286452283118, 12.1286452283118, 15.8696887052689, 15.8696887052689, 15.8696887052689, 15.8696887052689, 15.8696887052689, 15.8696887052689, 15.8696887052689, 13.6992370430272, 10.2296940445213, 10.2296940445213, 10.2296940445213, 10.2296940445213, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 8.74841655179539, 6.53274517535593, 6.53274517535593, 6.53274517535593, 6.53274517535593, 6.53274517535593, 6.53274517535593, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 14.959754634679, 11.170966121195, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337, 14.6166164104337), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\', \'101\', \'102\', \'103\', \'104\', \'105\', \'106\', \'107\', \'108\', \'109\', \'110\', \'111\', \'112\', \'113\', \'114\', \'115\', \'116\', \'117\', \'118\', \'119\', \'120\', \'121\', \'122\', \'123\', \'124\', \'125\', \'126\', \'127\', \'128\', \'129\', \'130\', \'131\', \'132\', \'133\', \'134\', \'135\', \'136\', \'137\', \'138\', \'139\', \'140\', \'141\', \'142\', \'143\', \'144\', \'145\', \'146\')), 2);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators296() {
+ assertEval("argv <- list(17L, c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 61L, 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L, 70L, 71L, 72L, 73L, 74L, 75L, 76L, 77L, 78L, 79L, 80L, 81L, 82L, 83L, 84L, 85L, 86L, 87L, 88L, 89L, 90L, 91L, 92L, 93L, 94L, 95L, 96L, 97L, 98L, 99L, 100L, 77L, 50L, 49L, 48L, 47L, 46L, 45L, 44L, 43L, 42L, 41L, 40L, 10L));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators297() {
+ assertEval("argv <- list(c(-Inf, -2, -1), 0.5);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators298() {
+ assertEval("argv <- list(structure(c(4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L), .Dim = 27L, .Dimnames = structure(list(groups = c(\'M01\', \'M02\', \'M03\', \'M04\', \'M05\', \'M06\', \'M07\', \'M08\', \'M09\', \'M10\', \'M11\', \'M12\', \'M13\', \'M14\', \'M15\', \'M16\', \'F01\', \'F02\', \'F03\', \'F04\', \'F05\', \'F06\', \'F07\', \'F08\', \'F09\', \'F10\', \'F11\')), .Names = \'groups\'), class = \'table\'), 2);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators299() {
+ assertEval("argv <- list(NA_integer_, structure(-2, .Names = \'power\'));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators300() {
+ assertEval("argv <- list(c(-Inf, -2, -1, 0, 1, 2, Inf, NA, NaN), 0);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators301() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4, .Dimnames = list(c(\'Case_1\', \'Case_2\', \'Case_3\'), NULL)), 5);`%%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators302() {
+ assertEval("argv <- list(structure(c(2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 2L, 3L, 4L, 5L, 6L, 7L, 8L), .Names = c(\'2:\', \'3:\', \'4:\', \'5:\', \'6:\', \'7:\', \'8:\', \'2:\', \'3:\', \'4:\', \'5:\', \'6:\', \'7:\', \'8:\', \'2:\', \'3:\', \'4:\', \'5:\', \'6:\', \'7:\', \'8:\', \'2:\', \'3:\', \'4:\', \'5:\', \'6:\', \'7:\', \'8:\', \'2:\', \'3:\', \'4:\', \'5:\', \'6:\', \'7:\', \'8:\', \'2:\', \'3:\', \'4:\', \'5:\', \'6:\', \'7:\', \'8:\', \'2:\', \'3:\', \'4:\', \'5:\', \'6:\', \'7:\', \'8:\', \'2:\', \'3:\', \'4:\', \'5:\', \'6:\', \'7:\', \'8:\', \'2:\', \'3:\', \'4:\', \'5:\', \'6:\', \'7:\', \'8:\')), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 9L), .Names = c(\'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'2\', \'2\', \'2\', \'2\', \'2\', \'2\', \'2\', \'3\', \'3\', \'3\', \'3\', \'3\', \'3\', \'3\', \'4\', \'4\', \'4\', \'4\', \'4\', \'4\', \'4\', \'5\', \'5\', \'5\', \'5\', \'5\', \'5\', \'5\', \'6\', \'6\', \'6\', \'6\', \'6\', \'6\', \'6\', \'7\', \'7\', \'7\', \'7\', \'7\', \'7\', \'7\', \'8\', \'8\', \'8\', \'8\', \'8\', \'8\', \'8\', \'9\', \'9\', \'9\', \'9\', \'9\', \'9\', \'9\')));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators303() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'));`^`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators304() {
+ assertEval("argv <- list(0.8, structure(c(0L, 1L, 2L, 1L, 0L, 1L, 2L, 1L, 0L), .Dim = c(3L, 3L)));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators305() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 6, 0, 0, 0, 0, 6, 0, 0, 0, 0, 6, 0), .Dim = c(4L, 4L)), structure(c(0, 0, 0, 0, 6, 0, 0, 0, 0, 6, 0, 0, 0, 0, 6, 0), .Dim = c(4L, 4L)));`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators306() {
+ assertEval("argv <- list(c(1.1, 2, Inf), -Inf);`^`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators307() {
+ assertEval("argv <- list(logical(0), structure(logical(0), .Dim = c(0L, 0L), .Dimnames = list(NULL, NULL)));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators308() {
+ assertEval("argv <- list(list());`|`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators309() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, TRUE, TRUE), .Dim = c(2L, 2L), .Dimnames = list(NULL, NULL)), structure(c(FALSE, FALSE, FALSE, FALSE), .Dim = c(2L, 2L), .Dimnames = list(NULL, NULL)));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators310() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L)), structure(c(FALSE, FALSE, FALSE, FALSE), .Dim = c(2L, 2L)));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators311() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\')), structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\')));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators312() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0), .Dim = c(6L, 3L), .Dimnames = structure(list(` p L s` = c(\'. . .\', \'. | .\', \'. . |\', \'. | |\', \'. . ?\', \'. | ?\'), c(\'perm\', \'LDL\', \'super\')), .Names = c(\' p L s\', \'\'))), c(4, 2, 1));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators313() {
+ assertEval("argv <- list(structure(c(NA, FALSE, TRUE, NA, FALSE, TRUE, NA, FALSE, TRUE), .Names = c(NA, \'FALSE\', \'TRUE\', NA, \'FALSE\', \'TRUE\', NA, \'FALSE\', \'TRUE\')), structure(c(NA, NA, NA, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE), .Names = c(NA, NA, NA, \'FALSE\', \'FALSE\', \'FALSE\', \'TRUE\', \'TRUE\', \'TRUE\')));`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators314() {
+ assertEval("argv <- list(structure(120L, class = \'octmode\'), \'644\');`|`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators315() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1), .Dim = c(9L, 5L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\'), c(\'(Intercept)\', \'outcome2\', \'outcome3\', \'treatment2\', \'treatment3\')), assign = c(0L, 1L, 1L, 2L, 2L), contrasts = structure(list(outcome = \'contr.treatment\', treatment = \'contr.treatment\'), .Names = c(\'outcome\', \'treatment\'))), c(3.04452243772342, -0.454255272277594, -0.292987124681473, 1.33790930192987e-15, 1.42108546079721e-15));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators316() {
+ assertEval("argv <- list(character(0));`!`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators317() {
+ assertEval("argv <- list(structure(c(-1, 2), .Dim = c(2L, 1L), .Dimnames = list(NULL, \'x\')), c(-1, 2));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators318() {
+ assertEval("argv <- list(structure(c(0.94232064077615, 0.62152295589611, 0.178333356339776, 0.0222599883329273), .Dim = c(4L, 1L)), structure(c(0.941251786864296, 0.603637002512359, 0.159215730735261, 0.0172717433258791), .Dim = c(1L, 4L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators319() {
+ assertEval("argv <- list(numeric(0), structure(numeric(0), .Dim = c(1L, 0L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators320() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 68, 56, 60, 68, 71, 61, 68, 60, 63, 56, 49, 58, 72, 60, 70, 74, 73, 48, 60, 61, 62, 65, 74, 73, 59, 60, 76, 74, 74, 63, 68, 58, 62, 65, 57, 75, 68, 67, 64, 68, 63, 74, 51, 81, 73, 59, 61, 72, 63, 69, 72, 70, 58, 59, 75, 69, 75, 76, 49, 68, 66, 75, 60, 72, 70, 77, 48, 47, 67, 74, 56, 56, 73, 76, 71, 82, 59, 60, 62, 55, 69, 62, 62, 69, 57, 46, 65, 58, 43, 56, 74, 60, 39, 66, 51, 45, 72, 58, 53, 52, 70, 52, 63, 50, 63, 62, 55, 50, 60, 64, 76, 70, 57, 39, 75, 0, 0, 0, 0, 0, 0, 0, NA, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, NA, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, NA, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(115L, 5L), .Dimnames = list(c(\'2\', \'3\', \'5\', \'7\', \'8\', \'10\', \'12\', \'14\', \'18\', \'19\', \'22\', \'24\', \'25\', \'27\', \'28\', \'30\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'39\', \'42\', \'43\', \'44\', \'46\', \'47\', \'49\', \'52\', \'53\', \'54\', \'56\', \'57\', \'58\', \'61\', \'66\', \'67\', \'68\', \'69\', \'71\', \'73\', \'77\', \'79\', \'80\', \'81\', \'88\', \'90\', \'91\', \'95\', \'96\', \'100\', \'101\', \'105\', \'110\', \'111\', \'114\', \'116\', \'117\', \'118\', \'119\', \'121\', \'122\', \'124\', \'125\', \'129\', \'130\', \'133\', \'135\', \'136\', \'138\', \'140\', \'141\', \'143\', \'147\', \'149\', \'150\', \'152\', \'153\', \'155\', \'156\', \'158\', \'161\', \'163\', \'166\', \'168\', \'170\', \'172\', \'174\', \'177\', \'180\', \'181\', \'182\', \'183\', \'185\', \'186\', \'187\', \'188\', \'190\', \'192\', \'196\', \'199\', \'203\', \'204\', \'205\', \'206\', \'207\', \'208\', \'211\', \'214\', \'218\', \'219\', \'220\', \'225\', \'226\'), c(\'(Intercept)\', \'age\', \'factor(ph.ecog)1\', \'factor(ph.ecog)2\', \'factor(ph.ecog)3\')), assign = c(0L, 1L, 2L, 2L, 2L), contrasts = structure(list(`factor(ph.ecog)` = \'contr.treatment\'), .Names = \'factor(ph.ecog)\')), structure(c(6.76534252253894, -0.00731543889899693, -0.256632132912267, -0.629047717825279, -1.48257717514349), .Names = c(\'(Intercept)\', \'age\', \'factor(ph.ecog)1\', \'factor(ph.ecog)2\', \'factor(ph.ecog)3\')));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators321() {
+ assertEval("argv <- list(structure(c(544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 544.790381900886, 398.486952468991, 440.879079007027, 273.26068924187, -165.547292067734, -289.908895455829, -336.563851641157, -433.491123254512, -446.830170210184, -229.698549757081, 7.43503106965538, 237.187718724823, 1539.44739946315, 1548.66655077773, 1557.88570209231, 1566.45228027983, 1575.01885846735, 1583.14083472285, 1591.26281097836, 1599.26100149451, 1607.25919201066, 1611.39689466313, 1615.5345973156, 1612.61129444623, 1609.68799157686, 1603.44643859537, 1597.20488561388, 1588.73002343463, 1580.25516125537, 1570.86127478964, 1561.46738832392, 1549.89535441445, 1538.32332050498, 1524.62526591843, 1510.92721133189, 1499.65830819836, 1488.38940506483, 1479.31388700637, 1470.23836894792, 1460.03887936132, 1449.83938977473, 1441.27547309544, 1432.71155641615, 1432.51830671501, 1432.32505701387, 1433.15763708544, 1433.99021715701, 1434.96142536256, 1435.9326335681, 1435.47421580154, 1435.01579803498, 1433.4368629411, 1431.85792784722, 1430.85617066215, 1429.85441347709, 1432.59097206397, 1435.32753065085, 1440.49425642708, 1445.66098220331, 1448.76676550395, 1451.87254880459, 1452.9163236715, 1453.96009853841, 1454.6961768366, 1455.43225513478, 1452.22362902495, 1449.01500291512, 1442.43484036078, 1435.85467780644, 1426.50159512644, 1417.14851244644, 1409.58997614642, 1402.0314398464, 1397.59624058751, 1393.16104132862, 1386.64426440334, 1380.12748747807, 1371.71107833433, 1363.2946691906, 1354.59002807904, 1345.88538696748, 1336.94914699242, 1328.01290701735, 1318.64960669271, 49.7622186359663, -84.1535032467218, -121.764781099341, 37.2870304782966, 82.528433600382, -44.2319392670254, 25.3010406627996, -34.7698782399993, 48.5709781995188, 110.301655093951, -1.96962838525201, -3.7990131710535, -51.4783734777507, 135.066608935635, 114.916035379091, -28.990712676497, -11.7078691876363, 7.04762066618673, -38.9035366827579, 16.5957688400649, -38.4931502947952, 52.0732838386475, 26.6377575984557, 329.153973076816, -13.1797869657194, 872.199160524634, 371.882552045056, -254.299568603192, -95.2920977069916, 8.63342236039193, 16.852295225008, -29.0271834604991, 13.5051131963112, 4.54091267164154, 25.5747517733375, 386.850855912621, 259.276984531009, -199.961168270532, -153.894877042003, 94.302447817031, -20.3106357794875, 21.0527247936745, -6.29056183593116, 13.9001511905426, -29.4973604406664, -31.7957066699985, -224.096013272965, -30.9544842287708, 22.3370692945275, 432.596723859509, 47.1608224545594, -304.956866078466, 50.1150369329559, 24.6852664308792, -14.4511512739648, -4.94371710626865, -19.024507596255, -56.8030453693573, -314.583543516094, 165.222305128756, 316.17817825271, 23.9168069434991, 11.9598796643579, -128.904953645213, 0.419804589665318, -6.80218287850425, 29.2691824505584, 53.9010951754703, 40.9447832426993, -26.2505972353374, -41.4479380870087, -214.837325417531), .Dim = c(72L, 3L), .Dimnames = list(NULL, c(\'seasonal\', \'trend\', \'remainder\')), .Tsp = c(1974, 1979.91666666667, 12), class = c(\'mts\', \'ts\', \'matrix\')), c(1, 1, 1));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators322() {
+ assertEval("argv <- list(c(-1, 1), structure(c(1e-05, 1e-04, 0.001, 0.01, 0.1, 1, 10, 100, 1000, 10000, 1e+05), .Dim = c(1L, 11L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators323() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i), .Dim = c(5L, 5L)), structure(c(0.63829956885596+0i, -0.190923866036828-0.209348060979014i, -0.478761262752136-0.086103851005322i, -0.365383456834977+0.041833555661111i, -0.222902888615007-0.301211043305794i, 0.537261763078809+0i, 0.305061935059249+0.040985454461732i, 0.320062315956695-0.375563080684186i, 0.339383913939873+0.23302799386284i, -0.286918674221019+0.348301421162371i, 0.428338589082996+0.09065231252407i, -0.107969030611945+0.281263066654197i, 0.001811723298003+0.250507832255811i, 0.144305664871353+0.232873855829054i, 0.761400139936914+0i, -0.050390571101999+0.329984002238884i, 0.120127927801654-0.008394623232215i, -0.521562263306688+0.262168616442556i, 0.691801039177503+0i, -0.206933988216912-0.109088169082914i, -0.014684754774299-0.0242358465049725i, 0.848358097780775+0i, -0.232315601522623+0.249797304698912i, -0.362004462885974+0.102815998405382i, 0.086977040883207+0.118037795588006i), .Dim = c(5L, 5L)));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators324() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 0, 4.94065645841247e-324, 0, 0, 0, 0, 0), structure(c(73.0102287440125, 79.6161885135717, 81.5497837663961, 53.9710956454646, 43.6831159601594, 20.8581884349194, 7.6155030786098, 10.8008470888011, 14.7201505829463, 8.49167208457355, 101.686214382123, 921.711710792497), .Names = c(\'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\')));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators325() {
+ assertEval("argv <- list(-97.5074316406251, structure(c(73.0102287440125, 79.6161885135717, 81.5497837663961, 53.9710956454646, 43.6831159601594, 20.8581884349194, 7.6155030786098, 10.8008470888011, 14.7201505829463, 8.49167208457355, 101.686214382123, 921.711710792497), .Dim = c(1L, 12L), .Dimnames = list(NULL, c(\'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\'))));`%*%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators326() {
+ assertEval("argv <- list(structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Tsp = c(1959, 1997.91666667, 12), class = \'ts\'), 3);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators327() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE), .Dim = 4L, .Dimnames = list(c(\'8\', \'10\', \'12\', \'14\'))));`!`(argv[[1]]);");
+ }
+
+ @Test
+ public void testoperators328() {
+ assertEval("argv <- list(350L, 7);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators329() {
+ assertEval("argv <- list(34, 2L);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators330() {
+ assertEval("argv <- list(TRUE, 0:10);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators331() {
+ assertEval("argv <- list(structure(1L, .Names = \'rate\'), 2);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators332() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'));`%/%`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators333() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'), structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'));`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators334() {
+ assertEval("argv <- list(c(0, -1, 0, -1, -1, 0, NA, NA, 0, 0, 0, 0, 0, 15, 0, 17, 18, 0, 0, 0, NA, 0, 0, 0, 0, 0, NA, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 0, 33, 34, 0, 0, 35, 0, 37, 38, 0), 2);`%/%`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators335() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)));`&`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators336() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'));`&`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators337() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE), c(TRUE, TRUE, TRUE, NA, FALSE, FALSE, TRUE, NA));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators338() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE), .Names = c(\'(Intercept)\', \'age\')));`!`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators339() {
+ assertEval("argv <- list(c(FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE), structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Names = c(\'is.R\', \'is.array\', \'is.atomic\', \'is.call\', \'is.character\', \'is.complex\', \'is.data.frame\', \'is.double\', \'is.element\', \'is.environment\', \'is.expression\', \'is.factor\', \'is.finite\', \'is.function\', \'is.infinite\', \'is.integer\', \'is.language\', \'is.list\', \'is.loaded\', \'is.logical\', \'is.matrix\', \'is.na\', \'is.na.POSIXlt\', \'is.na.data.frame\', \'is.na.numeric_version\', \'is.name\', \'is.nan\', \'is.null\', \'is.numeric\', \'is.numeric.Date\', \'is.numeric.POSIXt\', \'is.numeric.difftime\', \'is.numeric_version\', \'is.object\', \'is.ordered\', \'is.package_version\', \'is.pairlist\', \'is.primitive\', \'is.qr\', \'is.raw\', \'is.recursive\', \'is.single\', \'is.symbol\', \'is.table\', \'is.unsorted\', \'is.vector\')));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators340() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Tsp = c(1790, 1970, 0.1), class = \'ts\'), c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators341() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(101L, 3L), .Dimnames = list(NULL, c(\'t1\', \'10 * t1\', \'t1 - 4\')), .Tsp = c(1, 101, 1), class = c(\'mts\', \'ts\', \'matrix\')), structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(101L, 3L), .Dimnames = list(NULL, c(\'t1\', \'10 * t1\', \'t1 - 4\'))));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators342() {
+ assertEval("argv <- list(structure(c(NA, FALSE, TRUE, NA, FALSE, TRUE, NA, FALSE, TRUE), .Names = c(NA, \'FALSE\', \'TRUE\', NA, \'FALSE\', \'TRUE\', NA, \'FALSE\', \'TRUE\')), structure(c(NA, NA, NA, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE), .Names = c(NA, NA, NA, \'FALSE\', \'FALSE\', \'FALSE\', \'TRUE\', \'TRUE\', \'TRUE\')));`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators343() {
+ assertEval("argv <- list(structure(508L, class = \'octmode\'), \'755\');`&`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators344() {
+ assertEval("argv <- list(list());`&`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators345() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\', \'101\', \'102\', \'103\', \'104\', \'105\', \'106\', \'107\', \'108\', \'109\', \'110\', \'111\', \'112\', \'113\', \'114\', \'115\', \'116\', \'117\', \'118\', \'119\', \'120\', \'121\', \'122\', \'123\', \'124\', \'125\', \'126\', \'127\', \'128\', \'129\', \'130\', \'131\', \'132\', \'133\', \'134\', \'135\', \'136\', \'137\', \'138\', \'139\', \'140\', \'141\', \'142\', \'143\', \'144\', \'145\', \'146\')));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators347() {
+ assertEval("argv <- list(c(1-0i, 1+0i, 1+0i, 9.99999999999989e-01-5e-15i, 1+0i, 1+0i, 1-0i, 1e+00+9e-16i, 9.99999999999999e-01+3e-15i, 9.99999999999997e-01-3e-15i, 1e+00-1e-15i, 1+0i, 1+0i, 1e+00+1e-15i, 1+0i, 1+0i, 1+0i, 1-0i, 1+0i, 1e+00-5e-15i, 1-0i, 1+0i, 1+0i, 1+0i));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators348() {
+ assertEval("argv <- list(structure(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Tsp = c(1959, 1997.91666667, 12), class = \'ts\'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators349() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE), .Dim = c(3L, 3L)));`!`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators350() {
+ assertEval("argv <- list(c(-Inf, 2.17292368994844e-311, 4.34584737989688e-311, 8.69169475979376e-311, 1.73833895195875e-310, 3.4766779039175e-310, 6.953355807835e-310, 1.390671161567e-309, 2.781342323134e-309, 5.562684646268e-309, 1.1125369292536e-308, 2.2250738585072e-308, 4.4501477170144e-308, 8.90029543402881e-308, 1.78005908680576e-307, 2.2250738585072e-303, 2.2250738585072e-298, 1.79769313486232e+298, 1.79769313486232e+303, 2.24711641857789e+307, 4.49423283715579e+307, 8.98846567431158e+307, 1.79769313486232e+308, Inf, Inf, NaN, NA));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators351() {
+ assertEval("argv <- list(.Primitive(\'log\'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators352() {
+ assertEval("argv <- list(structure(NA, .Dim = c(1L, 1L)));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators353() {
+ assertEval("argv <- list(structure(c(NA, 2, NA, 1, NA, 0), .Dim = 2:3));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators354() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c(\'abc\', \'def\'), class = \'factor\')), .Names = c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\'), class = \'data.frame\', row.names = c(\'1\', \'2\', \'3\')));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators355() {
+ assertEval("argv <- list(structure(NA, .Dim = c(1L, 1L), name = \'Sam\', class = structure(\'Foo\', package = \'.GlobalEnv\')));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators356() {
+ assertEval("argv <- list(structure(list(x = numeric(0), y = numeric(0), fac = structure(integer(0), .Label = c(\'A\', \'B\', \'C\'), class = \'factor\')), .Names = c(\'x\', \'y\', \'fac\'), row.names = integer(0), class = \'data.frame\'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators357() {
+ assertEval("argv <- list(structure(list(x = c(-2, -2, -2, -2, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2), y = c(1, 4, 5, 9, 0, 0, 1, 1, 1, 1, 2, 2, 2, 3, 3, 4, 4, 5, 5, 5, 6, 7, 8, 8, 9, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 7, 8, 8, 9, 9, 9, 0, 1, 1, 1, 1, 2, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 5, 5, 7, 8, 8, 9, 9, 9, 9, 10, 10, 10, 1, 2, 3, 5, 5, 10), z = c(-2, 5, -1, 7, -8, 17, -4, -2, -1, 0, -8, -3, 6, -9, 4, -10, 4, -9, -3, 4, -3, 8, 2, 8, 14, -14, -2, -1, 8, 9, -13, -12, -9, 0, 0, 5, 12, 14, -3, -1, 3, 4, 6, 18, 2, 8, 12, -23, 0, 2, 3, 13, -12, -6, -2, 3, 5, 8, -1, 12, 15, -11, 3, 4, 8, 10, 0, -8, -5, 7, 8, 1, -11, -10, -7, -3, 2, 4, 18, -5, -3, 0, -18, -7, -16, -10, -5, -6, -5, -3, -3, -11, -1, 2, 20, 0, -7, -1, 9, 3), u = c(12, 2, 6, 36, 17, 38, 24, 25, 19, 21, 6, 5, 28, 41, 28, 10, 6, 48, 33, 2, 45, 45, 37, 0, 29, 8, 23, 21, 1, 48, 20, 24, 26, 34, 35, 5, 35, 26, 33, 20, 7, 17, 40, 9, 17, 48, 50, 47, 46, 42, 28, 1, 14, 17, 32, 48, 14, 20, 2, 19, 27, 37, 44, 41, 23, 50, 30, 19, 42, 16, 12, 35, 38, 30, 33, 17, 32, 4, 41, 13, 9, 41, 39, 31, 32, 32, 36, 33, 32, 19, 37, 27, 17, 39, 19, 48, 33, 33, 42, 44)), .Names = c(\'x\', \'y\', \'z\', \'u\'), row.names = c(67L, 84L, 24L, 14L, 81L, 28L, 97L, 98L, 99L, 72L, 46L, 74L, 91L, 75L, 1L, 45L, 35L, 6L, 3L, 58L, 54L, 65L, 80L, 13L, 52L, 71L, 12L, 86L, 32L, 89L, 78L, 5L, 88L, 2L, 90L, 57L, 66L, 76L, 77L, 41L, 62L, 23L, 27L, 16L, 33L, 29L, 47L, 82L, 26L, 79L, 49L, 53L, 34L, 38L, 17L, 42L, 69L, 7L, 36L, 37L, 10L, 64L, 51L, 60L, 100L, 30L, 85L, 48L, 8L, 44L, 92L, 22L, 9L, 31L, 94L, 63L, 20L, 87L, 21L, 73L, 39L, 59L, 55L, 40L, 96L, 68L, 15L, 43L, 83L, 25L, 50L, 18L, 19L, 93L, 56L, 70L, 4L, 61L, 95L, 11L), class = \'data.frame\'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators358() {
+ assertEval("argv <- list(structure(list(x = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1), y = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10), fac = structure(c(1L, 2L, 2L, 3L, 1L, 3L, 3L, 2L, 2L, 1L), .Label = c(\'A\', \'B\', \'C\'), class = \'factor\'), char = structure(c(\'a\', \'b\', \'c\', \'d\', \'e\', \'f\', \'g\', \'h\', \'i\', \'j\'), class = \'AsIs\')), .Names = c(\'x\', \'y\', \'fac\', \'char\'), row.names = c(NA, -10L), class = \'data.frame\'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators359() {
+ assertEval("argv <- list(c(\'«L\', \'tin-1 \', \'\', \'\', \'ented \', \'h\', \'rs»: éè øØ å<Å æ<Æ é éè\'));`(`(argv[[1]]);");
+ }
+
+ @Test
+ public void testoperators360() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'), \'auto\');`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators361() {
+ assertEval("argv <- list(structure(c(6.36917889425777, 5.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 4.36917889425777, 5.36917889425777, 5.36917889425777, 6.36917889425777, 6.36917889425777, 4.36917889425777, 5.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 5.36917889425777, 6.36917889425777, 4.36917889425777, 5.36917889425777, 5.36917889425777), .Dim = 38L, .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\'))));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators362() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE), .Dim = c(14L, 11L), .Dimnames = list(c(\'0-18\', \'18-19\', \'19-20\', \'20-21\', \'21-22\', \'22-23\', \'23-24\', \'24-25\', \'25-26\', \'26-27\', \'27-28\', \'28-29\', \'29-30\', \'30-31\'), c(\'1954\', \'1955\', \'1956\', \'1957\', \'1958\', \'1959\', \'1960\', \'1961\', \'1962\', \'1963\', \'1964\'))));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators363() {
+ assertEval("argv <- list(structure(NA, .Tsp = c(1, 1, 1), .S3Class = \'ts\', class = structure(\'ts\', package = \'methods\')));`(`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators364() {
+ assertEval("argv <- list(6, structure(c(-1, 1, -1), .Dim = 3L, .Dimnames = list(c(\'73\', \'312\', \'674\'))));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators365() {
+ assertEval("argv <- list(-0.0290053253855826, c(95, 175, 250, 350, 500, 675, 1000));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators366() {
+ assertEval("argv <- list(c(2L, 1L), c(2L, 2L));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators367() {
+ assertEval("argv <- list(c(2.80068140446062, 1.8317224411983, 1.22900361620513, 0.0769946405427206, 2.80068140446062e-07), structure(c(-0.579458297883801, 0.378144472053104, 0.289151395420297, -0.322488635437406, 0.577604873429495, -0.439515769918701, -0.563213485796381, 0.19897761279598, -0.497766353148047, -0.449725499265461, -0.183421202297383, -0.367349618966443, -0.8113056422696, -0.10946638264776, 0.401511127970965, 0.369976492463818, -0.594590295135748, 0.453781444579942, 0.0303676587408212, 0.550218122031705, 0.548204365705284, 0.22652586176497, -0.112538595641497, -0.797072552569732, 0.012977588540091), .Dim = c(5L, 5L)));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators368() {
+ assertEval("argv <- list(1.5, 1.5);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators369() {
+ assertEval("argv <- list(structure(c(0.853345363892062, -0.0256071578412401, -0.0612813871821256, -0.0612813871821256, -0.0256071578412401, -0.0612813871821256, -0.0256071578412401, -0.0612813871821256, -0.0256071578412401, 0, 0, 0.0786725879812683, 0.0786725879812683, 0.22692030644121, -0.254660745352065, -0.106413026892124, -0.254660745352065, -0.106413026892124, 0, 0, 0.11837902431235, 0.11837902431235, 0.243512113989909, -0.322431463531475, -0.134731829015137, -0.322431463531475, -0.134731829015137, 0, 0, 0.186882435497702, 0.186882435497702, 0.272137080615963, -0.439352693506895, -0.18358875815211, -0.439352693506895, -0.18358875815211, 0, 0, 0, 0, 0, 0, 0, 0.172822903136154, -0.345645806272308), .Dim = c(9L, 5L)), structure(c(1.03259546878074, -0.967404531219257, 0.032595468780743, 0.032595468780743, -0.967404531219257, 0.032595468780743, -0.967404531219257, 0.032595468780743, -0.967404531219257, 1.15961954033819, -0.840380459661814, 0.159619540338186, 0.159619540338186, -0.840380459661814, 0.159619540338186, -0.840380459661814, 0.159619540338186, -0.840380459661814, 1.16167819481816, -0.838321805181836, 0.161678194818164, 0.161678194818164, -0.838321805181836, 0.161678194818164, -0.838321805181836, 0.161678194818164, -0.838321805181836, 1.1652298823369, -0.834770117663101, 0.165229882336899, 0.165229882336899, -0.834770117663101, 0.165229882336899, -0.834770117663101, 0.165229882336899, -0.834770117663101, 1.17282290313615, -0.827177096863846, 0.172822903136154, 0.172822903136154, -0.827177096863846, 0.172822903136154, -0.827177096863846, 0.172822903136154, -0.827177096863846), .Dim = c(9L, 5L)));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators370() {
+ assertEval("argv <- list(0.5, structure(c(-1.12095129310443+0i, 1.4848874974+0.41132282301771i, 2.78279011158859-0.53526713626358i, 1.85742152822765-0.44342995809143i, -0.9385359708259+2.37692350427328i, 1.4848874974-0.41132282301771i, 0.921832411978405+0i, -0.90524740754917+0.341208007507433i, -0.18900237366429+1.08605076555264i, -0.66363688475825+1.22446591693656i, 2.78279011158859+0.53526713626358i, -0.90524740754917-0.341208007507433i, 0.801542901188104+0i, -1.85593444068452+0.95943368782835i, -1.58184558306131+0.08618435261084i, 1.85742152822765+0.44342995809143i, -0.18900237366429-1.08605076555264i, -1.85593444068452-0.95943368782835i, 1.40271180312737+0i, -1.20168263701907+0.42799687996867i, -0.9385359708259-2.37692350427328i, -0.66363688475825-1.22446591693656i, -1.58184558306131-0.08618435261084i, -1.20168263701907-0.42799687996867i, -1.25007853569851+0i), .Dim = c(5L, 5L)));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators371() {
+ assertEval("argv <- list(TRUE, TRUE);`!=`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators372() {
+ assertEval("argv <- list(structure(1.6768574855882, .Names = \'x\'), c(1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, NA));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators373() {
+ assertEval("argv <- list(structure(c(2134, 1863, 1877, 1877, 1492, 1249, 1280, 1131, 1209, 1492, 1621, 1846, 2103, 2137, 2153, 1833, 1403, 1288, 1186, 1133, 1053, 1347, 1545, 2066, 2020, 2750, 2283, 1479, 1189, 1160, 1113, 970, 999, 1208, 1467, 2059, 2240, 1634, 1722, 1801, 1246, 1162, 1087, 1013, 959, 1179, 1229, 1655, 2019, 2284, 1942, 1423, 1340, 1187, 1098, 1004, 970, 1140, 1110, 1812, 2263, 1820, 1846, 1531, 1215, 1075, 1056, 975), .Tsp = c(1974, 1979.58333333333, 12), class = \'ts\'), c(-33.5, -32.5, -31.5, -30.5, -29.5, -28.5, -27.5, -26.5, -25.5, -24.5, -23.5, -22.5, -21.5, -20.5, -19.5, -18.5, -17.5, -16.5, -15.5, -14.5, -13.5, -12.5, -11.5, -10.5, -9.5, -8.5, -7.5, -6.5, -5.5, -4.5, -3.5, -2.5, -1.5, -0.5, 0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5, 10.5, 11.5, 12.5, 13.5, 14.5, 15.5, 16.5, 17.5, 18.5, 19.5, 20.5, 21.5, 22.5, 23.5, 24.5, 25.5, 26.5, 27.5, 28.5, 29.5, 30.5, 31.5, 32.5, 33.5));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators374() {
+ assertEval("argv <- list(c(0.0125360439090882, 0.109084258765985, 0.283058130441221, 0.5, 0.716941869558779, 0.890915741234015, 0.987463956090912, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0.987463956090912, 0.890915741234015, 0.716941869558779, 0.5, 0.283058130441221, 0.109084258765985, 0.0125360439090882), structure(c(430.689117199391, 165.5304253221, 185.371733444809, 191.213041567518, -187.945650309773, -425.104342187064, -388.263034064356, -531.421725941647, -447.580417818938, -158.739109696229, -23.8978015735202, 206.943506549189, 469.784814671898, 509.626122794606, 531.467430917315, 217.308739040024, -206.849952837267, -316.008644714558, -412.167336591849, -459.32602846914, -533.484720346432, -233.643412223723, -29.8021041010139, 497.039204021695, 456.880512144404, 1192.72182026711, 731.563128389821, -66.5955634874696, -350.754255364761, -373.912947242052, -415.071639119343, -552.230330996634, -517.389022873925, -302.547714751216, -37.7064066285076, 560.134901494201, 746.97620961691, 146.817517739619, 240.658825862328, 325.500133985037, -223.658557892254, -301.817249769546, -370.975941646837, -439.134633524128, -487.293325401419, -261.45201727871, -205.610709156001, 226.230598966708, 596.071907089416, 866.913215212125, 530.754523334834, 17.5958314575429, -59.5628604197482, -206.721552297039, -289.880244174331, -378.038936051622, -406.197627928913, -230.356319806204, -254.515011683495, 453.326296439214, 910.167604561923, 473.008912684631, 504.85022080734, 195.691528930049, -114.467162947242, -248.625854824533, -261.784546701824, -336.943238579115, -366.101930456407, -219.260622333698, -0.419314210988802, 52.4219939117201), .Tsp = c(1974, 1979.91666666667, 12), class = \'ts\'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators375() {
+ assertEval("argv <- list(structure(c(12L, 23L), .Dim = 2L, .Dimnames = structure(list(c(\'1\', \'2\')), .Names = \'\'), class = \'table\'), 1:2);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators376() {
+ assertEval("argv <- list(3, structure(2.39313505864491, .Names = \'x\'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators377() {
+ assertEval("argv <- list(30, 1:100);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators378() {
+ assertEval("argv <- list(1, structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE), .Dim = c(14L, 11L), .Dimnames = list(c(\'0-18\', \'18-19\', \'19-20\', \'20-21\', \'21-22\', \'22-23\', \'23-24\', \'24-25\', \'25-26\', \'26-27\', \'27-28\', \'28-29\', \'29-30\', \'30-31\'), c(\'1954\', \'1955\', \'1956\', \'1957\', \'1958\', \'1959\', \'1960\', \'1961\', \'1962\', \'1963\', \'1964\'))));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testoperators379() {
+ assertEval("argv <- list(structure(c(125.462606837607, 127.867786930034, 130.144676735994, 132.324464274255, 134.336734211717, 136.082072800639, 137.721118421779, 140.845055930758, 143.28591535884, 145.768223343737, 146.185327931547, 145.802002908545, 149.002460060179, 153.598715100046, 155.183805036251, 159.724429366298, 161.673726141005, 170.116738471067, 169.947660568386, 170.006973600711, 170.719702563484, 171.765986080317, 174.613600436266, 179.048948110372, 179.883872548102, 181.827282092545, 184.331859119525, 182.743207226061, 183.03021399043, 184.153788490888, 191.745076839764, 194.148810101473, 199.10701170422, 199.286358868728, 202.588173234443, 206.570808710438, 208.901416980527, 210.197793333945, 208.990030330146, 213.988947898492, 221.910492791482, 225.858547195805, 224.629928649936, 225.693827143939, 226.925133971988, 227.909074259919, 228.294198948883, 226.413286455683, 224.858486784216, 224.205996780539, 218.296565215286, 217.952397420454, 218.203297324152, 222.634503912979, 229.136665168488, 238.199012563706, 241.084558136518, 244.474599589944, 246.541678441215, 249.943070595034, 252.738029658228, 257.655553126827, 261.948737901648, 259.38828865138, 260.581624400595, 261.35845107056, 266.721536928548, 274.727021103557, 279.519739428079, 285.613419212625, 290.081183406543, 292.578703689536, 298.536510073918, 301.854944861174, 306.72012690062, 308.552564035999, 308.960906756251, 310.45531361152, 314.471901471993, 316.180279500694, 321.131980519447, 324.487238338646, 326.432439140534, 330.587069598829, 332.257828918305, 334.897103376149, 336.500107838622, 341.040184577164, 343.37680996925, 346.04109648055, 350.540519967376, 353.909804788829, 360.713606630499, 365.246028758837, 368.653301499587, 371.870254918956, 371.890026901483, 370.974100279234, 368.423988230309, 364.248564265975, 359.879991232458, 359.533794053725, 361.493423852232, 366.272105696357, 374.712558672268, 373.691234302716, 377.311059795731, 378.958918379956, 378.434557854932, 383.493556594665, 388.051875855736, 394.72909801417, 399.975945122541, 406.14684914494, 404.223720368284, 407.657133649615, 412.1384117511, 418.253339402259, 423.102585806067, 430.610654889479, 439.381586214864, 443.452574204404, 446.154893648303, 437.948767898975, 448.065211483223, 452.98477480065, 456.22724907891, 460.426882491713, 459.053158913271, 461.490725714314, 468.825080012951, 470.090114620358), .Tsp = c(1950, 1960.91666666667, 12), class = \'ts\'), structure(c(0.885377815022177, 0.956702662008391, 1.05604790005129, 0.99999180855271, 0.919180306022048, 1.08513403180744, 1.17950860096112, 1.17526020717901, 1.07399050289666, 0.935173924204861, 0.814655016855593, 0.918977224438701, 0.904886860495219, 0.974651014130265, 1.07318431817519, 1.01267995772422, 0.926294652616773, 1.09129604332202, 1.2136804527299, 1.19513265851781, 1.09196097114148, 0.920716625833028, 0.792428126174694, 0.944665370656132, 0.947060673767712, 0.975861204272186, 1.11889468518085, 1.01760687119493, 1.00966041750694, 1.06261400924208, 1.18646278417314, 1.17953219321689, 1.08299041001682, 0.934768432861068, 0.819582111385122, 0.933541960135008, 0.949299218066574, 0.984712956742138, 1.07274478711742, 1.00035738265237, 1.00344619530389, 1.136720297344, 1.19466716852011, 1.22110179994975, 1.06180417436075, 0.949583554116272, 0.837964127353819, 0.93707048913996, 0.942302022727904, 0.95126138690835, 1.10787035072032, 1.06044554393152, 1.0212841877174, 1.09777947829535, 1.18237485006198, 1.21101795468964, 1.05077474260124, 0.934482494680629, 0.806219558496273, 0.905507672627939, 0.919955309911582, 0.877743501942818, 1.0879384725907, 1.04844380534261, 1.05308404040641, 1.15209925173403, 1.2652951992685, 1.2229795664526, 1.06552999327079, 0.93588195611389, 0.816986956383517, 0.912235531149947, 0.943381852486145, 0.894360852742568, 1.04386693859046, 1.0412387923364, 1.04235110100738, 1.18519852082375, 1.32667886524828, 1.24804193460951, 1.09707745322343, 0.950576085705186, 0.817003170713368, 0.935893112057161, 0.94836946371363, 0.908951898620782, 1.03731973240637, 1.02419763657726, 1.03406277428866, 1.19743269363204, 1.31822462831668, 1.26862748613699, 1.10235655952769, 0.945803515760855, 0.82528228386107, 0.929397385899463, 0.948173569563647, 0.902518233330453, 1.05026106742455, 1.02180458893893, 1.03392834532348, 1.21128679495018, 1.32344975581348, 1.30039314766586, 1.11343783106856, 0.948475302349546, 0.826576551185179, 0.912962090088511, 0.926561968385747, 0.87353380715788, 1.00678775995668, 0.979149663293728, 1.01788806209298, 1.21041189004384, 1.34524520684843, 1.34901427843594, 1.0909897186673, 0.956150231433401, 0.823434379283845, 0.897915761073492, 0.942043948926554, 0.884990150921632, 1.03141421940795, 0.994229969777015, 1.03800763998638, 1.17962620510919, 1.3518161330406, 1.3629765592452, 1.11127249087291, 0.966786065425125, 0.843497574054032, 0.924445014403716), .Tsp = c(1950, 1960.91666666667, 12), class = \'ts\'));`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators380() {
+ assertEval("argv <- list(-3:3, 0+1i);`*`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testoperators381() {
+ assertEval("argv <- list(181L, 3.14159265358979);`*`(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinoptions.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinoptions.java
new file mode 100644
index 0000000000000000000000000000000000000000..589d3efbc2753be0925ce7101d3c3efe486d673e
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinoptions.java
@@ -0,0 +1,48 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinoptions extends TestBase {
+
+ @Test
+ @Ignore
+ public void testoptions1() {
+ assertEval("argv <- list(\'survfit.print.n\'); .Internal(options(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testoptions2() {
+ assertEval("argv <- list(\'contrasts\'); .Internal(options(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testoptions3() {
+ assertEval("argv <- list(\'str\'); .Internal(options(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testoptions4() {
+ assertEval("argv <- list(\'ts.eps\'); .Internal(options(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testoptions5() {
+ assertEval("argv <- list(NULL); .Internal(options(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinorder.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinorder.java
new file mode 100644
index 0000000000000000000000000000000000000000..6d2189a7dc34f7d770416e1d5bc108a50e3d8e33
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinorder.java
@@ -0,0 +1,132 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinorder extends TestBase {
+
+ @Test
+ @Ignore
+ public void testorder1() {
+ assertEval("argv <- list(TRUE, FALSE, structure(c(1, 1, 1, 2, 2, 2, 3, 4), .Names = c(\'CsparseMatrix\', \'nsparseMatrix\', \'generalMatrix\', \'nMatrix\', \'sparseMatrix\', \'compMatrix\', \'Matrix\', \'mMatrix\'))); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder2() {
+ assertEval("argv <- list(TRUE, FALSE, structure(c(1, 2, 2.1, 2.3, 2.3, 3, 4, 5, 7, 8, 11, 13, 14, 15), .Names = c(\'\\\\title\', \'\\\\name\', \'\\\\alias\', \'\\\\keyword\', \'\\\\keyword\', \'\\\\description\', \'\\\\usage\', \'\\\\arguments\', \'\\\\details\', \'\\\\value\', \'\\\\author\', \'\\\\references\', \'\\\\seealso\', \'\\\\examples\')), c(\'\', \'\', \'LOGLIN\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\'), c(\'\', \'\', \'loglin\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\')); .Internal(order(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder3() {
+ assertEval("argv <- list(TRUE, FALSE, c(NA, \'Ripley\', \'Venables & Smith\')); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder4() {
+ assertEval("argv <- list(TRUE, TRUE, structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 4L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 1L, 3L, 4L, 2L, 5L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 3L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 3L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L), .Names = c(\'1008\', \'1011\', \'1013\', \'1014\', \'1015\', \'1016\', \'1027\', \'1028\', \'1030\', \'1032\', \'1051\', \'1052\', \'1083\', \'1093\', \'1095\', \'1096\', \'110\', \'1102\', \'111\', \'1117\', \'112\', \'113\', \'116\', \'117\', \'1219\', \'125\', \'1250\', \'1251\', \'126\', \'127\', \'128\', \'1291\', \'1292\', \'1293\', \'1298\', \'1299\', \'130\', \'1308\', \'135\', \'1376\', \'1377\', \'1383\', \'1408\', \'1409\', \'141\', \'1410\', \'1411\', \'1413\', \'1418\', \'1422\', \'1438\', \'1445\', \'1456\', \'1492\', \'2001\', \'2316\', \'262\', \'266\', \'269\', \'270\', \'2708\', \'2714\', \'2715\', \'272\', \'2728\', \'2734\', \'280\', \'283\', \'286\', \'290\', \'3501\', \'411\', \'412\', \'475\', \'5028\', \'5042\', \'5043\', \'5044\', \'5045\', \'5047\', \'5049\', \'5050\', \'5051\', \'5052\', \'5053\', \'5054\', \'5055\', \'5056\', \'5057\', \'5058\', \'5059\', \'5060\', \'5061\', \'5062\', \'5066\', \'5067\', \'5068\', \'5069\', \'5070\', \'5072\', \'5073\', \'5115\', \'5160\', \'5165\', \'655\', \'724\', \'885\', \'931\', \'942\', \'952\', \'955\', \'958\', \'c118\', \'c168\', \'c203\', \'c204\', \'c266\'))); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder5() {
+ assertEval("argv <- list(TRUE, FALSE); .Internal(order(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder6() {
+ assertEval("argv <- list(TRUE, FALSE, c(25, 50, 100, 250, 500, 1e+05)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder7() {
+ assertEval("argv <- list(TRUE, FALSE, c(1L, 2L, NA)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder8() {
+ assertEval("argv <- list(TRUE, FALSE, c(-1.90479340955971, 0.152878714793717)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder9() {
+ assertEval("argv <- list(TRUE, FALSE, structure(numeric(0), .Dim = c(0L, 0L), .Dimnames = list(NULL, NULL))); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder10() {
+ assertEval("argv <- list(TRUE, FALSE, c(1L, 1L), c(5L, 5L)); .Internal(order(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder11() {
+ assertEval("argv <- list(TRUE, FALSE, structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\')), structure(c(-0.57247143337844, -0.539950178656569, -0.58297623976228, -0.439751638938155, -0.617930515617237, -0.533331856784678, -0.289352731546361, -0.478093191632667, -0.602269400145547, -0.580175322433967, -0.49540432777895, -0.513696058484476, -0.458241390525053, -0.626325772726431, -0.638174891061199, -0.617196984678001, -0.64409821087924, -0.612729425695224, -0.60380450668859, -0.478765912376981, -0.577566470585813, -0.611603489866172, -0.630689749726753, -0.617142933166765, -0.649085924500709, -0.663752033681209, -0.644167702381979, -0.638179039688751, -0.597653338464853, -0.60376057262344, -0.663213279051883, -0.675292341303314, -0.666589501747572, -0.670209631751109, -0.683375351812861, -0.683923564367218, -0.679841016050066, -0.687830656102281, -0.686865903442208, -0.681095489258746, -0.579001929374462, -0.669393058957547, -0.678452540432172, -0.638743740817659, -0.558515347237012, -0.337270659711893, -0.279950203607686, -0.295246094585692, -0.592252570503069, -0.558321756708791, -0.597079745476187, -0.573971559450555, -0.603793132961681, -0.544974758961613, -0.495274888248239, -0.488092985753192, -0.528409363716152, -0.552865045250698, -0.502907194303865, -0.482819909399495, -0.590008262166764, -0.582409343486053, -0.548676506410172, -0.642096376280899, -0.622604552864479, -0.581608072840875, -0.637160558239849, -0.640205884259342, -0.643944208731097, -0.627870005742383, -0.638070667609366, -0.648245104552262, -0.582808968033345, -0.593416716949551, -0.631441868159251), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\'))); .Internal(order(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder12() {
+ assertEval("argv <- list(TRUE, FALSE, c(FALSE, FALSE)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder13() {
+ assertEval("argv <- list(TRUE, FALSE, structure(c(-0.00544194018731062, -0.00542949133552226, -1.20718999105839e-05, -0.00505497198006266, -0.827687885653788, -0.00315385274195005, -0.0023164952286401, -0.00117183915211372, -2.09167441982205, -0.00193959227691399, -0.00358084102808485, -3.39138861812986e-05, -0.00163051710052444, -0.00168735925488057, -0.0167253073891896, -0.237074502262169, -0.0118967636015583, -0.00307437031103621, -0.00114371252369823, -0.000860763872820255, -0.00028432076263802, -0.00329557354736053, -0.000123683950933913, -0.00026114238659798, -0.00471892942651347, -0.00317288091968884, -6.76955217513137e-05, -0.0119061189538054, -0.00233356124758579, -0.00672098496026968, -0.134965372025281, -0.00102115420103838, -0.00114816901125044), .Names = c(\'Craig Dunain\', \'Ben Rha\', \'Ben Lomond\', \'Goatfell\', \'Bens of Jura\', \'Cairnpapple\', \'Scolty\', \'Traprain\', \'Lairig Ghru\', \'Dollar\', \'Lomonds\', \'Cairn Table\', \'Eildon Two\', \'Cairngorm\', \'Seven Hills\', \'Knock Hill\', \'Black Hill\', \'Creag Beag\', \'Kildcon Hill\', \'Meall Ant-Suidhe\', \'Half Ben Nevis\', \'Cow Hill\', \'N Berwick Law\', \'Creag Dubh\', \'Burnswark\', \'Largo Law\', \'Criffel\', \'Acmony\', \'Ben Nevis\', \'Knockfarrel\', \'Two Breweries\', \'Cockleroi\', \'Moffat Chase\'))); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder14() {
+ assertEval("argv <- list(TRUE, FALSE, c(2L, 1L, NA)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder15() {
+ assertEval("argv <- list(TRUE, FALSE, structure(c(1, 2, 2, 2, 2), .Names = c(\'character\', \'vector\', \'data.frameRowLabels\', \'SuperClassMethod\', \'atomicVector\'))); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder16() {
+ assertEval("argv <- list(TRUE, FALSE, c(1, 2, NA)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder17() {
+ assertEval("argv <- list(TRUE, FALSE, c(39.39, NA, 60.99, 45.82, 55.4, 59.49, 63.73, 55.09, 57.2, 33.22, 61.18, 59.52, 59.9, 59.06, 65.44, 54.3, 53.28, 70.87, 60.04, 59.33, 55.63, 53.68, 24.46, 49.87, 57.13, 65.51, 57.97, 66.11, 64.68, 57.81, 61.2, 49.34, 61.72, 61.11, 55.13, 55.25, 56.49, 58.31, 25.18, 58.39, 49.21, 55.27, 64.56, 72.18, 55.37, 53.91, 54.08, 61.58)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder18() {
+ assertEval("argv <- list(TRUE, FALSE, c(FALSE, TRUE)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testorder19() {
+ assertEval("argv <- list(TRUE, TRUE, c(2572.90550008339, 915.064609071159, 419.980933101553, 456.632018115023, 366.745362912885, 308.301779528581, 258.104614655539, 166.131403923756, 208.43876984087, 174.152165416129, 157.072337453686, 157.072337453686, 93.6287479850051, 145.261798316303, 140.969649074553, 80.9227484547009, 115.221543203043, 115.221543203043, 43.2054741656531, 92.6549620292801, 92.6549620292801, 90.9360919542674, 90.9360919542674, 95.4200045428049, 94.2845517186135, 90.4677652619726, 76.0356310934324, 76.0356310934324, 26.1565478253913, 79.2808369338756, 69.8160310537133, 69.8160310537133, 74.7131802385517, 72.7892236613541, 20.782836979896, 60.876337906218, 60.876337906218, 70.8748882290923, 66.7853490283529, 66.7853490283529, 16.5058357149619, 54.5274774202162, 54.5274774202162, 64.009437139127, 13.2377600042936, 49.2149340764437, 49.2149340764437, 60.372612826631, 55.4228623592615, 55.4228623592615, 55.598407412763, 8.99100195370794, 49.6125680940682, 49.6125680940682, 51.620171425175, 39.8798475138868, 39.8798475138868, 7.62805946796798, 35.458438379179, 35.458438379179, 38.2201699179466, 38.2201699179466, 29.6856293315566, 29.6856293315566, 34.3600931672689, 34.3600931672689, 47.6686025497685, 47.0350049752776, 5.57838460483725, 5.07382264677001, 15.9316203363047, 23.4957538578271, 23.4957538578271, 41.4311176038551, 11.9119569568831, 34.7321001383969, 4.21976444063592, 39.2901755793811, 29.1992830783774, 29.1992830783774, 11.1832867499603, 42.0546965543942, 27.0745572919711, 7.44159556589097, 28.1216021055426, 6.46699019595805, 2.05951624519943, 4.77172378340461, 38.0398197891428, 1.66021670517454, 1.03505989993491, 2.69814683135512, 1.8306332549612, 2.29820560404041, 3.42336057523814e-06, 3.42336062193255e-06, 2.86123099075901, 0.773887754953459, 0.213086170361661, 0.416100454072758)); .Internal(order(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpaste.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpaste.java
new file mode 100644
index 0000000000000000000000000000000000000000..01f38b29e2bafd4a791b7cdc595dbb27080a9391
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpaste.java
@@ -0,0 +1,77 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinpaste extends TestBase {
+
+ @Test
+ @Ignore
+ public void testpaste1() {
+ assertEval("argv <- list(list(\'%% ~~objects to See Also as\', \'\\\\code{\\\\link{~~fun~~}}, ~~~\'), \' \', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpaste2() {
+ assertEval("argv <- list(list(c(\'[\', \'cox.zph\', NA)), \' \', \'\\r\'); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testpaste3() {
+ assertEval("argv <- list(list(), \' \', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testpaste4() {
+ assertEval("argv <- list(list(\'package\', structure(\'pkgA\', .Names = \'name\')), \':\', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testpaste5() {
+ assertEval("argv <- list(list(c(\'[\', \'as.data.frame\', \'plot\', \'print\', \'summary\', \'as.character\', \'print\', \'print\', \'plot\', \'update\', \'dim\', \'dimnames\', \'dimnames<-\', \'[\', \'t\', \'summary\', \'print\', \'barchart\', \'barchart\', \'barchart\', \'barchart\', \'barchart\', \'barchart\', \'bwplot\', \'bwplot\', \'densityplot\', \'densityplot\', \'dotplot\', \'dotplot\', \'dotplot\', \'dotplot\', \'dotplot\', \'dotplot\', \'histogram\', \'histogram\', \'histogram\', \'qqmath\', \'qqmath\', \'stripplot\', \'stripplot\', \'qq\', \'xyplot\', \'xyplot\', \'levelplot\', \'levelplot\', \'levelplot\', \'levelplot\', \'contourplot\', \'contourplot\', \'contourplot\', \'contourplot\', \'cloud\', \'cloud\', \'cloud\', \'wireframe\', \'wireframe\', \'splom\', \'splom\', \'splom\', \'parallelplot\', \'parallelplot\', \'parallelplot\', \'parallel\', \'parallel\', \'parallel\', \'tmd\', \'tmd\', \'llines\', \'ltext\', \'lpoints\'), c(\'shingle\', \'shingle\', \'shingle\', \'shingle\', \'shingle\', \'shingleLevel\', \'shingleLevel\', \'trellis\', \'trellis\', \'trellis\', \'trellis\', \'trellis\', \'trellis\', \'trellis\', \'trellis\', \'trellis\', \'summary.trellis\', \'formula\', \'array\', \'default\', \'matrix\', \'numeric\', \'table\', \'formula\', \'numeric\', \'formula\', \'numeric\', \'formula\', \'array\', \'default\', \'matrix\', \'numeric\', \'table\', \'formula\', \'factor\', \'numeric\', \'formula\', \'numeric\', \'formula\', \'numeric\', \'formula\', \'formula\', \'ts\', \'formula\', \'table\', \'array\', \'matrix\', \'formula\', \'table\', \'array\', \'matrix\', \'formula\', \'matrix\', \'table\', \'formula\', \'matrix\', \'formula\', \'matrix\', \'data.frame\', \'formula\', \'matrix\', \'data.frame\', \'formula\', \'matrix\', \'data.frame\', \'formula\', \'trellis\', \'default\', \'default\', \'default\')), \'.\', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpaste6() {
+ assertEval("argv <- list(list(c(\'dotplot\', \'table\', NA)), \' \', \'\\r\'); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testpaste7() {
+ assertEval("argv <- list(list(character(0)), \' \', \' \'); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpaste8() {
+ assertEval("argv <- list(list(\'detaching\', \'‘package:splines’\'), \' \', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testpaste9() {
+ assertEval("argv <- list(list(\'GRID\', \'text\', \'6\'), \'.\', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testpaste10() {
+ assertEval("argv <- list(list(\'(\', structure(c(\' 1.124\', \' 1.056\', \' 1.059\', \' 0.932\'), .Dim = c(2L, 2L)), \',\'), \'\', NULL); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testpaste11() {
+ assertEval("argv <- list(list(character(0)), \' \', \'\'); .Internal(paste(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpaste0.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpaste0.java
new file mode 100644
index 0000000000000000000000000000000000000000..c04ed846dfa0aa35a88dcd30f0a50ae44b2de0f4
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpaste0.java
@@ -0,0 +1,87 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinpaste0 extends TestBase {
+
+ @Test
+ public void testpaste01() {
+ assertEval("argv <- list(list(\'2\', \': \'), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testpaste02() {
+ assertEval("argv <- list(list(structure(c(\'-0.20\', \' 0.07\', \' 0.16\', \' 0.55\', \' 0.13\', \'-0.07\', \'-0.08\', \'-0.48\', \' 0.22\', \' 0.04\', \'-0.34\', \'-0.38\', \'-0.02\', \'-0.23\', \' 0.09\', \'-0.02\', \' 0.12\', \'-0.03\', \' 0.23\', \'-1.02\', \'-0.46\', \'-0.25\', \' 0.75\', \'-1.16\', \' 0.65\', \' 1.66\', \' 0.51\', \' 2.09\', \' 0.04\', \' 0.01\', \' 0.10\', \' 0.27\', \' 0.04\', \' 0.33\', \' 0.06\', \' 0.53\'), .Dim = c(4L, 9L), .Dimnames = list(c(\'Chile\', \'United States\', \'Zambia\', \'Libya\'), c(\'dfb.1_\', \'dfb.pp15\', \'dfb.pp75\', \'dfb.dpi\', \'dfb.ddpi\', \'dffit\', \'cov.r\', \'cook.d\', \'hat\'))), c(\'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'_*\', \'\', \'\', \'\', \'_*\', \'_*\', \'_*\', \'_*\', \'_*\', \'\', \'\', \'\', \'\', \'\', \'_*\', \'\', \'_*\')), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testpaste03() {
+ assertEval("argv <- list(list(c(\'\\\'1\\\'\', \'\\\'2\\\'\', NA)), \',\'); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpaste04() {
+ assertEval("argv <- list(list(\' ‘help.search()’ or ‘\', \'??\'), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testpaste05() {
+ assertEval("argv <- list(list(structure(c(\'coef.aov\', \'extractAIC.aov\', \'model.tables.aov\', \'print.aov\', \'proj.aov\', \'se.contrast.aov\', \'summary.aov\', \'TukeyHSD.aov\'), class = \'MethodsFunction\', info = structure(list(visible = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE), from = structure(c(9L, 9L, 9L, 9L, 9L, 9L, 7L, 7L), .Label = c(\'CheckExEnv\', \'package:base\', \'package:datasets\', \'package:graphics\', \'package:grDevices\', \'package:methods\', \'package:stats\', \'package:utils\', \'registered S3method\'), class = \'factor\')), .Names = c(\'visible\', \'from\'), row.names = c(\'coef.aov\', \'extractAIC.aov\', \'model.tables.aov\', \'print.aov\', \'proj.aov\', \'se.contrast.aov\', \'summary.aov\', \'TukeyHSD.aov\'), class = \'data.frame\')), c(\'*\', \'*\', \'*\', \'*\', \'*\', \'*\', \'\', \'\')), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testpaste06() {
+ assertEval("argv <- list(list(character(0), character(0)), \'\\n\'); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testpaste07() {
+ assertEval("argv <- list(list(), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testpaste010() {
+ assertEval("argv <- list(list(structure(c(\'-0.16\', \'-0.03\', \' 0.11\', \'-0.19\', \' 0.12\', \' 0.00\', \'-0.03\', \' 0.18\', \' 0.01\', \'-0.03\', \'-0.11\', \'-0.11\', \' 0.00\', \' 0.09\', \'-0.15\', \' 0.05\', \'-0.04\', \' 0.00\', \' 0.04\', \' 0.00\', \' 0.01\', \' 0.04\', \' 0.11\', \' 0.11\', \'-0.10\', \'-0.01\', \' 0.04\', \' 0.34\', \'-0.30\', \' 0.00\', \'-0.02\', \'-0.31\', \'-0.04\', \'-0.01\', \'-0.05\', \'-0.05\', \'-0.07\', \'-0.03\', \' 0.02\', \' 0.21\', \'-0.17\', \' 0.00\', \'-0.03\', \'-0.17\', \'-0.03\', \'-0.04\', \' 0.28\', \'-0.45\', \'-0.24\', \' 0.00\', \' 0.02\', \' 0.25\', \'-0.28\', \' 0.00\', \'-0.01\', \'-0.24\', \'-0.04\', \'-0.04\', \'-0.06\', \'-0.06\', \'-0.44\', \'-0.01\', \' 0.02\', \' 0.18\', \'-0.26\', \' 0.00\', \' 0.00\', \'-0.19\', \'-0.03\', \'-0.03\', \'-0.04\', \'-0.04\', \' 0.01\', \'-0.03\', \' 0.04\', \' 0.18\', \'-0.11\', \' 0.00\', \'-0.02\', \'-0.15\', \'-0.02\', \'-0.02\', \'-0.06\', \'-0.06\', \' 0.12\', \' 0.08\', \' 0.07\', \'-0.01\', \'-0.03\', \' 0.00\', \'-0.01\', \' 0.00\', \' 0.00\', \' 0.04\', \'-0.01\', \'-0.01\', \' 0.00\', \' 0.01\', \' 0.08\', \'-0.01\', \' 0.01\', \' 0.00\', \'-0.02\', \' 0.01\', \' 0.00\', \' 0.03\', \'-0.07\', \'-0.07\', \' 0.21\', \' 0.00\', \'-0.08\', \' 0.04\', \'-0.42\', \' 0.00\', \' 0.01\', \' 0.01\', \' 0.00\', \' 0.02\', \' 0.05\', \' 0.05\', \' 0.06\', \'-0.04\', \'-0.09\', \' 0.01\', \' 0.01\', \' 0.00\', \' 0.01\', \'-0.02\', \' 0.00\', \' 0.03\', \' 0.04\', \' 0.04\', \'-0.04\', \'-0.01\', \' 0.16\', \'-0.06\', \'-0.03\', \' 0.00\', \' 0.02\', \'-0.07\', \' 0.00\', \' 0.06\', \' 0.08\', \' 0.08\', \' 0.47\', \'-0.15\', \' 0.06\', \' 0.01\', \' 0.18\', \' 0.00\', \'-0.03\', \' 0.01\', \' 0.00\', \'-0.02\', \'-0.06\', \'-0.06\', \'-0.04\', \' 0.01\', \' 0.09\', \'-0.08\', \'-0.10\', \' 0.00\', \' 0.05\', \'-0.18\', \' 0.01\', \'-0.03\', \' 0.12\', \' 0.12\', \' 0.03\', \' 0.02\', \' 0.12\', \'-0.08\', \'-0.11\', \' 0.00\', \' 0.03\', \'-0.14\', \' 0.01\', \'-0.02\', \' 0.10\', \' 0.10\', \' 0.73\', \'-0.24\', \'-0.26\', \'-0.44\', \'-0.89\', \' NaN\', \' 0.08\', \' 0.45\', \' 0.05\', \' 0.14\', \' 0.64\', \'-0.64\', \' 1.71\', \' 2.09\', \' 1.86\', \' 1.76\', \' 0.13\', \' NaN\', \' 1.63\', \' 1.92\', \' 1.88\', \' 1.60\', \' 2.68\', \' 2.68\', \' 0.04\', \' 0.00\', \' 0.00\', \' 0.01\', \' 0.05\', \' NaN\', \' 0.00\', \' 0.01\', \' 0.00\', \' 0.00\', \' 0.03\', \' 0.03\', \' 0.39\', \' 0.43\', \' 0.36\', \' 0.36\', \' 0.06\', \' 1.00\', \' 0.26\', \' 0.40\', \' 0.36\', \' 0.25\', \' 0.57\', \' 0.57\'), .Dim = c(12L, 19L), .Dimnames = list(c(\'8\', \'19\', \'28\', \'39\', \'42\', \'57\', \'66\', \'80\', \'83\', \'87\', \'89\', \'93\'), c(\'dfb.1_\', \'dfb.Wght\', \'dfb.Cyl4\', \'dfb.Cyl5\', \'dfb.Cyl6\', \'dfb.Cyl8\', \'dfb.Cyln\', \'dfb.TypL\', \'dfb.TypM\', \'dfb.TypSm\', \'dfb.TypSp\', \'dfb.TypV\', \'dfb.EngS\', \'dfb.DrTF\', \'dfb.DrTR\', \'dffit\', \'cov.r\', \'cook.d\', \'hat\'))), c(\'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'_*\', \'_*\', \'_*\', \'_*\', \'_*\', \'\', \'_*\', \'_*\', \'_*\', \'_*\', \'_*\', \'_*\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'_*\', \'\', \'\', \'\', \'\', \'_*\', \'_*\')), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpaste011() {
+ assertEval("argv <- list(list(character(0), character(0), character(0)), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpaste012() {
+ assertEval("argv <- list(list(c(\'Package:\', \'Type:\', \'Version:\', \'Date:\', \'License:\', \'Depends:\'), \' \\\\tab \', structure(c(\'myTst2\', \'Package\', \'1.0\', \'2014-03-17\', \'What license is it under?\', \'methods\'), .Names = c(\'Package\', \'Type\', \'Version\', \'Date\', \'License\', \'Depends\')), \'\\\\cr\'), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testpaste013() {
+ assertEval("argv <- list(list(character(0), \'$y\'), NULL); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpaste014() {
+ assertEval("argv <- list(list(c(\'text> \', \'text> \', \'text> \', \'text+ \'), c(\'## The following two examples use latin1 characters: these may not\', \'## appear correctly (or be omitted entirely).\', \'plot(1:10, 1:10, main = \\\'text(...) examples\\\\n~~~~~~~~~~~~~~\\\',\', \' sub = \\\'R is GNU ©, but not ® ...\\\')\')), \'\\n\'); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testpaste015() {
+ assertEval("argv <- list(list(\'cnstrO> \', \'constrOptim(c(2,-1,-1), fQP, gQP, ui = t(Amat), ci = bvec)\'), \'\\n\'); .Internal(paste0(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpathexpand.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpathexpand.java
new file mode 100644
index 0000000000000000000000000000000000000000..f51519f9611dce364f3b785cef863caf3c1fe555
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpathexpand.java
@@ -0,0 +1,33 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinpathexpand extends TestBase {
+
+ @Test
+ public void testpathexpand1() {
+ assertEval("argv <- list(\'/tmp/RtmptPgrXI/Pkgs/pkgA\'); .Internal(path.expand(argv[[1]]))");
+ }
+
+ @Test
+ public void testpathexpand2() {
+ assertEval("argv <- list(c(\'/home/lzhao/hg/r-instrumented/tests/compiler.Rcheck\', \'/home/lzhao/R/x86_64-unknown-linux-gnu-library/3.0\')); .Internal(path.expand(argv[[1]]))");
+ }
+
+ @Test
+ public void testpathexpand3() {
+ assertEval("argv <- list(character(0)); .Internal(path.expand(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpmatch.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpmatch.java
new file mode 100644
index 0000000000000000000000000000000000000000..c82376dc9e326b60113e6dbd16521a73181e7b59
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpmatch.java
@@ -0,0 +1,58 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinpmatch extends TestBase {
+
+ @Test
+ public void testpmatch1() {
+ assertEval("argv <- list(\'kendall\', c(\'pearson\', \'kendall\', \'spearman\'), 0L, TRUE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testpmatch2() {
+ assertEval("argv <- list(\'month\', c(\'secs\', \'mins\', \'hours\', \'days\', \'weeks\', \'months\', \'years\', \'DSTdays\'), NA_integer_, FALSE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testpmatch3() {
+ assertEval("argv <- list(c(NA_character_, NA_character_, NA_character_, NA_character_), \'NA\', NA_integer_, TRUE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testpmatch4() {
+ assertEval("argv <- list(\'maximum\', \'euclidian\', NA_integer_, FALSE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testpmatch5() {
+ assertEval("argv <- list(\'fanny.object.\', \'fanny.object\', 0L, FALSE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testpmatch6() {
+ assertEval("argv <- list(c(\'alpha\', \'col\', \'border\', \'lty\', \'lwd\'), c(\'col\', \'border\', \'alpha\', \'size\', \'height\', \'angle\', \'density\'), NA_integer_, TRUE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testpmatch7() {
+ assertEval("argv <- list(\'unique.\', \'unique.array\', 0L, FALSE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testpmatch8() {
+ assertEval("argv <- list(character(0), c(\'labels\', \'col\', \'alpha\', \'adj\', \'cex\', \'lineheight\', \'font\'), NA_integer_, TRUE); .Internal(pmatch(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpmax.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpmax.java
new file mode 100644
index 0000000000000000000000000000000000000000..7f669d7952954981f01f51fbb6757b092db312e2
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpmax.java
@@ -0,0 +1,102 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinpmax extends TestBase {
+
+ @Test
+ @Ignore
+ public void testpmax1() {
+ assertEval("argv <- list(FALSE, 5L, 12); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmax2() {
+ assertEval("argv <- list(FALSE, -100, structure(c(-Inf, 82.9775012103133, 8.55983483385341e+101, -Inf, 79.3831968838961, 8.55983483385341e+101), .Names = c(\'\', \'\', \'\', \'\', \'\', \'\'))); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmax3() {
+ assertEval("argv <- list(FALSE, c(0L, 1L, 1L, 1L, 2L), 5L, c(6L, 5L, 5L, 5L, 4L)); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmax4() {
+ assertEval("argv <- list(FALSE, 0, numeric(0)); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmax5() {
+ assertEval("argv <- list(FALSE, structure(c(63.5607991023966, 46.8465846258113, 40.7088275958184, 31.3395189414991, 42.5666751143734, 47.0610532806931, 23.9315410227325, 43.0690616089581, 66.7869292908986, 49.2243580808943, 31.6784834018036, 24.3875466143556, 48.4619434336134, 53.5787701502931, 25.0466211495357, 45.0758464889871, 66.9256619232735, 49.3266089980428, 31.7843035976521, 24.4690118450696, 50.7406402769298, 56.0980619029545, 17.201254072711, 30.956714016252), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\')), 2.22044604925031e-16); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmax6() {
+ assertEval("argv <- list(FALSE, FALSE, FALSE); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmax7() {
+ assertEval("argv <- list(FALSE, 1L, c(15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 15L)); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmax8() {
+ assertEval("argv <- list(FALSE, structure(c(0.0193057433072215, 0.00434780301273374, 0.0549750394687487, 0.510714717273168, 0.0482077179041234, 0.349752997299534, 0.15114556457294, 0.614610341225044, 0.270367074042314, 0.376738504472563, 0.00100006670765362, 0.616978737736246, 0.000115089535300671, 0.114479803728228, 0.0345012755277619, 0.520238904129887, 0.0177036726480846, 0.00345369763623826, 0.0372744005491215, 0.245210198359521, 0.0651842100459408, 0.4506670448926, 0.178923774229777, 0.332256206500317, 0.402299202627705, 0.380395198873703, 0.000984316947253816, 0.403063829062269, 0.000174431720286923, 0.138958543973059, 0.0379750520636422, 0.379247258699123), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\')), 0); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmax9() {
+ assertEval("argv <- list(FALSE, structure(c(35.2592591597479, 59.4999999843455, 12.4507044164935, 2.53543312099158, 10.3703703404756, 42.0000005728299, 8.14084538858294, 34.04724471918, 7.77778142338517, 26.9999999889474, 6.70422536805755, 3.62204828940961, 2.59259259558406, 14.4999999939529, 6.70422536805755, 5.79527724426002, 32.7407408614199, 59.5000000376209, 13.54929592464, 4.46456690511876, 9.62962966454155, 42.0000006104361, 8.85915523787816, 59.9527554977598, 7.22222565443263, 27.0000000131229, 7.29577463400041, 6.37795443616981, 2.40740742585304, 14.500000006936, 7.29577463400041, 10.2047270647755), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\')), 2.22044604925031e-16); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmax10() {
+ assertEval("argv <- list(FALSE, c(1.05, 1.92, 0.36, 4.98, 4.56, 0.69, -5.97, 1.26, 5.58, -0.06, -4.92, -1.38, -0.3, 3.75, 1.11, 0.93, 3.33, 4.95, 0.99, 2.67, -0.75, -2.61, -0.66, 2.13, -6.78, 2.31, -0.15, 0.96, -1.92, 1.17, 0.57, -4.86, 1.11, 0.06, 2.91, -7.86, 0.45, 4.65, -4.23, -7.05, -1.29, 1.71, -1.98, -0.24, 0.06, 0.72, -0.99, -0.09, -3.39, 0.96, 4.65, 6.39, -0.3, -0.96, -2.01, 4.32, 0.12, -3.3, -2.85, -0.57, -2.04, -1.29, -2.52, 2.07, -1.95, 2.13, 0.57, 1.35, 1.35, -3.57, 3.9, 0.42, -1.08, -1.5, -1.41, -3.93, -3.06, 3.51, 4.53, -0.99, -0.03, -1.77, -0.84, -0.54, -3.21, 1.98, -2.13, 5.64, -0.42, -0.57, 2.52, 1.32, 3.99, -0.6, -1.35, 4.38, 3, -3.06, 2.04, 2.52), 0); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmax11() {
+ assertEval("argv <- list(FALSE, c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L), 7L, c(7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 6L)); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmax12() {
+ assertEval("argv <- list(FALSE, 1:7, structure(c(2, 3, 4, 2, 2, 2), .Dim = c(3L, 2L), .Dimnames = list(NULL, c(\'a\', \'\')))); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmax13() {
+ assertEval("argv <- list(FALSE, c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE)); .Internal(pmax(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmax14() {
+ assertEval("argv <- list(FALSE, structure(c(0, 0, -0.0906283137921162, -0.0801994352402973, -0.0235093686536505, -0.131187875867331, -0.131187875867331, -0.131187875867331, -0.131187875867331, 0, 0, 0, -0.106539777104723, -0.106539777104723, -0.106539777104723, 0, 0, 0.126786975893341, 0.126786975893341, 0.126786975893341, 0, -0.131187875867331, -0.131187875867331, -0.131187875867331, 0, -0.106539777104723, -0.106539777104723, -0.106539777104723, 0, 0, 0, -0.106539777104723, 0.172297822926899, 0.172297822926899, 0, 0, 0, 0, 0, -0.106539777104723, -0.106539777104723, -0.106539777104723, -0.106539777104723, 0, 0, 0, 0.172297822926899, 0.172297822926899), .Dim = c(12L, 4L)), 0); .Internal(pmax(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpmin.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpmin.java
new file mode 100644
index 0000000000000000000000000000000000000000..32202d8dab818cef0fa243410b24da16f61f9605
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpmin.java
@@ -0,0 +1,84 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinpmin extends TestBase {
+
+ @Test
+ @Ignore
+ public void testpmin1() {
+ assertEval("argv <- list(FALSE, c(0, 0.25, 0.5, 0.75, 1), 1); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmin2() {
+ assertEval("argv <- list(FALSE, c(1.01547865839261, 1.01252937204691, 1.00644625408792, 0.998699246049516, 0.989861830865133, 0.980229984263028, 0.969980509594864, 0.959229159804225, 0.948056660278026, 0.948056660278026, 0.936413637553504, 0.924430242566905, 0.924430242566905, 0.912012661079992, 0.912012661079992, 0.912012661079992, 0.912012661079992, 0.912012661079992, 0.912012661079992, 0.89856564301575, 0.89856564301575, 0.89856564301575, 0.89856564301575, 0.884221004526004, 0.884221004526004, 0.884221004526004, 0.884221004526004, 0.868846889674391, 0.852918138766346, 0.852918138766346, 0.852918138766346, 0.836013989965276, 0.836013989965276, 0.818281118997659, 0.818281118997659, 0.799674858806929, 0.78048190648179, 0.760752205123712, 0.740524405390135, 0.698688252548957, 0.677121358432204, 0.677121358432204, 0.677121358432204, 0.653968759838845, 0.630226345284056, 0.60591293760604, 0.5810405538867, 0.5810405538867, 0.554772713636871, 0.554772713636871, 0.526885054753327, 0.526885054753327, 0.497124929362659, 0.497124929362659, 0.465290373327728, 0.431410832191818, 0.395597572090297, 0.358012869967492, 0.358012869967492, 0.358012869967492, 0.390645999939295, 0.390645999939295, 1.00856963764107, 1.00691545377429, 1.00354783420184, 0.994430782349702, 0.989161076962549, 0.983568844113983, 0.971651869906627, 0.965403818059832, 0.958998025317496, 0.952453588123512, 0.945785731840592, 0.939006829762577, 0.932127100227826, 0.925155098145928, 0.918098070593368, 0.910962219832367, 0.903752901643838, 0.896474777439562, 0.889131932689408, 0.874266085562073, 0.866749125736792, 0.85917963981466, 0.85917963981466, 0.85917963981466, 0.851432533571458, 0.851432533571458, 0.835646571743332, 0.819657377450186, 0.811591248493136, 0.811591248493136, 0.803403072648503, 0.803403072648503, 0.803403072648503, 0.79500789222886, 0.79500789222886, 0.78647848620035, 0.777810139927498, 0.777810139927498, 0.768997769554365, 0.760132009504045, 0.751214427604144, 0.751214427604144, 0.751214427604144, 0.742042333451995, 0.742042333451995, 0.732706928458195, 0.723314130803801, 0.713865427684027, 0.713865427684027, 0.704242881823747, 0.704242881823747, 0.694438026993695, 0.684573363315093, 0.674650164742493, 0.664669564073024, 0.664669564073024, 0.664669564073024, 0.654342845821626, 0.643951412016272, 0.633496370097346, 0.633496370097346, 0.622814395282618, 0.622814395282618, 0.611712238653597, 0.600530813249145, 0.589271296091113, 0.577934661160654, 0.577934661160654, 0.554603983179207, 0.542813560886543, 0.530698712197854, 0.530698712197854, 0.518231810914377, 0.518231810914377, 0.518231810914377, 0.505091485230836, 0.491816896403255, 0.478408881208852, 0.464867758182769, 0.464867758182769, 0.450831087639633, 0.43663736059032, 0.422285766886131, 0.422285766886131, 0.407334269006221, 0.392187384239101, 0.376842383287708, 0.376842383287708, 0.36074886771613, 0.344393472477708, 0.327769800745284, 0.310869313273075, 0.293681131444043, 0.27619182464681, 0.258385252532011, 0.240242648154923, 0.221743435532848, 0.202868148187672, 0.183607543425597, 0.183607543425597, 0.16434288099768, 0.16434288099768, 0.16434288099768, 0.16434288099768, 1.01958384078021, 1.0158820929578, 1.00818641731953, 0.998355892450852, 0.98711678103063, 0.974844224342501, 0.961762390694789, 0.94801800556359, 0.933713296997721, 0.918922795982771, 0.918922795982771, 0.903505632185222, 0.887664218536847, 0.8714385967694, 0.854601072478364, 0.837400228461143, 0.81986117753083, 0.80200434269104, 0.783846415628184, 0.765401054645917, 0.746679400612251, 0.727690462294359, 0.70844140545579, 0.688937769124757, 0.669183625153216, 0.649181692191925, 0.628933411668998, 0.608438990755048, 0.608438990755048, 0.587078835123946, 0.565417411428399, 0.543452081149807, 0.521178337588507, 0.498589701519445, 0.475677565090786, 0.475677565090786, 0.451501204504207, 0.426861888982249, 0.401742325799741, 0.376120821121693, 0.349971441565183, 0.323265236972233, 0.323265236972233, 0.294966951140867, 0.265661696527275, 0.265661696527275, 0.24198035833067, 0.229359831745471, NA, NA), 1); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmin3() {
+ assertEval("argv <- list(FALSE, c(19.7787405591752, 12504507.4953993, 12504507.4953993, 5.96190157728191e+41), 1); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmin4() {
+ assertEval("argv <- list(FALSE, structure(c(2, 3, 4, 2, 2, 2), .Dim = c(3L, 2L), .Dimnames = list(NULL, c(\'a\', \'\'))), 1:7); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmin5() {
+ assertEval("argv <- list(FALSE, structure(c(-2.30560410637911, -1.56788329848973, -0.885216282233891, -0.246592299284877, 0.350190802022645, 0.913941628350052, 1.44466017969734, 1.94895291106052), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\')), 700); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmin6() {
+ assertEval("argv <- list(FALSE, 1, structure(numeric(0), .Dim = c(4L, 0L))); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmin7() {
+ assertEval("argv <- list(FALSE, FALSE, FALSE); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmin8() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(pmin(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmin9() {
+ assertEval("argv <- list(FALSE, 48L, 19L); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmin10() {
+ assertEval("argv <- list(FALSE, 1, 0.341867139159); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpmin11() {
+ assertEval("argv <- list(FALSE, c(2.35405350797934e-06, 0.000210159024072429, 0.000257684187404011, 0.000981478332360736, 0.00105260958830543, 0.00124148072892802, 0.00132598801923585, 0.00156850331255678, 0.00225455732762676, 0.003795380309271, 0.00611494315340942, 0.0161395372907077, 0.0330242962313738, 0.0353834177611007, 0.0523699658057458, 0.068319089314331, 0.0705922565893261, 0.0880512860101142, 0.0940103983967277, 0.112979808322889, 0.211501681388388, 0.492273640304204, 0.605329775053071, 0.626223946736039, 0.739515289321684, 0.828110328240387, 0.86333312789587, 1.19065433061771, 1.89079625396729, 2.05849377808347, 2.20921371984431, 2.85600042559897, 3.04889487308354, 4.66068200259841, 4.83080935233713, 4.92175460488491, 5.31945286062773, 5.75155046407955, 5.78319462345744), 0.943789021783783); .Internal(pmin(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpolyroot.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpolyroot.java
new file mode 100644
index 0000000000000000000000000000000000000000..5110330bf9609ccd5037ecb0cfaa494fe09f3e31
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpolyroot.java
@@ -0,0 +1,54 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinpolyroot extends TestBase {
+
+ @Test
+ @Ignore
+ public void testpolyroot1() {
+ assertEval("argv <- list(1:2); .Internal(polyroot(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpolyroot2() {
+ assertEval("argv <- list(FALSE); .Internal(polyroot(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpolyroot3() {
+ assertEval("argv <- list(structure(c(1, 0.035205614861993, 0.237828814667385), .Names = c(\'\', \'\', \'\'))); .Internal(polyroot(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpolyroot4() {
+ assertEval("argv <- list(c(1, -1.16348488318732, 0.667550726251972, -0.342308178637008)); .Internal(polyroot(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpolyroot5() {
+ assertEval("argv <- list(c(1, 0.0853462951557329, -0.433003162033324, 0.141816558560935, -0.268523717394886, -0.0970671649038473)); .Internal(polyroot(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpolyroot6() {
+ assertEval("argv <- list(c(1, 8, 28, 56, 70, 56, 28, 8, 1)); .Internal(polyroot(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpretty.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpretty.java
new file mode 100644
index 0000000000000000000000000000000000000000..907e7a442425549e71d8ff62b570cfc4acba1495
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpretty.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinpretty extends TestBase {
+
+ @Test
+ @Ignore
+ public void testpretty1() {
+ assertEval("argv <- list(0L, 3L, 5, 1, 0.75, c(1.5, 2.75), 0); .Internal(pretty(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpretty2() {
+ assertEval("argv <- list(-0.03, 1.11, 5, 1, 0.75, c(1.5, 2.75), 0); .Internal(pretty(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpretty3() {
+ assertEval("argv <- list(-6.64448090063514e-06, 6.64454021993011e-06, 1, 0, 0.75, c(1.5, 2.75), 0); .Internal(pretty(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpretty4() {
+ assertEval("argv <- list(1.234e+100, 1.234e+100, 5, 1, 0.75, c(1.5, 2.75), 0); .Internal(pretty(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprimUntrace.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprimUntrace.java
new file mode 100644
index 0000000000000000000000000000000000000000..e00203186dcf99cc67b05aec2c0c15dcfce3eebb
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprimUntrace.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinprimUntrace extends TestBase {
+
+ @Test
+ @Ignore
+ public void testprimUntrace1() {
+ assertEval("argv <- list(.Primitive(\'sum\'));.primUntrace(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprintDeferredWarnings.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprintDeferredWarnings.java
new file mode 100644
index 0000000000000000000000000000000000000000..bcac6efcd25ce06b1bdddf8416ff1e357fd33d20
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprintDeferredWarnings.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinprintDeferredWarnings extends TestBase {
+
+ @Test
+ @Ignore
+ public void testprintDeferredWarnings1() {
+ assertEval(" .Internal(printDeferredWarnings())");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprintdefault.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprintdefault.java
new file mode 100644
index 0000000000000000000000000000000000000000..61db52fc30a1a97fc000bf0a8b453f9fd4e5bdf3
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprintdefault.java
@@ -0,0 +1,204 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinprintdefault extends TestBase {
+
+ @Test
+ @Ignore
+ public void testprintdefault1() {
+ assertEval("argv <- list(structure(c(\'-3.001e+155\', \'-1.067e+107\', \' -1.976e+62\', \'-9.961e+152\', \' -2.059e+23\', \' 1.000e+00\'), .Names = c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\')), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault2() {
+ assertEval("argv <- list(structure(c(\' 1\', \'NA\', \' 1\', \'1.1\', \' NA\', \'2.0\', \'1.1+0i\', \' NA\', \'3.0+0i\', \'NA\', \'NA\', \'NA\', \'FALSE\', \' NA\', \' TRUE\', \'abc\', NA, \'def\'), .Dim = c(3L, 6L), .Dimnames = list(c(\'1\', \'2\', \'3\'), c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\'))), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault3() {
+ assertEval("argv <- list(structure(c(\'1\', \'2\', \'\\\\b\', \'4\', \'5\', \'\\\\040\', \'\\\\x20\', \'c:\\\\spencer\\\\tests\', \'\\\\t\', \'\\\\n\', \'\\\\r\'), .Dim = c(11L, 1L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\'), \'TEST\')), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault4() {
+ assertEval("argv <- list(quote(~a + b:c + d + e + e:d), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault5() {
+ assertEval("argv <- list(structure(c(-1.05715, -0.48359, 0.0799, 0.44239, 1.2699), .Names = c(\'Min\', \'1Q\', \'Median\', \'3Q\', \'Max\')), 4L, TRUE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault6() {
+ assertEval("argv <- list(quote(y ~ A:U + A:V - 1), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault7() {
+ assertEval("argv <- list(structure(c(NA, NA, NA, \'a\', NA, NA, \'b\', \'d\', NA, \'10\', \'12\', \'14\'), .Dim = 3:4), NULL, TRUE, \'----\', NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault8() {
+ assertEval("argv <- list(c(\'Alb\', \'Als\', \'Arz\', \'Ark\', \'Clf\', \'Clr\', \'Cn\', \'Dl\', \'Fl\', \'Gr\', \'Hw\', \'Id\', \'Il\', \'In\', \'Iw\', \'Kns\', \'Knt\', \'Ls\', \'Man\', \'Mr\', \'Mssc\', \'Mc\', \'Mnn\', \'Msss\', \'Mssr\', \'Mnt\', \'Nb\', \'Nv\', \'NH\', \'NJ\', \'NM\', \'NY\', \'NC\', \'ND\', \'Oh\', \'Ok\', \'Or\', \'Pn\', \'RI\', \'SC\', \'SD\', \'Tn\', \'Tx\', \'Ut\', \'Vrm\', \'Vrg\', \'Wsh\', \'WV\', \'Wsc\', \'Wy\'), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault9() {
+ assertEval("argv <- list(structure(c(\'abc\', \'def\\\'gh\'), .Dim = 1:2, .Dimnames = list(\'1\', c(\'a\', \'b\'))), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault10() {
+ assertEval("argv <- list(structure(c(245L, 250L, 255L, 260L, 265L, 270L, 275L, 280L, 285L, 290L, 295L, 300L, 305L, 310L, 315L, 320L, 325L, 330L, 335L, 340L, 345L, 350L, 355L, 360L), .Dim = 2:4, .Dimnames = list(NULL, c(\'a\', \'b\', \'c\'), NULL)), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault11() {
+ assertEval("argv <- list(Inf, NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault12() {
+ assertEval("argv <- list(structure(c(\' 79.53\', \' 6.00\', \' 86.20\', \' 6.00\', \' 69.77\', \' 5.00\', \' 98.03\', \' 6.00\', \'108.03\', \' 6.00\', \' 89.20\', \' 6.00\', \'114.20\', \' 6.00\', \'116.70\', \' 6.00\', \'110.37\', \' 6.00\', \'124.37\', \' 6.00\', \'126.37\', \' 6.00\', \'118.03\', \' 6.00\'), .Dim = c(6L, 4L), .Dimnames = structure(list(V = c(\'Golden.rain\', \'rep \', \'Marvellous \', \'rep \', \'Victory \', \'rep \'), N = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\')), .Names = c(\'V\', \'N\'))), NULL, FALSE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault13() {
+ assertEval("argv <- list(\'2014-03-17 13:47:59 EDT\', NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault14() {
+ assertEval("argv <- list(structure(1:120, .Dim = 2:5, .Dimnames = list(NULL, c(\'a\', \'b\', \'c\'), NULL, c(\'V5\', \'V6\', \'V7\', \'V8\', \'V9\'))), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault15() {
+ assertEval("argv <- list(structure(c(\'1\', \'2\', \'1\'), .Dim = 3L, .Dimnames = structure(list(c(\'1\', \'2\', NA)), .Names = \'\')), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault17() {
+ assertEval("argv <- list(NULL, NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault18() {
+ assertEval("argv <- list(quote(breaks ~ (wool + tension) - tension), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault19() {
+ assertEval("argv <- list(c(\'2007-11-06\', \'2007-11-06\'), NULL, TRUE, NULL, NULL, FALSE, 99999L, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault20() {
+ assertEval("argv <- list(structure(c(NA, NA, 1L, 9L), .Names = c(\'size\', \'current\', \'direction\', \'eval_depth\')), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault21() {
+ assertEval("argv <- list(character(0), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault22() {
+ assertEval("argv <- list(structure(\'0.01587\', .Names = \'(Intercept)\'), NULL, FALSE, NULL, 2, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault23() {
+ assertEval("argv <- list(quote(Y ~ X), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault24() {
+ assertEval("argv <- list(c(0.944550219923258, 0.336629745550454, 0.629688071087003, 0.591416056267917), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault25() {
+ assertEval("argv <- list(c(\'surname\', \'nationality\', \'deceased\', \'title\', \'other.author\'), NULL, FALSE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault26() {
+ assertEval("argv <- list(structure(c(\'-0.91\', \' 0.81\', \'\', \'-0.97\'), .Dim = c(2L, 2L), .Dimnames = list(c(\'x1\', \'x3\'), c(\'(Intercept)\', \'x1\'))), NULL, FALSE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault27() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault28() {
+ assertEval("argv <- list(c(1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L), NULL, FALSE, NULL, NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault29() {
+ assertEval("argv <- list(structure(c(\'\', \' 1\', \' 1\', \' 1\', \'\', \' 9.93\', \' 26.79\', \'820.91\', \' 47.97\', \' 57.90\', \' 74.76\', \'868.88\', \'24.974\', \'25.420\', \'28.742\', \'60.629\'), .Dim = c(4L, 4L), .Dimnames = list(c(\'<none>\', \'- x4\', \'- x2\', \'- x1\'), c(\'Df\', \'Sum of Sq\', \'RSS\', \'AIC\'))), NULL, FALSE, \'\', NULL, TRUE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault30() {
+ assertEval("argv <- list(structure(c(78.7365206866197, 17, 98.5088731171753, 18, 113.842206450509, 18, 123.008873117175, 18), .Dim = c(2L, 4L), .Dimnames = list(c(\'\', \'rep\'), c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\'))), 4L, TRUE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault31() {
+ assertEval("argv <- list(structure(1:3, class = \'myClass\'), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, FALSE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintdefault32() {
+ assertEval("argv <- list(structure(c(495L, 515L, 535L, 555L, 575L, 595L, 615L, 635L, 655L, 675L, 695L, 715L), .Dim = 3:4, .Dimnames = list(c(\'a\', \'b\', \'c\'), NULL)), NULL, TRUE, NULL, NULL, FALSE, NULL, TRUE, TRUE); .Internal(print.default(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]], argv[[8]], argv[[9]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprintfunction.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprintfunction.java
new file mode 100644
index 0000000000000000000000000000000000000000..626714f3c2b158b2ded3ff6439b3ea46ea58102f
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprintfunction.java
@@ -0,0 +1,48 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinprintfunction extends TestBase {
+
+ @Test
+ @Ignore
+ public void testprintfunction1() {
+ assertEval("argv <- list(.Primitive(\'+\'), TRUE); .Internal(print.function(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintfunction2() {
+ assertEval("argv <- list(.Primitive(\'if\'), TRUE); .Internal(print.function(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintfunction3() {
+ assertEval("argv <- list(.Primitive(\'c\'), TRUE); .Internal(print.function(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintfunction4() {
+ assertEval("argv <- list(.Primitive(\'.Internal\'), TRUE); .Internal(print.function(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprintfunction5() {
+ assertEval("argv <- list(.Primitive(\'log\'), TRUE); .Internal(print.function(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprmatrix.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprmatrix.java
new file mode 100644
index 0000000000000000000000000000000000000000..fd2f8c8aac537b8f0380d81f40df06a7c055dea0
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprmatrix.java
@@ -0,0 +1,66 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinprmatrix extends TestBase {
+
+ @Test
+ @Ignore
+ public void testprmatrix1() {
+ assertEval("argv <- list(structure(c(1, 6, 9, 6, 4, 1, 1, 2, 1, 0.305397625390859, 0.00170825768891124, 8.51556634078892e-12, 0.64987756971621, 0.0197968749793939, 5.28672163823767e-10, 0.00471555351643001, 2.33367394341443e-13, 1.21630438148624e-64, 1, 1, 1), .Dim = c(3L, 7L), .Dimnames = list(NULL, c(\'time\', \'n.risk\', \'n.event\', \'survival\', \'std.err\', \'lower 95% CI\', \'upper 95% CI\'))), c(\'\', \'\', \'\'), c(\'time\', \'n.risk\', \'n.event\', \'survival\', \'std.err\', \'lower 95% CI\', \'upper 95% CI\'), TRUE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprmatrix2() {
+ assertEval("argv <- list(structure(FALSE, .Dim = c(1L, 1L)), NULL, NULL, TRUE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprmatrix3() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 8, 11, 12, 15, 17, 22, 23, 21, 19, 17, 16, 14, 12, 8, 6, 4, 3, 2, 1, 2, 2, 1, 2, 2, 4, 2, 2, 1, 1, 1, 1, 0.904761904761905, 0.80952380952381, 0.761904761904762, 0.666666666666667, 0.571428571428571, 0.380952380952381, 0.285714285714286, 0.19047619047619, 0.142857142857143, 0.0952380952380952, 0.0476190476190476, 0, 0.0640564484890047, 0.0856890867468988, 0.0929428640903365, 0.102868899974728, 0.107989849431208, 0.105971169574131, 0.0985807941917649, 0.0856890867468988, 0.0763603548321212, 0.0640564484890047, 0.0464714320451682, NaN, 0.670045882235034, 0.568905059924173, 0.519391415328429, 0.425350435565247, 0.337976953859493, 0.183066548820394, 0.116561326436765, 0.0594817013611753, 0.0356573551906667, 0.016259260212247, 0.00332446304253118, NA, 0.975294149038113, 0.923888828559295, 0.893257109782487, 0.82504400879734, 0.749240709943216, 0.577788677745831, 0.481819648009025, 0.37743489058515, 0.321161574680869, 0.261249981968687, 0.197044905698946, NA), .Dim = c(12L, 7L), .Dimnames = list(NULL, c(\'time\', \'n.risk\', \'n.event\', \'survival\', \'std.err\', \'lower 95% CI\', \'upper 95% CI\'))), c(\'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\'), c(\'time\', \'n.risk\', \'n.event\', \'survival\', \'std.err\', \'lower 95% CI\', \'upper 95% CI\'), TRUE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprmatrix4() {
+ assertEval("argv <- list(structure(c(952L, 3622L, 202L, 406L), .Dim = c(2L, 2L), .Dimnames = list(c(\'subcohort\', \'cohort\'), c(\'1\', \'2\'))), c(\'subcohort\', \'cohort\'), c(\'1\', \'2\'), FALSE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprmatrix5() {
+ assertEval("argv <- list(structure(c(-1.89646294299258, 1.16675019914746, -8.10054918052941, -5.02922966334328, -0.332284173685658, -0.370285767776029, -0.422218802914528, 0.27824687717147, NA, 0.150098588668891, 3.21153879975245, 0.000303372486059531, 0.00654384959664698, 0.717283460804982, 0.690536969224971, 0.655590578569862, 1.32081223535046, NA, 1.38078223740269, 0.565646487676971, 0.698724423746393, 0.770086232143856, 0.0568682431416458, 0.116409970657657, 0.0584328435912827, 0.0510212342180821, 0, -1.37346997348395, 2.06268442316178, -11.5933390979754, -6.53073571948212, -5.84305326362929, -3.1808767383421, -7.22571035337252, 5.45355049590036, NA, 0.17, 0.039, 0, 6.5e-11, 5.1e-09, 0.0015, 5e-13, 4.9e-08, NA), .Dim = c(9L, 5L), .Dimnames = list(c(\'toccfarm\', \'toccoperatives\', \'toccprofessional\', \'toccsales\', \'tocccraftsmen:education\', \'toccfarm:education\', \'toccoperatives:education\', \'toccprofessional:education\', \'toccsales:education\'), c(\'coef\', \'exp(coef)\', \'se(coef)\', \'z\', \'p\'))), c(\'toccfarm\', \'toccoperatives\', \'toccprofessional\', \'toccsales\', \'tocccraftsmen:education\', \'toccfarm:education\', \'toccoperatives:education\', \'toccprofessional:education\', \'toccsales:education\'), c(\'coef\', \'exp(coef)\', \'se(coef)\', \'z\', \'p\'), TRUE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprmatrix6() {
+ assertEval("argv <- list(structure(c(\'splines-package\', \'as.polySpline\', \'asVector\', \'backSpline\', \'bs\', \'interpSpline\', \'ns\', \'periodicSpline\', \'polySpline\', \'predict.bs\', \'predict.bSpline\', \'predict.nbSpline\', \'predict.npolySpline\', \'predict.ns\', \'predict.pbSpline\', \'predict.ppolySpline\', \'spline.des\', \'splineDesign\', \'splineKnots\', \'splineOrder\', \'splines\', \'xyVector\', \'splines-package\', \'polySpline\', \'asVector\', \'backSpline\', \'bs\', \'interpSpline\', \'ns\', \'periodicSpline\', \'polySpline\', \'predict.bs\', \'predict.bSpline\', \'predict.bSpline\', \'predict.bSpline\', \'predict.bs\', \'predict.bSpline\', \'predict.bSpline\', \'splineDesign\', \'splineDesign\', \'splineKnots\', \'splineOrder\', \'splines-package\', \'xyVector\'), .Dim = c(22L, 2L)), NULL, c(\'Column 1\', \'Column 2\', \'Column 3\'), FALSE, TRUE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprmatrix7() {
+ assertEval("argv <- list(structure(c(\' 0.228763\', \'-0.000666\', \'\', \'0.08909\', \'0.00426\', \'\', \'0.08899\', \'0.00426\', \'\', \'6.59\', \'0.02\', \'6.02\', \'1.00\', \'1.00\', \'3.06\', \'0.01\', \'0.88\', \'0.12\'), .Dim = c(3L, 6L), .Dimnames = list(c(\'male\', \'tt(agechf), linear\', \'tt(agechf), nonlin\'), c(\'coef\', \'se(coef)\', \'se2\', \'Chisq\', \'DF\', \'p\'))), c(\'male\', \'tt(agechf), linear\', \'tt(agechf), nonlin\'), c(\'coef\', \'se(coef)\', \'se2\', \'Chisq\', \'DF\', \'p\'), FALSE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testprmatrix8() {
+ assertEval("argv <- list(structure(c(\' 0.00561\', \'-1.65487\', \'\', \'0.012\', \'0.483\', \'\', \'0.00872\', \'0.38527\', \'\', \' 0.22\', \'11.74\', \'20.33\', \' 1.0\', \' 1.0\', \'13.9\', \'0.64000\', \'0.00061\', \'0.12000\'), .Dim = c(3L, 6L), .Dimnames = list(c(\'age\', \'sex\', \'frailty(id, dist = \\\'t\\\', c\'), c(\'coef\', \'se(coef)\', \'se2\', \'Chisq\', \'DF\', \'p\'))), c(\'age\', \'sex\', \'frailty(id, dist = \\\'t\\\', c\'), c(\'coef\', \'se(coef)\', \'se2\', \'Chisq\', \'DF\', \'p\'), FALSE, FALSE, NULL); .Internal(prmatrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprod.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprod.java
new file mode 100644
index 0000000000000000000000000000000000000000..c0575e4835315dd7138ccf1702639fedadbd4e16
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprod.java
@@ -0,0 +1,79 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinprod extends TestBase {
+
+ @Test
+ public void testprod1() {
+ assertEval("argv <- list(9L);prod(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testprod2() {
+ assertEval("argv <- list(c(1000L, 1000L));prod(argv[[1]]);");
+ }
+
+ @Test
+ public void testprod3() {
+ assertEval("argv <- list(c(4, 2.5, 1.3, -1.20673076923077));prod(argv[[1]]);");
+ }
+
+ @Test
+ public void testprod4() {
+ assertEval("argv <- list(structure(c(4L, 4L, 2L), .Names = c(\'Hair\', \'Eye\', \'Sex\')));prod(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testprod5() {
+ assertEval("argv <- list(integer(0));prod(argv[[1]]);");
+ }
+
+ @Test
+ public void testprod6() {
+ assertEval("argv <- list(structure(c(2, 0, 1, 2), .Dim = c(2L, 2L), .Dimnames = list(c(\'A\', \'B\'), c(\'A\', \'B\'))));prod(argv[[1]]);");
+ }
+
+ @Test
+ public void testprod7() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L), .Dimnames = list(c(\'A\', \'B\'), c(\'A\', \'B\'))));prod(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testprod8() {
+ assertEval("argv <- list(c(0.138260298853371, 0.000636169906925458));prod(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testprod9() {
+ assertEval("argv <- list(NA_integer_);prod(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testprod10() {
+ assertEval("prod( );");
+ }
+
+ @Test
+ @Ignore
+ public void testprod11() {
+ assertEval("argv <- list(numeric(0));prod(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpsigamma.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpsigamma.java
new file mode 100644
index 0000000000000000000000000000000000000000..5b8d89aeddeb85327eeab496aa0441bce98fd8cc
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpsigamma.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinpsigamma extends TestBase {
+
+ @Test
+ @Ignore
+ public void testpsigamma1() {
+ assertEval("argv <- list(c(-100, -3, -2, -1, 0, 1, 2, -99.9, -7.7, -3, -2.9, -2.8, -2.7, -2.6, -2.5, -2.4, -2.3, -2.2, -2.1, -2, -1.9, -1.8, -1.7, -1.6, -1.5, -1.4, -1.3, -1.2, -1.1, -1, -0.9, -0.8, -0.7, -0.6, -0.5, -0.4, -0.3, -0.2, -0.0999999999999996, 0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2, 2.1, 2.2, 2.3, 2.4, 2.5, 2.6, 2.7, 2.8, 2.9, 3, 5.1, 77), 1); .Internal(psigamma(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpsigamma2() {
+ assertEval("argv <- list(c(1e+30, 1e+45, 1e+60, 1e+75, 1e+90), 2); .Internal(psigamma(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpsigamma3() {
+ assertEval("argv <- list(c(1e+20, 1e+30, 1e+40, 1e+50, 1e+60), 5); .Internal(psigamma(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpsigamma4() {
+ assertEval("argv <- list(c(-100, -3, -2, -1, 0, 1, 2, -99.9, -7.7, -3, -2.9, -2.8, -2.7, -2.6, -2.5, -2.4, -2.3, -2.2, -2.1, -2, -1.9, -1.8, -1.7, -1.6, -1.5, -1.4, -1.3, -1.2, -1.1, -1, -0.9, -0.8, -0.7, -0.6, -0.5, -0.4, -0.3, -0.2, -0.0999999999999996, 0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2, 2.1, 2.2, 2.3, 2.4, 2.5, 2.6, 2.7, 2.8, 2.9, 3, 5.1, 77), 0); .Internal(psigamma(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpsort.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpsort.java
new file mode 100644
index 0000000000000000000000000000000000000000..de4fe28a1e9809e9e0e3674d654f3f1098278e92
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpsort.java
@@ -0,0 +1,102 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinpsort extends TestBase {
+
+ @Test
+ @Ignore
+ public void testpsort1() {
+ assertEval("argv <- list(7:8, 1:2); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpsort2() {
+ assertEval("argv <- list(c(0.0499999999999972, 0.300000000000004, 1.1, 0.0500000000000007, 0, 0.25, 1, 2.15, 1.95, 2.09999999999999, 1.95, 2.04999999999999, 2.59999999999999, 2.59999999999999, 2.6, 4.25, 3.45, 2.65000000000001, 3.49999999999999, 3.75000000000001, 2.75, 3.05, 2.8, 4.45, 3.35, 7.7, 14.2), 14L); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpsort3() {
+ assertEval("argv <- list(c(4.23272528138341e-16, 5.68989300120393e-16, 0.0499999999999982, 3.05311331771918e-16, 0.049999999999999, 0.0499999999999994, 3.05311331771918e-16, 0.0499999999999994, 0.100000000000001, 0.0999999999999994, 0.0999999999999994, 0.0500000000000006, 0.15, 0.15, 0.100000000000001, 0.0499999999999997, 0.150000000000001, 0.0999999999999995, 0.0999999999999993, 0.100000000000001, 0.0999999999999994, 0.100000000000001, 0.250000000000001, 0.250000000000001, 0.299999999999999, 0.199999999999999, 0.200000000000001, 0.3, 0.25, 0.199999999999999, 0.199999999999999, 0.150000000000001, 0.200000000000001, 0.199999999999998, 0.249999999999999, 0.199999999999999, 0.3, 0.350000000000001, 0.35, 0.300000000000001, 0.3, 0.350000000000002, 0.35, 0.35, 0.300000000000001, 0.350000000000001, 0.399999999999999, 0.4, 0.349999999999999, 0.350000000000001, 0.400000000000001, 0.300000000000001, 0.400000000000001, 0.449999999999999, 0.45, 0.450000000000001, 0.45, 0.450000000000001, 1.05, 0.7, 0.6, 1, 0.500000000000001, 0.5, 0.699999999999999, 1.05, 0.850000000000001, 0.650000000000001, 0.750000000000001, 0.75, 1, 0.699999999999999, 0.749999999999999, 1.05, 0.549999999999999, 0.500000000000001, 0.7, 0.8, 0.500000000000001, 0.650000000000001, 0.700000000000001, 0.599999999999999, 0.9, 0.75, 0.949999999999999, 0.899999999999999, 0.550000000000001, 1, 1.05, 1.05, 0.600000000000001, 0.6, 1.05, 0.749999999999999, 0.949999999999999, 1.1, 2.15, 1.45, 1.3, 2.1, 4.85, 3.7, 2.05, 1.2, 1.4, 1.3, 1.2, 1.85), 54:55); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpsort4() {
+ assertEval("argv <- list(c(0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.0499999999999998, 0.05, 0.05, 0.05, 0.0499999999999999, 0.05, 0.0499999999999999, 0.05, 0.0499999999999999, 0.0499999999999999, 0.05, 0.0499999999999999, 0.0499999999999999, 0.05, 0.05, 0.0499999999999998, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.0499999999999999, 0.05, 0.05, 0.05, 0.0499999999999999, 0.0499999999999999, 0.0499999999999999, 0.05, 0.05, 0.0499999999999999, 0.05, 0.0499999999999999, 0.05, 0.05, 0.05, 0.0499999999999998, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.0555556, 0.05555554, 0.05555556, 0.05555556, 0.05555554, 0.0555556, 0.0555555, 0.0555556, 0.0555555, 0.0555556, 0.0555555, 0.0555556, 0.0555556, 0.0555555, 0.0555555999999999, 0.0555555000000001, 0.0555555999999999, 0.0555555000000001, 0.0555555999999999, 0.0555555, 0.0555556, 0.0555559999999999, 0.055555, 0.0555559999999999, 0.0526315, 0.05263162, 0.05263158, 0.05263158, 0.05263162, 0.0526315, 0.0526316, 0.0526316, 0.0526316, 0.0526316, 0.0526315, 0.0526316, 0.0526316, 0.0526316, 0.0526316, 0.0526315000000001, 0.0526316, 0.0526315999999999, 0.0526316, 0.0526315000000001, 0.0526316, 0.0526316, 0.052632, 0.0526310000000001, 0.0526319999999998, 0.08333333, 0.08333333, 0.08333334, 0.08333333, 0.08333333, 0.08333337, 0.0833333, 0.0833333, 0.0833333, 0.0833333, 0.0833333, 0.0833333, 0.0833333000000001, 0.0833333000000001, 0.0833333999999999, 0.0833333000000001, 0.0833333000000001, 0.0833333999999999, 0.0833333000000001, 0.0833333000000001, 0.0833333999999999, 0.0833333000000001, 0.0833333000000001, 0.0833330000000001, 0.0833330000000001), 76:77); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpsort5() {
+ assertEval("argv <- list(c(-3.35281542033775, -3.57533122743112, -3.23282496934355, -3.3903449466851, -3.39757437954971, -3.36251831175626, -3.22932468384763, -3.22295685034786, -3.21402130636699, -3.11638102275539, -3.09226646401048, -3.21757818016328, -3.0862187014408, -3.08484132891786), 7:8); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpsort6() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE), c(66L, 195L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpsort7() {
+ assertEval("argv <- list(c(1, 2, 2, 3, 3, 4, 4, 5), 1:8); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpsort8() {
+ assertEval("argv <- list(27:28, 1:2); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpsort9() {
+ assertEval("argv <- list(c(-Inf, -Inf, Inf, Inf), 1:4); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpsort10() {
+ assertEval("argv <- list(c(-1.05715266611575, -0.873306430909872, -0.548705796690786, -0.288240908441576, -0.0649703574297026, 0.224762433374997, 0.3255545927283, 0.4813346401898, 0.530823516045489, 1.2699009772491), c(1L, 3L, 4L, 5L, 6L, 7L, 8L, 10L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpsort11() {
+ assertEval("argv <- list(c(-1.05715266611575, -0.873306430909873, -0.548705796690787, -0.288240908441577, -0.0649703574297025, 0.224762433374994, 0.3255545927283, 0.481334640189799, 0.530823516045488, 1.2699009772491), c(1L, 3L, 4L, 5L, 6L, 7L, 8L, 10L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpsort12() {
+ assertEval("argv <- list(c(-Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -4.17369555651928e+302, -2.72671165723473e+289, -2.21240023126594e+276, -2.24780296109123e+263, -2.88514442494869e+250, -4.72336572671053e+237, -9.96611412047338e+224, -2.74100158340596e+212, -9.94902790498679e+199, -4.83110332887119e+187, -3.18582547396557e+175, -2.90089508183654e+163, -3.71562599613334e+151, -6.83535188151783e+139, -1.84898368353639e+128, -7.55412056676629e+116, -4.80716085942859e+105, -4.9383857330861e+94, -8.54170618068872e+83, -2.61556777274611e+73, -1.5069799345972e+63, -1.76183826972506e+53, -4.60125024792566e+43, -3.04622557026196e+34, -6.08456909882282e+25, -473300382255715392, -21650982809.6744, -12820.0784261145, -1.12778377684043), c(1L, 13L, 14L, 26L, 38L, 39L, 51L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpsort13() {
+ assertEval("argv <- list(c(0.5, 0.6, 1.2, 1.3, 1.6, 5.8, 6.2, 3.7, 5.1, 5, 4, 4, 5.3, 1.4, 6.6, 3.8, 2.6, 3.2, 2.9, 6.8, 10.6, 7.6, 9.3, 8, 10, 10, 8, 10.5, 10.5, 9.7, 9.7, 9.4, 8.9, 8.8, 8, 10.1, 8.5, 9.1, 7.5, 7.4, 7.5, 7.6, 8.4, 8.5, 10.8, 11.1, 12, 12, 18, 17.7, 16, 15, 14, 12.9, 12.7, 12.6, 17.9, 12.1, 17.7, 16.1, 13, 17.3, 17, 16.7, 13, 15.7, 19, 16, 17, 12, 12.2, 12.8, 14.6, 14.9, 17.6, 21, 20.5, 19.6, 20.2, 20.8, 21.1, 21.9, 20.5, 19.2, 22.5, 22, 23.2, 23, 22, 22, 23.4, 23.4, 23.5, 29, 26, 25, 28.5, 25.4, 29, 24.2, 23.9, 24.6, 25.7, 25.3, 28.6, 26.5, 29, 37.8, 30.9, 42, 31, 38.5, 41.4, 43.6, 46.7, 37.4, 45, 35.9, 36.1, 32, 44.4, 40.3, 30, 31, 32, 32.7, 36, 43.5, 33.1, 32.9, 36.3, 38.9, 30, 46.1, 45, 47.1, 47.7, 187, 147, 130, 49.2, 62, 141, 122, 105, 62, 64, 123, 112, 105, 63.6, 60, 49, 66, 87, 56.9, 60.7, 61.4, 156, 62, 64, 82, 88, 48.3, 109, 107, 85, 91, 148, 145, 53.1, 50, 92.2, 224, 293, 300, 211, 200, 197, 203, 359, 370), c(1L, 46L, 47L, 91L, 92L, 136L, 137L, 182L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testpsort14() {
+ assertEval("argv <- list(c(-1.36919169254062, -0.667819876370237, -0.253162069270378, -0.0834190388782434, -0.00786394222146348, 0.0246733498130512, 0.0730305465518564, 0.0881443844426084, 0.170711734013213, 0.552921941721332), c(1L, 3L, 4L, 5L, 6L, 7L, 8L, 10L)); .Internal(psort(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpushBackLength.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpushBackLength.java
new file mode 100644
index 0000000000000000000000000000000000000000..01530c50984b9b805e7bab99a2c384648b93a1a5
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpushBackLength.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinpushBackLength extends TestBase {
+
+ @Test
+ @Ignore
+ public void testpushBackLength1() {
+ assertEval("argv <- list(FALSE); .Internal(pushBackLength(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinputconst.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinputconst.java
new file mode 100644
index 0000000000000000000000000000000000000000..44f3dedbf7d688c0c7f2ad26cfb5eaa54e8d1b31
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinputconst.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinputconst extends TestBase {
+
+ @Test
+ @Ignore
+ public void testputconst1() {
+ assertEval("argv <- list(list(NULL), 0, NULL); .Internal(putconst(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testputconst2() {
+ assertEval("argv <- list(list(list(), NULL), 1, list()); .Internal(putconst(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinqr.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinqr.java
new file mode 100644
index 0000000000000000000000000000000000000000..37c7a8159a7a428047da93282ace6552d38a9292
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinqr.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinqr extends TestBase {
+
+ @Test
+ @Ignore
+ public void testqr1() {
+ assertEval("argv <- list(structure(list(qr = structure(c(-2.99896066496855+0i, 0.0864255261791181+0i, -0.13772470327145+0i, -0.49098351645158+0i, 0.249389337649224+0i, 1.17331892183982+0i, -1.54960102684918+0i, -0.573648421141553+0i, 0.376760682628698+0i, 0.412090084647403+0i, 0.603959683330493+0i, -0.0216928335770876+0i, -1.2469936242596+0i, 0.224366164923213+0i, 0.341798188737913+0i, 1.04294423444024+0i, 0.270564951504877+0i, -0.315381666175534+0i, 0.787566751532822+0i, 0.229154517629245+0i, -2.25109940279642+0i, 0.530750192641659+0i, -0.0977755443891602+0i, 0.6614171819615+0i, -0.0856949989622426+0i), .Dim = c(5L, 5L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\'), c(\'c\', \'a\', \'d\', \'b\', \'e\'))), rank = 5L, qraux = c(1.50410169966891+0i, 1.21888836143069+0i, 1.71355205288103+0i, 1.90021623833265+0i, 0+0i), pivot = c(3L, 1L, 4L, 2L, 5L)), .Names = c(\'qr\', \'rank\', \'qraux\', \'pivot\'), class = \'qr\'), structure(1:5, .Dim = c(5L, 1L))); .Internal(qr_coef_cmplx(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testqr2() {
+ assertEval("argv <- list(structure(list(qr = structure(c(-2.79657712283236, 0.0791500442336917, 0.123755637403102, 0.089607462331441, 0.175462651449591, 0.0695565565709435, 0.129006956605315, 0.206583197284758, 0.0227114114395308, 0.235970456809858, 0.0914077988155571, 0.226297607634113, 0.0934594628258066, 0.0899795540097744, 0.12841549388179, 0.240520185730483, 0.233009950431413, 0.105133974880502, 0.2095512974465, 0.258964862210899, -2.07025325833148, -1.85301582498188, 0.139094572499947, 0.342556683478902, -0.102024562608463, 0.360699451256097, 0.315324737973941, 0.0873752715112826, 0.2823485467872, -0.239863332146733, -0.00369181667619238, -0.172536775168022, 0.229736826805589, 0.0852501914884386, 0.230310089401495, -0.0314168397035678, 0.0849707357385819, 0.365804687920591, -0.0536336269418447, 0.0845797169641211, -2.03746531175251, -0.489461063366758, -1.40644653583967, -0.00873041883181913, 0.0708276075409328, 0.153420226417602, -0.370069917481653, -0.112816417432651, 0.240125650075004, 0.138426195987046, 0.128552669396225, 0.217325815608225, -0.0223361051263949, -0.0526633296159945, -0.296094517820351, -0.327346352864029, -0.249917267465335, -0.0672115093838751, 0.0654426021596298, -0.240131194574062, -2.06587739268838, -0.339470951293598, -0.49608488205654, 1.14277258876071, 0.201196269542128, 0.0348254315928563, 0.145314253550005, 0.131380830586619, -0.387015716398766, 0.283849139598354, -0.0827284627849877, 0.132994279479374, -0.113393410148955, 0.0518736136418599, -0.422882666833989, -0.141635274746576, -0.181291088091223, 0.196913259592121, -0.0460107390352923, 0.15597817986415), .Dim = c(20L, 4L)), rank = 4L, qraux = c(1.32642615746455, 1.10105053486773, 1.21513331337829, 1.21397558590595), pivot = c(4L, 1L, 3L, 2L)), .Names = c(\'qr\', \'rank\', \'qraux\', \'pivot\'), useLAPACK = TRUE, class = \'qr\'), structure(c(0.434659484773874, 0.712514678714797, 0.399994368897751, 0.325352151878178, 0.757087148027495, 0.202692255144939, 0.711121222469956, 0.121691921027377, 0.245488513959572, 0.14330437942408, 0.239629415096715, 0.0589343772735447, 0.642288258532062, 0.876269212691113, 0.778914677444845, 0.79730882588774, 0.455274453619495, 0.410084082046524, 0.810870242770761, 0.604933290276676, 0.654723928077146, 0.353197271935642, 0.270260145887733, 0.99268406117335, 0.633493264438584, 0.213208135217428, 0.129372348077595, 0.478118034312502, 0.924074469832703, 0.59876096714288, 0.976170694921166, 0.731792511884123, 0.356726912083104, 0.431473690550774, 0.148211560677737, 0.0130775754805654, 0.715566066093743, 0.103184235747904, 0.446284348610789, 0.640101045137271, 1.00298403897323, 0.272296643047594, 0.67556063386146, 0.151371688628569, 0.340151631063782, 0.431371175684035, 0.0309030100004748, 0.457057784032077, 0.880189609760418, 0.426803491590545, 0.543544612638652, 0.655281779309735, 0.526419038954191, 0.231530745956115, 0.877417415869422, 0.686553374305367, 0.847202921006829, 0.115471200458705, 0.751486539305188, 0.432544381567277, 0.682788078673184, 0.601541217649356, 0.238868677755818, 0.258165926672518, 0.729309623362496, 0.452570831403136, 0.175126768415794, 0.746698269620538, 0.104987640399486, 0.864544949028641, 0.614644971676171, 0.557159538846463, 0.328777319053188, 0.453131445450708, 0.500440972624347, 0.180866361130029, 0.529630602803081, 0.0752757457084954, 0.277755932649598, 0.212699519237503, 0.0904899418726564, 0.0829104807786643, 0.140637623313814, 0.186663761837408, 0.0510252129565924, 0.195122500695288, 0.189470667047426, 0.14745507678017, 0.160610442608595, 0.0259712139610201, 0.0604781195987016, 0.0592939835228026, 0.157146221613511, 0.0842694476991892, 0.187063216743991, 0.126278517944738, 0.175293296081945, 0.202698964001611, 0.104955473728478, 0.1719400214497, 0.293730155099183, 0.19126010988839, 0.886450943304226, 0.503339485730976, 0.877057543024421, 0.189193622441962, 0.758103052387014, 0.724498892668635, 0.943724818294868, 0.547646587016061, 0.711743867723271, 0.388905099825934, 0.100873126182705, 0.927302088588476, 0.283232500310987, 0.59057315881364, 0.110360604943708, 0.840507032116875, 0.317963684443384, 0.782851336989552, 0.267508207354695, 0.218645284883678, 0.516796836396679, 0.268950592027977, 0.181168327340856, 0.518576137488708, 0.562782935798168, 0.129156854469329, 0.256367604015395, 0.717935275984928, 0.961409936426207, 0.100140846567228, 0.763222689507529, 0.947966354666278, 0.818634688388556, 0.308292330708355, 0.649579460499808, 0.953355451114476, 0.953732650028542, 0.339979203417897), .Dim = c(20L, 7L)), TRUE); .Internal(qr_qy_real(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinqsort.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinqsort.java
new file mode 100644
index 0000000000000000000000000000000000000000..5b308deb3d8ba03f2fbd92ca4260a653ca633783
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinqsort.java
@@ -0,0 +1,86 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinqsort extends TestBase {
+
+ @Test
+ public void testqsort1() {
+ assertEval("argv <- list(3L, FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testqsort2() {
+ assertEval("argv <- list(c(306, 455, 1010, 210, 883, 1022, 218, 166, 170, 567, 144, 613, 707, 88, 301, 624, 371, 394, 574, 118, 390, 12, 26, 533, 53, 814, 93, 460, 583, 303, 519, 643, 189, 246, 689, 65, 132, 223, 175, 163, 428, 230, 840, 11, 176, 791, 95, 196, 806, 284, 147, 655, 239, 30, 179, 310, 477, 364, 107, 177, 156, 429, 15, 181, 283, 13, 212, 524, 288, 363, 442, 54, 558, 207, 92, 60, 202, 353, 267, 387, 457, 337, 404, 222, 458, 31, 229, 444, 329, 291, 292, 142, 413, 320, 285, 197, 180, 300, 259, 110, 286, 270, 81, 131, 225, 269, 279, 135, 59, 105, 237, 221, 185, 183, 116, 188, 191, 174), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testqsort3() {
+ assertEval("argv <- list(numeric(0), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testqsort4() {
+ assertEval("argv <- list(c(1.64819754690779, 0.502718643389684, 0.845467412356198, 0.467247395729231, -0.402055063696625, 0.923526703253396, -0.0080556407117813, 1.03378423761425, -0.799126981726699, 1.00423302095334, -0.311973356192691, -0.88614958536232, -1.9222548962705, 1.61970074406333, 0.519269904664384, -0.055849931834021, 0.696417610118512), TRUE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testqsort5() {
+ assertEval("argv <- list(c(1L, 7L, 11L, 12L, 13L, 19L, 25L, 3L, 8L), TRUE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testqsort6() {
+ assertEval("argv <- list(c(1, 2, 4, 6, 8, 3, 5, 7), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testqsort7() {
+ assertEval("argv <- list(c(1, 173, 346, 518, 691, 174, 519), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testqsort8() {
+ assertEval("argv <- list(c(1, 42, 83, 124, 166, 43, 84, 125), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testqsort9() {
+ assertEval("argv <- list(c(-Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 1, 2, 3, 4, 5, Inf, Inf, Inf, Inf, Inf), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testqsort10() {
+ assertEval("argv <- list(c(1, 13, 26, 38, 51, 14, 39), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testqsort11() {
+ assertEval("argv <- list(c(-Inf, -Inf, -Inf, -Inf, -Inf, 0, 1, 2, 3, 4, Inf, Inf, Inf, Inf), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testqsort12() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testqsort13() {
+ assertEval("argv <- list(c(63, 187, 64, 188), FALSE); .Internal(qsort(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinradixsort.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinradixsort.java
new file mode 100644
index 0000000000000000000000000000000000000000..d8c88c5d90934b426cdb802b3bb0c441ac5024bd
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinradixsort.java
@@ -0,0 +1,48 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinradixsort extends TestBase {
+
+ @Test
+ @Ignore
+ public void testradixsort1() {
+ assertEval("argv <- list(structure(1L, .Label = c(\'Ctl\', \'Trt\'), class = \'factor\'), TRUE, FALSE); .Internal(radixsort(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testradixsort2() {
+ assertEval("argv <- list(structure(c(2L, 1L, 3L), .Label = c(\'1\', \'2\', NA), class = \'factor\'), TRUE, FALSE); .Internal(radixsort(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testradixsort3() {
+ assertEval("argv <- list(structure(c(3L, 7L, 1L, 5L, 10L, 8L, 2L, 6L, 4L, 9L), .Label = c(\'Svansota\', \'No. 462\', \'Manchuria\', \'No. 475\', \'Velvet\', \'Peatland\', \'Glabron\', \'No. 457\', \'Wisconsin No. 38\', \'Trebi\'), class = \'factor\'), TRUE, FALSE); .Internal(radixsort(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testradixsort5() {
+ assertEval("argv <- list(structure(c(64L, 67L, 92L, 71L, 74L, 69L, 78L, 94L, 95L, 80L, 119L, 114L, 97L, 72L, 75L, 96L, 99L, 54L, 101L, 93L, 58L, 138L, NA, 139L, 126L, 84L, 79L, 62L, 52L, 68L, 81L, 87L, 109L, 35L, 51L, 61L, 59L, 131L, 137L, 73L, 77L, 70L, 90L, 107L, 29L, 89L, 57L, 66L, 76L, 37L, 155L, 16L, 102L, 56L, 123L, 36L, 60L, 40L, 43L, 85L, 65L, 11L, 47L, 103L, 86L, 13L, 63L, 132L, 91L, 98L, 105L, 134L, 14L, 124L, 117L, 55L, 41L, 24L, 50L, 110L, 129L, 88L, 141L, 145L, 133L, 25L, 46L, 120L, 83L, 121L, 104L, 53L, 44L, 113L, 100L, 19L, 108L, 31L, 82L, 127L, 111L, 116L, 38L, 150L, 48L, 22L, 112L, 140L, 27L, 149L, 115L, 130L, 8L, 28L, 106L, 23L, 125L, 33L, 39L, 32L, 15L, 49L, 144L, 7L, 17L, 122L, 118L, 5L, 128L, 12L, 45L, 21L, 42L, 147L, 26L, 1L, 4L, 153L, 151L, 3L, 136L), .Label = c(\'(360,365]\', \'(365,370]\', \'(370,375]\', \'(375,380]\', \'(380,385]\', \'(385,390]\', \'(390,395]\', \'(395,400]\', \'(400,405]\', \'(405,410]\', \'(410,415]\', \'(415,420]\', \'(420,425]\', \'(425,430]\', \'(430,435]\', \'(435,440]\', \'(440,445]\', \'(445,450]\', \'(450,455]\', \'(455,460]\', \'(460,465]\', \'(465,470]\', \'(470,475]\', \'(475,480]\', \'(480,485]\', \'(485,490]\', \'(490,495]\', \'(495,500]\', \'(500,505]\', \'(505,510]\', \'(510,515]\', \'(515,520]\', \'(520,525]\', \'(525,530]\', \'(530,535]\', \'(535,540]\', \'(540,545]\', \'(545,550]\', \'(550,555]\', \'(555,560]\', \'(560,565]\', \'(565,570]\', \'(570,575]\', \'(575,580]\', \'(580,585]\', \'(585,590]\', \'(590,595]\', \'(595,600]\', \'(600,605]\', \'(605,610]\', \'(610,615]\', \'(615,620]\', \'(620,625]\', \'(625,630]\', \'(630,635]\', \'(635,640]\', \'(640,645]\', \'(645,650]\', \'(650,655]\', \'(655,660]\', \'(660,665]\', \'(665,670]\', \'(670,675]\', \'(675,680]\', \'(680,685]\', \'(685,690]\', \'(690,695]\', \'(695,700]\', \'(700,705]\', \'(705,710]\', \'(710,715]\', \'(715,720]\', \'(720,725]\', \'(725,730]\', \'(730,735]\', \'(735,740]\', \'(740,745]\', \'(745,750]\', \'(750,755]\', \'(755,760]\', \'(760,765]\', \'(765,770]\', \'(770,775]\', \'(775,780]\', \'(780,785]\', \'(785,790]\', \'(790,795]\', \'(795,800]\', \'(800,805]\', \'(805,810]\', \'(810,815]\', \'(815,820]\', \'(820,825]\', \'(825,830]\', \'(830,835]\', \'(835,840]\', \'(840,845]\', \'(845,850]\', \'(850,855]\', \'(855,860]\', \'(860,865]\', \'(865,870]\', \'(870,875]\', \'(875,880]\', \'(880,885]\', \'(885,890]\', \'(890,895]\', \'(895,900]\', \'(900,905]\', \'(905,910]\', \'(910,915]\', \'(915,920]\', \'(920,925]\', \'(925,930]\', \'(930,935]\', \'(935,940]\', \'(940,945]\', \'(945,950]\', \'(950,955]\', \'(955,960]\', \'(960,965]\', \'(965,970]\', \'(970,975]\', \'(975,980]\', \'(980,985]\', \'(985,990]\', \'(990,995]\', \'(995,1000]\', \'(1000,1005]\', \'(1005,1010]\', \'(1010,1015]\', \'(1015,1020]\', \'(1020,1025]\', \'(1025,1030]\', \'(1030,1035]\', \'(1035,1040]\', \'(1040,1045]\', \'(1045,1050]\', \'(1050,1055]\', \'(1055,1060]\', \'(1060,1065]\', \'(1065,1070]\', \'(1070,1075]\', \'(1075,1080]\', \'(1080,1085]\', \'(1085,1090]\', \'(1090,1095]\', \'(1095,1100]\', \'(1100,1105]\', \'(1105,1110]\', \'(1110,1115]\', \'(1115,1120]\', \'(1120,1125]\', \'(1125,1130]\', \'(1130,1135]\'), class = \'factor\'), TRUE, FALSE); .Internal(radixsort(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testradixsort6() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'), TRUE, FALSE); .Internal(radixsort(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrange.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrange.java
new file mode 100644
index 0000000000000000000000000000000000000000..6248aed402dad8b0aa0ea0155b66850b4a79b268
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrange.java
@@ -0,0 +1,204 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinrange extends TestBase {
+
+ @Test
+ @Ignore
+ public void testrange1() {
+ assertEval("argv <- list(c(0.0303542455381287, 0.030376780241572, 0.030376780241572, 0.0317964665585001, 0.0332612222823148, 0.0332612222823148, 0.0332612222823148, 0.0332612222823148, 0.0332612222823148, 0.0332612222823148, 0.0332612222823148, 0.0334189652064179, 0.0352217414818821, 0.0354245538128718, 0.0354245538128718, 0.0376780241572021, 0.0376780241572021, 0.0376780241572021, 0.0376780241572021, 0.0406300703082748, 0.0406300703082748, 0.0406300703082748, 0.0440778799351001, 0.048021453037678, 0.0524607896160087, 0.0524607896160087, 0.0524607896160087, 0.0628267531999279, 0.0693167477915991, 0.0981611681990265, 0.134937804218497, 0.179646655850009, 0.437804218496485), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange2() {
+ assertEval("argv <- list(structure(c(52L, 52L), .Names = c(\'y\', \'x\')), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange3() {
+ assertEval("argv <- list(c(-2.92498527625946, 2.46253591019012), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange4() {
+ assertEval("argv <- list(c(1.4615016373309e+48, 5.70899077082384e+45, 2.23007451985306e+43, 8.71122859317602e+40, 3.40282366920938e+38, 1.32922799578492e+36, 5.19229685853483e+33, 2.02824096036517e+31, 7.92281625142643e+28, 3.09485009821345e+26, 1.20892581961463e+24, 4.72236648286965e+21, 18446744073709551616, 72057594037927936, 281474976710656, 1099511627776, 4294967296, 16777216, 65536, 256, 1, 0.00390625, 1.52587890625e-05, 5.96046447753906e-08, 2.3283064365387e-10, 9.09494701772928e-13, 3.5527136788005e-15, 1.38777878078145e-17, 5.42101086242752e-20, 2.11758236813575e-22, 8.27180612553028e-25), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange5() {
+ assertEval("argv <- list(1:3, finite = TRUE, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange6() {
+ assertEval("argv <- list(c(1L, 3L, 7L, 14L, 21L, 20L, 19L, 9L, 4L, 2L), 0, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange7() {
+ assertEval("argv <- list(c(8.2, 9.7, 12.25, 16.5, 21.5, 14.5, 20, 23.45, 25.8, 27.3, 22.4, 24.5, 25.95, 27.3, 30.9), numeric(0), NULL, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]],argv[[4]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange8() {
+ assertEval("argv <- list(structure(c(3L, 2L, 1L), .Label = c(\'A\', \'B\', \'C\'), class = c(\'ordered\', \'factor\')), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange9() {
+ assertEval("argv <- list(structure(list(sec = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), min = c(40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L, 50L, 0L, 10L, 20L, 30L, 40L), hour = c(8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 10L, 10L, 11L, 11L, 11L, 11L, 11L, 11L, 12L, 12L, 12L, 12L, 12L, 12L, 13L, 13L, 13L, 13L, 13L, 13L, 14L, 14L, 14L, 14L, 14L, 14L, 15L, 15L, 15L, 15L, 15L, 15L, 16L, 16L, 16L, 16L, 16L, 16L, 17L, 17L, 17L, 17L, 17L, 17L, 18L, 18L, 18L, 18L, 18L, 18L, 19L, 19L, 19L, 19L, 19L, 19L, 20L, 20L, 20L, 20L, 20L, 20L, 21L, 21L, 21L, 21L, 21L, 21L, 22L, 22L, 22L, 22L, 22L, 23L, 23L, 23L, 23L, 23L, 23L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L), mday = c(12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 13L), mon = c(11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L), year = c(90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L, 90L), wday = c(3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L), yday = c(345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 345L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L, 346L), isdst = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L)), .Names = c(\'sec\', \'min\', \'hour\', \'mday\', \'mon\', \'year\', \'wday\', \'yday\', \'isdst\'), class = c(\'POSIXlt\', \'POSIXt\')), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange10() {
+ assertEval("argv <- list(structure(c(-3.5527136788005e-14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -6.21724893790088e-15, -1.77635683940025e-15, -8.88178419700125e-16, -1.33226762955019e-15, -1.22124532708767e-15, -8.88178419700125e-16, -1.33226762955019e-15, -1.22124532708767e-15, -1.33226762955019e-15, -1.11022302462516e-15, -8.88178419700125e-16, -1.33226762955019e-15, -8.88178419700125e-16, -8.88178419700125e-16, -4.44089209850063e-16, -4.44089209850063e-16, -1.22124532708767e-15, -1.22124532708767e-15, -8.88178419700125e-16, -1.33226762955019e-15, -8.88178419700125e-16, -4.44089209850063e-16, -6.66133814775094e-16, -7.7715611723761e-16, -4.44089209850063e-16, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -1.33226762955019e-15, -1.33226762955019e-15, -1.33226762955019e-15, -8.88178419700125e-16, -1.11022302462516e-15, -4.44089209850063e-16, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -1.33226762955019e-15, -1.33226762955019e-15, -8.88178419700125e-16, -4.44089209850063e-16, -1.22124532708767e-15, -8.88178419700125e-16, -8.88178419700125e-16, -8.88178419700125e-16, -1.33226762955019e-15, -1.22124532708767e-15, 5.91171556152403e-12, -1.59161572810262e-12, 4.54747350886464e-13, 1.02318153949454e-12, 1.13686837721616e-12, 4.54747350886464e-13, 9.09494701772928e-13, 9.09494701772928e-13, 1.02318153949454e-12, 9.09494701772928e-13, 0, 9.09494701772928e-13, 4.54747350886464e-13, 0, 0, 3.41060513164848e-13, 9.66338120633736e-13, 1.19371179607697e-12, 2.27373675443232e-13, 9.66338120633736e-13, 2.27373675443232e-13, 0, 4.54747350886464e-13, 9.66338120633736e-13, 0, 6.82121026329696e-13, 4.54747350886464e-13, 2.27373675443232e-13, 4.54747350886464e-13, 1.08002495835535e-12, 1.02318153949454e-12, 8.5265128291212e-13, 7.38964445190504e-13, 9.09494701772928e-13, 4.54747350886464e-13, 5.6843418860808e-13, 7.105427357601e-13, 3.41060513164848e-13, 0, 0, 9.66338120633736e-13, 1.02318153949454e-12, 0, 4.54747350886464e-13, 1.13686837721616e-12, 1.05160324892495e-12, 9.09494701772928e-13, 3.41060513164848e-13, 8.38440428196918e-13, 1.4210854715202e-12, 1.15463194561016e-14, -8.88178419700125e-16, -1.33226762955019e-15, -2.02615701994091e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.77635683940025e-15, 8.88178419700125e-16, 2.22044604925031e-15, 1.77635683940025e-15, 0, 1.33226762955019e-15, 8.88178419700125e-16, 2.22044604925031e-15, 2.22044604925031e-15, 1.77635683940025e-15, 1.77635683940025e-15, 8.88178419700125e-16, 4.44089209850063e-16, 0, 1.77635683940025e-15, 8.88178419700125e-16, 1.77635683940025e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.11022302462516e-15, 1.77635683940025e-15, 1.77635683940025e-15, 1.55431223447522e-15, 1.66533453693773e-15, 2.66453525910038e-15, 8.88178419700125e-16, 8.88178419700125e-16, 8.88178419700125e-16, 8.88178419700125e-16, 8.88178419700125e-16, 8.88178419700125e-16, 1.77635683940025e-15, 2.22044604925031e-15, 8.88178419700125e-16, 2.22044604925031e-15, 3.77475828372553e-15, 1.77635683940025e-15, 0, 1.33226762955019e-15, 0, 2.66453525910038e-15), .Dim = c(50L, 4L), .Dimnames = list(c(\'Australia\', \'Austria\', \'Belgium\', \'Bolivia\', \'Brazil\', \'Canada\', \'Chile\', \'China\', \'Colombia\', \'Costa Rica\', \'Denmark\', \'Ecuador\', \'Finland\', \'France\', \'Germany\', \'Greece\', \'Guatamala\', \'Honduras\', \'Iceland\', \'India\', \'Ireland\', \'Italy\', \'Japan\', \'Korea\', \'Luxembourg\', \'Malta\', \'Norway\', \'Netherlands\', \'New Zealand\', \'Nicaragua\', \'Panama\', \'Paraguay\', \'Peru\', \'Philippines\', \'Portugal\', \'South Africa\', \'South Rhodesia\', \'Spain\', \'Sweden\', \'Switzerland\', \'Turkey\', \'Tunisia\', \'United Kingdom\', \'United States\', \'Venezuela\', \'Zambia\', \'Jamaica\', \'Uruguay\', \'Libya\', \'Malaysia\'), c(\'pop15\', \'pop75\', \'dpi\', \'ddpi\'))), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange11() {
+ assertEval("argv <- list(structure(c(4L, 5L, 1L, 5L, 3L, 4L, 5L, 3L, 2L, 4L), .Label = c(\'a\', \'c\', \'i\', \'s\', \'t\'), class = c(\'ordered\', \'factor\')), structure(c(4L, 2L, 3L, 5L, 4L, 3L, 5L, 1L, 5L, 4L), .Label = c(\'a\', \'c\', \'i\', \'s\', \'t\'), class = c(\'ordered\', \'factor\')), na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange12() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101), .Tsp = c(1, 101, 1), class = \'ts\'), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange13() {
+ assertEval("argv <- list(c(NA, 1, 2, 3, -Inf, NaN, Inf), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange14() {
+ assertEval("argv <- list(c(14.43333, 65.7667), finite = TRUE, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange15() {
+ assertEval("argv <- list(structure(c(1, 13, 31), .Dim = 3L, .Dimnames = list(c(\'1st\', \'2nd\', \'3rd\'))), finite = TRUE, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange16() {
+ assertEval("argv <- list(list(), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange17() {
+ assertEval("argv <- list(structure(c(1012633320L, 1012633620L), class = c(\'POSIXct\', \'POSIXt\'), tzone = \'\'), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange18() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 0L)), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange19() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 0L), .Dimnames = list(NULL, NULL)), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange20() {
+ assertEval("argv <- list(c(2.00256647265648e-308, 2.22284878464869e-308, 2.22507363599982e-308, 2.2250738585072e-308, 2.22507408101459e-308, 2.22729893236571e-308, 2.44758124435792e-308), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange21() {
+ assertEval("argv <- list(structure(c(12053, 12054, 12055, 12056, 12057, 12058, 12059, 12060, 12061, 12062), class = \'Date\'), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange22() {
+ assertEval("argv <- list(structure(c(1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 2L, 1L, NA, 1L, 1L, 2L, 1L, 1L, NA, 2L, 2L, 2L, 1L, 1L, 2L, 2L, 2L, 1L, 2L, 1L, NA, 2L, 2L, 1L, NA, 2L, 2L, NA, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 2L, 1L), .Dim = c(20L, 6L), .Dimnames = list(c(\'ant\', \'bee\', \'cat\', \'cpl\', \'chi\', \'cow\', \'duc\', \'eag\', \'ele\', \'fly\', \'fro\', \'her\', \'lio\', \'liz\', \'lob\', \'man\', \'rab\', \'sal\', \'spi\', \'wha\'), c(\'war\', \'fly\', \'ver\', \'end\', \'gro\', \'hai\'))), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange23() {
+ assertEval("argv <- list(structure(c(13823, NA), class = \'Date\'), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange24() {
+ assertEval("range( );");
+ }
+
+ @Test
+ @Ignore
+ public void testrange25() {
+ assertEval("argv <- list(structure(c(1949, 1949.08333333333, 1949.16666666667, 1949.25, 1949.33333333333, 1949.41666666667, 1949.5, 1949.58333333333, 1949.66666666667, 1949.75, 1949.83333333333, 1949.91666666667, 1950, 1950.08333333333, 1950.16666666667, 1950.25, 1950.33333333333, 1950.41666666667, 1950.5, 1950.58333333333, 1950.66666666667, 1950.75, 1950.83333333333, 1950.91666666667, 1951, 1951.08333333333, 1951.16666666667, 1951.25, 1951.33333333333, 1951.41666666667, 1951.5, 1951.58333333333, 1951.66666666667, 1951.75, 1951.83333333333, 1951.91666666667, 1952, 1952.08333333333, 1952.16666666667, 1952.25, 1952.33333333333, 1952.41666666667, 1952.5, 1952.58333333333, 1952.66666666667, 1952.75, 1952.83333333333, 1952.91666666667, 1953, 1953.08333333333, 1953.16666666667, 1953.25, 1953.33333333333, 1953.41666666667, 1953.5, 1953.58333333333, 1953.66666666667, 1953.75, 1953.83333333333, 1953.91666666667, 1954, 1954.08333333333, 1954.16666666667, 1954.25, 1954.33333333333, 1954.41666666667, 1954.5, 1954.58333333333, 1954.66666666667, 1954.75, 1954.83333333333, 1954.91666666667, 1955, 1955.08333333333, 1955.16666666667, 1955.25, 1955.33333333333, 1955.41666666667, 1955.5, 1955.58333333333, 1955.66666666667, 1955.75, 1955.83333333333, 1955.91666666667, 1956, 1956.08333333333, 1956.16666666667, 1956.25, 1956.33333333333, 1956.41666666667, 1956.5, 1956.58333333333, 1956.66666666667, 1956.75, 1956.83333333333, 1956.91666666667, 1957, 1957.08333333333, 1957.16666666667, 1957.25, 1957.33333333333, 1957.41666666667, 1957.5, 1957.58333333333, 1957.66666666667, 1957.75, 1957.83333333333, 1957.91666666667, 1958, 1958.08333333333, 1958.16666666667, 1958.25, 1958.33333333333, 1958.41666666667, 1958.5, 1958.58333333333, 1958.66666666667, 1958.75, 1958.83333333333, 1958.91666666667, 1959, 1959.08333333333, 1959.16666666667, 1959.25, 1959.33333333333, 1959.41666666667, 1959.5, 1959.58333333333, 1959.66666666667, 1959.75, 1959.83333333333, 1959.91666666667, 1960, 1960.08333333333, 1960.16666666667, 1960.25, 1960.33333333333, 1960.41666666667, 1960.5, 1960.58333333333, 1960.66666666667, 1960.75, 1960.83333333333, 1960.91666666667, 1961, 1961.08333333333, 1961.16666666667, 1961.25, 1961.33333333333, 1961.41666666667, 1961.5, 1961.58333333333, 1961.66666666667, 1961.75, 1961.83333333333, 1961.91666666667, 1962, 1962.08333333333, 1962.16666666667, 1962.25, 1962.33333333333, 1962.41666666667, 1962.5, 1962.58333333333, 1962.66666666667, 1962.75, 1962.83333333333, 1962.91666666667), .Tsp = c(1949, 1962.91666666667, 12), class = \'ts\'), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange26() {
+ assertEval("argv <- list(c(1.47191076131574, 0.586694550701453, 0.258706725324317, 0.948371836939988, 0.396080061109718, 0.350912037541581), finite = TRUE, na.rm = FALSE);range(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange27() {
+ assertEval("argv <- list(structure(c(-11.3814849918875, -11.9361690778798, 0.562602893455921, 11.5126028934559, 76.2209544348296, -8.66448499188751, -6.94502893455923, -5.28148499188751, -35.7665182531098, 6.35497106544077, -9.20908119253651, -0.898484991887508, -5.59380090589508, -6.12730922120065, -13.3061334505138, 58.6278831800973, -15.1098009058951, -8.29625696322337, -4.07211681990265, 3.7096551514332, 2.60151500811249, 6.24733923742563, -1.33911681990266, -2.14157287723094, -10.5984849918875, -8.12802893455923, 1.30028697944835, -15.7450289345592, 7.20569077879935, -12.6484849918875, 25.1810423201731, -4.42680090589508, -1.90886979448351), .Names = c(\'Craig Dunain\', \'Ben Rha\', \'Ben Lomond\', \'Goatfell\', \'Bens of Jura\', \'Cairnpapple\', \'Scolty\', \'Traprain\', \'Lairig Ghru\', \'Dollar\', \'Lomonds\', \'Cairn Table\', \'Eildon Two\', \'Cairngorm\', \'Seven Hills\', \'Knock Hill\', \'Black Hill\', \'Creag Beag\', \'Kildcon Hill\', \'Meall Ant-Suidhe\', \'Half Ben Nevis\', \'Cow Hill\', \'N Berwick Law\', \'Creag Dubh\', \'Burnswark\', \'Largo Law\', \'Criffel\', \'Acmony\', \'Ben Nevis\', \'Knockfarrel\', \'Two Breweries\', \'Cockleroi\', \'Moffat Chase\')), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange28() {
+ assertEval("argv <- list(c(9.5367431640625e-07, 1.9073486328125e-06, 3.814697265625e-06, 7.62939453125e-06, 1.52587890625e-05, 3.0517578125e-05, 6.103515625e-05, 0.0001220703125, 0.000244140625, 0.00048828125, 0.0009765625, 0.001953125, 0.00390625, 0.0078125, 0.015625, 0.03125, 0.0625, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange29() {
+ assertEval("argv <- list(structure(c(1208822400, 1209168000, 1208822400, 1209168000), class = c(\'POSIXct\', \'POSIXt\'), tzone = \'GMT\'), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange30() {
+ assertEval("argv <- list(c(1.86606598307361, 339033474310168, 6.15968019059533e+28, 1.11911250438065e+43, 2.03324321833028e+57, 3.69406826275609e+71, 6.71151400229846e+85, 1.21937162496937e+100, 2.2153975381282e+114, 4.02501267984465e+128, 7.31278553581751e+142, 1.32861276588395e+157, 2.41387071044804e+171, 4.38560576593759e+185, 7.96792382084694e+199, 1.44764060891943e+214, 2.63012470966353e+228, 4.77850368783602e+242, 8.6817546752692e+256, 1.57733192575377e+271), na.rm = FALSE);range(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testrange31() {
+ assertEval("argv <- list(structure(c(1, 0.666666666666667, 0.333333333333333, 0, -0.333333333333333, -0.666666666666667, -1, -1.33333333333333, -1.66666666666667, 1.5, 1, 0.5, 0, -0.5, -1, -1.5, -2, -2.5, 3, 2, 1, 0, -1, -2, -3, -4, -5, -Inf, -Inf, -Inf, NaN, Inf, Inf, Inf, Inf, Inf, -3, -2, -1, 0, 1, 2, 3, 4, 5, -1.5, -1, -0.5, 0, 0.5, 1, 1.5, 2, 2.5, -1, -0.666666666666667, -0.333333333333333, 0, 0.333333333333333, 0.666666666666667, 1, 1.33333333333333, 1.66666666666667, -0.75, -0.5, -0.25, 0, 0.25, 0.5, 0.75, 1, 1.25, -0.6, -0.4, -0.2, 0, 0.2, 0.4, 0.6, 0.8, 1), .Dim = c(9L, 9L)), na.rm = TRUE);range(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrank.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrank.java
new file mode 100644
index 0000000000000000000000000000000000000000..64ad2516289049d35587ce912d5dbd954ba3326f
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrank.java
@@ -0,0 +1,84 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinrank extends TestBase {
+
+ @Test
+ @Ignore
+ public void testrank1() {
+ assertEval("argv <- list(c(1, 2, 3), 3L, \'average\'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrank2() {
+ assertEval("argv <- list(list(), 0L, \'average\'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrank3() {
+ assertEval("argv <- list(c(FALSE, FALSE), 2L, \'average\'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrank4() {
+ assertEval("argv <- list(c(2, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60), 60L, \'average\'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrank5() {
+ assertEval("argv <- list(structure(c(9.96, 84.84, 93.4, 33.77, 5.16, 90.57, 92.85, 97.16, 97.67, 91.38, 98.61, 8.52, 2.27, 4.43, 2.82, 24.2, 3.3, 12.11, 2.15, 2.84, 5.23, 4.52, 15.14, 4.2, 5.23, 2.56, 7.72, 18.46, 6.1, 99.71, 99.68, 100, 98.96, 98.22, 99.06, 99.46, 96.83, 5.62, 13.79, 11.22, 16.92, 4.97, 8.65, 42.34, 50.43, 58.33), .Names = c(\'Courtelary\', \'Delemont\', \'Franches-Mnt\', \'Moutier\', \'Neuveville\', \'Porrentruy\', \'Broye\', \'Glane\', \'Gruyere\', \'Sarine\', \'Veveyse\', \'Aigle\', \'Aubonne\', \'Avenches\', \'Cossonay\', \'Echallens\', \'Grandson\', \'Lausanne\', \'La Vallee\', \'Lavaux\', \'Morges\', \'Moudon\', \'Nyone\', \'Orbe\', \'Payerne\', \'Paysd'enhaut\', \'Rolle\', \'Vevey\', \'Yverdon\', \'Conthey\', \'Entremont\', \'Herens\', \'Martigwy\', \'Monthey\', \'St Maurice\', \'Sierre\', \'Sion\', \'Boudry\', \'La Chauxdfnd\', \'Le Locle\', \'Neuchatel\', \'Val de Ruz\', \'ValdeTravers\', \'V. De Geneve\', \'Rive Droite\', \'Rive Gauche\')), 46L, \'average\'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrank6() {
+ assertEval("argv <- list(structure(c(3, 1, 4, 1, 5, 9, 2, 6, 5, 3, 5), .Names = c(\'a\', \'b\', \'c\', \'d\', \'e\', \'f\', \'g\', \'h\', \'i\', \'j\', \'k\')), 11L, \'max\'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrank7() {
+ assertEval("argv <- list(c(\'9\', \'9\', \'8\', \'7\', \'6\', \'5\', \'4\', \'3\', \'2\', \'1\'), 10L, \'min\'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrank8() {
+ assertEval("argv <- list(c(2, 1, 3, 4, 5), 5L, \'average\'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrank9() {
+ assertEval("argv <- list(structure(c(\'Tukey\', \'Venables\', \'Tierney\', \'Ripley\', \'Ripley\', \'McNeil\', \'R Core\'), class = \'AsIs\'), 7L, \'min\'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrank10() {
+ assertEval("argv <- list(c(0.0244473121385049, 0.0208069652959635, 0.00198363254553387, -0.0529221973952693, 0.0164890605562422, -0.00149317802331189, -0.00414458668937225, -0.0391260369607497, -0.0127200995448093, 0.0111183888673723, 0.03614459302116, -0.00273443474452932, 0.0103131254237995, -0.00143136127438401, -0.0366335514444555, -0.0110399906877088, -0.0104891914308669, -0.00157789861665007, 0.0292636842429564, 0.0203025627349537, -0.0043767777488601, -0.00674011381520054, 0.0185411324740319, 0.0148087639526725, -0.0183227857094651, -0.018821306675337, 0.00969887758262181, 0.0204450782737623, -0.00298871658962484, 0.0234398759771181, 0.0105907055191967, -0.0162815763859567, 0.00907471699575067, -0.0300441479633801, 0.0381223507996197, 0.0526840550960561, -0.00976909588473167, -0.0277768375074461, 0.0151561006764977, -0.00359282193318711, 0.0638896025542924, -0.0010438914218908, 0.0183489539666666, 0.00074493402929487, -0.0197731007347187, 0.00502239164768132, -0.048016837368221, 0.0389877686476984, 0.00407695805281634, 0.057797414062711, 0.0126498543239424, -0.0188865172686347, 0.0162469917717659, -0.0248495524200794, -0.0333500780212535, 0.00775326717655591, -0.0117927765447241, 2.9405377320478e-05, 0.00197768259858777, -0.0156828699257579, -0.0151281440045609, -0.00359612097150966, 0.0313403370108415, -0.0405310449252812, 0.0158005934542395, 0.00885739072926609, 0.0282813640022565, -0.00809212452705879, 0.00984351260718323, 0.00710555853883393, -0.0144325170007544, 0.0321325880127445, 0.0308698841001781, 0.0186275986571656, 0.0422141110037264, 0.0148572667758066, -0.033960845128472, -0.0152504283054679, -0.0325780457387957, -0.0125937520151832, -0.0165034507562293, 0.00112039744236678, -0.0242330078671155, 0.00420399766652167, -0.0174137422806726, 0.047014676147193, 0.0190663795644171, 0.0242131244754732, 0.0102203815371289, 0.0447504856843389, -0.0169123288643312, -0.0122810127527625, 0.0381026258511537, -0.0173103031132602, -0.00551689511296685, -0.0104497655309428, -0.00851268571043338, -0.00742517743166594, 0.0131467615666842, -0.00471747595278646, -1.01191492422851, 2.68607765034082, -0.429158817093737, -0.359113060086774, -0.200381482427124, 1.42533261410281, -0.147128808252653, -0.0752683429340958, -1.36332095751131, -0.648540544492638, 0.12032088086903, -1.17778897251933, 1.06299238526514, -3.03678816357357, 0.613115721579531, -3.07289964707517, -0.601952253673221, -1.05655980889001, -1.304189561362, -0.113793555694785, -3.82871885136002, 2.35316662403712, -3.32994487242401, -0.927060802944771, -2.23184021008569, -1.5016380023869, 4.17433309125669, 0.0347912393865033, -2.57260106086865, -3.28121106883716, 0.900374202545311, -0.037119665429276, -0.636136749087689, -1.8587242949074, -2.97492062028297, -2.15038459323136, 2.00005760742783, -1.24253338959365, -2.76885369476898, 3.73858124484716, 0.850200754744896, -0.477294201826066, 2.11696609741804, 1.77284530274987, -1.23848609646229, 4.41220492908093, -0.51005406028203, -2.84898930042562, -0.288799203908439, 0.41507667846469, 4.61595679811872, 0.211604735787423, 0.913997610846827, -0.154305870713062, -0.668001684733089, -0.0694520566225524, 1.57527921126032, 4.15049001730457, 2.05478487752754, 2.41581679677341, -2.46264684311609, 1.96779114010676, 0.439849607321303, -2.93450005818449, 1.04204548529628, -0.317509209432032, 2.92917462393959, -1.53216399920933, -0.860423507857093, -1.85221899475487, -0.354207922873081, 0.804023558972676, -1.46349634623921, 1.66074633596335, -2.41616557260893, -2.09596882561548, 2.88231541368856, -2.0316949306093, 0.82394942463503, -0.762152102217839, 0.818803679301868, 3.37774657240809, 3.17317686688394, -0.661815601365533, -4.57047107058493, 4.99532317966833, 1.33413233353099, 1.0826546719274, -0.0267990462918174, 1.02021684590585, -0.328751663539334, 0.841389286509026, -0.800493487955288, -2.74041575509492, 1.97567653490976, 3.03949005099909, -0.617481138451227, -2.50657951121538, 1.28448261135565, -0.0894182737879582), 200L, \'average\'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrank11() {
+ assertEval("argv <- list(structure(c(4, 7, 6, 0, 0, 2, 4, 9, 3, 6, 0, 1, 5.5, 0.5, 4.5, 5.5, 0.5, 2.5, 0.5, 0.5, 2.5, 4.5, 9.5, 3.5, 1.5, 0.5, 5.5, 0.5, 1.5, 0.5, 0.5, 0.5, 1.5, 1.5, 0.5, 2.5, 2, 0, 7, 1, 1, 2, 0, 0, 0, 0, 3, 1, 0, 2, 0, 2, 0, 3, 2, 2, 0, 1, 3, 1, 4, 6, 0, 7, 0, 1, 2, 5, 11, 11, 9, 2), .Dim = 72L, .Dimnames = list(c(\'A\', \'A\', \'A\', \'A\', \'A\', \'A\', \'A\', \'A\', \'A\', \'A\', \'A\', \'A\', \'B\', \'B\', \'B\', \'B\', \'B\', \'B\', \'B\', \'B\', \'B\', \'B\', \'B\', \'B\', \'C\', \'C\', \'C\', \'C\', \'C\', \'C\', \'C\', \'C\', \'C\', \'C\', \'C\', \'C\', \'D\', \'D\', \'D\', \'D\', \'D\', \'D\', \'D\', \'D\', \'D\', \'D\', \'D\', \'D\', \'E\', \'E\', \'E\', \'E\', \'E\', \'E\', \'E\', \'E\', \'E\', \'E\', \'E\', \'E\', \'F\', \'F\', \'F\', \'F\', \'F\', \'F\', \'F\', \'F\', \'F\', \'F\', \'F\', \'F\'))), 72L, \'average\'); .Internal(rank(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinregexec.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinregexec.java
new file mode 100644
index 0000000000000000000000000000000000000000..b497249c6cb6a9adf208cf9433f453f410058bdb
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinregexec.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinregexec extends TestBase {
+
+ @Test
+ @Ignore
+ public void testregexec1() {
+ assertEval("argv <- list(\'^(([^:]+)://)?([^:/]+)(:([0-9]+))?(/.*)\', \'http://stat.umn.edu:80/xyz\', FALSE, FALSE, FALSE); .Internal(regexec(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinregexpr.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinregexpr.java
new file mode 100644
index 0000000000000000000000000000000000000000..4158c43d779edceb37ba8691ecf6685e51a5fb58
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinregexpr.java
@@ -0,0 +1,78 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinregexpr extends TestBase {
+
+ @Test
+ @Ignore
+ public void testregexpr1() {
+ assertEval("argv <- list(\'package:\', \'exNSS4\', FALSE, FALSE, TRUE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testregexpr2() {
+ assertEval("argv <- list(\'éè\', \'«Latin-1 accented chars»: éè øØ å<Å æ<Æ é éè\', FALSE, FALSE, TRUE, TRUE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testregexpr3() {
+ assertEval("argv <- list(\'package:\', \'graphics\', FALSE, FALSE, TRUE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testregexpr4() {
+ assertEval("argv <- list(\'^.*\\\\{n\', \'my(ugly[file{name\', FALSE, FALSE, FALSE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testregexpr5() {
+ assertEval("argv <- list(\'(\\\\\\\\S4method\\\\{([._[:alnum:]]*|\\\\$|\\\\[\\\\[?|\\\\+|\\\\-|\\\\*|\\\\/|\\\\^|<=?|>=?|!=?|==|\\\\&|\\\\||\\\\%[[:alnum:][:punct:]]*\\\\%)\\\\}\\\\{((([._[:alnum:]]+|`[^`]+`),)*([._[:alnum:]]+|`[^`]+`))\\\\})\', \'\\nread.00Index(file)\\n\', FALSE, FALSE, FALSE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testregexpr6() {
+ assertEval("argv <- list(\'\\\\.([[:alnum:]]+)$\', character(0), FALSE, FALSE, FALSE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testregexpr7() {
+ assertEval("argv <- list(\'(?<first>[[:upper:]][[:lower:]]+) (?<last>[[:upper:]][[:lower:]]+)\', c(\' Ben Franklin and Jefferson Davis\', \'\\tMillard Fillmore\'), FALSE, TRUE, FALSE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testregexpr8() {
+ assertEval("argv <- list(\'^[[:space:]]*@(?i)attribute\', \'% 4. Relevant Information Paragraph:\', FALSE, TRUE, FALSE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testregexpr9() {
+ assertEval("argv <- list(\'package:\', \'dummy\', FALSE, FALSE, TRUE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testregexpr10() {
+ assertEval("argv <- list(\'package:\', \'environmental\', FALSE, FALSE, TRUE, FALSE); .Internal(regexpr(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrep.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrep.java
new file mode 100644
index 0000000000000000000000000000000000000000..929cd41eac8d03a77e38b9fe2d90f85cb64277b2
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrep.java
@@ -0,0 +1,132 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinrep extends TestBase {
+
+ @Test
+ @Ignore
+ public void testrep1() {
+ assertEval("argv <- list(NA, 7); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep2() {
+ assertEval("argv <- list(NA, 4L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep3() {
+ assertEval("argv <- list(-Inf, 1L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep4() {
+ assertEval("argv <- list(list(), 0L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep5() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep6() {
+ assertEval("argv <- list(c(4.60173175921079, 4.46741031725783, 4.30749719409961, 4.12438637683712, 4.51499342053481, 4.24874137138388, 3.92699081698724, 3.6052402625906, 3.92699081698724), 9L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep7() {
+ assertEval("argv <- list(c(3L, 6L), 2L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep8() {
+ assertEval("argv <- list(list(c(\' \', \' \')), 1L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep9() {
+ assertEval("argv <- list(structure(1:4, .Label = c(\'A\', \'B\', \'C\', \'D\'), class = \'factor\', .Names = c(\'a\', \'b\', \'c\', \'d\')), 10); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep10() {
+ assertEval("argv <- list(c(NA, 3L, 4L), 3L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep11() {
+ assertEval("argv <- list(c(NA, NA, 30, -30), 4L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep12() {
+ assertEval("argv <- list(c(2, 3, 4, 5, 6, 7, 12, 22), 8L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep13() {
+ assertEval("argv <- list(c(\'50-54\', \'55-59\', \'60-64\', \'65-69\', \'70-74\'), 20L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep14() {
+ assertEval("argv <- list(987.338461538462, 2L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep15() {
+ assertEval("argv <- list(1:5, 15); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep16() {
+ assertEval("argv <- list(c(NA, \'green\', \'black\', \'blue\'), 4L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep17() {
+ assertEval("argv <- list(1, 2L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep18() {
+ assertEval("argv <- list(0, 0L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrep19() {
+ assertEval("argv <- list(FALSE, 1L); .Internal(rep_len(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrepint.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrepint.java
new file mode 100644
index 0000000000000000000000000000000000000000..322de63afec07fdad39c43a99dc4d38ca9218bf9
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrepint.java
@@ -0,0 +1,180 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinrepint extends TestBase {
+
+ @Test
+ @Ignore
+ public void testrepint1() {
+ assertEval("argv <- list(1, 6); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint2() {
+ assertEval("argv <- list(NA_integer_, 1L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint3() {
+ assertEval("argv <- list(1L, 4L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint4() {
+ assertEval("argv <- list(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), 1); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint5() {
+ assertEval("argv <- list(FALSE, 0L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint6() {
+ assertEval("argv <- list(\'\', 2L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint7() {
+ assertEval("argv <- list(TRUE, 1L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint8() {
+ assertEval("argv <- list(\' \', 8L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint9() {
+ assertEval("argv <- list(c(-4L, 11L, 23L, -3L, -2L, -1L, -6L, 0L, 8L, -13L, 6L, -32L, -8L, NA, 0L), c(10L, 9L, 11L, 17L, 9L, 18L, 8L, 11L, 8L, 15L, 4L, 12L, 12L, 1L, 34L)); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint10() {
+ assertEval("argv <- list(c(1L, 1L, 2L, 2L), 6); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint11() {
+ assertEval("argv <- list(NA_character_, 3L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint12() {
+ assertEval("argv <- list(NA_character_, 5L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint13() {
+ assertEval("argv <- list(structure(1:4, .Label = c(\'A\', \'B\', \'C\', \'D\'), class = \'factor\', .Names = c(\'a\', \'b\', \'c\', \'d\')), 2); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint14() {
+ assertEval("argv <- list(2e-08, 9); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint15() {
+ assertEval("argv <- list(c(\'A\', \'B\'), structure(list(A = 2L, B = 1L), .Names = c(\'A\', \'B\'))); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint16() {
+ assertEval("argv <- list(0.8625, 2); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint17() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint18() {
+ assertEval("argv <- list(c(-1.74520963996789, -1.58308930128988, NA), 100L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint19() {
+ assertEval("argv <- list(structure(c(1974, 1974.08333333333, 1974.16666666667, 1974.25, 1974.33333333333, 1974.41666666667, 1974.5, 1974.58333333333, 1974.66666666667, 1974.75, 1974.83333333333, 1974.91666666667, 1975, 1975.08333333333, 1975.16666666667, 1975.25, 1975.33333333333, 1975.41666666667, 1975.5, 1975.58333333333, 1975.66666666667, 1975.75, 1975.83333333333, 1975.91666666667, 1976, 1976.08333333333, 1976.16666666667, 1976.25, 1976.33333333333, 1976.41666666667, 1976.5, 1976.58333333333, 1976.66666666667, 1976.75, 1976.83333333333, 1976.91666666667, 1977, 1977.08333333333, 1977.16666666667, 1977.25, 1977.33333333333, 1977.41666666667, 1977.5, 1977.58333333333, 1977.66666666667, 1977.75, 1977.83333333333, 1977.91666666667, 1978, 1978.08333333333, 1978.16666666667, 1978.25, 1978.33333333333, 1978.41666666667, 1978.5, 1978.58333333333, 1978.66666666667, 1978.75, 1978.83333333333, 1978.91666666667, 1979, 1979.08333333333, 1979.16666666667, 1979.25, 1979.33333333333, 1979.41666666667, 1979.5, 1979.58333333333, 1979.66666666667, 1979.75, 1979.83333333333, 1979.91666666667), .Tsp = c(1974, 1979.91666666667, 12), class = \'ts\'), 3L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint20() {
+ assertEval("argv <- list(NA, 10L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint21() {
+ assertEval("argv <- list(c(\'C\', \'A\', \'B\'), structure(list(C = 1L, A = 1L, B = 1L), .Names = c(\'C\', \'A\', \'B\'))); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint22() {
+ assertEval("argv <- list(NA_real_, 4L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint23() {
+ assertEval("argv <- list(0.26784, 49); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint24() {
+ assertEval("argv <- list(3.1e-06, 49); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint25() {
+ assertEval("argv <- list(NA, 5L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint26() {
+ assertEval("argv <- list(TRUE, 6L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrepint27() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101), .Tsp = c(1, 101, 1), class = \'ts\'), 3L); .Internal(rep.int(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinretracemem.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinretracemem.java
new file mode 100644
index 0000000000000000000000000000000000000000..85830a5e38226bc4d9ac8e6a868509d0cfbbf344
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinretracemem.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinretracemem extends TestBase {
+
+ @Test
+ @Ignore
+ public void testretracemem1() {
+ assertEval("argv <- list(FALSE, FALSE);retracemem(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testretracemem2() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')), structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));retracemem(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrow.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrow.java
new file mode 100644
index 0000000000000000000000000000000000000000..985557144f5452c9d7a9dfa3103653e0bf90a98e
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrow.java
@@ -0,0 +1,36 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinrow extends TestBase {
+
+ @Test
+ @Ignore
+ public void testrow1() {
+ assertEval("argv <- list(c(14L, 14L)); .Internal(row(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrow2() {
+ assertEval("argv <- list(c(4L, 3L)); .Internal(row(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrow3() {
+ assertEval("argv <- list(0:1); .Internal(row(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrowMeans.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrowMeans.java
new file mode 100644
index 0000000000000000000000000000000000000000..b5e7423bdc16e6ae19517a6bfb8c32750aae321e
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrowMeans.java
@@ -0,0 +1,34 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinrowMeans extends TestBase {
+
+ @Test
+ public void testrowMeans1() {
+ assertEval("argv <- list(structure(c(3, 3, NA, 3, 3, 3, 3, 3, 4, 3, NA, NA, 2, 3, 4, 5), .Dim = c(8L, 2L), .Dimnames = list(NULL, c(\'x1\', \'x2\'))), 8, 2, TRUE); .Internal(rowMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrowMeans2() {
+ assertEval("argv <- list(structure(c(50.7138381326659, 6.51590327164277, 24.9887625571708, 6.50401666172534, 16.6227411608333, 24.2873904534041, 56.036205319809, 9.42637482307856, 6.7207351702689e-16, 6.51590327164276, 106.05353593478, 13.0563348605106, 29.556736958112, 26.535297847233, 83.1597312749807, 86.1180411620546, 4.28836475146602, 3.05748120025494e-16, 24.9887625571708, 13.0563348605107, 382.901882167719, 28.709795659465, 7.19910301202793, 51.849911207061, 76.6652389324741, 13.4232601222667, 9.57039987233639e-16, 6.50401666172536, 29.556736958112, 28.709795659465, 286.290790661071, 29.5533327979648, 105.611010510127, 106.256264404531, 22.4644024278478, 1.60164752950704e-15, 16.6227411608333, 26.535297847233, 7.19910301202793, 29.5533327979648, 611.022025519874, 52.7749434153259, 19.5698513619914, 23.9507376116895, 1.70761896956049e-15, 24.2873904534041, 83.1597312749807, 51.849911207061, 105.611010510127, 52.7749434153259, 736.165134132116, 133.440685552903, 91.9053353168322, 6.55258708668096e-15, 56.036205319809, 86.1180411620546, 76.6652389324741, 106.256264404531, 19.5698513619915, 133.440685552903, 1401.55449200362, 107.582093653927, 7.67029504004995e-15, 9.42637482307856, 4.28836475146602, 13.4232601222667, 22.4644024278478, 23.9507376116895, 91.9053353168321, 107.582093653927, 57.6052682140803, 4.10709057665822e-15, 6.7207351702689e-16, 3.05748120025493e-16, 9.57039987233639e-16, 1.60164752950703e-15, 1.70761896956049e-15, 6.55258708668095e-15, 7.67029504004995e-15, 4.10709057665822e-15, 2.92823790737107e-31), .Dim = c(9L, 9L)), 9, 9, FALSE); .Internal(rowMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testrowMeans3() {
+ assertEval("argv <- list(structure(c(2, 2, NA, 2, 2, 2, 2, 2, -5, -5, NA, NA, -5, -5, -5, -5), .Dim = c(8L, 2L), .Dimnames = list(NULL, c(\'x1\', \'x2\'))), 8, 2, TRUE); .Internal(rowMeans(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrowSums.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrowSums.java
new file mode 100644
index 0000000000000000000000000000000000000000..1b0c5655a94be44d7863e03fae550be1d41728e0
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrowSums.java
@@ -0,0 +1,53 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinrowSums extends TestBase {
+
+ @Test
+ public void testrowSums1() {
+ assertEval("argv <- list(structure(c(1L, 0L, 0L, 0L, 2L, 0L, 0L, 0L, 3L), .Dim = c(3L, 3L)), 3, 3, FALSE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testrowSums2() {
+ assertEval("argv <- list(structure(c(0.999999999999996, -5.93240323105314e-31, -1.22690013807617e-30, -2.66771163434776e-30, 6.26446113912225e-17, -5.95448228496283e-17, -3.41105197331973e-17, 2.9023639112071e-17, -1.98544126594555e-18, 5.0222594521389e-17, -2.11849144310153e-17, 1.78452635853509e-17, -6.4482597529713e-30, -5.93240323105314e-31, 1, -2.70177878542148e-31, 4.10223078154481e-30, -7.29760565072095e-17, 4.21528303119361e-16, 1.69346505683726e-16, -8.46179388945247e-17, -2.12579366024309e-17, -1.08608258515243e-16, -1.91006916081825e-17, -1.09544412010741e-16, 1.52841800386571e-30, -1.22690013807617e-30, -2.70177878542148e-31, 1, 5.63751592936848e-30, 4.44597451723816e-17, -1.70262938021701e-16, -4.55196812407612e-17, 1.77744051006272e-17, -5.96596846288922e-17, 9.58999363873063e-17, -5.74900426053008e-17, 1.14815157965335e-16, -3.6669706141133e-30, -2.66771163434776e-30, 4.10223078154481e-30, 5.63751592936848e-30, 1, -5.9187048613625e-18, -1.70068399080916e-16, -6.90189597604163e-18, -6.36439216662415e-19, -4.18657854049523e-19, 3.0354538418548e-17, -7.42749951284567e-18, -8.90495022022045e-18, 1.55306990715387e-30, 6.26446113912225e-17, -7.29760565072095e-17, 4.44597451723816e-17, -5.9187048613625e-18, 0.55411820856073, -0.00247216583270833, -0.0121967562426746, -0.0136834443420207, 0.00612437416936414, -0.00919613834986896, -0.017907465564047, 0.0210800496836485, 0, -5.95448228496283e-17, 4.21528303119361e-16, -1.70262938021701e-16, -1.70068399080916e-16, -0.00247216583270833, 0.0915588872840349, 0.00402469784261988, 0.0225004116141538, 0.00428277377776577, 0.0217395090957974, 0.00506691575079725, -0.155787004553276, -1.57863385792422e-15, -3.41105197331973e-17, 1.69346505683726e-16, -4.55196812407612e-17, -6.90189597604163e-18, -0.0121967562426746, 0.00402469784261988, 0.00831687169973403, 0.00905869237132552, 0.00121203034126938, 0.00939616211925082, 0.00270063068023987, -0.0350427136160765, 1.66845523703974e-15, 2.9023639112071e-17, -8.46179388945247e-17, 1.77744051006272e-17, -6.36439216662415e-19, -0.0136834443420207, 0.0225004116141538, 0.00905869237132552, 0.0237646346509256, 0.0107094040391417, 0.0632843775518589, 0.0165995956409034, -0.317638195769953, 3.75582594532732e-16, -1.98544126594555e-18, -2.12579366024309e-17, -5.96596846288922e-17, -4.18657854049523e-19, 0.00612437416936414, 0.00428277377776577, 0.00121203034126938, 0.0107094040391417, 0.000250414165674235, 0.0118733901248423, 0.0032448838873885, -0.0719898325072222, -4.32029144045995e-15, 5.0222594521389e-17, -1.08608258515243e-16, 9.58999363873063e-17, 3.0354538418548e-17, -0.00919613834986896, 0.0217395090957974, 0.00939616211925082, 0.0632843775518589, 0.0118733901248423, 0.0578950164197554, 0.0182925914744869, -0.367565522079614, -1.23944977824402e-15, -2.11849144310153e-17, -1.91006916081825e-17, -5.74900426053008e-17, -7.42749951284567e-18, -0.017907465564047, 0.00506691575079725, 0.00270063068023987, 0.0165995956409034, 0.0032448838873885, 0.0182925914744869, 0.00349919192597366, -0.0788502030216034, 0, 1.78452635853509e-17, -1.09544412010741e-16, 1.14815157965335e-16, -8.90495022022045e-18, 0.0210800496836485, -0.155787004553276, -0.0350427136160765, -0.317638195769953, -0.0719898325072222, -0.367565522079614, -0.0788502030216034, 2.49598569418347, -8.69223914290117e-16, -6.4482597529713e-30, 1.52841800386571e-30, -3.6669706141133e-30, 1.55306990715387e-30, 0, -1.57863385792422e-15, 1.66845523703974e-15, 3.75582594532732e-16, -4.32029144045995e-15, -1.23944977824402e-15, 0, -8.69223914290117e-16, 1), .Dim = c(13L, 13L), .Dimnames = list(c(\'(Intercept)\', \'fac2\', \'fac3\', \'fac4\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'\'), NULL)), 13, 13, FALSE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testrowSums3() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(16L, 16L), .Dimnames = list(NULL, NULL)), 16, 16, TRUE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testrowSums4() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(16L, 16L), .Dimnames = list(NULL, NULL)), 16, 16, FALSE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testrowSums5() {
+ assertEval("argv <- list(structure(numeric(0), .Dim = c(0L, 3L), .Dimnames = list(NULL, c(\'wt.loss\', \'age\', \'I(age)\'))), 0, 3, FALSE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testrowSums6() {
+ assertEval("argv <- list(structure(c(1L, 0L, 1L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 1L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), .Dim = c(61L, 4L), .Dimnames = list(c(\'190\', \'191\', \'192\', \'193\', \'194\', \'195\', \'196\', \'197\', \'198\', \'199\', \'200\', \'201\', \'202\', \'203\', \'204\', \'205\', \'206\', \'207\', \'208\', \'209\', \'210\', \'211\', \'212\', \'213\', \'214\', \'215\', \'216\', \'217\', \'218\', \'219\', \'220\', \'221\', \'222\', \'223\', \'224\', \'225\', \'226\', \'227\', \'228\', \'229\', \'230\', \'231\', \'232\', \'233\', \'234\', \'235\', \'236\', \'237\', \'238\', \'239\', \'240\', \'241\', \'242\', \'243\', \'244\', \'245\', \'246\', \'247\', \'248\', \'249\', \'250\'), NULL)), 61, 4, FALSE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testrowSums7() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(16L, 16L), .Dimnames = list(NULL, NULL)), 16, 16, TRUE); .Internal(rowSums(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrowsum.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrowsum.java
new file mode 100644
index 0000000000000000000000000000000000000000..747cf16c2eebf8cc26a3807e388ed1dce331b44a
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrowsum.java
@@ -0,0 +1,66 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinrowsum extends TestBase {
+
+ @Test
+ @Ignore
+ public void testrowsum1() {
+ assertEval("argv <- list(structure(1:12, .Dim = 3:4), c(\'Y\', \'X\', \'Y\'), c(\'X\', \'Y\'), FALSE, c(\'X\', \'Y\')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrowsum2() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2.83678930089809, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.807183221448213, 0, 0, 0, 0, 0, 0, 0, 2.28512598329689, 0, 2.63247834995855, 0, 2.20238351041917, 0, 0.769295244943351, 0, 0, 0, 0, 0, 2.39247868547682, 2.35872046276927, 0, 1.96863683476113, 1.77908247814048, 0, 0, 0, 1.30635392456315, 0, 1.90387659717817, 0, 0.869405556702986, 1.81335102661978, 2.03683243726846, 0, 0.594853387563489, 0, 0, 0.546043346519582, 2.43847447982989, 0, 0, 2.01202685781755, 0, 2.67064226802904, 2.9177625705488, 0.566296850563958, 0, 1.07001449051313, 1.02747153153177, 0, 1.14719850081019, 2.56380862975493, 0.760732567403466, 0.778199262684211, 0, 0.871444851625711, 2.75724254851229, 1.6366914055543, 0.606628090143204, 1.09201998403296, 0.729518678388558, 2.26406822516583, 2.41699231159873, 1.90058654651511), .Names = c(\'7\', \'8\', \'12\', \'13\', \'19\', \'22\', \'26\', \'31\', \'34\', \'36\', \'38\', \'40\', \'42\', \'43\', \'44\', \'46\', \'50\', \'51\', \'57\', \'59\', \'60\', \'61\', \'64\', \'67\', \'68\', \'72\', \'75\', \'76\', \'77\', \'78\', \'84\', \'87\', \'89\', \'94\', \'95\', \'100\', \'101\', \'102\', \'107\', \'110\', \'114\', \'115\', \'122\', \'123\', \'129\', \'130\', \'131\', \'134\', \'136\', \'137\', \'141\', \'144\', \'146\', \'150\', \'153\', \'154\', \'157\', \'160\', \'161\', \'162\', \'166\', \'167\', \'172\', \'174\', \'176\', \'178\', \'179\', \'180\', \'183\', \'184\', \'185\', \'186\', \'187\', \'197\', \'199\', \'201\', \'203\', \'204\', \'205\', \'207\', \'208\', \'210\', \'211\', \'214\', \'217\', \'219\', \'220\', \'222\', \'226\', \'228\')), structure(c(310, 361, 654, 728, 61, 81, 520, 473, 107, 122, 965, 731, 153, 433, 145, 95, 765, 735, 5, 687, 345, 444, 60, 208, 821, 305, 226, 426, 705, 363, 167, 641, 740, 245, 588, 166, 559, 450, 529, 351, 201, 524, 199, 550, 551, 543, 293, 511, 511, 371, 201, 62, 356, 340, 315, 182, 364, 376, 384, 268, 266, 194, 348, 382, 296, 186, 145, 269, 350, 272, 292, 332, 285, 243, 276, 79, 240, 202, 235, 224, 239, 173, 252, 92, 192, 211, 175, 203, 105, 177), .Names = c(\'7\', \'8\', \'12\', \'13\', \'19\', \'22\', \'26\', \'31\', \'34\', \'36\', \'38\', \'40\', \'42\', \'43\', \'44\', \'46\', \'50\', \'51\', \'57\', \'59\', \'60\', \'61\', \'64\', \'67\', \'68\', \'72\', \'75\', \'76\', \'77\', \'78\', \'84\', \'87\', \'89\', \'94\', \'95\', \'100\', \'101\', \'102\', \'107\', \'110\', \'114\', \'115\', \'122\', \'123\', \'129\', \'130\', \'131\', \'134\', \'136\', \'137\', \'141\', \'144\', \'146\', \'150\', \'153\', \'154\', \'157\', \'160\', \'161\', \'162\', \'166\', \'167\', \'172\', \'174\', \'176\', \'178\', \'179\', \'180\', \'183\', \'184\', \'185\', \'186\', \'187\', \'197\', \'199\', \'201\', \'203\', \'204\', \'205\', \'207\', \'208\', \'210\', \'211\', \'214\', \'217\', \'219\', \'220\', \'222\', \'226\', \'228\')), c(5, 60, 61, 62, 79, 81, 92, 95, 105, 107, 122, 145, 153, 166, 167, 173, 175, 177, 182, 186, 192, 194, 199, 201, 202, 203, 208, 211, 224, 226, 235, 239, 240, 243, 245, 252, 266, 268, 269, 272, 276, 285, 292, 293, 296, 305, 310, 315, 332, 340, 345, 348, 350, 351, 356, 361, 363, 364, 371, 376, 382, 384, 426, 433, 444, 450, 473, 511, 520, 524, 529, 543, 550, 551, 559, 588, 641, 654, 687, 705, 728, 731, 735, 740, 765, 821, 965), FALSE, c(\'5\', \'60\', \'61\', \'62\', \'79\', \'81\', \'92\', \'95\', \'105\', \'107\', \'122\', \'145\', \'153\', \'166\', \'167\', \'173\', \'175\', \'177\', \'182\', \'186\', \'192\', \'194\', \'199\', \'201\', \'202\', \'203\', \'208\', \'211\', \'224\', \'226\', \'235\', \'239\', \'240\', \'243\', \'245\', \'252\', \'266\', \'268\', \'269\', \'272\', \'276\', \'285\', \'292\', \'293\', \'296\', \'305\', \'310\', \'315\', \'332\', \'340\', \'345\', \'348\', \'350\', \'351\', \'356\', \'361\', \'363\', \'364\', \'371\', \'376\', \'382\', \'384\', \'426\', \'433\', \'444\', \'450\', \'473\', \'511\', \'520\', \'524\', \'529\', \'543\', \'550\', \'551\', \'559\', \'588\', \'641\', \'654\', \'687\', \'705\', \'728\', \'731\', \'735\', \'740\', \'765\', \'821\', \'965\')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrowsum3() {
+ assertEval("argv <- list(numeric(0), numeric(0), numeric(0), FALSE, character(0)); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrowsum4() {
+ assertEval("argv <- list(structure(c(0.432389384893196, 2.31273022636069, 0, 2.31273022636069, 0.432389384893196, 0), .Names = c(\'1\', \'3\', \'4\', \'5\', \'6\', \'7\')), structure(c(9, 1, 1, 6, 6, 8), .Names = c(\'1\', \'3\', \'4\', \'5\', \'6\', \'7\')), c(1, 6, 8, 9), FALSE, c(\'1\', \'6\', \'8\', \'9\')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrowsum5() {
+ assertEval("argv <- list(structure(c(0.102430555555556, 0.102430555555556, 0.102430555555556, 0.546875, -0.078125, 0.477430555555556, -0.0642361111111111, 0.102430555555556), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\')), structure(1:8, .Label = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\'), class = \'factor\'), structure(1:8, .Label = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\'), class = \'factor\'), FALSE, c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrowsum6() {
+ assertEval("argv <- list(structure(c(0, 0.719170679378362, -0.280829320621638, 0, -0.43834135875385, 0, -0.0525040127116955, 0.783590877798991, -0.365543432545085, -0.0525040127116955, -0.31303941983339, 0, 0, NA), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\')), c(3, 3, 4, 5, 5, 6, 6, 6, 7, 1, 1, 1, 1, 2), c(1, 2, 3, 4, 5, 6, 7), FALSE, c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrowsum7() {
+ assertEval("argv <- list(structure(c(0.10270237599789, 2.6083215370191, 11.0196744330572, 2.6083215370191, 0.10270237599789, 0.10270237599789, 0.10270237599789, -0.441795512568419, 2.6083215370191, 0.10270237599789, -0.441795512568419), .Dim = c(11L, 1L), .Dimnames = list(c(\'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\'), \'x\')), structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), .Names = c(\'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\')), c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11), FALSE, c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testrowsum8() {
+ assertEval("argv <- list(structure(c(1.33333333333333, -1.33333333333333, 1, 1.33333333333333, -2, 0.666666666666667, -0.666666666666667, 0.666666666666667, -0.666666666666667), .Dim = c(9L, 1L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\'), \'x\')), structure(c(1, 1, 2, 2, 2, 2, 3, 4, 5), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\')), c(1, 2, 3, 4, 5), FALSE, c(\'1\', \'2\', \'3\', \'4\', \'5\')); .Internal(rowsum_matrix(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsample.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsample.java
new file mode 100644
index 0000000000000000000000000000000000000000..46152ad31fc909be37f278e7d61d249511ce8ec2
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsample.java
@@ -0,0 +1,33 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsample extends TestBase {
+
+ @Test
+ public void testsample1() {
+ assertEval("argv <- list(0L, 0L, FALSE, NULL); .Internal(sample(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testsample2() {
+ assertEval("argv <- list(1L, 1L, FALSE, NULL); .Internal(sample(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testsample3() {
+ assertEval("argv <- list(2L, 499, TRUE, c(0, 0.525)); .Internal(sample(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsep.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsep.java
new file mode 100644
index 0000000000000000000000000000000000000000..7bc31467698a7b6e27d6591877f9431d5281afbb
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsep.java
@@ -0,0 +1,181 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsep extends TestBase {
+
+ @Test
+ public void testsep1() {
+ assertEval("argv <- list(1, 1);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep2() {
+ assertEval("argv <- list(c(-3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L, -3L, -2L, -1L, 0L, 1L, 2L, 3L, 4L, 5L), c(-3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -3L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -2L, -1L, -1L, -1L, -1L, -1L, -1L, -1L, -1L, -1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep3() {
+ assertEval("argv <- list(structure(c(NA, 17.4716236802524, 0.424429400003, -2.45474630431729, -8.6855922903657, -11.7956139807344, -8.08147081196715, -13.3123167980156, -1.24650334752019, 21.281002075072, -5.32311940332657, 0.621869751489083, -19.2022951076469, -0.543162784063959, NA, NA, 15.344649382745, -9.74060313555005, 0.149375174081257, -5.85062482591874, -6.90563567110309, -9.96064651628744, 5.6326723568001, -8.78481137542338, -6.01565736147178, -15.543162784064, 2.34681552556734, -13.2465033475202, -3.82901961529671, 1.5226506664314, NA, -5.9777558474085, 22.7534966524798, 15.5010454558094, 4.13857256877024, -11.6855922903657, 11.6768805966734, -7.38893285382193, 10.8527157375375, -11.3889328538219, 14.1493751740813, -0.388932853821931, 13.0835617235859, -1.98225172690947, 5.96273742790618, -1.50975714950164, -1.38893285382193, 9.90772658272184, 7.3144077096343, -12.9822517269095, 2.02855087840155, -4.7956139807344, 3.14937517408126, -10.3231194033266, -2.25730595283121, 2.56685890630474, 4.27019946976097, 5.14937517408126, 0.0285508784015471, 5.85271573753749, 6.73189144185778, -6.38893285382193, 0.0285508784015471, -3.14728426246251, 15.1493751740813, 13.7869022870421, -7.27891116345324, 9.61106714617807, 4.84191313222647, -3.98225172690947, -6.38893285382193, 13.0285508784015, 5.13857256877024, -8.50975714950164, -0.619778839870337, -3.97144912159845, 23.1493751740813, -2.80641658604541, -1.03726257209382, 2.25939686444995, 4.25939686444995, -4.38893285382193, 6.38022116012966, -4.74060313555005, 2.02855087840155, -15.7956139807344, 8.21518862457662, -12.0264599667828, -2.1364816571515, 5.8635183428485, -14.729800530239, 4.80850749766416, -11.7848113754234, 9.45683721593604, -15.2573059528312, 5.28100207507198, 12.8635183428485, 6.50104545580937, 1.55605630099372, -7.44394369900628, 9.9735400332172, -11.2681085581422, 7.44603461062503, -8.14728426246251, -1.72980053023903, -3.90563567110309, 4.56685890630474, -5.37813024851092, -1.25730595283121, 10.7426940471688, NA, NA, 6.24343998511081, -21.9164382764141, -6.1364816571515, -15.8398222206077, -4.12567905184048, -7.94984391097642, -6.4773493335686, -5.65318447443266), .Tsp = c(1945, 1974.75, 4), class = \'ts\'), 9.24492052298191);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep4() {
+ assertEval("argv <- list(structure(-0.437222043740988, .Names = \'Var2\'), 6.28318530717959);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep5() {
+ assertEval("argv <- list(structure(integer(0), .Label = character(0), class = \'factor\'));`/`(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep6() {
+ assertEval("argv <- list(structure(c(25.1597633136098, 12.8284023668648), .Dim = 2L, .Dimnames = list(c(\'1\', \'2\'))), c(13L, 13L));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testsep7() {
+ assertEval("argv <- list(1e+05, 3);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep8() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 6L, 2L, 4L, 3L, 7L, 2L, 8L, 4L, 2L, 2L, 1L, 3L, 3L, 4L, 3L, 2L, 1L, 2L, 3L, 1L, 1L, 2L, 1L, 3L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 4L, 1L, 1L, 1L, 1L, 2L, 1L, 5L, 2L, 1L, 3L, 2L, 1L, 1L, 6L, 2L, 1L, 2L, 5L, 2L, 2L, 2L, 4L, 4L, 1L, 1L, 3L, 4L, 2L, 2L, 2L, 1L, 5L, 4L, 1L, 3L, 1L, 1L, 4L, 2L, 3L, 2L, 1L, 8L, 1L, 5L, 1L, 3L, 4L, 4L, 1L, 3L, 1L, 2L, 6L, 1L, 1L, 1L, 1L, 1L, 6L, 2L, 2L, 1L, 1L, 2L, 3L, 1L, 1L, 1L, 1L), .Dim = 126L, .Dimnames = structure(list(fe = c(\'1.6\', \'1.667\', \'1.7\', \'1.733\', \'1.75\', \'1.783\', \'1.8\', \'1.817\', \'1.833\', \'1.85\', \'1.867\', \'1.883\', \'1.917\', \'1.933\', \'1.95\', \'1.967\', \'1.983\', \'2\', \'2.017\', \'2.033\', \'2.067\', \'2.083\', \'2.1\', \'2.133\', \'2.15\', \'2.167\', \'2.183\', \'2.2\', \'2.217\', \'2.233\', \'2.25\', \'2.267\', \'2.283\', \'2.3\', \'2.317\', \'2.333\', \'2.35\', \'2.367\', \'2.383\', \'2.4\', \'2.417\', \'2.483\', \'2.617\', \'2.633\', \'2.8\', \'2.883\', \'2.9\', \'3.067\', \'3.317\', \'3.333\', \'3.367\', \'3.417\', \'3.45\', \'3.5\', \'3.567\', \'3.6\', \'3.683\', \'3.717\', \'3.733\', \'3.75\', \'3.767\', \'3.817\', \'3.833\', \'3.85\', \'3.883\', \'3.917\', \'3.95\', \'3.966\', \'3.967\', \'4\', \'4.033\', \'4.05\', \'4.067\', \'4.083\', \'4.1\', \'4.117\', \'4.133\', \'4.15\', \'4.167\', \'4.183\', \'4.2\', \'4.233\', \'4.25\', \'4.267\', \'4.283\', \'4.3\', \'4.317\', \'4.333\', \'4.35\', \'4.366\', \'4.367\', \'4.383\', \'4.4\', \'4.417\', \'4.433\', \'4.45\', \'4.467\', \'4.483\', \'4.5\', \'4.517\', \'4.533\', \'4.55\', \'4.567\', \'4.583\', \'4.6\', \'4.617\', \'4.633\', \'4.65\', \'4.667\', \'4.7\', \'4.716\', \'4.733\', \'4.75\', \'4.767\', \'4.783\', \'4.8\', \'4.817\', \'4.833\', \'4.85\', \'4.883\', \'4.9\', \'4.933\', \'5\', \'5.033\', \'5.067\', \'5.1\')), .Names = \'fe\'), class = \'table\'), 272L);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep9() {
+ assertEval("argv <- list(c(-20.7752893729399+0i, -22.2629231778254+0i, 30.2366932497517-0i, -17.7609104766206+0i, -12.009450871146+0i, -20.6744466063748+0i, -16.2509653806178-0i, 14.8872572302678-0i, -2.41214022512376e+00+5e-15i, 30.1945691318138-0i, -14.86107358966-0i, -75.7334659810725-0i, -31.7348183989382+0i, 33.742775143777-0i, 26.1570616797447-0i, 37.7317903854624+0i, -7.20820970337446-0i, 38.6698755921621-0i, -26.4295844393936-0i, 26.3000016960339+0i, -16.3754767271763+0i, -7.29593605495242-0i, 9.19886724090888+0i, -35.3925832738897+0i, 21.0943018303757+0i, 4.90714440628349-0i), 26L);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep10() {
+ assertEval("argv <- list(c(0, 9.88131291682493e-324, 1.03753785626662e-322, 1.02271588689138e-321, 1.02320995253722e-320, 1.02330876566639e-319, 1.02329394369701e-318, 1.02329295556572e-317, 1.02329300497229e-316, 1.02329299015032e-315, 1.02329299212658e-314, 1.0232929922748e-313, 1.02329299227974e-312, 1.02329299228073e-311, 1.02329299228073e-310, 1.02329299228073e-309, 1.02329299228073e-308, 1.02329299228073e-307), 1.02329299228075);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep11() {
+ assertEval("argv <- list(structure(c(29.35, 23.32, 23.8, 41.89, 42.19, 31.72, 39.74, 44.75, 46.64, 47.64, 24.42, 46.31, 27.84, 25.06, 23.31, 25.62, 46.05, 47.32, 34.03, 41.31, 31.16, 24.52, 27.01, 41.74, 21.8, 32.54, 25.95, 24.71, 32.61, 45.04, 43.56, 41.18, 44.19, 46.26, 28.96, 31.94, 31.92, 27.74, 21.44, 23.49, 43.42, 46.12, 23.27, 29.81, 46.4, 45.25, 41.12, 28.13, 43.69, 47.2, 2.86999999999999, 4.41, 4.43, 1.67, 0.829999999999999, 2.85, 1.34, 0.669999999999999, 1.06, 1.14, 3.93, 1.19, 2.37, 4.7, 3.35, 3.1, 0.869999999999999, 0.579999999999999, 3.08, 0.959999999999999, 4.19, 3.48, 1.91, 0.909999999999999, 3.73, 2.47, 3.67, 3.25, 3.17, 1.21, 1.2, 1.05, 1.28, 1.12, 2.85, 2.28, 1.52, 2.87, 4.54, 3.73, 1.08, 1.21, 4.46, 3.43, 0.899999999999999, 0.559999999999999, 1.73, 2.72, 2.07, 0.659999999999999, 2329.68000000001, 1507.99, 2108.47, 189.130000000001, 728.470000000001, 2982.88, 662.860000000001, 289.520000000001, 276.650000000001, 471.240000000001, 2496.53, 287.770000000001, 1681.25, 2213.82, 2457.12, 870.85, 289.710000000001, 232.440000000001, 1900.1, 88.940000000001, 1139.95, 1390, 1257.28, 207.680000000001, 2449.39, 601.050000000001, 2231.03, 1740.7, 1487.52, 325.540000000001, 568.560000000001, 220.560000000001, 400.060000000001, 152.010000000001, 579.51, 651.110000000001, 250.960000000001, 768.79, 3299.49, 2630.96, 389.660000000001, 249.870000000001, 1813.93, 4001.89, 813.390000000001, 138.330000000001, 380.470000000001, 766.54, 123.580000000001, 242.690000000001, 2.87000000000001, 3.93, 3.82, 0.219999999999998, 4.56, 2.43, 2.67, 6.51, 3.08, 2.8, 3.99, 2.19, 4.32, 4.52, 3.44, 6.28, 1.48, 3.19, 1.12, 1.54, 2.99, 3.54, 8.21, 5.81, 1.57, 8.12, 3.62, 7.66, 1.76, 2.48, 3.61, 1.03, 0.670000000000002, 2, 7.48, 2.19, 2, 4.35, 3.01, 2.7, 2.96, 1.13, 2.01, 2.45, 0.530000000000004, 5.14, 10.23, 1.88, 16.71, 5.08), .Dim = c(50L, 4L), .Dimnames = list(c(\'Australia\', \'Austria\', \'Belgium\', \'Bolivia\', \'Brazil\', \'Canada\', \'Chile\', \'China\', \'Colombia\', \'Costa Rica\', \'Denmark\', \'Ecuador\', \'Finland\', \'France\', \'Germany\', \'Greece\', \'Guatamala\', \'Honduras\', \'Iceland\', \'India\', \'Ireland\', \'Italy\', \'Japan\', \'Korea\', \'Luxembourg\', \'Malta\', \'Norway\', \'Netherlands\', \'New Zealand\', \'Nicaragua\', \'Panama\', \'Paraguay\', \'Peru\', \'Philippines\', \'Portugal\', \'South Africa\', \'South Rhodesia\', \'Spain\', \'Sweden\', \'Switzerland\', \'Turkey\', \'Tunisia\', \'United Kingdom\', \'United States\', \'Venezuela\', \'Zambia\', \'Jamaica\', \'Uruguay\', \'Libya\', \'Malaysia\'), c(\'pop15\', \'pop75\', \'dpi\', \'ddpi\'))), structure(c(29.35, 23.32, 23.8, 41.89, 42.19, 31.72, 39.74, 44.75, 46.64, 47.64, 24.42, 46.31, 27.84, 25.06, 23.31, 25.62, 46.05, 47.32, 34.03, 41.31, 31.16, 24.52, 27.01, 41.74, 21.8, 32.54, 25.95, 24.71, 32.61, 45.04, 43.56, 41.18, 44.19, 46.26, 28.96, 31.94, 31.92, 27.74, 21.44, 23.49, 43.42, 46.12, 23.27, 29.81, 46.4, 45.25, 41.12, 28.13, 43.69, 47.2, 2.87, 4.41, 4.43, 1.67, 0.83, 2.85, 1.34, 0.67, 1.06, 1.14, 3.93, 1.19, 2.37, 4.7, 3.35, 3.1, 0.87, 0.58, 3.08, 0.96, 4.19, 3.48, 1.91, 0.91, 3.73, 2.47, 3.67, 3.25, 3.17, 1.21, 1.2, 1.05, 1.28, 1.12, 2.85, 2.28, 1.52, 2.87, 4.54, 3.73, 1.08, 1.21, 4.46, 3.43, 0.9, 0.56, 1.73, 2.72, 2.07, 0.66, 2329.68, 1507.99, 2108.47, 189.130000000001, 728.470000000001, 2982.88, 662.860000000001, 289.520000000001, 276.650000000001, 471.240000000001, 2496.53, 287.770000000001, 1681.25, 2213.82, 2457.12, 870.85, 289.710000000001, 232.440000000001, 1900.1, 88.9400000000012, 1139.95, 1390, 1257.28, 207.680000000001, 2449.39, 601.050000000001, 2231.03, 1740.7, 1487.52, 325.540000000001, 568.560000000001, 220.560000000001, 400.060000000001, 152.010000000001, 579.51, 651.11, 250.960000000001, 768.79, 3299.49, 2630.96, 389.660000000001, 249.870000000001, 1813.93, 4001.89, 813.390000000001, 138.330000000001, 380.470000000001, 766.54, 123.580000000001, 242.690000000001, 2.87, 3.92999999999999, 3.82, 0.22, 4.56, 2.43, 2.67, 6.51, 3.08, 2.8, 3.99, 2.19, 4.32, 4.52, 3.44, 6.28, 1.48, 3.19, 1.12, 1.54, 2.99, 3.54, 8.21, 5.81, 1.57, 8.12, 3.62, 7.66, 1.76, 2.48, 3.61, 1.03, 0.670000000000002, 2, 7.48, 2.19, 2, 4.35, 3.01, 2.7, 2.96, 1.13, 2.01, 2.45, 0.530000000000002, 5.14, 10.23, 1.88, 16.71, 5.08), .Dim = c(50L, 4L), .Dimnames = list(NULL, c(\'pop15\', \'pop75\', \'dpi\', \'ddpi\'))));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testsep12() {
+ assertEval("argv <- list(1, c(6.25, 36, 36, 56.25, 64, 64, 256, 36, 25, 36, 784, 25, 90.25, 36, 20.25, 100, 196, 9, 20.25, 30.25, 9, 12.25, 36, 4, 9, 16, 36, 25, 42.25, 25, 100, 36, 324, 20.25, 400));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep13() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'), structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = \'data.frame\'));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep14() {
+ assertEval("argv <- list(structure(list(A = c(52L, 52L, 47L, 45L, 40L, 37L, 27L, 27L, 23L, 22L, 21L, 25L, 24L, 22L, 22L, 20L, 16L, 17L, 14L, 13L, 13L, 14L, 24L), F = c(42L, 44L, 48L, 49L, 50L, 54L, 58L, 54L, 59L, 59L, 60L, 53L, 54L, 55L, 56L, 58L, 62L, 57L, 54L, 55L, 52L, 47L, 56L), M = c(6L, 4L, 5L, 6L, 10L, 9L, 15L, 19L, 18L, 19L, 19L, 22L, 22L, 23L, 22L, 22L, 22L, 26L, 32L, 32L, 35L, 39L, 20L)), .Names = c(\'A\', \'F\', \'M\'), class = \'data.frame\', row.names = c(NA, 23L)), 100);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep15() {
+ assertEval("argv <- list(c(1, 0), structure(c(1, 0, 0, 1), .Dim = c(2L, 2L)));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep16() {
+ assertEval("argv <- list(structure(c(126.49966838981, 123.340306958365, 124.994330270046, 129.001056705356, 131.639025779016, 124.408594738421, 125.475982014377, 125.929559340094, 126.630542479839, 127.249057014908, 127.661400038288, 128.403617480371, 129.888052364537, 131.702361667407, 133.516670970277, 135.001105854443, 135.990729110554, 137.310226785368, 144.127817178676, 144.648818160919, 147.114894939813, 142.21953431078, 139.936534657354, 152.343274976711), .Tsp = c(1949, 1950.91666666667, 12), class = \'ts\'), structure(c(NA, NA, NA, NA, NA, NA, 126.791666666667, 127.25, 127.958333333333, 128.583333333333, 129, 129.75, 131.25, 133.083333333333, 134.916666666667, 136.416666666667, 137.416666666667, 138.75, NA, NA, NA, NA, NA, NA), .Tsp = c(1949, 1950.91666666667, 12), class = \'ts\'));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep17() {
+ assertEval("argv <- list(structure(c(17L, 29L, 17L, 20L, 1L, 15L, 0L, 1L), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\')), structure(c(24L, 29L, 27L, 20L, 12L, 16L, 28L, 4L), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\')));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep18() {
+ assertEval("argv <- list(c(2, 11, 14, 5, 5, 13, 20, 22, 6, 6, 15, 7, 14, 6, 32, 53, 57, 14, 16, 16, 17, 40, 43, 46, 8, 23, 23, 28, 34, 36, 38, 3, 5, 11, 24, 45, 5, 6, 6, 9, 13, 23, 25, 32, 53, 54, 5, 5, 11, 17, 19, 8, 13, 14, 20, 47, 48, 60, 81, 2, 1, 2, 3, 5, 10, 14, 21, 36, 40, 6, 17, 67, 1, 1, 2, 7, 11, 12, 1, 1, 5, 5, 5, 11, 17, 3, 4, 22, 30, 36, 8, 1, 1, 5, 7, 16, 27, 1, 30, 10, 14, 27, 41, 69, 25, 10, 11, 20, 33, 5, 7, 1, 1, 5, 5, 5, 5, 7, 11, 15, 5, 14, 6, 6, 7, 28, 1, 5, 14, 2, 2, 3, 8, 10, 12, 1, 1, 9, 22, 3, 3, 5, 15, 18, 22, 37), structure(c(7.89366449903379, 7.89366449903379, 7.89366449903379, 14.0829622414182, 14.0829622414182, 14.0829622414182, 14.0829622414182, 14.0829622414182, 9.97467561511911, 9.97467561511911, 9.97467561511911, 9.14061221811198, 9.14061221811198, 37.9214773068363, 37.9214773068363, 37.9214773068363, 37.9214773068363, 27.0457930153774, 27.0457930153774, 27.0457930153774, 27.0457930153774, 27.0457930153774, 27.0457930153774, 27.0457930153774, 27.142857142857, 27.142857142857, 27.142857142857, 27.142857142857, 27.142857142857, 27.142857142857, 27.142857142857, 5.51287534554956, 19.4425820919426, 19.4425820919426, 19.4425820919426, 19.4425820919426, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 22.0114035979981, 12.0888548389297, 12.0888548389297, 12.0888548389297, 12.0888548389297, 12.0888548389297, 35.9372148648542, 35.9372148648542, 35.9372148648542, 35.9372148648542, 35.9372148648542, 35.9372148648542, 35.9372148648542, 35.9372148648542, 2.39853649771773, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 14.5555555555555, 34.0597534472672, 34.0597534472672, 34.0597534472672, 4.94649227492536, 4.94649227492536, 4.94649227492536, 4.94649227492536, 4.94649227492536, 4.94649227492536, 5.86945220571486, 5.86945220571486, 5.86945220571486, 5.86945220571486, 5.86945220571486, 5.86945220571486, 5.86945220571486, 4.2587413846383, 4.2587413846383, 28.3984573891039, 28.3984573891039, 28.3984573891039, 9.29091029891263, 9.29091029891263, 9.29091029891263, 9.29091029891263, 9.29091029891263, 9.29091029891263, 9.29091029891263, 27.2857142857143, 27.2857142857143, 27.2857142857143, 27.2857142857143, 27.2857142857143, 27.2857142857143, 27.2857142857143, 18.193214018835, 20.387398919001, 20.387398919001, 20.387398919001, 20.387398919001, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 6.18095346485027, 10.4914673267343, 10.4914673267343, 10.4914673267343, 10.4914673267343, 10.4914673267343, 10.4914673267343, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 6.30668950814617, 0.75368270571509, 13.5, 13.5, 13.5, 13.5, 13.5, 13.5, 13.5, 13.5, 13.5, 13.5), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\', \'101\', \'102\', \'103\', \'104\', \'105\', \'106\', \'107\', \'108\', \'109\', \'110\', \'111\', \'112\', \'113\', \'114\', \'115\', \'116\', \'117\', \'118\', \'119\', \'120\', \'121\', \'122\', \'123\', \'124\', \'125\', \'126\', \'127\', \'128\', \'129\', \'130\', \'131\', \'132\', \'133\', \'134\', \'135\', \'136\', \'137\', \'138\', \'139\', \'140\', \'141\', \'142\', \'143\', \'144\', \'145\', \'146\')));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testsep19() {
+ assertEval("argv <- list(0.5, c(576.899196412178, 48.2726847449981, 4.88037826224117, 1.31852084431627, 1.02614578306738));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep20() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\')), 6);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep21() {
+ assertEval("argv <- list(structure(c(18, 17, 15, 20, 10, 20, 25, 13, 12), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\')), structure(c(18.3712737525013, 13.3333333333333, 18.2953929141735, 18.3712737525013, 13.3333333333333, 18.2953929141735, 18.3712737525013, 13.3333333333333, 18.2953929141735), .Dim = c(9L, 1L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\'), NULL)));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep22() {
+ assertEval("argv <- list(c(0+6.28318530717959i, 0+12.5663706143592i, 0+18.8495559215388i, 0+25.1327412287183i, 0+31.4159265358979i, 0+37.6991118430775i, 0+43.9822971502571i, 0+50.2654824574367i, 0+56.5486677646163i, 0+62.8318530717959i, 0+69.1150383789754i, 0+75.398223686155i, 0+81.6814089933346i, 0+87.9645943005142i, 0+94.2477796076938i, 0+100.530964914873i), 16);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep23() {
+ assertEval("argv <- list(structure(c(1, 0, -1, 0.5, -0.5, NA, NA, NA, 0), .Dim = c(3L, 3L)), structure(c(1, 1, 1, 0.707106781186548, 0.707106781186548, 0.707106781186548, 0, 0, 0), .Dim = c(3L, 3L)));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep24() {
+ assertEval("argv <- list(structure(c(32, 53, 10, 3, 11, 50, 10, 30, 10, 25, 7, 5, 3, 15, 7, 8, 36, 66, 16, 4, 9, 34, 7, 64, 5, 29, 7, 5, 2, 14, 7, 8), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\')), 18.5);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep25() {
+ assertEval("argv <- list(structure(c(1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\')), structure(c(0.570290675249213, 0.61905127646042, 0.531618474288601, 0.790554080720526, 0.767014480135805, 0.550113874748024, 0.17684306547603, 0.582060475541574, 0.82418208155584, 0.508078873703881, 0.235692066937831, 0.434097271866188, 0.494627673369755, 0.72161667900813, 0.573653475332745, 0.56356507508215, 0.69807707842341, 0.78887268067876, 0.566927875165682, 0.661086277504564, 0.469406672743269, 0.365159870153793, 0.474450872868566, 0.63082107675278, 0.131445264348354, 0.640909477003375, 0.503034673578584, 0.565246475123916, 0.403832071114405, 0.577016275416276, 0.543388274580962, 0.239054867021362, 0.573653475332745, 0.514804473870944, 0.674537477838689, 0.0709148628447877, 0.536662674413898, 0.772058680261102, 0.274364267898443, 0.116312663972463, 0.439141471991485, 0.60728147616806, 0.400469271030873, 0.497990473453286, 0.514804473870944, 0.55179527478979, 0.455955472409143, 0.506397473662115, 0.321443469067883, 0.565246475123916, 0.772058680261102, 0.869579882683515, 0.494627673369755, 0.457636872450909, 0.398787870989108, 0.753563279801679, 0.518167273954475, 0.326487669193181, 0.351708669819667, 0.479495072993863, 0.397106470947342, 0.439141471991485, 0.37020407027909, 0.627458276669249, 0.402150671072639, 0.63082107675278, 0.543388274580962, 0.587104675666871, 0.587104675666871, 0.311355068817289, 0.730023679216959, 0.534981274372133, 0.450911272283846, 0.427371671699125, 0.432415871824422, 0.2911782683161, 0.339938869527307, 0.708165478674004, 0.76533308009404, 0.455955472409143, 0.509760273745647, 0.412239071323234, 0.464362472617972, 0.481176473035629, 0.331531869318478, 0.622414076543951, 0.392062270822045, 0.827544881639372, 0.487902073202692, 0.479495072993863, 0.652679277295735, 0.585423275625105, 0.735067879342256, 0.477813672952097, 0.435778671907954, 0.756926079885211, 0.679581677963987, 0.339938869527307, 0.625776876627483, 0.652679277295735), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\')));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep26() {
+ assertEval("argv <- list(structure(c(0L, 1L, 1L, 7L, 7L, 2L, 0L, 3L, 9L, 0L, 0L, 0L, 0L, 6L, 0L, 1L, 5L, 8L, 2L, 2L, 0L, 0L, 0L, 9L, 0L, 3L, 0L, 1L, 0L, 2L, 3L, 0L, 0L, 0L, 0L, 0L, 0L, 4L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 2L, 2L, 0L, 0L, 0L, 4L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 2L, 0L, 1L, 0L, 1L, 0L, 0L, 8L, 0L, 0L, 0L, 0L, 0L, 0L, 3L, 4L, 0L, 0L, 0L, 0L, 0L, 0L, 4L, 0L, 4L, 0L, 0L, 4L, 0L, 5L, 0L, 0L, 3L, 3L, 0L, 5L, 2L), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\')), structure(c(1.25194092864295, 1.37418430529572, 1.15498928509075, 1.80414376800547, 1.74512972410413, 1.20135746244181, 0.265563337720594, 1.28144795059362, 1.88844954500738, 1.09597524118942, 0.413098447473938, 0.910502531785213, 1.06225293038865, 1.63131692515155, 1.26037150634314, 1.23507977324257, 1.57230288125021, 1.79992847915537, 1.24351035094276, 1.47956652654811, 0.999023597637219, 0.737675688931295, 1.01166946418751, 1.40369132724639, 0.151750538768014, 1.42898306034697, 1.08332937463913, 1.23929506209267, 0.834627332483493, 1.26880208404333, 1.18449630704142, 0.421529025174129, 1.26037150634314, 1.1128363965898, 1.51328883734888, 1.40164574169432e-07, 1.16763515164104, 1.75777559065442, 0.510050091026136, 0.113812939117154, 0.9231483983355, 1.34467728334505, 0.826196754783302, 1.07068350808884, 1.1128363965898, 1.2055727512919, 0.965301286836455, 1.09175995233932, 0.628078178828811, 1.23929506209267, 1.75777559065442, 2.00226234395996, 1.06225293038865, 0.969516575686551, 0.821981465933206, 1.71140741330337, 1.12126697428999, 0.640724045379098, 0.703953378130531, 1.02431533073779, 0.817766177083111, 0.9231483983355, 0.750321555481582, 1.3952607495462, 0.830412043633397, 1.40369132724639, 1.18449630704142, 1.29409381714391, 1.29409381714391, 0.602786445728238, 1.65239336940203, 1.16341986279095, 0.952655420286168, 0.893641376384831, 0.906287242935117, 0.552202979527091, 0.674446356179862, 1.59759461435079, 1.74091443525404, 0.965301286836455, 1.10019053003951, 0.855703776733971, 0.986377731086933, 1.02853061958789, 0.653369911929384, 1.38261488299591, 0.805120310532824, 1.89688012270757, 1.04539177498827, 1.02431533073779, 1.45849008229763, 1.28987852829381, 1.66503923595232, 1.0201000418877, 0.914717820635308, 1.71983799100356, 1.52593470389916, 0.674446356179862, 1.39104546069611, 1.45849008229763), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\')));`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testsep27() {
+ assertEval("argv <- list(998.602763134667, 78L);`/`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsep28() {
+ assertEval("argv <- list(structure(c(0L, 1L, 1L, 7L, 7L, 2L, 0L, 3L, 9L, 0L, 0L, 0L, 0L, 6L, 0L, 1L, 5L, 8L, 2L, 2L, 0L, 0L, 0L, 9L, 0L, 3L, 0L, 1L, 0L, 2L, 3L, 0L, 0L, 0L, 0L, 0L, 0L, 4L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 2L, 2L, 0L, 0L, 0L, 4L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 2L, 0L, 1L, 0L, 1L, 0L, 0L, 8L, 0L, 0L, 0L, 0L, 0L, 0L, 3L, 4L, 0L, 0L, 0L, 0L, 0L, 0L, 4L, 0L, 4L, 0L, 0L, 4L, 0L, 5L, 0L, 0L, 3L, 3L, 0L, 5L, 2L), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\')), structure(c(1.501181611548, 1.64776358195565, 1.38492694536262, 2.16332775373429, 2.09256404388232, 1.44052700310346, 0.318416746879368, 1.53656346647399, 2.26441876780853, 1.31416323551065, 0.495326021509292, 1.09176300454732, 1.27372682988096, 1.95609117488209, 1.51129071295543, 1.48096340873315, 1.88532746503012, 2.15827320303057, 1.49107251014058, 1.77412734954845, 1.19790856932527, 0.884526425695124, 1.21307222143641, 1.68314543688164, 0.181943877879142, 1.71347274110391, 1.29899958339952, 1.48601795943686, 1.0007810918805, 1.52139981436285, 1.42030880028861, 0.505435122916716, 1.51129071295543, 1.3343814383255, 1.81456375517815, -1.99474544941847e-05, 1.40009059747376, 2.10772769599345, 0.611580687694671, 0.136452921545733, 1.10692665665846, 1.61238172702967, 0.990671990473078, 1.28383593128838, 1.3343814383255, 1.44558155380717, 1.15747216369558, 1.30910868480694, 0.753108107398609, 1.48601795943686, 2.10772769599345, 2.40089163680876, 1.27372682988096, 1.16252671439929, 0.985617439769366, 2.05212763825262, 1.34449053973293, 0.768271759509746, 0.844090020065427, 1.22823587354755, 0.980562889065654, 1.10692665665846, 0.899690077806261, 1.67303633547421, 0.99572654117679, 1.68314543688164, 1.42030880028861, 1.55172711858512, 1.55172711858512, 0.722780803176337, 1.98136392840065, 1.39503604677005, 1.14230851158444, 1.07154480173247, 1.08670845384361, 0.662126194731792, 0.808708165139443, 1.91565476925239, 2.08750949317861, 1.15747216369558, 1.31921778621437, 1.02605384539906, 1.18274491721414, 1.23329042425126, 0.783435411620882, 1.65787268336308, 0.965399236954518, 2.27452786921595, 1.25350862706611, 1.22823587354755, 1.74885459602989, 1.54667256788141, 1.99652758051179, 1.22318132284384, 1.09681755525103, 2.06223673966004, 1.82972740728929, 0.808708165139443, 1.6679817847705, 1.74885459602989), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\')));`/`(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinseq.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinseq.java
new file mode 100644
index 0000000000000000000000000000000000000000..9c95be5ffe739caab7f214a1100c821196415010
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinseq.java
@@ -0,0 +1,149 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinseq extends TestBase {
+
+ @Test
+ public void testseq1() {
+ assertEval("argv <- list(c(\'y\', \'A\', \'U\', \'V\'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq2() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 0, 10, NA), .Dim = c(3L, 2L)));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseq3() {
+ assertEval("argv <- list(0L);seq_len(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseq4() {
+ assertEval("argv <- list(structure(list(x = 1:3, y = structure(1:3, .Label = c(\'A\', \'D\', \'E\'), class = \'factor\'), z = c(6, 9, 10)), .Names = c(\'x\', \'y\', \'z\'), row.names = c(NA, -3L), class = \'data.frame\'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseq5() {
+ assertEval("argv <- list(FALSE);seq_len(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq7() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq8() {
+ assertEval("argv <- list(structure(list(levels = c(\'1\', \'2\', NA), class = \'factor\'), .Names = c(\'levels\', \'class\')));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq9() {
+ assertEval("argv <- list(list(c(1+1i, 2+1.4142135623731i, 3+1.73205080756888i, 4+2i, 5+2.23606797749979i, 6+2.44948974278318i, 7+2.64575131106459i, 8+2.82842712474619i, 9+3i, 10+3.1622776601684i)));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq10() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, -45, -44, -43, -42, -41, -40, -39, -38, -37, -36, -35, -34, -33, -32, -31, -30, -29, -28, -27, NA, -25, -24, -23, -22, -21, -20, -19, -18, -17, -16, -15, -14, -13, -12, -11, -10, -9, -8, -7, -6, -5, -4, -3, -2, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, NA, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52), .Dim = c(98L, 2L), .Dimnames = list(NULL, c(\'intercept\', \'trend\'))));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq11() {
+ assertEval("argv <- list(list(structure(c(112, 118, 132, 129, 121, 135, 148, 148, 136, 119, 104, 118, 115, 126, 141, 135, 125, 149, 170, 170, 158, 133, 114, 140, 145, 150, 178, 163, 172, 178, 199, 199, 184, 162, 146, 166, 171, 180, 193, 181, 183, 218, 230, 242, 209, 191, 172, 194, 196, 196, 236, 235, 229, 243, 264, 272, 237, 211, 180, 201, 204, 188, 235, 227, 234, 264, 302, 293, 259, 229, 203, 229, 242, 233, 267, 269, 270, 315, 364, 347, 312, 274, 237, 278, 284, 277, 317, 313, 318, 374, 413, 405, 355, 306, 271, 306, 315, 301, 356, 348, 355, 422, 465, 467, 404, 347, 305, 336, 340, 318, 362, 348, 363, 435, 491, 505, 404, 359, 310, 337, 360, 342, 406, 396, 420, 472, 548, 559, 463, 407, 362, 405, 417, 391, 419, 461, 472, 535, 622, 606, 508, 461, 390, 432), .Tsp = c(1949, 1960.91666666667, 12), class = \'ts\'), structure(c(419.147602949539, 391.474665943444, 435.919286153217, 443.935203034261, 455.023399013445, 517.28707821144, 589.71337277669, 582.999919227301, 484.573388713116, 428.878182738437, 368.526582998452, 406.728709993152, 415.660571294428, 388.716535970235, 433.006017658935, 440.885684396326, 451.651900136866, 513.051252429496, 584.327164324967, 577.055407135124, 479.076505013118, 423.494870357491, 363.43932958967, 400.592058645117), .Tsp = c(1961, 1962.91666666667, 12), class = \'ts\'), structure(c(484.030717075782, 462.954959541421, 526.353307750503, 546.165638262644, 569.502470928676, 657.838443307596, 761.241730163307, 763.280655335144, 642.989004951864, 576.423799567567, 501.429012064338, 559.981301364233, 591.700754553767, 565.210772316967, 642.377841008703, 666.682421047093, 695.547100430962, 804.065022775202, 931.340589597203, 934.837830059897, 788.422986194072, 707.666678543854, 616.37838266375, 689.250456425465), .Tsp = c(1961, 1962.91666666667, 12), class = \'ts\')));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq12() {
+ assertEval("argv <- list(c(0.923879532511287+0.38268343236509i, 0.707106781186548+0.707106781186547i, 0.38268343236509+0.923879532511287i, 0+1i, -0.38268343236509+0.923879532511287i, -0.707106781186547+0.707106781186548i, -0.923879532511287+0.38268343236509i, -1+0i, -0.923879532511287-0.38268343236509i, -0.707106781186548-0.707106781186547i, -0.38268343236509-0.923879532511287i, 0-1i, 0.38268343236509-0.923879532511287i, 0.707106781186547-0.707106781186548i, 0.923879532511287-0.38268343236509i, 1-0i));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseq13() {
+ assertEval("argv <- list(structure(3.14159265358979, class = structure(\'3.14159265358979\', class = \'testit\')));seq_len(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq14() {
+ assertEval("argv <- list(structure(list(g = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L), .Label = c(\'1\', \'2\', \'3\', \'4\'), class = \'factor\')), .Names = \'g\'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq15() {
+ assertEval("argv <- list(structure(list(20), row.names = c(NA, -1L)));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseq16() {
+ assertEval("argv <- list(list(list(c(\'\', \'\', \'\\036\', \'\', \'New\', \'print()\', \'(S3)\', \'method\', \'for\', \'class\', \'\\\'function\\\',\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'also\', \'used\', \'for\', \'auto-printing.\', \'\', \'Further,\', \'.Primitive\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'functions\', \'now\', \'print\', \'and\', \'auto-print\', \'identically.\', \'\', \'The\', \'new\', \'method\', \'\', \'\', \'\', \'\', \'\', \'\', \'\', \'is\', \'based\', \'on\', \'code\', \'suggestions\', \'by\', \'Romain\', \'François.\'))));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq17() {
+ assertEval("argv <- list(structure(list(Topic = c(\'myTst-package\', \'foo-class\', \'myTst\', \'show,foo-method\', \'show,foo-method\', \'show-methods\'), File = c(\'myTst-package\', \'foo-class\', \'myTst-package\', \'foo-class\', \'show-methods\', \'show-methods\')), .Names = c(\'Topic\', \'File\'), row.names = c(3L, 1L, 4L, 2L, 6L, 5L)));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq18() {
+ assertEval("argv <- list(structure(list(structure(\' A Simple Plot and Legend Demo \', Rd_tag = \'TEXT\')), Rd_tag = \'Rd\', class = \'Rd\'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq19() {
+ assertEval("argv <- list(structure(list(Topic = character(0), File = character(0), Title = character(0), Internal = character(0)), .Names = c(\'Topic\', \'File\', \'Title\', \'Internal\'), row.names = integer(0), class = \'data.frame\'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq20() {
+ assertEval("argv <- list(structure(c(2.21843970753346, 1.80732678656753, -1.09399175987006, 0.585986462327552, -5.68458926982395, 1.23352238598674, 0.457950438444482, 2.51599006679516, -2.28780372840319, 5.53596062467695, 2.17890565095959, -1.59611751350773, -2.9672978602151, 0.745175851232308, 1.93388282434376, -3.03559459078455, 2.19500990255906, 0.0725275773318347, -0.75336064096447, -1.15505962102859, -2.84782886882524, -1.41070341448251, -0.540252474026749, 4.87719739781058, 0.890715639552621, -0.968642103099399, 1.73177156113283, -0.993218102309356, -0.656454198323984, -1.5299506933835, -0.298424468882268, 6.51011264717937, 2.68326774833378, 1.99295445531679, -0.214079422583434, 6.73505308264589, -4.54579214489424, -2.3991834444486, -1.71479569181251, -6.47293095421849, -1.67116930820449, -11.5853328029437, -2.48588878138021, -0.888857646918452, 8.06807102468956, -0.216046323028316, 6.24682938323398, -1.74761908105831, 2.53082303181417, 2.31410662801887, 2.97453294161523, -2.88723068649699, -1.04144266580674, -0.835536300630093, -6.10229135345437, -4.37605802846523, -1.94289029309402e-16, 5.96619037131792, -1.1474434665393, 3.78819830631063, -3.01580771910632, -0.656454198323984, 1.50824785799851, -2.06401783962239, -3.02346226775125, 0.407243897855763, -3.96478352340807, -2.12718621336067, -0.78924288871239, -3.03559459078455, 0.457950438444496, -0.797900839851943, -3.38233849466459, 1.97815029009903, 0.745175851232309, -1.09645503136389, 0.341748714147263, 7.32472922782987, -1.33672649241008, 1.51931399477032, 0.00590129163826772, -4.09533092706814, 0.195481697042187, -2.7736762657602, -3.48737543915568, 0.536312040203338, 0.775871729180551, 4.37979177946206, 1.30271070089245, 4.2132287611068, 7.33457656622414, 3.28311350719274, -1.30271070089245), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\')));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq21() {
+ assertEval("argv <- list(structure(list(surname = structure(integer(0), .Label = c(\'McNeil\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'factor\'), nationality = structure(integer(0), .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(integer(0), .Label = c(\'no\', \'yes\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\'), row.names = integer(0), class = \'data.frame\'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq22() {
+ assertEval("argv <- list(structure(list(A = 0:10, B = 10:20, `NA` = 20:30), .Names = c(\'A\', \'B\', NA), row.names = c(NA, -11L), class = \'data.frame\'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq23() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq24() {
+ assertEval("argv <- list(structure(c(3, 8), .Dim = 2L, .Dimnames = structure(list(g = c(\'1\', \'2\')), .Names = \'g\'), call = quote(by.data.frame(data = X, INDICES = g, FUN = colMeans)), class = \'by\'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ public void testseq25() {
+ assertEval("argv <- list(structure(list(.Data = \'numeric\'), .Names = \'.Data\'));seq_along(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseq26() {
+ assertEval("argv <- list(structure(2, .Names = \'Ind\'));seq_len(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinseqint.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinseqint.java
new file mode 100644
index 0000000000000000000000000000000000000000..641e0d6b9efc5463d349fc62c9a275bb21750a58
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinseqint.java
@@ -0,0 +1,158 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinseqint extends TestBase {
+
+ @Test
+ @Ignore
+ public void testseqint1() {
+ assertEval("argv <- list(16146, by = 1, length.out = 4);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint2() {
+ assertEval("argv <- list(0.9, 0.95, length.out = 16);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint3() {
+ assertEval("argv <- list(FALSE);seq.int(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint4() {
+ assertEval("argv <- list(1.2e+100, 1.3e+100, length.out = 2);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint5() {
+ assertEval("argv <- list(structure(0.88, .Names = \'Other\'), structure(1, .Names = \'Vanilla Cream\'), length.out = 24);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint6() {
+ assertEval("argv <- list(953553600, by = 86400, length.out = 10);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint7() {
+ assertEval("argv <- list(25L);seq.int(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint8() {
+ assertEval("argv <- list(from = 2.0943951023932, to = 2.61799387799149, by = 0.0174532925199433);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint9() {
+ assertEval("argv <- list(from = 0, to = 0.793110173512391, length.out = FALSE);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void testseqint10() {
+ assertEval("argv <- list(from = 0, to = structure(-1, .Names = \'c0\'));seq.int(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint11() {
+ assertEval("argv <- list(10L, 99L, 1);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint12() {
+ assertEval("argv <- list(1L);seq.int(argv[[1]]);");
+ }
+
+ @Test
+ public void testseqint13() {
+ assertEval("argv <- list(102L, 112L, 1L);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint14() {
+ assertEval("argv <- list(from = 0.95, by = -0.120360949612403, length.out = 6);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint15() {
+ assertEval("argv <- list(list());seq.int(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint16() {
+ assertEval("argv <- list(-0.2, 1, length.out = 7);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint17() {
+ assertEval("argv <- list(from = 0.070740277703696, to = 0.793110173512391, length.out = NULL);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint18() {
+ assertEval("argv <- list(105L, 112L, 3L);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void testseqint19() {
+ assertEval("argv <- list(0, length.out = 3L);seq.int(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint20() {
+ assertEval("argv <- list(0, structure(345600, tzone = \'GMT\'), 43200);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint21() {
+ assertEval("argv <- list(-7, 7, length.out = 11);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ public void testseqint22() {
+ assertEval("argv <- list(4, 4L);seq.int(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint23() {
+ assertEval("argv <- list(0L, 49, 1);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testseqint24() {
+ assertEval("argv <- list(1, 1, by = 1);seq.int(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetEncoding.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetEncoding.java
new file mode 100644
index 0000000000000000000000000000000000000000..319f31ae3fd9b41512ccd30b1919dd2cd9e24e5f
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetEncoding.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsetEncoding extends TestBase {
+
+ @Test
+ @Ignore
+ public void testsetEncoding1() {
+ assertEval("argv <- list(\'abc\', \'UTF-8\'); .Internal(setEncoding(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetEncoding2() {
+ assertEval("argv <- list(\''\', \'unknown\'); .Internal(setEncoding(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetEncoding3() {
+ assertEval("argv <- list(\'3.0.1\', \'unknown\'); .Internal(setEncoding(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetEncoding4() {
+ assertEval("argv <- list(structure(c(\'Matrix\', \'1.0-12\', \'2013-03-26\', \'recommended\', \'Sparse and Dense Matrix Classes and Methods\', \'Douglas Bates <bates@stat.wisc.edu> and Martin Maechler\\n <maechler@stat.math.ethz.ch>\', \'Martin Maechler <mmaechler+Matrix@gmail.com>\', \'Doug and Martin <Matrix-authors@R-project.org>\', \'Classes and methods for dense and sparse matrices and\\n operations on them using Lapack and SuiteSparse.\', \'R (>= 2.15.0), stats, methods, utils, lattice\', \'graphics, grid\', \'expm, MASS\', \'MatrixModels, graph, SparseM, sfsmisc\', \'UTF-8\', \'no\', \'no longer available, since we use data/*.R *and* our\\nclasses\', \'yes\', \'no\', \'GPL (>= 2)\', \'The Matrix package includes libraries AMD, CHOLMOD,\\nCOLAMD, CSparse and SPQR from the SuiteSparse collection of Tim\\nDavis. All sections of that code are covered by the GPL or\\nLGPL licenses. See the directory doc/UFsparse for details.\', \'http://Matrix.R-forge.R-project.org/\', \'2013-03-26 15:38:54 UTC; maechler\', \'yes\', \'CRAN\', \'2013-03-26 19:25:05\', \'R 3.0.1; x86_64-unknown-linux-gnu; 2013-12-07 03:52:11 UTC; unix\'), .Names = c(\'Package\', \'Version\', \'Date\', \'Priority\', \'Title\', \'Author\', \'Maintainer\', \'Contact\', \'Description\', \'Depends\', \'Imports\', \'Suggests\', \'Enhances\', \'Encoding\', \'LazyData\', \'LazyDataNote\', \'ByteCompile\', \'BuildResaveData\', \'License\', \'LicenseDetails\', \'URL\', \'Packaged\', \'NeedsCompilation\', \'Repository\', \'Date/Publication\', \'Built\')), structure(\'UTF-8\', .Names = \'Encoding\')); .Internal(setEncoding(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetS4Object.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetS4Object.java
new file mode 100644
index 0000000000000000000000000000000000000000..9854362de60a6501e53eaf657a4b0af51ddb2139
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetS4Object.java
@@ -0,0 +1,102 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsetS4Object extends TestBase {
+
+ @Test
+ @Ignore
+ public void testsetS4Object1() {
+ assertEval("argv <- list(structure(\'ObjectsWithPackage\', class = structure(\'signature\', package = \'methods\'), .Names = \'.Object\', package = \'methods\'), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetS4Object2() {
+ assertEval("argv <- list(structure(function (x, ...) standardGeneric(\'toeplitz\'), generic = character(0), package = character(0), group = list(), valueClass = character(0), signature = character(0), default = quote(`\\001NULL\\001`), skeleton = quote(`<undef>`()), class = structure(\'standardGeneric\', package = \'methods\')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetS4Object3() {
+ assertEval("argv <- list(structure(character(0), package = character(0), class = structure(\'ObjectsWithPackage\', package = \'methods\')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetS4Object4() {
+ assertEval("argv <- list(structure(function (qr, complete = FALSE, Dvec) standardGeneric(\'qr.Q\'), generic = character(0), package = character(0), group = list(), valueClass = character(0), signature = character(0), default = quote(`\\001NULL\\001`), skeleton = quote(`<undef>`()), class = structure(\'standardGeneric\', package = \'methods\')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetS4Object5() {
+ assertEval("argv <- list(structure(c(\'nonStructure\', \'ANY\', \'ANY\', \'ANY\'), .Names = c(NA_character_, NA_character_, NA_character_, NA_character_), package = character(0), class = structure(\'signature\', package = \'methods\')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetS4Object6() {
+ assertEval("argv <- list(structure(function (x) .Internal(drop(x)), target = structure(character(0), .Names = character(0), package = character(0), class = structure(\'signature\', package = \'methods\')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure(\'signature\', package = \'methods\')), generic = character(0), class = structure(\'derivedDefaultMethod\', package = \'methods\')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetS4Object7() {
+ assertEval("argv <- list(structure(function (x, y = NULL) .Internal(crossprod(x, y)), target = structure(character(0), .Names = character(0), package = character(0), class = structure(\'signature\', package = \'methods\')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure(\'signature\', package = \'methods\')), generic = character(0), class = structure(\'derivedDefaultMethod\', package = \'methods\')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetS4Object8() {
+ assertEval("argv <- list(structure(function (x, i, j, ...) x@aa[[i]], target = structure(character(0), .Names = character(0), package = character(0), class = structure(\'signature\', package = \'methods\')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure(\'signature\', package = \'methods\')), generic = character(0), class = structure(\'MethodDefinition\', package = \'methods\')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetS4Object9() {
+ assertEval("argv <- list(numeric(0), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetS4Object10() {
+ assertEval("argv <- list(structure(function (object) cat(\'I am a \\\'foo\\\'\\n\'), target = structure(character(0), .Names = character(0), package = character(0), class = structure(\'signature\', package = \'methods\')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure(\'signature\', package = \'methods\')), generic = character(0), class = structure(\'MethodDefinition\', package = \'methods\')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetS4Object11() {
+ assertEval("argv <- list(structure(function (x = 1, nrow, ncol) standardGeneric(\'diag\'), generic = character(0), package = character(0), group = list(), valueClass = character(0), signature = character(0), default = quote(`\\001NULL\\001`), skeleton = quote(`<undef>`()), class = structure(\'standardGeneric\', package = \'methods\')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetS4Object12() {
+ assertEval("argv <- list(structure(list(`NA` = structure(function (object) cat(\'I am a \\\'foo\\\'\\n\'), target = structure(\'foo\', .Names = \'object\', package = \'myTst\', class = structure(\'signature\', package = \'methods\')), defined = structure(\'foo\', .Names = \'object\', package = \'myTst\', class = structure(\'signature\', package = \'methods\')), generic = structure(\'show\', package = \'methods\'), class = structure(\'MethodDefinition\', package = \'methods\'))), .Names = NA_character_, arguments = structure(\'object\', simpleOnly = TRUE), signatures = list(), generic = structure(function (object) standardGeneric(\'show\'), generic = structure(\'show\', package = \'methods\'), package = \'methods\', group = list(), valueClass = character(0), signature = structure(\'object\', simpleOnly = TRUE), default = structure(function (object) showDefault(object, FALSE), target = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'object\', package = \'methods\'), defined = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'object\', package = \'methods\'), generic = structure(\'show\', package = \'methods\'), class = structure(\'derivedDefaultMethod\', package = \'methods\')), skeleton = quote((function (object) showDefault(object, FALSE))(object)), class = structure(\'standardGeneric\', package = \'methods\')), class = structure(\'listOfMethods\', package = \'methods\')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetS4Object13() {
+ assertEval("argv <- list(structure(function (x, type = c(\'O\', \'I\', \'F\', \'M\', \'2\')) { if (identical(\'2\', type)) { svd(x, nu = 0L, nv = 0L)$d[1L] } else .Internal(La_dlange(x, type))}, target = structure(character(0), .Names = character(0), package = character(0), class = structure(\'signature\', package = \'methods\')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure(\'signature\', package = \'methods\')), generic = character(0), class = structure(\'derivedDefaultMethod\', package = \'methods\')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetS4Object14() {
+ assertEval("argv <- list(structure(function (x, y, ...) UseMethod(\'plot\'), target = structure(character(0), .Names = character(0), package = character(0), class = structure(\'signature\', package = \'methods\')), defined = structure(character(0), .Names = character(0), package = character(0), class = structure(\'signature\', package = \'methods\')), generic = character(0), class = structure(\'derivedDefaultMethod\', package = \'methods\')), TRUE, 0L); .Internal(setS4Object(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetSessionTimeLimit.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetSessionTimeLimit.java
new file mode 100644
index 0000000000000000000000000000000000000000..452da2ede36397bb14b8a6ae7ae99d691db0c953
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetSessionTimeLimit.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsetSessionTimeLimit extends TestBase {
+
+ @Test
+ @Ignore
+ public void testsetSessionTimeLimit1() {
+ assertEval("argv <- list(NULL, NULL); .Internal(setSessionTimeLimit(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetSessionTimeLimit2() {
+ assertEval("argv <- list(FALSE, Inf); .Internal(setSessionTimeLimit(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetTimeLimit.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetTimeLimit.java
new file mode 100644
index 0000000000000000000000000000000000000000..0777238044a69967506f5ff3bb22c4d78fd210a5
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetTimeLimit.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsetTimeLimit extends TestBase {
+
+ @Test
+ @Ignore
+ public void testsetTimeLimit1() {
+ assertEval("argv <- list(FALSE, Inf, FALSE); .Internal(setTimeLimit(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinseterrmessage.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinseterrmessage.java
new file mode 100644
index 0000000000000000000000000000000000000000..0d28472ce061eb626301dfdc6fc0ed66cd009af6
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinseterrmessage.java
@@ -0,0 +1,36 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinseterrmessage extends TestBase {
+
+ @Test
+ @Ignore
+ public void testseterrmessage1() {
+ assertEval("argv <- list(\'Error in cor(rnorm(10), NULL) : \\n supply both 'x' and 'y' or a matrix-like 'x'\\n\'); .Internal(seterrmessage(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testseterrmessage2() {
+ assertEval("argv <- list(\'Error in as.POSIXlt.character(x, tz, ...) : \\n character string is not in a standard unambiguous format\\n\'); .Internal(seterrmessage(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testseterrmessage3() {
+ assertEval("argv <- list(\'Error in validObject(.Object) : \\n invalid class “trackCurve” object: Unequal x,y lengths: 20, 10\\n\'); .Internal(seterrmessage(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetseed.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetseed.java
new file mode 100644
index 0000000000000000000000000000000000000000..f8cf6324c11b0ae02735a9795476590429c1b117
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetseed.java
@@ -0,0 +1,63 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsetseed extends TestBase {
+
+ @Test
+ @Ignore
+ public void testsetseed1() {
+ assertEval("argv <- list(1000, 0L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetseed2() {
+ assertEval("argv <- list(77, 2L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetseed3() {
+ assertEval("argv <- list(123, 6L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetseed4() {
+ assertEval("argv <- list(77, 4L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testsetseed5() {
+ assertEval("argv <- list(1000, 1L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testsetseed6() {
+ assertEval("argv <- list(0, NULL, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsetseed7() {
+ assertEval("argv <- list(123, 7L, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testsetseed8() {
+ assertEval("argv <- list(NULL, NULL, NULL); .Internal(set.seed(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinshortRowNames.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinshortRowNames.java
new file mode 100644
index 0000000000000000000000000000000000000000..4a3dbef54bfd4691f5841d6654dcac41bcf2e8e4
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinshortRowNames.java
@@ -0,0 +1,130 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinshortRowNames extends TestBase {
+
+ @Test
+ public void testshortRowNames1() {
+ assertEval("argv <- list(structure(list(c(8.44399377410362, 28.4640218366572, 12.2441566485997)), row.names = c(NA, -3L), class = \'data.frame\'), 1L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames2() {
+ assertEval("argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE), z = 1:10), .Names = c(\'y\', \'x\', \'z\'), terms = quote(y ~ x * z - 1), row.names = c(NA, 10L), class = \'data.frame\'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames3() {
+ assertEval("argv <- list(structure(list(weight = c(4.17, 5.58), group = structure(c(1L, 1L), .Label = c(\'Ctl\', \'Trt\'), class = \'factor\')), .Names = c(\'weight\', \'group\'), row.names = 1:2, class = \'data.frame\'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testshortRowNames4() {
+ assertEval("argv <- list(structure(list(x = 1:3, y = structure(1:3, .Label = c(\'A\', \'D\', \'E\'), class = \'factor\'), z = c(6, 9, 10)), .Names = c(\'x\', \'y\', \'z\'), row.names = c(NA, -3L), class = \'data.frame\'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testshortRowNames5() {
+ assertEval("argv <- list(structure(list(c(\'4.1-0\', \'4.1-0\', \'4.1-0\', \'4.1-0\', \'4.1-0\', \'4.1-0\', \'4.0-3\', \'4.0-3\', \'4.0-3\', \'4.0-3\', \'4.0-3\', \'4.0-2\', \'4.0-2\', \'4.0-1\', \'4.0-1\', \'4.0-1\', \'4.0-1\', \'4.0-1\', \'4.0-1\', \'4.0-1\', \'4.0-1\', \'3.1-55\', \'3.1-55\', \'3.1-55\', \'3.1-54\', \'3.1-53\', \'3.1-53\', \'3.1-52\', \'3.1-51\'), c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), c(\'The C and R code has been reformatted for legibility.\', \'The old compatibility function rpconvert() has been removed.\', \'The cross-validation functions allow for user interrupt at the end\\nof evaluating each split.\', \'Variable Reliability in data set car90 is corrected to be an\\nordered factor, as documented.\', \'Surrogate splits are now considered only if they send two or more\\ncases _with non-zero weight_ each way. For numeric/ordinal\\nvariables the restriction to non-zero weights is new: for\\ncategorical variables this is a new restriction.\', \'Surrogate splits which improve only by rounding error over the\\ndefault split are no longer returned. Where weights and missing\\nvalues are present, the splits component for some of these was not\\nreturned correctly.\', \'A fit of class \\\'rpart\\\' now contains a component for variable\\n‘importance’, which is reported by the summary() method.\', \'The text() method gains a minlength argument, like the labels()\\nmethod. This adds finer control: the default remains pretty =\\nNULL, minlength = 1L.\', \'The handling of fits with zero and fractional weights has been\\ncorrected: the results may be slightly different (or even\\nsubstantially different when the proportion of zero weights is\\nlarge).\', \'Some memory leaks have been plugged.\', \'There is a second vignette, longintro.Rnw, a version of the\\noriginal Mayo Tecnical Report on rpart.\', \'Added dataset car90, a corrected version of the S-PLUS dataset\\ncar.all (used with permission).\', \'This version does not use paste0{} and so works with R 2.14.x.\', \'Merged in a set of Splus code changes that had accumulated at Mayo\\nover the course of a decade. The primary one is a change in how\\nindexing is done in the underlying C code, which leads to a major\\nspeed increase for large data sets. Essentially, for the lower\\nleaves all our time used to be eaten up by bookkeeping, and this\\nwas replaced by a different approach. The primary routine also\\nuses .Call{} so as to be more memory efficient.\', \'The other major change was an error for asymmetric loss matrices,\\nprompted by a user query. With L=loss asymmetric, the altered\\npriors were computed incorrectly - they were using L' instead of L.\\nUpshot - the tree would not not necessarily choose optimal splits\\nfor the given loss matrix. Once chosen, splits were evaluated\\ncorrectly. The printed “improvement” values are of course the\\nwrong ones as well. It is interesting that for my little test\\ncase, with L quite asymmetric, the early splits in the tree are\\nunchanged - a good split still looks good.\', \'Add the return.all argument to xpred.rpart().\', \'Added a set of formal tests, i.e., cases with known answers to\\nwhich we can compare.\', \'Add a usercode vignette, explaining how to add user defined\\nsplitting functions.\', \'The class method now also returns the node probability.\', \'Add the stagec data set, used in some tests.\', \'The plot.rpart routine needs to store a value that will be visible\\nto the rpartco routine at a later time. This is now done in an\\nenvironment in the namespace.\', \'Force use of registered symbols in R >= 2.16.0\', \'Update Polish translations.\', \'Work on message formats.\', \'Add Polish translations\', \'rpart, rpart.matrix: allow backticks in formulae.\', \'tests/backtick.R: regession test\', \'src/xval.c: ensure unused code is not compiled in.\', \'Change description of margin in ?plot.rpart as suggested by Bill\\nVenables.\')), row.names = c(NA, -29L), class = \'data.frame\'), 1L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames6() {
+ assertEval("argv <- list(structure(list(c(101, 32741, 2147483621, 1.70141183460469e+38, 8.98846567431158e+307)), row.names = c(NA, -5L), class = \'data.frame\'), 1L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames7() {
+ assertEval("argv <- list(structure(list(srcfile = \'/home/lzhao/hg/r-instrumented/library/stats/R/stats\', frow = 5139L, lrow = 5139L), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, -1L), class = \'data.frame\'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames8() {
+ assertEval("argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = \'ts\'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c(\'y\', \'lag.quarterly.revenue\', \'price.index\', \'income.level\', \'market.potential\'), row.names = c(\'1962.25\', \'1962.5\', \'1962.75\', \'1963\', \'1963.25\', \'1963.5\', \'1963.75\', \'1964\', \'1964.25\', \'1964.5\', \'1964.75\', \'1965\', \'1965.25\', \'1965.5\', \'1965.75\', \'1966\', \'1966.25\', \'1966.5\', \'1966.75\', \'1967\', \'1967.25\', \'1967.5\', \'1967.75\', \'1968\', \'1968.25\', \'1968.5\', \'1968.75\', \'1969\', \'1969.25\', \'1969.5\', \'1969.75\', \'1970\', \'1970.25\', \'1970.5\', \'1970.75\', \'1971\', \'1971.25\', \'1971.5\', \'1971.75\'), class = \'data.frame\'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames9() {
+ assertEval("argv <- list(structure(list(Topic = character(0), File = character(0), Title = character(0), Internal = character(0)), .Names = c(\'Topic\', \'File\', \'Title\', \'Internal\'), row.names = integer(0), class = \'data.frame\'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames11() {
+ assertEval("argv <- list(structure(list(age = c(40, 60, 80)), .Names = \'age\', row.names = c(NA, -3L), class = \'data.frame\'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames12() {
+ assertEval("argv <- list(structure(list(surname = structure(integer(0), .Label = c(\'McNeil\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'factor\'), nationality = structure(integer(0), .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(integer(0), .Label = c(\'no\', \'yes\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\'), row.names = integer(0), class = \'data.frame\'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames13() {
+ assertEval("argv <- list(structure(list(age = 1:65), .Names = \'age\'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames14() {
+ assertEval("argv <- list(structure(list(variog = c(0.000474498531874882, 0.00702969158809408, 0.00702969158809408, 0.00398874346479977, 0.000383788683835002, 1.20172224431796e-06, 1.20172224431796e-06, 0.122905372955376, 0.378939119261529, 0.00604112083775904, 0.0365586576304611, 2.52242766079251e-05, 0.100345142776916, 0.00940165099100291, 0.149441544291522, 0.0295722090612792), dist = c(36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36)), .Names = c(\'variog\', \'dist\'), row.names = c(\'2.16\', \'3.16\', \'4.16\', \'1.16\', \'8.16\', \'5.16\', \'6.16\', \'7.16\', \'11.16\', \'9.16\', \'10.16\', \'12.16\', \'13.16\', \'15.16\', \'14.16\', \'16.16\'), class = c(\'Variogram\', \'data.frame\')), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames15() {
+ assertEval("argv <- list(structure(list(age = c(-1, -0.959071428571429, -0.918142857142857, -0.877214285714286, -0.836285714285714, -0.795357142857143, -0.754428571428571, -0.7135, -0.672571428571429, -0.631642857142857, -0.590714285714286, -0.549785714285714, -0.508857142857143, -0.467928571428571, -0.427, -0.386071428571429, -0.345142857142857, -0.304214285714286, -0.263285714285714, -0.222357142857143, -0.181428571428571, -0.1405, -0.0995714285714285, -0.0586428571428571, -0.0177142857142856, 0.0232142857142859, 0.0641428571428573, 0.105071428571429, 0.146, 0.186928571428572, 0.227857142857143, 0.268785714285714, 0.309714285714286, 0.350642857142857, 0.391571428571429, 0.4325, 0.473428571428572, 0.514357142857143, 0.555285714285714, 0.596214285714286, 0.637142857142857, 0.678071428571429, 0.719, 0.759928571428572, 0.800857142857143, 0.841785714285714, 0.882714285714286, 0.923642857142857, 0.964571428571429, 1.0055), Subject = structure(c(25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L, 25L), .Label = c(\'10\', \'26\', \'25\', \'9\', \'2\', \'6\', \'7\', \'17\', \'16\', \'15\', \'8\', \'20\', \'1\', \'18\', \'5\', \'23\', \'11\', \'21\', \'3\', \'24\', \'22\', \'12\', \'13\', \'14\', \'19\', \'4\'), class = \'factor\')), .Names = c(\'age\', \'Subject\'), out.attrs = structure(list(dim = structure(c(50L, 26L), .Names = c(\'age\', \'Subject\')), dimnames = structure(list( age = c(\'age=-1.00000000\', \'age=-0.95907143\', \'age=-0.91814286\', \'age=-0.87721429\', \'age=-0.83628571\', \'age=-0.79535714\', \'age=-0.75442857\', \'age=-0.71350000\', \'age=-0.67257143\', \'age=-0.63164286\', \'age=-0.59071429\', \'age=-0.54978571\', \'age=-0.50885714\', \'age=-0.46792857\', \'age=-0.42700000\', \'age=-0.38607143\', \'age=-0.34514286\', \'age=-0.30421429\', \'age=-0.26328571\', \'age=-0.22235714\', \'age=-0.18142857\', \'age=-0.14050000\', \'age=-0.09957143\', \'age=-0.05864286\', \'age=-0.01771429\', \'age= 0.02321429\', \'age= 0.06414286\', \'age= 0.10507143\', \'age= 0.14600000\', \'age= 0.18692857\', \'age= 0.22785714\', \'age= 0.26878571\', \'age= 0.30971429\', \'age= 0.35064286\', \'age= 0.39157143\', \'age= 0.43250000\', \'age= 0.47342857\', \'age= 0.51435714\', \'age= 0.55528571\', \'age= 0.59621429\', \'age= 0.63714286\', \'age= 0.67807143\', \'age= 0.71900000\', \'age= 0.75992857\', \'age= 0.80085714\', \'age= 0.84178571\', \'age= 0.88271429\', \'age= 0.92364286\', \'age= 0.96457143\', \'age= 1.00550000\'), Subject = c(\'Subject=10\', \'Subject=26\', \'Subject=25\', \'Subject=9\', \'Subject=2\', \'Subject=6\', \'Subject=7\', \'Subject=17\', \'Subject=16\', \'Subject=15\', \'Subject=8\', \'Subject=20\', \'Subject=1\', \'Subject=18\', \'Subject=5\', \'Subject=23\', \'Subject=11\', \'Subject=21\', \'Subject=3\', \'Subject=24\', \'Subject=22\', \'Subject=12\', \'Subject=13\', \'Subject=14\', \'Subject=19\', \'Subject=4\')), .Names = c(\'age\', \'Subject\'))), .Names = c(\'dim\', \'dimnames\')), row.names = 1201:1250, class = \'data.frame\'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames16() {
+ assertEval("argv <- list(structure(list(variog = structure(c(\'0.007239522\', \'0.014584634\', \'0.014207936\', \'0.018442267\', \'0.011128505\', \'0.019910082\', \'0.027072311\', \'0.034140379\', \'0.028320657\', \'0.037525507\'), class = \'AsIs\'), dist = structure(c(\' 1\', \' 6\', \' 7\', \' 8\', \'13\', \'14\', \'15\', \'20\', \'21\', \'22\'), class = \'AsIs\'), n.pairs = structure(c(\' 16\', \' 16\', \'144\', \' 16\', \' 16\', \'128\', \' 16\', \' 16\', \'112\', \' 16\'), .Dim = 10L, .Dimnames = structure(list(c(\'1\', \'6\', \'7\', \'8\', \'13\', \'14\', \'15\', \'20\', \'21\', \'22\')), .Names = \'\'))), .Names = c(\'variog\', \'dist\', \'n.pairs\'), row.names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\'), class = \'data.frame\'), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames17() {
+ assertEval("argv <- list(structure(list(GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962, Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551)), .Names = c(\'GNP.deflator\', \'GNP\', \'Unemployed\', \'Armed.Forces\', \'Population\', \'Year\', \'Employed\'), row.names = 1947:1962, class = \'data.frame\'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames18() {
+ assertEval("argv <- list(structure(list(surname = structure(c(\'McNeil\', \'Ripley\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'AsIs\'), nationality = structure(c(\'Australia\', \'UK\', \'UK\', \'US\', \'US\', \'Australia\'), class = \'AsIs\'), deceased = structure(c(\'no\', \'no\', \'no\', \'no\', \'yes\', \'no\'), class = \'AsIs\'), title = structure(c(\'Interactive Data Analysis\', \'Spatial Statistics\', \'Stochastic Simulation\', \'LISP-STAT\', \'Exploratory Data Analysis\', \'Modern Applied Statistics ...\'), class = \'AsIs\'), other.author = structure(c(NA, NA, NA, NA, NA, \'Ripley\'), class = \'AsIs\')), .Names = c(\'surname\', \'nationality\', \'deceased\', \'title\', \'other.author\'), row.names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\'), class = \'data.frame\'), 1L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames19() {
+ assertEval("argv <- list(structure(list(`cbind(X, M)` = structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(NULL, c(\'X\', \'M\'))), M.user = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L), .Label = c(\'N\', \'Y\'), class = \'factor\', contrasts = \'contr.treatment\'), Temp = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c(\'High\', \'Low\'), class = \'factor\', contrasts = \'contr.treatment\')), .Names = c(\'cbind(X, M)\', \'M.user\', \'Temp\'), terms = quote(cbind(X, M) ~ M.user + Temp + M.user:Temp), row.names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\')), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames20() {
+ assertEval("argv <- list(structure(list(height = numeric(0), weight = numeric(0)), .Names = c(\'height\', \'weight\'), row.names = integer(0), class = \'data.frame\'), 0L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames21() {
+ assertEval("argv <- list(structure(list(A = c(1, NA, 1), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA_integer_, NA_integer_, NA_integer_), E = c(FALSE, NA, TRUE), F = c(\'abc\', NA, \'def\')), .Names = c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\'), class = \'data.frame\', row.names = c(\'1\', \'2\', \'3\')), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames22() {
+ assertEval("argv <- list(structure(list(Hair = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c(\'Black\', \'Brown\', \'Red\', \'Blond\'), class = \'factor\'), Eye = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L), .Label = c(\'Brown\', \'Blue\', \'Hazel\', \'Green\'), class = \'factor\'), Sex = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c(\'Male\', \'Female\'), class = \'factor\')), .Names = c(\'Hair\', \'Eye\', \'Sex\'), out.attrs = structure(list(dim = structure(c(4L, 4L, 2L), .Names = c(\'Hair\', \'Eye\', \'Sex\')), dimnames = structure(list(Hair = c(\'Hair=Black\', \'Hair=Brown\', \'Hair=Red\', \'Hair=Blond\'), Eye = c(\'Eye=Brown\', \'Eye=Blue\', \'Eye=Hazel\', \'Eye=Green\'), Sex = c(\'Sex=Male\', \'Sex=Female\')), .Names = c(\'Hair\', \'Eye\', \'Sex\'))), .Names = c(\'dim\', \'dimnames\')), class = \'data.frame\', row.names = c(NA, -32L)), 1L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testshortRowNames23() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1, 2), Deviance = c(12.2441566485997, 8.44399377410362, 11.9670615295804), AIC = c(73.9421143635373, 72.1419514890412, 77.665019244518)), .Names = c(\'Df\', \'Deviance\', \'AIC\'), row.names = c(\'<none>\', \'Temp\', \'Soft\'), class = c(\'anova\', \'data.frame\'), heading = c(\'Single term additions\', \'\\nModel:\', \'cbind(X, M) ~ M.user\')), 2L); .Internal(shortRowNames(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsign.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsign.java
new file mode 100644
index 0000000000000000000000000000000000000000..a26d61afd0e22fa8d8d24f3a2688fea27b4f3bff
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsign.java
@@ -0,0 +1,72 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsign extends TestBase {
+
+ @Test
+ @Ignore
+ public void testsign1() {
+ assertEval("argv <- list(29);sign(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsign2() {
+ assertEval("argv <- list(-29);sign(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsign3() {
+ assertEval("argv <- list(structure(-29.5, .Names = \'W\'));sign(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsign4() {
+ assertEval("argv <- list(c(2, 1.5));sign(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsign5() {
+ assertEval("argv <- list(structure(c(0.880860525591375, 0.639733585162877, 0.698114489497201, -0.163771828170666, 0.644716815673843, 0.434938037582636, -1.02532598809559, -0.414997803714266, 0.314897800466685, 0.824285322485286, 0.771220667991526, -1.0213685325144, 0.928795080183842, 0.819280413726459, -1.81676447087493, 0.750354069620072, 0.445075757764079, -0.708114061379466, 0.824862990562917, -0.538393491087728, 0.974198118249183, -1.44391305877857, -0.0570136982996023, -0.0628620473044737, 0.00599485749367468, 0.397443892596693, -0.670529694022941, -0.443694007369259, -1.60185734774623, -0.125754544304519, 0.726126214864875, -0.0167895964097286, -0.306643229540329, -0.216330373334122, -0.903891452322388, 0.326172148813803, -0.13510345952301, -0.897613228123322, 0.845413917001047, -0.831631251080141, 0.487109758044019, -2.39537135767952, -1.00899546383701, -0.15086268042785, 0.817762526779461, -0.0500097005975852, 0.489115737630558, -0.570402758036241, 0.837693310865448, 0.128079053272328, -0.543417844555625, -0.372441278809232, 0.0566412271335022, -0.292618377937407, 0.331718074329116, 0.424938499372394, 0.976537923557996, 0.463868773879129, -0.204612235294409, 0.635623103866607, 0.563790796039522, 0.102279312881195, -0.0139544456391161, 0.319200502078835, -0.348934065906413, 0.553375167400346, -0.448280809644608, -0.00983940055010783, -0.259698968965015, 0.919652420667434, -0.47355400612706, -0.135894354949879, -0.0129965646298911, 0.162878599329267, 0.243328472793848, -0.0718304876664265), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\')));sign(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsign6() {
+ assertEval("argv <- list(structure(c(-Inf, Inf, -Inf), .Dim = 3L, .Dimnames = list(c(\'73\', \'312\', \'674\'))));sign(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsign7() {
+ assertEval("argv <- list(c(NA, 2L, 2L));sign(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsign8() {
+ assertEval("argv <- list(c(-2.3, -0.9, -0.0666666666666667, 0.275, 0.12, 0.216666666666667, -0.228571428571429, -0.35, -0.188888888888889, -1.77635683940025e-16, 0.0272727272727272, -0.108333333333333, -0.246153846153846));sign(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsign9() {
+ assertEval("argv <- list(numeric(0));sign(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsin.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsin.java
new file mode 100644
index 0000000000000000000000000000000000000000..0da36ee526ea21a0ea3b5fa5560a90110eb7d8ca
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsin.java
@@ -0,0 +1,58 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsin extends TestBase {
+
+ @Test
+ @Ignore
+ public void testsin1() {
+ assertEval("argv <- list(c(-6.28318530717959, -6.1261056745001, -5.96902604182061, -5.81194640914112, -5.65486677646163, -5.49778714378214, -5.34070751110265, -5.18362787842316, -5.02654824574367, -4.86946861306418, -4.71238898038469, -4.5553093477052, -4.39822971502571, -4.24115008234622, -4.08407044966673, -3.92699081698724, -3.76991118430775, -3.61283155162826, -3.45575191894877, -3.29867228626928, -3.14159265358979, -2.9845130209103, -2.82743338823081, -2.67035375555132, -2.51327412287183, -2.35619449019234, -2.19911485751286, -2.04203522483337, -1.88495559215388, -1.72787595947439, -1.5707963267949, -1.41371669411541, -1.25663706143592, -1.09955742875643, -0.942477796076938, -0.785398163397448, -0.628318530717959, -0.471238898038469, -0.314159265358979, -0.15707963267949, 0, 0.15707963267949, 0.314159265358979, 0.471238898038469, 0.628318530717959, 0.785398163397448, 0.942477796076938, 1.09955742875643, 1.25663706143592, 1.41371669411541, 1.5707963267949, 1.72787595947439, 1.88495559215388, 2.04203522483337, 2.19911485751286, 2.35619449019234, 2.51327412287183, 2.67035375555133, 2.82743338823081, 2.9845130209103, 3.14159265358979, 3.29867228626928, 3.45575191894877, 3.61283155162826, 3.76991118430775, 3.92699081698724, 4.08407044966673, 4.24115008234622, 4.39822971502571, 4.5553093477052, 4.71238898038469, 4.86946861306418, 5.02654824574367, 5.18362787842316, 5.34070751110265, 5.49778714378214, 5.65486677646163, 5.81194640914112, 5.96902604182061, 6.1261056745001, 6.28318530717959, 6.44026493985908, 6.59734457253857, 6.75442420521805, 6.91150383789754, 7.06858347057704, 7.22566310325652, 7.38274273593601, 7.5398223686155, 7.69690200129499, 7.85398163397448, 8.01106126665397, 8.16814089933346, 8.32522053201295, 8.48230016469244, 8.63937979737193, 8.79645943005142, 8.95353906273091, 9.1106186954104, 9.26769832808989, 9.42477796076938));sin(argv[[1]]);");
+ }
+
+ @Test
+ public void testsin2() {
+ assertEval("argv <- list(c(0.0156298141969641, 0.0312596283939283, 0.0468894425908924, 0.0625192567878566, 0.0781490709848207, 0.0937788851817849, 0.109408699378749, 0.125038513575713, 0.140668327772677, 0.156298141969641, 0.171927956166606, 0.18755777036357, 0.203187584560534, 0.218817398757498, 0.234447212954462, 0.250077027151426, 0.26570684134839, 0.281336655545355, 0.296966469742319, 0.312596283939283, 0.328226098136247, 0.343855912333211, 0.359485726530175, 0.375115540727139, 0.390745354924104, 0.406375169121068, 0.422004983318032, 0.437634797514996, 0.45326461171196, 0.468894425908924, 0.484524240105888, 0.500154054302853, 0.515783868499817, 0.531413682696781, 0.547043496893745, 0.562673311090709, 0.578303125287673, 0.593932939484637, 0.609562753681602, 0.625192567878566, 0.64082238207553, 0.656452196272494, 0.672082010469458, 0.687711824666422, 0.703341638863387, 0.718971453060351, 0.734601267257315, 0.750231081454279, 0.765860895651243, 0.781490709848207, 0.797120524045171, 0.812750338242136, 0.8283801524391, 0.844009966636064, 0.859639780833028, 0.875269595029992, 0.890899409226956, 0.90652922342392, 0.922159037620885, 0.937788851817849, 0.953418666014813, 0.969048480211777, 0.984678294408741, 1.00030810860571, 1.01593792280267, 1.03156773699963, 1.0471975511966, 1.06282736539356, 1.07845717959053, 1.09408699378749, 1.10971680798445, 1.12534662218142, 1.14097643637838, 1.15660625057535, 1.17223606477231, 1.18786587896927, 1.20349569316624, 1.2191255073632, 1.23475532156017, 1.25038513575713, 1.2660149499541, 1.28164476415106, 1.29727457834802, 1.31290439254499, 1.32853420674195, 1.34416402093892, 1.35979383513588, 1.37542364933284, 1.39105346352981, 1.40668327772677, 1.42231309192374, 1.4379429061207, 1.45357272031767, 1.46920253451463, 1.48483234871159, 1.50046216290856, 1.51609197710552, 1.53172179130249, 1.54735160549945, 1.56298141969641));sin(argv[[1]]);");
+ }
+
+ @Test
+ public void testsin3() {
+ assertEval("argv <- list(c(0.560475646552213, 0.23017748948328, -1.55870831414912, -0.070508391424576, -0.129287735160946, -1.71506498688328, -0.460916205989202, 1.26506123460653, 0.686852851893526, 0.445661970099958, -1.22408179743946, -0.359813827057364, -0.400771450594052, -0.11068271594512, 0.555841134754075, -1.78691313680308, -0.497850478229239, 1.96661715662964, -0.701355901563686, 0.472791407727934, 1.06782370598685, 0.217974914658295, 1.02600444830724, 0.72889122929114, 0.625039267849257, 1.68669331074241, -0.837787044494525, -0.153373117836515, 1.13813693701195, -1.25381492106993, -0.426464221476814, 0.295071482992271, -0.895125661045022, -0.878133487533042, -0.821581081637487, -0.688640254100091, -0.553917653537589, 0.0619117105767217, 0.305962663739917, 0.380471001012383, 0.694706978920513, 0.207917278019599, 1.26539635156826, -2.16895596533851, -1.20796199830499, 1.12310858320335, 0.402884835299076, 0.466655353623219, -0.779965118336318, 0.0833690664718293, -0.253318513994755, 0.028546755348703, 0.0428704572913161, -1.36860228401446, 0.225770985659268, -1.51647060442954, 1.54875280423022, -0.584613749636069, -0.123854243844614, -0.215941568743973, -0.379639482759882, 0.502323453109302, 0.33320738366942, 1.01857538310709, 1.07179122647558, -0.303528641404258, -0.448209778629426, -0.0530042267305041, -0.922267467879738, -2.05008468562714, 0.491031166056535, 2.30916887564081, -1.00573852446226, 0.709200762582393, 0.688008616467358, -1.0255713696967, 0.284773007051009, 1.22071771225454, -0.18130347974915, 0.138891362439045, -0.00576418589988693, -0.38528040112633, 0.370660031792409, -0.644376548518833, 0.220486561818751, -0.331781963915697, -1.09683901314935, -0.435181490833803, 0.325931585531227, -1.14880761845109, -0.993503855962119, -0.54839695950807, -0.238731735111441, 0.627906076039371, -1.36065244853001, 0.600259587147127, -2.18733299301658, -1.53261062618519, 0.235700359100477));sin(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsin4() {
+ assertEval("argv <- list(c(-1.88495559215388, 0.628318530717959, -2.51327412287183, 5.02654824574367, 0.942477796076938, -2.51327412287183, 1.5707963267949, 2.19911485751286, 1.88495559215388, -0.942477796076938, 4.71238898038469, 1.25663706143592, -1.88495559215388, -6.91150383789755, 3.45575191894877, 0, 0, 2.82743338823081, 2.51327412287183, 1.88495559215388, 2.82743338823081, 2.51327412287183, 0.314159265358979, -6.28318530717959, 1.88495559215388, -0.314159265358979, -0.628318530717959, -4.71238898038469, -1.5707963267949, 1.25663706143592));sin(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsin5() {
+ assertEval("argv <- list(structure(c(-0.416146836547142, -0.989992496600445, -0.653643620863612, 0.283662185463226, 0.960170286650366, -0.416146836547142, 0.283662185463226, -0.839071529076452, -0.275163338051597, 0.64691932232864, 0.283662185463226, -0.759687912858821, 0.914742357804531, -0.918282786212119, 0.776685982021631), .Dim = c(5L, 3L)));sin(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsin6() {
+ assertEval("argv <- list(c(-0.560475646552213-0.710406563699301i, -0.23017748948328+0.25688370915653i, 1.55870831414912-0.24669187846237i, 0.070508391424576-0.347542599397733i, 0.129287735160946-0.951618567265016i, 1.71506498688328-0.04502772480892i, 0.460916205989202-0.784904469457076i, -1.26506123460653-1.66794193658814i, -0.686852851893526-0.380226520287762i, -0.445661970099958+0.918996609060766i, 1.22408179743946-0.57534696260839i, 0.359813827057364+0.607964322225033i, 0.40077145059405-1.61788270828916i, 0.11068271594512-0.055561965524539i, -0.555841134754075+0.519407203943462i, 1.78691313680308+0.30115336216671i, 0.497850478229239+0.105676194148943i, -1.96661715662964-0.64070600830538i, 0.701355901563686-0.849704346033582i, -0.47279140772793-1.02412879060491i, -1.06782370598685+0.11764659710013i, -0.217974914658295-0.947474614184802i, -1.02600444830724-0.49055744370067i, -0.72889122929114-0.256092192198247i, -0.62503926784926+1.84386200523221i, -1.68669331074241-0.65194990169546i, 0.837787044494525+0.235386572284857i, 0.153373117836515+0.077960849563711i, -1.13813693701195-0.96185663413013i, 1.25381492106993-0.0713080861236i, 0.42646422147681+1.44455085842335i, -0.295071482992271+0.451504053079215i, 0.895125661045022+0.04123292199294i, 0.878133487533042-0.422496832339625i, 0.82158108163749-2.05324722154052i, 0.68864025410009+1.13133721341418i, 0.55391765353759-1.46064007092482i, -0.061911710576722+0.739947510877334i, -0.30596266373992+1.90910356921748i, -0.38047100101238-1.4438931609718i, -0.694706978920513+0.701784335374711i, -0.207917278019599-0.262197489402468i, -1.26539635156826-1.57214415914549i, 2.16895596533851-1.51466765378175i, 1.20796199830499-1.60153617357459i, -1.12310858320335-0.5309065221703i, -0.40288483529908-1.4617555849959i, -0.466655353623219+0.687916772975828i, 0.77996511833632+2.10010894052567i, -0.08336906647183-1.28703047603518i, 0.253318513994755+0.787738847475178i, -0.028546755348703+0.76904224100091i, -0.042870457291316+0.332202578950118i, 1.36860228401446-1.00837660827701i, -0.225770985659268-0.119452606630659i, 1.51647060442954-0.28039533517025i, -1.54875280423022+0.56298953322048i, 0.584613749636069-0.372438756103829i, 0.123854243844614+0.976973386685621i, 0.215941568743973-0.374580857767014i, 0.37963948275988+1.05271146557933i, -0.5023234531093-1.04917700666607i, -0.33320738366942-1.26015524475811i, -1.01857538310709+3.2410399349424i, -1.07179122647558-0.41685758816043i, 0.303528641404258+0.298227591540715i, 0.448209778629426+0.636569674033849i, 0.053004226730504-0.483780625708744i, 0.922267467879738+0.516862044313609i, 2.05008468562714+0.36896452738509i, -0.491031166056535-0.215380507641693i, -2.30916887564081+0.06529303352532i, 1.00573852446226-0.03406725373846i, -0.70920076258239+2.12845189901618i, -0.688008616467358-0.741336096272828i, 1.0255713696967-1.09599626707466i, -0.284773007051009+0.037788399171079i, -1.22071771225454+0.31048074944314i, 0.18130347974915+0.436523478910183i, -0.138891362439045-0.458365332711106i, 0.00576418589989-1.06332613397119i, 0.38528040112633+1.26318517608949i, -0.370660031792409-0.349650387953555i, 0.644376548518833-0.865512862653374i, -0.220486561818751-0.236279568941097i, 0.331781963915697-0.197175894348552i, 1.09683901314935+1.10992028971364i, 0.435181490833803+0.084737292197196i, -0.325931585531227+0.754053785184521i, 1.14880761845109-0.49929201717226i, 0.993503855962119+0.214445309581601i, 0.54839695950807-0.324685911490835i, 0.238731735111441+0.094583528173571i, -0.627906076039371-0.895363357977542i, 1.36065244853001-1.31080153332797i, -0.60025958714713+1.99721338474797i, 2.18733299301658+0.60070882367242i, 1.53261062618519-1.25127136162494i, -0.235700359100477-0.611165916680421i, -1.02642090030678-1.18548008459731i));sin(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsin7() {
+ assertEval("argv <- list(Inf);sin(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsinh.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsinh.java
new file mode 100644
index 0000000000000000000000000000000000000000..742fdfc6eb22d94e109abcefd87f867abd614975
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsinh.java
@@ -0,0 +1,30 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsinh extends TestBase {
+
+ @Test
+ @Ignore
+ public void testsinh1() {
+ assertEval("argv <- list(FALSE);sinh(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsinh2() {
+ assertEval("argv <- list(c(-3, -2.96984924623116, -2.93969849246231, -2.90954773869347, -2.87939698492462, -2.84924623115578, -2.81909547738693, -2.78894472361809, -2.75879396984925, -2.7286432160804, -2.69849246231156, -2.66834170854271, -2.63819095477387, -2.60804020100502, -2.57788944723618, -2.54773869346734, -2.51758793969849, -2.48743718592965, -2.4572864321608, -2.42713567839196, -2.39698492462312, -2.36683417085427, -2.33668341708543, -2.30653266331658, -2.27638190954774, -2.24623115577889, -2.21608040201005, -2.18592964824121, -2.15577889447236, -2.12562814070352, -2.09547738693467, -2.06532663316583, -2.03517587939699, -2.00502512562814, -1.9748743718593, -1.94472361809045, -1.91457286432161, -1.88442211055276, -1.85427135678392, -1.82412060301508, -1.79396984924623, -1.76381909547739, -1.73366834170854, -1.7035175879397, -1.67336683417085, -1.64321608040201, -1.61306532663317, -1.58291457286432, -1.55276381909548, -1.52261306532663, -1.49246231155779, -1.46231155778894, -1.4321608040201, -1.40201005025126, -1.37185929648241, -1.34170854271357, -1.31155778894472, -1.28140703517588, -1.25125628140704, -1.22110552763819, -1.19095477386935, -1.1608040201005, -1.13065326633166, -1.10050251256281, -1.07035175879397, -1.04020100502513, -1.01005025125628, -0.979899497487437, -0.949748743718593, -0.919597989949749, -0.889447236180905, -0.859296482412061, -0.829145728643216, -0.798994974874372, -0.768844221105528, -0.738693467336684, -0.708542713567839, -0.678391959798995, -0.648241206030151, -0.618090452261307, -0.587939698492463, -0.557788944723618, -0.527638190954774, -0.49748743718593, -0.467336683417086, -0.437185929648241, -0.407035175879397, -0.376884422110553, -0.346733668341709, -0.316582914572864, -0.28643216080402, -0.256281407035176, -0.226130653266332, -0.195979899497488, -0.165829145728643, -0.135678391959799, -0.105527638190955, -0.0753768844221105, -0.0452261306532664, -0.0150753768844223, 0.0150753768844218, 0.0452261306532664, 0.0753768844221105, 0.105527638190955, 0.135678391959799, 0.165829145728643, 0.195979899497488, 0.226130653266332, 0.256281407035176, 0.28643216080402, 0.316582914572864, 0.346733668341709, 0.376884422110553, 0.407035175879397, 0.437185929648241, 0.467336683417085, 0.49748743718593, 0.527638190954774, 0.557788944723618, 0.587939698492462, 0.618090452261306, 0.648241206030151, 0.678391959798995, 0.708542713567839, 0.738693467336683, 0.768844221105527, 0.798994974874372, 0.829145728643216, 0.85929648241206, 0.889447236180904, 0.919597989949748, 0.949748743718593, 0.979899497487437, 1.01005025125628, 1.04020100502513, 1.07035175879397, 1.10050251256281, 1.13065326633166, 1.1608040201005, 1.19095477386935, 1.22110552763819, 1.25125628140704, 1.28140703517588, 1.31155778894472, 1.34170854271357, 1.37185929648241, 1.40201005025126, 1.4321608040201, 1.46231155778894, 1.49246231155779, 1.52261306532663, 1.55276381909548, 1.58291457286432, 1.61306532663317, 1.64321608040201, 1.67336683417085, 1.7035175879397, 1.73366834170854, 1.76381909547739, 1.79396984924623, 1.82412060301507, 1.85427135678392, 1.88442211055276, 1.91457286432161, 1.94472361809045, 1.9748743718593, 2.00502512562814, 2.03517587939698, 2.06532663316583, 2.09547738693467, 2.12562814070352, 2.15577889447236, 2.18592964824121, 2.21608040201005, 2.24623115577889, 2.27638190954774, 2.30653266331658, 2.33668341708543, 2.36683417085427, 2.39698492462312, 2.42713567839196, 2.4572864321608, 2.48743718592965, 2.51758793969849, 2.54773869346734, 2.57788944723618, 2.60804020100502, 2.63819095477387, 2.66834170854271, 2.69849246231156, 2.7286432160804, 2.75879396984925, 2.78894472361809, 2.81909547738693, 2.84924623115578, 2.87939698492462, 2.90954773869347, 2.93969849246231, 2.96984924623116, 3));sinh(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsink.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsink.java
new file mode 100644
index 0000000000000000000000000000000000000000..290848da90b83392a3a2f08313c78c3bc62051eb
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsink.java
@@ -0,0 +1,31 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsink extends TestBase {
+
+ @Test
+ @Ignore
+ public void testsink1() {
+ assertEval("argv <- list(structure(2L, class = c(\'terminal\', \'connection\')), FALSE, TRUE, FALSE); .Internal(sink(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+
+ @Test
+ @Ignore
+ public void testsink3() {
+ assertEval("argv <- list(-1L, FALSE, FALSE, FALSE); .Internal(sink(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsinknumber.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsinknumber.java
new file mode 100644
index 0000000000000000000000000000000000000000..6140a533d869baaab77125e0bc47330bb3b3159a
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsinknumber.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsinknumber extends TestBase {
+
+ @Test
+ @Ignore
+ public void testsinknumber1() {
+ assertEval("argv <- list(FALSE); .Internal(sink.number(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsort.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsort.java
new file mode 100644
index 0000000000000000000000000000000000000000..84dab31b6de0c6c2da89b5d22eaeac6df20d2eaf
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsort.java
@@ -0,0 +1,108 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsort extends TestBase {
+
+ @Test
+ @Ignore
+ public void testsort1() {
+ assertEval("argv <- list(\'x1\', FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsort2() {
+ assertEval("argv <- list(1:10, TRUE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsort3() {
+ assertEval("argv <- list(c(1L, 2L, 3L, 153L, 4L, 154L, 303L, 452L, 5L, 155L, 304L, 453L, 6L, 156L, 305L, 454L, 7L, 157L, 306L, 455L, 8L, 158L, 307L, 456L, 9L, 159L, 308L, 457L, 10L, 160L, 309L, 458L, 11L, 161L, 310L, 459L, 12L, 162L, 311L, 460L, 13L, 163L, 312L, 461L, 14L, 164L, 313L, 462L, 15L, 165L, 314L, 463L, 16L, 166L, 315L, 464L, 17L, 167L, 316L, 465L, 18L, 168L, 317L, 466L, 19L, 169L, 318L, 467L, 20L, 170L, 319L, 468L, 21L, 171L, 320L, 469L, 22L, 172L, 321L, 470L, 23L, 173L, 322L, 471L, 24L, 174L, 323L, 472L, 25L, 175L, 324L, 473L, 26L, 176L, 325L, 474L, 27L, 177L, 326L, 475L, 28L, 178L, 327L, 476L, 29L, 179L, 328L, 477L, 30L, 180L, 329L, 478L, 31L, 181L, 330L, 479L, 32L, 182L, 331L, 480L, 33L, 183L, 332L, 481L, 34L, 184L, 333L, 482L, 35L, 185L, 334L, 483L, 36L, 186L, 335L, 484L, 37L, 187L, 336L, 485L, 38L, 188L, 337L, 486L, 39L, 189L, 338L, 487L, 40L, 190L, 339L, 488L, 41L, 191L, 340L, 489L, 42L, 192L, 341L, 490L, 43L, 193L, 342L, 491L, 44L, 194L, 343L, 492L, 45L, 195L, 344L, 493L, 46L, 196L, 345L, 494L, 47L, 197L, 346L, 495L, 48L, 198L, 347L, 496L, 49L, 199L, 348L, 497L, 50L, 200L, 349L, 498L, 51L, 201L, 350L, 499L, 52L, 202L, 351L, 500L, 53L, 203L, 352L, 501L, 54L, 204L, 353L, 502L, 55L, 205L, 354L, 503L, 56L, 206L, 355L, 504L, 57L, 207L, 356L, 505L, 58L, 208L, 357L, 506L, 59L, 209L, 358L, 507L, 60L, 210L, 359L, 508L, 61L, 211L, 360L, 509L, 62L, 212L, 361L, 510L, 63L, 213L, 362L, 511L, 64L, 214L, 363L, 512L, 65L, 215L, 364L, 513L, 66L, 216L, 365L, 514L, 67L, 217L, 366L, 515L, 68L, 218L, 367L, 516L, 69L, 219L, 368L, 517L, 70L, 220L, 369L, 518L, 71L, 221L, 370L, 519L, 72L, 222L, 371L, 520L, 73L, 223L, 372L, 521L, 74L, 224L, 373L, 522L, 75L, 225L, 374L, 523L, 76L, 226L, 375L, 524L, 77L, 227L, 376L, 525L, 78L, 228L, 377L, 526L, 79L, 229L, 378L, 527L, 80L, 230L, 379L, 528L, 81L, 231L, 380L, 529L, 82L, 232L, 381L, 530L, 83L, 233L, 382L, 531L, 84L, 234L, 383L, 532L, 85L, 235L, 384L, 533L, 86L, 236L, 385L, 534L, 87L, 237L, 386L, 535L, 88L, 238L, 387L, 536L, 89L, 239L, 388L, 537L, 90L, 240L, 389L, 538L, 91L, 241L, 390L, 539L, 92L, 242L, 391L, 540L, 93L, 243L, 392L, 541L, 94L, 244L, 393L, 542L, 95L, 245L, 394L, 543L, 96L, 246L, 395L, 544L, 97L, 247L, 396L, 545L, 98L, 248L, 397L, 546L, 99L, 249L, 398L, 547L, 100L, 250L, 399L, 548L, 101L, 251L, 400L, 549L, 102L, 252L, 401L, 550L, 103L, 253L, 402L, 551L, 104L, 254L, 403L, 552L, 105L, 255L, 404L, 553L, 106L, 256L, 405L, 554L, 107L, 257L, 406L, 555L, 108L, 258L, 407L, 556L, 109L, 259L, 408L, 557L, 110L, 260L, 409L, 558L, 111L, 261L, 410L, 559L, 112L, 262L, 411L, 560L, 113L, 263L, 412L, 561L, 114L, 264L, 413L, 562L, 115L, 265L, 414L, 563L, 116L, 266L, 415L, 564L, 117L, 267L, 416L, 565L, 118L, 268L, 417L, 566L, 119L, 269L, 418L, 567L, 120L, 270L, 419L, 568L, 121L, 271L, 420L, 569L, 122L, 272L, 421L, 570L, 123L, 273L, 422L, 571L, 124L, 274L, 423L, 572L, 125L, 275L, 424L, 573L, 126L, 276L, 425L, 574L, 127L, 277L, 426L, 575L, 128L, 278L, 427L, 576L, 129L, 279L, 428L, 577L, 130L, 280L, 429L, 578L, 131L, 281L, 430L, 579L, 132L, 282L, 431L, 580L, 133L, 283L, 432L, 581L, 134L, 284L, 433L, 582L, 135L, 285L, 434L, 583L, 136L, 286L, 435L, 584L, 137L, 287L, 436L, 585L, 138L, 288L, 437L, 586L, 139L, 289L, 438L, 587L, 140L, 290L, 439L, 588L, 141L, 291L, 440L, 589L, 142L, 292L, 441L, 590L, 143L, 293L, 442L, 591L, 144L, 294L, 443L, 592L, 145L, 295L, 444L, 593L, 146L, 296L, 445L, 594L, 147L, 297L, 446L, 595L, 148L, 298L, 447L, 596L, 149L, 299L, 448L, 597L, 150L, 300L, 449L, 598L, 151L, 301L, 450L, 599L, 152L, 302L, 451L, 600L), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsort4() {
+ assertEval("argv <- list(c(\'graphics\', \'lattice\', \'stats\'), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsort5() {
+ assertEval("argv <- list(1:54, FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsort6() {
+ assertEval("argv <- list(c(8.41842881182087, 0.633658419345243, 0.55014003120899, 0.264811823419969, 2.45100807149625e-16, 1.4406901715276e-16), TRUE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsort7() {
+ assertEval("argv <- list(FALSE, FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsort8() {
+ assertEval("argv <- list(c(12784, 12815, 12843, 12874, 12904, 12935, 12965, 12996, 13027, 13057, 13088, 13118, 13149, 13180, 13208, 13239, 13269, 13300, 13330, 13361, 13392, 13422, 13453, 13483, 13514, 13545, 13573, 13604, 13634, 13665, 13695, 13726, 13757, 13787, 13818, 13848, 13879, 13910, 13939, 13970, 14000, 14031, 14061, 14092, 14123, 14153, 14184, 14214, 14245, 14276), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsort9() {
+ assertEval("argv <- list(c(\'M.user\', \'Soft\'), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsort10() {
+ assertEval("argv <- list(c(0, 1, 2, 3, 4, 5, 10, 20, 0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 10.5, 20.5), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsort11() {
+ assertEval("argv <- list(c(-2.19467484932178, -1.98568521098019, -1.77669557263859, -1.567705934297, -1.35871629595541, -1.14972665761382, -0.940737019272223, -0.73174738093063, -0.522757742589037, -0.313768104247444, -0.104778465905851, 0.104211172435742, 0.313200810777335, 0.522190449118928, 0.731180087460521, 0.940169725802114, 1.14915936414371), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsort12() {
+ assertEval("argv <- list(numeric(0), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsort13() {
+ assertEval("argv <- list(c(3.2170141852258, 1.05106928690785, 1.66357940564162, 2.06079422122964, 4.14833588122863, 2.06378765307826, 2.36276370659185, 3.24215147884243, 2.83953129834327, 3.30869483883634, 5.46733964221407, 2.03767398891014, 2.85680802025857, 2.64551821042465, 4.67467308700083, 2.3927927372781, 3.08019075639266, 3.94941127449109, 2.10368712421998, 4.81745347591039, 3.83804007564263, 2.08807105063803, 3.61685546922612, 2.94897051693531, 3.47550643216271, 3.07230246315272, 4.23279369694672, 1.81117727446505, 2.63966096297246, 2.91308698241298, 2.16647893531705, 2.12232261640219, 3.14429741959172, 3.03010252731164, 0.612934885417947, 4.20285111588776, 3.41200339615357, 5.57848503331671, 3.84747589821948, 2.71531835120639, 5.95966880712648, 5.99450368408389, 1.9435658438782, 3.6313096161238, 2.95103074153623, 3.34932880672239, 3.38982038873719, 1.90037719729933, 3.44786724041094, 4.91152502331018, 2.99818765603358, 2.99935094946993, 4.56084966650585, 4.06067390085133, 1.51378284178709, 3.39083463343057, 4.81582489484611, 4.57755401008752, 3.58222926398261, 3.88349846728127, 1.9653424479797, 3.46240922704975, 2.20782872498056, 2.70425959207144, 4.09788134394798, 2.02538454847724, 3.42919591104144, 3.59060969963992, 3.21718963000801, 4.98446648200379, 2.13993033159313, 3.76840792160398, 3.07334709271771, 2.90144541633446, 3.62636889402076, 2.14187706948445, 1.84882674364997, 2.66779678468496, 4.91403480992383, 3.2180424347809, 3.49371205839627, 2.97243102249084, 3.6327703921222, 2.21059811715123, 4.32018812673702, 3.74698292040973, 2.35582483747667, 3.21683090598037, 3.8786092796675, 3.72000864222298, 4.64421167604526, 2.54928990527353, 4.27841427565877, 4.1988256701096, 2.99979452826552, 2.18635096734649, 2.07313246928386, 3.62006461811335, 3.09115092644749, 4.94138032701983), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsort14() {
+ assertEval("argv <- list(c(2.17292368994844e-311, 4.34584737989688e-311, 8.69169475979376e-311, 1.73833895195875e-310, 3.4766779039175e-310, 6.953355807835e-310, 1.390671161567e-309, 2.781342323134e-309, 5.562684646268e-309, 1.1125369292536e-308, 2.2250738585072e-308, 4.4501477170144e-308, 8.90029543402881e-308, 1.78005908680576e-307, 2.2250738585072e-303, 2.2250738585072e-298, 1.79769313486232e+298, 1.79769313486232e+303, 2.24711641857789e+307, 4.49423283715579e+307, 8.98846567431158e+307, 1.79769313486232e+308, Inf, -Inf, Inf), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsort15() {
+ assertEval("argv <- list(structure(c(74, 68, 56, 57, 60, 71, 53, 61, 67, 70, 63, 49, 50, 58, 72, 69, 73, 48, 62, 65, 66, 64, 59, 76, 75, 40, 51, 81, 55, 42, 44, 54, 80, 77, 47, 82, 46, 43, 39, 45, 52, 41), .Dim = c(42L, 1L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'8\', \'9\', \'10\', \'16\', \'17\', \'18\', \'22\', \'23\', \'24\', \'25\', \'31\', \'32\', \'33\', \'36\', \'37\', \'38\', \'40\', \'43\', \'46\', \'61\', \'74\', \'77\', \'79\', \'82\', \'83\', \'84\', \'107\', \'113\', \'129\', \'133\', \'149\', \'168\', \'174\', \'182\', \'186\', \'192\', \'217\'), \'age\')), FALSE); .Internal(sort(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsplit.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsplit.java
new file mode 100644
index 0000000000000000000000000000000000000000..f3c9f5fa773347feff44c8b4bb4f6128cf8b8e70
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsplit.java
@@ -0,0 +1,108 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsplit extends TestBase {
+
+ @Test
+ @Ignore
+ public void testsplit1() {
+ assertEval("argv <- list(1:6, structure(1:2, .Label = c(\'1\', \'2\'), class = \'factor\')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsplit2() {
+ assertEval("argv <- list(structure(c(-1.13864415195445, 0.574433648632919, 0.61125743366192, 0.291104607198021, 1.44367450704693, 0.408616385050392, -0.252815027721455, 0.73544465026571, -0.711029326417947, -0.611820918993561, -0.963259276248408, -0.28935033673839, -0.482346616963731, 0.575284398820533, 0.0664802498883062, 0.0889008730409177, -0.527009741835806, -0.572160487726669, 0.458433701366337, 0.0259549922279207, 0.79246010222197, 0.200856719794408, 0.681708382019133, 1.24959713166139, 2.28504683598586, 0.885201117877485, 0.275047494865858, 0.0611635446204713, -0.226340664609402, -0.701634984067551, -1.36331112409512, -0.470720710127998, 0.0116712292760789, 0.680960771805182, 1.25010637890252, -0.168484448953506, -0.703880448859559, -0.342493773069341, -0.359950801091045, 0.187018301421814, 0.332611568778467, 0.418088885897922, 1.52526747601546, 1.23881025318897, 1.97893910443604, 1.67980257496383, -0.0423836378777035, -0.085940264442189, 0.0751591419566941, 1.33615888669544, 1.29143414265875, 0.211686019646981, 0.107754613497605, -0.842122877395922, -0.363550334633855, -1.04260396788242, -1.00216202750311, -0.725219786582336, -0.702075395338802, -0.0588517433215815, 0.676181221812652, 0.606054389584641, -0.0722001122493283, -0.565579974058951, -1.50420998542363, -1.38835023347894, -1.6387526999868, -1.22317617387598, -2.6439685322602, -1.50311594814139, 0.58539278534518, 0.476423420506994, -0.229810354321508, -0.669629539423225, -0.500767918117353, -1.30780681405878, -0.0658147956438969, 0.619743292251259, 0.947409254626009, 0.137968713284014, -0.0705143536229389, -0.316245167388448, 0.423768217540825, -1.77132723836955, 0.437524374017483, 1.05217040293853, 1.29145821945076, 0.189519814277623, 0.405463210651828, -1.10579240546022, 0.470126971026959, 1.3013241742778, 1.57690948154138, 0.836753145709701, -0.0990436481848584, 0.305059193206195, 0.722542224965483, 0.497020187014643, -0.798519685959293, -0.162044448918511, -0.268976403560686, 0.471344909208507, 1.07960447064393, 0.816448434674936, 1.01857006703316, -0.19352270657549, 0.193745914189151, -0.0118346974247015, 0.515110447770272, 1.29117007883295, 0.484844437955959, 0.357506193819553, -1.95817055695569, -1.62102859205691, -2.13900473718215, -2.19173201733318, -1.86372596557808, -1.18864210270607, -1.19890597040604, 0.432503235072499, 0.594410727524479, 1.21432538936706, 2.15795981275539, 1.31528364302187, 0.38422055227912, 0.786869292659675, -0.703717985086569, -0.535651668024763, 0.34627858116184, 0.537117318247469, 0.901014803953916, 1.2151594352426, 0.827351473348557, -0.682186392255085, -1.33342351753519, -1.26893821314864, -1.4632463728941, -1.64736130434257, -1.21073183651285, -0.643396605364174), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\', \'101\', \'102\', \'103\', \'104\', \'105\', \'106\', \'107\', \'108\', \'109\', \'110\', \'111\', \'112\', \'113\', \'114\', \'115\', \'116\', \'117\', \'118\', \'119\', \'120\', \'121\', \'122\', \'123\', \'124\', \'125\', \'126\', \'127\', \'128\', \'129\', \'130\', \'131\', \'132\', \'133\', \'134\', \'135\', \'136\', \'137\', \'138\', \'139\', \'140\')), structure(c(9L, 9L, 9L, 9L, 9L, 9L, 9L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 13L, 13L, 13L, 13L, 13L, 13L, 13L, 14L, 14L, 14L, 14L, 14L, 14L, 14L, 16L, 16L, 16L, 16L, 16L, 16L, 16L, 17L, 17L, 17L, 17L, 17L, 17L, 17L, 19L, 19L, 19L, 19L, 19L, 19L, 19L, 15L, 15L, 15L, 15L, 15L, 15L, 15L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 18L, 18L, 18L, 18L, 18L, 18L, 18L, 20L, 20L, 20L, 20L, 20L, 20L, 20L, 12L, 12L, 12L, 12L, 12L, 12L, 12L), .Label = c(\'10\', \'8\', \'2\', \'6\', \'3\', \'5\', \'9\', \'7\', \'1\', \'4\', \'17\', \'20\', \'11\', \'12\', \'16\', \'13\', \'14\', \'18\', \'15\', \'19\'), class = c(\'ordered\', \'factor\'))); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsplit3() {
+ assertEval("argv <- list(structure(c(1034.46153846154, 480.076923076923, 504.692307692308, 480.076923076923, 0, 0, 0, 0, 480.076923076923, 517.230769230769, 444.307692307692, 819.846153846154, 945.230769230769, 542.769230769231, 0, 0, 0, 1824.30769230769, 444.307692307692, 912.153846153846, 0, 0, 1514.07692307692, 0, 936, 0), .Dim = 26L, .Dimnames = list(c(\'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'2\', \'2\', \'2\', \'2\', \'2\', \'2\', \'2\', \'2\', \'2\', \'2\', \'2\', \'2\', \'2\'))), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c(\'1\', \'2\'), class = \'factor\')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsplit4() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 1.48219693752374e-323, 0, 0, 0, 0, 0), .Dim = c(1L, 12L), .Dimnames = list(NULL, c(\'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\'))), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = \'1\', class = \'factor\')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsplit5() {
+ assertEval("argv <- list(c(1, 3, 5, 7, 8, 3, 5, NA, 4, 5, 7, 9), structure(c(8L, 6L, 3L, 2L, NA, 5L, 1L, 4L, 7L, 3L, NA, NA), .Label = c(\'0\', \'2\', \'6\', \'8\', \'15\', \'22\', \'29\', \'35\'), class = \'factor\')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsplit6() {
+ assertEval("argv <- list(c(41L, 36L, 12L, 18L, NA, 28L, 23L, 19L, 8L, NA, 7L, 16L, 11L, 14L, 18L, 14L, 34L, 6L, 30L, 11L, 1L, 11L, 4L, 32L, NA, NA, NA, 23L, 45L, 115L, 37L, NA, NA, NA, NA, NA, NA, 29L, NA, 71L, 39L, NA, NA, 23L, NA, NA, 21L, 37L, 20L, 12L, 13L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 135L, 49L, 32L, NA, 64L, 40L, 77L, 97L, 97L, 85L, NA, 10L, 27L, NA, 7L, 48L, 35L, 61L, 79L, 63L, 16L, NA, NA, 80L, 108L, 20L, 52L, 82L, 50L, 64L, 59L, 39L, 9L, 16L, 78L, 35L, 66L, 122L, 89L, 110L, NA, NA, 44L, 28L, 65L, NA, 22L, 59L, 23L, 31L, 44L, 21L, 9L, NA, 45L, 168L, 73L, NA, 76L, 118L, 84L, 85L, 96L, 78L, 73L, 91L, 47L, 32L, 20L, 23L, 21L, 24L, 44L, 21L, 28L, 9L, 13L, 46L, 18L, 13L, 24L, 16L, 13L, 23L, 36L, 7L, 14L, 30L, NA, 14L, 18L, 20L), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L), .Label = c(\'1\', \'2\', \'3\', \'4\', \'5\'), class = \'factor\')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsplit7() {
+ assertEval("argv <- list(structure(c(\'Sex/(Age + Eth * Lrn)\', \'Sex + Sex:Age + Sex:Eth + Sex:Lrn + Sex:Eth:Lrn + Sex:Age:Lrn\', \'Sex + Sex:Age + Sex:Eth + Sex:Lrn + Sex:Eth:Lrn + Sex:Age:Lrn + Sex:Age:Eth + Sex:Age:Eth:Lrn\', \'1.597991\', \'1.686899\', \'1.928360\', \'132\', \'128\', \'118\', \'-1063.025\', \'-1055.398\', \'-1039.324\', \'\', \'1 vs 2\', \'2 vs 3\', \'\', \' 4\', \'10\', \'\', \' 7.627279\', \'16.073723\', \'\', \'0.10622602\', \'0.09754136\'), .Dim = c(3L, 8L)), structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L, 4L, 4L, 4L, 5L, 5L, 5L, 6L, 6L, 6L, 7L, 7L, 7L, 8L, 8L, 8L), .Label = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\'), class = \'factor\')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsplit8() {
+ assertEval("argv <- list(c(0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), structure(c(60L, 60L, 60L, 60L, 61L, 61L, 61L, 61L, 62L, 62L, 62L, 62L, 63L, 63L, 63L, 63L, 64L, 64L, 64L, 64L, 65L, 65L, 65L, 65L, 66L, 66L, 66L, 66L, 67L, 67L, 67L, 67L, 68L, 68L, 68L, 68L, 69L, 69L, 69L, 69L, 70L, 70L, 70L, 70L, 71L, 71L, 71L, 71L, 72L, 72L, 72L, 72L, 73L, 73L, 73L, 73L, 74L, 74L, 74L, 74L, 75L, 75L, 75L, 75L, 76L, 76L, 76L, 76L, 77L, 77L, 77L, 77L, 78L, 78L, 78L, 78L, 79L, 79L, 79L, 79L, 80L, 80L, 80L, 80L, 81L, 81L, 81L, 81L, 82L, 82L, 82L, 82L, 83L, 83L, 83L, 83L, 84L, 84L, 84L, 84L, 85L, 85L, 85L, 85L, 86L, 86L, 86L, 86L, 87L, 87L, 87L, 87L, 88L, 88L, 88L, 88L, 89L, 89L, 89L, 89L, 90L, 90L, 90L, 90L, 91L, 91L, 91L, 91L, 92L, 92L, 92L, 92L, 93L, 93L, 93L, 93L, 94L, 94L, 94L, 94L, 95L, 95L, 95L, 95L, 96L, 96L, 96L, 96L, 97L, 97L, 97L, 97L, 98L, 98L, 98L, 98L, 99L, 99L, 99L, 99L, 100L, 100L, 100L, 100L, 101L, 101L, 101L, 101L, 102L, 102L, 102L, 102L, 103L, 103L, 103L, 103L, 104L, 104L, 104L, 104L, 105L, 105L, 105L, 105L, 106L, 106L, 106L, 106L, 107L, 107L, 107L, 107L, 108L, 108L, 108L, 108L, 109L, 109L, 109L, 109L, 110L, 110L, 110L, 110L, 111L, 111L, 111L, 111L, 112L, 112L, 112L, 112L, 113L, 113L, 113L, 113L, 114L, 114L, 114L, 114L, 115L, 115L, 115L, 115L, 116L, 116L, 116L, 116L, 117L, 117L, 117L, 117L, 118L, 118L, 118L, 118L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L), .Label = c(\'0\', \'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\', \'101\', \'102\', \'103\', \'104\', \'105\', \'106\', \'107\', \'108\', \'109\', \'110\', \'111\', \'112\', \'113\', \'114\', \'115\', \'116\', \'117\'), class = \'factor\')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsplit9() {
+ assertEval("argv <- list(structure(c(NA, NA), .Dim = 1:2), structure(1:2, .Label = c(\'1\', \'2\'), class = \'factor\')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsplit10() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c(\'1\', \'2\', \'3\', \'4\'), class = \'factor\')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsplit12() {
+ assertEval("argv <- list(structure(c(95.7845839266016, 111.117917259935, 120.284583926602, 77.019531700964, 96.9521364368474, 112.285469770181, 121.452136436847, 77.019531700964, 96.9521364368474, 112.285469770181, 121.452136436847, 78.1870842112099, 98.1196889470933, 113.453022280427, 122.619688947093, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 78.1870842112099, 98.1196889470933, 113.453022280427, 122.619688947093, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 78.1870842112099, 98.1196889470933, 113.453022280427, 122.619688947093, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 78.1870842112099, 98.1196889470933, 113.453022280427, 122.619688947093, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 78.1870842112099, 98.1196889470933, 113.453022280427, 122.619688947093, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339, 79.3546367214558, 99.2872414573392, 114.620574790673, 123.787241457339), .Dim = c(71L, 1L), .Dimnames = list(c(\'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\'), NULL)), structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c(\'1\', \'2\', \'3\', \'4\'), class = \'factor\')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsplit14() {
+ assertEval("argv <- list(structure(c(123.48457192908, 239.059434652297, 290.055338401838, 18.397281603467, 6.57585722655537, 0.670931786731845, 0.178466148156965, 0.245410750178149, 0.363167328274208, 0.194808268742596, 2172.67583033103, 8.91763605923317e+38), .Dim = c(1L, 12L), .Dimnames = list(NULL, c(\'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\'))), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = \'1\', class = \'factor\')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsplit15() {
+ assertEval("argv <- list(character(0), structure(integer(0), .Label = character(0), class = \'factor\')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsplit16() {
+ assertEval("argv <- list(structure(c(47.432, 12.482), .Names = c(\'(Intercept)\', \'group2\')), structure(1:2, .Label = c(\'0\', \'1\'), class = \'factor\')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsplit17() {
+ assertEval("argv <- list(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 26.3011774151224, 2.485452029809, 7.15323925419351, 16.761819986295, 10.2645644917686, 0.758337657329402, 29.4935619829433, 12.665970880074, 2.27782676164194e-08, 0.115876279686418), structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 10L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L), .Label = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\', \'25\', \'27\', \'29\', \'31\', \'33\', \'35\', \'37\', \'39\', \'41\'), class = \'factor\')); .Internal(split(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsprintf.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsprintf.java
new file mode 100644
index 0000000000000000000000000000000000000000..a99fb034aee7e6c92b940dba23f8ceba553d498c
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsprintf.java
@@ -0,0 +1,132 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsprintf extends TestBase {
+
+ @Test
+ @Ignore
+ public void testsprintf1() {
+ assertEval("argv <- list(\'%s is not TRUE\', \'identical(fxy, c(1, 2, 3))\'); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf2() {
+ assertEval("argv <- list(\'%1.0f\', 3.14159265358979); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf3() {
+ assertEval("argv <- list(\'min 10-char string '%10s'\', c(\'a\', \'ABC\', \'and an even longer one\')); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf4() {
+ assertEval("argv <- list(\'%o\', integer(0)); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf5() {
+ assertEval("argv <- list(\'%*s\', 1, \'\'); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf6() {
+ assertEval("argv <- list(\'p,L,S = (%2d,%2d,%2d): \', TRUE, TRUE, FALSE); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf7() {
+ assertEval("argv <- list(\'p,L,S = (%2d,%2d,%2d): \', TRUE, FALSE, NA); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf8() {
+ assertEval("argv <- list(\'plot_%02g\', 1L); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf9() {
+ assertEval("argv <- list(\'tools:::.createExdotR(\\\'%s\\\', \\\'%s\\\', silent = TRUE, use_gct = %s, addTiming = %s)\', structure(\'KernSmooth\', .Names = \'Package\'), \'/home/lzhao/hg/r-instrumented/library/KernSmooth\', FALSE, FALSE); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf10() {
+ assertEval("argv <- list(\'%.0f%% said yes (out of a sample of size %.0f)\', 66.666, 3); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf11() {
+ assertEval("argv <- list(\'%1$d %1$x %1$X\', 0:15); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf12() {
+ assertEval("argv <- list(\'%03o\', 1:255); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf13() {
+ assertEval("argv <- list(\'%d y value <= 0 omitted from logarithmic plot\', 1L); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf14() {
+ assertEval("argv <- list(\'%o\', 1:255); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf15() {
+ assertEval("argv <- list(\'%s-class.Rd\', structure(\'foo\', .Names = \'foo\')); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf16() {
+ assertEval("argv <- list(\'checkRd: (%d) %s\', -3, \'evalSource.Rd:157: Unnecessary braces at ‘{\\\'sourceEnvironment\\\'}’\'); .Internal(sprintf(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf17() {
+ assertEval("argv <- list(\'tools:::check_compiled_code(\\\'%s\\\')\', \'/home/lzhao/hg/r-instrumented/library/foreign\'); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf18() {
+ assertEval("argv <- list(\'%5g\', structure(c(18, 18, 0, 14, 4, 12, 12, 0, 4, 8, 26, 23, 3, 18, 5, 8, 5, 3, 0, 5, 21, 0, 21, 0, 0), .Dim = c(5L, 5L), .Dimnames = list(NULL, c(\'\', \'\', \'\', \'\', \'\')))); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsprintf19() {
+ assertEval("argv <- list(\'%G\', 3.14159265358979e-06); .Internal(sprintf(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsqrt.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsqrt.java
new file mode 100644
index 0000000000000000000000000000000000000000..e6437a689267c113b4d33ae408b1ab24415319f9
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsqrt.java
@@ -0,0 +1,80 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsqrt extends TestBase {
+
+ @Test
+ public void testsqrt1() {
+ assertEval("argv <- list(12.8025995273675);sqrt(argv[[1]]);");
+ }
+
+ @Test
+ public void testsqrt2() {
+ assertEval("argv <- list(numeric(0));sqrt(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsqrt3() {
+ assertEval("argv <- list(-17+0i);sqrt(argv[[1]]);");
+ }
+
+ @Test
+ public void testsqrt4() {
+ assertEval("argv <- list(1e+07);sqrt(argv[[1]]);");
+ }
+
+ @Test
+ public void testsqrt5() {
+ assertEval("argv <- list(1);sqrt(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsqrt6() {
+ assertEval("argv <- list(structure(c(0.0101832147522745, 0.0107298799092166, 0.0605795647466432, 7.03601392438852e-05), .Names = c(\'ar1\', \'ar2\', \'intercept\', \'trend\')));sqrt(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsqrt7() {
+ assertEval("argv <- list(structure(1:10, id = \'test 1\', class = structure(\'withId\', package = \'.GlobalEnv\')));sqrt(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsqrt8() {
+ assertEval("argv <- list(structure(c(660, 543, 711, 500, 410, 309, 546, 351, 269, 203, 370, 193, 181, 117, 243, 136, 117, 87, 154, 84), .Dim = 4:5, .Dimnames = list(c(\'Rural Male\', \'Rural Female\', \'Urban Male\', \'Urban Female\'), c(\'70-74\', \'65-69\', \'60-64\', \'55-59\', \'50-54\'))));sqrt(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsqrt9() {
+ assertEval("argv <- list(c(6L, 5L, 4L, 3L, 2L, 1L, 0L, NA, NA, NA, NA));sqrt(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsqrt10() {
+ assertEval("argv <- list(c(6L, 5L, 4L, 3L, 2L, 1L, 0L, -1L, -2L, -3L, -4L));sqrt(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsqrt11() {
+ assertEval("argv <- list(0+1i);sqrt(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstderr.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstderr.java
new file mode 100644
index 0000000000000000000000000000000000000000..ffb7e107274dafaee38c02cf4347dbde9546e9fb
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstderr.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinstderr extends TestBase {
+
+ @Test
+ @Ignore
+ public void teststderr1() {
+ assertEval(" .Internal(stderr())");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstdin.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstdin.java
new file mode 100644
index 0000000000000000000000000000000000000000..6acf1ede09fc044632fa6d08e7b7581d798b16d5
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstdin.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinstdin extends TestBase {
+
+ @Test
+ @Ignore
+ public void teststdin1() {
+ assertEval(" .Internal(stdin())");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstoragemodeassign.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstoragemodeassign.java
new file mode 100644
index 0000000000000000000000000000000000000000..79ac8aad33effc940794e38cf87422ced0c9dbcc
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstoragemodeassign.java
@@ -0,0 +1,47 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinstoragemodeassign extends TestBase {
+
+ @Test
+ @Ignore
+ public void teststoragemodeassign1() {
+ assertEval("argv <- list(structure(c(4L, 5L, 10L, 9L, 13L, 13L, 12L, 15L, 18L, 19L, 22L, 27L, 28L, 24L, 27L, 28L, 30L, 31L, 32L, 36L, 28L, 32L, 35L, 33L, 38L, 41L, 38L, 38L, 32L, 34L, 44L, 44L, 44L, 46L, 47L, 49L, 50L, 53L, 52L, 55L, 54L, 60L, 63L, 86L, 85L, 85L, 78L, 74L, 97L, 98L, 98L, 99L, 99L, 101L, 108L, 110L, 108L, 111L, 115L, 117L, 70L, 77L, 83L, 61L, 69L, 78L, 66L, 58L, 64L, 69L, 66L, 61L, 76L, 72L, 64L, 53L, 63L, 59L, 77L, 49L, 69L, 88L, 75L, 61L, 65L, 74L, 72L, 76L, 58L, 55L, 60L, 52L, 60L, 61L, 72L, 147L, 149L, 153L, 154L, 151L, 150L, 145L, 143L, 143L, 141L, 156L, 149L, 143L, 142L, 149L, 152L, 142L, 144L, 152L, 155L, 124L, 136L, 139L, 132L, 115L, 96L, 94L, 96L, 122L, 116L, 124L, 119L, 128L, 115L, 111L, 111L, 116L, 126L, 117L, 115L, 4L, 12L, 21L, 15L, 15L, 16L, 18L, 13L, 20L, 21L, 23L, 25L, 27L, 31L, 30L), .Dim = c(75L, 2L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\'), c(\'x\', \'y\'))), value = \'double\');`storage.mode<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void teststoragemodeassign2() {
+ assertEval("argv <- list(3.14159265358979, value = \'complex\');`storage.mode<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void teststoragemodeassign3() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE), .Dim = c(4L, 4L)), value = \'integer\');`storage.mode<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void teststoragemodeassign4() {
+ assertEval("argv <- list(structure(c(2, 0, 1, 2), .Dim = c(2L, 2L), .Dimnames = list(c(\'A\', \'B\'), c(\'A\', \'B\'))), value = \'logical\');`storage.mode<-`(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void teststoragemodeassign5() {
+ assertEval("argv <- list(structure(c(2.5, 0, 0.75, 0, 2.5, -2.5, 0.75, -2.5, 2.8), .Dim = c(3L, 3L)), value = \'double\');`storage.mode<-`(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstrptime.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstrptime.java
new file mode 100644
index 0000000000000000000000000000000000000000..77a1f046d58c8eb973faee6170702ba920a87a54
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstrptime.java
@@ -0,0 +1,78 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinstrptime extends TestBase {
+
+ @Test
+ @Ignore
+ public void teststrptime1() {
+ assertEval("argv <- list(\'2008-04-22 09:45\', \'%Y-%m-%d\', \'\'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrptime2() {
+ assertEval("argv <- list(character(0), \'%X\', \'\'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrptime3() {
+ assertEval("argv <- list(\'1970-01-01\', \'%Y-%m-%d %H:%M\', \'GMT\'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrptime4() {
+ assertEval("argv <- list(\'2007-11-06\', \'%Y-%m-%d\', \'GMT\'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrptime5() {
+ assertEval("argv <- list(\'1970-01-01\', \'%Y-%m-%d\', \'GMT\'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrptime6() {
+ assertEval("argv <- list(c(\'2007-11-06\', NA), \'%Y-%m-%d\', \'\'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrptime7() {
+ assertEval("argv <- list(c(\'20010101\', NA, NA, \'20041026\'), \'%Y%m%d\', \'GMT\'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrptime8() {
+ assertEval("argv <- list(\'2002-02-02 02:02\', \'%Y-%m-%d %H:%M\', \'\'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrptime9() {
+ assertEval("argv <- list(c(\'1890/01/01\', \'1891/01/01\', \'1892/01/01\', \'1893/01/01\', \'1894/01/01\', \'1895/01/01\'), \'%Y/%m/%d\', \'\'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrptime10() {
+ assertEval("argv <- list(c(\'1937/01/01\', \'1916/01/01\', \'1913/01/01\', \'1927/01/01\', \'1947/01/01\', \'1913/01/01\', \'1917/01/01\', \'1923/01/01\', \'1921/01/01\', \'1926/01/01\', \'1920/01/01\', \'1915/01/01\', \'1914/01/01\', \'1914/01/01\', \'1914/01/01\', \'1919/01/01\', \'1948/01/01\', \'1911/01/01\', \'1909/01/01\', \'1913/01/01\', \'1925/01/01\', \'1926/01/01\', \'1910/01/01\', \'1917/01/01\', \'1936/01/01\', \'1938/01/01\', \'1960/01/01\', \'1915/01/01\', \'1919/01/01\', \'1924/01/01\', \'1914/01/01\', \'1905/01/01\', \'1921/01/01\', \'1929/01/01\', \'1926/01/01\', \'1921/01/01\', \'1908/01/01\', \'1928/01/01\', \'1919/01/01\', \'1921/01/01\', \'1925/01/01\', \'1934/01/01\', \'1927/01/01\', \'1928/01/01\', \'1934/01/01\', \'1922/01/01\', \'1923/01/01\', \'1915/01/01\', \'1934/01/01\', \'1925/01/01\', \'1922/01/01\', \'1930/01/01\', \'1924/01/01\', \'1923/01/01\', \'1919/01/01\', \'1932/01/01\', \'1930/01/01\', \'1923/01/01\', \'1930/01/01\', \'1922/01/01\', \'1919/01/01\', \'1932/01/01\', \'1939/01/01\', \'1923/01/01\', \'1920/01/01\', \'1919/01/01\', \'1952/01/01\', \'1927/01/01\', \'1924/01/01\', \'1919/01/01\', \'1925/01/01\', \'1945/01/01\', \'1916/01/01\', \'1943/01/01\', \'1920/01/01\', \'1920/01/01\', \'1931/01/01\', \'1924/01/01\', \'1919/01/01\', \'1926/01/01\', \'1920/01/01\', \'1942/01/01\', \'1919/01/01\', \'1930/01/01\', \'1925/01/01\', \'1924/01/01\', \'1926/01/01\', \'1918/01/01\', \'1922/01/01\', \'1921/01/01\', \'1925/01/01\', \'1928/01/01\', \'1925/01/01\', \'1929/01/01\', \'1933/01/01\', \'1947/01/01\', \'1950/01/01\', \'1945/01/01\', \'1924/01/01\', \'1939/01/01\', \'1924/01/01\', \'1933/01/01\', \'1928/01/01\'), \'%Y/%m/%d\', \'\'); .Internal(strptime(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstrsplit.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstrsplit.java
new file mode 100644
index 0000000000000000000000000000000000000000..cd509c957a0cbc3da0e3982ffbe4acaf1d7ade65
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstrsplit.java
@@ -0,0 +1,108 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinstrsplit extends TestBase {
+
+ @Test
+ public void teststrsplit1() {
+ assertEval("argv <- list(\'exNSS4\', \'_\', TRUE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void teststrsplit2() {
+ assertEval("argv <- list(structure(\'x, row.names = NULL, \', Rd_tag = \'RCODE\'), \'\', FALSE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrsplit3() {
+ assertEval("argv <- list(\' \\036 isSeekable() now returns FALSE on connections which have non-default encoding. Although documented to record if ‘in principle’ the connection supports seeking, it seems safer to report FALSE when it may not work.\', \'[ \\t\\n]\', FALSE, TRUE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void teststrsplit4() {
+ assertEval("argv <- list(\'Keywords: device \', \'[ \\t\\n]\', FALSE, TRUE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrsplit5() {
+ assertEval("argv <- list(\'R CMD check now gives an error if the R code in a vignette fails to\\nrun, unless this is caused by a missing package.\\n\\n\\036R CMD check now unpacks tarballs in the same way as R CMD INSTALL,\\nincluding making use of the environment variable R_INSTALL_TAR to\\noverride the default behaviour.\\n\\n\\036R CMD check performs additional code analysis of package startup\\nfunctions, and notifies about incorrect argument lists and\\n(incorrect) calls to functions which modify the search path or\\ninappropriately generate messages.\\n\\n\\036R CMD check now also checks compiled code for symbols corresponding\\nto functions which might terminate R or write to stdout/stderr\\ninstead of the console.\\n\\n\\036R CMD check now uses a pdf() device when checking examples (rather\\nthan postscript()).\\n\\n\\036R CMD check now checks line-endings of makefiles and C/C++/Fortran\\nsources in subdirectories of src as well as in src itself.\\n\\n\\036R CMD check now reports as a NOTE what look like methods documented\\nwith their full names even if there is a namespace and they are\\nexported. In almost all cases they are intended to be used only as\\nmethods and should use the \\\\method markup. In the other rare cases\\nthe recommended form is to use a function such as coefHclust which\\nwould not get confused with a method, document that and register it\\nin the NAMESPACE file by s3method(coef, hclust, coefHclust).\\n\\n\\036The default for the environment variable _R_CHECK_COMPACT_DATA2_ is\\nnow true: thus if using the newer forms of compression introduced\\nin R 2.10.0 would be beneficial is now checked (by default).\\n\\n\\036Reference output for a vignette can be supplied when checking a\\npackage by R CMD check: see ‘Writing R Extensions’.\\n\\n\\036R CMD Rd2dvi allows the use of LaTeX package inputenx rather than\\ninputenc: the value of the environment variable RD2DVI_INPUTENC is\\nused. (LaTeX package inputenx is an optional install which\\nprovides greater coverage of the UTF-8 encoding.)\\n\\n\\036Rscript on a Unix-alike now accepts file names containing spaces\\n(provided these are escaped or quoted in the shell).\\n\\n\\036R CMD build on a Unix-alike (only) now tries to preserve dates on\\nfiles it copies from its input directory. (This was the\\nundocumented behaviour prior to R 2.13.0.)\', \'\\n\\036\', TRUE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrsplit6() {
+ assertEval("argv <- list(structure(\'Formal Methods and Classes\', .Names = \'Title\'), \'\\n\\n\', TRUE, FALSE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrsplit7() {
+ assertEval("argv <- list(\'\', \'\', FALSE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrsplit8() {
+ assertEval("argv <- list(\'The \\\\usage entries for S3 methods should use the \\\\method markup and not their full name.\\n\', \'\\n\', FALSE, FALSE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void teststrsplit9() {
+ assertEval("argv <- list(\'M.user:Temp\', \':\', FALSE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrsplit10() {
+ assertEval("argv <- list(\'A shell of class documentation has been written to the file './myTst2/man/DocLink-class.Rd'.\\n\', \'[ \\t\\n]\', FALSE, TRUE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrsplit11() {
+ assertEval("argv <- list(structure(\'pkgB\', .Names = \'name\'), \'_\', TRUE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void teststrsplit12() {
+ assertEval("argv <- list(\'Keywords: utilities \', \'\\n[ \\t\\n]*\\n\', FALSE, TRUE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ public void teststrsplit13() {
+ assertEval("argv <- list(\'x\', \'\', FALSE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrsplit14() {
+ assertEval("argv <- list(c(\'* Edit the help file skeletons in 'man', possibly combining help files for multiple functions.\', \'* Edit the exports in 'NAMESPACE', and add necessary imports.\', \'* Put any C/C++/Fortran code in 'src'.\', \'* If you have compiled code, add a useDynLib() directive to 'NAMESPACE'.\', \'* Run R CMD build to build the package tarball.\', \'* Run R CMD check to check the package tarball.\', \'\', \'Read \\\'Writing R Extensions\\\' for more information.\'), \'\\n[ \\t\\n]*\\n\', FALSE, TRUE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrsplit15() {
+ assertEval("argv <- list(\' \\036 Complex arithmetic sometimes warned incorrectly about producing NAs when there were NaNs in the input.\', \'[ \\t\\n]\', FALSE, TRUE, TRUE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrsplit16() {
+ assertEval("argv <- list(structure(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'1\', \'2\', \'3\', \'4\', \'5\'), .Dim = 10L), \'.\', TRUE, FALSE, FALSE); .Internal(strsplit(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstrtoi.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstrtoi.java
new file mode 100644
index 0000000000000000000000000000000000000000..f8319ba48ec6bcb86da848b02984acb01cf0c1e0
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstrtoi.java
@@ -0,0 +1,48 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinstrtoi extends TestBase {
+
+ @Test
+ @Ignore
+ public void teststrtoi1() {
+ assertEval("argv <- list(\'0777\', 8L); .Internal(strtoi(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrtoi2() {
+ assertEval("argv <- list(\'700\', 8L); .Internal(strtoi(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrtoi3() {
+ assertEval("argv <- list(c(\'0xff\', \'077\', \'123\'), 0L); .Internal(strtoi(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrtoi4() {
+ assertEval("argv <- list(\'1.3\', 16L); .Internal(strtoi(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrtoi5() {
+ assertEval("argv <- list(character(0), 8L); .Internal(strtoi(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstrtrim.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstrtrim.java
new file mode 100644
index 0000000000000000000000000000000000000000..e701197dec100382ea2e35bb3026d1c397c844e8
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstrtrim.java
@@ -0,0 +1,60 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinstrtrim extends TestBase {
+
+ @Test
+ @Ignore
+ public void teststrtrim1() {
+ assertEval("argv <- list(c(\'\\\'time\\\'\', \'\\\'status\\\'\'), 128); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrtrim2() {
+ assertEval("argv <- list(\'2014-03-17 14:47:20\', 8); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrtrim3() {
+ assertEval("argv <- list(c(\'\\\'1\\\'\', \'\\\'2\\\'\', NA), 128); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrtrim4() {
+ assertEval("argv <- list(c(\'\\\'gray17\\\'\', \'\\\'grey17\\\'\'), 128); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrtrim5() {
+ assertEval("argv <- list(structure(\'\\\'@CRAN@\\\'\', .Names = \'CRAN\'), 128); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrtrim6() {
+ assertEval("argv <- list(\'FALSE\', FALSE); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void teststrtrim8() {
+ assertEval("argv <- list(character(0), 40L); .Internal(strtrim(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsub.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsub.java
new file mode 100644
index 0000000000000000000000000000000000000000..f426aaa426558263bebe9281861991538141f700
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsub.java
@@ -0,0 +1,127 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsub extends TestBase {
+
+ @Test
+ public void testsub1() {
+ assertEval("argv <- list(\'^..dfd.\', \'\', c(\'aa\', \'..dfd.row.names\'), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsub2() {
+ assertEval("argv <- list(\'[b-e]\', \'.\', c(\'The\', \'licenses\', \'for\', \'most\', \'software\', \'are\', \'designed\', \'to\', \'take\', \'away\', \'your\', \'freedom\', \'to\', \'share\', \'and\', \'change\', \'it.\', \'\', \'By\', \'contrast,\', \'the\', \'GNU\', \'General\', \'Public\', \'License\', \'is\', \'intended\', \'to\', \'guarantee\', \'your\', \'freedom\', \'to\', \'share\', \'and\', \'change\', \'free\', \'software\', \'--\', \'to\', \'make\', \'sure\', \'the\', \'software\', \'is\', \'free\', \'for\', \'all\', \'its\', \'users\'), FALSE, TRUE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsub3() {
+ assertEval("argv <- list(\'%bm\', \'http://www.bioconductor.org\', c(\'@CRAN@\', \'http://www.stats.ox.ac.uk/pub/RWin\', \'%bm/packages/%v/bioc\', \'%bm/packages/%v/data/annotation\', \'%bm/packages/%v/data/experiment\', \'%bm/packages/%v/extra\', \'http://www.omegahat.org/R\', \'http://R-Forge.R-project.org\', \'http://www.rforge.net\'), FALSE, FALSE, TRUE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsub4() {
+ assertEval("argv <- list(\'^ \\036 \', \'\\036\', c(\'\', \' \\036 Merged in a set of Splus code changes that had accumulated at Mayo\', \' over the course of a decade. The primary one is a change in how\', \' indexing is done in the underlying C code, which leads to a major\', \' speed increase for large data sets. Essentially, for the lower\', \' leaves all our time used to be eaten up by bookkeeping, and this\', \' was replaced by a different approach. The primary routine also\', \' uses .Call{} so as to be more memory efficient.\', \'\', \' \\036 The other major change was an error for asymmetric loss matrices,\', \' prompted by a user query. With L=loss asymmetric, the altered\', \' priors were computed incorrectly - they were using L' instead of L.\', \' Upshot - the tree would not not necessarily choose optimal splits\', \' for the given loss matrix. Once chosen, splits were evaluated\', \' correctly. The printed “improvement” values are of course the\', \' wrong ones as well. It is interesting that for my little test\', \' case, with L quite asymmetric, the early splits in the tree are\', \' unchanged - a good split still looks good.\', \'\', \' \\036 Add the return.all argument to xpred.rpart().\', \'\', \' \\036 Added a set of formal tests, i.e., cases with known answers to\', \' which we can compare.\', \'\', \' \\036 Add a usercode vignette, explaining how to add user defined\', \' splitting functions.\', \'\', \' \\036 The class method now also returns the node probability.\', \'\', \' \\036 Add the stagec data set, used in some tests.\', \'\', \' \\036 The plot.rpart routine needs to store a value that will be visible\', \' to the rpartco routine at a later time. This is now done in an\', \' environment in the namespace.\', \'\'), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testsub5() {
+ assertEval("argv <- list(\'./\', \'\', structure(c(\'./data\', \'./html\', \'./po/en@quot/LC_MESSAGES\', \'./po/en@quot\', \'./po/pl/LC_MESSAGES\', \'./po/pl\', \'./po/de/LC_MESSAGES\', \'./po/de\', \'./po\', \'./doc/SuiteSparse\', \'./doc\', \'./Meta\', \'./include\', \'./R\', \'./help\', \'./libs\', \'./external\'), class = \'AsIs\'), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsub6() {
+ assertEval("argv <- list(\'\\\'\', \'\\\\\\\'\', \'\\\\method{as.dist}{default}\', FALSE, FALSE, TRUE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsub7() {
+ assertEval("argv <- list(\'(\\\\w)(\\\\w*)(\\\\w)\', \'\\\\U\\\\1\\\\E\\\\2\\\\U\\\\3\', \'useRs may fly into JFK or laGuardia\', FALSE, TRUE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsub8() {
+ assertEval("argv <- list(\'^(msgstr)\\\\[([[:digit:]]+)\\\\].*$\', \'\\\\1\\\\\\\\[\\\\2\\\\\\\\]\', \'msgstr[0] \\\'%d ligne de poids nul non comptabilis<U+00E9>e\\\'\', FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsub9() {
+ assertEval("argv <- list(\'[[:space:]]*$\', \'\', \'identical() has a new argument, ignore.environment, used when\\ncomparing functions (with default FALSE as before).\\n\\n\\036There is a new option, options(CBoundsCheck=), which controls how\\n.C() and .Fortran() pass arguments to compiled code. If true\\n(which can be enabled by setting the environment variable\\nR_C_BOUNDS_CHECK to yes), raw, integer, double and complex\\narguments are always copied, and checked for writing off either end\\nof the array on return from the compiled code (when a second copy\\nis made). This also checks individual elements of character\\nvectors passed to .C().\\n\\nThis is not intended for routine use, but can be very helpful in\\nfinding segfaults in package code.\\n\\n\\036In layout(), the limits on the grid size have been raised (again).\\n\\n\\036New simple provideDimnames() utility function.\\n\\n\\036Where methods for length() return a double value which is\\nrepresentable as an integer (as often happens for package Matrix),\\nthis is converted to an integer.\\n\\n\\036Matrix indexing of dataframes by two-column numeric indices is now\\nsupported for replacement as well as extraction.\\n\\n\\036setNames() now has a default for its object argument, useful for a\\ncharacter result.\\n\\n\\036StructTS() has a revised additive constant in the loglik component\\nof the result: the previous definition is returned as the loglik0\\ncomponent. However, the help page has always warned of a lack of\\ncomparability of log-likelihoods for non-stationary models.\\n(Suggested by Jouni Helske.)\\n\\n\\036The logic in aggregate.formula() has been revised. It is now\\npossible to use a formula stored in a variable; previously, it had\\nto be given explicitly in the function call.\\n\\n\\036install.packages() has a new argument quiet to reduce the amount of\\noutput shown.\\n\\n\\036Setting an element of the graphics argument lwd to a negative or\\ninfinite value is now an error. Lines corresponding to elements\\nwith values NA or NaN are silently omitted.\\n\\nPreviously the behaviour was device-dependent.\\n\\n\\036Setting graphical parameters cex, col, lty, lwd and pch in par()\\nnow requires a length-one argument. Previously some silently took\\nthe first element of a longer vector, but not always when\\ndocumented to do so.\\n\\n\\036Sys.which() when used with inputs which would be unsafe in a shell\\n(e.g. absolute paths containing spaces) now uses appropriate\\nquoting.\\n\\n\\036as.tclObj() has been extended to handle raw vectors. Previously,\\nit only worked in the other direction. (Contributed by Charlie\\nFriedemann, PR#14939.)\\n\\n\\036New functions cite() and citeNatbib() have been added, to allow\\ngeneration of in-text citations from \\\'bibentry\\\' objects. A cite()\\nfunction may be added to bibstyle() environments.\\n\\n\\036A sort() method has been added for \\\'bibentry\\\' objects.\\n\\n\\036The bibstyle() function now defaults to setting the default\\nbibliography style. The getBibstyle() function has been added to\\nreport the name of the current default style.\\n\\n\\036scatter.smooth() now has an argument lpars to pass arguments to\\nlines().\\n\\n\\036pairs() has a new log argument, to allow some or all variables to\\nbe plotted on logarithmic scale. (In part, wish of PR#14919.)\\n\\n\\036split() gains a sep argument.\\n\\n\\036termplot() does a better job when given a model with interactions\\n(and no longer attempts to plot interaction terms).\\n\\n\\036The parser now incorporates code from Romain Francois' parser\\npackage, to support more detailed computation on the code, such as\\nsyntax highlighting, comment-based documentation, etc. Functions\\ngetParseData() and getParseText() access the data.\\n\\n\\036There is a new function rep_len() analogous to rep.int() for when\\nspeed is required (and names are not).\\n\\n\\036The undocumented use rep(NULL, length.out = n) for n > 0 (which\\nreturns NULL) now gives a warning.\\n\\n\\036demo() gains an encoding argument for those packages with non-ASCII\\ndemos: it defaults to the package encoding where there is one.\\n\\n\\036strwrap() converts inputs with a marked encoding to the current\\nlocale: previously it made some attempt to pass through as bytes\\ninputs invalid in the current locale.\\n\\n\\036Specifying both rate and scale to [dpqr]gamma is a warning (if they\\nare essentially the same value) or an error.\\n\\n\\036merge() works in more cases where the data frames include matrices.\\n(Wish of PR#14974.)\\n\\n\\036optimize() and uniroot() no longer use a shared parameter object\\nacross calls. (nlm(), nlminb() and optim() with numerical\\nderivatives still do, as documented.)\\n\\n\\036The all.equal() method for date-times is now documented: times are\\nregarded as equal (by default) if they differ by up to 1 msec.\\n\\n\\036duplicated() and unique() gain a nmax argument which can be used to\\nmake them much more efficient when it is known that there are only\\na small number of unique entries. This is done automatically for\\nfactors.\\n\\n\\036Functions rbinom(), rgeom(), rhyper(), rpois(), rnbinom(),\\nrsignrank() and rwilcox() now return integer (not double) vectors.\\nThis halves the storage requirements for large simulations.\\n\\n\\036sort(), sort.int() and sort.list() now use radix sorting for\\nfactors of less than 100,000 levels when method is not supplied.\\nSo does order() if called with a single factor, unless na.last =\\nNA.\\n\\n\\036diag() as used to generate a diagonal matrix has been re-written in\\nC for speed and less memory usage. It now forces the result to be\\nnumeric in the case diag(x) since it is said to have ‘zero\\noff-diagonal entries’.\\n\\n\\036backsolve() (and forwardsolve()) are now internal functions, for\\nspeed and support for large matrices.\\n\\n\\036More matrix algebra functions (e.g. chol() and solve()) accept\\nlogical matrices (and coerce to numeric).\\n\\n\\036sample.int() has some support for n >= 2^31: see its help for the\\nlimitations.\\n\\nA different algorithm is used for (n, size, replace = FALSE, prob =\\nNULL) for n > 1e7 and size <= n/2. This is much faster and uses\\nless memory, but does give different results.\\n\\n\\036approxfun() and splinefun() now return a wrapper to an internal\\nfunction in the stats namespace rather than a .C() or .Call() call.\\nThis is more likely to work if the function is saved and used in a\\ndifferent session.\\n\\n\\036The functions .C(), .Call(), .External() and .Fortran() now give an\\nerror (rather than a warning) if called with a named first\\nargument.\\n\\n\\036Sweave() by default now reports the locations in the source file(s)\\nof each chunk.\\n\\n\\036clearPushBack() is now a documented interface to a long-existing\\ninternal call.\\n\\n\\036aspell() gains filters for R code, Debian Control Format and\\nmessage catalog files, and support for R level dictionaries. In\\naddition, package utils now provides functions\\naspell_package_R_files() and aspell_package_C_files() for spell\\nchecking R and C level message strings in packages.\\n\\n\\036bibentry() gains some support for “incomplete” entries with a\\ncrossref field.\\n\\n\\036gray() and gray.colors() finally allow alpha to be specified.\\n\\n\\036monthplot() gains parameters to control the look of the reference\\nlines. (Suggestion of Ian McLeod.)\\n\\n\\036Added support for new %~% relation (“is distributed as”) in\\nplotmath.\\n\\n\\036domain = NA is accepted by gettext() and ngettext(), analogously to\\nstop() etc.\\n\\n\\036termplot() gains a new argument plot = FALSE which returns\\ninformation to allow the plots to be modified for use as part of\\nother plots, but does not plot them. (Contributed by Terry\\nTherneau, PR#15076.)\\n\\n\\036quartz.save(), formerly an undocumented part of R.app, is now\\navailable to copy a device to a quartz() device. dev.copy2pdf()\\noptionally does this for PDF output: quartz.save() defaults to PNG.\\n\\n\\036The default method of pairs() now allows text.panel = NULL and the\\nuse of <foo>.panel = NULL is now documented.\\n\\n\\036setRefClass() and getRefClass() now return class generator\\nfunctions, similar to setClass(), but still with the reference\\nfields and methods as before (suggestion of Romain Francois).\\n\\n\\036New functions bitwNot(), bitwAnd(), bitwOr() and bitwXor(), using\\nthe internal interfaces previously used for classes \\\'octmode\\\' and\\n\\\'hexmode\\\'.\\n\\nAlso bitwShiftL() and bitwShiftR() for shifting bits in elements of\\ninteger vectors.\\n\\n\\036New option \\\'deparse.cutoff\\\' to control the deparsing of language\\nobjects such as calls and formulae when printing. (Suggested by a\\ncomment of Sarah Goslee.)\\n\\n\\036colors() gains an argument distinct.\\n\\n\\036New demo(colors) and demo(hclColors), with utility functions.\\n\\n\\036list.files() (aka dir()) gains a new optional argument no.. which\\nallows to exclude \\\'.\\\' and \\\'..\\\' from listings.\\n\\n\\036Multiple time series are also of class \\\'matrix\\\'; consequently,\\nhead(), e.g., is more useful.\\n\\n\\036encodeString() preserves UTF-8 marked encodings. Thus if factor\\nlevels are marked as UTF-8 an attempt is made to print them in\\nUTF-8 in RGui on Windows.\\n\\n\\036readLines() and scan() (and hence read.table()) in a UTF-8 locale\\nnow discard a UTF-8 byte-order-mark (BOM). Such BOMs are allowed\\nbut not recommended by the Unicode Standard: however Microsoft\\napplications can produce them and so they are sometimes found on\\nwebsites.\\n\\nThe encoding name \\\'UTF-8-BOM\\\' for a connection will ensure that a\\nUTF-8 BOM is discarded.\\n\\n\\036mapply(FUN, a1, ..) now also works when a1 (or a further such\\nargument) needs a length() method (which the documented arguments\\nnever do). (Requested by Hervé Pagès; with a patch.)\\n\\n\\036.onDetach() is supported as an alternative to .Last.lib. Unlike\\n.Last.lib, this does not need to be exported from the package's\\nnamespace.\\n\\n\\036The srcfile argument to parse() may now be a character string, to\\nbe used in error messages.\\n\\n\\036The format() method for ftable objects gains a method argument,\\npropagated to write.ftable() and print(), allowing more compact\\noutput, notably for LaTeX formatting, thanks to Marius Hofert.\\n\\n\\036The utils::process.events() function has been added to trigger\\nimmediate event handling.\\n\\n\\036Sys.which() now returns NA (not \\\'\\\') for NA inputs (related to\\nPR#15147).\\n\\n\\036The print() method for class \\\'htest\\\' gives fewer trailing spaces\\n(wish of PR#15124).\\n\\nAlso print output from HoltWinters(), nls() and others.\\n\\n\\036loadNamespace() allows a version specification to be given, and\\nthis is used to check version specifications given in the Imports\\nfield when a namespace is loaded.\\n\\n\\036setClass() has a new argument, slots, clearer and less ambiguous\\nthan representation. It is recommended for future code, but should\\nbe back-compatible. At the same time, the allowed slot\\nspecification is slightly more general. See the documentation for\\ndetails.\\n\\n\\036mget() now has a default for envir (the frame from which it is\\ncalled), for consistency with get() and assign().\\n\\n\\036close() now returns an integer status where available, invisibly.\\n(Wish of PR#15088.)\\n\\n\\036The internal method of tar() can now store paths too long for the\\nustar format, using the (widely supported) GNU extension. It can\\nalso store long link names, but these are much less widely\\nsupported. There is support for larger files, up to the ustar\\nlimit of 8GB.\\n\\n\\036Local reference classes have been added to package methods. These\\nare a technique for avoiding unneeded copying of large components\\nof objects while retaining standard R functional behavior. See\\n?LocalReferenceClasses.\\n\\n\\036untar() has a new argument restore_times which if false (not the\\ndefault) discards the times in the tarball. This is useful if they\\nare incorrect (some tarballs submitted to CRAN have times in a\\nlocal timezone or many years in the past even though the standard\\nrequired them to be in UTC).\\n\\n\\036replayplot() cannot (and will not attempt to) replay plots recorded\\nunder R < 3.0.0. It may crash the R session if an attempt is made\\nto replay plots created in a different build of R >= 3.0.0.\\n\\n\\036Palette changes get recorded on the display list, so replaying\\nplots (including when resizing screen devices and using dev.copy())\\nwill work better when the palette is changed during a plot.\\n\\n\\036chol(pivot = TRUE) now defaults to LAPACK, not LINPACK.\\n\\n\\036The parse() function has a new parameter keep.source, which\\ndefaults to options(\\\'keep.source\\\').\\n\\n\\036Profiling via Rprof() now optionally records information at the\\nstatement level, not just the function level.\\n\\n\\036The Rprof() function now quotes function names in in its output\\nfile on Windows, to be consistent with the quoting in Unix.\\n\\n\\036Profiling via Rprof() now optionally records information about time\\nspent in GC.\\n\\n\\036The HTML help page for a package now displays non-vignette\\ndocumentation files in a more accessible format.\\n\\n\\036To support options(stringsAsFactors = FALSE), model.frame(),\\nmodel.matrix() and replications() now automatically convert\\ncharacter vectors to factors without a warning.\\n\\n\\036The print method for objects of class \\\'table\\\' now detects tables\\nwith 0-extents and prints the results as, e.g., < table of extent 0\\nx 1 x 2 >. (Wish of PR#15198.)\\n\\n\\036Deparsing involving calls to anonymous functions and has been made\\ncloser to reversible by the addition of extra parentheses.\\n\\n\\036The function utils::packageName() has been added as a lightweight\\nversion of methods::getPackageName().\\n\\n\\036find.package(lib.loc = NULL) now treats loaded namespaces\\npreferentially in the same way as attached packages have been for a\\nlong time.\\n\\n\\036In Windows, the Change Directory dialog now defaults to the current\\nworking directory, rather than to the last directory chosen in that\\ndialog.\\n\\n\\036available.packages() gains a \\\'license/restricts_use\\\' filter which\\nretains only packages for which installation can proceed solely\\nbased on packages which are guaranteed not to restrict use.\\n\\n\\036New check_packages_in_dir() function in package tools for\\nconveniently checking source packages along with their reverse\\ndependencies.\\n\\n\\036R's completion mechanism has been improved to handle help requests\\n(starting with a question mark). In particular, help prefixes are\\nnow supported, as well as quoted help topics. To support this,\\ncompletion inside quotes are now handled by R by default on all\\nplatforms.\\n\\n\\036The memory manager now allows the strategy used to balance garbage\\ncollection and memory growth to be controlled by setting the\\nenvironment variable R_GC_MEM_GROW. See ?Memory for more details.\\n\\n\\036(‘For experts only’, as the introductory manual says.) The use of\\nenvironment variables R_NSIZE and R_VSIZE to control the initial (=\\nminimum) garbage collection trigger for number of cons cels and\\nsize of heap has been restored: they can be overridden by the\\ncommand-line options --min-nsize and --min-vsize; see ?Memory.\\n\\n\\036On Windows, the device name for bitmap devices as reported by\\n.Device and .Devices no longer includes the file name. This is for\\nconsistency with other platforms and was requested by the lattice\\nmaintainer.\\n\\nwin.metafile() still uses the file name: the exact form is used by\\npackage tkrplot.\\n\\n\\036set.seed(NULL) re-initializes .Random.seed as done at the beginning\\nof the session if not already set. (Suggestion of Bill Dunlap.)\\n\\n\\036The breaks argument in hist.default() can now be a function that\\nreturns the breakpoints to be used (previously it could only return\\nthe suggested number of breakpoints).\\n\\n\\036File share/licenses/licenses.db has some clarifications, especially\\nas to which variants of ‘BSD’ and ‘MIT’ is intended and how to\\napply them to packages. The problematic licence ‘Artistic-1.0’ has\\nbeen removed.\\n\', FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsub10() {
+ assertEval("argv <- list(\'^[[:space:]]*([[:alnum:].]+).*$\', \'\\\\1\', structure(\'MASS\', .Names = \'Suggests\'), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testsub11() {
+ assertEval("argv <- list(\' +$\', \'\', c(NA, \'1\', NA, \'2\', \'1\', NA, NA, \'1\', \'4\', \'1\', NA, \'4\', \'1\', \'3\', NA, \'4\', \'2\', \'2\', NA, \'4\', \'4\', \'2\', \'4\', \'4\', \'2\', \'1\', \'4\', \'4\', \'3\', \'1\', \'1\', \'4\', \'1\', \'4\', NA, \'1\', \'4\', \'4\', \'2\', \'2\', \'4\', \'4\', \'3\', \'4\', \'2\', \'2\', \'3\', \'3\', \'4\', \'1\', \'1\', \'1\', \'4\', \'1\', \'4\', \'4\', \'4\', \'4\', NA, \'4\', \'4\', \'4\', NA, \'1\', \'2\', \'3\', \'4\', \'3\', \'4\', \'2\', \'4\', \'4\', \'1\', \'4\', \'1\', \'4\', NA, \'4\', \'2\', \'1\', \'4\', \'1\', \'1\', \'1\', \'4\', \'4\', \'2\', \'4\', \'1\', \'1\', \'1\', \'4\', \'1\', \'1\', \'1\', \'4\', \'3\', \'1\', \'4\', \'3\', \'2\', \'4\', \'3\', \'1\', \'4\', \'2\', \'4\', NA, \'4\', \'4\', \'4\', \'2\', \'1\', \'4\', \'4\', NA, \'2\', \'4\', \'4\', \'1\', \'1\', \'1\', \'1\', \'4\', \'1\', \'2\', \'3\', \'2\', \'1\', \'4\', \'4\', \'4\', \'1\', NA, \'4\', \'2\', \'2\', \'2\', \'4\', \'4\', \'3\', \'3\', \'4\', \'2\', \'4\', \'3\', \'1\', \'1\', \'4\', \'2\', \'4\', \'3\', \'1\', \'4\', \'3\', \'4\', \'4\', \'1\', \'1\', \'4\', \'4\', \'3\', \'1\', \'1\', \'2\', \'1\', \'3\', \'4\', \'2\', \'2\', \'2\', \'4\', \'4\', \'3\', \'2\', \'1\', \'1\', \'4\', \'1\', \'1\', \'2\', NA, \'2\', \'3\', \'3\', \'2\', \'1\', \'1\', \'1\', \'1\', \'4\', \'4\', \'4\', \'4\', \'4\', \'4\', \'2\', \'2\', \'1\', \'4\', \'1\', \'4\', \'3\', \'4\', \'2\', \'3\', \'1\', \'3\', \'1\', \'4\', \'1\', \'4\', \'1\', \'4\', \'3\', \'3\', \'4\', \'4\', \'1\', NA, \'3\', \'4\', \'4\', \'4\', \'4\', \'4\', \'4\', \'3\', \'4\', \'3\', \'4\', \'2\', \'4\', \'4\', \'1\', \'2\', NA, \'4\', \'4\', \'4\', \'4\', \'1\', \'2\', \'1\', \'1\', \'2\', \'1\', \'4\', \'2\', \'3\', \'1\', \'4\', \'4\', \'4\', \'1\', \'2\', \'1\', \'4\', \'2\', \'1\', \'3\', \'1\', \'2\', \'2\', \'1\', \'2\', \'1\', NA, \'3\', \'2\', \'2\', \'4\', \'1\', \'4\', \'4\', \'2\', \'4\', \'4\', \'4\', \'2\', \'1\', \'4\', \'2\', \'4\', \'4\', \'4\', \'4\', \'4\', \'1\', \'3\', \'4\', \'3\', \'4\', \'1\', NA, \'4\', NA, \'1\', \'1\', \'1\', \'4\', \'4\', \'4\', \'4\', \'2\', \'4\', \'3\', \'2\', NA, \'1\', \'4\', \'4\', \'3\', \'4\', \'4\', \'4\', \'2\', \'4\', \'2\', \'1\', \'4\', \'4\', NA, \'4\', \'4\', \'3\', \'3\', \'4\', \'2\', \'2\', \'4\', \'1\', \'4\', \'4\', \'4\', \'3\', \'4\', \'4\', \'4\', \'3\', \'2\', \'1\', \'3\', \'1\', \'4\', \'1\', \'4\', \'2\', NA, \'1\', \'4\', \'4\', \'3\', \'1\', \'4\', \'1\', \'4\', \'1\', \'4\', \'4\', \'1\', \'2\', \'2\', \'1\', \'4\', \'1\', \'1\', \'4\', NA, \'4\', NA, \'4\', \'4\', \'4\', \'1\', \'4\', \'2\', \'1\', \'2\', \'2\', \'2\', \'2\', \'1\', \'1\', \'2\', \'1\', \'4\', \'2\', \'3\', \'3\', \'1\', \'3\', \'1\', \'4\', \'1\', \'3\', \'2\', \'2\', \'4\', \'1\', NA, \'3\', \'4\', \'2\', \'4\', \'4\', \'4\', \'4\', \'4\', \'4\', \'3\', \'4\', \'4\', \'3\', \'2\', \'1\', \'4\', \'4\', \'2\', \'4\', \'2\', \'1\', \'2\', \'1\', \'1\', \'1\', \'1\', \'4\', \'4\', \'1\', \'1\', \'4\', \'1\', \'4\', \'4\', \'4\', \'1\', \'1\', NA, \'3\', \'2\', \'4\', \'4\', \'4\', \'4\', \'2\', \'3\', \'3\', \'2\', NA, \'4\', \'2\', \'4\', \'4\', \'1\', \'1\', \'4\', \'4\', \'1\', \'1\', \'4\', \'1\', \'2\', \'2\', \'2\', \'2\', \'1\', \'4\', \'4\', \'1\', \'2\', \'2\', \'2\', \'3\', \'4\', \'4\', \'3\', \'4\', \'1\', \'1\', \'4\', \'4\', NA, \'4\', \'1\', \'4\', \'4\', \'4\', \'1\', \'4\', \'4\', \'1\', \'2\', \'4\', \'4\', \'4\', \'4\', \'1\', \'2\', \'4\', \'4\', \'2\', \'1\', \'4\', \'2\', \'4\', \'2\', \'2\', \'4\', \'1\', \'3\', \'3\', \'2\', \'4\', \'1\', \'4\', \'4\', \'4\', \'1\', NA, \'4\', \'4\', \'2\', \'4\', \'4\', \'4\', \'4\', \'4\', \'2\', NA, \'4\', \'2\', \'4\', \'3\', \'1\', \'4\', \'4\', \'3\', \'4\', \'2\', \'4\', \'4\', \'1\', \'2\', \'1\', \'4\', \'1\', \'3\', \'3\', \'1\', \'4\', \'4\', \'2\', \'4\', \'4\', \'4\', \'4\', \'3\', \'2\', \'3\', \'3\', \'2\', NA, \'3\', \'4\', \'4\', \'3\', \'3\', \'4\', \'4\', \'4\', \'1\', \'4\', \'4\', \'4\', \'4\', \'4\', \'4\', \'4\', \'2\', \'4\', \'2\', \'3\', \'4\', \'1\', \'3\', \'1\', NA, \'4\', \'1\', \'2\', \'2\', \'1\', \'4\', \'3\', \'3\', \'4\', \'1\', \'1\', \'3\'), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsub12() {
+ assertEval("argv <- list(\'.* : \', \'\', structure(\'Error in rnorm(2, c(1, NA)) : (converted from warning) NAs produced\\n\', class = \'try-error\', condition = structure(list(message = \'(converted from warning) NAs produced\', call = quote(rnorm(2, c(1, NA)))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsub13() {
+ assertEval("argv <- list(\'.* : \', \'\', structure(\'Error in rexp(2, numeric()) : (converted from warning) NAs produced\\n\', class = \'try-error\', condition = structure(list(message = \'(converted from warning) NAs produced\', call = quote(rexp(2, numeric()))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsub14() {
+ assertEval("argv <- list(\'.* : \', \'\', structure(\'Error in rnorm(2, numeric()) : (converted from warning) NAs produced\\n\', class = \'try-error\', condition = structure(list(message = \'(converted from warning) NAs produced\', call = quote(rnorm(2, numeric()))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsub15() {
+ assertEval("argv <- list(\'.* : \', \'\', structure(\'Error in rnorm(1, sd = Inf) : (converted from warning) NAs produced\\n\', class = \'try-error\', condition = structure(list(message = \'(converted from warning) NAs produced\', call = quote(rnorm(1, sd = Inf))), .Names = c(\'message\', \'call\'), class = c(\'simpleError\', \'error\', \'condition\'))), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testsub16() {
+ assertEval("argv <- list(\'^ +\', \'\', c(\'1_\', \'Weight\', \'Cylinders4\', \'Cylinders5\', \'Cylinders6\', \'Cylinders8\', \'Cylindersrotary\', \'TypeLarge\', \'TypeMidsize\', \'TypeSmall\', \'TypeSporty\', \'TypeVan\', \'EngineSize\', \'DriveTrainFront\', \'DriveTrainRear\'), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsub17() {
+ assertEval("argv <- list(\'^msgstr[[:blank:]]+[\\\'](.*)[\\\'][[:blank:]]*$\', \'\\\\1\', \'msgstr \\\'<U+043E><U+0442><U+0440><U+0438><U+0446><U+0430><U+0442><U+0435><U+043B><U+044C><U+043D><U+044B><U+0435> <U+0432><U+0435><U+0441><U+0430> <U+043D><U+0435> <U+0440><U+0430><U+0437><U+0440><U+0435><U+0448><U+0435><U+043D><U+044B>\\\'\', FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsub18() {
+ assertEval("argv <- list(\'.*Content-Type:[^\\\\]*charset=([^\\\\[:space:]]*)[[:space:]]*\\\\\\\\n.*\', \'\\\\1\', \'Project-Id-Version: lattice 0.20-10\\\\nReport-Msgid-Bugs-To: bugs@r-project.org\\\\nPOT-Creation-Date: 2012-03-10 14:42\\\\nPO-Revision-Date: 2012-08-31 16:36+0100\\\\nLast-Translator: \\305\\201ukasz Daniel <lukasz.daniel@gmail.com>\\\\nLanguage-Team: \\305\\201ukasz Daniel <lukasz.daniel@gmail.com>\\\\nLanguage: pl_PL\\\\nMIME-Version: 1.0\\\\nContent-Type: text/plain; charset=UTF-8\\\\nContent-Transfer-Encoding: 8bit\\\\nPlural-Forms: nplurals=3; plural=(n==1 ? 0 : n%10>=2 && n%10<=4 && (n%100<10 || n%100>=20) ? 1 : 2)\\\\nX-Poedit-SourceCharset: iso-8859-1\\\\n\', FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+
+ @Test
+ public void testsub19() {
+ assertEval("argv <- list(\'([^:]*):(.*)\', \'\\\\2\', character(0), FALSE, FALSE, FALSE, FALSE); .Internal(sub(argv[[1]], argv[[2]], argv[[3]], argv[[4]], argv[[5]], argv[[6]], argv[[7]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsubset.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsubset.java
new file mode 100644
index 0000000000000000000000000000000000000000..79feb56d2cce53e0ca55a5b6551dcc8cf7181957
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsubset.java
@@ -0,0 +1,162 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsubset extends TestBase {
+
+ @Test
+ @Ignore
+ public void testsubset1() {
+ assertEval("argv <- list(structure(list(`Resid. Df` = c(4, 0), `Resid. Dev` = c(5.12914107700115, 7.54951656745095e-15), Df = c(NA, 4), Deviance = c(NA, 5.12914107700114), Rao = c(NA, 5.17320176026795)), .Names = c(\'Resid. Df\', \'Resid. Dev\', \'Df\', \'Deviance\', \'Rao\'), row.names = c(\'1\', \'2\'), class = \'data.frame\'), 5L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset2() {
+ assertEval("argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = \'ts\'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c(\'y\', \'lag.quarterly.revenue\', \'price.index\', \'income.level\', \'market.potential\'), row.names = c(\'1962.25\', \'1962.5\', \'1962.75\', \'1963\', \'1963.25\', \'1963.5\', \'1963.75\', \'1964\', \'1964.25\', \'1964.5\', \'1964.75\', \'1965\', \'1965.25\', \'1965.5\', \'1965.75\', \'1966\', \'1966.25\', \'1966.5\', \'1966.75\', \'1967\', \'1967.25\', \'1967.5\', \'1967.75\', \'1968\', \'1968.25\', \'1968.5\', \'1968.75\', \'1969\', \'1969.25\', \'1969.5\', \'1969.75\', \'1970\', \'1970.25\', \'1970.5\', \'1970.75\', \'1971\', \'1971.25\', \'1971.5\', \'1971.75\'), class = \'data.frame\'), 3L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset3() {
+ assertEval("argv <- list(structure(list(Var1 = c(1L, 2L, 3L, 0L, 1L, 2L, 0L, 1L, 0L), Var2 = c(0L, 0L, 0L, 1L, 1L, 1L, 2L, 2L, 3L)), .Names = c(\'Var1\', \'Var2\'), out.attrs = structure(list(dim = c(4L, 4L), dimnames = structure(list(Var1 = c(\'Var1=0\', \'Var1=1\', \'Var1=2\', \'Var1=3\'), Var2 = c(\'Var2=0\', \'Var2=1\', \'Var2=2\', \'Var2=3\')), .Names = c(\'Var1\', \'Var2\'))), .Names = c(\'dim\', \'dimnames\')), row.names = c(2L, 3L, 4L, 5L, 6L, 7L, 9L, 10L, 13L), class = \'data.frame\'), 1);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset4() {
+ assertEval("argv <- list(structure(list(Population = c(3615, 365, 2212, 2110, 21198, 2541, 3100, 579, 8277, 4931, 868, 813, 11197, 5313, 2861, 2280, 3387, 3806, 1058, 4122, 5814, 9111, 3921, 2341, 4767, 746, 1544, 590, 812, 7333, 1144, 18076, 5441, 637, 10735, 2715, 2284, 11860, 931, 2816, 681, 4173, 12237, 1203, 472, 4981, 3559, 1799, 4589, 376), Income = c(3624, 6315, 4530, 3378, 5114, 4884, 5348, 4809, 4815, 4091, 4963, 4119, 5107, 4458, 4628, 4669, 3712, 3545, 3694, 5299, 4755, 4751, 4675, 3098, 4254, 4347, 4508, 5149, 4281, 5237, 3601, 4903, 3875, 5087, 4561, 3983, 4660, 4449, 4558, 3635, 4167, 3821, 4188, 4022, 3907, 4701, 4864, 3617, 4468, 4566), Illiteracy = c(2.1, 1.5, 1.8, 1.9, 1.1, 0.7, 1.1, 0.9, 1.3, 2, 1.9, 0.6, 0.9, 0.7, 0.5, 0.6, 1.6, 2.8, 0.7, 0.9, 1.1, 0.9, 0.6, 2.4, 0.8, 0.6, 0.6, 0.5, 0.7, 1.1, 2.2, 1.4, 1.8, 0.8, 0.8, 1.1, 0.6, 1, 1.3, 2.3, 0.5, 1.7, 2.2, 0.6, 0.6, 1.4, 0.6, 1.4, 0.7, 0.6), `Life Exp` = c(69.05, 69.31, 70.55, 70.66, 71.71, 72.06, 72.48, 70.06, 70.66, 68.54, 73.6, 71.87, 70.14, 70.88, 72.56, 72.58, 70.1, 68.76, 70.39, 70.22, 71.83, 70.63, 72.96, 68.09, 70.69, 70.56, 72.6, 69.03, 71.23, 70.93, 70.32, 70.55, 69.21, 72.78, 70.82, 71.42, 72.13, 70.43, 71.9, 67.96, 72.08, 70.11, 70.9, 72.9, 71.64, 70.08, 71.72, 69.48, 72.48, 70.29), Murder = c(15.1, 11.3, 7.8, 10.1, 10.3, 6.8, 3.1, 6.2, 10.7, 13.9, 6.2, 5.3, 10.3, 7.1, 2.3, 4.5, 10.6, 13.2, 2.7, 8.5, 3.3, 11.1, 2.3, 12.5, 9.3, 5, 2.9, 11.5, 3.3, 5.2, 9.7, 10.9, 11.1, 1.4, 7.4, 6.4, 4.2, 6.1, 2.4, 11.6, 1.7, 11, 12.2, 4.5, 5.5, 9.5, 4.3, 6.7, 3, 6.9), `HS Grad` = c(41.3, 66.7, 58.1, 39.9, 62.6, 63.9, 56, 54.6, 52.6, 40.6, 61.9, 59.5, 52.6, 52.9, 59, 59.9, 38.5, 42.2, 54.7, 52.3, 58.5, 52.8, 57.6, 41, 48.8, 59.2, 59.3, 65.2, 57.6, 52.5, 55.2, 52.7, 38.5, 50.3, 53.2, 51.6, 60, 50.2, 46.4, 37.8, 53.3, 41.8, 47.4, 67.3, 57.1, 47.8, 63.5, 41.6, 54.5, 62.9), Frost = c(20, 152, 15, 65, 20, 166, 139, 103, 11, 60, 0, 126, 127, 122, 140, 114, 95, 12, 161, 101, 103, 125, 160, 50, 108, 155, 139, 188, 174, 115, 120, 82, 80, 186, 124, 82, 44, 126, 127, 65, 172, 70, 35, 137, 168, 85, 32, 100, 149, 173), Area = c(50708, 566432, 113417, 51945, 156361, 103766, 4862, 1982, 54090, 58073, 6425, 82677, 55748, 36097, 55941, 81787, 39650, 44930, 30920, 9891, 7826, 56817, 79289, 47296, 68995, 145587, 76483, 109889, 9027, 7521, 121412, 47831, 48798, 69273, 40975, 68782, 96184, 44966, 1049, 30225, 75955, 41328, 262134, 82096, 9267, 39780, 66570, 24070, 54464, 97203)), .Names = c(\'Population\', \'Income\', \'Illiteracy\', \'Life Exp\', \'Murder\', \'HS Grad\', \'Frost\', \'Area\'), row.names = c(\'Alabama\', \'Alaska\', \'Arizona\', \'Arkansas\', \'California\', \'Colorado\', \'Connecticut\', \'Delaware\', \'Florida\', \'Georgia\', \'Hawaii\', \'Idaho\', \'Illinois\', \'Indiana\', \'Iowa\', \'Kansas\', \'Kentucky\', \'Louisiana\', \'Maine\', \'Maryland\', \'Massachusetts\', \'Michigan\', \'Minnesota\', \'Mississippi\', \'Missouri\', \'Montana\', \'Nebraska\', \'Nevada\', \'New Hampshire\', \'New Jersey\', \'New Mexico\', \'New York\', \'North Carolina\', \'North Dakota\', \'Ohio\', \'Oklahoma\', \'Oregon\', \'Pennsylvania\', \'Rhode Island\', \'South Carolina\', \'South Dakota\', \'Tennessee\', \'Texas\', \'Utah\', \'Vermont\', \'Virginia\', \'Washington\', \'West Virginia\', \'Wisconsin\', \'Wyoming\'), class = \'data.frame\'), c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE));.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset5() {
+ assertEval("argv <- list(structure(list(war = c(1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0), fly = c(1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), ver = c(1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0), end = c(1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, NA, 1, 1, 0, 1, 1, NA, 0), gro = c(0, 0, 1, 1, 0, 0, 0, 1, 0, 1, NA, 0, 0, 1, NA, 0, 0, NA, 1, 0), hai = c(1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1)), .Names = c(\'war\', \'fly\', \'ver\', \'end\', \'gro\', \'hai\'), row.names = c(\'ant\', \'bee\', \'cat\', \'cpl\', \'chi\', \'cow\', \'duc\', \'eag\', \'ele\', \'fly\', \'fro\', \'her\', \'lio\', \'liz\', \'lob\', \'man\', \'rab\', \'sal\', \'spi\', \'wha\'), class = \'data.frame\'), NULL);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset6() {
+ assertEval("argv <- list(structure(list(surname = structure(c(\'McNeil\', \'Ripley\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'AsIs\'), nationality = structure(c(1L, 2L, 2L, 3L, 3L, 1L), .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(c(1L, 1L, 1L, 1L, 2L, 1L), .Label = c(\'no\', \'yes\'), class = \'factor\'), title = structure(c(3L, 6L, 7L, 4L, 2L, 5L), .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(c(NA, NA, NA, NA, NA, 1L), .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\', \'title\', \'other.author\'), row.names = c(NA, -6L), class = \'data.frame\'), -1);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset7() {
+ assertEval("argv <- list(structure(list(a = c(1L, 2L, 3L, NA), b = c(NA, 3.14159265358979, 3.14159265358979, 3.14159265358979), c = c(TRUE, NA, FALSE, TRUE), d = c(\'aa\', \'bb\', NA, \'dd\'), e = structure(c(\'a1\', NA, NA, \'a4\'), class = \'AsIs\'), f = c(\'20010101\', NA, NA, \'20041026\')), .Names = c(\'a\', \'b\', \'c\', \'d\', \'e\', \'f\'), row.names = c(NA, -4L), class = \'data.frame\'), 3L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset8() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1, 1, 2), Deviance = c(32.825622681839, 12.2441566485997, 28.4640218366572, 32.4303239692005), AIC = c(92.5235803967766, 73.9421143635373, 90.1619795515948, 96.1282816841381)), .Names = c(\'Df\', \'Deviance\', \'AIC\'), row.names = c(\'<none>\', \'+ M.user\', \'+ Temp\', \'+ Soft\'), class = c(\'anova\', \'data.frame\')), 3L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset9() {
+ assertEval("argv <- list(structure(list(`1` = 0:10, `2` = 10:20, `3` = 20:30), .Names = c(\'1\', \'2\', \'3\'), row.names = c(NA, -11L), class = \'data.frame\'), -2);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset10() {
+ assertEval("argv <- list(structure(list(surname = structure(2L, .Label = c(\'McNeil\', \'R Core\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'factor\'), nationality = structure(NA_integer_, .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(NA_integer_, .Label = c(\'no\', \'yes\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\'), row.names = 1L, class = \'data.frame\'), 1L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset11() {
+ assertEval("argv <- list(structure(list(height = numeric(0), weight = numeric(0)), .Names = c(\'height\', \'weight\'), row.names = integer(0), class = \'data.frame\'), 1:2);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset12() {
+ assertEval("argv <- list(structure(list(srcfile = c(\'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R\', \'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R\', \'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R\', \'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/cloud.R\'), frow = c(32L, 33L, 33L, 36L), lrow = c(32L, 33L, 33L, 36L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, 4L), class = \'data.frame\'), \'frow\');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset13() {
+ assertEval("argv <- list(structure(list(surname = structure(c(5L, 6L, 4L, 3L, 3L, 1L, 2L), .Label = c(\'McNeil\', \'R Core\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'factor\'), title = structure(c(2L, 5L, 4L, 6L, 7L, 3L, 1L), .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(c(NA, 1L, NA, NA, NA, NA, 2L), .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'surname\', \'title\', \'other.author\'), row.names = c(NA, -7L), class = \'data.frame\'), 1L);.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset14() {
+ assertEval("argv <- list(structure(list(size = 1056, isdir = FALSE, mode = structure(420L, class = \'octmode\'), mtime = structure(1393948130.23894, class = c(\'POSIXct\', \'POSIXt\')), ctime = structure(1393948130.23894, class = c(\'POSIXct\', \'POSIXt\')), atime = structure(1395074550.46596, class = c(\'POSIXct\', \'POSIXt\')), uid = 1001L, gid = 1001L, uname = \'roman\', grname = \'roman\'), .Names = c(\'size\', \'isdir\', \'mode\', \'mtime\', \'ctime\', \'atime\', \'uid\', \'gid\', \'uname\', \'grname\'), class = \'data.frame\', row.names = \'/home/roman/r-instrumented/library/grid/R/grid\'), \'mtime\');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset15() {
+ assertEval("argv <- list(structure(list(Sepal.Length = c(5.1, 4.9, 4.7, 4.6, 5, 5.4, 4.6, 5, 4.4, 4.9, 5.4, 4.8, 4.8, 4.3, 5.8, 5.7, 5.4, 5.1, 5.7, 5.1, 5.4, 5.1, 4.6, 5.1, 4.8, 5, 5, 5.2, 5.2, 4.7, 4.8, 5.4, 5.2, 5.5, 4.9, 5, 5.5, 4.9, 4.4, 5.1, 5, 4.5, 4.4, 5, 5.1, 4.8, 5.1, 4.6, 5.3, 5, 7, 6.4, 6.9, 5.5, 6.5, 5.7, 6.3, 4.9, 6.6, 5.2, 5, 5.9, 6, 6.1, 5.6, 6.7, 5.6, 5.8, 6.2, 5.6, 5.9, 6.1, 6.3, 6.1, 6.4, 6.6, 6.8, 6.7, 6, 5.7, 5.5, 5.5, 5.8, 6, 5.4, 6, 6.7, 6.3, 5.6, 5.5, 5.5, 6.1, 5.8, 5, 5.6, 5.7, 5.7, 6.2, 5.1, 5.7, 6.3, 5.8, 7.1, 6.3, 6.5, 7.6, 4.9, 7.3, 6.7, 7.2, 6.5, 6.4, 6.8, 5.7, 5.8, 6.4, 6.5, 7.7, 7.7, 6, 6.9, 5.6, 7.7, 6.3, 6.7, 7.2, 6.2, 6.1, 6.4, 7.2, 7.4, 7.9, 6.4, 6.3, 6.1, 7.7, 6.3, 6.4, 6, 6.9, 6.7, 6.9, 5.8, 6.8, 6.7, 6.7, 6.3, 6.5, 6.2, 5.9), Sepal.Width = c(3.5, 3, 3.2, 3.1, 3.6, 3.9, 3.4, 3.4, 2.9, 3.1, 3.7, 3.4, 3, 3, 4, 4.4, 3.9, 3.5, 3.8, 3.8, 3.4, 3.7, 3.6, 3.3, 3.4, 3, 3.4, 3.5, 3.4, 3.2, 3.1, 3.4, 4.1, 4.2, 3.1, 3.2, 3.5, 3.6, 3, 3.4, 3.5, 2.3, 3.2, 3.5, 3.8, 3, 3.8, 3.2, 3.7, 3.3, 3.2, 3.2, 3.1, 2.3, 2.8, 2.8, 3.3, 2.4, 2.9, 2.7, 2, 3, 2.2, 2.9, 2.9, 3.1, 3, 2.7, 2.2, 2.5, 3.2, 2.8, 2.5, 2.8, 2.9, 3, 2.8, 3, 2.9, 2.6, 2.4, 2.4, 2.7, 2.7, 3, 3.4, 3.1, 2.3, 3, 2.5, 2.6, 3, 2.6, 2.3, 2.7, 3, 2.9, 2.9, 2.5, 2.8, 3.3, 2.7, 3, 2.9, 3, 3, 2.5, 2.9, 2.5, 3.6, 3.2, 2.7, 3, 2.5, 2.8, 3.2, 3, 3.8, 2.6, 2.2, 3.2, 2.8, 2.8, 2.7, 3.3, 3.2, 2.8, 3, 2.8, 3, 2.8, 3.8, 2.8, 2.8, 2.6, 3, 3.4, 3.1, 3, 3.1, 3.1, 3.1, 2.7, 3.2, 3.3, 3, 2.5, 3, 3.4, 3), Petal.Length = c(1.4, 1.4, 1.3, 1.5, 1.4, 1.7, 1.4, 1.5, 1.4, 1.5, 1.5, 1.6, 1.4, 1.1, 1.2, 1.5, 1.3, 1.4, 1.7, 1.5, 1.7, 1.5, 1, 1.7, 1.9, 1.6, 1.6, 1.5, 1.4, 1.6, 1.6, 1.5, 1.5, 1.4, 1.5, 1.2, 1.3, 1.4, 1.3, 1.5, 1.3, 1.3, 1.3, 1.6, 1.9, 1.4, 1.6, 1.4, 1.5, 1.4, 4.7, 4.5, 4.9, 4, 4.6, 4.5, 4.7, 3.3, 4.6, 3.9, 3.5, 4.2, 4, 4.7, 3.6, 4.4, 4.5, 4.1, 4.5, 3.9, 4.8, 4, 4.9, 4.7, 4.3, 4.4, 4.8, 5, 4.5, 3.5, 3.8, 3.7, 3.9, 5.1, 4.5, 4.5, 4.7, 4.4, 4.1, 4, 4.4, 4.6, 4, 3.3, 4.2, 4.2, 4.2, 4.3, 3, 4.1, 6, 5.1, 5.9, 5.6, 5.8, 6.6, 4.5, 6.3, 5.8, 6.1, 5.1, 5.3, 5.5, 5, 5.1, 5.3, 5.5, 6.7, 6.9, 5, 5.7, 4.9, 6.7, 4.9, 5.7, 6, 4.8, 4.9, 5.6, 5.8, 6.1, 6.4, 5.6, 5.1, 5.6, 6.1, 5.6, 5.5, 4.8, 5.4, 5.6, 5.1, 5.1, 5.9, 5.7, 5.2, 5, 5.2, 5.4, 5.1), Petal.Width = c(0.2, 0.2, 0.2, 0.2, 0.2, 0.4, 0.3, 0.2, 0.2, 0.1, 0.2, 0.2, 0.1, 0.1, 0.2, 0.4, 0.4, 0.3, 0.3, 0.3, 0.2, 0.4, 0.2, 0.5, 0.2, 0.2, 0.4, 0.2, 0.2, 0.2, 0.2, 0.4, 0.1, 0.2, 0.2, 0.2, 0.2, 0.1, 0.2, 0.2, 0.3, 0.3, 0.2, 0.6, 0.4, 0.3, 0.2, 0.2, 0.2, 0.2, 1.4, 1.5, 1.5, 1.3, 1.5, 1.3, 1.6, 1, 1.3, 1.4, 1, 1.5, 1, 1.4, 1.3, 1.4, 1.5, 1, 1.5, 1.1, 1.8, 1.3, 1.5, 1.2, 1.3, 1.4, 1.4, 1.7, 1.5, 1, 1.1, 1, 1.2, 1.6, 1.5, 1.6, 1.5, 1.3, 1.3, 1.3, 1.2, 1.4, 1.2, 1, 1.3, 1.2, 1.3, 1.3, 1.1, 1.3, 2.5, 1.9, 2.1, 1.8, 2.2, 2.1, 1.7, 1.8, 1.8, 2.5, 2, 1.9, 2.1, 2, 2.4, 2.3, 1.8, 2.2, 2.3, 1.5, 2.3, 2, 2, 1.8, 2.1, 1.8, 1.8, 1.8, 2.1, 1.6, 1.9, 2, 2.2, 1.5, 1.4, 2.3, 2.4, 1.8, 1.8, 2.1, 2.4, 2.3, 1.9, 2.3, 2.5, 2.3, 1.9, 2, 2.3, 1.8), Species = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c(\'setosa\', \'versicolor\', \'virginica\'), class = \'factor\')), .Names = c(\'Sepal.Length\', \'Sepal.Width\', \'Petal.Length\', \'Petal.Width\', \'Species\'), row.names = c(NA, -150L), class = \'data.frame\'), c(FALSE, FALSE, FALSE, FALSE, TRUE));.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset16() {
+ assertEval("argv <- list(structure(list(VAR1 = c(1, 2, 3, 4, 5), VAR2 = c(5, 4, 3, 2, 1), VAR3 = c(1, 1, 1, 1, NA)), .Names = c(\'VAR1\', \'VAR2\', \'VAR3\'), row.names = c(NA, -5L), class = \'data.frame\'), c(1, 3));.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset17() {
+ assertEval("argv <- list(structure(list(ii = 1:10, xx = c(-9.42477796076938, -6.28318530717959, -3.14159265358979, 0, 3.14159265358979, 6.28318530717959, 9.42477796076938, 12.5663706143592, 15.707963267949, 18.8495559215388)), .Names = c(\'ii\', \'xx\'), row.names = c(NA, -10L), class = \'data.frame\'), \'C\');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset18() {
+ assertEval("argv <- list(structure(list(srcfile = c(NA, NA, \'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R\', \'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R\', \'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R\', \'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R\', \'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R\', \'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R\', \'/home/lzhao/tmp/RtmpGUHe0I/R.INSTALL2aa51f3e9d31/lattice/R/levelplot.R\'), frow = c(NA, NA, 427L, 427L, 432L, 434L, 434L, 438L, 438L), lrow = c(NA, NA, 428L, 428L, 432L, 437L, 437L, 441L, 441L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, 9L), class = \'data.frame\'), \'lrow\');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset19() {
+ assertEval("argv <- list(structure(list(x = 1:3, y = structure(4:6, .Dim = c(3L, 1L), class = \'AsIs\'), z = structure(c(\'a\', \'b\', \'c\', \'d\', \'e\', \'f\', \'g\', \'h\', \'i\'), .Dim = c(3L, 3L), class = \'AsIs\')), .Names = c(\'x\', \'y\', \'z\'), row.names = c(NA, -3L), class = \'data.frame\'), \'z\');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset20() {
+ assertEval("argv <- list(structure(list(srcfile = c(\'/home/lzhao/hg/r-instrumented/library/stats/R/stats\', \'/home/lzhao/hg/r-instrumented/library/stats/R/stats\'), frow = 21911:21912, lrow = 21911:21912), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = 1:2, class = \'data.frame\'), \'frow\');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset21() {
+ assertEval("argv <- list(structure(list(z = c(-2.97525101631257, -2.48489962337717, -1.99157511113426, -1.4958325959814, -0.998253002608536, -0.499437269286478, 0, 0.499437269286499, 0.998253002608553, 1.49583259598141, 1.99157511113428, 2.48489962337718, 2.97525101631258), par.vals = structure(c(3.29998649934118, 3.26341935258893, 3.22450701705249, 3.18319718928165, 3.13944811066026, 3.09322935890527, 3.04452243772342, 2.99332114068265, 2.93963167421501, 2.88347253461377, 2.824874144162, 2.76387826147581, 2.70053719000543, -0.454255272277595, -0.454255272277596, -0.454255272277596, -0.454255272277598, -0.454255272277597, -0.454255272277596, -0.454255272277594, -0.454255272277597, -0.454255272277596, -0.454255272277596, -0.454255272277597, -0.454255272277596, -0.454255272277597, -0.292987124681473, -0.292987124681473, -0.292987124681474, -0.292987124681475, -0.292987124681474, -0.292987124681474, -0.292987124681473, -0.292987124681475, -0.292987124681474, -0.292987124681474, -0.292987124681474, -0.292987124681474, -0.292987124681474, -0.255464061617756, -0.218896914865511, -0.179984579329071, -0.138674751558221, -0.0949256729368359, -0.0487069211818519, 1.33790930192987e-15, 0.0512012970407721, 0.104890763508413, 0.161049903109653, 0.219648293561426, 0.280644176247611, 0.34398524771799, -0.599449309335745, -0.49954109111312, -0.399632872890496, -0.299724654667872, -0.199816436445247, -0.099908218222623, 1.42108546079721e-15, 0.0999082182226258, 0.19981643644525, 0.299724654667875, 0.399632872890499, 0.499541091113123, 0.599449309335748), .Dim = c(13L, 5L), .Dimnames = list(NULL, c(\'(Intercept)\', \'outcome2\', \'outcome3\', \'treatment2\', \'treatment3\')))), .Names = c(\'z\', \'par.vals\'), row.names = c(NA, 13L), class = \'data.frame\'), \'par.vals\');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset22() {
+ assertEval("argv <- list(structure(3.14159265358979, class = \'testit\'), structure(3.14159265358979, class = \'testit\'));.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset23() {
+ assertEval("argv <- list(structure(list(Fertility = c(80.2, 83.1, 92.5, 85.8, 76.9), Agriculture = c(17, 45.1, 39.7, 36.5, 43.5), Examination = c(15L, 6L, 5L, 12L, 17L), Education = c(12L, 9L, 5L, 7L, 15L)), .Names = c(\'Fertility\', \'Agriculture\', \'Examination\', \'Education\'), row.names = c(\'Courtelary\', \'Delemont\', \'Franches-Mnt\', \'Moutier\', \'Neuveville\'), class = \'data.frame\'), \'Ferti\');.subset(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset24() {
+ assertEval("argv <- list(structure(list(size = 131, isdir = FALSE, mode = structure(436L, class = \'octmode\'), mtime = structure(1386583148.91412, class = c(\'POSIXct\', \'POSIXt\')), ctime = structure(1386583148.91712, class = c(\'POSIXct\', \'POSIXt\')), atime = structure(1386583149.16512, class = c(\'POSIXct\', \'POSIXt\')), uid = 501L, gid = 501L, uname = \'lzhao\', grname = \'lzhao\'), .Names = c(\'size\', \'isdir\', \'mode\', \'mtime\', \'ctime\', \'atime\', \'uid\', \'gid\', \'uname\', \'grname\'), class = \'data.frame\', row.names = \'startup.Rs\'), \'mtime\');.subset(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsubset2.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsubset2.java
new file mode 100644
index 0000000000000000000000000000000000000000..72d182941d762e48b316577ca863e452b633a098
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsubset2.java
@@ -0,0 +1,210 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsubset2 extends TestBase {
+
+ @Test
+ @Ignore
+ public void testsubset21() {
+ assertEval("argv <- list(structure(list(par.vals = structure(c(43.6690361821048, 35.0518890362789, 30.2558850234373, 27.1664611723591, 24.9930921115624, 23.3776455926353, 22.122313646246, 21.1173217554787, 20.293145402391, 19.6041024133034, 19.0188803067124, 18.5152545044936, 18.0769941360739, 17.6919540860845, 17.3508558987268, 17.0464826391527, 0.924696372559026, 1.4577878275186, 1.99087928247818, 2.52397073743776, 3.05706219239734, 3.59015364735691, 4.12324510231649, 4.65633655727607, 5.18942801223565, 5.72251946719522, 6.2556109221548, 6.78870237711438, 7.32179383207396, 7.85488528703353, 8.38797674199311, 8.92106819695269), .Dim = c(16L, 2L), .Dimnames = list(NULL, c(\'ymax\', \'xhalf\')))), .Names = \'par.vals\'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset22() {
+ assertEval("argv <- list(structure(list(frow = c(NA, 2467L, 2468L, 2470L, 2470L, 2477L, 2478L, 2478L, 2480L, 2480L, 2482L, 2482L, 2482L, 2484L, 2484L, 2486L, 2486L, 2486L, 2490L, 2491L)), .Names = \'frow\'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset23() {
+ assertEval("argv <- list(structure(list(x = c(0, 0, 1, 1), y = c(2, 2, 9, 9), z = c(0, 0, -3, -3), u = c(34, 35, 19, 37)), .Names = c(\'x\', \'y\', \'z\', \'u\'), row.names = c(2L, 90L, 25L, 50L), class = \'data.frame\'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset24() {
+ assertEval("argv <- list(NULL, NULL);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset25() {
+ assertEval("argv <- list(structure(list(V1 = c(1L, 9L), V2 = c(NA, NA), V3 = c(23L, 87L), V4 = c(NA, 654L)), .Names = c(\'V1\', \'V2\', \'V3\', \'V4\'), class = \'data.frame\', row.names = c(NA, -2L)), 2L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset26() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 2L, 2L), Deviance = c(NA, 5.45230478674972, 2.66453525910038e-15), `Resid. Df` = c(8L, 6L, 4L), `Resid. Dev` = c(10.5814458637509, 5.12914107700115, 5.12914107700115)), .Names = c(\'Df\', \'Deviance\', \'Resid. Df\', \'Resid. Dev\'), row.names = c(\'NULL\', \'outcome\', \'treatment\'), class = c(\'anova\', \'data.frame\'), heading = \'Analysis of Deviance Table\\n\\nModel: poisson, link: log\\n\\nResponse: counts\\n\\nTerms added sequentially (first to last)\\n\\n\'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset27() {
+ assertEval("argv <- list(structure(list(surname = structure(c(\'Tukey\', \'Venables\', \'Tierney\', \'Ripley\', \'McNeil\'), class = \'AsIs\')), .Names = \'surname\'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset28() {
+ assertEval("argv <- list(structure(list(surname = structure(\'R Core\', class = \'AsIs\'), nationality = structure(NA_integer_, .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(NA_integer_, .Label = c(\'no\', \'yes\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\'), row.names = 7L, class = \'data.frame\'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset29() {
+ assertEval("argv <- list(structure(list(z = structure(c(\'a\', \'b\', \'c\', \'d\', \'e\', \'f\', \'g\', \'h\', \'i\'), .Dim = c(3L, 3L), class = \'AsIs\')), .Names = \'z\'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset211() {
+ assertEval("argv <- list(structure(list(V1 = structure(c(4L, 1L, 2L, 3L), .Label = c(\'1\', \'3\', \'6\', \'head\'), class = \'factor\'), V2 = c(NA, 2L, 4L, 7L), V3 = c(NA, NA, 5L, 8L), V4 = c(NA, NA, NA, 9L)), .Names = c(\'V1\', \'V2\', \'V3\', \'V4\'), class = \'data.frame\', row.names = c(NA, -4L)), 2L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset212() {
+ assertEval("argv <- list(structure(list(Res.Df = c(20, 21), RSS = c(652424.52183908, 658770.746755654), Df = c(NA, -1), `Sum of Sq` = c(NA, -6346.22491657443), F = c(NA, 0.194542807762205), `Pr(>F)` = c(NA, 0.663893424608742)), .Names = c(\'Res.Df\', \'RSS\', \'Df\', \'Sum of Sq\', \'F\', \'Pr(>F)\'), row.names = c(\'1\', \'2\'), class = c(\'anova\', \'data.frame\'), heading = c(\'Analysis of Variance Table\\n\', \'Model 1: birthw ~ sex + sex:age - 1\\nModel 2: birthw ~ sex + age - 1\')), 6L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset213() {
+ assertEval("argv <- list(structure(list(a = structure(\'abc\', class = \'AsIs\'), b = structure(\'def\\\'gh\', class = \'AsIs\')), .Names = c(\'a\', \'b\'), row.names = \'1\', class = \'data.frame\'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset214() {
+ assertEval("argv <- list(structure(list(mtime = structure(1395082258.61787, class = c(\'POSIXct\', \'POSIXt\'))), .Names = \'mtime\'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset215() {
+ assertEval("argv <- list(structure(list(A = 0:10, `NA` = 20:30), .Names = c(\'A\', NA), class = \'data.frame\', row.names = c(NA, -11L)), 2L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset216() {
+ assertEval("argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c(\'Employed\', \'GNP.deflator\', \'GNP\', \'Unemployed\', \'Armed.Forces\', \'Population\', \'Year\'), class = \'data.frame\', row.names = 1947:1962, terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year)), 3L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset217() {
+ assertEval("argv <- list(structure(list(y = c(1.08728092481538, 0.0420572471552261, 0.787502161306819, 0.512717751544676, 3.35376639535311, 0.204341510750309, -0.334930602487435, 0.80049208412789, -0.416177803375218, -0.777970346246018, 0.934996808181635, -0.678786709127108, 1.52621589791412, 0.5895781228122, -0.744496121210548, -1.99065153885627, 1.51286447692396, -0.750182409847851), A = c(0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1), B = c(1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0), U = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c(\'a\', \'b\', \'c\'), class = \'factor\'), V = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L, 1L, 1L, 2L, 2L, 3L, 3L), .Label = c(\'a\', \'b\', \'c\'), class = \'factor\')), .Names = c(\'y\', \'A\', \'B\', \'U\', \'V\'), class = \'data.frame\', row.names = c(NA, 18L), terms = quote(y ~ (A + B):(U + V) - 1)), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset218() {
+ assertEval("argv <- list(structure(list(y = c(-0.0561287395290008, -0.155795506705329, -1.47075238389927, -0.47815005510862, 0.417941560199702, 1.35867955152904, -0.102787727342996, 0.387671611559369, -0.0538050405829051, -1.37705955682861), x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE)), .Names = c(\'y\', \'x\'), class = \'data.frame\', row.names = c(NA, 10L), terms = quote(y ~ x)), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset219() {
+ assertEval("argv <- list(structure(list(surname = structure(2L, .Label = c(\'McNeil\', \'R Core\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'factor\'), nationality = structure(NA_integer_, .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(NA_integer_, .Label = c(\'no\', \'yes\'), class = \'factor\'), title = structure(1L, .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(2L, .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\', \'title\', \'other.author\'), row.names = 1L, class = \'data.frame\'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset220() {
+ assertEval("argv <- list(structure(list(surname = structure(integer(0), .Label = c(\'McNeil\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'factor\'), nationality = structure(integer(0), .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(integer(0), .Label = c(\'no\', \'yes\'), class = \'factor\'), title = structure(integer(0), .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(integer(0), .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\', \'title\', \'other.author\'), row.names = integer(0), class = \'data.frame\'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset221() {
+ assertEval("argv <- list(structure(list(A = c(1, NA, 1), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA_integer_, NA_integer_, NA_integer_), E = c(FALSE, NA, TRUE), F = c(\'abc\', NA, \'def\')), .Names = c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\'), class = \'data.frame\', row.names = c(\'1\', \'2\', \'3\')), 3L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset222() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c(\'abc\', \'def\'), class = \'factor\')), .Names = c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\'), class = \'data.frame\', row.names = c(\'1\', \'2\', \'3\')), 5L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset223() {
+ assertEval("argv <- list(structure(list(srcfile = \'/home/lzhao/tmp/RtmpS45wYI/R.INSTALL2aa62411bcd3/rpart/R/rpart.R\', frow = 187L, lrow = 187L), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, -1L), class = \'data.frame\'), 2L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset224() {
+ assertEval("argv <- list(structure(list(y = c(78.5, 74.3, 104.3, 87.6, 95.9, 109.2, 102.7, 72.5, 93.1, 115.9, 83.8, 113.3, 109.4), x1 = c(7, 1, 11, 11, 7, 11, 3, 1, 2, 21, 1, 11, 10), x2 = c(26, 29, 56, 31, 52, 55, 71, 31, 54, 47, 40, 66, 68), x4 = c(60, 52, 20, 47, 33, 22, 6, 44, 22, 26, 34, 12, 12)), .Names = c(\'y\', \'x1\', \'x2\', \'x4\'), class = \'data.frame\', row.names = c(NA, 13L), terms = quote(y ~ x1 + x2 + x4)), 3L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset225() {
+ assertEval("argv <- list(structure(list(`cbind(X, M)` = structure(c(68, 42, 37, 24, 66, 33, 47, 23, 63, 29, 57, 19, 42, 30, 52, 43, 50, 23, 55, 47, 53, 27, 49, 29), .Dim = c(12L, 2L), .Dimnames = list(NULL, c(\'X\', \'M\'))), M.user = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L), .Label = c(\'N\', \'Y\'), class = \'factor\'), Temp = structure(c(2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L), .Label = c(\'High\', \'Low\'), class = \'factor\'), Soft = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c(\'Hard\', \'Medium\', \'Soft\'), class = \'factor\')), .Names = c(\'cbind(X, M)\', \'M.user\', \'Temp\', \'Soft\'), terms = quote(cbind(X, M) ~ M.user + Temp + Soft + M.user:Temp), row.names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\'), class = \'data.frame\'), \'cbind(X, M)\');.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset226() {
+ assertEval("argv <- list(structure(list(Df = 10L, `Sum Sq` = 2.74035772634541, `Mean Sq` = 0.274035772634541, `F value` = NA_real_, `Pr(>F)` = NA_real_), .Names = c(\'Df\', \'Sum Sq\', \'Mean Sq\', \'F value\', \'Pr(>F)\'), row.names = \'Residuals\', class = c(\'anova\', \'data.frame\'), heading = c(\'Analysis of Variance Table\\n\', \'Response: y\')), 5L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset227() {
+ assertEval("argv <- list(structure(list(surname = structure(1:5, .Label = c(\'McNeil\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'factor\'), nationality = structure(c(1L, 2L, 3L, 3L, 1L), .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(c(1L, 1L, 1L, 2L, 1L), .Label = c(\'no\', \'yes\'), class = \'factor\'), title = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(c(NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_), .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\', \'title\', \'other.author\'), row.names = c(NA, -5L), class = \'data.frame\'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset228() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 1, 1, 1, 1), `Sum of Sq` = c(NA, 25.9509113775335, 2.97247824113524, 0.109090049888117, 0.246974722154086), RSS = c(47.863639350499, 73.8145507280325, 50.8361175916342, 47.9727294003871, 48.1106140726531), AIC = c(26.9442879283302, 30.5758847476115, 25.7275503692601, 24.9738836085411, 25.0111950072736)), .Names = c(\'Df\', \'Sum of Sq\', \'RSS\', \'AIC\'), row.names = c(\'<none>\', \'- x1\', \'- x2\', \'- x3\', \'- x4\'), class = c(\'anova\', \'data.frame\')), 2L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset229() {
+ assertEval("argv <- list(structure(list(mtime = structure(1342423171, class = c(\'POSIXct\', \'POSIXt\'))), .Names = \'mtime\'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset230() {
+ assertEval("argv <- list(structure(list(df0 = structure(list(structure(integer(0), .Label = character(0), class = \'factor\')), row.names = character(0), class = \'data.frame\')), .Names = \'df0\', row.names = \'c0\', class = \'data.frame\'), 1L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset231() {
+ assertEval("argv <- list(structure(list(y = structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4), class = \'ts\'), lag.quarterly.revenue = c(8.79636, 8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536), price.index = c(4.70997, 4.70217, 4.68944, 4.68558, 4.64019, 4.62553, 4.61991, 4.61654, 4.61407, 4.60766, 4.60227, 4.5896, 4.57592, 4.58661, 4.57997, 4.57176, 4.56104, 4.54906, 4.53957, 4.51018, 4.50352, 4.4936, 4.46505, 4.44924, 4.43966, 4.42025, 4.4106, 4.41151, 4.3981, 4.38513, 4.3732, 4.3277, 4.32023, 4.30909, 4.30909, 4.30552, 4.29627, 4.27839, 4.27789), income.level = c(5.8211, 5.82558, 5.83112, 5.84046, 5.85036, 5.86464, 5.87769, 5.89763, 5.92574, 5.94232, 5.95365, 5.9612, 5.97805, 6.00377, 6.02829, 6.03475, 6.03906, 6.05046, 6.05563, 6.06093, 6.07103, 6.08018, 6.08858, 6.10199, 6.11207, 6.11596, 6.12129, 6.122, 6.13119, 6.14705, 6.15336, 6.15627, 6.16274, 6.17369, 6.16135, 6.18231, 6.18768, 6.19377, 6.2003), market.potential = c(12.9699, 12.9733, 12.9774, 12.9806, 12.9831, 12.9854, 12.99, 12.9943, 12.9992, 13.0033, 13.0099, 13.0159, 13.0212, 13.0265, 13.0351, 13.0429, 13.0497, 13.0551, 13.0634, 13.0693, 13.0737, 13.077, 13.0849, 13.0918, 13.095, 13.0984, 13.1089, 13.1169, 13.1222, 13.1266, 13.1356, 13.1415, 13.1444, 13.1459, 13.152, 13.1593, 13.1579, 13.1625, 13.1664)), .Names = c(\'y\', \'lag.quarterly.revenue\', \'price.index\', \'income.level\', \'market.potential\'), row.names = c(\'1962.25\', \'1962.5\', \'1962.75\', \'1963\', \'1963.25\', \'1963.5\', \'1963.75\', \'1964\', \'1964.25\', \'1964.5\', \'1964.75\', \'1965\', \'1965.25\', \'1965.5\', \'1965.75\', \'1966\', \'1966.25\', \'1966.5\', \'1966.75\', \'1967\', \'1967.25\', \'1967.5\', \'1967.75\', \'1968\', \'1968.25\', \'1968.5\', \'1968.75\', \'1969\', \'1969.25\', \'1969.5\', \'1969.75\', \'1970\', \'1970.25\', \'1970.5\', \'1970.75\', \'1971\', \'1971.25\', \'1971.5\', \'1971.75\'), class = \'data.frame\'), 4L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset233() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c(\'abc\', \'def\'), class = \'factor\')), .Names = c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\'), class = \'data.frame\', row.names = c(\'1\', \'2\', \'3\')), 6L);.subset2(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsubset234() {
+ assertEval("argv <- list(structure(list(variog = c(0.00723952158228125, 0.014584633605134, 0.0142079356273193, 0.0184422668389517, 0.0111285046171491, 0.0199100817701382, 0.0270723108677323, 0.0341403794476899, 0.0283206569034573, 0.03752550654923), dist = c(1, 6, 7, 8, 13, 14, 15, 20, 21, 22), n.pairs = structure(c(16L, 16L, 144L, 16L, 16L, 128L, 16L, 16L, 112L, 16L), .Dim = 10L, .Dimnames = structure(list(c(\'1\', \'6\', \'7\', \'8\', \'13\', \'14\', \'15\', \'20\', \'21\', \'22\')), .Names = \'\'))), .Names = c(\'variog\', \'dist\', \'n.pairs\'), collapse = TRUE, row.names = c(NA, 10L), class = c(\'Variogram\', \'data.frame\')), 3L);.subset2(argv[[1]],argv[[2]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsubstr.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsubstr.java
new file mode 100644
index 0000000000000000000000000000000000000000..af42eda6bfd59d61f9284b7c4b04c35094d95c05
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsubstr.java
@@ -0,0 +1,67 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsubstr extends TestBase {
+
+ @Test
+ public void testsubstr1() {
+ assertEval("argv <- list(\'weight\', 1L, 2L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testsubstr2() {
+ assertEval("argv <- list(c(\' \', \' \'), 1L, c(4L, -16L)); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsubstr3() {
+ assertEval("argv <- list(structure(c(\'as.formula\', \'coef\', \'makepredictcall\', \'na.fail\', \'predict\'), .Names = c(\'as.formula\', \'coef\', \'makepredictcall\', \'na.fail\', \'predict\')), 1L, 6L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testsubstr4() {
+ assertEval("argv <- list(character(0), 7L, 1000000L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsubstr5() {
+ assertEval("argv <- list(structure(\'to be supported).\', Rd_tag = \'TEXT\'), 17L, 17L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testsubstr6() {
+ assertEval("argv <- list(character(0), 1L, 5L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ public void testsubstr7() {
+ assertEval("argv <- list(\'\', 1L, 2L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsubstr8() {
+ assertEval("argv <- list(structure(c(\'model.frame\', \'predict\', \'residuals\'), .Names = c(\'model.frame\', \'predict\', \'residuals\')), 1L, 6L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsubstr9() {
+ assertEval("argv <- list(\'> ### R code from vignette source 'parallel.Rnw'\\n> \\n> ###################################################\\n> ### code chunk number 1: parallel.Rnw:474-475 (eval = FALSE)\\n> ###################################################\\n> ## library(parallel)\\n> \\n> \\n> ###################################################\\n> ### code chunk number 2: parallel.Rnw:500-507 (eval = FALSE)\\n> ###################################################\\n> ## library(boot)\\n> ## cd4.rg <- function(data, mle) MASS::mvrnorm(nrow(data), mle$m, mle$v)\\n> ## cd4.mle <- list(m = colMeans(cd4), v = var(cd4))\\n> ## cd4.boot <- boot(cd4, corr, R = 999, sim = \\\'parametric\\\',\\n> ## ran.gen = cd4.rg, mle = cd4.mle)\\n> ## boot.ci(cd4.boot, type = c(\\\'norm\\\', \\\'basic\\\', \\\'perc\\\'),\\n> ## conf = 0.9, h = atanh, hinv = tanh)\\n> \\n> \\n> ###################################################\\n> ### code chunk number 3: parallel.Rnw:512-522 (eval = FALSE)\\n> ###################################################\\n> ## cd4.rg <- function(data, mle) MASS::mvrnorm(nrow(data), mle$m, mle$v)\\n> ## cd4.mle <- list(m = colMeans(cd4), v = var(cd4))\\n> ## run1 <- function(...) boot(cd4, corr, R = 500, sim = \\\'parametric\\\',\\n> ## ran.gen = cd4.rg, mle = cd4.mle)\\n> ## mc <- 2 # set as appropriate for your hardware\\n> ## ## To make this reproducible:\\n> ## set.seed(123, \\\'L'Ecuyer\\\')\\n> ## cd4.boot <- do.call(c, mclapply(seq_len(mc), run1) )\\n> ## boot.ci(cd4.boot, type = c(\\\'norm\\\', \\\'basic\\\', \\\'perc\\\'),\\n> ## conf = 0.9, h = atanh, hinv = tanh)\\n> \\n> \\n> ###################################################\\n> ### code chunk number 4: parallel.Rnw:527-528 (eval = FALSE)\\n> ###################################################\\n> ## do.call(c, lapply(seq_len(mc), run1))\\n> \\n> \\n> ###################################################\\n> ### code chunk number 5: parallel.Rnw:532-547 (eval = FALSE)\\n> ###################################################\\n> ## run1 <- function(...) {\\n> ## library(boot)\\n> ## cd4.rg <- function(data, mle) MASS::mvrnorm(nrow(data), mle$m, mle$v)\\n> ## cd4.mle <- list(m = colMeans(cd4), v = var(cd4))\\n> ## boot(cd4, corr, R = 500, sim = \\\'parametric\\\',\\n> ## ran.gen = cd4.rg, mle = cd4.mle)\\n> ## }\\n> ## cl <- makeCluster(mc)\\n> ## ## make this reproducible\\n> ## clusterSetRNGStream(cl, 123)\\n> ## library(boot) # needed for c() method on master\\n> ## cd4.boot <- do.call(c, parLapply(cl, seq_len(mc), run1) )\\n> ## boot.ci(cd4.boot, type = c(\\\'norm\\\', \\\'basic\\\', \\\'perc\\\'),\\n> ## conf = 0.9, h = atanh, hinv = tanh)\\n> ## stopCluster(cl)\\n> \\n> \\n> ###################################################\\n> ### code chunk number 6: parallel.Rnw:557-570 (eval = FALSE)\\n> ###################################################\\n> ## cl <- makeCluster(mc)\\n> ## cd4.rg <- function(data, mle) MASS::mvrnorm(nrow(data), mle$m, mle$v)\\n> ## cd4.mle <- list(m = colMeans(cd4), v = var(cd4))\\n> ## clusterExport(cl, c(\\\'cd4.rg\\\', \\\'cd4.mle\\\'))\\n> ## junk <- clusterEvalQ(cl, library(boot)) # discard result\\n> ## clusterSetRNGStream(cl, 123)\\n> ## res <- clusterEvalQ(cl, boot(cd4, corr, R = 500,\\n> ## sim = \\\'parametric\\\', ran.gen = cd4.rg, mle = cd4.mle))\\n> ## library(boot) # needed for c() method on master\\n> ## cd4.boot <- do.call(c, res)\\n> ## boot.ci(cd4.boot, type = c(\\\'norm\\\', \\\'basic\\\', \\\'perc\\\'),\\n> ## conf = 0.9, h = atanh, hinv = tanh)\\n> ## stopCluster(cl)\\n> \\n> \\n> ###################################################\\n> ### code chunk number 7: parallel.Rnw:575-589 (eval = FALSE)\\n> ###################################################\\n> ## R <- 999; M <- 999 ## we would like at least 999 each\\n> ## cd4.nest <- boot(cd4, nested.corr, R=R, stype=\\\'w\\\', t0=corr(cd4), M=M)\\n> ## ## nested.corr is a function in package boot\\n> ## op <- par(pty = \\\'s\\\', xaxs = \\\'i\\\', yaxs = \\\'i\\\')\\n> ## qqplot((1:R)/(R+1), cd4.nest$t[, 2], pch = \\\'.\\\', asp = 1,\\n> ## xlab = \\\'nominal\\\', ylab = \\\'estimated\\\')\\n> ## abline(a = 0, b = 1, col = \\\'grey\\\')\\n> ## abline(h = 0.05, col = \\\'grey\\\')\\n> ## abline(h = 0.95, col = \\\'grey\\\')\\n> ## par(op)\\n> ## \\n> ## nominal <- (1:R)/(R+1)\\n> ## actual <- cd4.nest$t[, 2]\\n> ## 100*nominal[c(sum(actual <= 0.05), sum(actual < 0.95))]\\n> \\n> \\n> ###################################################\\n> ### code chunk number 8: parallel.Rnw:594-602 (eval = FALSE)\\n> ###################################################\\n> ## mc <- 9\\n> ## R <- 999; M <- 999; RR <- floor(R/mc)\\n> ## run2 <- function(...)\\n> ## cd4.nest <- boot(cd4, nested.corr, R=RR, stype=\\\'w\\\', t0=corr(cd4), M=M)\\n> ## cd4.nest <- do.call(c, mclapply(seq_len(mc), run2, mc.cores = mc) )\\n> ## nominal <- (1:R)/(R+1)\\n> ## actual <- cd4.nest$t[, 2]\\n> ## 100*nominal[c(sum(actual <= 0.05), sum(actual < 0.95))]\\n> \\n> \\n> ###################################################\\n> ### code chunk number 9: parallel.Rnw:616-627 (eval = FALSE)\\n> ###################################################\\n> ## library(spatial)\\n> ## towns <- ppinit(\\\'towns.dat\\\')\\n> ## tget <- function(x, r=3.5) sum(dist(cbind(x$x, x$y)) < r)\\n> ## t0 <- tget(towns)\\n> ## R <- 1000\\n> ## c <- seq(0, 1, 0.1)\\n> ## ## res[1] = 0\\n> ## res <- c(0, sapply(c[-1], function(c)\\n> ## mean(replicate(R, tget(Strauss(69, c=c, r=3.5))))))\\n> ## plot(c, res, type=\\\'l\\\', ylab=\\\'E t\\\')\\n> ## abline(h=t0, col=\\\'grey\\\')\\n> \\n> \\n> ###################################################\\n> ### code chunk number 10: parallel.Rnw:631-640 (eval = FALSE)\\n> ###################################################\\n> ## run3 <- function(c) {\\n> ## library(spatial)\\n> ## towns <- ppinit(\\\'towns.dat\\\') # has side effects\\n> ## mean(replicate(R, tget(Strauss(69, c=c, r=3.5))))\\n> ## }\\n> ## cl <- makeCluster(10, methods = FALSE)\\n> ## clusterExport(cl, c(\\\'R\\\', \\\'towns\\\', \\\'tget\\\'))\\n> ## res <- c(0, parSapply(cl, c[-1], run3)) # 10 tasks\\n> ## stopCluster(cl)\\n> \\n> \\n> ###################################################\\n> ### code chunk number 11: parallel.Rnw:644-648 (eval = FALSE)\\n> ###################################################\\n> ## cl <- makeForkCluster(10) # fork after the variables have been set up\\n> ## run4 <- function(c) mean(replicate(R, tget(Strauss(69, c=c, r=3.5))))\\n> ## res <- c(0, parSapply(cl, c[-1], run4))\\n> ## stopCluster(cl)\\n> \\n> \\n> ###################################################\\n> ### code chunk number 12: parallel.Rnw:651-653 (eval = FALSE)\\n> ###################################################\\n> ## run4 <- function(c) mean(replicate(R, tget(Strauss(69, c=c, r=3.5))))\\n> ## res <- c(0, unlist(mclapply(c[-1], run4, mc.cores = 10)))\\n> \\n> \\n> ###################################################\\n> ### code chunk number 13: parallel.Rnw:684-718 (eval = FALSE)\\n> ###################################################\\n> ## pkgs <- \\\'<names of packages to be installed>\\\'\\n> ## M <- 20 # number of parallel installs\\n> ## M <- min(M, length(pkgs))\\n> ## library(parallel)\\n> ## unlink(\\\'install_log\\\')\\n> ## cl <- makeCluster(M, outfile = \\\'install_log\\\')\\n> ## clusterExport(cl, c(\\\'tars\\\', \\\'fakes\\\', \\\'gcc\\\')) # variables needed by do_one\\n> ## \\n> ## ## set up available via a call to available.packages() for\\n> ## ## repositories containing all the packages involved and all their\\n> ## ## dependencies.\\n> ## DL <- utils:::.make_dependency_list(pkgs, available, recursive = TRUE)\\n> ## DL <- lapply(DL, function(x) x[x %in% pkgs])\\n> ## lens <- sapply(DL, length)\\n> ## ready <- names(DL[lens == 0L])\\n> ## done <- character() # packages already installed\\n> ## n <- length(ready)\\n> ## submit <- function(node, pkg)\\n> ## parallel:::sendCall(cl[[node]], do_one, list(pkg), tag = pkg)\\n> ## for (i in 1:min(n, M)) submit(i, ready[i])\\n> ## DL <- DL[!names(DL) %in% ready[1:min(n, M)]]\\n> ## av <- if(n < M) (n+1L):M else integer() # available workers\\n> ## while(length(done) < length(pkgs)) {\\n> ## d <- parallel:::recvOneResult(cl)\\n> ## av <- c(av, d$node)\\n> ## done <- c(done, d$tag)\\n> ## OK <- unlist(lapply(DL, function(x) all(x %in% done) ))\\n> ## if (!any(OK)) next\\n> ## p <- names(DL)[OK]\\n> ## m <- min(length(p), length(av)) # >= 1\\n> ## for (i in 1:m) submit(av[i], p[i])\\n> ## av <- av[-(1:m)]\\n> ## DL <- DL[!names(DL) %in% p[1:m]]\\n> ## }\\n> \\n> \\n> ###################################################\\n> ### code chunk number 14: parallel.Rnw:731-748 (eval = FALSE)\\n> ###################################################\\n> ## fn <- function(r) statistic(data, i[r, ], ...)\\n> ## RR <- sum(R)\\n> ## res <- if (ncpus > 1L && (have_mc || have_snow)) {\\n> ## if (have_mc) {\\n> ## parallel::mclapply(seq_len(RR), fn, mc.cores = ncpus)\\n> ## } else if (have_snow) {\\n> ## list(...) # evaluate any promises\\n> ## if (is.null(cl)) {\\n> ## cl <- parallel::makePSOCKcluster(rep(\\\'localhost\\\', ncpus))\\n> ## if(RNGkind()[1L] == \\\'L'Ecuyer-CMRG\\\')\\n> ## parallel::clusterSetRNGStream(cl)\\n> ## res <- parallel::parLapply(cl, seq_len(RR), fn)\\n> ## parallel::stopCluster(cl)\\n> ## res\\n> ## } else parallel::parLapply(cl, seq_len(RR), fn)\\n> ## }\\n> ## } else lapply(seq_len(RR), fn)\\n> \\n> \\n> ###################################################\\n> ### code chunk number 15: parallel.Rnw:751-752 (eval = FALSE)\\n> ###################################################\\n> ## list(...) # evaluate any promises\\n> \\n> \', 1L, 150L); .Internal(substr(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsubstrassign.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsubstrassign.java
new file mode 100644
index 0000000000000000000000000000000000000000..c257e4e65b6f1a1ccdb2dfc15ad9669ca53d2b5d
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsubstrassign.java
@@ -0,0 +1,29 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsubstrassign extends TestBase {
+
+ @Test
+ public void testsubstrassign1() {
+ assertEval("argv <- list(\'(0,5]\', 1L, 1L, \'[\'); .Internal(`substr<-`(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testsubstrassign2() {
+ assertEval("argv <- list(c(\'asfef\', \'qwerty\', \'yuiop[\', \'b\', \'stuff.blah.yech\'), 2L, 1000000L, c(\'..\', \'+++\')); .Internal(`substr<-`(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsum.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsum.java
new file mode 100644
index 0000000000000000000000000000000000000000..5a4f9b9de07b26a22513679742801de93753cd53
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsum.java
@@ -0,0 +1,125 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsum extends TestBase {
+
+ @Test
+ public void testsum1() {
+ assertEval("argv <- list(structure(313, .Names = \'\'));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void testsum2() {
+ assertEval("argv <- list(structure(c(-3.02896519757699, -2.37177231827064, -2.49295252901048, -2.99672420295655, -2.59773735414265, -2.26026537208028, -2.74080517809177, -3.785668787425, -2.80120311135215, -2.57773983108655, -5.06092522358575, -2.25629807618983), .Names = c(\'1\', \'3\', \'5\', \'7\', \'9\', \'11\', \'13\', \'15\', \'17\', \'19\', \'21\', \'23\')));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void testsum3() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), class = \'table\', .Dim = 60L, .Dimnames = structure(list(r = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\')), .Names = \'r\')));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void testsum4() {
+ assertEval("argv <- list(structure(c(-1.94895827232912e-306, 0, 9.36477567902783e-210, 3.61651164350633e-272, 0, -6.24957292845831e-288, 8.01866432306958e-186, 8.68951728615672e-228, -4.51587577314873e-307, 3.44824066264446e-249, -3.07734214990199e-295, -1.63737039109249e-287, -6.4228533959362e-323, 1.99299936577426e-196, -3.77967355768316e-310, 2.99503783387623e-261, 3.69173164797792e-278, -1.16866860094119e-314, 3.18619635538936e-115, -9.28843414181544e-322, 2.14105998923225e-270, 0, 5.16415548974996e-245, 6.63795852562496, 0, 0, 0, -3.94804275684608e-291, 5.96425287032638e-268, 7.18607375106076e-283, 6.05285733998884e-274, 3.00167530091305e-245, -1.10890415661145e-316, -2.83304044404219e-287, 2.03740072057053e-254, 7.14727745939762e-228, 1.98119254926182e-280, 0, -4.86004310565019e-285, -5.29597124993551e-297, 4.62156398366003e-269, 0, 0, 4.73760851736069e-283, -5.12888870803705e-287, -1.74386324923243e-285, -1.06055701952213e-300, 1.32316178368225e-266, 0, 1.3776952356639e-276, 1.33745692946041e-273, 3.1799923028917e-275, 0, 6.14747062861386e-255, -8.73416235737445e-295, 5.68676829309248e-139, 1.04052519425852e-222, -4.06077295726178e-297, -4.44772889827087e-294, 0), .Dim = 60L, .Dimnames = list(c(\'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\'))));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void testsum5() {
+ assertEval("argv <- list(c(2.24999999999999, 0.809999999999997, 3.24, 2.89, 0.0899999999999994, 1.96, 6.25, 0.490000000000001, 9.00000000000001, 0.00999999999999993, 0.249999999999998, 4.41000000000001, 3.24, 3.60999999999999));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void testsum6() {
+ assertEval("argv <- list(structure(c(42L, 1L, 0L, 16L, 84L, 0L, 3L, 0L, 0L), .Dim = c(3L, 3L), .Dimnames = structure(list(c(\'(0,2.5]\', \'(2.5,4]\', NA), c(\'(2,5.5]\', \'(5.5,10]\', NA)), .Names = c(\'\', \'\')), class = \'table\'));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void testsum7() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = c(101L, 3L), .Dimnames = list(NULL, c(\'t1\', \'10 * t1\', \'t1 - 4\')), .Tsp = c(1, 101, 1), class = c(\'mts\', \'ts\', \'matrix\')));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void testsum8() {
+ assertEval("argv <- list(structure(c(1, 0, 0, 0, 1, 0, 0, 0, 1), .Dim = c(3L, 3L)), extrarg = FALSE);sum(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testsum9() {
+ assertEval("sum( );");
+ }
+
+ @Test
+ public void testsum10() {
+ assertEval("argv <- list(structure(c(1.40573809911564e-05, 2.82275077233781e-31, 298891091593544, 127.398214346512, 1.96341150816547e-14, 0.100886417276321, 18137216711891664896, 75471627676.8224, 1.0423615801344e-05, 4184414.04436152, 0.00284364073413795, 0.124845661512668, 6.26689770279226e-09, 137507212543972912, 2.4515242751977e-06, 17279.5247449809, 9.31653241445582, 2.95260115615331e-07, 2.47540394744834e+33, 1.06282257391682e-08, 280.577969261283, 2.2306055461863e-12, 28194894.3770164, 3.27212932994522e+56, 2.35217223982607e-15, 1.93298541124412e-16, 3.82110080220967e-22, 0.020664532453814, 838.952367401989, 1.48989538272057, 58.0422958839475, 25315229.2305008, 1.14418993503202e-07, 0.141089233086962, 385551.97528297, 72589269069.5057, 3.63818589408037, 3.93055539198144e-15, 0.484224006687325, 0.00122384090262982, 509.681530848699, 1.09212481089264e-13, 4.20671904141446e-12, 1.41116557356417, 0.161225941178553, 0.369883152940699, 0.000211066453902523, 1536.88854142326, 1.21220206873588e-13, 18.2818077643159, 67.5636713643055, 33.0891402079429, 1.17150909115673e-23, 304202.728006006, 0.00353331875245541, 4.32607156718415e+28, 776642523346.066, 0.00115835488031795, 0.00496146869860724, 5.31574527522895e-12), .Dim = 60L, .Dimnames = list(c(\'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\', \'1\'))));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void testsum11() {
+ assertEval("argv <- list(1:10, 1+1i);sum(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testsum12() {
+ assertEval("argv <- list(structure(c(2.19172926547288, 0.330877282992322, 2.43947034322552, 1.27858232527863, 1.34995699383497, 2.31589710162493, -0.100056357529734, 2.12383938264747, 1.1838950457512, 2.61258053432978, -0.0427077741902965, 3.32267292229042, 2.72078100200188, 1.50121623996352, 0.286636947273328, 0.276805761557996, 1.58770673719377, 1.2835349906538, 2.21171702752298, 0.371840556806206, 0.185048028214896, 0.083459109156465, 0.189963621072562, 0.342346999660209, -0.144296693248728, 0.352178185375541, 0.217818647266003, 2.22181318666033, 0.121145321065238, 0.289914009178438, 0.257143390127332, -0.0394307122851858, 2.17200902055199, 0.229288363933891, 1.6805330236497, -0.20328380754072, 0.25058926631711, 1.33428464681067, -0.00502156228152353, NaN, 3.26336745706726, 1.9882766360458, 0.117868259160127, 2.69303413653791, 2.56113239793806, 0.265336044890108, 3.07945609430521, 0.221095709171114, 0.0408573043900261, 0.278444292510551, 1.33428464681067, 1.06801925109484, 0.209625992503226, 3.06212550875829, 0.116229728207572, 1.39280910631599, 2.53602717112413, 0.0457728972476921, 4.7651657207987, 0.194879213930228, 0.114591197255017, 3.26336745706726, 0.0883747020141311, 1.88846207251023, 0.119506790112683, 1.87250223559585, 2.35968057412311, 0.29974519489377, 0.29974519489377, 0.031026118674694, 1.47173382020508, 2.41624560055216, 0.167024187736788, 3.40508627615607, 3.34290799326704, 0.0113637472440299, 0.0588811448681349, 1.54990439966979, 1.35522847629799, 3.07945609430521, 0.224372771076225, 0.129337975828015, 2.99455268975735, 2.83681720000879, 0.0506884901053581, 0.334154344897433, 3.91642660780075, 1.17486192682541, 2.77775688906243, 0.194879213930228, 1.77308062628823, 0.298106663941215, 1.45438038819124, 0.193240682977673, 3.30267449277716, 1.38194860291798, 1.66007135758589, 5.1096442273052, 0.337431406802543, 0.363647902043429), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\')));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void testsum13() {
+ assertEval("argv <- list(numeric(0));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void testsum14() {
+ assertEval("argv <- list(c(49, 61, NA, NA));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void testsum15() {
+ assertEval("argv <- list(1073741824L, 1073741824L, 0);sum(argv[[1]],argv[[2]],argv[[3]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsum16() {
+ assertEval("argv <- list(1073741824L, 1073741824L);sum(argv[[1]],argv[[2]]);");
+ }
+
+ @Test
+ public void testsum17() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Tsp = c(1, 101, 1), class = \'ts\'));sum(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testsum18() {
+ assertEval("argv <- list(c(1073741824L, 1073741824L));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void testsum19() {
+ assertEval("argv <- list(structure(c(0.0946626763551857, 1.56832184548816e-06, 0.226697441774756, 0.00453708504256956, 0.258320521579932, 2.57680524978307, 0.467122524211721, 5.16534267196331, 0.694563006492192, 0.197723848046524, 0.000799319848162311, 0.000570944537286636, 0.0654689540726797, 0.000146788076901938, 0.00669686464041458, 0.00765355286634145, 0.0786604017778045, 1.25812820036403e-06, 0.167435582495234, 0.00356206279639504, 0.25547689715822, 2.72165076185825, 0.488128793070721, 3.66078502081211, 0.898984802200849, 0.190804322887854, 0.00080933803412378, 0.000578096808847448, 0.0782510283683936, 0.000156595864868186, 0.00698171105046541, 0.00797910506602018), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\')));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void testsum20() {
+ assertEval("argv <- list(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE));sum(argv[[1]]);");
+ }
+
+ @Test
+ public void testsum21() {
+ assertEval("argv <- list(structure(c(6L, 12L, 18L, 24L, 30L, 36L, 42L, 48L, 54L, 60L, 66L, 72L, 78L, 84L, 90L, 96L, 102L, 108L, 114L, 120L), .Dim = 4:5, .Dimnames = list(NULL, c(\'V5\', \'V6\', \'V7\', \'V8\', \'V9\'))));sum(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsummaryconnection.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsummaryconnection.java
new file mode 100644
index 0000000000000000000000000000000000000000..fe9ad35e401215dbc2e9e3533b4e2022739ca3ed
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsummaryconnection.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsummaryconnection extends TestBase {
+
+ @Test
+ @Ignore
+ public void testsummaryconnection1() {
+ assertEval("argv <- list(structure(2L, class = c(\'terminal\', \'connection\'))); .Internal(summary.connection(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsysonexit.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsysonexit.java
new file mode 100644
index 0000000000000000000000000000000000000000..5a5d499d59e1572ddf0c4d787d07a122692ff95d
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsysonexit.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsysonexit extends TestBase {
+
+ @Test
+ @Ignore
+ public void testsysonexit1() {
+ assertEval(" .Internal(sys.on.exit())");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsysparent.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsysparent.java
new file mode 100644
index 0000000000000000000000000000000000000000..87a98747a847474d7ee9ffb7f2dde91f8265619a
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsysparent.java
@@ -0,0 +1,23 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinsysparent extends TestBase {
+
+ @Test
+ public void testsysparent1() {
+ assertEval("argv <- list(2); .Internal(sys.parent(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintabulate.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintabulate.java
new file mode 100644
index 0000000000000000000000000000000000000000..526e2f001b9400550ed77708ae0dd4fb89e458e1
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintabulate.java
@@ -0,0 +1,54 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltintabulate extends TestBase {
+
+ @Test
+ @Ignore
+ public void testtabulate1() {
+ assertEval("argv <- list(1L, 1L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtabulate2() {
+ assertEval("argv <- list(1:6, 6L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtabulate3() {
+ assertEval("argv <- list(integer(0), 1L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtabulate4() {
+ assertEval("argv <- list(c(1L, 9L, 13L, 25L, 11L, 24L, 3L, 20L, 20L, 15L, 20L, 14L, 24L, 19L, 12L, 8L, 1L, 11L, 4L, 3L, 21L, 25L, 10L, 3L, 12L), 25L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtabulate5() {
+ assertEval("argv <- list(structure(1:49, .Label = c(\'0\', \'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\'), class = \'factor\'), 49L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtabulate6() {
+ assertEval("argv <- list(integer(0), 0L); .Internal(tabulate(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintan.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintan.java
new file mode 100644
index 0000000000000000000000000000000000000000..3ad9cb0f9262df896b6504ce8a93facb2be78e09
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintan.java
@@ -0,0 +1,47 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltintan extends TestBase {
+
+ @Test
+ @Ignore
+ public void testtan1() {
+ assertEval("argv <- list(c(2.19881034888372+1i, 1.31241297643351+1i, -0.26514505669635+1i, 0.54319405923209+1i, -0.41433994791886+1i, -0.47624689461558+1i, -0.78860283785024+1i, -0.59461726745951+1i, 1.65090746733669+1i, -0.05402812508544+1i, 0.11924523642758+1i, 0.24368742959909+1i, 1.23247587848534+1i, -0.51606383094478+1i, -0.99250715039204+1i, 1.67569693240319+1i, -0.44116321690529+1i, -0.72306596993987+1i, -1.23627311888329+1i, -1.2847157223178+1i, -0.57397347929799+1i, 0.61798581716653+1i, 1.10984813892972+1i, 0.70758835383559+1i, -0.36365729709525+1i, 0.0597499373846+1i, -0.70459646368007+1i, -0.71721816157401+1i, 0.88465049897692+1i, -1.01559257860354+1i, 1.95529396549246+1i, -0.09031959396585+1i, 0.21453882662922+1i, -0.73852770473957+1i, -0.57438868976327+1i, -1.31701613230524+1i, -0.18292538837273+1i, 0.41898240492446+1i, 0.32430434416138+1i, -0.78153648705475+1i, -0.788621970854+1i, -0.50219871834286+1i, 1.49606066984635+1i, -1.13730362066574+1i, -0.1790515943802+1i, 1.90236182167893+1i, -0.10097488532881+1i, -1.35984070382139+1i, -0.66476943527406+1i, 0.48545997890488+1i, -0.37560287166977+1i, -0.56187636354978+1i, -0.34391723412846+1i, 0.09049664713922+1i, 1.59850877114583+1i, -0.08856511213888+1i, 1.08079949615152+1i, 0.63075411565057+1i, -0.11363989550614+1i, -1.5329020028906+1i, -0.52111731755252+1i, -0.48987045313847+1i, 0.04715443276153+1i, 1.30019867766682+1i, 2.29307897383109+1i, 1.54758105898377+1i, -0.13315096432894+1i, -1.75652739555764+1i, -0.38877986407174+1i, 0.08920722307329+1i, 0.84501300406744+1i, 0.96252796848427+1i, 0.68430942941646+1i, -1.39527434979947+1i, 0.84964304563336+1i, -0.44655721642722+1i, 0.17480270016126+1i, 0.07455117717373+1i, 0.42816676497051+1i, 0.02467498282614+1i, -1.66747509758566+1i, 0.73649596477344+1i, 0.38602656834968+1i, -0.26565162527822+1i, 0.11814451104668+1i, 0.13403864536846+1i, 0.221019468561+1i, 1.64084616597749+1i, -0.21905037893348+1i, 0.16806538388466+1i, 1.16838387306909+1i, 1.05418102337692+1i, 1.14526311038036+1i, -0.57746800105956+1i, 2.00248273029283+1i, 0.06670087093018+1i, 1.86685184470686+1i, -1.35090268603071+1i, 0.02098358635424+1i, 1.24991457096922+1i));tan(argv[[1]]);");
+ }
+
+ @Test
+ public void testtan2() {
+ assertEval("argv <- list(c(0.01, 0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.12, 0.13, 0.14, 0.15, 0.16, 0.17, 0.18, 0.19, 0.2, 0.21, 0.22, 0.23, 0.24, 0.25, 0.26, 0.27, 0.28, 0.29, 0.3, 0.31, 0.32, 0.33, 0.34, 0.35, 0.36, 0.37, 0.38, 0.39, 0.4, 0.41, 0.42, 0.43, 0.44, 0.45, 0.46, 0.47, 0.48, 0.49, 0.5, 0.51, 0.52, 0.53, 0.54, 0.55, 0.56, 0.57, 0.58, 0.59, 0.6, 0.61, 0.62, 0.63, 0.64, 0.65, 0.66, 0.67, 0.68, 0.69, 0.7, 0.71, 0.72, 0.73, 0.74, 0.75, 0.76, 0.77, 0.78, 0.79, 0.8, 0.81, 0.82, 0.83, 0.84, 0.85, 0.86, 0.87, 0.88, 0.89, 0.9, 0.91, 0.92, 0.93, 0.94, 0.95, 0.96, 0.97, 0.98, 0.99));tan(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testtan3() {
+ assertEval("argv <- list(Inf);tan(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testtan4() {
+ assertEval("argv <- list(c(-6.28318530717959, -6.15752160103599, -6.0318578948924, -5.90619418874881, -5.78053048260522, -5.65486677646163, -5.52920307031804, -5.40353936417444, -5.27787565803085, -5.15221195188726, -5.02654824574367, -4.90088453960008, -4.77522083345649, -4.64955712731289, -4.5238934211693, -4.39822971502571, -4.27256600888212, -4.14690230273853, -4.02123859659494, -3.89557489045134, -3.76991118430775, -3.64424747816416, -3.51858377202057, -3.39292006587698, -3.26725635973338, -3.14159265358979, -3.0159289474462, -2.89026524130261, -2.76460153515902, -2.63893782901543, -2.51327412287183, -2.38761041672824, -2.26194671058465, -2.13628300444106, -2.01061929829747, -1.88495559215388, -1.75929188601028, -1.63362817986669, -1.5079644737231, -1.38230076757951, -1.25663706143592, -1.13097335529233, -1.00530964914873, -0.879645943005142, -0.75398223686155, -0.628318530717958, -0.502654824574367, -0.376991118430775, -0.251327412287183, -0.125663706143591, 8.88178419700125e-16, 0.125663706143592, 0.251327412287184, 0.376991118430776, 0.502654824574368, 0.62831853071796, 0.753982236861551, 0.879645943005142, 1.00530964914873, 1.13097335529233, 1.25663706143592, 1.38230076757951, 1.5079644737231, 1.63362817986669, 1.75929188601028, 1.88495559215388, 2.01061929829747, 2.13628300444106, 2.26194671058465, 2.38761041672824, 2.51327412287183, 2.63893782901543, 2.76460153515902, 2.89026524130261, 3.0159289474462, 3.14159265358979, 3.26725635973339, 3.39292006587698, 3.51858377202057, 3.64424747816416, 3.76991118430775, 3.89557489045134, 4.02123859659494, 4.14690230273853, 4.27256600888212, 4.39822971502571, 4.5238934211693, 4.64955712731289, 4.77522083345649, 4.90088453960008, 5.02654824574367, 5.15221195188726, 5.27787565803085, 5.40353936417445, 5.52920307031804, 5.65486677646163, 5.78053048260522, 5.90619418874881, 6.0318578948924, 6.157521601036, 6.28318530717959));tan(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testtan5() {
+ assertEval("argv <- list(1+1000i);tan(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintanh.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintanh.java
new file mode 100644
index 0000000000000000000000000000000000000000..38af7c49041c276afd2ea5f46d784b4add7bbff1
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintanh.java
@@ -0,0 +1,36 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltintanh extends TestBase {
+
+ @Test
+ @Ignore
+ public void testtanh1() {
+ assertEval("argv <- list(c(0.57459950307683, 1.3311607364495));tanh(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testtanh2() {
+ assertEval("argv <- list(FALSE);tanh(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testtanh3() {
+ assertEval("argv <- list(c(0.018063120710024, 0.202531388051386, 0.417573408622862, 1.63052300091743, 2.60085453772445, 2.75283670267494, 2.30083138197613, 1.47188976409943, 0.829803307993584, 0.295089115172324, 0.237719196109985, 0.617898787321681, 0.850777050382226, 0.516973890969527, 0.522699166681335, 0.850446724158497, 0.645479182912265, 0.193978409371909, 0.414456893353747, 0.492772947140595, 0.420563171733189, 0.369166401583374, 0.592867562934369, 1.21638206559229, 0.54564621330955, 0.672292186547141, 0.557193544541334, 0.112218530051911, -0.0391766542932368, 0.246991917518619, -0.0310729286667355, 0.100305401934259, 0.385595467685569, 0.347899688300561, 0.0900835492886662, -0.128526864819991));tanh(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintcrossprod.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintcrossprod.java
new file mode 100644
index 0000000000000000000000000000000000000000..9c350079e197d16e52c6b1fb31baf9adb76c050d
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintcrossprod.java
@@ -0,0 +1,66 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltintcrossprod extends TestBase {
+
+ @Test
+ @Ignore
+ public void testtcrossprod1() {
+ assertEval("argv <- list(structure(c(5, 2, 0, 2, 5, 2, 0, 2, 5), .Dim = c(3L, 3L)), structure(c(0, 1, 0, 0, 2, 0, 0, 2, 0, 1, 2, 0, 1, 0, 0), .Dim = c(5L, 3L), .Dimnames = list(c(\'a\', \'b\', \'c\', \'d\', \'e\'), NULL))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtcrossprod2() {
+ assertEval("argv <- list(structure(c(5, 2, 0, 2, 5, 2, 0, 2, 5), .Dim = c(3L, 3L), .Dimnames = list(c(\'A\', \'B\', \'C\'), c(\'A\', \'B\', \'C\'))), structure(c(0, 1, 0, 0, 2, 0, 0, 2, 0, 1, 2, 0, 1, 0, 0), .Dim = c(5L, 3L), .Dimnames = list(NULL, c(\'A\', \'B\', \'C\')))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtcrossprod3() {
+ assertEval("argv <- list(structure(c(-1.67712982705863, -1.48498667828929, -1.66855080519244, -1.58355627712096, -1.82359988031979, -1.9949008033236, -0.0318360538544526, -0.560218641212122, 0.066207937805176, 0.499775901814107, -0.00128363357081381, -0.00713986667014182, 0.296776079992064, -0.138150806520963, 0.253601178172029, -0.170225064799926, -0.240191246767341, -0.00408674943172847, -0.242382276284081, 0.0729153527553058, 0.269807081327349, 0.0299339639014576, -0.077267349576335, -0.0293027062153706, -0.0099926992270607, 0.0334924583850379, -0.0453336990810482, 0.0438958486872448, -0.112099180250145, 0.089015596249019), .Dim = c(6L, 5L)), structure(c(-0.399602067979347, -0.353820997034499, -0.397557983601584, -0.377306725388702, -0.434500818950138, -0.47531590790431, -0.0422023061126668, -0.742633452454394, 0.087766143100416, 0.662509734796894, -0.00170160212505116, -0.00946470439441127, 0.584095849615428, -0.271899651454647, 0.499121747385523, -0.335026171424641, -0.472729171281292, -0.00804328091925277, -0.637436340955898, 0.191758639997983, 0.70956029179181, 0.0787227379500612, -0.2032038701195, -0.0770626058818733, -0.062340518587102, 0.208946269374942, -0.282819110829524, 0.273848927982668, -0.699342677207614, 0.555333279468297), .Dim = c(6L, 5L))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtcrossprod4() {
+ assertEval("argv <- list(c(2, 3), structure(c(0, 0, 1, 0), .Dim = c(2L, 2L), .Dimnames = list(NULL, NULL))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtcrossprod5() {
+ assertEval("argv <- list(structure(c(-0.106539372596213, -2.87400113021639, 0.341152775291742, 1.88577541025803, 0.842201032082677, -1.43117364207636, -0.69348461621825, -2.41970841038843, -3.02719090531729, -0.226641199170227, -0.332680183991575, -1.62371869115524, -1.66979618600051, -1.10431770731054, 1.88731633228519, 2.05877121721062, -0.223853590000374, 2.00359231906507, 2.73128102907396, 0.539089155601206, -0.199828039026098, -1.05787977326062, 0.306997029957149, 1.45711168105796, 1.49857746263809, -0.757919845814536, 0.268252398125501, -0.535834002202256, -0.271560453176356, -2.05847896960824, 0.980553291004929, 0.685818887220841, -0.522933983909647, -0.337189871316714, 0.191459457586776, 1.89272736696455, -0.453746315234956, 0.612338437255857, 1.37687299952389, -1.15071450872488, -0.20817483353688, -0.081142998844394, -0.253631714967276, -0.410462721238244, -0.68459626706876, -0.624834027577721, 0.00753430632431097, -0.0556623066116985, -0.563702942039652, 0.0408500401240061, -0.420302429975138, 0.033747665813787, 0.339840694442255, -0.250248532584852, -0.31434827109732, 0.378366203759376, -0.193977362697154, -0.518701418701189, 1.24086430187875, 0.0626244079886504, -0.168813902431602, -0.233723461170579, -0.0800002226605061, -0.0555238917407563, -0.947495254278566, -0.0485572234634504, -0.0296030565974314, -0.095544458696536, 0.0295824037592777, 0.194854132525369, 0.267233992325682, -0.087254491408015, 0.126110082843019, 0.159157280802928, -0.155595903815538, 0.170585777111235, -0.160659663851048, -0.059679874503493, 0.0114766797349517, -0.288711739670586, 0.192267902822735, -0.558695699349865, -0.0862396209998433, 0.00725278175306798, -0.128294571915242, -0.130284537275488, -0.0857140300930927, -0.0514859262258765, -0.0490801347386973, 0.0204665694600954, -0.14875269796722, 0.196176132315475, -0.0529883263026191, -0.132778199491125, -0.228017010951841, 0.0529472898389869), .Dim = c(12L, 8L)), structure(c(-0.0185462290552347, -0.500302207222603, 0.059387411050087, 0.328273218183171, 0.146609210012521, -0.249136760776327, -0.120720858638907, -0.421219548532773, -0.526969274886959, -0.0394533916498165, -0.057912513881884, -0.282654740999492, -0.321354169237256, -0.212527194864884, 0.363216168017541, 0.396212855019715, -0.0430808772043306, 0.385593613508892, 0.525638130815129, 0.103748319223306, -0.0384571326787796, -0.203590161804909, 0.0590819264933657, 0.28042279511599, 0.416779971858557, -0.210790446196582, 0.0746055707690415, -0.149024582263218, -0.0755255973444945, -0.572498138010465, 0.272708607475933, 0.190737938906932, -0.145436866983219, -0.0937782587701373, 0.0532481432121619, 0.52639978807016, -0.204031585044791, 0.275344124552216, 0.61912476435818, -0.517430328944052, -0.0936079034183924, -0.0364867638890611, -0.114048046419078, -0.184568682552654, -0.307835583002935, -0.280962892162748, 0.0033878764630103, -0.0250291148686315, -0.338839482109357, 0.0245547883601272, -0.252642033739931, 0.0202855808510911, 0.204276820851501, -0.150423346865756, -0.188953431740463, 0.227434343460447, -0.116598981866977, -0.311789254542753, 0.745878344887204, 0.0376432698639114, -0.159472254176866, -0.220789915226282, -0.0755732534972413, -0.0524513683353668, -0.895063746796005, -0.0458702143055051, -0.0279649134231136, -0.0902573187573718, 0.0279454034502495, 0.184071497085901, 0.252446075441722, -0.0824260930614398, 0.167922807083695, 0.211927046257706, -0.207184868571959, 0.227144744458931, -0.21392755544038, -0.0794671752416819, 0.0152818571968794, -0.384436237535829, 0.256015738204522, -0.743935362069355, -0.114833000769291, 0.00965749481472171, -0.300640883681616, -0.30530409690622, -0.200859174058623, -0.120650267011609, -0.115012621802916, 0.0479606224687302, -0.348581720171566, 0.459712089888966, -0.124170937293853, -0.311147655218321, -0.534326859224339, 0.124074773921503), .Dim = c(12L, 8L))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtcrossprod6() {
+ assertEval("argv <- list(structure(c(-1.22589324018138, -0.740548974281808, -0.54768368397833, -0.441021701509591, -0.370068251595057, -0.319690799411412, -0.282987166340516, -0.254112864677485, -0.230083320312515, 0.203647970189376, -0.0305516337408725, -0.0825170335109532, -0.0984577177107505, -0.100129992839015, -0.0988979642888749, -0.0945771185256416, -0.0902309571831907, -0.0871241228998968, -0.00955870050771132, 0.0197754782700907, 0.0125304440435148, 0.00419858922572787, -0.00191073996840182, -0.0061756059258365, -0.00956682744689523, -0.0127366531032827, -0.0131079781713544, 0.000214464770644159, -0.000956552371122151, 5.72249143534175e-05, 0.00029865136977495, 0.00077852017665313, 0.00142425180877207, 0.000491677810053133, -0.000120006753650731, -0.00247588122373662, 4.2574997724815e-05, -0.000297064220851874, 0.000399761711902461, 5.67830351414009e-05, -0.00026523273781528, 0.000320119491527155, -0.00026454073650643, -0.000195756422133707, 0.000192249930248858, -4.94461924222768e-07, 2.80125995838013e-05, -0.000119138513940463, 0.000151917649712048, -7.31975645151543e-05, 4.92140187851149e-05, -1.13604576670922e-05, -3.74519303853871e-05, 9.55915555684852e-06), .Dim = c(9L, 6L)), structure(c(-0.709851441473678, -0.428813651666777, -0.317135326144804, -0.255372882626744, -0.214287405483635, -0.185116425598763, -0.163863247924954, -0.147143631578904, -0.133229363887123, 0.633337192677659, -0.0950143815681878, -0.256624734846691, -0.306199636924392, -0.311400346924765, -0.307568786499592, -0.294131125799441, -0.280614734641737, -0.270952601985731, -0.28505721606605, 0.58973945020027, 0.373679821042009, 0.125209295460755, -0.0569816174886273, -0.184167401344961, -0.285299575647986, -0.379829336915808, -0.390902901787376, 0.0675695685124445, -0.301372718615498, 0.0180293609967187, 0.0940935153626058, 0.245281648154537, 0.448726753036158, 0.154908693733931, -0.0378094944843564, -0.780054577138554, 0.056333641054865, -0.393064241503382, 0.528949712019966, 0.0751331835725979, -0.350946016360591, 0.423570111428232, -0.350030386168567, -0.259017559788085, 0.254377901167792, -0.00226968135332679, 0.128583560874789, -0.546870143699694, 0.697333080468545, -0.335991790571385, 0.225902410856869, -0.0521468239901137, -0.171912019667483, 0.0438784789244046), .Dim = c(9L, 6L))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtcrossprod7() {
+ assertEval("argv <- list(0, 0); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtcrossprod8() {
+ assertEval("argv <- list(structure(c(1.1173625565162, 1.46907016195074, 1.1173625565162, -0.59596185089264, -1.32605913508878e-308, 0.595961850892641), .Dim = c(3L, 2L)), structure(c(0.517876924314756, 0.680886908762812, 0.517876924314755, -0.707106781186547, -1.57336481399136e-308, 0.707106781186548), .Dim = c(3L, 2L))); .Internal(tcrossprod(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintdefault.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintdefault.java
new file mode 100644
index 0000000000000000000000000000000000000000..0a44e2751d18a68d10cfb5bcf4803a7b18376ccb
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintdefault.java
@@ -0,0 +1,162 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltintdefault extends TestBase {
+
+ @Test
+ @Ignore
+ public void testtdefault1() {
+ assertEval("argv <- list(structure(c(\'D:\', \'E:\', \'F:\', \'G:\'), .Dim = c(4L, 1L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault2() {
+ assertEval("argv <- list(structure(c(0.63, -0.37, 0.4, -0.6, 0.85, -0.05, 1.02, -1.76, -1.62, -0.46, -0.57, 1.41, 0, -0.65, 0.57, -0.29, 1.22, 0.8, -0.5, 0.44, 1.63, -0.13, 0.17, 1.02, 0.11), .Dim = c(5L, 5L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault3() {
+ assertEval("argv <- list(structure(NA, .Dim = c(1L, 1L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault4() {
+ assertEval("argv <- list(structure(c(0, 0, -0.51, 0, 0, 0, 0.18, -0.15, 0, 2.62, -2.77555756156289e-16, 0, 8.26162055433954e-17, 0.560000000000001, 0, 0, 0, 0, 0, 0, 1.79, 0, 0.05, 0, 0, 0, 0, 0, 0, -0.18, -1.47, 0, -5.55111512312578e-17, 0, 0, 0.23, 0, 2.206351421008e-17, -2.12, 0), .Dim = c(5L, 8L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault5() {
+ assertEval("argv <- list(structure(c(NA, 0, NA, 0, NA, 0, NA, 0, NA, 0, NA, 0, NA, 0, NA, 0), .Dim = c(4L, 4L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault6() {
+ assertEval("argv <- list(structure(c(0, 10975969, 8779369, 10080625, 11148921, 7628644, 10732176, 6812100, 20115225, 8862529, 9180900, 20539024, 7579009, 15594601, 8208225, 5207524, 4748041, 9e+06, 667489, 15421329, 3964081, 0, 0, 1737124, 1758276, 1674436, 2244004, 4919524, 644809, 1373584, 4072324, 2220100, 1703025, 416025, 404496, 271441, 1028196, 1863225, 1067089, 2131600, 8225424, 3247204, 0, 0, 0, 41616, 339889, 42436, 933156, 458329, 5089536, 356409, 29584, 4343056, 476100, 2427364, 1022121, 855625, 558009, 81225, 2283121, 2611456, 1380625, 0, 0, 0, 0, 211600, 167281, 1290496, 558009, 4946176, 509796, 108900, 4210704, 546121, 2402500, 1121481, 1159929, 954529, 78400, 2762244, 3189796, 1907161, 0, 0, 0, 0, 0, 616225, 2387025, 727609, 4190209, 1243225, 534361, 3337929, 622521, 1814409, 1212201, 1461681, 1345600, 115600, 3218436, 4822416, 2521744, 0, 0, 0, 0, 0, 0, 577600, 2762244, 5934096, 211600, 72361, 5244100, 509796, 3111696, 1071225, 829921, 339889, 216225, 2241009, 1968409, 877969, 0, 0, 0, 0, 0, 0, 0, 2010724, 10214416, 211600, 72361, 8826841, 2125764, 6240004, 3161284, 2362369, 1218816, 1382976, 4202500, 422500, 2117025, 0, 0, 0, 0, 0, 0, 0, 0, 3900625, 1249924, 801025, 3748096, 24964, 2070721, 180625, 107584, 349281, 263169, 990025, 4276624, 1038361, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8392609, 5895184, 456976, 3301489, 487204, 2866249, 4774225, 6579225, 3884841, 6922161, 15100996, 8844676, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 302500, 7134241, 1343281, 4831204, 2187441, 1532644, 648025, 769129, 3066001, 900601, 1334025, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 5198400, 744769, 2992900, 1399489, 1205604, 724201, 208849, 2832489, 2250000, 1452025, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1387684, 446224, 3104644, 5062500, 6285049, 3236401, 7290000, 10439361, 8625969, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1640961, 102400, 107584, 524176, 221841, 1098304, 4443664, 1338649, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1338649, 2972176, 4040100, 1620529, 4397409, 10163344, 5803281, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 381924, 1229881, 627264, 1022121, 5895184, 1857769, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 109561, 732736, 343396, 4782969, 806404, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 674041, 894916, 3076516, 183184, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2178576, 3337929, 1560001, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7327849, 1461681, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4431025, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), .Dim = c(21L, 21L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault7() {
+ assertEval("argv <- list(structure(logical(0), .Dim = c(0L, 0L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault8() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), .Dim = c(4L, 4L), .Dimnames = list(NULL, NULL))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault9() {
+ assertEval("argv <- list(structure(c(0.589872882227945+0i, 0.193623477236295+0i, 0.66266867945261+0i, 0.140441698505598+0i, -0.394596353845825+0i, 0.168331537203598+0i, 0.293129347035038+0i, -0.481237717889449+0i, 0.7985227152757+0i, -0.128496737541326+0i, -0.0231518691888815+0i, -0.892171028872675+0i, 0.158252886617681+0i, 0.418477841524233+0i, -0.0576815934568704+0i, 0.471807942431513+0i, -0.00978429568549377+0i, 0.0825499722933953+0i, 0.0943143868799564+0i, 0.872692289136496+0i, -0.632910525118973+0i, 0.283760916561723+0i, 0.545364104158516+0i, 0.398269626120626+0i, 0.25072556357658+0i), .Dim = c(5L, 5L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault10() {
+ assertEval("argv <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 74, 68, 56, 57, 60, 74, 53, 61, 57, 57, 67, 70, 63, 57, 67, 50, 58, 72, 60, 70, 53, 74, 73, 48, 61, 65, 74, 70, 68, 74, 63, 74, 63, 68, 58, 59, 62, 57, 48, 73, 69, 68, 68, 67, 63, 74, 40, 81, 73, 59, 55, 42, 44, 71, 61, 72, 63, 70, 66, 72, 69, 71, 64, 56, 63, 59, 66, 67, 55, 69, 44, 80, 76, 49, 68, 66, 80, 75, 72, 70, 66, 50, 64, 53, 47, 67, 56, 54, 56, 74, 76, 57, 71, 54, 82, 70, 60, 55, 69, 62, 63, 69, 63, 64, 46, 61, 65, 61, 56, 53, 56, 60, 39, 58, 64, 53, 72, 52, 50, 64, 71, 70, 64, 60, 73, 62, 69, 67, 69, 65, 65, 76, 67, 76, 77, 39, 66, 1, 0, 0, 1, 0, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 0, 0, 0, 3, 1, 2, 2, 2, 2, 2, 2, 1, 1, 0, 1, 0, 0, 0, 0, 1, 0, 2, 1, 1, 1, 2, 0, 1, 0, 2, 1, 0, 0, 0, 1, 1, 1, 1, 0, 2, 0, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 0, 1, 1, 2, 2, 2, 2, 1, 0, 2, 0, 1, 1, 1, 1, 0, 0, 2, 1, 0, 1, 2, 1, 0, 1, 0, 1, 0, 2, 2, 2, 1, 2, 1, 1, 0, 1, 0, 1, 1, 1, 2, 0, 0, 0, 1, 0, 1, 2, 1, 1, 1, 0, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 0, 1), .Dim = c(137L, 3L), .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'9\', \'10\', \'11\', \'15\', \'16\', \'17\', \'18\', \'20\', \'21\', \'23\', \'24\', \'25\', \'27\', \'28\', \'29\', \'30\', \'32\', \'33\', \'35\', \'37\', \'39\', \'41\', \'45\', \'47\', \'48\', \'49\', \'52\', \'53\', \'54\', \'55\', \'56\', \'58\', \'62\', \'63\', \'65\', \'66\', \'69\', \'70\', \'71\', \'73\', \'74\', \'79\', \'80\', \'81\', \'82\', \'83\', \'85\', \'86\', \'88\', \'90\', \'91\', \'92\', \'93\', \'96\', \'97\', \'98\', \'99\', \'103\', \'104\', \'105\', \'106\', \'108\', \'109\', \'111\', \'112\', \'113\', \'116\', \'117\', \'118\', \'119\', \'120\', \'121\', \'124\', \'125\', \'126\', \'127\', \'128\', \'132\', \'133\', \'135\', \'138\', \'139\', \'140\', \'142\', \'143\', \'145\', \'147\', \'148\', \'149\', \'151\', \'152\', \'155\', \'156\', \'158\', \'159\', \'163\', \'164\', \'165\', \'168\', \'169\', \'170\', \'171\', \'173\', \'175\', \'177\', \'181\', \'182\', \'188\', \'189\', \'190\', \'191\', \'192\', \'193\', \'194\', \'195\', \'196\', \'198\', \'200\', \'202\', \'206\', \'209\', \'212\', \'213\', \'215\', \'216\', \'218\', \'221\', \'223\', \'224\', \'225\', \'227\'), c(\'(Intercept)\', \'age\', \'ph.ecog\')), assign = 0:2)); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault11() {
+ assertEval("argv <- list(structure(c(NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(20L, 20L), .Dimnames = list(c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_, NA_character_)))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault12() {
+ assertEval("argv <- list(structure(\'foo\', .Dim = c(1L, 1L), .Dimnames = list(structure(\'object\', simpleOnly = TRUE), NULL))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault13() {
+ assertEval("argv <- list(structure(c(0, 0, 0, 0, 0, 0, 3.95252516672997e-323, 0, 0, 0, 0, 0), .Dim = c(12L, 1L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault14() {
+ assertEval("argv <- list(structure(c(794, 86, 150, 570), .Dim = c(2L, 2L), .Dimnames = structure(list(`1st Survey` = c(\'Approve\', \'Disapprove\'), `2nd Survey` = c(\'Approve\', \'Disapprove\')), .Names = c(\'1st Survey\', \'2nd Survey\')))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault15() {
+ assertEval("argv <- list(structure(list(3, 3, 3, 3, 3, \'fred\'), .Dim = 2:3)); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault16() {
+ assertEval("argv <- list(1.28578345790245); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault17() {
+ assertEval("argv <- list(structure(c(-0.560475646552213+0i, 0.7424437487+0.205661411508856i, 1.39139505579429-0.26763356813179i, 0.928710764113827-0.221714979045717i, -0.46926798541295+1.18846175213664i, 0.7424437487-0.205661411508856i, 0.460916205989202+0i, -0.452623703774585+0.170604003753717i, -0.094501186832143+0.54302538277632i, -0.331818442379127+0.612232958468282i, 1.39139505579429+0.26763356813179i, -0.452623703774585-0.170604003753717i, 0.400771450594052+0i, -0.927967220342259+0.479716843914174i, -0.790922791530657+0.043092176305418i, 0.928710764113827+0.221714979045717i, -0.094501186832143-0.54302538277632i, -0.927967220342259-0.479716843914174i, 0.701355901563686+0i, -0.600841318509537+0.213998439984336i, -0.46926798541295-1.18846175213664i, -0.331818442379127-0.612232958468282i, -0.790922791530657-0.043092176305418i, -0.600841318509537-0.213998439984336i, -0.625039267849257+0i), .Dim = c(5L, 5L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault18() {
+ assertEval("argv <- list(structure(c(0, 1954.88214285714, 557.144827586207, 0, 0, 1392.34285714286, 0, 0, 0), .Dim = c(3L, 3L))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault19() {
+ assertEval("argv <- list(c(3, 4)); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault20() {
+ assertEval("argv <- list(structure(c(0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 1L), .Dim = c(4L, 4L), .Dimnames = list(c(\'Y\', \'B\', \'V\', \'N\'), c(\'B\', \'V\', \'N\', \'V:N\')))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault21() {
+ assertEval("argv <- list(-3:5); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault22() {
+ assertEval("argv <- list(structure(c(8.3, 8.6, 8.8, 10.5, 10.7, 10.8, 11, 11, 11.1, 11.2, 11.3, 11.4, 11.4, 11.7, 12, 12.9, 12.9, 13.3, 13.7, 13.8, 14, 14.2, 14.5, 16, 16.3, 17.3, 17.5, 17.9, 18, 18, 20.6, 70, 65, 63, 72, 81, 83, 66, 75, 80, 75, 79, 76, 76, 69, 75, 74, 85, 86, 71, 64, 78, 80, 74, 72, 77, 81, 82, 80, 80, 80, 87, 10.3, 10.3, 10.2, 16.4, 18.8, 19.7, 15.6, 18.2, 22.6, 19.9, 24.2, 21, 21.4, 21.3, 19.1, 22.2, 33.8, 27.4, 25.7, 24.9, 34.5, 31.7, 36.3, 38.3, 42.6, 55.4, 55.7, 58.3, 51.5, 51, 77), .Dim = c(31L, 3L), .Dimnames = list(NULL, c(\'Girth\', \'Height\', \'Volume\')))); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault23() {
+ assertEval("argv <- list(structure(list(), .Dim = 0L)); .Internal(t.default(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtdefault24() {
+ assertEval("argv <- list(structure(\'Seed\', .Dim = c(1L, 1L))); .Internal(t.default(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintolower.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintolower.java
new file mode 100644
index 0000000000000000000000000000000000000000..0fe0e89a3bc1341804e14e25866734cfe296a25a
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintolower.java
@@ -0,0 +1,54 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltintolower extends TestBase {
+
+ @Test
+ @Ignore
+ public void testtolower1() {
+ assertEval("argv <- list(\'show\'); .Internal(tolower(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtolower2() {
+ assertEval("argv <- list(\'TRUE\'); .Internal(tolower(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtolower3() {
+ assertEval("argv <- list(c(\'title\', \'author\', \'year\', \'note\')); .Internal(tolower(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtolower4() {
+ assertEval("argv <- list(c(\'ChangeLog\', \'DESCRIPTION\', \'INDEX\', \'MD5\', \'NAMESPACE\', \'PORTING\', \'0aaa.R\', \'agnes.q\', \'clara.q\', \'clusGap.R\', \'coef.R\', \'daisy.q\', \'diana.q\', \'ellipsoidhull.R\', \'fanny.q\', \'internal.R\', \'mona.q\', \'pam.q\', \'plothier.q\', \'plotpart.q\', \'silhouette.R\', \'zzz.R\', \'README\', \'agriculture.tab\', \'animals.tab\', \'chorSub.rda\', \'flower.R\', \'plantTraits.rda\', \'pluton.tab\', \'ruspini.tab\', \'votes.repub.tab\', \'xclara.rda\', \'CITATION\', \'R-cluster.mo\', \'R-cluster.mo\', \'R-cluster.mo\', \'agnes.Rd\', \'agnes.object.Rd\', \'agriculture.Rd\', \'animals.Rd\', \'bannerplot.Rd\', \'chorSub.Rd\', \'clara.Rd\', \'clara.object.Rd\', \'clusGap.Rd\', \'clusplot.default.Rd\', \'clusplot.partition.Rd\', \'cluster-internal.Rd\', \'coef.hclust.Rd\', \'daisy.Rd\', \'diana.Rd\', \'dissimilarity.object.Rd\', \'ellipsoidhull.Rd\', \'fanny.Rd\', \'fanny.object.Rd\', \'flower.Rd\', \'lower.to.upper.tri.inds.Rd\', \'mona.Rd\', \'mona.object.Rd\', \'pam.Rd\', \'pam.object.Rd\', \'partition.object.Rd\', \'plantTraits.Rd\', \'plot.agnes.Rd\', \'plot.diana.Rd\', \'plot.mona.Rd\', \'plot.partition.Rd\', \'pltree.Rd\', \'pltree.twins.Rd\', \'pluton.Rd\', \'predict.ellipsoid.Rd\', \'print.agnes.Rd\', \'print.clara.Rd\', \'print.diana.Rd\', \'print.dissimilarity.Rd\', \'print.fanny.Rd\', \'print.mona.Rd\', \'print.pam.Rd\', \'ruspini.Rd\', \'silhouette.Rd\', \'sizeDiss.Rd\', \'summary.agnes.Rd\', \'summary.clara.Rd\', \'summary.diana.Rd\', \'summary.mona.Rd\', \'summary.pam.Rd\', \'twins.object.Rd\', \'volume.ellipsoid.Rd\', \'votes.repub.Rd\', \'xclara.Rd\', \'R-cluster.pot\', \'R-de.po\', \'R-en@quot.po\', \'R-pl.po\', \'update-me.sh\', \'clara.c\', \'cluster.h\', \'daisy.f\', \'dysta.f\', \'fanny.c\', \'ind_2.h\', \'init.c\', \'mona.f\', \'pam.c\', \'sildist.c\', \'spannel.c\', \'twins.c\', \'agnes-ex.R\', \'agnes-ex.Rout.save\', \'clara-NAs.R\', \'clara-NAs.Rout.save\', \'clara-ex.R\', \'clara.R\', \'clara.Rout.save\', \'clusplot-out.R\', \'clusplot-out.Rout.save\', \'daisy-ex.R\', \'daisy-ex.Rout.save\', \'diana-boots.R\', \'diana-ex.R\', \'diana-ex.Rout.save\', \'ellipsoid-ex.R\', \'ellipsoid-ex.Rout.save\', \'fanny-ex.R\', \'mona.R\', \'mona.Rout.save\', \'pam.R\', \'pam.Rout.save\', \'silhouette-default.R\', \'silhouette-default.Rout.save\', \'sweep-ex.R\', \'.\', \'R\', \'data\', \'inst\', \'LC_MESSAGES\', \'LC_MESSAGES\', \'LC_MESSAGES\', \'man\', \'po\', \'src\', \'tests\')); .Internal(tolower(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtolower5() {
+ assertEval("argv <- list(structure(\'base\', .Names = \'Priority\')); .Internal(tolower(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtolower6() {
+ assertEval("argv <- list(character(0)); .Internal(tolower(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintoupper.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintoupper.java
new file mode 100644
index 0000000000000000000000000000000000000000..48abd9698bba8347185efb739ad43baa23bd2573
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintoupper.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltintoupper extends TestBase {
+
+ @Test
+ @Ignore
+ public void testtoupper1() {
+ assertEval("argv <- list(\'UTF-8\'); .Internal(toupper(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtoupper2() {
+ assertEval("argv <- list(c(\'\', \'\', \'remission\', \'\', \'\', \'\', \'\', \'\', \'\')); .Internal(toupper(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtoupper3() {
+ assertEval("argv <- list(character(0)); .Internal(toupper(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtoupper4() {
+ assertEval("argv <- list(structure(c(\'BasicClasses\', \'Classes\', \'Documentation\', \'environment-class\', \'GenericFunctions\', \'language-class\', \'LinearMethodsList-class\', \'MethodDefinition-class\', \'MethodWithNext-class\', \'Methods\', \'MethodsList-class\', \'callNextMethod\', \'ObjectsWithPackage-class\', \'S3Part\', \'S4groupGeneric\', \'SClassExtension-class\', \'StructureClasses\', \'TraceClasses\', \'as\', \'callGeneric\', \'canCoerce\', \'cbind2\', \'className\', \'classRepresentation-class\', \'classesToAM\', \'dotsMethods\', \'evalSource\', \'findClass\', \'findMethods\', \'fixPre1.8\', \'genericFunction-class\', \'getClass\', \'getMethod\', \'getPackageName\', \'hasArg\', \'implicitGeneric\', \'inheritedSlotNames\', \'initialize-methods\', \'is\', \'isSealedMethod\', \'LocalReferenceClasses\', \'method.skeleton\', \'new\', \'nonStructure-class\', \'promptClass\', \'promptMethods\', \'ReferenceClasses\', \'representation\', \'selectSuperClasses\', \'setClass\', \'setClassUnion\', \'setGeneric\', \'setLoadActions\', \'setMethod\', \'setOldClass\', \'makeClassRepresentation\', \'show\', \'showMethods\', \'signature-class\', \'slot\', \'envRefClass-class\', \'testInheritedMethods\', \'validObject\', \'.BasicFunsList\'), .Names = c(\'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/BasicClasses.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/Classes.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/Documentation.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/EnvironmentClass.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/GenericFunctions.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/LanguageClasses.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/LinearMethodsList-class.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/MethodDefinition-class.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/MethodWithNext-class.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/Methods.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/MethodsList-class.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/NextMethod.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/ObjectsWithPackage-class.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/S3Part.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/S4groupGeneric.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/SClassExtension-class.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/StructureClasses.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/TraceClasses.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/as.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/callGeneric.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/canCoerce.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/cbind2.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/className.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/classRepresentation-class.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/classesToAM.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/dotsMethods.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/evalSource.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/findClass.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/findMethods.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/fixPrevious.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/genericFunction-class.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/getClass.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/getMethod.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/getPackageName.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/hasArg.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/implicitGeneric.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/inheritedSlotNames.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/initialize-methods.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/is.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/isSealedMethod.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/localRefClass.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/method.skeleton.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/new.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/nonStructure-class.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/promptClass.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/promptMethods.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/refClass.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/representation.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/selectSuperClasses.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setClass.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setClassUnion.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setGeneric.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setLoadActions.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setMethod.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setOldClass.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/setSClass.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/show.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/showMethods.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/signature-class.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/slot.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/stdRefClass.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/testInheritedMethods.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/validObject.tex\', \'/home/lzhao/tmp/RtmpZy1R7l/ltx5573594f0cc9/zBasicFunsList.tex\'))); .Internal(toupper(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintrigamma.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintrigamma.java
new file mode 100644
index 0000000000000000000000000000000000000000..e71df77db0f245641ccebd2cae71a19c6b091e5e
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintrigamma.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltintrigamma extends TestBase {
+
+ @Test
+ @Ignore
+ public void testtrigamma1() {
+ assertEval("argv <- list(structure(c(9.16602362697115, 1.16602362697115, 3.16602362697115, 6.16602362697115, 6.16602362697115, 2.16602362697115, 8.16602362697115, 1.16602362697115, 7.16602362697115, 19.1660236269712, 2.16602362697115), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\')));trigamma(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testtrigamma2() {
+ assertEval("argv <- list(structure(c(3.23454845691922, 12.2345484569192, 15.2345484569192, 6.23454845691922, 6.23454845691922, 14.2345484569192, 21.2345484569192, 23.2345484569192, 7.23454845691922, 7.23454845691922, 16.2345484569192, 8.23454845691922, 15.2345484569192, 7.23454845691922, 33.2345484569192, 54.2345484569192, 58.2345484569192, 15.2345484569192, 17.2345484569192, 17.2345484569192, 18.2345484569192, 41.2345484569192, 44.2345484569192, 47.2345484569192, 9.23454845691922, 24.2345484569192, 24.2345484569192, 29.2345484569192, 35.2345484569192, 37.2345484569192, 39.2345484569192, 4.23454845691922, 6.23454845691922, 12.2345484569192, 25.2345484569192, 46.2345484569192, 6.23454845691922, 7.23454845691922, 7.23454845691922, 10.2345484569192, 14.2345484569192, 24.2345484569192, 26.2345484569192, 33.2345484569192, 54.2345484569192, 55.2345484569192, 6.23454845691922, 6.23454845691922, 12.2345484569192, 18.2345484569192, 20.2345484569192, 9.23454845691922, 14.2345484569192, 15.2345484569192, 21.2345484569192, 48.2345484569192, 49.2345484569192, 61.2345484569192, 82.2345484569192, 3.23454845691922, 1.23454845691922, 3.23454845691922, 4.23454845691922, 6.23454845691922, 11.2345484569192, 15.2345484569192, 22.2345484569192, 37.2345484569192, 41.2345484569192, 7.23454845691922, 18.2345484569192, 68.2345484569192, 1.23454845691922, 1.23454845691922, 3.23454845691922, 8.23454845691922, 12.2345484569192, 13.2345484569192, 1.23454845691922, 1.23454845691922, 6.23454845691922, 6.23454845691922, 6.23454845691922, 12.2345484569192, 18.2345484569192, 4.23454845691922, 5.23454845691922, 23.2345484569192, 31.2345484569192, 37.2345484569192, 9.23454845691922, 1.23454845691922, 2.23454845691922, 6.23454845691922, 8.23454845691922, 17.2345484569192, 28.2345484569192, 1.23454845691922, 31.2345484569192, 11.2345484569192, 15.2345484569192, 28.2345484569192, 42.2345484569192, 70.2345484569192, 26.2345484569192, 11.2345484569192, 12.2345484569192, 21.2345484569192, 34.2345484569192, 6.23454845691922, 8.23454845691922, 1.23454845691922, 2.23454845691922, 6.23454845691922, 6.23454845691922, 6.23454845691922, 6.23454845691922, 8.23454845691922, 12.2345484569192, 16.2345484569192, 6.23454845691922, 15.2345484569192, 7.23454845691922, 7.23454845691922, 8.23454845691922, 29.2345484569192, 1.23454845691922, 6.23454845691922, 15.2345484569192, 3.23454845691922, 3.23454845691922, 4.23454845691922, 9.23454845691922, 11.2345484569192, 13.2345484569192, 2.23454845691922, 2.23454845691922, 10.2345484569192, 23.2345484569192, 4.23454845691922, 4.23454845691922, 6.23454845691922, 16.2345484569192, 19.2345484569192, 23.2345484569192, 38.2345484569192), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\', \'94\', \'95\', \'96\', \'97\', \'98\', \'99\', \'100\', \'101\', \'102\', \'103\', \'104\', \'105\', \'106\', \'107\', \'108\', \'109\', \'110\', \'111\', \'112\', \'113\', \'114\', \'115\', \'116\', \'117\', \'118\', \'119\', \'120\', \'121\', \'122\', \'123\', \'124\', \'125\', \'126\', \'127\', \'128\', \'129\', \'130\', \'131\', \'132\', \'133\', \'134\', \'135\', \'136\', \'137\', \'138\', \'139\', \'140\', \'141\', \'142\', \'143\', \'144\', \'145\', \'146\')));trigamma(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testtrigamma3() {
+ assertEval("argv <- list(c(1e+30, 1e+60, 1e+90, 1e+120, 1e+150, 1e+180, 1e+210, 1e+240, 1e+270, 1e+300));trigamma(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testtrigamma4() {
+ assertEval("argv <- list(c(-100, -3, -2, -1, 0, 1, 2, -99.9, -7.7, -3, -2.9, -2.8, -2.7, -2.6, -2.5, -2.4, -2.3, -2.2, -2.1, -2, -1.9, -1.8, -1.7, -1.6, -1.5, -1.4, -1.3, -1.2, -1.1, -1, -0.9, -0.8, -0.7, -0.6, -0.5, -0.4, -0.3, -0.2, -0.0999999999999996, 0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2, 2.1, 2.2, 2.3, 2.4, 2.5, 2.6, 2.7, 2.8, 2.9, 3, 5.1, 77));trigamma(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintrunc.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintrunc.java
new file mode 100644
index 0000000000000000000000000000000000000000..593d059b2d0ce11cf90a14735108a9f83095365d
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintrunc.java
@@ -0,0 +1,42 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltintrunc extends TestBase {
+
+ @Test
+ @Ignore
+ public void testtrunc1() {
+ assertEval("argv <- list(8.5);trunc(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testtrunc2() {
+ assertEval("argv <- list(2819.50000004);trunc(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testtrunc3() {
+ assertEval("argv <- list(c(4.71622523386031, 1.10082330182195, 1.6348679328803, 1.0848926147446, 1.90544273355044, 0.359849020605907, 3.11383110354654, 0.867268502479419, 0.162947811186314, 0.450064289616421, 4.9159701296594, 4.6105394908227, 3.44404035480693, 1.26481729443185, 1.04007117450237, 2.98928162781522, 0.598357603885233, 3.89095719670877, 2.72964489413425, 2.9838975192979, 0.972001742338762, 3.45619874307886, 3.40639955131337, 1.64102643262595, 2.35728174913675, 0.473953454056755, 4.98228391283192, 4.91887083626352, 0.210240299347788, 2.26199432276189, 3.70630375458859, 3.81391524686478, 0.606464599259198, 4.40811770269647, 4.44661358138546, 2.80862170271575, 3.86814354802482, 3.88661664212123, 2.99017415847629, 2.74575827643275, 0.309161052573472, 3.80168808856979, 0.44893383863382, 4.61025935830548, 0.267928446410224, 2.24770340253599, 2.89542144862935, 0.558472302509472, 1.01390165626071, 4.68876871396787, 3.99585635983385, 0.118613908998668, 0.0555002887267619, 3.01412270753644, 1.23142387834378, 1.36282247491181, 4.64942723163404, 0.578164426842704, 2.22724793478847, 1.08748292084783, 1.14620470674708, 4.12017436814494, 0.320054858457297, 2.23438119865023, 4.76558442227542, 3.10512124677189, 1.74187473836355, 0.650008224183694, 3.97324822610244, 1.69624235597439, 4.7321886930149, 2.33042042935267, 0.96714960061945, 0.195004806155339, 0.781808936735615, 0.248751927865669, 1.19189711171202, 1.64329304476269, 4.17560710804537, 3.12169580138288, 4.66810682089999, 1.36349227512255, 0.602594048250467, 2.95277393539436, 3.86122465948574, 2.54265206633136, 4.36057312530465, 0.599795600865036, 0.397377072367817, 3.41722437064163, 0.29663014691323, 2.19461180153303, 4.06796077964827, 0.185917691560462, 2.69324880791828, 1.27729995292611, 2.07541133742779, 2.81013442203403, 0.629334823461249, 2.81195943942294));trunc(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testtrunc4() {
+ assertEval("argv <- list(c(-2, -1.5, -1, -0.5, 0, 0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4));trunc(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintypeof.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintypeof.java
new file mode 100644
index 0000000000000000000000000000000000000000..3a95259f6227d06a3f98254412a757e65a2f44e0
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintypeof.java
@@ -0,0 +1,204 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltintypeof extends TestBase {
+
+ @Test
+ @Ignore
+ public void testtypeof1() {
+ assertEval("argv <- list(structure(c(1.23315637025077, 1.2394120713065, 1.46775472234056, 1.3131362441571, 0.834956748134462, 1.32096970624938, 1.38337762052736, 1.70911044284799, 1.23539395906175, 0.858346823253787, 1.52283660048288, 1.31313061976496, 1.12786658428867, 1.44366133143941, 1.27218165569433, 1.26731245914676, 1.42168796660342, 1.48945666726, 2.09136324227313, 1.36556393622446, 1.19497185571598, 1.3558872236906, 1.28486176009175, 0.896505382640118, 1.2920383545426, 1.43713738151143, 1.28325876023887, 1.8647069237969, 1.28069027865337, 1.3282363039678, 1.4132805261745, 0.646368078716031, 1.17057458108707, 1.35016461104197, 1.35509309393051, 0.62815321214884, 0.933778507736315, 1.38267166577057, 1.7643327299387, 0.662074713268515, 1.31638314484599, 0.127879987991043, 1.19108675802219, 1.27268759462974, 0.4383313914982, 1.4144264042562, 0.693758539302211, 1.47501143044129, 1.18104902231565, 1.31313716894023, 1.16251137109995, 1.33271580458282, 1.2645836556729, 1.27403739912758, 0.707073961081345, 1.02664693047896, NaN, 0.753985804351041, 1.38430649521587, 1.07546693634877, 1.19187230661588, 1.28069027865337, 1.31026717493666, 1.21822955912256, 1.13243112343561, 1.63256872758035, 1.02552404019857, 1.20828070506052, 1.33930727426782, 1.26731245914676, 1.38337762052736, 1.52793749920214, 1.07081398391753, 1.24912672913647, 1.44366133143941, 1.2823536700583, 1.38311795520175, 0.534347523417853, 1.25766711144813, 1.92388210662423, 1.52790220067279, 1.10639731743869, 1.88278431408355, 1.17178985993101, 1.13471940645093, 1.33429991787085, 1.59592895672966, 0.952232923176189, 2.67777307729144, 0.98546699757923, 0.534607888905458, 1.18840135978238, 2.67777307729144), .Names = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\', \'49\', \'50\', \'51\', \'52\', \'53\', \'54\', \'55\', \'56\', \'57\', \'58\', \'59\', \'60\', \'61\', \'62\', \'63\', \'64\', \'65\', \'66\', \'67\', \'68\', \'69\', \'70\', \'71\', \'72\', \'73\', \'74\', \'75\', \'76\', \'77\', \'78\', \'79\', \'80\', \'81\', \'82\', \'83\', \'84\', \'85\', \'86\', \'87\', \'88\', \'89\', \'90\', \'91\', \'92\', \'93\'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof2() {
+ assertEval("argv <- list(structure(c(1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961), .Tsp = c(1960.08333333333, 1961.66666666667, 12), class = \'ts\')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof3() {
+ assertEval("argv <- list(structure(c(NA, 9, 3, 3), .Names = c(\'<none>\', \'Hair:Eye\', \'Hair:Sex\', \'Eye:Sex\'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof4() {
+ assertEval("argv <- list(structure(function (x, y = NULL) standardGeneric(\'tcrossprod\'), target = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), defined = structure(\'ANY\', class = structure(\'signature\', package = \'methods\'), .Names = \'x\', package = \'methods\'), generic = character(0), class = structure(\'MethodDefinition\', package = \'methods\'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof5() {
+ assertEval("argv <- list(structure(c(\'Min. : 0.060 \', \'1st Qu.: 0.320 \', \'Median : 0.630 \', \'Mean : 909.592 \', \'3rd Qu.: 0.905 \', \'Max. :10000.000 \'), .Dim = c(6L, 1L), .Dimnames = list(c(\'\', \'\', \'\', \'\', \'\', \'\'), \' x\'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof6() {
+ assertEval("argv <- list(structure(c(-0.0529307911108286, -0.200175675120066), .Names = c(\'(Intercept)\', \'xTRUE\'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof7() {
+ assertEval("argv <- list(complex(0)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof8() {
+ assertEval("argv <- list(structure(list(is.array = FALSE, is.atomic = FALSE, is.call = FALSE, is.character = FALSE, is.complex = FALSE, is.data.frame = FALSE, is.double = FALSE, is.environment = FALSE, is.expression = FALSE, is.factor = FALSE, is.finite = NA, is.function = FALSE, is.infinite = NA, is.integer = FALSE, is.language = FALSE, is.list = TRUE, is.logical = FALSE, is.matrix = FALSE, is.na = structure(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), .Names = c(\'coefficients\', \'residuals\', \'effects\', \'rank\', \'fitted.values\', \'assign\', \'qr\', \'df.residual\', \'xlevels\', \'call\', \'terms\', \'model\')), is.name = FALSE, is.nan = NA, is.null = FALSE, is.numeric = FALSE, is.numeric_version = FALSE, is.object = TRUE, is.ordered = FALSE, is.package_version = FALSE, is.pairlist = FALSE, is.primitive = FALSE, is.qr = FALSE, is.raw = FALSE, is.recursive = TRUE, is.symbol = FALSE, is.table = FALSE, is.vector = FALSE), .Names = c(\'is.array\', \'is.atomic\', \'is.call\', \'is.character\', \'is.complex\', \'is.data.frame\', \'is.double\', \'is.environment\', \'is.expression\', \'is.factor\', \'is.finite\', \'is.function\', \'is.infinite\', \'is.integer\', \'is.language\', \'is.list\', \'is.logical\', \'is.matrix\', \'is.na\', \'is.name\', \'is.nan\', \'is.null\', \'is.numeric\', \'is.numeric_version\', \'is.object\', \'is.ordered\', \'is.package_version\', \'is.pairlist\', \'is.primitive\', \'is.qr\', \'is.raw\', \'is.recursive\', \'is.symbol\', \'is.table\', \'is.vector\'), class = \'isList\')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof9() {
+ assertEval("argv <- list(c(-21.222245139688+176.377752294836i, -21.222245139688-176.377752294836i, 61.0965873274467+76.779430575699i, 61.0965873274467-76.779430575699i, -11.7486843755171+0i)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof10() {
+ assertEval("argv <- list(c(NA, \'1\', NA, \'2\', \'1\', NA, NA, \'1\', \'4\', \'1\', NA, \'4\', \'1\', \'3\', NA, \'4\', \'2\', \'2\', NA, \'4\', \'4\', \'2\', \'4\', \'4\', \'2\', \'1\', \'4\', \'4\', \'3\', \'1\', \'1\', \'4\', \'1\', \'4\', NA, \'1\', \'4\', \'4\', \'2\', \'2\', \'4\', \'4\', \'3\', \'4\', \'2\', \'2\', \'3\', \'3\', \'4\', \'1\', \'1\', \'1\', \'4\', \'1\', \'4\', \'4\', \'4\', \'4\', NA, \'4\', \'4\', \'4\', NA, \'1\', \'2\', \'3\', \'4\', \'3\', \'4\', \'2\', \'4\', \'4\', \'1\', \'4\', \'1\', \'4\', NA, \'4\', \'2\', \'1\', \'4\', \'1\', \'1\', \'1\', \'4\', \'4\', \'2\', \'4\', \'1\', \'1\', \'1\', \'4\', \'1\', \'1\', \'1\', \'4\', \'3\', \'1\', \'4\', \'3\', \'2\', \'4\', \'3\', \'1\', \'4\', \'2\', \'4\', NA, \'4\', \'4\', \'4\', \'2\', \'1\', \'4\', \'4\', NA, \'2\', \'4\', \'4\', \'1\', \'1\', \'1\', \'1\', \'4\', \'1\', \'2\', \'3\', \'2\', \'1\', \'4\', \'4\', \'4\', \'1\', NA, \'4\', \'2\', \'2\', \'2\', \'4\', \'4\', \'3\', \'3\', \'4\', \'2\', \'4\', \'3\', \'1\', \'1\', \'4\', \'2\', \'4\', \'3\', \'1\', \'4\', \'3\', \'4\', \'4\', \'1\', \'1\', \'4\', \'4\', \'3\', \'1\', \'1\', \'2\', \'1\', \'3\', \'4\', \'2\', \'2\', \'2\', \'4\', \'4\', \'3\', \'2\', \'1\', \'1\', \'4\', \'1\', \'1\', \'2\', NA, \'2\', \'3\', \'3\', \'2\', \'1\', \'1\', \'1\', \'1\', \'4\', \'4\', \'4\', \'4\', \'4\', \'4\', \'2\', \'2\', \'1\', \'4\', \'1\', \'4\', \'3\', \'4\', \'2\', \'3\', \'1\', \'3\', \'1\', \'4\', \'1\', \'4\', \'1\', \'4\', \'3\', \'3\', \'4\', \'4\', \'1\', NA, \'3\', \'4\', \'4\', \'4\', \'4\', \'4\', \'4\', \'3\', \'4\', \'3\', \'4\', \'2\', \'4\', \'4\', \'1\', \'2\', NA, \'4\', \'4\', \'4\', \'4\', \'1\', \'2\', \'1\', \'1\', \'2\', \'1\', \'4\', \'2\', \'3\', \'1\', \'4\', \'4\', \'4\', \'1\', \'2\', \'1\', \'4\', \'2\', \'1\', \'3\', \'1\', \'2\', \'2\', \'1\', \'2\', \'1\', NA, \'3\', \'2\', \'2\', \'4\', \'1\', \'4\', \'4\', \'2\', \'4\', \'4\', \'4\', \'2\', \'1\', \'4\', \'2\', \'4\', \'4\', \'4\', \'4\', \'4\', \'1\', \'3\', \'4\', \'3\', \'4\', \'1\', NA, \'4\', NA, \'1\', \'1\', \'1\', \'4\', \'4\', \'4\', \'4\', \'2\', \'4\', \'3\', \'2\', NA, \'1\', \'4\', \'4\', \'3\', \'4\', \'4\', \'4\', \'2\', \'4\', \'2\', \'1\', \'4\', \'4\', NA, \'4\', \'4\', \'3\', \'3\', \'4\', \'2\', \'2\', \'4\', \'1\', \'4\', \'4\', \'4\', \'3\', \'4\', \'4\', \'4\', \'3\', \'2\', \'1\', \'3\', \'1\', \'4\', \'1\', \'4\', \'2\', NA, \'1\', \'4\', \'4\', \'3\', \'1\', \'4\', \'1\', \'4\', \'1\', \'4\', \'4\', \'1\', \'2\', \'2\', \'1\', \'4\', \'1\', \'1\', \'4\', NA, \'4\', NA, \'4\', \'4\', \'4\', \'1\', \'4\', \'2\', \'1\', \'2\', \'2\', \'2\', \'2\', \'1\', \'1\', \'2\', \'1\', \'4\', \'2\', \'3\', \'3\', \'1\', \'3\', \'1\', \'4\', \'1\', \'3\', \'2\', \'2\', \'4\', \'1\', NA, \'3\', \'4\', \'2\', \'4\', \'4\', \'4\', \'4\', \'4\', \'4\', \'3\', \'4\', \'4\', \'3\', \'2\', \'1\', \'4\', \'4\', \'2\', \'4\', \'2\', \'1\', \'2\', \'1\', \'1\', \'1\', \'1\', \'4\', \'4\', \'1\', \'1\', \'4\', \'1\', \'4\', \'4\', \'4\', \'1\', \'1\', NA, \'3\', \'2\', \'4\', \'4\', \'4\', \'4\', \'2\', \'3\', \'3\', \'2\', NA, \'4\', \'2\', \'4\', \'4\', \'1\', \'1\', \'4\', \'4\', \'1\', \'1\', \'4\', \'1\', \'2\', \'2\', \'2\', \'2\', \'1\', \'4\', \'4\', \'1\', \'2\', \'2\', \'2\', \'3\', \'4\', \'4\', \'3\', \'4\', \'1\', \'1\', \'4\', \'4\', NA, \'4\', \'1\', \'4\', \'4\', \'4\', \'1\', \'4\', \'4\', \'1\', \'2\', \'4\', \'4\', \'4\', \'4\', \'1\', \'2\', \'4\', \'4\', \'2\', \'1\', \'4\', \'2\', \'4\', \'2\', \'2\', \'4\', \'1\', \'3\', \'3\', \'2\', \'4\', \'1\', \'4\', \'4\', \'4\', \'1\', NA, \'4\', \'4\', \'2\', \'4\', \'4\', \'4\', \'4\', \'4\', \'2\', NA, \'4\', \'2\', \'4\', \'3\', \'1\', \'4\', \'4\', \'3\', \'4\', \'2\', \'4\', \'4\', \'1\', \'2\', \'1\', \'4\', \'1\', \'3\', \'3\', \'1\', \'4\', \'4\', \'2\', \'4\', \'4\', \'4\', \'4\', \'3\', \'2\', \'3\', \'3\', \'2\', NA, \'3\', \'4\', \'4\', \'3\', \'3\', \'4\', \'4\', \'4\', \'1\', \'4\', \'4\', \'4\', \'4\', \'4\', \'4\', \'4\', \'2\', \'4\', \'2\', \'3\', \'4\', \'1\', \'3\', \'1\', NA, \'4\', \'1\', \'2\', \'2\', \'1\', \'4\', \'3\', \'3\', \'4\', \'1\', \'1\', \'3\')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof11() {
+ assertEval("argv <- list(structure(list(base = c(11L, 11L, 6L, 8L, 66L, 27L, 12L, 52L, 23L, 10L, 52L, 33L, 18L, 42L, 87L, 50L, 18L, 111L, 18L, 20L, 12L, 9L, 17L, 28L, 55L, 9L, 10L, 47L, 76L, 38L, 19L, 10L, 19L, 24L, 31L, 14L, 11L, 67L, 41L, 7L, 22L, 13L, 46L, 36L, 38L, 7L, 36L, 11L, 151L, 22L, 41L, 32L, 56L, 24L, 16L, 22L, 25L, 13L, 12L)), .Names = \'base\', row.names = c(1L, 5L, 9L, 13L, 17L, 21L, 25L, 29L, 33L, 37L, 41L, 45L, 49L, 53L, 57L, 61L, 65L, 69L, 73L, 77L, 81L, 85L, 89L, 93L, 97L, 101L, 105L, 109L, 113L, 117L, 121L, 125L, 129L, 133L, 137L, 141L, 145L, 149L, 153L, 157L, 161L, 165L, 169L, 173L, 177L, 181L, 185L, 189L, 193L, 197L, 201L, 205L, 209L, 213L, 217L, 221L, 225L, 229L, 233L))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof12() {
+ assertEval("argv <- list(structure(c(\'Min. : 1.000 \', \'1st Qu.: 9.000 \', \'Median :18.000 \', \'Mean :14.742 \', \'3rd Qu.:20.000 \', \'Max. :23.000 \', NA, \'Min. :5.0000 \', \'1st Qu.:5.3000 \', \'Median :6.1000 \', \'Mean :6.0841 \', \'3rd Qu.:6.6000 \', \'Max. :7.7000 \', NA, \'Min. : 1.000 \', \'1st Qu.: 24.250 \', \'Median : 56.500 \', \'Mean : 56.928 \', \'3rd Qu.: 86.750 \', \'Max. :117.000 \', \'NA's :16 \', \'Min. : 0.500 \', \'1st Qu.: 11.325 \', \'Median : 23.400 \', \'Mean : 45.603 \', \'3rd Qu.: 47.550 \', \'Max. :370.000 \', NA, \'Min. :0.00300 \', \'1st Qu.:0.04425 \', \'Median :0.11300 \', \'Mean :0.15422 \', \'3rd Qu.:0.21925 \', \'Max. :0.81000 \', NA), .Dim = c(7L, 5L), .Dimnames = list(c(\'\', \'\', \'\', \'\', \'\', \'\', \'\'), c(\' event\', \' mag\', \' station\', \' dist\', \' accel\')))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof13() {
+ assertEval("argv <- list(c(2L, 1L, NA)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof14() {
+ assertEval("argv <- list(raw(0)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof15() {
+ assertEval("argv <- list(c(1.1+0i, NA, 3+0i)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof16() {
+ assertEval("argv <- list(1e+05); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof17() {
+ assertEval("argv <- list(structure(c(\' \', \'***\'), legend = \'0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1\', class = \'noquote\')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof18() {
+ assertEval("argv <- list(structure(c(1+1i, 2+1.4142135623731i, 3+1.73205080756888i, 4+2i, 5+2.23606797749979i, 6+2.44948974278318i, 7+2.64575131106459i, 8+2.82842712474619i, 9+3i, 10+3.1622776601684i), id = character(0), class = structure(\'withId\', package = \'.GlobalEnv\'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof19() {
+ assertEval("argv <- list(structure(list(x = structure(1L, .Label = \'1.3\', class = \'factor\')), .Names = \'x\', row.names = c(NA, -1L), class = \'data.frame\')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof20() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list(\'a\'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof21() {
+ assertEval("argv <- list(structure(list(a = 1), .Names = \'a\', .Tsp = c(1, 1, 1), class = \'ts\')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof22() {
+ assertEval("argv <- list(c(0, 0, 0, 0, 0, 1.75368801162502e-134, 0, 0, 0, 2.60477585273833e-251, 1.16485035372295e-260, 0, 1.53160350210786e-322, 0.333331382328728, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3.44161262707711e-123, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1.968811545398e-173, 0, 8.2359965384697e-150, 0, 0, 0, 0, 6.51733217171341e-10, 0, 2.36840184577368e-67, 0, 9.4348408357524e-307, 0, 1.59959906013771e-89, 0, 8.73836857865034e-286, 7.09716190970992e-54, 0, 0, 0, 1.530425353017e-274, 8.57590058044551e-14, 0.333333106397154, 0, 0, 1.36895217898448e-199, 2.0226102635783e-177, 5.50445388209462e-42, 0, 0, 0, 0, 1.07846402051283e-44, 1.88605464411243e-186, 1.09156111051203e-26, 0, 3.0702877273237e-124, 0.333333209689785, 0, 0, 0, 0, 0, 0, 3.09816093866831e-94, 0, 0, 4.7522727332095e-272, 0, 0, 2.30093251441394e-06, 0, 0, 1.27082826644707e-274, 0, 0, 0, 0, 0, 0, 0, 4.5662025456054e-65, 0, 2.77995853978268e-149, 0, 0, 0)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof23() {
+ assertEval("argv <- list(2.22044604925031e-16); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof24() {
+ assertEval("argv <- list(structure(list(c0 = logical(0)), .Names = \'c0\', row.names = integer(0))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof25() {
+ assertEval("argv <- list(structure(3.14159265358979, comment = \'Start with pi\', class = structure(\'num1\', package = \'.GlobalEnv\'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof26() {
+ assertEval("argv <- list(structure(c(NA, 0.1945), .Names = c(\'1\', \'2\'))); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof27() {
+ assertEval("argv <- list(structure(c(1L, 1L), .Label = \'Ctl\', class = \'factor\')); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof28() {
+ assertEval("argv <- list(c(1L, NA, 1L)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof29() {
+ assertEval("argv <- list(c(NA, NA, NA)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof31() {
+ assertEval("argv <- list(structure(list(Y = c(130L, 157L, 174L, 117L, 114L, 161L, 141L, 105L, 140L, 118L, 156L, 61L, 91L, 97L, 100L, 70L, 108L, 126L, 149L, 96L, 124L, 121L, 144L, 68L, 64L, 112L, 86L, 60L, 102L, 89L, 96L, 89L, 129L, 132L, 124L, 74L, 89L, 81L, 122L, 64L, 103L, 132L, 133L, 70L, 89L, 104L, 117L, 62L, 90L, 100L, 116L, 80L, 82L, 94L, 126L, 63L, 70L, 109L, 99L, 53L, 74L, 118L, 113L, 89L, 82L, 86L, 104L, 97L, 99L, 119L, 121L), B = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L, 6L), .Label = c(\'I\', \'II\', \'III\', \'IV\', \'V\', \'VI\'), class = \'factor\'), V = structure(c(3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), .Label = c(\'Golden.rain\', \'Marvellous\', \'Victory\'), class = \'factor\'), N = structure(c(2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L), .Label = c(\'0.0cwt\', \'0.2cwt\', \'0.4cwt\', \'0.6cwt\'), class = \'factor\')), .Names = c(\'Y\', \'B\', \'V\', \'N\'), terms = quote(Y ~ B + V + N + V:N), row.names = 2:72)); .Internal(typeof(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testtypeof32() {
+ assertEval("argv <- list(structure(c(-3.001e+155, -1.067e+107, -1.976e+62, -9.961e+152, -2.059e+23, 1), .Names = c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\'))); .Internal(typeof(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinunclass.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinunclass.java
new file mode 100644
index 0000000000000000000000000000000000000000..e200cf794fd5cc425eb0882c4d6d5aa722ff1457
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinunclass.java
@@ -0,0 +1,224 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinunclass extends TestBase {
+
+ @Test
+ public void testunclass1() {
+ assertEval("argv <- list(c(-1, -1));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass2() {
+ assertEval("argv <- list(structure(list(Employed = c(60.323, 61.122, 60.171, 61.187, 63.221, 63.639, 64.989, 63.761, 66.019, 67.857, 68.169, 66.513, 68.655, 69.564, 69.331, 70.551), GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c(\'Employed\', \'GNP.deflator\', \'GNP\', \'Unemployed\', \'Armed.Forces\', \'Population\', \'Year\'), terms = quote(Employed ~ GNP.deflator + GNP + Unemployed + Armed.Forces + Population + Year), row.names = 1947:1962));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass3() {
+ assertEval("argv <- list(structure(list(x = c(TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE)), .Names = \'x\', row.names = c(NA, 10L)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass4() {
+ assertEval("argv <- list(structure(list(X1.10 = 1:10, z = structure(list(x = 1:10, yyy = 11:20), .Names = c(\'x\', \'yyy\'), row.names = c(NA, -10L), class = \'data.frame\')), .Names = c(\'X1.10\', \'z\'), row.names = c(NA, -10L)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass5() {
+ assertEval("argv <- list(structure(list(Df = c(1, 1, 1, NA, 1), `Sum of Sq` = c(0.109090049888117, 0.246974722154086, 2.97247824113524, NA, 25.9509113775335), RSS = c(47.9727294003871, 48.1106140726531, 50.8361175916342, 47.863639350499, 73.8145507280325), AIC = c(24.9738836085411, 25.0111950072736, 25.7275503692601, 26.9442879283302, 30.5758847476115)), .Names = c(\'Df\', \'Sum of Sq\', \'RSS\', \'AIC\'), row.names = c(\'- x3\', \'- x4\', \'- x2\', \'<none>\', \'- x1\')));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass6() {
+ assertEval("argv <- list(structure(list(surname = structure(2L, .Label = c(\'McNeil\', \'R Core\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'factor\'), nationality = structure(NA_integer_, .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(NA_integer_, .Label = c(\'no\', \'yes\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\'), row.names = 7L));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass7() {
+ assertEval("argv <- list(structure(list(A = c(1L, NA, 1L), B = c(1.1, NA, 2), C = c(1.1+0i, NA, 3+0i), D = c(NA, NA, NA), E = c(FALSE, NA, TRUE), F = structure(c(1L, NA, 2L), .Label = c(\'abc\', \'def\'), class = \'factor\')), .Names = c(\'A\', \'B\', \'C\', \'D\', \'E\', \'F\'), row.names = c(\'1\', \'2\', \'3\')));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass8() {
+ assertEval("argv <- list(structure(list(`cbind(w = weight, w2 = weight^2)` = structure(c(4.17, 5.58, 5.18, 6.11, 4.5, 4.61, 5.17, 4.53, 5.33, 5.14, 4.81, 4.17, 4.41, 3.59, 5.87, 3.83, 6.03, 4.89, 4.32, 4.69, 17.3889, 31.1364, 26.8324, 37.3321, 20.25, 21.2521, 26.7289, 20.5209, 28.4089, 26.4196, 23.1361, 17.3889, 19.4481, 12.8881, 34.4569, 14.6689, 36.3609, 23.9121, 18.6624, 21.9961), .Dim = c(20L, 2L), .Dimnames = list(NULL, c(\'w\', \'w2\'))), group = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c(\'Ctl\', \'Trt\'), class = \'factor\')), .Names = c(\'cbind(w = weight, w2 = weight^2)\', \'group\'), terms = quote(cbind(w = weight, w2 = weight^2) ~ group), row.names = c(NA, 20L)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass9() {
+ assertEval("argv <- list(structure(c(\'Min. : 1.00 \', \'1st Qu.: 3.25 \', \'Median : 5.50 \', \'Mean : 5.50 \', \'3rd Qu.: 7.75 \', \'Max. :10.00 \', \'Min. : 1.00 Min. :11.00 \', \'1st Qu.: 3.25 1st Qu.:13.25 \', \'Median : 5.50 Median :15.50 \', \'Mean : 5.50 Mean :15.50 \', \'3rd Qu.: 7.75 3rd Qu.:17.75 \', \'Max. :10.00 Max. :20.00 \'), .Dim = c(6L, 2L), .Dimnames = list(c(\'\', \'\', \'\', \'\', \'\', \'\'), c(\' X1.10\', \' z.x z.yyy \'))));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass10() {
+ assertEval("argv <- list(structure(list(GNP.deflator = c(83, 88.5, 88.2, 89.5, 96.2, 98.1, 99, 100, 101.2, 104.6, 108.4, 110.8, 112.6, 114.2, 115.7, 116.9), GNP = c(234.289, 259.426, 258.054, 284.599, 328.975, 346.999, 365.385, 363.112, 397.469, 419.18, 442.769, 444.546, 482.704, 502.601, 518.173, 554.894), Unemployed = c(235.6, 232.5, 368.2, 335.1, 209.9, 193.2, 187, 357.8, 290.4, 282.2, 293.6, 468.1, 381.3, 393.1, 480.6, 400.7), Armed.Forces = c(159, 145.6, 161.6, 165, 309.9, 359.4, 354.7, 335, 304.8, 285.7, 279.8, 263.7, 255.2, 251.4, 257.2, 282.7), Population = c(107.608, 108.632, 109.773, 110.929, 112.075, 113.27, 115.094, 116.219, 117.388, 118.734, 120.445, 121.95, 123.366, 125.368, 127.852, 130.081), Year = 1947:1962), .Names = c(\'GNP.deflator\', \'GNP\', \'Unemployed\', \'Armed.Forces\', \'Population\', \'Year\'), row.names = 1947:1962));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass11() {
+ assertEval("argv <- list(structure(list(y = c(0.219628047744843, 0.360454661130887, -1.14267533343616, 0.772374419482067, 0.681741904304867, 0.171869265068012, 2.08409180391906, 0.367547276775469), x1 = c(1L, 2L, 5L, 6L, 7L, 8L, 9L, 10L), x2 = c(1L, 2L, 5L, 6L, 7L, 8L, 9L, 10L), `(weights)` = c(0, 1, 1, 1, 1, 1, 1, 1)), .Names = c(\'y\', \'x1\', \'x2\', \'(weights)\'), terms = quote(y ~ x1 + x2), row.names = c(\'a\', \'b\', \'e\', \'f\', \'g\', \'h\', \'i\', \'j\'), na.action = structure(3:4, .Names = c(\'c\', \'d\'), class = \'omit\')));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass12() {
+ assertEval("argv <- list(structure(list(`log(x)` = c(0, 0.693147180559945, 1.09861228866811, 1.38629436111989, 1.6094379124341, 1.79175946922805, 1.94591014905531, 2.07944154167984, 2.19722457733622, 2.30258509299405, 2.39789527279837, 2.484906649788, 2.56494935746154, 2.63905732961526, 2.70805020110221, 2.77258872223978, 2.83321334405622, 2.89037175789616, 2.94443897916644, 2.99573227355399, 3.04452243772342, 3.09104245335832, 3.13549421592915, 3.17805383034795, 3.2188758248682, 3.25809653802148, 3.29583686600433, 3.3322045101752, 3.36729582998647, 3.40119738166216, 3.43398720448515, 3.46573590279973, 3.49650756146648, 3.52636052461616, 3.55534806148941, 3.58351893845611, 3.61091791264422, 3.63758615972639, 3.66356164612965, 3.68887945411394, 3.71357206670431, 3.73766961828337, 3.76120011569356, 3.78418963391826, 3.80666248977032, 3.8286413964891, 3.85014760171006, 3.87120101090789, 3.89182029811063, 3.91202300542815, 3.93182563272433, 3.95124371858143, 3.97029191355212, 3.98898404656427, 4.00733318523247, 4.02535169073515, 4.04305126783455, 4.06044301054642, 4.07753744390572, 4.0943445622221, 4.11087386417331, 4.12713438504509, 4.14313472639153, 4.15888308335967, 4.17438726989564, 4.18965474202643, 4.20469261939097, 4.21950770517611, 4.23410650459726, 4.24849524204936, 4.26267987704132, 4.27666611901606, 4.29045944114839, 4.30406509320417, 4.31748811353631, 4.33073334028633, 4.34380542185368, 4.35670882668959, 4.36944785246702, 4.38202663467388, 4.39444915467244, 4.40671924726425, 4.4188406077966, 4.43081679884331, 4.44265125649032, 4.45434729625351, 4.46590811865458, 4.47733681447821, 4.48863636973214, 4.49980967033027, 4.51085950651685, 4.52178857704904, 4.53259949315326, 4.54329478227, 4.55387689160054, 4.56434819146784, 4.57471097850338, 4.58496747867057, 4.59511985013459, 4.60517018598809), `log(z)` = c(2.39789527279837, 2.484906649788, 2.56494935746154, 2.63905732961526, 2.70805020110221, 2.77258872223978, 2.83321334405622, 2.89037175789616, 2.94443897916644, 2.99573227355399, 3.04452243772342, 3.09104245335832, 3.13549421592915, 3.17805383034795, 3.2188758248682, 3.25809653802148, 3.29583686600433, 3.3322045101752, 3.36729582998647, 3.40119738166216, 3.43398720448515, 3.46573590279973, 3.49650756146648, 3.52636052461616, 3.55534806148941, 3.58351893845611, 3.61091791264422, 3.63758615972639, 3.66356164612965, 3.68887945411394, 3.71357206670431, 3.73766961828337, 3.76120011569356, 3.78418963391826, 3.80666248977032, 3.8286413964891, 3.85014760171006, 3.87120101090789, 3.89182029811063, 3.91202300542815, 3.93182563272433, 3.95124371858143, 3.97029191355212, 3.98898404656427, 4.00733318523247, 4.02535169073515, 4.04305126783455, 4.06044301054642, 4.07753744390572, 4.0943445622221, 4.11087386417331, 4.12713438504509, 4.14313472639153, 4.15888308335967, 4.17438726989564, 4.18965474202643, 4.20469261939097, 4.21950770517611, 4.23410650459726, 4.24849524204936, 4.26267987704132, 4.27666611901606, 4.29045944114839, 4.30406509320417, 4.31748811353631, 4.33073334028633, 4.34380542185368, 4.35670882668959, 4.36944785246702, 4.38202663467388, 4.39444915467244, 4.40671924726425, 4.4188406077966, 4.43081679884331, 4.44265125649032, 4.45434729625351, 4.46590811865458, 4.47733681447821, 4.48863636973214, 4.49980967033027, 4.51085950651685, 4.52178857704904, 4.53259949315326, 4.54329478227, 4.55387689160054, 4.56434819146784, 4.57471097850338, 4.58496747867057, 4.59511985013459, 4.60517018598809, 4.61512051684126, 4.62497281328427, 4.63472898822964, 4.64439089914137, 4.65396035015752, 4.66343909411207, 4.67282883446191, 4.68213122712422, 4.69134788222914, 4.70048036579242)), .Names = c(\'log(x)\', \'log(z)\'), row.names = c(NA, 100L), terms = quote(~log(x) + log(z))));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass13() {
+ assertEval("argv <- list(structure(list(Df = c(NA, 0L), Deviance = c(NA, 0), `Resid. Df` = c(10L, 10L), `Resid. Dev` = c(2.74035772634541, 2.74035772634541)), .Names = c(\'Df\', \'Deviance\', \'Resid. Df\', \'Resid. Dev\'), row.names = c(\'NULL\', \'x\'), heading = \'Analysis of Deviance Table\\n\\nModel: gaussian, link: identity\\n\\nResponse: y\\n\\nTerms added sequentially (first to last)\\n\\n\'));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass14() {
+ assertEval("argv <- list(list(structure(list(title = \'foreign: Read Data Stored by Minitab, S, SAS, SPSS, Stata, Systat, dBase,\\n...\', author = structure(list(structure(list(given = \'R Core Team\', family = NULL, role = c(\'aut\', \'cph\', \'cre\'), email = \'R-core@R-project.org\', comment = NULL), .Names = c(\'given\', \'family\', \'role\', \'email\', \'comment\'))), class = \'person\'), year = \'2013\', note = \'R package version 0.8-53\', url = \'http://CRAN.R-project.org/package=foreign\'), .Names = c(\'title\', \'author\', \'year\', \'note\', \'url\'), bibtype = \'Manual\', textVersion = \'R Core Team (2013). foreign: Read Data Stored by Minitab, S, SAS, SPSS, Stata, Systat, dBase,\\n.... R package version 0.8-53. http://CRAN.R-project.org/package=foreign\', header = \'To cite package ‘foreign’ in publications use:\')));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass15() {
+ assertEval("argv <- list(structure(c(8.79236, 8.79137, 8.81486, 8.81301, 8.90751, 8.93673, 8.96161, 8.96044, 9.00868, 9.03049, 9.06906, 9.05871, 9.10698, 9.12685, 9.17096, 9.18665, 9.23823, 9.26487, 9.28436, 9.31378, 9.35025, 9.35835, 9.39767, 9.4215, 9.44223, 9.48721, 9.52374, 9.5398, 9.58123, 9.60048, 9.64496, 9.6439, 9.69405, 9.69958, 9.68683, 9.71774, 9.74924, 9.77536, 9.79424), .Tsp = c(1962.25, 1971.75, 4)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void testunclass16() {
+ assertEval("argv <- list(structure(list(structure(9L, members = 1L, height = 0, label = 9L, leaf = TRUE, value = 2L), structure(list(structure(10L, label = 10L, members = 1L, height = 0, leaf = TRUE, value = 1L), structure(1L, label = 1L, members = 1L, height = 0, leaf = TRUE, value = 10L)), members = 2L, midpoint = 0.5, height = 0.114813676452255, value = 5.5)), members = 3L, midpoint = 0.75, height = 0.241190881793568, value = 3.75));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void testunclass17() {
+ assertEval("argv <- list(c(-1.6, -0.9));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass18() {
+ assertEval("argv <- list(structure(list(srcfile = c(\'/home/lzhao/hg/r-instrumented/library/base/R/base\', \'/home/lzhao/hg/r-instrumented/library/base/R/base\'), frow = 5852:5853, lrow = c(5852L, 5854L)), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = 1:2));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass19() {
+ assertEval("argv <- list(structure(list(b = structure(c(3L, 1L, 2L), .Label = c(\'A\', \'B\', \'C\'), class = \'factor\'), a = structure(c(1386423981.90268, 1386403981.90268, 1386413981.90268), class = c(\'POSIXct\', \'POSIXt\'))), .Names = c(\'b\', \'a\'), row.names = c(3L, 1L, 2L)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass20() {
+ assertEval("argv <- list(c(-2.20207097779183e-13, -2.19098062290287e-13, -2.17989026801391e-13, -2.16879991312495e-13, -2.15770955823599e-13, -2.14661920334703e-13, -2.13552884845807e-13, -2.12443849356911e-13, -2.11334813868015e-13, -2.10225778379119e-13, -2.09116742890223e-13, -2.08007707401327e-13, -2.06898671912432e-13, -2.05789636423536e-13, -2.0468060093464e-13, -2.03571565445744e-13, -2.02462529956848e-13, -2.01353494467952e-13, -2.00244458979056e-13, -1.9913542349016e-13, -1.98026388001264e-13, -1.96917352512368e-13, -1.95808317023472e-13, -1.94699281534576e-13, -1.93590246045681e-13, -1.92481210556785e-13, -1.91372175067889e-13, -1.90263139578993e-13, -1.89154104090097e-13, -1.88045068601201e-13, -1.86936033112305e-13, -1.85826997623409e-13, -1.84717962134513e-13, -1.83608926645617e-13, -1.82499891156721e-13, -1.81390855667826e-13, -1.8028182017893e-13, -1.79172784690034e-13, -1.78063749201138e-13, -1.76954713712242e-13, -1.75845678223346e-13, -1.7473664273445e-13, -1.73627607245554e-13, -1.72518571756658e-13, -1.71409536267762e-13, -1.70300500778866e-13, -1.6919146528997e-13, -1.68082429801075e-13, -1.66973394312179e-13, -1.65864358823283e-13, -1.64755323334387e-13, -1.63646287845491e-13, -1.62537252356595e-13, -1.61428216867699e-13, -1.60319181378803e-13, -1.59210145889907e-13, -1.58101110401011e-13, -1.56992074912115e-13, -1.5588303942322e-13, -1.54774003934324e-13, -1.53664968445428e-13, -1.52555932956532e-13, -1.51446897467636e-13, -1.5033786197874e-13, -1.49228826489844e-13, -1.48119791000948e-13, -1.47010755512052e-13, -1.45901720023156e-13, -1.4479268453426e-13, -1.43683649045365e-13, -1.42574613556469e-13, -1.41465578067573e-13, -1.40356542578677e-13, -1.39247507089781e-13, -1.38138471600885e-13, -1.37029436111989e-13, -1.35920400623093e-13, -1.34811365134197e-13, -1.33702329645301e-13, -1.32593294156405e-13, -1.3148425866751e-13, -1.30375223178614e-13, -1.29266187689718e-13, -1.28157152200822e-13, -1.27048116711926e-13, -1.2593908122303e-13, -1.24830045734134e-13, -1.23721010245238e-13, -1.22611974756342e-13, -1.21502939267446e-13, -1.2039390377855e-13, -1.19284868289654e-13, -1.18175832800759e-13, -1.17066797311863e-13, -1.15957761822967e-13, -1.14848726334071e-13, -1.13739690845175e-13, -1.12630655356279e-13, -1.11521619867383e-13, -1.10412584378487e-13, -1.09303548889591e-13, -1.08194513400695e-13, -1.07085477911799e-13, -1.05976442422904e-13, -1.04867406934008e-13, -1.03758371445112e-13, -1.02649335956216e-13, -1.0154030046732e-13, -1.00431264978424e-13, -9.9322229489528e-14, -9.82131940006321e-14, -9.71041585117362e-14, -9.59951230228403e-14, -9.48860875339444e-14, -9.37770520450484e-14, -9.26680165561525e-14, -9.15589810672566e-14, -9.04499455783607e-14, -8.93409100894648e-14, -8.82318746005689e-14, -8.7122839111673e-14, -8.60138036227771e-14, -8.49047681338812e-14, -8.37957326449853e-14, -8.26866971560894e-14, -8.15776616671935e-14, -8.04686261782975e-14, -7.93595906894016e-14, -7.82505552005057e-14, -7.71415197116098e-14, -7.60324842227139e-14, -7.49234487338179e-14, -7.3814413244922e-14, -7.27053777560261e-14, -7.15963422671302e-14, -7.04873067782343e-14, -6.93782712893384e-14, -6.82692358004425e-14, -6.71602003115466e-14, -6.60511648226507e-14, -6.49421293337547e-14, -6.38330938448588e-14, -6.27240583559629e-14, -6.1615022867067e-14, -6.05059873781711e-14, -5.93969518892752e-14, -5.82879164003793e-14, -5.71788809114834e-14, -5.60698454225874e-14, -5.49608099336915e-14, -5.38517744447956e-14, -5.27427389558997e-14, -5.16337034670038e-14, -5.05246679781079e-14, -4.9415632489212e-14, -4.83065970003161e-14, -4.71975615114202e-14, -4.60885260225244e-14, -4.49794905336287e-14, -4.38704550447331e-14, -4.27614195558379e-14, -4.16523840669435e-14, -4.05433485780505e-14, -3.94343130891604e-14, -3.83252776002761e-14, -3.72162421114035e-14, -3.61072066225542e-14, -3.49981711337514e-14, -3.38891356450417e-14, -3.27801001565183e-14, -3.16710646683675e-14, -3.05620291809617e-14, -2.9452993695046e-14, -2.83439582121106e-14, -2.72349227351356e-14, -2.61258872700815e-14, -2.50168518288693e-14, -2.39078164353409e-14, -2.27987811371798e-14, -2.16897460297536e-14, -2.05807113037972e-14, -1.94716773407802e-14, -1.83626449036421e-14, -1.72536155182618e-14, -1.61445922363971e-14, -1.50355811615637e-14, -1.39265945007928e-14, -1.28176566681469e-14, -1.1708816491751e-14, -1.0600171627855e-14, -9.49191738895913e-15));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass21() {
+ assertEval("argv <- list(structure(c(325, 285, 706, 885), .Dim = c(1L, 4L), row.vars = structure(list(), .Names = character(0)), col.vars = structure(list(Class = c(\'1st\', \'2nd\', \'3rd\', \'Crew\')), .Names = \'Class\')));unclass(argv[[1]]);");
+ }
+
+ @Test
+ public void testunclass22() {
+ assertEval("argv <- list(c(10000, 20000, 30000, 40000, 50000, 60000, 70000, 80000, 90000, 1e+05, 110000, 120000, 130000, 140000, 150000, 160000, 170000, 180000, 190000, 2e+05, 210000, 220000, 230000, 240000, 250000, 260000, 270000, 280000, 290000, 3e+05, 310000, 320000, 330000, 340000, 350000, 360000, 370000, 380000, 390000, 4e+05, 410000, 420000, 430000, 440000, 450000, 460000, 470000, 480000, 490000, 5e+05, 510000, 520000, 530000, 540000, 550000, 560000, 570000, 580000, 590000, 6e+05, 610000, 620000, 630000, 640000, 650000, 660000, 670000, 680000, 690000, 7e+05, 710000, 720000, 730000, 740000, 750000, 760000, 770000, 780000, 790000, 8e+05, 810000, 820000, 830000, 840000, 850000, 860000, 870000, 880000, 890000, 9e+05, 910000, 920000, 930000, 940000, 950000, 960000, 970000, 980000, 990000, 1e+06));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass23() {
+ assertEval("argv <- list(quote(y ~ a + b:c + d + e + e:d));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass24() {
+ assertEval("argv <- list(structure(c(\'Min. :14.00 \', \'1st Qu.:26.00 \', \'Median :29.50 \', \'Mean :36.39 \', \'3rd Qu.:49.25 \', \'Max. :70.00 \', \'A:9 \', \'B:9 \', NA, NA, NA, NA), .Dim = c(6L, 2L), .Dimnames = list(c(\'\', \'\', \'\', \'\', \'\', \'\'), c(\' breaks\', \'wool\'))));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass25() {
+ assertEval("argv <- list(structure(list(srcfile = \'/home/lzhao/tmp/RtmpYl9n1I/R.INSTALL2aa24b6697e5/MASS/R/negbin.R\', frow = 135L, lrow = 137L), .Names = c(\'srcfile\', \'frow\', \'lrow\'), row.names = c(NA, -1L)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass26() {
+ assertEval("argv <- list(structure(list(a = 1), .Dim = 1L, .Dimnames = list(\'a\')));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass27() {
+ assertEval("argv <- list(list(structure(list(label = \'FALSE\', x = structure(0, unit = \'npc\', valid.unit = 0L, class = \'unit\'), y = structure(0.5, unit = \'npc\', valid.unit = 0L, class = \'unit\'), just = c(\'left\', \'centre\'), hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE, name = \'GRID.text.106\', gp = structure(list(), class = \'gpar\'), vp = NULL), .Names = c(\'label\', \'x\', \'y\', \'just\', \'hjust\', \'vjust\', \'rot\', \'check.overlap\', \'name\', \'gp\', \'vp\'), class = c(\'text\', \'grob\', \'gDesc\'))));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass28() {
+ assertEval("argv <- list(structure(c(\'0\', \'list\', \'list\'), .Names = c(\'Length\', \'Class\', \'Mode\')));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass29() {
+ assertEval("argv <- list(structure(list(surname = structure(\'R Core\', class = \'AsIs\'), nationality = structure(NA_integer_, .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(NA_integer_, .Label = c(\'no\', \'yes\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\'), row.names = 7L));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass31() {
+ assertEval("argv <- list(structure(list(), .Names = character(0), row.names = c(NA, -10L), terms = quote(~0)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass32() {
+ assertEval("argv <- list(quote(breaks ~ (wool + tension)^2));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass33() {
+ assertEval("argv <- list(structure(c(1L, 2L, 1L), .Dim = 3L, .Dimnames = structure(list(c(\'1\', \'2\', NA)), .Names = \'\')));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass34() {
+ assertEval("argv <- list(structure(list(`cbind(A, B, C, D)` = structure(c(0.696706709347165, 0.362357754476673, -0.0291995223012888, 0.696706709347165, 0.696706709347165, -0.0291995223012888, 0.696706709347165, -0.0291995223012888, 0.362357754476673, 0.696706709347165, -0.0291995223012888, 0.362357754476673, -0.416146836547142, 0.362357754476673, 0.696706709347165, 0.696706709347165, 0.362357754476673, -0.416146836547142, -0.0291995223012888, -0.416146836547142, 0.696706709347165, -0.416146836547142, 0.362357754476673, -0.0291995223012888, 0.717356090899523, 0.932039085967226, 0.999573603041505, 0.717356090899523, 0.717356090899523, 0.999573603041505, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.717356090899523, 0.999573603041505, 0.932039085967226, 0.909297426825682, 0.932039085967226, 0.717356090899523, 0.717356090899523, 0.932039085967226, 0.909297426825682, 0.999573603041505, 0.909297426825682, 0.717356090899523, 0.909297426825682, 0.932039085967226, 0.999573603041505, -0.0291995223012888, -0.737393715541246, -0.998294775794753, -0.0291995223012888, -0.0291995223012888, -0.998294775794753, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.0291995223012888, -0.998294775794753, -0.737393715541246, -0.653643620863612, -0.737393715541246, -0.0291995223012888, -0.0291995223012888, -0.737393715541246, -0.653643620863612, -0.998294775794753, -0.653643620863612, -0.0291995223012888, -0.653643620863612, -0.737393715541246, -0.998294775794753, 0.999573603041505, 0.67546318055115, -0.0583741434275801, 0.999573603041505, 0.999573603041505, -0.0583741434275801, 0.999573603041505, -0.0583741434275801, 0.67546318055115, 0.999573603041505, -0.0583741434275801, 0.67546318055115, -0.756802495307928, 0.67546318055115, 0.999573603041505, 0.999573603041505, 0.67546318055115, -0.756802495307928, -0.0583741434275801, -0.756802495307928, 0.999573603041505, -0.756802495307928, 0.67546318055115, -0.0583741434275801), .Dim = c(24L, 4L), .Dimnames = list(NULL, c(\'A\', \'B\', \'C\', \'D\'))), groups = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c(\'1\', \'2\', \'3\'), class = \'factor\')), .Names = c(\'cbind(A, B, C, D)\', \'groups\'), terms = quote(cbind(A, B, C, D) ~ groups), row.names = c(NA, 24L)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass35() {
+ assertEval("argv <- list(structure(list(group = structure(c(1L, 1L), .Label = c(\'Ctl\', \'Trt\'), class = \'factor\')), .Names = \'group\', row.names = 1:2, terms = quote(~group)));unclass(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testunclass36() {
+ assertEval("argv <- list(structure(c(2671, 6.026e+77, 3.161e+152, 3.501e+299, 2.409e+227, 1.529e+302), .Names = c(\'Min.\', \'1st Qu.\', \'Median\', \'Mean\', \'3rd Qu.\', \'Max.\')));unclass(argv[[1]]);");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinunique.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinunique.java
new file mode 100644
index 0000000000000000000000000000000000000000..745ef7af8865231e732238a20debac8ffa58ebda
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinunique.java
@@ -0,0 +1,201 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinunique extends TestBase {
+
+ @Test
+ public void testunique1() {
+ assertEval("argv <- list(character(0), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique2() {
+ assertEval("argv <- list(c(\'a\', \'b\', \'c\', \'c\', \'b\', \'a\', \'NA\', \'d\', \'d\', NA), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique3() {
+ assertEval("argv <- list(c(1, 2, 4, 6, 8, 9, 11, 13, 14, 16, 3, 5, 7, 9, 10, 12, 14, 15, 17, 17), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique4() {
+ assertEval("argv <- list(list(c(9L, 9L), c(9L, 9L), c(9L, 9L), c(9L, 9L), c(9L, 9L), c(9L, 9L)), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique5() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L), .Label = c(\'Brown\', \'Blue\', \'Hazel\', \'Green\'), class = \'factor\'), FALSE, FALSE, 5L); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testunique6() {
+ assertEval("argv <- list(c(\'colors\', \'colours\'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique7() {
+ assertEval("argv <- list(structure(list(a = 1), .Names = \'a\'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique8() {
+ assertEval("argv <- list(c(1, 258, 516, 774, 1032, 1290, 1548, 1806, 2064, 2322, 2580, 2838, 3096, 3354, 3612, 3870, 4128, 4386, 4644, 4902, 5160, 1, 259, 517, 775, 1033, 1291, 1549, 1807, 2065, 2323, 2581, 2839, 3097, 3355, 3613, 3871, 4129, 4387, 4645, 4903, 5160), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique9() {
+ assertEval("argv <- list(list(FALSE), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique10() {
+ assertEval("argv <- list(c(1L, 2L, 2L, 2L, 1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 2L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 1L, 2L, 1L, 1L, 2L), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique11() {
+ assertEval("argv <- list(structure(c(20.65, NA, NA, 40.25, 61.9, 55.27, 58.13, 54.04, 21.15, 18.32, NA, 65.84, 58.77, 53.99, 63.37, 64.81, 47.11, 9.65, 67.1, 48.83, 57.92, 69.5, 73.95, 5.46, 49.92, 54.21, 61.38, 56.66, 60.14, 56.68, NA, 53.13, 39.7, 74.83, 59.73, NA, 67.06, 67.99, 60.6, 4.63, 71.09, 43.4, 21.9, 61.45, 77.98, 36.67, 69.95, 55.26, 63.24, NA), .Names = c(\'Alabama\', \'Alaska\', \'Arizona\', \'Arkansas\', \'California\', \'Colorado\', \'Connecticut\', \'Delaware\', \'Florida\', \'Georgia\', \'Hawaii\', \'Idaho\', \'Illinois\', \'Indiana\', \'Iowa\', \'Kansas\', \'Kentucky\', \'Louisiana\', \'Maine\', \'Maryland\', \'Massachusetts\', \'Michigan\', \'Minnesota\', \'Mississippi\', \'Missouri\', \'Montana\', \'Nebraska\', \'Nevada\', \'New Hampshire\', \'New Jersey\', \'New Mexico\', \'New York\', \'North Carolina\', \'North Dakota\', \'Ohio\', \'Oklahoma\', \'Oregon\', \'Pennsylvania\', \'Rhode Island\', \'South Carolina\', \'South Dakota\', \'Tennessee\', \'Texas\', \'Utah\', \'Vermont\', \'Virginia\', \'Washington\', \'West Virginia\', \'Wisconsin\', \'Wyoming\')), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique12() {
+ assertEval("argv <- list(c(1.5, 1.5, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique13() {
+ assertEval("argv <- list(list(NULL, NULL, NULL, NULL, NULL), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique14() {
+ assertEval("argv <- list(c(9.18429112061858e-05, 0.0238094009226188, 0.0498038685764186), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique15() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), contrasts = structure(c(-0.666666666666667, 0.333333333333333, 0.333333333333333, -0.333333333333333, -0.333333333333333, 0.666666666666667), .Dim = c(3L, 2L), .Dimnames = list(c(\'placebo\', \'drug\', \'drug+\'), c(\'drug\', \'encourage\'))), .Label = c(\'placebo\', \'drug\', \'drug+\'), class = \'factor\'), FALSE, FALSE, 4L); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique16() {
+ assertEval("argv <- list(c(TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, NA, TRUE, NA, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, NA, TRUE, NA, TRUE, TRUE, NA, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, NA, NA, TRUE, TRUE, TRUE, TRUE, TRUE, NA, TRUE, NA, TRUE, NA, TRUE, TRUE, TRUE, TRUE, NA, TRUE, TRUE, NA, TRUE, NA, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, NA, NA, FALSE, TRUE, TRUE, NA, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ public void testunique17() {
+ assertEval("argv <- list(c(\'2.21\', \'7.6\', \'18.19\', \'19.78\', \'20.23\', \'27.01\', \'28.06\', \'29.28\', \'32.79\', \'37.06\', \'39.72\', \'41.26\', \'41.76\', \'42.5\', \'42.82\', \'43.59\', \'45.29\', \'47.09\', \'47.12\', \'47.68\', \'48.52\', \'48.93\', \'49.26\', \'49.45\', \'49.58\', \'49.69\', \'51.01\', \'51.18\', \'52.24\', \'52.39\', \'55.06\', \'55.25\', \'55.76\', \'57.02\', \'57.21\', \'57.71\', \'58.33\', \'58.84\', \'59.63\', \'59.83\', \'61.54\', \'62.16\', \'62.26\', \'65.35\', \'72.03\', \'75.37\', \'78.22\', NA), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique18() {
+ assertEval("argv <- list(c(3, 4, 5, 11, 10, 9, 8, 8, 9, 10, 11, 12, 13), FALSE, TRUE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique19() {
+ assertEval("argv <- list(structure(c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4), .Tsp = c(1945, 1974.75, 4), class = \'ts\'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique20() {
+ assertEval("argv <- list(c(4L, 6L, 9L, 15L, NA), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique21() {
+ assertEval("argv <- list(structure(list(A = c(3L, 5L), B = c(3L, 5L), C = c(3L, 5L), D = c(3L, 5L)), .Names = c(\'A\', \'B\', \'C\', \'D\')), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique22() {
+ assertEval("argv <- list(c(25, 50, 100, 250, 500, 1e+05), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique23() {
+ assertEval("argv <- list(c(1, 2, NA, 2), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique24() {
+ assertEval("argv <- list(list(\'numeric_version\', \'numeric_version\'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique25() {
+ assertEval("argv <- list(structure(list(c0 = structure(integer(0), .Label = character(0), class = \'factor\')), .Names = \'c0\', row.names = character(0), class = structure(\'integer(0)\', .Names = \'c0\')), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique26() {
+ assertEval("argv <- list(list(\'Math2\', \'round\', \'signif\'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique27() {
+ assertEval("argv <- list(list(structure(\'Math2\', package = \'methods\'), \'round\', \'signif\'), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique28() {
+ assertEval("argv <- list(structure(c(1L, 1L, 1L, 1L), .Names = c(\'vector\', \'data.frameRowLabels\', \'SuperClassMethod\', \'atomicVector\')), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique29() {
+ assertEval("argv <- list(NULL, FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique30() {
+ assertEval("argv <- list(c(TRUE, FALSE, TRUE, TRUE), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunique31() {
+ assertEval("argv <- list(c(2L, 1L, NA), FALSE, FALSE, NA); .Internal(unique(argv[[1]], argv[[2]], argv[[3]], argv[[4]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinunlink.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinunlink.java
new file mode 100644
index 0000000000000000000000000000000000000000..4c89c04677576492a340c6491039f1a6fdc51c0b
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinunlink.java
@@ -0,0 +1,36 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinunlink extends TestBase {
+
+ @Test
+ @Ignore
+ public void testunlink1() {
+ assertEval("argv <- list(\'/tmp/RtmptPgrXI/Pkgs\', TRUE, FALSE); .Internal(unlink(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlink2() {
+ assertEval("argv <- list(character(0), FALSE, FALSE); .Internal(unlink(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlink3() {
+ assertEval("argv <- list(\'/home/lzhao/tmp/Rtmphu0Cms/file74e1676db2e7\', FALSE, FALSE); .Internal(unlink(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinunlist.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinunlist.java
new file mode 100644
index 0000000000000000000000000000000000000000..81ede7fc8a945395466bfeaf9969da2e1219e17c
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinunlist.java
@@ -0,0 +1,312 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinunlist extends TestBase {
+
+ @Test
+ @Ignore
+ public void testunlist1() {
+ assertEval("argv <- list(list(\'yaxp\'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist2() {
+ assertEval("argv <- list(list(c(13823, NA)), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist3() {
+ assertEval("argv <- list(structure(\'A\', .Names = \'x\', package = \'.GlobalEnv\'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist4() {
+ assertEval("argv <- list(list(list(structure(function (e1, e2) standardGeneric(\'Ops\'), generic = structure(\'Ops\', package = \'base\'), package = \'base\', group = list(), valueClass = character(0), signature = c(\'e1\', \'e2\'), default = quote(`\\001NULL\\001`), skeleton = quote((function (e1, e2) stop(\'invalid call in method dispatch to 'Ops' (no default method)\', domain = NA))(e1, e2)), groupMembers = list(\'Arith\', \'Compare\', \'Logic\'), class = structure(\'groupGenericFunction\', package = \'methods\')))), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist5() {
+ assertEval("argv <- list(structure(list(sec = c(8.40000009536743, 8.80000019073486), min = c(14L, 14L), hour = c(22L, 22L)), .Names = c(\'sec\', \'min\', \'hour\')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist6() {
+ assertEval("argv <- list(list(structure(list(c(NA, 0L)), row.names = c(NA, -2L), class = \'data.frame\'), structure(list(c(NA, 0)), row.names = c(NA, -2L), class = \'data.frame\'), structure(list(c(10L, 10L)), row.names = c(NA, -2L), class = \'data.frame\'), structure(list(c(2.74035772634541, 2.74035772634541)), row.names = c(NA, -2L), class = \'data.frame\')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist7() {
+ assertEval("argv <- list(structure(list(diagonalMatrix = 1, lMatrix = 1, sparseMatrix = 2, Matrix = 2, mMatrix = 4), .Names = c(\'diagonalMatrix\', \'lMatrix\', \'sparseMatrix\', \'Matrix\', \'mMatrix\')), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist8() {
+ assertEval("argv <- list(list(structure(list(), .Names = character(0), row.names = integer(0), class = \'data.frame\'), structure(list(height = numeric(0), weight = numeric(0)), .Names = c(\'height\', \'weight\'), row.names = integer(0), class = \'data.frame\')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist9() {
+ assertEval("argv <- list(list(c(TRUE, FALSE, FALSE, FALSE, FALSE), c(TRUE, TRUE, TRUE, TRUE, NA)), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist10() {
+ assertEval("argv <- list(structure(\' \\\'Jetz no chli züritüütsch: (noch ein bißchen Zürcher deutsch)\\\')\\n\', Rd_tag = \'RCODE\'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist11() {
+ assertEval("argv <- list(structure(list(`1 sec` = 345600, `2 secs` = 172800, `5 secs` = 69120, `10 secs` = 34560, `15 secs` = 23040, `30 secs` = 11520, `1 min` = 5760, `2 mins` = 2880, `5 mins` = 1152, `10 mins` = 576, `15 mins` = 384, `30 mins` = 192, `1 hour` = 96, `3 hours` = 32, `6 hours` = 16, `12 hours` = 8, `1 DSTday` = 4, `2 DSTdays` = 2, `1 week` = 0.571428571428571, halfmonth = 0.262833675564682, `1 month` = 0.131416837782341, `3 months` = 0.0438056125941136, `6 months` = 0.0219028062970568, `1 year` = 0.0109514031485284, `2 years` = 0.0054757015742642, `5 years` = 0.00219028062970568, `10 years` = 0.00109514031485284, `20 years` = 0.00054757015742642, `50 years` = 0.000219028062970568, `100 years` = 0.000109514031485284, `200 years` = 5.4757015742642e-05, `500 years` = 2.19028062970568e-05, `1000 years` = 1.09514031485284e-05), .Names = c(\'1 sec\', \'2 secs\', \'5 secs\', \'10 secs\', \'15 secs\', \'30 secs\', \'1 min\', \'2 mins\', \'5 mins\', \'10 mins\', \'15 mins\', \'30 mins\', \'1 hour\', \'3 hours\', \'6 hours\', \'12 hours\', \'1 DSTday\', \'2 DSTdays\', \'1 week\', \'halfmonth\', \'1 month\', \'3 months\', \'6 months\', \'1 year\', \'2 years\', \'5 years\', \'10 years\', \'20 years\', \'50 years\', \'100 years\', \'200 years\', \'500 years\', \'1000 years\')), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist12() {
+ assertEval("argv <- list(structure(list(vector = TRUE, atomicVector = TRUE, index = TRUE, numIndex = TRUE, numLike = TRUE, number = TRUE, replValue = TRUE), .Names = c(\'vector\', \'atomicVector\', \'index\', \'numIndex\', \'numLike\', \'number\', \'replValue\')), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist13() {
+ assertEval("argv <- list(structure(list(a = 6:10), .Names = \'a\', row.names = 6:10), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist14() {
+ assertEval("argv <- list(structure(list(`2005` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c(\'01\', \'02\', \'03\', \'04\', \'05\', \'06\', \'07\', \'08\', \'09\', \'10\', \'11\', \'12\')), .Names = \'\'), class = \'table\'), `2006` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c(\'01\', \'02\', \'03\', \'04\', \'05\', \'06\', \'07\', \'08\', \'09\', \'10\', \'11\', \'12\')), .Names = \'\'), class = \'table\'), `2007` = structure(c(31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c(\'01\', \'02\', \'03\', \'04\', \'05\', \'06\', \'07\', \'08\', \'09\', \'10\', \'11\', \'12\')), .Names = \'\'), class = \'table\'), `2008` = structure(c(31L, 29L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L), .Dim = 12L, .Dimnames = structure(list(c(\'01\', \'02\', \'03\', \'04\', \'05\', \'06\', \'07\', \'08\', \'09\', \'10\', \'11\', \'12\')), .Names = \'\'), class = \'table\'), `2009` = structure(1L, .Dim = 1L, .Dimnames = structure(list(\'01\'), .Names = \'\'), class = \'table\')), .Names = c(\'2005\', \'2006\', \'2007\', \'2008\', \'2009\')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist15() {
+ assertEval("argv <- list(list(structure(list(structure(c(1395082040.29392, 1395082040.29392, 1395082040.29392, 1395082040.29392, 1395082040.29392), class = c(\'AsIs\', \'POSIXct\', \'POSIXt\'))), row.names = c(NA, -5L), class = \'data.frame\')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist16() {
+ assertEval("argv <- list(structure(\'print(.leap.seconds, tz = \\\'PST8PDT\\\') # and in Seattle's\\n\', Rd_tag = \'RCODE\'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist17() {
+ assertEval("argv <- list(list(TRUE, TRUE, TRUE, TRUE), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist18() {
+ assertEval("argv <- list(list(c(NA_real_, NA_real_), c(\'Svansota\', \'No. 462\', \'Manchuria\', \'No. 475\', \'Velvet\', \'Peatland\', \'Glabron\', \'No. 457\', \'Wisconsin No. 38\', \'Trebi\'), c(\'Svansota\', \'No. 462\', \'Manchuria\', \'No. 475\', \'Velvet\', \'Peatland\', \'Glabron\', \'No. 457\', \'Wisconsin No. 38\', \'Trebi\'), c(\'Svansota\', \'No. 462\', \'Manchuria\', \'No. 475\', \'Velvet\', \'Peatland\', \'Glabron\', \'No. 457\', \'Wisconsin No. 38\', \'Trebi\'), c(\'Svansota\', \'No. 462\', \'Manchuria\', \'No. 475\', \'Velvet\', \'Peatland\', \'Glabron\', \'No. 457\', \'Wisconsin No. 38\', \'Trebi\'), c(\'Svansota\', \'No. 462\', \'Manchuria\', \'No. 475\', \'Velvet\', \'Peatland\', \'Glabron\', \'No. 457\', \'Wisconsin No. 38\', \'Trebi\'), c(\'Svansota\', \'No. 462\', \'Manchuria\', \'No. 475\', \'Velvet\', \'Peatland\', \'Glabron\', \'No. 457\', \'Wisconsin No. 38\', \'Trebi\'), c(\'Svansota\', \'No. 462\', \'Manchuria\', \'No. 475\', \'Velvet\', \'Peatland\', \'Glabron\', \'No. 457\', \'Wisconsin No. 38\', \'Trebi\'), c(\'Svansota\', \'No. 462\', \'Manchuria\', \'No. 475\', \'Velvet\', \'Peatland\', \'Glabron\', \'No. 457\', \'Wisconsin No. 38\', \'Trebi\'), c(\'Svansota\', \'No. 462\', \'Manchuria\', \'No. 475\', \'Velvet\', \'Peatland\', \'Glabron\', \'No. 457\', \'Wisconsin No. 38\', \'Trebi\'), c(\'Svansota\', \'No. 462\', \'Manchuria\', \'No. 475\', \'Velvet\', \'Peatland\', \'Glabron\', \'No. 457\', \'Wisconsin No. 38\', \'Trebi\'), c(\'Svansota\', \'No. 462\', \'Manchuria\', \'No. 475\', \'Velvet\', \'Peatland\', \'Glabron\', \'No. 457\', \'Wisconsin No. 38\', \'Trebi\')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist19() {
+ assertEval("argv <- list(list(structure(list(\'/home/lzhao/tmp/RtmpTzriDZ/R.INSTALL30d4108a07be/mgcv/R/gamm.r\'), row.names = c(NA, -1L), class = \'data.frame\'), structure(list(1522L), row.names = c(NA, -1L), class = \'data.frame\'), structure(list(1522L), row.names = c(NA, -1L), class = \'data.frame\')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist20() {
+ assertEval("argv <- list(structure(list(`1` = 2.47032822920623e-323), .Names = \'1\'), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist21() {
+ assertEval("argv <- list(structure(list(`1` = 5900.92307692308, `2` = 6784.76923076923), .Names = c(\'1\', \'2\')), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist22() {
+ assertEval("argv <- list(list(structure(list(surname = structure(c(\'Tukey\', \'Venables\', \'Tierney\', \'Ripley\', \'Ripley\', \'McNeil\'), class = \'AsIs\'), nationality = structure(c(3L, 1L, 3L, 2L, 2L, 1L), .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(c(2L, 1L, 1L, 1L, 1L, 1L), .Label = c(\'no\', \'yes\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\'), row.names = c(\'1\', \'2\', \'3\', \'4\', \'4.1\', \'5\'), class = \'data.frame\'), structure(list(title = structure(c(2L, 5L, 4L, 6L, 7L, 3L), .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(c(NA, 1L, NA, NA, NA, NA), .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'title\', \'other.author\'), row.names = c(NA, 6L), class = \'data.frame\')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist23() {
+ assertEval("argv <- list(list(structure(c(-Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0, -Inf, -Inf, -Inf, -Inf, -Inf, -Inf, 0, 0, 0), .Dim = c(9L, 9L), .Dimnames = list(c(\'20%\', \'30%\', \'40%\', \'50%\', \'60%\', \'70%\', \'80%\', \'90%\', \'100%\'), NULL)), structure(c(-Inf, -Inf, -Inf, 0, 0, 1, 1, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, Inf, -Inf, -Inf, -Inf, -Inf, 0, 1, 1, 1, Inf, -Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.5, 1, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.6, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.4, 0.8, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.533333333333334, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.525, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c(\'20%\', \'30%\', \'40%\', \'50%\', \'60%\', \'70%\', \'80%\', \'90%\', \'100%\'), NULL)), structure(c(-Inf, -Inf, 0, 0, 1, 2, Inf, Inf, Inf, -Inf, -Inf, 0, 0.5, 1, 2, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0, 1, 2, 2, Inf, Inf, -Inf, -Inf, -Inf, 0, 0.8, 1.6, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.3, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.4, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.2, 1.9, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.499999999999999, 1.33333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.325, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c(\'20%\', \'30%\', \'40%\', \'50%\', \'60%\', \'70%\', \'80%\', \'90%\', \'100%\'), NULL)), structure(c(-Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 0.5, 1.6, 2.7, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.1, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.2, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 3, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.13333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.125, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c(\'20%\', \'30%\', \'40%\', \'50%\', \'60%\', \'70%\', \'80%\', \'90%\', \'100%\'), NULL)), structure(c(-Inf, -Inf, 0, 1, 3, 4, Inf, Inf, Inf, -Inf, -Inf, 0, 1.5, 3, 4, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 2, 4, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1, 2.4, 3.8, Inf, Inf, Inf, -Inf, -Inf, 0.100000000000001, 1.5, 2.9, Inf, Inf, Inf, Inf, -Inf, -Inf, 0, 1.5, 3, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.2, 1.5, 2.8, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.0666666666666664, 1.5, 2.93333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.0750000000000002, 1.5, 2.925, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c(\'20%\', \'30%\', \'40%\', \'50%\', \'60%\', \'70%\', \'80%\', \'90%\', \'100%\'), NULL)), structure(c(-Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 2, 4, 5, Inf, Inf, Inf, -Inf, -Inf, 0, 1, 3, 5, Inf, Inf, Inf, -Inf, -Inf, -Inf, 1.5, 3.2, 4.9, Inf, Inf, Inf, -Inf, -Inf, 0.300000000000001, 2, 3.7, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.2, 2, 3.8, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.4, 2, 3.6, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.266666666666667, 2, 3.73333333333333, Inf, Inf, Inf, Inf, -Inf, -Inf, 0.275, 2, 3.725, Inf, Inf, Inf, Inf), .Dim = c(9L, 9L), .Dimnames = list(c(\'20%\', \'30%\', \'40%\', \'50%\', \'60%\', \'70%\', \'80%\', \'90%\', \'100%\'), NULL))), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist24() {
+ assertEval("argv <- list(structure(\'# everything \', Rd_tag = \'VERB\'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist25() {
+ assertEval("argv <- list(structure(list(sec = NA_real_, min = NA_integer_, hour = NA_integer_), .Names = c(\'sec\', \'min\', \'hour\')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist26() {
+ assertEval("argv <- list(structure(list(a = list(1:5, c(\'A\', \'B\', \'C\', \'D\', \'E\')), b = \'Z\', c = NA), .Names = c(\'a\', \'b\', \'c\')), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist27() {
+ assertEval("argv <- list(list(structure(list(structure(c(0.398105880367068, -0.612026393250771, 0.341119691424425, -1.12936309608079, 1.43302370170104, 1.98039989850586, -0.367221476466509, -1.04413462631653, 0.569719627442413, -0.135054603880824, 2.40161776050478, -0.0392400027331692, 0.689739362450777, 0.0280021587806661, -0.743273208882405, 0.188792299514343, -1.80495862889104, 1.46555486156289, 0.153253338211898, 2.17261167036215, 0.475509528899663, -0.709946430921815, 0.610726353489055, -0.934097631644252, -1.2536334002391, 0.291446235517463, -0.443291873218433, 0.00110535163162413, 0.0743413241516641, -0.589520946188072, -0.568668732818502, -0.135178615123832, 1.1780869965732, -1.52356680042976, 0.593946187628422, 0.332950371213518, 1.06309983727636, -0.304183923634301, 0.370018809916288, 0.267098790772231, -0.54252003099165, 1.20786780598317, 1.16040261569495, 0.700213649514998, 1.58683345454085, 0.558486425565304, -1.27659220845804, -0.573265414236886, -1.22461261489836, -0.473400636439312, -0.620366677224124, 0.0421158731442352, -0.910921648552446, 0.158028772404075, -0.654584643918818, 1.76728726937265, 0.716707476017206, 0.910174229495227, 0.384185357826345, 1.68217608051942, -0.635736453948977, -0.461644730360566, 1.43228223854166, -0.650696353310367, -0.207380743601965, -0.392807929441984, -0.319992868548507, -0.279113302976559, 0.494188331267827, -0.177330482269606, -0.505957462114257, 1.34303882517041, -0.214579408546869, -0.179556530043387, -0.100190741213562, 0.712666307051405, -0.0735644041263263, -0.0376341714670479, -0.681660478755657, -0.324270272246319, 0.0601604404345152, -0.588894486259664, 0.531496192632572, -1.51839408178679, 0.306557860789766, -1.53644982353759, -0.300976126836611, -0.528279904445006, -0.652094780680999, -0.0568967778473925, -1.91435942568001, 1.17658331201856, -1.664972436212, -0.463530401472386, -1.11592010504285, -0.750819001193448, 2.08716654562835, 0.0173956196932517, -1.28630053043433, -1.64060553441858), .Label = structure(list(c(-1.91442143130152, -0.573203408615382), c(-0.934159637265755, -0.300914121215107), c(-0.568730738440006, 0.0174576253147555), c(-0.279175308598063, 0.384247363447848), c(0.0279401531591622, 1.16046462131646), c(0.398043874745564, 2.40167976612628)), class = \'shingleLevel\'), class = \'shingle\')), row.names = c(NA, -100L), class = \'data.frame\'), structure(list(c(0.450187101272656, -0.018559832714638, -0.318068374543844, -0.929362147453702, -1.48746031014148, -1.07519229661568, 1.00002880371391, -0.621266694796823, -1.38442684738449, 1.86929062242358, 0.425100377372448, -0.238647100913033, 1.05848304870902, 0.886422651374936, -0.619243048231147, 2.20610246454047, -0.255027030141015, -1.42449465021281, -0.144399601954219, 0.207538339232345, 2.30797839905936, 0.105802367893711, 0.456998805423414, -0.077152935356531, -0.334000842366544, -0.0347260283112762, 0.787639605630162, 2.07524500865228, 1.02739243876377, 1.2079083983867, -1.23132342155804, 0.983895570053379, 0.219924803660651, -1.46725002909224, 0.521022742648139, -0.158754604716016, 1.4645873119698, -0.766081999604665, -0.430211753928547, -0.926109497377437, -0.17710396143654, 0.402011779486338, -0.731748173119606, 0.830373167981674, -1.20808278630446, -1.04798441280774, 1.44115770684428, -1.01584746530465, 0.411974712317515, -0.38107605110892, 0.409401839650934, 1.68887328620405, 1.58658843344197, -0.330907800682766, -2.28523553529247, 2.49766158983416, 0.667066166765493, 0.5413273359637, -0.0133995231459087, 0.510108422952926, -0.164375831769667, 0.420694643254513, -0.400246743977644, -1.37020787754746, 0.987838267454879, 1.51974502549955, -0.308740569225614, -1.25328975560769, 0.642241305677824, -0.0447091368939791, -1.73321840682484, 0.00213185968026965, -0.630300333928146, -0.340968579860405, -1.15657236263585, 1.80314190791747, -0.331132036391221, -1.60551341225308, 0.197193438739481, 0.263175646405474, -0.985826700409291, -2.88892067167955, -0.640481702565115, 0.570507635920485, -0.05972327604261, -0.0981787440052344, 0.560820728620116, -1.18645863857947, 1.09677704427424, -0.00534402827816569, 0.707310667398079, 1.03410773473746, 0.223480414915304, -0.878707612866019, 1.16296455596733, -2.00016494478548, -0.544790740001725, -0.255670709156989, -0.166121036765006, 1.02046390878411)), row.names = c(NA, -100L), class = \'data.frame\')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist28() {
+ assertEval("argv <- list(list(NULL), TRUE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist29() {
+ assertEval("argv <- list(structure(list(a = \'a\', b = 2, c = 3.14159265358979+2i), .Names = c(\'a\', \'b\', \'c\')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist30() {
+ assertEval("argv <- list(structure(list(`1` = c(2, 1), `2` = c(3, 1.5, 1.5, 4), `3` = c(4, 2.5, 2.5, 5, 1), `4` = c(5, 3.5, 3.5, 7, 1.5, 6, 1.5), `5` = c(5, 3.5, 3.5, 8, 1.5, 6.5, 1.5, 6.5), `6` = c(6, 4.5, 4.5, 10, 2.5, 8.5, 2.5, 8.5, 1, 7), `7` = c(7, 5.5, 5.5, 11, 3.5, 9.5, 3.5, 9.5, 2, 8, 1)), .Dim = 7L, .Dimnames = list(c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\'))), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist31() {
+ assertEval("argv <- list(list(c(TRUE, TRUE), c(TRUE, TRUE), c(TRUE, TRUE), c(TRUE, TRUE), c(1, 2, 3)), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist32() {
+ assertEval("argv <- list(structure(list(mean = c(0, 1), vcov = structure(c(1, 1, 1, 0), .Dim = c(2L, 2L))), .Names = c(\'mean\', \'vcov\'), class = c(\'relistable\', \'list\')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist33() {
+ assertEval("argv <- list(list(c(\' \\036 The ‘internal’ graphics device invoked by .Call(\\\'R_GD_nullDevice\\\',\', \' package = \\\'grDevices\\\') has been removed: use pdf(file = NULL)\', \' instead.\')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist34() {
+ assertEval("argv <- list(structure(list(surname = structure(c(\'McNeil\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'AsIs\'), nationality = structure(c(\'Australia\', \'UK\', \'US\', \'US\', \'Australia\'), class = \'AsIs\'), deceased = structure(c(\'no\', \'no\', \'no\', \'yes\', \'no\'), class = \'AsIs\'), title = structure(c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), class = \'AsIs\'), other.author = structure(c(NA_character_, NA_character_, NA_character_, NA_character_, NA_character_), class = \'AsIs\')), .Names = c(\'surname\', \'nationality\', \'deceased\', \'title\', \'other.author\'), row.names = c(\'1\', \'2\', \'3\', \'4\', \'5\')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist35() {
+ assertEval("argv <- list(list(structure(list(Ozone = c(96L, 78L, 73L, 91L, 47L, 32L, 20L, 23L, 21L, 24L, 44L, 21L, 28L, 9L, 13L, 46L, 18L, 13L, 24L, 16L, 13L, 23L, 36L, 7L, 14L, 30L, NA, 14L, 18L, 20L), Solar.R = c(167L, 197L, 183L, 189L, 95L, 92L, 252L, 220L, 230L, 259L, 236L, 259L, 238L, 24L, 112L, 237L, 224L, 27L, 238L, 201L, 238L, 14L, 139L, 49L, 20L, 193L, 145L, 191L, 131L, 223L), Wind = c(6.9, 5.1, 2.8, 4.6, 7.4, 15.5, 10.9, 10.3, 10.9, 9.7, 14.9, 15.5, 6.3, 10.9, 11.5, 6.9, 13.8, 10.3, 10.3, 8, 12.6, 9.2, 10.3, 10.3, 16.6, 6.9, 13.2, 14.3, 8, 11.5), Temp = c(91L, 92L, 93L, 93L, 87L, 84L, 80L, 78L, 75L, 73L, 81L, 76L, 77L, 71L, 71L, 78L, 67L, 76L, 68L, 82L, 64L, 71L, 81L, 69L, 63L, 70L, 77L, 75L, 76L, 68L), Month = c(9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L, 9L), Day = 1:30), .Names = c(\'Ozone\', \'Solar.R\', \'Wind\', \'Temp\', \'Month\', \'Day\'), row.names = 124:153, class = \'data.frame\'), structure(list(c(2.67385465817826, 1.92826057080163, 1.7211511020859, 2.46674518946253, 0.6441818647641, 0.0228534586169083, -0.474209266300845, -0.349943585071407, -0.432787372557699, -0.308521691328261, 0.519916183534662, -0.432787372557699, -0.142834116355676, -0.929850097475453, -0.764162522502868, 0.602759971020954, -0.557053053787138, -0.764162522502868, -0.308521691328261, -0.63989684127343, -0.764162522502868, -0.349943585071407, 0.188541033589493, -1.01269388496175, -0.722740628759722, -0.059990328869384, NA, -0.722740628759722, -0.557053053787138, -0.474209266300845)), row.names = c(NA, -30L), class = \'data.frame\')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist36() {
+ assertEval("argv <- list(list(c(5.87030131383818+0i, 1.5889879152884+1.34124369386909i, 2.11222603449395-1.81528547759475i, 2.90982451403972-3.07851581383191i, -0.93444299242086+4.19201264862077i, -2.47319172794455-3.70050127054969i, 3.40387225833387-2.03794044354999i, 0.964146923537224+0.43683199768595i, 0.964146923537223-0.43683199768595i, 3.40387225833387+2.03794044354999i, -2.47319172794455+3.70050127054969i, -0.93444299242086-4.19201264862077i, 2.90982451403972+3.07851581383191i, 2.11222603449395+1.81528547759475i, 1.5889879152884-1.34124369386909i), c(-0.198575181429756+0i, 3.06901469564285-0.28753262878135i, 2.52792606446531+0.34832983414202i, -0.22897831647696+4.34107190550675i, -1.1328140942159+1.10933827962707i, -2.13015831304915-3.19551716353477i, 1.66248610578085-2.34843556657312i, 2.53273081248013+0.345339148259i, 2.53273081248013-0.345339148259i, 1.66248610578085+2.34843556657312i, -2.13015831304915+3.19551716353477i, -1.1328140942159-1.10933827962708i, -0.22897831647696-4.34107190550675i, 2.52792606446531-0.34832983414202i, 3.06901469564285+0.28753262878135i), c(-0.177389766587854+0i, -0.750507869921238-0.968112891774716i, 2.01908494011385-1.61353499070386i, -1.32842557557029+1.87677956172028i, 0.278793972604843+0.060190561256586i, 0.06482045217871+2.780245561063i, -3.05075608405522+4.21179315999883i, -0.12202595251607-1.65218285338028i, -0.12202595251607+1.65218285338028i, -3.05075608405522-4.21179315999883i, 0.06482045217871-2.780245561063i, 0.278793972604844-0.060190561256586i, -1.32842557557029-1.87677956172028i, 2.01908494011385+1.61353499070386i, -0.750507869921237+0.968112891774715i), c(-1.93496831243286+0i, -4.87879352188084-3.06857420991118i, 0.91348359987171+2.30355482564816i, 2.7631069926811+6.2396752311874i, -0.9934286053847-5.99510259160787i, 0.39705745560005+3.84166415349047i, -1.5293697261841+2.76025815484515i, 3.48992984345714-5.88708433976428i, 3.48992984345714+5.88708433976428i, -1.5293697261841-2.76025815484515i, 0.39705745560005-3.84166415349047i, -0.99342860538471+5.99510259160787i, 2.7631069926811-6.2396752311874i, 0.91348359987171-2.30355482564816i, -4.87879352188084+3.06857420991118i), c(1.6954625122129+0i, 0.96480086806796-2.54002409930623i, -3.5054253146275-7.05689416264505i, -2.10114573645889-1.07773818646711i, 1.81179418950692+1.03308206229221i, 0.84721205589596-4.740786425434i, -1.90295630545443-1.68686014535334i, -2.43557705822344-1.63964363160433i, -2.43557705822344+1.63964363160433i, -1.90295630545443+1.68686014535334i, 0.84721205589596+4.740786425434i, 1.81179418950692-1.03308206229221i, -2.10114573645889+1.07773818646711i, -3.50542531462751+7.05689416264504i, 0.96480086806796+2.54002409930623i)), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist37() {
+ assertEval("argv <- list(structure(list(inner = integer(0), outer = integer(0)), .Names = c(\'inner\', \'outer\')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist38() {
+ assertEval("argv <- list(structure(c(\'mode\', \'length\', \'x\', \'mode\', \'x\', \'mode\'), .Dim = 2:3), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist39() {
+ assertEval("argv <- list(list(structure(list(b = structure(2L, .Label = c(\'C\', \'D\'), class = \'factor\')), .Names = \'b\', row.names = 2L, class = \'data.frame\'), structure(list(a = structure(NA_real_, class = c(\'POSIXct\', \'POSIXt\'))), .Names = \'a\', row.names = \'NA\', class = \'data.frame\')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist40() {
+ assertEval("argv <- list(list(structure(list(structure(c(\'0.007239522\', \'0.014584634\', \'0.014207936\', \'0.018442267\', \'0.011128505\', \'0.019910082\', \'0.027072311\', \'0.034140379\', \'0.028320657\', \'0.037525507\'), class = \'AsIs\')), row.names = c(NA, -10L), class = \'data.frame\'), structure(list(structure(c(\' 1\', \' 6\', \' 7\', \' 8\', \'13\', \'14\', \'15\', \'20\', \'21\', \'22\'), class = \'AsIs\')), row.names = c(NA, -10L), class = \'data.frame\'), structure(list(structure(c(\' 16\', \' 16\', \'144\', \' 16\', \' 16\', \'128\', \' 16\', \' 16\', \'112\', \' 16\'), .Dim = 10L, .Dimnames = structure(list(c(\'1\', \'6\', \'7\', \'8\', \'13\', \'14\', \'15\', \'20\', \'21\', \'22\')), .Names = \'\'))), row.names = c(\'1\', \'6\', \'7\', \'8\', \'13\', \'14\', \'15\', \'20\', \'21\', \'22\'), class = \'data.frame\')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist41() {
+ assertEval("argv <- list(structure(list(N = 84L, ZXrows = 18, ZXcols = 5, Q = 1L, StrRows = 18, qvec = structure(c(1, 0, 0), .Names = c(\'Seed\', \'\', \'\')), ngrps = structure(c(14L, 1L, 1L), .Names = c(\'Seed\', \'X\', \'y\')), DmOff = structure(c(0, 1, 10), .Names = c(\'\', \'Seed\', \'\')), ncol = structure(c(1, 3, 1), .Names = c(\'Seed\', \'\', \'\')), nrot = structure(c(4, 1, 0), .Names = c(\'\', \'\', \'\')), ZXoff = structure(list(Seed = c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13), X = structure(18, .Names = \'Seed\'), y = structure(72, .Names = \'\')), .Names = c(\'Seed\', \'X\', \'y\')), ZXlen = structure(list(Seed = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5), X = 18, y = 18), .Names = c(\'Seed\', \'X\', \'y\')), SToff = structure(list(Seed = c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13), X = structure(32, .Names = \'Seed\'), y = structure(89, .Names = \'\')), .Names = c(\'Seed\', \'X\', \'y\')), DecOff = structure(list(Seed = c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13), X = structure(18, .Names = \'Seed\'), y = structure(72, .Names = \'\')), .Names = c(\'Seed\', \'X\', \'y\')), DecLen = structure(list( Seed = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5), X = 18, y = 18), .Names = c(\'Seed\', \'X\', \'y\'))), .Names = c(\'N\', \'ZXrows\', \'ZXcols\', \'Q\', \'StrRows\', \'qvec\', \'ngrps\', \'DmOff\', \'ncol\', \'nrot\', \'ZXoff\', \'ZXlen\', \'SToff\', \'DecOff\', \'DecLen\')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist42() {
+ assertEval("argv <- list(structure(list(structure(\'\\n\', Rd_tag = \'RCODE\'), structure(\'Sys.timezone()\\n\', Rd_tag = \'RCODE\'), structure(\'\\n\', Rd_tag = \'RCODE\'), structure(\'#ifdef windows not active\', Rd_tag = \'COMMENT\'), structure(list(structure(\'\\n\', Rd_tag = \'VERB\'), structure(\'## need to supply a suitable file path (if any) for your system\\n\', Rd_tag = \'VERB\'), structure(\'tzfile <- \\\'/usr/share/zoneinfo/zone.tab\\\'\\n\', Rd_tag = \'VERB\'), structure(\'tzones <- read.delim(tzfile, row.names = NULL, header = FALSE,\\n\', Rd_tag = \'VERB\'), structure(\' col.names = c(\\\'country\\\', \\\'coords\\\', \\\'name\\\', \\\'comments\\\'),\\n\', Rd_tag = \'VERB\'), structure(\' as.is = TRUE, fill = TRUE, comment.char = \\\'#\\\')\\n\', Rd_tag = \'VERB\'), structure(\'str(tzones$name)\\n\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\dontrun\'), structure(\'\\n\', Rd_tag = \'RCODE\')), Rd_tag = \'\\\\examples\'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist43() {
+ assertEval("argv <- list(structure(list(`1` = 8.91763605923317e+38), .Names = \'1\'), FALSE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist44() {
+ assertEval("argv <- list(list(c(0, 0), c(0, 0, 0, 1), NULL, c(1, 1)), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist45() {
+ assertEval("argv <- list(list(structure(list(structure(c(\'McNeil\', \'Ripley\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'AsIs\')), row.names = c(NA, -6L), class = \'data.frame\'), structure(list(structure(c(\'Australia\', \'UK\', \'UK\', \'US\', \'US\', \'Australia\'), class = \'AsIs\')), row.names = c(NA, -6L), class = \'data.frame\'), structure(list(structure(c(\'no\', \'no\', \'no\', \'no\', \'yes\', \'no\'), class = \'AsIs\')), row.names = c(NA, -6L), class = \'data.frame\'), structure(list(structure(c(\'Interactive Data Analysis\', \'Spatial Statistics\', \'Stochastic Simulation\', \'LISP-STAT\', \'Exploratory Data Analysis\', \'Modern Applied Statistics ...\'), class = \'AsIs\')), row.names = c(NA, -6L), class = \'data.frame\'), structure(list(structure(c(NA, NA, NA, NA, NA, \'Ripley\'), class = \'AsIs\')), row.names = c(NA, -6L), class = \'data.frame\')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist46() {
+ assertEval("argv <- list(list(structure(list(surname = structure(c(4L, 5L, 3L, 2L, 2L, 1L, 6L), .Label = c(\'McNeil\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\', \'R Core\'), class = \'factor\'), nationality = structure(c(3L, 1L, 3L, 2L, 2L, 1L, NA), .Label = c(\'Australia\', \'UK\', \'US\'), class = \'factor\'), deceased = structure(c(2L, 1L, 1L, 1L, 1L, 1L, NA), .Label = c(\'no\', \'yes\'), class = \'factor\')), .Names = c(\'surname\', \'nationality\', \'deceased\'), row.names = c(\'1\', \'2\', \'3\', \'4\', \'4.1\', \'5\', \'7\'), class = \'data.frame\'), structure(list(title = structure(c(2L, 5L, 4L, 6L, 7L, 3L, 1L), .Label = c(\'An Introduction to R\', \'Exploratory Data Analysis\', \'Interactive Data Analysis\', \'LISP-STAT\', \'Modern Applied Statistics ...\', \'Spatial Statistics\', \'Stochastic Simulation\'), class = \'factor\'), other.author = structure(c(NA, 1L, NA, NA, NA, NA, 2L), .Label = c(\'Ripley\', \'Venables & Smith\'), class = \'factor\')), .Names = c(\'title\', \'other.author\'), row.names = c(NA, 7L), class = \'data.frame\')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist47() {
+ assertEval("argv <- list(list(structure(list(structure(\'DateTimeClasses\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'POSIXct\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'POSIXlt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'POSIXt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'print.POSIXct\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'print.POSIXlt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'summary.POSIXct\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'summary.POSIXlt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'+.POSIXt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'-.POSIXt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'Ops.POSIXt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'Math.POSIXt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'Summary.POSIXct\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'Math.POSIXlt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'Summary.POSIXlt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'[.POSIXct\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'[<-.POSIXct\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'[[.POSIXct\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'[.POSIXlt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'[<-.POSIXlt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'as.data.frame.POSIXct\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'as.data.frame.POSIXlt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'as.list.POSIXct\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'.leap.seconds\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'is.na.POSIXlt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'c.POSIXct\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'c.POSIXlt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list( structure(\'as.matrix.POSIXlt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'length.POSIXlt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'mean.POSIXct\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'mean.POSIXlt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'str.POSIXt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'check_tzones\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'duplicated.POSIXlt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'unique.POSIXlt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'split.POSIXct\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'names.POSIXlt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'names<-.POSIXlt\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\'), structure(list(structure(\'date-time\', Rd_tag = \'VERB\')), Rd_tag = \'\\\\alias\')), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist48() {
+ assertEval("argv <- list(structure(list(c(3L, 0L, 0L)), class = \'numeric_version\'), TRUE, TRUE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testunlist49() {
+ assertEval("argv <- list(list(structure(list(x = 1L, y = structure(1L, .Label = c(\'A\', \'D\', \'E\'), class = \'factor\'), z = 6), .Names = c(\'x\', \'y\', \'z\'), row.names = 1L, class = \'data.frame\'), structure(list(), .Names = character(0), row.names = 1L, class = \'data.frame\')), FALSE, FALSE); .Internal(unlist(argv[[1]], argv[[2]], argv[[3]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinutf8ToInt.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinutf8ToInt.java
new file mode 100644
index 0000000000000000000000000000000000000000..ef771cafb9fff20e8e708056fc67fc995d3820be
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinutf8ToInt.java
@@ -0,0 +1,24 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinutf8ToInt extends TestBase {
+
+ @Test
+ @Ignore
+ public void testutf8ToInt1() {
+ assertEval("argv <- list(\'lasy\'); .Internal(utf8ToInt(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinvector.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinvector.java
new file mode 100644
index 0000000000000000000000000000000000000000..f861dc47d6cde2e91a76a6f28109b6f27513fb64
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinvector.java
@@ -0,0 +1,55 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinvector extends TestBase {
+
+ @Test
+ public void testvector1() {
+ assertEval("argv <- list(\'integer\', 0L); .Internal(vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testvector2() {
+ assertEval("argv <- list(\'double\', 17.1); .Internal(vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testvector3() {
+ assertEval("argv <- list(\'list\', 1L); .Internal(vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testvector4() {
+ assertEval("argv <- list(\'logical\', 15L); .Internal(vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ public void testvector5() {
+ assertEval("argv <- list(\'double\', 2); .Internal(vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testvector9() {
+ assertEval("argv <- list(\'raw\', 0L); .Internal(vector(argv[[1]], argv[[2]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testvector10() {
+ assertEval("argv <- list(\'list\', structure(1L, .Names = \'\\\\c\')); .Internal(vector(argv[[1]], argv[[2]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinwhich.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinwhich.java
new file mode 100644
index 0000000000000000000000000000000000000000..ab1187369c2dd2464d68dd3dddfc1b5153a15eec
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinwhich.java
@@ -0,0 +1,65 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinwhich extends TestBase {
+
+ @Test
+ public void testwhich1() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE)); .Internal(which(argv[[1]]))");
+ }
+
+ @Test
+ public void testwhich2() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L), .Dimnames = list(c(\'A\', \'B\'), c(\'A\', \'B\')))); .Internal(which(argv[[1]]))");
+ }
+
+ @Test
+ public void testwhich3() {
+ assertEval("argv <- list(c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE)); .Internal(which(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testwhich4() {
+ assertEval("argv <- list(structure(TRUE, .Names = \'V1\')); .Internal(which(argv[[1]]))");
+ }
+
+ @Test
+ public void testwhich5() {
+ assertEval("argv <- list(logical(0)); .Internal(which(argv[[1]]))");
+ }
+
+ @Test
+ public void testwhich6() {
+ assertEval("argv <- list(structure(c(TRUE, TRUE, TRUE, TRUE), .Dim = c(2L, 2L))); .Internal(which(argv[[1]]))");
+ }
+
+ @Test
+ public void testwhich7() {
+ assertEval("argv <- list(c(FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE)); .Internal(which(argv[[1]]))");
+ }
+
+ @Test
+ public void testwhich8() {
+ assertEval("argv <- list(structure(c(FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE), .Dim = 12L)); .Internal(which(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testwhich9() {
+ assertEval("argv <- list(structure(FALSE, .Names = \'signature-class.Rd\')); .Internal(which(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinwhichmax.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinwhichmax.java
new file mode 100644
index 0000000000000000000000000000000000000000..8a61bc3b6caaac520ee22f72d75ebaa5da7d5997
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinwhichmax.java
@@ -0,0 +1,52 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinwhichmax extends TestBase {
+
+ @Test
+ public void testwhichmax1() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE), .Dim = 4:5, .Dimnames = list(c(\'I(a)\', \'b\', \'c\', \'a\'), c(\'I(a)\', \'b\', \'c\', \'b:c\', \'a:x\')))); .Internal(which.max(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testwhichmax2() {
+ assertEval("argv <- list(structure(c(TRUE, FALSE), .Names = c(\'d\', \'I(as.numeric(d)^2)\'))); .Internal(which.max(argv[[1]]))");
+ }
+
+ @Test
+ public void testwhichmax3() {
+ assertEval("argv <- list(c(7985.84636551931, 7366.07281363396, 7342.71367123673, 7315.48787041648, 7290.90503004105)); .Internal(which.max(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testwhichmax4() {
+ assertEval("argv <- list(structure(c(NA, 87, 82, 75, 63, 50, 43, 32, 35, 60, 54, 55, 36, 39, NA, NA, 69, 57, 57, 51, 45, 37, 46, 39, 36, 24, 32, 23, 25, 32, NA, 32, 59, 74, 75, 60, 71, 61, 71, 57, 71, 68, 79, 73, 76, 71, 67, 75, 79, 62, 63, 57, 60, 49, 48, 52, 57, 62, 61, 66, 71, 62, 61, 57, 72, 83, 71, 78, 79, 71, 62, 74, 76, 64, 62, 57, 80, 73, 69, 69, 71, 64, 69, 62, 63, 46, 56, 44, 44, 52, 38, 46, 36, 49, 35, 44, 59, 65, 65, 56, 66, 53, 61, 52, 51, 48, 54, 49, 49, 61, NA, NA, 68, 44, 40, 27, 28, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = \'ts\')); .Internal(which.max(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testwhichmax5() {
+ assertEval("argv <- list(NULL); .Internal(which.max(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testwhichmax6() {
+ assertEval("argv <- list(list()); .Internal(which.max(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinwhichmin.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinwhichmin.java
new file mode 100644
index 0000000000000000000000000000000000000000..b9af5a0d8300bc13a06d8e7b20fc279bd7bf5121
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinwhichmin.java
@@ -0,0 +1,54 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinwhichmin extends TestBase {
+
+ @Test
+ @Ignore
+ public void testwhichmin1() {
+ assertEval("argv <- list(structure(c(345595, 172795, 69115, 34555, 23035, 11515, 5755, 2875, 1147, 571, 379, 187, 91, 27, 11, 3, 1, 3, 4.42857142857143, 4.73716632443532, 4.86858316221766, 4.95619438740589, 4.97809719370294, 4.98904859685147, 4.99452429842574, 4.99780971937029, 4.99890485968515, 4.99945242984257, 4.99978097193703, 4.99989048596851, 4.99994524298426, 4.9999780971937, 4.99998904859685), .Names = c(\'1 sec\', \'2 secs\', \'5 secs\', \'10 secs\', \'15 secs\', \'30 secs\', \'1 min\', \'2 mins\', \'5 mins\', \'10 mins\', \'15 mins\', \'30 mins\', \'1 hour\', \'3 hours\', \'6 hours\', \'12 hours\', \'1 DSTday\', \'2 DSTdays\', \'1 week\', \'halfmonth\', \'1 month\', \'3 months\', \'6 months\', \'1 year\', \'2 years\', \'5 years\', \'10 years\', \'20 years\', \'50 years\', \'100 years\', \'200 years\', \'500 years\', \'1000 years\'))); .Internal(which.min(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testwhichmin2() {
+ assertEval("argv <- list(structure(c(295, 145, 55, 25, 15, 5, 0, 2.5, 4, 4.5, 4.66666666666667, 4.83333333333333, 4.91666666666667, 4.97222222222222, 4.98611111111111, 4.99305555555556, 4.99652777777778, 4.99826388888889, 4.99950396825397, 4.99977184576774, 4.99988592288387, 4.99996197429462, 4.99998098714731, 4.99999049357366, 4.99999524678683, 4.99999809871473, 4.99999904935737, 4.99999952467868, 4.99999980987147, 4.99999990493574, 4.99999995246787, 4.99999998098715, 4.99999999049357), .Names = c(\'1 sec\', \'2 secs\', \'5 secs\', \'10 secs\', \'15 secs\', \'30 secs\', \'1 min\', \'2 mins\', \'5 mins\', \'10 mins\', \'15 mins\', \'30 mins\', \'1 hour\', \'3 hours\', \'6 hours\', \'12 hours\', \'1 DSTday\', \'2 DSTdays\', \'1 week\', \'halfmonth\', \'1 month\', \'3 months\', \'6 months\', \'1 year\', \'2 years\', \'5 years\', \'10 years\', \'20 years\', \'50 years\', \'100 years\', \'200 years\', \'500 years\', \'1000 years\'))); .Internal(which.min(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testwhichmin3() {
+ assertEval("argv <- list(NULL); .Internal(which.min(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testwhichmin4() {
+ assertEval("argv <- list(list()); .Internal(which.min(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testwhichmin5() {
+ assertEval("argv <- list(c(NA, 0.951840581382975, 0.805577027554469, 0.663985017923499, 0.53717416750558, 0.496765449963868, 0.472038350505409, 0.463306413812878, 0.485896454097402, 0.520777596351646, 0.524391122960607, 0.492063804965834, 0.513821989320989, 0.521702559081969, 0.533525525673351)); .Internal(which.min(argv[[1]]))");
+ }
+
+ @Test
+ @Ignore
+ public void testwhichmin6() {
+ assertEval("argv <- list(structure(c(NA, 87, 82, 75, 63, 50, 43, 32, 35, 60, 54, 55, 36, 39, NA, NA, 69, 57, 57, 51, 45, 37, 46, 39, 36, 24, 32, 23, 25, 32, NA, 32, 59, 74, 75, 60, 71, 61, 71, 57, 71, 68, 79, 73, 76, 71, 67, 75, 79, 62, 63, 57, 60, 49, 48, 52, 57, 62, 61, 66, 71, 62, 61, 57, 72, 83, 71, 78, 79, 71, 62, 74, 76, 64, 62, 57, 80, 73, 69, 69, 71, 64, 69, 62, 63, 46, 56, 44, 44, 52, 38, 46, 36, 49, 35, 44, 59, 65, 65, 56, 66, 53, 61, 52, 51, 48, 54, 49, 49, 61, NA, NA, 68, 44, 40, 27, 28, 25, 24, 24), .Tsp = c(1945, 1974.75, 4), class = \'ts\')); .Internal(which.min(argv[[1]]))");
+ }
+}
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinxtfrm.java b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinxtfrm.java
new file mode 100644
index 0000000000000000000000000000000000000000..a4092b7496c11d8102b2f4a4b77c7ea8fc9dea57
--- /dev/null
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinxtfrm.java
@@ -0,0 +1,96 @@
+/*
+ * This material is distributed under the GNU General Public License
+ * Version 2. You may review the terms of this license at
+ * http://www.gnu.org/licenses/gpl-2.0.html
+ *
+ * Copyright (c) 2014, Purdue University
+ * Copyright (c) 2014, Oracle and/or its affiliates
+ *
+ * All rights reserved.
+ */
+package com.oracle.truffle.r.test.testrgen;
+
+import org.junit.*;
+
+import com.oracle.truffle.r.test.*;
+
+public class TestrGenBuiltinxtfrm extends TestBase {
+
+ @Test
+ @Ignore
+ public void testxtfrm1() {
+ assertEval("argv <- list(structure(c(4L, 5L, 3L, 2L, 1L), .Label = c(\'McNeil\', \'Ripley\', \'Tierney\', \'Tukey\', \'Venables\'), class = \'factor\'));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testxtfrm2() {
+ assertEval("argv <- list(structure(c(\'Tukey\', \'Venables\', \'Tierney\', \'Ripley\', \'Ripley\', \'McNeil\', \'R Core\'), class = \'AsIs\'));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testxtfrm3() {
+ assertEval("argv <- list(c(\'9\', \'9\', \'8\', \'7\', \'6\', \'5\', \'4\', \'3\', \'2\', \'1\'));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testxtfrm4() {
+ assertEval("argv <- list(list());xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testxtfrm5() {
+ assertEval("argv <- list(NULL);xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testxtfrm6() {
+ assertEval("argv <- list(structure(c(11354, 11382, 11413), class = \'Date\'));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testxtfrm7() {
+ assertEval("argv <- list(structure(1:3, id = \'An Example\', class = structure(\'numWithId\', package = \'.GlobalEnv\')));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testxtfrm8() {
+ assertEval("argv <- list(structure(1:48, .Label = c(\'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'10\', \'11\', \'12\', \'13\', \'14\', \'15\', \'16\', \'17\', \'18\', \'19\', \'20\', \'21\', \'22\', \'23\', \'24\', \'25\', \'26\', \'27\', \'28\', \'29\', \'30\', \'31\', \'32\', \'33\', \'34\', \'35\', \'36\', \'37\', \'38\', \'39\', \'40\', \'41\', \'42\', \'43\', \'44\', \'45\', \'46\', \'47\', \'48\'), class = \'factor\'));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testxtfrm9() {
+ assertEval("argv <- list(structure(c(0.00318983494910604, -0.0111499005186203, -0.00684577108225438, -0.0259425874127965, 0.0236273472621072, 0.0160653568112268, 0.0169512728197135, -0.0108668370208327, 0.0075620519889718, 0.000382355180538597, 0.0147085004994818, -0.0237528559595188, -0.00450253418485462, -0.00933970368616398, -0.00295998622541489, -0.0142621134100646, 0.0149334478604598, 0.0102146485133766, 0.00423575454949581, -0.00284331639280456, 0.0113535382887161, -0.00395897382574548, -0.00413390950862867, -0.0165713012838917, -0.018012405938438, 0.00225076128639717, 0.00786949110453678, 0.00890171601854386, 0.0241231688586559, 0.0104325796748375, 0.0267124035293778, -0.0242586202225146, 0.011564413201586, -0.00791916545648325, -0.020000071186273, -0.0160024870044187, 0.00243365269147765, 0.000371702019451462, 0.00543854321166064), .Names = c(\'1962.25\', \'1962.5\', \'1962.75\', \'1963\', \'1963.25\', \'1963.5\', \'1963.75\', \'1964\', \'1964.25\', \'1964.5\', \'1964.75\', \'1965\', \'1965.25\', \'1965.5\', \'1965.75\', \'1966\', \'1966.25\', \'1966.5\', \'1966.75\', \'1967\', \'1967.25\', \'1967.5\', \'1967.75\', \'1968\', \'1968.25\', \'1968.5\', \'1968.75\', \'1969\', \'1969.25\', \'1969.5\', \'1969.75\', \'1970\', \'1970.25\', \'1970.5\', \'1970.75\', \'1971\', \'1971.25\', \'1971.5\', \'1971.75\')));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testxtfrm10() {
+ assertEval("argv <- list(structure(c(-0.00456054471709705, -0.0386783362736307, -0.0164476694679408, -0.191054486056936, -0.648560736432306, -0.0674820314025517, -0.0740415039370447, -0.0243389397466521, -0.00751319716764208, -2.290078352999e-05, -0.0207911295071267, -0.0697881087827301, -0.00348607275095251, -0.00951045408299201, -0.00166106374745221, -0.0259659490166321, -0.0293880116898911, -0.0140288480262381, -0.0027358575950958, -0.000491817024731849, -0.00823790481253382, -0.00148071888751321, -0.00122448210109329, -0.0168483392795904, -0.0206872529040578, -0.000471241810355829, -0.00239800266383851, -0.00875711097940079, -0.0461679706262251, -0.0100810672498937, -0.0758745277496017, -0.0537304828043233, -0.0171367489531612, -0.01057973675541, -0.0676085282986778, -0.069201293818924, -0.00065957876422003, -1.97617272327839e-05, -0.00439039022584134), .Names = c(\'1962.25\', \'1962.5\', \'1962.75\', \'1963\', \'1963.25\', \'1963.5\', \'1963.75\', \'1964\', \'1964.25\', \'1964.5\', \'1964.75\', \'1965\', \'1965.25\', \'1965.5\', \'1965.75\', \'1966\', \'1966.25\', \'1966.5\', \'1966.75\', \'1967\', \'1967.25\', \'1967.5\', \'1967.75\', \'1968\', \'1968.25\', \'1968.5\', \'1968.75\', \'1969\', \'1969.25\', \'1969.5\', \'1969.75\', \'1970\', \'1970.25\', \'1970.5\', \'1970.75\', \'1971\', \'1971.25\', \'1971.5\', \'1971.75\')));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testxtfrm11() {
+ assertEval("argv <- list(structure(list(c(2L, 10L, 0L), c(2L, 10L, 1L), c(2L, 10L, 1L, 1L), c(2L, 11L, 0L), c(2L, 11L, 1L), c(2L, 11L, 1L, 1L), c(2L, 12L, 0L), c(2L, 12L, 1L), c(2L, 12L, 2L), c(2L, 12L, 2L, 1L), c(2L, 13L, 0L), c(2L, 13L, 1L), c(2L, 13L, 2L), c(2L, 14L, 0L), c(2L, 14L, 1L), c(2L, 14L, 2L), c(2L, 15L, 0L), c(2L, 15L, 1L), c(2L, 15L, 2L), c(2L, 15L, 3L), c(3L, 0L, 0L), c(3L, 0L, 1L)), class = \'numeric_version\'));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testxtfrm12() {
+ assertEval("argv <- list(structure(list(c(2L, 11L, 0L)), class = \'numeric_version\'));xtfrm(argv[[1]]);");
+ }
+
+ @Test
+ @Ignore
+ public void testxtfrm13() {
+ assertEval("argv <- list(structure(c(607L, 30L, 3L, 11L, 44L, 67L, 17L, 16L, 67L, 6L, 1L, 13L, 672L, 46L, 8L, 18L, 10L, 22L, 16L, 5L, 55L, 2L), .Dim = 22L, .Dimnames = structure(list(c(\'BUG FIXES\', \'C-LEVEL FACILITIES\', \'CODE MIGRATION\', \'COMPRESSION\', \'DEPRECATED & DEFUNCT\', \'DEPRECATED AND DEFUNCT\', \'GRAPHICS DEVICES\', \'HELP & Rd FILE CHANGES\', \'INSTALLATION\', \'INTERNATIONALIZATION\', \'LICENCE\', \'LONG VECTORS\', \'NEW FEATURES\', \'PACKAGE INSTALLATION\', \'PACKAGE parallel\', \'PERFORMANCE IMPROVEMENTS\', \'REGULAR EXPRESSIONS\', \'SIGNIFICANT USER-VISIBLE CHANGES\', \'SWEAVE & VIGNETTES\', \'SWEAVE CHANGES\', \'UTILITIES\', \'WINDOWS-SPECIFIC CHANGES\')), .Names = \'\'), class = \'table\'));xtfrm(argv[[1]]);");
+ }
+}
diff --git a/mx.fastr/copyrights/overrides b/mx.fastr/copyrights/overrides
index 14f40298e0abd70eb4488e0a71ec5c1c913c98db..73fdc86d11294eba7edf5aea3b2de27dc18e08d4 100644
--- a/mx.fastr/copyrights/overrides
+++ b/mx.fastr/copyrights/overrides
@@ -137,3 +137,309 @@ com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/simple/TestSimpleTruffle
com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/simple/TestSimpleVectors.java,purdue.copyright
com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/simple/data/tree2/incx.r,no.copyright
com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/simple/data/tree2/setx.r,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinArg.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinConj.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinDate2POSIXlt.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinEncoding.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinIm.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinLa.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinMod.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinPOSIXlt2Date.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinPrimitive.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinRe.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSyschmod.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSysgetenv.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSysglob.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSysreadlink.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSyssetenv.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSyssetlocale.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSyssleep.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinSysunsetenv.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinabbreviate.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinabs.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinacos.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinacosh.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinadist.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinagrep.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinall.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinallnames.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinany.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinanyDuplicated.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinaperm.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinaregexec.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinargs.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinarray.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasPOSIXct.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasPOSIXlt.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinascall.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinascharacter.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinascomplex.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasdouble.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasin.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasinh.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasinteger.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinaslogical.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasraw.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinasvector.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinatan.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinatan2.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinatanh.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinattr.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinattrassign.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinattributes.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinattributesassign.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbacksolve.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbasename.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbcVersion.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbesselI.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbesselJ.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbesselK.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbesselY.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbeta.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbincode.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbindtextdomain.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseAnd.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseNot.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseOr.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseShiftR.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbitwiseXor.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinbody.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinc.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincache.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincat.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinceiling.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincharToRaw.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincharmatch.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinchartr.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinchoose.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinclass.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinclassassign.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinclearPushBack.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincol.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincolMeans.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincolSums.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincomment.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincommentassign.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincomplex.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincopyDFattr.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincos.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincosh.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincrossprod.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincummax.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincummin.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincumprod.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltincumsum.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindeparse.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindet.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindfltWarn.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindiag.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindigamma.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindim.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindimassign.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindimnames.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindimnamesassign.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindircreate.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindirname.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindoTrace.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindput.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltindrop.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinduplicated.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenc2native.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenc2utf8.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinencodeString.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenvironment.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenvironmentName.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinenvironmentassign.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinexp.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinexpm1.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfileaccess.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfilecreate.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfileexists.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfileinfo.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfilepath.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfileremove.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfilerename.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfindInterval.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinfloor.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinflush.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformals.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformat.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformatC.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformatPOSIXlt.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinformatinfo.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuilting.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingamma.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingcinfo.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingctorture2.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingetConnection.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingetRestart.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingetSymbolInfo.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingetconst.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingettext.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingregexpr.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingrep.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingrepl.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingrowconst.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltingsub.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltiniconv.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinicuSetCollate.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinidentical.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltininherits.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinintToBits.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinintToUtf8.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltininvisible.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisNamespaceEnv.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisOpen.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisS4.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisarray.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisatomic.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltiniscall.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinischaracter.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltiniscomplex.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisdouble.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisenvironment.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisexpression.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisfinite.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisfunction.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisinfinite.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisinteger.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinislanguage.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinislist.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinislistfactor.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisloaded.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinislogical.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinismatrix.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisna.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisnan.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisnull.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisnumeric.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisobject.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinispairlist.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisraw.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisrecursive.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinissymbol.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisunsorted.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinisvector.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlazyLoadDBflush.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlbeta.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlchoose.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlength.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlengthassign.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlevelsassign.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlgamma.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlist.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlistdirs.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlistfiles.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlog10.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlog1p.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinlog2.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmakenames.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmakeunique.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmapply.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmatch.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmatrix.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmax.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmaxcol.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmean.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmerge.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinmin.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnames.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnamesassign.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnargs.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnchar.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinngettext.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnormalizePath.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinnzchar.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinoldClass.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinoldClassassign.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinoperators.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinoptions.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinorder.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpaste.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpaste0.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpathexpand.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpmatch.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpmax.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpmin.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpolyroot.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpretty.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprimUntrace.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprintDeferredWarnings.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprintdefault.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprintfunction.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprmatrix.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinprod.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpsigamma.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpsort.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinpushBackLength.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinputconst.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinqr.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinqsort.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinradixsort.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrange.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrank.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinregexec.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinregexpr.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrep.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrepint.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinretracemem.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrow.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrowMeans.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrowSums.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinrowsum.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsample.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsep.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinseq.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinseqint.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetEncoding.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetS4Object.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetSessionTimeLimit.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetTimeLimit.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinseterrmessage.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsetseed.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinshortRowNames.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsign.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsin.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsinh.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsink.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsinknumber.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsort.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsplit.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsprintf.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsqrt.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstderr.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstdin.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstoragemodeassign.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstrptime.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstrsplit.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstrtoi.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinstrtrim.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsub.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsubset.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsubset2.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsubstr.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsubstrassign.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsum.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsummaryconnection.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsysonexit.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinsysparent.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintabulate.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintan.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintanh.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintcrossprod.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintdefault.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintolower.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintoupper.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintrigamma.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintrunc.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltintypeof.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinunclass.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinunique.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinunlink.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinunlist.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinutf8ToInt.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinvector.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinwhich.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinwhichmax.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinwhichmin.java,no.copyright
+com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/testrgen/TestrGenBuiltinxtfrm.java,no.copyright
diff --git a/mx.fastr/mx_fastr.py b/mx.fastr/mx_fastr.py
index 36dad1dc2edbd3a780b90205f2e8690d5902b53d..d400e206036bb55b9e67853e992d6b1d61e29a14 100644
--- a/mx.fastr/mx_fastr.py
+++ b/mx.fastr/mx_fastr.py
@@ -110,10 +110,10 @@ def _fastr_gate_body(args, tasks):
# check that the expected test output file is up to date
t = mx.GateTask('UnitTests: ExpectedTestOutput file check')
- junit(['--tests', _default_unit_tests(), '--check-expected-output'])
+ junit(['--tests', _simple_unit_tests(), '--check-expected-output'])
tasks.append(t.stop())
t = mx.GateTask('UnitTests: simple')
- rc = junit(['--tests', _default_unit_tests()])
+ rc = junit(['--tests', _simple_unit_tests()])
if rc != 0:
mx.abort('unit tests failed')
tasks.append(t.stop())
@@ -236,15 +236,24 @@ def junit(args):
return mx.junit(args, _junit_r_harness, parser=parser)
def junit_simple(args):
- return junit(['--tests', _default_unit_tests()] + args)
+ return junit(['--tests', _simple_unit_tests()] + args)
-def _default_unit_tests():
+def junit_default(args):
+ return junit(['--tests', _all_unit_tests()] + args)
+
+def _simple_unit_tests():
return 'com.oracle.truffle.r.test.simple'
+def _testgen_unit_tests():
+ return 'com.oracle.truffle.r.test.testrgen'
+
+def _all_unit_tests():
+ return _simple_unit_tests() + ',' + _testgen_unit_tests()
+
def testgen(args):
'''generate the expected output for unit tests, and All/Failing test classes'''
parser = ArgumentParser(prog='r testgen')
- parser.add_argument('--tests', action='store', default=_default_unit_tests(), help='pattern to match test classes')
+ parser.add_argument('--tests', action='store', default=_all_unit_tests(), help='pattern to match test classes')
args = parser.parse_args(args)
# clean the test project to invoke the test analyzer AP
testOnly = ['--projects', 'com.oracle.truffle.r.test']
@@ -341,6 +350,7 @@ def mx_init(suite):
'gate' : [gate, ''],
'junit' : [junit, ['options']],
'junitsimple' : [junit_simple, ['options']],
+ 'junitdefault' : [junit_default, ['options']],
'unittest' : [unittest, ['options']],
'rbcheck' : [rbcheck, ['options']],
'rcmplib' : [rcmplib, ['options']],