Epidemic.TA System for Forecasting Covid-19 Cases Using Time Series and Neural Networks Models

Daily Covid 19 Infections cases In Russian Federation For forecasting third Wave

Makarovskikh Tatyana Anatolyevna “Макаровских Татьяна Анатольевна”

Abotaleb mostafa“Аботалеб Мостафа”

Department of Electrical Engineering and Computer Science

South ural state university, Chelyabinsk, Russian federation

#Import
library(fpp2)

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

## -- Attaching packages ---------------------------------------------- fpp2 2.4 --

## v ggplot2   3.3.2     v fma       2.4  
## v forecast  8.13      v expsmooth 2.3

## 

library(forecast)
library(ggplot2)
library("readxl")
library(moments)
library(forecast)
require(forecast)  
require(tseries)

## Loading required package: tseries

require(markovchain)

## Loading required package: markovchain

## Package:  markovchain
## Version:  0.8.5-3
## Date:     2020-12-03
## BugReport: https://github.com/spedygiorgio/markovchain/issues

require(data.table)

## Loading required package: data.table

library(Hmisc)

## Loading required package: lattice

## Loading required package: survival

## Loading required package: Formula

## 
## Attaching package: 'Hmisc'

## The following objects are masked from 'package:base':
## 
##     format.pval, units

library(ascii)
library(pander)

## 
## Attaching package: 'pander'

## The following object is masked from 'package:ascii':
## 
##     Pandoc

Full_original_data <- read_excel("F:/Phd/Spain conference/data.xlsx", sheet = "Infection and deaths") # path of your data ( time series data)
original_data<-Full_original_data$New_cases
y_lab <- "Covid 19 Infection cases in Russia Federation"   # input name of data
Actual_date_interval <- c("2020/03/01","2021/03/22")
Forecast_date_interval <- c("2021/03/23","2021/07/30")
validation_data_days <-50
Number_Neural<-50
NNAR_Model<- TRUE     #create new model (TRUE/FALSE)
frequency<-"days"
country.name <- "Russia Federation"

# Data Preparation & calculate some of statistics measures
summary(original_data) # Summary your time series

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##       0    4744    7972   10036   15916   29935

# calculate standard deviation 
data.frame(kurtosis=kurtosis(original_data))   # calculate Cofficient of kurtosis

##   kurtosis
## 1 2.437764

data.frame(skewness=skewness(original_data))  # calculate Cofficient of skewness

##    skewness
## 1 0.7181981

data.frame(Standard.deviation =sd(original_data))

##   Standard.deviation
## 1           8659.757

#processing on data (input data)
rows <- NROW(original_data) # calculate number of rows in time series (number of days)
training_data<-original_data[1:(rows-validation_data_days)] # Training data
testing_data<-original_data[(rows-validation_data_days+1):rows] #testing data
AD<-fulldate<-seq(as.Date(Actual_date_interval[1]),as.Date(Actual_date_interval[2]), frequency)  #input range for actual date
FD<-seq(as.Date(Forecast_date_interval[1]),as.Date(Forecast_date_interval[2]), frequency)  #input range forecasting date
N_forecasting_days<-nrow(data.frame(FD))  #calculate number of days that you want to forecasting
validation_dates<-tail(AD,validation_data_days) # select validation_dates
validation_data_by_name<-weekdays(validation_dates) # put names of validation dates
forecasting_data_by_name<-weekdays(FD)  # put names of Forecasting dates
#NNAR Model 
if(NNAR_Model==TRUE){
  data_series<-ts(training_data)
  model_NNAR<-nnetar(data_series, size = Number_Neural)
  saveRDS(model_NNAR, file = "model_NNAR.RDS")
  my_model <- readRDS("model_NNAR.RDS")
  accuracy(model_NNAR)  # accuracy on training data #Print Model Parameters
  model_NNAR
}

## Series: data_series 
## Model:  NNAR(8,50) 
## Call:   nnetar(y = data_series, size = Number_Neural)
## 
## Average of 20 networks, each of which is
## a 8-50-1 network with 501 weights
## options were - linear output units 
## 
## sigma^2 estimated as 162871

if(NNAR_Model==FALSE){
  data_series<-ts(training_data)
  #model_NNAR<-nnetar(data_series, size = Number_Numeral)
  model_NNAR <- readRDS("model_NNAR.RDS")
  accuracy(model_NNAR)  # accuracy on training data #Print Model Parameters
  model_NNAR
}

# Testing Data Evaluation
forecasting_NNAR <- forecast(model_NNAR, h=N_forecasting_days+validation_data_days)
validation_forecast<-head(forecasting_NNAR$mean,validation_data_days)
MAPE_Per_Day<-round(  abs(((testing_data-validation_forecast)/testing_data)*100)  ,3)
paste ("MAPE % For ",validation_data_days,frequency,"by using NNAR Model for  ==> ",y_lab, sep=" ")

## [1] "MAPE % For  50 days by using NNAR Model for  ==>  Covid 19 Infection cases in Russia Federation"

MAPE_Mean_All<-paste(round(mean(MAPE_Per_Day),3),"% MAPE ",validation_data_days,frequency,y_lab,sep=" ")
MAPE_Mean_All_NNAR<-round(mean(MAPE_Per_Day),3)
MAPE_NNAR<-paste(round(MAPE_Per_Day,3),"%")
MAPE_NNAR_Model<-paste(MAPE_Per_Day ,"%")
paste (" MAPE that's Error of Forecasting for ",validation_data_days," days in NNAR Model for  ==> ",y_lab, sep=" ")

## [1] " MAPE that's Error of Forecasting for  50  days in NNAR Model for  ==>  Covid 19 Infection cases in Russia Federation"

paste(MAPE_Mean_All,"%")

## [1] "6.966 % MAPE  50 days Covid 19 Infection cases in Russia Federation %"

paste ("MAPE that's Error of Forecasting day by day for ",validation_data_days," days in NNAR Model for  ==> ",y_lab, sep=" ")

## [1] "MAPE that's Error of Forecasting day by day for  50  days in NNAR Model for  ==>  Covid 19 Infection cases in Russia Federation"

print(ascii(data.frame(date_NNAR=validation_dates,validation_data_by_name,actual_data=testing_data,forecasting_NNAR=validation_forecast,MAPE_NNAR_Model)), type = "rest")

## 
## +----+------------+-------------------------+-------------+------------------+-----------------+
## |    | date_NNAR  | validation_data_by_name | actual_data | forecasting_NNAR | MAPE_NNAR_Model |
## +====+============+=========================+=============+==================+=================+
## | 1  | 2021-02-01 | Monday                  | 17648.00    | 17215.32         | 2.452 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 2  | 2021-02-02 | Tuesday                 | 16643.00    | 16714.35         | 0.429 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 3  | 2021-02-03 | Wednesday               | 16474.00    | 17030.74         | 3.379 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 4  | 2021-02-04 | Thursday                | 16714.00    | 17647.92         | 5.588 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 5  | 2021-02-05 | Friday                  | 16688.00    | 17352.00         | 3.979 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 6  | 2021-02-06 | Saturday                | 16627.00    | 16882.02         | 1.534 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 7  | 2021-02-07 | Sunday                  | 16048.00    | 16303.85         | 1.594 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 8  | 2021-02-08 | Monday                  | 15916.00    | 15680.81         | 1.478 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 9  | 2021-02-09 | Tuesday                 | 15019.00    | 15729.99         | 4.734 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 10 | 2021-02-10 | Wednesday               | 14494.00    | 16069.76         | 10.872 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 11 | 2021-02-11 | Thursday                | 15038.00    | 15907.70         | 5.783 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 12 | 2021-02-12 | Friday                  | 15089.00    | 15521.81         | 2.868 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 13 | 2021-02-13 | Saturday                | 14861.00    | 15135.92         | 1.85 %          |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 14 | 2021-02-14 | Sunday                  | 14185.00    | 14762.35         | 4.07 %          |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 15 | 2021-02-15 | Monday                  | 14207.00    | 14627.59         | 2.96 %          |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 16 | 2021-02-16 | Tuesday                 | 13233.00    | 14727.87         | 11.297 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 17 | 2021-02-17 | Wednesday               | 12828.00    | 14608.02         | 13.876 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 18 | 2021-02-18 | Thursday                | 13447.00    | 14286.23         | 6.241 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 19 | 2021-02-19 | Friday                  | 13433.00    | 14005.30         | 4.26 %          |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 20 | 2021-02-20 | Saturday                | 12953.00    | 13779.21         | 6.379 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 21 | 2021-02-21 | Sunday                  | 12742.00    | 13620.62         | 6.895 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 22 | 2021-02-22 | Monday                  | 12604.00    | 13522.99         | 7.291 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 23 | 2021-02-23 | Tuesday                 | 11823.00    | 13368.64         | 13.073 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 24 | 2021-02-24 | Wednesday               | 11749.00    | 13124.05         | 11.704 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 25 | 2021-02-25 | Thursday                | 11198.00    | 12887.26         | 15.085 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 26 | 2021-02-26 | Friday                  | 11086.00    | 12694.60         | 14.51 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 27 | 2021-02-27 | Saturday                | 11534.00    | 12507.84         | 8.443 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 28 | 2021-02-28 | Sunday                  | 11359.00    | 12311.06         | 8.382 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 29 | 2021-03-01 | Monday                  | 11571.00    | 12103.95         | 4.606 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 30 | 2021-03-02 | Tuesday                 | 10565.00    | 11885.01         | 12.494 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 31 | 2021-03-03 | Wednesday               | 10535.00    | 11659.04         | 10.67 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 32 | 2021-03-04 | Thursday                | 11385.00    | 11431.93         | 0.412 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 33 | 2021-03-05 | Friday                  | 11024.00    | 11201.90         | 1.614 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 34 | 2021-03-06 | Saturday                | 11022.00    | 10966.16         | 0.507 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 35 | 2021-03-07 | Sunday                  | 10595.00    | 10726.97         | 1.246 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 36 | 2021-03-08 | Monday                  | 10253.00    | 10486.86         | 2.281 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 37 | 2021-03-09 | Tuesday                 | 9445.00     | 10246.00         | 8.481 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 38 | 2021-03-10 | Wednesday               | 9079.00     | 10004.99         | 10.199 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 39 | 2021-03-11 | Thursday                | 9270.00     | 9767.33          | 5.365 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 40 | 2021-03-12 | Friday                  | 9794.00     | 9536.91          | 2.625 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 41 | 2021-03-13 | Saturday                | 9908.00     | 9315.98          | 5.975 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 42 | 2021-03-14 | Sunday                  | 10083.00    | 9106.46          | 9.685 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 43 | 2021-03-15 | Monday                  | 9437.00     | 8910.50          | 5.579 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 44 | 2021-03-16 | Tuesday                 | 9393.00     | 8728.95          | 7.07 %          |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 45 | 2021-03-17 | Wednesday               | 8998.00     | 8560.98          | 4.857 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 46 | 2021-03-18 | Thursday                | 9803.00     | 8405.38          | 14.257 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 47 | 2021-03-19 | Friday                  | 9699.00     | 8261.17          | 14.824 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 48 | 2021-03-20 | Saturday                | 9632.00     | 8127.47          | 15.62 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 49 | 2021-03-21 | Sunday                  | 9299.00     | 8003.68          | 13.93 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 50 | 2021-03-22 | Monday                  | 9284.00     | 7889.69          | 15.018 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+

print(ascii(data.frame(FD,forecating_date=forecasting_data_by_name,forecasting_by_NNAR=tail(forecasting_NNAR$mean,N_forecasting_days))), type = "rest")

## 
## +-----+------------+-----------------+---------------------+
## |     | FD         | forecating_date | forecasting_by_NNAR |
## +=====+============+=================+=====================+
## | 1   | 2021-03-23 | Tuesday         | 7785.45             |
## +-----+------------+-----------------+---------------------+
## | 2   | 2021-03-24 | Wednesday       | 7690.64             |
## +-----+------------+-----------------+---------------------+
## | 3   | 2021-03-25 | Thursday        | 7604.73             |
## +-----+------------+-----------------+---------------------+
## | 4   | 2021-03-26 | Friday          | 7527.05             |
## +-----+------------+-----------------+---------------------+
## | 5   | 2021-03-27 | Saturday        | 7456.86             |
## +-----+------------+-----------------+---------------------+
## | 6   | 2021-03-28 | Sunday          | 7393.61             |
## +-----+------------+-----------------+---------------------+
## | 7   | 2021-03-29 | Monday          | 7336.95             |
## +-----+------------+-----------------+---------------------+
## | 8   | 2021-03-30 | Tuesday         | 7286.71             |
## +-----+------------+-----------------+---------------------+
## | 9   | 2021-03-31 | Wednesday       | 7242.80             |
## +-----+------------+-----------------+---------------------+
## | 10  | 2021-04-01 | Thursday        | 7205.12             |
## +-----+------------+-----------------+---------------------+
## | 11  | 2021-04-02 | Friday          | 7173.55             |
## +-----+------------+-----------------+---------------------+
## | 12  | 2021-04-03 | Saturday        | 7147.98             |
## +-----+------------+-----------------+---------------------+
## | 13  | 2021-04-04 | Sunday          | 7128.37             |
## +-----+------------+-----------------+---------------------+
## | 14  | 2021-04-05 | Monday          | 7114.84             |
## +-----+------------+-----------------+---------------------+
## | 15  | 2021-04-06 | Tuesday         | 7107.59             |
## +-----+------------+-----------------+---------------------+
## | 16  | 2021-04-07 | Wednesday       | 7106.98             |
## +-----+------------+-----------------+---------------------+
## | 17  | 2021-04-08 | Thursday        | 7113.47             |
## +-----+------------+-----------------+---------------------+
## | 18  | 2021-04-09 | Friday          | 7127.62             |
## +-----+------------+-----------------+---------------------+
## | 19  | 2021-04-10 | Saturday        | 7150.17             |
## +-----+------------+-----------------+---------------------+
## | 20  | 2021-04-11 | Sunday          | 7182.08             |
## +-----+------------+-----------------+---------------------+
## | 21  | 2021-04-12 | Monday          | 7224.60             |
## +-----+------------+-----------------+---------------------+
## | 22  | 2021-04-13 | Tuesday         | 7279.38             |
## +-----+------------+-----------------+---------------------+
## | 23  | 2021-04-14 | Wednesday       | 7348.54             |
## +-----+------------+-----------------+---------------------+
## | 24  | 2021-04-15 | Thursday        | 7434.78             |
## +-----+------------+-----------------+---------------------+
## | 25  | 2021-04-16 | Friday          | 7541.60             |
## +-----+------------+-----------------+---------------------+
## | 26  | 2021-04-17 | Saturday        | 7673.45             |
## +-----+------------+-----------------+---------------------+
## | 27  | 2021-04-18 | Sunday          | 7835.95             |
## +-----+------------+-----------------+---------------------+
## | 28  | 2021-04-19 | Monday          | 8036.00             |
## +-----+------------+-----------------+---------------------+
## | 29  | 2021-04-20 | Tuesday         | 8281.57             |
## +-----+------------+-----------------+---------------------+
## | 30  | 2021-04-21 | Wednesday       | 8580.64             |
## +-----+------------+-----------------+---------------------+
## | 31  | 2021-04-22 | Thursday        | 8938.56             |
## +-----+------------+-----------------+---------------------+
## | 32  | 2021-04-23 | Friday          | 9352.86             |
## +-----+------------+-----------------+---------------------+
## | 33  | 2021-04-24 | Saturday        | 9806.25             |
## +-----+------------+-----------------+---------------------+
## | 34  | 2021-04-25 | Sunday          | 10263.52            |
## +-----+------------+-----------------+---------------------+
## | 35  | 2021-04-26 | Monday          | 10683.34            |
## +-----+------------+-----------------+---------------------+
## | 36  | 2021-04-27 | Tuesday         | 11045.13            |
## +-----+------------+-----------------+---------------------+
## | 37  | 2021-04-28 | Wednesday       | 11361.67            |
## +-----+------------+-----------------+---------------------+
## | 38  | 2021-04-29 | Thursday        | 11655.75            |
## +-----+------------+-----------------+---------------------+
## | 39  | 2021-04-30 | Friday          | 11936.68            |
## +-----+------------+-----------------+---------------------+
## | 40  | 2021-05-01 | Saturday        | 12207.49            |
## +-----+------------+-----------------+---------------------+
## | 41  | 2021-05-02 | Sunday          | 12472.83            |
## +-----+------------+-----------------+---------------------+
## | 42  | 2021-05-03 | Monday          | 12733.97            |
## +-----+------------+-----------------+---------------------+
## | 43  | 2021-05-04 | Tuesday         | 12990.77            |
## +-----+------------+-----------------+---------------------+
## | 44  | 2021-05-05 | Wednesday       | 13245.99            |
## +-----+------------+-----------------+---------------------+
## | 45  | 2021-05-06 | Thursday        | 13502.07            |
## +-----+------------+-----------------+---------------------+
## | 46  | 2021-05-07 | Friday          | 13759.27            |
## +-----+------------+-----------------+---------------------+
## | 47  | 2021-05-08 | Saturday        | 14018.24            |
## +-----+------------+-----------------+---------------------+
## | 48  | 2021-05-09 | Sunday          | 14280.06            |
## +-----+------------+-----------------+---------------------+
## | 49  | 2021-05-10 | Monday          | 14544.89            |
## +-----+------------+-----------------+---------------------+
## | 50  | 2021-05-11 | Tuesday         | 14813.08            |
## +-----+------------+-----------------+---------------------+
## | 51  | 2021-05-12 | Wednesday       | 15085.27            |
## +-----+------------+-----------------+---------------------+
## | 52  | 2021-05-13 | Thursday        | 15361.17            |
## +-----+------------+-----------------+---------------------+
## | 53  | 2021-05-14 | Friday          | 15640.36            |
## +-----+------------+-----------------+---------------------+
## | 54  | 2021-05-15 | Saturday        | 15922.79            |
## +-----+------------+-----------------+---------------------+
## | 55  | 2021-05-16 | Sunday          | 16207.92            |
## +-----+------------+-----------------+---------------------+
## | 56  | 2021-05-17 | Monday          | 16495.05            |
## +-----+------------+-----------------+---------------------+
## | 57  | 2021-05-18 | Tuesday         | 16783.78            |
## +-----+------------+-----------------+---------------------+
## | 58  | 2021-05-19 | Wednesday       | 17073.43            |
## +-----+------------+-----------------+---------------------+
## | 59  | 2021-05-20 | Thursday        | 17363.21            |
## +-----+------------+-----------------+---------------------+
## | 60  | 2021-05-21 | Friday          | 17652.70            |
## +-----+------------+-----------------+---------------------+
## | 61  | 2021-05-22 | Saturday        | 17941.46            |
## +-----+------------+-----------------+---------------------+
## | 62  | 2021-05-23 | Sunday          | 18228.96            |
## +-----+------------+-----------------+---------------------+
## | 63  | 2021-05-24 | Monday          | 18514.99            |
## +-----+------------+-----------------+---------------------+
## | 64  | 2021-05-25 | Tuesday         | 18799.42            |
## +-----+------------+-----------------+---------------------+
## | 65  | 2021-05-26 | Wednesday       | 19082.03            |
## +-----+------------+-----------------+---------------------+
## | 66  | 2021-05-27 | Thursday        | 19362.83            |
## +-----+------------+-----------------+---------------------+
## | 67  | 2021-05-28 | Friday          | 19641.93            |
## +-----+------------+-----------------+---------------------+
## | 68  | 2021-05-29 | Saturday        | 19919.37            |
## +-----+------------+-----------------+---------------------+
## | 69  | 2021-05-30 | Sunday          | 20195.25            |
## +-----+------------+-----------------+---------------------+
## | 70  | 2021-05-31 | Monday          | 20469.79            |
## +-----+------------+-----------------+---------------------+
## | 71  | 2021-06-01 | Tuesday         | 20743.10            |
## +-----+------------+-----------------+---------------------+
## | 72  | 2021-06-02 | Wednesday       | 21015.30            |
## +-----+------------+-----------------+---------------------+
## | 73  | 2021-06-03 | Thursday        | 21286.52            |
## +-----+------------+-----------------+---------------------+
## | 74  | 2021-06-04 | Friday          | 21556.88            |
## +-----+------------+-----------------+---------------------+
## | 75  | 2021-06-05 | Saturday        | 21826.42            |
## +-----+------------+-----------------+---------------------+
## | 76  | 2021-06-06 | Sunday          | 22095.15            |
## +-----+------------+-----------------+---------------------+
## | 77  | 2021-06-07 | Monday          | 22363.10            |
## +-----+------------+-----------------+---------------------+
## | 78  | 2021-06-08 | Tuesday         | 22630.20            |
## +-----+------------+-----------------+---------------------+
## | 79  | 2021-06-09 | Wednesday       | 22896.37            |
## +-----+------------+-----------------+---------------------+
## | 80  | 2021-06-10 | Thursday        | 23161.51            |
## +-----+------------+-----------------+---------------------+
## | 81  | 2021-06-11 | Friday          | 23425.49            |
## +-----+------------+-----------------+---------------------+
## | 82  | 2021-06-12 | Saturday        | 23688.13            |
## +-----+------------+-----------------+---------------------+
## | 83  | 2021-06-13 | Sunday          | 23949.24            |
## +-----+------------+-----------------+---------------------+
## | 84  | 2021-06-14 | Monday          | 24208.62            |
## +-----+------------+-----------------+---------------------+
## | 85  | 2021-06-15 | Tuesday         | 24466.02            |
## +-----+------------+-----------------+---------------------+
## | 86  | 2021-06-16 | Wednesday       | 24721.20            |
## +-----+------------+-----------------+---------------------+
## | 87  | 2021-06-17 | Thursday        | 24973.87            |
## +-----+------------+-----------------+---------------------+
## | 88  | 2021-06-18 | Friday          | 25223.77            |
## +-----+------------+-----------------+---------------------+
## | 89  | 2021-06-19 | Saturday        | 25470.60            |
## +-----+------------+-----------------+---------------------+
## | 90  | 2021-06-20 | Sunday          | 25714.05            |
## +-----+------------+-----------------+---------------------+
## | 91  | 2021-06-21 | Monday          | 25953.82            |
## +-----+------------+-----------------+---------------------+
## | 92  | 2021-06-22 | Tuesday         | 26189.57            |
## +-----+------------+-----------------+---------------------+
## | 93  | 2021-06-23 | Wednesday       | 26420.99            |
## +-----+------------+-----------------+---------------------+
## | 94  | 2021-06-24 | Thursday        | 26647.75            |
## +-----+------------+-----------------+---------------------+
## | 95  | 2021-06-25 | Friday          | 26869.51            |
## +-----+------------+-----------------+---------------------+
## | 96  | 2021-06-26 | Saturday        | 27085.93            |
## +-----+------------+-----------------+---------------------+
## | 97  | 2021-06-27 | Sunday          | 27296.69            |
## +-----+------------+-----------------+---------------------+
## | 98  | 2021-06-28 | Monday          | 27501.45            |
## +-----+------------+-----------------+---------------------+
## | 99  | 2021-06-29 | Tuesday         | 27699.87            |
## +-----+------------+-----------------+---------------------+
## | 100 | 2021-06-30 | Wednesday       | 27891.61            |
## +-----+------------+-----------------+---------------------+
## | 101 | 2021-07-01 | Thursday        | 28076.35            |
## +-----+------------+-----------------+---------------------+
## | 102 | 2021-07-02 | Friday          | 28253.75            |
## +-----+------------+-----------------+---------------------+
## | 103 | 2021-07-03 | Saturday        | 28423.50            |
## +-----+------------+-----------------+---------------------+
## | 104 | 2021-07-04 | Sunday          | 28585.25            |
## +-----+------------+-----------------+---------------------+
## | 105 | 2021-07-05 | Monday          | 28738.70            |
## +-----+------------+-----------------+---------------------+
## | 106 | 2021-07-06 | Tuesday         | 28883.53            |
## +-----+------------+-----------------+---------------------+
## | 107 | 2021-07-07 | Wednesday       | 29019.41            |
## +-----+------------+-----------------+---------------------+
## | 108 | 2021-07-08 | Thursday        | 29146.03            |
## +-----+------------+-----------------+---------------------+
## | 109 | 2021-07-09 | Friday          | 29263.09            |
## +-----+------------+-----------------+---------------------+
## | 110 | 2021-07-10 | Saturday        | 29370.27            |
## +-----+------------+-----------------+---------------------+
## | 111 | 2021-07-11 | Sunday          | 29467.26            |
## +-----+------------+-----------------+---------------------+
## | 112 | 2021-07-12 | Monday          | 29553.76            |
## +-----+------------+-----------------+---------------------+
## | 113 | 2021-07-13 | Tuesday         | 29629.45            |
## +-----+------------+-----------------+---------------------+
## | 114 | 2021-07-14 | Wednesday       | 29694.03            |
## +-----+------------+-----------------+---------------------+
## | 115 | 2021-07-15 | Thursday        | 29747.15            |
## +-----+------------+-----------------+---------------------+
## | 116 | 2021-07-16 | Friday          | 29788.51            |
## +-----+------------+-----------------+---------------------+
## | 117 | 2021-07-17 | Saturday        | 29817.75            |
## +-----+------------+-----------------+---------------------+
## | 118 | 2021-07-18 | Sunday          | 29834.53            |
## +-----+------------+-----------------+---------------------+
## | 119 | 2021-07-19 | Monday          | 29838.46            |
## +-----+------------+-----------------+---------------------+
## | 120 | 2021-07-20 | Tuesday         | 29829.14            |
## +-----+------------+-----------------+---------------------+
## | 121 | 2021-07-21 | Wednesday       | 29806.14            |
## +-----+------------+-----------------+---------------------+
## | 122 | 2021-07-22 | Thursday        | 29768.96            |
## +-----+------------+-----------------+---------------------+
## | 123 | 2021-07-23 | Friday          | 29717.07            |
## +-----+------------+-----------------+---------------------+
## | 124 | 2021-07-24 | Saturday        | 29649.87            |
## +-----+------------+-----------------+---------------------+
## | 125 | 2021-07-25 | Sunday          | 29566.66            |
## +-----+------------+-----------------+---------------------+
## | 126 | 2021-07-26 | Monday          | 29466.64            |
## +-----+------------+-----------------+---------------------+
## | 127 | 2021-07-27 | Tuesday         | 29348.87            |
## +-----+------------+-----------------+---------------------+
## | 128 | 2021-07-28 | Wednesday       | 29212.28            |
## +-----+------------+-----------------+---------------------+
## | 129 | 2021-07-29 | Thursday        | 29055.58            |
## +-----+------------+-----------------+---------------------+
## | 130 | 2021-07-30 | Friday          | 28877.34            |
## +-----+------------+-----------------+---------------------+

plot(forecasting_NNAR,xlab = paste ("Time in", frequency ,y_lab , sep=" "), ylab=y_lab)
x1_test <- ts(testing_data, start =(rows-validation_data_days+1) )
lines(x1_test, col='red',lwd=2)

graph1<-autoplot(forecasting_NNAR,xlab = paste ("Time in", frequency ,y_lab , sep=" "), ylab=y_lab)
graph1

##bats model
# Data Modeling
data_series<-ts(training_data) # make your data to time series
autoplot(data_series ,xlab=paste ("Time in", frequency, sep=" "), ylab = y_lab, main=paste ("Actual Data :", y_lab, sep=" "))

model_bats<-bats(data_series)
accuracy(model_bats)  # accuracy on training data

##                     ME     RMSE      MAE MPE MAPE      MASE      ACF1
## Training set -14.82432 547.9968 331.5995 NaN  Inf 0.9447073 -0.106812

# Print Model Parameters
model_bats

## BATS(1, {2,2}, 1, -)
## 
## Call: bats(y = data_series)
## 
## Parameters
##   Alpha: 0.804323
##   Beta: 0.02329767
##   Damping Parameter: 1
##   AR coefficients: 1.218685 -0.979828
##   MA coefficients: -1.12143 0.872649
## 
## Seed States:
##           [,1]
## [1,] -15.90797
## [2,]   1.48767
## [3,]   0.00000
## [4,]   0.00000
## [5,]   0.00000
## [6,]   0.00000
## 
## Sigma: 547.9968
## AIC: 7367.613

#ploting BATS Model
plot(model_bats,xlab = paste ("Time in", frequency ,y_lab , sep=" "))

# Testing Data Evaluation
forecasting_bats <- predict(model_bats, h=N_forecasting_days+validation_data_days)
validation_forecast<-head(forecasting_bats$mean,validation_data_days)
MAPE_Per_Day<-round(  abs(((testing_data-validation_forecast)/testing_data)*100)  ,3)
paste ("MAPE % For ",validation_data_days,frequency,"by using bats Model for  ==> ",y_lab, sep=" ")

## [1] "MAPE % For  50 days by using bats Model for  ==>  Covid 19 Infection cases in Russia Federation"

MAPE_Mean_All.bats_Model<-round(mean(MAPE_Per_Day),3)
MAPE_Mean_All.bats<-paste(round(mean(MAPE_Per_Day),3),"% MAPE ",validation_data_days,frequency,y_lab,sep=" ")
MAPE_bats<-paste(round(MAPE_Per_Day,3),"%")
MAPE_bats_Model<-paste(MAPE_Per_Day ,"%")
paste (" MAPE that's Error of Forecasting for ",validation_data_days," days in bats Model for  ==> ",y_lab, sep=" ")

