数学之路(3)-数据分析(9)

本博客所有内容是原创，未经书面许可，严禁任何形式的转载。

http://blog.csdn.net/u010255642

核概率密度与正态概率分布图

> hist(jiuye[["平均劳动报酬"]],freq=FALSE)

> lines(density(jiuye[["平均劳动报酬"]]),col="red")

> x<-c(0:ceiling(max(jiuye[["平均劳动报酬"]])))

> lines(x,dnorm(x,mean(jiuye[["平均劳动报酬"]]),sd(jiuye[["平均劳动报酬"]])),col="blue")

>

可以看到偏度大于0，直方图偏左

可以看到偏度大于0，直方图偏左

经验分布图与正态分布图

> plot(ecdf(jiuye[["平均劳动报酬"]]),verticals=TRUE,do.p=FALSE)

> lines(x,pnorm(x,mean(jiuye[["平均劳动报酬"]]),sd(jiuye[["平均劳动报酬"]])),col="blue")

>