# \donttest{
if (require("ggplot2", quietly = TRUE)) {
data(Poisson1_1D)
ggplot(countdata1) +
geom_point(data = countdata1, aes(x = x, y = count), col = "blue") +
ylim(0, max(countdata1$count)) +
geom_point(data = pts1, aes(x = x), y = 0.2, shape = "|", cex = 4) +
geom_point(
data = countdata1, aes(x = x), y = 0, shape = "+",
col = "blue", cex = 4
) +
xlab(expression(bold(s))) +
ylab("count")
}
# }
Run the code above in your browser using DataLab