精品文档，仅供学习与交流，如有侵权请联系网站删除
【精品文档】第 1 页
#第六章习题
#
speed<-c(914,920,910,934,953,940,912,924,930) #方差未知，小样本要t分布检验
(speed,mu=950,=)
#
<-function(x,var,alpha,alternative=""){
options(digits=4)
result<-list()
n<-length(x)
v<-var(x)
result$var<-v
chi2<-(n-1)*v/var
result$chi2<-chi2
p<-pchisq(chi2,n-1)
result$<-p
if(alternative=="less")
result$<-pchaisq(chi2,n-1,=F)
else if (alternative=="")
result$<-2*min(pchaisq(chi2,n-1),pchaisq(chi2,n-1,=F))
result$<-c(
(n-1)*v/qchisq(alpha/2,df=n-1,=F),
(n-1)*v/qchisq(alpha/2,df=n-1,=T)
result
x<-c(,,,,)
(x,^2,,alternative="") #
#
('DAAG')
library('DAAG')
x1<-c(,,,,,,,,,,)
x2<-c(,,,,,,,,,,,)
z<-(x1,x2)
onesamp(z,x="x1",y="x2")
#方法二 方差相等
R语言与统计分析第六章习题答案 来自淘豆网m.daumloan.com转载请标明出处.
