src/test/generate_test_data/helpers/checkOutput.R

   1 checkOutput = function(varName, array, refArray, tol)
   2 {
   3     print(paste("Checking ",varName,sep=""))
   4     maxError = max(abs(array - refArray))
   5     if(maxError >= tol)
   6     {
   7         print(paste("Inaccuracy: max(abs(error)) = ",maxError," >= ",tol,sep=""))
   8     } else
   9     {
  10         print("OK")
  11     }
  12 }