search

uwesterr / CoronaPredict

With AdMOS develop a shiny app to predict corona progress
1 stars 2 forks source link

set suggestion values based on optimized values stored in InputFileFo… #157

Closed uwesterr closed 4 years ago

uwesterr commented 4 years ago

…rAppFolder

  # set suggestions values according to values of previous run
  tmp <- dfNested %>%  filter(whichRegion == regionSelected) 
  OptResultDf <- tmp[[1,"optimizedInput"]]
  for (inputVarName in OptResultDf[[1]] %>% names) {
    if (inputVarName %in% (parameter_tibble$var_name)) {
      index <- which(parameter_tibble$var_name == inputVarName)
      parameter_tibble[index,"var_value"] <- OptResultDf[[1]][[inputVarName]] 
    }
  }