## ---- echo = FALSE------------------------------------------------------------ knitr::opts_chunk$set(collapse = TRUE, comment = "#>") ## ---- echo = TRUE------------------------------------------------------------- a <- matrix(1:9, 3, 3, dimnames = list(c("AFR", "CPA", "EUR"), paste0("y", 2000:2002))) a ## ---- echo = TRUE------------------------------------------------------------- b <- array(1:18, dim = c(3, 3, 2), dimnames = list(paste0("y", 2000:2002), c("AFR", "CPA", "EUR"), c("IndexA", "IndexB"))) b ## ---- echo = TRUE------------------------------------------------------------- library(magclass) as.data.frame(b) as.data.frame(as.magpie(b)) ## ---- echo = TRUE------------------------------------------------------------- as.magpie(b) ## ---- echo = TRUE------------------------------------------------------------- ar <- array(1:6, c(3, 2), list(c("bla", "blub", "ble"), c("up", "down"))) a <- as.magpie(ar) head(a) getItems(a, dim = 3) getItems(a[, , "up"], dim = 3) getItems(a[, , "up", drop = TRUE], dim = 3) getItems(a, dim = 3, split = TRUE) ## ---- echo = TRUE------------------------------------------------------------- c <- as.magpie(b) # change order of spatial components d <- c[3:1, , ] # correct summation based on dimension names: c + d # wrong summation (dimension names ignored): as.array(c) + as.array(d)