library(flexdashboard) library(rAmCharts) library(antaresFlowbased) library(manipulateWidget)
data_error <- data.table::rbindlist(lapply(1:nrow(dta), function(x){ cbind(dta[x, list(hour, dayType)], dta[x, outFlowBased][[1]]$error) }))
data_render <- copy(data_error) setnames(data_render, c("error1", "error2"), c("Inf error", "Sup error")) knitr::kable(data_render)
combineWidgets( plot(amHist(x = data_error$error1, main = "Inf error", export = T, xlab = "Inf error")), plot(amHist(x = data_error$error2, main = "Sup error", export = T, xlab = "Sup error")) )
data <- dta[hour == 1, outFlowBased][[1]] hour <- 1
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 2, outFlowBased][[1]] hour <- 2
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 3, outFlowBased][[1]] hour <- 3
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 4, outFlowBased][[1]] hour <- 4
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 5, outFlowBased][[1]] hour <- 5
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 6, outFlowBased][[1]] hour <- 6
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 7, outFlowBased][[1]] hour <- 7
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 8, outFlowBased][[1]] hour <- 8
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 9, outFlowBased][[1]] hour <- 9
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 10, outFlowBased][[1]] hour <- 10
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 11, outFlowBased][[1]] hour <- 11
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 12, outFlowBased][[1]] hour <- 12
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 13, outFlowBased][[1]] hour <- 13
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 14, outFlowBased][[1]] hour <- 14
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 15, outFlowBased][[1]] hour <- 15
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 16, outFlowBased][[1]] hour <- 16
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 17, outFlowBased][[1]] hour <- 17
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 18, outFlowBased][[1]] hour <- 18
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 19, outFlowBased][[1]] hour <- 19
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 20, outFlowBased][[1]] hour <- 20
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 21, outFlowBased][[1]] hour <- 21
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 22, outFlowBased][[1]] hour <- 22
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 23, outFlowBased][[1]] hour <- 23
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
data <- dta[hour == 24, outFlowBased][[1]] hour <- 24
valueBox(paste0(round(data$error$error1, 1) , "%"), icon = "ion-ios-minus")
valueBox(paste0(round(data$error$error2, 1) , "%"), icon = "ion-ios-plus")
graphFlowBased2D(data, "BE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "FR", hour = hour, dayType = dayType)
graphFlowBased2D(data, "BE", "NL", hour = hour, dayType = dayType)
graphFlowBased2D(data, "DE", "NL", hour = hour, dayType = dayType)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.