tests/testthat/test-ANOPA-0.R

In ANOPA: Analyses of Proportions using Anscombe Transform

context("ANOPA:: Testing logical functions (3 sections)")

test_that("Test is.formula and is.one.sided (1/3)", {
    formula0 <- toto      ~ .
    formula1 <- toto      ~ a * b
    formula2 <-           ~ a * b
    formula3 <- toto      ~ a | c
    formula4 <- toto      ~  a*b | c    
    formula5 <- toto      ~ (a*b | c) + (d*e|f)
    formula6 <- {s;n} | a ~ b*c|d
    formula7 <- cbind(bpre,bpost) ~ cbind(a,b,c) + cbind(low,high)

    expect_equal( is.formula( formula1 ), TRUE )
    expect_equal( is.formula( formula5 ), TRUE )
    expect_equal( is.formula( formula6 ), TRUE )

    expect_equal( is.one.sided( formula0 ), FALSE )
    expect_equal( is.one.sided( formula1 ), FALSE )
    expect_equal( is.one.sided( formula2 ), TRUE )
})

test_that("Test has.nested.terms and has.cinb.terms (2/3)", {
    formula0 <- toto   ~ .
    formula1 <- toto   ~ a * b
    formula2 <-        ~ a * b
    formula3 <- toto   ~ a | c
    formula4 <- toto   ~  a*b | c    
    formula5 <- toto   ~ (a*b | c) + (d*e|f)
    formula6 <- {s;n}  ~ b*c|d
    formula7 <- cbind(bpre,bpost) ~ cbind(a,b,c) + cbind(low,high)

    expect_equal( has.nested.terms( formula0 ), FALSE )
    expect_equal( has.nested.terms( formula1 ), FALSE )
    expect_equal( has.nested.terms( formula2 ), FALSE )
    expect_equal( has.nested.terms( formula4 ), TRUE )
    expect_equal( has.nested.terms( formula5 ), TRUE )
    expect_equal( has.nested.terms( formula6 ), TRUE )

    expect_equal( has.cbind.terms( formula0 ), FALSE )
    expect_equal( has.cbind.terms( formula2 ), FALSE )
    expect_equal( has.cbind.terms( formula3 ), FALSE )
    expect_equal( has.cbind.terms( formula4 ), FALSE )
    expect_equal( has.cbind.terms( formula5 ), FALSE )
    expect_equal( has.cbind.terms( formula7 ), TRUE )
})

test_that("Test in.formula and sub.formulas (3/3)", {
    formula0 <- toto   ~ .
    formula1 <- toto   ~ a * b
    formula2 <-        ~ a * b
    formula3 <- toto   ~ a | c
    formula4 <- toto   ~  a*b | c    
    formula5 <- toto   ~ (a*b | c) + (d*e|f)
    formula6 <- {s;n}  ~ b*c|d
    formula7 <- cbind(bpre,bpost) ~ cbind(a,b,c) + cbind(low,high)

    expect_equal( in.formula( formula0, "toto" ), TRUE ) 
    expect_equal( in.formula( formula1, "toto" ), TRUE ) 
    expect_equal( in.formula( formula2, "toto" ), FALSE ) 
    expect_equal( in.formula( formula0, "a"    ), FALSE ) 
    expect_equal( in.formula( formula2, "a"    ), TRUE ) 
    expect_equal( in.formula( formula5, "a"    ), TRUE ) 

    expect_equal( sub.formulas( formula4, "*" )[[1]] == "a * b", TRUE ) 
    res <- sub.formulas(formula6, "|")
    expect_equal( length(res), 1)
    expect_equal( res[[1]] == "b * c | d", TRUE )

})