Nothing
plot.interact <-
function(x, numInteractions = nrow(x$interaction.ordered), ...){
plot(1:numInteractions, (x$interaction.ordered)$qval[1:numInteractions], ylab = "FDR estimate", xlab = "Number of Interactions called significant", type = 'b',...)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.