EMGLLF in R
[valse.git] / 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 }