Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_arimabackwardselection.wasp
Title produced by softwareARIMA Backward Selection
Date of computationThu, 03 Dec 2009 10:01:00 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Dec/03/t1259859707cku2kqdfyh4pc36.htm/, Retrieved Sat, 20 Apr 2024 14:31:14 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=62918, Retrieved Sat, 20 Apr 2024 14:31:14 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact239
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [data set] [2008-12-01 19:54:57] [b98453cac15ba1066b407e146608df68]
- RMP   [ARIMA Backward Selection] [] [2009-11-27 14:53:14] [b98453cac15ba1066b407e146608df68]
-   PD      [ARIMA Backward Selection] [workshop 9 bereke...] [2009-12-03 17:01:00] [78d370e6d5f4594e9982a5085e7604c6] [Current]
- RM D        [Harrell-Davis Quantiles] [workshop 9 bereke...] [2009-12-03 17:33:57] [eaf42bcf5162b5692bb3c7f9d4636222]
- RM            [Mean Plot] [workshop 9 bereke...] [2009-12-03 17:44:27] [eaf42bcf5162b5692bb3c7f9d4636222]
-   PD          [Harrell-Davis Quantiles] [review workshop 9] [2009-12-04 10:27:20] [eaf42bcf5162b5692bb3c7f9d4636222]
-   PD          [Harrell-Davis Quantiles] [] [2009-12-09 15:36:15] [3425351e86519d261a643e224a0c8ee1]
-   P           [Harrell-Davis Quantiles] [] [2009-12-12 16:58:45] [74be16979710d4c4e7c6647856088456]
-   PD          [Harrell-Davis Quantiles] [paper harell davis] [2009-12-13 10:54:34] [eaf42bcf5162b5692bb3c7f9d4636222]
-   PD        [ARIMA Backward Selection] [] [2009-12-08 19:47:30] [3425351e86519d261a643e224a0c8ee1]
-   PD          [ARIMA Backward Selection] [] [2009-12-09 15:14:33] [3425351e86519d261a643e224a0c8ee1]
-   P             [ARIMA Backward Selection] [WS09 - Review Bac...] [2009-12-09 21:33:29] [df6326eec97a6ca984a853b142930499]
-   P             [ARIMA Backward Selection] [] [2009-12-11 10:55:36] [8d2349dc1d6314bc274adc9ad027c980]
-   PD            [ARIMA Backward Selection] [] [2009-12-18 16:03:19] [3425351e86519d261a643e224a0c8ee1]
-   PD              [ARIMA Backward Selection] [ARIMA Backward se...] [2009-12-21 04:23:56] [76ab39dc7a55316678260825bd5ad46c]
-                     [ARIMA Backward Selection] [ARIMA Backward se...] [2009-12-21 04:33:24] [76ab39dc7a55316678260825bd5ad46c]
-   P         [ARIMA Backward Selection] [] [2009-12-12 16:57:26] [74be16979710d4c4e7c6647856088456]
-   PD        [ARIMA Backward Selection] [ARIMA inflatie] [2009-12-13 10:45:39] [eaf42bcf5162b5692bb3c7f9d4636222]
Feedback Forum

Post a new message
Dataseries X:
4716.99
4926.65
4920.10
5170.09
5246.24
5283.61
4979.05
4825.20
4695.12
4711.54
4727.22
4384.96
4378.75
4472.93
4564.07
4310.54
4171.38
4049.38
3591.37
3720.46
4107.23
4101.71
4162.34
4136.22
4125.88
4031.48
3761.36
3408.56
3228.47
3090.45
2741.14
2980.44
3104.33
3181.57
2863.86
2898.01
3112.33
3254.33
3513.47
3587.61
3727.45
3793.34
3817.58
3845.13
3931.86
4197.52
4307.13
4229.43
4362.28
4217.34
4361.28
4327.74
4417.65
4557.68
4650.35
4967.18
5123.42
5290.85
5535.66
5514.06
5493.88
5694.83
5850.41
6116.64
6175.00
6513.58
6383.78
6673.66
6936.61
7300.68
7392.93
7497.31
7584.71
7160.79
7196.19
7245.63
7347.51
7425.75
7778.51
7822.33
8181.22
8371.47
8347.71
8672.11
8802.79
9138.46
9123.29
9023.21
8850.41
8864.58
9163.74
8516.66
8553.44
7555.20
7851.22
7442.00
7992.53
8264.04
7517.39
7200.40
7193.69
6193.58
5104.21
4800.46
4461.61
4398.59
4243.63
4293.82




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time11 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 11 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=62918&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]11 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=62918&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=62918&T=0

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time11 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







