# Load data
df.io <- array(c(2, 4, 8, 4, 1, 2, 2, 2, 3, 6, 12, 6,
5, 4, 3, 8, 1, 1, 1, 1, 5, 4, 3, 8),
c(4, 3, 2),
dimnames = list(LETTERS[1:4], c("X", "Y", "z"), c("t1", "t2")))
df.Z.0 <- array(c(9, 12, 18, 24), c(4, 1), dimnames = list(LETTERS[1:4], c("Z^0")))
# Run
dm.dynamic.bc(df.io[,1,], df.io[,2,], df.io[,3,], df.Z.0)
Run the code above in your browser using DataLab