R/utils.R

In bluster: Clustering Algorithms for Bioconductor

Defines functions .positive_number .non_na_number .non_na_scalar

.non_na_scalar <- function(val) {
    length(val)==1L && !is.na(val)
}

.non_na_number <- function(val) {
    .non_na_scalar(val) && is.numeric(val)
}

.positive_number <- function(val) {
    .non_na_number(val) && val > 0
}

Try the bluster package in your browser