m <-data.frame()
x <- sapply(sapply(ls(), get), is.data.frame)
m <- data.frame(names(x)[(x == TRUE)])
LogisticModelDevelopment(m)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.