margins <- list() garch_models <- list() for (i in 1:ncol(returns)) { garch_fit <- ugarchspec(mean.model = list(armaOrder = c(1, 1)), var.model = list(garchOrder = c(1, 1)), data = returns[, i], fit.control = list(stationarity = 1)) garch_model <- ugarchfit(spec = garch_fit, data = returns[, i]) garch_models[[i]] <- garch_model dist_fit <- fitdistr(as.numeric(returns[, i]), densfun = "lognormal") margins[[i]] <- list(distr = "lnorm", params = dist_fit$estimate) } r代码报错： Error in .local(variance.model, mean.model, distribution.model, start.pars, : unused arguments (var.model = list(c(1, 1)), data = c(-0.0273787289305405, -0.00601957893571292, 0.00376652523108056, -0.0258963489968176, 0.00921661448593447, 0.0293806919632189, -0.00521027200022228, 0.0111318258629431, 0.0468554021261953, 0, 0.00211047123602093, 0.0338546918582274, 0.00542006470595524, -0.0246250672002226, 0.0144382351254055, -0.000682834605118643, -0.0305155611202679, -0.0106195551544515, -0.0223110889101186, -0.00657177027901046, 0.028882859189129, -0.00142451769916985, 0.00142451769916985, 0.0349685964573228, -0.0385337027921766, -0.0802808283485552, -0.029852930055962, -0.0701897731960841, 0.00256303750108344, 0.0185972945076474, 0.00501251976461248, 0.0376169028282138, 0.0119666212313421, 0.00158480422246754, -0.0281030277747965, -0.0189072435209265, -0.000830229392394521, -0.00750316751799751, -0.00755989091406928, 0.0200340492008868, -0.00414076137642549, 0.00496687564700782, -0.00165291157025038, -0.00497511271516782, -0.000831610247014503, -0.0083
138
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
