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

checkOutput = function(varName, array, refArray, tol)
{
	print(paste("Checking ",varName,sep=""))
	maxError = max(abs(array - refArray))
	if(maxError >= tol)
	{
		print(paste("Inaccuracy: max(abs(error)) = ",maxError," >= ",tol,sep=""))
	} else
	{
		print("OK")
	}
}
Commit	Line	Data
	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	}