Running 'Becker-Clogg1989.R' [0s/1s]
  Running 'Clogg-Shihadeh1994.R' [2s/3s]
  Running 'Goodman1979.R' [2s/3s]
  Running 'Goodman1991.R' [2s/3s]
  Running 'Wong2010-2.7.R' [0s/0s]
  Running 'Wong2010-4.7.R' [0s/1s]
  Running 'Yamaguchi1990.R' [2s/2s]
  Running 'hmskewL.R' [2s/3s]
  Running 'iac.R' [2s/3s]
  Running 'maor.R' [2s/3s]
  Running 'ras.R' [2s/3s]
  Running 'supplementary.R' [2s/3s]
  Running 'vanderHeijden-Mooijaart1995.R' [2s/3s]
Running the tests in 'tests/Clogg-Shihadeh1994.R' failed.
Complete output:
  > ## Clogg & Shihadeh (1994), Tables 3.5a and b (p. 55-61)
  > # See also ?rc
  > 
  > library(logmult)
  Loading required package: gnm
  
  Attaching package: 'logmult'
  
  The following object is masked from 'package:gnm':
  
      se
  
  > data(gss88)
  > model <- rc(gss88, start=NA)
  Running base model to find starting values...
  Running real model...
  Initialising
  Error in bquote(`1`, list(Freq = c(0, 0, 5, 2, 3, 0, 10, 5, 1, 7, 2, 2,  : 
    'where' must be an environment
  Calls: rc ... gnmFit -> <Anonymous> -> lapply -> FUN -> do.call -> bquote
  Execution halted
Running the tests in 'tests/Goodman1979.R' failed.
Complete output:
  > ## Goodman (1979), scores not reported but present in LEM examples
  > # as "GOO91_1G" (where scores reported here come from)
  > # No symmetric RC scores seem to be reported in a published paper
  > 
  > library(logmult)
  Loading required package: gnm
  
  Attaching package: 'logmult'
  
  The following object is masked from 'package:gnm':
  
      se
  
  > data(occupationalStatus)
  > 
  > # We use a simpler (collapsed) table
  > occupationalStatus[5,]<-colSums(occupationalStatus[5:6,])
  > occupationalStatus[,5]<-rowSums(occupationalStatus[,5:6])
  > occupationalStatus <- occupationalStatus[-6,-6]
  > 
  > model <- rc(occupationalStatus, diagonal=TRUE, symmetric=TRUE, weighting="none", start=NA)
  Running base model to find starting values...
  Running real model...
  Initialising
  Error in bquote(`1`, list(Freq = c(50, 16, 12, 11, 14, 0, 0, 19, 40, 35,  : 
    'where' must be an environment
  Calls: rc ... gnmFit -> <Anonymous> -> lapply -> FUN -> do.call -> bquote
  Execution halted
Running the tests in 'tests/Goodman1991.R' failed.
Complete output:
  > ## Goodman (1991), Table 17.1 (p. 1097)
  > # See also ?rc
  > 
  > library(logmult)
  Loading required package: gnm
  
  Attaching package: 'logmult'
  
  The following object is masked from 'package:gnm':
  
      se
  
  > data(criminal)
  > 
  > model <- rc(criminal, start=NA)
  Running base model to find starting values...
  Running real model...
  Initialising
  Error in bquote(`1`, list(Freq = c(141, 144, 196, 212, 285, 292, 380,  : 
    'where' must be an environment
  Calls: rc ... gnmFit -> <Anonymous> -> lapply -> FUN -> do.call -> bquote
  Execution halted
Running the tests in 'tests/Yamaguchi1990.R' failed.
Complete output:
  > ## Yamaguchi (1990), Table 5, p. 202, and Table 6B, p. 205
  > 
  > library(logmult)
  Loading required package: gnm
  
  Attaching package: 'logmult'
  
  The following object is masked from 'package:gnm':
  
      se
  
  > data(ocg1973)
  > 
  > # Simple symmetric RC(1) model ("Null skew-symmetry")
  > rc.model <- rc(ocg1973, diagonal=TRUE, symmetric=TRUE, weighting="none")
  Initialising
  Error in bquote(`1`, list(Freq = c(1275, 1055, 1043, 1159, 666, 364, 597,  : 
    'where' must be an environment
  Calls: rc ... gnmFit -> <Anonymous> -> lapply -> FUN -> do.call -> bquote
  Execution halted
Running the tests in 'tests/hmskewL.R' failed.
Complete output:
  > # Artificial example to check the hmskewL model
  > 
  > library(logmult)
  Loading required package: gnm
  
  Attaching package: 'logmult'
  
  The following object is masked from 'package:gnm':
  
      se
  
  > data(ocg1973)
  > 
  > tab <- array(ocg1973, dim=c(nrow(ocg1973), ncol(ocg1973), 2))
  > 
  > model <- hmskewL(tab[5:1, 5:1,], weighting="uniform", start=NA)
  Running base model to find starting values...
  Running real model...
  Initialising
  Error in bquote(Rows, list(Freq = c(646, 646, 52, 1632, 52, 1632, 47,  : 
    'where' must be an environment
  Calls: hmskewL ... gnmFit -> <Anonymous> -> lapply -> FUN -> do.call -> bquote
  In addition: Warning message:
  Using make.unique() to make default parameter labels unique 
  Execution halted
Running the tests in 'tests/iac.R' failed.
Complete output:
  > # Avoid random failures to converge
  > set.seed(1)
  > 
  > # See Becker-Clogg (1989) test
  > 
  > library(logmult)
  Loading required package: gnm
  
  Attaching package: 'logmult'
  
  The following object is masked from 'package:gnm':
  
      se
  
  > data(color)
  > 
  > rcm <- rc(color[,,1], 2, weighting="marginal", start=NA)
  Running base model to find starting values...
  Running real model...
  Initialising
  Error in bquote(`1`, list(Freq = c(326, 688, 343, 98, 38, 116, 84, 48,  : 
    'where' must be an environment
  Calls: rc ... gnmFit -> <Anonymous> -> lapply -> FUN -> do.call -> bquote
  Execution halted
Running the tests in 'tests/maor.R' failed.
Complete output:
  > # Avoid random failures to converge
  > set.seed(1)
  > 
  > # See Becker-Clogg (1989) test
  > 
  > library(logmult)
  Loading required package: gnm
  
  Attaching package: 'logmult'
  
  The following object is masked from 'package:gnm':
  
      se
  
  > data(color)
  > 
  > rcm <- rc(color[,,1], 2, weighting="marginal", start=NA)
  Running base model to find starting values...
  Running real model...
  Initialising
  Error in bquote(`1`, list(Freq = c(326, 688, 343, 98, 38, 116, 84, 48,  : 
    'where' must be an environment
  Calls: rc ... gnmFit -> <Anonymous> -> lapply -> FUN -> do.call -> bquote
  Execution halted
Running the tests in 'tests/supplementary.R' failed.
Complete output:
  > ## Variations based on Becker & Clogg (1989), cf. Becker-Clogg1989.R
  > 
  > library(logmult)
  Loading required package: gnm
  
  Attaching package: 'logmult'
  
  The following object is masked from 'package:gnm':
  
      se
  
  > data(color)
  > 
  > caithness <- color[,,"Caithness"]
  > 
  > 
  > ## Adding the table again as supplementary rows
  > rsup <- caithness
  > csup <- caithness
  > rownames(rsup) <- paste(rownames(caithness), "2")
  > colnames(csup) <- paste(colnames(caithness), "2")
  > 
  > names(dimnames(rsup)) <- names(dimnames(csup)) <- names(dimnames(caithness))
  > 
  > mA1r <- rc(caithness, 1, rowsup=rsup, weighting="u", start=NA)
  Running base model to find starting values...
  Running real model...
  Initialising
  Error in bquote(`1`, list(Freq = c(326, 688, 343, 98, 38, 116, 84, 48,  : 
    'where' must be an environment
  Calls: rc ... gnmFit -> <Anonymous> -> lapply -> FUN -> do.call -> bquote
  Execution halted
Running the tests in 'tests/vanderHeijden-Mooijaart1995.R' failed.
Complete output:
  > ## van der Heijden & Mooijaart (1995), Table 2c, p. 23
  > # See also ?hmskew
  > 
  > library(logmult)
  Loading required package: gnm
  
  Attaching package: 'logmult'
  
  The following object is masked from 'package:gnm':
  
      se
  
  > data(ocg1973)
  > 
  > # 5:1 is here to take "Farmers" as reference category (angle 0)
  > model <- hmskew(ocg1973[5:1, 5:1], weighting="uniform", start=NA)
  Running base model to find starting values...
  Running real model...
  Initialising
  Error in bquote(`1`, list(Freq = c(646, 52, 47, 31, 17, 1632, 2046, 951,  : 
    'where' must be an environment
  Calls: hmskew ... gnmFit -> <Anonymous> -> lapply -> FUN -> do.call -> bquote
  In addition: Warning message:
  Using make.unique() to make default parameter labels unique 
  Execution halted