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 computationWed, 24 Dec 2008 05:59:25 -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/2008/Dec/24/t1230123615153etgmoaerfh7a.htm/, Retrieved Sun, 19 May 2024 11:36:24 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=36542, Retrieved Sun, 19 May 2024 11:36:24 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact169
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [(Partial) Autocorrelation Function] [Paper ACF stationair] [2008-12-16 18:42:47] [7849b5cbaea5f05923be73656f726e58]
-   P     [(Partial) Autocorrelation Function] [paper ACF 11] [2008-12-24 12:59:25] [c5d6d05aee6be5527ac4a30a8c3b8fe5] [Current]
Feedback Forum

Post a new message
Dataseries X:
101.76
101.76
101.76
101.76
101.76
101.76
101.76
101.76
101.76
103.36
103.36
103.36
104.85
104.85
104.85
104.85
104.85
104.85
104.85
104.85
104.85
107.35
107.35
107.35
107.35
107.35
107.35
107.35
107.35
107.35
107.35
107.35
107.35
109.47
109.47
109.47
109.47
109.47
109.47
109.47
109.47
109.47
109.47
109.47
109.47
111.29
111.29




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=36542&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=36542&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=36542&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.01518-0.08850.464995
2-0.01213-0.07070.472014
3-0.429404-2.50380.008624
4-0.012997-0.07580.470016
5-0.013431-0.07830.469018
6-0.013865-0.08080.46802
7-0.014298-0.08340.467022
8-0.014732-0.08590.466024
90.1503830.87690.193353
10-0.026049-0.15190.440085
11-0.026483-0.15440.439095
12-0.080489-0.46930.320916
13-0.01005-0.05860.476806
14-0.006072-0.03540.485982
15-0.006506-0.03790.484981
16-0.006939-0.04050.483981
17-0.007373-0.0430.48298
18-0.007807-0.04550.48198
19-0.00824-0.0480.480979
20-0.008674-0.05060.479979
210.1342510.78280.219578
22-0.005129-0.02990.488157
230.0117370.06840.472918
24-0.072624-0.42350.337311
250.010870.06340.474917
26-1.4e-05-1e-040.499968
27-0.000447-0.00260.498967
28-0.000881-0.00510.497965
29-0.001315-0.00770.496964
30-0.001748-0.01020.495963
31-0.002182-0.01270.494961
32-0.002616-0.01530.49396
330.0004340.00250.498999
34NANANA
35NANANA
36NANANA

