Nothing
plot.swgee <-
function(x, covariate, ...)
{
if(is.na(match(as.character(covariate), all.vars(x$formula))))
stop("covariate not specified in the formula")
plot(x$simex.plot[,covariate] ~ x$simex.plot$lambda, type="b", xlab = expression(lambda), ylab=as.character(covariate))
}
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.