x <- list(list(matrix(c(1,2,3,2,4,5,3,5,6), 3),
matrix(c(2,3,4,3,5,6,4,6,7), 3)),
list(matrix(c(0.1,0.2,0.3,0.2,0.4,0.5,0.3,0.5,0.6), 3),
matrix(c(0.2,0.3,0.4,0.3,0.5,0.6,0.4,0.6,0.7), 3)))
as_kfsm(x)
summary(as_flat(x))
Run the code above in your browser using DataLab