r语言中怎么划分训练集和测试集

#做训练集和测试集

set.seed(1)

sub<-sample(1:nrow(audit2),round(nrow(audit2)*2/3))

length(sub)

data_train<-audit2[sub,]#取2/3的数据做训练集

data_test<-audit2[-sub,]#取1/3的数据做测试集

dim(data_train)#训练集行数和列数13542 23

dim(data_test) #测试集的行数和列数6771 23

table(data_train$是否转化) #看该列分布的

table(data_test$是否转化)