R version 3.6.3 (2020-02-29) -- "Holding the Windsock" Copyright (C) 2020 The R Foundation for Statistical Computing Platform: x86_64-pc-linux-gnu (64-bit) R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > source('/home/pw/wessanet/cretab') > > > > myrfcuid = '' > > y <- c(13.6402425130708,19.325194499493,18.1960956532842,26.731111662798,34.0550781033943,32.1034368181463,36.525740632464,54.3090474602526,56.5763507885267,59.4810486267574,57.4595974666094,66.8019798554015,80.0324687549287,78.3661373931851,92.2370560146211,97.1176768337172,100.155923997844,85.5474488720292,91.6209079883297,95.2995848743648,97.1753458608085,105.167058930883,101.788868028113,89.1077524919295,81.8262790186637,78.2811514585242,86.7797449246119,91.0806402608427,95.6789863683866,99.5731633030261,84.533688080003,77.9472781437851,86.2667941046945,79.0308488107112,88.9226045628469,101.470170773135,101.879924386678,96.522775291091,82.2542439039202,70.3349665677322,74.8908197079457,84.51547680829,89.5539286488991,103.8649530034,84.9920050847813,74.3687632521717,71.0300301047801,74.5539111812543,76.326474961324,84.3515753628726,81.5925676983462,75.786207233837,57.2319565701963,59.0318372578356,69.0692831836756,63.639289001236,82.9007440497333,76.7756863302458,72.8997206673194,54.9950053614439,66.8201911271145,63.8365777781273,71.3547977836627,77.8987147525503,71.1392977350584,64.3404229621882,61.0502532060314,55.6020477518788,59.265548578153,56.424590190918,69.652043878493,73.9134814593456,72.3715937876411,58.2001891829399,52.7034203375524,64.8746202657709,60.6374643805357,65.9824726283144,76.3932496242719,66.2829586115797,53.9903502052743,53.201195097709,55.762913985344,63.2113241159794,70.4381637741061,75.488756462524,76.6846299716806,58.813301997279,60.4765981470705,72.2289388258889,78.6393064688808,85.5686953556944,95.0780144018561,97.9037967293303,79.2463488593156,92.5345067859341,108.651482251979,104.59036865997,123.096055932376,137.56491130839,128.565507870194,119.447731165863,123.499739122015,140.14787667969,155.779218233387,167.303918015793,159.536810630179,138.854876388064,151.708999005522,135.522213664577,182.604421466703,179.629913753572,192.059106697725,205.538482977331,182.616562314512,178.777019195011,180.537442127272,203.28939092077,205.265313901635,234.858630435333,218.599000007536,190.499007754308,186.03421097266,188.204387518464,195.604234257865,216.480422064919,209.702793775714,221.925592307119,201.786961004444,166.478340364801,171.771750009393,199.780685904057,216.492562912728,205.848074596453,203.823588224353,175.76001851455,143.66568733226,136.120150419155,174.451842163163,162.86036771781,181.053428159142,177.095511773507,169.061305736102,139.999151294034,151.0503580119,142.390898312347,173.040468605402,157.812810241344,196.062551262643,143.950997255765,125.700267787341,109.082482349188,137.686319786477,143.686933815926,133.804283699646,146.367025969695,134.808938855816,104.496277089453,114.904018873458,116.042223355523,136.86681255939,139.258559577703,140.260179521921,139.704735734673,107.331165052783,104.75730531734,129.099705173776,123.178006655085,133.264015972159,152.103576559305,133.834635819168,94.5407818863213,73.0393404171194,81.152461965281,101.852607479109,110.357271369101,144.266659298791,124.610626696511,105.312749104587,103.057586624122,118.986378949132,117.034737663884,135.795382740273,147.887667157735,133.770896368173,109.983940298984,159.242395070818,118.345949227223,116.694793925241,134.007642900442,153.5635135083,136.220312413577,110.548489722088,101.130227034491,127.840092213624,125.709373423198,135.88947431079,165.531354235723,151.954851173648,107.649862307762,120.05780876825,127.336247029563,152.792569672448,170.666932858802,174.354715380693,165.850051490701,135.431157306012,126.486387682955,159.196866891536,180.704378784642,193.209452027599,209.930434672127,174.667342211767,146.367025969695,177.241201947211,183.190217373472,190.538465509686,217.627732182841,254.189895358731,254.138296755544,184.562133175855,202.746087981331,223.488726462489,237.833138148464,268.67999721841,301.460286301891) > x <- c(3.13268334113438,3.23680175944288,2.88201788002659,2.84782400562102,2.71810149609755,2.44065988251605,2.23863300087288,2.19514358951984,2.07242710819333,1.97638531045049,1.8236525166409,1.72029114049977,1.70546130097739,1.65189829656141,1.58557088082452,1.53894154228052,1.49890695043382,1.43296771300372,1.37572106858207,1.31423896028701,1.27620068211179,1.23719073110979,1.19271666481855,1.13273494034869,1.10008117322411,1.06044449130108,1.03677437952325,1.02239801876862,1.00505120394206,1.00228622950044,0.996280565089463,0.991838295278499,1.00731273460677,0.994311104170129,0.991710369994506,1.0033423688786,1.00696376428079,1.02490805403557,1.02701356651755,0.99542207468205,0.989034234689879,0.985004268905044,0.969155426103344,0.978515180807519,0.964710637720008,0.958262701191528,0.96779905761605,0.973896659619999,0.965037828796574,0.962528307649591,0.931864319745562,0.928295648674492,0.912508443218754,0.907232210922053,0.914672848097462,0.907180332185469,0.920934890065206,0.926441998360512,0.93379692152295,0.941178044132804,0.967004251523819,0.962413397673273,0.983596585704783,0.97641511760466,0.968251869809063,0.956481286638731,0.976924780768252,0.958734424114706,0.956082934690587,0.933412009280572,0.928026320506047,0.947944321990947,0.975753943365337,0.973851641940048,0.971206612381403,0.988559795454045,1.00000716273254,0.991154837705696,0.997439579256495,0.984444459756276,0.977552760781905,0.983153216023638,0.966344206791663,0.978198607446143,0.993148066564895,0.992304739349162,1.01673010010048,1.02436458134856,1.03486638638068,1.06400087170071,1.08440752216375,1.09834323737949,1.11799150592697,1.13583550166198,1.14658171273992,1.17628421610042,1.20537865074223,1.20475666592013,1.22204768277372,1.24161241025079,1.23357487859282,1.23952191204384,1.22886276385055,1.21937613097321,1.23750440412637,1.23952983100443,1.21029425558432,1.1739173894269,1.17227938102655,1.14893115937397,1.16214641209852,1.15272007173472,1.14426130206149,1.15843072361637,1.16605354979179,1.15428275707241,1.16036415630809,1.14358083358139,1.13374779242332,1.14062940178436,1.12139015721312,1.10150220246048,1.08636184599063,1.07513620858528,1.05493059592553,1.05282553633104,1.0250868838384,1.02297926010526,1.02813978914988,1.00932479770758,0.995826213799495,1.00051752098514,1.0014652334907,0.998755287241208,0.986161601577111,0.970138474598601,0.959655141801341,0.941806761941038,0.934331200923467,0.906914443528443,0.90500092463194,0.902386780589967,0.915024819499958,0.927914125485945,0.953211578757473,0.934911815023185,0.954023952851286,0.943176562431584,0.968967316713541,0.953422452935177,0.948387360630864,0.921140580418662,0.931012875548141,0.918096781913661,0.910584453847272,0.880492915267113,0.892675641160665,0.892150684081569,0.916914204819174,0.910119824087103,0.918106572010934,0.938504776903768,0.94292251946294,0.957639200494041,0.968032599722392,0.962076403731244,0.982489196564965,0.970671992408838,0.968404822516469,0.987432873894959,0.983369171615036,0.971386059732191,0.940899820213446,0.897349008498947,0.891553872879251,0.885427050387315,0.896898456954474,0.90455205325297,0.935131024647991,0.985379980765945,1.0357580497798,1.04584663162617,1.06560420943611,1.05507324918537,1.05317158472571,1.04747823838632,1.10469357834037,1.08248738128835,1.06247193897359,1.04746683064293,1.0446198617158,1.03904768090427,1.03219190851599,0.961937290742673,0.979425771696781,0.996538467352552,0.999946765189486,1.01328936614376,1.02839631206512,1.01920753474297,1.03558329907384,1.02816505016485,1.05145171522686,1.07903197304015,1.07148241431483,1.06994350548963,1.08407024940122,1.07315126230609,1.08932340936452,1.09863711849644,1.09927176679916,1.11168977921657,1.09612294570503,1.08518071711069,1.11323983150607,1.11113647331645,1.09519919396093,1.0955607901256,1.11272620180715,1.15363536166823,1.15017795006617,1.13526166644376,1.13544017437059,1.14075946110941,1.146400928383,1.14693019704503) > par8 = '1' > par7 = '0' > par6 = '1' > par5 = '1' > par4 = '1' > par3 = '0' > par2 = '1' > par1 = '1' > ylab = 'y' > xlab = 'x' > par8 <- '1' > par7 <- '0' > par6 <- '1' > par5 <- '1' > par4 <- '1' > par3 <- '0' > par2 <- '1' > par1 <- '1' > #'GNU S' R Code compiled by R2WASP v. 1.2.327 (Thu, 22 Sep 2016 20:39:32 +0200) > #Author: root > #To cite this work: Wessa P., (2016), Bivariate Granger Causality (v1.0.4) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_grangercausality.wasp/ > #Source of accompanying publication: Office for Research, Development, and Education > # > library(lmtest) Loading required package: zoo Attaching package: 'zoo' The following objects are masked from 'package:base': as.Date, as.Date.numeric > par1 <- as.numeric(par1) > par2 <- as.numeric(par2) > par3 <- as.numeric(par3) > par4 <- as.numeric(par4) > par5 <- as.numeric(par5) > par6 <- as.numeric(par6) > par7 <- as.numeric(par7) > par8 <- as.numeric(par8) > ox <- x > oy <- y > if (par1 == 0) { + x <- log(x) + } else { + x <- (x ^ par1 - 1) / par1 + } > if (par5 == 0) { + y <- log(y) + } else { + y <- (y ^ par5 - 1) / par5 + } > if (par2 > 0) x <- diff(x,lag=1,difference=par2) > if (par6 > 0) y <- diff(y,lag=1,difference=par6) > if (par3 > 0) x <- diff(x,lag=par4,difference=par3) > if (par7 > 0) y <- diff(y,lag=par4,difference=par7) > print(x) [1] 0.1041184183 -0.3547838794 -0.0341938744 -0.1297225095 -0.2774416136 [6] -0.2020268816 -0.0434894114 -0.1227164813 -0.0960417977 -0.1527327938 [11] -0.1033613761 -0.0148298395 -0.0535630044 -0.0663274157 -0.0466293385 [16] -0.0400345918 -0.0659392374 -0.0572466444 -0.0614821083 -0.0380382782 [21] -0.0390099510 -0.0444740663 -0.0599817245 -0.0326537671 -0.0396366819 [26] -0.0236701118 -0.0143763608 -0.0173468148 -0.0027649744 -0.0060056644 [31] -0.0044422698 0.0154744393 -0.0130016304 -0.0026007342 0.0116319989 [36] 0.0036213954 0.0179442898 0.0021055125 -0.0315914918 -0.0063878400 [41] -0.0040299658 -0.0158488428 0.0093597547 -0.0138045431 -0.0064479365 [46] 0.0095363564 0.0060976020 -0.0088588308 -0.0025095211 -0.0306639879 [51] -0.0035686711 -0.0157872055 -0.0052762323 0.0074406372 -0.0074925159 [56] 0.0137545579 0.0055071083 0.0073549232 0.0073811226 0.0258262074 [61] -0.0045908539 0.0211831880 -0.0071814681 -0.0081632478 -0.0117705832 [66] 0.0204434941 -0.0181903567 -0.0026514894 -0.0226709254 -0.0053856888 [71] 0.0199180015 0.0278096214 -0.0019023014 -0.0026450296 0.0173531831 [76] 0.0114473673 -0.0088523250 0.0062847416 -0.0129951195 -0.0068916990 [81] 0.0056004552 -0.0168090092 0.0118544007 0.0149494591 -0.0008433272 [86] 0.0244253608 0.0076344812 0.0105018050 0.0291344853 0.0204066505 [91] 0.0139357152 0.0196482685 0.0178439957 0.0107462111 0.0297025034 [96] 0.0290944346 -0.0006219848 0.0172910169 0.0195647275 -0.0080375317 [101] 0.0059470335 -0.0106591482 -0.0094866329 0.0181282732 0.0020254269 [106] -0.0292355754 -0.0363768662 -0.0016380084 -0.0233482217 0.0132152527 [111] -0.0094263404 -0.0084587697 0.0141694216 0.0076228262 -0.0117707927 [116] 0.0060813992 -0.0167833227 -0.0098330412 0.0068816094 -0.0192392446 [121] -0.0198879548 -0.0151403565 -0.0112256374 -0.0202056127 -0.0021050596 [126] -0.0277386525 -0.0021076237 0.0051605290 -0.0188149914 -0.0134985839 [131] 0.0046913072 0.0009477125 -0.0027099462 -0.0125936857 -0.0160231270 [136] -0.0104833328 -0.0178483799 -0.0074755610 -0.0274167574 -0.0019135189 [141] -0.0026141440 0.0126380389 0.0128893060 0.0252974533 -0.0182997637 [146] 0.0191121378 -0.0108473904 0.0257907543 -0.0155448638 -0.0050350923 [151] -0.0272467802 0.0098722951 -0.0129160936 -0.0075123281 -0.0300915386 [156] 0.0121827259 -0.0005249571 0.0247635207 -0.0067943807 0.0079867479 [161] 0.0203982049 0.0044177426 0.0147166810 0.0103933992 -0.0059561960 [166] 0.0204127928 -0.0118172042 -0.0022671699 0.0190280514 -0.0040637023 [171] -0.0119831119 -0.0304862395 -0.0435508117 -0.0057951356 -0.0061268225 [176] 0.0114714066 0.0076535963 0.0305789714 0.0502489561 0.0503780690 [181] 0.0100885818 0.0197575778 -0.0105309603 -0.0019016645 -0.0056933463 [186] 0.0572153400 -0.0222061971 -0.0200154423 -0.0150051083 -0.0028469689 [191] -0.0055721808 -0.0068557724 -0.0702546178 0.0174884810 0.0171126957 [196] 0.0034082978 0.0133426010 0.0151069459 -0.0091887773 0.0163757643 [201] -0.0074182489 0.0232866651 0.0275802578 -0.0075495587 -0.0015389088 [206] 0.0141267439 -0.0109189871 0.0161721471 0.0093137091 0.0006346483 [211] 0.0124180124 -0.0155668335 -0.0109422286 0.0280591144 -0.0021033582 [216] -0.0159372794 0.0003615962 0.0171654117 0.0409091599 -0.0034574116 [221] -0.0149162836 0.0001785079 0.0053192867 0.0056414673 0.0005292687 > print(y) [1] 5.6849520 -1.1290988 8.5350160 7.3239664 -1.9516413 4.4223038 [7] 17.7833068 2.2673033 2.9046978 -2.0214512 9.3423824 13.2304889 [13] -1.6663314 13.8709186 4.8806208 3.0382472 -14.6084751 6.0734591 [19] 3.6786769 1.8757610 7.9917131 -3.3781909 -12.6811155 -7.2814735 [25] -3.5451276 8.4985935 4.3008953 4.5983461 3.8941769 -15.0394752 [31] -6.5864099 8.3195160 -7.2359453 9.8917558 12.5475662 0.4097536 [37] -5.3571491 -14.2685314 -11.9192773 4.5558531 9.6246571 5.0384518 [43] 14.3110244 -18.8729479 -10.6232418 -3.3387331 3.5238811 1.7725638 [49] 8.0251004 -2.7590077 -5.8063605 -18.5542507 1.7998807 10.0374459 [55] -5.4299942 19.2614550 -6.1250577 -3.8759657 -17.9047153 11.8251858 [61] -2.9836133 7.5182200 6.5439170 -6.7594170 -6.7988748 -3.2901698 [67] -5.4482055 3.6635008 -2.8409584 13.2274537 4.2614376 -1.5418877 [73] -14.1714046 -5.4967688 12.1711999 -4.2371559 5.3450082 10.4107770 [79] -10.1102910 -12.2926084 -0.7891551 2.5617189 7.4484101 7.2268397 [85] 5.0505927 1.1958735 -17.8713280 1.6632961 11.7523407 6.4103676 [91] 6.9293889 9.5093190 2.8257823 -18.6574479 13.2881579 16.1169755 [97] -4.0611136 18.5056873 14.4688554 -8.9994034 -9.1177767 4.0520080 [103] 16.6481376 15.6313416 11.5246998 -7.7671074 -20.6819342 12.8541226 [109] -16.1867853 47.0822078 -2.9745077 12.4291929 13.4793763 -22.9219207 [115] -3.8395431 1.7604229 22.7519488 1.9759230 29.5933165 -16.2596304 [121] -28.0999923 -4.4647968 2.1701765 7.3998467 20.8761878 -6.7776283 [127] 12.2227985 -20.1386313 -35.3086206 5.2934096 28.0089359 16.7118770 [133] -10.6444883 -2.0244864 -28.0635697 -32.0943312 -7.5455369 38.3316917 [139] -11.5914744 18.1930604 -3.9579164 -8.0342060 -29.0621544 11.0512067 [145] -8.6594597 30.6495703 -15.2276584 38.2497410 -52.1115540 -18.2507295 [151] -16.6177854 28.6038374 6.0006140 -9.8826501 12.5627423 -11.5580871 [157] -30.3126618 10.4077418 1.1382045 20.8245892 2.3917470 1.0016199 [163] -0.5554438 -32.3735707 -2.5738597 24.3423999 -5.9216985 10.0860093 [169] 18.8395606 -18.2689407 -39.2938539 -21.5014415 8.1131215 20.7001455 [175] 8.5046639 33.9093879 -19.6560326 -19.2978776 -2.2551625 15.9287923 [181] -1.9516413 18.7606451 12.0922844 -14.1167708 -23.7869561 49.2584548 [187] -40.8964458 -1.6511553 17.3128490 19.5558706 -17.3432011 -25.6718227 [193] -9.4182627 26.7098652 -2.1307188 10.1801009 29.6418799 -13.5765031 [199] -44.3049889 12.4079465 7.2784383 25.4563226 17.8743632 3.6877825 [205] -8.5046639 -30.4188942 -8.9447696 32.7104792 21.5075119 12.5050732 [211] 16.7209826 -35.2630925 -28.3003162 30.8741760 5.9490154 7.3482481 [217] 27.0892667 36.5621632 -0.0515986 -69.5761636 18.1839548 20.7426385 [223] 14.3444117 30.8468591 32.7802891 > (gyx <- grangertest(y ~ x, order=par8)) Granger causality test Model 1: y ~ Lags(y, 1:1) + Lags(x, 1:1) Model 2: y ~ Lags(y, 1:1) Res.Df Df F Pr(>F) 1 221 2 222 -1 6.2601 0.01307 * --- Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 > (gxy <- grangertest(x ~ y, order=par8)) Granger causality test Model 1: x ~ Lags(x, 1:1) + Lags(y, 1:1) Model 2: x ~ Lags(x, 1:1) Res.Df Df F Pr(>F) 1 221 2 222 -1 1.4167 0.2352 > postscript(file="/home/pw/wessanet/rcomp/tmp/15j6g1604324099.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > op <- par(mfrow=c(2,1)) > (r <- ccf(ox,oy,main='Cross Correlation Function (raw data)',ylab='CCF',xlab='Lag (k)')) Autocorrelations of series 'X', by lag -20 -19 -18 -17 -16 -15 -14 -13 -12 -11 -10 -0.061 -0.055 -0.053 -0.054 -0.048 -0.043 -0.041 -0.049 -0.057 -0.069 -0.087 -9 -8 -7 -6 -5 -4 -3 -2 -1 0 1 -0.103 -0.118 -0.132 -0.152 -0.176 -0.196 -0.220 -0.245 -0.268 -0.287 -0.261 2 3 4 5 6 7 8 9 10 11 12 -0.231 -0.209 -0.185 -0.164 -0.148 -0.139 -0.125 -0.114 -0.104 -0.097 -0.090 13 14 15 16 17 18 19 20 -0.084 -0.076 -0.070 -0.063 -0.057 -0.053 -0.049 -0.045 > (r <- ccf(x,y,main='Cross Correlation Function (transformed and differenced)',ylab='CCF',xlab='Lag (k)')) Autocorrelations of series 'X', by lag -20 -19 -18 -17 -16 -15 -14 -13 -12 -11 -10 0.073 0.051 0.030 0.033 -0.003 0.065 0.056 0.018 0.020 0.037 -0.039 -9 -8 -7 -6 -5 -4 -3 -2 -1 0 1 -0.058 0.014 -0.015 0.032 -0.039 -0.007 -0.024 -0.037 -0.163 0.142 -0.018 2 3 4 5 6 7 8 9 10 11 12 -0.021 -0.036 -0.021 -0.046 0.066 -0.150 -0.006 -0.038 -0.020 -0.043 -0.016 13 14 15 16 17 18 19 20 -0.063 -0.012 -0.041 -0.014 -0.007 -0.010 -0.047 -0.004 > par(op) > dev.off() null device 1 > postscript(file="/home/pw/wessanet/rcomp/tmp/2wkdk1604324099.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > op <- par(mfrow=c(2,1)) > acf(ox,lag.max=round(length(x)/2),main='ACF of x (raw)') > acf(x,lag.max=round(length(x)/2),main='ACF of x (transformed and differenced)') > par(op) > dev.off() null device 1 > postscript(file="/home/pw/wessanet/rcomp/tmp/3sz421604324099.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > op <- par(mfrow=c(2,1)) > acf(oy,lag.max=round(length(y)/2),main='ACF of y (raw)') > acf(y,lag.max=round(length(y)/2),main='ACF of y (transformed and differenced)') > par(op) > dev.off() null device 1 > > a<-table.start() > a<-table.row.start(a) > a<-table.element(a,'Granger Causality Test: Y = f(X)',5,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Model',header=TRUE) > a<-table.element(a,'Res.DF',header=TRUE) > a<-table.element(a,'Diff. DF',header=TRUE) > a<-table.element(a,'F',header=TRUE) > a<-table.element(a,'p-value',header=TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Complete model',header=TRUE) > a<-table.element(a,gyx$Res.Df[1]) > a<-table.element(a,'') > a<-table.element(a,'') > a<-table.element(a,'') > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Reduced model',header=TRUE) > a<-table.element(a,gyx$Res.Df[2]) > a<-table.element(a,gyx$Df[2]) > a<-table.element(a,gyx$F[2]) > a<-table.element(a,gyx$Pr[2]) > a<-table.row.end(a) > a<-table.end(a) > table.save(a,file="/home/pw/wessanet/rcomp/tmp/4rhsi1604324099.tab") > a<-table.start() > a<-table.row.start(a) > a<-table.element(a,'Granger Causality Test: X = f(Y)',5,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Model',header=TRUE) > a<-table.element(a,'Res.DF',header=TRUE) > a<-table.element(a,'Diff. DF',header=TRUE) > a<-table.element(a,'F',header=TRUE) > a<-table.element(a,'p-value',header=TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Complete model',header=TRUE) > a<-table.element(a,gxy$Res.Df[1]) > a<-table.element(a,'') > a<-table.element(a,'') > a<-table.element(a,'') > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'Reduced model',header=TRUE) > a<-table.element(a,gxy$Res.Df[2]) > a<-table.element(a,gxy$Df[2]) > a<-table.element(a,gxy$F[2]) > a<-table.element(a,gxy$Pr[2]) > a<-table.row.end(a) > a<-table.end(a) > table.save(a,file="/home/pw/wessanet/rcomp/tmp/5e5bq1604324099.tab") > > try(system("convert /home/pw/wessanet/rcomp/tmp/15j6g1604324099.ps /home/pw/wessanet/rcomp/tmp/15j6g1604324099.png",intern=TRUE)) character(0) > try(system("convert /home/pw/wessanet/rcomp/tmp/2wkdk1604324099.ps /home/pw/wessanet/rcomp/tmp/2wkdk1604324099.png",intern=TRUE)) character(0) > try(system("convert /home/pw/wessanet/rcomp/tmp/3sz421604324099.ps /home/pw/wessanet/rcomp/tmp/3sz421604324099.png",intern=TRUE)) character(0) > > proc.time() user system elapsed 0.659 0.079 0.742