# R-program for Extra Exercise 8

# (a) normal distribution
set.seed(25092015)
rnormal1<- rnorm(100)
rnormal2<- rnorm(100)
rnormal3<- rnorm(100)
# exploration of rnormal1
summary(rnormal1)
hist(rnormal1)
qqnorm(rnormal1, datax=T)
qqline(rnormal1, datax=T)
shapiro.test(rnormal1)
# repeat for rnormal2 and rnormal3

# (b) uniform distribution
set.seed(25092015)
runiform1 <- runif(100)
runiform2 <- runif(100)
runiform3 <- runif(100)
# exploration of rnormal1
summary(runiform1)
hist(runiform1)
qqnorm(runiform1, datax=T)
qqline(runiform1, datax=T)
shapiro.test(runiform1)
# repeat for runiform2 and runiform3