###################################################
### chunk number 1: cerioDat
###################################################
DataURL <- "http://www.stat.wisc.edu/~st849-1/data/"
str(cerio <- with(read.table(paste(DataURL, "ceriodaphnia.txt", sep='')),
                  data.frame(numb=V1, conc=V2, strain=factor(V3))))


###################################################
### chunk number 2: renewal
###################################################
str(renewal <- with(read.table(paste(DataURL, "renewal.txt", sep='')),
                    data.frame(renew=factor(V1, levels=1:0,
                               labels=c("N","Y")), amt=V2)))


###################################################
### chunk number 3: Ischemic
###################################################
Isch <- with(read.table(paste(DataURL, "Ischemic.txt", sep="")),
             data.frame(id=V1, cost=V2, age=V3,
                        gender=factor(V4, labels=c("F","M")),
                        int=V5, ndrug=V6, emerg=V7, compl=V8,
                        comorb=V9, duration=V10))
str(Isch)