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:14:11 -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/t1259939672u5zdny1hp9hd25v.htm/, Retrieved Sun, 28 Apr 2024 01:10:01 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=63735, Retrieved Sun, 28 Apr 2024 01:10:01 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact126
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:36:57] [11ac052cc87d77b9933b02bea117068e]
- R  D              [(Partial) Autocorrelation Function] [] [2009-12-04 15:14:11] [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=63735&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=63735&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=63735&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.426481-4.41161.2e-05
2-0.158854-1.64320.051639
30.207122.14250.017212
4-0.039466-0.40820.341955
5-0.092713-0.9590.169852
60.0140510.14530.442355
7-0.020691-0.2140.415465
8-0.016101-0.16660.434018
90.0759410.78550.216936
10-0.058026-0.60020.274811
11-0.07833-0.81030.209797
120.3042143.14680.001069
13-0.270758-2.80070.003026
140.0671790.69490.244311
150.1435031.48440.070321
16-0.212167-2.19470.015174
170.0964980.99820.16022
180.0150240.15540.438395
19-0.014993-0.15510.438524
20-0.134613-1.39240.083338
210.1442381.4920.06932
22-0.031061-0.32130.374305
23-0.057003-0.58960.278336
240.09550.98790.162726
25-0.024034-0.24860.402071
260.0350980.36310.35864
27-0.004936-0.05110.479687
28-0.105099-1.08720.139706
290.1413141.46180.073369
30-0.056533-0.58480.279962
31-0.128349-1.32770.093559
320.0657440.68010.248968
330.0551140.57010.2849
34-0.021452-0.22190.412405
35-0.094589-0.97840.165033
360.1760861.82140.035666

\begin{tabular}{lllllllll}
\hline
Autocorrelation Function \tabularnewline
Time lag k & ACF(k) & T-STAT & P-value \tabularnewline
1 & -0.426481 & -4.4116 & 1.2e-05 \tabularnewline
2 & -0.158854 & -1.6432 & 0.051639 \tabularnewline
3 & 0.20712 & 2.1425 & 0.017212 \tabularnewline
4 & -0.039466 & -0.4082 & 0.341955 \tabularnewline
5 & -0.092713 & -0.959 & 0.169852 \tabularnewline
6 & 0.014051 & 0.1453 & 0.442355 \tabularnewline
7 & -0.020691 & -0.214 & 0.415465 \tabularnewline
8 & -0.016101 & -0.1666 & 0.434018 \tabularnewline
9 & 0.075941 & 0.7855 & 0.216936 \tabularnewline
10 & -0.058026 & -0.6002 & 0.274811 \tabularnewline
11 & -0.07833 & -0.8103 & 0.209797 \tabularnewline
12 & 0.304214 & 3.1468 & 0.001069 \tabularnewline
13 & -0.270758 & -2.8007 & 0.003026 \tabularnewline
14 & 0.067179 & 0.6949 & 0.244311 \tabularnewline
15 & 0.143503 & 1.4844 & 0.070321 \tabularnewline
16 & -0.212167 & -2.1947 & 0.015174 \tabularnewline
17 & 0.096498 & 0.9982 & 0.16022 \tabularnewline
18 & 0.015024 & 0.1554 & 0.438395 \tabularnewline
19 & -0.014993 & -0.1551 & 0.438524 \tabularnewline
20 & -0.134613 & -1.3924 & 0.083338 \tabularnewline
21 & 0.144238 & 1.492 & 0.06932 \tabularnewline
22 & -0.031061 & -0.3213 & 0.374305 \tabularnewline
23 & -0.057003 & -0.5896 & 0.278336 \tabularnewline
24 & 0.0955 & 0.9879 & 0.162726 \tabularnewline
25 & -0.024034 & -0.2486 & 0.402071 \tabularnewline
26 & 0.035098 & 0.3631 & 0.35864 \tabularnewline
27 & -0.004936 & -0.0511 & 0.479687 \tabularnewline
28 & -0.105099 & -1.0872 & 0.139706 \tabularnewline
29 & 0.141314 & 1.4618 & 0.073369 \tabularnewline
30 & -0.056533 & -0.5848 & 0.279962 \tabularnewline
31 & -0.128349 & -1.3277 & 0.093559 \tabularnewline
32 & 0.065744 & 0.6801 & 0.248968 \tabularnewline
33 & 0.055114 & 0.5701 & 0.2849 \tabularnewline
34 & -0.021452 & -0.2219 & 0.412405 \tabularnewline
35 & -0.094589 & -0.9784 & 0.165033 \tabularnewline
36 & 0.176086 & 1.8214 & 0.035666 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=63735&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.426481[/C][C]-4.4116[/C][C]1.2e-05[/C][/ROW]
[ROW][C]2[/C][C]-0.158854[/C][C]-1.6432[/C][C]0.051639[/C][/ROW]
[ROW][C]3[/C][C]0.20712[/C][C]2.1425[/C][C]0.017212[/C][/ROW]
[ROW][C]4[/C][C]-0.039466[/C][C]-0.4082[/C][C]0.341955[/C][/ROW]
[ROW][C]5[/C][C]-0.092713[/C][C]-0.959[/C][C]0.169852[/C][/ROW]
[ROW][C]6[/C][C]0.014051[/C][C]0.1453[/C][C]0.442355[/C][/ROW]
[ROW][C]7[/C][C]-0.020691[/C][C]-0.214[/C][C]0.415465[/C][/ROW]
[ROW][C]8[/C][C]-0.016101[/C][C]-0.1666[/C][C]0.434018[/C][/ROW]
[ROW][C]9[/C][C]0.075941[/C][C]0.7855[/C][C]0.216936[/C][/ROW]
[ROW][C]10[/C][C]-0.058026[/C][C]-0.6002[/C][C]0.274811[/C][/ROW]
[ROW][C]11[/C][C]-0.07833[/C][C]-0.8103[/C][C]0.209797[/C][/ROW]
[ROW][C]12[/C][C]0.304214[/C][C]3.1468[/C][C]0.001069[/C][/ROW]
[ROW][C]13[/C][C]-0.270758[/C][C]-2.8007[/C][C]0.003026[/C][/ROW]
[ROW][C]14[/C][C]0.067179[/C][C]0.6949[/C][C]0.244311[/C][/ROW]
[ROW][C]15[/C][C]0.143503[/C][C]1.4844[/C][C]0.070321[/C][/ROW]
[ROW][C]16[/C][C]-0.212167[/C][C]-2.1947[/C][C]0.015174[/C][/ROW]
[ROW][C]17[/C][C]0.096498[/C][C]0.9982[/C][C]0.16022[/C][/ROW]
[ROW][C]18[/C][C]0.015024[/C][C]0.1554[/C][C]0.438395[/C][/ROW]
[ROW][C]19[/C][C]-0.014993[/C][C]-0.1551[/C][C]0.438524[/C][/ROW]
[ROW][C]20[/C][C]-0.134613[/C][C]-1.3924[/C][C]0.083338[/C][/ROW]
[ROW][C]21[/C][C]0.144238[/C][C]1.492[/C][C]0.06932[/C][/ROW]
[ROW][C]22[/C][C]-0.031061[/C][C]-0.3213[/C][C]0.374305[/C][/ROW]
[ROW][C]23[/C][C]-0.057003[/C][C]-0.5896[/C][C]0.278336[/C][/ROW]
[ROW][C]24[/C][C]0.0955[/C][C]0.9879[/C][C]0.162726[/C][/ROW]
[ROW][C]25[/C][C]-0.024034[/C][C]-0.2486[/C][C]0.402071[/C][/ROW]
[ROW][C]26[/C][C]0.035098[/C][C]0.3631[/C][C]0.35864[/C][/ROW]
[ROW][C]27[/C][C]-0.004936[/C][C]-0.0511[/C][C]0.479687[/C][/ROW]
[ROW][C]28[/C][C]-0.105099[/C][C]-1.0872[/C][C]0.139706[/C][/ROW]
[ROW][C]29[/C][C]0.141314[/C][C]1.4618[/C][C]0.073369[/C][/ROW]
[ROW][C]30[/C][C]-0.056533[/C][C]-0.5848[/C][C]0.279962[/C][/ROW]
[ROW][C]31[/C][C]-0.128349[/C][C]-1.3277[/C][C]0.093559[/C][/ROW]
[ROW][C]32[/C][C]0.065744[/C][C]0.6801[/C][C]0.248968[/C][/ROW]
[ROW][C]33[/C][C]0.055114[/C][C]0.5701[/C][C]0.2849[/C][/ROW]
[ROW][C]34[/C][C]-0.021452[/C][C]-0.2219[/C][C]0.412405[/C][/ROW]
[ROW][C]35[/C][C]-0.094589[/C][C]-0.9784[/C][C]0.165033[/C][/ROW]
[ROW][C]36[/C][C]0.176086[/C][C]1.8214[/C][C]0.035666[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=63735&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=63735&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.426481-4.41161.2e-05
2-0.158854-1.64320.051639
30.207122.14250.017212
4-0.039466-0.40820.341955
5-0.092713-0.9590.169852
60.0140510.14530.442355
7-0.020691-0.2140.415465
8-0.016101-0.16660.434018
90.0759410.78550.216936
10-0.058026-0.60020.274811
11-0.07833-0.81030.209797
120.3042143.14680.001069
13-0.270758-2.80070.003026
140.0671790.69490.244311
150.1435031.48440.070321
16-0.212167-2.19470.015174
170.0964980.99820.16022
180.0150240.15540.438395
19-0.014993-0.15510.438524
20-0.134613-1.39240.083338
210.1442381.4920.06932
22-0.031061-0.32130.374305
23-0.057003-0.58960.278336
240.09550.98790.162726
25-0.024034-0.24860.402071
260.0350980.36310.35864
27-0.004936-0.05110.479687
28-0.105099-1.08720.139706
290.1413141.46180.073369
30-0.056533-0.58480.279962
31-0.128349-1.32770.093559
320.0657440.68010.248968
330.0551140.57010.2849
34-0.021452-0.22190.412405
35-0.094589-0.97840.165033
360.1760861.82140.035666







Partial Autocorrelation Function
Time lag kPACF(k)T-STATP-value
1-0.426481-4.41161.2e-05
2-0.416495-4.30831.8e-05
3-0.098304-1.01690.155757
4-0.034919-0.36120.35933
5-0.075334-0.77930.218774
6-0.118544-1.22620.111402
7-0.169182-1.750.04149
8-0.168445-1.74240.042155
9-0.038795-0.40130.344502
10-0.062719-0.64880.258937
11-0.188232-1.94710.027073
120.1897481.96280.026135
13-0.082031-0.84850.199016
140.0460710.47660.317322
150.1102991.14090.128221
16-0.077899-0.80580.211074
170.0622750.64420.260419
180.0064980.06720.473269
190.1013531.04840.148407
20-0.136921-1.41630.079794
21-0.030709-0.31770.375682
22-0.04384-0.45350.325558
23-0.029497-0.30510.380434
24-0.047925-0.49570.310547
250.0622820.64430.260395
260.0645680.66790.252818
270.0127850.13230.447517
28-0.013753-0.14230.443571
290.0301290.31170.377956
300.0587310.60750.272398
31-0.131588-1.36120.088163
32-0.034746-0.35940.359998
33-0.093307-0.96520.168317
340.0345960.35790.360574
35-0.107475-1.11170.134373
360.0224640.23240.408349

\begin{tabular}{lllllllll}
\hline
Partial Autocorrelation Function \tabularnewline
Time lag k & PACF(k) & T-STAT & P-value \tabularnewline
1 & -0.426481 & -4.4116 & 1.2e-05 \tabularnewline
2 & -0.416495 & -4.3083 & 1.8e-05 \tabularnewline
3 & -0.098304 & -1.0169 & 0.155757 \tabularnewline
4 & -0.034919 & -0.3612 & 0.35933 \tabularnewline
5 & -0.075334 & -0.7793 & 0.218774 \tabularnewline
6 & -0.118544 & -1.2262 & 0.111402 \tabularnewline
7 & -0.169182 & -1.75 & 0.04149 \tabularnewline
8 & -0.168445 & -1.7424 & 0.042155 \tabularnewline
9 & -0.038795 & -0.4013 & 0.344502 \tabularnewline
10 & -0.062719 & -0.6488 & 0.258937 \tabularnewline
11 & -0.188232 & -1.9471 & 0.027073 \tabularnewline
12 & 0.189748 & 1.9628 & 0.026135 \tabularnewline
13 & -0.082031 & -0.8485 & 0.199016 \tabularnewline
14 & 0.046071 & 0.4766 & 0.317322 \tabularnewline
15 & 0.110299 & 1.1409 & 0.128221 \tabularnewline
16 & -0.077899 & -0.8058 & 0.211074 \tabularnewline
17 & 0.062275 & 0.6442 & 0.260419 \tabularnewline
18 & 0.006498 & 0.0672 & 0.473269 \tabularnewline
19 & 0.101353 & 1.0484 & 0.148407 \tabularnewline
20 & -0.136921 & -1.4163 & 0.079794 \tabularnewline
21 & -0.030709 & -0.3177 & 0.375682 \tabularnewline
22 & -0.04384 & -0.4535 & 0.325558 \tabularnewline
23 & -0.029497 & -0.3051 & 0.380434 \tabularnewline
24 & -0.047925 & -0.4957 & 0.310547 \tabularnewline
25 & 0.062282 & 0.6443 & 0.260395 \tabularnewline
26 & 0.064568 & 0.6679 & 0.252818 \tabularnewline
27 & 0.012785 & 0.1323 & 0.447517 \tabularnewline
28 & -0.013753 & -0.1423 & 0.443571 \tabularnewline
29 & 0.030129 & 0.3117 & 0.377956 \tabularnewline
30 & 0.058731 & 0.6075 & 0.272398 \tabularnewline
31 & -0.131588 & -1.3612 & 0.088163 \tabularnewline
32 & -0.034746 & -0.3594 & 0.359998 \tabularnewline
33 & -0.093307 & -0.9652 & 0.168317 \tabularnewline
34 & 0.034596 & 0.3579 & 0.360574 \tabularnewline
35 & -0.107475 & -1.1117 & 0.134373 \tabularnewline
36 & 0.022464 & 0.2324 & 0.408349 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=63735&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.426481[/C][C]-4.4116[/C][C]1.2e-05[/C][/ROW]
[ROW][C]2[/C][C]-0.416495[/C][C]-4.3083[/C][C]1.8e-05[/C][/ROW]
[ROW][C]3[/C][C]-0.098304[/C][C]-1.0169[/C][C]0.155757[/C][/ROW]
[ROW][C]4[/C][C]-0.034919[/C][C]-0.3612[/C][C]0.35933[/C][/ROW]
[ROW][C]5[/C][C]-0.075334[/C][C]-0.7793[/C][C]0.218774[/C][/ROW]
[ROW][C]6[/C][C]-0.118544[/C][C]-1.2262[/C][C]0.111402[/C][/ROW]
[ROW][C]7[/C][C]-0.169182[/C][C]-1.75[/C][C]0.04149[/C][/ROW]
[ROW][C]8[/C][C]-0.168445[/C][C]-1.7424[/C][C]0.042155[/C][/ROW]
[ROW][C]9[/C][C]-0.038795[/C][C]-0.4013[/C][C]0.344502[/C][/ROW]
[ROW][C]10[/C][C]-0.062719[/C][C]-0.6488[/C][C]0.258937[/C][/ROW]
[ROW][C]11[/C][C]-0.188232[/C][C]-1.9471[/C][C]0.027073[/C][/ROW]
[ROW][C]12[/C][C]0.189748[/C][C]1.9628[/C][C]0.026135[/C][/ROW]
[ROW][C]13[/C][C]-0.082031[/C][C]-0.8485[/C][C]0.199016[/C][/ROW]
[ROW][C]14[/C][C]0.046071[/C][C]0.4766[/C][C]0.317322[/C][/ROW]
[ROW][C]15[/C][C]0.110299[/C][C]1.1409[/C][C]0.128221[/C][/ROW]
[ROW][C]16[/C][C]-0.077899[/C][C]-0.8058[/C][C]0.211074[/C][/ROW]
[ROW][C]17[/C][C]0.062275[/C][C]0.6442[/C][C]0.260419[/C][/ROW]
[ROW][C]18[/C][C]0.006498[/C][C]0.0672[/C][C]0.473269[/C][/ROW]
[ROW][C]19[/C][C]0.101353[/C][C]1.0484[/C][C]0.148407[/C][/ROW]
[ROW][C]20[/C][C]-0.136921[/C][C]-1.4163[/C][C]0.079794[/C][/ROW]
[ROW][C]21[/C][C]-0.030709[/C][C]-0.3177[/C][C]0.375682[/C][/ROW]
[ROW][C]22[/C][C]-0.04384[/C][C]-0.4535[/C][C]0.325558[/C][/ROW]
[ROW][C]23[/C][C]-0.029497[/C][C]-0.3051[/C][C]0.380434[/C][/ROW]
[ROW][C]24[/C][C]-0.047925[/C][C]-0.4957[/C][C]0.310547[/C][/ROW]
[ROW][C]25[/C][C]0.062282[/C][C]0.6443[/C][C]0.260395[/C][/ROW]
[ROW][C]26[/C][C]0.064568[/C][C]0.6679[/C][C]0.252818[/C][/ROW]
[ROW][C]27[/C][C]0.012785[/C][C]0.1323[/C][C]0.447517[/C][/ROW]
[ROW][C]28[/C][C]-0.013753[/C][C]-0.1423[/C][C]0.443571[/C][/ROW]
[ROW][C]29[/C][C]0.030129[/C][C]0.3117[/C][C]0.377956[/C][/ROW]
[ROW][C]30[/C][C]0.058731[/C][C]0.6075[/C][C]0.272398[/C][/ROW]
[ROW][C]31[/C][C]-0.131588[/C][C]-1.3612[/C][C]0.088163[/C][/ROW]
[ROW][C]32[/C][C]-0.034746[/C][C]-0.3594[/C][C]0.359998[/C][/ROW]
[ROW][C]33[/C][C]-0.093307[/C][C]-0.9652[/C][C]0.168317[/C][/ROW]
[ROW][C]34[/C][C]0.034596[/C][C]0.3579[/C][C]0.360574[/C][/ROW]
[ROW][C]35[/C][C]-0.107475[/C][C]-1.1117[/C][C]0.134373[/C][/ROW]
[ROW][C]36[/C][C]0.022464[/C][C]0.2324[/C][C]0.408349[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=63735&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=63735&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.426481-4.41161.2e-05
2-0.416495-4.30831.8e-05
3-0.098304-1.01690.155757
4-0.034919-0.36120.35933
5-0.075334-0.77930.218774
6-0.118544-1.22620.111402
7-0.169182-1.750.04149
8-0.168445-1.74240.042155
9-0.038795-0.40130.344502
10-0.062719-0.64880.258937
11-0.188232-1.94710.027073
120.1897481.96280.026135
13-0.082031-0.84850.199016
140.0460710.47660.317322
150.1102991.14090.128221
16-0.077899-0.80580.211074
170.0622750.64420.260419
180.0064980.06720.473269
190.1013531.04840.148407
20-0.136921-1.41630.079794
21-0.030709-0.31770.375682
22-0.04384-0.45350.325558
23-0.029497-0.30510.380434
24-0.047925-0.49570.310547
250.0622820.64430.260395
260.0645680.66790.252818
270.0127850.13230.447517
28-0.013753-0.14230.443571
290.0301290.31170.377956
300.0587310.60750.272398
31-0.131588-1.36120.088163
32-0.034746-0.35940.359998
33-0.093307-0.96520.168317
340.0345960.35790.360574
35-0.107475-1.11170.134373
360.0224640.23240.408349



Parameters (Session):
par1 = 36 ; par2 = 1 ; par3 = 1 ; par4 = 0 ; par5 = 12 ; par6 = MA ; par7 = 0.95 ;
Parameters (R input):
par1 = 36 ; par2 = 1 ; par3 = 1 ; par4 = 0 ; 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')