Typo in section 3.6

[rungec]

Hi there is a very minor typo in the 4th line of the 3rd code chunk in section 3.6
gam should be glm (in order to get a pval of 0.647)
Great book and package by the way!
Claire

shipley_psem3 <- psem(
gam(x2 ~ s(x1), data = dat2, family = gaussian),
glm(x3 ~ x2, data = dat2, family = poisson),
gam(x4 ~ x2, data = dat2, family = poisson), #should be glm
glm(x5 ~ x3 + x4, data = dat2, family = binomial)
)