Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CR_Date <- data.frame(
- pos1="2014-07-01 00:00:00",
- pos2=c("2014-07-01 00:00:00","2014-07-01 10:15:00")
- )
- CR_Date[] <- lapply(CR_Date,as.POSIXct)
- CR_Date
- # pos1 pos2
- #1 2014-07-01 2014-07-01 00:00:00
- #2 2014-07-01 2014-07-01 10:15:00
- CR_Date$pos2[2] - CR_Date$pos1[2]
- #Time difference of 10.25 hours
- CR_Date$hours <- CR_Date$pos2 - CR_Date$pos1
- #Time differences in secs
- #[1] 0 36900
- # pos1 pos2 hours
- #1 2014-07-01 2014-07-01 00:00:00 0 secs
- #2 2014-07-01 2014-07-01 10:15:00 36900 secs
- CR_Date$hours <- with(CR_Date, difftime(pos2,pos1,units="hours") )
- CR_Date
- # pos1 pos2 hours
- #1 2014-07-01 2014-07-01 00:00:00 0.00 hours
- #2 2014-07-01 2014-07-01 10:15:00 10.25 hours
- CR_Date$hours <- as.numeric(CR_Date$pos2 - CR_Date$pos1, "hours")
- CR_Date
- # pos1 pos2 hours
- #1 2014-07-01 2014-07-01 00:00:00 0.00
- #2 2014-07-01 2014-07-01 10:15:00 10.25
- as.numeric(CR_Date$pos2 - CR_Date$pos1, "mins")
- #[1] 0 615
- as.numeric(CR_Date$pos2 - CR_Date$pos1, "days")
- #[1] 0.0000000 0.4270833
Add Comment
Please, Sign In to add comment