Bahibo: Prices and historical crypto data (Crypto Data)

Documented in bahibo.garch

#' bahibo.hist Function
#'
#' This function gives parameter from garch fits

bahibo.garch<-function(data=r,cond.dist = c("norm", "snorm", "ged", "sged", "std", "sstd",
                           "snig", "QMLE")){
  time_1<-Sys.time()

  if (!require("fGarch")) install.packages("fGarch")
  library(fGarch)

  alle_modelle<-c("fit_garch_1_0_sstd","fit_garch_1_1_sstd","fit_garch_1_2_sstd","fit_garch_1_3_sstd","fit_garch_1_4_sstd","fit_garch_1_5_sstd","fit_garch_1_6_sstd",
                  "fit_garch_2_0_sstd","fit_garch_2_1_sstd","fit_garch_2_2_sstd","fit_garch_2_3_sstd","fit_garch_2_4_sstd","fit_garch_2_5_sstd","fit_garch_2_6_sstd",
                  "fit_garch_3_0_sstd","fit_garch_3_1_sstd","fit_garch_3_2_sstd","fit_garch_3_3_sstd","fit_garch_3_4_sstd","fit_garch_3_5_sstd","fit_garch_3_6_sstd",
                  "fit_garch_4_0_sstd","fit_garch_4_1_sstd","fit_garch_4_2_sstd","fit_garch_4_3_sstd","fit_garch_4_4_sstd","fit_garch_4_5_sstd","fit_garch_4_6_sstd",
                  "fit_garch_5_0_sstd","fit_garch_5_1_sstd","fit_garch_5_2_sstd","fit_garch_5_3_sstd","fit_garch_5_4_sstd","fit_garch_5_5_sstd","fit_garch_5_6_sstd",
                  "fit_garch_6_0_sstd","fit_garch_6_1_sstd","fit_garch_6_2_sstd","fit_garch_6_3_sstd","fit_garch_6_4_sstd","fit_garch_6_5_sstd","fit_garch_6_6_sstd",
                  "fit_garch_1_0_std","fit_garch_1_1_std","fit_garch_1_2_std","fit_garch_1_3_std","fit_garch_1_4_std","fit_garch_1_5_std","fit_garch_1_6_std",
                  "fit_garch_2_0_std","fit_garch_2_1_std","fit_garch_2_2_std","fit_garch_2_3_std","fit_garch_2_4_std","fit_garch_2_5_std","fit_garch_2_6_std",
                  "fit_garch_3_0_std","fit_garch_3_1_std","fit_garch_3_2_std","fit_garch_3_3_std","fit_garch_3_4_std","fit_garch_3_5_std","fit_garch_3_6_std",
                  "fit_garch_4_0_std","fit_garch_4_1_std","fit_garch_4_2_std","fit_garch_4_3_std","fit_garch_4_4_std","fit_garch_4_5_std","fit_garch_4_6_std",
                  "fit_garch_5_0_std","fit_garch_5_1_std","fit_garch_5_2_std","fit_garch_5_3_std","fit_garch_5_4_std","fit_garch_5_5_std","fit_garch_5_6_std",
                  "fit_garch_6_0_std","fit_garch_6_1_std","fit_garch_6_2_std","fit_garch_6_3_std","fit_garch_6_4_std","fit_garch_6_5_std","fit_garch_6_6_std",
                  "fit_garch_1_0_snorm","fit_garch_1_1_snorm","fit_garch_1_2_snorm","fit_garch_1_3_snorm","fit_garch_1_4_snorm","fit_garch_1_5_snorm","fit_garch_1_6_snorm",
                  "fit_garch_2_0_snorm","fit_garch_2_1_snorm","fit_garch_2_2_snorm","fit_garch_2_3_snorm","fit_garch_2_4_snorm","fit_garch_2_5_snorm","fit_garch_2_6_snorm",
                  "fit_garch_3_0_snorm","fit_garch_3_1_snorm","fit_garch_3_2_snorm","fit_garch_3_3_snorm","fit_garch_3_4_snorm","fit_garch_3_5_snorm","fit_garch_3_6_snorm",
                  "fit_garch_4_0_snorm","fit_garch_4_1_snorm","fit_garch_4_2_snorm","fit_garch_4_3_snorm","fit_garch_4_4_snorm","fit_garch_4_5_snorm","fit_garch_4_6_snorm",
                  "fit_garch_5_0_snorm","fit_garch_5_1_snorm","fit_garch_5_2_snorm","fit_garch_5_3_snorm","fit_garch_5_4_snorm","fit_garch_5_5_snorm","fit_garch_5_6_snorm",
                  "fit_garch_6_0_snorm","fit_garch_6_1_snorm","fit_garch_6_2_snorm","fit_garch_6_3_snorm","fit_garch_6_4_snorm","fit_garch_6_5_snorm","fit_garch_6_6_snorm",
                  "fit_garch_1_0_norm","fit_garch_1_1_norm","fit_garch_1_2_norm","fit_garch_1_3_norm","fit_garch_1_4_norm","fit_garch_1_5_norm","fit_garch_1_6_norm",
                  "fit_garch_2_0_norm","fit_garch_2_1_norm","fit_garch_2_2_norm","fit_garch_2_3_norm","fit_garch_2_4_norm","fit_garch_2_5_norm","fit_garch_2_6_norm",
                  "fit_garch_3_0_norm","fit_garch_3_1_norm","fit_garch_3_2_norm","fit_garch_3_3_norm","fit_garch_3_4_norm","fit_garch_3_5_norm","fit_garch_3_6_norm",
                  "fit_garch_4_0_norm","fit_garch_4_1_norm","fit_garch_4_2_norm","fit_garch_4_3_norm","fit_garch_4_4_norm","fit_garch_4_5_norm","fit_garch_4_6_norm",
                  "fit_garch_5_0_norm","fit_garch_5_1_norm","fit_garch_5_2_norm","fit_garch_5_3_norm","fit_garch_5_4_norm","fit_garch_5_5_norm","fit_garch_5_6_norm",
                  "fit_garch_6_0_norm","fit_garch_6_1_norm","fit_garch_6_2_norm","fit_garch_6_3_norm","fit_garch_6_4_norm","fit_garch_6_5_norm","fit_garch_6_6_norm",
                  "fit_garch_1_0_ged","fit_garch_1_1_ged","fit_garch_1_2_ged","fit_garch_1_3_ged","fit_garch_1_4_ged","fit_garch_1_5_ged","fit_garch_1_6_ged",
                  "fit_garch_2_0_ged","fit_garch_2_1_ged","fit_garch_2_2_ged","fit_garch_2_3_ged","fit_garch_2_4_ged","fit_garch_2_5_ged","fit_garch_2_6_ged",
                  "fit_garch_3_0_ged","fit_garch_3_1_ged","fit_garch_3_2_ged","fit_garch_3_3_ged","fit_garch_3_4_ged","fit_garch_3_5_ged","fit_garch_3_6_ged",
                  "fit_garch_4_0_ged","fit_garch_4_1_ged","fit_garch_4_2_ged","fit_garch_4_3_ged","fit_garch_4_4_ged","fit_garch_4_5_ged","fit_garch_4_6_ged",
                  "fit_garch_5_0_ged","fit_garch_5_1_ged","fit_garch_5_2_ged","fit_garch_5_3_ged","fit_garch_5_4_ged","fit_garch_5_5_ged","fit_garch_5_6_ged",
                  "fit_garch_6_0_ged","fit_garch_6_1_ged","fit_garch_6_2_ged","fit_garch_6_3_ged","fit_garch_6_4_ged","fit_garch_6_5_ged","fit_garch_6_6_ged",
                  "fit_garch_1_0_sged","fit_garch_1_1_sged","fit_garch_1_2_sged","fit_garch_1_3_sged","fit_garch_1_4_sged","fit_garch_1_5_sged","fit_garch_1_6_sged",
                  "fit_garch_2_0_sged","fit_garch_2_1_sged","fit_garch_2_2_sged","fit_garch_2_3_sged","fit_garch_2_4_sged","fit_garch_2_5_sged","fit_garch_2_6_sged",
                  "fit_garch_3_0_sged","fit_garch_3_1_sged","fit_garch_3_2_sged","fit_garch_3_3_sged","fit_garch_3_4_sged","fit_garch_3_5_sged","fit_garch_3_6_sged",
                  "fit_garch_4_0_sged","fit_garch_4_1_sged","fit_garch_4_2_sged","fit_garch_4_3_sged","fit_garch_4_4_sged","fit_garch_4_5_sged","fit_garch_4_6_sged",
                  "fit_garch_5_0_sged","fit_garch_5_1_sged","fit_garch_5_2_sged","fit_garch_5_3_sged","fit_garch_5_4_sged","fit_garch_5_5_sged","fit_garch_5_6_sged",
                  "fit_garch_6_0_sged","fit_garch_6_1_sged","fit_garch_6_2_sged","fit_garch_6_3_sged","fit_garch_6_4_sged","fit_garch_6_5_sged","fit_garch_6_6_sged",
                  "fit_garch_1_0_snig","fit_garch_1_1_snig","fit_garch_1_2_snig","fit_garch_1_3_snig","fit_garch_1_4_snig","fit_garch_1_5_snig","fit_garch_1_6_snig",
                  "fit_garch_2_0_snig","fit_garch_2_1_snig","fit_garch_2_2_snig","fit_garch_2_3_snig","fit_garch_2_4_snig","fit_garch_2_5_snig","fit_garch_2_6_snig",
                  "fit_garch_3_0_snig","fit_garch_3_1_snig","fit_garch_3_2_snig","fit_garch_3_3_snig","fit_garch_3_4_snig","fit_garch_3_5_snig","fit_garch_3_6_snig",
                  "fit_garch_4_0_snig","fit_garch_4_1_snig","fit_garch_4_2_snig","fit_garch_4_3_snig","fit_garch_4_4_snig","fit_garch_4_5_snig","fit_garch_4_6_snig",
                  "fit_garch_5_0_snig","fit_garch_5_1_snig","fit_garch_5_2_snig","fit_garch_5_3_snig","fit_garch_5_4_snig","fit_garch_5_5_snig","fit_garch_5_6_snig",
                  "fit_garch_6_0_snig","fit_garch_6_1_snig","fit_garch_6_2_snig","fit_garch_6_3_snig","fit_garch_6_4_snig","fit_garch_6_5_snig","fit_garch_6_6_snig",
                  "fit_garch_1_0_QMLE","fit_garch_1_1_QMLE","fit_garch_1_2_QMLE","fit_garch_1_3_QMLE","fit_garch_1_4_QMLE","fit_garch_1_5_QMLE","fit_garch_1_6_QMLE",
                  "fit_garch_2_0_QMLE","fit_garch_2_1_QMLE","fit_garch_2_2_QMLE","fit_garch_2_3_QMLE","fit_garch_2_4_QMLE","fit_garch_2_5_QMLE","fit_garch_2_6_QMLE",
                  "fit_garch_3_0_QMLE","fit_garch_3_1_QMLE","fit_garch_3_2_QMLE","fit_garch_3_3_QMLE","fit_garch_3_4_QMLE","fit_garch_3_5_QMLE","fit_garch_3_6_QMLE",
                  "fit_garch_4_0_QMLE","fit_garch_4_1_QMLE","fit_garch_4_2_QMLE","fit_garch_4_3_QMLE","fit_garch_4_4_QMLE","fit_garch_4_5_QMLE","fit_garch_4_6_QMLE",
                  "fit_garch_5_0_QMLE","fit_garch_5_1_QMLE","fit_garch_5_2_QMLE","fit_garch_5_3_QMLE","fit_garch_5_4_QMLE","fit_garch_5_5_QMLE","fit_garch_5_6_QMLE",
                  "fit_garch_6_0_QMLE","fit_garch_6_1_QMLE","fit_garch_6_2_QMLE","fit_garch_6_3_QMLE","fit_garch_6_4_QMLE","fit_garch_6_5_QMLE","fit_garch_6_6_QMLE")
  table_parameter<-matrix(NA,length(alle_modelle),13)
  table_parameter<-as.data.frame(table_parameter)
  colnames(table_parameter)<-c("AIC","BIC","SIC","HQIC",
                               "pval_Box_r_lag_10","pval_Box_r_lag_15","pval_Box_r_lag_20",
                               "pval_Box_r2_lag_10","pval_Box_r2_lag_15","pval_Box_r2_lag_20",
                               "pval_jarq","pval_shapiro","llh")
  rownames(table_parameter)<-alle_modelle
  #sstd

  if("sstd"%in%cond.dist){
  tryCatch({fit_garch_1_0_sstd <-garchFit(~1 + garch(1, 0), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_1_0_sstd <<- "fit_garch_1_0_sstd"})
  tryCatch({fit_garch_1_1_sstd <-garchFit(~1 + garch(1, 1), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_1_1_sstd <<- "fit_garch_1_1_sstd"})
  tryCatch({fit_garch_1_2_sstd <-garchFit(~1 + garch(1, 2), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_1_2_sstd <<- "fit_garch_1_2_sstd"})
  tryCatch({fit_garch_1_3_sstd <-garchFit(~1 + garch(1, 3), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_1_3_sstd <<- "fit_garch_1_3_sstd"})
  tryCatch({fit_garch_1_4_sstd <-garchFit(~1 + garch(1, 4), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_1_4_sstd <<- "fit_garch_1_4_sstd"})
  tryCatch({fit_garch_1_5_sstd <-garchFit(~1 + garch(1, 5), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_1_5_sstd <<- "fit_garch_1_5_sstd"})
  tryCatch({fit_garch_1_6_sstd <-garchFit(~1 + garch(1, 6), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_1_6_sstd <<- "fit_garch_1_6_sstd"})

  tryCatch({fit_garch_2_0_sstd <-garchFit(~1 + garch(2, 0), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_2_0_sstd <<- "fit_garch_2_0_sstd"})
  tryCatch({fit_garch_2_1_sstd <-garchFit(~1 + garch(2, 1), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_2_1_sstd <<- "fit_garch_2_1_sstd"})
  tryCatch({fit_garch_2_2_sstd <-garchFit(~1 + garch(2, 2), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_2_2_sstd <<- "fit_garch_2_2_sstd"})
  tryCatch({fit_garch_2_3_sstd <-garchFit(~1 + garch(2, 3), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_2_3_sstd <<- "fit_garch_2_3_sstd"})
  tryCatch({fit_garch_2_4_sstd <-garchFit(~1 + garch(2, 4), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_2_4_sstd <<- "fit_garch_2_4_sstd"})
  tryCatch({fit_garch_2_5_sstd <-garchFit(~1 + garch(2, 5), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_2_5_sstd <<- "fit_garch_2_5_sstd"})
  tryCatch({fit_garch_2_6_sstd <-garchFit(~1 + garch(2, 6), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_2_6_sstd <<- "fit_garch_2_6_sstd"})

  tryCatch({fit_garch_3_0_sstd <-garchFit(~1 + garch(3, 0), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_3_0_sstd <<- "fit_garch_3_0_sstd"})
  tryCatch({fit_garch_3_1_sstd <-garchFit(~1 + garch(3, 1), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_3_1_sstd <<- "fit_garch_3_1_sstd"})
  tryCatch({fit_garch_3_2_sstd <-garchFit(~1 + garch(3, 2), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_3_2_sstd <<- "fit_garch_3_2_sstd"})
  tryCatch({fit_garch_3_3_sstd <-garchFit(~1 + garch(3, 3), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_3_3_sstd <<- "fit_garch_3_3_sstd"})
  tryCatch({fit_garch_3_4_sstd <-garchFit(~1 + garch(3, 4), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_3_4_sstd <<- "fit_garch_3_4_sstd"})
  tryCatch({fit_garch_3_5_sstd <-garchFit(~1 + garch(3, 5), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_3_5_sstd <<- "fit_garch_3_5_sstd"})
  tryCatch({fit_garch_3_6_sstd <-garchFit(~1 + garch(3, 6), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_3_6_sstd <<- "fit_garch_3_6_sstd"})

  tryCatch({fit_garch_4_0_sstd <-garchFit(~1 + garch(4, 0), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_4_0_sstd <<- "fit_garch_4_0_sstd"})
  tryCatch({fit_garch_4_1_sstd <-garchFit(~1 + garch(4, 1), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_4_1_sstd <<- "fit_garch_4_1_sstd"})
  tryCatch({fit_garch_4_2_sstd <-garchFit(~1 + garch(4, 2), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_4_2_sstd <<- "fit_garch_4_2_sstd"})
  tryCatch({fit_garch_4_3_sstd <-garchFit(~1 + garch(4, 3), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_4_3_sstd <<- "fit_garch_4_3_sstd"})
  tryCatch({fit_garch_4_4_sstd <-garchFit(~1 + garch(4, 4), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_4_4_sstd <<- "fit_garch_4_4_sstd"})
  tryCatch({fit_garch_4_5_sstd <-garchFit(~1 + garch(4, 5), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_4_5_sstd <<- "fit_garch_4_5_sstd"})
  tryCatch({fit_garch_4_6_sstd <-garchFit(~1 + garch(4, 6), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_4_6_sstd <<- "fit_garch_4_6_sstd"})

  tryCatch({fit_garch_5_0_sstd <-garchFit(~1 + garch(5, 0), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_5_0_sstd <<- "fit_garch_5_0_sstd"})
  tryCatch({fit_garch_5_1_sstd <-garchFit(~1 + garch(5, 1), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_5_1_sstd <<- "fit_garch_5_1_sstd"})
  tryCatch({fit_garch_5_2_sstd <-garchFit(~1 + garch(5, 2), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_5_2_sstd <<- "fit_garch_5_2_sstd"})
  tryCatch({fit_garch_5_3_sstd <-garchFit(~1 + garch(5, 3), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_5_3_sstd <<- "fit_garch_5_3_sstd"})
  tryCatch({fit_garch_5_4_sstd <-garchFit(~1 + garch(5, 4), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_5_4_sstd <<- "fit_garch_5_4_sstd"})
  tryCatch({fit_garch_5_5_sstd <-garchFit(~1 + garch(5, 5), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_5_5_sstd <<- "fit_garch_5_5_sstd"})
  tryCatch({fit_garch_5_6_sstd <-garchFit(~1 + garch(5, 6), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_5_6_sstd <<- "fit_garch_5_6_sstd"})

  tryCatch({fit_garch_6_0_sstd <-garchFit(~1 + garch(6, 0), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_6_0_sstd <<- "fit_garch_6_0_sstd"})
  tryCatch({fit_garch_6_1_sstd <-garchFit(~1 + garch(6, 1), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_6_1_sstd <<- "fit_garch_6_1_sstd"})
  tryCatch({fit_garch_6_2_sstd <-garchFit(~1 + garch(6, 2), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_6_2_sstd <<- "fit_garch_6_2_sstd"})
  tryCatch({fit_garch_6_3_sstd <-garchFit(~1 + garch(6, 3), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_6_3_sstd <<- "fit_garch_6_3_sstd"})
  tryCatch({fit_garch_6_4_sstd <-garchFit(~1 + garch(6, 4), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_6_4_sstd <<- "fit_garch_6_4_sstd"})
  tryCatch({fit_garch_6_5_sstd <-garchFit(~1 + garch(6, 5), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_6_5_sstd <<- "fit_garch_6_5_sstd"})
  tryCatch({fit_garch_6_6_sstd <-garchFit(~1 + garch(6, 6), na.omit(r), trace=F,cond.dist = "sstd") },error = function(e) {fit_garch_6_6_sstd <<- "fit_garch_6_6_sstd"})
  alle_modelle[1:(7*6*1)]<-  c(fit_garch_1_0_sstd,fit_garch_1_1_sstd,fit_garch_1_2_sstd,fit_garch_1_3_sstd,fit_garch_1_4_sstd,fit_garch_1_5_sstd,fit_garch_1_6_sstd,
      fit_garch_2_0_sstd,fit_garch_2_1_sstd,fit_garch_2_2_sstd,fit_garch_2_3_sstd,fit_garch_2_4_sstd,fit_garch_2_5_sstd,fit_garch_2_6_sstd,
      fit_garch_3_0_sstd,fit_garch_3_1_sstd,fit_garch_3_2_sstd,fit_garch_3_3_sstd,fit_garch_3_4_sstd,fit_garch_3_5_sstd,fit_garch_3_6_sstd,
      fit_garch_4_0_sstd,fit_garch_4_1_sstd,fit_garch_4_2_sstd,fit_garch_4_3_sstd,fit_garch_4_4_sstd,fit_garch_4_5_sstd,fit_garch_4_6_sstd,
      fit_garch_5_0_sstd,fit_garch_5_1_sstd,fit_garch_5_2_sstd,fit_garch_5_3_sstd,fit_garch_5_4_sstd,fit_garch_5_5_sstd,fit_garch_5_6_sstd,
      fit_garch_6_0_sstd,fit_garch_6_1_sstd,fit_garch_6_2_sstd,fit_garch_6_3_sstd,fit_garch_6_4_sstd,fit_garch_6_5_sstd,fit_garch_6_6_sstd)
  }
    #std
  if("std"%in%cond.dist){

  tryCatch({fit_garch_1_0_std <-garchFit(~1 + garch(1, 0), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_1_0_std <<- "fit_garch_1_0_std"})
  tryCatch({fit_garch_1_1_std <-garchFit(~1 + garch(1, 1), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_1_1_std <<- "fit_garch_1_1_std"})
  tryCatch({fit_garch_1_2_std <-garchFit(~1 + garch(1, 2), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_1_2_std <<- "fit_garch_1_2_std"})
  tryCatch({fit_garch_1_3_std <-garchFit(~1 + garch(1, 3), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_1_3_std <<- "fit_garch_1_3_std"})
  tryCatch({fit_garch_1_4_std <-garchFit(~1 + garch(1, 4), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_1_4_std <<- "fit_garch_1_4_std"})
  tryCatch({fit_garch_1_5_std <-garchFit(~1 + garch(1, 5), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_1_5_std <<- "fit_garch_1_5_std"})
  tryCatch({fit_garch_1_6_std <-garchFit(~1 + garch(1, 6), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_1_6_std <<- "fit_garch_1_6_std"})

  tryCatch({fit_garch_2_0_std <-garchFit(~1 + garch(2, 0), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_2_0_std <<- "fit_garch_2_0_std"})
  tryCatch({fit_garch_2_1_std <-garchFit(~1 + garch(2, 1), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_2_1_std <<- "fit_garch_2_1_std"})
  tryCatch({fit_garch_2_2_std <-garchFit(~1 + garch(2, 2), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_2_2_std <<- "fit_garch_2_2_std"})
  tryCatch({fit_garch_2_3_std <-garchFit(~1 + garch(2, 3), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_2_3_std <<- "fit_garch_2_3_std"})
  tryCatch({fit_garch_2_4_std <-garchFit(~1 + garch(2, 4), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_2_4_std <<- "fit_garch_2_4_std"})
  tryCatch({fit_garch_2_5_std <-garchFit(~1 + garch(2, 5), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_2_5_std <<- "fit_garch_2_5_std"})
  tryCatch({fit_garch_2_6_std <-garchFit(~1 + garch(2, 6), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_2_6_std <<- "fit_garch_2_6_std"})

  tryCatch({fit_garch_3_0_std <-garchFit(~1 + garch(3, 0), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_3_0_std <<- "fit_garch_3_0_std"})
  tryCatch({fit_garch_3_1_std <-garchFit(~1 + garch(3, 1), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_3_1_std <<- "fit_garch_3_1_std"})
  tryCatch({fit_garch_3_2_std <-garchFit(~1 + garch(3, 2), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_3_2_std <<- "fit_garch_3_2_std"})
  tryCatch({fit_garch_3_3_std <-garchFit(~1 + garch(3, 3), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_3_3_std <<- "fit_garch_3_3_std"})
  tryCatch({fit_garch_3_4_std <-garchFit(~1 + garch(3, 4), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_3_4_std <<- "fit_garch_3_4_std"})
  tryCatch({fit_garch_3_5_std <-garchFit(~1 + garch(3, 5), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_3_5_std <<- "fit_garch_3_5_std"})
  tryCatch({fit_garch_3_6_std <-garchFit(~1 + garch(3, 6), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_3_6_std <<- "fit_garch_3_6_std"})

  tryCatch({fit_garch_4_0_std <-garchFit(~1 + garch(4, 0), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_4_0_std <<- "fit_garch_4_0_std"})
  tryCatch({fit_garch_4_1_std <-garchFit(~1 + garch(4, 1), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_4_1_std <<- "fit_garch_4_1_std"})
  tryCatch({fit_garch_4_2_std <-garchFit(~1 + garch(4, 2), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_4_2_std <<- "fit_garch_4_2_std"})
  tryCatch({fit_garch_4_3_std <-garchFit(~1 + garch(4, 3), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_4_3_std <<- "fit_garch_4_3_std"})
  tryCatch({fit_garch_4_4_std <-garchFit(~1 + garch(4, 4), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_4_4_std <<- "fit_garch_4_4_std"})
  tryCatch({fit_garch_4_5_std <-garchFit(~1 + garch(4, 5), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_4_5_std <<- "fit_garch_4_5_std"})
  tryCatch({fit_garch_4_6_std <-garchFit(~1 + garch(4, 6), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_4_6_std <<- "fit_garch_4_6_std"})

  tryCatch({fit_garch_5_0_std <-garchFit(~1 + garch(5, 0), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_5_0_std <<- "fit_garch_5_0_std"})
  tryCatch({fit_garch_5_1_std <-garchFit(~1 + garch(5, 1), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_5_1_std <<- "fit_garch_5_1_std"})
  tryCatch({fit_garch_5_2_std <-garchFit(~1 + garch(5, 2), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_5_2_std <<- "fit_garch_5_2_std"})
  tryCatch({fit_garch_5_3_std <-garchFit(~1 + garch(5, 3), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_5_3_std <<- "fit_garch_5_3_std"})
  tryCatch({fit_garch_5_4_std <-garchFit(~1 + garch(5, 4), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_5_4_std <<- "fit_garch_5_4_std"})
  tryCatch({fit_garch_5_5_std <-garchFit(~1 + garch(5, 5), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_5_5_std <<- "fit_garch_5_5_std"})
  tryCatch({fit_garch_5_6_std <-garchFit(~1 + garch(5, 6), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_5_6_std <<- "fit_garch_5_6_std"})

  tryCatch({fit_garch_6_0_std <-garchFit(~1 + garch(6, 0), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_6_0_std <<- "fit_garch_6_0_std"})
  tryCatch({fit_garch_6_1_std <-garchFit(~1 + garch(6, 1), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_6_1_std <<- "fit_garch_6_1_std"})
  tryCatch({fit_garch_6_2_std <-garchFit(~1 + garch(6, 2), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_6_2_std <<- "fit_garch_6_2_std"})
  tryCatch({fit_garch_6_3_std <-garchFit(~1 + garch(6, 3), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_6_3_std <<- "fit_garch_6_3_std"})
  tryCatch({fit_garch_6_4_std <-garchFit(~1 + garch(6, 4), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_6_4_std <<- "fit_garch_6_4_std"})
  tryCatch({fit_garch_6_5_std <-garchFit(~1 + garch(6, 5), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_6_5_std <<- "fit_garch_6_5_std"})
  tryCatch({fit_garch_6_6_std <-garchFit(~1 + garch(6, 6), na.omit(r), trace=F,cond.dist = "std") },error = function(e) {fit_garch_6_6_std <<- "fit_garch_6_6_std"})
  alle_modelle[(7*6*1+1):(7*6*2)]<-  c(fit_garch_1_0_std,fit_garch_1_1_std,fit_garch_1_2_std,fit_garch_1_3_std,fit_garch_1_4_std,fit_garch_1_5_std,fit_garch_1_6_std,
                               fit_garch_2_0_std,fit_garch_2_1_std,fit_garch_2_2_std,fit_garch_2_3_std,fit_garch_2_4_std,fit_garch_2_5_std,fit_garch_2_6_std,
                               fit_garch_3_0_std,fit_garch_3_1_std,fit_garch_3_2_std,fit_garch_3_3_std,fit_garch_3_4_std,fit_garch_3_5_std,fit_garch_3_6_std,
                               fit_garch_4_0_std,fit_garch_4_1_std,fit_garch_4_2_std,fit_garch_4_3_std,fit_garch_4_4_std,fit_garch_4_5_std,fit_garch_4_6_std,
                               fit_garch_5_0_std,fit_garch_5_1_std,fit_garch_5_2_std,fit_garch_5_3_std,fit_garch_5_4_std,fit_garch_5_5_std,fit_garch_5_6_std,
                               fit_garch_6_0_std,fit_garch_6_1_std,fit_garch_6_2_std,fit_garch_6_3_std,fit_garch_6_4_std,fit_garch_6_5_std,fit_garch_6_6_std)
  }
  #snorm
  if("snorm"%in%cond.dist){

  tryCatch({fit_garch_1_0_snorm <-garchFit(~1 + garch(1, 0), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_1_0_snorm <<- "fit_garch_1_0_snorm"})
  tryCatch({fit_garch_1_1_snorm <-garchFit(~1 + garch(1, 1), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_1_1_snorm <<- "fit_garch_1_1_snorm"})
  tryCatch({fit_garch_1_2_snorm <-garchFit(~1 + garch(1, 2), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_1_2_snorm <<- "fit_garch_1_2_snorm"})
  tryCatch({fit_garch_1_3_snorm <-garchFit(~1 + garch(1, 3), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_1_3_snorm <<- "fit_garch_1_3_snorm"})
  tryCatch({fit_garch_1_4_snorm <-garchFit(~1 + garch(1, 4), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_1_4_snorm <<- "fit_garch_1_4_snorm"})
  tryCatch({fit_garch_1_5_snorm <-garchFit(~1 + garch(1, 5), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_1_5_snorm <<- "fit_garch_1_5_snorm"})
  tryCatch({fit_garch_1_6_snorm <-garchFit(~1 + garch(1, 6), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_1_6_snorm <<- "fit_garch_1_6_snorm"})

  tryCatch({fit_garch_2_0_snorm <-garchFit(~1 + garch(2, 0), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_2_0_snorm <<- "fit_garch_2_0_snorm"})
  tryCatch({fit_garch_2_1_snorm <-garchFit(~1 + garch(2, 1), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_2_1_snorm <<- "fit_garch_2_1_snorm"})
  tryCatch({fit_garch_2_2_snorm <-garchFit(~1 + garch(2, 2), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_2_2_snorm <<- "fit_garch_2_2_snorm"})
  tryCatch({fit_garch_2_3_snorm <-garchFit(~1 + garch(2, 3), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_2_3_snorm <<- "fit_garch_2_3_snorm"})
  tryCatch({fit_garch_2_4_snorm <-garchFit(~1 + garch(2, 4), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_2_4_snorm <<- "fit_garch_2_4_snorm"})
  tryCatch({fit_garch_2_5_snorm <-garchFit(~1 + garch(2, 5), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_2_5_snorm <<- "fit_garch_2_5_snorm"})
  tryCatch({fit_garch_2_6_snorm <-garchFit(~1 + garch(2, 6), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_2_6_snorm <<- "fit_garch_2_6_snorm"})

  tryCatch({fit_garch_3_0_snorm <-garchFit(~1 + garch(3, 0), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_3_0_snorm <<- "fit_garch_3_0_snorm"})
  tryCatch({fit_garch_3_1_snorm <-garchFit(~1 + garch(3, 1), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_3_1_snorm <<- "fit_garch_3_1_snorm"})
  tryCatch({fit_garch_3_2_snorm <-garchFit(~1 + garch(3, 2), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_3_2_snorm <<- "fit_garch_3_2_snorm"})
  tryCatch({fit_garch_3_3_snorm <-garchFit(~1 + garch(3, 3), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_3_3_snorm <<- "fit_garch_3_3_snorm"})
  tryCatch({fit_garch_3_4_snorm <-garchFit(~1 + garch(3, 4), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_3_4_snorm <<- "fit_garch_3_4_snorm"})
  tryCatch({fit_garch_3_5_snorm <-garchFit(~1 + garch(3, 5), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_3_5_snorm <<- "fit_garch_3_5_snorm"})
  tryCatch({fit_garch_3_6_snorm <-garchFit(~1 + garch(3, 6), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_3_6_snorm <<- "fit_garch_3_6_snorm"})

  tryCatch({fit_garch_4_0_snorm <-garchFit(~1 + garch(4, 0), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_4_0_snorm <<- "fit_garch_4_0_snorm"})
  tryCatch({fit_garch_4_1_snorm <-garchFit(~1 + garch(4, 1), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_4_1_snorm <<- "fit_garch_4_1_snorm"})
  tryCatch({fit_garch_4_2_snorm <-garchFit(~1 + garch(4, 2), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_4_2_snorm <<- "fit_garch_4_2_snorm"})
  tryCatch({fit_garch_4_3_snorm <-garchFit(~1 + garch(4, 3), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_4_3_snorm <<- "fit_garch_4_3_snorm"})
  tryCatch({fit_garch_4_4_snorm <-garchFit(~1 + garch(4, 4), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_4_4_snorm <<- "fit_garch_4_4_snorm"})
  tryCatch({fit_garch_4_5_snorm <-garchFit(~1 + garch(4, 5), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_4_5_snorm <<- "fit_garch_4_5_snorm"})
  tryCatch({fit_garch_4_6_snorm <-garchFit(~1 + garch(4, 6), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_4_6_snorm <<- "fit_garch_4_6_snorm"})

  tryCatch({fit_garch_5_0_snorm <-garchFit(~1 + garch(5, 0), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_5_0_snorm <<- "fit_garch_5_0_snorm"})
  tryCatch({fit_garch_5_1_snorm <-garchFit(~1 + garch(5, 1), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_5_1_snorm <<- "fit_garch_5_1_snorm"})
  tryCatch({fit_garch_5_2_snorm <-garchFit(~1 + garch(5, 2), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_5_2_snorm <<- "fit_garch_5_2_snorm"})
  tryCatch({fit_garch_5_3_snorm <-garchFit(~1 + garch(5, 3), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_5_3_snorm <<- "fit_garch_5_3_snorm"})
  tryCatch({fit_garch_5_4_snorm <-garchFit(~1 + garch(5, 4), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_5_4_snorm <<- "fit_garch_5_4_snorm"})
  tryCatch({fit_garch_5_5_snorm <-garchFit(~1 + garch(5, 5), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_5_5_snorm <<- "fit_garch_5_5_snorm"})
  tryCatch({fit_garch_5_6_snorm <-garchFit(~1 + garch(5, 6), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_5_6_snorm <<- "fit_garch_5_6_snorm"})

  tryCatch({fit_garch_6_0_snorm <-garchFit(~1 + garch(6, 0), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_6_0_snorm <<- "fit_garch_6_0_snorm"})
  tryCatch({fit_garch_6_1_snorm <-garchFit(~1 + garch(6, 1), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_6_1_snorm <<- "fit_garch_6_1_snorm"})
  tryCatch({fit_garch_6_2_snorm <-garchFit(~1 + garch(6, 2), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_6_2_snorm <<- "fit_garch_6_2_snorm"})
  tryCatch({fit_garch_6_3_snorm <-garchFit(~1 + garch(6, 3), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_6_3_snorm <<- "fit_garch_6_3_snorm"})
  tryCatch({fit_garch_6_4_snorm <-garchFit(~1 + garch(6, 4), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_6_4_snorm <<- "fit_garch_6_4_snorm"})
  tryCatch({fit_garch_6_5_snorm <-garchFit(~1 + garch(6, 5), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_6_5_snorm <<- "fit_garch_6_5_snorm"})
  tryCatch({fit_garch_6_6_snorm <-garchFit(~1 + garch(6, 6), na.omit(r), trace=F,cond.dist = "snorm") },error = function(e) {fit_garch_6_6_snorm <<- "fit_garch_6_6_snorm"})
  alle_modelle[(7*6*2+1):(7*6*3)]<-  c(fit_garch_1_0_snorm,fit_garch_1_1_snorm,fit_garch_1_2_snorm,fit_garch_1_3_snorm,fit_garch_1_4_snorm,fit_garch_1_5_snorm,fit_garch_1_6_snorm,
                                       fit_garch_2_0_snorm,fit_garch_2_1_snorm,fit_garch_2_2_snorm,fit_garch_2_3_snorm,fit_garch_2_4_snorm,fit_garch_2_5_snorm,fit_garch_2_6_snorm,
                                       fit_garch_3_0_snorm,fit_garch_3_1_snorm,fit_garch_3_2_snorm,fit_garch_3_3_snorm,fit_garch_3_4_snorm,fit_garch_3_5_snorm,fit_garch_3_6_snorm,
                                       fit_garch_4_0_snorm,fit_garch_4_1_snorm,fit_garch_4_2_snorm,fit_garch_4_3_snorm,fit_garch_4_4_snorm,fit_garch_4_5_snorm,fit_garch_4_6_snorm,
                                       fit_garch_5_0_snorm,fit_garch_5_1_snorm,fit_garch_5_2_snorm,fit_garch_5_3_snorm,fit_garch_5_4_snorm,fit_garch_5_5_snorm,fit_garch_5_6_snorm,
                                       fit_garch_6_0_snorm,fit_garch_6_1_snorm,fit_garch_6_2_snorm,fit_garch_6_3_snorm,fit_garch_6_4_snorm,fit_garch_6_5_snorm,fit_garch_6_6_snorm)
  }

  #norm
  if("norm"%in%cond.dist){

  tryCatch({fit_garch_1_0_norm <-garchFit(~1 + garch(1, 0), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_1_0_norm <<- "fit_garch_1_0_norm"})
  tryCatch({fit_garch_1_1_norm <-garchFit(~1 + garch(1, 1), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_1_1_norm <<- "fit_garch_1_1_norm"})
  tryCatch({fit_garch_1_2_norm <-garchFit(~1 + garch(1, 2), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_1_2_norm <<- "fit_garch_1_2_norm"})
  tryCatch({fit_garch_1_3_norm <-garchFit(~1 + garch(1, 3), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_1_3_norm <<- "fit_garch_1_3_norm"})
  tryCatch({fit_garch_1_4_norm <-garchFit(~1 + garch(1, 4), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_1_4_norm <<- "fit_garch_1_4_norm"})
  tryCatch({fit_garch_1_5_norm <-garchFit(~1 + garch(1, 5), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_1_5_norm <<- "fit_garch_1_5_norm"})
  tryCatch({fit_garch_1_6_norm <-garchFit(~1 + garch(1, 6), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_1_6_norm <<- "fit_garch_1_6_norm"})

  tryCatch({fit_garch_2_0_norm <-garchFit(~1 + garch(2, 0), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_2_0_norm <<- "fit_garch_2_0_norm"})
  tryCatch({fit_garch_2_1_norm <-garchFit(~1 + garch(2, 1), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_2_1_norm <<- "fit_garch_2_1_norm"})
  tryCatch({fit_garch_2_2_norm <-garchFit(~1 + garch(2, 2), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_2_2_norm <<- "fit_garch_2_2_norm"})
  tryCatch({fit_garch_2_3_norm <-garchFit(~1 + garch(2, 3), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_2_3_norm <<- "fit_garch_2_3_norm"})
  tryCatch({fit_garch_2_4_norm <-garchFit(~1 + garch(2, 4), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_2_4_norm <<- "fit_garch_2_4_norm"})
  tryCatch({fit_garch_2_5_norm <-garchFit(~1 + garch(2, 5), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_2_5_norm <<- "fit_garch_2_5_norm"})
  tryCatch({fit_garch_2_6_norm <-garchFit(~1 + garch(2, 6), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_2_6_norm <<- "fit_garch_2_6_norm"})

  tryCatch({fit_garch_3_0_norm <-garchFit(~1 + garch(3, 0), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_3_0_norm <<- "fit_garch_3_0_norm"})
  tryCatch({fit_garch_3_1_norm <-garchFit(~1 + garch(3, 1), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_3_1_norm <<- "fit_garch_3_1_norm"})
  tryCatch({fit_garch_3_2_norm <-garchFit(~1 + garch(3, 2), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_3_2_norm <<- "fit_garch_3_2_norm"})
  tryCatch({fit_garch_3_3_norm <-garchFit(~1 + garch(3, 3), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_3_3_norm <<- "fit_garch_3_3_norm"})
  tryCatch({fit_garch_3_4_norm <-garchFit(~1 + garch(3, 4), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_3_4_norm <<- "fit_garch_3_4_norm"})
  tryCatch({fit_garch_3_5_norm <-garchFit(~1 + garch(3, 5), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_3_5_norm <<- "fit_garch_3_5_norm"})
  tryCatch({fit_garch_3_6_norm <-garchFit(~1 + garch(3, 6), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_3_6_norm <<- "fit_garch_3_6_norm"})

  tryCatch({fit_garch_4_0_norm <-garchFit(~1 + garch(4, 0), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_4_0_norm <<- "fit_garch_4_0_norm"})
  tryCatch({fit_garch_4_1_norm <-garchFit(~1 + garch(4, 1), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_4_1_norm <<- "fit_garch_4_1_norm"})
  tryCatch({fit_garch_4_2_norm <-garchFit(~1 + garch(4, 2), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_4_2_norm <<- "fit_garch_4_2_norm"})
  tryCatch({fit_garch_4_3_norm <-garchFit(~1 + garch(4, 3), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_4_3_norm <<- "fit_garch_4_3_norm"})
  tryCatch({fit_garch_4_4_norm <-garchFit(~1 + garch(4, 4), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_4_4_norm <<- "fit_garch_4_4_norm"})
  tryCatch({fit_garch_4_5_norm <-garchFit(~1 + garch(4, 5), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_4_5_norm <<- "fit_garch_4_5_norm"})
  tryCatch({fit_garch_4_6_norm <-garchFit(~1 + garch(4, 6), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_4_6_norm <<- "fit_garch_4_6_norm"})

  tryCatch({fit_garch_5_0_norm <-garchFit(~1 + garch(5, 0), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_5_0_norm <<- "fit_garch_5_0_norm"})
  tryCatch({fit_garch_5_1_norm <-garchFit(~1 + garch(5, 1), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_5_1_norm <<- "fit_garch_5_1_norm"})
  tryCatch({fit_garch_5_2_norm <-garchFit(~1 + garch(5, 2), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_5_2_norm <<- "fit_garch_5_2_norm"})
  tryCatch({fit_garch_5_3_norm <-garchFit(~1 + garch(5, 3), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_5_3_norm <<- "fit_garch_5_3_norm"})
  tryCatch({fit_garch_5_4_norm <-garchFit(~1 + garch(5, 4), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_5_4_norm <<- "fit_garch_5_4_norm"})
  tryCatch({fit_garch_5_5_norm <-garchFit(~1 + garch(5, 5), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_5_5_norm <<- "fit_garch_5_5_norm"})
  tryCatch({fit_garch_5_6_norm <-garchFit(~1 + garch(5, 6), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_5_6_norm <<- "fit_garch_5_6_norm"})

  tryCatch({fit_garch_6_0_norm <-garchFit(~1 + garch(6, 0), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_6_0_norm <<- "fit_garch_6_0_norm"})
  tryCatch({fit_garch_6_1_norm <-garchFit(~1 + garch(6, 1), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_6_1_norm <<- "fit_garch_6_1_norm"})
  tryCatch({fit_garch_6_2_norm <-garchFit(~1 + garch(6, 2), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_6_2_norm <<- "fit_garch_6_2_norm"})
  tryCatch({fit_garch_6_3_norm <-garchFit(~1 + garch(6, 3), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_6_3_norm <<- "fit_garch_6_3_norm"})
  tryCatch({fit_garch_6_4_norm <-garchFit(~1 + garch(6, 4), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_6_4_norm <<- "fit_garch_6_4_norm"})
  tryCatch({fit_garch_6_5_norm <-garchFit(~1 + garch(6, 5), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_6_5_norm <<- "fit_garch_6_5_norm"})
  tryCatch({fit_garch_6_6_norm <-garchFit(~1 + garch(6, 6), na.omit(r), trace=F,cond.dist = "norm") },error = function(e) {fit_garch_6_6_norm <<- "fit_garch_6_6_norm"})
  alle_modelle[(7*6*3+1):(7*6*4)]<-  c(
    fit_garch_1_0_norm,fit_garch_1_1_norm,fit_garch_1_2_norm,fit_garch_1_3_norm,fit_garch_1_4_norm,fit_garch_1_5_norm,fit_garch_1_6_norm,
    fit_garch_2_0_norm,fit_garch_2_1_norm,fit_garch_2_2_norm,fit_garch_2_3_norm,fit_garch_2_4_norm,fit_garch_2_5_norm,fit_garch_2_6_norm,
    fit_garch_3_0_norm,fit_garch_3_1_norm,fit_garch_3_2_norm,fit_garch_3_3_norm,fit_garch_3_4_norm,fit_garch_3_5_norm,fit_garch_3_6_norm,
    fit_garch_4_0_norm,fit_garch_4_1_norm,fit_garch_4_2_norm,fit_garch_4_3_norm,fit_garch_4_4_norm,fit_garch_4_5_norm,fit_garch_4_6_norm,
    fit_garch_5_0_norm,fit_garch_5_1_norm,fit_garch_5_2_norm,fit_garch_5_3_norm,fit_garch_5_4_norm,fit_garch_5_5_norm,fit_garch_5_6_norm,
    fit_garch_6_0_norm,fit_garch_6_1_norm,fit_garch_6_2_norm,fit_garch_6_3_norm,fit_garch_6_4_norm,fit_garch_6_5_norm,fit_garch_6_6_norm)}
  #ged
  if("ged"%in%cond.dist){

  tryCatch({fit_garch_1_0_ged <-garchFit(~1 + garch(1, 0), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_1_0_ged <<- "fit_garch_1_0_ged"})
  tryCatch({fit_garch_1_1_ged <-garchFit(~1 + garch(1, 1), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_1_1_ged <<- "fit_garch_1_1_ged"})
  tryCatch({fit_garch_1_2_ged <-garchFit(~1 + garch(1, 2), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_1_2_ged <<- "fit_garch_1_2_ged"})
  tryCatch({fit_garch_1_3_ged <-garchFit(~1 + garch(1, 3), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_1_3_ged <<- "fit_garch_1_3_ged"})
  tryCatch({fit_garch_1_4_ged <-garchFit(~1 + garch(1, 4), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_1_4_ged <<- "fit_garch_1_4_ged"})
  tryCatch({fit_garch_1_5_ged <-garchFit(~1 + garch(1, 5), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_1_5_ged <<- "fit_garch_1_5_ged"})
  tryCatch({fit_garch_1_6_ged <-garchFit(~1 + garch(1, 6), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_1_6_ged <<- "fit_garch_1_6_ged"})

  tryCatch({fit_garch_2_0_ged <-garchFit(~1 + garch(2, 0), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_2_0_ged <<- "fit_garch_2_0_ged"})
  tryCatch({fit_garch_2_1_ged <-garchFit(~1 + garch(2, 1), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_2_1_ged <<- "fit_garch_2_1_ged"})
  tryCatch({fit_garch_2_2_ged <-garchFit(~1 + garch(2, 2), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_2_2_ged <<- "fit_garch_2_2_ged"})
  tryCatch({fit_garch_2_3_ged <-garchFit(~1 + garch(2, 3), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_2_3_ged <<- "fit_garch_2_3_ged"})
  tryCatch({fit_garch_2_4_ged <-garchFit(~1 + garch(2, 4), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_2_4_ged <<- "fit_garch_2_4_ged"})
  tryCatch({fit_garch_2_5_ged <-garchFit(~1 + garch(2, 5), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_2_5_ged <<- "fit_garch_2_5_ged"})
  tryCatch({fit_garch_2_6_ged <-garchFit(~1 + garch(2, 6), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_2_6_ged <<- "fit_garch_2_6_ged"})

  tryCatch({fit_garch_3_0_ged <-garchFit(~1 + garch(3, 0), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_3_0_ged <<- "fit_garch_3_0_ged"})
  tryCatch({fit_garch_3_1_ged <-garchFit(~1 + garch(3, 1), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_3_1_ged <<- "fit_garch_3_1_ged"})
  tryCatch({fit_garch_3_2_ged <-garchFit(~1 + garch(3, 2), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_3_2_ged <<- "fit_garch_3_2_ged"})
  tryCatch({fit_garch_3_3_ged <-garchFit(~1 + garch(3, 3), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_3_3_ged <<- "fit_garch_3_3_ged"})
  tryCatch({fit_garch_3_4_ged <-garchFit(~1 + garch(3, 4), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_3_4_ged <<- "fit_garch_3_4_ged"})
  tryCatch({fit_garch_3_5_ged <-garchFit(~1 + garch(3, 5), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_3_5_ged <<- "fit_garch_3_5_ged"})
  tryCatch({fit_garch_3_6_ged <-garchFit(~1 + garch(3, 6), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_3_6_ged <<- "fit_garch_3_6_ged"})

  tryCatch({fit_garch_4_0_ged <-garchFit(~1 + garch(4, 0), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_4_0_ged <<- "fit_garch_4_0_ged"})
  tryCatch({fit_garch_4_1_ged <-garchFit(~1 + garch(4, 1), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_4_1_ged <<- "fit_garch_4_1_ged"})
  tryCatch({fit_garch_4_2_ged <-garchFit(~1 + garch(4, 2), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_4_2_ged <<- "fit_garch_4_2_ged"})
  tryCatch({fit_garch_4_3_ged <-garchFit(~1 + garch(4, 3), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_4_3_ged <<- "fit_garch_4_3_ged"})
  tryCatch({fit_garch_4_4_ged <-garchFit(~1 + garch(4, 4), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_4_4_ged <<- "fit_garch_4_4_ged"})
  tryCatch({fit_garch_4_5_ged <-garchFit(~1 + garch(4, 5), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_4_5_ged <<- "fit_garch_4_5_ged"})
  tryCatch({fit_garch_4_6_ged <-garchFit(~1 + garch(4, 6), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_4_6_ged <<- "fit_garch_4_6_ged"})

  tryCatch({fit_garch_5_0_ged <-garchFit(~1 + garch(5, 0), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_5_0_ged <<- "fit_garch_5_0_ged"})
  tryCatch({fit_garch_5_1_ged <-garchFit(~1 + garch(5, 1), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_5_1_ged <<- "fit_garch_5_1_ged"})
  tryCatch({fit_garch_5_2_ged <-garchFit(~1 + garch(5, 2), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_5_2_ged <<- "fit_garch_5_2_ged"})
  tryCatch({fit_garch_5_3_ged <-garchFit(~1 + garch(5, 3), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_5_3_ged <<- "fit_garch_5_3_ged"})
  tryCatch({fit_garch_5_4_ged <-garchFit(~1 + garch(5, 4), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_5_4_ged <<- "fit_garch_5_4_ged"})
  tryCatch({fit_garch_5_5_ged <-garchFit(~1 + garch(5, 5), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_5_5_ged <<- "fit_garch_5_5_ged"})
  tryCatch({fit_garch_5_6_ged <-garchFit(~1 + garch(5, 6), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_5_6_ged <<- "fit_garch_5_6_ged"})

  tryCatch({fit_garch_6_0_ged <-garchFit(~1 + garch(6, 0), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_6_0_ged <<- "fit_garch_6_0_ged"})
  tryCatch({fit_garch_6_1_ged <-garchFit(~1 + garch(6, 1), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_6_1_ged <<- "fit_garch_6_1_ged"})
  tryCatch({fit_garch_6_2_ged <-garchFit(~1 + garch(6, 2), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_6_2_ged <<- "fit_garch_6_2_ged"})
  tryCatch({fit_garch_6_3_ged <-garchFit(~1 + garch(6, 3), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_6_3_ged <<- "fit_garch_6_3_ged"})
  tryCatch({fit_garch_6_4_ged <-garchFit(~1 + garch(6, 4), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_6_4_ged <<- "fit_garch_6_4_ged"})
  tryCatch({fit_garch_6_5_ged <-garchFit(~1 + garch(6, 5), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_6_5_ged <<- "fit_garch_6_5_ged"})
  tryCatch({fit_garch_6_6_ged <-garchFit(~1 + garch(6, 6), na.omit(r), trace=F,cond.dist = "ged") },error = function(e) {fit_garch_6_6_ged <<- "fit_garch_6_6_ged"})
  alle_modelle[(7*6*4+1):(7*6*5)]<-  c(fit_garch_1_0_ged,fit_garch_1_1_ged,fit_garch_1_2_ged,fit_garch_1_3_ged,fit_garch_1_4_ged,fit_garch_1_5_ged,fit_garch_1_6_ged,
                                       fit_garch_2_0_ged,fit_garch_2_1_ged,fit_garch_2_2_ged,fit_garch_2_3_ged,fit_garch_2_4_ged,fit_garch_2_5_ged,fit_garch_2_6_ged,
                                       fit_garch_3_0_ged,fit_garch_3_1_ged,fit_garch_3_2_ged,fit_garch_3_3_ged,fit_garch_3_4_ged,fit_garch_3_5_ged,fit_garch_3_6_ged,
                                       fit_garch_4_0_ged,fit_garch_4_1_ged,fit_garch_4_2_ged,fit_garch_4_3_ged,fit_garch_4_4_ged,fit_garch_4_5_ged,fit_garch_4_6_ged,
                                       fit_garch_5_0_ged,fit_garch_5_1_ged,fit_garch_5_2_ged,fit_garch_5_3_ged,fit_garch_5_4_ged,fit_garch_5_5_ged,fit_garch_5_6_ged,
                                       fit_garch_6_0_ged,fit_garch_6_1_ged,fit_garch_6_2_ged,fit_garch_6_3_ged,fit_garch_6_4_ged,fit_garch_6_5_ged,fit_garch_6_6_ged)
  }
  #sged
  if("sged"%in%cond.dist){

  tryCatch({fit_garch_1_0_sged <-garchFit(~1 + garch(1, 0), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_1_0_sged <<- "fit_garch_1_0_sged"})
  tryCatch({fit_garch_1_1_sged <-garchFit(~1 + garch(1, 1), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_1_1_sged <<- "fit_garch_1_1_sged"})
  tryCatch({fit_garch_1_2_sged <-garchFit(~1 + garch(1, 2), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_1_2_sged <<- "fit_garch_1_2_sged"})
  tryCatch({fit_garch_1_3_sged <-garchFit(~1 + garch(1, 3), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_1_3_sged <<- "fit_garch_1_3_sged"})
  tryCatch({fit_garch_1_4_sged <-garchFit(~1 + garch(1, 4), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_1_4_sged <<- "fit_garch_1_4_sged"})
  tryCatch({fit_garch_1_5_sged <-garchFit(~1 + garch(1, 5), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_1_5_sged <<- "fit_garch_1_5_sged"})
  tryCatch({fit_garch_1_6_sged <-garchFit(~1 + garch(1, 6), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_1_6_sged <<- "fit_garch_1_6_sged"})

  tryCatch({fit_garch_2_0_sged <-garchFit(~1 + garch(2, 0), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_2_0_sged <<- "fit_garch_2_0_sged"})
  tryCatch({fit_garch_2_1_sged <-garchFit(~1 + garch(2, 1), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_2_1_sged <<- "fit_garch_2_1_sged"})
  tryCatch({fit_garch_2_2_sged <-garchFit(~1 + garch(2, 2), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_2_2_sged <<- "fit_garch_2_2_sged"})
  tryCatch({fit_garch_2_3_sged <-garchFit(~1 + garch(2, 3), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_2_3_sged <<- "fit_garch_2_3_sged"})
  tryCatch({fit_garch_2_4_sged <-garchFit(~1 + garch(2, 4), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_2_4_sged <<- "fit_garch_2_4_sged"})
  tryCatch({fit_garch_2_5_sged <-garchFit(~1 + garch(2, 5), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_2_5_sged <<- "fit_garch_2_5_sged"})
  tryCatch({fit_garch_2_6_sged <-garchFit(~1 + garch(2, 6), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_2_6_sged <<- "fit_garch_2_6_sged"})

  tryCatch({fit_garch_3_0_sged <-garchFit(~1 + garch(3, 0), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_3_0_sged <<- "fit_garch_3_0_sged"})
  tryCatch({fit_garch_3_1_sged <-garchFit(~1 + garch(3, 1), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_3_1_sged <<- "fit_garch_3_1_sged"})
  tryCatch({fit_garch_3_2_sged <-garchFit(~1 + garch(3, 2), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_3_2_sged <<- "fit_garch_3_2_sged"})
  tryCatch({fit_garch_3_3_sged <-garchFit(~1 + garch(3, 3), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_3_3_sged <<- "fit_garch_3_3_sged"})
  tryCatch({fit_garch_3_4_sged <-garchFit(~1 + garch(3, 4), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_3_4_sged <<- "fit_garch_3_4_sged"})
  tryCatch({fit_garch_3_5_sged <-garchFit(~1 + garch(3, 5), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_3_5_sged <<- "fit_garch_3_5_sged"})
  tryCatch({fit_garch_3_6_sged <-garchFit(~1 + garch(3, 6), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_3_6_sged <<- "fit_garch_3_6_sged"})

  tryCatch({fit_garch_4_0_sged <-garchFit(~1 + garch(4, 0), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_4_0_sged <<- "fit_garch_4_0_sged"})
  tryCatch({fit_garch_4_1_sged <-garchFit(~1 + garch(4, 1), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_4_1_sged <<- "fit_garch_4_1_sged"})
  tryCatch({fit_garch_4_2_sged <-garchFit(~1 + garch(4, 2), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_4_2_sged <<- "fit_garch_4_2_sged"})
  tryCatch({fit_garch_4_3_sged <-garchFit(~1 + garch(4, 3), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_4_3_sged <<- "fit_garch_4_3_sged"})
  tryCatch({fit_garch_4_4_sged <-garchFit(~1 + garch(4, 4), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_4_4_sged <<- "fit_garch_4_4_sged"})
  tryCatch({fit_garch_4_5_sged <-garchFit(~1 + garch(4, 5), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_4_5_sged <<- "fit_garch_4_5_sged"})
  tryCatch({fit_garch_4_6_sged <-garchFit(~1 + garch(4, 6), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_4_6_sged <<- "fit_garch_4_6_sged"})

  tryCatch({fit_garch_5_0_sged <-garchFit(~1 + garch(5, 0), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_5_0_sged <<- "fit_garch_5_0_sged"})
  tryCatch({fit_garch_5_1_sged <-garchFit(~1 + garch(5, 1), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_5_1_sged <<- "fit_garch_5_1_sged"})
  tryCatch({fit_garch_5_2_sged <-garchFit(~1 + garch(5, 2), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_5_2_sged <<- "fit_garch_5_2_sged"})
  tryCatch({fit_garch_5_3_sged <-garchFit(~1 + garch(5, 3), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_5_3_sged <<- "fit_garch_5_3_sged"})
  tryCatch({fit_garch_5_4_sged <-garchFit(~1 + garch(5, 4), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_5_4_sged <<- "fit_garch_5_4_sged"})
  tryCatch({fit_garch_5_5_sged <-garchFit(~1 + garch(5, 5), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_5_5_sged <<- "fit_garch_5_5_sged"})
  tryCatch({fit_garch_5_6_sged <-garchFit(~1 + garch(5, 6), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_5_6_sged <<- "fit_garch_5_6_sged"})

  tryCatch({fit_garch_6_0_sged <-garchFit(~1 + garch(6, 0), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_6_0_sged <<- "fit_garch_6_0_sged"})
  tryCatch({fit_garch_6_1_sged <-garchFit(~1 + garch(6, 1), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_6_1_sged <<- "fit_garch_6_1_sged"})
  tryCatch({fit_garch_6_2_sged <-garchFit(~1 + garch(6, 2), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_6_2_sged <<- "fit_garch_6_2_sged"})
  tryCatch({fit_garch_6_3_sged <-garchFit(~1 + garch(6, 3), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_6_3_sged <<- "fit_garch_6_3_sged"})
  tryCatch({fit_garch_6_4_sged <-garchFit(~1 + garch(6, 4), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_6_4_sged <<- "fit_garch_6_4_sged"})
  tryCatch({fit_garch_6_5_sged <-garchFit(~1 + garch(6, 5), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_6_5_sged <<- "fit_garch_6_5_sged"})
  tryCatch({fit_garch_6_6_sged <-garchFit(~1 + garch(6, 6), na.omit(r), trace=F,cond.dist = "sged") },error = function(e) {fit_garch_6_6_sged <<- "fit_garch_6_6_sged"})
  alle_modelle[(7*6*5+1):(7*6*6)]<-  c(
    fit_garch_1_0_sged,fit_garch_1_1_sged,fit_garch_1_2_sged,fit_garch_1_3_sged,fit_garch_1_4_sged,fit_garch_1_5_sged,fit_garch_1_6_sged,
    fit_garch_2_0_sged,fit_garch_2_1_sged,fit_garch_2_2_sged,fit_garch_2_3_sged,fit_garch_2_4_sged,fit_garch_2_5_sged,fit_garch_2_6_sged,
    fit_garch_3_0_sged,fit_garch_3_1_sged,fit_garch_3_2_sged,fit_garch_3_3_sged,fit_garch_3_4_sged,fit_garch_3_5_sged,fit_garch_3_6_sged,
    fit_garch_4_0_sged,fit_garch_4_1_sged,fit_garch_4_2_sged,fit_garch_4_3_sged,fit_garch_4_4_sged,fit_garch_4_5_sged,fit_garch_4_6_sged,
    fit_garch_5_0_sged,fit_garch_5_1_sged,fit_garch_5_2_sged,fit_garch_5_3_sged,fit_garch_5_4_sged,fit_garch_5_5_sged,fit_garch_5_6_sged,
    fit_garch_6_0_sged,fit_garch_6_1_sged,fit_garch_6_2_sged,fit_garch_6_3_sged,fit_garch_6_4_sged,fit_garch_6_5_sged,fit_garch_6_6_sged)
  }
  #QMLE
  if("snig"%in%cond.dist){

  tryCatch({fit_garch_1_0_snig<-garchFit(~1 + garch(1, 0), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_1_0_snig <<- "fit_garch_1_0_snig"})
  tryCatch({fit_garch_1_1_snig <-garchFit(~1 + garch(1, 1), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_1_1_snig <<- "fit_garch_1_1_snig"})
  tryCatch({fit_garch_1_2_snig <-garchFit(~1 + garch(1, 2), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_1_2_snig <<- "fit_garch_1_2_snig"})
  tryCatch({fit_garch_1_3_snig <-garchFit(~1 + garch(1, 3), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_1_3_snig <<- "fit_garch_1_3_snig"})
  tryCatch({fit_garch_1_4_snig <-garchFit(~1 + garch(1, 4), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_1_4_snig <<- "fit_garch_1_4_snig"})
  tryCatch({fit_garch_1_5_snig <-garchFit(~1 + garch(1, 5), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_1_5_snig <<- "fit_garch_1_5_snig"})
  tryCatch({fit_garch_1_6_snig <-garchFit(~1 + garch(1, 6), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_1_6_snig <<- "fit_garch_1_6_snig"})

  tryCatch({fit_garch_2_0_snig <-garchFit(~1 + garch(2, 0), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_2_0_snig <<- "fit_garch_2_0_snig"})
  tryCatch({fit_garch_2_1_snig <-garchFit(~1 + garch(2, 1), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_2_1_snig <<- "fit_garch_2_1_snig"})
  tryCatch({fit_garch_2_2_snig <-garchFit(~1 + garch(2, 2), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_2_2_snig <<- "fit_garch_2_2_snig"})
  tryCatch({fit_garch_2_3_snig <-garchFit(~1 + garch(2, 3), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_2_3_snig <<- "fit_garch_2_3_snig"})
  tryCatch({fit_garch_2_4_snig <-garchFit(~1 + garch(2, 4), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_2_4_snig <<- "fit_garch_2_4_snig"})
  tryCatch({fit_garch_2_5_snig <-garchFit(~1 + garch(2, 5), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_2_5_snig <<- "fit_garch_2_5_snig"})
  tryCatch({fit_garch_2_6_snig <-garchFit(~1 + garch(2, 6), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_2_6_snig <<- "fit_garch_2_6_snig"})

  tryCatch({fit_garch_3_0_snig <-garchFit(~1 + garch(3, 0), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_3_0_snig <<- "fit_garch_3_0_snig"})
  tryCatch({fit_garch_3_1_snig <-garchFit(~1 + garch(3, 1), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_3_1_snig <<- "fit_garch_3_1_snig"})
  tryCatch({fit_garch_3_2_snig <-garchFit(~1 + garch(3, 2), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_3_2_snig <<- "fit_garch_3_2_snig"})
  tryCatch({fit_garch_3_3_snig <-garchFit(~1 + garch(3, 3), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_3_3_snig <<- "fit_garch_3_3_snig"})
  tryCatch({fit_garch_3_4_snig <-garchFit(~1 + garch(3, 4), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_3_4_snig <<- "fit_garch_3_4_snig"})
  tryCatch({fit_garch_3_5_snig <-garchFit(~1 + garch(3, 5), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_3_5_snig <<- "fit_garch_3_5_snig"})
  tryCatch({fit_garch_3_6_snig <-garchFit(~1 + garch(3, 6), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_3_6_snig <<- "fit_garch_3_6_snig"})

  tryCatch({fit_garch_4_0_snig <-garchFit(~1 + garch(4, 0), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_4_0_snig <<- "fit_garch_4_0_snig"})
  tryCatch({fit_garch_4_1_snig <-garchFit(~1 + garch(4, 1), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_4_1_snig <<- "fit_garch_4_1_snig"})
  tryCatch({fit_garch_4_2_snig <-garchFit(~1 + garch(4, 2), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_4_2_snig <<- "fit_garch_4_2_snig"})
  tryCatch({fit_garch_4_3_snig <-garchFit(~1 + garch(4, 3), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_4_3_snig <<- "fit_garch_4_3_snig"})
  tryCatch({fit_garch_4_4_snig <-garchFit(~1 + garch(4, 4), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_4_4_snig <<- "fit_garch_4_4_snig"})
  tryCatch({fit_garch_4_5_snig <-garchFit(~1 + garch(4, 5), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_4_5_snig <<- "fit_garch_4_5_snig"})
  tryCatch({fit_garch_4_6_snig <-garchFit(~1 + garch(4, 6), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_4_6_snig <<- "fit_garch_4_6_snig"})

  tryCatch({fit_garch_5_0_snig <-garchFit(~1 + garch(5, 0), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_5_0_snig <<- "fit_garch_5_0_snig"})
  tryCatch({fit_garch_5_1_snig <-garchFit(~1 + garch(5, 1), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_5_1_snig <<- "fit_garch_5_1_snig"})
  tryCatch({fit_garch_5_2_snig <-garchFit(~1 + garch(5, 2), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_5_2_snig <<- "fit_garch_5_2_snig"})
  tryCatch({fit_garch_5_3_snig <-garchFit(~1 + garch(5, 3), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_5_3_snig <<- "fit_garch_5_3_snig"})
  tryCatch({fit_garch_5_4_snig <-garchFit(~1 + garch(5, 4), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_5_4_snig <<- "fit_garch_5_4_snig"})
  tryCatch({fit_garch_5_5_snig <-garchFit(~1 + garch(5, 5), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_5_5_snig <<- "fit_garch_5_5_snig"})
  tryCatch({fit_garch_5_6_snig <-garchFit(~1 + garch(5, 6), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_5_6_snig <<- "fit_garch_5_6_snig"})

  tryCatch({fit_garch_6_0_snig <-garchFit(~1 + garch(6, 0), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_6_0_snig <<- "fit_garch_6_0_snig"})
  tryCatch({fit_garch_6_1_snig <-garchFit(~1 + garch(6, 1), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_6_1_snig <<- "fit_garch_6_1_snig"})
  tryCatch({fit_garch_6_2_snig <-garchFit(~1 + garch(6, 2), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_6_2_snig <<- "fit_garch_6_2_snig"})
  tryCatch({fit_garch_6_3_snig <-garchFit(~1 + garch(6, 3), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_6_3_snig <<- "fit_garch_6_3_snig"})
  tryCatch({fit_garch_6_4_snig <-garchFit(~1 + garch(6, 4), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_6_4_snig <<- "fit_garch_6_4_snig"})
  tryCatch({fit_garch_6_5_snig <-garchFit(~1 + garch(6, 5), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_6_5_snig <<- "fit_garch_6_5_snig"})
  tryCatch({fit_garch_6_6_snig <-garchFit(~1 + garch(6, 6), na.omit(r), trace=F,cond.dist = "snig") },error = function(e) {fit_garch_6_6_snig <<- "fit_garch_6_6_snig"})
  alle_modelle[(7*6*6+1):(7*6*7)]<-  c(fit_garch_1_0_snig,fit_garch_1_1_snig,fit_garch_1_2_snig,fit_garch_1_3_snig,fit_garch_1_4_snig,fit_garch_1_5_snig,fit_garch_1_6_snig,
                                       fit_garch_2_0_snig,fit_garch_2_1_snig,fit_garch_2_2_snig,fit_garch_2_3_snig,fit_garch_2_4_snig,fit_garch_2_5_snig,fit_garch_2_6_snig,
                                       fit_garch_3_0_snig,fit_garch_3_1_snig,fit_garch_3_2_snig,fit_garch_3_3_snig,fit_garch_3_4_snig,fit_garch_3_5_snig,fit_garch_3_6_snig,
                                       fit_garch_4_0_snig,fit_garch_4_1_snig,fit_garch_4_2_snig,fit_garch_4_3_snig,fit_garch_4_4_snig,fit_garch_4_5_snig,fit_garch_4_6_snig,
                                       fit_garch_5_0_snig,fit_garch_5_1_snig,fit_garch_5_2_snig,fit_garch_5_3_snig,fit_garch_5_4_snig,fit_garch_5_5_snig,fit_garch_5_6_snig,
                                       fit_garch_6_0_snig,fit_garch_6_1_snig,fit_garch_6_2_snig,fit_garch_6_3_snig,fit_garch_6_4_snig,fit_garch_6_5_snig,fit_garch_6_6_snig)
  }
  #QMLE
  if("QMLE"%in%cond.dist){

  tryCatch({fit_garch_1_0_QMLE <-garchFit(~1 + garch(1, 0), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_1_0_QMLE <<- "fit_garch_1_0_QMLE"})
  tryCatch({fit_garch_1_1_QMLE <-garchFit(~1 + garch(1, 1), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_1_1_QMLE <<- "fit_garch_1_1_QMLE"})
  tryCatch({fit_garch_1_2_QMLE <-garchFit(~1 + garch(1, 2), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_1_2_QMLE <<- "fit_garch_1_2_QMLE"})
  tryCatch({fit_garch_1_3_QMLE <-garchFit(~1 + garch(1, 3), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_1_3_QMLE <<- "fit_garch_1_3_QMLE"})
  tryCatch({fit_garch_1_4_QMLE <-garchFit(~1 + garch(1, 4), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_1_4_QMLE <<- "fit_garch_1_4_QMLE"})
  tryCatch({fit_garch_1_5_QMLE <-garchFit(~1 + garch(1, 5), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_1_5_QMLE <<- "fit_garch_1_5_QMLE"})
  tryCatch({fit_garch_1_6_QMLE <-garchFit(~1 + garch(1, 6), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_1_6_QMLE <<- "fit_garch_1_6_QMLE"})

  tryCatch({fit_garch_2_0_QMLE <-garchFit(~1 + garch(2, 0), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_2_0_QMLE <<- "fit_garch_2_0_QMLE"})
  tryCatch({fit_garch_2_1_QMLE <-garchFit(~1 + garch(2, 1), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_2_1_QMLE <<- "fit_garch_2_1_QMLE"})
  tryCatch({fit_garch_2_2_QMLE <-garchFit(~1 + garch(2, 2), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_2_2_QMLE <<- "fit_garch_2_2_QMLE"})
  tryCatch({fit_garch_2_3_QMLE <-garchFit(~1 + garch(2, 3), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_2_3_QMLE <<- "fit_garch_2_3_QMLE"})
  tryCatch({fit_garch_2_4_QMLE <-garchFit(~1 + garch(2, 4), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_2_4_QMLE <<- "fit_garch_2_4_QMLE"})
  tryCatch({fit_garch_2_5_QMLE <-garchFit(~1 + garch(2, 5), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_2_5_QMLE <<- "fit_garch_2_5_QMLE"})
  tryCatch({fit_garch_2_6_QMLE <-garchFit(~1 + garch(2, 6), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_2_6_QMLE <<- "fit_garch_2_6_QMLE"})

  tryCatch({fit_garch_3_0_QMLE <-garchFit(~1 + garch(3, 0), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_3_0_QMLE <<- "fit_garch_3_0_QMLE"})
  tryCatch({fit_garch_3_1_QMLE <-garchFit(~1 + garch(3, 1), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_3_1_QMLE <<- "fit_garch_3_1_QMLE"})
  tryCatch({fit_garch_3_2_QMLE <-garchFit(~1 + garch(3, 2), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_3_2_QMLE <<- "fit_garch_3_2_QMLE"})
  tryCatch({fit_garch_3_3_QMLE <-garchFit(~1 + garch(3, 3), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_3_3_QMLE <<- "fit_garch_3_3_QMLE"})
  tryCatch({fit_garch_3_4_QMLE <-garchFit(~1 + garch(3, 4), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_3_4_QMLE <<- "fit_garch_3_4_QMLE"})
  tryCatch({fit_garch_3_5_QMLE <-garchFit(~1 + garch(3, 5), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_3_5_QMLE <<- "fit_garch_3_5_QMLE"})
  tryCatch({fit_garch_3_6_QMLE <-garchFit(~1 + garch(3, 6), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_3_6_QMLE <<- "fit_garch_3_6_QMLE"})

  tryCatch({fit_garch_4_0_QMLE <-garchFit(~1 + garch(4, 0), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_4_0_QMLE <<- "fit_garch_4_0_QMLE"})
  tryCatch({fit_garch_4_1_QMLE <-garchFit(~1 + garch(4, 1), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_4_1_QMLE <<- "fit_garch_4_1_QMLE"})
  tryCatch({fit_garch_4_2_QMLE <-garchFit(~1 + garch(4, 2), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_4_2_QMLE <<- "fit_garch_4_2_QMLE"})
  tryCatch({fit_garch_4_3_QMLE <-garchFit(~1 + garch(4, 3), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_4_3_QMLE <<- "fit_garch_4_3_QMLE"})
  tryCatch({fit_garch_4_4_QMLE <-garchFit(~1 + garch(4, 4), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_4_4_QMLE <<- "fit_garch_4_4_QMLE"})
  tryCatch({fit_garch_4_5_QMLE <-garchFit(~1 + garch(4, 5), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_4_5_QMLE <<- "fit_garch_4_5_QMLE"})
  tryCatch({fit_garch_4_6_QMLE <-garchFit(~1 + garch(4, 6), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_4_6_QMLE <<- "fit_garch_4_6_QMLE"})

  tryCatch({fit_garch_5_0_QMLE <-garchFit(~1 + garch(5, 0), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_5_0_QMLE <<- "fit_garch_5_0_QMLE"})
  tryCatch({fit_garch_5_1_QMLE <-garchFit(~1 + garch(5, 1), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_5_1_QMLE <<- "fit_garch_5_1_QMLE"})
  tryCatch({fit_garch_5_2_QMLE <-garchFit(~1 + garch(5, 2), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_5_2_QMLE <<- "fit_garch_5_2_QMLE"})
  tryCatch({fit_garch_5_3_QMLE <-garchFit(~1 + garch(5, 3), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_5_3_QMLE <<- "fit_garch_5_3_QMLE"})
  tryCatch({fit_garch_5_4_QMLE <-garchFit(~1 + garch(5, 4), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_5_4_QMLE <<- "fit_garch_5_4_QMLE"})
  tryCatch({fit_garch_5_5_QMLE <-garchFit(~1 + garch(5, 5), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_5_5_QMLE <<- "fit_garch_5_5_QMLE"})
  tryCatch({fit_garch_5_6_QMLE <-garchFit(~1 + garch(5, 6), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_5_6_QMLE <<- "fit_garch_5_6_QMLE"})

  tryCatch({fit_garch_6_0_QMLE <-garchFit(~1 + garch(6, 0), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_6_0_QMLE <<- "fit_garch_6_0_QMLE"})
  tryCatch({fit_garch_6_1_QMLE <-garchFit(~1 + garch(6, 1), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_6_1_QMLE <<- "fit_garch_6_1_QMLE"})
  tryCatch({fit_garch_6_2_QMLE <-garchFit(~1 + garch(6, 2), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_6_2_QMLE <<- "fit_garch_6_2_QMLE"})
  tryCatch({fit_garch_6_3_QMLE <-garchFit(~1 + garch(6, 3), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_6_3_QMLE <<- "fit_garch_6_3_QMLE"})
  tryCatch({fit_garch_6_4_QMLE <-garchFit(~1 + garch(6, 4), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_6_4_QMLE <<- "fit_garch_6_4_QMLE"})
  tryCatch({fit_garch_6_5_QMLE <-garchFit(~1 + garch(6, 5), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_6_5_QMLE <<- "fit_garch_6_5_QMLE"})
  tryCatch({fit_garch_6_6_QMLE <-garchFit(~1 + garch(6, 6), na.omit(r), trace=F,cond.dist = "QMLE") },error = function(e) {fit_garch_6_6_QMLE <<- "fit_garch_6_6_QMLE"})

  alle_modelle[(7*6*7+1):(7*6*8)]<-c(fit_garch_1_0_QMLE,fit_garch_1_1_QMLE,fit_garch_1_2_QMLE,fit_garch_1_3_QMLE,fit_garch_1_4_QMLE,fit_garch_1_5_QMLE,fit_garch_1_6_QMLE,
                  fit_garch_2_0_QMLE,fit_garch_2_1_QMLE,fit_garch_2_2_QMLE,fit_garch_2_3_QMLE,fit_garch_2_4_QMLE,fit_garch_2_5_QMLE,fit_garch_2_6_QMLE,
                  fit_garch_3_0_QMLE,fit_garch_3_1_QMLE,fit_garch_3_2_QMLE,fit_garch_3_3_QMLE,fit_garch_3_4_QMLE,fit_garch_3_5_QMLE,fit_garch_3_6_QMLE,
                  fit_garch_4_0_QMLE,fit_garch_4_1_QMLE,fit_garch_4_2_QMLE,fit_garch_4_3_QMLE,fit_garch_4_4_QMLE,fit_garch_4_5_QMLE,fit_garch_4_6_QMLE,
                  fit_garch_5_0_QMLE,fit_garch_5_1_QMLE,fit_garch_5_2_QMLE,fit_garch_5_3_QMLE,fit_garch_5_4_QMLE,fit_garch_5_5_QMLE,fit_garch_5_6_QMLE,
                  fit_garch_6_0_QMLE,fit_garch_6_1_QMLE,fit_garch_6_2_QMLE,fit_garch_6_3_QMLE,fit_garch_6_4_QMLE,fit_garch_6_5_QMLE,fit_garch_6_6_QMLE)
  }

dim(alle_modelle)
  # Es wird auf jedes Modell zugegriffen und die Parameter in die entsprechende Zeile/Spalte eingetragen
i<-1
  for(i in 1:length(alle_modelle)){
    a<-alle_modelle[i]
    if(is.character(a[[1]])==F){
      table_parameter[i,1]<-  a[[1]]@fit$ics[1] # AIC
      table_parameter[i,2]<-  a[[1]]@fit$ics[2] # BIC
      table_parameter[i,3]<-  a[[1]]@fit$ics[3] # SIC
      table_parameter[i,4]<-  a[[1]]@fit$ics[4] # HQIC

      pq<-as.integer(a[[1]]@fit$series$order[3])+ as.integer(a[[1]]@fit$series$order[4])
      if(pq<10){
           table_parameter[i,5]<-Box.test(residuals(a[[1]],standardize=T),lag=10,"Ljung-Box",pq)$p.value # Abhaenigkeit r
      }
      table_parameter[i,6]<-Box.test(residuals(a[[1]],standardize=T),lag=15,"Ljung-Box",pq)$p.value
      table_parameter[i,7]<-Box.test(residuals(a[[1]],standardize=T),lag=20,"Ljung-Box",pq)$p.value
      if(pq<10){
           table_parameter[i,8]<-Box.test(residuals(a[[1]],standardize=T)^2,lag=10,"Ljung-Box",pq)$p.value # Abhaenigkeit r^2
      }
      table_parameter[i,9]<-Box.test(residuals(a[[1]],standardize=T)^2,lag=15,"Ljung-Box",pq)$p.value
      table_parameter[i,10]<-Box.test(residuals(a[[1]],standardize=T)^2,lag=20,"Ljung-Box",pq)$p.value

      table_parameter[i,11]<-jarqueberaTest(residuals(a[[1]], standardize=T))@test$p.value
      table_parameter[i,12]<-shapiro.test(residuals(a[[1]], standardize=T))$p.value
      table_parameter[i,13]<-a[[1]]@fit$llh # Log Likeliehood

      }
  }

  time_2<-Sys.time()
  time_final<-time_2-time_1
  pairs(table_parameter,lower.panel = NULL,main=paste(length(r),"data",length(na.omit(table_parameter[,1])),"Modelle", round(time_final,2),"min"))
  return(table_parameter)
}