# Problem 1:

#reads full data set:
countries530<-read.table("http://people.stat.sc.edu/hitchcock/countries.txt",header=T)

#creates vector of labels:
CountryNames <- countries530[,1]

#creates data frame with only the numeric variables (not the column of country labels):
countries530numeric <- countries530[,-1]


# Problem 2

#reads full data set:
diab.full <- read.table("http://people.stat.sc.edu/hitchcock/diabetes60dataIDs.txt", header=T)

#creates vector of ID labels:
diab.IDs <- as.character(diab.full[,1])

#creates data frame with only the numeric variables (not the column of patient IDs):
diab <- diab.full[,-1]