R version 2.9.0 (2009-04-17)
Copyright (C) 2009 The R Foundation for Statistical Computing
ISBN 3-900051-07-0

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> y <- c(122.36
+ ,123.33
+ ,123.04
+ ,124.53
+ ,125.13
+ ,125.85
+ ,126.50
+ ,126.53
+ ,127.07
+ ,124.55
+ ,124.90
+ ,124.32
+ ,122.84
+ ,123.31
+ ,123.31
+ ,124.87
+ ,124.64
+ ,124.73
+ ,124.90
+ ,124.04
+ ,123.28
+ ,123.86
+ ,122.29
+ ,124.09
+ ,124.54
+ ,125.65
+ ,125.70
+ ,125.53
+ ,125.61
+ ,125.55
+ ,125.41
+ ,127.60
+ ,124.68
+ ,124.41
+ ,126.43
+ ,126.38
+ ,125.78
+ ,124.70
+ ,125.07
+ ,125.25
+ ,126.58
+ ,127.13
+ ,125.82
+ ,123.70
+ ,124.39
+ ,123.70
+ ,124.42
+ ,121.05
+ ,121.02
+ ,123.23
+ ,121.32
+ ,120.91
+ ,120.72
+ ,123.31
+ ,119.58
+ ,119.53
+ ,120.59
+ ,118.63
+ ,118.47
+ ,111.81
+ ,114.71
+ ,117.34
+ ,115.77
+ ,118.38
+ ,117.84
+ ,118.83
+ ,120.02
+ ,116.21
+ ,117.08
+ ,120.20
+ ,119.83
+ ,118.92
+ ,118.03
+ ,117.71
+ ,119.55
+ ,116.13
+ ,115.97
+ ,115.99
+ ,114.96
+ ,116.46
+ ,116.55
+ ,113.05
+ ,117.44
+ ,118.84
+ ,117.06
+ ,117.54
+ ,119.31
+ ,118.72
+ ,121.55
+ ,122.61
+ ,121.53
+ ,123.31
+ ,124.07
+ ,123.59
+ ,122.97
+ ,123.22
+ ,123.04
+ ,122.96
+ ,122.81
+ ,122.81
+ ,122.62
+ ,120.82
+ ,119.41
+ ,121.56
+ ,121.59
+ ,118.50
+ ,118.77
+ ,118.86
+ ,117.60
+ ,119.90
+ ,121.83
+ ,121.84
+ ,122.12
+ ,122.12
+ ,121.36
+ ,119.66
+ ,119.32
+ ,120.36
+ ,117.06
+ ,117.48
+ ,115.60
+ ,113.86
+ ,116.92
+ ,117.75
+ ,117.75
+ ,115.31
+ ,116.28
+ ,115.22
+ ,115.65
+ ,115.11
+ ,118.67
+ ,118.04
+ ,116.50
+ ,119.78
+ ,119.95
+ ,120.37
+ ,119.79
+ ,119.43
+ ,121.06
+ ,121.74
+ ,121.09
+ ,122.97
+ ,120.50
+ ,117.18
+ ,115.03
+ ,113.36
+ ,112.59
+ ,111.65
+ ,111.98
+ ,114.87
+ ,114.67
+ ,114.09
+ ,114.77
+ ,117.05
+ ,117.22
+ ,113.18
+ ,110.95
+ ,112.14
+ ,112.72
+ ,110.01
+ ,110.29
+ ,110.74
+ ,110.32
+ ,105.89
+ ,108.97
+ ,109.34
+ ,106.57
+ ,99.49
+ ,101.81
+ ,104.29
+ ,109.73
+ ,105.06
+ ,107.97
+ ,108.13
+ ,109.86
+ ,108.95
+ ,111.20
+ ,110.69
+ ,106.10
+ ,105.68
+ ,104.12
+ ,104.71
+ ,104.30
+ ,103.52
+ ,107.76
+ ,107.80
+ ,107.30
+ ,108.64
+ ,105.03
+ ,108.30
+ ,107.21
+ ,109.27
+ ,109.50
+ ,111.68
+ ,111.80
+ ,111.75
+ ,106.68
+ ,106.37
+ ,105.76
+ ,109.01
+ ,109.01
+ ,109.01
+ ,109.01
+ ,107.69
+ ,105.19
+ ,105.48
+ ,102.22
+ ,100.54
+ ,105.00
+ ,105.44
+ ,107.89
+ ,108.64
+ ,106.70
+ ,109.10
+ ,105.23
+ ,108.41
+ ,108.80
+ ,110.39
+ ,110.22
+ ,110.86
+ ,108.58
+ ,107.70
+ ,106.62
+ ,109.84
+ ,107.16
+ ,107.26
+ ,108.70
+ ,109.85
+ ,109.41
+ ,112.36
+ ,111.03
+ ,110.67
+ ,109.21
+ ,113.58
+ ,113.88
+ ,114.08
+ ,112.33
+ ,113.92
+ ,114.41
+ ,114.57
+ ,115.35
+ ,113.13
+ ,113.29
+ ,112.56
+ ,113.06
+ ,113.46
+ ,115.39
+ ,116.62
+ ,117.04
+ ,117.42
+ ,115.62
+ ,115.16
+ ,115.69
+ ,112.85
+ ,114.05
+ ,112.00
+ ,113.74
+ ,116.26
+ ,118.63
+ ,116.49
+ ,118.23
+ ,116.83
+ ,118.82
+ ,114.36
+ ,112.02
+ ,113.24
+ ,109.75
+ ,110.33
+ ,112.86
+ ,113.04
+ ,113.80
+ ,110.90
+ ,109.96
+ ,108.69
+ ,108.84
+ ,108.47
+ ,108.07
+ ,107.94
+ ,108.11
+ ,108.11
+ ,106.81
+ ,105.58
+ ,105.61
+ ,106.52
+ ,103.86
+ ,104.60
+ ,104.73
+ ,105.12
+ ,104.76
+ ,103.85
+ ,103.83
+ ,103.22
+ ,101.64
+ ,102.13
+ ,104.33
+ ,104.92
+ ,107.78
+ ,104.49
+ ,102.80
+ ,102.86
+ ,104.51
+ ,104.73
+ ,102.58
+ ,99.93
+ ,101.41
+ ,101.05
+ ,99.86
+ ,101.11
+ ,100.89
+ ,101.09
+ ,98.31
+ ,98.08
+ ,99.55
+ ,99.62
+ ,97.37
+ ,98.16
+ ,97.98
+ ,98.15
+ ,97.10
+ ,97.24
+ ,96.70
+ ,96.64
+ ,100.65
+ ,96.75
+ ,97.74
+ ,97.92
+ ,98.34
+ ,93.84
+ ,97.80
+ ,96.20
+ ,95.99
+ ,95.18
+ ,95.95
+ ,92.23
+ ,91.78
+ ,92.97
+ ,89.76
+ ,92.88
+ ,96.23
+ ,95.79
+ ,93.97
+ ,93.90
+ ,93.60
+ ,93.96
+ ,88.69
+ ,88.57
+ ,85.62
+ ,86.25
+ ,85.33
+ ,83.33
+ ,77.78
+ ,78.70
+ ,72.05
+ ,80.75
+ ,81.41
+ ,82.65
+ ,75.85
+ ,75.70
+ ,78.25
+ ,77.41
+ ,76.84
+ ,74.25
+ ,74.95
+ ,68.78
+ ,73.21
+ ,73.26
+ ,78.67
+ ,75.63
+ ,74.99
+ ,83.87
+ ,79.62
+ ,80.13
+ ,79.76
+ ,78.20
+ ,78.05
+ ,79.05
+ ,73.32
+ ,75.17
+ ,73.26
+ ,73.72
+ ,73.57
+ ,70.60
+ ,71.25
+ ,74.22
+ ,73.32
+ ,73.01
+ ,74.21
+ ,75.32
+ ,71.73
+ ,71.94
+ ,72.94
+ ,72.47
+ ,71.94
+ ,74.30
+ ,74.30)
> x <- c(358.59
+ ,362.96
+ ,362.42
+ ,364.97
+ ,364.04
+ ,361.06
+ ,358.48
+ ,352.96
+ ,359.59
+ ,360.39
+ ,357.40
+ ,362.93
+ ,364.55
+ ,365.73
+ ,364.70
+ ,364.65
+ ,359.43
+ ,362.14
+ ,356.97
+ ,354.82
+ ,353.17
+ ,357.06
+ ,356.18
+ ,355.01
+ ,355.65
+ ,357.31
+ ,357.07
+ ,357.91
+ ,358.48
+ ,358.97
+ ,351.77
+ ,352.16
+ ,359.08
+ ,360.35
+ ,359.53
+ ,359.30
+ ,358.41
+ ,359.68
+ ,355.31
+ ,357.08
+ ,349.71
+ ,354.13
+ ,345.49
+ ,341.69
+ ,344.25
+ ,340.17
+ ,342.47
+ ,344.43
+ ,333.23
+ ,339.72
+ ,342.61
+ ,346.36
+ ,339.09
+ ,339.73
+ ,341.12
+ ,335.94
+ ,333.46
+ ,335.66
+ ,341.12
+ ,342.21
+ ,342.62
+ ,346.06
+ ,344.43
+ ,346.65
+ ,343.74
+ ,335.67
+ ,342.75
+ ,341.77
+ ,345.84
+ ,346.52
+ ,350.79
+ ,345.44
+ ,345.87
+ ,338.48
+ ,337.21
+ ,340.81
+ ,339.86
+ ,342.86
+ ,343.33
+ ,341.73
+ ,351.38
+ ,351.13
+ ,345.99
+ ,347.55
+ ,346.02
+ ,345.29
+ ,347.03
+ ,348.01
+ ,345.48
+ ,349.40
+ ,351.05
+ ,349.70
+ ,350.86
+ ,354.45
+ ,355.30
+ ,357.48
+ ,355.24
+ ,351.79
+ ,355.22
+ ,351.02
+ ,350.28
+ ,350.17
+ ,348.16
+ ,340.30
+ ,343.75
+ ,344.71
+ ,344.13
+ ,342.14
+ ,345.04
+ ,346.02
+ ,346.43
+ ,347.07
+ ,339.33
+ ,339.10
+ ,337.19
+ ,339.58
+ ,327.85
+ ,326.81
+ ,321.73
+ ,320.45
+ ,327.69
+ ,323.95
+ ,320.47
+ ,322.13
+ ,316.34
+ ,314.78
+ ,308.90
+ ,308.62
+ ,314.41
+ ,306.88
+ ,310.60
+ ,321.60
+ ,321.50
+ ,325.68
+ ,324.35
+ ,320.01
+ ,326.88
+ ,332.39
+ ,331.48
+ ,332.62
+ ,324.79
+ ,327.12
+ ,328.91
+ ,328.37
+ ,324.83
+ ,325.90
+ ,326.18
+ ,328.94
+ ,333.78
+ ,328.06
+ ,325.87
+ ,325.41
+ ,318.86
+ ,319.13
+ ,310.16
+ ,311.73
+ ,306.54
+ ,311.16
+ ,311.98
+ ,306.72
+ ,308.05
+ ,300.76
+ ,301.90
+ ,293.09
+ ,292.76
+ ,294.58
+ ,289.90
+ ,296.69
+ ,297.21
+ ,293.31
+ ,296.25
+ ,298.60
+ ,296.87
+ ,301.02
+ ,304.73
+ ,301.92
+ ,295.72
+ ,293.18
+ ,298.35
+ ,297.99
+ ,299.85
+ ,299.85
+ ,304.45
+ ,299.45
+ ,298.14
+ ,298.78
+ ,297.02
+ ,301.33
+ ,294.96
+ ,296.69
+ ,300.73
+ ,301.96
+ ,297.38
+ ,293.87
+ ,285.96
+ ,285.41
+ ,283.70
+ ,284.76
+ ,277.11
+ ,274.73
+ ,274.73
+ ,274.73
+ ,274.73
+ ,274.69
+ ,275.42
+ ,264.15
+ ,276.24
+ ,268.88
+ ,277.97
+ ,280.49
+ ,281.09
+ ,276.16
+ ,272.58
+ ,270.94
+ ,284.31
+ ,283.94
+ ,284.18
+ ,282.83
+ ,283.84
+ ,282.71
+ ,279.29
+ ,280.70
+ ,274.47
+ ,273.44
+ ,275.49
+ ,279.46
+ ,280.19
+ ,288.21
+ ,284.80
+ ,281.41
+ ,283.39
+ ,287.97
+ ,290.77
+ ,290.60
+ ,289.67
+ ,289.84
+ ,298.55
+ ,296.07
+ ,297.14
+ ,295.34
+ ,296.25
+ ,294.30
+ ,296.15
+ ,296.49
+ ,298.05
+ ,301.03
+ ,300.52
+ ,301.50
+ ,296.93
+ ,289.84
+ ,291.44
+ ,286.88
+ ,286.74
+ ,288.93
+ ,292.19
+ ,295.39
+ ,295.86
+ ,293.36
+ ,292.86
+ ,292.73
+ ,296.73
+ ,285.02
+ ,285.24
+ ,288.62
+ ,283.36
+ ,285.84
+ ,291.48
+ ,291.41
+ ,287.77
+ ,284.97
+ ,286.05
+ ,278.19
+ ,281.21
+ ,277.92
+ ,280.08
+ ,269.24
+ ,268.48
+ ,268.83
+ ,269.54
+ ,262.37
+ ,265.12
+ ,265.34
+ ,263.32
+ ,267.18
+ ,260.75
+ ,261.78
+ ,257.27
+ ,255.63
+ ,251.39
+ ,259.49
+ ,261.18
+ ,261.65
+ ,262.01
+ ,265.23
+ ,268.10
+ ,262.27
+ ,263.59
+ ,257.85
+ ,265.69
+ ,271.15
+ ,266.69
+ ,265.77
+ ,262.32
+ ,270.48
+ ,273.03
+ ,269.13
+ ,280.65
+ ,282.75
+ ,281.44
+ ,281.99
+ ,282.86
+ ,287.21
+ ,283.11
+ ,280.66
+ ,282.39
+ ,280.83
+ ,284.71
+ ,279.99
+ ,283.50
+ ,284.88
+ ,288.60
+ ,284.80
+ ,287.20
+ ,286.22
+ ,286.54
+ ,279.58
+ ,283.08
+ ,288.88
+ ,280.18
+ ,284.16
+ ,290.57
+ ,286.82
+ ,273.00
+ ,278.69
+ ,264.54
+ ,271.92
+ ,283.60
+ ,269.25
+ ,263.58
+ ,264.16
+ ,268.85
+ ,269.67
+ ,249.41
+ ,268.99
+ ,268.65
+ ,260.16
+ ,256.55
+ ,251.47
+ ,234.93
+ ,232.96
+ ,215.49
+ ,213.68
+ ,236.07
+ ,235.41
+ ,214.77
+ ,225.85
+ ,224.64
+ ,238.26
+ ,232.44
+ ,222.50
+ ,225.28
+ ,220.49
+ ,216.86
+ ,234.70
+ ,230.06
+ ,238.27
+ ,238.56
+ ,242.70
+ ,249.14
+ ,234.89
+ ,227.78
+ ,234.04
+ ,230.70
+ ,230.17
+ ,218.23
+ ,232.20
+ ,220.76
+ ,215.60
+ ,217.69
+ ,204.35
+ ,191.44
+ ,203.84
+ ,211.86
+ ,210.57
+ ,219.57
+ ,219.98
+ ,226.01
+ ,207.04
+ ,212.52
+ ,217.92
+ ,210.45
+ ,218.53
+ ,223.32
+ ,218.76
+ ,217.63)
> par7 = '0'
> par6 = '0'
> par5 = '1'
> par4 = '1'
> par3 = '0'
> par2 = '0'
> par1 = '1'
> #'GNU S' R Code compiled by R2WASP v. 1.0.44 ()
> #Author: Prof. Dr. P. Wessa
> #To cite this work: Wessa P., (2008), Cross Correlation Function (v1.0.6) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_cross.wasp/
> #Source of accompanying publication: Office for Research, Development, and Education
> #Technical description: 
> par1 <- as.numeric(par1)
> par2 <- as.numeric(par2)
> par3 <- as.numeric(par3)
> par4 <- as.numeric(par4)
> par5 <- as.numeric(par5)
> par6 <- as.numeric(par6)
> par7 <- as.numeric(par7)
> if (par1 == 0) {
+ x <- log(x)
+ } else {
+ x <- (x ^ par1 - 1) / par1
+ }
> if (par5 == 0) {
+ y <- log(y)
+ } else {
+ y <- (y ^ par5 - 1) / par5
+ }
> if (par2 > 0) x <- diff(x,lag=1,difference=par2)
> if (par6 > 0) y <- diff(y,lag=1,difference=par6)
> if (par3 > 0) x <- diff(x,lag=par4,difference=par3)
> if (par7 > 0) y <- diff(y,lag=par4,difference=par7)
> x
  [1] 357.59 361.96 361.42 363.97 363.04 360.06 357.48 351.96 358.59 359.39
 [11] 356.40 361.93 363.55 364.73 363.70 363.65 358.43 361.14 355.97 353.82
 [21] 352.17 356.06 355.18 354.01 354.65 356.31 356.07 356.91 357.48 357.97
 [31] 350.77 351.16 358.08 359.35 358.53 358.30 357.41 358.68 354.31 356.08
 [41] 348.71 353.13 344.49 340.69 343.25 339.17 341.47 343.43 332.23 338.72
 [51] 341.61 345.36 338.09 338.73 340.12 334.94 332.46 334.66 340.12 341.21
 [61] 341.62 345.06 343.43 345.65 342.74 334.67 341.75 340.77 344.84 345.52
 [71] 349.79 344.44 344.87 337.48 336.21 339.81 338.86 341.86 342.33 340.73
 [81] 350.38 350.13 344.99 346.55 345.02 344.29 346.03 347.01 344.48 348.40
 [91] 350.05 348.70 349.86 353.45 354.30 356.48 354.24 350.79 354.22 350.02
