Nothing
context("test-dominanceanalysis-reports")
x1<-rnorm(100)
x2<-0.5*x1+rnorm(100)
x3<-2*x1+x2+rnorm(100)
y<-x1+x2+x3+rnorm(100)
test_that("dominanceAnalysis print and summary methods works", {
da<-dominanceAnalysis(lm(y~x3+x2+x1))
expect_output(print(da),"x2,x1")
expect_equal(length(summary(da)$r2$average.contribution), 3)
expect_equal(dim(summary(da)$r2$summary.matrix), c(10,6))
})
test_that("dominanceAnalysis print and summary methods works with manual terms", {
da<-dominanceAnalysis(x = lm(y~x3+x2+x1), terms = c("x1+x2","x3"))
expect_output(print(da),"x1\\+x2, x3")
expect_equal(length(summary(da)$r2$average.contribution), 2)
expect_equal(dim(summary(da)$r2$summary.matrix), c(5,5))
})
test_that("dominanceAnalysis print and summary methods words when constants used", {
da<-dominanceAnalysis(lm(y~x3+x2+x1),constants = "x3")
s.da<-summary(da)
expect_output(print(da),"Constants: x3")
expect_equal(dim(s.da$r2$summary.matrix), c(5,5))
expect_output(print(s.da),"Average level 1")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.