# Kod 2.9. Moc testu t dla dwóch prób w zależności od liczebności prób
d=seq(-3,3,0.01)
plot(d,pwr.t2n.test(n1=10, n2=12, d=d)$power, type='l', ylab='Moc')
lines(d,pwr.t2n.test(n1=7, n2=8, d=d)$power,lty=2)
lines(d,pwr.t2n.test(n1=4, n2=4, d=d)$power,lty=3)