## [1] " MAPE that's Error of Forecasting for  50  days in bats Model for  ==>  Covid 19 Infection cases in Russia Federation"

paste(MAPE_Mean_All.bats,"%")

## [1] "22.279 % MAPE  50 days Covid 19 Infection cases in Russia Federation %"

paste ("MAPE that's Error of Forecasting day by day for ",validation_data_days," days in bats Model for  ==> ",y_lab, sep=" ")

## [1] "MAPE that's Error of Forecasting day by day for  50  days in bats Model for  ==>  Covid 19 Infection cases in Russia Federation"

print(ascii(data.frame(date_bats=validation_dates,validation_data_by_name,actual_data=testing_data,forecasting_bats=validation_forecast,MAPE_bats_Model)), type = "rest")

## 
## +----+------------+-------------------------+-------------+------------------+-----------------+
## |    | date_bats  | validation_data_by_name | actual_data | forecasting_bats | MAPE_bats_Model |
## +====+============+=========================+=============+==================+=================+
## | 1  | 2021-02-01 | Monday                  | 17648.00    | 17728.36         | 0.455 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 2  | 2021-02-02 | Tuesday                 | 16643.00    | 17357.73         | 4.294 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 3  | 2021-02-03 | Wednesday               | 16474.00    | 17451.82         | 5.936 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 4  | 2021-02-04 | Thursday                | 16714.00    | 17828.29         | 6.667 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 5  | 2021-02-05 | Friday                  | 16688.00    | 18093.54         | 8.422 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 6  | 2021-02-06 | Saturday                | 16627.00    | 17946.58         | 7.936 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 7  | 2021-02-07 | Sunday                  | 16048.00    | 17406.22         | 8.463 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 8  | 2021-02-08 | Monday                  | 15916.00    | 16790.35         | 5.493 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 9  | 2021-02-09 | Tuesday                 | 15019.00    | 16467.89         | 9.647 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 10 | 2021-02-10 | Wednesday               | 14494.00    | 16577.03         | 14.372 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 11 | 2021-02-11 | Thursday                | 15038.00    | 16924.62         | 12.546 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 12 | 2021-02-12 | Friday                  | 15089.00    | 17139.95         | 13.592 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 13 | 2021-02-13 | Saturday                | 14861.00    | 16960.43         | 14.127 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 14 | 2021-02-14 | Sunday                  | 14185.00    | 16429.32         | 15.822 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 15 | 2021-02-15 | Monday                  | 14207.00    | 15856.61         | 11.611 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 16 | 2021-02-16 | Tuesday                 | 13233.00    | 15577.70         | 17.719 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 17 | 2021-02-17 | Wednesday               | 12828.00    | 15697.61         | 22.37 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 18 | 2021-02-18 | Thursday                | 13447.00    | 16015.67         | 19.102 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 19 | 2021-02-19 | Friday                  | 13433.00    | 16184.45         | 20.483 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 20 | 2021-02-20 | Saturday                | 12953.00    | 15977.14         | 23.347 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 21 | 2021-02-21 | Sunday                  | 12742.00    | 15457.77         | 21.314 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 22 | 2021-02-22 | Monday                  | 12604.00    | 14926.60         | 18.428 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 23 | 2021-02-23 | Tuesday                 | 11823.00    | 14686.82         | 24.222 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 24 | 2021-02-24 | Wednesday               | 11749.00    | 14813.70         | 26.085 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 25 | 2021-02-25 | Thursday                | 11198.00    | 15101.92         | 34.863 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 26 | 2021-02-26 | Friday                  | 11086.00    | 15227.50         | 37.358 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 27 | 2021-02-27 | Saturday                | 11534.00    | 14996.79         | 30.022 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 28 | 2021-02-28 | Sunday                  | 11359.00    | 14491.22         | 27.575 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 29 | 2021-03-01 | Monday                  | 11571.00    | 13999.80         | 20.99 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 30 | 2021-03-02 | Tuesday                 | 10565.00    | 13794.94         | 30.572 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 31 | 2021-03-03 | Wednesday               | 10535.00    | 13925.43         | 32.182 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 32 | 2021-03-04 | Thursday                | 11385.00    | 14183.83         | 24.584 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 33 | 2021-03-05 | Friday                  | 11024.00    | 14269.54         | 29.441 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 34 | 2021-03-06 | Saturday                | 11022.00    | 14019.45         | 27.195 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 35 | 2021-03-07 | Sunday                  | 10595.00    | 13529.34         | 27.696 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 36 | 2021-03-08 | Monday                  | 10253.00    | 13075.74         | 27.531 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 37 | 2021-03-09 | Tuesday                 | 9445.00     | 12901.82         | 36.599 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 38 | 2021-03-10 | Wednesday               | 9079.00     | 13032.97         | 43.551 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 39 | 2021-03-11 | Thursday                | 9270.00     | 13261.86         | 43.062 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 40 | 2021-03-12 | Friday                  | 9794.00     | 13310.94         | 35.909 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 41 | 2021-03-13 | Saturday                | 9908.00     | 13045.15         | 31.663 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 42 | 2021-03-14 | Sunday                  | 10083.00    | 12571.78         | 24.683 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 43 | 2021-03-15 | Monday                  | 9437.00     | 12153.97         | 28.791 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 44 | 2021-03-16 | Tuesday                 | 9393.00     | 12007.27         | 27.832 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 45 | 2021-03-17 | Wednesday               | 8998.00     | 12136.51         | 34.88 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 46 | 2021-03-18 | Thursday                | 9803.00     | 12336.41         | 25.843 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 47 | 2021-03-19 | Friday                  | 9699.00     | 12352.04         | 27.354 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 48 | 2021-03-20 | Saturday                | 9632.00     | 12073.87         | 25.352 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 49 | 2021-03-21 | Sunday                  | 9299.00     | 11618.20         | 24.94 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 50 | 2021-03-22 | Monday                  | 9284.00     | 11234.09         | 21.005 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+

print(ascii(data.frame(FD,forecating_date=forecasting_data_by_name,forecasting_by_bats=tail(forecasting_bats$mean,N_forecasting_days),lower=tail(forecasting_bats$lower,N_forecasting_days),Upper=tail(forecasting_bats$lower,N_forecasting_days))), type = "rest")

## 
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## |     | FD         | forecating_date | forecasting_by_bats | lower.80. | lower.95. | Upper.80. | Upper.95. |
## +=====+============+=================+=====================+===========+===========+===========+===========+
## | 1   | 2021-03-23 | Tuesday         | 11111.12            | 3992.90   | 224.74    | 3992.90   | 224.74    |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 2   | 2021-03-24 | Wednesday       | 11236.25            | 3979.74   | 138.38    | 3979.74   | 138.38    |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 3   | 2021-03-25 | Thursday        | 11407.90            | 4020.54   | 109.90    | 4020.54   | 109.90    |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 4   | 2021-03-26 | Friday          | 11393.12            | 3879.60   | -97.81    | 3879.60   | -97.81    |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 5   | 2021-03-27 | Saturday        | 11105.58            | 3464.13   | -581.01   | 3464.13   | -581.01   |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 6   | 2021-03-28 | Sunday          | 10668.28            | 2891.66   | -1225.04  | 2891.66   | -1225.04  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 7   | 2021-03-29 | Monday          | 10315.75            | 2396.26   | -1796.06  | 2396.26   | -1796.06  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 8   | 2021-03-30 | Tuesday         | 10213.24            | 2148.24   | -2121.12  | 2148.24   | -2121.12  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 9   | 2021-03-31 | Wednesday       | 10332.40            | 2125.70   | -2218.67  | 2125.70   | -2218.67  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 10  | 2021-04-01 | Thursday        | 10476.69            | 2134.86   | -2281.04  | 2134.86   | -2281.04  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 11  | 2021-04-02 | Friday          | 10434.44            | 1961.24   | -2524.20  | 1961.24   | -2524.20  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 12  | 2021-04-03 | Saturday        | 10140.22            | 1533.54   | -3022.57  | 1533.54   | -3022.57  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 13  | 2021-04-04 | Sunday          | 9721.70             | 974.78    | -3655.56  | 974.78    | -3655.56  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 14  | 2021-04-05 | Monday          | 9398.59             | 504.70    | -4203.44  | 504.70    | -4203.44  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 15  | 2021-04-06 | Tuesday         | 9313.56             | 270.71    | -4516.28  | 270.71    | -4516.28  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 16  | 2021-04-07 | Wednesday       | 9425.16             | 237.06    | -4626.83  | 237.06    | -4626.83  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 17  | 2021-04-08 | Thursday        | 9543.14             | 215.57    | -4722.15  | 215.57    | -4722.15  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 18  | 2021-04-09 | Friday          | 9476.22             | 12.15     | -4997.82  | 12.15     | -4997.82  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 19  | 2021-04-10 | Saturday        | 9177.71             | -425.21   | -5508.70  | -425.21   | -5508.70  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 20  | 2021-04-11 | Sunday          | 8778.15             | -969.93   | -6130.25  | -969.93   | -6130.25  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 21  | 2021-04-12 | Monday          | 8482.34             | -1416.78  | -6657.06  | -1416.78  | -6657.06  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 22  | 2021-04-13 | Tuesday         | 8412.00             | -1639.58  | -6960.56  | -1639.58  | -6960.56  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 23  | 2021-04-14 | Wednesday       | 8514.76             | -1685.73  | -7085.54  | -1685.73  | -7085.54  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 24  | 2021-04-15 | Thursday        | 8607.57             | -1736.73  | -7212.68  | -1736.73  | -7212.68  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 25  | 2021-04-16 | Friday          | 8518.64             | -1967.18  | -7518.04  | -1967.18  | -7518.04  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 26  | 2021-04-17 | Saturday        | 8217.96             | -2411.92  | -8039.04  | -2411.92  | -8039.04  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 27  | 2021-04-18 | Sunday          | 7837.33             | -2942.46  | -8648.93  | -2942.46  | -8648.93  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 28  | 2021-04-19 | Monday          | 7566.71             | -3368.13  | -9156.68  | -3368.13  | -9156.68  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 29  | 2021-04-20 | Tuesday         | 7508.52             | -3582.32  | -9453.45  | -3582.32  | -9453.45  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 30  | 2021-04-21 | Wednesday       | 7601.42             | -3642.04  | -9593.97  | -3642.04  | -9593.97  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 31  | 2021-04-22 | Thursday        | 7670.29             | -3721.31  | -9751.66  | -3721.31  | -9751.66  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 32  | 2021-04-23 | Friday          | 7561.85             | -3976.17  | -10084.03 | -3976.17  | -10084.03 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 33  | 2021-04-24 | Saturday        | 7260.87             | -4426.24  | -10613.03 | -4426.24  | -10613.03 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 34  | 2021-04-25 | Sunday          | 6898.96             | -4942.65  | -11211.23 | -4942.65  | -11211.23 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 35  | 2021-04-26 | Monday          | 6651.48             | -5349.13  | -11701.86 | -5349.13  | -11701.86 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 36  | 2021-04-27 | Tuesday         | 6603.12             | -5557.03  | -11994.23 | -5557.03  | -11994.23 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 37  | 2021-04-28 | Wednesday       | 6685.34             | -5631.17  | -12151.14 | -5631.17  | -12151.14 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 38  | 2021-04-29 | Thursday        | 6731.56             | -5737.38  | -12338.04 | -5737.38  | -12338.04 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 39  | 2021-04-30 | Friday          | 6605.98             | -6014.17  | -12694.88 | -6014.17  | -12694.88 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 40  | 2021-05-01 | Saturday        | 6306.31             | -6467.80  | -13230.00 | -6467.80  | -13230.00 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 41  | 2021-05-02 | Sunday          | 5962.78             | -6970.28  | -13816.62 | -6970.28  | -13816.62 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 42  | 2021-05-03 | Monday          | 5736.42             | -7359.49  | -14292.04 | -7359.49  | -14292.04 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 43  | 2021-05-04 | Tuesday         | 5695.80             | -7563.21  | -14582.10 | -7563.21  | -14582.10 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 44  | 2021-05-05 | Wednesday       | 5766.74             | -7652.36  | -14756.00 | -7652.36  | -14756.00 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 45  | 2021-05-06 | Thursday        | 5791.64             | -7784.13  | -14970.71 | -7784.13  | -14970.71 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 46  | 2021-05-07 | Friday          | 5651.14             | -8080.52  | -15349.62 | -8080.52  | -15349.62 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 47  | 2021-05-08 | Saturday        | 5354.15             | -8536.16  | -15889.24 | -8536.16  | -15889.24 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 48  | 2021-05-09 | Sunday          | 5028.54             | -9025.04  | -16464.55 | -9025.04  | -16464.55 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 49  | 2021-05-10 | Monday          | 4821.37             | -9398.85  | -16926.57 | -9398.85  | -16926.57 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 50  | 2021-05-11 | Tuesday         | 4786.58             | -9600.27  | -17216.20 | -9600.27  | -17216.20 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 51  | 2021-05-12 | Wednesday       | 4845.83             | -9704.83  | -17407.49 | -9704.83  | -17407.49 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 52  | 2021-05-13 | Thursday        | 4850.77             | -9860.75  | -17648.56 | -9860.75  | -17648.56 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 53  | 2021-05-14 | Friday          | 4697.39             | -10174.57 | -18047.31 | -10174.57 | -18047.31 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 54  | 2021-05-15 | Saturday        | 4404.27             | -10630.90 | -18590.03 | -10630.90 | -18590.03 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 55  | 2021-05-16 | Sunday          | 4095.99             | -11106.63 | -19154.41 | -11106.63 | -19154.41 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 56  | 2021-05-17 | Monday          | 3906.15             | -11466.82 | -19604.78 | -11466.82 | -19604.78 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 57  | 2021-05-18 | Tuesday         | 3875.50             | -11667.62 | -19895.65 | -11667.62 | -19895.65 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 58  | 2021-05-19 | Wednesday       | 3922.82             | -11787.83 | -20104.54 | -11787.83 | -20104.54 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 59  | 2021-05-20 | Thursday        | 3909.16             | -11966.48 | -20370.54 | -11966.48 | -20370.54 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 60  | 2021-05-21 | Friday          | 3744.79             | -12295.72 | -20787.05 | -12295.72 | -20787.05 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 61  | 2021-05-22 | Saturday        | 3456.53             | -12751.60 | -21331.66 | -12751.60 | -21331.66 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 62  | 2021-05-23 | Sunday          | 3164.91             | -13214.72 | -21885.58 | -13214.72 | -21885.58 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 63  | 2021-05-24 | Monday          | 2990.63             | -13563.01 | -22325.98 | -13563.01 | -22325.98 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 64  | 2021-05-25 | Tuesday         | 2962.62             | -13764.66 | -22619.55 | -13764.66 | -22619.55 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 65  | 2021-05-26 | Wednesday       | 2997.89             | -13900.60 | -22846.12 | -13900.60 | -22846.12 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 66  | 2021-05-27 | Thursday        | 2966.98             | -14100.57 | -23135.58 | -14100.57 | -23135.58 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 67  | 2021-05-28 | Friday          | 2793.39             | -14443.36 | -23567.94 | -14443.36 | -23567.94 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 68  | 2021-05-29 | Saturday        | 2510.79             | -14897.86 | -24113.43 | -14897.86 | -24113.43 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 69  | 2021-05-30 | Sunday          | 2235.11             | -15348.99 | -24657.45 | -15348.99 | -24657.45 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 70  | 2021-05-31 | Monday          | 2074.70             | -15686.99 | -25089.46 | -15686.99 | -25089.46 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 71  | 2021-06-01 | Tuesday         | 2047.98             | -15890.81 | -25387.04 | -15890.81 | -25387.04 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 72  | 2021-06-02 | Wednesday       | 2071.24             | -16042.42 | -25631.22 | -16042.42 | -25631.22 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 73  | 2021-06-03 | Thursday        | 2024.42             | -16262.30 | -25942.71 | -16262.30 | -25942.71 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 74  | 2021-06-04 | Friday          | 1843.21             | -16616.93 | -26389.14 | -16616.93 | -26389.14 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 75  | 2021-06-05 | Saturday        | 1566.91             | -17069.28 | -26934.68 | -17069.28 | -26934.68 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 76  | 2021-06-06 | Sunday          | 1306.38             | -17509.11 | -27469.43 | -17509.11 | -27469.43 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 77  | 2021-06-07 | Monday          | 1158.26             | -17838.34 | -27894.54 | -17838.34 | -27894.54 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 78  | 2021-06-08 | Tuesday         | 1131.67             | -18045.47 | -28197.24 | -18045.47 | -28197.24 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 79  | 2021-06-09 | Wednesday       | 1143.04             | -18212.60 | -28458.85 | -18212.60 | -28458.85 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 80  | 2021-06-10 | Thursday        | 1081.61             | -18451.02 | -28790.97 | -18451.02 | -28790.97 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 81  | 2021-06-11 | Friday          | 894.25              | -18815.92 | -29249.86 | -18815.92 | -29249.86 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 82  | 2021-06-12 | Saturday        | 624.75              | -19265.50 | -29794.76 | -19265.50 | -29794.76 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 83  | 2021-06-13 | Sunday          | 378.56              | -19694.75 | -30320.91 | -19694.75 | -30320.91 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 84  | 2021-06-14 | Monday          | 241.24              | -20016.66 | -30740.54 | -20016.66 | -30740.54 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 85  | 2021-06-15 | Tuesday         | 213.75              | -20228.08 | -31049.33 | -20228.08 | -31049.33 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 86  | 2021-06-16 | Wednesday       | 213.47              | -20410.45 | -31328.09 | -20410.45 | -31328.09 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 87  | 2021-06-17 | Thursday        | 138.70              | -20666.08 | -31679.46 | -20666.08 | -31679.46 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 88  | 2021-06-18 | Friday          | -53.50              | -21039.83 | -32149.33 | -21039.83 | -32149.33 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 89  | 2021-06-19 | Saturday        | -315.81             | -21486.16 | -32693.06 | -21486.16 | -32693.06 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 90  | 2021-06-20 | Sunday          | -548.51             | -21905.58 | -33211.33 | -21905.58 | -33211.33 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 91  | 2021-06-21 | Monday          | -676.44             | -22221.51 | -33626.77 | -22221.51 | -33626.77 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 92  | 2021-06-22 | Tuesday         | -705.68             | -22438.06 | -33942.49 | -22438.06 | -33942.49 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 93  | 2021-06-23 | Wednesday       | -717.32             | -22635.34 | -34238.04 | -22635.34 | -34238.04 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 94  | 2021-06-24 | Thursday        | -804.21             | -22906.88 | -34607.33 | -22906.88 | -34607.33 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 95  | 2021-06-25 | Friday          | -1000.04            | -23288.20 | -35086.85 | -23288.20 | -35086.85 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 96  | 2021-06-26 | Saturday        | -1254.91            | -23730.92 | -35629.00 | -23730.92 | -35629.00 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 97  | 2021-06-27 | Sunday          | -1474.99            | -24141.29 | -36140.11 | -24141.29 | -36140.11 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 98  | 2021-06-28 | Monday          | -1594.82            | -24452.48 | -36552.60 | -24452.48 | -36552.60 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 99  | 2021-06-29 | Tuesday         | -1626.56            | -24674.88 | -36875.92 | -24674.88 | -36875.92 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 100 | 2021-06-30 | Wednesday       | -1649.18            | -24886.66 | -37187.83 | -24886.66 | -37187.83 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 101 | 2021-07-01 | Thursday        | -1747.00            | -25172.88 | -37573.78 | -25172.88 | -37573.78 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 102 | 2021-07-02 | Friday          | -1945.40            | -25560.60 | -38061.73 | -25560.60 | -38061.73 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 103 | 2021-07-03 | Saturday        | -2192.68            | -25999.46 | -38602.01 | -25999.46 | -38602.01 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 104 | 2021-07-04 | Sunday          | -2401.01            | -26401.58 | -39106.71 | -26401.58 | -39106.71 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 105 | 2021-07-05 | Monday          | -2513.94            | -26709.19 | -39517.38 | -26709.19 | -39517.38 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 106 | 2021-07-06 | Tuesday         | -2548.80            | -26938.01 | -39848.88 | -26938.01 | -39848.88 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 107 | 2021-07-07 | Wednesday       | -2581.97            | -27163.82 | -40176.66 | -27163.82 | -40176.66 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 108 | 2021-07-08 | Thursday        | -2689.60            | -27463.53 | -40578.05 | -27463.53 | -40578.05 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 109 | 2021-07-09 | Friday          | -2889.61            | -27856.62 | -41073.35 | -27856.62 | -41073.35 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 110 | 2021-07-10 | Saturday        | -3129.25            | -28291.48 | -41611.55 | -28291.48 | -41611.55 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 111 | 2021-07-11 | Sunday          | -3326.67            | -28686.12 | -42110.60 | -28686.12 | -42110.60 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 112 | 2021-07-12 | Monday          | -3433.81            | -28991.21 | -42520.48 | -28991.21 | -42520.48 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 113 | 2021-07-13 | Tuesday         | -3472.29            | -29226.94 | -42860.62 | -29226.94 | -42860.62 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 114 | 2021-07-14 | Wednesday       | -3515.56            | -29466.27 | -43203.75 | -29466.27 | -43203.75 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 115 | 2021-07-15 | Thursday        | -3631.94            | -29778.34 | -43619.41 | -29778.34 | -43619.41 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 116 | 2021-07-16 | Friday          | -3832.72            | -30175.88 | -44121.10 | -30175.88 | -44121.10 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 117 | 2021-07-17 | Saturday        | -4064.73            | -30606.67 | -44657.12 | -30606.67 | -44657.12 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 118 | 2021-07-18 | Sunday          | -4252.10            | -30994.63 | -45151.27 | -30994.63 | -45151.27 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 119 | 2021-07-19 | Monday          | -4354.46            | -31298.16 | -45561.30 | -31298.16 | -45561.30 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 120 | 2021-07-20 | Tuesday         | -4396.97            | -31541.17 | -45910.44 | -31541.17 | -45910.44 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 121 | 2021-07-21 | Wednesday       | -4449.83            | -31793.49 | -46268.35 | -31793.49 | -46268.35 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 122 | 2021-07-22 | Thursday        | -4573.94            | -32116.85 | -46697.19 | -32116.85 | -46697.19 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 123 | 2021-07-23 | Friday          | -4774.76            | -32518.02 | -47204.42 | -32518.02 | -47204.42 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 124 | 2021-07-24 | Saturday        | -4999.23            | -32944.76 | -47738.23 | -32944.76 | -47738.23 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 125 | 2021-07-25 | Sunday          | -5177.37            | -33326.80 | -48228.20 | -33326.80 | -48228.20 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 126 | 2021-07-26 | Monday          | -5275.88            | -33629.67 | -48639.25 | -33629.67 | -48639.25 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 127 | 2021-07-27 | Tuesday         | -5322.73            | -33880.23 | -48997.65 | -33880.23 | -48997.65 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 128 | 2021-07-28 | Wednesday       | -5384.66            | -34144.97 | -49369.76 | -34144.97 | -49369.76 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 129 | 2021-07-29 | Thursday        | -5515.57            | -34478.63 | -49810.75 | -34478.63 | -49810.75 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 130 | 2021-07-30 | Friday          | -5715.79            | -34882.72 | -50322.76 | -34882.72 | -50322.76 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+

plot(forecasting_bats)
x1_test <- ts(testing_data, start =(rows-validation_data_days+1) )
lines(x1_test, col='red',lwd=2)

graph1<-autoplot(forecasting_bats,xlab = paste ("Time in", frequency ,y_lab , sep=" "), ylab=y_lab)
graph1

## TBATS Model
# Data Modeling
data_series<-ts(training_data)
model_TBATS<-forecast:::fitSpecificTBATS(data_series,use.box.cox=FALSE, use.beta=TRUE,  seasonal.periods=c(6),use.damping=FALSE,k.vector=c(2))
accuracy(model_TBATS)  # accuracy on training data

##                     ME     RMSE      MAE MPE MAPE     MASE       ACF1
## Training set -12.47929 580.3647 354.2871 NaN  Inf 1.009343 0.02963048

# Print Model Parameters
model_TBATS

## TBATS(1, {0,0}, 1, {<6,2>})
## 
## Call: NULL
## 
## Parameters
##   Alpha: 0.8185918
##   Beta: 0.04505491
##   Damping Parameter: 1
##   Gamma-1 Values: -0.001728904
##   Gamma-2 Values: 0.0007051935
## 
## Seed States:
##            [,1]
## [1,] -17.910826
## [2,]   2.702372
## [3,]  24.584023
## [4,]   6.106569
## [5,]  15.299603
## [6,] -28.404799
## 
## Sigma: 580.3647
## AIC: 7408.949

plot(model_TBATS,xlab = paste ("Time in", frequency ,y_lab , sep=" "), ylab=y_lab)

# Testing Data Evaluation
forecasting_tbats <- predict(model_TBATS, h=N_forecasting_days+validation_data_days)
validation_forecast<-head(forecasting_tbats$mean,validation_data_days)
MAPE_Per_Day<-round(  abs(((testing_data-validation_forecast)/testing_data)*100)  ,3)
paste ("MAPE % For ",validation_data_days,frequency,"by using TBATS Model for  ==> ",y_lab, sep=" ")

## [1] "MAPE % For  50 days by using TBATS Model for  ==>  Covid 19 Infection cases in Russia Federation"

MAPE_Mean_All.TBATS_Model<-round(mean(MAPE_Per_Day),3)
MAPE_Mean_All.TBATS<-paste(round(mean(MAPE_Per_Day),3),"% MAPE ",validation_data_days,frequency,y_lab,sep=" ")
MAPE_TBATS<-paste(round(MAPE_Per_Day,3),"%")
MAPE_TBATS_Model<-paste(MAPE_Per_Day ,"%")
paste (" MAPE that's Error of Forecasting for ",validation_data_days," days in TBATS Model for  ==> ",y_lab, sep=" ")

## [1] " MAPE that's Error of Forecasting for  50  days in TBATS Model for  ==>  Covid 19 Infection cases in Russia Federation"

paste(MAPE_Mean_All.TBATS,"%")

## [1] "8.365 % MAPE  50 days Covid 19 Infection cases in Russia Federation %"

paste ("MAPE that's Error of Forecasting day by day for ",validation_data_days," days in TBATS Model for  ==> ",y_lab, sep=" ")

## [1] "MAPE that's Error of Forecasting day by day for  50  days in TBATS Model for  ==>  Covid 19 Infection cases in Russia Federation"

print(ascii(data.frame(date_TBATS=validation_dates,validation_data_by_name,actual_data=testing_data,forecasting_TBATS=validation_forecast,MAPE_TBATS_Model)), type = "rest")