ARIMA Parameter Estimation and Backward Selection
Iterationar1ar2ma1sar1sar2sma1
Estimates ( 1 )0.450.1291-0.2399-0.2094-0.07750.2976
(p-val)(0.4363 )(0.5302 )(0.6794 )(0.7749 )(0.5958 )(0.6796 )
Estimates ( 2 )0.44390.1303-0.23680-0.09350.0905
(p-val)(0.4418 )(0.5211 )(0.6828 )(NA )(0.4616 )(0.4579 )
Estimates ( 3 )0.2140.194900-0.10090.1026
(p-val)(0.028 )(0.0432 )(NA )(NA )(0.4225 )(0.3858 )
Estimates ( 4 )0.21470.19620000.0998
(p-val)(0.0282 )(0.0414 )(NA )(NA )(NA )(0.4369 )
Estimates ( 5 )0.22910.1890000
(p-val)(0.0172 )(0.0483 )(NA )(NA )(NA )(NA )
Estimates ( 6 )NANANANANANA
(p-val)(NA )(NA )(NA )(NA )(NA )(NA )
Estimates ( 7 )NANANANANANA
(p-val)(NA )(NA )(NA )(NA )(NA )(NA )
Estimates ( 8 )NANANANANANA
(p-val)(NA )(NA )(NA )(NA )(NA )(NA )
Estimates ( 9 )NANANANANANA
(p-val)(NA )(NA )(NA )(NA )(NA )(NA )
Estimates ( 10 )NANANANANANA
(p-val)(NA )(NA )(NA )(NA )(NA )(NA )
Estimates ( 11 )NANANANANANA
(p-val)(NA )(NA )(NA )(NA )(NA )(NA )

\begin{tabular}{lllllllll}
\hline
ARIMA Parameter Estimation and Backward Selection \tabularnewline
Iteration & ar1 & ar2 & ma1 & sar1 & sar2 & sma1 \tabularnewline
Estimates ( 1 ) & 0.45 & 0.1291 & -0.2399 & -0.2094 & -0.0775 & 0.2976 \tabularnewline
(p-val) & (0.4363 ) & (0.5302 ) & (0.6794 ) & (0.7749 ) & (0.5958 ) & (0.6796 ) \tabularnewline
Estimates ( 2 ) & 0.4439 & 0.1303 & -0.2368 & 0 & -0.0935 & 0.0905 \tabularnewline
(p-val) & (0.4418 ) & (0.5211 ) & (0.6828 ) & (NA ) & (0.4616 ) & (0.4579 ) \tabularnewline
Estimates ( 3 ) & 0.214 & 0.1949 & 0 & 0 & -0.1009 & 0.1026 \tabularnewline
(p-val) & (0.028 ) & (0.0432 ) & (NA ) & (NA ) & (0.4225 ) & (0.3858 ) \tabularnewline
Estimates ( 4 ) & 0.2147 & 0.1962 & 0 & 0 & 0 & 0.0998 \tabularnewline
(p-val) & (0.0282 ) & (0.0414 ) & (NA ) & (NA ) & (NA ) & (0.4369 ) \tabularnewline
Estimates ( 5 ) & 0.2291 & 0.189 & 0 & 0 & 0 & 0 \tabularnewline
(p-val) & (0.0172 ) & (0.0483 ) & (NA ) & (NA ) & (NA ) & (NA ) \tabularnewline
Estimates ( 6 ) & NA & NA & NA & NA & NA & NA \tabularnewline
(p-val) & (NA ) & (NA ) & (NA ) & (NA ) & (NA ) & (NA ) \tabularnewline
Estimates ( 7 ) & NA & NA & NA & NA & NA & NA \tabularnewline
(p-val) & (NA ) & (NA ) & (NA ) & (NA ) & (NA ) & (NA ) \tabularnewline
Estimates ( 8 ) & NA & NA & NA & NA & NA & NA \tabularnewline
(p-val) & (NA ) & (NA ) & (NA ) & (NA ) & (NA ) & (NA ) \tabularnewline
Estimates ( 9 ) & NA & NA & NA & NA & NA & NA \tabularnewline
(p-val) & (NA ) & (NA ) & (NA ) & (NA ) & (NA ) & (NA ) \tabularnewline
Estimates ( 10 ) & NA & NA & NA & NA & NA & NA \tabularnewline
(p-val) & (NA ) & (NA ) & (NA ) & (NA ) & (NA ) & (NA ) \tabularnewline
Estimates ( 11 ) & NA & NA & NA & NA & NA & NA \tabularnewline
(p-val) & (NA ) & (NA ) & (NA ) & (NA ) & (NA ) & (NA ) \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=62918&T=1

