使用kernlab
我训练了一个模型,其代码如下:
my.model <- ksvm(result ~ f1+f2+f3, data=gold, kernel="vanilladot")
Run Code Online (Sandbox Code Playgroud)
由于它是一个线性模型,我更喜欢在运行时将得分计算为特征值的简单加权和,而不是使用完整的SVM机制.如何将模型转换为类似的东西(这里有一些组成的权重):
> c(.bias=-2.7, f1=0.35, f2=-0.24, f3=2.31)
.bias f1 f2 f3
-2.70 0.35 -0.24 2.31
Run Code Online (Sandbox Code Playgroud)
.bias
偏差项在哪里,其余是特征权重?
编辑:
这是一些示例数据.
gold <- structure(list(result = c(-1, -1, -1, -1, -1, -1, -1, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), f1 = c(0, 0, 0, 0,
0, 0, …
Run Code Online (Sandbox Code Playgroud)