FindElbow: FindElbow

In bimberlabinternal/OOSAP: OHSU-ONPRC Single-cell Analysis Package

Description

FindElbow

Usage

FindElbow(y, plot = FALSE, ignore.concavity = FALSE, min.y = NA, min.x = NA)

Examples

## Not run: 
tmp <- FindElbow(c(0.9, 1.1, 1.1, 1.9, 2.5, 2.8, 4.9, 8.5),
	plot = TRUE) # wandering
tmp <- FindElbow(c(0.9, 1.0, 1.2, 1.3, 1.5, 1.5, 10.0, 22.0),
	plot = TRUE) # late rise
tmp <- FindElbow(c(2, 4, 6, 8, 10, 12, 14, 16)^2,
	plot = TRUE) # gradual, no obvious break

# Not the usual way to choose the number of PCs:
library("chemometrics")
data(glass)
pca <- prcomp(glass)
eigensum <- sum(pca$sdev * pca$sdev)
vv <- 100 * (pca$sdev * pca$sdev/eigensum)
cs <- cumsum(vv)
tmp <- FindElbow(vv, plot = TRUE)
tmp <- FindElbow(cs, plot = TRUE)

## End(Not run)

bimberlabinternal/OOSAP documentation built on Jan. 19, 2021, 2:47 a.m.