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
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
Running examples in ‘surveynnet-Ex.R’ failed
The error most likely occurred in:

> ### 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
Running examples in ‘surveynnet-Ex.R’ failed
The error most likely occurred in:

> ### 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
Running examples in 'surveynnet-Ex.R' failed
The error most likely occurred in:

> ### 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
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
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
Running examples in 'surveynnet-Ex.R' failed
The error most likely occurred in:

> ### 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
Running examples in 'surveynnet-Ex.R' failed
The error most likely occurred in:

> ### 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