## 
## +----+------------+-------------------------+-------------+-------------------+------------------+
## |    | date_TBATS | validation_data_by_name | actual_data | forecasting_TBATS | MAPE_TBATS_Model |
## +====+============+=========================+=============+===================+==================+
## | 1  | 2021-02-01 | Monday                  | 17648.00    | 18276.24          | 3.56 %           |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 2  | 2021-02-02 | Tuesday                 | 16643.00    | 18066.84          | 8.555 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 3  | 2021-02-03 | Wednesday               | 16474.00    | 17828.09          | 8.22 %           |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 4  | 2021-02-04 | Thursday                | 16714.00    | 17623.76          | 5.443 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 5  | 2021-02-05 | Friday                  | 16688.00    | 17363.43          | 4.047 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 6  | 2021-02-06 | Saturday                | 16627.00    | 17119.01          | 2.959 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 7  | 2021-02-07 | Sunday                  | 16048.00    | 16959.92          | 5.682 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 8  | 2021-02-08 | Monday                  | 15916.00    | 16750.52          | 5.243 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 9  | 2021-02-09 | Tuesday                 | 15019.00    | 16511.77          | 9.939 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 10 | 2021-02-10 | Wednesday               | 14494.00    | 16307.43          | 12.512 %         |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 11 | 2021-02-11 | Thursday                | 15038.00    | 16047.11          | 6.71 %           |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 12 | 2021-02-12 | Friday                  | 15089.00    | 15802.68          | 4.73 %           |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 13 | 2021-02-13 | Saturday                | 14861.00    | 15643.59          | 5.266 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 14 | 2021-02-14 | Sunday                  | 14185.00    | 15434.19          | 8.806 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 15 | 2021-02-15 | Monday                  | 14207.00    | 15195.44          | 6.957 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 16 | 2021-02-16 | Tuesday                 | 13233.00    | 14991.11          | 13.286 %         |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 17 | 2021-02-17 | Wednesday               | 12828.00    | 14730.78          | 14.833 %         |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 18 | 2021-02-18 | Thursday                | 13447.00    | 14486.36          | 7.729 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 19 | 2021-02-19 | Friday                  | 13433.00    | 14327.27          | 6.657 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 20 | 2021-02-20 | Saturday                | 12953.00    | 14117.87          | 8.993 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 21 | 2021-02-21 | Sunday                  | 12742.00    | 13879.12          | 8.924 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 22 | 2021-02-22 | Monday                  | 12604.00    | 13674.78          | 8.496 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 23 | 2021-02-23 | Tuesday                 | 11823.00    | 13414.45          | 13.461 %         |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 24 | 2021-02-24 | Wednesday               | 11749.00    | 13170.03          | 12.095 %         |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 25 | 2021-02-25 | Thursday                | 11198.00    | 13010.94          | 16.19 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 26 | 2021-02-26 | Friday                  | 11086.00    | 12801.54          | 15.475 %         |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 27 | 2021-02-27 | Saturday                | 11534.00    | 12562.79          | 8.92 %           |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 28 | 2021-02-28 | Sunday                  | 11359.00    | 12358.45          | 8.799 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 29 | 2021-03-01 | Monday                  | 11571.00    | 12098.13          | 4.556 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 30 | 2021-03-02 | Tuesday                 | 10565.00    | 11853.71          | 12.198 %         |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 31 | 2021-03-03 | Wednesday               | 10535.00    | 11694.62          | 11.007 %         |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 32 | 2021-03-04 | Thursday                | 11385.00    | 11485.21          | 0.88 %           |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 33 | 2021-03-05 | Friday                  | 11024.00    | 11246.47          | 2.018 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 34 | 2021-03-06 | Saturday                | 11022.00    | 11042.13          | 0.183 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 35 | 2021-03-07 | Sunday                  | 10595.00    | 10781.80          | 1.763 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 36 | 2021-03-08 | Monday                  | 10253.00    | 10537.38          | 2.774 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 37 | 2021-03-09 | Tuesday                 | 9445.00     | 10378.29          | 9.881 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 38 | 2021-03-10 | Wednesday               | 9079.00     | 10168.89          | 12.004 %         |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 39 | 2021-03-11 | Thursday                | 9270.00     | 9930.14           | 7.121 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 40 | 2021-03-12 | Friday                  | 9794.00     | 9725.80           | 0.696 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 41 | 2021-03-13 | Saturday                | 9908.00     | 9465.48           | 4.466 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 42 | 2021-03-14 | Sunday                  | 10083.00    | 9221.06           | 8.548 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 43 | 2021-03-15 | Monday                  | 9437.00     | 9061.97           | 3.974 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 44 | 2021-03-16 | Tuesday                 | 9393.00     | 8852.56           | 5.754 %          |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 45 | 2021-03-17 | Wednesday               | 8998.00     | 8613.82           | 4.27 %           |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 46 | 2021-03-18 | Thursday                | 9803.00     | 8409.48           | 14.215 %         |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 47 | 2021-03-19 | Friday                  | 9699.00     | 8149.15           | 15.979 %         |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 48 | 2021-03-20 | Saturday                | 9632.00     | 7904.73           | 17.933 %         |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 49 | 2021-03-21 | Sunday                  | 9299.00     | 7745.64           | 16.705 %         |
## +----+------------+-------------------------+-------------+-------------------+------------------+
## | 50 | 2021-03-22 | Monday                  | 9284.00     | 7536.24           | 18.826 %         |
## +----+------------+-------------------------+-------------+-------------------+------------------+

print(ascii(data.frame(FD,forecating_date=forecasting_data_by_name,forecasting_by_TBATS=tail(forecasting_tbats$mean,N_forecasting_days),Lower=tail(forecasting_tbats$lower,N_forecasting_days),Upper=tail(forecasting_tbats$upper,N_forecasting_days))), type = "rest")

## 
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## |     | FD         | forecating_date | forecasting_by_TBATS | Lower.80. | Lower.95. | Upper.80. | Upper.95. |
## +=====+============+=================+======================+===========+===========+===========+===========+
## | 1   | 2021-03-23 | Tuesday         | 7297.49              | 3154.92   | 961.97    | 11440.06  | 13633.01  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 2   | 2021-03-24 | Wednesday       | 7093.15              | 2915.00   | 703.22    | 11271.30  | 13483.08  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 3   | 2021-03-25 | Thursday        | 6832.83              | 2619.44   | 389.00    | 11046.22  | 13276.65  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 4   | 2021-03-26 | Friday          | 6588.40              | 2340.47   | 91.76     | 10836.33  | 13085.05  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 5   | 2021-03-27 | Saturday        | 6429.31              | 2147.45   | -119.24   | 10711.18  | 12977.87  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 6   | 2021-03-28 | Sunday          | 6219.91              | 1904.46   | -380.01   | 10535.37  | 12819.83  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 7   | 2021-03-29 | Monday          | 5981.16              | 1632.50   | -669.54   | 10329.83  | 12631.87  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 8   | 2021-03-30 | Tuesday         | 5776.83              | 1395.21   | -924.28   | 10158.44  | 12477.93  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 9   | 2021-03-31 | Wednesday       | 5516.50              | 1102.21   | -1234.57  | 9930.79   | 12267.57  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 10  | 2021-04-01 | Thursday        | 5272.08              | 825.74    | -1528.01  | 9718.42   | 12072.16  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 11  | 2021-04-02 | Friday          | 5112.99              | 635.14    | -1735.30  | 9590.84   | 11961.27  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 12  | 2021-04-03 | Saturday        | 4903.59              | 394.52    | -1992.44  | 9412.65   | 11799.61  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 13  | 2021-04-04 | Sunday          | 4664.84              | 124.89    | -2278.42  | 9204.79   | 11608.10  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 14  | 2021-04-05 | Monday          | 4460.50              | -110.13   | -2529.67  | 9031.13   | 11450.68  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 15  | 2021-04-06 | Tuesday         | 4200.18              | -400.89   | -2836.55  | 8801.24   | 11236.90  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 16  | 2021-04-07 | Wednesday       | 3955.75              | -675.19   | -3126.66  | 8586.70   | 11038.17  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 17  | 2021-04-08 | Thursday        | 3796.66              | -863.68   | -3330.71  | 8457.00   | 10924.04  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 18  | 2021-04-09 | Friday          | 3587.26              | -1102.21  | -3584.67  | 8276.73   | 10759.19  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 19  | 2021-04-10 | Saturday        | 3348.51              | -1369.81  | -3867.54  | 8066.83   | 10564.56  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 20  | 2021-04-11 | Sunday          | 3144.18              | -1602.82  | -4115.72  | 7891.17   | 10404.07  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 21  | 2021-04-12 | Monday          | 2883.85              | -1891.61  | -4419.58  | 7659.31   | 10187.28  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 22  | 2021-04-13 | Tuesday         | 2639.43              | -2163.99  | -4706.76  | 7442.84   | 9985.61   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 23  | 2021-04-14 | Wednesday       | 2480.34              | -2350.59  | -4907.93  | 7311.27   | 9868.61   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 24  | 2021-04-15 | Thursday        | 2270.94              | -2587.29  | -5159.07  | 7129.16   | 9700.94   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 25  | 2021-04-16 | Friday          | 2032.19              | -2853.07  | -5439.17  | 6917.44   | 9503.54   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 26  | 2021-04-17 | Saturday        | 1827.85              | -3084.29  | -5684.62  | 6739.99   | 9340.32   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 27  | 2021-04-18 | Sunday          | 1567.52              | -3371.32  | -5985.79  | 6506.37   | 9120.84   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 28  | 2021-04-19 | Monday          | 1323.10              | -3641.98  | -6270.34  | 6288.19   | 8916.54   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 29  | 2021-04-20 | Tuesday         | 1164.01              | -3826.91  | -6468.94  | 6154.93   | 8796.97   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 30  | 2021-04-21 | Wednesday       | 954.61               | -4061.95  | -6717.55  | 5971.17   | 8626.77   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 31  | 2021-04-22 | Thursday        | 715.86               | -4326.10  | -6995.15  | 5757.82   | 8426.88   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 32  | 2021-04-23 | Friday          | 511.52               | -4555.72  | -7238.15  | 5578.77   | 8261.20   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 33  | 2021-04-24 | Saturday        | 251.20               | -4841.17  | -7536.90  | 5343.56   | 8039.30   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 34  | 2021-04-25 | Sunday          | 6.78                 | -5110.27  | -7819.08  | 5123.83   | 7832.63   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 35  | 2021-04-26 | Monday          | -152.31              | -5293.68  | -8015.36  | 4989.06   | 7710.73   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 36  | 2021-04-27 | Tuesday         | -361.72              | -5527.22  | -8261.68  | 4803.79   | 7538.25   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 37  | 2021-04-28 | Wednesday       | -600.46              | -5789.90  | -8537.02  | 4588.98   | 7336.10   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 38  | 2021-04-29 | Thursday        | -804.80              | -6018.06  | -8777.79  | 4408.46   | 7168.19   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 39  | 2021-04-30 | Friday          | -1065.13             | -6302.07  | -9074.34  | 4171.82   | 6944.09   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 40  | 2021-05-01 | Saturday        | -1309.55             | -6569.77  | -9354.36  | 3950.67   | 6735.27   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 41  | 2021-05-02 | Sunday          | -1468.64             | -6751.80  | -9548.53  | 3814.52   | 6611.25   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 42  | 2021-05-03 | Monday          | -1678.04             | -6983.97  | -9792.76  | 3627.89   | 6436.68   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 43  | 2021-05-04 | Tuesday         | -1916.79             | -7245.30  | -10066.05 | 3411.73   | 6232.47   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 44  | 2021-05-05 | Wednesday       | -2121.13             | -7472.13  | -10304.78 | 3229.88   | 6062.53   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 45  | 2021-05-06 | Thursday        | -2381.45             | -7754.83  | -10599.32 | 2991.92   | 5836.41   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 46  | 2021-05-07 | Friday          | -2625.87             | -8021.24  | -10877.37 | 2769.49   | 5625.62   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 47  | 2021-05-08 | Saturday        | -2784.96             | -8202.00  | -11069.60 | 2632.07   | 5499.67   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 48  | 2021-05-09 | Sunday          | -2994.37             | -8432.92  | -11311.91 | 2444.19   | 5323.18   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 49  | 2021-05-10 | Monday          | -3233.11             | -8693.02  | -11583.31 | 2226.79   | 5117.09   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 50  | 2021-05-11 | Tuesday         | -3437.45             | -8918.62  | -11820.18 | 2043.72   | 4945.27   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 51  | 2021-05-12 | Wednesday       | -3697.78             | -9200.10  | -12112.86 | 1804.55   | 4717.30   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 52  | 2021-05-13 | Thursday        | -3942.20             | -9465.33  | -12389.09 | 1580.93   | 4504.69   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 53  | 2021-05-14 | Friday          | -4101.29             | -9644.92  | -12579.54 | 1442.34   | 4376.96   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 54  | 2021-05-15 | Saturday        | -4310.69             | -9874.69  | -12820.09 | 1253.30   | 4198.70   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 55  | 2021-05-16 | Sunday          | -4549.44             | -10133.64 | -13089.74 | 1034.77   | 3990.86   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 56  | 2021-05-17 | Monday          | -4753.78             | -10358.12 | -13324.88 | 850.56    | 3817.32   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 57  | 2021-05-18 | Tuesday         | -5014.10             | -10638.48 | -13615.85 | 610.28    | 3587.64   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 58  | 2021-05-19 | Wednesday       | -5258.53             | -10902.61 | -13890.40 | 385.56    | 3373.35   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 59  | 2021-05-20 | Thursday        | -5417.62             | -11081.12 | -14079.19 | 245.89    | 3243.96   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 60  | 2021-05-21 | Friday          | -5627.02             | -11309.82 | -14318.11 | 55.78     | 3064.07   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 61  | 2021-05-22 | Saturday        | -5865.77             | -11567.71 | -14586.14 | -163.82   | 2854.61   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 62  | 2021-05-23 | Sunday          | -6070.10             | -11791.14 | -14819.67 | -349.07   | 2679.47   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 63  | 2021-05-24 | Monday          | -6330.43             | -12070.46 | -15109.06 | -590.39   | 2448.20   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 64  | 2021-05-25 | Tuesday         | -6574.85             | -12333.57 | -15382.05 | -816.14   | 2232.34   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 65  | 2021-05-26 | Wednesday       | -6733.94             | -12511.07 | -15569.30 | -956.81   | 2101.42   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 66  | 2021-05-27 | Thursday        | -6943.34             | -12738.77 | -15806.69 | -1147.91  | 1920.00   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 67  | 2021-05-28 | Friday          | -7182.09             | -12995.69 | -16073.22 | -1368.49  | 1709.04   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 68  | 2021-05-29 | Saturday        | -7386.43             | -13218.13 | -16305.25 | -1554.72  | 1532.39   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 69  | 2021-05-30 | Sunday          | -7646.75             | -13496.49 | -16593.15 | -1797.02  | 1299.64   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 70  | 2021-05-31 | Monday          | -7891.18             | -13758.64 | -16864.68 | -2023.72  | 1082.33   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 71  | 2021-06-01 | Tuesday         | -8050.27             | -13935.20 | -17050.50 | -2165.33  | 949.96    |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 72  | 2021-06-02 | Wednesday       | -8259.67             | -14161.97 | -17286.47 | -2357.36  | 767.13    |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 73  | 2021-06-03 | Thursday        | -8498.42             | -14417.97 | -17551.59 | -2578.87  | 554.75    |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 74  | 2021-06-04 | Friday          | -8702.75             | -14639.50 | -17782.22 | -2766.01  | 376.71    |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 75  | 2021-06-05 | Saturday        | -8963.08             | -14916.95 | -18068.73 | -3009.21  | 142.57    |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 76  | 2021-06-06 | Sunday          | -9207.50             | -15178.20 | -18338.90 | -3236.80  | -76.11    |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 77  | 2021-06-07 | Monday          | -9366.59             | -15353.88 | -18523.37 | -3379.30  | -209.82   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 78  | 2021-06-08 | Tuesday         | -9575.99             | -15579.78 | -18758.00 | -3572.20  | -393.99   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 79  | 2021-06-09 | Wednesday       | -9814.74             | -15834.91 | -19021.80 | -3794.57  | -607.69   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 80  | 2021-06-10 | Thursday        | -10019.08            | -16055.59 | -19251.12 | -3982.57  | -787.04   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 81  | 2021-06-11 | Friday          | -10279.41            | -16332.18 | -19536.33 | -4226.63  | -1022.49  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 82  | 2021-06-12 | Saturday        | -10523.83            | -16592.60 | -19805.21 | -4455.06  | -1242.45  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 83  | 2021-06-13 | Sunday          | -10682.92            | -16767.45 | -19988.41 | -4598.38  | -1377.42  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 84  | 2021-06-14 | Monday          | -10892.32            | -16992.53 | -20221.79 | -4792.11  | -1562.85  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 85  | 2021-06-15 | Tuesday         | -11131.07            | -17246.85 | -20484.35 | -5015.29  | -1777.79  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 86  | 2021-06-16 | Wednesday       | -11335.41            | -17466.71 | -20712.43 | -5204.10  | -1958.38  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 87  | 2021-06-17 | Thursday        | -11595.73            | -17742.50 | -20996.41 | -5448.96  | -2195.05  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 88  | 2021-06-18 | Friday          | -11840.15            | -18002.13 | -21264.08 | -5678.18  | -2416.22  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 89  | 2021-06-19 | Saturday        | -11999.24            | -18176.21 | -21446.10 | -5822.28  | -2552.39  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 90  | 2021-06-20 | Sunday          | -12208.65            | -18400.51 | -21678.29 | -6016.78  | -2739.00  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 91  | 2021-06-21 | Monday          | -12447.39            | -18654.06 | -21939.67 | -6240.73  | -2955.11  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 92  | 2021-06-22 | Tuesday         | -12651.73            | -18873.16 | -22166.59 | -6430.30  | -3136.87  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 93  | 2021-06-23 | Wednesday       | -12912.06            | -19148.20 | -22449.41 | -6675.92  | -3374.70  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 94  | 2021-06-24 | Thursday        | -13156.48            | -19407.08 | -22715.94 | -6905.88  | -3597.01  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 95  | 2021-06-25 | Friday          | -13315.57            | -19580.42 | -22896.83 | -7050.72  | -3734.31  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 96  | 2021-06-26 | Saturday        | -13524.97            | -19803.99 | -23127.90 | -7245.95  | -3922.04  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 97  | 2021-06-27 | Sunday          | -13763.72            | -20056.81 | -23388.18 | -7470.62  | -4139.26  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 98  | 2021-06-28 | Monday          | -13968.06            | -20275.19 | -23613.99 | -7660.92  | -4322.12  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 99  | 2021-06-29 | Tuesday         | -14228.38            | -20549.51 | -23895.71 | -7907.25  | -4561.05  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 100 | 2021-06-30 | Wednesday       | -14472.80            | -20807.68 | -24161.17 | -8137.93  | -4784.44  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 101 | 2021-07-01 | Thursday        | -14631.89            | -20980.33 | -24340.98 | -8283.46  | -4922.81  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 102 | 2021-07-02 | Friday          | -14841.30            | -21203.21 | -24571.00 | -8479.39  | -5111.59  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 103 | 2021-07-03 | Saturday        | -15080.04            | -21455.34 | -24830.22 | -8704.75  | -5329.87  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 104 | 2021-07-04 | Sunday          | -15284.38            | -21673.04 | -25054.99 | -8895.73  | -5513.77  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 105 | 2021-07-05 | Monday          | -15544.71            | -21946.68 | -25335.67 | -9142.74  | -5753.74  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 106 | 2021-07-06 | Tuesday         | -15789.13            | -22204.18 | -25600.10 | -9374.08  | -5978.16  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 107 | 2021-07-07 | Wednesday       | -15948.22            | -22376.16 | -25778.90 | -9520.28  | -6117.54  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 108 | 2021-07-08 | Thursday        | -16157.62            | -22598.38 | -26007.91 | -9716.86  | -6307.33  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 109 | 2021-07-09 | Friday          | -16396.37            | -22849.86 | -26266.14 | -9942.88  | -6526.60  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 110 | 2021-07-10 | Saturday        | -16600.71            | -23066.91 | -26489.91 | -10134.50 | -6711.50  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 111 | 2021-07-11 | Sunday          | -16861.03            | -23339.90 | -26769.61 | -10382.16 | -6952.46  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 112 | 2021-07-12 | Monday          | -17105.46            | -23596.77 | -27033.06 | -10614.14 | -7177.85  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 113 | 2021-07-13 | Tuesday         | -17264.55            | -23768.12 | -27210.90 | -10760.97 | -7318.19  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 114 | 2021-07-14 | Wednesday       | -17473.95            | -23989.72 | -27438.96 | -10958.18 | -7508.94  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 115 | 2021-07-15 | Thursday        | -17712.70            | -24240.58 | -27696.23 | -11184.81 | -7729.16  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 116 | 2021-07-16 | Friday          | -17917.03            | -24457.01 | -27919.06 | -11377.06 | -7915.00  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 117 | 2021-07-17 | Saturday        | -18177.36            | -24729.38 | -28197.82 | -11625.33 | -8156.90  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 118 | 2021-07-18 | Sunday          | -18421.78            | -24985.64 | -28460.34 | -11857.92 | -8383.22  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 119 | 2021-07-19 | Monday          | -18580.87            | -25156.40 | -28637.27 | -12005.35 | -8524.47  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 120 | 2021-07-20 | Tuesday         | -18790.27            | -25377.40 | -28864.41 | -12203.15 | -8716.13  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 121 | 2021-07-21 | Wednesday       | -19029.02            | -25627.67 | -29120.78 | -12430.37 | -8937.26  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 122 | 2021-07-22 | Thursday        | -19233.36            | -25843.51 | -29342.71 | -12623.21 | -9124.01  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 123 | 2021-07-23 | Friday          | -19493.68            | -26115.30 | -29620.57 | -12872.07 | -9366.80  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 124 | 2021-07-24 | Saturday        | -19738.11            | -26370.98 | -29882.21 | -13105.23 | -9594.00  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 125 | 2021-07-25 | Sunday          | -19897.20            | -26541.16 | -30058.26 | -13253.23 | -9736.13  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 126 | 2021-07-26 | Monday          | -20106.60            | -26761.60 | -30284.54 | -13451.60 | -9928.66  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 127 | 2021-07-27 | Tuesday         | -20345.35            | -27011.30 | -30540.05 | -13679.39 | -10150.65 |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 128 | 2021-07-28 | Wednesday       | -20549.68            | -27226.58 | -30761.12 | -13872.79 | -10338.25 |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 129 | 2021-07-29 | Thursday        | -20810.01            | -27497.81 | -31038.12 | -14122.21 | -10581.90 |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 130 | 2021-07-30 | Friday          | -21054.43            | -27752.94 | -31298.92 | -14355.92 | -10809.95 |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+

plot(forecasting_tbats)
x1_test <- ts(testing_data, start =(rows-validation_data_days+1) )
lines(x1_test, col='red',lwd=2)

graph2<-autoplot(forecasting_tbats,xlab = paste ("Time in", frequency ,y_lab , sep=" "), ylab=y_lab)
graph2

## Holt's linear trend
# Data Modeling
data_series<-ts(training_data)
model_holt<-holt(data_series,h=N_forecasting_days+validation_data_days,lambda = "auto")
accuracy(model_holt)  # accuracy on training data

##                     ME     RMSE      MAE MPE MAPE      MASE      ACF1
## Training set -27.73887 588.7527 350.5132 NaN  Inf 0.9985915 0.1319736

# Print Model Parameters
summary(model_holt$model)

## Holt's method 
## 
## Call:
##  holt(y = data_series, h = N_forecasting_days + validation_data_days,  
## 
##  Call:
##      lambda = "auto") 
## 
##   Box-Cox transformation: lambda= 0.6237 
## 
##   Smoothing parameters:
##     alpha = 0.6818 
##     beta  = 0.0574 
## 
##   Initial states:
##     l = -2.0107 
##     b = -0.0029 
## 
##   sigma:  16.9635
## 
##      AIC     AICc      BIC 
## 4604.180 4604.334 4624.074 
## 
## Training set error measures:
##                     ME     RMSE      MAE MPE MAPE      MASE      ACF1
## Training set -27.73887 588.7527 350.5132 NaN  Inf 0.9985915 0.1319736

# Testing Data Evaluation
forecasting_holt <- predict(model_holt, h=N_forecasting_days+validation_data_days,lambda = "auto")
validation_forecast<-head(forecasting_holt$mean,validation_data_days)
MAPE_Per_Day<-round(  abs(((testing_data-validation_forecast)/testing_data)*100)  ,3)
paste ("MAPE % For ",validation_data_days,frequency,"by using holt Model for  ==> ",y_lab, sep=" ")

## [1] "MAPE % For  50 days by using holt Model for  ==>  Covid 19 Infection cases in Russia Federation"

MAPE_Mean_All.Holt_Model<-round(mean(MAPE_Per_Day),3)
MAPE_Mean_All.Holt<-paste(round(mean(MAPE_Per_Day),3),"% MAPE ",validation_data_days,frequency,y_lab,sep=" ")
MAPE_holt<-paste(round(MAPE_Per_Day,3),"%")
MAPE_holt_Model<-paste(MAPE_Per_Day ,"%")
paste (" MAPE that's Error of Forecasting for ",validation_data_days," days in holt Model for  ==> ",y_lab, sep=" ")

## [1] " MAPE that's Error of Forecasting for  50  days in holt Model for  ==>  Covid 19 Infection cases in Russia Federation"

paste(MAPE_Mean_All.Holt,"%")

## [1] "7.145 % MAPE  50 days Covid 19 Infection cases in Russia Federation %"

paste ("MAPE that's Error of Forecasting day by day for ",validation_data_days," days in holt Model for  ==> ",y_lab, sep=" ")

## [1] "MAPE that's Error of Forecasting day by day for  50  days in holt Model for  ==>  Covid 19 Infection cases in Russia Federation"

print(ascii(data.frame(date_holt=validation_dates,validation_data_by_name,actual_data=testing_data,forecasting_holt=validation_forecast,MAPE_holt_Model)), type = "rest")

## 
## +----+------------+-------------------------+-------------+------------------+-----------------+
## |    | date_holt  | validation_data_by_name | actual_data | forecasting_holt | MAPE_holt_Model |
## +====+============+=========================+=============+==================+=================+
## | 1  | 2021-02-01 | Monday                  | 17648.00    | 18232.78         | 3.314 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 2  | 2021-02-02 | Tuesday                 | 16643.00    | 17996.30         | 8.131 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 3  | 2021-02-03 | Wednesday               | 16474.00    | 17760.97         | 7.812 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 4  | 2021-02-04 | Thursday                | 16714.00    | 17526.82         | 4.863 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 5  | 2021-02-05 | Friday                  | 16688.00    | 17293.84         | 3.63 %          |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 6  | 2021-02-06 | Saturday                | 16627.00    | 17062.03         | 2.616 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 7  | 2021-02-07 | Sunday                  | 16048.00    | 16831.40         | 4.882 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 8  | 2021-02-08 | Monday                  | 15916.00    | 16601.95         | 4.31 %          |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 9  | 2021-02-09 | Tuesday                 | 15019.00    | 16373.69         | 9.02 %          |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 10 | 2021-02-10 | Wednesday               | 14494.00    | 16146.62         | 11.402 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 11 | 2021-02-11 | Thursday                | 15038.00    | 15920.75         | 5.87 %          |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 12 | 2021-02-12 | Friday                  | 15089.00    | 15696.07         | 4.023 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 13 | 2021-02-13 | Saturday                | 14861.00    | 15472.60         | 4.115 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 14 | 2021-02-14 | Sunday                  | 14185.00    | 15250.34         | 7.51 %          |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 15 | 2021-02-15 | Monday                  | 14207.00    | 15029.29         | 5.788 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 16 | 2021-02-16 | Tuesday                 | 13233.00    | 14809.45         | 11.913 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 17 | 2021-02-17 | Wednesday               | 12828.00    | 14590.84         | 13.742 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 18 | 2021-02-18 | Thursday                | 13447.00    | 14373.45         | 6.89 %          |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 19 | 2021-02-19 | Friday                  | 13433.00    | 14157.30         | 5.392 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 20 | 2021-02-20 | Saturday                | 12953.00    | 13942.37         | 7.638 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 21 | 2021-02-21 | Sunday                  | 12742.00    | 13728.69         | 7.744 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 22 | 2021-02-22 | Monday                  | 12604.00    | 13516.25         | 7.238 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 23 | 2021-02-23 | Tuesday                 | 11823.00    | 13305.06         | 12.535 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 24 | 2021-02-24 | Wednesday               | 11749.00    | 13095.12         | 11.457 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 25 | 2021-02-25 | Thursday                | 11198.00    | 12886.45         | 15.078 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 26 | 2021-02-26 | Friday                  | 11086.00    | 12679.03         | 14.37 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 27 | 2021-02-27 | Saturday                | 11534.00    | 12472.89         | 8.14 %          |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 28 | 2021-02-28 | Sunday                  | 11359.00    | 12268.02         | 8.003 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 29 | 2021-03-01 | Monday                  | 11571.00    | 12064.42         | 4.264 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 30 | 2021-03-02 | Tuesday                 | 10565.00    | 11862.12         | 12.277 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 31 | 2021-03-03 | Wednesday               | 10535.00    | 11661.10         | 10.689 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 32 | 2021-03-04 | Thursday                | 11385.00    | 11461.38         | 0.671 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 33 | 2021-03-05 | Friday                  | 11024.00    | 11262.96         | 2.168 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 34 | 2021-03-06 | Saturday                | 11022.00    | 11065.84         | 0.398 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 35 | 2021-03-07 | Sunday                  | 10595.00    | 10870.04         | 2.596 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 36 | 2021-03-08 | Monday                  | 10253.00    | 10675.56         | 4.121 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 37 | 2021-03-09 | Tuesday                 | 9445.00     | 10482.40         | 10.984 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 38 | 2021-03-10 | Wednesday               | 9079.00     | 10290.57         | 13.345 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 39 | 2021-03-11 | Thursday                | 9270.00     | 10100.07         | 8.954 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 40 | 2021-03-12 | Friday                  | 9794.00     | 9910.92          | 1.194 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 41 | 2021-03-13 | Saturday                | 9908.00     | 9723.12          | 1.866 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 42 | 2021-03-14 | Sunday                  | 10083.00    | 9536.67          | 5.418 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 43 | 2021-03-15 | Monday                  | 9437.00     | 9351.59          | 0.905 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 44 | 2021-03-16 | Tuesday                 | 9393.00     | 9167.87          | 2.397 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 45 | 2021-03-17 | Wednesday               | 8998.00     | 8985.53          | 0.139 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 46 | 2021-03-18 | Thursday                | 9803.00     | 8804.56          | 10.185 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 47 | 2021-03-19 | Friday                  | 9699.00     | 8624.99          | 11.073 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 48 | 2021-03-20 | Saturday                | 9632.00     | 8446.82          | 12.305 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 49 | 2021-03-21 | Sunday                  | 9299.00     | 8270.04          | 11.065 %        |
## +----+------------+-------------------------+-------------+------------------+-----------------+
## | 50 | 2021-03-22 | Monday                  | 9284.00     | 8094.68          | 12.81 %         |
## +----+------------+-------------------------+-------------+------------------+-----------------+

print(ascii(data.frame(FD,forecating_date=forecasting_data_by_name,forecasting_by_holt=tail(forecasting_holt$mean,N_forecasting_days),Lower=tail(forecasting_holt$lower,N_forecasting_days),Upper=tail(forecasting_holt$upper,N_forecasting_days))), type = "rest")

