本文格式為Word版，下載可任意編輯——非參數(shù)統(tǒng)計（其次版）習(xí)題R程序P37.例2.1

build.price例2.4

>p

>p1t;t1[1]13[1]15

binom.test(sum(scores320);ceo.numn=length(ceo)

binom.test(ceo.num,n,0.5)

例2.13(P61)

a1-alpha){conffy)sgn[i]=1elseif(x[i]==y)sgn[i]=0elsesgn[i]=-1}sgn}

n130n1n2=sum(shuju3>40n2n3=sum(shuju3>50n3n4=sum(shuju3>60n4n5=sum(shuju3>70n5n6=sum(shuju3>80);n6

nnshuju3.var=var(shuju3);shuju3.varshuju3.sd=sd(shuju3);shuju3.sde0=pnorm(30,shuju3.mean,shuju3.sd)e1=pnorm(40,shuju3.mean,shuju3.sd)-pnorm(30,shuju3.mean,shuju3.sd)e2=pnorm(50,shuju3.mean,shuju3.sd)-pnorm(40,shuju3.mean,shuju3.sd)e3=pnorm(60,shuju3.mean,shuju3.sd)-pnorm(50,shuju3.mean,shuju3.sd)e4=pnorm(70,shuju3.mean,shuju3.sd)-pnorm(60,shuju3.mean,shuju3.sd)e5=pnorm(80,shuju3.mean,shuju3.sd)-pnorm(70,shuju3.mean,shuju3.sd)e6=1-pnorm(80,shuju3.mean,shuju3.sd)e=c(e0,e1,e2,e3,e4,e5,e6);eee=n*c(e0,e1,e2,e3,e4,e5,e6);eex.squ=sum((nn^2)/(ee))-n;x.squ#方法一

valuemd.xy)lxmd.xy)if(alt==\{wmd.xy)lxmd.xy)#沒有修正時的情形

pvalue1yy,1)}wm}例3.3

weight.low=c(134,146,104,119,124,161,107,83,113,129,97,123)m=length(weight.low)

weight.high=c(70,118,101,85,112,132,94)n=length(weight.high)#方法一：

wy=xy))}zhi}

引例：

x1=xy))}zhi}例3.6

x1W(0.975,m1,m2))

其中W(0.975,m1,m2)=m1*m2-W(0.025,m1,m2).#方法二（Wilcoxon秩和檢驗）wilcox.test(SSA,SSB)

#方法二（Mann-Whitney秩和檢驗）m=length(SSA);mn=length(SSB);n

mean_AB=m*n/2;mean_ABvar_AB=m*n*(m+n+1)/12;var_ABp_value=1-pnorm(S,mean_AB,sqrt(var_AB));p_value第四章

4.1、試驗設(shè)計和方差分析的基本概念回想#R軟件中單因素方差分析的函數(shù)例4.1#