tests/testthat/test-list-terms.R

In dominanceanalysis: Dominance Analysis

context("da with terms in a list")

lm.mtcars<-lm(mpg~.,mtcars)
terms<-list(motor=c('cyl','disp','hp','carb'),trans=c('drat','am','gear'),other=c('wt','qsec','vs','am'))
da.mtcars<-dominanceAnalysis(lm.mtcars,terms=terms)


test_that("Average contribution have correct names",{
  expected<-c(motor=0.328,trans=0.178, other=0.363)
  expect_equal(averageContribution(da.mtcars)$r2,expected,tolerance=0.01)
})

test_that("Contribution by level have correct names",{
  expect_equal(names(contributionByLevel(da.mtcars)$r2),c('level','motor','trans','other'))
})


test_that("getFits have correct colnames and rownames",{
  expected.colnames<-c("motor","trans","other")
  expected.rownames<-c("1","motor","trans","other","motor+trans","motor+other","trans+other","motor+trans+other")
  da.fits<-getFits(da.mtcars)$r2
  expect_equal(as.character(colnames(da.fits)),expected.colnames)
  expect_equal(rownames(da.fits),expected.rownames)

})

test_that("dominanceMatrix have correct colnames and rownames",{
  da.dm<-dominanceMatrix(da.mtcars,"complete",fit.functions = "r2")
  expected.names<-c("motor","trans","other")
  expect_equal(as.character(colnames(da.dm)), expected.names)
  expect_equal(as.character(rownames(da.dm)), expected.names)
})

test_that("dominanceBriefing have correct colnames and rownames",{
  da.dm<-dominanceBriefing(da.mtcars,abbrev = FALSE)
  expected=data.frame(complete     = c("trans","","motor,trans"),
                      conditional  = c("trans","","motor,trans"),
                      general      = c("trans","","motor,trans"),
                      row.names=c("motor","trans","other"))
  expect_named(da.dm,"r2")
  expect_equal(da.dm$r2, expected)
})