# NOT RUN {
library(psycho)
df <- psycho::affective
x <- t.test(df$Tolerating, df$Adjusting)
x <- t.test(df$Tolerating ~ df$Sex)
x <- t.test(df$Tolerating, mu = 2)
x <- cor.test(df$Tolerating, df$Adjusting)
results <- analyze(x)
summary(results)
print(results)
# }
Run the code above in your browser using DataLab