সাধারণ পদ্ধতিতে:
p <- predict(mod, newdata, type = "link", se.fit = TRUE)
তারপরে নোট করুন যাতে পর্যবেক্ষণের জন্য পূর্বাভাসগুলির স্ট্যান্ডার্ড ত্রুটিযুক্ত p
একটি উপাদান রয়েছে । তারপরে আপনি আপনার পছন্দসই স্তরের উপযুক্ত মান দ্বারা এসই গুণিত করে সিআই গঠন করতে পারেন। উদাহরণস্বরূপ আনুমানিক 95% আত্মবিশ্বাস ব্যবধানটি গঠিত হয়:$se.fit
newdata
upr <- p$fit + (2 * p$se.fit)
lwr <- p$fit - (2 * p$se.fit)
t
মনে রাখবেন যে type = "link"
আপনার কাছে গ্যাম বা ঠিক একটি এএম আছে তা আপনি বলবেন না এমন হিসাবে আমি ব্যবহার করি । গ্যামে, আপনাকে লিনিয়ার প্রেডিক্টরের স্কেলে আত্মবিশ্বাসের ব্যবধান তৈরি করতে হবে এবং তারপরে লিঙ্ক ফাংশনের বিপরীত প্রয়োগ করে প্রতিক্রিয়ার স্কেলে এটিকে রূপান্তর করতে হবে:
upr <- mod$family$linkinv(upr)
lwr <- mod$family$linkinv(lwr)
এখন নোট করুন যে এটি খুব আনুমানিক অন্তর। এছাড়াও এই ব্যবধানগুলি পূর্বাভাসিত মানগুলিতে পয়েন্ট-ওয়াইস এবং এগুলি যে মসৃণতা নির্বাচন সম্পন্ন হয়েছিল তা বিবেচনায় নেয় না।
প্যারামিটারগুলির উত্তরোত্তর বিতরণ থেকে সিমুলেশনের মাধ্যমে একযোগে আত্মবিশ্বাসের বিরতি গণনা করা যায়। আমার ব্লগে আমার একটি উদাহরণ আছে ।
আপনি যদি একটি আত্মবিশ্বাসের ব্যবধান চান যা স্মুথিং পরামিতিগুলির শর্তসাপেক্ষ নয় (যেমন আমরা বিবেচনা করি না এমন একটি বিবেচনায় নেয় তবে পরিবর্তে অনুমান করা যায়, মসৃণতার পরামিতির মানগুলি) unconditional = TRUE
তবে predict()
কলটিতে যোগ করুন।
এছাড়াও, আপনি যদি নিজে নিজে এটি না করতে চান তবে মনে রাখবেন যে এমজিসিভি-র নতুন সংস্করণগুলিতে একটি plot.gam()
ফাংশন রয়েছে যা স্মুথগুলির প্লটগুলি এবং তাদের আত্মবিশ্বাসের অন্তরগুলি তৈরি করতে ব্যবহৃত সমস্ত ডেটা সহ কোনও বস্তু ফেরত দেয়। আপনি কেবল plot.gam()
কোনও আপত্তি থেকে আউটপুট সংরক্ষণ করতে পারেন
obj <- plot(model, ....)
এবং তারপরে পরিদর্শন করুন obj
, যা মসৃণ প্রতি এক উপাদান সহ একটি তালিকা। যোগ seWithMean = TRUE
করার জন্য plot()
কল আস্থা অন্তর যে স্নিগ্ধতা পরামিতি উপর শর্তাধীন নয় জন্য।