भारी पूंछ वाले लैम्बर्ट डब्ल्यू एक्स एफ या तिरछे लैम्बर्ट डब्ल्यू एक्स एफ वितरण पर एक नज़र डालें (अस्वीकरण: मैं लेखक हूं)। आर में उन्हें लैंबर्टडब्ल्यू पैकेज में लागू किया जाता है।
संबंधित पोस्ट:
yएक्स
यहां इक्विटी फंड रिटर्न पर लागू लैम्बर्ट डब्ल्यू एक्स गौसियन अनुमानों का एक उदाहरण है।
library(fEcofin)
ret <- ts(equityFunds[, -1] * 100)
plot(ret)
रिटर्न के सारांश मैट्रिक्स ओपी के पद के समान ही हैं (चरम के रूप में नहीं)।
data_metrics <- function(x) {
c(mean = mean(x), sd = sd(x), min = min(x), max = max(x),
skewness = skewness(x), kurtosis = kurtosis(x))
}
ret.metrics <- t(apply(ret, 2, data_metrics))
ret.metrics
## mean sd min max skewness kurtosis
## EASTEU 0.1300 1.538 -18.42 12.38 -1.855 28.95
## LATAM 0.1206 1.468 -6.06 5.66 -0.434 4.21
## CHINA 0.0864 0.911 -4.71 4.27 -0.322 5.42
## INDIA 0.1515 1.502 -12.72 14.05 -0.505 15.22
## ENERGY 0.0997 1.187 -5.00 5.02 -0.271 4.48
## MINING 0.1315 1.394 -7.72 5.69 -0.692 5.64
## GOLD 0.1098 1.855 -10.14 6.99 -0.350 5.11
## WATER 0.0628 0.748 -5.07 3.72 -0.405 6.08
अधिकांश श्रृंखला स्पष्ट रूप से गैर-सामान्य विशेषताओं (मजबूत तिरछापन और / या बड़े कुर्तोसिस) दिखाती है। चलो प्रत्येक श्रृंखला को एक भारी पूंछ वाले लैंबर्ट डब्ल्यू एक्स गॉसियन वितरण (= टुके के एच) का उपयोग करते हुए क्षणों के आकलनकर्ता ( IGMM
) के तरीकों का उपयोग करते हैं ।
library(LambertW)
ret.gauss <- Gaussianize(ret, type = "h", method = "IGMM")
colnames(ret.gauss) <- gsub(".X", "", colnames(ret.gauss))
plot(ts(ret.gauss))
समय श्रृंखला के भूखंड बहुत कम पूंछ दिखाते हैं और समय के साथ अधिक स्थिर भिन्नता (हालांकि स्थिर नहीं है)। गॉसिसाइज्ड टाइम सीरीज़ की पैदावार पर फिर से मेट्रिक्स की गणना:
ret.gauss.metrics <- t(apply(ret.gauss, 2, data_metrics))
ret.gauss.metrics
## mean sd min max skewness kurtosis
## EASTEU 0.1663 0.962 -3.50 3.46 -0.193 3
## LATAM 0.1371 1.279 -3.91 3.93 -0.253 3
## CHINA 0.0933 0.734 -2.32 2.36 -0.102 3
## INDIA 0.1819 1.002 -3.35 3.78 -0.193 3
## ENERGY 0.1088 1.006 -3.03 3.18 -0.144 3
## MINING 0.1610 1.109 -3.55 3.34 -0.298 3
## GOLD 0.1241 1.537 -5.15 4.48 -0.123 3
## WATER 0.0704 0.607 -2.17 2.02 -0.157 3
IGMM
3Gaussianize()
scale()
सिंपल बिवरिएट रिग्रेशन
आरइअ सटीइयू, टीआरमैंएनडी आईए , टी
layout(matrix(1:2, ncol = 2, byrow = TRUE))
plot(ret[, "INDIA"], ret[, "EASTEU"])
grid()
plot(ret.gauss[, "INDIA"], ret.gauss[, "EASTEU"])
grid()
मूल श्रृंखला के बाएं स्कैल्प्लॉट से पता चलता है कि मजबूत आउटलेर एक ही दिन में नहीं थे, लेकिन भारत और यूरोप में अलग-अलग समय पर; इसके अलावा यह स्पष्ट नहीं है कि यदि केंद्र में डेटा क्लाउड कोई सहसंबंध या नकारात्मक / सकारात्मक निर्भरता का समर्थन नहीं करता है। चूंकि आउटलेर्स दृढ़ता से विचरण और सहसंबंध के अनुमानों को प्रभावित करते हैं, इसलिए यह निर्भरता को देखने के लिए है कि हटाए गए भारी पूंछ (सही स्कैटरप्लॉट) के साथ निर्भरता है। यहां पैटर्न बहुत अधिक स्पष्ट हैं और भारत और पूर्वी यूरोप के बाजार के बीच सकारात्मक संबंध स्पष्ट हो जाता है।
# try these models on your own
mod <- lm(EASTEU ~ INDIA * CHINA, data = ret)
mod.robust <- rlm(EASTEU ~ INDIA, data = ret)
mod.gauss <- lm(EASTEU ~ INDIA, data = ret.gauss)
summary(mod)
summary(mod.robust)
summary(mod.gauss)
दानेदार करणीयता
वीएक आर ( 5 )पी = 5
library(vars)
mod.vars <- vars::VAR(ret[, c("EASTEU", "INDIA")], p = 5)
causality(mod.vars, "INDIA")$Granger
##
## Granger causality H0: INDIA do not Granger-cause EASTEU
##
## data: VAR object mod.vars
## F-Test = 3, df1 = 5, df2 = 3000, p-value = 0.02
causality(mod.vars, "EASTEU")$Granger
##
## Granger causality H0: EASTEU do not Granger-cause INDIA
##
## data: VAR object mod.vars
## F-Test = 4, df1 = 5, df2 = 3000, p-value = 0.003
हालांकि, गाऊसीकृत डेटा के लिए जवाब अलग है! यहां परीक्षण H0 को अस्वीकार नहीं कर सकता है कि "INDIA ग्रेंजर-कारण EASTEU नहीं करता है ", लेकिन फिर भी यह अस्वीकार करता है कि "EASTEU Granger- कारण INDIA नहीं है"। इसलिए गाऊसीकृत डेटा परिकल्पना का समर्थन करता है कि यूरोपीय बाजार अगले दिन भारत में बाजार चलाते हैं।
mod.vars.gauss <- vars::VAR(ret.gauss[, c("EASTEU", "INDIA")], p = 5)
causality(mod.vars.gauss, "INDIA")$Granger
##
## Granger causality H0: INDIA do not Granger-cause EASTEU
##
## data: VAR object mod.vars.gauss
## F-Test = 0.8, df1 = 5, df2 = 3000, p-value = 0.5
causality(mod.vars.gauss, "EASTEU")$Granger
##
## Granger causality H0: EASTEU do not Granger-cause INDIA
##
## data: VAR object mod.vars.gauss
## F-Test = 2, df1 = 5, df2 = 3000, p-value = 0.06
वीएक आर ( 5 )