added stricter threshold in checkmodel, and added higher accuracy by …

…default
vjkr · Feb 28, 2015 · f17c7ee · f17c7ee
1 parent cbb48f1
commit f17c7ee
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/tests/Utils/glmR.R b/R/tests/Utils/glmR.R
@@ -38,6 +38,6 @@ checkGLMModel2 <- function(myGLM.h2o, myGLM.r) {
   print(sort(myGLM.h2o@model$coefficients))
   print("R Coefficients")
   print(sort(coeff.R))
-  checkEqualsNumeric(myGLM.h2o@model$deviance, deviance(myGLM.r), tolerance = 0.5)
-  checkEqualsNumeric(sort(myGLM.h2o@model$coefficients), sort(coeff.R), tolerance = 1.5)
+  checkEqualsNumeric(myGLM.h2o@model$deviance, deviance(myGLM.r), tolerance = 0.1)
+  checkEqualsNumeric(sort(myGLM.h2o@model$coefficients), sort(coeff.R), tolerance = 0.5)
 }
diff --git a/R/tests/testdir_jira/runit_hex_2022_GLM_beta_constraints.R b/R/tests/testdir_jira/runit_hex_2022_GLM_beta_constraints.R
@@ -48,7 +48,7 @@ test.LR.betaConstraints <- function(conn) {
     betaConstraints.hex$lower_bounds = lower_bound
 
     Log.info(paste("Run H2O's GLM with :", "family =", family_type, ", alpha =", alpha, ", standardization =", standardization, "..."))
-    glm_constraints.h2o = h2o.glm(x = myX, y = myY, data = prostate.hex, standardize = standardization,
+    glm_constraints.h2o = h2o.glm(x = myX, y = myY, data = prostate.hex, standardize = standardization, higher_accuracy = T,
                                   family = family_type, alpha = alpha , beta_constraints = betaConstraints.hex)
     lambda = glm_constraints.h2o@model$lambda