x <- (matrix(1:10, ncol=2))
x2 <- coo_close(x)
x3 <- coo_unclose(x2)
x
is_closed(x)
x2
is_closed(x2)
x3
is_closed(x3)
x <- (matrix(1:10, ncol=2))
x2 <- coo_close(x)
x3 <- coo_unclose(x2)
x
is_closed(x)
x2
is_closed(x2)
x3
is_closed(x3)
Run the code above in your browser using DataLab