From 57a0a8d0abd80b2a03f1724bae1588eacbb4a26b Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Sat, 11 Nov 2023 09:44:00 +0100
Subject: [PATCH] clustering: Adapt defaults to publication

---
 R/method_clustering.R | 4 ++--
 man/clusteriness.Rd   | 2 +-
 man/clustering.Rd     | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/method_clustering.R b/R/method_clustering.R
index 7ba54cc..0d62e4f 100644
--- a/R/method_clustering.R
+++ b/R/method_clustering.R
@@ -16,7 +16,7 @@
 #' @return A score between 0.0 and 1.0 summarizing how much the data clusters.
 #'
 #' @export
-clusteriness <- function(data, span = 500000, weight = 0.5) {
+clusteriness <- function(data, span = 1000000, weight = 0.5) {
   n <- length(data)
 
   # Return a score of 0.0 if there is just one or no value at all.
@@ -67,7 +67,7 @@ clusteriness <- function(data, span = 500000, weight = 0.5) {
 clustering <- function(id = "clustering",
                        name = "Clustering",
                        description = "Clustering of genes",
-                       span = 500000,
+                       span = 1000000,
                        weight = 0.5) {
   method(
     id = id,
diff --git a/man/clusteriness.Rd b/man/clusteriness.Rd
index 7ddce27..7fa3f02 100644
--- a/man/clusteriness.Rd
+++ b/man/clusteriness.Rd
@@ -4,7 +4,7 @@
 \alias{clusteriness}
 \title{Perform a cluster analysis.}
 \usage{
-clusteriness(data, span = 5e+05, weight = 0.5)
+clusteriness(data, span = 1e+06, weight = 0.5)
 }
 \arguments{
 \item{data}{The values that should be scored.}
diff --git a/man/clustering.Rd b/man/clustering.Rd
index 3cd9a0a..a51b4c9 100644
--- a/man/clustering.Rd
+++ b/man/clustering.Rd
@@ -8,7 +8,7 @@ clustering(
   id = "clustering",
   name = "Clustering",
   description = "Clustering of genes",
-  span = 5e+05,
+  span = 1e+06,
   weight = 0.5
 )
 }