x = seq(-0.05, 4, len=300)
plot(x, dinv.gaussian(x, mu=1, lambda=1), type="l", col="blue", las=1,
main="blue is density, red is cumulative distribution function")
abline(h=0, col="blue", lty=2)
lines(x, pinv.gaussian(x, mu=1, lambda=1), type="l", col="red")
Run the code above in your browser using DataLab