Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1.45 1. .73 .42 .75 .93 .87 .93 .82 .81 1.36 1.50 .68 .92 1.18 .91 .70 .93 .70 1.9 .92 1.18 1.9 1.2 .56 10. .5 .76 .83 .66 1.9 .80 1. .71 1.16 .42 .99 .58 1.13 . .80 1.62 .65 .87 .61 1.43 1. 1.17 .96 .76 .47 .92 .43 .83 .60 1.1 2.50 1.85 .91 1.26 .30 .77 .80 .88 .56 .88 1.9 .5 .98 1.36 .89 .91 .78 .49 .80 .68 1.33 3.33 1.36 1.78 3.33 1.14 3.50 2. .77 .62 .80 3.43 3.43 1.22 18. 4.55 .38 3.75 2.67 1.73 .81 3.48 3.33 2.22 .80 1.50 3.33 3.75 8. .44 4.61 2.50 .73 .12 2.50 .78 2.33 2.67 2.80 1.79 3.51 6.67 1.25 1. 5.31 3.70 4.25 . 4.55 . 6.67 1.2 .91 1.7 1.7 1.11 1.11 .64 1.9 1.11 1.7 .13 .96 1.11 .57 3.11 1.8 .85 .75 6.54 6. 10. .89 .69 4. 1.28 1.60 1.1 .55 4.50 1.4 .50 1.23 .80 1.23 1.25 .70 . 1. .67 .78 .73 .47 2.50 .41 .75 7.6 6.65 6.36 2.27
Data Y:
80.68 69.32 76.14 76.14 61.36 80.68 84.9 85.23 52.27 78.41 93.18 36.36 63.64 61.36 63.64 77.27 95.45 63.64 67.5 79.55 61.36 88.64 63.64 65.91 54.55 95.45 56.82 75. 80.68 81.82 47.73 71.59 50. 23.86 82.95 80.68 81.82 78.41 82.95 67.5 63.64 75. 35.23 68.18 94.32 68.18 92.5 72.73 75. 53.41 75. 47.73 69.32 76.14 38.64 55.68 88.64 56.82 79.55 73.86 75. 89.77 88.64 37.50 100. 54.55 75. 89.77 79.55 80.68 70.45 72.73 18.18 67.5 76.14 72.73 54.55 63.64 55.68 76.14 60.23 89.77 69.32 55.68 84.9 55.68 68.18 40.91 44.32 92.5 73.86 65.91 44.32 55.68 52.27 88.64 82.95 63.64 69.32 97.73 52.27 44.32 80.68 50. 45.45 82.95 71.59 38.64 50. 94.32 13.64 85.23 30.68 54.55 85.23 23.86 76.14 65.91 64.77 73.86 90.91 64.77 21.59 76.14 64.77 64.77 100. 84.9 45.45 69.32 54.55 32.95 47.73 87.50 70.45 62.50 60.23 64.77 38.64 68.18 78.41 68.18 82.95 75. 56.82 76.14 37.50 81.82 69.32 48.86 73.86 35.23 70.45 62.50 45.45 71.59 79.55 40.91 71.59 67.5 73.86 76.14 70.45 67.5 72.73 79.55 51.14 63.64 45.45 55.68 52.27 95.45 52.27 68.18 68.18 70.45
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation