pass p.item to dice(), close #165

AlineTalhouk · Mar 13, 2023 · dfde546 · dfde546
1 parent 1d6f86d
commit dfde546
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,6 +1,6 @@
 # diceR (development version)
 
-* Pass `seed.data` argument to `dice()` (#162)
+* Pass `p.item` and `seed.data` arguments to `dice()` (#162, #165)
 
 # diceR 2.0.0
 

diff --git a/R/dice.R b/R/dice.R
@@ -44,7 +44,7 @@
 #' dice.obj <- dice(dat, nk = 4, reps = 5, algorithms = "hc", cons.funs =
 #' "kmodes", ref.cl = ref.cl, progress = FALSE)
 #' str(dice.obj, max.level = 2)
-dice <- function(data, nk, reps = 10, algorithms = NULL, k.method = NULL,
+dice <- function(data, nk, p.item = 0.8, reps = 10, algorithms = NULL, k.method = NULL,
                  nmf.method = c("brunet", "lee"), hc.method = "average",
                  distance = "euclidean",
                  cons.funs = c("kmodes", "majority", "CSPA", "LCE", "LCA"),
@@ -59,7 +59,7 @@ dice <- function(data, nk, reps = 10, algorithms = NULL, k.method = NULL,
   prep.data <- match.arg(prep.data)
 
   # Generate Diverse Cluster Ensemble
-  E <- consensus_cluster(data = data, nk = nk, reps = reps,
+  E <- consensus_cluster(data = data, nk = nk, p.item = p.item, reps = reps,
                          algorithms = algorithms, nmf.method = nmf.method,
                          hc.method = hc.method, distance = distance,
                          prep.data = prep.data, min.var = min.var,

diff --git a/man/dice.Rd b/man/dice.Rd