m <- rbind(
c(1, 2),
c(3, 4),
c(3, 4),
c(5, 6),
c(7, 7)
)
# layout.show(7)
layout(m)
par(mar = c(0,0,0,0), oma = c(0.5, 0.5, 0.5, 0.5))
plot(1, type = "n", axes = FALSE)
box(col = "grey50")
plot(1, type = "n", axes = FALSE)
box(col = "grey50")
plot(1, type = "n", axes = FALSE)
box(col = "grey50")
plot(1, type = "n", axes = FALSE)
box(col = "grey50")
plot(1, type = "n", axes = FALSE)
box(col = "grey50")
plot(1, type = "n", axes = FALSE)
box(col = "grey50")
plot(1, type = "n", axes = FALSE)
box(col = "grey50")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.