deinega5

> x

[1] 0.00 0.05 0.10 0.15 0.20 0.25 0.30 0.35 0.40 0.45 0.50 0.55 0.60 0.65 0.70

[16] 0.75 0.80 0.85 0.90 0.95 1.00 1.05 1.10 1.15 1.20 1.25 1.30 1.35 1.40 1.45

[31] 1.50 1.55 1.60 1.65 1.70 1.75 1.80 1.85 1.90 1.95 2.00 2.05 2.10 2.15 2.20

[46] 2.25 2.30 2.35 2.40 2.45 2.50 2.55 2.60 2.65 2.70 2.75 2.80 2.85 2.90 2.95

[61] 3.00 3.05 3.10 3.15 3.20 3.25 3.30 3.35 3.40 3.45 3.50 3.55 3.60 3.65 3.70

[76] 3.75 3.80 3.85 3.90 3.95 4.00 4.05 4.10 4.15 4.20 4.25 4.30 4.35 4.40 4.45

[91] 4.50 4.55 4.60 4.65 4.70 4.75 4.80 4.85 4.90 4.95 5.00

> y=SVMData$Y

> y

[1] -0.03566182 0.05978404 -0.11134412 0.09972835 0.29780782 0.30622463

[7] 0.20847428 0.30891137 0.35565093 0.51553855 0.58776188 0.61026845

[13] 0.48693221 0.81102334 0.58674182 0.73443044 0.72057228 0.69293089

[19] 0.84743978 0.83961848 0.76839038 0.95903101 0.88008363 0.99857538

[25] 0.68064542 0.75795782 1.06507723 1.02801762 0.84870053 1.06681649

[31] 0.87252252 1.20016327 1.03411428 0.90794376 0.99977314 1.00749804

[37] 1.01860185 0.95491637 1.08395959 0.81931680 0.73403545 0.94781101

[43] 0.81552428 0.92596234 0.76017525 0.84636088 0.77419427 0.73926198

[49] 0.72424329 0.63809174 0.51642457 0.67533242 0.51337986 0.32126796

[55] 0.43808380 0.22888165 0.27919777 0.39096174 0.13879461 0.35752683

[61] 0.16036942 0.11770151 -0.01758271 -0.05099682 -0.14639221 -0.02938006

[67] -0.13820798 -0.33220297 -0.11346667 -0.21309142 -0.35054216 -0.33335569

[73] -0.42441298 -0.59198730 -0.47649112 -0.49414025 -0.76809658 -0.41793545

[79] -0.56975399 -0.85622142 -0.83734993 -0.72996809 -0.95141228 -0.92884341

[85] -0.80372416 -0.77004043 -1.03773683 -0.92908917 -0.99051372 -1.06090580

[91] -0.88556153 -1.09461668 -1.09906908 -0.88549495 -1.05191110 -0.79921257

[97] -1.19966322 -0.92610358 -0.85584691 -0.86752856 -1.09817111

> plot(x,y)

> model < - svm(x, y, type = "eps-regression", eps = 0.15)

Ошибка: не могу найти функцию "svm"

> library(e1071)

Загрузка требуемого пакета: class

> model < - svm(x, y, type = "eps-regression", eps = 0.15)

Ошибка в -svm(x, y, type = "eps-regression", eps = 0.15) :

неправильный аргумент для унарного оператора

> model <- svm(x, y, type = "eps-regression", eps = 0.15)

> model

Call:

svm.default(x = x, y = y, type = "eps-regression", epsilon = 0.15)

Parameters:

SVM-Type: eps-regression

SVM-Kernel: radial

cost: 1

gamma: 1

epsilon: 0.15

Number of Support Vectors: 32

> plot(model)

> plot(model)

> y_pred <- predict(model, x)

> plot(x,y)

> points(x, y_pred, col = 4)

> model <- svm(x, y, type = "eps-regression", eps = 0.5)

> y_pred <- predict(model, x)

> plot(x,y)

> points(x, y_pred, col = 4)