# Kod 2.8. Wyznaczenie funkcji mocy testu dla wskaźnika struktury
h=seq(0,.8,0.01)
plot(h,pwr.p.test(h=h,n=90,sig.level=0.05)$power,type='l',ylim=c(0,1),ylab='Moc')
lines(h,pwr.p.test(h=h,n=60,sig.level=0.05)$power, lty=2)
lines(h,pwr.p.test(h=h,n=30,sig.level=0.05)$power,lty=3)
