FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

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, 17 Dec 2010 20:24:20 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/17/t1292617434026xi0u230cu5ab.htm/, Retrieved Mon, 06 May 2024 12:08:29 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=111711, Retrieved Mon, 06 May 2024 12:08:29 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact112

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [(Partial) Autocorrelation Function] [tutorial 2] [2010-12-13 19:20:33] [2db53827eae1799a3d605fb62e1e92dc]
- R  D  [(Partial) Autocorrelation Function] [Tutorial9] [2010-12-15 16:31:24] [8b2514d8f13517d765015fc185a22b4b]
- R PD      [(Partial) Autocorrelation Function] [ACF OTR] [2010-12-17 20:24:20] [109f5cd2d2b7c934778912c55604f6f1] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
126,64
126,81
125,84
126,77
124,34
124,4
120,48
118,54
117,66
116,97
120,11
119,16
116,9
116,11
114,98
113,65
115,82
117,59
118,57
118,07
114,98
114,04
115,02
114,28
115,04
116,7
119,21
118,39
116,5
115,46
117,59
117,33
116,2
116,83
118,99
118,62
121,09
122,4
123,76
125,33
123,23
122,52
123,64
124,67
124,71
122,53
124,4
125,45
125,35
124,3
127,03
128,51
128,1
128,94
129,67
129,87
131,12
132,68
132,24
133,63
129,91
127,93
131,17
130,86
133,48
134,08
136,02
132,8
132,37
133,05
132,57
130,7
130,5
129,67
127,8
126,82
126,85
128,28
128,3
126,82
125,08
128,53
130,34
131,52
132,59
131,17
132,72
133,36
132,82
132,9
130,9
129,41
128,67
129,28
130,91
131,06
130,84
131,41
133,22
132,06
132,48
134,38
135,22
134,89
136,09
136,33
136,32
137,48
136,53
136,8
138,03
137,39
137,55
136,08
134,78
133,28
133,57
134,84
133,02
133,49
133,77
134,34
134,5
134,03
135,51
136,53
135,95
134,32
132,44
133,61
131,02
130,05
128,21
129,03
130,34
131,57
132,63
132,06
134,44
134,1
132,49
134,23
134,92
135,61
134,53
133,86
133,89
135,33
135,86
136,22
137,38
137,31
136,89
138,01
136,72
135,77
137,52
135,61
132,94
134,12
132,55
134,11
134,19
135,57
135,05
134,32
133,61
134,75
133,1
133,26
131,63
132,47
132,45
133,33
133,57
134,13
133,92
132,62
132,3
133,26
132,6
134,38
134,17
135,46
135,09
134,96
133,85
132,59
131,15
130,91
131,07
130,78
129,95
131,41
131,21
130,68
130,46
131,12
132,99
133,02
133,39
134,07
135,6
135,66
135,53
135,82
136,9
137,97
138,09
136,91
134,76
135,13
134,66
132,95
132,25
134,3
134,3
134,76
134,81
134,51
135,11
134,32
133,51
134,02
132,76
133,39
132,05
131,87
133,03
132,57
132,1
130,7
129,2
129,77
131,02
131,55
133,17
133,08
133,24
130,74
129,91
130,03
131,13
129,55
130,22
130,61
129,27
129,68
130,1
130,83
130,95
131,73
131,86
132,44
132,35
133,16
133,62
132,54
132,69
133,5
133,36
134,23
132,41
133,02
132,88
130,76
130,33
129,79
128,65
129,14
127,35
127,74
126,31
125,95
126,36
126,15
125,6
126,2
126,73
125,68
122,49
122,07
123,4
123,01
123,03
122,33
122,42
122,68
124,69
123,3
124,17
124,38
123,19
122,16
120,66
120,92
120,67
120,68
121,1
120,86
121,48
123,48
121,72
123,16
123,84
124,57
124,3
124,22
124,43
123,33
122,86
121,25
122,16
122,62
123,44
124
124,75
124,8
125,93
126,28
126,04
125,04
123,76
125,34
126,99
126,34
127,42
126,18
125,3
123,5
125,32
124,65
124,03
125,11
125,46
124,7
124,48
124,76
125,81
124,95
123,66
122,66
119,34
117,84
120,97
117,38
118,06
116,99
115,55
114,17
115,32
112,49
111,93
112,08
111,63
109,53
111,35
110,79
113,06
112,62
110,65
112,36
113,74
111,73
109,86
109,32
109,99
109,84
111,13
112,43
111,77
112,15
112,89
112,12
113,1
111,09
110,76
109,59
109,99
110,25
108,31
108,79
108,14
109,88
109,93
110,46
109,56
111,49
111,85
111,35
110,95
112,49
113,11
112,54
112,84
111,5
111,52
111,57
112,48
112,31
113,79
114,01
113,64
112,62
113,27
113,51
112,92
113,66
113,14
113,48
113,23
110,56
109,5
109,78
109,49
109,66
109,93
109,82
108,54
108,23
106,19
106,49
107,15
107,74
107,54
107,07
107,54
107,81
108,38
108,42
106,86
106,41
106,46
106,84
107,69
107,04
111,04
111,93
111,98
112,07
112,05
113,14
112,49
113,2
113,52
113,22
113,85
113,68
114,26
114,1
114,8
114,98
115,1
114,21
114,24
113,35
114,23
114,43
114,28
113
113,16
112,59
113,65
113,18
113,21
113,11
112,78
112,57
111,87
111,94
113,18
113,67
115,15
114,41
112,88
112,44
113,48
112,78
112,59
113,31
113,21
112,5
113,72
114,09
113,97
112,5
111,28
111,35
110,92
110,73
109

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time4 seconds
R Server'George Udny Yule' @ 72.249.76.132

