actualreturn <- read.table("G:/DFM-VaR/data/fourth/actualreturn.csv",header = FALSE)
actualreturn=as.vector(actualreturn)
dfm99<-read.csv("G:/DFM-VaR/data/fourth/dfm99.csv",header = FALSE)
dfm99=as.vector(dfm99)
VaRbacktest=VaRTest(alpha = 0.05,actualreturn,dfm99,conf.level = 0.95)
> print(VaRbacktest)
$expected.exceed
[1] 12
$actual.exceed
[1] 0
$uc.H0
[1] "Correct Exceedances"
$uc.LRstat
[1] NaN
$uc.critical
[1] 3.841459
$uc.LRp
[1] NaN
$uc.Decision
[1] NA
$cc.H0
[1] "Correct Exceedances & Independent"
$cc.LRstat
[1] NaN
$cc.critical
[1] 5.991465
$cc.LRp
[1] NaN
$cc.Decision
[1] NA


雷达卡



京公网安备 11010802022788号







