R语言-妹子被追后的选择分析

楼主厉害！
我拿上面代码运行后，有错误提示：
There were 50 or more warnings (use warnings() to see the first 50)
> n=1:length(y)
> plot(n,y,xlim=c(0,100), ylim=c(0,100),main="接受追求者散点图", ylab="优秀程度", xlab="实验次数")
> y=y[y>0]
> plot(density(y),xlim=c(0,100), main="优化后接受追求者分布图", ylab="密度", xlab="优秀程度")
Error in density.default(y) :
  need at least 2 points to select a bandwidth automatically

楼主可否将源代码直接传上来啊，谢谢！

楼主厉害！
我拿上面代码运行后，有错误提示：
There were 50 or more warnings (use warnings() to see the first 50)
> n=1:length(y)
> plot(n,y,xlim=c(0,100), ylim=c(0,100),main="接受追求者散点图", ylab="优秀程度", xlab="实验次数")
> y=y[y>0]
> plot(density(y),xlim=c(0,100), main="优化后接受追求者分布图", ylab="密度", xlab="优秀程度")
Error in density.default(y) :
  need at least 2 points to select a bandwidth automatically

楼主可否将源代码直接传上来啊，谢谢！

楼主就是这样追美女的

wuchm 发表于 2015-3-14 21:12
我运行了，有错误提示：
There were 50 or more warnings (use warnings() to see the first 50)
> n=1:l ...

我直接发你邮箱，告诉我地址…

文森66 发表于 2015-3-15 15:17
我直接发你邮箱，告诉我地址…

谢谢楼主，麻烦发到：373510603@qq.com，谢谢！

{:2_26:} 那我安心再等等吧

先顶下，但希望有高手能够优化下代码，for循环不是好选择，但俺是菜鸟，不知如何改这种for循环

赞一个

好好好好好好

学长 好厉害的样子~请问你是什么专业的呢，r语言相关课程可以蹭课吗