স্যাডলিপয়েন্ট কীভাবে কাজ করে?


38

কিভাবে কাজ করে saddlepoint পড়তা কাজ করে? এটি কোন ধরণের সমস্যার জন্য ভাল?
(উদাহরণের মাধ্যমে নির্দিষ্ট উদাহরণ বা উদাহরণ ব্যবহারে নির্দ্বিধায়)

অমনোযোগীদের জন্য কোনও ত্রুটি, অসুবিধাগুলি, নজর রাখার মতো জিনিস বা ফাঁদ রয়েছে?

উত্তর:


48

সম্ভাব্যতা ঘনত্ব ফাংশনটির জন্য স্যাডলিপয়েন্টের সান্নিধ্যকরণ (এটি বৃহত্ ফাংশনগুলির জন্য একইভাবে কাজ করে তবে আমি এখানে কেবল ঘনত্বের ক্ষেত্রে কথা বলব) একটি আশ্চর্যজনকভাবে কাজ করে যাওয়া সান্নিধ্য, এটি কেন্দ্রীয় সীমাবদ্ধতা তত্ত্বটির সংশোধন হিসাবে দেখা যেতে পারে। সুতরাং, এটি কেবলমাত্র সেটিংগুলিতে কাজ করবে যেখানে কেন্দ্রীয় সীমাবদ্ধ উপপাদ্য রয়েছে তবে এর আরও দৃump় অনুমানের প্রয়োজন।

আমরা এই অনুমান দিয়ে শুরু করি যে মুহূর্তটি উত্পন্ন করার কার্যটি বিদ্যমান এবং দ্বিগুণ পার্থক্যযোগ্য। এটি বিশেষত বোঝায় যে সমস্ত মুহুর্তের অস্তিত্ব রয়েছে। যাক মুহূর্ত উৎপাদিত ফাংশন (mgf) সহ একটি দৈব চলক হতে এবং cgf (cumulant উৎপাদিত ফাংশন) (যেখানে প্রাকৃতিক লোগারিদমকে বোঝায়)। বিকাশে আমি রোনাল্ড ডাব্লু বাটলারকে ঘনিষ্ঠভাবে অনুসরণ করব: "অ্যাপ্লিকেশন সহ স্যাডলপয়েন্ট পিকচার" (সিইপি)। আমরা নির্দিষ্ট ইন্টিগ্রালের সাথে ল্যাপ্লেস সান্নিধ্য ব্যবহার করে স্যাডলিপয়েন্টের সান্নিধ্যে বিকাশ করব। লিখন X

