#鲍鱼数据集
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)