src/test/TEST R/checkOutput.R

   1 checkOutput = function(varName, matrix, refMatrix, tol){
   2   print('Checking %s\n',varName);
   3   maxError = max(max(max(max(abs(matrix - refMatrix)))));
   4   if(maxError >= tol){
   5     print('Inaccuracy: max(abs(error)) = %g >= %g\n',maxError,tol)
   6   }
   7   else{
   8     print('OK\n')
   9   }
  10 }