Nothing
BOXWP <- function () {
defaults <- list(initial.group = NULL, initial.response = NULL)
dialog.values <- getDialog("Boxplots", defaults)
initializeDialog(title = gettextRcmdr("Boxplots by group"),
window=top)
groupBox <- variableListBox(top, Factors(), selectmode = "multiple",
title = gettextRcmdr("Factors (pick one or more)"),
initialSelection =
varPosn(dialog.values$initial.group,
"factor"))
responseBox <- variableListBox(top,
Numeric(),
title = gettextRcmdr(
"Response Variable(pick one)"),
initialSelection =
varPosn(dialog.values$initial.response,
"numeric"))
onOK <- function() {
groups <- getSelection(groupBox)
response <- getSelection(responseBox)
putDialog ("BoxplotByGroup", list (initial.group =groups,
initial.response = response))
closeDialog()
if (length(groups) == 0) {
errorCondition(recall = BOXWP,
message = gettextRcmdr(
"You must select at least one factor."))
return()
}
if (length(response) == 0) {
errorCondition(recall = BOXWP,
message = gettextRcmdr(
"You must select a response variable."))
return()
}
.activeDataSet <- ActiveDataSet()
groups.list <- paste(paste(groups, "=", .activeDataSet,
"$", groups, sep =""),
collapse = ", ")
doItAndPrint(paste("bwplot(~", response, " | ",
paste(groups, collapse = "*"), ", data=",
.activeDataSet, ")", sep = ""))
tkfocus(CommanderWindow())
}
OKCancelHelp(helpSubject = "bwplot", reset = "BOXWP")
tkgrid(getFrame(groupBox), getFrame(responseBox), sticky = "nw")
tkgrid(buttonsFrame, columnspan = 2, sticky = "w")
dialogSuffix(rows = 4, columns = 2)
}
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.