# NOT RUN {
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