Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
length 144 123 169 121 130 165 97 131 142 136 161 102 146 112 91 98 104 143 130 130 169 115 143 165 88 136 93 106 143 142 133 117 103 130 154 106 91 102 136 131 100 146 148 95 124 103 93 124 98 108 128 162 130 158 153 94 150 100 96 106 89 108 152 92 98 92 122 150 126 124 101 87 138 144 111 169 93 139 117 108 144 108 151 154 117 104 149 126 91 187 143 157 115 116 140 120 86 140 118 115 125 115 90 127 142 124 93 163 127 201 154 129 147 143 109 100 101 138 134 179 133 161 95 106 106 88 145 142 121 81 178 116 152 92 119 92 183 90 130 131 143 127 104 108 130 104 130 123 82 155 92 128 122 107 88 95 124 136 125 136 123 95 169 119 127 151 85 88 139 120 139 194 119 91 124 98 105 129 126 86 139 103 121 145 95 115 91 136 110 113 104 81 130 127 135 140 81 121 100 131 107 123 141 101 141 142 89 116 91 117 195 125 141 125 130 154 105 127 112 117 138 90 129 120 128 126 100 118 127 94 189 142 84 99 128 84 137 143 113 118 111 181 103 127 127 124 113 118 93 119 145 108 83 93 114 126 93 108 128 127 133 107 85 104 131 116 104 104 108 92 121 102 102 119 117 118 119 100 111 110 120 94 119 80 97 137 93 113 96 110 154 161 106 102 91 116 117 114 96 112 105 107 126 105 106 105 118 106 96 107 117 132 91 99 93 131 116 114 134 95 116 96 124 114 127 115 114 113 99 119 94 109 110 97 127 106 127 95 27 115 107 110 116 138 111 109 100 88 104 124 133 124 105 94 132 122 153 117 126 117 95 119 127 182 114 143 99 109 99 101 110 116 111 137 118 98 125 123 175 96 121 93 99 96 139 134 119 114 111 132 138 103 125 100 113 88 136 109
Data Y:
$952.624.490.27 $750.140.046.17 $671.220.455.10 $772.158.880.00 $706.988.165.89 $1.088.559.994.68 $756.677.675.77 $746.171.720.76 $707.732.953.69 $712.903.691.09 $973.402.222.02 $1.291.514.391.87 $876.652.703.76 $653.534.988.15 $726.116.532.72 $983.938.347.10 $753.652.179.78 $677.113.113.86 $799.384.854.30 $1.231.937.550.46 $1.045.906.537.07 $853.264.813.24 $1.140.066.020.14 $1.115.258.567.81 $902.175.843.80 $779.470.849.49 $768.148.576.60 $641.761.449.87 $1.561.752.970.70 $710.892.844.47 $729.242.277.12 $747.568.480.64 $591.768.996.92 $1.408.187.497.58 $1.179.649.301.10 $587.678.383.43 $698.778.760.90 $615.927.877.92 $1.097.688.249.77 $657.258.197.48 $640.817.168.50 $1.039.829.831.30 $893.915.146.90 $588.103.656.97 $756.351.938.78 $1.151.241.371.27 $814.943.703.06 $675.617.796.27 $535.872.792.75 $1.110.413.235.80 $576.744.932.84 $3.025.614.789.35 $781.234.707.77 $846.695.292.79 $1.028.416.946.70 $975.885.765.83 $920.434.198.70 $514.511.873.56 $804.914.384.79 $642.755.355.79 $662.286.859.38 $668.787.232.35 $1.093.392.302.94 $684.753.923.91 $571.713.515.70 $692.823.108.65 $862.689.853.26 $460.239.821.32 $641.750.240.94 $520.842.241.26 $666.589.609.88 $600.223.218.85 $1.070.332.714.40 $808.210.413.44 $710.271.758.12 $1.097.133.563.54 $909.845.580.02 $1.014.515.715.39 $519.365.892.24 $672.845.512.89 $701.617.723.36 $450.143.548.74 $1.248.736.559.96 $458.044.146.70 $541.086.305.35 $538.013.485.95 $888.069.619.93 $465.971.959.24 $774.110.496.19 $665.579.149.09 $900.723.586.96 $1.083.174.496.16 $574.240.396.06 $715.424.296.77 $450.608.889.05 $578.156.074.83 $644.014.476.99 $1.026.150.164.19 $445.035.858.01 $645.787.263.70 $453.418.828.21 $789.282.558.61 $459.082.108.05 $979.683.031.61 $994.517.314.65 $680.323.214.86 $1.149.769.230.81 $621.746.515.85 $764.854.839.34 $1.437.468.137.47 $586.265.893.86 $548.509.850.95 $350.840.740.50 $839.770.411.82 $556.246.757.96 $1.113.971.831.87 $621.991.654.79 $952.547.456.42 $523.311.824.52 $1.215.888.673.56 $567.025.727.92 $1.153.349.012.27 $484.030.881.28 $535.885.534.32 $535.885.534.32 $579.952.267.88 $470.417.261.03 $852.430.975.14 $1.078.613.527.65 $503.081.452.61 $1.160.945.184.82 $600.919.721.86 $1.299.565.844.68 $700.446.276.21 $482.919.671.58 $491.677.898.59 $598.924.902.95 $645.839.752.37 $577.315.986.69 $468.894.560.29 $589.107.501.38 $512.978.409.67 $473.254.604.73 $453.101.727.42 $399.592.809.86 $406.337.937.14 $450.735.586.05 $749.202.165.88 $479.673.643.72 $627.512.195.02 $687.402.755.40 $512.818.154.00 $504.972.371.74 $953.555.515.37 $635.213.710.15 $442.215.537.18 $515.733.894.84 $1.310.017.631.92 $589.494.477.14 $652.487.687.22 $419.100.786.51 $526.412.918.83 $697.986.463.76 $535.808.551.59 $413.490.148.56 $802.094.487.32 $426.544.779.85 $440.833.092.36 $549.033.595.61 $506.228.509.20 $462.201.855.32 $2.711.618.942.05 $489.908.039.66 $379.335.283.22 $463.641.222.04 $867.079.779.93 $440.297.359.03 $910.108.547.07 $388.265.227.30 $445.331.636.78 $411.669.626.96 $482.605.706.88 $465.755.910.42 $1.230.107.590.71 $412.284.269.25 $364.630.884.66 $489.602.830.84 $504.236.144.09 $688.787.804.91 $744.130.795.25 $407.161.572.42 $560.796.160.01 $545.667.343.27 $507.116.462.17 $409.363.135.75 $547.646.277.68 $536.194.290.82 $521.397.145.36 $446.097.882.15 $567.215.110.80 $393.970.405.08 $356.352.655.71 $343.962.158.23 $560.158.721.17 $603.652.739.56 $1.079.245.007.52 $1.224.609.826.48 $558.349.969.97 $544.302.423.76 $391.461.772.95 $525.027.843.81 $337.721.152.76 $319.076.111.52 $721.079.965.93 $602.758.308.48 $441.597.053.06 $372.234.469.27 $1.494.643.267.07 $416.680.933.02 $435.658.442.89 $409.362.990.66 $848.295.321.88 $691.707.059.46 $604.173.235.83 $363.287.833.02 $449.050.801.17 $389.781.727.82 $541.460.630.25 $593.961.676.43 $308.145.094.86 $356.095.013.09 $521.567.841.06 $609.997.249.69 $331.992.373.90 $316.024.944.41 $313.951.873.33 $901.210.651.82 $676.967.922.64 $310.376.502.92 $472.832.496.33 $364.851.165.52 $766.363.955.48 $861.165.331.11 $399.800.210.00 $913.588.289.03 $433.633.526.28 $472.122.382.99 $441.756.758.76 $364.866.028.19 $837.176.928.80 $306.577.096.21 $632.094.375.18 $350.666.921.09 $565.542.732.63 $433.876.252.58 $783.284.649.89 $424.108.135.23 $410.151.533.40 $449.121.409.11 $902.911.069.85 $344.948.173.18 $223.421.641.89 $157.192.136.58 $156.127.457.44 $165.680.195.48 $255.783.543.19 $312.268.614.98 $229.470.092.55 $218.167.988.16 $147.115.232.32 $257.574.173.26 $167.612.331.26 $348.734.793.08 $325.590.003.39 $136.502.617.91 $132.539.476.89 $158.529.078.59 $319.394.671.09 $139.249.933.14 $135.533.817.08 $298.446.153.99 $171.957.403.89 $236.362.728.24 $182.134.789.87 $376.591.505.78 $185.621.091.22 $154.306.521.94 $247.976.609.65 $196.603.537.43 $380.853.328.77 $206.660.859.39 $191.070.314.62 $166.716.691.55 $131.860.128.89 $280.607.936.32 $462.165.115.18 $187.212.356.19 $134.714.403.83 $330.073.804.72 $150.771.621.56 $533.507.308.04 $178.168.716.07 $206.383.818.47 $542.305.856.47 $347.890.557.86 $174.015.016.98 $408.766.010.76 $178.103.266.34 $184.529.371.05 $181.885.265.49 $160.358.685.02 $257.036.604.41 $153.581.249.47 $150.636.755.46 $153.839.280.60 $160.731.608.43 $214.320.190.47 $188.628.895.22 $598.793.082.96 $220.285.758.34 $433.578.101.55 $192.977.753.79 $317.587.527.62 $170.547.987.84 $139.613.624.14 $878.893.732.43 $187.442.468.68 $193.086.527.57 $303.766.229.77 $153.186.172.93 $258.122.068.33 $309.852.111.31 $110.047.509.57 $247.968.282.64 $142.380.021.95 $221.564.822.26 $281.019.809.85 $187.491.419.29 $359.365.648.51 $551.261.301.66 $130.989.277.73 $295.981.184.10 $202.556.128.37 $534.814.499.80 $290.277.362.86 $200.149.101.49 $189.504.484.45 $239.137.939.02 $168.644.860.87 $600.034.614.87 $163.993.499.96 $192.513.743.73 $345.592.354.55 $239.668.652.38 $267.531.465.18 $243.487.203.97 $271.476.717.71 $281.106.889.67 $228.664.986.61 $263.216.748.21 $212.051.774.10 $277.040.309.05 $213.741.861.13 $177.376.532.95 $308.535.411.68 $486.064.788.22 $282.473.650.31 $434.904.844.66 $179.549.193.51 $295.656.760.75 $579.356.607.45 $281.522.192.14 $397.428.019.80 $453.517.815.51 $367.087.834.87 $198.952.451.13 $182.500.010.40 $184.478.157.71 $197.739.921.62 $493.813.774.95 $1.197.208.492.59 $149.041.059.73 $231.139.337.43 $191.866.398.66 $331.977.504.39 $218.335.151.83 $486.492.894.10 $211.963.752.42 $252.813.235.76 $179.350.846.75 $292.970.147.63 $152.174.306.67 $219.441.449.81 $161.741.515.00 $183.599.406.33 $153.609.014.87 $171.164.330.86 $216.842.095.62
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
library(psychometric) x <- x[!is.na(y)] y <- y[!is.na(y)] y <- y[!is.na(x)] x <- x[!is.na(x)] bitmap(file='test1.png') histx <- hist(x, plot=FALSE) histy <- hist(y, plot=FALSE) maxcounts <- max(c(histx$counts, histx$counts)) xrange <- c(min(x),max(x)) yrange <- c(min(y),max(y)) nf <- layout(matrix(c(2,0,1,3),2,2,byrow=TRUE), c(3,1), c(1,3), TRUE) par(mar=c(4,4,1,1)) plot(x, y, xlim=xrange, ylim=yrange, xlab=xlab, ylab=ylab, sub=main) par(mar=c(0,4,1,1)) barplot(histx$counts, axes=FALSE, ylim=c(0, maxcounts), space=0) par(mar=c(4,0,1,1)) barplot(histy$counts, axes=FALSE, xlim=c(0, maxcounts), space=0, horiz=TRUE) dev.off() lx = length(x) makebiased = (lx-1)/lx varx = var(x)*makebiased vary = var(y)*makebiased corxy <- cor.test(x,y,method='pearson', na.rm = T) cxy <- as.matrix(corxy$estimate)[1,1] load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Pearson Product Moment Correlation - Ungrouped Data',3,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Statistic',1,TRUE) a<-table.element(a,'Variable X',1,TRUE) a<-table.element(a,'Variable Y',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Mean',header=TRUE) a<-table.element(a,mean(x)) a<-table.element(a,mean(y)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Biased Variance',header=TRUE) a<-table.element(a,varx) a<-table.element(a,vary) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Biased Standard Deviation',header=TRUE) a<-table.element(a,sqrt(varx)) a<-table.element(a,sqrt(vary)) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Covariance',header=TRUE) a<-table.element(a,cov(x,y),2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Correlation',header=TRUE) a<-table.element(a,cxy,2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Determination',header=TRUE) a<-table.element(a,cxy*cxy,2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'T-Test',header=TRUE) a<-table.element(a,as.matrix(corxy$statistic)[1,1],2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'p-value (2 sided)',header=TRUE) a<-table.element(a,(p2 <- as.matrix(corxy$p.value)[1,1]),2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'p-value (1 sided)',header=TRUE) a<-table.element(a,p2/2,2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'95% CI of Correlation',header=TRUE) a<-table.element(a,paste('[',CIr(r=cxy, n = lx, level = .95)[1],', ', CIr(r=cxy, n = lx, level = .95)[2],']',sep=''),2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Degrees of Freedom',header=TRUE) a<-table.element(a,lx-2,2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Number of Observations',header=TRUE) a<-table.element(a,lx,2) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.tab') library(moments) library(nortest) jarque.x <- jarque.test(x) jarque.y <- jarque.test(y) if(lx>7) { ad.x <- ad.test(x) ad.y <- ad.test(y) } a<-table.start() a<-table.row.start(a) a<-table.element(a,'Normality Tests',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('jarque.x'),'</pre>',sep='')) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('jarque.y'),'</pre>',sep='')) a<-table.row.end(a) if(lx>7) { a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('ad.x'),'</pre>',sep='')) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('ad.y'),'</pre>',sep='')) a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable1.tab') library(car) bitmap(file='test2.png') qqPlot(x,main='QQplot of variable x') dev.off() bitmap(file='test3.png') qqPlot(y,main='QQplot of variable y') dev.off()
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