Merge pull request swirldev#24 from swirldev/runTest_equivalent

Solves swirl issue swirldev#171 for Data Analysis, Central Tendency
map0logo · Jul 1, 2014 · 841bf91 · 841bf91
2 parents b1d4788 + 40c4c14
commit 841bf91
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/Data_Analysis/Central_Tendency/customTests.R b/Data_Analysis/Central_Tendency/customTests.R
@@ -8,4 +8,12 @@ runTest.exact <- function(keyphrase,e){
     is.correct <- abs(e$val-correct.ans) <= epsilon
   }
   return(isTRUE(is.correct))
-}
+}
+
+# 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) {
+  return(omnitest(rightside(keyphrase)))
+}