d <- new.magpie(c("AFR.BLUB.1", "AFR.BLUB.2", "EUR.BLUB.1",
"AFR.BLA.1", "AFR.BLA.2", "EUR.BLA.1"), fill = 1)
getSets(d)[1:3] <- c("reg", "b", "i")
e <- new.magpie(c("BLA.AFR.A", "BLA.EUR.A", "BLUB.AFR.A", "BLUB.EUR.A",
"BLA.AFR.B", "BLA.EUR.B", "BLUB.AFR.B", "BLUB.EUR.B"), fill = 2)
getSets(e)[1:3] <- c("b", "reg", "a")
magclass:::magpie_expand_dim(d, e, dim = 1)
Run the code above in your browser using DataLab