Running examples in 'vcdExtra-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Hauser79
> ### Title: Hauser (1979) Data on Social Mobility
> ### Aliases: Hauser79
> ### Keywords: datasets
> 
> ### ** Examples
> 
> data(Hauser79)
> str(Hauser79)
'data.frame':	25 obs. of  3 variables:
 $ Son   : Factor w/ 5 levels "UpNM","LoNM",..: 1 2 3 4 5 1 2 3 4 5 ...
 $ Father: Factor w/ 5 levels "UpNM","LoNM",..: 1 1 1 1 1 2 2 2 2 2 ...
 $ Freq  : num  1414 521 302 643 40 ...
> 
> # display table
> structable(~Father+Son, data=Hauser79)
       Son UpNM LoNM  UpM  LoM Farm
Father                             
UpNM       1414  521  302  643   40
LoNM        724  524  254  703   48
UpM         798  648  856 1676  108
LoM         756  914  771 3325  237
Farm        409  357  441 1611 1832
> 
> #Examples from Powers & Xie, Table 4.15
> # independence model
> mosaic(Freq ~ Father + Son, data=Hauser79, shade=TRUE)
> 
> hauser.indep <- gnm(Freq ~ Father + Son, data=Hauser79, family=poisson)
> mosaic(hauser.indep, ~Father+Son, main="Independence model", gp=shading_Friendly)
> 
> hauser.quasi <-  update(hauser.indep, ~ . + Diag(Father,Son))
> mosaic(hauser.quasi, ~Father+Son, main="Quasi-independence model", gp=shading_Friendly)
> 
> hauser.qsymm <-  update(hauser.indep, ~ . + Diag(Father,Son) + Symm(Father,Son))
> mosaic(hauser.qsymm, ~Father+Son, main="Quasi-symmetry model", gp=shading_Friendly)
> #mosaic(hauser.qsymm, ~Father+Son, main="Quasi-symmetry model")
> 
> 
> # numeric scores for row/column effects
> Sscore <- as.numeric(Hauser79$Son)
> Fscore <- as.numeric(Hauser79$Father)
> 
> # row effects model
> hauser.roweff <- update(hauser.indep, ~ . + Father*Sscore)
> LRstats(hauser.roweff)
Likelihood summary table:
                 AIC    BIC LR Chisq Df Pr(>Chisq)    
hauser.roweff 2308.9 2324.7   2080.2 12  < 2.2e-16 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
> 
> # uniform association
> hauser.UA <- update(hauser.indep, ~ . + Fscore*Sscore)
> LRstats(hauser.UA)
Likelihood summary table:
             AIC    BIC LR Chisq Df Pr(>Chisq)    
hauser.UA 2503.4 2515.6   2280.7 15  < 2.2e-16 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
> 
> # uniform association, omitting diagonals
> hauser.UAdiag <- update(hauser.indep, ~ . + Fscore*Sscore + Diag(Father,Son))
> LRstats(hauser.UAdiag)
Likelihood summary table:
                 AIC BIC LR Chisq Df Pr(>Chisq)    
hauser.UAdiag 305.72 324   73.007 10  1.161e-11 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
> 
> # Levels for Hauser 5-level model
> levels <- matrix(c(
+   2,  4,  5,  5,  5,
+   3,  4,  5,  5,  5,
+   5,  5,  5,  5,  5,
+   5,  5,  5,  4,  4,
+   5,  5,  5,  4,  1
+   ), 5, 5, byrow=TRUE)
> 
> hauser.topo <- update(hauser.indep, ~ . + Topo(Father, Son, spec=levels))
> mosaic(hauser.topo, ~Father+Son, main="Topological model", gp=shading_Friendly)
> 
> hauser.RC <- update(hauser.indep, ~ . + Mult(Father, Son), verbose=FALSE)
Error in bquote(`1`, list(Freq = c(1414, 521, 302, 643, 40, 724, 524,  : 
  'where' must be an environment
Calls: update ... gnmFit -> <Anonymous> -> lapply -> FUN -> do.call -> bquote
Execution halted