tests/testthat/test-unit-mtc.study.treatment.matrix.R

In gemtc: Network Meta-Analysis Using Bayesian Methods

context("mtc.study.treatment.matrix")

test_that('mtc.study.treatment.matrix with 1 study', {
  data <- data.frame(cbind(c('s02', 's02'), c('A', 'B')))
  colnames(data) <- c('study', 'treatment')
  network <- mtc.network(data)
  m <- mtc.study.treatment.matrix(network)
  expect_equal(1, nrow(m))
})

test_that('mtc.study.treatment.matrix with 2 studies', {
  data <- data.frame(cbind(c('s02', 's02'), c('A', 'B')))
  data <- rbind(data, data.frame(cbind(c('s01', 's01'), c('A', 'B'))))
  
  colnames(data) <- c('study', 'treatment')
  network <- mtc.network(data)
  m <- mtc.study.treatment.matrix(network)
  expect_equal(2, nrow(m))
})