https://github.com/cran/pracma
Tip revision: 267abaa96cae63dd7872bb21b2613bd067b0a9f4 authored by Hans W. Borchers on 30 January 2018, 13:20:01 UTC
version 2.1.4
version 2.1.4
Tip revision: 267abaa
nextpow2.R
###
### NEXTPOW2.R Next higher power of 2
###
nextpow2 <- function(x) {
if (is.null(x) || length(x) == 0) return(c())
if (!is.numeric(x) && !is.complex(x))
stop("Argument 'x' must be a numeric/complex vector/matrix.")
x[x == 0] <- 1
return(ceiling(log2(abs(x))))
}