R code used to produce the graph shown below.


set.seed(11235) 
x <- rnorm(400, mean=5, sd=2)   # Normal data 
y <- rt(400, df=4)              # Data from t distribution 
qqnorm(x, main="")                       # Create normal q-q plot 
qqline(x)                       # Add comparison line 
qqnorm(y,main="")                       # Create normal q-q plot 
qqline(y)                       # Add comparison line