闈炲弬鏁扮粺璁?绗�浜岀�?涔犻�樻祴楠孯绋嬪簭 - 鐧惧害鏂囧簱

鏂板缓

涓婁紶

棣栭〉

鍔╂墜

鏈�杩?/div>

璧勬枡搴?/div>

宸ュ叿

P37.

渚?/p>

2.1 

build.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)#

鐩存柟鍥?/p>

 

lines(density(build.price),col="red")#

杩炵嚎

 

#

鏂规硶涓�锛?/p>

m<-mean(build.price);m#

鍧囧�?/p>

 

D<-var(build.price)#

鏂瑰樊

 

SD<-sd(build.price)#

鏍囧噯宸?/p>

S 

t=(m-37)/(SD/sqrt(length(build.price)));t#t

缁熻�￠�?/p>

璁＄畻妫�楠岀粺璁￠噺

 

t= 

[1] -0.1412332 

#

鏂规硶浜岋細

t.test(build.price-37)#

璇炬湰绗?/p>

38

椤?/p>

 

渚?/p>

2.2 

binom.test(sum(build.price<37),length(build.price),

0.5)#

璇炬湰

40

椤?/p>

 

渚?/p>

2.3 

P<-2*(1-pnorm(1.96,0,1));P 

[1] 0.04999579 

P1<-2*(1-pnorm(0.7906,0,1));P1 

[1] 0.4291774 

> 

渚?/p>

2.4 

> p<-2*(pnorm(-1.96,0,1));p 

[1] 0.04999579 

>  

> p1<-2*(pnorm(-0.9487,0,1));p1 

[1] 0.3427732 

 

 

渚?/p>

2.5

锛?/p>

P45

锛?/p>

 

scores<-

c(95,89,68,90,88,60,81,67,60,60,60,63,60,92, 

60,88,88,87,60,73,60,97,91,60,83,87,81,90);length(

scores)#

杈撳叆鍚戦噺姹傞暱搴?/p>

 

ss<-c(scores-80);ss 

t<-0 

t1<-0 

for(i in 1:length(ss)){ 

if (ss[i]<0) t<-t+1#

姹傚皬浜?/p>

80

鐨勪釜鏁?/p>

 

else t1<-t1+1

姹傚ぇ浜?/p>

80

鐨勪釜鏁?/p>

 

} 

t;t1 

> t;t1 

[1] 13 

[1] 15 

binom.test(sum(scores<80),length(scores),0.75) 

p-value = 0.001436<0.01 

Cox-Staut

瓒嬪娍瀛樺湪鎬ф��楠?/p>

P47 

渚?/p>

2.6 

year<-1971:2002;year 

length(year) 

rain<-

c(206,223,235,264,229,217,188,204,182,230,223, 

227,242,238,207,208,216,233,233,274,234,227,221

,214, 

226,228,235,237,243,240,231,210) 

length(rain) 

#(1)

璇ュ湴鍖哄墠

10

骞撮檷闆ㄩ噺鏄�鍚﹀彉鍖栵�?/p>

 

t1=0 

for (i in 1:5){ 

if (rain[i]<rain[i+5]) t1<-t1+1 

} 

t1 

k<-0:t1-1 

sum(dbinom(k,5,0.5))# =0.1875 

y<-6/(2^5);y# =0.1875