Nothing
"LCcompare" <-
function (envir)
{
if (!is.environment(envir))
stop("The envir argument to LCcompare() must be an existing environment created by LCsetup().")
aggdf <- get("aggdf", envir=envir)
Type <- aggdf[1,1]
boxdf <- get("boxdf", envir=envir)
# Sort boxdf into ascending values of its 2nd column, K = # Clusters
boxdf = boxdf[order(boxdf$K),]
opar <- par(no.readonly = TRUE)
on.exit(par(opar))
boxplot(LCstat ~ K, data=boxdf, ann=FALSE, col="lightgray")
abline(h = boxdf[1,1], lty = 2, col = "red")
abline(h = 0, lty = 1, col = "blue2")
if (Type == "LRC") {
title( main = "Box-Whisker comparison of LRC Distributions",
ylab = "Local Rank Correlation (LRC)", xlab = "K = Number of Clusters")
} else {
title( main = "Box-Whisker comparison of LTD Distributions",
ylab = "Local Treatment Difference (LTD)", xlab = "K = Number of Clusters")
}
assign("boxdf", boxdf, envir=envir) # Save Sorted boxdf
}
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.