m <- matrix(c(0, 0, 0, 0, 0, 0,
0, 2, 2, 2, 2, 0,
0, 2, 0, 0, 2, 0,
0, 2, 0, 0, 2, 0,
0, 2, 2, 2, 2, 0,
0, 0, 0, 0, 0, 0), 6, 6, byrow = TRUE)
plot_iso(m, 0.5, 1.5)
Run the code above in your browser using DataLab