Commit c7c358a6 authored by jbracher's avatar jbracher
Browse files

Updating codes.

parent be73f2d4
......@@ -44,4 +44,4 @@ if (length(unique(ranking$n_eval_cases)) != 1){
kable(ranking[,-2], digits = 2)
write.csv(ranking, file = "../ptsfc_viz/plot_data/rankings.csv")
write.csv(ranking, file = "../ptsfc_viz/plot_data/rankings.csv", row.names = FALSE)
......@@ -24,6 +24,9 @@ source("functions.R")
# summary of evaluations:
eval <- read.csv("plot_data/summary_eval.csv")
# rankings:
rankings <- read.csv("plot_data/rankings.csv")
rankings$mean_rk_overall <- round(rankings$mean_rk_overall, 2)
# get vector of model names:
dat_models <- read.csv("plot_data/list_teams.csv")
......@@ -386,4 +389,11 @@ shinyServer(function(input, output, session) {
colnames = c("", "model", "target", "horizon", "MAE", "MQS", "C0.5", "C0.95", "n", "imputed"))
})
# table with ranks:
# output table:
output$tab_rankings <- DT::renderDataTable({
datatable(rankings[, -2], filter = "top",
colnames = c("", "model", "av. rank wind", "av. rank temperature", "av. rank DAX", "av. rank overall"))
})
})
......@@ -62,7 +62,9 @@ shinyUI(fluidPage(
h4("Forecast visualization"),
plotlyOutput("tsplot", height = "600px"),
h4("Average evaluation scores by target and horizon"),
dataTableOutput("tab")
dataTableOutput("tab"),
h4("Rankings"),
dataTableOutput("tab_rankings")
)
)
))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment