আমার কাছে দুটি ওভারল্যাপিং ক্লাস সহ একটি ডেটাসেট রয়েছে, প্রতিটি শ্রেণিতে সাতটি পয়েন্ট, পয়েন্টগুলি দ্বিমাত্রিক জায়গায় space আর এ, এবং আমি এই ক্লাসগুলির জন্য পৃথকীকরণের হাইপারপ্লেন তৈরি svm
করতে e1071
প্যাকেজটি থেকে চালাচ্ছি । আমি নিম্নলিখিত কমান্ডটি ব্যবহার করছি:
svm(x, y, scale = FALSE, type = 'C-classification', kernel = 'linear', cost = 50000)
যেখানে x
আমার ডেটা পয়েন্ট y
রয়েছে এবং এতে তাদের লেবেল রয়েছে। কমান্ড একটি svm-বস্তুর, যা আমি পরামিতি নিরূপণ করার জন্য ব্যবহার ফেরৎ (স্বাভাবিক ভেক্টর) এবং (পথিমধ্যে) পৃথক hyperplane করুন।
চিত্র (ক) নীচে আমার পয়েন্টগুলি দেখায় এবং হাইপারপ্লেনটি svm
কমান্ড দ্বারা ফিরে এসেছে (আসুন এই হাইপারপ্লেনটিকে সর্বোত্তম বলি)। প্রতীক হে সহ নীল বিন্দু স্থানের উত্স দেখায়, বিন্দুযুক্ত রেখাগুলি মার্জিনটি দেখায়, বৃত্তাকারগুলি এমন বিন্দুগুলির মধ্যে রয়েছে যা শূন্য নয় (স্ল্যাক ভেরিয়েবল) রয়েছে।
চিত্র (খ) আরও একটি হাইপারপ্লেন দেখায় যা সর্বোত্তম একটির সমান্তরাল অনুবাদ 5 (b_new = b_optimal - 5)। এই হাইপারপ্লেনের জন্য উদ্দেশ্য ফাংশন
svm
ফাংশনটিতে কোনও সমস্যা আছে বলে মনে হচ্ছে ? নাকি আমি কোথাও ভুল করেছি?
এই পরীক্ষায় আমি যে আর কোড ব্যবহার করেছি তার নীচে।
library(e1071)
get_obj_func_info <- function(w, b, c_par, x, y) {
xi <- rep(0, nrow(x))
for (i in 1:nrow(x)) {
xi[i] <- 1 - as.numeric(as.character(y[i]))*(sum(w*x[i,]) + b)
if (xi[i] < 0) xi[i] <- 0
}
return(list(obj_func_value = 0.5*sqrt(sum(w * w)) + c_par*sum(xi),
sum_xi = sum(xi), xi = xi))
}
x <- structure(c(41.8226593092589, 56.1773406907411, 63.3546813814822,
66.4912298720281, 72.1002963174962, 77.649309469458, 29.0963054665561,
38.6260575252066, 44.2351239706747, 53.7648760293253, 31.5087701279719,
24.3314294372308, 21.9189647758150, 68.9036945334439, 26.2543850639859,
43.7456149360141, 52.4912298720281, 20.6453186185178, 45.313889181287,
29.7830021158501, 33.0396571934088, 17.9008386892901, 42.5694092520593,
27.4305907479407, 49.3546813814822, 40.6090664454681, 24.2940422573947,
36.9603428065912), .Dim = c(14L, 2L))
y <- structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L,
1L), .Label = c("-1", "1"), class = "factor")
a <- svm(x, y, scale = FALSE, type = 'C-classification', kernel = 'linear', cost = 50000)
w <- t(a$coefs) %*% a$SV;
b <- -a$rho;
obj_func_str1 <- get_obj_func_info(w, b, 50000, x, y)
obj_func_str2 <- get_obj_func_info(w, b - 5, 50000, x, y)