请继续将它转换成R语言 #因为需要利用训练数据建立回归模型所以要在训练集中划分训练集和测试集 X_trainX_testy_trainy_test = train_test_splitpm25_trainfeaturespm25_trainlabelstest_size=02random_state = 10

library(caret)

set.seed(10)

split <- createDataPartition(pm25_train$labels, p = 0.8, list = FALSE)

X_train <- pm25_train[split, features] X_test <- pm25_train[-split, features] y_train <- pm25_train[split, labels] y_test <- pm25_train[-split, labels]