projects
/
valse.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
1faddaa8fef58a5080627a3c71410e9d76d66f97
[valse.git]
/
src
/
test
/
generate_test_data
/
R_test_helpers
/
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
}