Как перекодировать переменные в 5 объединенных выходных данных Amelia одновременно?

Я использую Amelia и Zelig в R для множественного вменения моих наборов данных с неочищенными переменными. Воспроизводимый набор данных находится в пакете Zelig.

require(Zelig)
require(Amelia)
data(freetrade)
a.out <- amelia(freetrade, m = 5, ts = "year", cs = "country")

Я хочу перекодировать переменную в 5 объединенных наборах данных, например:

> polity <- polity-1

Есть ли какая-либо функция, которая могла бы автоматически повторяться 5 раз для 5 наборов данных MI вместо вызова каждого a.out$imputations[[1]], a.out$imputations[[2]]....., а затем выполнять следующий анализ.

> z.out <- zelig(tariff ~ polity + pop + gdp.pc + year +
+ country, data = freetrade, model = "ls")
> summary(z.out)

Дайте мне знать, если это имеет смысл. Как и требует Чейз, выше приведен пример от Zelig. Но я использовал свой собственный набор данных, как показано ниже:

require(Amelia)
a.out <- amelia(MIV5, m=5, idvars = c("STU_ID", "SCH_ID", "BYSTUWT", "BYRACE",
                "F1SES2","F1TXMSTD", "F2HSSTAT", "BYTXMSTD", "BYURBAN",
                "BYTXRSTD", "BYTXCSTD", "BYNELS2M", "BYNELS2R", "BYNELS0M", 
                "BYPISAME", "BYPISARE", "BYTXMIRR", "BYTXMQU"), 
                noms = c("BYSEX", "BYSTLANG", "F2B07", "F2EVRAPP"),
                ords= c ("BYSTEXP","F1SES2QU"), p2c=0)

Теперь дело в том, что мне нужно перекодировать и очистить переменные, такие как преобразование фактора «BYRACE» в числовую «гонку» и получение математической оценки:

race <- as.numeric(BYRACE)  
mthgn <- F1TXMSTD-BYTXMSTD

Спасибо!