@jbowman এসটিমেটিং এর সমস্যার একটি (NICE) মান সমাধান প্রদান যা হিসাবে পরিচিত হয় স্ট্রেস-শক্তি মডেল।θ=P(X<Y)
এক্স এবং ওয়াই স্বতন্ত্র ক্ষেত্রে মামলার জন্য বাকলিজি এবং ousদৌস (২০০ 2006) তে আরেকটি ননপ্যারমেট্রিক বিকল্প প্রস্তাব করা হয়েছিল । এটি নীচে বর্ণিত হয়েছে।XY
সংজ্ঞা দ্বারা আমাদের এটি আছে
θ=P(X<Y)=∫∞−∞FX(y)fY(y)dy,
যেখানে এর সিডিএফ হয় এক্স এবং চ ওয়াই ঘনত্ব হয় ওয়াই । তারপর, নমুনা ব্যবহার এক্স এবং ওয়াই আমরা পেতে পারেন কার্নেল estimators এর এফ এক্স এবং চ ওয়াই এবং পরিণামে এবং মূল্নির্ধারক θFXXfYYXYFXfYθ
θ^=∫∞−∞F^X(y)f^Y(y)dy.
এটি গাউসীয় কার্নেল ব্যবহার করে নিম্নলিখিত আর কোডে প্রয়োগ করা হয়েছে।
# Optimal bandwidth
h = function(x){
n = length(x)
return((4*sqrt(var(x))^5/(3*n))^(1/5))
}
# Kernel estimators of the density and the distribution
kg = function(x,data){
hb = h(data)
k = r = length(x)
for(i in 1:k) r[i] = mean(dnorm((x[i]-data)/hb))/hb
return(r )
}
KG = function(x,data){
hb = h(data)
k = r = length(x)
for(i in 1:k) r[i] = mean(pnorm((x[i]-data)/hb))
return(r )
}
# Baklizi and Eidous (2006) estimator
nonpest = function(dat1B,dat2B){
return( as.numeric(integrate(function(x) KG(x,dat1B)*kg(x,dat2B),-Inf,Inf)$value))
}
# Example when X and Y are Cauchy
datx = rcauchy(100,0,1)
daty = rcauchy(100,0,1)
nonpest(datx,daty)
জন্য একটি আত্মবিশ্বাসের ব্যবধান পাওয়ার জন্য আপনি নীচে এই অনুমানকারীর বুটস্ট্র্যাপ নমুনা পেতে পারেন ।θ
# bootstrap
B=1000
p = rep(0,B)
for(j in 1:B){
dat1 = sample(datx,length(datx),replace=T)
dat2 = sample(daty,length(daty),replace=T)
p[j] = nonpest(dat1,dat2)
}
# histogram of the bootstrap sample
hist(p)
# A confidence interval (quantile type)
c(quantile(p,0.025),quantile(p,0.975))
অন্যান্য ধরণের বুটস্ট্র্যাপ অন্তরগুলিও বিবেচনা করা যেতে পারে।