# NOT RUN {
#- Read in and attach the data -#
mri <- read.table("http://www.emersonstatistics.com/datasets/mri.txt", header=TRUE)
attach(mri)
#- Produce box plot with jittered data, sample mean, and sd -#
bplot(y=atrophy, x=male, xlab="Gender", ylab="Atrophy")
# }
Run the code above in your browser using DataLab