tests/testthat/test-design.R

In erikerhardt/flipMaxDiff: MaxDiff Experimental Design and Analysis

context("design")
test_that("design",
{
    des <- MaxDiffDesign(number.alternatives = 10,
                            number.questions = 6,
                            alternatives.per.question = 5,
                            n.repeats = 1)
    tech.design = read.csv("http://wiki.q-researchsoftware.com/images/7/78/Technology_MaxDiff_Design.csv")
    z1 <- CheckMaxDiffDesign(tech.design[, -1:-2])$binary.correlations
    z1 <- range(z1[lower.tri(z1)])
    z2 <- des$binary.correlations
    z2 <- range(z2[lower.tri(z2)])
    expect_equal(z1, z2)
    # warnings
    expect_warning(MaxDiffDesign(number.alternatives = 10,
                            number.questions = 6,
                            alternatives.per.question = 5,
                            n.repeats = 1), NA)
    expect_warning(MaxDiffDesign(number.alternatives = 10,
                            number.questions = 6,
                            alternatives.per.question = 4,
                            n.repeats = 1))
    expect_error(MaxDiffDesign(number.alternatives = 4,
                            number.questions = 4,
                            alternatives.per.question = 10,
                            n.repeats = 1))
    expect_error(MaxDiffDesign(number.alternatives = 10,
                            number.questions = 9,
                            alternatives.per.question = 10,
                            n.repeats = 1))
    expect_error(suppressWarnings(MaxDiffDesign(number.alternatives = 10,
                            number.questions = 9,
                            alternatives.per.question = 9,
                            n.repeats = 1)), NA)
    expect_error(suppressWarnings(MaxDiffDesign(number.alternatives = 4,
                            alternatives.per.question = 4,
                            number.questions = 10,
                            n.repeats = 1)))
    expect_error(suppressWarnings(MaxDiffDesign(number.alternatives = 7,
                            alternatives.per.question = 6,
                            number.questions = 3,
                            n.repeats = 1)), NA)
    expect_error(suppressWarnings(MaxDiffDesign(number.alternatives = 7,
                            alternatives.per.question = 2,
                            number.questions = 3,
                            n.repeats = 1)))
})



test_that("Individual-level design",
{
    expect_error(MaxDiffDesign(number.alternatives = 10,
                            number.questions = 6,
                            alternatives.per.question = 5,
                            n.versions = 2,
                            n.repeats = 1), NA)

        expect_error(suppressWarnings(MaxDiffDesign(number.alternatives = 10,
                            number.questions = 6,
                            alternatives.per.question = 4,
                            n.versions = 100,
                            n.repeats = 1)), NA)
        expect_error(suppressWarnings(MaxDiffDesign(number.alternatives = 100,
                            number.questions = 10,
                            alternatives.per.question = 4,
                            n.versions = 100,
                            n.repeats = 1)))

        expect_error(capture.output(suppressWarnings(MaxDiffDesign(number.alternatives = 30,
                            number.questions = 10,
                            alternatives.per.question = 4,
                            n.versions = 100,
                            n.repeats = 1))), NA)
})