# array form
feemcube(
array(1:24, c(4, 3, 2)), # 3-way array obtained elsewhere
seq(340, 400, len = 4), seq(250, 300, len = 3) # wavelengths
)
# list form
feemcube(
replicate(2, feem( # list of feem objects
matrix(1:6, 2), c(340, 400), c(250, 275, 300)
), FALSE),
TRUE
)
str(as.list(feemcube(array(1:60, 3:5), 1:3, 1:4)))
Run the code above in your browser using DataLab