R version 2.8.0 (2008-10-20) Copyright (C) 2008 The R Foundation for Statistical Computing ISBN 3-900051-07-0 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. Natural language support but running in an English locale 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. > x <- c(115.65 + ,116.00 + ,115.92 + ,116.10 + ,116.44 + ,116.65 + ,117.45 + ,117.58 + ,117.43 + ,117.24 + ,117.25 + ,117.29 + ,117.83 + ,118.22 + ,118.11 + ,118.23 + ,118.15 + ,118.23 + ,119.03 + ,119.38 + ,118.97 + ,118.78 + ,118.97 + ,118.94 + ,119.86 + ,120.09 + ,120.13 + ,120.15 + ,119.90 + ,120.00 + ,120.84 + ,121.17 + ,120.81 + ,121.00 + ,121.12 + ,121.29 + ,122.09 + ,121.88 + ,121.31 + ,121.33 + ,121.45 + ,121.67 + ,122.78 + ,122.84 + ,122.34 + ,122.37 + ,122.72 + ,122.68 + ,122.78 + ,123.08 + ,122.92 + ,123.51 + ,124.18 + ,124.05 + ,124.36 + ,123.87 + ,123.84 + ,123.85 + ,123.83 + ,123.84 + ,124.27 + ,124.56 + ,124.57 + ,124.87 + ,125.08 + ,124.86 + ,124.89 + ,124.58 + ,124.83 + ,124.97 + ,125.19 + ,125.42 + ,125.74 + ,126.07 + ,126.35 + ,126.69 + ,126.85 + ,127.12 + ,127.43 + ,127.49 + ,128.05 + ,127.85 + ,128.35 + ,128.29 + ,128.38 + ,128.80 + ,129.18 + ,130.14 + ,130.77 + ,131.19 + ,131.32 + ,131.41 + ,131.61 + ,131.69 + ,131.94 + ,131.70 + ,132.54 + ,132.74 + ,133.02 + ,132.76 + ,133.05 + ,132.74 + ,133.16 + ,133.10 + ,133.37 + ,133.15 + ,133.18 + ,133.29 + ,133.76 + ,134.51 + ,134.82 + ,134.71 + ,134.52 + ,134.86 + ,135.11 + ,135.28 + ,135.61 + ,135.22 + ,135.47 + ,135.42 + ,135.85 + ,136.27 + ,136.30 + ,136.85 + ,137.05 + ,137.03 + ,137.45 + ,137.49 + ,137.55 + ,138.04 + ,138.03 + ,137.75 + ,138.27 + ,138.99 + ,139.74 + ,139.70 + ,139.97 + ,140.21 + ,140.78 + ,140.80 + ,140.64 + ,140.42 + ,140.85 + ,140.96 + ,141.04 + ,141.71 + ,141.60 + ,142.11 + ,142.59 + ,142.56 + ,143.00 + ,143.18 + ,143.15 + ,143.10 + ,143.45 + ,143.59 + ,143.92 + ,144.66 + ,144.34 + ,144.82 + ,144.49 + ,144.41 + ,144.99 + ,144.95 + ,145.00 + ,145.66 + ,146.68 + ,147.38 + ,147.94 + ,149.12 + ,149.95 + ,150.19 + ,151.16 + ,151.74 + ,152.56 + ,152.09 + ,152.46 + ,152.66 + ,152.38 + ,152.59 + ,152.88 + ,153.29 + ,152.35 + ,152.49 + ,152.20 + ,151.57 + ,151.55 + ,151.79 + ,151.52 + ,151.76 + ,151.92 + ,152.20 + ,152.75 + ,153.49 + ,153.78 + ,154.10 + ,154.62 + ,154.65 + ,154.81 + ,154.92 + ,155.40 + ,155.63 + ,155.76) > par1 = '12' > #'GNU S' R Code compiled by R2WASP v. 1.0.44 () > #Author: Prof. Dr. P. Wessa > #To cite this work: AUTHOR(S), (YEAR), YOUR SOFTWARE TITLE (vNUMBER) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_YOURPAGE.wasp/ > #Source of accompanying publication: Office for Research, Development, and Education > #Technical description: Write here your technical program description (don't use hard returns!) > par1 <- as.numeric(par1) > nx <- length(x) > x <- ts(x,frequency=par1) > m <- StructTS(x,type='BSM') Warning message: In StructTS(x, type = "BSM") : possible convergence problem: optim gave code=52 ERROR: ABNORMAL_TERMINATION_IN_LNSRCH > m$coef level slope seas epsilon 6.220509e-01 1.056265e-03 -4.050850e-18 0.000000e+00 > m$fitted level slope sea Jan 1 115.6500 0.00000000 0.000000e+00 Feb 1 115.9818 0.01838244 1.818999e-02 Mar 1 115.9022 0.01767690 1.780746e-02 Apr 1 116.0816 0.01910396 1.843306e-02 May 1 116.4203 0.02243507 1.965698e-02 Jun 1 116.6296 0.02467357 2.036383e-02 Jul 1 117.4268 0.03510110 2.324638e-02 Aug 1 117.5564 0.03651710 2.359394e-02 Sep 1 117.4071 0.03346800 2.292201e-02 Oct 1 117.2179 0.02950686 2.213123e-02 Nov 1 117.2279 0.02913518 2.206352e-02 Dec 1 117.2679 0.02935606 2.210046e-02 Jan 2 117.8280 0.01962522 2.041780e-03 Feb 2 118.2115 0.03427029 8.538671e-03 Mar 2 118.1017 0.03103831 8.326086e-03 Apr 2 118.2215 0.03313185 8.454086e-03 May 2 118.1417 0.03034765 8.295315e-03 Jun 2 118.2216 0.03162043 8.363212e-03 Jul 2 119.0206 0.05206299 9.385973e-03 Aug 2 119.3702 0.06026335 9.771630e-03 Sep 2 118.9608 0.04691155 9.180192e-03 Oct 2 118.7711 0.03999108 8.890938e-03 Nov 2 118.9609 0.04448872 9.068598e-03 Dec 2 118.9310 0.04220134 8.983088e-03 Jan 3 119.7828 0.05671460 7.724631e-02 Feb 3 120.0932 0.06701650 -3.173832e-03 Mar 3 120.1332 0.06614134 -3.191744e-03 Apr 3 120.1532 0.06462016 -3.221315e-03 May 3 119.9034 0.05407902 -3.416191e-03 Jun 3 120.0034 0.05564058 -3.388714e-03 Jul 3 120.8429 0.08267945 -2.935581e-03 Aug 3 121.1728 0.09131291 -2.797688e-03 Sep 3 120.8130 0.07537555 -3.040430e-03 Oct 3 121.0030 0.07946655 -2.980979e-03 Nov 3 121.1230 0.08092741 -2.960713e-03 Dec 3 121.2929 0.08416667 -2.917799e-03 Jan 4 121.9720 0.10252677 1.180228e-01 Feb 4 121.8927 0.09504973 -1.273538e-02 Mar 4 121.3229 0.07033806 -1.293776e-02 Apr 4 121.3430 0.06845529 -1.295250e-02 May 4 121.4629 0.07039487 -1.293797e-02 Jun 4 121.6829 0.07605579 -1.289739e-02 Jul 4 122.7926 0.11538015 -1.262764e-02 Aug 4 122.8526 0.11326390 -1.264153e-02 Sep 4 122.3528 0.08972720 -1.278951e-02 Oct 4 122.3828 0.08742573 -1.280337e-02 Nov 4 122.7327 0.09758084 -1.274481e-02 Dec 4 122.6928 0.09224181 -1.277430e-02 Jan 5 122.6538 0.08749292 1.262267e-01 Feb 5 123.0885 0.10176540 -8.466939e-03 Mar 5 122.9285 0.09152267 -8.503199e-03 Apr 5 123.5184 0.11107594 -8.436882e-03 May 5 124.1884 0.13305009 -8.365446e-03 Jun 5 124.0584 0.12268662 -8.397742e-03 Jul 5 124.3684 0.13008048 -8.375653e-03 Aug 5 123.8784 0.10556052 -8.445885e-03 Sep 5 123.8485 0.10019127 -8.460631e-03 Oct 5 123.8585 0.09661362 -8.470053e-03 Nov 5 123.8385 0.09198147 -8.481751e-03 Dec 5 123.8485 0.08872083 -8.489647e-03 Jan 6 124.1573 0.09718350 1.126611e-01 Feb 6 124.5680 0.11000387 -8.005238e-03 Mar 6 124.5780 0.10601391 -8.011243e-03 Apr 6 124.8780 0.11376073 -8.000085e-03 May 6 125.0880 0.11760732 -7.994771e-03 Jun 6 124.8680 0.10410292 -8.012668e-03 Jul 6 124.8980 0.10113664 -8.016439e-03 Aug 6 124.5880 0.08466823 -8.036523e-03 Sep 6 124.8380 0.09129478 -8.028770e-03 Oct 6 124.9780 0.09324800 -8.026578e-03 Nov 6 125.1980 0.09833377 -8.021101e-03 Dec 6 125.4280 0.10361924 -8.015641e-03 Jan 7 125.6436 0.10803588 9.637451e-02 Feb 7 126.0768 0.12126718 -6.788035e-03 Mar 7 126.3568 0.12764675 -6.784560e-03 Apr 7 126.6968 0.13618430 -6.780079e-03 May 7 126.8568 0.13714211 -6.779597e-03 Jun 7 127.1268 0.14248687 -6.777014e-03 Jul 7 127.4368 0.14922760 -6.773889e-03 Aug 7 127.4968 0.14563619 -6.775487e-03 Sep 7 128.0568 0.16231818 -6.768366e-03 Oct 7 127.8568 0.14772842 -6.774342e-03 Nov 7 128.3568 0.16191639 -6.768766e-03 Dec 7 128.2968 0.15297696 -6.772137e-03 Jan 8 128.3140 0.14756351 6.595351e-02 Feb 8 128.8042 0.16145578 -4.185540e-03 Mar 8 129.1842 0.17026332 -4.184785e-03 Apr 8 130.1442 0.20209457 -4.182116e-03 May 8 130.7742 0.21934385 -4.180729e-03 Jun 8 131.1942 0.22743338 -4.180104e-03 Jul 8 131.3242 0.22350492 -4.180395e-03 Aug 8 131.4142 0.21812157 -4.180778e-03 Sep 8 131.6142 0.21739079 -4.180828e-03 Oct 8 131.6942 0.21184983 -4.181190e-03 Nov 8 131.9442 0.21338854 -4.181094e-03 Dec 8 131.7042 0.19510088 -4.182196e-03 Jan 9 132.4629 0.21770754 7.708669e-02 Feb 9 132.7467 0.22038115 -6.698538e-03 Mar 9 133.0267 0.22278632 -6.698874e-03 Apr 9 132.7667 0.20330860 -6.696378e-03 May 9 133.0567 0.20680626 -6.696808e-03 Jun 9 132.7467 0.18595426 -6.694348e-03 Jul 9 133.1667 0.19539785 -6.695417e-03 Aug 9 133.1067 0.18509236 -6.694297e-03 Sep 9 133.3767 0.18851855 -6.694654e-03 Oct 9 133.1567 0.17203352 -6.693005e-03 Nov 9 133.1867 0.16630186 -6.692454e-03 Dec 9 133.2967 0.16402978 -6.692245e-03 Jan 10 133.6758 0.17268087 8.416848e-02 Feb 10 134.5149 0.19960590 -4.850774e-03 Mar 10 134.8249 0.20406120 -4.851841e-03 Apr 10 134.7148 0.19138607 -4.848973e-03 May 10 134.5248 0.17599355 -4.845630e-03 Jun 10 134.8648 0.18261285 -4.847009e-03 Jul 10 135.1148 0.18533263 -4.847553e-03 Aug 10 135.2848 0.18471379 -4.847435e-03 Sep 10 135.6148 0.19057777 -4.848514e-03 Oct 10 135.2248 0.16714450 -4.844373e-03 Nov 10 135.4748 0.17048875 -4.844941e-03 Dec 10 135.4248 0.16158922 -4.843492e-03 Jan 11 135.7878 0.16969992 6.217547e-02 Feb 11 136.2744 0.18249605 -4.443267e-03 Mar 11 136.3044 0.17634070 -4.441571e-03 Apr 11 136.8544 0.19142316 -4.445600e-03 May 11 137.0544 0.19176936 -4.445688e-03 Jun 11 137.0344 0.18322137 -4.443586e-03 Jul 11 137.4544 0.19277889 -4.445842e-03 Aug 11 137.4944 0.18661198 -4.444445e-03 Sep 11 137.5544 0.18150127 -4.443334e-03 Oct 11 138.0444 0.19395390 -4.445931e-03 Nov 11 138.0344 0.18572122 -4.444283e-03 Dec 11 137.7544 0.16692213 -4.440672e-03 Jan 12 138.2096 0.17853811 6.042544e-02 Feb 12 138.9934 0.20296652 -3.379141e-03 Mar 12 139.7434 0.22504817 -3.385582e-03 Apr 12 139.7034 0.21434918 -3.382596e-03 May 12 139.9734 0.21659559 -3.383197e-03 Jun 12 140.2134 0.21754034 -3.383440e-03 Jul 12 140.7834 0.23176787 -3.386949e-03 Aug 12 140.8034 0.22321955 -3.384926e-03 Sep 12 140.6434 0.20775033 -3.381412e-03 Oct 12 140.4234 0.19048354 -3.377649e-03 Nov 12 140.8534 0.20015199 -3.379671e-03 Dec 12 140.9634 0.19651286 -3.378941e-03 Jan 13 141.0084 0.19040503 3.158946e-02 Feb 13 141.7112 0.21108107 -1.221240e-03 Mar 13 141.6012 0.19811999 -1.217517e-03 Apr 13 142.1112 0.21070965 -1.221003e-03 May 13 142.5912 0.22158009 -1.223892e-03 Jun 13 142.5612 0.21142456 -1.221302e-03 Jul 13 143.0012 0.22065146 -1.223560e-03 Aug 13 143.1812 0.21901049 -1.223174e-03 Sep 13 143.1512 0.20895868 -1.220910e-03 Oct 13 143.1012 0.19850530 -1.218649e-03 Nov 13 143.4512 0.20462069 -1.219918e-03 Dec 13 143.5912 0.20201214 -1.219399e-03 Jan 14 143.9029 0.20643353 1.714039e-02 Feb 14 144.6599 0.22864915 8.751320e-05 Mar 14 144.3399 0.20650167 9.367809e-05 Apr 14 144.8199 0.21754205 9.071966e-05 May 14 144.4899 0.19543928 9.640334e-05 Jun 14 144.4099 0.18432056 9.914709e-05 Jul 14 144.9899 0.20029303 9.536470e-05 Aug 14 144.9499 0.19059308 9.756899e-05 Sep 14 144.9999 0.18491774 9.880663e-05 Oct 14 145.6599 0.20409545 9.479329e-05 Nov 14 146.6799 0.23703119 8.817901e-05 Dec 14 147.3799 0.25571991 8.457737e-05 Jan 15 147.9316 0.26765773 8.412360e-03 Feb 15 149.1182 0.30473289 1.797251e-03 Mar 15 149.9482 0.32593656 1.791566e-03 Apr 15 150.1882 0.32246752 1.792455e-03 May 15 151.1582 0.34860669 1.786027e-03 Jun 15 151.7382 0.35794741 1.783822e-03 Jul 15 152.5582 0.37659922 1.779598e-03 Aug 15 152.0882 0.34242433 1.787025e-03 Sep 15 152.4582 0.34353748 1.786793e-03 Oct 15 152.6582 0.33774328 1.787953e-03 Nov 15 152.3782 0.31280671 1.792742e-03 Dec 15 152.5882 0.30865670 1.793507e-03 Jan 16 152.8996 0.30876898 -1.964659e-02 Feb 16 153.2880 0.31198001 1.993995e-03 Mar 16 152.3480 0.26144080 2.006810e-03 Apr 16 152.4880 0.25653855 2.008004e-03 May 16 152.1980 0.23447624 2.013165e-03 Jun 16 151.5680 0.19957965 2.020998e-03 Jul 16 151.5480 0.19071581 2.022907e-03 Aug 16 151.7880 0.19270528 2.022496e-03 Sep 16 151.5180 0.17402714 2.026201e-03 Oct 16 151.7580 0.17669028 2.025694e-03 Nov 16 151.9180 0.17601654 2.025817e-03 Dec 16 152.1980 0.18021406 2.025081e-03 Jan 17 152.7617 0.19568570 -1.168375e-02 Feb 17 153.4876 0.21707906 2.365417e-03 Mar 17 153.7776 0.22002269 2.364679e-03 Apr 17 154.0976 0.22405851 2.363745e-03 May 17 154.6176 0.23600489 2.361092e-03 Jun 17 154.6476 0.22768902 2.362864e-03 Jul 17 154.8076 0.22495660 2.363423e-03 Aug 17 154.9176 0.22031612 2.364334e-03 Sep 17 155.3976 0.23079884 2.362360e-03 Oct 17 155.6276 0.23076659 2.362365e-03 Nov 17 155.7576 0.22669893 2.363071e-03 > m$resid Jan Feb Mar Apr May 1 0.0000000000 0.2525271936 -0.1242915987 0.2049037335 0.4047487171 2 0.8039007483 0.3894914265 -0.1808606182 0.1114599484 -0.1416645004 3 1.1109891619 0.2885322960 -0.0336949911 -0.0575304381 -0.3921692492 4 0.7889559639 -0.2120669101 -0.8274061521 -0.0626189621 0.0641124471 5 -0.1711439432 0.4108601056 -0.3253356843 0.6195025133 0.6945928764 6 0.2842315966 0.3743163586 -0.1242402853 0.2409949598 0.1195589186 7 0.1436712638 0.3906321839 0.1971724835 0.2637760181 0.0295826286 8 -0.1732966288 0.4134545404 0.2714525439 0.9809247663 0.5314961241 9 0.7173178942 0.0800220165 0.0740506542 -0.5996525602 0.1076763592 10 0.2730375109 0.8091192583 0.1371158173 -0.3900818680 -0.4737030291 11 0.2550817028 0.3856581364 -0.1894082294 0.4641047888 0.0106528915 12 0.3644100517 0.7378572874 0.6794440936 -0.3292036256 0.0691212185 13 -0.1912509708 0.6255848837 -0.3987992211 0.3873710489 0.3344724963 14 0.1382384147 0.6730913074 -0.6814503972 0.3396989824 -0.6800753626 15 0.3727921946 1.1245842443 0.6524087234 -0.1067376143 0.8042685761 16 0.0035028307 0.0974923286 -1.5550233414 -0.1508357057 -0.6788289339 17 0.4822272080 0.6500782760 0.0905715825 0.1241769474 0.3675745163 Jun Jul Aug Sep Oct 1 0.2363913282 0.9764080476 0.1194218280 -0.2345451895 -0.2808140009 2 0.0621423840 0.9611860320 0.3725211926 -0.5877243298 -0.2959617914 3 0.0572249686 0.9772022638 0.3080573676 -0.5620279750 0.1427159553 4 0.1860618678 1.2857725520 -0.0688621471 -0.7624937972 -0.0742551136 5 -0.3268868043 0.2327611935 -0.7705024328 -0.1684397436 -0.1120630366 6 -0.4194058005 -0.0920558457 -0.5107356930 0.2053812522 0.0605027140 7 0.1650282029 0.2080737088 -0.1108320346 0.5146900988 -0.4500411192 8 0.2492319879 -0.1210202759 -0.1658237711 -0.0225083946 -0.1706497401 9 -0.6419064372 0.2906995543 -0.3172199818 0.1054604928 -0.5074047509 10 0.2037052114 0.0836985940 -0.0190439813 0.1804534722 -0.7211094077 11 -0.2630287880 0.2940916018 -0.1897594615 -0.1572587552 0.3831716738 12 0.0290694899 0.4377732015 -0.2630266882 -0.4759785710 -0.5312880926 13 -0.3124754475 0.2839024792 -0.0504912151 -0.3092838647 -0.3216400383 14 -0.3421097464 0.4914542089 -0.2984563079 -0.1746238387 0.5900766168 15 0.2874023802 0.5738930538 -1.0515197318 0.0342503997 -0.1782809347 16 -1.0737238726 -0.2727291973 0.0612134978 -0.5747037343 0.0819416846 17 -0.2558686472 -0.0840732418 -0.1427820028 0.3225407313 -0.0009921978 Nov Dec 1 -0.0244961071 0.0136348174 2 0.1873242104 -0.0929832958 3 0.0504579893 0.1108631098 4 0.3264181352 -0.1710213806 5 -0.1448887834 -0.1018567313 6 0.1574524635 0.1635553329 7 0.4375602846 -0.2756436778 8 0.0473853180 -0.5631411780 9 -0.1764141251 -0.0699302399 10 0.1029110461 -0.2738590007 11 -0.2533214736 -0.5784502078 12 0.2974918652 -0.1119734441 13 0.1881642257 -0.0802622250 14 1.0133954339 0.5750310949 15 -0.7672689186 -0.1276912281 16 -0.0207301866 0.1291528049 17 -0.1251572879 > mylevel <- as.numeric(m$fitted[,'level']) > myslope <- as.numeric(m$fitted[,'slope']) > myseas <- as.numeric(m$fitted[,'sea']) > myresid <- as.numeric(m$resid) > myfit <- mylevel+myseas > mylagmax <- nx/2 > postscript(file="/var/www/html/freestat/rcomp/tmp/1jw631291459208.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > op <- par(mfrow = c(2,2)) > acf(as.numeric(x),lag.max = mylagmax,main='Observed') > acf(mylevel,na.action=na.pass,lag.max = mylagmax,main='Level') > acf(myseas,na.action=na.pass,lag.max = mylagmax,main='Seasonal') > acf(myresid,na.action=na.pass,lag.max = mylagmax,main='Standardized Residals') > par(op) > dev.off() null device 1 > postscript(file="/var/www/html/freestat/rcomp/tmp/2jw631291459208.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > op <- par(mfrow = c(2,2)) > spectrum(as.numeric(x),main='Observed') > spectrum(mylevel,main='Level') > spectrum(myseas,main='Seasonal') > spectrum(myresid,main='Standardized Residals') > par(op) > dev.off() null device 1 > postscript(file="/var/www/html/freestat/rcomp/tmp/3cnn61291459208.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > op <- par(mfrow = c(2,2)) > cpgram(as.numeric(x),main='Observed') > cpgram(mylevel,main='Level') > cpgram(myseas,main='Seasonal') > cpgram(myresid,main='Standardized Residals') > par(op) > dev.off() null device 1 > postscript(file="/var/www/html/freestat/rcomp/tmp/4cnn61291459208.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > plot(as.numeric(m$resid),main='Standardized Residuals',ylab='Residuals',xlab='time',type='b') > grid() > dev.off() null device 1 > postscript(file="/var/www/html/freestat/rcomp/tmp/5nwnr1291459208.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > op <- par(mfrow = c(2,2)) > hist(m$resid,main='Residual Histogram') > plot(density(m$resid),main='Residual Kernel Density') > qqnorm(m$resid,main='Residual Normal QQ Plot') > qqline(m$resid) > plot(m$resid^2, myfit^2,main='Sq.Resid vs. Sq.Fit',xlab='Squared residuals',ylab='Squared Fit') > par(op) > dev.off() null device 1 > > #Note: the /var/www/html/freestat/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab > load(file="/var/www/html/freestat/rcomp/createtable") > > a<-table.start() > a<-table.row.start(a) > a<-table.element(a,'Structural Time Series Model',6,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'t',header=TRUE) > a<-table.element(a,'Observed',header=TRUE) > a<-table.element(a,'Level',header=TRUE) > a<-table.element(a,'Slope',header=TRUE) > a<-table.element(a,'Seasonal',header=TRUE) > a<-table.element(a,'Stand. Residuals',header=TRUE) > a<-table.row.end(a) > for (i in 1:nx) { + a<-table.row.start(a) + a<-table.element(a,i,header=TRUE) + a<-table.element(a,x[i]) + a<-table.element(a,mylevel[i]) + a<-table.element(a,myslope[i]) + a<-table.element(a,myseas[i]) + a<-table.element(a,myresid[i]) + a<-table.row.end(a) + } > a<-table.end(a) > table.save(a,file="/var/www/html/freestat/rcomp/tmp/616ki1291459208.tab") > > try(system("convert tmp/1jw631291459208.ps tmp/1jw631291459208.png",intern=TRUE)) character(0) > try(system("convert tmp/2jw631291459208.ps tmp/2jw631291459208.png",intern=TRUE)) character(0) > try(system("convert tmp/3cnn61291459208.ps tmp/3cnn61291459208.png",intern=TRUE)) character(0) > try(system("convert tmp/4cnn61291459208.ps tmp/4cnn61291459208.png",intern=TRUE)) character(0) > try(system("convert tmp/5nwnr1291459208.ps tmp/5nwnr1291459208.png",intern=TRUE)) character(0) > > > proc.time() user system elapsed 4.149 1.263 4.328