tests/testthat/test_simulate_data.R

context("Data Simulation Function")
library(mediascores)

test_that("Simulate data runs without error", {
    set.seed(1123)
    d <- simulate_data()
    expect_equal(length(d), 4L)
})
SMAPPNYU/mediascores documentation built on May 18, 2019, 1:30 p.m.