#Density-Mat do xac xuat
#Probability-Xac xuat tich luy
#Quantile-Phanvi/Gia tri toi han
x <- seq(-4,4,0.01)
y <- dnorm(x)
z <- 1.96
prob <- pnorm(z)
plot(x,y,type="l",lwd=2,col="blue",main="Minh Hoa Density,Probability, and Quantile (PP chuan) ",ylab="Mat do (Density)",xlab="Gia tri (z)")
polygon(c(x[x <= z],z),c(y[x <= z],0),col="skyblue",border=NA)
abline(v=z,col="red",lwd=2,lty=2)
text(z+0.2,0.05,paste("Quantile=",round(z,2)),col="red",adj=0)
text(-3,0.1,paste("Probability=",round(prob,3)),col="blue",adj=0)
mtext("Density=do cao tai tung diem\nProbability=dien tich ben trai\nQuantile=diem z ung voi P",
      side = 3, line = -1.5, cex = 0.8,col = "darkgreen")