#加载德国信贷数据数据(德国信贷)火车 <- 德国信贷$火车
测试 <- 德国信贷$测试
目标ID <- 德国信贷$目标ID
pred_idx前 <- 德国信贷$pred_idx前

#通过AUC优化训练GBT模型
模型 <-gbts标准(火车[,预idx],火车[,目标ID],硝基 = 200，全氟甲基纤维素 = "auc公司")#根据测试数据进行预测
yhat_test（测试） <-预测(模型，测试[,预idx])#根据测试数据计算AUC编剧(测试[,目标ID],yhat_test（测试），全氟甲基纤维素 = "auc公司")

#加载波士顿住房数据数据(波士顿_住房)火车 <- 波士顿_住房$火车
测试 <- 波士顿_住房$测试
目标ID <- 波士顿_住房$目标ID
pred_idx前 <- 波士顿_住房$pred_idx前

#利用MSE优化训练GBT模型
模型 <-gbts标准(火车[,pred_idx前],火车[,目标ID],硝基 = 200，全氟甲基纤维素 = "毫秒")#对测试数据进行预测
yhat_test（测试） <-预测(模型，测试[，pred_idx前])#根据测试数据计算MSE编剧(测试[,目标ID],yhat_test（测试），全氟甲基纤维素 = "毫秒")

安装.包("gbts公司")

帮助(包裹 = "gbts标准")