本博客所有内容是原创,未经书面许可,严禁任何形式的转载。
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")
>