# Eysenck (1974) randomly assigned 50 younger subjects (blocks?) and
# 50 older subjects to one of five learning groups (treatments?).
# After the subjects had gone through a list of 27 items three times
# they were asked to write down all the words they could remember.

agememory <- read.csv("http://www.math.ntnu.no/~mettela/TMA4267/Data/eysenck.txt",sep="\t")
dim(agememory)
attach(agememory)

fig <- boxplot(Words~Age*Process)
fig$names
labnames <- c("OA","YA","OC","YC","OIm", "YIm", "OIn","YIn","OR","YR")
boxplot(Words~Age*Process,col=rep(c("red","blue"),5),names=labnames)

setwd("m:/pc/Undervisning/TMA4267/2015V")
dev.copy2pdf(file="Words.pdf")

summary(aov(Words~Age+Process)) # no interaction
summary(aov(Words~Age*Process)) # interaction