怎样用R语言求泊松分布参数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

2-4-11携程酒店预订业务电话接线人员数量设计模型_部分1.pdf (4.66 MB)

2012-12-15 22:15:53 上传

2-4-11携程酒店预订业务电话接线人员数量设计模型_部分2 (1).pdf (4.45 MB)

2012-12-15 22:25:16 上传

R语言建模

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：泊松分布 R语言 建模 语言

<9 记为 a
>17 记为 b

data <- read.table(text="
                   x Freq                  
                   9 282
                   10 547
                   11 704
                   12 682
                   13 527
                   14 340
                   15 188
                   16 91
                   17 39
                   ",header=T)
pois.lambda <- function(a.min=0,a.max=8,a.Freq=73,b.min=18,b.max=50,b.Freq=23,data=data,p=0.95){
  lambda <-c((sum(data[,1]*data[,2])+a.min*a.Freq+b.min*b.Freq)/(sum(data[,2])+a.Freq+b.Freq),
             (sum(data[,1]*data[,2])+a.max*a.Freq+b.max*b.Freq)/(sum(data[,2])+a.Freq+b.Freq))
  cat("lambda的取值范围",lambda,"\n")  
  lambda=round((lambda[1]*a.Freq+lambda[2]*b.Freq)/(a.Freq+b.Freq),digits=0)
  pois=qpois(p,lambda)
  cat("建议取值为",lambda,"\n",p,"的保证接通时，接话员数量",pois,"\n")
  
}
pois.lambda(0,8,73,18,50,23,data,p=0.95)

jmpamao 发表于 2012-12-16 15:00
17 记为 b

data

太感谢了

建议值的部分 不是很完善
就叫 近似吧 额呵呵

这边书看着不错, 请问叫啥名字

记得作分布拟合检验适当调整数据分组

jmpamao 发表于 2012-12-16 15:00
17 记为 b

data

大神 求助啊 你在吗