Nothing
# Last modified: 2012-06-15 by Andrew Heiss
#--------------------------------------------
# Run `str()` on the active dataset
checkStructure <- function() {
doItAndPrint(paste("str(", ActiveDataSet(), ")", sep = ""))
}
# Run `DataframeSummary()` on the active dataset
# TODO: Create a dialog that allows the user to toggle and specify confidence levels
summarizeDataframe <- function() {
doItAndPrint(paste("DataframeSummary(", ActiveDataSet(), ")", sep = ""))
}
# Calculate the factor change coefficients (e^b) for the
# current logistic regression model
factorChange <- function() {
.activeModel <- ActiveModel()
doItAndPrint(paste("exp(coef(", .activeModel, "))", sep = ""))
}
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.