tests/testthat/test_freq_out2.R

context("frequent table for factors")

test_that("frequent table for factors", {
  x <- (1:20)
  xdf <- dplyr::data_frame(x)
  z<-dplyr::count(xdf, x)



  expect_identical(freq_out(x), z)
})
liangqianSheng/foofactors documentation built on May 21, 2019, 6:11 a.m.