{ test=scan("hel55") x=test[1:13] #with fracturing.. y=test[14:25] #without fracturing.. x[x < 0.05]=0 y[y < 0.05]=0 print(c(wilcox.test(x,y,paired=FALSE,exact=FALSE,alternative="greater"))) }