R/half.range.mode.R

In Bioconductor/genefilter: genefilter: methods for filtering genes from high-throughput experiments

half.range.mode <- function( data, B, B.sample, beta = .5, diag = FALSE ) {

  if ( length( data ) == 0 ) return( NA_real_ )

  if (missing( B ) ) {

    # Just one run on the full set...
    
    if ( is.unsorted( data ) ) data <- sort( data )
    
    .C(
       "half_range_mode",
       data = as.double( data ),
       n = as.integer( length( data ) ),
       beta = as.double( beta ),
       diag = as.integer( diag ),
       M = double(1),
       PACKAGE = "genefilter"
       )$M

  }

  else {

    # Bootstrapped

    if ( missing( B.sample ) )
      B.sample <- length( data )

    M <- sapply(seq_len(B),
                function (x) {
                  d <- sort( sample( data, B.sample, replace = TRUE ) )
                  .C(
                     "half_range_mode",
                     data = as.double( d ),
                     n = as.integer( B.sample ),
                     beta = as.double( beta ),
                     diag = as.integer( diag ),
                     M = double(1),
                     PACKAGE = "genefilter"
                     )$M
                }
                )

    mean( M )
    
  }

}