लेप्टोकोर्टिक डेटा का वर्णन करने और बदलने के लिए मैं भारी पूंछ लैंबर्ट डब्ल्यू एक्स एफ वितरण का उपयोग करता हूं। अधिक विवरण और संदर्भ के लिए निम्नलिखित पोस्ट देखें (मेरे):
यहाँ LambertW R पैकेज का उपयोग कर एक प्रतिलिपि प्रस्तुत करने योग्य उदाहरण है ।
library(LambertW)
set.seed(1)
theta.tmp <- list(beta = c(2000, 400), delta = 0.2)
yy <- rLambertW(n = 100, distname = "normal",
theta = theta.tmp)
test_norm(yy)
## $seed
## [1] 267509
##
## $shapiro.wilk
##
## Shapiro-Wilk normality test
##
## data: data.test
## W = 1, p-value = 0.008
##
##
## $shapiro.francia
##
## Shapiro-Francia normality test
##
## data: data.test
## W = 1, p-value = 0.003
##
##
## $anderson.darling
##
## Anderson-Darling normality test
##
## data: data
## A = 1, p-value = 0.01
की qqplot yy
मूल पोस्ट में बहुत अपने qqplot के करीब है और डेटा वास्तव में इसलिए आपके डेटा में अच्छी तरह से एक लैम्बर्ट डब्ल्यू द्वारा वर्णित किया जा सकता उसे 5 के कुकुदता के साथ थोड़ा leptokurtic है इनपुट के साथ गाऊसी वितरण और का एक टेल पैरामीटर (जिसका तात्पर्य है कि ऑर्डर करने के लिए केवल कुछ क्षणों में मौजूद है)।एक्स ~ एन ( 2000 , 400 ) δ = 0.2 ≤ 5×एक्स∼ एन( 2000 , 400 )δ= ०.२≤ ५
अब अपने प्रश्न पर वापस जाएं: इस लेप्टोकर्टिक डेटा को फिर से सामान्य कैसे बनाया जाए? खैर, हम MLE का उपयोग करके वितरण के मापदंडों का अनुमान लगा सकते हैं (या क्षणों के उपयोग के तरीकों के लिए IGMM()
),
mod.Lh <- MLE_LambertW(yy, distname = "normal", type = "h")
summary(mod.Lh)
## Call: MLE_LambertW(y = yy, distname = "normal", type = "h")
## Estimation method: MLE
## Input distribution: normal
##
## Parameter estimates:
## Estimate Std. Error t value Pr(>|t|)
## mu 2.05e+03 4.03e+01 50.88 <2e-16 ***
## sigma 3.64e+02 4.36e+01 8.37 <2e-16 ***
## delta 1.64e-01 7.84e-02 2.09 0.037 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## --------------------------------------------------------------
##
## Given these input parameter estimates the moments of the output random variable are
## (assuming Gaussian input):
## mu_y = 2052; sigma_y = 491; skewness = 0; kurtosis = 13.
और उसके बाद का उपयोग द्विभाजित उलटा परिवर्तन (के आधार पर W_delta()
इनपुट करने के लिए डेटा backtransform करने के लिए) डिजाइन द्वारा - - बहुत एक सामान्य के करीब होना चाहिए, जो।एक्स
# get_input() handles does the right transformations automatically based on
# estimates in mod.Lh
xx <- get_input(mod.Lh)
test_norm(xx)
## $seed
## [1] 218646
##
## $shapiro.wilk
##
## Shapiro-Wilk normality test
##
## data: data.test
## W = 1, p-value = 1
##
##
## $shapiro.francia
##
## Shapiro-Francia normality test
##
## data: data.test
## W = 1, p-value = 1
##
##
## $anderson.darling
##
## Anderson-Darling normality test
##
## data: data
## A = 0.1, p-value = 1
देखा!