Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_autocorrelation.wasp
Title produced by software(Partial) Autocorrelation Function
Date of computationFri, 04 Dec 2009 08:15:05 -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/04/t1259939730wf0lajtu8vv8wbs.htm/, Retrieved Sat, 27 Apr 2024 21:09:07 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=63737, Retrieved Sat, 27 Apr 2024 21:09:07 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact119
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Explorative Data Analysis] [Run Sequence gebo...] [2008-12-12 13:32:37] [76963dc1903f0f612b6153510a3818cf]
- R  D  [Univariate Explorative Data Analysis] [Run Sequence gebo...] [2008-12-17 12:14:40] [76963dc1903f0f612b6153510a3818cf]
-         [Univariate Explorative Data Analysis] [Run Sequence Plot...] [2008-12-22 18:19:51] [1ce0d16c8f4225c977b42c8fa93bc163]
- RMP       [(Partial) Autocorrelation Function] [Identifying Integ...] [2009-11-22 12:16:10] [b98453cac15ba1066b407e146608df68]
-   PD        [(Partial) Autocorrelation Function] [Bouwvergunningen ...] [2009-11-27 14:23:36] [11ac052cc87d77b9933b02bea117068e]
-   P           [(Partial) Autocorrelation Function] [Bouwvergunningen ...] [2009-11-27 14:38:15] [11ac052cc87d77b9933b02bea117068e]
- R  D              [(Partial) Autocorrelation Function] [] [2009-12-04 15:15:05] [2795ec65528c1a16d9df20713e7edc71] [Current]
Feedback Forum

Post a new message
Dataseries X:
100
108,1560276
114,0150276
102,1880309
110,3672031
96,8602511
94,1944583
99,51621961
94,06333487
97,5541476
78,15062422
81,2434643
92,36262465
96,06324371
114,0523777
110,6616666
104,9171949
90,00187193
95,7008067
86,02741157
84,85287668
100,04328
80,91713823
74,06539709
77,30281369
97,23043249
90,75515676
100,5614455
92,01293267
99,24012138
105,8672755
90,9920463
93,30624423
91,17419413
77,33295039
91,1277721
85,01249943
83,90390242
104,8626302
110,9039108
95,43714373
111,6238727
108,8925403
96,17511682
101,9740205
99,11953031
86,78158147
118,4195003
118,7441447
106,5296192
134,7772694
104,6778714
105,2954304
139,4139849
103,6060491
99,78182974
103,4610301
120,0594945
96,71377168
107,1308929
105,3608372
111,6942359
132,0519998
126,8037879
154,4824253
141,5570984
109,9506882
127,904198
133,0888617
120,0796299
117,5557142
143,0362309
159,982927
128,5991124
149,7373327
126,8169313
140,9639674
137,6691981
117,9402337
122,3095247
127,7804207
136,1677176
116,2405856
123,1576893
116,3400234
108,6119282
125,8982264
112,8003105
107,5182447
135,0955413
115,5096488
115,8640759
104,5883906
163,7213386
113,4482275
98,0428844
116,7868521
126,5330444
113,0336597
124,3392163
109,8298759
124,4434777
111,5039454
102,0350019
116,8726598
112,2073122
101,1513902
124,4255108




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 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 & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=63737&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]1 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=63737&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=63737&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 time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Autocorrelation Function
Time lag kACF(k)T-STATP-value
1-0.339641-3.31040.000659
2-0.224508-2.18820.015552
30.0935070.91140.182197
40.1401261.36580.087616
5-0.191564-1.86710.032483
6-0.027925-0.27220.393038
70.098890.96390.168781
80.0222350.21670.414444
9-0.081154-0.7910.215459
100.0591050.57610.282959
110.1964521.91480.029265
12-0.306458-2.9870.001792
13-0.080167-0.78140.218264
140.1553031.51370.06671
150.1059261.03240.152244
16-0.236498-2.30510.011669
170.1240751.20930.114769
180.0378320.36870.356571
190.0895050.87240.1926
20-0.181859-1.77250.039755
210.0532250.51880.302563
220.033730.32880.371529
230.0608060.59270.277407
24-0.205431-2.00230.024052
250.1275481.24320.10843
260.113781.1090.135118
27-0.157092-1.53110.064529
28-0.027138-0.26450.395982
290.1581031.5410.063321
300.0011410.01110.495573
31-0.260372-2.53780.006391
320.2180752.12550.018068
330.0106050.10340.458947
34-0.113589-1.10710.135517
35-0.039304-0.38310.351256
360.1732771.68890.04726

