swh:1:snp:a4c99a50dc49f82b591f268001b320f8c3ca0041
Tip revision: dc000f2a5f006d137f66716b086025d618bf8306 authored by John M Chambers on 14 July 2008, 00:00:00 UTC
version 1.0-5
version 1.0-5
Tip revision: dc000f2
testSdFun.R
## 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
}