Данный код не генерирует граф, вместо этого он показывает эту ошибку 'object' ts.monthly 'not found'

Question

Ошибка в na.StructTS: объект 'ts.monthly' не найден

Это связано с кодом для прогнозирования фондового рынка в R с использованием пакета shiny.

output$auto.arima <- renderPlot({



library('quantmod')
library('ggplot2')
library('forecast')
library('tseries')
library('zoo')
decompose(na.StructTS(ts.monthly))


data <- eventReactive(input$click, {
  (input$StockCode) 
})
Stock <- as.character(data())
print(Stock)

Stock_df<-as.data.frame(getSymbols(Symbols = Stock, 
                                   src = "yahoo", from = "2016-01-01", env = NULL))
Stock_df$Open = Stock_df[,1]
Stock_df$High = Stock_df[,2]
Stock_df$Low = Stock_df[,3]
Stock_df$Close = Stock_df[,4]
Stock_df$Volume = Stock_df[,5]
Stock_df$Adj = Stock_df[,6]
Stock_df <- Stock_df[,c(7,8,9,10,11,12)] 





Stock_df$v7_MA = ma(Stock_df$Close, order=7)
Stock_df$v30_MA <- ma(Stock_df$Close, order=30)


rental_ma <- ts(na.omit(Stock_df$v7_MA), frequency=30)
decomp_rental <- stl(rental_ma, s.window="periodic")

adj_rental <- seasadj(decomp_rental)




fit <- auto.arima(Stock_df$Close,ic="bic")
fit.forecast <- forecast(fit)
plot(fit.forecast,  main= Stock)
fit.forecast

  })

Код не показывает выходной график для несезонных, а также сезонных компонентов-