Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
154 137 59 102 116 68 77 103 148 115 78 97 133 115 108 66 77 99 121 67 77 109 69 114 105 94 137 106 65 125 105 64 67 78 103 107 75 147 79 66 119 72 109 116 123 64 117 126 105 107 138 121 102 129 98 130 68 105 67 103 118 79 125 145 115 77 111 120 114 132 128 103 116 107 123 105 104 69 105 79 127 68 120 137 98 65 125 142 135 165 131 122 72 94 142 102 120 120 100 69
Data Y:
4 5 6 8 6 4 5 6 7 6 5 4 5 6 7 8 7 6 8 7 8 6 5 6 8 5 7 8 6 5 7 8 6 7 5 6 8 7 6 6 8 7 7 8 6 5 4 7 6 8 7 8 7 9 8 7 6 5 6 7 8 6 7 5 4 6 7 7 6 8 7 6 5 4 5 6 8 8 7 6 5 4 5 6 7 7 6 8 7 6 5 4 5 6 8 8 7 6 5 7
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