Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
80 60 10 20 30
Data Y:
1 0 0 1 1
R Code
library(Hmisc) r <- somers2(x,y) r load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Somers Dxy Rank Correlation',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Statistics',header=TRUE) a<-table.element(a,'Value',header=TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'C',header=TRUE) a<-table.element(a,r['C']) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Dxy',header=TRUE) a<-table.element(a,r['Dxy']) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'n',header=TRUE) a<-table.element(a,r['n']) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Missing',header=TRUE) a<-table.element(a,r['Missing']) 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