From timh at insightful.com  Mon Jan 14 20:00:16 2008
From: timh at insightful.com (timh at insightful.com)
Date: Mon, 14 Jan 2008 20:00:16 +0100 (CET)
Subject: [Rd] extra space in:  all.equal(5,6) (PR#10575)
Message-ID: <20080114190016.4DB25283462D@mail.pubhealth.ku.dk>

> all.equal(5,6)
[1] "Mean relative  difference: 0.2"

Note the odd extra space.
A fix is to change lines in all.equal.numeric from:

    if (is.na(xy) || xy > tolerance) 
        msg <- c(msg, paste("Mean", what, if (cplx) "Mod", "difference:", 
            format(xy)))

 to:

    if (cplx)
      what <- paste(what, "Mod")
    if (is.na(xy) || xy > tolerance) 
        msg <- c(msg, paste("Mean", what, "difference:", 
            format(xy)))



--please do not edit the information below--

Version:
 platform = i386-pc-mingw32
 arch = i386
 os = mingw32
 system = i386, mingw32
 status = 
 major = 2
 minor = 6.1
 year = 2007
 month = 11
 day = 26
 svn rev = 43537
 language = R
 version.string = R version 2.6.1 (2007-11-26)

Windows XP (build 2600) Service Pack 2.0

Locale:
LC_COLLATE=English_United States.1252;LC_CTYPE=English_United States.1252;LC_MONETARY=English_United States.1252;LC_NUMERIC=C;LC_TIME=English_United States.1252

Search Path:
 .GlobalEnv, package:stats, package:graphics, package:grDevices, package:utils, package:datasets, package:methods, Autoloads, package:base



[Rd] extra space in: all.equal(5,6) (PR#10575)
timh at insightful.com