CFAI 为观测变量（或序列）值
                        AICFun <- function (L, p) -2*L + 2*p
                        num1<-length(CFAI[,1])

                        AIC1<-AICFun(CFAI@loglik,length(CFAI@estimate))
                        BIC1<--2*CFAI@loglik+log(num1)*length(CFAI@estimate)
注意负号呀