library(tigerstats) x1<-pnorm(0, 10, 4) x1 x2<-pnorm(0, 14, 6) x2 par(mfrow=c(2,1)) qnormGC(x1,region="below",m=0,s=1, graph=T) qnormGC(x2,region="below",m=0,s=1, graph=T) x11<-1-pnorm(10, 10, 4) x11 x22<-1-pnorm(10, 14, 6) x22 qnormGC(x11,region="above",m=0,s=1, graph=T) qnormGC(x22,region="above",m=0,s=1, graph=T)