M(t)=EetX
K(t)=logM(t)log
eK(t)=etxf(x)dx=exp(tx+logf(x))dx=exp(h(t,x))dx
যেখানে । এখন আমরা টেলর প্রসারিত হবে মধ্যে বিবেচনা একটি ধ্রুবক হিসাবে। এই দেয় যেখানে ' এক্স এর সাথে সম্মানের সাথে পার্থক্য বোঝায় । দ্রষ্টব্য যে h '(t, x) = - t- rac frac {tial আংশিক} {tial আংশিক x} \ লগ চ (এক্স) \\ এইচ' '(টি, এক্স) = - rac frac {tial আংশিক ^ 2} \ tial আংশিক x ^ 2} \ লগ এফ (এক্স)> 0 (অনুমানের দ্বারা শেষ বৈষম্য যেমন কাজ করার জন্য অনুমানের প্রয়োজন হয়)। এক্স_টি যাকh(t,x)=txlogf(x)h(t,x)xt
h(t,x)=h(t,x0)+h(t,x0)(xx0)+12h(t,x0)(xx0)2+
x
h(t,x)=txlogf(x)h(t,x)=2x2logf(x)>0
xtসমাধান হতে h(t,xt)=0 । আমরা ধরে নিই যে এই একটা ন্যূনতম দেয় h(t,x) এর কার্যকারিতা হিসেবে x । অবিচ্ছেদ্য অংশে এই ব্যবহার করে এবং \ ডটসম অংশটি ভুলে যাওয়া ,
eK(t)exp(h(t,xt)12h(t,xt)(xxt)2)dx=eh(t,xt)e12h(t,xt)(xxt)2dx
\ ইন্ট _ {- \ ইনফটি} ^ \ ইনফটি \ এক্সপ্রেস (-h (টি, এক্স_টি) - rac frac12 এইচ 'দেয় '(টি, এক্স_টি) (x-x_t) ^ 2) \; dx \\ = e ^ {- h (t, x_t) \ \ int _ {- \ infty} ^ \ infty e ^ {- rac frac12 h '' (t, x_t) (x-x_t) ^ 2} \; ডিএক্স যা একটি গাউসিয়ান অবিচ্ছেদ্য,
eK(t)eh(t,xt)2πh(t,xt).
এটি f (x_t) \ প্রায় \ স্কয়ার্ট {rac frac {h '' (টি, x_t) {{2 \ পাই}} \ এক্সপ্রেস (কে (টি) -t x_t) হিসাবে স্যাডলিপয়েন্টের সান্নিধ্যের (প্রথম সংস্করণ) দেয় (প্রথম সংস্করণ
(*)f(xt)h(t,xt)2πexp(K(t)txt)
নোট করুন যে অনুমানের একটি তাত্পর্যপূর্ণ পরিবারের ফর্ম রয়েছে।

এটি আরও কার্যকর আকারে পাওয়ার জন্য এখন আমাদের কিছু কাজ করা দরকার।

থেকে আমরা পেতে থেকে সম্মান সঙ্গে এই পার্থক্য দেয় (আমাদের অনুমানের দ্বারা), সুতরাং এবং মধ্যে সম্পর্ক , তাই ভাল সংজ্ঞায়িত। আমাদের একটি অনুমানের প্রয়োজন । সেই লক্ষ্যে, আমরাh(t,xt)=0

t=xtlogf(xt).
xt
txt=2xt2logf(xt)>0
txtxtxtlogf(xt)(*)
(**)logf(xt)=K(t)txt12log2π2xt2logf(xt).
উপরের শেষ শব্দটি ধরে নেওয়া কেবলমাত্র উপর নির্ভর করে দুর্বলভাবে নির্ভর করে তাই এর সাথে সম্পর্কিত এর প্রায় শূন্য (আমরা এ বিষয়ে মন্তব্য করতে ফিরে আসব), আমরা এই পরে আমরা তারপরে যাতে এবং অবশ্যই সমীকরণের মাধ্যমে সম্পর্কিত হতে পারে যাকে স্যাডলিপয়েন্ট সমীকরণ বলা হয়। xtxt
logf(xt)xt(K(t)xt)txtt
0t+logf(xt)xt=(K(t)xt)txt
txt
(§)K(t)xt=0,

আমরা কি নির্ণয় করা এখন মিস্ হয় এবং আমরা স্যাডলিপয়েন্ট সমীকরণ : অন্তর্নিহিত পৃথক পৃথকীকরণের মাধ্যমে খুঁজে পেতে পারি ফলাফলটি হল (আমাদের অনুমান অবধি) everything সমস্ত কিছু একসাথে রাখলে, আমাদের ঘনত্বের এর চূড়ান্ত স্যাডলিপয়েন্ট থাকে হিসাবে (*)

h(t,xt)=2logf(xt)xt2=xt(logf(xt)xt)=xt(t)=(xtt)1
K(t)=xt
xtt=K(t).
h(t,xt)=1K(t)
f(x)
f(xt)eK(t)txt12πK(t).
এখন, এই কার্যকরীভাবে একটি নির্দিষ্ট সময়ে ঘনত্ব আনুমানিক ব্যবহার করতে, , আমরা যে জন্য saddlepoint সমীকরণ সমাধান এটি ।xtxtt

Saddlepoint পড়তা প্রায়ই উপর ভিত্তি করে গড় ঘনত্ব একটি পড়তা হিসাবে বলা IID পর্যবেক্ষণ । গড়ের সংমিশ্রণ উত্পন্ন ফাংশনটি কেবল , সুতরাং গড়ের জন্য স্যাডলপয়েন্টটি প্রায় অনুভূতি হয়ে যায় nX1,X2,,XnnK(t)

f(x¯t)=enK(t)ntx¯tn2πK(t)

আসুন প্রথম উদাহরণটি দেখুন। আমরা যদি স্ট্যান্ডার্ড স্বাভাবিক ঘনত্ব মিলিগ্রাম প্রায়) চেষ্টা করি তবে আমরা কী পেতে পারি? সুতরাং সুতরাং স্যাডলপয়েন্ট সমীকরণটি এবং স্যাডলিপয়েন্টের সমীকরণটি দেয় সুতরাং এক্ষেত্রে আনুমানিক সঠিকতা।

f(x)=12πe12x2
M(t)=exp(12t2)
K(t)=12t2K(t)=tK(t)=1
t=xt
f(xt)e12t2txt12π1=12πe12xt2

আসুন আমরা একটি খুব আলাদা অ্যাপ্লিকেশনটি দেখি: ট্রান্সফর্ম ডোমেনে বুটস্ট্র্যাপ করে আমরা বুটস্ট্র্যাপ বন্টনকে স্যাডলিপয়েন্টের সান্নিধ্য ব্যবহার করে বিশ্লেষণমূলকভাবে বুটস্ট্র্যাপিং করতে পারি!

ধরুন আমাদের কাছে iid কিছু ঘনত্বের থেকে বিতরণ করা হয়েছে (সিমুলেটেড উদাহরণে আমরা ইউনিট এক্সফোনেনশিয়াল ডিস্ট্রিবিউশন ব্যবহার করব)। নমুনা থেকে আমরা মুহুর্ত উত্পন্ন ফাংশন calc এবং তারপরে অনুশীলনীয় সিজিএফ গণনা করি । আমাদের গড়ের জন্য এমপিরিয়াল এমজিএফ প্রয়োজন যা এবং জন্য অনুপ্রেরণামূলক সিজিএফ যা আমরা একটি স্যাডলিপয়েন্ট আনুমানিক তৈরি করতে ব্যবহার করি। নিম্নলিখিত কয়েকটি আর কোডে (আর সংস্করণ 3.2.3): X1,X2,,Xnf

M^(t)=1ni=1netxi
K^(t)=logM^(t)log(M^(t/n)n)
K^X¯(t)=nlogM^(t/n)

set.seed(1234)
x  <-  rexp(10)

require(Deriv)   ### From CRAN
drule[["sexpmean"]]   <-  alist(t=sexpmean1(t))  # adding diff rules to 
                                                 # Deriv
drule[["sexpmean1"]]  <-  alist(t=sexpmean2(t))

###

make_ecgf_mean  <-   function(x)   {
    n  <-  length(x)
    sexpmean  <-  function(t) mean(exp(t*x))
    sexpmean1 <-  function(t) mean(x*exp(t*x))
    sexpmean2 <-  function(t) mean(x*x*exp(t*x))
    emgf  <-  function(t) sexpmean(t)
    ecgf  <-   function(t)  n * log( emgf(t/n) )
    ecgf1 <-   Deriv(ecgf)
    ecgf2 <-   Deriv(ecgf1)
    return( list(ecgf=Vectorize(ecgf),
                 ecgf1=Vectorize(ecgf1),
                 ecgf2 =Vectorize(ecgf2) )    )
}

### Now we need a function solving the saddlepoint equation and constructing
### the approximation:
###

make_spa <-  function(cumgenfun_list) {
    K  <- cumgenfun_list[[1]]
    K1 <- cumgenfun_list[[2]]
    K2 <- cumgenfun_list[[3]]
    # local function for solving the speq:
    solve_speq  <-  function(x) {
          # Returns saddle point!
          uniroot(function(s) K1(s)-x,lower=-100,
                  upper = 100, 
                  extendInt = "yes")$root
}
    # Function finding fhat for one specific x:
    fhat0  <- function(x) {
        # Solve saddlepoint equation:
        s  <-  solve_speq(x)
        # Calculating saddlepoint density value:
        (1/sqrt(2*pi*K2(s)))*exp(K(s)-s*x)
    }
    # Returning a vectorized version:
    return(Vectorize(fhat0))
} #end make_fhat

(আমি এটিকে সাধারণ কোড হিসাবে লেখার চেষ্টা করেছি যা অন্যান্য সিজিএফএসের জন্য সহজেই সংশোধন করা যায়, তবে কোডটি এখনও খুব জোরালো নয় ...)

তারপরে আমরা একে একক ঘনিষ্ঠ বিতরণ থেকে দশটি স্বতন্ত্র পর্যবেক্ষণের নমুনার জন্য ব্যবহার করি। আমরা সাধারন ননপ্যারামেট্রিক বুটস্ট্র্যাপিং "হাত দিয়ে" করি, ফলস্বরূপ ফলস্বরূপ বুটস্ট্র্যাপ হিস্টোগ্রামটি প্লট করি, এবং স্যাডলিপয়েন্টের সান্নিধ্যকে অতিক্রম করি:

> ECGF  <- make_ecgf_mean(x)
> fhat  <-  make_spa(ECGF)
> fhat
function (x) 
{
    args <- lapply(as.list(match.call())[-1L], eval, parent.frame())
    names <- if (is.null(names(args))) 
        character(length(args))
    else names(args)
    dovec <- names %in% vectorize.args
    do.call("mapply", c(FUN = FUN, args[dovec], MoreArgs = list(args[!dovec]), 
        SIMPLIFY = SIMPLIFY, USE.NAMES = USE.NAMES))
}
<environment: 0x4e5a598>
> boots  <-  replicate(10000, mean(sample(x, length(x), replace=TRUE)), simplify=TRUE)
> boots  <-  replicate(10000, mean(sample(x, length(x), replace=TRUE)), simplify=TRUE)
> hist(boots, prob=TRUE)
> plot(fhat, from=0.001, to=2, col="red", add=TRUE)

ফলস্বরূপ প্লট প্রদান:

বুটস্ট্র্যাপ বিতরণের স্যাডলিপয়েন্ট

অনুমানটি বরং ভাল বলে মনে হচ্ছে!

আমরা স্যাডলপয়েন্টের সান্নিধ্যকে একীভূত করে এবং পুনরুদ্ধার করে এর থেকে আরও ভাল আনুমানিকতা পেতে পারি:

> integrate(fhat, lower=0.1, upper=2)
1.026476 with absolute error < 9.7e-07

এখন এই সংখ্যার উপর ভিত্তি করে ক্রমবর্ধমান বিতরণ ফাংশনটি সংখ্যার একীকরণের মাধ্যমে পাওয়া যেতে পারে তবে এটির জন্য সরাসরি স্যাডলিপয়েন্টের সান্নিধ্য তৈরি করাও সম্ভব। তবে এটি অন্য পোস্টের জন্য, এটি যথেষ্ট দীর্ঘ।

অবশেষে, কিছু মন্তব্য উপরের উন্নয়নের বাইরে রেখে গেছে। In এ আমরা তৃতীয় শব্দটিকে অগ্রাহ্য করে প্রায় একটি । কেন আমরা এটা করতে পারি? একটি পর্যবেক্ষণ হ'ল সাধারণ ঘনত্বের ক্রিয়াকলাপের জন্য, বাম-আউট টার্মটি কোনওরকম অবদান রাখে না, যাতে আনুমানিকতাটি সঠিক। সুতরাং, যেহেতু স্যাডলিপয়েন্ট-সান্নিধ্যটি কেন্দ্রীয় সীমাবদ্ধ তত্ত্বটির একটি সংশোধন, সুতরাং আমরা কিছুটা স্বাভাবিকের কাছাকাছি, সুতরাং এটি ভালভাবে কাজ করা উচিত। একটি নির্দিষ্ট উদাহরণগুলিও দেখতে পারে। পইসন বিতরণে স্যাডলিপয়েন্টের সান্নিধ্যের দিকে তাকানো, সেই বাম-আউট তৃতীয় মেয়াদের দিকে তাকানো, এই ক্ষেত্রে এটি একটি ট্রাইগমা ফাংশনে পরিণত হয়, যা তর্কটি শূন্যের কাছাকাছি না থাকলে প্রকৃতপক্ষে সমতল হয়।(**)

অবশেষে নাম কেন? নামটি জটিল-বিশ্লেষণ কৌশলগুলি ব্যবহার করে বিকল্প ডেরাইভেশন থেকে এসেছে। পরে আমরা এটি দেখতে পারি, তবে অন্য পোস্টে!


4
আপনার এতক্ষণ যা আছে তা দুর্দান্ত। সেখানে উন্নয়ন খুব স্পষ্ট।
Glen_b

1
কেজিটিল আমি চারটি ছোট টাইপগুলি ঠিক করার চেষ্টা করেছি। "" বিকাশে আমি অনুমানের কাজ করতে " " " অনুসরণ করব " 3. " আমরা এখন যা মিস করি " 4. " দুঃখের বিষয়টির অন্তর্নিহিত পার্থক্য " তবে এটি করার ক্ষেত্রে দেখে মনে হচ্ছে আমি আপনার সমীকরণগুলির একটি ভেঙে দিয়েছি - কীভাবে আমি জানি না, যেহেতু আমি those পাঠ্য আইটেমগুলি ছাড়া কিছুই পরিবর্তন করি নি (যেমন আপনি সম্পাদনার ইতিহাস থেকে দেখতে পারেন)। আমি এটিকে আবার রোল করব তবে যেহেতু আমি ব্যাখ্যা করতে পারছি না যে কীভাবে এই ত্রুটিগুলি ঠিক করা একটি সমস্যার সৃষ্টি করেছে আমি আরও সমস্যা তৈরি করতে চাই না। আমার ক্ষমা। (এডিট সেশনটি খোলার সাথে সাথে এটি দেখতে দেখতে দেখতে মনে হয়েছিল)
গ্লেন_বি

1
সম্পাদনা কোডে একটি ম্যাথজ্যাক্স বাগ বা একটি বাগ রয়েছে যা এই সমস্যার দিকে নিয়ে যায় এটি সম্ভব।
Glen_b

1
@Christoph Hanck: কিছু specifix একটি পড়তা পেতে , আপনি saddlepoint সমীকরণ সমাধান এটি । xt(§)t
কেজেটিল বি হালওয়ারসেন

2
হতে পারে এটি উল্লেখ করা মূল্যবান যে, যখন অভিজ্ঞতাজনিত সিজিএফ ব্যবহার করা হয়, ফলস্বরূপ স্যাডলিপয়েন্টটি অনুমানের তথ্যটির উত্তল হলের বাইরে অপরিবর্তিত থাকে। Feuerverger (1989) "এম্পিরিকাল স্যাডলিপয়েন্টের আনুমানিক" See উপরের বুটস্ট্র্যাপ উদাহরণেও এটি হওয়া উচিত।
মাত্তেও ফ্যাসিওলো

15

এখানে আমি কেজিটিলের উত্তরের উপর প্রসারিত করেছি এবং আমি সেই পরিস্থিতিতে মনোনিবেশ করেছি যেখানে কুমুল্যান্ট জেনারেটিং ফাংশন (সিজিএফ) অজানা, তবে এটি ডেটা থেকে অনুমান করা যায় , যেখানে । সবচেয়ে সহজ সিজিএফ অনুমানক সম্ভবত ডেভিসন এবং হিঙ্কলির (1988) যা কেজেটিলের বুটস্ট্র্যাপ উদাহরণে ব্যবহৃত হয়। এই মূল্নির্ধারক অসুবিধা হল যে ফলে saddlepoint সমীকরণ রয়েছে সমাধান করা যেতে পারে শুধুমাত্র যদি , পয়েন্ট যা আমরা saddlepoint ঘনত্ব নির্ণয় করা চাই, এর উত্তল জাহাজের কাঠাম মধ্যে বৃক্ষের পতন হয় ।x1,,xnxRd

K^(λ)=1ni=1neλTxi,
K^(λ)=y,
yx1,,xn

ওয়াং (1992) এবং ফ্যাসিওলো এট আল। (2016) দুই বিকল্প CGF estimators, এমনভাবে saddlepoint সমীকরণ কোন সমাধান করা যেতে পারে মধ্যে পরিকল্পিত প্রস্তাব করে আপনি এই সমস্যার সুরাহা । ফ্যাসিওলো এট এর সমাধান। (2016), বর্ধিত এম্পিরিকাল স্যাডলিপয়েন্ট অ্যাডক্সিমেশন ইএসএ নামে পরিচিত, এসডাল আর প্যাকেজে প্রয়োগ করা হয়েছে এবং আমি এখানে বেশ কয়েকটি উদাহরণ দিচ্ছি।y

একটি সাধারণ অবিচ্ছিন্ন উদাহরণ হিসাবে, আনুমানিক একটি ঘনত্বের জন্য ESA ব্যবহার বিবেচনা করুন ।Gamma(2,1)

library("devtools")
install_github("mfasiolo/esaddle")
library("esaddle")

########## Simulating data
x <- rgamma(1000, 2, 1)

# Fixing tuning parameter of ESA
decay <-  0.05

# Evaluating ESA at several point
xSeq <- seq(-2, 8, length.out = 200)
tmp <- dsaddle(y = xSeq, X = x, decay = decay, log = TRUE)

# Plotting true density, ESA and normal approximation
plot(xSeq, exp(tmp$llk), type = 'l', ylab = "Density", xlab = "x")
lines(xSeq, dgamma(xSeq, 2, 1), col = 3)
lines(xSeq, dnorm(xSeq, mean(x), sd(x)), col = 2)
suppressWarnings( rug(x) )
legend("topright", c("ESA", "Truth", "Gaussian"), col = c(1, 3, 2), lty = 1)

এই ফিট

এখানে চিত্র বর্ণনা লিখুন

কম্বলটির দিকে তাকালে এটা স্পষ্ট হয় যে আমরা ESA ঘনত্বের তথ্যের ব্যাপ্তির বাইরে মূল্যায়ন করেছি। আরও চ্যালেঞ্জিং উদাহরণ হ'ল নিম্নলিখিত রেপড বাইভারিয়েট গাউসিয়ান।

# Function that evaluates the true density
dwarp <- function(x, alpha) {
  d <- length(alpha) + 1
  lik <- dnorm(x[ , 1], log = TRUE)
  tmp <- x[ , 1]^2
  for(ii in 2:d)
    lik <- lik + dnorm(x[ , ii] - alpha[ii-1]*tmp, log = TRUE)
  lik
}

# Function that simulates from true distribution
rwarp <- function(n = 1, alpha) {
  d <- length(alpha) + 1
  z <- matrix(rnorm(n*d), n, d)
  tmp <- z[ , 1]^2
  for(ii in 2:d) z[ , ii] <- z[ , ii] + alpha[ii-1]*tmp
  z
}

set.seed(64141)
# Creating 2d grid
m <- 50
expansion <- 1
x1 <- seq(-2, 3, length=m)* expansion; 
x2 <- seq(-3, 3, length=m) * expansion
x <- expand.grid(x1, x2) 

# Evaluating true density on grid
alpha <- 1
dw <- dwarp(x, alpha = alpha)

# Simulate random variables
X <- rwarp(1000, alpha = alpha)

# Evaluating ESA density
dwa <- dsaddle(as.matrix(x), X, decay = 0.1, log = FALSE)$llk

# Plotting true density
par(mfrow = c(1, 2))
plot(X, pch=".", col=1, ylim = c(min(x2), max(x2)), xlim = c(min(x1), max(x1)),
     main = "True density", xlab = expression(X[1]), ylab = expression(X[2]))
contour(x1, x2, matrix(dw, m, m), levels = quantile(as.vector(dw), seq(0.8, 0.995, length.out = 10)), col=2, add=T)

# Plotting ESA density
plot(X, pch=".",col=2, ylim = c(min(x2), max(x2)), xlim = c(min(x1), max(x1)),
     main = "ESA density", xlab = expression(X[1]), ylab = expression(X[2]))
contour(x1, x2, matrix(dwa, m, m), levels = quantile(as.vector(dwa), seq(0.8, 0.995, length.out = 10)), col=2, add=T)

এখানে চিত্র বর্ণনা লিখুন

ফিট বেশ ভাল।


9

কেজিলের দুর্দান্ত উত্তরের জন্য ধন্যবাদ আমি নিজেই একটি সামান্য উদাহরণ নিয়ে আসার চেষ্টা করছি, যা আমি আলোচনা করতে চাই কারণ এটি মনে হয় কোনও প্রাসঙ্গিক বিষয় উত্থাপন করেছে:

বিবেচনা করুন বন্টন। এবং এর ডেরাইভেটিভগুলি এখানে পাওয়া যাবে এবং নীচের কোডটিতে ফাংশনগুলিতে পুনরুত্পাদন করা হবে। χ2(m)K(t)

x <- seq(0.01,20,by=.1)
m <- 5

K  <- function(t,m) -1/2*m*log(1-2*t)
K1 <- function(t,m) m/(1-2*t)
K2 <- function(t,m) 2*m/(1-2*t)^2

saddlepointapproximation <- function(x) {
  t <- .5-m/(2*x)
  exp( K(t,m)-t*x )*sqrt( 1/(2*pi*K2(t,m)) )
}
plot( x, saddlepointapproximation(x), type="l", col="salmon", lwd=2)
lines(x, dchisq(x,df=m), col="lightgreen", lwd=2)

এটি উত্পাদন করে

এখানে চিত্র বর্ণনা লিখুন

এটি স্পষ্টতই একটি আনুমানিক উত্পাদন করে যা ঘনত্বের গুণগত বৈশিষ্ট্যগুলি সঠিকভাবে পায়, তবে কেজিলের মন্তব্যে নিশ্চিত হয়েছে যে এটি যথাযথ ঘনত্ব নয়, কারণ এটি সর্বত্র যথাযথ ঘনত্বের উপরে। নীচের অনুসারে আনুমানিক পুনরায় সঞ্চালন নীচে প্লট করা প্রায় নগণ্য আনুমানিক ত্রুটি দেয়।

scalingconstant <- integrate(saddlepointapproximation, x[1], x[length(x)])$value

approximationerror_unscaled <- dchisq(x,df=m) - saddlepointapproximation(x)
approximationerror_scaled   <- dchisq(x,df=m) - saddlepointapproximation(x) /
                                                    scalingconstant

plot( x, approximationerror_unscaled, type="l", col="salmon", lwd=2)
lines(x, approximationerror_scaled,             col="blue",   lwd=2)

এখানে চিত্র বর্ণনা লিখুন


1
এটি একটি বৈশিষ্ট্য, স্যাডলিপয়েন্টের আনুমানিক একটিতে সংহত করার প্রয়োজন হয় না, তবে প্রায়শই নিকটে থাকে। এটি সংখ্যার একীকরণের মাধ্যমে পুনরুদ্ধার করা যায়।
কেজেটিল বি হালওয়ারসেন

এটি আপেক্ষিক ত্রুটি চক্রান্ত আরও প্রকাশ করতে পারে!
কেজেটিল বি হালওয়ারসেন

approximationerror_unscaled/approximationerror_scaled25.90798 এর আশেপাশে ঘোরাফেরা করতে বেরিয়েছে
ক্রিস্টোফ
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.