Package check result: ERROR

Check: examples, Result: ERROR
  Running examples in ‘BGGM-Ex.R’ failed
  The error most likely occurred in:
  
  > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
  > ### Name: bggm_missing
  > ### Title: GGM: Missing Data
  > ### Aliases: bggm_missing
  > 
  > ### ** Examples
  > 
  > ## No test: 
  > # note: iter = 250 for demonstrative purposes
  > 
  > # need this package
  > library(mice, warn.conflicts = FALSE)
  > 
  > # data
  > Y <- ptsd[,1:5]
  > 
  > # matrix for indices
  > mat <- matrix(0, nrow = 221, ncol = 5)
  > 
  > # indices
  > indices <- which(mat == 0, arr.ind = TRUE)
  > 
  > # 50 NAs
  > Y[indices[sample(1:nrow(indices), 50),]] <- NA
  > 
  > # impute
  > x <- mice(Y, m = 5, print = FALSE)
  > 
  > #########################
  > #######   copula    #####
  > #########################
  > # rank based parital correlations
  > 
  > # estimate the model
  > fit_est <-  bggm_missing(x,
  +                          method = "estimate",
  +                          type =  "mixed",
  +                          iter = 250,
  +                          progress = FALSE)
  Error: inv(): matrix is singular
  Execution halted