Как мне исправить этот код R для области под кривой?

Question

У меня есть код, который должен найти область под нормалью, но в итоге он затеняет треугольник области, а не всю область от -2 до 0,8. Я не уверен, что я делаю неправильно. Спасибо!

curve(dnorm(x), xlim = c(-2, 2), ylab = "", axes = FALSE)
abline(h = 0)
sequence = seq(-2, 0.8)
polygon(x = c(sequence, 0.8, -2), y = c(dnorm(c(sequence)), 0, 0), col = "purple")
axis(1, at = c(-2, -1, 0, 0.8, 1, 2), pos = 0)

Answer 1

Вам не хватает очков в sequence. Вы можете добавить больше, используя:

sequence = seq(-2, 0.8, by = 0.1)

Чем меньше вы делаете шаг между точками, тем лучше заштрихованная область будет соответствовать кривой.