R 可变长度不同

我尝试运行以下代码

set.seed(123)

training.sample <- DSM_data$OC %>%
    createdataPartition(p=0.8, list=FALSE)

train.data <- DSM_data[training.sample]
MLR.rh <- lm(OC ~ DSM_data[,6] + DSM_data[,7] + DSM_data[,13], data=train.data)

---

创建类似于您的数据的内容：

library(dplyr)
library(caret)
set.seed(123)

DSM_data = data.frame(OC=rnorm(100),matrix(rnorm(1300),ncol=13))

training.sample <- DSM_data$OC %>%
    createDataPartition(p=0.8, list=FALSE)

---

您需要添加一些具有代表性的数据来制作示例。但一般来说，问题来自公式中的子集；如果您使用的是模型的数据参数，那么公式[大部分]应该只由不带引号的列名组成。

library(dplyr)
library(caret)
set.seed(123)

DSM_data = data.frame(OC=rnorm(100),matrix(rnorm(1300),ncol=13))

training.sample <- DSM_data$OC %>%
    createDataPartition(p=0.8, list=FALSE)

 train.data <- DSM_data[training.sample]
 dim(train.data)
 NULL

train.data <- DSM_data[training.sample,]

colnames(train.data)
[1] "OC"  "X1"  "X2"  "X3"  "X4"  "X5"  "X6"  "X7"  "X8"  "X9"  "X10" "X11"
[13] "X12" "X13"

MLR.rh <- lm(OC ~ X1 + X2 + X5, data=train.data)

MLR.rh <- lm(OC ~ ., data=train.data[,c(1,6,7,13)])