model <- keras_model_sequential() %>%
layer_lstm(units = 30, input_shape = c(timesteps = 60, features = 2)) %>%
layer_dense(units = 1)