Displaying 1 result from an estimated 1 matches for "tcrit005".
2005 Feb 05
1
Labelling and formatting of graphics
...of decimals.
t <- c(0.01*0:900 - 4.5)
tdens <- dt(t, 6)
plot(t, tdens, xlim = c(-4.7, 4.7), ylim = c(-0.09, 0.5),
type = "l", lwd = 2, xlab = NA, ylab = NA, axes = FALSE)
axis(1, pos = 0, labels = FALSE, tick = TRUE, at = c(-4.5, 3.21, 4.5))
tcrit025 <- qt(0.975, 6)
tcrit005 <- qt(0.995, 6)
axis(1, pos = 0, labels = TRUE, tick = TRUE,
at = c(-tcrit005, -tcrit025, -1, 0, 1, tcrit025, tcrit005))
axis(2, pos = 0, labels = FALSE, tick = TRUE, at = c(0, 0.4))
text (4.2, -0.05,
labels = expression(italic(T)), pos = 4, cex = 1.2)
text (c(-0.4, -0.4, -0.4), c(...