X=read.table("Brand.txt",header=T)
X
attach(X)
# Two Tail Case
wilcox.test(Rating~Brand,paired=FALSE,exact=T,alternative= "two.sided")
# One Sided Case Lower Tail
wilcox.test(Rating~Brand,paired=FALSE,exact=T,alternative= "less")
# One Sided Case Upper Tail
wilcox.test(Rating~Brand,paired=FALSE,exact=T,alternative= "greater")