# NOT RUN {
# write a test matrix
obj2kvh(list(comment="this is a test matrix", m=diag(2)), "li", "test.kvh")
# read it back
mr=kvh_get_matrix(file("test.kvh"), c("li", "m"))
# clean
unlink("test.kvh")
# }
Run the code above in your browser using DataLab