# Options

# Surpress scientific notations, digits and lines

options(scipen=999, digits=10, max.print=99999999)


# T Test

# Write output

sink("output.txt", split=TRUE)

print("T Tests")


attach(Table15.1)

# One-sample T Test

t.test(iattitude, mu=4)

t.test(iattitude, mu=5)

TT<-t.test(iattitude, mu=4)




# Independent Samples T Test

t.test(iattitude ~ sex, alternative="two.sided", var.equal=TRUE)

t.test(iattitude ~ sex, alternative="less")

t.test(iattitude ~ sex, alternative="greater")


# Levene's Test

library(lawstat)

levene.test(iattitude,sex, location="mean")



# Paired Samples T Test

t.test(iattitude, tattitude, paired=TRUE)





# Wilcoxon-Mann-Whitney Test

wilcox.test(iattitude ~ factor(sex), exact=FALSE, correct=FALSE)

library(coin)
wilcox_test(iattitude ~ factor(sex), distribution="asymptotic")
wilcox_test(iattitude ~ factor(sex), distribution="exact")




# Wilcoxon Signed Rank Test

wilcox.test(iattitude,tattitude, paired=TRUE, exact=FALSE, correct=FALSE)

library(coin)
wilcoxsign_test(iattitude ~ tattitude, zero.method="Wilcoxon", distribution="asymptotic")
wilcoxsign_test(iattitude ~ tattitude, zero.method="Wilcoxon", distribution="exact")

sink()