मैं समय श्रृंखला विश्लेषण करने की कोशिश कर रहा हूं और इस क्षेत्र में नया हूं। मेरे पास 2006-2009 की एक घटना की दैनिक गिनती है और मैं इसके लिए एक समय श्रृंखला मॉडल फिट करना चाहता हूं। यहां मैंने जो प्रगति की है वह है:
timeSeriesObj = ts(x,start=c(2006,1,1),frequency=365.25)
plot.ts(timeSeriesObj)
परिणामी प्लॉट मुझे मिलता है:
यह सुनिश्चित करने के लिए कि क्या मौसम और डेटा में रुझान है या नहीं, मैं इस पोस्ट में बताए गए चरणों का पालन करता हूं :
ets(x)
fit <- tbats(x)
seasonal <- !is.null(fit$seasonal)
seasonal
और रोब जे हंडमैन के ब्लॉग में :
library(fma)
fit1 <- ets(x)
fit2 <- ets(x,model="ANN")
deviance <- 2*c(logLik(fit1) - logLik(fit2))
df <- attributes(logLik(fit1))$df - attributes(logLik(fit2))$df
#P value
1-pchisq(deviance,df)
दोनों मामलों से संकेत मिलता है कि कोई भी मौसम नहीं है।
जब मैं श्रृंखला के ACF और PACF की साजिश रचता हूं, तो यहां मुझे वही मिलता है:
मेरे प्रश्न हैं:
क्या यह दैनिक समय श्रृंखला डेटा को संभालने का तरीका है? यह पृष्ठ बताता है कि मुझे साप्ताहिक और वार्षिक दोनों पैटर्न में देखना चाहिए लेकिन मेरे लिए दृष्टिकोण स्पष्ट नहीं है।
मुझे नहीं पता कि एसीएफ और पीएसीएफ प्लॉट होने के बाद मुझे कैसे आगे बढ़ना है।
क्या मैं बस auto.arima फ़ंक्शन का उपयोग कर सकता हूं?
फिट <- अरिमा (माईट्स, ऑर्डर = सी (पी, डी, क्यू)
***** अपडेट किया गया ऑटो। अरिमा परिणाम ******
जब मैं रोब Hyndman की टिप्पणी के अनुसार 7 से डेटा की आवृत्ति बदलने यहाँ , auto.arima चयन एक मौसमी ARIMA मॉडल और आउटपुट:
Series: timeSeriesObj
ARIMA(1,1,2)(1,0,1)[7]
Coefficients:
ar1 ma1 ma2 sar1 sma1
0.89 -1.7877 0.7892 0.9870 -0.9278
s.e. NaN NaN NaN 0.0061 0.0162
sigma^2 estimated as 21.72: log likelihood=-4319.23
AIC=8650.46 AICc=8650.52 BIC=8682.18
****** अद्यतित मौसमी जाँच ******
जब मैं फ्रिक्वेंसी 7 के साथ सीज़लिटी का परीक्षण करता हूं, तो यह ट्रू आउटपुट करता है, लेकिन सीज़निटी 365.25 के साथ, यह गलत आउटपुट देता है। क्या यह वार्षिक मौसम की कमी को पूरा करने के लिए पर्याप्त है?
timeSeriesObj = ts(x,start=c(2006,1,1),frequency=7)
fit <- tbats(timeSeriesObj)
seasonal <- !is.null(fit$seasonal)
seasonal
रिटर्न:
True
जबकि
timeSeriesObj = ts(x,start=c(2006,1,1),frequency=365.25)
fit <- tbats(timeSeriesObj)
seasonal <- !is.null(fit$seasonal)
seasonal
रिटर्न:
False
R
सरल में इसे संभालने की क्षमता नहीं है। यदि आप उस उत्पाद के लिए उच्च इन्वेंट्री / मैन्युफैक्चरिंग कॉस्ट शामिल करते हैं, जिसका आप पूर्वानुमान लगाने की कोशिश कर रहे हैं, तो मैं वाणिज्यिक समाधान खोजूंगा। R
आपकी तरह पूर्वानुमान कार्य के लिए गंभीर सीमाएँ हैं। इस साइट में और कहाँ पर दैनिक पूर्वानुमान पर प्रश्न देखें।
str(x)
है?