| 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 | } |