NTplot(mean0=0, mean1=2, xbar=1.8, xlim=c(-3, 5))
NTplot(mean0=0, mean1=2, xbar=1.8, xlim=c(-3, 5), distribution.name="t", df=4)
NTplot(mean0=100, sd=12, mean1=113, xbar=105, xlim=c(92, 120), n=20)
NTplot(mean0=100, sd=12, mean1=113, xbar=105, xlim=c(92, 120), n=20,
zaxis=TRUE, z1axis=TRUE)
NTplot(mean0=100, sd=12, xbar=105, xlim=c(92, 108), n=20, ntcolors="stoplight")
NTplot(xbar=95, sd=10, xlim=c(65, 125), type="confidence",
alpha.left=.025, alpha.right=.025)
x <- rnorm(12, mean=.78)
x.t <- t.test(x)
NTplot(x.t)
NTplot(x.t, type="confidence")
x.tg <- t.test(x, alternative="greater")
NTplot(x.tg)
y <- rnorm(12, mean=-.05)
xy.t <- t.test(x, y)
NTplot(xy.t)
NTplot(xy.t, type="confidence")
## Not run:
# NTplot(shiny=TRUE) ## with any other arguments for initialization of the shiny app.
# ## End(Not run)
## Not run:
# printbook.colors <- c( ## based on "original" colors
# col.alpha = "blue",
# col.notalpha = "lightcyan", ## this value is nonstandard
# col.beta = "red",
# col.power = "pink",
# col.pvalue = "green",
# col.pvaluetranslucent = HH:::ColorWithAlpha("springgreen"), ## this value is nonstandard
# col.critical = "gray50",
# col.border = HH:::ColorWithAlpha("black"),
# col.text = "black",
# col.conf = "lightgreen"
# )
# NTplot(ntcolors=printbook.colors) ## different colors
# ## End(Not run)
## Not run:
# ## mean1 and xbar
# NTplot(mean0=0, mean1=2, xbar=1.8, xlim=c(-3, 5))
# NTplot(mean0=0, mean1=-2, xbar=-1.8, xlim=c(-5, 3),
# alpha.left=.05, alpha.right=0)
# NTplot(mean0=0, mean1=2, xbar=2.1, xlim=c(-3, 5),
# alpha.left=.025, alpha.right=.025)
# NTplot(mean0=0, mean1=-2, xbar=-2.1, xlim=c(-5, 3),
# alpha.left=.025, alpha.right=.025)
#
# ## mean1
# NTplot(mean0=0, mean1=2, xbar=NA, xlim=c(-3, 5))
# NTplot(mean0=0, mean1=-2, xbar=NA, xlim=c(-5, 3),
# alpha.left=.05, alpha.right=0)
# NTplot(mean0=0, mean1=2, xbar=NA, xlim=c(-3, 5),
# alpha.left=.025, alpha.right=.025)
# NTplot(mean0=0, mean1=-2, xbar=NA, xlim=c(-5, 3),
# alpha.left=.025, alpha.right=.025)
#
# ## xbar
# NTplot(mean0=0, mean1=NA, xbar=1.8, xlim=c(-3, 5))
# NTplot(mean0=0, mean1=NA, xbar=-1.8, xlim=c(-5, 3),
# alpha.left=.05, alpha.right=0)
# NTplot(mean0=0, mean1=NA, xbar=2.1, xlim=c(-3, 5),
# alpha.left=.025, alpha.right=.025)
# NTplot(mean0=0, mean1=NA, xbar=-2.1, xlim=c(-5, 3),
# alpha.left=.025, alpha.right=.025)
#
# ## t distribution
# ## mean1 and xbar
# NTplot(mean0=0, mean1=2, xbar=1.8, xlim=c(-3, 5),
# distribution.name="t", df=4)
# NTplot(mean0=0, mean1=-2, xbar=-1.8, xlim=c(-5, 3),
# alpha.left=.05, alpha.right=0, distribution.name="t", df=4)
# NTplot(mean0=0, mean1=2, xbar=2.1, xlim=c(-3, 5),
# alpha.left=.025, alpha.right=.025, distribution.name="t", df=4)
# NTplot(mean0=0, mean1=-2, xbar=-2.1, xlim=c(-5, 3),
# alpha.left=.025, alpha.right=.025, distribution.name="t", df=4)
#
# ## mean1
# NTplot(mean0=0, mean1=2, xbar=NA, xlim=c(-3, 5),
# distribution.name="t", df=4)
# NTplot(mean0=0, mean1=-2, xbar=NA, xlim=c(-5, 3),
# alpha.left=.05, alpha.right=0, distribution.name="t", df=4)
# NTplot(mean0=0, mean1=2, xbar=NA, xlim=c(-3, 5),
# alpha.left=.025, alpha.right=.025, distribution.name="t", df=4)
# NTplot(mean0=0, mean1=-2, xbar=NA, xlim=c(-5, 3),
# alpha.left=.025, alpha.right=.025, distribution.name="t", df=4)
#
# ## xbar
# NTplot(mean0=0, mean1=NA, xbar=1.8, xlim=c(-3, 5),
# distribution.name="t", df=4)
# NTplot(mean0=0, mean1=NA, xbar=-1.8, xlim=c(-5, 3),
# alpha.left=.05, alpha.right=0, distribution.name="t", df=4)
# NTplot(mean0=0, mean1=NA, xbar=2.1, xlim=c(-3, 5),
# alpha.left=.025, alpha.right=.025, distribution.name="t", df=4)
# NTplot(mean0=0, mean1=NA, xbar=-2.1, xlim=c(-5, 3),
# alpha.left=.025, alpha.right=.025, distribution.name="t", df=4)
#
# ## confidence intervals
#
# NTplot(mean0=0, xlim=c(-3, 4), type="confidence")
# NTplot(xbar=01, xlim=c(-3, 4), type="confidence")
# NTplot(mean0=0, xlim=c(-4, 3), type="confidence",
# alpha.left=.05, alpha.right=0)
# NTplot(mean0=0, xlim=c(-3, 3), type="confidence",
# alpha.left=.025, alpha.right=.025)
# NTplot(mean0=95, sd=10, xlim=c(65, 125), type="confidence",
# alpha.left=.025, alpha.right=.025)
# NTplot(mean0=95, sd=10, xlim=c(65, 125), type="confidence",
# alpha.left=.025, alpha.right=.025,
# distribution="t", df=10)
#
# ## End(Not run)
Run the code above in your browser using DataLab