# Construct monthly time series PR
library(lubridate)
starting_month=month(ymd(monthly_Value$Month[1]))
starting_year=year(ymd(monthly_Value$Month[1]))
library(TTR)
Value.ts <- ts(monthly_Value$Value, start = c(starting_year,starting_month), frequency = 12)
plot(Value.ts)