Running examples in 'psychotools-Ex.R' failed
The error most likely occurred in:

> ### Name: pcmodel
> ### Title: Partial Credit Model Fitting Function
> ### Aliases: pcmodel PCModel.fit print.pcmodel summary.pcmodel
> ###   print.summary.pcmodel coef.pcmodel bread.pcmodel estfun.pcmodel
> ###   logLik.pcmodel vcov.pcmodel
> ### Keywords: regression
> 
> ### ** Examples
> 
> o <- options(digits = 4)
> 
> ## Verbal aggression data
> data("VerbalAggression", package = "psychotools")
> 
> ## Partial credit model for the other-to-blame situations
> pcm <- pcmodel(VerbalAggression$resp[, 1:12])
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
Warning in log(elementary_symmetric_functions(par = esf_par, order = 0,  :
  NaNs produced
> summary(pcm)

Partial credit model

Item category parameters:
               Estimate Std. Error z value Pr(>|z|)    
S1WantCurse-C2   -5.754         NA      NA       NA    
S1DoCurse-C1     -4.954         NA      NA       NA    
S1DoCurse-C2     -6.020         NA      NA       NA    
S1WantScold-C1   -5.143         NA      NA       NA    
S1WantScold-C2   -1.233         NA      NA       NA    
S1DoScold-C1      2.234         NA      NA       NA    
S1DoScold-C2      1.730         NA      NA       NA    
S1WantShout-C1    1.112         NA      NA       NA    
S1WantShout-C2    7.999         NA      NA       NA    
S1DoShout-C1      0.527         NA      NA       NA    
S1DoShout-C2     18.799         NA      NA       NA    
S2WantCurse-C1  -10.484         NA      NA       NA    
S2WantCurse-C2  -11.505         NA      NA       NA    
S2DoCurse-C1     -3.329         NA      NA       NA    
S2DoCurse-C2     -4.001         NA      NA       NA    
S2WantScold-C1   -2.379         NA      NA       NA    
S2WantScold-C2   -3.022         NA      NA       NA    
S2DoScold-C1     -1.361         NA      NA       NA    
S2DoScold-C2      8.997      0.000     Inf   <2e-16 ***
S2WantShout-C1   -2.598         NA      NA       NA    
S2WantShout-C2    6.352         NA      NA       NA    
S2DoShout-C1      1.050         NA      NA       NA    
S2DoShout-C2     25.537         NA      NA       NA    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Log-likelihood: -6290 (df = 23) 
Number of iterations in BFGS optimization: 3 

> 
> ## visualizations
> plot(pcm, type = "profile")
> plot(pcm, type = "regions")
> plot(pcm, type = "curves")
> plot(pcm, type = "information")
> plot(pcm, type = "piplot")
Error in uniroot(function(pp) rawscore - sum(ojv * exp(ojv * pp - unlist(tp))/unlist(sapply(1:m,  : 
  f() values at end points not of opposite sign
Calls: plot ... personpar.pcmodel -> sapply -> lapply -> FUN -> uniroot
Execution halted