Nothing
effectPlotsTRUE <- function(){
Library("effects")
.activeModel <- ActiveModel()
if (is.null(.activeModel) || !checkMethod("Effect", .activeModel)) return()
doItAndPrint('trellis.device(theme="col.whitebg")')
command <- paste("plot(allEffects(", .activeModel, "), ask=TRUE)", sep="")
justDoIt(command)
logger(command)
activateMenus()
NULL
}
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.