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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: mixGGM
> ### Title: Mixture of Gaussian graphical models
> ### Aliases: mixGGM print.mixGGM
> 
> ### ** Examples
> 
> 
> # fit a mixture of concentration graph models
> data(iris)
> mod1 <- mixGGM(iris[,-5], model = "concentration")

  |                                                                            
  |                                                                      |   0%Error in fitGGM(data = NULL, graph = adjMat0, S = S, N = Nk, model = model,  : 
  Covariance matrix is not positive definite

  |                                                                            
  |=======================                                               |  33%
 *** caught segfault ***
address 0xd, cause 'memory not mapped'

Traceback:
 1: estepmggm(data, t(mu), sigma, pro)
 2: emMixGGM(data, K = k, model = model, search = search, penalty = penalty,     beta = beta, regularize = regularize, regHyperPar = regHyperPar,     ctrlGa = ctrlGa, ctrlStep = ctrlStep, ctrlEm = ctrlEm, ctrlIcf = ctrlIcf,     hcInit = hcInit, parallel = parallel)
 3: doTryCatch(return(expr), name, parentenv, handler)
 4: tryCatchOne(expr, names, parentenv, handlers[[1L]])
 5: tryCatchList(expr, classes, parentenv, handlers)
 6: tryCatch(expr, error = function(e) {    call <- conditionCall(e)    if (!is.null(call)) {        if (identical(call[[1L]], quote(doTryCatch)))             call <- sys.call(-4L)        dcall <- deparse(call)[1L]        prefix <- paste("Error in", dcall, ": ")        LONG <- 75L        sm <- strsplit(conditionMessage(e), "\n")[[1L]]        w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")        if (is.na(w))             w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],                 type = "b")        if (w > LONG)             prefix <- paste0(prefix, "\n  ")    }    else prefix <- "Error : "    msg <- paste0(prefix, conditionMessage(e), "\n")    .Internal(seterrmessage(msg[1L]))    if (!silent && isTRUE(getOption("show.error.messages"))) {        cat(msg, file = outFile)        .Internal(printDeferredWarnings())    }    invisible(structure(msg, class = "try-error", condition = e))})
 7: try(emMixGGM(data, K = k, model = model, search = search, penalty = penalty,     beta = beta, regularize = regularize, regHyperPar = regHyperPar,     ctrlGa = ctrlGa, ctrlStep = ctrlStep, ctrlEm = ctrlEm, ctrlIcf = ctrlIcf,     hcInit = hcInit, parallel = parallel), silent = !ctrlEm$printMsg)
 8: mixGGM(iris[, -5], model = "concentration")
An irrecoverable exception occurred. R is aborting now ...
Segmentation fault