## 
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## |     | FD         | forecating_date | forecasting_by_holt | Lower.80.  | Lower.95.  | Upper.80. | Upper.95. |
## +=====+============+=================+=====================+============+============+===========+===========+
## | 1   | 2021-03-23 | Tuesday         | 7920.73             | 519.99     | -855.98    | 20634.83  | 29058.62  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 2   | 2021-03-24 | Wednesday       | 7748.21             | 376.18     | -1110.05   | 20747.15  | 29404.14  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 3   | 2021-03-25 | Thursday        | 7577.13             | 250.09     | -1389.74   | 20862.54  | 29756.15  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 4   | 2021-03-26 | Friday          | 7407.48             | 143.99     | -1694.11   | 20980.99  | 30114.68  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 5   | 2021-03-27 | Saturday        | 7239.29             | 61.30      | -2022.40   | 21102.50  | 30479.75  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 6   | 2021-03-28 | Sunday          | 7072.55             | 8.58       | -2373.96   | 21227.06  | 30851.38  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 7   | 2021-03-29 | Monday          | 6907.28             | -15.04     | -2748.28   | 21354.67  | 31229.60  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 8   | 2021-03-30 | Tuesday         | 6743.48             | -74.47     | -3144.90   | 21485.34  | 31614.44  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 9   | 2021-03-31 | Wednesday       | 6581.17             | -163.65    | -3563.45   | 21619.06  | 32005.94  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 10  | 2021-04-01 | Thursday        | 6420.35             | -277.35    | -4003.58   | 21755.83  | 32404.11  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 11  | 2021-04-02 | Friday          | 6261.03             | -412.83    | -4465.03   | 21895.65  | 32808.98  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 12  | 2021-04-03 | Saturday        | 6103.22             | -568.32    | -4947.52   | 22038.52  | 33220.59  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 13  | 2021-04-04 | Sunday          | 5946.93             | -742.55    | -5450.86   | 22184.44  | 33638.97  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 14  | 2021-04-05 | Monday          | 5792.17             | -934.56    | -5974.83   | 22333.43  | 34064.14  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 15  | 2021-04-06 | Tuesday         | 5638.96             | -1143.60   | -6519.27   | 22485.47  | 34496.14  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 16  | 2021-04-07 | Wednesday       | 5487.29             | -1369.06   | -7084.02   | 22640.57  | 34935.00  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 17  | 2021-04-08 | Thursday        | 5337.18             | -1610.43   | -7668.95   | 22798.74  | 35380.75  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 18  | 2021-04-09 | Friday          | 5188.65             | -1867.29   | -8273.94   | 22959.97  | 35833.42  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 19  | 2021-04-10 | Saturday        | 5041.70             | -2139.28   | -8898.87   | 23124.28  | 36293.05  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 20  | 2021-04-11 | Sunday          | 4896.34             | -2426.08   | -9543.65   | 23291.66  | 36759.66  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 21  | 2021-04-12 | Monday          | 4752.59             | -2727.41   | -10208.20  | 23462.13  | 37233.29  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 22  | 2021-04-13 | Tuesday         | 4610.46             | -3043.04   | -10892.43  | 23635.68  | 37713.98  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 23  | 2021-04-14 | Wednesday       | 4469.96             | -3372.75   | -11596.28  | 23812.32  | 38201.75  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 24  | 2021-04-15 | Thursday        | 4331.10             | -3716.36   | -12319.68  | 23992.06  | 38696.65  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 25  | 2021-04-16 | Friday          | 4193.89             | -4073.68   | -13062.58  | 24174.90  | 39198.70  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 26  | 2021-04-17 | Saturday        | 4058.35             | -4444.58   | -13824.92  | 24360.86  | 39707.94  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 27  | 2021-04-18 | Sunday          | 3924.50             | -4828.90   | -14606.68  | 24549.93  | 40224.40  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 28  | 2021-04-19 | Monday          | 3792.34             | -5226.54   | -15407.79  | 24742.13  | 40748.12  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 29  | 2021-04-20 | Tuesday         | 3661.89             | -5637.36   | -16228.24  | 24937.46  | 41279.13  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 30  | 2021-04-21 | Wednesday       | 3533.17             | -6061.27   | -17067.98  | 25135.92  | 41817.47  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 31  | 2021-04-22 | Thursday        | 3406.19             | -6498.17   | -17927.00  | 25337.54  | 42363.18  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 32  | 2021-04-23 | Friday          | 3280.96             | -6947.98   | -18805.27  | 25542.31  | 42916.28  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 33  | 2021-04-24 | Saturday        | 3157.51             | -7410.62   | -19702.77  | 25750.24  | 43476.82  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 34  | 2021-04-25 | Sunday          | 3035.85             | -7886.01   | -20619.49  | 25961.35  | 44044.82  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 35  | 2021-04-26 | Monday          | 2916.00             | -8374.08   | -21555.40  | 26175.64  | 44620.33  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 36  | 2021-04-27 | Tuesday         | 2797.97             | -8874.78   | -22510.50  | 26393.12  | 45203.39  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 37  | 2021-04-28 | Wednesday       | 2681.78             | -9388.05   | -23484.78  | 26613.79  | 45794.02  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 38  | 2021-04-29 | Thursday        | 2567.46             | -9913.84   | -24478.24  | 26837.68  | 46392.26  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 39  | 2021-04-30 | Friday          | 2455.02             | -10452.08  | -25490.86  | 27064.79  | 46998.15  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 40  | 2021-05-01 | Saturday        | 2344.49             | -11002.75  | -26522.64  | 27295.12  | 47611.73  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 41  | 2021-05-02 | Sunday          | 2235.89             | -11565.80  | -27573.59  | 27528.70  | 48233.03  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 42  | 2021-05-03 | Monday          | 2129.23             | -12141.19  | -28643.70  | 27765.52  | 48862.09  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 43  | 2021-05-04 | Tuesday         | 2024.55             | -12728.89  | -29732.98  | 28005.61  | 49498.94  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 44  | 2021-05-05 | Wednesday       | 1921.87             | -13328.85  | -30841.43  | 28248.96  | 50143.62  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 45  | 2021-05-06 | Thursday        | 1821.21             | -13941.06  | -31969.05  | 28495.60  | 50796.17  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 46  | 2021-05-07 | Friday          | 1722.60             | -14565.48  | -33115.85  | 28745.53  | 51456.63  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 47  | 2021-05-08 | Saturday        | 1626.07             | -15202.08  | -34281.83  | 28998.77  | 52125.03  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 48  | 2021-05-09 | Sunday          | 1531.65             | -15850.85  | -35467.01  | 29255.32  | 52801.40  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 49  | 2021-05-10 | Monday          | 1439.37             | -16511.76  | -36671.40  | 29515.19  | 53485.79  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 50  | 2021-05-11 | Tuesday         | 1349.27             | -17184.79  | -37895.00  | 29778.41  | 54178.24  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 51  | 2021-05-12 | Wednesday       | 1261.37             | -17869.92  | -39137.82  | 30044.97  | 54878.77  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 52  | 2021-05-13 | Thursday        | 1175.73             | -18567.13  | -40399.88  | 30314.90  | 55587.42  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 53  | 2021-05-14 | Friday          | 1092.36             | -19276.40  | -41681.20  | 30588.20  | 56304.24  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 54  | 2021-05-15 | Saturday        | 1011.33             | -19997.73  | -42981.78  | 30864.89  | 57029.25  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 55  | 2021-05-16 | Sunday          | 932.67              | -20731.10  | -44301.63  | 31144.98  | 57762.51  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 56  | 2021-05-17 | Monday          | 856.43              | -21476.49  | -45640.78  | 31428.47  | 58504.03  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 57  | 2021-05-18 | Tuesday         | 782.66              | -22233.90  | -46999.24  | 31715.39  | 59253.86  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 58  | 2021-05-19 | Wednesday       | 711.42              | -23003.31  | -48377.02  | 32005.75  | 60012.04  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 59  | 2021-05-20 | Thursday        | 642.77              | -23784.71  | -49774.15  | 32299.56  | 60778.60  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 60  | 2021-05-21 | Friday          | 576.77              | -24578.11  | -51190.63  | 32596.83  | 61553.59  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 61  | 2021-05-22 | Saturday        | 513.50              | -25383.48  | -52626.49  | 32897.57  | 62337.03  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 62  | 2021-05-23 | Sunday          | 453.04              | -26200.82  | -54081.75  | 33201.80  | 63128.96  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 63  | 2021-05-24 | Monday          | 395.47              | -27030.13  | -55556.42  | 33509.53  | 63929.42  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 64  | 2021-05-25 | Tuesday         | 340.89              | -27871.40  | -57050.52  | 33820.77  | 64738.45  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 65  | 2021-05-26 | Wednesday       | 289.43              | -28724.63  | -58564.08  | 34135.55  | 65556.08  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 66  | 2021-05-27 | Thursday        | 241.19              | -29589.81  | -60097.11  | 34453.86  | 66382.35  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 67  | 2021-05-28 | Friday          | 196.35              | -30466.94  | -61649.63  | 34775.73  | 67217.30  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 68  | 2021-05-29 | Saturday        | 155.06              | -31356.02  | -63221.67  | 35101.16  | 68060.97  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 69  | 2021-05-30 | Sunday          | 117.56              | -32257.04  | -64813.24  | 35430.17  | 68913.38  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 70  | 2021-05-31 | Monday          | 84.10               | -33170.01  | -66424.37  | 35762.79  | 69774.58  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 71  | 2021-06-01 | Tuesday         | 55.04               | -34094.92  | -68055.07  | 36099.00  | 70644.60  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 72  | 2021-06-02 | Wednesday       | 30.88               | -35031.77  | -69705.38  | 36438.84  | 71523.49  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 73  | 2021-06-03 | Thursday        | 12.40               | -35980.57  | -71375.30  | 36782.32  | 72411.27  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 74  | 2021-06-04 | Friday          | 1.20                | -36941.30  | -73064.87  | 37129.45  | 73307.98  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 75  | 2021-06-05 | Saturday        | -4.53               | -37913.99  | -74774.11  | 37480.24  | 74213.66  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 76  | 2021-06-06 | Sunday          | -18.90              | -38898.61  | -76503.03  | 37834.71  | 75128.34  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 77  | 2021-06-07 | Monday          | -39.73              | -39895.19  | -78251.67  | 38192.87  | 76052.07  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 78  | 2021-06-08 | Tuesday         | -65.88              | -40903.71  | -80020.04  | 38554.74  | 76984.87  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 79  | 2021-06-09 | Wednesday       | -96.71              | -41924.18  | -81808.18  | 38920.33  | 77926.79  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 80  | 2021-06-10 | Thursday        | -131.80             | -42956.61  | -83616.09  | 39289.65  | 78877.86  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 81  | 2021-06-11 | Friday          | -170.81             | -44000.99  | -85443.81  | 39662.72  | 79838.11  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 82  | 2021-06-12 | Saturday        | -213.52             | -45057.34  | -87291.36  | 40039.55  | 80807.59  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 83  | 2021-06-13 | Sunday          | -259.71             | -46125.65  | -89158.76  | 40420.17  | 81786.32  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 84  | 2021-06-14 | Monday          | -309.23             | -47205.92  | -91046.04  | 40804.57  | 82774.34  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 85  | 2021-06-15 | Tuesday         | -361.93             | -48298.17  | -92953.22  | 41192.78  | 83771.70  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 86  | 2021-06-16 | Wednesday       | -417.69             | -49402.40  | -94880.33  | 41584.81  | 84778.42  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 87  | 2021-06-17 | Thursday        | -476.41             | -50518.61  | -96827.39  | 41980.68  | 85794.54  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 88  | 2021-06-18 | Friday          | -537.98             | -51646.80  | -98794.42  | 42380.39  | 86820.10  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 89  | 2021-06-19 | Saturday        | -602.33             | -52786.98  | -100781.46 | 42783.97  | 87855.12  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 90  | 2021-06-20 | Sunday          | -669.37             | -53939.16  | -102788.52 | 43191.43  | 88899.66  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 91  | 2021-06-21 | Monday          | -739.05             | -55103.35  | -104815.63 | 43602.78  | 89953.74  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 92  | 2021-06-22 | Tuesday         | -811.29             | -56279.54  | -106862.81 | 44018.04  | 91017.39  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 93  | 2021-06-23 | Wednesday       | -886.03             | -57467.74  | -108930.10 | 44437.22  | 92090.66  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 94  | 2021-06-24 | Thursday        | -963.23             | -58667.97  | -111017.51 | 44860.34  | 93173.58  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 95  | 2021-06-25 | Friday          | -1042.82            | -59880.22  | -113125.07 | 45287.41  | 94266.18  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 96  | 2021-06-26 | Saturday        | -1124.78            | -61104.51  | -115252.80 | 45718.45  | 95368.50  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 97  | 2021-06-27 | Sunday          | -1209.04            | -62340.84  | -117400.74 | 46153.47  | 96480.58  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 98  | 2021-06-28 | Monday          | -1295.57            | -63589.21  | -119568.90 | 46592.49  | 97602.44  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 99  | 2021-06-29 | Tuesday         | -1384.34            | -64849.64  | -121757.32 | 47035.51  | 98734.13  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 100 | 2021-06-30 | Wednesday       | -1475.30            | -66122.12  | -123966.01 | 47482.57  | 99875.67  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 101 | 2021-07-01 | Thursday        | -1568.42            | -67406.68  | -126195.01 | 47933.66  | 101027.11 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 102 | 2021-07-02 | Friday          | -1663.67            | -68703.31  | -128444.33 | 48388.81  | 102188.47 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 103 | 2021-07-03 | Saturday        | -1761.02            | -70012.02  | -130714.00 | 48848.03  | 103359.80 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 104 | 2021-07-04 | Sunday          | -1860.44            | -71332.83  | -133004.06 | 49311.33  | 104541.13 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 105 | 2021-07-05 | Monday          | -1961.89            | -72665.73  | -135314.52 | 49778.73  | 105732.48 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 106 | 2021-07-06 | Tuesday         | -2065.36            | -74010.74  | -137645.41 | 50250.25  | 106933.90 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 107 | 2021-07-07 | Wednesday       | -2170.82            | -75367.86  | -139996.76 | 50725.90  | 108145.43 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 108 | 2021-07-08 | Thursday        | -2278.24            | -76737.11  | -142368.59 | 51205.69  | 109367.08 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 109 | 2021-07-09 | Friday          | -2387.61            | -78118.48  | -144760.93 | 51689.64  | 110598.91 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 110 | 2021-07-10 | Saturday        | -2498.89            | -79512.00  | -147173.81 | 52177.76  | 111840.93 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 111 | 2021-07-11 | Sunday          | -2612.06            | -80917.66  | -149607.24 | 52670.08  | 113093.20 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 112 | 2021-07-12 | Monday          | -2727.12            | -82335.48  | -152061.26 | 53166.59  | 114355.73 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 113 | 2021-07-13 | Tuesday         | -2844.03            | -83765.46  | -154535.89 | 53667.33  | 115628.57 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 114 | 2021-07-14 | Wednesday       | -2962.77            | -85207.61  | -157031.16 | 54172.30  | 116911.75 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 115 | 2021-07-15 | Thursday        | -3083.34            | -86661.95  | -159547.09 | 54681.52  | 118205.30 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 116 | 2021-07-16 | Friday          | -3205.71            | -88128.48  | -162083.71 | 55195.00  | 119509.25 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 117 | 2021-07-17 | Saturday        | -3329.85            | -89607.20  | -164641.04 | 55712.76  | 120823.64 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 118 | 2021-07-18 | Sunday          | -3455.77            | -91098.14  | -167219.11 | 56234.81  | 122148.51 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 119 | 2021-07-19 | Monday          | -3583.44            | -92601.29  | -169817.96 | 56761.17  | 123483.88 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 120 | 2021-07-20 | Tuesday         | -3712.84            | -94116.67  | -172437.59 | 57291.85  | 124829.80 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 121 | 2021-07-21 | Wednesday       | -3843.96            | -95644.28  | -175078.04 | 57826.87  | 126186.28 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 122 | 2021-07-22 | Thursday        | -3976.78            | -97184.14  | -177739.34 | 58366.24  | 127553.37 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 123 | 2021-07-23 | Friday          | -4111.30            | -98736.25  | -180421.50 | 58909.98  | 128931.10 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 124 | 2021-07-24 | Saturday        | -4247.49            | -100300.62 | -183124.56 | 59458.11  | 130319.51 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 125 | 2021-07-25 | Sunday          | -4385.35            | -101877.27 | -185848.55 | 60010.63  | 131718.61 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 126 | 2021-07-26 | Monday          | -4524.85            | -103466.20 | -188593.48 | 60567.56  | 133128.46 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 127 | 2021-07-27 | Tuesday         | -4666.00            | -105067.42 | -191359.38 | 61128.92  | 134549.08 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 128 | 2021-07-28 | Wednesday       | -4808.77            | -106680.94 | -194146.28 | 61694.72  | 135980.50 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 129 | 2021-07-29 | Thursday        | -4953.15            | -108306.77 | -196954.21 | 62264.97  | 137422.76 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 130 | 2021-07-30 | Friday          | -5099.13            | -109944.93 | -199783.19 | 62839.70  | 138875.88 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+

plot(forecasting_holt)
x1_test <- ts(testing_data, start =(rows-validation_data_days+1) )
lines(x1_test, col='red',lwd=2)

graph3<-autoplot(forecasting_holt,xlab = paste ("Time in", frequency ,y_lab , sep=" "),  ylab=y_lab)
graph3

#Auto arima model
##################
require(tseries) # need to install tseries tj test Stationarity in time series 
paste ("tests For Check Stationarity in series  ==> ",y_lab, sep=" ")

## [1] "tests For Check Stationarity in series  ==>  Covid 19 Infection cases in Russia Federation"

kpss.test(data_series) # applay kpss test

## Warning in kpss.test(data_series): p-value smaller than printed p-value

## 
##  KPSS Test for Level Stationarity
## 
## data:  data_series
## KPSS Level = 5.1452, Truncation lag parameter = 5, p-value = 0.01

pp.test(data_series)   # applay pp test

## 
##  Phillips-Perron Unit Root Test
## 
## data:  data_series
## Dickey-Fuller Z(alpha) = -2.5503, Truncation lag parameter = 5, p-value
## = 0.9528
## alternative hypothesis: stationary

adf.test(data_series)  # applay adf test

## 
##  Augmented Dickey-Fuller Test
## 
## data:  data_series
## Dickey-Fuller = -1.7337, Lag order = 7, p-value = 0.6897
## alternative hypothesis: stationary

ndiffs(data_series)    # Doing first diffrencing on data

## [1] 1

#Taking the first difference
diff1_x1<-diff(data_series)
autoplot(diff1_x1, xlab = paste ("Time in", frequency ,y_lab , sep=" "), ylab=y_lab,main = "1nd differenced series")

##Testing the stationary of the first differenced series
paste ("tests For Check Stationarity in series after taking first differences in  ==> ",y_lab, sep=" ")

## [1] "tests For Check Stationarity in series after taking first differences in  ==>  Covid 19 Infection cases in Russia Federation"

kpss.test(diff1_x1)   # applay kpss test after taking first differences

## Warning in kpss.test(diff1_x1): p-value greater than printed p-value

## 
##  KPSS Test for Level Stationarity
## 
## data:  diff1_x1
## KPSS Level = 0.24927, Truncation lag parameter = 5, p-value = 0.1

pp.test(diff1_x1)     # applay pp test after taking first differences

## Warning in pp.test(diff1_x1): p-value smaller than printed p-value

## 
##  Phillips-Perron Unit Root Test
## 
## data:  diff1_x1
## Dickey-Fuller Z(alpha) = -399.17, Truncation lag parameter = 5, p-value
## = 0.01
## alternative hypothesis: stationary

adf.test(diff1_x1)    # applay adf test after taking first differences

## 
##  Augmented Dickey-Fuller Test
## 
## data:  diff1_x1
## Dickey-Fuller = -3.3279, Lag order = 7, p-value = 0.06638
## alternative hypothesis: stationary

#Taking the second difference
diff2_x1=diff(diff1_x1)
autoplot(diff2_x1, xlab = paste ("Time in", frequency ,y_lab , sep=" "), ylab=y_lab ,main = "2nd differenced series")

##Testing the stationary of the first differenced series
paste ("tests For Check Stationarity in series after taking Second differences in",y_lab, sep=" ")

## [1] "tests For Check Stationarity in series after taking Second differences in Covid 19 Infection cases in Russia Federation"

kpss.test(diff2_x1)   # applay kpss test after taking Second differences

## Warning in kpss.test(diff2_x1): p-value greater than printed p-value

## 
##  KPSS Test for Level Stationarity
## 
## data:  diff2_x1
## KPSS Level = 0.014313, Truncation lag parameter = 5, p-value = 0.1

pp.test(diff2_x1)     # applay pp test after taking Second differences

## Warning in pp.test(diff2_x1): p-value smaller than printed p-value

## 
##  Phillips-Perron Unit Root Test
## 
## data:  diff2_x1
## Dickey-Fuller Z(alpha) = -469.88, Truncation lag parameter = 5, p-value
## = 0.01
## alternative hypothesis: stationary

adf.test(diff2_x1)    # applay adf test after taking Second differences

## Warning in adf.test(diff2_x1): p-value smaller than printed p-value

## 
##  Augmented Dickey-Fuller Test
## 
## data:  diff2_x1
## Dickey-Fuller = -14.825, Lag order = 7, p-value = 0.01
## alternative hypothesis: stationary

####Fitting an ARIMA Model
#1. Using auto arima function
model1 <- auto.arima(data_series,stepwise=FALSE, approximation=FALSE, trace=T, test = c("kpss", "adf", "pp"))  #applaying auto arima

## 
##  ARIMA(0,1,0)                    : 6152.276
##  ARIMA(0,1,0) with drift         : 6151.86
##  ARIMA(0,1,1)                    : 6152.512
##  ARIMA(0,1,1) with drift         : 6151.66
##  ARIMA(0,1,2)                    : 6153.637
##  ARIMA(0,1,2) with drift         : 6152.46
##  ARIMA(0,1,3)                    : 6155.675
##  ARIMA(0,1,3) with drift         : 6154.487
##  ARIMA(0,1,4)                    : 6155.465
##  ARIMA(0,1,4) with drift         : 6154.224
##  ARIMA(0,1,5)                    : 6134.038
##  ARIMA(0,1,5) with drift         : 6133.422
##  ARIMA(1,1,0)                    : 6152.697
##  ARIMA(1,1,0) with drift         : 6151.927
##  ARIMA(1,1,1)                    : 6154.002
##  ARIMA(1,1,1) with drift         : 6152.908
##  ARIMA(1,1,2)                    : 6155.682
##  ARIMA(1,1,2) with drift         : 6154.504
##  ARIMA(1,1,3)                    : Inf
##  ARIMA(1,1,3) with drift         : 6155.738
##  ARIMA(1,1,4)                    : 6113.457
##  ARIMA(1,1,4) with drift         : 6114.044
##  ARIMA(2,1,0)                    : 6153.619
##  ARIMA(2,1,0) with drift         : 6152.504
##  ARIMA(2,1,1)                    : 6155.618
##  ARIMA(2,1,1) with drift         : 6154.417
##  ARIMA(2,1,2)                    : 6157.639
##  ARIMA(2,1,2) with drift         : 6107.602
##  ARIMA(2,1,3)                    : 6149.454
##  ARIMA(2,1,3) with drift         : 6148.358
##  ARIMA(3,1,0)                    : 6155.563
##  ARIMA(3,1,0) with drift         : 6154.324
##  ARIMA(3,1,1)                    : 6156.819
##  ARIMA(3,1,1) with drift         : 6155.572
##  ARIMA(3,1,2)                    : Inf
##  ARIMA(3,1,2) with drift         : 6148.426
##  ARIMA(4,1,0)                    : 6157.313
##  ARIMA(4,1,0) with drift         : 6156.233
##  ARIMA(4,1,1)                    : 6158.375
##  ARIMA(4,1,1) with drift         : 6157.35
##  ARIMA(5,1,0)                    : 6158.284
##  ARIMA(5,1,0) with drift         : 6156.839
## 
## 
## 
##  Best model: ARIMA(2,1,2) with drift

model1 # show the result of autoarima 

## Series: data_series 
## ARIMA(2,1,2) with drift 
## 
## Coefficients:
##          ar1      ar2      ma1     ma2    drift
##       1.3057  -0.8038  -1.5283  0.9349  46.4067
## s.e.  0.0383   0.0430   0.0280  0.0206  22.7134
## 
## sigma^2 estimated as 309236:  log likelihood=-3047.69
## AIC=6107.38   AICc=6107.6   BIC=6131.24

#Make changes in the source of auto arima to run the best model
arima.string <- function (object, padding = FALSE) 
{
  order <- object$arma[c(1, 6, 2, 3, 7, 4, 5)]
  m <- order[7]
  result <- paste("ARIMA(", order[1], ",", order[2], ",", 
                  order[3], ")", sep = "")
  if (m > 1 && sum(order[4:6]) > 0) {
    result <- paste(result, "(", order[4], ",", order[5], 
                    ",", order[6], ")[", m, "]", sep = "")
  }
  if (padding && m > 1 && sum(order[4:6]) == 0) {
    result <- paste(result, "         ", sep = "")
    if (m <= 9) {
      result <- paste(result, " ", sep = "")
    }
    else if (m <= 99) {
      result <- paste(result, "  ", sep = "")
    }
    else {
      result <- paste(result, "   ", sep = "")
    }
  }
  if (!is.null(object$xreg)) {
    if (NCOL(object$xreg) == 1 && is.element("drift", names(object$coef))) {
      result <- paste(result, "with drift        ")
    }
    else {
      result <- paste("Regression with", result, "errors")
    }
  }
  else {
    if (is.element("constant", names(object$coef)) || is.element("intercept", 
                                                                 names(object$coef))) {
      result <- paste(result, "with non-zero mean")
    }
    else if (order[2] == 0 && order[5] == 0) {
      result <- paste(result, "with zero mean    ")
    }
    else {
      result <- paste(result, "                  ")
    }
  }
  if (!padding) {
    result <- gsub("[ ]*$", "", result)
  }
  return(result)
}


bestmodel <- arima.string(model1, padding = TRUE)
bestmodel <- substring(bestmodel,7,11)
bestmodel <- gsub(" ", "", bestmodel)
bestmodel <- gsub(")", "", bestmodel)
bestmodel <- strsplit(bestmodel, ",")[[1]]
bestmodel <- c(strtoi(bestmodel[1]),strtoi(bestmodel[2]),strtoi(bestmodel[3]))
bestmodel

## [1] 2 1 2

strtoi(bestmodel[3])

## [1] 2

#2. Using ACF and PACF Function
#par(mfrow=c(1,2))  # Code for making two plot in one graph 
acf(diff2_x1,xlab = paste ("Time in", frequency ,y_lab , sep=" ") , ylab=y_lab, main=paste("ACF-2nd differenced series ",y_lab, sep=" ",lag.max=20))    # plot ACF "auto correlation function after taking second diffrences

pacf(diff2_x1,xlab = paste ("Time in", frequency ,y_lab , sep=" "), ylab=y_lab,main=paste("PACF-2nd differenced series ",y_lab, sep=" ",lag.max=20))   # plot PACF " Partial auto correlation function after taking second diffrences

library(forecast)   # install library forecast             
x1_model1= arima(data_series, order=c(bestmodel)) # Run Best model of auto arima  for forecasting
x1_model1  # Show result of best model of auto arima 

## 
## Call:
## arima(x = data_series, order = c(bestmodel))
## 
## Coefficients:
##          ar1      ar2      ma1     ma2
##       0.1136  -0.0811  -0.1810  0.0383
## s.e.  1.7896   0.3532   1.7935  0.4468
## 
## sigma^2 estimated as 349706:  log likelihood = -3073.74,  aic = 6157.48

paste ("accuracy of autoarima Model For  ==> ",y_lab, sep=" ")

## [1] "accuracy of autoarima Model For  ==>  Covid 19 Infection cases in Russia Federation"

accuracy(x1_model1)  # aacuracy of best model from auto arima

##                    ME     RMSE      MAE MPE MAPE     MASE         ACF1
## Training set 52.70472 590.6108 350.4488 NaN  Inf 0.998408 -0.008896329

x1_model1$x          # show result of best model from auto arima 

## NULL

checkresiduals(x1_model1,xlab = paste ("Time in", frequency ,y_lab , sep=" "), ylab=y_lab)  # checkresiduals from best model from using auto arima 

## 
##  Ljung-Box test
## 
## data:  Residuals from ARIMA(2,1,2)
## Q* = 73.905, df = 6, p-value = 6.45e-14
## 
## Model df: 4.   Total lags used: 10

paste("Box-Ljung test , Ljung-Box test For Modelling for   ==> ",y_lab, sep=" ")

## [1] "Box-Ljung test , Ljung-Box test For Modelling for   ==>  Covid 19 Infection cases in Russia Federation"

Box.test(x1_model1$residuals^2, lag=20, type="Ljung-Box")   # Do test for resdulas by using Box-Ljung test , Ljung-Box test For Modelling

