Wessa.net

Send output to:


Data X:
330 130 240 80 410 320 190 130 350 300 270 190 140 130 240 160 210 130 170 170 60 250 260 210 190 160 90 280 180 210 200 350 280 290 540 230 380 350 450 270 130 220 470 280 100

Data Y:
400 160 160 250 290 130 120 20 200 250 80 150 230 110 130 30 90 450 580 460 170 0 60 20 300 730 90 180 240 290 40 300 270 270 270 170 410 250 290 430 290 240 280 280 1330


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')

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