3482
правки
Изменения
м
→Гистограммы с наложением графика плотностей вероятнотси
> yfit <- dnorm(xfit, mean = mean(x), sd = sd(x)) # Вычисление координат по оси Y
> hist(x, freq = FALSE)
> lines(density(x), col = "red")# Накладываем кривую плотностей вероятности> lines(xfit, yfit, col = "blue")# Накладываем «нормальную» кривую
</nowiki>}}
