पैमाने के कई मजबूत अनुमानक मौजूद हैं । एक उल्लेखनीय उदाहरण मंझला निरपेक्ष विचलन जो मानक विचलन से संबंधित है के रूप में है । एक बायेसियन ढांचे में, मोटे तौर पर सामान्य वितरण के स्थान का अनुमान लगाने के लिए कई तरीके मौजूद हैं (जैसे कि आउटलेर द्वारा एक सामान्य दूषित), उदाहरण के लिए, कोई मान सकता है कि डेटा वितरण या लाप्लास वितरण के रूप में वितरित किया गया है। अब मेरा सवाल:
एक सामान्य तरीके से मोटे तौर पर सामान्य वितरण के पैमाने को मापने के लिए एक बायेसियन मॉडल क्या होगा , जो एमएडी या इसी तरह के मजबूत अनुमानकों के समान मजबूत है?
जैसा कि एमएडी के मामले में है, यह साफ-सुथरा होगा यदि बायेसियन मॉडल मामले में एक सामान्य वितरण के एसडी से संपर्क कर सकता है जब डेटा का वितरण वास्तव में वितरित किया जाता है।
1 संपादित करें:
एक मॉडल का एक विशिष्ट उदाहरण है कि संदूषण / बाहरी कारकों के प्रति मजबूत है और डेटा संभालने है मोटे तौर पर सामान्य की तरह वितरण में उपयोग कर रहा है:
जहाँ माध्य है, वह पैमाना है, और डिग्री-ऑफ-फ्रीडम है। पर उपयुक्त महंतों के साथ और , की औसत के एक अनुमान हो जाएगा कि बाहरी कारकों के खिलाफ मजबूत हो जाएगा। हालांकि, के एसडी एक सुसंगत अनुमान नहीं होगा के रूप में पर निर्भर करता है । उदाहरण के लिए, यदि 4.0 के लिए तय किया जाएगा और ऊपर दिए गए मॉडल को N o r m ( μ =) से भारी संख्या में नमूने लिए जाएंगे। वितरण तो चारों ओर 0.82 होगा। मैं जो देख रहा हूं वह एक मॉडल है जो कि टी मॉडल की तरह मजबूत है, लेकिन माध्य के बजाय (या इसके अलावा) एसडी के लिए।
2 संपादित करें:
यहां R और JAGS में एक कोडित उदाहरण का अनुसरण किया गया है कि कैसे टी-मॉडल का उल्लेख किया गया है, जो माध्य के संबंध में अधिक मजबूत है।
# generating some contaminated data
y <- c( rnorm(100, mean=10, sd=10),
rnorm(10, mean=100, sd= 100))
#### A "standard" normal model ####
model_string <- "model{
for(i in 1:length(y)) {
y[i] ~ dnorm(mu, inv_sigma2)
}
mu ~ dnorm(0, 0.00001)
inv_sigma2 ~ dgamma(0.0001, 0.0001)
sigma <- 1 / sqrt(inv_sigma2)
}"
model <- jags.model(textConnection(model_string), list(y = y))
mcmc_samples <- coda.samples(model, "mu", n.iter=10000)
summary(mcmc_samples)
### The quantiles of the posterior of mu
## 2.5% 25% 50% 75% 97.5%
## 9.8 14.3 16.8 19.2 24.1
#### A (more) robust t-model ####
library(rjags)
model_string <- "model{
for(i in 1:length(y)) {
y[i] ~ dt(mu, inv_s2, nu)
}
mu ~ dnorm(0, 0.00001)
inv_s2 ~ dgamma(0.0001,0.0001)
s <- 1 / sqrt(inv_s2)
nu ~ dexp(1/30)
}"
model <- jags.model(textConnection(model_string), list(y = y))
mcmc_samples <- coda.samples(model, "mu", n.iter=1000)
summary(mcmc_samples)
### The quantiles of the posterior of mu
## 2.5% 25% 50% 75% 97.5%
##8.03 9.35 9.99 10.71 12.14