\begin{tabular}{lllllllll}
\hline
Autocorrelation Function \tabularnewline
Time lag k & ACF(k) & T-STAT & P-value \tabularnewline
1 & -0.01518 & -0.0885 & 0.464995 \tabularnewline
2 & -0.01213 & -0.0707 & 0.472014 \tabularnewline
3 & -0.429404 & -2.5038 & 0.008624 \tabularnewline
4 & -0.012997 & -0.0758 & 0.470016 \tabularnewline
5 & -0.013431 & -0.0783 & 0.469018 \tabularnewline
6 & -0.013865 & -0.0808 & 0.46802 \tabularnewline
7 & -0.014298 & -0.0834 & 0.467022 \tabularnewline
8 & -0.014732 & -0.0859 & 0.466024 \tabularnewline
9 & 0.150383 & 0.8769 & 0.193353 \tabularnewline
10 & -0.026049 & -0.1519 & 0.440085 \tabularnewline
11 & -0.026483 & -0.1544 & 0.439095 \tabularnewline
12 & -0.080489 & -0.4693 & 0.320916 \tabularnewline
13 & -0.01005 & -0.0586 & 0.476806 \tabularnewline
14 & -0.006072 & -0.0354 & 0.485982 \tabularnewline
15 & -0.006506 & -0.0379 & 0.484981 \tabularnewline
16 & -0.006939 & -0.0405 & 0.483981 \tabularnewline
17 & -0.007373 & -0.043 & 0.48298 \tabularnewline
18 & -0.007807 & -0.0455 & 0.48198 \tabularnewline
19 & -0.00824 & -0.048 & 0.480979 \tabularnewline
20 & -0.008674 & -0.0506 & 0.479979 \tabularnewline
21 & 0.134251 & 0.7828 & 0.219578 \tabularnewline
22 & -0.005129 & -0.0299 & 0.488157 \tabularnewline
23 & 0.011737 & 0.0684 & 0.472918 \tabularnewline
24 & -0.072624 & -0.4235 & 0.337311 \tabularnewline
25 & 0.01087 & 0.0634 & 0.474917 \tabularnewline
26 & -1.4e-05 & -1e-04 & 0.499968 \tabularnewline
27 & -0.000447 & -0.0026 & 0.498967 \tabularnewline
28 & -0.000881 & -0.0051 & 0.497965 \tabularnewline
29 & -0.001315 & -0.0077 & 0.496964 \tabularnewline
30 & -0.001748 & -0.0102 & 0.495963 \tabularnewline
31 & -0.002182 & -0.0127 & 0.494961 \tabularnewline
32 & -0.002616 & -0.0153 & 0.49396 \tabularnewline
33 & 0.000434 & 0.0025 & 0.498999 \tabularnewline
34 & NA & NA & NA \tabularnewline
35 & NA & NA & NA \tabularnewline
36 & NA & NA & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=36542&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.01518[/C][C]-0.0885[/C][C]0.464995[/C][/ROW]
[ROW][C]2[/C][C]-0.01213[/C][C]-0.0707[/C][C]0.472014[/C][/ROW]
[ROW][C]3[/C][C]-0.429404[/C][C]-2.5038[/C][C]0.008624[/C][/ROW]
[ROW][C]4[/C][C]-0.012997[/C][C]-0.0758[/C][C]0.470016[/C][/ROW]
[ROW][C]5[/C][C]-0.013431[/C][C]-0.0783[/C][C]0.469018[/C][/ROW]
[ROW][C]6[/C][C]-0.013865[/C][C]-0.0808[/C][C]0.46802[/C][/ROW]
[ROW][C]7[/C][C]-0.014298[/C][C]-0.0834[/C][C]0.467022[/C][/ROW]
[ROW][C]8[/C][C]-0.014732[/C][C]-0.0859[/C][C]0.466024[/C][/ROW]
[ROW][C]9[/C][C]0.150383[/C][C]0.8769[/C][C]0.193353[/C][/ROW]
[ROW][C]10[/C][C]-0.026049[/C][C]-0.1519[/C][C]0.440085[/C][/ROW]
[ROW][C]11[/C][C]-0.026483[/C][C]-0.1544[/C][C]0.439095[/C][/ROW]
[ROW][C]12[/C][C]-0.080489[/C][C]-0.4693[/C][C]0.320916[/C][/ROW]
[ROW][C]13[/C][C]-0.01005[/C][C]-0.0586[/C][C]0.476806[/C][/ROW]
[ROW][C]14[/C][C]-0.006072[/C][C]-0.0354[/C][C]0.485982[/C][/ROW]
[ROW][C]15[/C][C]-0.006506[/C][C]-0.0379[/C][C]0.484981[/C][/ROW]
[ROW][C]16[/C][C]-0.006939[/C][C]-0.0405[/C][C]0.483981[/C][/ROW]
[ROW][C]17[/C][C]-0.007373[/C][C]-0.043[/C][C]0.48298[/C][/ROW]
[ROW][C]18[/C][C]-0.007807[/C][C]-0.0455[/C][C]0.48198[/C][/ROW]
[ROW][C]19[/C][C]-0.00824[/C][C]-0.048[/C][C]0.480979[/C][/ROW]
[ROW][C]20[/C][C]-0.008674[/C][C]-0.0506[/C][C]0.479979[/C][/ROW]
[ROW][C]21[/C][C]0.134251[/C][C]0.7828[/C][C]0.219578[/C][/ROW]
[ROW][C]22[/C][C]-0.005129[/C][C]-0.0299[/C][C]0.488157[/C][/ROW]
[ROW][C]23[/C][C]0.011737[/C][C]0.0684[/C][C]0.472918[/C][/ROW]
[ROW][C]24[/C][C]-0.072624[/C][C]-0.4235[/C][C]0.337311[/C][/ROW]
[ROW][C]25[/C][C]0.01087[/C][C]0.0634[/C][C]0.474917[/C][/ROW]
[ROW][C]26[/C][C]-1.4e-05[/C][C]-1e-04[/C][C]0.499968[/C][/ROW]
[ROW][C]27[/C][C]-0.000447[/C][C]-0.0026[/C][C]0.498967[/C][/ROW]
[ROW][C]28[/C][C]-0.000881[/C][C]-0.0051[/C][C]0.497965[/C][/ROW]
[ROW][C]29[/C][C]-0.001315[/C][C]-0.0077[/C][C]0.496964[/C][/ROW]
[ROW][C]30[/C][C]-0.001748[/C][C]-0.0102[/C][C]0.495963[/C][/ROW]
[ROW][C]31[/C][C]-0.002182[/C][C]-0.0127[/C][C]0.494961[/C][/ROW]
[ROW][C]32[/C][C]-0.002616[/C][C]-0.0153[/C][C]0.49396[/C][/ROW]
[ROW][C]33[/C][C]0.000434[/C][C]0.0025[/C][C]0.498999[/C][/ROW]
[ROW][C]34[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]35[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]36[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=36542&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=36542&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.01518-0.08850.464995
2-0.01213-0.07070.472014
3-0.429404-2.50380.008624
4-0.012997-0.07580.470016
5-0.013431-0.07830.469018
6-0.013865-0.08080.46802
7-0.014298-0.08340.467022
8-0.014732-0.08590.466024
90.1503830.87690.193353
10-0.026049-0.15190.440085
11-0.026483-0.15440.439095
12-0.080489-0.46930.320916
13-0.01005-0.05860.476806
14-0.006072-0.03540.485982
15-0.006506-0.03790.484981
16-0.006939-0.04050.483981
17-0.007373-0.0430.48298
18-0.007807-0.04550.48198
19-0.00824-0.0480.480979
20-0.008674-0.05060.479979
210.1342510.78280.219578
22-0.005129-0.02990.488157
230.0117370.06840.472918
24-0.072624-0.42350.337311
250.010870.06340.474917
26-1.4e-05-1e-040.499968
27-0.000447-0.00260.498967
28-0.000881-0.00510.497965
29-0.001315-0.00770.496964
30-0.001748-0.01020.495963
31-0.002182-0.01270.494961
32-0.002616-0.01530.49396
330.0004340.00250.498999
34NANANA
35NANANA
36NANANA







Partial Autocorrelation Function
Time lag kPACF(k)T-STATP-value
1-0.01518-0.08850.464995
2-0.012363-0.07210.471477
3-0.429942-2.5070.00856
4-0.035142-0.20490.419432
5-0.034511-0.20120.420859
6-0.247271-1.44180.07925
7-0.060372-0.3520.363496
8-0.06356-0.37060.356612
90.0376270.21940.413824
10-0.075584-0.44070.3311
11-0.082869-0.48320.316023
12-0.002262-0.01320.494777
13-0.078515-0.45780.324998
14-0.081196-0.47340.31946
15-0.045984-0.26810.395109
16-0.076841-0.44810.328477
17-0.079494-0.46350.322971
18-0.108258-0.63120.26605
19-0.086678-0.50540.308265
20-0.09274-0.54080.296099
210.076430.44570.329334
22-0.067318-0.39250.34856
23-0.049053-0.2860.388297
240.0179540.10470.458618
25-0.032063-0.1870.426403
26-0.022637-0.1320.447882
27-0.021958-0.1280.449436
28-0.011865-0.06920.472623
29-0.008685-0.05060.479954
30-0.089091-0.51950.303393
31-0.011539-0.06730.473375
32-0.017128-0.09990.460517
33-0.048403-0.28220.389736
34NANANA
35NANANA
36NANANA

\begin{tabular}{lllllllll}
\hline
Partial Autocorrelation Function \tabularnewline
Time lag k & PACF(k) & T-STAT & P-value \tabularnewline
1 & -0.01518 & -0.0885 & 0.464995 \tabularnewline
2 & -0.012363 & -0.0721 & 0.471477 \tabularnewline
3 & -0.429942 & -2.507 & 0.00856 \tabularnewline
4 & -0.035142 & -0.2049 & 0.419432 \tabularnewline
5 & -0.034511 & -0.2012 & 0.420859 \tabularnewline
6 & -0.247271 & -1.4418 & 0.07925 \tabularnewline
7 & -0.060372 & -0.352 & 0.363496 \tabularnewline
8 & -0.06356 & -0.3706 & 0.356612 \tabularnewline
9 & 0.037627 & 0.2194 & 0.413824 \tabularnewline
10 & -0.075584 & -0.4407 & 0.3311 \tabularnewline
11 & -0.082869 & -0.4832 & 0.316023 \tabularnewline
12 & -0.002262 & -0.0132 & 0.494777 \tabularnewline
13 & -0.078515 & -0.4578 & 0.324998 \tabularnewline
14 & -0.081196 & -0.4734 & 0.31946 \tabularnewline
15 & -0.045984 & -0.2681 & 0.395109 \tabularnewline
16 & -0.076841 & -0.4481 & 0.328477 \tabularnewline
17 & -0.079494 & -0.4635 & 0.322971 \tabularnewline
18 & -0.108258 & -0.6312 & 0.26605 \tabularnewline
19 & -0.086678 & -0.5054 & 0.308265 \tabularnewline
20 & -0.09274 & -0.5408 & 0.296099 \tabularnewline
21 & 0.07643 & 0.4457 & 0.329334 \tabularnewline
22 & -0.067318 & -0.3925 & 0.34856 \tabularnewline
23 & -0.049053 & -0.286 & 0.388297 \tabularnewline
24 & 0.017954 & 0.1047 & 0.458618 \tabularnewline
25 & -0.032063 & -0.187 & 0.426403 \tabularnewline
26 & -0.022637 & -0.132 & 0.447882 \tabularnewline
27 & -0.021958 & -0.128 & 0.449436 \tabularnewline
28 & -0.011865 & -0.0692 & 0.472623 \tabularnewline
29 & -0.008685 & -0.0506 & 0.479954 \tabularnewline
30 & -0.089091 & -0.5195 & 0.303393 \tabularnewline
31 & -0.011539 & -0.0673 & 0.473375 \tabularnewline
32 & -0.017128 & -0.0999 & 0.460517 \tabularnewline
33 & -0.048403 & -0.2822 & 0.389736 \tabularnewline
34 & NA & NA & NA \tabularnewline
35 & NA & NA & NA \tabularnewline
36 & NA & NA & NA \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=36542&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.01518[/C][C]-0.0885[/C][C]0.464995[/C][/ROW]
[ROW][C]2[/C][C]-0.012363[/C][C]-0.0721[/C][C]0.471477[/C][/ROW]
[ROW][C]3[/C][C]-0.429942[/C][C]-2.507[/C][C]0.00856[/C][/ROW]
[ROW][C]4[/C][C]-0.035142[/C][C]-0.2049[/C][C]0.419432[/C][/ROW]
[ROW][C]5[/C][C]-0.034511[/C][C]-0.2012[/C][C]0.420859[/C][/ROW]
[ROW][C]6[/C][C]-0.247271[/C][C]-1.4418[/C][C]0.07925[/C][/ROW]
[ROW][C]7[/C][C]-0.060372[/C][C]-0.352[/C][C]0.363496[/C][/ROW]
[ROW][C]8[/C][C]-0.06356[/C][C]-0.3706[/C][C]0.356612[/C][/ROW]
[ROW][C]9[/C][C]0.037627[/C][C]0.2194[/C][C]0.413824[/C][/ROW]
[ROW][C]10[/C][C]-0.075584[/C][C]-0.4407[/C][C]0.3311[/C][/ROW]
[ROW][C]11[/C][C]-0.082869[/C][C]-0.4832[/C][C]0.316023[/C][/ROW]
[ROW][C]12[/C][C]-0.002262[/C][C]-0.0132[/C][C]0.494777[/C][/ROW]
[ROW][C]13[/C][C]-0.078515[/C][C]-0.4578[/C][C]0.324998[/C][/ROW]
[ROW][C]14[/C][C]-0.081196[/C][C]-0.4734[/C][C]0.31946[/C][/ROW]
[ROW][C]15[/C][C]-0.045984[/C][C]-0.2681[/C][C]0.395109[/C][/ROW]
[ROW][C]16[/C][C]-0.076841[/C][C]-0.4481[/C][C]0.328477[/C][/ROW]
[ROW][C]17[/C][C]-0.079494[/C][C]-0.4635[/C][C]0.322971[/C][/ROW]
[ROW][C]18[/C][C]-0.108258[/C][C]-0.6312[/C][C]0.26605[/C][/ROW]
[ROW][C]19[/C][C]-0.086678[/C][C]-0.5054[/C][C]0.308265[/C][/ROW]
[ROW][C]20[/C][C]-0.09274[/C][C]-0.5408[/C][C]0.296099[/C][/ROW]
[ROW][C]21[/C][C]0.07643[/C][C]0.4457[/C][C]0.329334[/C][/ROW]
[ROW][C]22[/C][C]-0.067318[/C][C]-0.3925[/C][C]0.34856[/C][/ROW]
[ROW][C]23[/C][C]-0.049053[/C][C]-0.286[/C][C]0.388297[/C][/ROW]
[ROW][C]24[/C][C]0.017954[/C][C]0.1047[/C][C]0.458618[/C][/ROW]
[ROW][C]25[/C][C]-0.032063[/C][C]-0.187[/C][C]0.426403[/C][/ROW]
[ROW][C]26[/C][C]-0.022637[/C][C]-0.132[/C][C]0.447882[/C][/ROW]
[ROW][C]27[/C][C]-0.021958[/C][C]-0.128[/C][C]0.449436[/C][/ROW]
[ROW][C]28[/C][C]-0.011865[/C][C]-0.0692[/C][C]0.472623[/C][/ROW]
[ROW][C]29[/C][C]-0.008685[/C][C]-0.0506[/C][C]0.479954[/C][/ROW]
[ROW][C]30[/C][C]-0.089091[/C][C]-0.5195[/C][C]0.303393[/C][/ROW]
[ROW][C]31[/C][C]-0.011539[/C][C]-0.0673[/C][C]0.473375[/C][/ROW]
[ROW][C]32[/C][C]-0.017128[/C][C]-0.0999[/C][C]0.460517[/C][/ROW]
[ROW][C]33[/C][C]-0.048403[/C][C]-0.2822[/C][C]0.389736[/C][/ROW]
[ROW][C]34[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]35[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[ROW][C]36[/C][C]NA[/C][C]NA[/C][C]NA[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=36542&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=36542&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.01518-0.08850.464995
2-0.012363-0.07210.471477
3-0.429942-2.5070.00856
4-0.035142-0.20490.419432
5-0.034511-0.20120.420859
6-0.247271-1.44180.07925
7-0.060372-0.3520.363496
8-0.06356-0.37060.356612
90.0376270.21940.413824
10-0.075584-0.44070.3311
11-0.082869-0.48320.316023
12-0.002262-0.01320.494777
13-0.078515-0.45780.324998
14-0.081196-0.47340.31946
15-0.045984-0.26810.395109
16-0.076841-0.44810.328477
17-0.079494-0.46350.322971
18-0.108258-0.63120.26605
19-0.086678-0.50540.308265
20-0.09274-0.54080.296099
210.076430.44570.329334
22-0.067318-0.39250.34856
23-0.049053-0.2860.388297
240.0179540.10470.458618
25-0.032063-0.1870.426403
26-0.022637-0.1320.447882
27-0.021958-0.1280.449436
28-0.011865-0.06920.472623
29-0.008685-0.05060.479954
30-0.089091-0.51950.303393
31-0.011539-0.06730.473375
32-0.017128-0.09990.460517
33-0.048403-0.28220.389736
34NANANA
35NANANA
36NANANA



Parameters (Session):
par1 = 36 ; par2 = 1 ; par3 = 1 ; par4 = 1 ; par5 = 12 ;
Parameters (R input):
par1 = 36 ; par2 = 1 ; par3 = 1 ; par4 = 1 ; par5 = 12 ;
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 (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='lags',ylab='ACF')
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')