# Fri Jan 24 23:53:50 2020 ------------------------------
#' Initialize the robust optimization
#'
#' The function translates the indicators values and uncertainties for the land-use options into a solvable *optimLanduse* object.
#'
#' @param coefTable See the exemplary import folder.
#' @param uValue u Value.
#' @param optimisticRule Either *expectation* or *uncertaintyAdjustedExpectation*. It indicates weather the optimistic outcomes of an indicator are directly reflected by the *expectation* or if the indicator is *adjusted*.
#' @return An initialized landUse portfolio ready for optimization.
scenarioTable<-scenarioTable%>%select(-contains("mean"),everything())# Order the variables, such that the means and uncertainties follow in direct succession
scenarioTable<-scenarioTable%>%select(-contains("sem"),everything())# Alternatively, but slower, a second loop would be suitable
if(!dim(scenarioTableTemp1)[1]==dim(scenarioTable)[1]){cat("Error: Attaching expectation or uncertainty failed.")}