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

Question

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

我安装了这样的添加剂模型：

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

我可以绘制s(x3)的拟合平滑函数，但我希望得到它的确切表达式并得到它的导数。我怎样才能实现这一目标？