r语言分训练集测试集代码

好的，以下是R语言分训练集和测试集的代码：

#假设数据集在df中，train_percent为训练集的比例（0到1之间）
set.seed(123)
train_rows <- sample(nrow(df), round(train_percent*nrow(df)), replace = FALSE)
train_data <- df[train_rows,]
test_data <- df[-train_rows,]

笑话时间：为什么18岁的人可以去战场，不能去夜店呢？因为战场有炮声，而夜店只有吵闹声。