install.packages("ds")
require(ds)
var1=c(10,13,14,16,18,22,29,28,35)
var2=c(0.5,1,1.5,2,2.5,3,3.5,4,4.5)
var3=c(102,NA,106,91,109,108,120,101,NA)
var4=c(500,456,423,378,312,263,200,120,50)
var5=c(18,09,22,NA,26,59,10,NA,96)
table=data.frame(var1,var2,var3,var4,var5)
r1<-dscor(table)
r1
r2<-dscor(table, option=2)
r2
?dscor