# pinft.mtb

note
note Please enter the HYPOTHESIZED value of
note the population proportion (theta_0).
set 'terminal' c90;
nobs=1.
copy c90 k90
note
note Please enter the code to specify the ALTERNATIVE hypothesis H_a:
note enter 1 if H_a has the form: theta < theta_0
note enter 2 if H_a has the form: theta > theta_0
note enter 3 if H_a has the form: theta - theta_0
set 'terminal' c91;
nobs=1.
copy c91 k91
let k92=(k91=1)
let k93=(k91=2)
let k94=(k91=3)
note
note Please enter the SAMPLE SIZE (n) and then the number
note of "yes" responses (or "successes") on the same line.
set 'terminal' c97;
nobs=2.
let c98=c97(2)/c97(1)
copy c98 k98
let c95=(c98-c90)/sqrt(c90*(1-c90)/c97(1))
prin  c98;
format('   The sample proportion is p-hat =',f8.4).
exec 'pinft1' k92
exec 'pinft2' k93
exec 'pinft3' k94
prin c95;
format('   The test statistic is z =',f8.3).
prin c96;
format('   The p-value of the test is',f8.4).
note
end