生物统计学作业：新生儿体重数据分析与假设检验.pdfVIP

BirthWeight-c(123,98,115,120,105,135,126,119,141,116,132,140,106,128,1

12,109,131,121,108,115)

ID-c(1:20)

n-20

Table-data.frame(ID,BirthWeight)

head(Table,4)

##IDBirthWeight

##11123

##2298

##33115

##44120

(n−

χ

σ

pχn−1(χ

chi-((n-1)*var(Table$BirthWeight))/25^2

min(pchisq(chi,n-1),1-pchisq(chi,n-1))*2

##[1]0.0004309117

p=4.310^{-4}0.05different

≤P(μ−

−−

n−1)−ptn−1

√√

mu-mean(Table$BirthWeight)

s-sd(Table$BirthWeight)

p.upper-pt((126.0-mu)/(s/sqrt(n)),n-1)

p.lower-pt((100.0-mu)/(s/sqrt(n)),n-1)

p-p.upper-p.lower

p

##[1]0.9811361

0.981

−

−−α/2

α/2

√√

CI-mu-c(-1,1)*qt(0.025,n-1)*s/sqrt(n)

CI

##[1]114.3777125.6223

[114.378,125.622]

X−μ

√

1−

n−1

t-(mu-118)/s*sqrt(n)

p-1-pt(t,n-1)

p

##[1]0.2328299

FALSE

X−μX−μ

−n−1

n−1