R

Question

我无法调用功能表：

table(predict(model,dataset),dataset[,2],dnn=list('predicted','actual'))

因为有下一个错误：

  

表中的错误（预测（模型，数据集），数据集[，2]，dnn = list（“预测”，：         所有参数必须具有相同的长度

class<- ifelse(srz_a>0,"up",ifelse(srz_a<0,"down",0))

dataset<- data.frame(date,class,srz_a)

model<- naiveBayes(dataset[,1],dataset[,2:3])

table(predict(model,dataset),dataset[,2],dnn=list('predicted','actual'))
# Error in table(predict(model, dataset), dataset[, 2], dnn = list("predicted",  : 
#   all arguments must have the same length

dim(dataset)
# [1] 1292    3

class[1292]
# [1] "down"

srz_a[1292]
# [1] -0.0001520257