P37.
例2.1build.price<-c(36,32,31,25,28,36,40,32,41,26,35,35,32,87,33,35);build.price
hist
(build.price,freq
=FALSE)
#直方图lines(density(
build.price
),col="red")
#连线#方法一：m<-mean(
build.price
);m#均值D<-var(build.price
)#方差SD<-
sd(build.price
)#标准差St=(m-37)/(SD/
sqrt
(length(
build.price
)));
t#t统计量计算检验统计量
t=[1] -0.1412332
#方法二：t.test
(build.price-37)
#课本第38页例2.2binom.test
(sum(
build.price
<37),length(
build.price
),0.5)
#课本40页例2.3P<-2*(1-
pnorm(
1.96,0,1));P
[1] 0.04999579
P1<-2*(1-
pnorm(
0.7906,0 ...