## 
##  Box-Ljung test
## 
## data:  x1_model1$residuals^2
## X-squared = 332.23, df = 20, p-value < 2.2e-16

library(tseries)
jarque.bera.test(x1_model1$residuals)  # Do test jarque.bera.test 

## 
##  Jarque Bera Test
## 
## data:  x1_model1$residuals
## X-squared = 337.84, df = 2, p-value < 2.2e-16

#Actual Vs Fitted
plot(data_series, col='red',lwd=2, main="Actual vs Fitted Plot", xlab='Time in (days)', ylab=y_lab) # plot actual and Fitted model 
lines(fitted(x1_model1), col='black')

#Test data
x1_test <- ts(testing_data, start =(rows-validation_data_days+1) ) # make testing data in time series and start from rows-6
forecasting_auto_arima <- forecast(x1_model1, h=N_forecasting_days+validation_data_days)
validation_forecast<-head(forecasting_auto_arima$mean,validation_data_days)
MAPE_Per_Day<-round(abs(((testing_data-validation_forecast)/testing_data)*100)  ,3)
paste ("MAPE % For ",validation_data_days,frequency,"by using bats Model for  ==> ",y_lab, sep=" ")

## [1] "MAPE % For  50 days by using bats Model for  ==>  Covid 19 Infection cases in Russia Federation"

MAPE_Mean_All.ARIMA_Model<-round(mean(MAPE_Per_Day),3)
MAPE_Mean_All.ARIMA<-paste(round(mean(MAPE_Per_Day),3),"% MAPE ",validation_data_days,frequency,y_lab,sep=" ")
MAPE_auto_arima<-paste(round(MAPE_Per_Day,3),"%")
MAPE_auto.arima_Model<-paste(MAPE_Per_Day ,"%")
paste (" MAPE that's Error of Forecasting for ",validation_data_days," days in bats Model for  ==> ",y_lab, sep=" ")

## [1] " MAPE that's Error of Forecasting for  50  days in bats Model for  ==>  Covid 19 Infection cases in Russia Federation"

paste(MAPE_Mean_All.ARIMA,"%")

## [1] "56.113 % MAPE  50 days Covid 19 Infection cases in Russia Federation %"

paste ("MAPE that's Error of Forecasting day by day for ",validation_data_days," days in bats Model for  ==> ",y_lab, sep=" ")

## [1] "MAPE that's Error of Forecasting day by day for  50  days in bats Model for  ==>  Covid 19 Infection cases in Russia Federation"

print(ascii(data.frame(date_auto.arima=validation_dates,validation_data_by_name,actual_data=testing_data,forecasting_auto.arima=validation_forecast,MAPE_auto.arima_Model)), type = "rest")

## 
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## |    | date_auto.arima | validation_data_by_name | actual_data | forecasting_auto.arima | MAPE_auto.arima_Model |
## +====+=================+=========================+=============+========================+=======================+
## | 1  | 2021-02-01      | Monday                  | 17648.00    | 18415.79               | 4.351 %               |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 2  | 2021-02-02      | Tuesday                 | 16643.00    | 18451.13               | 10.864 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 3  | 2021-02-03      | Wednesday               | 16474.00    | 18450.54               | 11.998 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 4  | 2021-02-04      | Thursday                | 16714.00    | 18447.60               | 10.372 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 5  | 2021-02-05      | Friday                  | 16688.00    | 18447.32               | 10.542 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 6  | 2021-02-06      | Saturday                | 16627.00    | 18447.52               | 10.949 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 7  | 2021-02-07      | Sunday                  | 16048.00    | 18447.57               | 14.952 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 8  | 2021-02-08      | Monday                  | 15916.00    | 18447.56               | 15.906 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 9  | 2021-02-09      | Tuesday                 | 15019.00    | 18447.55               | 22.828 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 10 | 2021-02-10      | Wednesday               | 14494.00    | 18447.56               | 27.277 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 11 | 2021-02-11      | Thursday                | 15038.00    | 18447.56               | 22.673 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 12 | 2021-02-12      | Friday                  | 15089.00    | 18447.56               | 22.258 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 13 | 2021-02-13      | Saturday                | 14861.00    | 18447.56               | 24.134 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 14 | 2021-02-14      | Sunday                  | 14185.00    | 18447.56               | 30.05 %               |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 15 | 2021-02-15      | Monday                  | 14207.00    | 18447.56               | 29.848 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 16 | 2021-02-16      | Tuesday                 | 13233.00    | 18447.56               | 39.406 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 17 | 2021-02-17      | Wednesday               | 12828.00    | 18447.56               | 43.807 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 18 | 2021-02-18      | Thursday                | 13447.00    | 18447.56               | 37.187 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 19 | 2021-02-19      | Friday                  | 13433.00    | 18447.56               | 37.33 %               |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 20 | 2021-02-20      | Saturday                | 12953.00    | 18447.56               | 42.419 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 21 | 2021-02-21      | Sunday                  | 12742.00    | 18447.56               | 44.778 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 22 | 2021-02-22      | Monday                  | 12604.00    | 18447.56               | 46.363 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 23 | 2021-02-23      | Tuesday                 | 11823.00    | 18447.56               | 56.031 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 24 | 2021-02-24      | Wednesday               | 11749.00    | 18447.56               | 57.014 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 25 | 2021-02-25      | Thursday                | 11198.00    | 18447.56               | 64.74 %               |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 26 | 2021-02-26      | Friday                  | 11086.00    | 18447.56               | 66.404 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 27 | 2021-02-27      | Saturday                | 11534.00    | 18447.56               | 59.941 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 28 | 2021-02-28      | Sunday                  | 11359.00    | 18447.56               | 62.405 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 29 | 2021-03-01      | Monday                  | 11571.00    | 18447.56               | 59.429 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 30 | 2021-03-02      | Tuesday                 | 10565.00    | 18447.56               | 74.61 %               |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 31 | 2021-03-03      | Wednesday               | 10535.00    | 18447.56               | 75.107 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 32 | 2021-03-04      | Thursday                | 11385.00    | 18447.56               | 62.034 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 33 | 2021-03-05      | Friday                  | 11024.00    | 18447.56               | 67.34 %               |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 34 | 2021-03-06      | Saturday                | 11022.00    | 18447.56               | 67.37 %               |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 35 | 2021-03-07      | Sunday                  | 10595.00    | 18447.56               | 74.116 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 36 | 2021-03-08      | Monday                  | 10253.00    | 18447.56               | 79.923 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 37 | 2021-03-09      | Tuesday                 | 9445.00     | 18447.56               | 95.316 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 38 | 2021-03-10      | Wednesday               | 9079.00     | 18447.56               | 103.189 %             |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 39 | 2021-03-11      | Thursday                | 9270.00     | 18447.56               | 99.003 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 40 | 2021-03-12      | Friday                  | 9794.00     | 18447.56               | 88.356 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 41 | 2021-03-13      | Saturday                | 9908.00     | 18447.56               | 86.188 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 42 | 2021-03-14      | Sunday                  | 10083.00    | 18447.56               | 82.957 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 43 | 2021-03-15      | Monday                  | 9437.00     | 18447.56               | 95.481 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 44 | 2021-03-16      | Tuesday                 | 9393.00     | 18447.56               | 96.397 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 45 | 2021-03-17      | Wednesday               | 8998.00     | 18447.56               | 105.018 %             |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 46 | 2021-03-18      | Thursday                | 9803.00     | 18447.56               | 88.183 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 47 | 2021-03-19      | Friday                  | 9699.00     | 18447.56               | 90.201 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 48 | 2021-03-20      | Saturday                | 9632.00     | 18447.56               | 91.524 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 49 | 2021-03-21      | Sunday                  | 9299.00     | 18447.56               | 98.382 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+
## | 50 | 2021-03-22      | Monday                  | 9284.00     | 18447.56               | 98.703 %              |
## +----+-----------------+-------------------------+-------------+------------------------+-----------------------+

print(ascii(data.frame(FD,forecating_date=forecasting_data_by_name,forecasting_by_auto.arima=tail(forecasting_auto_arima$mean,N_forecasting_days),Lower=tail(forecasting_auto_arima$lower,N_forecasting_days),Upper=tail(forecasting_auto_arima$upper,N_forecasting_days))), type = "rest")

## 
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## |     | FD         | forecating_date | forecasting_by_auto.arima | Lower.80. | Lower.95. | Upper.80. | Upper.95. |
## +=====+============+=================+===========================+===========+===========+===========+===========+
## | 1   | 2021-03-23 | Tuesday         | 18447.56                  | 13634.66  | 11086.87  | 23260.45  | 25808.24  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 2   | 2021-03-24 | Wednesday       | 18447.56                  | 13588.04  | 11015.56  | 23307.07  | 25879.55  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 3   | 2021-03-25 | Thursday        | 18447.56                  | 13541.85  | 10944.93  | 23353.26  | 25950.18  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 4   | 2021-03-26 | Friday          | 18447.56                  | 13496.10  | 10874.96  | 23399.01  | 26020.15  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 5   | 2021-03-27 | Saturday        | 18447.56                  | 13450.77  | 10805.63  | 23444.34  | 26089.48  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 6   | 2021-03-28 | Sunday          | 18447.56                  | 13405.84  | 10736.92  | 23489.27  | 26158.19  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 7   | 2021-03-29 | Monday          | 18447.56                  | 13361.32  | 10668.82  | 23533.80  | 26226.29  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 8   | 2021-03-30 | Tuesday         | 18447.56                  | 13317.17  | 10601.31  | 23577.94  | 26293.80  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 9   | 2021-03-31 | Wednesday       | 18447.56                  | 13273.41  | 10534.38  | 23621.70  | 26360.73  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 10  | 2021-04-01 | Thursday        | 18447.56                  | 13230.01  | 10468.01  | 23665.10  | 26427.10  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 11  | 2021-04-02 | Friday          | 18447.56                  | 13186.97  | 10402.18  | 23708.14  | 26492.93  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 12  | 2021-04-03 | Saturday        | 18447.56                  | 13144.28  | 10336.89  | 23750.83  | 26558.22  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 13  | 2021-04-04 | Sunday          | 18447.56                  | 13101.93  | 10272.12  | 23793.18  | 26622.99  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 14  | 2021-04-05 | Monday          | 18447.56                  | 13059.91  | 10207.86  | 23835.20  | 26687.25  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 15  | 2021-04-06 | Tuesday         | 18447.56                  | 13018.22  | 10144.10  | 23876.89  | 26751.01  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 16  | 2021-04-07 | Wednesday       | 18447.56                  | 12976.84  | 10080.82  | 23918.27  | 26814.29  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 17  | 2021-04-08 | Thursday        | 18447.56                  | 12935.78  | 10018.02  | 23959.33  | 26877.09  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 18  | 2021-04-09 | Friday          | 18447.56                  | 12895.02  | 9955.69   | 24000.09  | 26939.43  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 19  | 2021-04-10 | Saturday        | 18447.56                  | 12854.56  | 9893.80   | 24040.55  | 27001.31  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 20  | 2021-04-11 | Sunday          | 18447.56                  | 12814.38  | 9832.36   | 24080.73  | 27062.75  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 21  | 2021-04-12 | Monday          | 18447.56                  | 12774.50  | 9771.36   | 24120.61  | 27123.75  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 22  | 2021-04-13 | Tuesday         | 18447.56                  | 12734.89  | 9710.78   | 24160.22  | 27184.33  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 23  | 2021-04-14 | Wednesday       | 18447.56                  | 12695.55  | 9650.62   | 24199.56  | 27244.49  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 24  | 2021-04-15 | Thursday        | 18447.56                  | 12656.48  | 9590.87   | 24238.63  | 27304.24  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 25  | 2021-04-16 | Friday          | 18447.56                  | 12617.67  | 9531.52   | 24277.44  | 27363.59  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 26  | 2021-04-17 | Saturday        | 18447.56                  | 12579.12  | 9472.56   | 24315.99  | 27422.55  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 27  | 2021-04-18 | Sunday          | 18447.56                  | 12540.82  | 9413.99   | 24354.29  | 27481.12  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 28  | 2021-04-19 | Monday          | 18447.56                  | 12502.77  | 9355.79   | 24392.34  | 27539.32  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 29  | 2021-04-20 | Tuesday         | 18447.56                  | 12464.96  | 9297.96   | 24430.15  | 27597.15  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 30  | 2021-04-21 | Wednesday       | 18447.56                  | 12427.39  | 9240.50   | 24467.73  | 27654.61  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 31  | 2021-04-22 | Thursday        | 18447.56                  | 12390.05  | 9183.39   | 24505.07  | 27711.72  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 32  | 2021-04-23 | Friday          | 18447.56                  | 12352.93  | 9126.64   | 24542.18  | 27768.48  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 33  | 2021-04-24 | Saturday        | 18447.56                  | 12316.05  | 9070.22   | 24579.06  | 27824.89  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 34  | 2021-04-25 | Sunday          | 18447.56                  | 12279.38  | 9014.15   | 24615.73  | 27880.96  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 35  | 2021-04-26 | Monday          | 18447.56                  | 12242.93  | 8958.40   | 24652.18  | 27936.71  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 36  | 2021-04-27 | Tuesday         | 18447.56                  | 12206.69  | 8902.98   | 24688.42  | 27992.13  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 37  | 2021-04-28 | Wednesday       | 18447.56                  | 12170.67  | 8847.88   | 24724.44  | 28047.23  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 38  | 2021-04-29 | Thursday        | 18447.56                  | 12134.85  | 8793.10   | 24760.27  | 28102.01  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 39  | 2021-04-30 | Friday          | 18447.56                  | 12099.23  | 8738.62   | 24795.89  | 28156.49  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 40  | 2021-05-01 | Saturday        | 18447.56                  | 12063.80  | 8684.45   | 24831.31  | 28210.66  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 41  | 2021-05-02 | Sunday          | 18447.56                  | 12028.58  | 8630.58   | 24866.53  | 28264.53  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 42  | 2021-05-03 | Monday          | 18447.56                  | 11993.55  | 8577.00   | 24901.57  | 28318.11  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 43  | 2021-05-04 | Tuesday         | 18447.56                  | 11958.70  | 8523.71   | 24936.41  | 28371.40  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 44  | 2021-05-05 | Wednesday       | 18447.56                  | 11924.04  | 8470.70   | 24971.07  | 28424.41  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 45  | 2021-05-06 | Thursday        | 18447.56                  | 11889.57  | 8417.98   | 25005.54  | 28477.13  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 46  | 2021-05-07 | Friday          | 18447.56                  | 11855.27  | 8365.53   | 25039.84  | 28529.58  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 47  | 2021-05-08 | Saturday        | 18447.56                  | 11821.16  | 8313.35   | 25073.95  | 28581.76  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 48  | 2021-05-09 | Sunday          | 18447.56                  | 11787.21  | 8261.44   | 25107.90  | 28633.67  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 49  | 2021-05-10 | Monday          | 18447.56                  | 11753.44  | 8209.80   | 25141.67  | 28685.32  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 50  | 2021-05-11 | Tuesday         | 18447.56                  | 11719.84  | 8158.41   | 25175.27  | 28736.70  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 51  | 2021-05-12 | Wednesday       | 18447.56                  | 11686.41  | 8107.28   | 25208.70  | 28787.84  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 52  | 2021-05-13 | Thursday        | 18447.56                  | 11653.14  | 8056.39   | 25241.97  | 28838.72  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 53  | 2021-05-14 | Friday          | 18447.56                  | 11620.03  | 8005.76   | 25275.08  | 28889.35  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 54  | 2021-05-15 | Saturday        | 18447.56                  | 11587.09  | 7955.37   | 25308.02  | 28939.74  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 55  | 2021-05-16 | Sunday          | 18447.56                  | 11554.30  | 7905.23   | 25340.81  | 28989.89  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 56  | 2021-05-17 | Monday          | 18447.56                  | 11521.66  | 7855.31   | 25373.45  | 29039.80  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 57  | 2021-05-18 | Tuesday         | 18447.56                  | 11489.18  | 7805.64   | 25405.93  | 29089.47  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 58  | 2021-05-19 | Wednesday       | 18447.56                  | 11456.85  | 7756.19   | 25438.26  | 29138.92  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 59  | 2021-05-20 | Thursday        | 18447.56                  | 11424.67  | 7706.98   | 25470.44  | 29188.14  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 60  | 2021-05-21 | Friday          | 18447.56                  | 11392.63  | 7657.98   | 25502.48  | 29237.13  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 61  | 2021-05-22 | Saturday        | 18447.56                  | 11360.74  | 7609.21   | 25534.37  | 29285.90  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 62  | 2021-05-23 | Sunday          | 18447.56                  | 11328.99  | 7560.66   | 25566.12  | 29334.45  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 63  | 2021-05-24 | Monday          | 18447.56                  | 11297.39  | 7512.32   | 25597.72  | 29382.79  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 64  | 2021-05-25 | Tuesday         | 18447.56                  | 11265.92  | 7464.19   | 25629.19  | 29430.92  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 65  | 2021-05-26 | Wednesday       | 18447.56                  | 11234.59  | 7416.28   | 25660.52  | 29478.83  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 66  | 2021-05-27 | Thursday        | 18447.56                  | 11203.40  | 7368.57   | 25691.71  | 29526.54  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 67  | 2021-05-28 | Friday          | 18447.56                  | 11172.34  | 7321.07   | 25722.78  | 29574.04  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 68  | 2021-05-29 | Saturday        | 18447.56                  | 11141.41  | 7273.77   | 25753.70  | 29621.35  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 69  | 2021-05-30 | Sunday          | 18447.56                  | 11110.61  | 7226.66   | 25784.50  | 29668.45  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 70  | 2021-05-31 | Monday          | 18447.56                  | 11079.94  | 7179.76   | 25815.17  | 29715.35  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 71  | 2021-06-01 | Tuesday         | 18447.56                  | 11049.40  | 7133.05   | 25845.71  | 29762.06  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 72  | 2021-06-02 | Wednesday       | 18447.56                  | 11018.98  | 7086.53   | 25876.13  | 29808.58  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 73  | 2021-06-03 | Thursday        | 18447.56                  | 10988.69  | 7040.20   | 25906.42  | 29854.91  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 74  | 2021-06-04 | Friday          | 18447.56                  | 10958.52  | 6994.06   | 25936.59  | 29901.05  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 75  | 2021-06-05 | Saturday        | 18447.56                  | 10928.47  | 6948.10   | 25966.64  | 29947.01  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 76  | 2021-06-06 | Sunday          | 18447.56                  | 10898.54  | 6902.33   | 25996.57  | 29992.78  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 77  | 2021-06-07 | Monday          | 18447.56                  | 10868.73  | 6856.74   | 26026.38  | 30038.37  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 78  | 2021-06-08 | Tuesday         | 18447.56                  | 10839.03  | 6811.32   | 26056.08  | 30083.79  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 79  | 2021-06-09 | Wednesday       | 18447.56                  | 10809.45  | 6766.08   | 26085.66  | 30129.03  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 80  | 2021-06-10 | Thursday        | 18447.56                  | 10779.99  | 6721.02   | 26115.12  | 30174.09  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 81  | 2021-06-11 | Friday          | 18447.56                  | 10750.64  | 6676.13   | 26144.48  | 30218.98  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 82  | 2021-06-12 | Saturday        | 18447.56                  | 10721.39  | 6631.41   | 26173.72  | 30263.70  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 83  | 2021-06-13 | Sunday          | 18447.56                  | 10692.26  | 6586.86   | 26202.85  | 30308.25  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 84  | 2021-06-14 | Monday          | 18447.56                  | 10663.24  | 6542.48   | 26231.87  | 30352.64  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 85  | 2021-06-15 | Tuesday         | 18447.56                  | 10634.33  | 6498.26   | 26260.78  | 30396.86  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 86  | 2021-06-16 | Wednesday       | 18447.56                  | 10605.52  | 6454.20   | 26289.59  | 30440.91  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 87  | 2021-06-17 | Thursday        | 18447.56                  | 10576.82  | 6410.30   | 26318.29  | 30484.81  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 88  | 2021-06-18 | Friday          | 18447.56                  | 10548.22  | 6366.57   | 26346.89  | 30528.54  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 89  | 2021-06-19 | Saturday        | 18447.56                  | 10519.73  | 6322.99   | 26375.38  | 30572.12  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 90  | 2021-06-20 | Sunday          | 18447.56                  | 10491.34  | 6279.57   | 26403.78  | 30615.54  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 91  | 2021-06-21 | Monday          | 18447.56                  | 10463.04  | 6236.30   | 26432.07  | 30658.81  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 92  | 2021-06-22 | Tuesday         | 18447.56                  | 10434.85  | 6193.18   | 26460.26  | 30701.93  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 93  | 2021-06-23 | Wednesday       | 18447.56                  | 10406.76  | 6150.22   | 26488.35  | 30744.89  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 94  | 2021-06-24 | Thursday        | 18447.56                  | 10378.77  | 6107.41   | 26516.35  | 30787.70  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 95  | 2021-06-25 | Friday          | 18447.56                  | 10350.87  | 6064.74   | 26544.24  | 30830.37  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 96  | 2021-06-26 | Saturday        | 18447.56                  | 10323.07  | 6022.22   | 26572.05  | 30872.89  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 97  | 2021-06-27 | Sunday          | 18447.56                  | 10295.36  | 5979.85   | 26599.75  | 30915.26  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 98  | 2021-06-28 | Monday          | 18447.56                  | 10267.75  | 5937.62   | 26627.37  | 30957.50  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 99  | 2021-06-29 | Tuesday         | 18447.56                  | 10240.22  | 5895.53   | 26654.89  | 30999.58  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 100 | 2021-06-30 | Wednesday       | 18447.56                  | 10212.80  | 5853.58   | 26682.31  | 31041.53  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 101 | 2021-07-01 | Thursday        | 18447.56                  | 10185.46  | 5811.77   | 26709.65  | 31083.34  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 102 | 2021-07-02 | Friday          | 18447.56                  | 10158.21  | 5770.10   | 26736.90  | 31125.01  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 103 | 2021-07-03 | Saturday        | 18447.56                  | 10131.05  | 5728.56   | 26764.06  | 31166.55  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 104 | 2021-07-04 | Sunday          | 18447.56                  | 10103.98  | 5687.16   | 26791.13  | 31207.95  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 105 | 2021-07-05 | Monday          | 18447.56                  | 10077.00  | 5645.90   | 26818.11  | 31249.21  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 106 | 2021-07-06 | Tuesday         | 18447.56                  | 10050.11  | 5604.76   | 26845.01  | 31290.35  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 107 | 2021-07-07 | Wednesday       | 18447.56                  | 10023.30  | 5563.76   | 26871.81  | 31331.35  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 108 | 2021-07-08 | Thursday        | 18447.56                  | 9996.57   | 5522.89   | 26898.54  | 31372.22  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 109 | 2021-07-09 | Friday          | 18447.56                  | 9969.93   | 5482.15   | 26925.18  | 31412.96  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 110 | 2021-07-10 | Saturday        | 18447.56                  | 9943.37   | 5441.53   | 26951.74  | 31453.58  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 111 | 2021-07-11 | Sunday          | 18447.56                  | 9916.90   | 5401.04   | 26978.21  | 31494.07  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 112 | 2021-07-12 | Monday          | 18447.56                  | 9890.51   | 5360.68   | 27004.60  | 31534.43  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 113 | 2021-07-13 | Tuesday         | 18447.56                  | 9864.20   | 5320.44   | 27030.91  | 31574.67  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 114 | 2021-07-14 | Wednesday       | 18447.56                  | 9837.97   | 5280.33   | 27057.14  | 31614.79  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 115 | 2021-07-15 | Thursday        | 18447.56                  | 9811.82   | 5240.33   | 27083.30  | 31654.78  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 116 | 2021-07-16 | Friday          | 18447.56                  | 9785.74   | 5200.46   | 27109.37  | 31694.65  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 117 | 2021-07-17 | Saturday        | 18447.56                  | 9759.75   | 5160.70   | 27135.36  | 31734.41  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 118 | 2021-07-18 | Sunday          | 18447.56                  | 9733.83   | 5121.07   | 27161.28  | 31774.04  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 119 | 2021-07-19 | Monday          | 18447.56                  | 9707.99   | 5081.55   | 27187.12  | 31813.56  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 120 | 2021-07-20 | Tuesday         | 18447.56                  | 9682.23   | 5042.15   | 27212.88  | 31852.96  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 121 | 2021-07-21 | Wednesday       | 18447.56                  | 9656.54   | 5002.86   | 27238.57  | 31892.25  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 122 | 2021-07-22 | Thursday        | 18447.56                  | 9630.93   | 4963.69   | 27264.18  | 31931.42  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 123 | 2021-07-23 | Friday          | 18447.56                  | 9605.39   | 4924.63   | 27289.72  | 31970.48  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 124 | 2021-07-24 | Saturday        | 18447.56                  | 9579.93   | 4885.69   | 27315.19  | 32009.42  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 125 | 2021-07-25 | Sunday          | 18447.56                  | 9554.53   | 4846.85   | 27340.58  | 32048.26  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 126 | 2021-07-26 | Monday          | 18447.56                  | 9529.21   | 4808.13   | 27365.90  | 32086.98  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 127 | 2021-07-27 | Tuesday         | 18447.56                  | 9503.97   | 4769.51   | 27391.15  | 32125.60  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 128 | 2021-07-28 | Wednesday       | 18447.56                  | 9478.79   | 4731.01   | 27416.32  | 32164.10  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 129 | 2021-07-29 | Thursday        | 18447.56                  | 9453.68   | 4692.61   | 27441.43  | 32202.50  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 130 | 2021-07-30 | Friday          | 18447.56                  | 9428.64   | 4654.32   | 27466.47  | 32240.79  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+

plot(forecasting_auto_arima)
x1_test <- ts(testing_data, start =(rows-validation_data_days+1) )
lines(x1_test, col='red',lwd=2)

graph4<-autoplot(forecasting_auto_arima,xlab = paste ("Time in", frequency ,y_lab , sep=" "), ylab=y_lab)
graph4

MAPE_Mean_All.ARIMA

## [1] "56.113 % MAPE  50 days Covid 19 Infection cases in Russia Federation"

# Table for MAPE For counry
best_recommended_model <- min(MAPE_Mean_All_NNAR,MAPE_Mean_All.bats_Model,MAPE_Mean_All.TBATS_Model,MAPE_Mean_All.Holt_Model,MAPE_Mean_All.ARIMA_Model)
paste("System Choose Least Error ==> ( MAPE %) of Forecasting  by using bats model and BATS Model, Holt's Linear Models , and autoarima for  ==> ", y_lab , sep=" ")

## [1] "System Choose Least Error ==> ( MAPE %) of Forecasting  by using bats model and BATS Model, Holt's Linear Models , and autoarima for  ==>  Covid 19 Infection cases in Russia Federation"

best_recommended_model

## [1] 6.966

x1<-if(best_recommended_model >= MAPE_Mean_All.bats_Model) {paste("BATS Model")}
x2<-if(best_recommended_model >= MAPE_Mean_All.TBATS_Model) {paste("TBATS Model")}
x3<-if(best_recommended_model >= MAPE_Mean_All.Holt_Model) {paste("Holt Model")}
x4<-if(best_recommended_model >= MAPE_Mean_All.ARIMA_Model) {paste("ARIMA Model")}
x5<-if(best_recommended_model >= MAPE_Mean_All_NNAR) {paste("NNAR Model")}
panderOptions('table.split.table', Inf)
paste("Forecasting by using BATS Model  ==> ", y_lab , sep=" ")

## [1] "Forecasting by using BATS Model  ==>  Covid 19 Infection cases in Russia Federation"

print(ascii(data.frame(FD,forecating_date=forecasting_data_by_name,forecasting_by_bats=tail(forecasting_bats$mean,N_forecasting_days),lower=tail(forecasting_bats$lower,N_forecasting_days),Upper=tail(forecasting_bats$lower,N_forecasting_days))), type = "rest")