[101] 349.28 349.17 347.16 339.30 342.75 343.71 343.13 341.14 344.04 345.02
[111] 345.43 346.07 338.33 338.10 336.19 338.58 326.85 325.81 320.73 319.45
[121] 326.69 322.95 319.47 321.13 315.34 313.78 307.90 307.62 313.41 305.88
[131] 309.60 320.60 320.50 324.68 323.35 319.01 325.88 331.39 330.48 331.62
[141] 323.79 326.12 327.91 327.37 323.83 324.90 325.18 327.94 332.78 327.06
[151] 324.87 324.41 317.86 318.13 309.16 310.73 305.54 310.16 310.98 305.72
[161] 307.05 299.76 300.90 292.09 291.76 293.58 288.90 295.69 296.21 292.31
[171] 295.25 297.60 295.87 300.02 303.73 300.92 294.72 292.18 297.35 296.99
[181] 298.85 298.85 303.45 298.45 297.14 297.78 296.02 300.33 293.96 295.69
[191] 299.73 300.96 296.38 292.87 284.96 284.41 282.70 283.76 276.11 273.73
[201] 273.73 273.73 273.73 273.69 274.42 263.15 275.24 267.88 276.97 279.49
[211] 280.09 275.16 271.58 269.94 283.31 282.94 283.18 281.83 282.84 281.71
[221] 278.29 279.70 273.47 272.44 274.49 278.46 279.19 287.21 283.80 280.41
[231] 282.39 286.97 289.77 289.60 288.67 288.84 297.55 295.07 296.14 294.34
[241] 295.25 293.30 295.15 295.49 297.05 300.03 299.52 300.50 295.93 288.84
[251] 290.44 285.88 285.74 287.93 291.19 294.39 294.86 292.36 291.86 291.73
[261] 295.73 284.02 284.24 287.62 282.36 284.84 290.48 290.41 286.77 283.97
[271] 285.05 277.19 280.21 276.92 279.08 268.24 267.48 267.83 268.54 261.37
[281] 264.12 264.34 262.32 266.18 259.75 260.78 256.27 254.63 250.39 258.49
[291] 260.18 260.65 261.01 264.23 267.10 261.27 262.59 256.85 264.69 270.15
[301] 265.69 264.77 261.32 269.48 272.03 268.13 279.65 281.75 280.44 280.99
[311] 281.86 286.21 282.11 279.66 281.39 279.83 283.71 278.99 282.50 283.88
[321] 287.60 283.80 286.20 285.22 285.54 278.58 282.08 287.88 279.18 283.16
[331] 289.57 285.82 272.00 277.69 263.54 270.92 282.60 268.25 262.58 263.16
[341] 267.85 268.67 248.41 267.99 267.65 259.16 255.55 250.47 233.93 231.96
[351] 214.49 212.68 235.07 234.41 213.77 224.85 223.64 237.26 231.44 221.50
[361] 224.28 219.49 215.86 233.70 229.06 237.27 237.56 241.70 248.14 233.89
[371] 226.78 233.04 229.70 229.17 217.23 231.20 219.76 214.60 216.69 203.35
[381] 190.44 202.84 210.86 209.57 218.57 218.98 225.01 206.04 211.52 216.92
[391] 209.45 217.53 222.32 217.76 216.63
> y
  [1] 121.36 122.33 122.04 123.53 124.13 124.85 125.50 125.53 126.07 123.55
 [11] 123.90 123.32 121.84 122.31 122.31 123.87 123.64 123.73 123.90 123.04
 [21] 122.28 122.86 121.29 123.09 123.54 124.65 124.70 124.53 124.61 124.55
 [31] 124.41 126.60 123.68 123.41 125.43 125.38 124.78 123.70 124.07 124.25
 [41] 125.58 126.13 124.82 122.70 123.39 122.70 123.42 120.05 120.02 122.23
 [51] 120.32 119.91 119.72 122.31 118.58 118.53 119.59 117.63 117.47 110.81
 [61] 113.71 116.34 114.77 117.38 116.84 117.83 119.02 115.21 116.08 119.20
 [71] 118.83 117.92 117.03 116.71 118.55 115.13 114.97 114.99 113.96 115.46
 [81] 115.55 112.05 116.44 117.84 116.06 116.54 118.31 117.72 120.55 121.61
 [91] 120.53 122.31 123.07 122.59 121.97 122.22 122.04 121.96 121.81 121.81
