一般化された加法的モデルを使用していくつかのデータを分析しましたが、結果をプロットしたいと考えています。
library(mgcv)
set.seed(2) ## simulate some data...
dat <- gamSim(1,n=400,dist="normal",scale=2)
b <- gam(y~s(x0)+s(x1)+s(x2)+s(x3),data=dat)
plot(b,pages=1)
上記の例から、個々のプロットを異なる pdf ファイルに保存するにはどうすればよいでしょうか?