[TABLE]
[ROW][C]ARIMA Parameter Estimation and Backward Selection[/C][/ROW]
[ROW][C]Iteration[/C][C]ar1[/C][C]ar2[/C][C]ma1[/C][C]sar1[/C][C]sar2[/C][C]sma1[/C][/ROW]
[ROW][C]Estimates ( 1 )[/C][C]0.45[/C][C]0.1291[/C][C]-0.2399[/C][C]-0.2094[/C][C]-0.0775[/C][C]0.2976[/C][/ROW]
[ROW][C](p-val)[/C][C](0.4363 )[/C][C](0.5302 )[/C][C](0.6794 )[/C][C](0.7749 )[/C][C](0.5958 )[/C][C](0.6796 )[/C][/ROW]
[ROW][C]Estimates ( 2 )[/C][C]0.4439[/C][C]0.1303[/C][C]-0.2368[/C][C]0[/C][C]-0.0935[/C][C]0.0905[/C][/ROW]
[ROW][C](p-val)[/C][C](0.4418 )[/C][C](0.5211 )[/C][C](0.6828 )[/C][C](NA )[/C][C](0.4616 )[/C][C](0.4579 )[/C][/ROW]
[ROW][C]Estimates ( 3 )[/C][C]0.214[/C][C]0.1949[/C][C]0[/C][C]0[/C][C]-0.1009[/C][C]0.1026[/C][/ROW]
[ROW][C](p-val)[/C][C](0.028 )[/C][C](0.0432 )[/C][C](NA )[/C][C](NA )[/C][C](0.4225 )[/C][C](0.3858 )[/C][/ROW]
[ROW][C]Estimates ( 4 )[/C][C]0.2147[/C][C]0.1962[/C][C]0[/C][C]0[/C][C]0[/C][C]0.0998[/C][/ROW]
[ROW][C](p-val)[/C][C](0.0282 )[/C][C](0.0414 )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](0.4369 )[/C][/ROW]
[ROW][C]Estimates ( 5 )[/C][C]0.2291[/C][C]0.189[/C][C]0[/C][C]0[/C][C]0[/C][C]0[/C][/ROW]
[ROW][C](p-val)[/C][C](0.0172 )[/C][C](0.0483 )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][/ROW]
[ROW][C]Estimates ( 6 )[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C](p-val)[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][/ROW]
[ROW][C]Estimates ( 7 )[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C](p-val)[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][/ROW]
[ROW][C]Estimates ( 8 )[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C](p-val)[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][/ROW]
[ROW][C]Estimates ( 9 )[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C](p-val)[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][/ROW]
[ROW][C]Estimates ( 10 )[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C](p-val)[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][/ROW]
[ROW][C]Estimates ( 11 )[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C](p-val)[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][C](NA )[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=62918&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=62918&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

ARIMA Parameter Estimation and Backward Selection
Iterationar1ar2ma1sar1sar2sma1
Estimates ( 1 )0.450.1291-0.2399-0.2094-0.07750.2976
(p-val)(0.4363 )(0.5302 )(0.6794 )(0.7749 )(0.5958 )(0.6796 )
Estimates ( 2 )0.44390.1303-0.23680-0.09350.0905
(p-val)(0.4418 )(0.5211 )(0.6828 )(NA )(0.4616 )(0.4579 )
Estimates ( 3 )0.2140.194900-0.10090.1026
(p-val)(0.028 )(0.0432 )(NA )(NA )(0.4225 )(0.3858 )
Estimates ( 4 )0.21470.19620000.0998
(p-val)(0.0282 )(0.0414 )(NA )(NA )(NA )(0.4369 )
Estimates ( 5 )0.22910.1890000
(p-val)(0.0172 )(0.0483 )(NA )(NA )(NA )(NA )
Estimates ( 6 )NANANANANANA
(p-val)(NA )(NA )(NA )(NA )(NA )(NA )
Estimates ( 7 )NANANANANANA
(p-val)(NA )(NA )(NA )(NA )(NA )(NA )
Estimates ( 8 )NANANANANANA
(p-val)(NA )(NA )(NA )(NA )(NA )(NA )
Estimates ( 9 )NANANANANANA
(p-val)(NA )(NA )(NA )(NA )(NA )(NA )
Estimates ( 10 )NANANANANANA
(p-val)(NA )(NA )(NA )(NA )(NA )(NA )
Estimates ( 11 )NANANANANANA
(p-val)(NA )(NA )(NA )(NA )(NA )(NA )







Estimated ARIMA Residuals
Value
0.00542916130943278
0.0445893441667106
-0.0137888879399847
0.0453152005372048
0.00473315051318341
-0.00629302867546508
-0.070117568265751
-0.0217843333183126
-0.0095666262457008
0.0165637840451361
0.00824993070407797
-0.0831327333629231
0.0144161451837631
0.034621459194465
0.0184381942383567
-0.074932085622151
-0.0264502766059977
-0.0112128979582415
-0.10436727046515
0.0715680268198404
0.121060489346963
-0.0324214631834054
-0.00529431524629609
-0.00146846269678377
-0.00570151995165197
-0.025987421858386
-0.0685516945712228
-0.0733842752561877
-0.0163445778492365
-0.0110134858421602
-0.087660645529663
0.109058909700739
0.0339807510912559
0.00300957055239715
-0.117182246964976
0.0294137488267335
0.0893484543689374
0.0298847434899963
0.0611729025233987
0.00324519869485862
0.0212178770497218
0.00660658211635031
0.00372487320385017
-0.00838101340628686
0.0170033508018199
0.0621313219493351
0.0197401442742924
-0.0417164562197347
0.0228259755720078
-0.042255817474836
0.0309137428469852
-0.00918278678351927
0.0146293075798733
0.0297847213520409
0.00986110949240185
0.0614197587407885
0.0126952510044700
0.00800151002534761
0.0341797308392325
-0.0180464496214532
-0.0153479524622885
0.0463170445239729
0.0195281991212937
0.0371269245007414
-0.00744692508954433
0.0462493884790173
-0.0395877264208058
0.0382572916842234
0.0374023801364467
0.039717646637445
-0.0103197596326754
0.00344718875977555
0.00885007204463633
-0.0791417702355047
0.0158234735164099
0.016538541536172
0.0144056817515094
0.00282613662406027
0.0534415346690993
-0.0114429989198319
0.0380793061367662
0.0110221503256857
-0.0190504147856999
0.0414994449048327
0.00816603652061595
0.041019836581154
-0.0171632971999998
-0.0239258971120320
-0.0219604522663097
0.00948947211086537
0.039949080719774
-0.0982011343440696
0.0127754891139968
-0.134456574642575
0.0790854375582093
-0.0486237536443106
0.0893991774345677
0.0305540121228036
-0.137690614650960
-0.0322141353773482
0.03442439486507
-0.164911125871352
-0.183934800698021
0.0234325246699871
-0.0233244578414444
0.0283600031799320
-0.0273434825220074
0.0285743363772815

\begin{tabular}{lllllllll}
\hline
Estimated ARIMA Residuals \tabularnewline
Value \tabularnewline
0.00542916130943278 \tabularnewline
0.0445893441667106 \tabularnewline
-0.0137888879399847 \tabularnewline
0.0453152005372048 \tabularnewline
0.00473315051318341 \tabularnewline
-0.00629302867546508 \tabularnewline
-0.070117568265751 \tabularnewline
-0.0217843333183126 \tabularnewline
-0.0095666262457008 \tabularnewline
0.0165637840451361 \tabularnewline
0.00824993070407797 \tabularnewline
-0.0831327333629231 \tabularnewline
0.0144161451837631 \tabularnewline
0.034621459194465 \tabularnewline
0.0184381942383567 \tabularnewline
-0.074932085622151 \tabularnewline
-0.0264502766059977 \tabularnewline
-0.0112128979582415 \tabularnewline
-0.10436727046515 \tabularnewline
0.0715680268198404 \tabularnewline
0.121060489346963 \tabularnewline
-0.0324214631834054 \tabularnewline
-0.00529431524629609 \tabularnewline
-0.00146846269678377 \tabularnewline
-0.00570151995165197 \tabularnewline
-0.025987421858386 \tabularnewline
-0.0685516945712228 \tabularnewline
-0.0733842752561877 \tabularnewline
-0.0163445778492365 \tabularnewline
-0.0110134858421602 \tabularnewline
-0.087660645529663 \tabularnewline
0.109058909700739 \tabularnewline
0.0339807510912559 \tabularnewline
0.00300957055239715 \tabularnewline
-0.117182246964976 \tabularnewline
0.0294137488267335 \tabularnewline
0.0893484543689374 \tabularnewline
0.0298847434899963 \tabularnewline
0.0611729025233987 \tabularnewline
0.00324519869485862 \tabularnewline
0.0212178770497218 \tabularnewline
0.00660658211635031 \tabularnewline
0.00372487320385017 \tabularnewline
-0.00838101340628686 \tabularnewline
0.0170033508018199 \tabularnewline
0.0621313219493351 \tabularnewline
0.0197401442742924 \tabularnewline
-0.0417164562197347 \tabularnewline
0.0228259755720078 \tabularnewline
-0.042255817474836 \tabularnewline
0.0309137428469852 \tabularnewline
-0.00918278678351927 \tabularnewline
0.0146293075798733 \tabularnewline
0.0297847213520409 \tabularnewline
0.00986110949240185 \tabularnewline
0.0614197587407885 \tabularnewline
0.0126952510044700 \tabularnewline
0.00800151002534761 \tabularnewline
0.0341797308392325 \tabularnewline
-0.0180464496214532 \tabularnewline
-0.0153479524622885 \tabularnewline
0.0463170445239729 \tabularnewline
0.0195281991212937 \tabularnewline
0.0371269245007414 \tabularnewline
-0.00744692508954433 \tabularnewline
0.0462493884790173 \tabularnewline
-0.0395877264208058 \tabularnewline
0.0382572916842234 \tabularnewline
0.0374023801364467 \tabularnewline
0.039717646637445 \tabularnewline
-0.0103197596326754 \tabularnewline
0.00344718875977555 \tabularnewline
0.00885007204463633 \tabularnewline
-0.0791417702355047 \tabularnewline
0.0158234735164099 \tabularnewline
0.016538541536172 \tabularnewline
0.0144056817515094 \tabularnewline
0.00282613662406027 \tabularnewline
0.0534415346690993 \tabularnewline
-0.0114429989198319 \tabularnewline
0.0380793061367662 \tabularnewline
0.0110221503256857 \tabularnewline
-0.0190504147856999 \tabularnewline
0.0414994449048327 \tabularnewline
0.00816603652061595 \tabularnewline
0.041019836581154 \tabularnewline
-0.0171632971999998 \tabularnewline
-0.0239258971120320 \tabularnewline
-0.0219604522663097 \tabularnewline
0.00948947211086537 \tabularnewline
0.039949080719774 \tabularnewline
-0.0982011343440696 \tabularnewline
0.0127754891139968 \tabularnewline
-0.134456574642575 \tabularnewline
0.0790854375582093 \tabularnewline
-0.0486237536443106 \tabularnewline
0.0893991774345677 \tabularnewline
0.0305540121228036 \tabularnewline
-0.137690614650960 \tabularnewline
-0.0322141353773482 \tabularnewline
0.03442439486507 \tabularnewline
-0.164911125871352 \tabularnewline
-0.183934800698021 \tabularnewline
0.0234325246699871 \tabularnewline
-0.0233244578414444 \tabularnewline
0.0283600031799320 \tabularnewline
-0.0273434825220074 \tabularnewline
0.0285743363772815 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=62918&T=2

[TABLE]
[ROW][C]Estimated ARIMA Residuals[/C][/ROW]
[ROW][C]Value[/C][/ROW]
[ROW][C]0.00542916130943278[/C][/ROW]
[ROW][C]0.0445893441667106[/C][/ROW]
[ROW][C]-0.0137888879399847[/C][/ROW]
[ROW][C]0.0453152005372048[/C][/ROW]
[ROW][C]0.00473315051318341[/C][/ROW]
[ROW][C]-0.00629302867546508[/C][/ROW]
[ROW][C]-0.070117568265751[/C][/ROW]
[ROW][C]-0.0217843333183126[/C][/ROW]
[ROW][C]-0.0095666262457008[/C][/ROW]
[ROW][C]0.0165637840451361[/C][/ROW]
[ROW][C]0.00824993070407797[/C][/ROW]
[ROW][C]-0.0831327333629231[/C][/ROW]
[ROW][C]0.0144161451837631[/C][/ROW]
[ROW][C]0.034621459194465[/C][/ROW]
[ROW][C]0.0184381942383567[/C][/ROW]
[ROW][C]-0.074932085622151[/C][/ROW]
[ROW][C]-0.0264502766059977[/C][/ROW]
[ROW][C]-0.0112128979582415[/C][/ROW]
[ROW][C]-0.10436727046515[/C][/ROW]
[ROW][C]0.0715680268198404[/C][/ROW]
[ROW][C]0.121060489346963[/C][/ROW]
[ROW][C]-0.0324214631834054[/C][/ROW]
[ROW][C]-0.00529431524629609[/C][/ROW]
[ROW][C]-0.00146846269678377[/C][/ROW]
[ROW][C]-0.00570151995165197[/C][/ROW]
[ROW][C]-0.025987421858386[/C][/ROW]
[ROW][C]-0.0685516945712228[/C][/ROW]
[ROW][C]-0.0733842752561877[/C][/ROW]
[ROW][C]-0.0163445778492365[/C][/ROW]
[ROW][C]-0.0110134858421602[/C][/ROW]
[ROW][C]-0.087660645529663[/C][/ROW]
[ROW][C]0.109058909700739[/C][/ROW]
[ROW][C]0.0339807510912559[/C][/ROW]
[ROW][C]0.00300957055239715[/C][/ROW]
[ROW][C]-0.117182246964976[/C][/ROW]
[ROW][C]0.0294137488267335[/C][/ROW]
[ROW][C]0.0893484543689374[/C][/ROW]
[ROW][C]0.0298847434899963[/C][/ROW]
[ROW][C]0.0611729025233987[/C][/ROW]
[ROW][C]0.00324519869485862[/C][/ROW]
[ROW][C]0.0212178770497218[/C][/ROW]
[ROW][C]0.00660658211635031[/C][/ROW]
[ROW][C]0.00372487320385017[/C][/ROW]
[ROW][C]-0.00838101340628686[/C][/ROW]
[ROW][C]0.0170033508018199[/C][/ROW]
[ROW][C]0.0621313219493351[/C][/ROW]
[ROW][C]0.0197401442742924[/C][/ROW]
[ROW][C]-0.0417164562197347[/C][/ROW]
[ROW][C]0.0228259755720078[/C][/ROW]
[ROW][C]-0.042255817474836[/C][/ROW]
[ROW][C]0.0309137428469852[/C][/ROW]
[ROW][C]-0.00918278678351927[/C][/ROW]
[ROW][C]0.0146293075798733[/C][/ROW]
[ROW][C]0.0297847213520409[/C][/ROW]
[ROW][C]0.00986110949240185[/C][/ROW]
[ROW][C]0.0614197587407885[/C][/ROW]
[ROW][C]0.0126952510044700[/C][/ROW]
[ROW][C]0.00800151002534761[/C][/ROW]
[ROW][C]0.0341797308392325[/C][/ROW]
[ROW][C]-0.0180464496214532[/C][/ROW]
[ROW][C]-0.0153479524622885[/C][/ROW]
[ROW][C]0.0463170445239729[/C][/ROW]
[ROW][C]0.0195281991212937[/C][/ROW]
[ROW][C]0.0371269245007414[/C][/ROW]
[ROW][C]-0.00744692508954433[/C][/ROW]
[ROW][C]0.0462493884790173[/C][/ROW]
[ROW][C]-0.0395877264208058[/C][/ROW]
[ROW][C]0.0382572916842234[/C][/ROW]
[ROW][C]0.0374023801364467[/C][/ROW]
[ROW][C]0.039717646637445[/C][/ROW]
[ROW][C]-0.0103197596326754[/C][/ROW]
[ROW][C]0.00344718875977555[/C][/ROW]
[ROW][C]0.00885007204463633[/C][/ROW]
[ROW][C]-0.0791417702355047[/C][/ROW]
[ROW][C]0.0158234735164099[/C][/ROW]
[ROW][C]0.016538541536172[/C][/ROW]
[ROW][C]0.0144056817515094[/C][/ROW]
[ROW][C]0.00282613662406027[/C][/ROW]
[ROW][C]0.0534415346690993[/C][/ROW]
[ROW][C]-0.0114429989198319[/C][/ROW]
[ROW][C]0.0380793061367662[/C][/ROW]
[ROW][C]0.0110221503256857[/C][/ROW]
[ROW][C]-0.0190504147856999[/C][/ROW]
[ROW][C]0.0414994449048327[/C][/ROW]
[ROW][C]0.00816603652061595[/C][/ROW]
[ROW][C]0.041019836581154[/C][/ROW]
[ROW][C]-0.0171632971999998[/C][/ROW]
[ROW][C]-0.0239258971120320[/C][/ROW]
[ROW][C]-0.0219604522663097[/C][/ROW]
[ROW][C]0.00948947211086537[/C][/ROW]
[ROW][C]0.039949080719774[/C][/ROW]
[ROW][C]-0.0982011343440696[/C][/ROW]
[ROW][C]0.0127754891139968[/C][/ROW]
[ROW][C]-0.134456574642575[/C][/ROW]
[ROW][C]0.0790854375582093[/C][/ROW]
[ROW][C]-0.0486237536443106[/C][/ROW]
[ROW][C]0.0893991774345677[/C][/ROW]
[ROW][C]0.0305540121228036[/C][/ROW]
[ROW][C]-0.137690614650960[/C][/ROW]
[ROW][C]-0.0322141353773482[/C][/ROW]
[ROW][C]0.03442439486507[/C][/ROW]
[ROW][C]-0.164911125871352[/C][/ROW]
[ROW][C]-0.183934800698021[/C][/ROW]
[ROW][C]0.0234325246699871[/C][/ROW]
[ROW][C]-0.0233244578414444[/C][/ROW]
[ROW][C]0.0283600031799320[/C][/ROW]
[ROW][C]-0.0273434825220074[/C][/ROW]
[ROW][C]0.0285743363772815[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=62918&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=62918&T=2

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Estimated ARIMA Residuals
Value
0.00542916130943278
0.0445893441667106
-0.0137888879399847
0.0453152005372048
0.00473315051318341
-0.00629302867546508
-0.070117568265751
-0.0217843333183126
-0.0095666262457008
0.0165637840451361
0.00824993070407797
-0.0831327333629231
0.0144161451837631
0.034621459194465
0.0184381942383567
-0.074932085622151
-0.0264502766059977
-0.0112128979582415
-0.10436727046515
0.0715680268198404
0.121060489346963
-0.0324214631834054
-0.00529431524629609
-0.00146846269678377
-0.00570151995165197
-0.025987421858386
-0.0685516945712228
-0.0733842752561877
-0.0163445778492365
-0.0110134858421602
-0.087660645529663
0.109058909700739
0.0339807510912559
0.00300957055239715
-0.117182246964976
0.0294137488267335
0.0893484543689374
0.0298847434899963
0.0611729025233987
0.00324519869485862
0.0212178770497218
0.00660658211635031
0.00372487320385017
-0.00838101340628686
0.0170033508018199
0.0621313219493351
0.0197401442742924
-0.0417164562197347
0.0228259755720078
-0.042255817474836
0.0309137428469852
-0.00918278678351927
0.0146293075798733
0.0297847213520409
0.00986110949240185
0.0614197587407885
0.0126952510044700
0.00800151002534761
0.0341797308392325
-0.0180464496214532
-0.0153479524622885
0.0463170445239729
0.0195281991212937
0.0371269245007414
-0.00744692508954433
0.0462493884790173
-0.0395877264208058
0.0382572916842234
0.0374023801364467
0.039717646637445
-0.0103197596326754
0.00344718875977555
0.00885007204463633
-0.0791417702355047
0.0158234735164099
0.016538541536172
0.0144056817515094
0.00282613662406027
0.0534415346690993
-0.0114429989198319
0.0380793061367662
0.0110221503256857
-0.0190504147856999
0.0414994449048327
0.00816603652061595
0.041019836581154
-0.0171632971999998
-0.0239258971120320
-0.0219604522663097
0.00948947211086537
0.039949080719774
-0.0982011343440696
0.0127754891139968
-0.134456574642575
0.0790854375582093
-0.0486237536443106
0.0893991774345677
0.0305540121228036
-0.137690614650960
-0.0322141353773482
0.03442439486507
-0.164911125871352
-0.183934800698021
0.0234325246699871
-0.0233244578414444
0.0283600031799320
-0.0273434825220074
0.0285743363772815



Parameters (Session):
par1 = FALSE ; par2 = 0.2 ; par3 = 1 ; par4 = 0 ; par5 = 12 ; par6 = 2 ; par7 = 0 ; par8 = 0 ; par9 = 0 ;
Parameters (R input):
par1 = FALSE ; par2 = 0.2 ; par3 = 1 ; par4 = 0 ; par5 = 12 ; par6 = 2 ; par7 = 1 ; par8 = 2 ; par9 = 1 ;
R code (references can be found in the software module):
library(lattice)
if (par1 == 'TRUE') par1 <- TRUE
if (par1 == 'FALSE') par1 <- FALSE
par2 <- as.numeric(par2) #Box-Cox lambda transformation parameter
par3 <- as.numeric(par3) #degree of non-seasonal differencing
par4 <- as.numeric(par4) #degree of seasonal differencing
par5 <- as.numeric(par5) #seasonal period
par6 <- as.numeric(par6) #degree (p) of the non-seasonal AR(p) polynomial
par7 <- as.numeric(par7) #degree (q) of the non-seasonal MA(q) polynomial
par8 <- as.numeric(par8) #degree (P) of the seasonal AR(P) polynomial
par9 <- as.numeric(par9) #degree (Q) of the seasonal MA(Q) polynomial
armaGR <- function(arima.out, names, n){
try1 <- arima.out$coef
try2 <- sqrt(diag(arima.out$var.coef))
try.data.frame <- data.frame(matrix(NA,ncol=4,nrow=length(names)))
dimnames(try.data.frame) <- list(names,c('coef','std','tstat','pv'))
try.data.frame[,1] <- try1
for(i in 1:length(try2)) try.data.frame[which(rownames(try.data.frame)==names(try2)[i]),2] <- try2[i]
try.data.frame[,3] <- try.data.frame[,1] / try.data.frame[,2]
try.data.frame[,4] <- round((1-pt(abs(try.data.frame[,3]),df=n-(length(try2)+1)))*2,5)
vector <- rep(NA,length(names))
vector[is.na(try.data.frame[,4])] <- 0
maxi <- which.max(try.data.frame[,4])
continue <- max(try.data.frame[,4],na.rm=TRUE) > .05
vector[maxi] <- 0
list(summary=try.data.frame,next.vector=vector,continue=continue)
}
arimaSelect <- function(series, order=c(13,0,0), seasonal=list(order=c(2,0,0),period=12), include.mean=F){
nrc <- order[1]+order[3]+seasonal$order[1]+seasonal$order[3]
coeff <- matrix(NA, nrow=nrc*2, ncol=nrc)
pval <- matrix(NA, nrow=nrc*2, ncol=nrc)
mylist <- rep(list(NULL), nrc)
names <- NULL
if(order[1] > 0) names <- paste('ar',1:order[1],sep='')
if(order[3] > 0) names <- c( names , paste('ma',1:order[3],sep='') )
if(seasonal$order[1] > 0) names <- c(names, paste('sar',1:seasonal$order[1],sep=''))
if(seasonal$order[3] > 0) names <- c(names, paste('sma',1:seasonal$order[3],sep=''))
arima.out <- arima(series, order=order, seasonal=seasonal, include.mean=include.mean, method='ML')
mylist[[1]] <- arima.out
last.arma <- armaGR(arima.out, names, length(series))
mystop <- FALSE
i <- 1
coeff[i,] <- last.arma[[1]][,1]
pval [i,] <- last.arma[[1]][,4]
i <- 2
aic <- arima.out$aic
while(!mystop){
mylist[[i]] <- arima.out
arima.out <- arima(series, order=order, seasonal=seasonal, include.mean=include.mean, method='ML', fixed=last.arma$next.vector)
aic <- c(aic, arima.out$aic)
last.arma <- armaGR(arima.out, names, length(series))
mystop <- !last.arma$continue
coeff[i,] <- last.arma[[1]][,1]
pval [i,] <- last.arma[[1]][,4]
i <- i+1
}
list(coeff, pval, mylist, aic=aic)
}
arimaSelectplot <- function(arimaSelect.out,noms,choix){
noms <- names(arimaSelect.out[[3]][[1]]$coef)
coeff <- arimaSelect.out[[1]]
k <- min(which(is.na(coeff[,1])))-1
coeff <- coeff[1:k,]
pval <- arimaSelect.out[[2]][1:k,]
aic <- arimaSelect.out$aic[1:k]
coeff[coeff==0] <- NA
n <- ncol(coeff)
if(missing(choix)) choix <- k
layout(matrix(c(1,1,1,2,
3,3,3,2,
3,3,3,4,
5,6,7,7),nr=4),
widths=c(10,35,45,15),
heights=c(30,30,15,15))
couleurs <- rainbow(75)[1:50]#(50)
ticks <- pretty(coeff)
par(mar=c(1,1,3,1))
plot(aic,k:1-.5,type='o',pch=21,bg='blue',cex=2,axes=F,lty=2,xpd=NA)
points(aic[choix],k-choix+.5,pch=21,cex=4,bg=2,xpd=NA)
title('aic',line=2)
par(mar=c(3,0,0,0))
plot(0,axes=F,xlab='',ylab='',xlim=range(ticks),ylim=c(.1,1))
rect(xleft = min(ticks) + (0:49)/50*(max(ticks)-min(ticks)),
xright = min(ticks) + (1:50)/50*(max(ticks)-min(ticks)),
ytop = rep(1,50),
ybottom= rep(0,50),col=couleurs,border=NA)
axis(1,ticks)
rect(xleft=min(ticks),xright=max(ticks),ytop=1,ybottom=0)
text(mean(coeff,na.rm=T),.5,'coefficients',cex=2,font=2)
par(mar=c(1,1,3,1))
image(1:n,1:k,t(coeff[k:1,]),axes=F,col=couleurs,zlim=range(ticks))
for(i in 1:n) for(j in 1:k) if(!is.na(coeff[j,i])) {
if(pval[j,i]<.01) symb = 'green'
else if( (pval[j,i]<.05) & (pval[j,i]>=.01)) symb = 'orange'
else if( (pval[j,i]<.1) & (pval[j,i]>=.05)) symb = 'red'
else symb = 'black'
polygon(c(i+.5 ,i+.2 ,i+.5 ,i+.5),
c(k-j+0.5,k-j+0.5,k-j+0.8,k-j+0.5),
col=symb)
if(j==choix) {
rect(xleft=i-.5,
xright=i+.5,
ybottom=k-j+1.5,
ytop=k-j+.5,
lwd=4)
text(i,
k-j+1,
round(coeff[j,i],2),
cex=1.2,
font=2)
}
else{
rect(xleft=i-.5,xright=i+.5,ybottom=k-j+1.5,ytop=k-j+.5)
text(i,k-j+1,round(coeff[j,i],2),cex=1.2,font=1)
}
}
axis(3,1:n,noms)
par(mar=c(0.5,0,0,0.5))
plot(0,axes=F,xlab='',ylab='',type='n',xlim=c(0,8),ylim=c(-.2,.8))
cols <- c('green','orange','red','black')
niv <- c('0','0.01','0.05','0.1')
for(i in 0:3){
polygon(c(1+2*i ,1+2*i ,1+2*i-.5 ,1+2*i),
c(.4 ,.7 , .4 , .4),
col=cols[i+1])
text(2*i,0.5,niv[i+1],cex=1.5)
}
text(8,.5,1,cex=1.5)
text(4,0,'p-value',cex=2)
box()
residus <- arimaSelect.out[[3]][[choix]]$res
par(mar=c(1,2,4,1))
acf(residus,main='')
title('acf',line=.5)
par(mar=c(1,2,4,1))
pacf(residus,main='')
title('pacf',line=.5)
par(mar=c(2,2,4,1))
qqnorm(residus,main='')
title('qq-norm',line=.5)
qqline(residus)
residus
}
if (par2 == 0) x <- log(x)
if (par2 != 0) x <- x^par2
(selection <- arimaSelect(x, order=c(par6,par3,par7), seasonal=list(order=c(par8,par4,par9), period=par5)))
bitmap(file='test1.png')
resid <- arimaSelectplot(selection)
dev.off()
resid
bitmap(file='test2.png')
acf(resid,length(resid)/2, main='Residual Autocorrelation Function')
dev.off()
bitmap(file='test3.png')
pacf(resid,length(resid)/2, main='Residual Partial Autocorrelation Function')
dev.off()
bitmap(file='test4.png')
cpgram(resid, main='Residual Cumulative Periodogram')
dev.off()
bitmap(file='test5.png')
hist(resid, main='Residual Histogram', xlab='values of Residuals')
dev.off()
bitmap(file='test6.png')
densityplot(~resid,col='black',main='Residual Density Plot', xlab='values of Residuals')
dev.off()
bitmap(file='test7.png')
qqnorm(resid, main='Residual Normal Q-Q Plot')
qqline(resid)
dev.off()
ncols <- length(selection[[1]][1,])
nrows <- length(selection[[2]][,1])-1
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'ARIMA Parameter Estimation and Backward Selection', ncols+1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Iteration', header=TRUE)
for (i in 1:ncols) {
a<-table.element(a,names(selection[[3]][[1]]$coef)[i],header=TRUE)
}
a<-table.row.end(a)
for (j in 1:nrows) {
a<-table.row.start(a)
mydum <- 'Estimates ('
mydum <- paste(mydum,j)
mydum <- paste(mydum,')')
a<-table.element(a,mydum, header=TRUE)
for (i in 1:ncols) {
a<-table.element(a,round(selection[[1]][j,i],4))
}
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'(p-val)', header=TRUE)
for (i in 1:ncols) {
mydum <- '('
mydum <- paste(mydum,round(selection[[2]][j,i],4),sep='')
mydum <- paste(mydum,')')
a<-table.element(a,mydum)
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Estimated ARIMA Residuals', 1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Value', 1,TRUE)
a<-table.row.end(a)
for (i in (par4*par5+par3):length(resid)) {
a<-table.row.start(a)
a<-table.element(a,resid[i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')