tests/testthat/test-clusters.R

# data <- openxlsx::read.xlsx("tests/testdata/Study1.xlsx")
#
# attributes <- data %>%
#   select(- c(Product_Name, Panelist_Name)) %>%
#   names()
#
# cluster<-make_cluster_phylo(data,
#                             .id_col="Product_Name",
#                             .attributes = attributes #tidyselect::everything(),
# )
aigorahub/aigoraRPDashboard documentation built on May 30, 2022, 8:46 p.m.