R软件参数估计.pptVIP

μ1, μ2 未知 interval_var2-function(x,y, mu=c(Inf, Inf), alpha=0.05){ n1-length(x); n2-length(y) if (all(muInf)){ Sx2-1/n1*sum((x-mu[1])^2); Sy2-1/n2*sum((y-mu[2])^2) df1-n1; df2-n2 } else{ Sx2-var(x); Sy2-var(y); df1-n1-1; df2-n2-1 } r-Sx2/Sy2 a-r/qf(1-alpha/2,df1,df2) b-r/qf(alpha/2,df1,df2) data.frame(rate=r, df1=df1, df2=df2, a=a, b=b)} 参数 的置信度 为1-α的置信区间 例子4.21： 已知两组数据： 试用两种方法作方差比的区间估计.(1)均值已知μ1, μ2 =80.(2)均值未知. a=c(79.98,80.04,80.02,80.04,80.03,80.03,80.04,79.97,80.05,80.03,80.02,80.00,80.02) b=c(80.02,79.94,79.98,79.97,79.97,80.0