r - 如何从广义加性模型中提取平滑函数的表达式

Question

我在广义加性模型中提取拟合平滑函数的表达式时遇到问题。

我安装了这样的加法模型：

library(mgcv)
model <- gam(y ~ x1 + x2 + s(x3, bs = "cr"), data = newdata)

我可以绘制 的拟合平滑函数s(x3)，但我想得到它的精确表达式并得到它的导数。我怎样才能做到这一点？