新手r语言决策树报错，求大佬指导

data=read.csv("a.csv",fileEncoding="GBK")
set.seed(201)
train=sample(1:nrow(data),0.7*nrow(data))
tdata=data[train,]
vdata=data[-train,]
mytree=rpart(as.factor(tdata$class)~.,data=tdata,method="class",parms=list(split='information'))

报错：

Error in model.frame.default(formula = as.factor(tdata$class) ~ ., data = tdata, : 变数的长度不一样('V1')