4.1
#4.1
load("C:/exercise/ch4/exercise4_1.RData")
exercise4_1
#(1)有2~5台(包括2台与5台在内)冷气机出现重要缺陷的概率
sum(exercise4_1$P[3:6])
#(2)不到两台
sum(exercise4_1$P[1:2])
#(3)超过5台
sum(exercise4_1$P[7:11])
4.2
#4.2
#n=4,p=0.1的二项分布
#(1)P(X=2)
dbinom(2,4,0.1)
#(2)P(X<=1)
pbinom(1,4,0.1)
4.3
#4.3
#计算以下概率和分布位
#(1)X~N(500,20*20):P(X>=510);P(400<=X<=450)
1-pnorm(510,mean=500,sd=20)
pnorm(450,mean=500,sd=20)-pnorm(400,mean=500,sd=20)
#(2)Z~N(0,1):P(0<=Z<=1.2);P(-0.48<=Z<=0);P(Z>=1.2)
pnorm(1.2,mean=0,sd=1)-pnorm(0,mean=0,sd=1)
pnorm(0,mean=0,sd=1)-pnorm(-0.48,mean=0,sd=1)
1-pnorm(1.2,mean=0,sd=1)
#(3)标准正态分布累积概率为0.95时的反函数值z
qnorm(0.95,mean=0,sd=1)
4.4
#4.4
#计算以下概率和分位点
#(1)X~t(df),df=15,t<-1.5;
pt(-1.5,df=15)
#df=20,t>2;
1-pt(2,df=20)
#df=30,0.05
qt(1-0.05,df=30)
#(2)X~ka方(df),df=8,ka方<12;
pchisq(12,df=8)
#df=20,ka方>18;
1-pchisq(18,df=20)
#df=15,0.025
qchisq(1-0.025,df=15)
#(3)X~F(df1,df2),df1=15,df2=10,F<3.5;
pf(3.5,df1=15,df2=10)
#df1=12,df2=8,F>3;
1-pf(3,df1=12,df2=8)
#df1=20,df2=16,0.025;
qf(1-0.025,df1=20,df2=16)