tl; dr: null के तहत जनरेट किए गए डेटासेट के साथ शुरू करके, मैंने मामलों को प्रतिस्थापन के साथ बदल दिया और प्रत्येक resamped डाटासेट पर एक परिकल्पना परीक्षण किया। ये परिकल्पना परीक्षण समय के 5% से अधिक को अस्वीकार करते हैं।
नीचे, बहुत सरल सिमुलेशन में, मैं साथ डेटासेट उत्पन्न करता हूं , और मैं प्रत्येक के लिए एक साधारण OLS मॉडल फिट करता हूं। फिर, प्रत्येक डाटासेट के लिए, मैं प्रतिस्थापन के साथ मूल डेटासेट की पंक्तियों को फिर से जमा करके 1000 नए डेटासेट उत्पन्न करता हूं (एक एल्गोरिथ्म जो विशेष रूप से डेविसन और हिंकले के क्लासिक पाठ में रैखिक प्रतिगमन के लिए उपयुक्त होने के रूप में वर्णित है)। उनमें से प्रत्येक के लिए, मैं एक ही ओएलएस मॉडल फिट करता हूं। अंत में, बूटस्ट्रैप नमूनों के भीतर लगभग 16% परिकल्पना परीक्षण अशक्त को अस्वीकार करते हैं , जबकि हमें 5% (जैसा कि हम मूल डेटासेट में करते हैं) मिलना चाहिए।
मुझे संदेह था कि फुलाए गए संघों के कारण बार-बार टिप्पणियों के साथ कुछ करना है, इसलिए तुलना के लिए, मैंने नीचे दिए गए कोड में दो अन्य तरीकों की कोशिश की (टिप्पणी की)। विधि 2 में, मैं ठीक करता हूं , फिर मूल डेटासेट पर OLS मॉडल से resampled अवशिष्ट के साथ को प्रतिस्थापित करता हूं । विधि 3 में, मैं प्रतिस्थापन के बिना एक यादृच्छिक सदस्यता को आकर्षित करता हूं। ये दोनों विकल्प काम करते हैं, यानी, उनकी परिकल्पना परीक्षण समय के शून्य 5% को अस्वीकार करते हैं।वाई
मेरा प्रश्न: क्या मैं सही हूं कि बार-बार अवलोकनीय अपराधी हैं? यदि हां, तो यह देखते हुए कि यह बूटस्ट्रैपिंग के लिए एक मानक दृष्टिकोण है, जहां वास्तव में हम मानक बूटस्ट्रैप सिद्धांत का उल्लंघन कर रहे हैं?
अपडेट # 1: अधिक सिमुलेशन
मैंने एक और भी सरल परिदृश्य की कोशिश की, लिए एक अवरोधन-केवल प्रतिगमन मॉडल । वही समस्या होती है।
# note: simulation takes 5-10 min on my laptop; can reduce boot.reps
# and n.sims.run if wanted
# set the number of cores: can change this to match your machine
library(doParallel)
registerDoParallel(cores=8)
boot.reps = 1000
n.sims.run = 1000
for ( j in 1:n.sims.run ) {
# make initial dataset from which to bootstrap
# generate under null
d = data.frame( X1 = rnorm( n = 1000 ), Y1 = rnorm( n = 1000 ) )
# fit OLS to original data
mod.orig = lm( Y1 ~ X1, data = d )
bhat = coef( mod.orig )[["X1"]]
se = coef(summary(mod.orig))["X1",2]
rej = coef(summary(mod.orig))["X1",4] < 0.05
# run all bootstrap iterates
parallel.time = system.time( {
r = foreach( icount( boot.reps ), .combine=rbind ) %dopar% {
# Algorithm 6.2: Resample entire cases - FAILS
# residuals of this model are repeated, so not normal?
ids = sample( 1:nrow(d), replace=TRUE )
b = d[ ids, ]
# # Method 2: Resample just the residuals themselves - WORKS
# b = data.frame( X1 = d$X1, Y1 = sample(mod.orig$residuals, replace = TRUE) )
# # Method 3: Subsampling without replacement - WORKS
# ids = sample( 1:nrow(d), size = 500, replace=FALSE )
# b = d[ ids, ]
# save stats from bootstrap sample
mod = lm( Y1 ~ X1, data = b )
data.frame( bhat = coef( mod )[["X1"]],
se = coef(summary(mod))["X1",2],
rej = coef(summary(mod))["X1",4] < 0.05 )
}
} )[3]
###### Results for This Simulation Rep #####
r = data.frame(r)
names(r) = c( "bhat.bt", "se.bt", "rej.bt" )
# return results of each bootstrap iterate
new.rows = data.frame( bt.iterate = 1:boot.reps,
bhat.bt = r$bhat.bt,
se.bt = r$se.bt,
rej.bt = r$rej.bt )
# along with results from original sample
new.rows$bhat = bhat
new.rows$se = se
new.rows$rej = rej
# add row to output file
if ( j == 1 ) res = new.rows
else res = rbind( res, new.rows )
# res should have boot.reps rows per "j" in the for-loop
# simulation rep counter
d$sim.rep = j
} # end loop over j simulation reps
##### Analyze results #####
# dataset with only one row per simulation
s = res[ res$bt.iterate == 1, ]
# prob of rejecting within each resample
# should be 0.05
mean(res$rej.bt); mean(s$rej)
अपडेट # 2: जवाब
टिप्पणियों और उत्तरों में कई संभावनाएं प्रस्तावित की गईं, और मैंने उन्हें अनुभवजन्य रूप से परीक्षण करने के लिए अधिक सिमुलेशन किया। यह पता चलता है कि JWalker सही है कि समस्या यह है कि हमें तहत सही नमूना वितरण प्राप्त करने के लिए मूल डेटा के अनुमान से बूटस्ट्रैप आँकड़ों को केन्द्रित करने की आवश्यकता है । हालांकि, मुझे यह भी लगता है कि पैरामीट्रिक परीक्षण मान्यताओं का उल्लंघन करने के बारे में व्हिबर की टिप्पणी भी सही है, हालांकि इस मामले में हम वास्तव में नाममात्र की झूठी सकारात्मकता प्राप्त करते हैं जब हम जॉल्कर की समस्या को ठीक करते हैं।
ids
ids <- unique(ids)