ARCH效应检验 FinTS包找不到 无法使用ArchTest()函数进行LM检验 以及Box.test()函数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

急，在线等

另
在做arch效应前，通常会对时间序列本身做自相关与偏自相关分析，有什么作用？
为什么我做出来的横坐标滞后阶数是0.0几？
还是说，不需要对时间序列本身做相关性分析，直接在arch效应检验的过程中，对时间序列的残差与残差平方画ACF与PACF图即可？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：archTest ARCH效应 test ARCH 效应检验 arch效应检验 FinTS R语言 ACF与PACF

我也出现了这个问题

KINGQING0907 发表于 2017-9-17 13:22
我也出现了这个问题

有可能是你的数据具有趋势和周期性，所以不适合做ACF

box.test 在stat里，不至于找不到吧。  

复制粘贴这段代码：

1. ArchTest <- function (x, lags=12,
   
2.                 demean = FALSE)
   
3. {
   
4. # Capture name of x for documentation in the output  
   
5.   xName <- deparse(substitute(x))
   
6. #
   
7.   x <- as.vector(x)
   
8.   if(demean) x <- scale(x, center = TRUE, scale = FALSE)
   
9. #  
   
10.   lags <- lags + 1
    
11.   mat <- stats::embed(x^2, lags)
    
12.   arch.lm <- summary(stats::lm(
    
13.         mat[, 1] ~ mat[, -1]))
    
14.   STATISTIC <- arch.lm$r.squared *
    
15.     length(stats::resid(arch.lm))
    
16.   names(STATISTIC) <- "Chi-squared"
    
17.   PARAMETER <- lags - 1
    
18.   names(PARAMETER) <- "df"
    
19.   PVAL <- stats::pchisq(STATISTIC,
    
20.         df = PARAMETER, lower.tail=FALSE)
    
21.   METHOD <- paste("ARCH LM-test; ",
    
22.       "Null hypothesis:  no ARCH effects")
    
23.   result <- list(statistic = STATISTIC,
    
24.         parameter = PARAMETER,
    
25.         p.value = PVAL, method = METHOD,
    
26.         data.name = xName)
    
27.   class(result) <- "htest"
    
28.   return(result)
    
29. }

复制代码