如何解决带有估计值的R中的经验分布函数图
我得到了一个几何分布公式,其中X可以是0,1,2 ...,而P在0和1之间是未知的。我需要使用扭矩法找到P的估计值,并计算数据的估计值,然后将其添加到经验分布函数图。
我这样加载数据库-
> a<- read.delim(file.choose("data.txt"))
>
> dput(a)
structure(list(x = c(4L,1L,0L,4L,2L,3L,5L,6L,1L)),class = "data.frame",row.names = c(NA,-100L))
然后,我对此作图-
d<-sort(a$x)
plot(d,sort(ecdf(d)(d)),type="s",lty=3,col="red",ylab= "P(X<=x)",ylim= 0:1)
现在,我需要在我的绘图中添加带有geom函数的其他线条,这些线条的参数在我撰写时是未知的。我在课堂上看到这样的东西-
m<-mean(x)
p<- m/(m+1)
geom<-pgeom(q=x,prob=p)
lines(x,sort(geom),lty=2,col="blue")
但我不明白为什么概率是均值加1的均值。 为什么不对几何分布的跨度使用公式?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。