tests/testthat/test-xtable.R

In stp4/stp25stat: Functions for statistical computations

context("test-xtable.R")

test_that("korrekte Werte APA_Xtabs und  xtabs", {
  data(infert, package = "datasets")
  
  tt2 <- xtabs( ~ education + induced, data = infert)
  
  att2 <- APA_Xtabs(
    ~ education + induced,
    data = infert,
    include.total = FALSE,
    include.total.columns = FALSE,
    include.total.sub = FALSE,
    include.total.rows = FALSE,
    include.percent = FALSE,
    include.count = TRUE,
    include.margin = FALSE,
    output = FALSE
  )
  expect_equal(as.vector(unlist(att2$xtab[, -1])),   as.character(tt2))
})


test_that("default include.total", {
  data(infert, package = "datasets")
  
  
  xtbl <- APA_Xtabs( ~ education + induced, data = infert, output = FALSE) 
  expect_equal(xtbl[[1]][, 2], c("2% (4)" ,  "31% (78)", "25% (61)"))
  
  xtbl <- APA_Xtabs( ~ education + induced, data = infert, output = FALSE, include.total=TRUE) 
  expect_equal(xtbl[[1]][, 2] , c( "2% (4)"  ,  "31% (78)" , "25% (61)" , "58% (143)"))
  xtbl <- APA_Xtabs( ~ education + induced, data = infert, output = FALSE, include.total.columns=TRUE) 
  expect_equal(xtbl[[1]][, 5], c("100% (12)" , "100% (120)" ,"100% (116)"))
  xtbl <- APA_Xtabs( ~ education + induced, data = infert, output = FALSE, include.total.rows=TRUE) 
  expect_equal(xtbl[[1]][, 2], c("3% (4)"  ,   "55% (78)" ,  "43% (61)" ,  "100% (143)"))
  xtbl <- APA_Xtabs( ~ education + induced, data = infert, output = FALSE, include.total.sub=TRUE) 
  expect_equal(xtbl[[1]][, 2], c( "2% (4)" ,  "31% (78)", "25% (61)"))
  
  #   education induced_0 induced_1 induced_2 induced_Sum
  # 1 0-5yrs       2% (4)    1% (2)    2% (6)     5% (12)
  # 2 6-11yrs    31% (78)  11% (27)   6% (15)   48% (120)
  # 3 12+ yrs    25% (61)  16% (39)   6% (16)   47% (116)
  # 4 Sum       58% (143)  27% (68)  15% (37)  100% (248)
  
  
  # 2+31+25 +1+11+16+2+6+6 =100
  
  
  
  att2 <- APA_Xtabs(
    ~ education + induced,
    data = infert,
    include.total = FALSE,
    include.total.columns = TRUE,
    include.total.sub = FALSE,
    include.total.rows = FALSE,
    output = FALSE
  )
  expect_equal(att2[[1]][, 5]  , c("100% (12)", "100% (120)", "100% (116)"))
  att2 <- APA_Xtabs(
    ~ education + induced,
    data = infert,
    include.total = FALSE,
    include.total.columns = TRUE,
    include.total.sub = FALSE,
    include.total.rows = TRUE,
    output = FALSE
  )
  expect_equal(att2[[1]][, 4] , c("2% (6)" , "6% (15)", "6% (16)"))
  att2 <- APA_Xtabs(
    ~ education + induced,
    data = infert,
    include.total = FALSE,
    include.total.columns = FALSE,
    include.total.sub = FALSE,
    include.total.rows = TRUE,
    output = FALSE
  )
  expect_equal(att2[[1]][, 4], c("16% (6)", "41% (15)", "43% (16)", "100% (37)"))
  
  
  
  
  
})