[101] 121.62 119.82 118.41 120.56 120.59 117.50 117.77 117.86 116.60 118.90
[111] 120.83 120.84 121.12 121.12 120.36 118.66 118.32 119.36 116.06 116.48
[121] 114.60 112.86 115.92 116.75 116.75 114.31 115.28 114.22 114.65 114.11
[131] 117.67 117.04 115.50 118.78 118.95 119.37 118.79 118.43 120.06 120.74
[141] 120.09 121.97 119.50 116.18 114.03 112.36 111.59 110.65 110.98 113.87
[151] 113.67 113.09 113.77 116.05 116.22 112.18 109.95 111.14 111.72 109.01
[161] 109.29 109.74 109.32 104.89 107.97 108.34 105.57  98.49 100.81 103.29
[171] 108.73 104.06 106.97 107.13 108.86 107.95 110.20 109.69 105.10 104.68
[181] 103.12 103.71 103.30 102.52 106.76 106.80 106.30 107.64 104.03 107.30
[191] 106.21 108.27 108.50 110.68 110.80 110.75 105.68 105.37 104.76 108.01
[201] 108.01 108.01 108.01 106.69 104.19 104.48 101.22  99.54 104.00 104.44
[211] 106.89 107.64 105.70 108.10 104.23 107.41 107.80 109.39 109.22 109.86
[221] 107.58 106.70 105.62 108.84 106.16 106.26 107.70 108.85 108.41 111.36
[231] 110.03 109.67 108.21 112.58 112.88 113.08 111.33 112.92 113.41 113.57
[241] 114.35 112.13 112.29 111.56 112.06 112.46 114.39 115.62 116.04 116.42
[251] 114.62 114.16 114.69 111.85 113.05 111.00 112.74 115.26 117.63 115.49
[261] 117.23 115.83 117.82 113.36 111.02 112.24 108.75 109.33 111.86 112.04
[271] 112.80 109.90 108.96 107.69 107.84 107.47 107.07 106.94 107.11 107.11
[281] 105.81 104.58 104.61 105.52 102.86 103.60 103.73 104.12 103.76 102.85
[291] 102.83 102.22 100.64 101.13 103.33 103.92 106.78 103.49 101.80 101.86
[301] 103.51 103.73 101.58  98.93 100.41 100.05  98.86 100.11  99.89 100.09
[311]  97.31  97.08  98.55  98.62  96.37  97.16  96.98  97.15  96.10  96.24
[321]  95.70  95.64  99.65  95.75  96.74  96.92  97.34  92.84  96.80  95.20
[331]  94.99  94.18  94.95  91.23  90.78  91.97  88.76  91.88  95.23  94.79
[341]  92.97  92.90  92.60  92.96  87.69  87.57  84.62  85.25  84.33  82.33
[351]  76.78  77.70  71.05  79.75  80.41  81.65  74.85  74.70  77.25  76.41
[361]  75.84  73.25  73.95  67.78  72.21  72.26  77.67  74.63  73.99  82.87
[371]  78.62  79.13  78.76  77.20  77.05  78.05  72.32  74.17  72.26  72.72
[381]  72.57  69.60  70.25  73.22  72.32  72.01  73.21  74.32  70.73  70.94
[391]  71.94  71.47  70.94  73.30  73.30
> postscript(file="/var/www/html/rcomp/tmp/1ogw01260965424.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> (r <- ccf(x,y,main='Cross Correlation Function',ylab='CCF',xlab='Lag (k)'))

Autocorrelations of series 'X', by lag

  -22   -21   -20   -19   -18   -17   -16   -15   -14   -13   -12   -11   -10 
0.680 0.688 0.700 0.710 0.721 0.733 0.743 0.757 0.772 0.785 0.797 0.807 0.817 
   -9    -8    -7    -6    -5    -4    -3    -2    -1     0     1     2     3 
0.827 0.836 0.848 0.860 0.871 0.883 0.893 0.903 0.906 0.909 0.899 0.889 0.876 
    4     5     6     7     8     9    10    11    12    13    14    15    16 
0.865 0.853 0.842 0.829 0.819 0.808 0.795 0.782 0.770 0.758 0.746 0.735 0.722 
   17    18    19    20    21    22 
0.711 0.699 0.687 0.677 0.666 0.656 
> dev.off()
null device 
          1 
> 
> #Note: the /var/www/html/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/www/html/rcomp/createtable")
> 
> a<-table.start()
> a<-table.row.start(a)
> a<-table.element(a,'Cross Correlation Function',2,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Parameter',header=TRUE)
> a<-table.element(a,'Value',header=TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Box-Cox transformation parameter (lambda) of X series',header=TRUE)
> a<-table.element(a,par1)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Degree of non-seasonal differencing (d) of X series',header=TRUE)
> a<-table.element(a,par2)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Degree of seasonal differencing (D) of X series',header=TRUE)
> a<-table.element(a,par3)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Seasonal Period (s)',header=TRUE)
> a<-table.element(a,par4)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Box-Cox transformation parameter (lambda) of Y series',header=TRUE)
> a<-table.element(a,par5)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Degree of non-seasonal differencing (d) of Y series',header=TRUE)
> a<-table.element(a,par6)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Degree of seasonal differencing (D) of Y series',header=TRUE)
> a<-table.element(a,par7)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'k',header=TRUE)
> a<-table.element(a,'rho(Y[t],X[t+k])',header=TRUE)
> a<-table.row.end(a)
> mylength <- length(r$acf)
> myhalf <- floor((mylength-1)/2)
> for (i in 1:mylength) {
+ a<-table.row.start(a)
+ a<-table.element(a,i-myhalf-1,header=TRUE)
+ a<-table.element(a,r$acf[i])
+ a<-table.row.end(a)
+ }
> a<-table.end(a)
> table.save(a,file="/var/www/html/rcomp/tmp/28wkc1260965424.tab") 
> 
> try(system("convert tmp/1ogw01260965424.ps tmp/1ogw01260965424.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  0.460   0.190   1.141