Skip to content

Instantly share code, notes, and snippets.

@mja
Created February 6, 2009 10:05
Show Gist options
  • Save mja/59310 to your computer and use it in GitHub Desktop.
Save mja/59310 to your computer and use it in GitHub Desktop.
*** caught bus error ***
address 0x8, cause 'non-existent physical address'
Traceback:
1: .C("MCMCglmm", as.double(data$MCMC_y), as.double(data$MCMC_y.additional), as.double(data$MCMC_liab), as.integer(mvtype), as.integer(length(data$MCMC_y)), as.integer(X@i), as.integer(X@p), as.double(X@x), as.integer(X@Dim), as.integer(length(X@x)), as.integer(Z@i), as.integer(Z@p), as.double(Z@x), as.integer(Z@Dim), as.integer(length(Z@x)), as.integer(A@i), as.integer(A@p), as.double(A@x), as.integer(A@Dim), as.integer(length(A@x)), as.double(MSsd), as.integer(id - 1), as.integer(dam - 1), as.integer(sire - 1), as.integer(PedDim), as.integer(Aterm), as.integer(nfl), as.integer(nrl), as.integer(update), as.integer(split - 1), as.integer(c(nG, nR)), as.double(GRinv), as.double(GRvpP), as.double(GRnpP), as.integer(nitt), as.integer(thin), as.integer(burnin), as.integer(c(pr, pl)), as.double(Loc), as.double(Var), as.double(PLiab), as.integer(data$MCMC_family.names), as.double(c(unlist(tune))), as.integer(verbose), as.double(BvpP), as.double(BmupP), as.integer(mfac), as.integer(observed), as.integer(diagP), as.integer(AMtune))
2: MCMCglmm(extraversion ~ 1, random = ~animal, data = personality, pedigree = Orang.ped)
3: eval.with.vis(expr, .GlobalEnv, baseenv())
4: doTryCatch(return(expr), name, parentenv, handler)
5: tryCatchOne(expr, names, parentenv, handlers[[1]])
6: tryCatchList(expr, classes, parentenv, handlers)
7: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1]], quote(doTryCatch))) call <- sys.call(-4) dcall <- deparse(call)[1] prefix <- paste("Error in", dcall, ": ") LONG <- 75 msg <- conditionMessage(e) sm <- strsplit(msg, "\n")[[1]] if (14 + nchar(dcall, type = "w") + nchar(sm[1], type = "w") > LONG) prefix <- paste(prefix, "\n ", sep = "") } else prefix <- "Error : " msg <- paste(prefix, conditionMessage(e), "\n", sep = "") .Internal(seterrmessage(msg[1])) if (!silent && identical(getOption("show.error.messages"), TRUE)) { cat(msg, file = stderr()) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error"))})
8: try(.Internal(eval.with.vis(expr, .GlobalEnv, baseenv())), silent = TRUE)
9: evalFunc(ce, options)
10: driver$runcode(drobj, chunk, chunkopts)
11: Sweave("personality.glmm.Snw")
aborting ...
/Library/Frameworks/R.framework/Resources/bin/Sweave: line 30: 29496 Done echo "library(\"utils\"); Sweave(\"$1\")"
29497 Bus error | "${R_EXE}" --no-restore --slave
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment