Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
2913021 36117637 2877311 8363404 9054332 1240862 9490583 10895586 3722084 7395599 34005274 4417781 1112607 10474410 5547683 84107606 1331475 5363352 65027512 3926000 81776930 11121341 10000023 318041 74567511 30762701 4560155 7623600 59277417 7182390 16321581 2998083 5447900 2097555 4337141 3097282 506953 2070739 3562045 619428 32409639 16615394 4889252 38042794 10573100 1779676 20246871 142849449 27425676 7291436 5391428 2048583 46576897 9378126 7824909 7641630 10639931 72326914 45870700 8270684 62766365 309348193 23606779
Data Y:
11926953259 1.61207E+11 9260284938 3.90212E+11 52902703376 25713271277 57231904543 4.83549E+11 17164279813 50610031136 1.61346E+12 59665427465 25562251656 2.07016E+11 3.21995E+11 2.18888E+11 19490936349 2.478E+11 2.64684E+12 11638536834 3.41709E+12 2.99362E+11 1.30256E+11 13254818331 4.6779E+11 1.38517E+11 2.21343E+11 2.33755E+11 2.12506E+12 26425379437 1.48047E+11 1.15419E+11 4794357795 23757368290 38009950249 37120517694 53212476812 9407168702 5811604052 4139192053 93216746662 8.3639E+11 4.28527E+11 4.79321E+11 2.38303E+11 1.25122E+11 1.67998E+11 1.52492E+12 5.28207E+11 39460357731 89501012916 48013606745 1.43159E+12 4.88378E+11 5.81209E+11 5642178580 44050929160 7.71877E+11 1.36013E+11 2.8988E+11 2.42968E+12 1.49644E+13 30906749533
Sample Range:
(leave blank to include all observations)
From:
To:
Chart options
Label y-axis:
Label x-axis:
R Code
k <- cor.test(x,y,method='spearman') bitmap(file='test1.png') plot(x,y,main='Scatterplot',xlab=xlab,ylab=ylab) grid() dev.off() bitmap(file='test2.png') plot(rank(x),rank(y),main='Scatterplot of Ranks',xlab=xlab,ylab=ylab) grid() dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Spearman Rank Correlation',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'rho',header=TRUE) a<-table.element(a,k$estimate) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'2-sided p-value',header=TRUE) a<-table.element(a,k$p.value) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'S',header=TRUE) a<-table.element(a,k$statistic) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.tab')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation