Convert gamViz object to gamObject

Function for converting a gamViz object to a gamObject. It is essentially the inverse of the getViz function.

getGam(o)

Arguments

o	a gamViz object, the output of mgcViz::getViz.

Examples

library(mgcViz)
set.seed(2) ## simulate some data...
dat <- gamSim(1,n=1000,dist="normal",scale=2)
#> Gu & Wahba 4 term additive model
b <- gam(y~s(x0)+s(x1, x2)+s(x3), data=dat, method="REML")
a <- getViz(b)
identical(b, getGam(a)) # Must be TRUE
#> [1] TRUE