In rte-antares-rpackage/fbAntares:

library(flexdashboard)
library(rAmCharts)
library(manipulateWidget)
library(DT)
library(fbAntares)
library(shiny)

vizModelReal <- function(data, combi, hour, dayType, 
                         xlim, ylim) {

  # column(12,
  combineWidgets(
    ncol = 2,
    list = lapply(1:nrow(combi), function(X) {
      graphFlowBased2D(data, ctry1 = combi[X, 1], ctry2 = combi[X, 2], hour = hour,
                       dayType = dayType, xlim = xlim, ylim = ylim, export = F)
    }), width = "100%", height = "100%"
  )
  # )
  # plotFB(dayType = 1, hour = 1:4,country1 = country1, country2 = country2, 
  # fb_opts = fb_opts, areaName = "cwe_at", xlim = xlim, ylim = ylim)

}

Errors

data_error <- dta[idDayType == dayType, .SD, .SDcols = c("idDayType", "Period", "error1", "error2")]

Table

data_render <- copy(data_error)
setnames(data_render, c("error1", "error2"), c("Inf error", "Sup error"))
knitr::kable(data_render)

Histogram

combineWidgets(
  plot(amHist(x = data_error$error1, main = "Inf error", export = F, xlab = "Inf error")),
  plot(amHist(x = data_error$error2, main = "Sup error", export = F, xlab = "Sup error"))
)

Hour 1 {data-navmenu="Hour"}

Row

data <- dta[Period == 1]
hour <- 1

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 2 {data-navmenu="Hour"}

Row

data <- dta[Period == 2]
hour <- 2

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 3 {data-navmenu="Hour"}

Row

data <- dta[Period == 3]
hour <- 3

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 4 {data-navmenu="Hour"}

Row

data <- dta[Period == 4]
hour <- 4

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 5 {data-navmenu="Hour"}

Row

data <- dta[Period == 5]
hour <- 5

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 6 {data-navmenu="Hour"}

Row

data <- dta[Period == 6]
hour <- 6

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 7 {data-navmenu="Hour"}

Row

data <- dta[Period == 7]
hour <- 7

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 8 {data-navmenu="Hour"}

Row

data <- dta[Period == 8]
hour <- 8

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 9 {data-navmenu="Hour"}

Row

data <- dta[Period == 9]
hour <- 9

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 10 {data-navmenu="Hour"}

Row

data <- dta[Period == 10]
hour <- 10

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 11 {data-navmenu="Hour"}

Row

data <- dta[Period == 11]
hour <- 11

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 12 {data-navmenu="Hour"}

Row

data <- dta[Period == 12]
hour <- 12

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 13 {data-navmenu="Hour"}

Row

data <- dta[Period == 13]
hour <- 13

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 14 {data-navmenu="Hour"}

Row

data <- dta[Period == 14]
hour <- 14

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 15 {data-navmenu="Hour"}

Row

data <- dta[Period == 15]
hour <- 15

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 16 {data-navmenu="Hour"}

Row

data <- dta[Period == 16]
hour <- 16

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 17 {data-navmenu="Hour"}

Row

data <- dta[Period == 17]
hour <- 17

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 18 {data-navmenu="Hour"}

Row

data <- dta[Period == 18]
hour <- 18

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 19 {data-navmenu="Hour"}

Row

data <- dta[Period == 19]
hour <- 19

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 20 {data-navmenu="Hour"}

Row

data <- dta[Period == 20]
hour <- 20

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 21 {data-navmenu="Hour"}

Row

data <- dta[Period == 21]
hour <- 21

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 22 {data-navmenu="Hour"}

Row

data <- dta[Period == 22]
hour <- 22

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 23 {data-navmenu="Hour"}

Row

data <- dta[Period == 23]
hour <- 23

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

Hour 24 {data-navmenu="Hour"}

Row

data <- dta[Period == 24]
hour <- 24

Inf error (points belonging to the historical domain but not to the model)

valueBox(paste0(round(data$error1, 1) , "%"), icon = "ion-ios-minus")

Sup error (points belonging to the model but not to the historical domain)

valueBox(paste0(round(data$error2, 1) , "%"), icon = "ion-ios-plus")

Row {data-height=650}

vizModelReal(data, combi, hour, dayType, xlim = xlim, ylim = ylim)

rte-antares-rpackage/fbAntares documentation built on June 1, 2022, 6:20 p.m.