平滑曲线拟合clind函数报错

用mgcv::gam()函数拟合平滑曲线时，运行到clind函数老是报错

代码如下：
library(mgcv)
library(writexl)
library(dplyr)
dt <- LFR_DMhighrisk814

##构建模型
fml<- "LFR~s(age,fx=FALSE)"
gam1<-mgcv::gam(formula(fml),weights=dt$weights,data=dt, family=gaussian(link="identity"))
#计算拟合值
pred<-predict.gam(gam1,type="terms",se.fit=TRUE)
mfit <- pred$fit[,"s(age)"]
sfit <- pred$se.fit[,"s(age)"]
dt<-cbind(dt,mfit,sfit)
##

报错代码入下：
Error in data.frame(..., check.names = FALSE) :
参数值意味着不同的行数: 4577, 4575

求问怎么解决