

I want to plot the unstadardized version of a normal plot.  Can you explain why that is not working? 



Dev.set(1) 



xcrit=-1.645 



cord.x <- c(-3,seq(-3,xcrit,0.01),xcrit) 



cord.y <- c(0,dnorm(seq(-3,xcrit,0.01)),0)            # what does final 0 do here? 



curve(dnorm(x,0,1),xlim=c(-3,3),main='Normal PDF') 



polygon(cord.x,cord.y,col='orange') 



savePlot(filename="c:\\ssl_z.emf",type="emf")          #unable to create metafile?  why?  



  

x=seq(80,200,1) 



plot(x,dnorm(x,140,15),type="l",ylab="Probability") 





  

dev.set(4) 



xcrit=135.9 



cord.x <- c(80,seq(80,xcrit,.1),xcrit) 



cord.y <- c(0,dnorm(seq(80,xcrit,.1)),0)              #final 0 needs to be changed but to what? 

curve(dnorm(x,140,15),xlim=c(80,200),main='Normal PDF',ylab="Probability") 



polygon(cord.x,cord.y,col='orange') 



savePlot(filename="c:\\ssl_z.emf",type="emf")         #unable to create metafile?  why?  



  



  

Sincerely, 

Mary A. Marion 





	[[alternative HTML version deleted]]

