age=c(15,26,10,9,15,20,18,11,8,20,7,9,10,11,11,10,12,42,17,11,10) Gesell=c(95,71,83,91,102,87,93,100,104,94,113,96,83,84,102,100,105,57,121,86,100) # both continuous, is there an association? plot(age,Gesell) cor.test(age,Gesell) # dichotomize age age2=rep(0,length(age)) age2[which(age<=18)]=1 age2[which(age>18)]=2 plot(age2,Gesell) t.test(Gesell~age2) t.test(Gesell~age2,alternative="greater") # dichotomize Gesell too g2=rep(0,length(Gesell)) g2[which(Gesell<=100)]=1 g2[which(Gesell>100)]=2 plot(age2,g2) d=matrix(c(11,4,6,0),nrow=2) fisher.test(d,alternative="less")