[Rd] zapsmall with all values small (PR#4554)

[p.murrell at auckland.ac.nz]

Hi

If all values are small, zapsmall does not zap.

For example ...

 > zapsmall(1e-24)
[1] 1e-24
 > zapsmall(1e-24, digits=3)
[1] 1e-24

Problem appears to be in calculation of digits ...

     mx <- max(abs(x[!ina]))
     digits = if (mx > 0)
                max(0, digits - log10(mx))
              else
                digits

If all values are small, mx is very small, log10(mx) is "large" but 
negative, digits - log10(mx) is very large, so no rounding occurs.

Paul
--please do not edit the information below--

Version:
  platform = i686-pc-linux-gnu
  arch = i686
  os = linux-gnu
  system = i686, linux-gnu
  status = Under development (unstable)
  major = 1
  minor = 9.0
  year = 2003
  month = 10
  day = 12
  language = R

Search Path:
  .GlobalEnv, package:gridBase, package:methods, package:ctest, 
package:mva, package:modreg, package:nls, package:ts, package:lattice, 
package:grid, package:graphicsQC, Autoloads, package:base

-- 
Dr Paul Murrell
Department of Statistics
The University of Auckland
Private Bag 92019
Auckland
New Zealand
64 9 3737599 x85392
paul at stat.auckland.ac.nz
http://www.stat.auckland.ac.nz/~paul/