xgboost 3.0.0 发布了，调整代码适应之

Author: XiangyunHuang

DESCRIPTION

@@ -64,7 +64,7 @@ Imports:
     tensorflow,
     tidycensus,
     tikzDevice,
-    xgboost,
+    xgboost (>= 3.0.0),
     xml2,
     xts,
     VGAM
@@ -75,6 +75,7 @@ LinkingTo: BH (>= 1.75.0-0), StanHeaders (>= 2.32.6)
 SystemRequirements: pgf (>= 3.00), JAGS 4.x.y
 Additional_repositories:
     https://stan-dev.r-universe.dev,
+    https://dmlc.r-universe.dev,
     https://inla.r-inla-download.org/R/stable
 Encoding: UTF-8
 License: CC NC ND 4.0

classification-problems.qmd

@@ -414,13 +414,33 @@ iris_test <- list(
 
 ```{r}
 library(xgboost)
-iris_xgb <- xgboost(
-  data = iris_train$data, 
-  label = iris_train$label,
-  objective = "multi:softmax",  # 学习任务
-  eval_metric = "mlogloss",     # 评估指标
-  nrounds = 2,   # 提升迭代的最大次数
-  num_class = 3  # 分类数
+nthread <- 1
+data.table::setDTthreads(nthread)
+# 整理数据
+dtrain <- with(
+  iris_train, xgb.DMatrix(data, label = label, nthread = nthread)
+)
+dtest <- with(
+  iris_test, xgb.DMatrix(data, label = label, nthread = nthread)
+)
+# 训练集和测试集
+evals <- list(train = dtrain, eval = dtest)
+# 参数设置
+param <- xgb.params(
+  max_depth = 2,
+  learning_rate = 1,
+  nthread = nthread,
+  objective = "multi:softmax",
+  eval_metric = "mlogloss",
+  num_class = 3
+)
+# 训练数据
+iris_xgb <- xgb.train(
+  params = param,
+  data = dtrain,
+  nrounds = 2,
+  evals = evals, 
+  verbose = 0
 )
 ```
 

regression-problems.qmd

@@ -671,8 +671,8 @@ Boston_test <- list(
 ```{r}
 library(xgboost)
 Boston_xgb <- xgboost(
-  data = Boston_train$data, 
-  label = Boston_train$label,
+  x = Boston_train$data, 
+  y = Boston_train$label,
   objective = "reg:squarederror",  # 学习任务
   eval_metric = "rmse",    # 评估指标
   nrounds = 6

time-series-regression.qmd

@@ -487,7 +487,7 @@ data_size <- nrow(air_passengers)
 # 拆分数据集
 train_size <- floor(data_size * 0.67)
 train_data <- air_passengers[1:train_size, ]
-test_data <- air_passengers[train_size:data_size, ]
+test_data <- air_passengers[-(1:train_size), ]
 
 # 随机数种子对结果的影响非常大 试试 set.seed(20232023) 
 set.seed(20222022)