코드
data("USArrests")
x <- USArrests$Murder
hist(x, prob = TRUE,
main = "Murder Rate Histogram with Density",
xlab = "Murder Rate",ylab = "Density",)
dens <- density(x)
lines(dens)
qqnorm(x, main = "Q–Q Plot of Murder Rate")
qqline(x, col = "red", lwd = 2)
이 그래프는 Murder변수가 중앙측에 많이 모여있고, 왼쪽 아래쪽의 꼬리가 늘어져있어서 완벽한 정규분포라고 보기는 어렵다. 즉, 중심부는 정규분포에 가깝지만 꼬리쪽에서 차이를 보인다.