পরিসংখ্যান শেখার উপাদানসমূহ , Hastie এট অল। থেকে, সমর্থন ভেক্টর ক্লাসিফায়ার এবং SVMs উপর একটি সম্পূর্ণ অধ্যায় আছে (আপনার ক্ষেত্রে, 2nd সংস্করণ পৃষ্ঠার 418 শুরু)। আর একটি ভাল টিউটোরিয়াল হ'ল ডেভিড মায়ারের র দ্বারা সাপোর্ট ভেক্টর মেশিনগুলি ।
আমি আপনার প্রশ্নের ভুল বোঝে না পারলে সিদ্ধান্তের সীমানা (বা হাইপারপ্লেন) ( ‖ β ‖ = 1 , এবং β 0 ইন্টারসেপ্ট শব্দ সহ) দ্বারা সংজ্ঞায়িত করা হয়েছে , বা @ ইবনি যেমন বলেছিলেন একটি লিনিয়ার সংমিশ্রণ সমর্থন ভেক্টর। মার্জিনটি তখন, হাসতি এবং অন্যান্য অনুসরণ করছে স্বরলিপি।এক্সটিβ+ + β0= 0Β β∥ = 1β02 / ∥ β∥
এর অন লাইন সাহায্য থেকে ksvm()
এ kernlab আর প্যাকেজ, কিন্তু দেখতে kernlab - দ কার্নেল পদ্ধতি জন্য একটি এস 4 প্যাকেজ , এখানে একটি খেলনা উদাহরণ রয়েছে:
set.seed(101)
x <- rbind(matrix(rnorm(120),,2),matrix(rnorm(120,mean=3),,2))
y <- matrix(c(rep(1,60),rep(-1,60)))
svp <- ksvm(x,y,type="C-svc")
plot(svp,data=x)
নোট করুন যে স্পষ্টতার স্বার্থে, আমরা ট্রেন এবং পরীক্ষার নমুনাগুলি বিবেচনা করি না। ফলাফলগুলি নীচে দেখানো হয়েছে, যেখানে রঙিন শেড লাগানো সিদ্ধান্তের মানগুলিকে ভিজ্যুয়ালাইজ করতে সহায়তা করে; 0 এর আশেপাশের মানগুলি সিদ্ধান্তের সীমানায় থাকে।
কলিং attributes(svp)
আপনাকে এমন বৈশিষ্ট্য দেয় যা আপনি অ্যাক্সেস করতে পারেন, যেমন
alpha(svp) # support vectors whose indices may be
# found with alphaindex(svp)
b(svp) # (negative) intercept
সুতরাং, সিদ্ধান্তের সীমানা, এর সাথে সম্পর্কিত মার্জিনের সাথে প্রদর্শন করতে, আসুন নিম্নলিখিতগুলি (উদ্ধারকৃত স্থানে) চেষ্টা করুন, যা জিন-ফিলিপ ভার্টের কিছু সময় আগে তৈরি এসভিএম-এর একটি টিউটোরিয়াল থেকে মূলত অনুপ্রাণিত হয়েছিল :
plot(scale(x), col=y+2, pch=y+2, xlab="", ylab="")
w <- colSums(coef(svp)[[1]] * x[unlist(alphaindex(svp)),])
b <- b(svp)
abline(b/w[1],-w[2]/w[1])
abline((b+1)/w[1],-w[2]/w[1],lty=2)
abline((b-1)/w[1],-w[2]/w[1],lty=2)
এবং এটি এখানে: