Running ‘RC.R’
  Comparing ‘RC.Rout’ to ‘RC.Rout.save’ ...26,34d25
< Warning messages:
< 1: In setCoefs - ref %*% setCoefs :
<   Recycling array of length 1 in vector-array arithmetic is deprecated.
<   Use c() or as.vector() instead.
< 
< 2: In setCoefs - scaleRef %*% setCoefs :
<   Recycling array of length 1 in vector-array arithmetic is deprecated.
<   Use c() or as.vector() instead.
< 
38,46d28
< Warning messages:
< 1: In setCoefs - ref %*% setCoefs :
<   Recycling array of length 1 in vector-array arithmetic is deprecated.
<   Use c() or as.vector() instead.
< 
< 2: In setCoefs - scaleRef %*% setCoefs :
<   Recycling array of length 1 in vector-array arithmetic is deprecated.
<   Use c() or as.vector() instead.
< 
  Running ‘RChomog.R’
  Comparing ‘RChomog.Rout’ to ‘RChomog.Rout.save’ ... OK
  Running ‘biplot.R’
  Comparing ‘biplot.Rout’ to ‘biplot.Rout.save’ ... OK
  Running ‘bwt.R’
  Comparing ‘bwt.Rout’ to ‘bwt.Rout.save’ ... OK
  Running ‘diagonalRef.R’
  Comparing ‘diagonalRef.Rout’ to ‘diagonalRef.Rout.save’ ... OK
  Running ‘doubleUnidiff.R’
  Comparing ‘doubleUnidiff.Rout’ to ‘doubleUnidiff.Rout.save’ ... OK
  Running ‘gammi.R’
  Comparing ‘gammi.Rout’ to ‘gammi.Rout.save’ ... OK
  Running ‘logexcess.R’
  Comparing ‘logexcess.Rout’ to ‘logexcess.Rout.save’ ... OK
  Running ‘logistic.R’
  Comparing ‘logistic.Rout’ to ‘logistic.Rout.save’ ... OK
  Running ‘nls.R’
  Comparing ‘nls.Rout’ to ‘nls.Rout.save’ ... OK
  Running ‘stereotype.R’
  Running ‘unidiff.R’
  Comparing ‘unidiff.Rout’ to ‘unidiff.Rout.save’ ...26,30d25
< Warning message:
< In setCoefs - ref %*% setCoefs :
<   Recycling array of length 1 in vector-array arithmetic is deprecated.
<   Use c() or as.vector() instead.
< 
Running the tests in ‘tests/stereotype.R’ failed.
Complete output:
  > library(gnm)
  > set.seed(1)
  > 
  > library(nnet)
  > .incidence <- class.ind(backPain$pain)
  > .counts <- as.vector(t(.incidence))
  > .rowID <- factor(t(row(.incidence)))
  > backPain <- backPain[.rowID, ]
  > backPain$pain <- C(factor(rep(levels(backPain$pain), nrow(.incidence)),
  +                           levels = levels(backPain$pain), ordered = TRUE),
  +                    treatment)
  > 
  > noRelationship <- gnm(.counts ~ pain, eliminate = .rowID,
  +                       family = "poisson", data = backPain)
  Error in model.frame.default(formula = .counts ~ pain - 1, eliminate = .rowID,  : 
    variable lengths differ (found for '.rowID')
  Calls: gnm -> eval -> eval -> model.frame -> model.frame.default
  Execution halted