revdep/checks.noindex/pmml/old/pmml.Rcheck/tests/testthat/test_save_pmml.R
In gbm-developers/gbm: Generalized Boosted Regression Models
tmp_file <- tempfile()
teardown(unlink(tmp_file))
test_that("save_pmml() outputs correct marker for Zementis Server", {
iris_lm <- lm(Sepal.Length ~ ., data = iris)
iris_lm_pmml <- pmml(iris_lm)
save_pmml(iris_lm_pmml, tmp_file)
loaded_pmml <- xmlParse(file = tmp_file)
expect_equal(capture.output(loaded_pmml)[2], "<!--(Comment generated by ADAPA) PMML processed by ADAPA (Version : 4.4)-->")
})
gbm-developers/gbm documentation built on Feb. 16, 2024, 6:13 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
tmp_file <- tempfile()
teardown(unlink(tmp_file))
test_that("save_pmml() outputs correct marker for Zementis Server", {
iris_lm <- lm(Sepal.Length ~ ., data = iris)
iris_lm_pmml <- pmml(iris_lm)
save_pmml(iris_lm_pmml, tmp_file)
loaded_pmml <- xmlParse(file = tmp_file)
expect_equal(capture.output(loaded_pmml)[2], "<!--(Comment generated by ADAPA) PMML processed by ADAPA (Version : 4.4)-->")
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.