[Rd] zapsmall (PR#7755)

[vosp at mail.ecu.edu]

Full_Name: Paul Vos
Version: 2.0.1
OS: windows XP
Submission from: (NULL) (150.216.148.20)


> zapsmall(.3-.2-.1,digits=7)
[1] -2.775558e-17

This should be zero.  By changing the condition
if (mx > 0)
in zapsmall to 
if (mx > 1)
we get

> zapsmall(.3-.2-.1,digits=7)
[1] 0