[url=]entropy-hw1.pdf[/url]
entropy-hw1.pdf
(153.98 KB)
数据:[url=]
1.txt
(377 Bytes)
代码:
> ut=read.table("1.txt")
> gg=log(ut)
> View(gg)
> acf(gg)
> pacf(gg)
> Box.test(gg,lag=15,type="Ljung")
> library("fGarch")
> m1=garchFit(~garch(2,0),data=gg,trace=F)
> summary(m1)
> m2=garchFit(~garch(1,0),data=gg,trace=F)
> summary(m2)
> plot(m1)
> plot(m2)
> bt=var(gg)
> LL<-function(params,ut){
+ f<-exp(-(ut)*(exp(params[1]+params[2]*abs(log((ut)/(bt)))+params[3]*log((ut)/(bt))+params[4]*log(bt)))^(-2))
+ ll<-sum(log(f1))
+ return(-log(ll))
+ }
mp<-optim(par=c(),LL,data=ut)
求问四个的参数的初值怎么求呢?


雷达卡






京公网安备 11010802022788号







