Laserfiche WebLink
soil < -r ead. tab ie( "s o i l_s e c o nd.txt ") <br />names(soil) <- c("soil", "type ") <br />sub < -soil $soil [s oil$type = = "S ubs titutes o i l "] <br />barxp <- soil$soil [soil $type== "SoilBarxprofile "] <br />w ilcox. test(sub,barxp) <br /># the Wilcoxon rank sum test between "Substitute Soil" and "Soil Barxprofile" <br />#Wilcoxon rank sum test with continuity correction <br />#data: sub and barxp <br />#W = 58.5, p -value = 0.1274 <br />#alternative hypothesis: true location shift is not equal to 0 <br />#Waming message: <br />#In wilcox.test.default(sub, barxp) : cannot compute exact p -value with ties <br />#Conclusion: there is no significant difference between the distributions for "Substitute Soil" <br />and "Soil Barxprofile" <br /># the Wilcoxon rank sum test between "Substitute Soil" and "BarxLiftA" <br />barxa < -so i1$soil[soil$type== "BarxLi ftA"] <br />w ilc ox. test(s ub,barxa) <br />Wilcoxon rank sum test with continuity correction <br />#data: sub and barxa <br />#W = 27.5, p -value = 0.04196 <br />#alternative hypothesis: true location shift is not equal to 0 <br />#Warning message: <br />#In wilcox.test.default(sub, barxa) : cannot compute exact p -value with ties <br />#Conclusion: there is significant difference between the distributions for "Substitute Soil" <br />and " BarxLiftA" <br /># the Wilcoxon rank sum test between "Substitute Soil" and'BarxLiftB" <br />barxb <- soil$s o il [ so il$type= "BarxL i ftB "] <br />w ilcox.test(sub,barxb) <br />Wilcoxon rank sum test with continuity correction <br />#data: sub and barxb <br />#W =31,p -value = 0.3418 <br />#alternative hypothesis: true location shift is not equal to 0 <br />#Waming message: <br />#In wilcox.test.default(sub, barxb) : cannot compute exact p -value with ties #Conclusion: there is <br />no significant difference between the distributions for "Substitute Soil" <br />and " BarxLiftB" <br />PLTF 002497 <br />