## 
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## |     | FD         | forecating_date | forecasting_by_bats | lower.80. | lower.95. | Upper.80. | Upper.95. |
## +=====+============+=================+=====================+===========+===========+===========+===========+
## | 1   | 2021-03-23 | Tuesday         | 11111.12            | 3992.90   | 224.74    | 3992.90   | 224.74    |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 2   | 2021-03-24 | Wednesday       | 11236.25            | 3979.74   | 138.38    | 3979.74   | 138.38    |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 3   | 2021-03-25 | Thursday        | 11407.90            | 4020.54   | 109.90    | 4020.54   | 109.90    |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 4   | 2021-03-26 | Friday          | 11393.12            | 3879.60   | -97.81    | 3879.60   | -97.81    |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 5   | 2021-03-27 | Saturday        | 11105.58            | 3464.13   | -581.01   | 3464.13   | -581.01   |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 6   | 2021-03-28 | Sunday          | 10668.28            | 2891.66   | -1225.04  | 2891.66   | -1225.04  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 7   | 2021-03-29 | Monday          | 10315.75            | 2396.26   | -1796.06  | 2396.26   | -1796.06  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 8   | 2021-03-30 | Tuesday         | 10213.24            | 2148.24   | -2121.12  | 2148.24   | -2121.12  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 9   | 2021-03-31 | Wednesday       | 10332.40            | 2125.70   | -2218.67  | 2125.70   | -2218.67  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 10  | 2021-04-01 | Thursday        | 10476.69            | 2134.86   | -2281.04  | 2134.86   | -2281.04  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 11  | 2021-04-02 | Friday          | 10434.44            | 1961.24   | -2524.20  | 1961.24   | -2524.20  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 12  | 2021-04-03 | Saturday        | 10140.22            | 1533.54   | -3022.57  | 1533.54   | -3022.57  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 13  | 2021-04-04 | Sunday          | 9721.70             | 974.78    | -3655.56  | 974.78    | -3655.56  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 14  | 2021-04-05 | Monday          | 9398.59             | 504.70    | -4203.44  | 504.70    | -4203.44  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 15  | 2021-04-06 | Tuesday         | 9313.56             | 270.71    | -4516.28  | 270.71    | -4516.28  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 16  | 2021-04-07 | Wednesday       | 9425.16             | 237.06    | -4626.83  | 237.06    | -4626.83  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 17  | 2021-04-08 | Thursday        | 9543.14             | 215.57    | -4722.15  | 215.57    | -4722.15  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 18  | 2021-04-09 | Friday          | 9476.22             | 12.15     | -4997.82  | 12.15     | -4997.82  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 19  | 2021-04-10 | Saturday        | 9177.71             | -425.21   | -5508.70  | -425.21   | -5508.70  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 20  | 2021-04-11 | Sunday          | 8778.15             | -969.93   | -6130.25  | -969.93   | -6130.25  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 21  | 2021-04-12 | Monday          | 8482.34             | -1416.78  | -6657.06  | -1416.78  | -6657.06  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 22  | 2021-04-13 | Tuesday         | 8412.00             | -1639.58  | -6960.56  | -1639.58  | -6960.56  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 23  | 2021-04-14 | Wednesday       | 8514.76             | -1685.73  | -7085.54  | -1685.73  | -7085.54  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 24  | 2021-04-15 | Thursday        | 8607.57             | -1736.73  | -7212.68  | -1736.73  | -7212.68  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 25  | 2021-04-16 | Friday          | 8518.64             | -1967.18  | -7518.04  | -1967.18  | -7518.04  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 26  | 2021-04-17 | Saturday        | 8217.96             | -2411.92  | -8039.04  | -2411.92  | -8039.04  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 27  | 2021-04-18 | Sunday          | 7837.33             | -2942.46  | -8648.93  | -2942.46  | -8648.93  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 28  | 2021-04-19 | Monday          | 7566.71             | -3368.13  | -9156.68  | -3368.13  | -9156.68  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 29  | 2021-04-20 | Tuesday         | 7508.52             | -3582.32  | -9453.45  | -3582.32  | -9453.45  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 30  | 2021-04-21 | Wednesday       | 7601.42             | -3642.04  | -9593.97  | -3642.04  | -9593.97  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 31  | 2021-04-22 | Thursday        | 7670.29             | -3721.31  | -9751.66  | -3721.31  | -9751.66  |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 32  | 2021-04-23 | Friday          | 7561.85             | -3976.17  | -10084.03 | -3976.17  | -10084.03 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 33  | 2021-04-24 | Saturday        | 7260.87             | -4426.24  | -10613.03 | -4426.24  | -10613.03 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 34  | 2021-04-25 | Sunday          | 6898.96             | -4942.65  | -11211.23 | -4942.65  | -11211.23 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 35  | 2021-04-26 | Monday          | 6651.48             | -5349.13  | -11701.86 | -5349.13  | -11701.86 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 36  | 2021-04-27 | Tuesday         | 6603.12             | -5557.03  | -11994.23 | -5557.03  | -11994.23 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 37  | 2021-04-28 | Wednesday       | 6685.34             | -5631.17  | -12151.14 | -5631.17  | -12151.14 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 38  | 2021-04-29 | Thursday        | 6731.56             | -5737.38  | -12338.04 | -5737.38  | -12338.04 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 39  | 2021-04-30 | Friday          | 6605.98             | -6014.17  | -12694.88 | -6014.17  | -12694.88 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 40  | 2021-05-01 | Saturday        | 6306.31             | -6467.80  | -13230.00 | -6467.80  | -13230.00 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 41  | 2021-05-02 | Sunday          | 5962.78             | -6970.28  | -13816.62 | -6970.28  | -13816.62 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 42  | 2021-05-03 | Monday          | 5736.42             | -7359.49  | -14292.04 | -7359.49  | -14292.04 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 43  | 2021-05-04 | Tuesday         | 5695.80             | -7563.21  | -14582.10 | -7563.21  | -14582.10 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 44  | 2021-05-05 | Wednesday       | 5766.74             | -7652.36  | -14756.00 | -7652.36  | -14756.00 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 45  | 2021-05-06 | Thursday        | 5791.64             | -7784.13  | -14970.71 | -7784.13  | -14970.71 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 46  | 2021-05-07 | Friday          | 5651.14             | -8080.52  | -15349.62 | -8080.52  | -15349.62 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 47  | 2021-05-08 | Saturday        | 5354.15             | -8536.16  | -15889.24 | -8536.16  | -15889.24 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 48  | 2021-05-09 | Sunday          | 5028.54             | -9025.04  | -16464.55 | -9025.04  | -16464.55 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 49  | 2021-05-10 | Monday          | 4821.37             | -9398.85  | -16926.57 | -9398.85  | -16926.57 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 50  | 2021-05-11 | Tuesday         | 4786.58             | -9600.27  | -17216.20 | -9600.27  | -17216.20 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 51  | 2021-05-12 | Wednesday       | 4845.83             | -9704.83  | -17407.49 | -9704.83  | -17407.49 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 52  | 2021-05-13 | Thursday        | 4850.77             | -9860.75  | -17648.56 | -9860.75  | -17648.56 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 53  | 2021-05-14 | Friday          | 4697.39             | -10174.57 | -18047.31 | -10174.57 | -18047.31 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 54  | 2021-05-15 | Saturday        | 4404.27             | -10630.90 | -18590.03 | -10630.90 | -18590.03 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 55  | 2021-05-16 | Sunday          | 4095.99             | -11106.63 | -19154.41 | -11106.63 | -19154.41 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 56  | 2021-05-17 | Monday          | 3906.15             | -11466.82 | -19604.78 | -11466.82 | -19604.78 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 57  | 2021-05-18 | Tuesday         | 3875.50             | -11667.62 | -19895.65 | -11667.62 | -19895.65 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 58  | 2021-05-19 | Wednesday       | 3922.82             | -11787.83 | -20104.54 | -11787.83 | -20104.54 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 59  | 2021-05-20 | Thursday        | 3909.16             | -11966.48 | -20370.54 | -11966.48 | -20370.54 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 60  | 2021-05-21 | Friday          | 3744.79             | -12295.72 | -20787.05 | -12295.72 | -20787.05 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 61  | 2021-05-22 | Saturday        | 3456.53             | -12751.60 | -21331.66 | -12751.60 | -21331.66 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 62  | 2021-05-23 | Sunday          | 3164.91             | -13214.72 | -21885.58 | -13214.72 | -21885.58 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 63  | 2021-05-24 | Monday          | 2990.63             | -13563.01 | -22325.98 | -13563.01 | -22325.98 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 64  | 2021-05-25 | Tuesday         | 2962.62             | -13764.66 | -22619.55 | -13764.66 | -22619.55 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 65  | 2021-05-26 | Wednesday       | 2997.89             | -13900.60 | -22846.12 | -13900.60 | -22846.12 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 66  | 2021-05-27 | Thursday        | 2966.98             | -14100.57 | -23135.58 | -14100.57 | -23135.58 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 67  | 2021-05-28 | Friday          | 2793.39             | -14443.36 | -23567.94 | -14443.36 | -23567.94 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 68  | 2021-05-29 | Saturday        | 2510.79             | -14897.86 | -24113.43 | -14897.86 | -24113.43 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 69  | 2021-05-30 | Sunday          | 2235.11             | -15348.99 | -24657.45 | -15348.99 | -24657.45 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 70  | 2021-05-31 | Monday          | 2074.70             | -15686.99 | -25089.46 | -15686.99 | -25089.46 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 71  | 2021-06-01 | Tuesday         | 2047.98             | -15890.81 | -25387.04 | -15890.81 | -25387.04 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 72  | 2021-06-02 | Wednesday       | 2071.24             | -16042.42 | -25631.22 | -16042.42 | -25631.22 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 73  | 2021-06-03 | Thursday        | 2024.42             | -16262.30 | -25942.71 | -16262.30 | -25942.71 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 74  | 2021-06-04 | Friday          | 1843.21             | -16616.93 | -26389.14 | -16616.93 | -26389.14 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 75  | 2021-06-05 | Saturday        | 1566.91             | -17069.28 | -26934.68 | -17069.28 | -26934.68 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 76  | 2021-06-06 | Sunday          | 1306.38             | -17509.11 | -27469.43 | -17509.11 | -27469.43 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 77  | 2021-06-07 | Monday          | 1158.26             | -17838.34 | -27894.54 | -17838.34 | -27894.54 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 78  | 2021-06-08 | Tuesday         | 1131.67             | -18045.47 | -28197.24 | -18045.47 | -28197.24 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 79  | 2021-06-09 | Wednesday       | 1143.04             | -18212.60 | -28458.85 | -18212.60 | -28458.85 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 80  | 2021-06-10 | Thursday        | 1081.61             | -18451.02 | -28790.97 | -18451.02 | -28790.97 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 81  | 2021-06-11 | Friday          | 894.25              | -18815.92 | -29249.86 | -18815.92 | -29249.86 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 82  | 2021-06-12 | Saturday        | 624.75              | -19265.50 | -29794.76 | -19265.50 | -29794.76 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 83  | 2021-06-13 | Sunday          | 378.56              | -19694.75 | -30320.91 | -19694.75 | -30320.91 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 84  | 2021-06-14 | Monday          | 241.24              | -20016.66 | -30740.54 | -20016.66 | -30740.54 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 85  | 2021-06-15 | Tuesday         | 213.75              | -20228.08 | -31049.33 | -20228.08 | -31049.33 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 86  | 2021-06-16 | Wednesday       | 213.47              | -20410.45 | -31328.09 | -20410.45 | -31328.09 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 87  | 2021-06-17 | Thursday        | 138.70              | -20666.08 | -31679.46 | -20666.08 | -31679.46 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 88  | 2021-06-18 | Friday          | -53.50              | -21039.83 | -32149.33 | -21039.83 | -32149.33 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 89  | 2021-06-19 | Saturday        | -315.81             | -21486.16 | -32693.06 | -21486.16 | -32693.06 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 90  | 2021-06-20 | Sunday          | -548.51             | -21905.58 | -33211.33 | -21905.58 | -33211.33 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 91  | 2021-06-21 | Monday          | -676.44             | -22221.51 | -33626.77 | -22221.51 | -33626.77 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 92  | 2021-06-22 | Tuesday         | -705.68             | -22438.06 | -33942.49 | -22438.06 | -33942.49 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 93  | 2021-06-23 | Wednesday       | -717.32             | -22635.34 | -34238.04 | -22635.34 | -34238.04 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 94  | 2021-06-24 | Thursday        | -804.21             | -22906.88 | -34607.33 | -22906.88 | -34607.33 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 95  | 2021-06-25 | Friday          | -1000.04            | -23288.20 | -35086.85 | -23288.20 | -35086.85 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 96  | 2021-06-26 | Saturday        | -1254.91            | -23730.92 | -35629.00 | -23730.92 | -35629.00 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 97  | 2021-06-27 | Sunday          | -1474.99            | -24141.29 | -36140.11 | -24141.29 | -36140.11 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 98  | 2021-06-28 | Monday          | -1594.82            | -24452.48 | -36552.60 | -24452.48 | -36552.60 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 99  | 2021-06-29 | Tuesday         | -1626.56            | -24674.88 | -36875.92 | -24674.88 | -36875.92 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 100 | 2021-06-30 | Wednesday       | -1649.18            | -24886.66 | -37187.83 | -24886.66 | -37187.83 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 101 | 2021-07-01 | Thursday        | -1747.00            | -25172.88 | -37573.78 | -25172.88 | -37573.78 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 102 | 2021-07-02 | Friday          | -1945.40            | -25560.60 | -38061.73 | -25560.60 | -38061.73 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 103 | 2021-07-03 | Saturday        | -2192.68            | -25999.46 | -38602.01 | -25999.46 | -38602.01 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 104 | 2021-07-04 | Sunday          | -2401.01            | -26401.58 | -39106.71 | -26401.58 | -39106.71 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 105 | 2021-07-05 | Monday          | -2513.94            | -26709.19 | -39517.38 | -26709.19 | -39517.38 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 106 | 2021-07-06 | Tuesday         | -2548.80            | -26938.01 | -39848.88 | -26938.01 | -39848.88 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 107 | 2021-07-07 | Wednesday       | -2581.97            | -27163.82 | -40176.66 | -27163.82 | -40176.66 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 108 | 2021-07-08 | Thursday        | -2689.60            | -27463.53 | -40578.05 | -27463.53 | -40578.05 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 109 | 2021-07-09 | Friday          | -2889.61            | -27856.62 | -41073.35 | -27856.62 | -41073.35 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 110 | 2021-07-10 | Saturday        | -3129.25            | -28291.48 | -41611.55 | -28291.48 | -41611.55 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 111 | 2021-07-11 | Sunday          | -3326.67            | -28686.12 | -42110.60 | -28686.12 | -42110.60 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 112 | 2021-07-12 | Monday          | -3433.81            | -28991.21 | -42520.48 | -28991.21 | -42520.48 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 113 | 2021-07-13 | Tuesday         | -3472.29            | -29226.94 | -42860.62 | -29226.94 | -42860.62 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 114 | 2021-07-14 | Wednesday       | -3515.56            | -29466.27 | -43203.75 | -29466.27 | -43203.75 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 115 | 2021-07-15 | Thursday        | -3631.94            | -29778.34 | -43619.41 | -29778.34 | -43619.41 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 116 | 2021-07-16 | Friday          | -3832.72            | -30175.88 | -44121.10 | -30175.88 | -44121.10 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 117 | 2021-07-17 | Saturday        | -4064.73            | -30606.67 | -44657.12 | -30606.67 | -44657.12 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 118 | 2021-07-18 | Sunday          | -4252.10            | -30994.63 | -45151.27 | -30994.63 | -45151.27 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 119 | 2021-07-19 | Monday          | -4354.46            | -31298.16 | -45561.30 | -31298.16 | -45561.30 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 120 | 2021-07-20 | Tuesday         | -4396.97            | -31541.17 | -45910.44 | -31541.17 | -45910.44 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 121 | 2021-07-21 | Wednesday       | -4449.83            | -31793.49 | -46268.35 | -31793.49 | -46268.35 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 122 | 2021-07-22 | Thursday        | -4573.94            | -32116.85 | -46697.19 | -32116.85 | -46697.19 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 123 | 2021-07-23 | Friday          | -4774.76            | -32518.02 | -47204.42 | -32518.02 | -47204.42 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 124 | 2021-07-24 | Saturday        | -4999.23            | -32944.76 | -47738.23 | -32944.76 | -47738.23 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 125 | 2021-07-25 | Sunday          | -5177.37            | -33326.80 | -48228.20 | -33326.80 | -48228.20 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 126 | 2021-07-26 | Monday          | -5275.88            | -33629.67 | -48639.25 | -33629.67 | -48639.25 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 127 | 2021-07-27 | Tuesday         | -5322.73            | -33880.23 | -48997.65 | -33880.23 | -48997.65 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 128 | 2021-07-28 | Wednesday       | -5384.66            | -34144.97 | -49369.76 | -34144.97 | -49369.76 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 129 | 2021-07-29 | Thursday        | -5515.57            | -34478.63 | -49810.75 | -34478.63 | -49810.75 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+
## | 130 | 2021-07-30 | Friday          | -5715.79            | -34882.72 | -50322.76 | -34882.72 | -50322.76 |
## +-----+------------+-----------------+---------------------+-----------+-----------+-----------+-----------+

paste("Forecasting by using TBATS Model  ==> ", y_lab , sep=" ")

## [1] "Forecasting by using TBATS Model  ==>  Covid 19 Infection cases in Russia Federation"

print(ascii(data.frame(FD,forecating_date=forecasting_data_by_name,forecasting_by_TBATS=tail(forecasting_tbats$mean,N_forecasting_days),Lower=tail(forecasting_tbats$lower,N_forecasting_days),Upper=tail(forecasting_tbats$upper,N_forecasting_days))), type = "rest")

## 
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## |     | FD         | forecating_date | forecasting_by_TBATS | Lower.80. | Lower.95. | Upper.80. | Upper.95. |
## +=====+============+=================+======================+===========+===========+===========+===========+
## | 1   | 2021-03-23 | Tuesday         | 7297.49              | 3154.92   | 961.97    | 11440.06  | 13633.01  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 2   | 2021-03-24 | Wednesday       | 7093.15              | 2915.00   | 703.22    | 11271.30  | 13483.08  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 3   | 2021-03-25 | Thursday        | 6832.83              | 2619.44   | 389.00    | 11046.22  | 13276.65  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 4   | 2021-03-26 | Friday          | 6588.40              | 2340.47   | 91.76     | 10836.33  | 13085.05  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 5   | 2021-03-27 | Saturday        | 6429.31              | 2147.45   | -119.24   | 10711.18  | 12977.87  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 6   | 2021-03-28 | Sunday          | 6219.91              | 1904.46   | -380.01   | 10535.37  | 12819.83  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 7   | 2021-03-29 | Monday          | 5981.16              | 1632.50   | -669.54   | 10329.83  | 12631.87  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 8   | 2021-03-30 | Tuesday         | 5776.83              | 1395.21   | -924.28   | 10158.44  | 12477.93  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 9   | 2021-03-31 | Wednesday       | 5516.50              | 1102.21   | -1234.57  | 9930.79   | 12267.57  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 10  | 2021-04-01 | Thursday        | 5272.08              | 825.74    | -1528.01  | 9718.42   | 12072.16  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 11  | 2021-04-02 | Friday          | 5112.99              | 635.14    | -1735.30  | 9590.84   | 11961.27  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 12  | 2021-04-03 | Saturday        | 4903.59              | 394.52    | -1992.44  | 9412.65   | 11799.61  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 13  | 2021-04-04 | Sunday          | 4664.84              | 124.89    | -2278.42  | 9204.79   | 11608.10  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 14  | 2021-04-05 | Monday          | 4460.50              | -110.13   | -2529.67  | 9031.13   | 11450.68  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 15  | 2021-04-06 | Tuesday         | 4200.18              | -400.89   | -2836.55  | 8801.24   | 11236.90  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 16  | 2021-04-07 | Wednesday       | 3955.75              | -675.19   | -3126.66  | 8586.70   | 11038.17  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 17  | 2021-04-08 | Thursday        | 3796.66              | -863.68   | -3330.71  | 8457.00   | 10924.04  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 18  | 2021-04-09 | Friday          | 3587.26              | -1102.21  | -3584.67  | 8276.73   | 10759.19  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 19  | 2021-04-10 | Saturday        | 3348.51              | -1369.81  | -3867.54  | 8066.83   | 10564.56  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 20  | 2021-04-11 | Sunday          | 3144.18              | -1602.82  | -4115.72  | 7891.17   | 10404.07  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 21  | 2021-04-12 | Monday          | 2883.85              | -1891.61  | -4419.58  | 7659.31   | 10187.28  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 22  | 2021-04-13 | Tuesday         | 2639.43              | -2163.99  | -4706.76  | 7442.84   | 9985.61   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 23  | 2021-04-14 | Wednesday       | 2480.34              | -2350.59  | -4907.93  | 7311.27   | 9868.61   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 24  | 2021-04-15 | Thursday        | 2270.94              | -2587.29  | -5159.07  | 7129.16   | 9700.94   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 25  | 2021-04-16 | Friday          | 2032.19              | -2853.07  | -5439.17  | 6917.44   | 9503.54   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 26  | 2021-04-17 | Saturday        | 1827.85              | -3084.29  | -5684.62  | 6739.99   | 9340.32   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 27  | 2021-04-18 | Sunday          | 1567.52              | -3371.32  | -5985.79  | 6506.37   | 9120.84   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 28  | 2021-04-19 | Monday          | 1323.10              | -3641.98  | -6270.34  | 6288.19   | 8916.54   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 29  | 2021-04-20 | Tuesday         | 1164.01              | -3826.91  | -6468.94  | 6154.93   | 8796.97   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 30  | 2021-04-21 | Wednesday       | 954.61               | -4061.95  | -6717.55  | 5971.17   | 8626.77   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 31  | 2021-04-22 | Thursday        | 715.86               | -4326.10  | -6995.15  | 5757.82   | 8426.88   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 32  | 2021-04-23 | Friday          | 511.52               | -4555.72  | -7238.15  | 5578.77   | 8261.20   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 33  | 2021-04-24 | Saturday        | 251.20               | -4841.17  | -7536.90  | 5343.56   | 8039.30   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 34  | 2021-04-25 | Sunday          | 6.78                 | -5110.27  | -7819.08  | 5123.83   | 7832.63   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 35  | 2021-04-26 | Monday          | -152.31              | -5293.68  | -8015.36  | 4989.06   | 7710.73   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 36  | 2021-04-27 | Tuesday         | -361.72              | -5527.22  | -8261.68  | 4803.79   | 7538.25   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 37  | 2021-04-28 | Wednesday       | -600.46              | -5789.90  | -8537.02  | 4588.98   | 7336.10   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 38  | 2021-04-29 | Thursday        | -804.80              | -6018.06  | -8777.79  | 4408.46   | 7168.19   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 39  | 2021-04-30 | Friday          | -1065.13             | -6302.07  | -9074.34  | 4171.82   | 6944.09   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 40  | 2021-05-01 | Saturday        | -1309.55             | -6569.77  | -9354.36  | 3950.67   | 6735.27   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 41  | 2021-05-02 | Sunday          | -1468.64             | -6751.80  | -9548.53  | 3814.52   | 6611.25   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 42  | 2021-05-03 | Monday          | -1678.04             | -6983.97  | -9792.76  | 3627.89   | 6436.68   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 43  | 2021-05-04 | Tuesday         | -1916.79             | -7245.30  | -10066.05 | 3411.73   | 6232.47   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 44  | 2021-05-05 | Wednesday       | -2121.13             | -7472.13  | -10304.78 | 3229.88   | 6062.53   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 45  | 2021-05-06 | Thursday        | -2381.45             | -7754.83  | -10599.32 | 2991.92   | 5836.41   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 46  | 2021-05-07 | Friday          | -2625.87             | -8021.24  | -10877.37 | 2769.49   | 5625.62   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 47  | 2021-05-08 | Saturday        | -2784.96             | -8202.00  | -11069.60 | 2632.07   | 5499.67   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 48  | 2021-05-09 | Sunday          | -2994.37             | -8432.92  | -11311.91 | 2444.19   | 5323.18   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 49  | 2021-05-10 | Monday          | -3233.11             | -8693.02  | -11583.31 | 2226.79   | 5117.09   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 50  | 2021-05-11 | Tuesday         | -3437.45             | -8918.62  | -11820.18 | 2043.72   | 4945.27   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 51  | 2021-05-12 | Wednesday       | -3697.78             | -9200.10  | -12112.86 | 1804.55   | 4717.30   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 52  | 2021-05-13 | Thursday        | -3942.20             | -9465.33  | -12389.09 | 1580.93   | 4504.69   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 53  | 2021-05-14 | Friday          | -4101.29             | -9644.92  | -12579.54 | 1442.34   | 4376.96   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 54  | 2021-05-15 | Saturday        | -4310.69             | -9874.69  | -12820.09 | 1253.30   | 4198.70   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 55  | 2021-05-16 | Sunday          | -4549.44             | -10133.64 | -13089.74 | 1034.77   | 3990.86   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 56  | 2021-05-17 | Monday          | -4753.78             | -10358.12 | -13324.88 | 850.56    | 3817.32   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 57  | 2021-05-18 | Tuesday         | -5014.10             | -10638.48 | -13615.85 | 610.28    | 3587.64   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 58  | 2021-05-19 | Wednesday       | -5258.53             | -10902.61 | -13890.40 | 385.56    | 3373.35   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 59  | 2021-05-20 | Thursday        | -5417.62             | -11081.12 | -14079.19 | 245.89    | 3243.96   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 60  | 2021-05-21 | Friday          | -5627.02             | -11309.82 | -14318.11 | 55.78     | 3064.07   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 61  | 2021-05-22 | Saturday        | -5865.77             | -11567.71 | -14586.14 | -163.82   | 2854.61   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 62  | 2021-05-23 | Sunday          | -6070.10             | -11791.14 | -14819.67 | -349.07   | 2679.47   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 63  | 2021-05-24 | Monday          | -6330.43             | -12070.46 | -15109.06 | -590.39   | 2448.20   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 64  | 2021-05-25 | Tuesday         | -6574.85             | -12333.57 | -15382.05 | -816.14   | 2232.34   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 65  | 2021-05-26 | Wednesday       | -6733.94             | -12511.07 | -15569.30 | -956.81   | 2101.42   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 66  | 2021-05-27 | Thursday        | -6943.34             | -12738.77 | -15806.69 | -1147.91  | 1920.00   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 67  | 2021-05-28 | Friday          | -7182.09             | -12995.69 | -16073.22 | -1368.49  | 1709.04   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 68  | 2021-05-29 | Saturday        | -7386.43             | -13218.13 | -16305.25 | -1554.72  | 1532.39   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 69  | 2021-05-30 | Sunday          | -7646.75             | -13496.49 | -16593.15 | -1797.02  | 1299.64   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 70  | 2021-05-31 | Monday          | -7891.18             | -13758.64 | -16864.68 | -2023.72  | 1082.33   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 71  | 2021-06-01 | Tuesday         | -8050.27             | -13935.20 | -17050.50 | -2165.33  | 949.96    |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 72  | 2021-06-02 | Wednesday       | -8259.67             | -14161.97 | -17286.47 | -2357.36  | 767.13    |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 73  | 2021-06-03 | Thursday        | -8498.42             | -14417.97 | -17551.59 | -2578.87  | 554.75    |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 74  | 2021-06-04 | Friday          | -8702.75             | -14639.50 | -17782.22 | -2766.01  | 376.71    |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 75  | 2021-06-05 | Saturday        | -8963.08             | -14916.95 | -18068.73 | -3009.21  | 142.57    |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 76  | 2021-06-06 | Sunday          | -9207.50             | -15178.20 | -18338.90 | -3236.80  | -76.11    |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 77  | 2021-06-07 | Monday          | -9366.59             | -15353.88 | -18523.37 | -3379.30  | -209.82   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 78  | 2021-06-08 | Tuesday         | -9575.99             | -15579.78 | -18758.00 | -3572.20  | -393.99   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 79  | 2021-06-09 | Wednesday       | -9814.74             | -15834.91 | -19021.80 | -3794.57  | -607.69   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 80  | 2021-06-10 | Thursday        | -10019.08            | -16055.59 | -19251.12 | -3982.57  | -787.04   |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 81  | 2021-06-11 | Friday          | -10279.41            | -16332.18 | -19536.33 | -4226.63  | -1022.49  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 82  | 2021-06-12 | Saturday        | -10523.83            | -16592.60 | -19805.21 | -4455.06  | -1242.45  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 83  | 2021-06-13 | Sunday          | -10682.92            | -16767.45 | -19988.41 | -4598.38  | -1377.42  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 84  | 2021-06-14 | Monday          | -10892.32            | -16992.53 | -20221.79 | -4792.11  | -1562.85  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 85  | 2021-06-15 | Tuesday         | -11131.07            | -17246.85 | -20484.35 | -5015.29  | -1777.79  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 86  | 2021-06-16 | Wednesday       | -11335.41            | -17466.71 | -20712.43 | -5204.10  | -1958.38  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 87  | 2021-06-17 | Thursday        | -11595.73            | -17742.50 | -20996.41 | -5448.96  | -2195.05  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 88  | 2021-06-18 | Friday          | -11840.15            | -18002.13 | -21264.08 | -5678.18  | -2416.22  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 89  | 2021-06-19 | Saturday        | -11999.24            | -18176.21 | -21446.10 | -5822.28  | -2552.39  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 90  | 2021-06-20 | Sunday          | -12208.65            | -18400.51 | -21678.29 | -6016.78  | -2739.00  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 91  | 2021-06-21 | Monday          | -12447.39            | -18654.06 | -21939.67 | -6240.73  | -2955.11  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 92  | 2021-06-22 | Tuesday         | -12651.73            | -18873.16 | -22166.59 | -6430.30  | -3136.87  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 93  | 2021-06-23 | Wednesday       | -12912.06            | -19148.20 | -22449.41 | -6675.92  | -3374.70  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 94  | 2021-06-24 | Thursday        | -13156.48            | -19407.08 | -22715.94 | -6905.88  | -3597.01  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 95  | 2021-06-25 | Friday          | -13315.57            | -19580.42 | -22896.83 | -7050.72  | -3734.31  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 96  | 2021-06-26 | Saturday        | -13524.97            | -19803.99 | -23127.90 | -7245.95  | -3922.04  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 97  | 2021-06-27 | Sunday          | -13763.72            | -20056.81 | -23388.18 | -7470.62  | -4139.26  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 98  | 2021-06-28 | Monday          | -13968.06            | -20275.19 | -23613.99 | -7660.92  | -4322.12  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 99  | 2021-06-29 | Tuesday         | -14228.38            | -20549.51 | -23895.71 | -7907.25  | -4561.05  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 100 | 2021-06-30 | Wednesday       | -14472.80            | -20807.68 | -24161.17 | -8137.93  | -4784.44  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 101 | 2021-07-01 | Thursday        | -14631.89            | -20980.33 | -24340.98 | -8283.46  | -4922.81  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 102 | 2021-07-02 | Friday          | -14841.30            | -21203.21 | -24571.00 | -8479.39  | -5111.59  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 103 | 2021-07-03 | Saturday        | -15080.04            | -21455.34 | -24830.22 | -8704.75  | -5329.87  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 104 | 2021-07-04 | Sunday          | -15284.38            | -21673.04 | -25054.99 | -8895.73  | -5513.77  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 105 | 2021-07-05 | Monday          | -15544.71            | -21946.68 | -25335.67 | -9142.74  | -5753.74  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 106 | 2021-07-06 | Tuesday         | -15789.13            | -22204.18 | -25600.10 | -9374.08  | -5978.16  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 107 | 2021-07-07 | Wednesday       | -15948.22            | -22376.16 | -25778.90 | -9520.28  | -6117.54  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 108 | 2021-07-08 | Thursday        | -16157.62            | -22598.38 | -26007.91 | -9716.86  | -6307.33  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 109 | 2021-07-09 | Friday          | -16396.37            | -22849.86 | -26266.14 | -9942.88  | -6526.60  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 110 | 2021-07-10 | Saturday        | -16600.71            | -23066.91 | -26489.91 | -10134.50 | -6711.50  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 111 | 2021-07-11 | Sunday          | -16861.03            | -23339.90 | -26769.61 | -10382.16 | -6952.46  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 112 | 2021-07-12 | Monday          | -17105.46            | -23596.77 | -27033.06 | -10614.14 | -7177.85  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 113 | 2021-07-13 | Tuesday         | -17264.55            | -23768.12 | -27210.90 | -10760.97 | -7318.19  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 114 | 2021-07-14 | Wednesday       | -17473.95            | -23989.72 | -27438.96 | -10958.18 | -7508.94  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 115 | 2021-07-15 | Thursday        | -17712.70            | -24240.58 | -27696.23 | -11184.81 | -7729.16  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 116 | 2021-07-16 | Friday          | -17917.03            | -24457.01 | -27919.06 | -11377.06 | -7915.00  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 117 | 2021-07-17 | Saturday        | -18177.36            | -24729.38 | -28197.82 | -11625.33 | -8156.90  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 118 | 2021-07-18 | Sunday          | -18421.78            | -24985.64 | -28460.34 | -11857.92 | -8383.22  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 119 | 2021-07-19 | Monday          | -18580.87            | -25156.40 | -28637.27 | -12005.35 | -8524.47  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 120 | 2021-07-20 | Tuesday         | -18790.27            | -25377.40 | -28864.41 | -12203.15 | -8716.13  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 121 | 2021-07-21 | Wednesday       | -19029.02            | -25627.67 | -29120.78 | -12430.37 | -8937.26  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 122 | 2021-07-22 | Thursday        | -19233.36            | -25843.51 | -29342.71 | -12623.21 | -9124.01  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 123 | 2021-07-23 | Friday          | -19493.68            | -26115.30 | -29620.57 | -12872.07 | -9366.80  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 124 | 2021-07-24 | Saturday        | -19738.11            | -26370.98 | -29882.21 | -13105.23 | -9594.00  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 125 | 2021-07-25 | Sunday          | -19897.20            | -26541.16 | -30058.26 | -13253.23 | -9736.13  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 126 | 2021-07-26 | Monday          | -20106.60            | -26761.60 | -30284.54 | -13451.60 | -9928.66  |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 127 | 2021-07-27 | Tuesday         | -20345.35            | -27011.30 | -30540.05 | -13679.39 | -10150.65 |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 128 | 2021-07-28 | Wednesday       | -20549.68            | -27226.58 | -30761.12 | -13872.79 | -10338.25 |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 129 | 2021-07-29 | Thursday        | -20810.01            | -27497.81 | -31038.12 | -14122.21 | -10581.90 |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+
## | 130 | 2021-07-30 | Friday          | -21054.43            | -27752.94 | -31298.92 | -14355.92 | -10809.95 |
## +-----+------------+-----------------+----------------------+-----------+-----------+-----------+-----------+

