diff options
author | Shivaram Venkataraman <shivaram@cs.berkeley.edu> | 2015-11-09 21:06:01 -0800 |
---|---|---|
committer | Shivaram Venkataraman <shivaram@cs.berkeley.edu> | 2015-11-09 21:06:01 -0800 |
commit | c4e19b3819df4cd7a1c495a00bd2844cf55f4dbd (patch) | |
tree | 1581b2a8a9e8962ffd6c46504af06295ffb75536 /R/pkg/inst | |
parent | 1431319e5bc46c7225a8edeeec482816d14a83b8 (diff) | |
download | spark-c4e19b3819df4cd7a1c495a00bd2844cf55f4dbd.tar.gz spark-c4e19b3819df4cd7a1c495a00bd2844cf55f4dbd.tar.bz2 spark-c4e19b3819df4cd7a1c495a00bd2844cf55f4dbd.zip |
[SPARK-11587][SPARKR] Fix the summary generic to match base R
The signature is summary(object, ...) as defined in
https://stat.ethz.ch/R-manual/R-devel/library/base/html/summary.html
Author: Shivaram Venkataraman <shivaram@cs.berkeley.edu>
Closes #9582 from shivaram/summary-fix.
Diffstat (limited to 'R/pkg/inst')
-rw-r--r-- | R/pkg/inst/tests/test_mllib.R | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/R/pkg/inst/tests/test_mllib.R b/R/pkg/inst/tests/test_mllib.R index 2606407bdc..42287ea19a 100644 --- a/R/pkg/inst/tests/test_mllib.R +++ b/R/pkg/inst/tests/test_mllib.R @@ -113,3 +113,9 @@ test_that("summary coefficients match with native glm of family 'binomial'", { rownames(stats$Coefficients) == c("(Intercept)", "Sepal_Length", "Sepal_Width"))) }) + +test_that("summary works on base GLM models", { + baseModel <- stats::glm(Sepal.Width ~ Sepal.Length + Species, data = iris) + baseSummary <- summary(baseModel) + expect_true(abs(baseSummary$deviance - 12.19313) < 1e-4) +}) |