test_that("filling works with interval 1, 2, NA, NA", {
    expect_equal(fill_missing_interval(c(1,2,NA,NA)), c(1,2,3,4))

test_that("filling works for missing values within the interval", {
    expect_equal(fill_missing_interval(c(1,2,NA,4)), c(1,2,3,4))

test_that("filling works for missing values before the interval", {
    expect_equal(fill_missing_interval(c(NA,NA,3,4)), c(1,2,3,4))

test_that("filling works for negative values", {
    expect_equal(fill_missing_interval(c(NA,NA,1,2)), c(-1,0,1,2))

test_that("filling doesn't happen when repeating values after NA-values do not match the interval", {
    expect_equal(fill_missing_interval(c(1,2,NA,5)), c(1,2,NA,5))

test_that("filling doesn't happen when no repeating interval is measured", {
    expect_equal(fill_missing_interval(c(1,NA,NA,4)), c(1,NA,NA,4))

test_that("filling doesn't happen when interval is not equal between values", {

test_that("filling doesn't happen when no values are known", {
    expect_equal(fill_missing_interval(c(NA, NA)), c(NA, NA))

Try the fillr package in your browser

Any scripts or data that you put into this service are public.

fillr documentation built on March 26, 2020, 7:23 p.m.