# \donttest{
if (requireNamespace("plot3D")) {
par(mfrow = c(2,2), oma = c(1,1,3,1))
# plot first box, saving projection and limits for later use
oldplot <- plot3D.IP(ipsecrdemo, box = 1)
# plot second box, using projections and limits from first box
plot3D.IP(ipsecrdemo, box = 2, oldplot, plotfinal = TRUE, zkludge = -0.1)
mtext(outer = TRUE, side = 3, line = 0.5, adj = c(0.2,0.8), cex = 1.1,
c('Parameter space', 'Proxy space'))
}
# }
Run the code above in your browser using DataLab