Miscellaneous Code

Funktion zum formatieren von Nachkommastellen

format_num <- function(input, decimals){
  input <- round(input, decimals)
  output <- sprintf(paste("%.",decimals,"f", sep=''), input)
  return(output)
}