Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
2 3 11 14 2 10 6 22 3 1 4 0 5 12 4 29 6 7 18 12 6 2 21 13 9 2 9 8 8 22 3 18 15 9 16 1 7 14 5 8 3 5 4 8 0 2 10 26 15 21 7 3 10 7 32 2 18 18 3 17 17 8 34 29 10 18 19 35 39 6 23 40 12 19 4 13 34 15 6 13 17 14 18 7 5 4 35 24 15 22 13 29 5 27 13 37 8 24 9 31 28 10 14 17 16 34 8 9 10 6 13 10 10 25 32 3 34 18 25 17 14 12 9 37 12 29 10 12 24 18 20 43 41 3 5 8 13 2 24 11 22 43 47 10 20 3 17 16 34 8 11 12 29 5 12 15 12 14 15 11 23 32 20 29 14 18 5 35 18 43 2 18 0 7 3 29 13 7 11 18 24 30 8 9 21 9 6 19 6 24 15 15 4 2 8 14 6 31 13 22 9 13 15 18 23 43 8 30 43 36 13 12 22 35 0 10
Data Y:
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 2 2 2 2 2 2 3 3 3 3 4 4 4 4 4 4 5 5 6 6 6 6 6 7 7 7 7 8 8 8 10 10 11 11 11 12 12 13 14 14 15 16 17 17 17 17 17 17 18 18 18 18 18 18 18 19 20 20 21 21 21 22 22 22 22 24 24 25 25 26 26 26 27 27 28 28 28 29 30 30 30 30 31 31 31 31 31 32 32 32 32 32 33 33 33 33 34 34 34 34 34 35 35 35 35 37 37 37 37 37 37 37 37 38 38 38 38 38 38 38 39 39 39 39 40 40 40 41 41 41 41 42 42 42 42 42 42 42 42 43 44 44 45 45 45 45 45 46 46 46 47 47 47 47 47 47 47 47 48 48 48 48 49 49 49 50 50 50 51 51 51 51 51 52 52 52 53 54 55 56 57 57 57 58 58 59 59 60 61 63 63 63 64 64 72 90
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