tests/testthat/test_features.R

In unmnn/evoxploit: Augment Evolution Features to a Longitudinal Study Dataset

context("Test feature generation.")

# test_that("Test whether each of the feature generation functions returns a data frame.", {
#   li_clustering <- clustering(df = epi$data,
#                               label = epi$label$label)
#   expect_is(create_CBMS15_attributes(df = epi$data,
#                                      label = epi$label$label,
#                                      li_clustering = li_clustering
#   ), "data.frame")
#   expect_is(create_IDA14_attributes(df = epi$data,
#                                     label = epi$label$label,
#                                     kdist_sample_size = 5
#   ), "data.frame")
#   expect_is(create_simple_attributes(df = epi$data
#   ), "data.frame")
#
# })