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

> ### Name: LD.Measures
> ### Title: LD Measures
> ### Aliases: LD.Measures
> 
> ### ** Examples
> 
> data(data.test)
> Geno <- data.test[[1]]
> V.WAIS <- data.test[[2]]
> S.2POP <- data.test[[3]]
> 
> LD <- LD.Measures(Geno, V = V.WAIS, S = S.2POP, data = "G", supinfo = TRUE, na.presence = TRUE)

 *** caught segfault ***
address 0x110, cause 'invalid permissions'

Traceback:
 1: Inv.proj.matrix.sdp(V)
 2: Measure.R2V(biloci = lij, V = V, na.presence = na.presence)
 3: FUN(X[[i]], ...)
 4: lapply(X = X, FUN = FUN, ...)
 5: sapply((i + 1):(ncol(donnees)), function(j) {    li <- donnees[, i]    lj <- donnees[, j]    lij <- cbind(li, lj)    loc1 <- c(loc1, mark[i])    loc2 <- c(loc2, mark[j])    M.r2 <- Measure.R2(biloci = lij, na.presence = na.presence)    if (!S.yes)         M.r2s <- Measure.R2S(biloci = lij, struc = S, na.presence = na.presence)    if (!V.yes) {        if (!na.presence)             M.r2v <- Measure.R2V(biloci = lij, V = V, na.presence = na.presence,                 V_inv = V_inv)        else M.r2v <- Measure.R2V(biloci = lij, V = V, na.presence = na.presence)    }    if (!S.yes & !V.yes) {        if (!na.presence)             M.r2vs <- Measure.R2VS(biloci = lij, V = V, struc = S,                 na.presence = na.presence, V_inv = V_inv)        else M.r2vs <- Measure.R2VS(biloci = lij, V = V, struc = S,             na.presence = na.presence)    }    r2 <- c(r2, M.r2)    r2s <- c(r2s, M.r2s)    r2v <- c(r2v, M.r2v)    r2vs <- c(r2vs, M.r2vs)    if (supinfo) {        M.MAF.loc1 <- NA        M.heterofreq.loc1 <- NA        M.NAfreq.loc1 <- NA        M.MAF.loc2 <- NA        M.heterofreq.loc2 <- NA        M.NAfreq.loc2 <- NA        supinfo.li <- info[, which(colnames(info) == mark[i])]        supinfo.lj <- info[, which(colnames(info) == mark[j])]        M.MAF.loc1 <- supinfo.li[1]        M.heterofreq.loc1 <- supinfo.li[2]        M.NAfreq.loc1 <- supinfo.li[3]        M.MAF.loc2 <- supinfo.lj[1]        M.heterofreq.loc2 <- supinfo.lj[2]        M.NAfreq.loc2 <- supinfo.lj[3]        MAF.loc1 <- c(MAF.loc1, M.MAF.loc1)        heterofreq.loc1 <- c(heterofreq.loc1, M.heterofreq.loc1)        NAfreq.loc1 <- c(NAfreq.loc1, M.NAfreq.loc1)        MAF.loc2 <- c(MAF.loc2, M.MAF.loc2)        heterofreq.loc2 <- c(heterofreq.loc2, M.heterofreq.loc2)        NAfreq.loc2 <- c(NAfreq.loc2, M.NAfreq.loc2)    }    res <- c(as.matrix(loc1), as.matrix(loc2), r2, r2s, r2v,         r2vs, MAF.loc1, heterofreq.loc1, NAfreq.loc1, MAF.loc2,         heterofreq.loc2, NAfreq.loc2)})
 6: FUN(X[[i]], ...)
 7: lapply(X = S, FUN = FUN, ...)
 8: doTryCatch(return(expr), name, parentenv, handler)
 9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
