exp_byname(1)
m <- matrix(c(log(10),log(1),
log(1),log(100)),
byrow = TRUE, nrow = 2, ncol = 2,
dimnames = list(paste0("i", 1:2), paste0("c", 1:2))) %>%
setrowtype("Industry") %>% setcoltype("Commodity")
m
exp_byname(m)
Run the code above in your browser using DataLab