paste("Forecasting by using Holt's Linear Trend Model  ==> ", y_lab , sep=" ")

## [1] "Forecasting by using Holt's Linear Trend Model  ==>  Covid 19 Infection cases in Russia Federation"

print(ascii(data.frame(FD,forecating_date=forecasting_data_by_name,forecasting_by_holt=tail(forecasting_holt$mean,N_forecasting_days),Lower=tail(forecasting_holt$lower,N_forecasting_days),Upper=tail(forecasting_holt$upper,N_forecasting_days))), type = "rest")

## 
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## |     | FD         | forecating_date | forecasting_by_holt | Lower.80.  | Lower.95.  | Upper.80. | Upper.95. |
## +=====+============+=================+=====================+============+============+===========+===========+
## | 1   | 2021-03-23 | Tuesday         | 7920.73             | 519.99     | -855.98    | 20634.83  | 29058.62  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 2   | 2021-03-24 | Wednesday       | 7748.21             | 376.18     | -1110.05   | 20747.15  | 29404.14  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 3   | 2021-03-25 | Thursday        | 7577.13             | 250.09     | -1389.74   | 20862.54  | 29756.15  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 4   | 2021-03-26 | Friday          | 7407.48             | 143.99     | -1694.11   | 20980.99  | 30114.68  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 5   | 2021-03-27 | Saturday        | 7239.29             | 61.30      | -2022.40   | 21102.50  | 30479.75  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 6   | 2021-03-28 | Sunday          | 7072.55             | 8.58       | -2373.96   | 21227.06  | 30851.38  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 7   | 2021-03-29 | Monday          | 6907.28             | -15.04     | -2748.28   | 21354.67  | 31229.60  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 8   | 2021-03-30 | Tuesday         | 6743.48             | -74.47     | -3144.90   | 21485.34  | 31614.44  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 9   | 2021-03-31 | Wednesday       | 6581.17             | -163.65    | -3563.45   | 21619.06  | 32005.94  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 10  | 2021-04-01 | Thursday        | 6420.35             | -277.35    | -4003.58   | 21755.83  | 32404.11  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 11  | 2021-04-02 | Friday          | 6261.03             | -412.83    | -4465.03   | 21895.65  | 32808.98  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 12  | 2021-04-03 | Saturday        | 6103.22             | -568.32    | -4947.52   | 22038.52  | 33220.59  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 13  | 2021-04-04 | Sunday          | 5946.93             | -742.55    | -5450.86   | 22184.44  | 33638.97  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 14  | 2021-04-05 | Monday          | 5792.17             | -934.56    | -5974.83   | 22333.43  | 34064.14  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 15  | 2021-04-06 | Tuesday         | 5638.96             | -1143.60   | -6519.27   | 22485.47  | 34496.14  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 16  | 2021-04-07 | Wednesday       | 5487.29             | -1369.06   | -7084.02   | 22640.57  | 34935.00  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 17  | 2021-04-08 | Thursday        | 5337.18             | -1610.43   | -7668.95   | 22798.74  | 35380.75  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 18  | 2021-04-09 | Friday          | 5188.65             | -1867.29   | -8273.94   | 22959.97  | 35833.42  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 19  | 2021-04-10 | Saturday        | 5041.70             | -2139.28   | -8898.87   | 23124.28  | 36293.05  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 20  | 2021-04-11 | Sunday          | 4896.34             | -2426.08   | -9543.65   | 23291.66  | 36759.66  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 21  | 2021-04-12 | Monday          | 4752.59             | -2727.41   | -10208.20  | 23462.13  | 37233.29  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 22  | 2021-04-13 | Tuesday         | 4610.46             | -3043.04   | -10892.43  | 23635.68  | 37713.98  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 23  | 2021-04-14 | Wednesday       | 4469.96             | -3372.75   | -11596.28  | 23812.32  | 38201.75  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 24  | 2021-04-15 | Thursday        | 4331.10             | -3716.36   | -12319.68  | 23992.06  | 38696.65  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 25  | 2021-04-16 | Friday          | 4193.89             | -4073.68   | -13062.58  | 24174.90  | 39198.70  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 26  | 2021-04-17 | Saturday        | 4058.35             | -4444.58   | -13824.92  | 24360.86  | 39707.94  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 27  | 2021-04-18 | Sunday          | 3924.50             | -4828.90   | -14606.68  | 24549.93  | 40224.40  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 28  | 2021-04-19 | Monday          | 3792.34             | -5226.54   | -15407.79  | 24742.13  | 40748.12  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 29  | 2021-04-20 | Tuesday         | 3661.89             | -5637.36   | -16228.24  | 24937.46  | 41279.13  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 30  | 2021-04-21 | Wednesday       | 3533.17             | -6061.27   | -17067.98  | 25135.92  | 41817.47  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 31  | 2021-04-22 | Thursday        | 3406.19             | -6498.17   | -17927.00  | 25337.54  | 42363.18  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 32  | 2021-04-23 | Friday          | 3280.96             | -6947.98   | -18805.27  | 25542.31  | 42916.28  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 33  | 2021-04-24 | Saturday        | 3157.51             | -7410.62   | -19702.77  | 25750.24  | 43476.82  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 34  | 2021-04-25 | Sunday          | 3035.85             | -7886.01   | -20619.49  | 25961.35  | 44044.82  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 35  | 2021-04-26 | Monday          | 2916.00             | -8374.08   | -21555.40  | 26175.64  | 44620.33  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 36  | 2021-04-27 | Tuesday         | 2797.97             | -8874.78   | -22510.50  | 26393.12  | 45203.39  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 37  | 2021-04-28 | Wednesday       | 2681.78             | -9388.05   | -23484.78  | 26613.79  | 45794.02  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 38  | 2021-04-29 | Thursday        | 2567.46             | -9913.84   | -24478.24  | 26837.68  | 46392.26  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 39  | 2021-04-30 | Friday          | 2455.02             | -10452.08  | -25490.86  | 27064.79  | 46998.15  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 40  | 2021-05-01 | Saturday        | 2344.49             | -11002.75  | -26522.64  | 27295.12  | 47611.73  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 41  | 2021-05-02 | Sunday          | 2235.89             | -11565.80  | -27573.59  | 27528.70  | 48233.03  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 42  | 2021-05-03 | Monday          | 2129.23             | -12141.19  | -28643.70  | 27765.52  | 48862.09  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 43  | 2021-05-04 | Tuesday         | 2024.55             | -12728.89  | -29732.98  | 28005.61  | 49498.94  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 44  | 2021-05-05 | Wednesday       | 1921.87             | -13328.85  | -30841.43  | 28248.96  | 50143.62  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 45  | 2021-05-06 | Thursday        | 1821.21             | -13941.06  | -31969.05  | 28495.60  | 50796.17  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 46  | 2021-05-07 | Friday          | 1722.60             | -14565.48  | -33115.85  | 28745.53  | 51456.63  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 47  | 2021-05-08 | Saturday        | 1626.07             | -15202.08  | -34281.83  | 28998.77  | 52125.03  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 48  | 2021-05-09 | Sunday          | 1531.65             | -15850.85  | -35467.01  | 29255.32  | 52801.40  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 49  | 2021-05-10 | Monday          | 1439.37             | -16511.76  | -36671.40  | 29515.19  | 53485.79  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 50  | 2021-05-11 | Tuesday         | 1349.27             | -17184.79  | -37895.00  | 29778.41  | 54178.24  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 51  | 2021-05-12 | Wednesday       | 1261.37             | -17869.92  | -39137.82  | 30044.97  | 54878.77  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 52  | 2021-05-13 | Thursday        | 1175.73             | -18567.13  | -40399.88  | 30314.90  | 55587.42  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 53  | 2021-05-14 | Friday          | 1092.36             | -19276.40  | -41681.20  | 30588.20  | 56304.24  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 54  | 2021-05-15 | Saturday        | 1011.33             | -19997.73  | -42981.78  | 30864.89  | 57029.25  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 55  | 2021-05-16 | Sunday          | 932.67              | -20731.10  | -44301.63  | 31144.98  | 57762.51  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 56  | 2021-05-17 | Monday          | 856.43              | -21476.49  | -45640.78  | 31428.47  | 58504.03  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 57  | 2021-05-18 | Tuesday         | 782.66              | -22233.90  | -46999.24  | 31715.39  | 59253.86  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 58  | 2021-05-19 | Wednesday       | 711.42              | -23003.31  | -48377.02  | 32005.75  | 60012.04  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 59  | 2021-05-20 | Thursday        | 642.77              | -23784.71  | -49774.15  | 32299.56  | 60778.60  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 60  | 2021-05-21 | Friday          | 576.77              | -24578.11  | -51190.63  | 32596.83  | 61553.59  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 61  | 2021-05-22 | Saturday        | 513.50              | -25383.48  | -52626.49  | 32897.57  | 62337.03  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 62  | 2021-05-23 | Sunday          | 453.04              | -26200.82  | -54081.75  | 33201.80  | 63128.96  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 63  | 2021-05-24 | Monday          | 395.47              | -27030.13  | -55556.42  | 33509.53  | 63929.42  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 64  | 2021-05-25 | Tuesday         | 340.89              | -27871.40  | -57050.52  | 33820.77  | 64738.45  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 65  | 2021-05-26 | Wednesday       | 289.43              | -28724.63  | -58564.08  | 34135.55  | 65556.08  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 66  | 2021-05-27 | Thursday        | 241.19              | -29589.81  | -60097.11  | 34453.86  | 66382.35  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 67  | 2021-05-28 | Friday          | 196.35              | -30466.94  | -61649.63  | 34775.73  | 67217.30  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 68  | 2021-05-29 | Saturday        | 155.06              | -31356.02  | -63221.67  | 35101.16  | 68060.97  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 69  | 2021-05-30 | Sunday          | 117.56              | -32257.04  | -64813.24  | 35430.17  | 68913.38  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 70  | 2021-05-31 | Monday          | 84.10               | -33170.01  | -66424.37  | 35762.79  | 69774.58  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 71  | 2021-06-01 | Tuesday         | 55.04               | -34094.92  | -68055.07  | 36099.00  | 70644.60  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 72  | 2021-06-02 | Wednesday       | 30.88               | -35031.77  | -69705.38  | 36438.84  | 71523.49  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 73  | 2021-06-03 | Thursday        | 12.40               | -35980.57  | -71375.30  | 36782.32  | 72411.27  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 74  | 2021-06-04 | Friday          | 1.20                | -36941.30  | -73064.87  | 37129.45  | 73307.98  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 75  | 2021-06-05 | Saturday        | -4.53               | -37913.99  | -74774.11  | 37480.24  | 74213.66  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 76  | 2021-06-06 | Sunday          | -18.90              | -38898.61  | -76503.03  | 37834.71  | 75128.34  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 77  | 2021-06-07 | Monday          | -39.73              | -39895.19  | -78251.67  | 38192.87  | 76052.07  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 78  | 2021-06-08 | Tuesday         | -65.88              | -40903.71  | -80020.04  | 38554.74  | 76984.87  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 79  | 2021-06-09 | Wednesday       | -96.71              | -41924.18  | -81808.18  | 38920.33  | 77926.79  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 80  | 2021-06-10 | Thursday        | -131.80             | -42956.61  | -83616.09  | 39289.65  | 78877.86  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 81  | 2021-06-11 | Friday          | -170.81             | -44000.99  | -85443.81  | 39662.72  | 79838.11  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 82  | 2021-06-12 | Saturday        | -213.52             | -45057.34  | -87291.36  | 40039.55  | 80807.59  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 83  | 2021-06-13 | Sunday          | -259.71             | -46125.65  | -89158.76  | 40420.17  | 81786.32  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 84  | 2021-06-14 | Monday          | -309.23             | -47205.92  | -91046.04  | 40804.57  | 82774.34  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 85  | 2021-06-15 | Tuesday         | -361.93             | -48298.17  | -92953.22  | 41192.78  | 83771.70  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 86  | 2021-06-16 | Wednesday       | -417.69             | -49402.40  | -94880.33  | 41584.81  | 84778.42  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 87  | 2021-06-17 | Thursday        | -476.41             | -50518.61  | -96827.39  | 41980.68  | 85794.54  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 88  | 2021-06-18 | Friday          | -537.98             | -51646.80  | -98794.42  | 42380.39  | 86820.10  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 89  | 2021-06-19 | Saturday        | -602.33             | -52786.98  | -100781.46 | 42783.97  | 87855.12  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 90  | 2021-06-20 | Sunday          | -669.37             | -53939.16  | -102788.52 | 43191.43  | 88899.66  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 91  | 2021-06-21 | Monday          | -739.05             | -55103.35  | -104815.63 | 43602.78  | 89953.74  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 92  | 2021-06-22 | Tuesday         | -811.29             | -56279.54  | -106862.81 | 44018.04  | 91017.39  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 93  | 2021-06-23 | Wednesday       | -886.03             | -57467.74  | -108930.10 | 44437.22  | 92090.66  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 94  | 2021-06-24 | Thursday        | -963.23             | -58667.97  | -111017.51 | 44860.34  | 93173.58  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 95  | 2021-06-25 | Friday          | -1042.82            | -59880.22  | -113125.07 | 45287.41  | 94266.18  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 96  | 2021-06-26 | Saturday        | -1124.78            | -61104.51  | -115252.80 | 45718.45  | 95368.50  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 97  | 2021-06-27 | Sunday          | -1209.04            | -62340.84  | -117400.74 | 46153.47  | 96480.58  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 98  | 2021-06-28 | Monday          | -1295.57            | -63589.21  | -119568.90 | 46592.49  | 97602.44  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 99  | 2021-06-29 | Tuesday         | -1384.34            | -64849.64  | -121757.32 | 47035.51  | 98734.13  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 100 | 2021-06-30 | Wednesday       | -1475.30            | -66122.12  | -123966.01 | 47482.57  | 99875.67  |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 101 | 2021-07-01 | Thursday        | -1568.42            | -67406.68  | -126195.01 | 47933.66  | 101027.11 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 102 | 2021-07-02 | Friday          | -1663.67            | -68703.31  | -128444.33 | 48388.81  | 102188.47 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 103 | 2021-07-03 | Saturday        | -1761.02            | -70012.02  | -130714.00 | 48848.03  | 103359.80 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 104 | 2021-07-04 | Sunday          | -1860.44            | -71332.83  | -133004.06 | 49311.33  | 104541.13 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 105 | 2021-07-05 | Monday          | -1961.89            | -72665.73  | -135314.52 | 49778.73  | 105732.48 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 106 | 2021-07-06 | Tuesday         | -2065.36            | -74010.74  | -137645.41 | 50250.25  | 106933.90 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 107 | 2021-07-07 | Wednesday       | -2170.82            | -75367.86  | -139996.76 | 50725.90  | 108145.43 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 108 | 2021-07-08 | Thursday        | -2278.24            | -76737.11  | -142368.59 | 51205.69  | 109367.08 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 109 | 2021-07-09 | Friday          | -2387.61            | -78118.48  | -144760.93 | 51689.64  | 110598.91 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 110 | 2021-07-10 | Saturday        | -2498.89            | -79512.00  | -147173.81 | 52177.76  | 111840.93 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 111 | 2021-07-11 | Sunday          | -2612.06            | -80917.66  | -149607.24 | 52670.08  | 113093.20 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 112 | 2021-07-12 | Monday          | -2727.12            | -82335.48  | -152061.26 | 53166.59  | 114355.73 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 113 | 2021-07-13 | Tuesday         | -2844.03            | -83765.46  | -154535.89 | 53667.33  | 115628.57 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 114 | 2021-07-14 | Wednesday       | -2962.77            | -85207.61  | -157031.16 | 54172.30  | 116911.75 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 115 | 2021-07-15 | Thursday        | -3083.34            | -86661.95  | -159547.09 | 54681.52  | 118205.30 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 116 | 2021-07-16 | Friday          | -3205.71            | -88128.48  | -162083.71 | 55195.00  | 119509.25 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 117 | 2021-07-17 | Saturday        | -3329.85            | -89607.20  | -164641.04 | 55712.76  | 120823.64 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 118 | 2021-07-18 | Sunday          | -3455.77            | -91098.14  | -167219.11 | 56234.81  | 122148.51 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 119 | 2021-07-19 | Monday          | -3583.44            | -92601.29  | -169817.96 | 56761.17  | 123483.88 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 120 | 2021-07-20 | Tuesday         | -3712.84            | -94116.67  | -172437.59 | 57291.85  | 124829.80 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 121 | 2021-07-21 | Wednesday       | -3843.96            | -95644.28  | -175078.04 | 57826.87  | 126186.28 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 122 | 2021-07-22 | Thursday        | -3976.78            | -97184.14  | -177739.34 | 58366.24  | 127553.37 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 123 | 2021-07-23 | Friday          | -4111.30            | -98736.25  | -180421.50 | 58909.98  | 128931.10 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 124 | 2021-07-24 | Saturday        | -4247.49            | -100300.62 | -183124.56 | 59458.11  | 130319.51 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 125 | 2021-07-25 | Sunday          | -4385.35            | -101877.27 | -185848.55 | 60010.63  | 131718.61 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 126 | 2021-07-26 | Monday          | -4524.85            | -103466.20 | -188593.48 | 60567.56  | 133128.46 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 127 | 2021-07-27 | Tuesday         | -4666.00            | -105067.42 | -191359.38 | 61128.92  | 134549.08 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 128 | 2021-07-28 | Wednesday       | -4808.77            | -106680.94 | -194146.28 | 61694.72  | 135980.50 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 129 | 2021-07-29 | Thursday        | -4953.15            | -108306.77 | -196954.21 | 62264.97  | 137422.76 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+
## | 130 | 2021-07-30 | Friday          | -5099.13            | -109944.93 | -199783.19 | 62839.70  | 138875.88 |
## +-----+------------+-----------------+---------------------+------------+------------+-----------+-----------+

paste("Forecasting by using ARIMA Model  ==> ", y_lab , sep=" ")

## [1] "Forecasting by using ARIMA Model  ==>  Covid 19 Infection cases in Russia Federation"

print(ascii(data.frame(FD,forecating_date=forecasting_data_by_name,forecasting_by_auto.arima=tail(forecasting_auto_arima$mean,N_forecasting_days),Lower=tail(forecasting_auto_arima$lower,N_forecasting_days),Upper=tail(forecasting_auto_arima$upper,N_forecasting_days))), type = "rest")