10: tryCatchList(expr, classes, parentenv, handlers)
11: 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, nlines = 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))})
12: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
13: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
14: FUN(X[[i]], ...)
15: lapply(seq_len(cores), inner.do)
16: mclapply(1:(ncol(donnees) - 1), function(i) {    res <- sapply((i + 1):(ncol(donnees)), function(j) {        li <- donnees[, i]        lj <- donnees[, j]        lij <- cbind(li, lj)        loc1 <- c(loc1, mark[i])        loc2 <- c(loc2, mark[j])        M.r2 <- Measure.R2(biloci = lij, na.presence = na.presence)        if (!S.yes)             M.r2s <- Measure.R2S(biloci = lij, struc = S, na.presence = na.presence)        if (!V.yes) {            if (!na.presence)                 M.r2v <- Measure.R2V(biloci = lij, V = V, na.presence = na.presence,                   V_inv = V_inv)            else M.r2v <- Measure.R2V(biloci = lij, V = V, na.presence = na.presence)        }        if (!S.yes & !V.yes) {            if (!na.presence)                 M.r2vs <- Measure.R2VS(biloci = lij, V = V, struc = S,                   na.presence = na.presence, V_inv = V_inv)            else M.r2vs <- Measure.R2VS(biloci = lij, V = V,                 struc = S, na.presence = na.presence)        }
 *** caught segfault ***
address 0x110, cause 'invalid permissions'
        r2 <- c(r2, M.r2)        r2s <- c(r2s, M.r2s)        r2v <- c(r2v, M.r2v)        r2vs <- c(r2vs, M.r2vs)        if (supinfo) {            M.MAF.loc1 <- NA            M.heterofreq.loc1 <- NA            M.NAfreq.loc1 <- NA            M.MAF.loc2 <- NA            M.heterofreq.loc2 <- NA            M.NAfreq.loc2 <- NA            supinfo.li <- info[, which(colnames(info) == mark[i])]            supinfo.lj <- info[, which(colnames(info) == mark[j])]            M.MAF.loc1 <- supinfo.li[1]            M.heterofreq.loc1 <- supinfo.li[2]            M.NAfreq.loc1 <- supinfo.li[3]            M.MAF.loc2 <- supinfo.lj[1]            M.heterofreq.loc2 <- supinfo.lj[2]            M.NAfreq.loc2 <- supinfo.lj[3]            MAF.loc1 <- c(MAF.loc1, M.MAF.loc1)            heterofreq.loc1 <- c(heterofreq.loc1, M.heterofreq.loc1)            NAfreq.loc1 <- c(NAfreq.loc1, M.NAfreq.loc1)            MAF.loc2 <- c(MAF.loc2, M.MAF.loc2)            heterofreq.loc2 <- c(heterofreq.loc2, M.heterofreq.loc2)            NAfreq.loc2 <- c(NAfreq.loc2, M.NAfreq.loc2)        }        res <- c(as.matrix(loc1), as.matrix(loc2), r2, r2s, r2v,             r2vs, MAF.loc1, heterofreq.loc1, NAfreq.loc1, MAF.loc2,             heterofreq.loc2, NAfreq.loc2)    })    RES <- cbind(RES, res)})
17: LD.Measures(Geno, V = V.WAIS, S = S.2POP, data = "G", supinfo = TRUE,     na.presence = TRUE)
An irrecoverable exception occurred. R is aborting now ...

Traceback:
 1: Inv.proj.matrix.sdp(V)
 2: Measure.R2V(biloci = lij, V = V, na.presence = na.presence)
 3: FUN(X[[i]], ...)
 4: lapply(X = X, FUN = FUN, ...)
 5: sapply((i + 1):(ncol(donnees)), function(j) {    li <- donnees[, i]    lj <- donnees[, j]    lij <- cbind(li, lj)    loc1 <- c(loc1, mark[i])    loc2 <- c(loc2, mark[j])    M.r2 <- Measure.R2(biloci = lij, na.presence = na.presence)    if (!S.yes)         M.r2s <- Measure.R2S(biloci = lij, struc = S, na.presence = na.presence)    if (!V.yes) {        if (!na.presence)             M.r2v <- Measure.R2V(biloci = lij, V = V, na.presence = na.presence,                 V_inv = V_inv)        else M.r2v <- Measure.R2V(biloci = lij, V = V, na.presence = na.presence)    }    if (!S.yes & !V.yes) {        if (!na.presence)             M.r2vs <- Measure.R2VS(biloci = lij, V = V, struc = S,                 na.presence = na.presence, V_inv = V_inv)        else M.r2vs <- Measure.R2VS(biloci = lij, V = V, struc = S,             na.presence = na.presence)    }    r2 <- c(r2, M.r2)    r2s <- c(r2s, M.r2s)    r2v <- c(r2v, M.r2v)    r2vs <- c(r2vs, M.r2vs)    if (supinfo) {        M.MAF.loc1 <- NA        M.heterofreq.loc1 <- NA        M.NAfreq.loc1 <- NA        M.MAF.loc2 <- NA        M.heterofreq.loc2 <- NA        M.NAfreq.loc2 <- NA        supinfo.li <- info[, which(colnames(info) == mark[i])]        supinfo.lj <- info[, which(colnames(info) == mark[j])]        M.MAF.loc1 <- supinfo.li[1]        M.heterofreq.loc1 <- supinfo.li[2]        M.NAfreq.loc1 <- supinfo.li[3]        M.MAF.loc2 <- supinfo.lj[1]        M.heterofreq.loc2 <- supinfo.lj[2]        M.NAfreq.loc2 <- supinfo.lj[3]        MAF.loc1 <- c(MAF.loc1, M.MAF.loc1)        heterofreq.loc1 <- c(heterofreq.loc1, M.heterofreq.loc1)        NAfreq.loc1 <- c(NAfreq.loc1, M.NAfreq.loc1)        MAF.loc2 <- c(MAF.loc2, M.MAF.loc2)        heterofreq.loc2 <- c(heterofreq.loc2, M.heterofreq.loc2)        NAfreq.loc2 <- c(NAfreq.loc2, M.NAfreq.loc2)    }    res <- c(as.matrix(loc1), as.matrix(loc2), r2, r2s, r2v,         r2vs, MAF.loc1, heterofreq.loc1, NAfreq.loc1, MAF.loc2,         heterofreq.loc2, NAfreq.loc2)})
 6: FUN(X[[i]], ...)
 7: lapply(X = S, FUN = FUN, ...)
 8: doTryCatch(return(expr), name, parentenv, handler)
 9: tryCatchOne(expr, names, parentenv, handlers[[1L]])
