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