https://github.com/cran/fields
Tip revision: ce722edae3c1b9e1af2985ce3500b11058facf0e authored by Doug Nychka on 24 August 2006, 01:46:17 UTC
version 3.04
version 3.04
Tip revision: ce722ed
test.for.zero.R
test.for.zero<- function( xtest,xtrue, tol= 1.0e-8, relative=TRUE,
tag=NULL){
if( !is.null(tag)){
cat( "testing: ", tag, fill=TRUE)}
denom<- ifelse( relative, mean( abs(c(xtrue))),1.0)
test.value<- sum( abs(c(xtest) - c( xtrue) ) ) /denom
if( test.value < tol ){
cat("** PASSED test at tolerance ", tol, fill=TRUE)}
else{ cat( "## FAILED test value = ", test.value, " at tolerance ", tol,
fill=TRUE)}
}