\begin{tabular}{lllllllll}
\hline
Autocorrelation Function \tabularnewline
Time lag k & ACF(k) & T-STAT & P-value \tabularnewline
1 & -0.339641 & -3.3104 & 0.000659 \tabularnewline
2 & -0.224508 & -2.1882 & 0.015552 \tabularnewline
3 & 0.093507 & 0.9114 & 0.182197 \tabularnewline
4 & 0.140126 & 1.3658 & 0.087616 \tabularnewline
5 & -0.191564 & -1.8671 & 0.032483 \tabularnewline
6 & -0.027925 & -0.2722 & 0.393038 \tabularnewline
7 & 0.09889 & 0.9639 & 0.168781 \tabularnewline
8 & 0.022235 & 0.2167 & 0.414444 \tabularnewline
9 & -0.081154 & -0.791 & 0.215459 \tabularnewline
10 & 0.059105 & 0.5761 & 0.282959 \tabularnewline
11 & 0.196452 & 1.9148 & 0.029265 \tabularnewline
12 & -0.306458 & -2.987 & 0.001792 \tabularnewline
13 & -0.080167 & -0.7814 & 0.218264 \tabularnewline
14 & 0.155303 & 1.5137 & 0.06671 \tabularnewline
15 & 0.105926 & 1.0324 & 0.152244 \tabularnewline
16 & -0.236498 & -2.3051 & 0.011669 \tabularnewline
17 & 0.124075 & 1.2093 & 0.114769 \tabularnewline
18 & 0.037832 & 0.3687 & 0.356571 \tabularnewline
19 & 0.089505 & 0.8724 & 0.1926 \tabularnewline
20 & -0.181859 & -1.7725 & 0.039755 \tabularnewline
21 & 0.053225 & 0.5188 & 0.302563 \tabularnewline
22 & 0.03373 & 0.3288 & 0.371529 \tabularnewline
23 & 0.060806 & 0.5927 & 0.277407 \tabularnewline
24 & -0.205431 & -2.0023 & 0.024052 \tabularnewline
25 & 0.127548 & 1.2432 & 0.10843 \tabularnewline
26 & 0.11378 & 1.109 & 0.135118 \tabularnewline
27 & -0.157092 & -1.5311 & 0.064529 \tabularnewline
28 & -0.027138 & -0.2645 & 0.395982 \tabularnewline
29 & 0.158103 & 1.541 & 0.063321 \tabularnewline
30 & 0.001141 & 0.0111 & 0.495573 \tabularnewline
31 & -0.260372 & -2.5378 & 0.006391 \tabularnewline
32 & 0.218075 & 2.1255 & 0.018068 \tabularnewline
33 & 0.010605 & 0.1034 & 0.458947 \tabularnewline
34 & -0.113589 & -1.1071 & 0.135517 \tabularnewline
35 & -0.039304 & -0.3831 & 0.351256 \tabularnewline
36 & 0.173277 & 1.6889 & 0.04726 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=63737&T=1

