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

> ### Name: jomo.clmm
> ### Title: Joint Modelling Imputation Compatible with Cumulative Link Mixed
> ###   Model
> ### Aliases: jomo.clmm
> 
> ### ** Examples
> 
> 
> 
>   # make sure social is a factor:
>   
>   cldata<-within(cldata, social<-factor(social))
>   
>   # we define the data frame with all the variables 
>   
>   data<-cldata[,c("measure","age", "social", "city")]
>   
>   # And the formula of the substantive lm model 
>   # social as an outcome only because it is the only ordinal variable in the dataset...
>   
>   formula<-as.formula(social~age+measure+(1|city))
>   
>   #And finally we run the imputation function:
>   
>   imp<-jomo.clmm(formula,data, nburn=2, nbetween=2, nimp=2)
This function is beta software. Please use carefully and report any bug to the package mantainer

 *** caught segfault ***
address e0085472, cause 'memory not mapped'

Traceback:
 1: drop(B1 %*% par[1:(nalpha + nbeta)])
 2: eval(substitute(expr), data, enclos = parent.frame())
 3: eval(substitute(expr), data, enclos = parent.frame())
 4: with.default(rho, {    tau <- exp(par[nalpha + nbeta + 1:ntau])    eta1Fix <- drop(B1 %*% par[1:(nalpha + nbeta)])    eta2Fix <- drop(B2 %*% par[1:(nalpha + nbeta)])})
 5: with(rho, {    tau <- exp(par[nalpha + nbeta + 1:ntau])    eta1Fix <- drop(B1 %*% par[1:(nalpha + nbeta)])    eta2Fix <- drop(B2 %*% par[1:(nalpha + nbeta)])})
 6: nllBase.uC(rho)
 7: update.uC(rho)
 8: obj.fun(rho, par)
 9: objective(.par, ...)
10: nlminb(rho$par, function(par) obj.fun(rho, par), control = control)
11: doTryCatch(return(expr), name, parentenv, handler)
12: tryCatchOne(expr, names, parentenv, handlers[[1L]])
13: tryCatchList(expr, classes, parentenv, handlers)
14: 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))})
15: try(nlminb(rho$par, function(par) obj.fun(rho, par), control = control),     silent = TRUE)
16: clmm.fit.ssr(rho, control = control$optCtrl, method = control$method,     Hess)
17: ordinal::clmm(formula, data = data, na.action = na.omit, Hess = T,     link = "probit")
18: jomo.clmm(formula, data, nburn = 2, nbetween = 2, nimp = 2)
An irrecoverable exception occurred. R is aborting now ...