Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
27 25 26 19 27 35 24 28 26 36 35 27 26 37 29 38 37 35 29 30 30 33 34 39 24 28 33 30 28 27 30 31 27 29 25 31 32 36 18 34 31 37 29 33 33 23 31 29 35 32 37 30 32 24 25 33 39 29 25 21 26 27 36 25 19 34 30 27 33 27 30 31 27 20 25 25 28 22 33 38 32 21 32 27 25 33 27 33 33 35 30 31 37 32 31 33 26 29 21 31 35 24 33 35 26 30 27 24 32 24 29 25 25 35 32 30 34 31 28 22 33 27 23 23 31 25 30 27 37 29 32 27 30
Data Y:
37 49 51 81 43 39 55 43 54 66 44 39 41 43 33 39 69 50 52 48 52 40 29 38 32 67 38 47 49 54 44 37 59 55 56 35 53 61 54 59 53 70 43 41 53 55 60 26 48 27 57 50 54 39 53 59 52 40 58 48 48 51 49 50 41 63 59 53 53 58 56 59 35 44 48 48 43 45 47 57 57 41 58 48 55 47 51 68 39 65 56 43 39 50 36 40 54 33 52 45 32 45 45 52 62 43 47 70 64 33 47 31 36 37 49 38 52 34 47 41 48 60 51 55 37 49 46 52 39 38 43 41 42
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