public code v1

bundles/flintstones.method.common.phase.collectweights.bestworst/r_files/helpers.R

@@ -0,0 +1,7 @@
+assert <- function(expression, message)
+{
+  if(!all(expression))
+  {
+    stop(if(is.null(message)) "Error" else message)
+  }
+}