R/frexp.R

Defines functions frexp

frexp <- function(x) {
  if (x == 0) 0
  else floor(log10(abs(x)))
}

Try the FIAR package in your browser

Any scripts or data that you put into this service are public.

FIAR documentation built on June 5, 2018, 5:03 p.m.