From jeff.horner at vanderbilt.edu  Thu Feb 22 23:10:52 2007
From: jeff.horner at vanderbilt.edu (Jeffrey Horner)
Date: Thu, 22 Feb 2007 16:10:52 -0600
Subject: [Rd] Patch for "units<-" in datetime.R
Message-ID: <45DE14EC.60500@vanderbilt.edu>



Index: src/library/base/R/datetime.R
===================================================================
--- src/library/base/R/datetime.R       (revision 40781)
+++ src/library/base/R/datetime.R       (working copy)
@@ -381,7 +381,7 @@
      if (from == value) return(x)
      if (!(value %in% c("secs", "mins", "hours", "days", "weeks")))
          stop("invalid units specified")
-    sc <- cumprod(c(sec=1, mins=60, hours=60, days=24, weeks=7))
+    sc <- cumprod(c(secs=1, mins=60, hours=60, days=24, weeks=7))
      newx <- as.vector(x)*sc[from]/sc[value]
      structure(newx, units=value, class="difftime")
  }

Cheers,

Jeff
-- 
http://biostat.mc.vanderbilt.edu/JeffreyHorner



[Rd] Patch for "units<-" in datetime.R
Jeffrey Horner