Как запустить пример keras от r-блогеров?

Question

Я пытаюсь запустить код, опубликованный в посте r-blogdzhers ' Глубокое изучение временных рядов: прогнозирование солнечных пятен с помощью Keras Stateful LSTM в R '.Но я получаю сообщение об ошибке на этапе, когда пакет keras вступает в действие.Ниже я вставлю фрагмент кода, который не удалось с моей стороны, с сообщением об ошибке.Это проблема с пакетом keras или настройкой системы?Заранее спасибо за помощь.

model %>%
 layer_lstm(units             = 50, 
             input_shape      = c(tsteps, 1), 
             batch_size       = batch_size,
             return_sequences = TRUE, 
             stateful         = TRUE) %>% 
  layer_lstm(units            = 50, 
             return_sequences = FALSE, 
             stateful         = TRUE) %>% 
  layer_dense(units = 1)

И это сообщение об ошибке, которое я получил

    Error in py_call_impl(callable, dots$args, dots$keywords) : 
  ValueError: Layer lstm_3 was called with an input that isn't a symbolic tensor. Received type: <class 'keras.engine.sequential.Sequential'>. Full input: [<keras.engine.sequential.Sequential object at 0x2aab3cd14588>]. All inputs to the layer should be tensors.