train<-read.csv(file="small.dat",header=FALSE)names(train)<-c("user","item","pref") hs<-nrow(train)a<-sample(hs, 0.9*hs)trai<-train[a, ]t <- train[-a,] ###剩下10%，相减是指行号
