#第六章習題詳解
#已知某臨界值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