10: tryCatchList(expr, classes, parentenv, handlers)
11: 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, nlines = 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))})
12: try(lapply(X = S, FUN = FUN, ...), silent = TRUE)
13: sendMaster(try(lapply(X = S, FUN = FUN, ...), silent = TRUE))
14: FUN(X[[i]], ...)
15: lapply(seq_len(cores), inner.do)
16: mclapply(1:(ncol(donnees) - 1), function(i) {    res <- sapply((i + 1):(ncol(donnees)), function(j) {        li <- donnees[, i]        lj <- donnees[, j]        lij <- cbind(li, lj)        loc1 <- c(loc1, mark[i])        loc2 <- c(loc2, mark[j])        M.r2 <- Measure.R2(biloci = lij, na.presence = na.presence)        if (!S.yes)             M.r2s <- Measure.R2S(biloci = lij, struc = S, na.presence = na.presence)        if (!V.yes) {            if (!na.presence)                 M.r2v <- Measure.R2V(biloci = lij, V = V, na.presence = na.presence,                   V_inv = V_inv)            else M.r2v <- Measure.R2V(biloci = lij, V = V, na.presence = na.presence)        }        if (!S.yes & !V.yes) {            if (!na.presence)                 M.r2vs <- Measure.R2VS(biloci = lij, V = V, struc = S,                   na.presence = na.presence, V_inv = V_inv)            else M.r2vs <- Measure.R2VS(biloci = lij, V = V,                 struc = S, na.presence = na.presence)        }        r2 <- c(r2, M.r2)        r2s <- c(r2s, M.r2s)        r2v <- c(r2v, M.r2v)        r2vs <- c(r2vs, M.r2vs)        if (supinfo) {            M.MAF.loc1 <- NA            M.heterofreq.loc1 <- NA            M.NAfreq.loc1 <- NA            M.MAF.loc2 <- NA            M.heterofreq.loc2 <- NA            M.NAfreq.loc2 <- NA            supinfo.li <- info[, which(colnames(info) == mark[i])]            supinfo.lj <- info[, which(colnames(info) == mark[j])]            M.MAF.loc1 <- supinfo.li[1]            M.heterofreq.loc1 <- supinfo.li[2]            M.NAfreq.loc1 <- supinfo.li[3]            M.MAF.loc2 <- supinfo.lj[1]            M.heterofreq.loc2 <- supinfo.lj[2]            M.NAfreq.loc2 <- supinfo.lj[3]            MAF.loc1 <- c(MAF.loc1, M.MAF.loc1)            heterofreq.loc1 <- c(heterofreq.loc1, M.heterofreq.loc1)            NAfreq.loc1 <- c(NAfreq.loc1, M.NAfreq.loc1)            MAF.loc2 <- c(MAF.loc2, M.MAF.loc2)            heterofreq.loc2 <- c(heterofreq.loc2, M.heterofreq.loc2)            NAfreq.loc2 <- c(NAfreq.loc2, M.NAfreq.loc2)        }        res <- c(as.matrix(loc1), as.matrix(loc2), r2, r2s, r2v,             r2vs, MAF.loc1, heterofreq.loc1, NAfreq.loc1, MAF.loc2,             heterofreq.loc2, NAfreq.loc2)    })    RES <- cbind(RES, res)})
17: LD.Measures(Geno, V = V.WAIS, S = S.2POP, data = "G", supinfo = TRUE,     na.presence = TRUE)
An irrecoverable exception occurred. R is aborting now ...
Warning in mclapply(1:(ncol(donnees) - 1), function(i) { :
  scheduled cores 1, 2 did not deliver results, all values of the jobs will be affected
Error in matrix(unlist(RES), nrow = length(RES[[1]][, 1])) : 
  'data' must be of a vector type, was 'NULL'
Calls: LD.Measures -> matrix
Execution halted