# R-program for Supplementary Exercise 7.4 of IPS7e
# computation of P-value and cut-offs

2*(1-pt(1.12,29))
qt(0.9,29)
qt(0.85,29)