Package check result: OK

Changes to worse in reverse depends:

Package: surveynnet
Check: examples
New result: ERROR
  Running examples in ‘surveynnet-Ex.R’ failed
  The error most likely occurred in:
  
  > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
  > ### Name: predict.surveynnet
  > ### Title: Predict response from fitted nnet, using new data
  > ### Aliases: predict.surveynnet
  > 
  > ### ** Examples
  > 
  > # From the example in `surveynnet` help file:
  > y <- body_fat$pct_body_fat
  > x <- body_fat[,c("Weight_kg", "Height_cm", "Age")]
  > weight <- body_fat$survey_wt
  > strat <- body_fat$stratum
  > clust <- body_fat$cluster
  > y[strat==1] <- y[strat==1] + 30*0.00015*rnorm(sum(strat==1))
  > y[strat==2] <- y[strat==2] + 30*0.15*rnorm(sum(strat==2))
  > myout <- surveynnet(x,y,weight = weight, strat = strat, clust=clust)
  Error in (function (w, strvar = NULL, clvar = NULL, clnest = NULL, Wh = NULL,  : 
    If sample is stratified and clustered, clnest must be either TRUE or FALSE.
  Calls: surveynnet -> do.call -> <Anonymous>
  Execution halted