are_identical_posteriors: Determines if the input is a wiritttes posterior,

In richelbilderbeek/wiritttes: WIRITTE simulation

Description

Determines if the input is a wiritttes posterior,

Usage

are_identical_posteriors(p, q)

Arguments

p	the first wiritttes posterior
q	the second wiritttes posterior

Value

TRUE or FALSE

Author(s)

Richel J.C. Bilderbeek

Examples

  file <- read_file(find_path("toy_example_1.RDa"))
  posterior_1 <- get_posterior(file = file, sti = 1, ai = 1, pi = 1)
  posterior_2 <- get_posterior(file = file, sti = 2, ai = 1, pi = 1)
  testit::assert( are_identical_posteriors(posterior_1, posterior_1))
  testit::assert(!are_identical_posteriors(posterior_1, posterior_2))
  testit::assert(!are_identical_posteriors(posterior_2, posterior_1))
  testit::assert( are_identical_posteriors(posterior_2, posterior_2))

richelbilderbeek/wiritttes documentation built on May 27, 2019, 8:14 a.m.