# R-program for Supplementary Exercise 9.48 of IPS7e
# computation of P-values

1-pchisq(1.31,1)
pchisq(1.31,1,lower.tail=F) # same thing without having to do 1-p
pchisq(17.54,9,lower.tail=F)
pchisq(22.1,7,lower.tail=F)
pchisq(12.64,8,lower.tail=F)