###################################################################### # MPG example # # # ###################################################################### ###################################################################### # First PDF plot(x = c(20,20,40,40), y = c(0,0.12,0,0.12), type = "n", xlab = "x", ylab = "f(x)") abline(h = 0, col = "black") segments(x0 = 19, y0 = 0, x1 = 25, y = 0 , col = "red", lwd = 2) segments(x0 = 25, y0 = 0, x1 = 25, y = 0.1, col = "red", lwd = 2) segments(x0 = 25, y0 = 0.1, x1 = 35, y = 0.1, col = "red", lwd = 2) segments(x0 = 35, y0 = 0, x1 = 35, y = 0.1, col = "red", lwd = 2) segments(x0 = 35, y0 = 0, x1 = 41, y = 0 , col = "red", lwd = 2) ##################################################################### # Second PDF curve(expr = dnorm(x = x, mean = 0, sd = 1), xlim = c(-4, 4), col = "red", main = "PDF plot \n P(0