প্রতিটি শ্রেণীর জন্য উত্পাদিত সিদ্ধান্তের বিধিগুলি গুছিয়ে রাখার জন্য কি কোনও উপায় আছে যে একবার জটিল শ্রেণিবিন্যাস গাছটি rpart (আর মধ্যে) ব্যবহার করে নির্মিত হয়? সুতরাং একটি বিশাল গাছ পাওয়ার পরিবর্তে, আমরা প্রতিটি ক্লাসের জন্য একটি নিয়ম সেট পাই?
(যদি তাই হয়, কিভাবে?)
উদাহরণগুলি দেখানোর জন্য এখানে একটি সাধারণ কোড উদাহরণ রয়েছে:
fit <- rpart(Kyphosis ~ Age + Number + Start, data=kyphosis)ধন্যবাদ।
উত্তর:
যেমন একটি কার্যকারিতা (অথবা একটি ঘনিষ্ঠ এক) এ পাওয়া যাবে বলে মনে হয় খনখন শব্দ , বর্ণনা অনুযায়ী প্যাকেজ RJournal 1/2 2009 (পি। 50), যদিও আমি শুধু কম্যান্ড-লাইন থেকে এটা চেক করা।
আপনার উদাহরণস্বরূপ, এটি নিম্নলিখিত আউটপুট দেয়:
Rule number: 3 [Kyphosis=present cover=19 (23%) prob=0.58]
Start< 8.5
Rule number: 23 [Kyphosis=present cover=7 (9%) prob=0.57]
Start>=8.5
Start< 14.5
Age>=55
Age< 111
Rule number: 22 [Kyphosis=absent cover=14 (17%) prob=0.14]
Start>=8.5
Start< 14.5
Age>=55
Age>=111
Rule number: 10 [Kyphosis=absent cover=12 (15%) prob=0.00]
Start>=8.5
Start< 14.5
Age< 55
Rule number: 4 [Kyphosis=absent cover=29 (36%) prob=0.00]
Start>=8.5
Start>=14.5
এই আউটপুট, আমি উৎস পেতে rattle/R/rpart.Rদুই কল মুছে পর আমার কর্মক্ষেত্র মধ্যে সোর্স ফাইল (উৎস প্যাকেজ থেকে), Rtxt()মধ্যে asRules.rpart()ফাংশন (আপনি সঙ্গে এটি প্রতিস্থাপন করতে পারেন print)। তারপরে, আমি কেবল টাইপ করি
> asRules(fit)Rpart.plot
প্যাকেজ সংস্করণের 3.0 (জুলাই 2018) একটি ফাংশন আছে
rpart.rulesএকটি গাছ জন্য নিয়ম একটি সেট জেনারেট করার জন্য। উদাহরণ স্বরূপ
library(rpart.plot)
fit <- rpart(Kyphosis ~ Age + Number + Start, data=kyphosis)
rpart.rules(fit)
দেয়
Kyphosis
0.00 when Start >= 15
0.00 when Start is 9 to 15 & Age < 55
0.14 when Start is 9 to 15 & Age >= 111
0.57 when Start is 9 to 15 & Age is 55 to 111
0.58 when Start < 9
আরও উদাহরণের জন্য rpart.plot ভিগনেটের অধ্যায় 4 দেখুন ।
rpart.rules(fit, nn=TRUE)নোড নম্বর পেতে (পাতার নম্বরগুলি ওরফে) পেতে ব্যবহার করুন ।