脚本如下：
reimpute <- TRUE
doParallel <- FALSE
randomFrac <- 1
if(reimpute == TRUE)
{
  imputations <- amelia(mydata, m=2,
                        idvars=c("threatonly","imposition","Groups"),
                        ords=c("Ally","US","IO","atcosts","ctcost","Trsuccess",
                               "tcosts","Msenders","Lrsuccess","Rsucess","Tsuccess"))
  write.amelia(obj = imputations,file.stem = "impdata_test", format="dta")
  complete.datasets <- imputations$imputations
  save(complete.datasets, file="CompleteDatasets.Rdata")
}
if(reimpute == FALSE) load("CompleteDatasets.Rdata")

但是现在出不来插补后的数据集，一直在跳这个，停不了，