Nothing
plot.exposure.levels <- function( x, col = "blue", ... ){
if( .Device == "null device") stop("plot.vitd.curve must be called before plot.exposure.levels")
n <- nrow(x[[1]])
time <- x[[1]]
for( i in 1:n ) points( time[i,], x[[2]][i,], col=col, ... )
}
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.