johrpan/geposan
1
0
Fork 0
mirror of https://github.com/johrpan/geposan.git synced 2025-10-26 10:47:25 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

clustering: Increase default cluster span

Browse source
This commit is contained in:
Elias Projahn 2022-08-18 18:45:33 +02:00
parent ba55aa124e
commit 8cde59c1c7
3 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
R/method_clustering.R
View file

@ -9,14 +9,14 @@
#' @param data The values that should be scored. #' @param data The values that should be scored.
#' @param span The maximum span of values considered to be in one cluster. #' @param span The maximum span of values considered to be in one cluster.
#' @param weight The weight that will be given to the next largest cluster in #' @param weight The weight that will be given to the next largest cluster in
#' relation to the previous one. For example, if `weight` is 0.7 (the #' relation to the previous one. For example, if `weight` is 0.5 (the
#' default), the first cluster will weigh 1.0, the second 0.7, the third 0.49 #' default), the first cluster will weigh 1.0, the second 0.5, the third 0.25
#' etc. #' etc.
#' #'
#' @return A score between 0.0 and 1.0 summarizing how much the data clusters. #' @return A score between 0.0 and 1.0 summarizing how much the data clusters.
#' #'
#' @export #' @export
clusteriness <- function(data, span = 100000, weight = 0.7) { clusteriness <- function(data, span = 500000, weight = 0.5) {
n <- length(data) n <- length(data)
# Return a score of 0.0 if there is just one or no value at all. # Return a score of 0.0 if there is just one or no value at all.
@ -65,8 +65,8 @@ clusteriness <- function(data, span = 100000, weight = 0.7) {
clustering <- function(id = "clustering", clustering <- function(id = "clustering",
name = "Clustering", name = "Clustering",
description = "Clustering of genes", description = "Clustering of genes",
span = 100000, span = 500000,
weight = 0.7) { weight = 0.5) {
method( method(
id = id, id = id,
name = name, name = name,

6
man/clusteriness.Rd
View file

@ -4,7 +4,7 @@
\alias{clusteriness} \alias{clusteriness}
\title{Perform a cluster analysis.} \title{Perform a cluster analysis.}
\usage{ \usage{
clusteriness(data, span = 1e+05, weight = 0.7) clusteriness(data, span = 5e+05, weight = 0.5)
} }
\arguments{ \arguments{
\item{data}{The values that should be scored.} \item{data}{The values that should be scored.}
@ -12,8 +12,8 @@ clusteriness(data, span = 1e+05, weight = 0.7)
\item{span}{The maximum span of values considered to be in one cluster.} \item{span}{The maximum span of values considered to be in one cluster.}
\item{weight}{The weight that will be given to the next largest cluster in \item{weight}{The weight that will be given to the next largest cluster in
relation to the previous one. For example, if \code{weight} is 0.7 (the relation to the previous one. For example, if \code{weight} is 0.5 (the
default), the first cluster will weigh 1.0, the second 0.7, the third 0.49 default), the first cluster will weigh 1.0, the second 0.5, the third 0.25
etc.} etc.}
} }
\value{ \value{

4
man/clustering.Rd
View file

@ -8,8 +8,8 @@ clustering(
id = "clustering", id = "clustering",
name = "Clustering", name = "Clustering",
description = "Clustering of genes", description = "Clustering of genes",
span = 1e+05, span = 5e+05,
weight = 0.7 weight = 0.5
) )
} }
\arguments{ \arguments{