# NOT RUN {
qqnorm(Asthmati$difference)
qqline(Asthmati$difference)
shapiro.test(Asthmati$difference)
with(data = Asthmati,
t.test(placebo, drug, paired = TRUE, mu = 0, alternative = "greater")
)
# }
Run the code above in your browser using DataLab