#第六章習題詳解
#已知某臨界值x,求左尾機率
#pnorm(x, mean, sd)
#已知左尾機率p,求臨界值x
#qnorm(左尾機率, mean, sd)
#習題6-8
#a
x70 <- pnorm(70,mean=75,sd=6.38) #小於70分的機率
x80 <- pnorm(80,mean=75,sd=6.38) #小於80分的機率
x80-x70 #小於80分的機率 - 小於80分的機率 = 介於70~80分的機率
## [1] 0.5667833
#也可寫成
pnorm(80,mean=75,sd=6.38)-pnorm(70,mean=75,sd=6.38)
## [1] 0.5667833
#b
x80<- pnorm(80,mean=75,sd=6.38) #小於80分的機率
1-x80 #大於80分的機率
## [1] 0.2166084
#c
#d
x63<- pnorm(63,mean=75,sd=6.38) #小於63分的機率
x63
## [1] 0.02999428
#習題6-11
(x0.9 <- qnorm(0.9,mean=78,sd=5.5))
## [1] 85.04853
#習題6-12
Noah_Math_z <- (85-81)/2
Noah_Read_z <- (88-87)/10
Talya_Math_z <- (87-81)/2
Talya_Read_z <- (81-87)/10