# Simulated Data From Normal Distribution Function

Original source: http://rforpublichealth.blogspot.com/2013/02/normal-distribution-functions.html

Want to learn more? I recommend working through: R for Data Science, R Cookbook, and R Graphics Cookbook.

```# set seed to 3000 for reproducability
set.seed(3000)
```
```# create a sequence from 04 to 4 in increments of 0.01
xseq<-seq(-4,4,.01)
```
```# create a probability density function of xseq, with mean 0 and an standard deviation of 1
densities<-dnorm(xseq, 0,1)
```
```# create a cumative distribution function of xseq with mean 0 and a SD of 1
cumulative<-pnorm(xseq, 0, 1)
```
```# create 1000 random numbers from a normal distribution with mean 0 and an sd of 1
randomdeviates<-rnorm(1000,0,1)
```
```# create a grid to hold all the plots
par(mfrow=c(1,3), mar=c(3,4,4,2))
```
```# make the first plot
plot(xseq, densities, col="darkgreen",xlab="", ylab="Density", type="l",lwd=2, cex=2, main="PDF of Standard Normal", cex.axis=.8)
```

```# make the second plot
plot(xseq, cumulative, col="darkorange", xlab="", ylab="Cumulative Probability",type="l",lwd=2, cex=2, main="CDF of Standard Normal", cex.axis=.8)
```

```# make the third plot
hist(randomdeviates, main="Random draws from Std Normal", cex.axis=.8, xlim=c(-4,4))
```