Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
84.97555512 85.3973169 85.87914364 86.29026318 86.7572453 87.15714182 87.60772129 87.9960184 88.42899892 88.8055115 89.22004408 89.58476689 89.98032311 90.33341722 90.70976642 91.0515436 91.40872898 91.7396352 92.0779438 92.39854429 92.71849208 93.02945392 93.33174706 93.63382278 93.9193437 94.21335709 94.50566735 94.79643239 95.08580223 95.37391918 95.66091814 95.94692677 96.23206579 96.51644912 96.80018419 97.08337211 97.3661079 97.6484807 97.930574 98.21246579 98.4942288 98.77593069 99.0576342 99.33939735 99.62127365 99.9033122 100.1855579 100.4680516 100.7508302 101.033927 101.3173715 101.6011898 101.8854047 102.1700358 102.4550995 102.7406094 103.0265761 103.3130077 103.5999093 103.8872839 104.1751318 104.4634511 104.7522377 105.0414853 105.3311857 105.6213287 105.9119021 106.2028921 106.4942832 106.7860583 107.0781986 107.3706841 107.6634932 107.9566031 108.2499897 108.5436278 108.8374911 109.1315521 109.4257825 109.7201531 110.0146337 110.3091934 110.6038005 110.8984228 111.1930273 111.4875806 111.7820485 112.0763967 112.3705904 112.6645943 112.9583717 113.2518902 113.5451119 113.8380006 114.1305182 114.4226317 114.7143036 115.0054978 115.2961782 115.5863089 115.8758541 116.1647782 116.4530458 116.7406221 117.0274723 117.3135622 117.5988578 117.8833259 118.1669334 118.4496481 118.7314381 119.0122722 119.2921199 119.5709513 119.8487374 120.1254495 120.4010603 120.6755427 120.948871 121.22102 121.4919655 121.7616844 122.0301544 122.2973542 122.5632638 122.827864 123.0911367 123.3530652 123.6136336 123.8728276 124.1306337 124.38704 124.6420357 124.8956114 125.1477591 125.398472 125.6477449 125.895574 126.1419569 126.3868929 126.6303826 126.8724284 127.1130342 127.3522056 127.5899498 127.8262759 128.0611947 128.2947187 128.5268624 128.757642 128.9870758 129.2151839 129.4419887 129.6675143 129.891787 130.1148354 130.3366901 130.5573839 130.7769521 130.995432 131.2128634 131.4292887 131.6447523 131.8593015 132.0729858 132.2858574 132.4979712 132.7093845 132.9201575 133.1303527 133.3400358 133.5492749 133.7581408 133.9667073 134.1750506 134.3832499 134.591387 134.7995463 135.007815 135.2162826 135.4250414 135.634186 135.8438132 136.0540223 136.2649144 136.4765925 136.6891617 136.9027281 137.1173995 137.3332846 137.5504927 137.7691339 137.9893182 138.2111552 138.4347541 138.6602228 138.8876678 139.1171933 139.3489012 139.5828898 139.8192541 140.0580848 140.2994645 140.5434787 140.7901957 141.0396832 141.2919995 141.5471945 141.8053089 142.0663731 142.3304073 142.59742 142.867408 143.1403553 143.4162329 143.6949981 143.9765941 144.2609497 144.5479789 144.8375809 145.1296398 145.4240246 145.7205898 146.0191748 146.319605 146.621692 146.9252331 147.2300177 147.5358173 147.8423918 148.149501 148.4568879 148.7642907 149.0714413 149.3780673 149.6838943 149.9886397 150.2920328 150.5937928 150.8936469 151.1913253 151.4865636 151.7791045 152.0686985 152.3551055 152.6380955 152.9174502 153.1929631 153.4644407 153.7317031 153.9945844 154.2529332 154.5066127 154.755501 154.999491 155.2384904 155.4724217 155.7012216 155.9248409 156.1432438 156.3564079 156.564323 156.7669913 156.9644258 157.1566506 157.3436995 157.5256156 157.7024507 157.8742644 158.0411233 158.2031007 158.3602756 158.5127321 158.6605588 158.8038483 158.9426964 159.0772018 159.2074654 159.3335898 159.455679 159.573838 159.688172 159.7987866 159.9057871 160.0092785 160.1093647 160.2061489 160.299733 160.3902173 160.4776996 160.5622804 160.6440526 160.7231097 160.7995428 160.8734411 160.9448916 161.013979 161.0807857 161.1453919 161.2078755 161.2683119 161.3267744 161.383334 161.4380593 161.4910168 161.5422726 161.5918856 161.639917 161.6864247 161.7314645 161.7750901 161.8173534 161.8583045 161.8979913 161.9364602 161.9737558 162.0099209 162.0449969 162.0790234 162.1120386 162.144079 162.17518 162.2053755 162.2346979 162.2631785 162.2908474 162.3177333 162.343864 162.3692662 162.3939652 162.4179858 162.4413513 162.4640845 162.4862071 162.5077398 162.5287029 162.5491154 162.5689958 162.588362 162.6072309 162.6256189 162.6435418 162.6610146 162.6780519 162.6946676 162.7108751 162.7266874 162.7421168 162.7571752 162.7718741 162.7862245 162.8002371 162.8139219 162.8272889 162.8403475 162.8531067 162.8655754 162.8777619 162.8896744 162.9013208 162.9127085 162.9238449 162.9347368 162.9453912 162.9558145 162.9660131 162.9759929 162.9857599 162.9953196 163.0046776 163.0138392 163.0228094 163.0315932 163.0401953 163.0486203 163.0568727 163.0649568 163.0728768 163.0806367 163.0882404 163.0956917 163.1029943 163.1101517 163.1171673 163.1240445 163.1307866 163.1373966 163.1438776 163.1502326 163.1564644 163.1625759 163.1685697 163.1744484 163.1802146 163.1858708 163.1914194 163.1968627 163.202203 163.2074426 163.2125835 163.217628 163.2225779 163.2274354 163.2322024 163.2368807 163.2414722 163.2459787 163.2504019 163.2547435 163.2590052 163.2631886 163.2672954 163.2713269 163.2752848 163.2791705 163.2829854 163.286731 163.2904086 163.2940195 163.297565 163.3010464 163.304465 163.307822 163.3111185 163.3143558 163.3175349 163.320657 163.3237231 163.3267344 163.3296918 163.3325964 163.3354491 163.338251 163.341003
Data Y:
12.05503983 12.13455523 12.21318503 12.2910249 12.36816549 12.44469258 12.52068629 12.59622335 12.67137518 12.74620911 12.82078836 12.89517218 12.969416 13.04357164 13.1176874 13.19180874 13.26597601 13.34022934 13.41460428 13.48913319 13.56384768 13.63877446 13.71393934 13.78936547 13.86507382 13.94108332 14.01741092 14.09407175 14.1710792 14.24844498 14.32617994 14.40429169 14.48278811 14.56167529 14.64095814 14.72064045 14.80072498 14.88121352 14.96210701 15.04340553 15.12510844 15.20721443 15.28972155 15.37262729 15.45592866 15.53962221 15.62370476 15.70817017 15.79301678 15.87823668 15.96382858 16.04978452 16.13610029 16.2227706 16.30979016 16.39715363 16.48485573 16.57289122 16.66125494 16.74994187 16.83894709 16.92826587 17.01789367 17.10782615 17.19805919 17.28858894 17.37941179 17.47052444 17.56192386 17.65360733 17.74557295 17.83781722 17.93034046 18.02313904 18.11621449 18.20956418 18.30318851 18.3970876 18.49126194 18.58571243 18.68044032 18.77544728 18.87073536 18.966307 19.06216503 19.15831267 19.25475352 19.35149163 19.44853124 19.54587708 19.64353438 19.74150854 19.83980545 19.93843145 20.03739255 20.13669623 20.23634934 20.33635961 20.43673478 20.53748298 20.63861291 20.74013277 20.8420525 20.94438028 21.04712678 21.15030093 21.25391304 21.35797332 21.4624923 21.56748045 21.6729493 21.77890902 21.88537109 21.99234686 22.09984776 22.20788541 22.31647143 22.4256177 22.53533595 22.64563824 22.75653575 22.86804258 22.98016763 23.09292679 23.20632749 23.32038549 23.43511149 23.55051871 23.66661524 23.78341652 23.90093275 24.01917703 24.13815894 24.25789074 24.37838315 24.49964778 24.62169464 24.74453536 24.86817768 24.99263735 25.1179181 25.24403371 25.37099167 25.49880264 25.62747331 25.7570168 25.88743607 26.01874261 26.15094297 26.28404312 26.41805126 26.55297507 26.68881882 26.82558904 26.96329146 27.1019295 27.24151032 27.38203422 27.52350971 27.66593402 27.80931681 27.9536524 28.09895136 28.24520531 28.3924254 28.54060085 28.689741 28.83983907 28.99089799 29.14291171 29.29588211 29.44980208 29.60467235 29.76048479 29.91723895 30.0749257 30.23354335 30.39308176 30.55353799 30.71490093 30.87716632 31.0403221 31.20436268 31.36927506 31.53505231 31.7016805 31.86915314 32.03744999 32.20656836 32.37648607 32.54719801 32.71868225 32.89093119 33.06392318 33.23764811 33.4120847 33.58722031 33.76303402 33.93951076 34.1166299 34.29437407 34.47272283 34.65165668 34.83115524 35.01119711 35.19176177 35.37282619 35.55437176 35.73636737 35.91879976 36.10163704 36.28486194 36.46844479 36.65236365 36.83659382 37.02110818 37.2058813 37.39088668 37.57609874 37.76148905 37.94703242 38.1326991 38.3184638 38.50429603 38.69016998 38.87605489 39.06192441 39.24774707 39.43349606 39.61914076 39.80465254 39.98999994 40.17515795 40.36009244 40.54477475 40.72917544 40.91326399 41.09701099 41.28038585 41.46335907 41.64590018 41.82797963 42.00956706 42.19063313 42.37114758 42.55108107 42.73040375 42.90908653 43.08709982 43.2644155 43.44100245 43.61683402 43.79188142 43.9661169 44.13951004 44.31203579 44.4836659 44.65437319 44.82413133 44.99291356 45.16069403 45.32744704 45.49314752 45.65777013 45.82129177 45.98368656 46.1449338 46.30500858 46.46388803 46.62155183 46.77797684 46.93314404 47.08703099 47.23962058 47.39089077 47.54082604 47.6894054 47.83661466 47.98243414 48.12685082 48.26984657 48.41140938 48.55152298 48.69017613 48.82735473 48.9630481 49.09724461 49.22993391 49.36110718 49.49075409 49.61886898 49.74544132 49.87046889 49.99394068 50.11585824 50.23620985 50.35500108 50.47222213 50.58787426 50.70195581 50.8144676 50.92540942 51.0347839 51.14259229 51.24883903 51.3535268 51.45666185 51.55824831 51.65829423 51.75680513 51.85379089 51.94925841 52.04321933 52.13568193 52.2266596 52.31616197 52.40420412 52.49079703 52.57595741 52.65969757 52.74203581 52.82298572 52.90256713 52.9807949 53.05769031 53.13326946 53.207555 53.28056425 53.35232114 53.42284417 53.49215847 53.5602837 53.62724607 53.69306637 53.75777335 53.82138422 53.88393309 53.94543725 54.00593079 54.06543278 54.1239772 54.18158486 54.23828949 54.29411356 54.3490905 54.40324431 54.45660807 54.50920717 54.56107427 54.61223603 54.66272473 54.71256787 54.76179737 54.81044184 54.85853238 54.90609842 54.95317045 54.99977846 55.04595226 55.09172217 55.13711731 55.18216811 55.22690289 55.271352 55.31554289 55.35950558 55.40326657 55.44685531 55.49029727 55.53362107 55.576851 55.62001464 55.66313498 55.70623826 55.74934603 55.79247939 55.83566893 55.87892356 55.92227464 55.96573022 56.00931839 56.05304601 56.09693771 56.14099882 56.18525031 56.22969564 56.27435189 56.3192203 56.36431379 56.40963105 56.45518056 56.50095811 56.54696744 56.59320107 56.63965769 56.68632619 56.73319989 56.78026364 56.82750509 56.87490465 56.92244396 56.97009856 57.01784381 57.06564989 57.1134856 57.16131528 57.20910091 57.25679821 57.30436885 57.35175792 57.39891295 57.44578172 57.49229864 57.53840429 57.58402911 57.62910094 57.67354335 57.7172758 57.76021291 57.80226553 57.84333894 57.88333502 57.92214864 57.95967458 57.99579467 58.0303973 58.06335008 58.09453209 58.12380699 58.15103575 58.17607382 58.1987714 58.21897289 58.23651745
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,hyperlink('http://www.xycoon.com/arithmetic_mean.htm','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,hyperlink('http://www.xycoon.com/biased.htm','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,hyperlink('http://www.xycoon.com/biased1.htm','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,hyperlink('http://www.xycoon.com/covariance.htm','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,hyperlink('http://www.xycoon.com/pearson_correlation.htm','Correlation',''),header=TRUE) a<-table.element(a,cxy,2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/coeff_of_determination.htm','Determination',''),header=TRUE) a<-table.element(a,cxy*cxy,2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/ttest_statistic.htm','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') qq.plot(x,main='QQplot of variable x') dev.off() bitmap(file='test3.png') qq.plot(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