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         print(paste("Inaccuracy: max(abs(error)) = ",maxError," >= ",tol,sep=""))
   7     } else{
   8         print("OK")
   9     }
  10 }