x<-read.delim("C:/Users/liutz/Documents/101名健康女职工血清总胆固醇测量结果.txt")
head(x)
#y<-as.numeric(x)
#错误: 'list' object cannot be coerced to type 'double'
y<-as.numeric(unlist(x))
write.csv(y,file="data.csv")
hist(y,breaks=12,main="直方图")