Run Amelia in parallel

gistfile1.r

library("Amelia")
library("foreach")
## or backend of choice
library("doMC")
registerDoMC()

ameliapar <- function(x, m=5, p2s=0, ...) {
    impdata <- foreach (i = 1:m,
                        .combine = "c",
                        .packages="Amelia") %dopar% {
                            amelia(x, m=1, p2s=p2s, ...)
                        }
    if (all(sapply(impdata, class) == "amelia")) {
        impdata <- do.call(ameliabind, impdata)
    }
    impdata
}

data(africa)
a.out <- amelia(m = 10, x = africa, cs = "country",
                ts = "year", logs = "gdp_pc", .parallel=TRUE, p2s=0)