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")
NTplot(shiny=TRUE) ## with any other arguments for initialization of the shiny app.
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
## 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)
Run the code above in your browser using DataLab