diff --git a/R/clustering.R b/R/clustering.R
index 50e828b..51087f5 100644
--- a/R/clustering.R
+++ b/R/clustering.R
@@ -12,7 +12,7 @@
 #'   relation to the previous one. For example, if `weight` is 0.7 (the
 #'   default), the first cluster will weigh 1.0, the second 0.7, the third 0.49
 #'   etc.
-clusteriness <- function(data, span = 1000000, weight = 0.7) {
+clusteriness <- function(data, span = 100000, weight = 0.7) {
     n <- length(data)
 
     # Return a score of 0.0 if there is just one or no value at all.
diff --git a/man/clusteriness.Rd b/man/clusteriness.Rd
index a92f4ae..3e9a49c 100644
--- a/man/clusteriness.Rd
+++ b/man/clusteriness.Rd
@@ -4,7 +4,7 @@
 \alias{clusteriness}
 \title{Perform a cluster analysis.}
 \usage{
-clusteriness(data, span = 1e+06, weight = 0.7)
+clusteriness(data, span = 1e+05, weight = 0.7)
 }
 \arguments{
 \item{data}{The values that should be scored.}