精选优质文档-倾情为你奉上#5.1x-c(3,5,7,9,11,13,15,17,19,21)y-c(21,16,15,26,22,14,21,22,18,25)e=sum(x*y)/sum(y) #样本期望d=(sum(x*x*y)/sum(y)-e2 #样本方差a=(8*e+sqrt(64*e2-4*4*(4*e2-12*d)/8 #估计结果b=(8*e-sqrt(64*e2-4*4*(4*e2-12*d)/8ab#5.2x-c(0,1,2,3,4,5,6)y-c(17,20,10,2,1,0,0)e=2.9 f-function()(e(-50*)*50)/(210*62*24) #似然函数optimize(f,c(0,2),maximum=TRUE)#5.3x-c(482,493,457,471,510,446,435,418,394,469) #0.95置信区间t.test(x)$conf.intchisq.var.test-fun
