## Code to read in Problem 1 data:

mammals530 <- read.csv("http://people.stat.sc.edu/Hitchcock/mammaldatanew.txt",header=T);
attach(mammals530)
mammal.species <- as.character(species)
mammal.numeric <- mammals530[,-1]

## Code to read in Problem 2 data:

# Problem 2


forest <- read.table("http://people.stat.sc.edu/hitchcock/forestfiredatanoIDs.txt", header=T)

attach(forest)

# Just in case you want to read in the data with a set of ID numbers 
# (but the ID numbers should not be part of the analysis!)

forestWithIDs <- read.table("http://people.stat.sc.edu/hitchcock/forestfiredata.txt", header=T)

fire.labels <-forestWithIDs[,1]