Running examples in ‘xxIRT-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: estimate_3pl
> ### Title: Estimate 3-parameter-logistic model
> ### Aliases: estimate_3pl model_3pl_eap_scoring model_3pl_map_scoring
> ###   model_3pl_dv_Pt model_3pl_dv_Pa model_3pl_dv_Pb model_3pl_dv_Pc
> ###   model_3pl_dv_jmle model_3pl_estimate_jmle model_3pl_dv_mmle
> ###   model_3pl_estimate_mmle model_3pl_fitplot
> ### Keywords: internal
> 
> ### ** Examples
> 
> with(model_3pl_gendata(10, 40), cbind(true=t, est=model_3pl_eap_scoring(u, a, b, c)$t))
            true        est
 [1,] -0.6264538 -1.3047925
 [2,]  0.1836433  0.6128118
 [3,] -0.8356286 -1.0401125
 [4,]  1.5952808  1.5283761
 [5,]  0.3295078  0.4180734
 [6,] -0.8204684 -1.1108646
 [7,]  0.4874291  0.6489613
 [8,]  0.7383247  1.1043771
 [9,]  0.5757814  0.2435308
[10,] -0.3053884 -0.9930045
> with(model_3pl_gendata(10, 40), cbind(true=t, est=model_3pl_map_scoring(u, a, b, c)$t))
              true         est
 [1,]  0.732750042  0.54179068
 [2,]  0.946585640  0.53125744
 [3,]  0.004398704  0.02633450
 [4,] -0.352322306 -0.24166689
 [5,] -0.529695509 -0.73782775
 [6,]  0.739589226  1.09916424
 [7,] -1.063457415 -0.04724843
 [8,]  0.246210844  0.32152332
 [9,] -0.289499367 -0.15727927
[10,] -2.264889356 -1.96447825
> ## Not run: 
> ##D # generate data
> ##D x <- model_3pl_gendata(2000, 40)
> ##D # free estimation
> ##D y <- model_3pl_estimate_jmle(x$u, true_params=x)
> ##D # fix c-parameters
> ##D y <- model_3pl_estimate_jmle(x$u, c=0, true_params=x)
> ##D # no priors
> ##D y <- model_3pl_estimate_jmle(x$u, priors=NULL, iter=30, debug=T)
> ## End(Not run)
> ## Not run: 
> ##D # generate data
> ##D x <- model_3pl_gendata(2000, 40)
> ##D # free estimation
> ##D y <- model_3pl_estimate_mmle(x$u, true_params=x)
> ##D # fix c-parameters
> ##D y <- model_3pl_estimate_mmle(x$u, c=0, true_params=x)
> ##D # no priors
> ##D y <- model_3pl_estimate_mmle(x$u, priors=NULL, iter=30, debug=T)
> ## End(Not run)
> with(model_3pl_gendata(1000, 20), model_3pl_fitplot(u, t, a, b, c, index=c(1, 3, 5)))
Error in Summary.unit(c(4.4, 4.4), na.rm = FALSE) : 
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
Calls: <Anonymous> ... render_strips -> build_strip -> ggstrip -> Summary.unit
Execution halted