Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
8700 4400 15000 13700 15200 9000 8400 25200 16800 7700 10200 19800 16450 19900 27000 13400 18400 6650 14400 12300 20800 6800 6400 7800 21200 17500 25200 7400 8200 17500 6000 22600 6700 15100 17000 15600 11200 26500 17400 14400 7500 4600 4000 10100 4500
Data Y:
9000 5550 15900 15900 12700 9500 8900 25600 16500 6100 7400 20100 22100 21100 27900 15900 17800 6300 14200 12800 22800 6200 7200 4600 20700 18800 27600 7600 9300 19100 6500 26100 9100 18700 18500 18200 10200 26000 16800 14600 9400 3900 4700 11300 4100
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