将GAM应用于时间序列数据集

Question

我正在尝试根据时间序列数据创建gam模型。在mydata中，我只有两列：Var1和date（从2013年1月到2018年12月）。 这是我正在使用的代码：

training.samples <- mydata$Var1 %>% createDataPartition(p = 0.8, list = FALSE)
    train.data  <- mydata[training.samples, ]
    test.data <- mydata[-training.samples, ]

    library(mgcv)
    # Build the model
    model <- gam(Var1 ~ s(date, bs="cr"), data = train.data, fit= TRUE)



Error in names(dat) <- object$term : 
  'names' attribute [1] must be the same length as the vector [0]

我的问题是：这段代码有什么问题吗？或者在gam函数中使用日期变量有根本的区别吗？任何帮助将不胜感激。