数学之路(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")

数学之路(3)-数据分析(9)_第1张图片


你可能感兴趣的:(数据分析,r)