@jbowman के आकलन की समस्या के लिए एक अच्छा (अच्छा) मानक समाधान प्रदान करता है जिसे तनाव-शक्ति मॉडल के रूप में जाना जाता है ।θ = पी( एक्स)< य)
इस मामले के लिए बक्लिज़ी और ईदौस (2006) में एक और गैरपारंपरिक विकल्प प्रस्तावित किया गया था जहां और वाई स्वतंत्र हैं। यह नीचे वर्णित है।एक्सY
परिभाषा से हमारे पास ऐसा है
θ = पी( एक्स)< य) = ∫∞- ∞एफएक्स( y) चY( y) dy,
जहां की CDF है एक्स और च Y का घनत्व है वाई । फिर, के नमूने का उपयोग एक्स और वाई हम प्राप्त कर सकते हैं गिरी आकलनकर्ता के एफ एक्स और च Y और फलस्वरूप और की आकलनकर्ता θएफएक्सएक्सचYYएक्सYएफएक्सचYθ
θ^= ∫∞- ∞एफ^एक्स( y) च^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))
अन्य प्रकार के बूटस्ट्रैप अंतराल को भी माना जा सकता है।