tests/testthat/test-myseq_n.R

In 21Sp-STAT-413-613/hw04prebeccalipton: STAT413 HW4 Package

test_that("myseq_n() outputs the correct value",{
  x <- c(2,3,3)
  n <- 3

  expect(3)
}
)
test_that("myseq_n() outputs the correct value",{
  x <- c(2,4,3)
  n <- 4

  expect(2.5)
}
)

test_that("myseq_n() outputs the correct value",{
  x <- c(2,4,3)
  n <- 5

  expect(2.7)
}
)

test_that("myseq_n() outputs the correct value",{
  x <- c(2,4,3)
  n <- 6

  expect(2.783333)
}
)

test_that("myseq_n() outputs the correct value",{
  x <- c(2,4,3)
  n <- 7

  expect(2.754762)
}
)