Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
2418.27 2412.45 2396.45 2400.82 2416.82 2429.18 2459.00 2558.64 2567.37 2607.37 2608.83 2650.28 2663.37 2816.11 2860.47 2882.29 2896.11 2885.20 2876.47 2907.75 2929.56 2876.47 2867.74 2874.29 2861.20 2822.65 2774.65 2762.29 2754.29 2771.01 2755.01 2751.38 2755.74 2736.10 2739.01 2730.28 2714.28 2712.83 2695.37 2688.83 2691.01 2676.46 2682.28 2735.38 2848.11 2870.65 2824.83 2791.38 2826.29 2899.75 2984.84 3007.39 3014.66 3021.93 3022.66 3020.48 3033.57 3048.11 3060.48 3072.12 3083.75 3086.66 3058.30 3028.48 2997.20 3005.20 2992.84 3004.48 3011.02 3016.11 3022.66 3029.20 3023.39 3001.57 2994.29 2992.84 2995.75 3008.11 3010.29 3024.84 3044.48 3042.30 3049.57 3043.02 3054.66 3080.84 3071.39 3067.75 3077.93 3087.39 3072.12 3080.12 3074.30 3057.57 3068.48 3075.75 3080.12 3063.39 3053.21 3028.48 3011.75 3024.11 3046.19 3061.29 3073.36 3073.36 3082.42 3085.44 3085.44 3091.48 3106.57 3106.57 3118.65 3127.10 3131.33 3134.95 3143.71 3158.20 3163.03 3183.56 3196.54 3203.79 3197.75 3204.09 3208.62 3214.05 3240.01 3231.56 3246.66 3249.98 3269.90 3277.15 3281.38 3269.90 3260.54 3269.90 3271.11 3275.94 3262.96 3262.66 3262.96 3267.79 3270.81 3283.49 3282.58 3289.22 3284.70 3288.62 3297.38 3308.55 3308.85 3325.15 3327.87 3332.40 3339.64 3336.93 3329.38 3326.06 3317.60 3314.58 3313.68 3320.32 3310.96 3307.64 3313.68 3325.15 3331.19 3331.19 3333.91 3335.72 3336.93 3337.53 3330.89 3352.93 3364.70 3371.64 3365.61 3360.78 3365.91 3364.70 3366.51 3365.91 3371.34 3387.95 3429.91 3449.53 3431.42 3388.85 3393.68 3403.65 3409.08 3403.65 3417.23 3459.20 3460.70 3454.36 3444.70 3449.84 3469.16 3464.93 3488.18 3502.67 3519.27 3547.65 3565.77 3561.84 3550.67 3568.79 3577.54 3619.20 3648.19 3648.19 3650.90 3660.26 3675.96 3688.04 3698.60 3707.36 3710.68 3716.72 3761.10 3769.25 3782.23 3783.14 3794.91 3799.44 3817.25 3839.59 3854.69 3866.46 3883.37 3922.62 3941.64 3957.33 3922.92 3920.20 3936.20 3948.88 3951.30 3960.65 3967.81 3975.27 3994.88 4022.73 4036.85 4039.59 4032.14 4043.51 4060.38 4068.62 4080.38 4086.27 4105.49 4107.84 4111.76 4120.39 4124.71 4139.61 4147.45 4151.38 4171.77 4183.93 4184.72 4199.62 4218.06 4236.10 4258.85 4270.22 4283.17 4294.54 4310.23 4316.51 4329.06 4346.32 4365.93 4383.19 4401.62 4415.35 4440.45 4457.32 4458.10 4459.67 4482.81 4492.23 4491.05 4498.89 4512.23 4519.68 4543.22 4578.91 4598.13 4622.05 4633.43 4643.24 4671.48 4689.13 4722.07 4734.63 4751.10 4771.49 4793.81 4819.46 4825.52 4842.31 4851.17 4898.27 4934.64 4943.04 4976.15 5004.59 5041.43 5076.87 5122.57 5151.02 5162.21 5191.59 5213.04 5238.69 5261.54 5285.79 5310.97 5346.88 5379.98 5447.14 5508.69 5580.04 5649.99 5730.66 5814.60 5897.60 5981.54 6058.02 6140.09 6192.32 6257.61 6301.44 6369.52 6441.34 6483.77 6556.05 6611.08 6634.86 6698.75 6749.58 6807.40 6884.81 6958.96 6996.26 7059.22 7083.47 7128.70 7193.99 7246.68 7258.01 7316.78 7344.89 7440.08 7456.69 7484.80 7525.69 7602.99 7660.49 7653.46 7694.98 7772.29 7820.84 7844.48 7869.39 7924.97 7941.58 7970.33 8001.63 8041.88 8073.82 8094.27 8100.66 8111.52 8112.16 8156.88 8193.93 8229.70 8248.87 8274.42 8310.84 8360.03 8387.50 8392.61 8412.42 8435.42 8479.50 8549.77 8590.02 8607.91 8668.60 8705.01 8737.59 8859.61 8926.69 8943.30 8954.16 8980.36 9002.08 9107.49 9131.76 9187.98 9273.59 9368.14 9396.89 9476.75 9561.07 9622.40 9617.29 9610.27 9663.29 9820.45 9867.72 9959.72 9998.05 10097.71 10162.23 10259.34 10283.62 10301.50 10427.36 10520.63 10615.18 10692.48 10757.65 10891.17 10979.97 10992.10 10985.08 11119.24 11181.21 11221.45 11257.23 11316.00 11389.47 11498.72 11607.96 11689.09 11691.01 11749.78 11771.51 11881.66 11971.20 12021.38 12101.07 12127.64 12161.09 12227.01 12275.22 12311.63 12368.69 12373.61 12401.16 12480.86 12609.75 12711.09 12761.27 12774.06 12776.03 12845.89 12845.89 12872.46 12865.57 12896.07 12900.00 12915.75 12925.59 12905.91 12946.25 12916.73 12933.46 12932.47 12944.28 12989.54 12974.78 12964.94 12975.77 13029.88 13055.46 13069.24 13129.26 13135.16 13149.92 13196.16 13237.48 13213.87 13200.10 13159.76 13163.69 13152.87 13190.26 13195.18 13254.21 13267.00 13289.63 13329.97 13358.51 13373.26 13377.20 13368.34 13416.56 13467.72 13527.74 13559.22 13650.73 13663.52 13689.10 13733.37 13779.62 13847.51 13864.23 13846.52 13900.64 13951.80 13985.25 14019.69 14083.64 14087.58 14096.44 14146.61 14228.28 14358.15 14455.56 14403.41 14385.70 14493.57 14541.49 14481.60 14489.58 14541.49 14606.71 14686.57 14731.83 14721.18 14775.75 14813.02 14786.40 14823.67 14870.26 14874.25 14890.22 14944.79 14992.71 15061.92 15036.63 15063.26 15095.20 15143.12 15141.79 15244.28 15282.87 15309.50 15322.81 15346.76 15349.43 15450.58 15515.81 15487.85 15506.49 15526.45 15550.41 15612.97 15664.88 15663.55 15692.83 15739.42 15772.69 15869.86 15895.15 15868.53 15835.25 15835.25 15839.25 15905.80 15949.72 15936.41 15961.70 15956.38 15973.68 16058.86 16098.80 16057.53 16028.25 16068.18 16070.84 16217.26 16249.20 16259.85 16287.80 16259.85 16261.18 16367.66 16407.59 16374.32 16422.24 16447.53 16476.81 13029.88 13055.46 13069.24 13129.26 13135.16 13149.92 13196.16 13237.48 13213.87 13200.10 13159.76 13163.69 13152.87 13190.26 13195.18 13254.21 13267.00 13289.63 13329.97 13358.51 13373.26 13377.20 13368.34 13416.56 13467.72 13527.74 13559.22 13650.73 13663.52 13689.10 13733.37 13779.62 13847.51 13864.23 13846.52 13900.64 13951.80 13985.25 14019.69 14083.64 14087.58 14096.44 14146.61 14228.28 14358.15 14455.56 14403.41 14385.70 14493.57 14541.49 14481.60 14489.58 14541.49 14606.71 14686.57 14731.83 14721.18 14775.75 14813.02 14786.40 14823.67 14870.26 14874.25 14890.22 14944.79 14992.71 15061.92 15036.63 15063.26 15095.20 15143.12 15141.79 15244.28 15282.87 15309.50 15322.81 15346.76 15349.43 15450.58 15515.81 15487.85 15506.49 15526.45 15550.41 15612.97 15664.88 15663.55 15692.83 15739.42 15772.69 15869.86 15895.15 15868.53 15835.25 15835.25 15839.25 15905.80 15949.72 15936.41 15961.70 15956.38 15973.68 16058.86 16098.80 16057.53 16028.25 16068.18 16070.84 16217.26 16249.20 16259.85 16287.80 16259.85 16261.18 16367.66 16407.59 16374.32 16422.24 16447.53 16476.81
Sample Range:
(leave blank to include all observations)
From:
To:
Seasonal Period
12
12
4
6
12
Chart options
R Code
par1 <- as.numeric(par1) (n <- length(x)) (np <- floor(n / par1)) arr <- array(NA,dim=c(par1,np)) j <- 0 k <- 1 for (i in 1:(np*par1)) { j = j + 1 arr[j,k] <- x[i] if (j == par1) { j = 0 k=k+1 } } arr arr.mean <- array(NA,dim=np) arr.sd <- array(NA,dim=np) arr.range <- array(NA,dim=np) for (j in 1:np) { arr.mean[j] <- mean(arr[,j],na.rm=TRUE) arr.sd[j] <- sd(arr[,j],na.rm=TRUE) arr.range[j] <- max(arr[,j],na.rm=TRUE) - min(arr[j,],na.rm=TRUE) } arr.mean arr.sd arr.range (lm1 <- lm(arr.sd~arr.mean)) (lnlm1 <- lm(log(arr.sd)~log(arr.mean))) (lm2 <- lm(arr.range~arr.mean)) bitmap(file='test1.png') plot(arr.mean,arr.sd,main='Standard Deviation-Mean Plot',xlab='mean',ylab='standard deviation') dev.off() bitmap(file='test2.png') plot(arr.mean,arr.range,main='Range-Mean Plot',xlab='mean',ylab='range') dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Standard Deviation-Mean Plot',4,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Section',header=TRUE) a<-table.element(a,'Mean',header=TRUE) a<-table.element(a,'Standard Deviation',header=TRUE) a<-table.element(a,'Range',header=TRUE) a<-table.row.end(a) for (j in 1:np) { a<-table.row.start(a) a<-table.element(a,j,header=TRUE) a<-table.element(a,arr.mean[j]) a<-table.element(a,arr.sd[j] ) a<-table.element(a,arr.range[j] ) 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,'Regression: S.E.(k) = alpha + beta * Mean(k)',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'alpha',header=TRUE) a<-table.element(a,lm1$coefficients[[1]]) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'beta',header=TRUE) a<-table.element(a,lm1$coefficients[[2]]) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'S.D.',header=TRUE) a<-table.element(a,summary(lm1)$coefficients[2,2]) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'T-STAT',header=TRUE) a<-table.element(a,summary(lm1)$coefficients[2,3]) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'p-value',header=TRUE) a<-table.element(a,summary(lm1)$coefficients[2,4]) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable1.tab') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Regression: ln S.E.(k) = alpha + beta * ln Mean(k)',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'alpha',header=TRUE) a<-table.element(a,lnlm1$coefficients[[1]]) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'beta',header=TRUE) a<-table.element(a,lnlm1$coefficients[[2]]) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'S.D.',header=TRUE) a<-table.element(a,summary(lnlm1)$coefficients[2,2]) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'T-STAT',header=TRUE) a<-table.element(a,summary(lnlm1)$coefficients[2,3]) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'p-value',header=TRUE) a<-table.element(a,summary(lnlm1)$coefficients[2,4]) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Lambda',header=TRUE) a<-table.element(a,1-lnlm1$coefficients[[2]]) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable2.tab')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation