X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=src%2Ftest%2FTEST%20R%2FcheckOutput.R;fp=src%2Ftest%2FTEST%20R%2FcheckOutput.R;h=0000000000000000000000000000000000000000;hb=0f51ccae09947bf5e13657eda3bb4b83d0734621;hp=1faddaa8fef58a5080627a3c71410e9d76d66f97;hpb=3f073c45246e3d393510a786dbacb8d29dc536bb;p=valse.git

diff --git a/src/test/TEST R/checkOutput.R b/src/test/TEST R/checkOutput.R
deleted file mode 100644
index 1faddaa..0000000
--- a/src/test/TEST R/checkOutput.R	
+++ /dev/null
@@ -1,10 +0,0 @@
-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')
-  }
-}
\ No newline at end of file