test_that("ssdGSA works", {
  ssdGSA(Data = data_matrix_entrezID,
         Gene_sets = gene_sets,
         Direction_matrix = direction_matrix,
         GSA_weight = "group_weighted", # options are: "equal_weighted" and "group_weighted"
         GSA_weighted_by = "sum.ES", # options are: "sum.ES", "avg.ES", and "median.ES"
         GSA_method = "gsva", # options are: gsva", "ssgsea", "zscore", "avg.exprs", and "median.exprs"
         min.sz = 6,  # GSVA parameter
         max.sz = 2000, # GSVA parameter
         mx.diff = TRUE # GSVA parameter
  )
})