Hello, 

I have this code to plot a certain normal distribution and represent the pnorm 
value for a certain "x":


x<-300
xx <- seq(2.5,7.5, by=0.1)
yy <- dnorm(xx,5.01,0.77)
d<-signif(pnorm(log(x), 5.01,0.77),4)
xpts <- round(exp(0:8))
par(bg = "antiquewhite")
plot(xx,yy, type="l", col="blue", lwd=2, xaxt="n", xlab=expression(ufc/m^3), 
ylab="Densidad")
axis(1, at=log(xpts, base=exp(1)), lab=xpts)
n<-0
for (i in 1:(dnorm(log(x), 5.01,0.77)/0.005)){
n<-n+0.005
points(log(x), n, pch=16, cex=0.3)}
points(log(x),-0.01,pch=24,cex=2,bg='RED')
text(log(x)+0.4, 0.004, paste(d*100, "%"))

I'd like to colour the area under the curve left to my "x". Is there any way?

Thanks in advance


_____________________
David Hervás Marín


      
	[[alternative HTML version deleted]]

