set.seed(1)#设置随机种子，随机抽样
train=sample(c(T,F), nrow(data),rep=TRUE)
test=(!train)
#利用训练集进行最优子集选择
regfit.best=regsubsets(y~.,data=data[train,],nvmax=13)
（这里警告:Warning message in leaps.setup(x, y, wt = wt, nbest = nbest, nvmax = nvmax, force.in = force.in, :
"2 linear dependencies found"Warning message in leaps.setup(x, y, wt = wt, nbest = nbest, nvmax = nvmax, force.in = force.in, :
"nvmax reduced to 11"）
但是将sample函数中选择对象c（T，F）换为c（T，T，F）就不会报错，我试了几次，似乎刚好只有这样不会警告。我想知道为什么😢，感谢解答。
set.seed(1)#设置随机种子，随机抽样
train=sample(c(T,F), nrow(data),rep=TRUE)
test=(!train)
#利用训练集进行最优子集选择
regfit.best=regsubsets(y~.,data=data[train,],nvmax=13)
```****
