pozitivni<-c(43,42,35,48,51,47,44,41,43,43,48)
negativni<-c(57,54,53,74,47,46,65,59,53,59,74)

wilcox.test(pozitivni,negativni,paired=FALSE)

ps1<-c(3.289,2.412,2.099,3.048,7.0699,1.881,8.616,2.385,2.426,0.7609,2.225,0.998,0.88,0.957,0.95,0.86,0.586,0.432,0.392,0.38,0.368,0.338,0.247,0.39)
digitel<-c(0.636,0.2733,2.021,2.905,4.408,3.786,7.888,3.935,1.539,1.0873,0.874,0.5423,0.77,0.734,0.627,0.771,0.299,0.267,0.3903,0.344,0.3,0.148,0.1633,0.351)

wilcox.test(ps1,digitel,paired=TRUE)

binom.test(13,31)
binom.test(13,31)