Nothing
## the body of this function is the example for single values in data.tex
testSd <- function(sdev, eps ) {
Wt <- Inf
testSd <- try(min(sdev) > eps)
if(identical(testSd, TRUE))
Wt <- 1/sdev
else if(!identical(testSd, FALSE)) {
if(is(testSd, "try-error"))
stop("Encountered error in testing sdev \"",
testSd, "\"")
else
stop("Testing sdev produced an invalid result: ",
summaryString(testSd))
}
Wt
}
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.