From vosp at mail.ecu.edu  Tue Mar 29 16:52:07 2005
From: vosp at mail.ecu.edu (vosp@mail.ecu.edu)
Date: Tue Mar 29 16:52:22 2005
Subject: [Rd] zapsmall (PR#7755)
Message-ID: <20050329145207.3E123C6F9@slim.kubism.ku.dk>

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


[Rd] zapsmall (PR#7755)
vosp@mail.ecu.edu