Question

Using R Studio: Include R Code:

A new drug therapy is tested. Of the 50 patients in the study, 40 had no recurrence of their illness after 18 months. With no drug therapy, the expected percentage of no recurrence would have been 72%. Does the data support the hypothesis that the non-recurrence percentage has increased with this therapy? What is the p-value?

Answer 1

zprop=function(n,p){
n=50
x=40
p=x/n
P=0.72
Q=1-P
teststatistics=(p-P)/sqrt(P*Q/n)
return(teststatistics)
}

zprop(n,p) ## This will give test statistics

1.259882

P value: P value is calculated in R as,

1-pnorm(1.259882)

0.103856

P value is 0.103856

If

Since, P value > 0.05, null hypothesis is not rejected.

Conclusion: Fail to reject . Therefore, we conclude that there is not enough evidence to support the claim that the non-recurrence percentage has increased with this therapy.