Displaying 1 result from an estimated 1 matches for "sely1".
Did you mean:
sel1
2005 Feb 05
1
Labelling and formatting of graphics
...n(italic(beta - sigma[beta])), pos = 4, cex = 1.2)
text (3, -0.05,
labels = expression(italic(beta)), pos = 4, cex = 1.2)
text (4, -0.05,
labels = expression(italic(beta + sigma[beta])), pos = 4, cex = 1.2)
selx1 <- c(4 + (6 - 4) * 0:100/100)
selx2 <- c(4 + (6 - 4) * 100:0/100)
sely1 <- dnorm(selx1, 3, 1)
sely2 <- seq(length = 101, from = 0, by = 0)
selx <- c(selx1, selx2)
sely <- c(sely1, sely2)
polygon(selx, sely, col = "gray")
selx1 <- c(2 * 0:100/100)
selx2 <- c(2 * 100:0/100)
sely1 <- dnorm(selx1, 3, 1)
sely2 <- seq(length = 101, f...