[TABLE]
[ROW][C]Autocorrelation Function[/C][/ROW]
[ROW][C]Time lag k[/C][C]ACF(k)[/C][C]T-STAT[/C][C]P-value[/C][/ROW]
[ROW][C]1[/C][C]-0.339641[/C][C]-3.3104[/C][C]0.000659[/C][/ROW]
[ROW][C]2[/C][C]-0.224508[/C][C]-2.1882[/C][C]0.015552[/C][/ROW]
[ROW][C]3[/C][C]0.093507[/C][C]0.9114[/C][C]0.182197[/C][/ROW]
[ROW][C]4[/C][C]0.140126[/C][C]1.3658[/C][C]0.087616[/C][/ROW]
[ROW][C]5[/C][C]-0.191564[/C][C]-1.8671[/C][C]0.032483[/C][/ROW]
[ROW][C]6[/C][C]-0.027925[/C][C]-0.2722[/C][C]0.393038[/C][/ROW]
[ROW][C]7[/C][C]0.09889[/C][C]0.9639[/C][C]0.168781[/C][/ROW]
[ROW][C]8[/C][C]0.022235[/C][C]0.2167[/C][C]0.414444[/C][/ROW]
[ROW][C]9[/C][C]-0.081154[/C][C]-0.791[/C][C]0.215459[/C][/ROW]
[ROW][C]10[/C][C]0.059105[/C][C]0.5761[/C][C]0.282959[/C][/ROW]
[ROW][C]11[/C][C]0.196452[/C][C]1.9148[/C][C]0.029265[/C][/ROW]
[ROW][C]12[/C][C]-0.306458[/C][C]-2.987[/C][C]0.001792[/C][/ROW]
[ROW][C]13[/C][C]-0.080167[/C][C]-0.7814[/C][C]0.218264[/C][/ROW]
[ROW][C]14[/C][C]0.155303[/C][C]1.5137[/C][C]0.06671[/C][/ROW]
[ROW][C]15[/C][C]0.105926[/C][C]1.0324[/C][C]0.152244[/C][/ROW]
[ROW][C]16[/C][C]-0.236498[/C][C]-2.3051[/C][C]0.011669[/C][/ROW]
[ROW][C]17[/C][C]0.124075[/C][C]1.2093[/C][C]0.114769[/C][/ROW]
[ROW][C]18[/C][C]0.037832[/C][C]0.3687[/C][C]0.356571[/C][/ROW]
[ROW][C]19[/C][C]0.089505[/C][C]0.8724[/C][C]0.1926[/C][/ROW]
[ROW][C]20[/C][C]-0.181859[/C][C]-1.7725[/C][C]0.039755[/C][/ROW]
[ROW][C]21[/C][C]0.053225[/C][C]0.5188[/C][C]0.302563[/C][/ROW]
[ROW][C]22[/C][C]0.03373[/C][C]0.3288[/C][C]0.371529[/C][/ROW]
[ROW][C]23[/C][C]0.060806[/C][C]0.5927[/C][C]0.277407[/C][/ROW]
[ROW][C]24[/C][C]-0.205431[/C][C]-2.0023[/C][C]0.024052[/C][/ROW]
[ROW][C]25[/C][C]0.127548[/C][C]1.2432[/C][C]0.10843[/C][/ROW]
[ROW][C]26[/C][C]0.11378[/C][C]1.109[/C][C]0.135118[/C][/ROW]
[ROW][C]27[/C][C]-0.157092[/C][C]-1.5311[/C][C]0.064529[/C][/ROW]
[ROW][C]28[/C][C]-0.027138[/C][C]-0.2645[/C][C]0.395982[/C][/ROW]
[ROW][C]29[/C][C]0.158103[/C][C]1.541[/C][C]0.063321[/C][/ROW]
[ROW][C]30[/C][C]0.001141[/C][C]0.0111[/C][C]0.495573[/C][/ROW]
[ROW][C]31[/C][C]-0.260372[/C][C]-2.5378[/C][C]0.006391[/C][/ROW]
[ROW][C]32[/C][C]0.218075[/C][C]2.1255[/C][C]0.018068[/C][/ROW]
[ROW][C]33[/C][C]0.010605[/C][C]0.1034[/C][C]0.458947[/C][/ROW]
[ROW][C]34[/C][C]-0.113589[/C][C]-1.1071[/C][C]0.135517[/C][/ROW]
[ROW][C]35[/C][C]-0.039304[/C][C]-0.3831[/C][C]0.351256[/C][/ROW]
[ROW][C]36[/C][C]0.173277[/C][C]1.6889[/C][C]0.04726[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=63737&T=1

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

As an alternative you can also use a QR Code:  

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

Autocorrelation Function
Time lag kACF(k)T-STATP-value
1-0.339641-3.31040.000659
2-0.224508-2.18820.015552
30.0935070.91140.182197
40.1401261.36580.087616
5-0.191564-1.86710.032483
6-0.027925-0.27220.393038
70.098890.96390.168781
80.0222350.21670.414444
9-0.081154-0.7910.215459
100.0591050.57610.282959
110.1964521.91480.029265
12-0.306458-2.9870.001792
13-0.080167-0.78140.218264
140.1553031.51370.06671
150.1059261.03240.152244
16-0.236498-2.30510.011669
170.1240751.20930.114769
180.0378320.36870.356571
190.0895050.87240.1926
20-0.181859-1.77250.039755
210.0532250.51880.302563
220.033730.32880.371529
230.0608060.59270.277407
24-0.205431-2.00230.024052
250.1275481.24320.10843
260.113781.1090.135118
27-0.157092-1.53110.064529
28-0.027138-0.26450.395982
290.1581031.5410.063321
300.0011410.01110.495573
31-0.260372-2.53780.006391
320.2180752.12550.018068
330.0106050.10340.458947
34-0.113589-1.10710.135517
35-0.039304-0.38310.351256
360.1732771.68890.04726







Partial Autocorrelation Function
Time lag kPACF(k)T-STATP-value
1-0.339641-3.31040.000659
2-0.384182-3.74450.000155
3-0.189004-1.84220.034284
40.0281680.27450.392129
5-0.141359-1.37780.085752
6-0.13858-1.35070.089998
7-0.081851-0.79780.213493
8-0.023048-0.22460.411371
9-0.038778-0.3780.35315
100.0212280.20690.418263
110.2635032.56830.005889
12-0.107888-1.05160.147835
13-0.210495-2.05160.021478
14-0.168906-1.64630.051504
150.0249050.24270.404362
16-0.088684-0.86440.194776
170.0149680.14590.442159
18-0.092141-0.89810.185707
190.1276161.24380.108308
20-0.02033-0.19820.421675
21-0.010274-0.10010.460224
22-0.010041-0.09790.46112
230.2516992.45330.00799
24-0.106661-1.03960.150582
25-0.112999-1.10140.136758
260.0086110.08390.466644
270.0238340.23230.4084
28-0.106305-1.03610.151386
290.0451120.43970.330577
300.0928780.90530.183809
31-0.075262-0.73360.232511
320.0525160.51190.304966
33-0.014195-0.13840.445125
34-0.088439-0.8620.19543
350.089610.87340.192322
36-0.023385-0.22790.410094

\begin{tabular}{lllllllll}
\hline
Partial Autocorrelation Function \tabularnewline
Time lag k & PACF(k) & T-STAT & P-value \tabularnewline
1 & -0.339641 & -3.3104 & 0.000659 \tabularnewline
2 & -0.384182 & -3.7445 & 0.000155 \tabularnewline
3 & -0.189004 & -1.8422 & 0.034284 \tabularnewline
4 & 0.028168 & 0.2745 & 0.392129 \tabularnewline
5 & -0.141359 & -1.3778 & 0.085752 \tabularnewline
6 & -0.13858 & -1.3507 & 0.089998 \tabularnewline
7 & -0.081851 & -0.7978 & 0.213493 \tabularnewline
8 & -0.023048 & -0.2246 & 0.411371 \tabularnewline
9 & -0.038778 & -0.378 & 0.35315 \tabularnewline
10 & 0.021228 & 0.2069 & 0.418263 \tabularnewline
11 & 0.263503 & 2.5683 & 0.005889 \tabularnewline
12 & -0.107888 & -1.0516 & 0.147835 \tabularnewline
13 & -0.210495 & -2.0516 & 0.021478 \tabularnewline
14 & -0.168906 & -1.6463 & 0.051504 \tabularnewline
15 & 0.024905 & 0.2427 & 0.404362 \tabularnewline
16 & -0.088684 & -0.8644 & 0.194776 \tabularnewline
17 & 0.014968 & 0.1459 & 0.442159 \tabularnewline
18 & -0.092141 & -0.8981 & 0.185707 \tabularnewline
19 & 0.127616 & 1.2438 & 0.108308 \tabularnewline
20 & -0.02033 & -0.1982 & 0.421675 \tabularnewline
21 & -0.010274 & -0.1001 & 0.460224 \tabularnewline
22 & -0.010041 & -0.0979 & 0.46112 \tabularnewline
23 & 0.251699 & 2.4533 & 0.00799 \tabularnewline
24 & -0.106661 & -1.0396 & 0.150582 \tabularnewline
25 & -0.112999 & -1.1014 & 0.136758 \tabularnewline
26 & 0.008611 & 0.0839 & 0.466644 \tabularnewline
27 & 0.023834 & 0.2323 & 0.4084 \tabularnewline
28 & -0.106305 & -1.0361 & 0.151386 \tabularnewline
29 & 0.045112 & 0.4397 & 0.330577 \tabularnewline
30 & 0.092878 & 0.9053 & 0.183809 \tabularnewline
31 & -0.075262 & -0.7336 & 0.232511 \tabularnewline
32 & 0.052516 & 0.5119 & 0.304966 \tabularnewline
33 & -0.014195 & -0.1384 & 0.445125 \tabularnewline
34 & -0.088439 & -0.862 & 0.19543 \tabularnewline
35 & 0.08961 & 0.8734 & 0.192322 \tabularnewline
36 & -0.023385 & -0.2279 & 0.410094 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=63737&T=2

[TABLE]
[ROW][C]Partial Autocorrelation Function[/C][/ROW]
[ROW][C]Time lag k[/C][C]PACF(k)[/C][C]T-STAT[/C][C]P-value[/C][/ROW]
[ROW][C]1[/C][C]-0.339641[/C][C]-3.3104[/C][C]0.000659[/C][/ROW]
[ROW][C]2[/C][C]-0.384182[/C][C]-3.7445[/C][C]0.000155[/C][/ROW]
[ROW][C]3[/C][C]-0.189004[/C][C]-1.8422[/C][C]0.034284[/C][/ROW]
[ROW][C]4[/C][C]0.028168[/C][C]0.2745[/C][C]0.392129[/C][/ROW]
[ROW][C]5[/C][C]-0.141359[/C][C]-1.3778[/C][C]0.085752[/C][/ROW]
[ROW][C]6[/C][C]-0.13858[/C][C]-1.3507[/C][C]0.089998[/C][/ROW]
[ROW][C]7[/C][C]-0.081851[/C][C]-0.7978[/C][C]0.213493[/C][/ROW]
[ROW][C]8[/C][C]-0.023048[/C][C]-0.2246[/C][C]0.411371[/C][/ROW]
[ROW][C]9[/C][C]-0.038778[/C][C]-0.378[/C][C]0.35315[/C][/ROW]
[ROW][C]10[/C][C]0.021228[/C][C]0.2069[/C][C]0.418263[/C][/ROW]
[ROW][C]11[/C][C]0.263503[/C][C]2.5683[/C][C]0.005889[/C][/ROW]
[ROW][C]12[/C][C]-0.107888[/C][C]-1.0516[/C][C]0.147835[/C][/ROW]
[ROW][C]13[/C][C]-0.210495[/C][C]-2.0516[/C][C]0.021478[/C][/ROW]
[ROW][C]14[/C][C]-0.168906[/C][C]-1.6463[/C][C]0.051504[/C][/ROW]
[ROW][C]15[/C][C]0.024905[/C][C]0.2427[/C][C]0.404362[/C][/ROW]
[ROW][C]16[/C][C]-0.088684[/C][C]-0.8644[/C][C]0.194776[/C][/ROW]
[ROW][C]17[/C][C]0.014968[/C][C]0.1459[/C][C]0.442159[/C][/ROW]
[ROW][C]18[/C][C]-0.092141[/C][C]-0.8981[/C][C]0.185707[/C][/ROW]
[ROW][C]19[/C][C]0.127616[/C][C]1.2438[/C][C]0.108308[/C][/ROW]
[ROW][C]20[/C][C]-0.02033[/C][C]-0.1982[/C][C]0.421675[/C][/ROW]
[ROW][C]21[/C][C]-0.010274[/C][C]-0.1001[/C][C]0.460224[/C][/ROW]
[ROW][C]22[/C][C]-0.010041[/C][C]-0.0979[/C][C]0.46112[/C][/ROW]
[ROW][C]23[/C][C]0.251699[/C][C]2.4533[/C][C]0.00799[/C][/ROW]
[ROW][C]24[/C][C]-0.106661[/C][C]-1.0396[/C][C]0.150582[/C][/ROW]
[ROW][C]25[/C][C]-0.112999[/C][C]-1.1014[/C][C]0.136758[/C][/ROW]
[ROW][C]26[/C][C]0.008611[/C][C]0.0839[/C][C]0.466644[/C][/ROW]
[ROW][C]27[/C][C]0.023834[/C][C]0.2323[/C][C]0.4084[/C][/ROW]
[ROW][C]28[/C][C]-0.106305[/C][C]-1.0361[/C][C]0.151386[/C][/ROW]
[ROW][C]29[/C][C]0.045112[/C][C]0.4397[/C][C]0.330577[/C][/ROW]
[ROW][C]30[/C][C]0.092878[/C][C]0.9053[/C][C]0.183809[/C][/ROW]
[ROW][C]31[/C][C]-0.075262[/C][C]-0.7336[/C][C]0.232511[/C][/ROW]
[ROW][C]32[/C][C]0.052516[/C][C]0.5119[/C][C]0.304966[/C][/ROW]
[ROW][C]33[/C][C]-0.014195[/C][C]-0.1384[/C][C]0.445125[/C][/ROW]
[ROW][C]34[/C][C]-0.088439[/C][C]-0.862[/C][C]0.19543[/C][/ROW]
[ROW][C]35[/C][C]0.08961[/C][C]0.8734[/C][C]0.192322[/C][/ROW]
[ROW][C]36[/C][C]-0.023385[/C][C]-0.2279[/C][C]0.410094[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=63737&T=2

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

As an alternative you can also use a QR Code:  

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

Partial Autocorrelation Function
Time lag kPACF(k)T-STATP-value
1-0.339641-3.31040.000659
2-0.384182-3.74450.000155
3-0.189004-1.84220.034284
40.0281680.27450.392129
5-0.141359-1.37780.085752
6-0.13858-1.35070.089998
7-0.081851-0.79780.213493
8-0.023048-0.22460.411371
9-0.038778-0.3780.35315
100.0212280.20690.418263
110.2635032.56830.005889
12-0.107888-1.05160.147835
13-0.210495-2.05160.021478
14-0.168906-1.64630.051504
150.0249050.24270.404362
16-0.088684-0.86440.194776
170.0149680.14590.442159
18-0.092141-0.89810.185707
190.1276161.24380.108308
20-0.02033-0.19820.421675
21-0.010274-0.10010.460224
22-0.010041-0.09790.46112
230.2516992.45330.00799
24-0.106661-1.03960.150582
25-0.112999-1.10140.136758
260.0086110.08390.466644
270.0238340.23230.4084
28-0.106305-1.03610.151386
290.0451120.43970.330577
300.0928780.90530.183809
31-0.075262-0.73360.232511
320.0525160.51190.304966
33-0.014195-0.13840.445125
34-0.088439-0.8620.19543
350.089610.87340.192322
36-0.023385-0.22790.410094



Parameters (Session):
par1 = 36 ; par2 = 1 ; par3 = 1 ; par4 = 1 ; par5 = 12 ; par6 = MA ; par7 = 0.95 ;
Parameters (R input):
par1 = 36 ; par2 = 1 ; par3 = 1 ; par4 = 1 ; par5 = 12 ; par6 = MA ; par7 = 0.95 ;
R code (references can be found in the software module):
if (par1 == 'Default') {
par1 = 10*log10(length(x))
} else {
par1 <- as.numeric(par1)
}
par2 <- as.numeric(par2)
par3 <- as.numeric(par3)
par4 <- as.numeric(par4)
par5 <- as.numeric(par5)
if (par6 == 'White Noise') par6 <- 'white' else par6 <- 'ma'
par7 <- as.numeric(par7)
if (par2 == 0) {
x <- log(x)
} else {
x <- (x ^ par2 - 1) / par2
}
if (par3 > 0) x <- diff(x,lag=1,difference=par3)
if (par4 > 0) x <- diff(x,lag=par5,difference=par4)
bitmap(file='pic1.png')
racf <- acf(x, par1, main='Autocorrelation', xlab='time lag', ylab='ACF', ci.type=par6, ci=par7, sub=paste('(lambda=',par2,', d=',par3,', D=',par4,', CI=', par7, ', CI type=',par6,')',sep=''))
dev.off()
bitmap(file='pic2.png')
rpacf <- pacf(x,par1,main='Partial Autocorrelation',xlab='lags',ylab='PACF')
dev.off()
(myacf <- c(racf$acf))
(mypacf <- c(rpacf$acf))
lengthx <- length(x)
sqrtn <- sqrt(lengthx)
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Autocorrelation Function',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Time lag k',header=TRUE)
a<-table.element(a,hyperlink('basics.htm','ACF(k)','click here for more information about the Autocorrelation Function'),header=TRUE)
a<-table.element(a,'T-STAT',header=TRUE)
a<-table.element(a,'P-value',header=TRUE)
a<-table.row.end(a)
for (i in 2:(par1+1)) {
a<-table.row.start(a)
a<-table.element(a,i-1,header=TRUE)
a<-table.element(a,round(myacf[i],6))
mytstat <- myacf[i]*sqrtn
a<-table.element(a,round(mytstat,4))
a<-table.element(a,round(1-pt(abs(mytstat),lengthx),6))
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,'Partial Autocorrelation Function',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Time lag k',header=TRUE)
a<-table.element(a,hyperlink('basics.htm','PACF(k)','click here for more information about the Partial Autocorrelation Function'),header=TRUE)
a<-table.element(a,'T-STAT',header=TRUE)
a<-table.element(a,'P-value',header=TRUE)
a<-table.row.end(a)
for (i in 1:par1) {
a<-table.row.start(a)
a<-table.element(a,i,header=TRUE)
a<-table.element(a,round(mypacf[i],6))
mytstat <- mypacf[i]*sqrtn
a<-table.element(a,round(mytstat,4))
a<-table.element(a,round(1-pt(abs(mytstat),lengthx),6))
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')