Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
3.32 3.44 5 3 3.57 4.51 2.95 2.42 3.58 4.07 3.88 2.71 2.45 4.04 3.35 2.39 4.66 5 3 3.85 3.98 3.97 3.16 2.71 3.91 3.62 4.46 2.67 4.08 2.88 2.78 4.22 2.88 3.17 3.3 4.2 3.37 3.54 3.48 4.47 3.02 2.86 4.94 2.73 2.72 3.71 2.71 2.45 3.28 3.67 3.36 2.85 4.06 3.76 2.44 3.04 3.44 2.64 2.66 4.05 3.48 3.03 3.97 3.5 3.3 3.84 2.51 3.42 2.58 3.27 4.28 2.72 2.79 4.03 3.9 3.24 4.74 3.42 3.37 3.48 2.73 4.37 3 4.28 2.9 4 5 2.58 4.06 3.83 3.49 4.67 2.61 4.35 4.3 4.73 3.04 2.57 3.57 3.56 4.58 3.92 4.04 3.78 2.99 4.39 3.49 3.09 3.16 3 2.69 1.52 2.95 3.11 1.41 2.78 2.15 4.15 3.26 2.73 2.16 2.67 2.11 3.82 3.42 3.6 3.23 2.88 2.61 3.04
Data Y:
3.28 3.19 5 2.47 3.39 5 2.69 2.36 3.47 4.07 3.77 2.79 2.44 3.79 3.47 2.39 4.48 5 3.13 3.63 3.99 3.94 3.39 2.86 3.99 3.98 4.33 2.65 4.03 2.98 2.91 4.11 2.89 2.7 3.64 4.22 3.56 3.28 4.52 4.56 3.12 2.78 4.79 2.64 2.79 3.45 3.05 2.32 3.43 3.58 3.11 2.57 4.34 3.86 2.44 3.29 3.5 2.79 2.59 4.24 3.53 3.32 3.83 3.69 3.13 3.3 3.1 2.94 2.61 3.57 4.33 2.39 2.75 3.83 3.74 3.43 4.7 3.56 3.29 3.37 2.63 4.13 2.89 4.18 3.01 3.98 4.12 2.48 4.02 3.77 3.63 4.75 2.58 3.95 4.05 4.38 2.86 2.67 3.13 3.6 4.42 3.67 4.02 3.73 2.76 4.11 3.41 3.13 2.86 2.53 2.29 1.45 2.69 3.12 1.46 2.85 2.14 4.26 3.1 2.42 1.89 2.61 2.13 3.61 3.71 3.25 3.02 2.91 3.26 3
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation