# R script to simulate two sets of
# random IQ scores (mu=100, sigma=15)

x <- rnorm(5, 100, 15)
y <- rnorm(5, 100, 15)
cor(x, y)

setwd("c:/datasets")
png("iq-correl.png")
plot(x, y, main="Simulated IQ scores")
dev.off( )