# Data from Montgomery, D.C., Design and Analysis of Experiments, pg. 204 

##########
##
# Reading the data into R:

ff <- tempfile()
cat(file=ff, "
196.6 3 400 2
196 3 400 2
198.5 3 400 4 
197.2 3 400 4
197.5 3 400 8
196.6 3 400 8
197.7 3 500 2 
196 3 500 2
196 3 500 4
196.9 3 500 4
195.6 3 500 8
196.2 3 500 8
199.8 3 650 2 
199.4 3 650 2
198.4 3 650 4
197.6 3 650 4
197.4 3 650 8
198.1 3 650 8
198.4 4 400 2
198.6 4 400 2
197.5 4 400 4
198.1 4 400 4
197.6 4 400 8
198.4 4 400 8
199.6 4 500 2
200.4 4 500 2
198.7 4 500 4
198 4 500 4
197 4 500 8
197.8 4 500 8
200.6 4 650 2
200.9 4 650 2
199.6 4 650 4
199 4 650 4
198.5 4 650 8
199.8 4 650 8
", sep=" ")

options(scipen=999) # suppressing scientific notation

paper <- read.table(ff, header=FALSE, col.names=c("strength","cooktime", "pressure", "concen")) 

attach(paper)

cooktime<-factor(cooktime)
pressure<-factor(pressure)
concen<-factor(concen)

# The data frame called paper is now created.
#########