################################################### ### chunk number 1: GSSdat ################################################### DataURL <- "http://www.stat.wisc.edu/~st849-1/data/" str(ql <- read.table(paste(DataURL, "hmw3q1_data.txt", sep=""), header=TRUE)) ################################################### ### chunk number 2: GSSdat ################################################### str(br <- read.table(paste(DataURL, "brand_preference.txt", sep=""), header=TRUE)) ################################################### ### chunk number 3: hayfever ################################################### str(hayfever <- within(read.table(paste(DataURL, "hayfever.txt", sep=""), header = TRUE), { A <- factor(A) B <- factor(B) id <- factor(id) }))