## 
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## |     | FD         | forecating_date | forecasting_by_auto.arima | Lower.80. | Lower.95. | Upper.80. | Upper.95. |
## +=====+============+=================+===========================+===========+===========+===========+===========+
## | 1   | 2021-03-23 | Tuesday         | 18447.56                  | 13634.66  | 11086.87  | 23260.45  | 25808.24  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 2   | 2021-03-24 | Wednesday       | 18447.56                  | 13588.04  | 11015.56  | 23307.07  | 25879.55  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 3   | 2021-03-25 | Thursday        | 18447.56                  | 13541.85  | 10944.93  | 23353.26  | 25950.18  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 4   | 2021-03-26 | Friday          | 18447.56                  | 13496.10  | 10874.96  | 23399.01  | 26020.15  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 5   | 2021-03-27 | Saturday        | 18447.56                  | 13450.77  | 10805.63  | 23444.34  | 26089.48  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 6   | 2021-03-28 | Sunday          | 18447.56                  | 13405.84  | 10736.92  | 23489.27  | 26158.19  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 7   | 2021-03-29 | Monday          | 18447.56                  | 13361.32  | 10668.82  | 23533.80  | 26226.29  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 8   | 2021-03-30 | Tuesday         | 18447.56                  | 13317.17  | 10601.31  | 23577.94  | 26293.80  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 9   | 2021-03-31 | Wednesday       | 18447.56                  | 13273.41  | 10534.38  | 23621.70  | 26360.73  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 10  | 2021-04-01 | Thursday        | 18447.56                  | 13230.01  | 10468.01  | 23665.10  | 26427.10  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 11  | 2021-04-02 | Friday          | 18447.56                  | 13186.97  | 10402.18  | 23708.14  | 26492.93  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 12  | 2021-04-03 | Saturday        | 18447.56                  | 13144.28  | 10336.89  | 23750.83  | 26558.22  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 13  | 2021-04-04 | Sunday          | 18447.56                  | 13101.93  | 10272.12  | 23793.18  | 26622.99  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 14  | 2021-04-05 | Monday          | 18447.56                  | 13059.91  | 10207.86  | 23835.20  | 26687.25  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 15  | 2021-04-06 | Tuesday         | 18447.56                  | 13018.22  | 10144.10  | 23876.89  | 26751.01  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 16  | 2021-04-07 | Wednesday       | 18447.56                  | 12976.84  | 10080.82  | 23918.27  | 26814.29  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 17  | 2021-04-08 | Thursday        | 18447.56                  | 12935.78  | 10018.02  | 23959.33  | 26877.09  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 18  | 2021-04-09 | Friday          | 18447.56                  | 12895.02  | 9955.69   | 24000.09  | 26939.43  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 19  | 2021-04-10 | Saturday        | 18447.56                  | 12854.56  | 9893.80   | 24040.55  | 27001.31  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 20  | 2021-04-11 | Sunday          | 18447.56                  | 12814.38  | 9832.36   | 24080.73  | 27062.75  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 21  | 2021-04-12 | Monday          | 18447.56                  | 12774.50  | 9771.36   | 24120.61  | 27123.75  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 22  | 2021-04-13 | Tuesday         | 18447.56                  | 12734.89  | 9710.78   | 24160.22  | 27184.33  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 23  | 2021-04-14 | Wednesday       | 18447.56                  | 12695.55  | 9650.62   | 24199.56  | 27244.49  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 24  | 2021-04-15 | Thursday        | 18447.56                  | 12656.48  | 9590.87   | 24238.63  | 27304.24  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 25  | 2021-04-16 | Friday          | 18447.56                  | 12617.67  | 9531.52   | 24277.44  | 27363.59  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 26  | 2021-04-17 | Saturday        | 18447.56                  | 12579.12  | 9472.56   | 24315.99  | 27422.55  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 27  | 2021-04-18 | Sunday          | 18447.56                  | 12540.82  | 9413.99   | 24354.29  | 27481.12  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 28  | 2021-04-19 | Monday          | 18447.56                  | 12502.77  | 9355.79   | 24392.34  | 27539.32  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 29  | 2021-04-20 | Tuesday         | 18447.56                  | 12464.96  | 9297.96   | 24430.15  | 27597.15  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 30  | 2021-04-21 | Wednesday       | 18447.56                  | 12427.39  | 9240.50   | 24467.73  | 27654.61  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 31  | 2021-04-22 | Thursday        | 18447.56                  | 12390.05  | 9183.39   | 24505.07  | 27711.72  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 32  | 2021-04-23 | Friday          | 18447.56                  | 12352.93  | 9126.64   | 24542.18  | 27768.48  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 33  | 2021-04-24 | Saturday        | 18447.56                  | 12316.05  | 9070.22   | 24579.06  | 27824.89  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 34  | 2021-04-25 | Sunday          | 18447.56                  | 12279.38  | 9014.15   | 24615.73  | 27880.96  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 35  | 2021-04-26 | Monday          | 18447.56                  | 12242.93  | 8958.40   | 24652.18  | 27936.71  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 36  | 2021-04-27 | Tuesday         | 18447.56                  | 12206.69  | 8902.98   | 24688.42  | 27992.13  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 37  | 2021-04-28 | Wednesday       | 18447.56                  | 12170.67  | 8847.88   | 24724.44  | 28047.23  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 38  | 2021-04-29 | Thursday        | 18447.56                  | 12134.85  | 8793.10   | 24760.27  | 28102.01  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 39  | 2021-04-30 | Friday          | 18447.56                  | 12099.23  | 8738.62   | 24795.89  | 28156.49  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 40  | 2021-05-01 | Saturday        | 18447.56                  | 12063.80  | 8684.45   | 24831.31  | 28210.66  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 41  | 2021-05-02 | Sunday          | 18447.56                  | 12028.58  | 8630.58   | 24866.53  | 28264.53  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 42  | 2021-05-03 | Monday          | 18447.56                  | 11993.55  | 8577.00   | 24901.57  | 28318.11  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 43  | 2021-05-04 | Tuesday         | 18447.56                  | 11958.70  | 8523.71   | 24936.41  | 28371.40  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 44  | 2021-05-05 | Wednesday       | 18447.56                  | 11924.04  | 8470.70   | 24971.07  | 28424.41  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 45  | 2021-05-06 | Thursday        | 18447.56                  | 11889.57  | 8417.98   | 25005.54  | 28477.13  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 46  | 2021-05-07 | Friday          | 18447.56                  | 11855.27  | 8365.53   | 25039.84  | 28529.58  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 47  | 2021-05-08 | Saturday        | 18447.56                  | 11821.16  | 8313.35   | 25073.95  | 28581.76  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 48  | 2021-05-09 | Sunday          | 18447.56                  | 11787.21  | 8261.44   | 25107.90  | 28633.67  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 49  | 2021-05-10 | Monday          | 18447.56                  | 11753.44  | 8209.80   | 25141.67  | 28685.32  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 50  | 2021-05-11 | Tuesday         | 18447.56                  | 11719.84  | 8158.41   | 25175.27  | 28736.70  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 51  | 2021-05-12 | Wednesday       | 18447.56                  | 11686.41  | 8107.28   | 25208.70  | 28787.84  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 52  | 2021-05-13 | Thursday        | 18447.56                  | 11653.14  | 8056.39   | 25241.97  | 28838.72  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 53  | 2021-05-14 | Friday          | 18447.56                  | 11620.03  | 8005.76   | 25275.08  | 28889.35  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 54  | 2021-05-15 | Saturday        | 18447.56                  | 11587.09  | 7955.37   | 25308.02  | 28939.74  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 55  | 2021-05-16 | Sunday          | 18447.56                  | 11554.30  | 7905.23   | 25340.81  | 28989.89  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 56  | 2021-05-17 | Monday          | 18447.56                  | 11521.66  | 7855.31   | 25373.45  | 29039.80  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 57  | 2021-05-18 | Tuesday         | 18447.56                  | 11489.18  | 7805.64   | 25405.93  | 29089.47  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 58  | 2021-05-19 | Wednesday       | 18447.56                  | 11456.85  | 7756.19   | 25438.26  | 29138.92  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 59  | 2021-05-20 | Thursday        | 18447.56                  | 11424.67  | 7706.98   | 25470.44  | 29188.14  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 60  | 2021-05-21 | Friday          | 18447.56                  | 11392.63  | 7657.98   | 25502.48  | 29237.13  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 61  | 2021-05-22 | Saturday        | 18447.56                  | 11360.74  | 7609.21   | 25534.37  | 29285.90  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 62  | 2021-05-23 | Sunday          | 18447.56                  | 11328.99  | 7560.66   | 25566.12  | 29334.45  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 63  | 2021-05-24 | Monday          | 18447.56                  | 11297.39  | 7512.32   | 25597.72  | 29382.79  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 64  | 2021-05-25 | Tuesday         | 18447.56                  | 11265.92  | 7464.19   | 25629.19  | 29430.92  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 65  | 2021-05-26 | Wednesday       | 18447.56                  | 11234.59  | 7416.28   | 25660.52  | 29478.83  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 66  | 2021-05-27 | Thursday        | 18447.56                  | 11203.40  | 7368.57   | 25691.71  | 29526.54  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 67  | 2021-05-28 | Friday          | 18447.56                  | 11172.34  | 7321.07   | 25722.78  | 29574.04  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 68  | 2021-05-29 | Saturday        | 18447.56                  | 11141.41  | 7273.77   | 25753.70  | 29621.35  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 69  | 2021-05-30 | Sunday          | 18447.56                  | 11110.61  | 7226.66   | 25784.50  | 29668.45  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 70  | 2021-05-31 | Monday          | 18447.56                  | 11079.94  | 7179.76   | 25815.17  | 29715.35  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 71  | 2021-06-01 | Tuesday         | 18447.56                  | 11049.40  | 7133.05   | 25845.71  | 29762.06  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 72  | 2021-06-02 | Wednesday       | 18447.56                  | 11018.98  | 7086.53   | 25876.13  | 29808.58  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 73  | 2021-06-03 | Thursday        | 18447.56                  | 10988.69  | 7040.20   | 25906.42  | 29854.91  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 74  | 2021-06-04 | Friday          | 18447.56                  | 10958.52  | 6994.06   | 25936.59  | 29901.05  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 75  | 2021-06-05 | Saturday        | 18447.56                  | 10928.47  | 6948.10   | 25966.64  | 29947.01  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 76  | 2021-06-06 | Sunday          | 18447.56                  | 10898.54  | 6902.33   | 25996.57  | 29992.78  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 77  | 2021-06-07 | Monday          | 18447.56                  | 10868.73  | 6856.74   | 26026.38  | 30038.37  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 78  | 2021-06-08 | Tuesday         | 18447.56                  | 10839.03  | 6811.32   | 26056.08  | 30083.79  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 79  | 2021-06-09 | Wednesday       | 18447.56                  | 10809.45  | 6766.08   | 26085.66  | 30129.03  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 80  | 2021-06-10 | Thursday        | 18447.56                  | 10779.99  | 6721.02   | 26115.12  | 30174.09  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 81  | 2021-06-11 | Friday          | 18447.56                  | 10750.64  | 6676.13   | 26144.48  | 30218.98  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 82  | 2021-06-12 | Saturday        | 18447.56                  | 10721.39  | 6631.41   | 26173.72  | 30263.70  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 83  | 2021-06-13 | Sunday          | 18447.56                  | 10692.26  | 6586.86   | 26202.85  | 30308.25  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 84  | 2021-06-14 | Monday          | 18447.56                  | 10663.24  | 6542.48   | 26231.87  | 30352.64  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 85  | 2021-06-15 | Tuesday         | 18447.56                  | 10634.33  | 6498.26   | 26260.78  | 30396.86  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 86  | 2021-06-16 | Wednesday       | 18447.56                  | 10605.52  | 6454.20   | 26289.59  | 30440.91  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 87  | 2021-06-17 | Thursday        | 18447.56                  | 10576.82  | 6410.30   | 26318.29  | 30484.81  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 88  | 2021-06-18 | Friday          | 18447.56                  | 10548.22  | 6366.57   | 26346.89  | 30528.54  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 89  | 2021-06-19 | Saturday        | 18447.56                  | 10519.73  | 6322.99   | 26375.38  | 30572.12  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 90  | 2021-06-20 | Sunday          | 18447.56                  | 10491.34  | 6279.57   | 26403.78  | 30615.54  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 91  | 2021-06-21 | Monday          | 18447.56                  | 10463.04  | 6236.30   | 26432.07  | 30658.81  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 92  | 2021-06-22 | Tuesday         | 18447.56                  | 10434.85  | 6193.18   | 26460.26  | 30701.93  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 93  | 2021-06-23 | Wednesday       | 18447.56                  | 10406.76  | 6150.22   | 26488.35  | 30744.89  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 94  | 2021-06-24 | Thursday        | 18447.56                  | 10378.77  | 6107.41   | 26516.35  | 30787.70  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 95  | 2021-06-25 | Friday          | 18447.56                  | 10350.87  | 6064.74   | 26544.24  | 30830.37  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 96  | 2021-06-26 | Saturday        | 18447.56                  | 10323.07  | 6022.22   | 26572.05  | 30872.89  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 97  | 2021-06-27 | Sunday          | 18447.56                  | 10295.36  | 5979.85   | 26599.75  | 30915.26  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 98  | 2021-06-28 | Monday          | 18447.56                  | 10267.75  | 5937.62   | 26627.37  | 30957.50  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 99  | 2021-06-29 | Tuesday         | 18447.56                  | 10240.22  | 5895.53   | 26654.89  | 30999.58  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 100 | 2021-06-30 | Wednesday       | 18447.56                  | 10212.80  | 5853.58   | 26682.31  | 31041.53  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 101 | 2021-07-01 | Thursday        | 18447.56                  | 10185.46  | 5811.77   | 26709.65  | 31083.34  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 102 | 2021-07-02 | Friday          | 18447.56                  | 10158.21  | 5770.10   | 26736.90  | 31125.01  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 103 | 2021-07-03 | Saturday        | 18447.56                  | 10131.05  | 5728.56   | 26764.06  | 31166.55  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 104 | 2021-07-04 | Sunday          | 18447.56                  | 10103.98  | 5687.16   | 26791.13  | 31207.95  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 105 | 2021-07-05 | Monday          | 18447.56                  | 10077.00  | 5645.90   | 26818.11  | 31249.21  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 106 | 2021-07-06 | Tuesday         | 18447.56                  | 10050.11  | 5604.76   | 26845.01  | 31290.35  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 107 | 2021-07-07 | Wednesday       | 18447.56                  | 10023.30  | 5563.76   | 26871.81  | 31331.35  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 108 | 2021-07-08 | Thursday        | 18447.56                  | 9996.57   | 5522.89   | 26898.54  | 31372.22  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 109 | 2021-07-09 | Friday          | 18447.56                  | 9969.93   | 5482.15   | 26925.18  | 31412.96  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 110 | 2021-07-10 | Saturday        | 18447.56                  | 9943.37   | 5441.53   | 26951.74  | 31453.58  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 111 | 2021-07-11 | Sunday          | 18447.56                  | 9916.90   | 5401.04   | 26978.21  | 31494.07  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 112 | 2021-07-12 | Monday          | 18447.56                  | 9890.51   | 5360.68   | 27004.60  | 31534.43  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 113 | 2021-07-13 | Tuesday         | 18447.56                  | 9864.20   | 5320.44   | 27030.91  | 31574.67  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 114 | 2021-07-14 | Wednesday       | 18447.56                  | 9837.97   | 5280.33   | 27057.14  | 31614.79  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 115 | 2021-07-15 | Thursday        | 18447.56                  | 9811.82   | 5240.33   | 27083.30  | 31654.78  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 116 | 2021-07-16 | Friday          | 18447.56                  | 9785.74   | 5200.46   | 27109.37  | 31694.65  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 117 | 2021-07-17 | Saturday        | 18447.56                  | 9759.75   | 5160.70   | 27135.36  | 31734.41  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 118 | 2021-07-18 | Sunday          | 18447.56                  | 9733.83   | 5121.07   | 27161.28  | 31774.04  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 119 | 2021-07-19 | Monday          | 18447.56                  | 9707.99   | 5081.55   | 27187.12  | 31813.56  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 120 | 2021-07-20 | Tuesday         | 18447.56                  | 9682.23   | 5042.15   | 27212.88  | 31852.96  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 121 | 2021-07-21 | Wednesday       | 18447.56                  | 9656.54   | 5002.86   | 27238.57  | 31892.25  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 122 | 2021-07-22 | Thursday        | 18447.56                  | 9630.93   | 4963.69   | 27264.18  | 31931.42  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 123 | 2021-07-23 | Friday          | 18447.56                  | 9605.39   | 4924.63   | 27289.72  | 31970.48  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 124 | 2021-07-24 | Saturday        | 18447.56                  | 9579.93   | 4885.69   | 27315.19  | 32009.42  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 125 | 2021-07-25 | Sunday          | 18447.56                  | 9554.53   | 4846.85   | 27340.58  | 32048.26  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 126 | 2021-07-26 | Monday          | 18447.56                  | 9529.21   | 4808.13   | 27365.90  | 32086.98  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 127 | 2021-07-27 | Tuesday         | 18447.56                  | 9503.97   | 4769.51   | 27391.15  | 32125.60  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 128 | 2021-07-28 | Wednesday       | 18447.56                  | 9478.79   | 4731.01   | 27416.32  | 32164.10  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 129 | 2021-07-29 | Thursday        | 18447.56                  | 9453.68   | 4692.61   | 27441.43  | 32202.50  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+
## | 130 | 2021-07-30 | Friday          | 18447.56                  | 9428.64   | 4654.32   | 27466.47  | 32240.79  |
## +-----+------------+-----------------+---------------------------+-----------+-----------+-----------+-----------+

paste("Forecasting by using NNAR Model  ==> ", y_lab , sep=" ")

## [1] "Forecasting by using NNAR Model  ==>  Covid 19 Infection cases in Russia Federation"

print(ascii(data.frame(FD,forecating_date=forecasting_data_by_name,forecasting_by_NNAR=tail(forecasting_NNAR$mean,N_forecasting_days))), type = "rest")

## 
## +-----+------------+-----------------+---------------------+
## |     | FD         | forecating_date | forecasting_by_NNAR |
## +=====+============+=================+=====================+
## | 1   | 2021-03-23 | Tuesday         | 7785.45             |
## +-----+------------+-----------------+---------------------+
## | 2   | 2021-03-24 | Wednesday       | 7690.64             |
## +-----+------------+-----------------+---------------------+
## | 3   | 2021-03-25 | Thursday        | 7604.73             |
## +-----+------------+-----------------+---------------------+
## | 4   | 2021-03-26 | Friday          | 7527.05             |
## +-----+------------+-----------------+---------------------+
## | 5   | 2021-03-27 | Saturday        | 7456.86             |
## +-----+------------+-----------------+---------------------+
## | 6   | 2021-03-28 | Sunday          | 7393.61             |
## +-----+------------+-----------------+---------------------+
## | 7   | 2021-03-29 | Monday          | 7336.95             |
## +-----+------------+-----------------+---------------------+
## | 8   | 2021-03-30 | Tuesday         | 7286.71             |
## +-----+------------+-----------------+---------------------+
## | 9   | 2021-03-31 | Wednesday       | 7242.80             |
## +-----+------------+-----------------+---------------------+
## | 10  | 2021-04-01 | Thursday        | 7205.12             |
## +-----+------------+-----------------+---------------------+
## | 11  | 2021-04-02 | Friday          | 7173.55             |
## +-----+------------+-----------------+---------------------+
## | 12  | 2021-04-03 | Saturday        | 7147.98             |
## +-----+------------+-----------------+---------------------+
## | 13  | 2021-04-04 | Sunday          | 7128.37             |
## +-----+------------+-----------------+---------------------+
## | 14  | 2021-04-05 | Monday          | 7114.84             |
## +-----+------------+-----------------+---------------------+
## | 15  | 2021-04-06 | Tuesday         | 7107.59             |
## +-----+------------+-----------------+---------------------+
## | 16  | 2021-04-07 | Wednesday       | 7106.98             |
## +-----+------------+-----------------+---------------------+
## | 17  | 2021-04-08 | Thursday        | 7113.47             |
## +-----+------------+-----------------+---------------------+
## | 18  | 2021-04-09 | Friday          | 7127.62             |
## +-----+------------+-----------------+---------------------+
## | 19  | 2021-04-10 | Saturday        | 7150.17             |
## +-----+------------+-----------------+---------------------+
## | 20  | 2021-04-11 | Sunday          | 7182.08             |
## +-----+------------+-----------------+---------------------+
## | 21  | 2021-04-12 | Monday          | 7224.60             |
## +-----+------------+-----------------+---------------------+
## | 22  | 2021-04-13 | Tuesday         | 7279.38             |
## +-----+------------+-----------------+---------------------+
## | 23  | 2021-04-14 | Wednesday       | 7348.54             |
## +-----+------------+-----------------+---------------------+
## | 24  | 2021-04-15 | Thursday        | 7434.78             |
## +-----+------------+-----------------+---------------------+
## | 25  | 2021-04-16 | Friday          | 7541.60             |
## +-----+------------+-----------------+---------------------+
## | 26  | 2021-04-17 | Saturday        | 7673.45             |
## +-----+------------+-----------------+---------------------+
## | 27  | 2021-04-18 | Sunday          | 7835.95             |
## +-----+------------+-----------------+---------------------+
## | 28  | 2021-04-19 | Monday          | 8036.00             |
## +-----+------------+-----------------+---------------------+
## | 29  | 2021-04-20 | Tuesday         | 8281.57             |
## +-----+------------+-----------------+---------------------+
## | 30  | 2021-04-21 | Wednesday       | 8580.64             |
## +-----+------------+-----------------+---------------------+
## | 31  | 2021-04-22 | Thursday        | 8938.56             |
## +-----+------------+-----------------+---------------------+
## | 32  | 2021-04-23 | Friday          | 9352.86             |
## +-----+------------+-----------------+---------------------+
## | 33  | 2021-04-24 | Saturday        | 9806.25             |
## +-----+------------+-----------------+---------------------+
## | 34  | 2021-04-25 | Sunday          | 10263.52            |
## +-----+------------+-----------------+---------------------+
## | 35  | 2021-04-26 | Monday          | 10683.34            |
## +-----+------------+-----------------+---------------------+
## | 36  | 2021-04-27 | Tuesday         | 11045.13            |
## +-----+------------+-----------------+---------------------+
## | 37  | 2021-04-28 | Wednesday       | 11361.67            |
## +-----+------------+-----------------+---------------------+
## | 38  | 2021-04-29 | Thursday        | 11655.75            |
## +-----+------------+-----------------+---------------------+
## | 39  | 2021-04-30 | Friday          | 11936.68            |
## +-----+------------+-----------------+---------------------+
## | 40  | 2021-05-01 | Saturday        | 12207.49            |
## +-----+------------+-----------------+---------------------+
## | 41  | 2021-05-02 | Sunday          | 12472.83            |
## +-----+------------+-----------------+---------------------+
## | 42  | 2021-05-03 | Monday          | 12733.97            |
## +-----+------------+-----------------+---------------------+
## | 43  | 2021-05-04 | Tuesday         | 12990.77            |
## +-----+------------+-----------------+---------------------+
## | 44  | 2021-05-05 | Wednesday       | 13245.99            |
## +-----+------------+-----------------+---------------------+
## | 45  | 2021-05-06 | Thursday        | 13502.07            |
## +-----+------------+-----------------+---------------------+
## | 46  | 2021-05-07 | Friday          | 13759.27            |
## +-----+------------+-----------------+---------------------+
## | 47  | 2021-05-08 | Saturday        | 14018.24            |
## +-----+------------+-----------------+---------------------+
## | 48  | 2021-05-09 | Sunday          | 14280.06            |
## +-----+------------+-----------------+---------------------+
## | 49  | 2021-05-10 | Monday          | 14544.89            |
## +-----+------------+-----------------+---------------------+
## | 50  | 2021-05-11 | Tuesday         | 14813.08            |
## +-----+------------+-----------------+---------------------+
## | 51  | 2021-05-12 | Wednesday       | 15085.27            |
## +-----+------------+-----------------+---------------------+
## | 52  | 2021-05-13 | Thursday        | 15361.17            |
## +-----+------------+-----------------+---------------------+
## | 53  | 2021-05-14 | Friday          | 15640.36            |
## +-----+------------+-----------------+---------------------+
## | 54  | 2021-05-15 | Saturday        | 15922.79            |
## +-----+------------+-----------------+---------------------+
## | 55  | 2021-05-16 | Sunday          | 16207.92            |
## +-----+------------+-----------------+---------------------+
## | 56  | 2021-05-17 | Monday          | 16495.05            |
## +-----+------------+-----------------+---------------------+
## | 57  | 2021-05-18 | Tuesday         | 16783.78            |
## +-----+------------+-----------------+---------------------+
## | 58  | 2021-05-19 | Wednesday       | 17073.43            |
## +-----+------------+-----------------+---------------------+
## | 59  | 2021-05-20 | Thursday        | 17363.21            |
## +-----+------------+-----------------+---------------------+
## | 60  | 2021-05-21 | Friday          | 17652.70            |
## +-----+------------+-----------------+---------------------+
## | 61  | 2021-05-22 | Saturday        | 17941.46            |
## +-----+------------+-----------------+---------------------+
## | 62  | 2021-05-23 | Sunday          | 18228.96            |
## +-----+------------+-----------------+---------------------+
## | 63  | 2021-05-24 | Monday          | 18514.99            |
## +-----+------------+-----------------+---------------------+
## | 64  | 2021-05-25 | Tuesday         | 18799.42            |
## +-----+------------+-----------------+---------------------+
## | 65  | 2021-05-26 | Wednesday       | 19082.03            |
## +-----+------------+-----------------+---------------------+
## | 66  | 2021-05-27 | Thursday        | 19362.83            |
## +-----+------------+-----------------+---------------------+
## | 67  | 2021-05-28 | Friday          | 19641.93            |
## +-----+------------+-----------------+---------------------+
## | 68  | 2021-05-29 | Saturday        | 19919.37            |
## +-----+------------+-----------------+---------------------+
## | 69  | 2021-05-30 | Sunday          | 20195.25            |
## +-----+------------+-----------------+---------------------+
## | 70  | 2021-05-31 | Monday          | 20469.79            |
## +-----+------------+-----------------+---------------------+
## | 71  | 2021-06-01 | Tuesday         | 20743.10            |
## +-----+------------+-----------------+---------------------+
## | 72  | 2021-06-02 | Wednesday       | 21015.30            |
## +-----+------------+-----------------+---------------------+
## | 73  | 2021-06-03 | Thursday        | 21286.52            |
## +-----+------------+-----------------+---------------------+
## | 74  | 2021-06-04 | Friday          | 21556.88            |
## +-----+------------+-----------------+---------------------+
## | 75  | 2021-06-05 | Saturday        | 21826.42            |
## +-----+------------+-----------------+---------------------+
## | 76  | 2021-06-06 | Sunday          | 22095.15            |
## +-----+------------+-----------------+---------------------+
## | 77  | 2021-06-07 | Monday          | 22363.10            |
## +-----+------------+-----------------+---------------------+
## | 78  | 2021-06-08 | Tuesday         | 22630.20            |
## +-----+------------+-----------------+---------------------+
## | 79  | 2021-06-09 | Wednesday       | 22896.37            |
## +-----+------------+-----------------+---------------------+
## | 80  | 2021-06-10 | Thursday        | 23161.51            |
## +-----+------------+-----------------+---------------------+
## | 81  | 2021-06-11 | Friday          | 23425.49            |
## +-----+------------+-----------------+---------------------+
## | 82  | 2021-06-12 | Saturday        | 23688.13            |
## +-----+------------+-----------------+---------------------+
## | 83  | 2021-06-13 | Sunday          | 23949.24            |
## +-----+------------+-----------------+---------------------+
## | 84  | 2021-06-14 | Monday          | 24208.62            |
## +-----+------------+-----------------+---------------------+
## | 85  | 2021-06-15 | Tuesday         | 24466.02            |
## +-----+------------+-----------------+---------------------+
## | 86  | 2021-06-16 | Wednesday       | 24721.20            |
## +-----+------------+-----------------+---------------------+
## | 87  | 2021-06-17 | Thursday        | 24973.87            |
## +-----+------------+-----------------+---------------------+
## | 88  | 2021-06-18 | Friday          | 25223.77            |
## +-----+------------+-----------------+---------------------+
## | 89  | 2021-06-19 | Saturday        | 25470.60            |
## +-----+------------+-----------------+---------------------+
## | 90  | 2021-06-20 | Sunday          | 25714.05            |
## +-----+------------+-----------------+---------------------+
## | 91  | 2021-06-21 | Monday          | 25953.82            |
## +-----+------------+-----------------+---------------------+
## | 92  | 2021-06-22 | Tuesday         | 26189.57            |
## +-----+------------+-----------------+---------------------+
## | 93  | 2021-06-23 | Wednesday       | 26420.99            |
## +-----+------------+-----------------+---------------------+
## | 94  | 2021-06-24 | Thursday        | 26647.75            |
## +-----+------------+-----------------+---------------------+
## | 95  | 2021-06-25 | Friday          | 26869.51            |
## +-----+------------+-----------------+---------------------+
## | 96  | 2021-06-26 | Saturday        | 27085.93            |
## +-----+------------+-----------------+---------------------+
## | 97  | 2021-06-27 | Sunday          | 27296.69            |
## +-----+------------+-----------------+---------------------+
## | 98  | 2021-06-28 | Monday          | 27501.45            |
## +-----+------------+-----------------+---------------------+
## | 99  | 2021-06-29 | Tuesday         | 27699.87            |
## +-----+------------+-----------------+---------------------+
## | 100 | 2021-06-30 | Wednesday       | 27891.61            |
## +-----+------------+-----------------+---------------------+
## | 101 | 2021-07-01 | Thursday        | 28076.35            |
## +-----+------------+-----------------+---------------------+
## | 102 | 2021-07-02 | Friday          | 28253.75            |
## +-----+------------+-----------------+---------------------+
## | 103 | 2021-07-03 | Saturday        | 28423.50            |
## +-----+------------+-----------------+---------------------+
## | 104 | 2021-07-04 | Sunday          | 28585.25            |
## +-----+------------+-----------------+---------------------+
## | 105 | 2021-07-05 | Monday          | 28738.70            |
## +-----+------------+-----------------+---------------------+
## | 106 | 2021-07-06 | Tuesday         | 28883.53            |
## +-----+------------+-----------------+---------------------+
## | 107 | 2021-07-07 | Wednesday       | 29019.41            |
## +-----+------------+-----------------+---------------------+
## | 108 | 2021-07-08 | Thursday        | 29146.03            |
## +-----+------------+-----------------+---------------------+
## | 109 | 2021-07-09 | Friday          | 29263.09            |
## +-----+------------+-----------------+---------------------+
## | 110 | 2021-07-10 | Saturday        | 29370.27            |
## +-----+------------+-----------------+---------------------+
## | 111 | 2021-07-11 | Sunday          | 29467.26            |
## +-----+------------+-----------------+---------------------+
## | 112 | 2021-07-12 | Monday          | 29553.76            |
## +-----+------------+-----------------+---------------------+
## | 113 | 2021-07-13 | Tuesday         | 29629.45            |
## +-----+------------+-----------------+---------------------+
## | 114 | 2021-07-14 | Wednesday       | 29694.03            |
## +-----+------------+-----------------+---------------------+
## | 115 | 2021-07-15 | Thursday        | 29747.15            |
## +-----+------------+-----------------+---------------------+
## | 116 | 2021-07-16 | Friday          | 29788.51            |
## +-----+------------+-----------------+---------------------+
## | 117 | 2021-07-17 | Saturday        | 29817.75            |
## +-----+------------+-----------------+---------------------+
## | 118 | 2021-07-18 | Sunday          | 29834.53            |
## +-----+------------+-----------------+---------------------+
## | 119 | 2021-07-19 | Monday          | 29838.46            |
## +-----+------------+-----------------+---------------------+
## | 120 | 2021-07-20 | Tuesday         | 29829.14            |
## +-----+------------+-----------------+---------------------+
## | 121 | 2021-07-21 | Wednesday       | 29806.14            |
## +-----+------------+-----------------+---------------------+
## | 122 | 2021-07-22 | Thursday        | 29768.96            |
## +-----+------------+-----------------+---------------------+
## | 123 | 2021-07-23 | Friday          | 29717.07            |
## +-----+------------+-----------------+---------------------+
## | 124 | 2021-07-24 | Saturday        | 29649.87            |
## +-----+------------+-----------------+---------------------+
## | 125 | 2021-07-25 | Sunday          | 29566.66            |
## +-----+------------+-----------------+---------------------+
## | 126 | 2021-07-26 | Monday          | 29466.64            |
## +-----+------------+-----------------+---------------------+
## | 127 | 2021-07-27 | Tuesday         | 29348.87            |
## +-----+------------+-----------------+---------------------+
## | 128 | 2021-07-28 | Wednesday       | 29212.28            |
## +-----+------------+-----------------+---------------------+
## | 129 | 2021-07-29 | Thursday        | 29055.58            |
## +-----+------------+-----------------+---------------------+
## | 130 | 2021-07-30 | Friday          | 28877.34            |
## +-----+------------+-----------------+---------------------+

result<-c(x1,x2,x3,x4,x5)
table.error<-data.frame(country.name,NNAR.model=MAPE_Mean_All_NNAR, BATS.Model=MAPE_Mean_All.bats_Model,TBATS.Model=MAPE_Mean_All.TBATS_Model,Holt.Model=MAPE_Mean_All.Holt_Model,ARIMA.Model=MAPE_Mean_All.ARIMA_Model,Best.Model=result)

library(ascii)
print(ascii(table(table.error)), type = "rest")

## 
## +---+-------------------+------------+------------+-------------+------------+-------------+------------+------+
## |   | country.name      | NNAR.model | BATS.Model | TBATS.Model | Holt.Model | ARIMA.Model | Best.Model | Freq |
## +===+===================+============+============+=============+============+=============+============+======+
## | 1 | Russia Federation | 6.966      | 22.279     | 8.365       | 7.145      | 56.113      | NNAR Model | 1.00 |
## +---+-------------------+------------+------------+-------------+------------+-------------+------------+------+

MAPE.Value<-c(MAPE_Mean_All_NNAR,MAPE_Mean_All.bats_Model,MAPE_Mean_All.TBATS_Model,MAPE_Mean_All.Holt_Model,MAPE_Mean_All.ARIMA_Model)
Model<-c("NNAR.model","BATS.Model","TBATS.Model","Holt.Model","ARIMA.Model")
channel_data<-data.frame(Model,MAPE.Value)
# Normally, the entire expression below would be assigned to an object, but we're
# going bare bones here.
ggplot(channel_data, aes(x = Model, y = MAPE.Value)) +
  geom_bar(stat = "identity") +
  geom_text(aes(label = MAPE.Value)) +  # x AND y INHERITED. WE JUST NEED TO SPECIFY "label"
  coord_flip() +
  scale_y_continuous(expand = c(0, 0))

message("System finished Modelling and Forecasting  by using BATS, TBATS, Holt's Linear Trend, and ARIMA Model ==>",y_lab, sep=" ")

## System finished Modelling and Forecasting  by using BATS, TBATS, Holt's Linear Trend, and ARIMA Model ==>Covid 19 Infection cases in Russia Federation

message(" Thank you for using our System For Modelling and Forecasting ==> ",y_lab, sep=" ")

##  Thank you for using our System For Modelling and Forecasting ==> Covid 19 Infection cases in Russia Federation