还是把代码贴出来吧

library(keras)
library(lubridate)
library(Sequential)
set.seed(7)
setwd("E:\\")
dataframe<-read.csv("text2.csv")
model<-keras_model_sequential()
model %>%
  layer_lstm(
    units = 4,
    input_shape = c(1, look_back)) %>%
  layer_dense(
    units = 1) %>%
  compile(
    loss = 'mean_squared_error',
    optimizer = 'adam') %>%
  fit(trainXY$dataX,
      trainXY$dataY,
      epochs = 100,
      batch_size = 2,
      verbose = 2)
建模的主要代码是这个，省略了一些数据处理的过程

library(keras)
library(lubridate)
library(Sequential)
set.seed(7)
setwd("E:\\")
dataframe<-read.csv("text2.csv")
model<-keras_model_sequential()
model %>%
  layer_lstm(
    units = 4,
    input_shape = c(1, look_back)) %>%
  layer_dense(
    units = 1) %>%
  compile(
    loss = 'mean_squared_error',
    optimizer = 'adam') %>%
  fit(trainXY$dataX,
      trainXY$dataY,
      epochs = 100,
      batch_size = 2,
      verbose = 2)
建模的主要代码是这个，省略了一些数据处理的过程

这个应该是在你读数据的时候就报错了吧

读数据时并没有啊