nt <- NTplot(mean0=2, mean1=4, sd=3, n=20, xlim=c(-.1, 6.1), xbar=3.5)
powerplot(nt)
## Not run:
# tt <- NTplot(mean0=2, mean1=4, sd=3, n=20, xlim=c(-.1, 6.1), xbar=3.5, df=4, distribution.name="t")
# powerplot(tt)
#
# ntc <- NTplot(xbar=2, sd=3, n=20, xlim=c(-.1, 4.1), type="confidence",
# alpha.left=.025, alpha.right=.025)
# ntc
# try(powerplot(ntc))
# ## End(Not run)
Run the code above in your browser using DataLab