带有估计值的R中的经验分布函数图

编程问答 2022-06-03

问题描述

我得到了一个几何分布公式，其中X可以是0,1,2 ...，而P在0和1之间是未知的。我需要使用扭矩法找到P的估计值，并计算数据的估计值，然后将其添加到经验分布函数图。@H_404_1@

我这样加载数据库-@H_404_1@ 

> 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))

然后，我对此作图-@H_404_1@ 

d<-sort(a$x)
plot(d,sort(ecdf(d)(d)),type="s",lty=3,col="red",ylab= "P(X<=x)",ylim= 0:1)

现在，我需要在我的绘图中添加带有geom函数的其他线条，这些线条的参数在我撰写时是未知的。我在课堂上看到这样的东西-@H_404_1@ 

m<-mean(x)
p<- m/(m+1)
geom<-pgeom(q=x,prob=p)
lines(x,sort(geom),lty=2,col="blue")

但我不明白为什么概率是均值加1的均值。 为什么不对几何分布的跨度使用公式？@H_404_1@

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

geomplotrrstatistics