"landscape.write" <-
function(rland, fn = "filename")
{
if (is.landscape(rland))
.Call("write_landscape",fn,rland,PACKAGE = "kernelPop2")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.