# pinft3.mtb

let c99=(-1.0)*abs(c95)
cdf c99 c96
let c96=2*c96
prin c90;
format('   For testing the null hypothesis H_0: theta =',f8.4).
prin c90;
format('    vs. the alternative hypothesis H_a: theta -',f8.4).
end