我试图看看 R 和 SVM(e1071)有什么可能。但是混淆矩阵的结果太大而无法显示。
出于测试目的,我使用来自 Yahoo Finance 的Yahoo 股票数据集。
我的 R 命令集如下所示:
> library(e1071)
> yahooData <- read.csv(file="../StockData/yahoo/yahoo-full.csv")
> yahooData[1,]
Date Open High Low Close Volume Adj.Close
1 2014-01-17 40.12 40.44 39.47 40.01 19262500 40.01
> dim(yahooData)
[1] 4473 7
> yIndex <- 1:nrow(yahooData)
> yTestindex <- sample(yIndex, trunc(length(yIndex)/3))
> yTestset <- yahooData[yTestindex,]
> yTrainset <- yahooData[-yTestindex,]
> dim(yTestset)
[1] 1491 7
> dim(yTrainset)
[1] 2982 7
>
> # svm
> ySVMmodel <- svm(Close ~ ., data = yTrainset)
> ySVMpred <- predict(ySVMmodel, yTestset[,-5])
我的 SVM 模型的总结和预测是:
> summary(ySVMmodel)
Call:
svm(formula = Close ~ ., data = yTrainset)
Parameters:
SVM-Type: eps-regression
SVM-Kernel: radial
cost: 1
gamma: 0.000223314
epsilon: 0.1
Number of Support Vectors: 493
> summary(ySVMpred)
Min. 1st Qu. Median Mean 3rd Qu. Max.
12.55 20.96 31.93 49.84 43.55 401.10
最后我想得到一个混淆矩阵来查看我的结果,但是矩阵太大了,我无法从中获取任何信息:
> table(pred = ySVMpred, true = yTestset[,5])
除了混淆矩阵之外,还有另一种查看预测值的方法吗?或者另一种缩小混淆矩阵以获得结果的方法?