#鲍鱼数据集
aburl <- 'http://archive.ics.uci.edu/ml/machine-learning-databases/abalone/abalone.data'
abnames <- c('sex','length','diameter','height','weight.w','weight.s','weight.v','weight.sh','rings')
abalone <- read.table(aburl, header = F , sep = ',', col.names = abnames)
#另一种表头
aburl <- 'http://archive.ics.uci.edu/ml/machine-learning-databases/abalone/abalone.data'
abnames <- c('Gender','Length','Diameter','Height','WholeWt','ShuckedWt','ViscWt','ShellWt','Rings')
abalone <- read.table(aburl, header = F , sep = ',', col.names = abnames)