\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 & 4 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=111711&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]4 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=111711&T=0

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

As an alternative you can also use a QR Code:  
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 time4 seconds
R Server'George Udny Yule' @ 72.249.76.132






Autocorrelation Function
Time lag kACF(k)T-STATP-value
10.98928321.9210
20.97920521.69770
30.96959321.48480
40.96024221.27750
50.95099621.07270
60.94244220.88310
70.93488320.71560
80.92764620.55530
90.91917720.36760
100.91014920.16750
110.90207119.98860
120.89567519.84680
130.88780419.67240
140.87902719.47790
150.87010219.28020
160.86080819.07420
170.85177318.8740
180.84314718.68290
190.83428118.48640
200.82547618.29130
210.81582918.07760
220.80697417.88130
230.79766317.6750
240.78956917.49570
250.78270717.34360
260.77592417.19330

\begin{tabular}{lllllllll}
\hline
Autocorrelation Function \tabularnewline
Time lag k & ACF(k) & T-STAT & P-value \tabularnewline
1 & 0.989283 & 21.921 & 0 \tabularnewline
2 & 0.979205 & 21.6977 & 0 \tabularnewline
3 & 0.969593 & 21.4848 & 0 \tabularnewline
4 & 0.960242 & 21.2775 & 0 \tabularnewline
5 & 0.950996 & 21.0727 & 0 \tabularnewline
6 & 0.942442 & 20.8831 & 0 \tabularnewline
7 & 0.934883 & 20.7156 & 0 \tabularnewline
8 & 0.927646 & 20.5553 & 0 \tabularnewline
9 & 0.919177 & 20.3676 & 0 \tabularnewline
10 & 0.910149 & 20.1675 & 0 \tabularnewline
11 & 0.902071 & 19.9886 & 0 \tabularnewline
12 & 0.895675 & 19.8468 & 0 \tabularnewline
13 & 0.887804 & 19.6724 & 0 \tabularnewline
14 & 0.879027 & 19.4779 & 0 \tabularnewline
15 & 0.870102 & 19.2802 & 0 \tabularnewline
16 & 0.860808 & 19.0742 & 0 \tabularnewline
17 & 0.851773 & 18.874 & 0 \tabularnewline
18 & 0.843147 & 18.6829 & 0 \tabularnewline
19 & 0.834281 & 18.4864 & 0 \tabularnewline
20 & 0.825476 & 18.2913 & 0 \tabularnewline
21 & 0.815829 & 18.0776 & 0 \tabularnewline
22 & 0.806974 & 17.8813 & 0 \tabularnewline
23 & 0.797663 & 17.675 & 0 \tabularnewline
24 & 0.789569 & 17.4957 & 0 \tabularnewline
25 & 0.782707 & 17.3436 & 0 \tabularnewline
26 & 0.775924 & 17.1933 & 0 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=111711&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.989283[/C][C]21.921[/C][C]0[/C][/ROW]
[ROW][C]2[/C][C]0.979205[/C][C]21.6977[/C][C]0[/C][/ROW]
[ROW][C]3[/C][C]0.969593[/C][C]21.4848[/C][C]0[/C][/ROW]
[ROW][C]4[/C][C]0.960242[/C][C]21.2775[/C][C]0[/C][/ROW]
[ROW][C]5[/C][C]0.950996[/C][C]21.0727[/C][C]0[/C][/ROW]
[ROW][C]6[/C][C]0.942442[/C][C]20.8831[/C][C]0[/C][/ROW]
[ROW][C]7[/C][C]0.934883[/C][C]20.7156[/C][C]0[/C][/ROW]
[ROW][C]8[/C][C]0.927646[/C][C]20.5553[/C][C]0[/C][/ROW]
[ROW][C]9[/C][C]0.919177[/C][C]20.3676[/C][C]0[/C][/ROW]
[ROW][C]10[/C][C]0.910149[/C][C]20.1675[/C][C]0[/C][/ROW]
[ROW][C]11[/C][C]0.902071[/C][C]19.9886[/C][C]0[/C][/ROW]
[ROW][C]12[/C][C]0.895675[/C][C]19.8468[/C][C]0[/C][/ROW]
[ROW][C]13[/C][C]0.887804[/C][C]19.6724[/C][C]0[/C][/ROW]
[ROW][C]14[/C][C]0.879027[/C][C]19.4779[/C][C]0[/C][/ROW]
[ROW][C]15[/C][C]0.870102[/C][C]19.2802[/C][C]0[/C][/ROW]
[ROW][C]16[/C][C]0.860808[/C][C]19.0742[/C][C]0[/C][/ROW]
[ROW][C]17[/C][C]0.851773[/C][C]18.874[/C][C]0[/C][/ROW]
[ROW][C]18[/C][C]0.843147[/C][C]18.6829[/C][C]0[/C][/ROW]
[ROW][C]19[/C][C]0.834281[/C][C]18.4864[/C][C]0[/C][/ROW]
[ROW][C]20[/C][C]0.825476[/C][C]18.2913[/C][C]0[/C][/ROW]
[ROW][C]21[/C][C]0.815829[/C][C]18.0776[/C][C]0[/C][/ROW]
[ROW][C]22[/C][C]0.806974[/C][C]17.8813[/C][C]0[/C][/ROW]
[ROW][C]23[/C][C]0.797663[/C][C]17.675[/C][C]0[/C][/ROW]
[ROW][C]24[/C][C]0.789569[/C][C]17.4957[/C][C]0[/C][/ROW]
[ROW][C]25[/C][C]0.782707[/C][C]17.3436[/C][C]0[/C][/ROW]
[ROW][C]26[/C][C]0.775924[/C][C]17.1933[/C][C]0[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=111711&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

Autocorrelation Function
Time lag kACF(k)T-STATP-value
10.98928321.9210
20.97920521.69770
30.96959321.48480
40.96024221.27750
50.95099621.07270
60.94244220.88310
70.93488320.71560
80.92764620.55530
90.91917720.36760
100.91014920.16750
110.90207119.98860
120.89567519.84680
130.88780419.67240
140.87902719.47790
150.87010219.28020
160.86080819.07420
170.85177318.8740
180.84314718.68290
190.83428118.48640
200.82547618.29130
210.81582918.07760
220.80697417.88130
230.79766317.6750
240.78956917.49570
250.78270717.34360
260.77592417.19330






Partial Autocorrelation Function
Time lag kPACF(k)T-STATP-value
10.98928321.9210
20.0246120.54540.292873
30.0176910.3920.347615
40.0086390.19140.424132
50.0014730.03260.486992
60.0286490.63480.262921
70.0447410.99140.160992
80.0158160.35040.363076
9-0.057586-1.2760.101274
10-0.031978-0.70860.239459
110.0382550.84770.198514
120.0791571.7540.040027
13-0.06453-1.42990.076692
14-0.050617-1.12160.131291
15-0.021309-0.47220.318505
16-0.025302-0.56070.287644
170.0162590.36030.359396
180.0216360.47940.315929
19-0.026409-0.58520.279343
20-0.021486-0.47610.317106
21-0.044374-0.98330.162979
220.0452761.00330.158115
23-0.017621-0.39050.348181
240.0422910.93710.174584
250.0511251.13280.128916
26-0.000151-0.00340.498664

\begin{tabular}{lllllllll}
\hline
Partial Autocorrelation Function \tabularnewline
Time lag k & PACF(k) & T-STAT & P-value \tabularnewline
1 & 0.989283 & 21.921 & 0 \tabularnewline
2 & 0.024612 & 0.5454 & 0.292873 \tabularnewline
3 & 0.017691 & 0.392 & 0.347615 \tabularnewline
4 & 0.008639 & 0.1914 & 0.424132 \tabularnewline
5 & 0.001473 & 0.0326 & 0.486992 \tabularnewline
6 & 0.028649 & 0.6348 & 0.262921 \tabularnewline
7 & 0.044741 & 0.9914 & 0.160992 \tabularnewline
8 & 0.015816 & 0.3504 & 0.363076 \tabularnewline
9 & -0.057586 & -1.276 & 0.101274 \tabularnewline
10 & -0.031978 & -0.7086 & 0.239459 \tabularnewline
11 & 0.038255 & 0.8477 & 0.198514 \tabularnewline
12 & 0.079157 & 1.754 & 0.040027 \tabularnewline
13 & -0.06453 & -1.4299 & 0.076692 \tabularnewline
14 & -0.050617 & -1.1216 & 0.131291 \tabularnewline
15 & -0.021309 & -0.4722 & 0.318505 \tabularnewline
16 & -0.025302 & -0.5607 & 0.287644 \tabularnewline
17 & 0.016259 & 0.3603 & 0.359396 \tabularnewline
18 & 0.021636 & 0.4794 & 0.315929 \tabularnewline
19 & -0.026409 & -0.5852 & 0.279343 \tabularnewline
20 & -0.021486 & -0.4761 & 0.317106 \tabularnewline
21 & -0.044374 & -0.9833 & 0.162979 \tabularnewline
22 & 0.045276 & 1.0033 & 0.158115 \tabularnewline
23 & -0.017621 & -0.3905 & 0.348181 \tabularnewline
24 & 0.042291 & 0.9371 & 0.174584 \tabularnewline
25 & 0.051125 & 1.1328 & 0.128916 \tabularnewline
26 & -0.000151 & -0.0034 & 0.498664 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=111711&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.989283[/C][C]21.921[/C][C]0[/C][/ROW]
[ROW][C]2[/C][C]0.024612[/C][C]0.5454[/C][C]0.292873[/C][/ROW]
[ROW][C]3[/C][C]0.017691[/C][C]0.392[/C][C]0.347615[/C][/ROW]
[ROW][C]4[/C][C]0.008639[/C][C]0.1914[/C][C]0.424132[/C][/ROW]
[ROW][C]5[/C][C]0.001473[/C][C]0.0326[/C][C]0.486992[/C][/ROW]
[ROW][C]6[/C][C]0.028649[/C][C]0.6348[/C][C]0.262921[/C][/ROW]
[ROW][C]7[/C][C]0.044741[/C][C]0.9914[/C][C]0.160992[/C][/ROW]
[ROW][C]8[/C][C]0.015816[/C][C]0.3504[/C][C]0.363076[/C][/ROW]
[ROW][C]9[/C][C]-0.057586[/C][C]-1.276[/C][C]0.101274[/C][/ROW]
[ROW][C]10[/C][C]-0.031978[/C][C]-0.7086[/C][C]0.239459[/C][/ROW]
[ROW][C]11[/C][C]0.038255[/C][C]0.8477[/C][C]0.198514[/C][/ROW]
[ROW][C]12[/C][C]0.079157[/C][C]1.754[/C][C]0.040027[/C][/ROW]
[ROW][C]13[/C][C]-0.06453[/C][C]-1.4299[/C][C]0.076692[/C][/ROW]
[ROW][C]14[/C][C]-0.050617[/C][C]-1.1216[/C][C]0.131291[/C][/ROW]
[ROW][C]15[/C][C]-0.021309[/C][C]-0.4722[/C][C]0.318505[/C][/ROW]
[ROW][C]16[/C][C]-0.025302[/C][C]-0.5607[/C][C]0.287644[/C][/ROW]
[ROW][C]17[/C][C]0.016259[/C][C]0.3603[/C][C]0.359396[/C][/ROW]
[ROW][C]18[/C][C]0.021636[/C][C]0.4794[/C][C]0.315929[/C][/ROW]
[ROW][C]19[/C][C]-0.026409[/C][C]-0.5852[/C][C]0.279343[/C][/ROW]
[ROW][C]20[/C][C]-0.021486[/C][C]-0.4761[/C][C]0.317106[/C][/ROW]
[ROW][C]21[/C][C]-0.044374[/C][C]-0.9833[/C][C]0.162979[/C][/ROW]
[ROW][C]22[/C][C]0.045276[/C][C]1.0033[/C][C]0.158115[/C][/ROW]
[ROW][C]23[/C][C]-0.017621[/C][C]-0.3905[/C][C]0.348181[/C][/ROW]
[ROW][C]24[/C][C]0.042291[/C][C]0.9371[/C][C]0.174584[/C][/ROW]
[ROW][C]25[/C][C]0.051125[/C][C]1.1328[/C][C]0.128916[/C][/ROW]
[ROW][C]26[/C][C]-0.000151[/C][C]-0.0034[/C][C]0.498664[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=111711&T=2

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

As an alternative you can also use a QR Code:  
QR Code


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

Partial Autocorrelation Function
Time lag kPACF(k)T-STATP-value
10.98928321.9210
20.0246120.54540.292873
30.0176910.3920.347615
40.0086390.19140.424132
50.0014730.03260.486992
60.0286490.63480.262921
70.0447410.99140.160992
80.0158160.35040.363076
9-0.057586-1.2760.101274
10-0.031978-0.70860.239459
110.0382550.84770.198514
120.0791571.7540.040027
13-0.06453-1.42990.076692
14-0.050617-1.12160.131291
15-0.021309-0.47220.318505
16-0.025302-0.56070.287644
170.0162590.36030.359396
180.0216360.47940.315929
19-0.026409-0.58520.279343
20-0.021486-0.47610.317106
21-0.044374-0.98330.162979
220.0452761.00330.158115
23-0.017621-0.39050.348181
240.0422910.93710.174584
250.0511251.13280.128916
26-0.000151-0.00340.498664


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = additive ; par2 = 12 ;
Parameters (R input):
par1 = Default ; par2 = 1 ; par3 = 0 ; par4 = 0 ; par5 = 12 ; par6 = White Noise ; par7 = 0.95 ; par8 = ;
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 <- 5
if (par6 == 'White Noise') par6 <- 'white' else par6 <- 'ma'
par7 <- as.numeric(par7)
if (par8 != '') par8 <- as.numeric(par8)
ox <- x
if (par8 == '') {
if (par2 == 0) {
x <- log(x)
} else {
x <- (x ^ par2 - 1) / par2
}
} else {
x <- log(x,base=par8)
}
if (par3 > 0) x <- diff(x,lag=1,difference=par3)
if (par4 > 0) x <- diff(x,lag=par5,difference=par4)
bitmap(file='picts.png')
op <- par(mfrow=c(2,1))
plot(ox,type='l',main='Original Time Series',xlab='time',ylab='value')
if (par8=='') {
mytitle <- paste('Working Time Series (lambda=',par2,', d=',par3,', D=',par4,')',sep='')
mysub <- paste('(lambda=',par2,', d=',par3,', D=',par4,', CI=', par7, ', CI type=',par6,')',sep='')
} else {
mytitle <- paste('Working Time Series (base=',par8,', d=',par3,', D=',par4,')',sep='')
mysub <- paste('(base=',par8,', d=',par3,', D=',par4,', CI=', par7, ', CI type=',par6,')',sep='')
}
plot(x,type='l', main=mytitle,xlab='time',ylab='value')
par(op)
dev.off()
bitmap(file='pic1.png')
racf <- acf(x, par1, main='Autocorrelation', xlab='time lag', ylab='ACF', ci.type=par6, ci=par7, sub=mysub)
dev.off()
bitmap(file='pic2.png')
rpacf <- pacf(x,par1,main='Partial Autocorrelation',xlab='lags',ylab='PACF',sub=mysub)
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')