| n<-162 # (Sample size-1) |
| dfM1<-337 # degrees of freedom of M1 |
| dfM2<-338 # degrees of freedom of M2 |
| delta1<-dfM2*.033ˆ2 # define delta* in the null hypothesis |
| delta2<-dfM2*.064ˆ2 # define delta** in the alternative hypothesis |
| alpha<-.05 |
| cv<-qchisq(1-alpha,df=dfM2-dfM1,n*delta1) # Critical value under H0 |
| power<-1-pchisq(cv,df=dfM2-dfM1,ncp=n*delta2) |
| print(power,digits=2) |
Official websites use .gov
A
.gov website belongs to an official
government organization in the United States.
Secure .gov websites use HTTPS
A lock (
) or https:// means you've safely
connected to the .gov website. Share sensitive
information only on official, secure websites.