inst/doc/magclass-concept.R

In magclass: Data Class and Tools for Handling Spatial-Temporal Data

## ----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)