Contours <-
function(xvec,yvec,matrix,levels) {
flipmat = t(matrix[nrow(matrix):1,])
conts = contourLines(xvec,yvec,flipmat,levels=levels)
for (i in 1:length(conts)) {
lines(conts[[i]]$x,conts[[i]]$y,col="dark grey")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.