**Heuristic Andrew**, and kindly contributed to R-bloggers)

This simulation tests the type I error rates of the Shapiro-Wilk test of normality in R and SAS.

First, we run a simulation in R. Notice the simulation is vectorized: there are no “for” loops that clutter the code and slow the simulation.

# type I error

alpha <- 0.05

# number of simulations

n.simulations <- 10000

# number of observations in each simulation

n.obs <- 100

# a vector of test results

type.one.error <- replicate(n.simulations,

shapiro.test(rnorm(n.obs))$p.value)<alpha

# type I error for the whole simulation

mean(type.one.error)

# Store cumulative results in data frame for plotting

sim <- data.frame(

n.simulations = 1:n.simulations,

type.one.error.rate = cumsum(type.one.error) /

seq_along(type.one.error))

# plot type I error as function of the number of simulations

plot(sim, xlab="number of simulations",

ylab="cumulative type I error rate")

# a line for the true error rate

abline(h=alpha, col="red")

# alternative plot using ggplot2

require(ggplot2)

ggplot(sim, aes(x=n.simulations, y=type.one.error.rate)) +

geom_line() +

xlab('number of simulations') +

ylab('cumulative type I error rate') +

ggtitle('Simulation of type I error in Shapiro-Wilk test') +

geom_abline(intercept = 0.05, slope=0, col='red') +

theme_bw()

As the number of simulations increases, the type I error rate approaches alpha. Try it in R with any value of alpha and any number of observations per simulation.

It’s elegant the whole simulation can be condensed to 60 characters:

mean(replicate(10000,shapiro.test(rnorm(100))$p.value)<0.05)

Likewise, we now do a similar simulation of the Shapiro-Wilk test in SAS. The only issue is, without capturing ODS, I do not see how to get the p-value for the Shapiro-Wilk test, so if you want to modify the number of observations in each simulation, you must adjust the critical value for the test statistic W. Also notice there are no macro loops: the simulation is simpler and faster using a BY statement.

data normal;

length simulation 4 i 3; /* save space and time */

do simulation = 1 to 10000;

do i = 1 to 100;

x = rand('normal');

output;

end;

end;

run;

proc univariate data=normal noprint ;

by simulation;

var x;

output out=univariate n=n mean=mean std=std NormalTest=NormalTest;

run;

data univariate;

set univariate;

/* SAS outputs the W statistic, but it will not give the p-value. */

/* For n=100 and alpha=0.05, W is about 0.9476 */

type_one_error = normaltest < 0.9746;

run;

/* Summarize the type I error rates for this simulation */

proc freq data=univariate;

table type_one_error/nocum;

run;

In my SAS simulation the type I error rate was 5.21%.

Tested with R 3.0.2 and SAS 9.3 on Windows 7.

**leave a comment**for the author, please follow the link and comment on their blog:

**Heuristic Andrew**.

R-bloggers.com offers

**daily e-mail updates**about R news and tutorials on topics such as: visualization (ggplot2, Boxplots, maps, animation), programming (RStudio, Sweave, LaTeX, SQL, Eclipse, git, hadoop, Web Scraping) statistics (regression, PCA, time series, trading) and more...