Cbind无效的下标类型＆＃39; list＆＃39;在数据集上

Question

我尝试实施 Knn ，但在尝试设置我的列车数据时，我收到以下错误：

  

无效的下标类型＆＃39;列表＆＃39;

这是我的代码：

rm(list=ls())
library(class)

library(ISLR)

train = subset(Weekly, Year >= 1990)
test = subset(Weekly, Year >= 2009)
Weekly.Lag1 = Weekly[,c("Lag1")]
Weekly.Lag2 = Weekly[,c("Lag2")]

train.X <- cbind(Weekly.Lag1,Weekly.Lag2)[train,]

我做错了什么，如何解决？

Answer 1

rm(list=ls())
library(class)

library(ISLR)

train = which(Weekly$Year >= 1990) # you have to create vector not subset
test = which(Weekly$Year >= 2009) # you have to create vector not subset
Weekly.Lag1 = Weekly[,c("Lag1")]
Weekly.Lag2 = Weekly[,c("Lag2")]

train.X <- cbind(Weekly.Lag1,Weekly.Lag2)[train,]