tests/testthat/testsummary.R

In MarniTausen/BayzR: R package for bayz

context("summary.bayz")

test_that("Validation", {
    example_data = data.frame(y = 1:20, x = as.factor(20:1))
    fit <- bayz(y ~ rn(x), data=example_data, chain=c(1000, 100, 10))

    summary_object <- summary(fit)

    print(summary_object)

    #expect_gte(summary_object$Heritability$Heritability[2], 0.90)
    #expect_lte(summary_object$Heritability$Heritability[1], 0.1)

    expect_equal(TRUE, TRUE)

    #capture.output(print(summary_object))

})