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