## source("normal.R")

n <- 100
x <- rnorm(n)

boxplot(x)

par(mfrow=c(2,2))
boxplot(rnorm(n))
boxplot(rnorm(n))
boxplot(rnorm(n))
boxplot(rnorm(n))
par(mfrow=c(1,1))

x1 <- x
x1[x1==max(x1)] <- 10

par(mfrow=c(1,2))
boxplot(x  ,ylim=range(x1))
boxplot(x1 ,ylim=range(x1))
par(mfrow=c(1,1))