From 41e51e5f3f57daa46343d1ac34a2049106fab8cb Mon Sep 17 00:00:00 2001 From: wilcrofter Date: Mon, 30 Jun 2014 07:21:46 -0400 Subject: [PATCH 1/2] In Central Tendency, masked old runTest.equivalent with custom test which wraps omnitest. --- Data_Analysis/Central_Tendency/customTests.R | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/Data_Analysis/Central_Tendency/customTests.R b/Data_Analysis/Central_Tendency/customTests.R index 4996f25f..ae5a177c 100755 --- a/Data_Analysis/Central_Tendency/customTests.R +++ b/Data_Analysis/Central_Tendency/customTests.R @@ -8,4 +8,13 @@ runTest.exact <- function(keyphrase,e){ is.correct <- abs(e$val-correct.ans) <= epsilon } return(isTRUE(is.correct)) -} \ No newline at end of file +} + +# Returns TRUE if as.expression +# (e$expr) matches the expression indicated to the right +# of "=" in keyphrase +# keyphrase:equivalent=expression +runTest.equivalent <- function(keyphrase,e) { + print(omnitest(rightside(keyphrase))) + return(omnitest(rightside(keyphrase))) +} From 40c4c14e473d551aba37153795c1eddbadcfccf8 Mon Sep 17 00:00:00 2001 From: wilcrofter Date: Mon, 30 Jun 2014 07:25:06 -0400 Subject: [PATCH 2/2] minor change --- Data_Analysis/Central_Tendency/customTests.R | 1 - 1 file changed, 1 deletion(-) diff --git a/Data_Analysis/Central_Tendency/customTests.R b/Data_Analysis/Central_Tendency/customTests.R index ae5a177c..6a76f739 100755 --- a/Data_Analysis/Central_Tendency/customTests.R +++ b/Data_Analysis/Central_Tendency/customTests.R @@ -15,6 +15,5 @@ runTest.exact <- function(keyphrase,e){ # of "=" in keyphrase # keyphrase:equivalent=expression runTest.equivalent <- function(keyphrase,e) { - print(omnitest(rightside(keyphrase))) return(omnitest(rightside(keyphrase))) }