[valse.git] / src / test / generate_test_data / R_test_helpers / checkOutput.R

checkOutput = function(varName, matrix, refMatrix, tol){
  print('Checking %s\n',varName);
  maxError = max(max(max(max(abs(matrix - refMatrix)))));
  if(maxError >= tol){
    print('Inaccuracy: max(abs(error)) = %g >= %g\n',maxError,tol)
  }
  else{
    print('OK\n')
  }
}
Commit	Line	Data
f8a1fd7c BG	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	}