如何在序列中添加LSTM和GRU层以对单变量时间序列进行序列化以使其更深？

Question

我有一个单变量时间序列，其大小刚好超过300个步长，并希望在R中编写一个LSTM深度网络以预测将来的2-3个步长。我找不到一种方法来将具有多个LSTM或GRU层的单个系列馈入网络：

     model <- keras_model_sequential()        
     model%>%
      layer_lstm(units, batch_input_shape = c(batch_size, X_train), 
      stateful= TRUE)%>%
      layer_dense(units = 1)

看起来太简单了，无法深入。有帮助吗？