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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: krippalpha
> ### Title: Krippendorff's alpha
> ### Aliases: krippalpha
> 
> ### ** Examples
> 
> data(codings)
> 
> # compute alpha, without uncertainty estimates
> krippalpha(codings)

 Krippendorff's alpha 

 Alpha coders units   level
 0.743      4    12 nominal

 Bootstrapped alpha
 Alpha Std. Error 2.5 % 97.5 % Boot. technique Bootstraps
    NA         NA    NA     NA    Krippendorff         NA
    NA         NA    NA     NA   nonparametric         NA

 P(alpha > alpha_min):
 alpha_min krippendorff nonparametric
      0.90           NA            NA
      0.80           NA            NA
      0.70           NA            NA
      0.67           NA            NA
      0.60           NA            NA
      0.50           NA            NA
> 
> # additionally compute bootstrapped uncertainty estimates for alpha
> alpha <- krippalpha(codings, metric = "nominal", bootstrap = TRUE, bootnp = TRUE)
> alpha

 Krippendorff's alpha 

 Alpha coders units   level
 0.743      4    12 nominal

 Bootstrapped alpha
 Alpha Std. Error 2.5 % 97.5 % Boot. technique Bootstraps
  0.72      0.074 0.562   0.85    Krippendorff      20000
  0.73      0.146 0.417   1.00   nonparametric       1000

 P(alpha > alpha_min):
 alpha_min krippendorff nonparametric
      0.90        0.004         0.126
      0.80        0.133         0.350
      0.70        0.640         0.607
      0.67        0.739         0.683
      0.60        0.940         0.822
      0.50        0.996         0.932
> 
> # plot bootstrapped alphas
> plot(alpha)
> 
> # alternatively, use ggplot2
> df <- plot(alpha, return_data = TRUE)
> 
> library(ggplot2)
> ggplot() +
+   geom_line(data = df[df$ci_limit == FALSE, ], aes(x, y, color = type)) +
+   geom_area(data = df[df$ci == TRUE, ], aes(x, y, fill = type), alpha = 0.4) +
+   theme_minimal() +
+   theme(plot.title = element_text(hjust = 0.5)) +
+   theme(legend.position = "bottom", legend.title = element_blank()) +
+   ggtitle(expression(paste("Bootstrapped ", alpha))) +
+   xlab("value") + ylab("density") +
+   guides(fill = FALSE)
Error in grid.Call.graphics(C_setviewport, vp, TRUE) : 
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
Calls: <Anonymous> ... push.vp.vpTree -> push.vp -> push.vp.viewport -> grid.Call.graphics
Execution halted