swh:1:snp:81eadaa089e8253d8469bcef66aa332632c6c669
Tip revision: 1305bf51cc38adca02d0c8a834c61a4c7e038309 authored by Hans W. Borchers on 08 February 2015, 00:00:00 UTC
version 1.8.3
version 1.8.3
Tip revision: 1305bf5
pow2.R
###
### POW2.R Raise 2 to some power
###
pow2 <- function(f, e) {
if (!is.numeric(f) && !is.complex(f))
stop("Argument 'f' must be numeric or complex.")
if (missing(e)) {
e <- f
f <- rep(1, length(e))
} else {
if (!is.numeric(e) && !is.complex(e))
stop("Argument 'e' must be numeric or complex.")
if (is.complex(f) || is.complex(e)) {
f <- Re(f)
e <- Re(e)
warning("Imaginary part of arguments ignored.")
}
}
if (length(f) != length(e))
stop("Arguments 'e' and 'f' must be of same length.")
return(f * 2^e)
}