2016-01-04 36 views

回答

4

對於它的樂趣:

f <- function(v) sapply(strsplit(v, ":", T), function(x) sum(as.numeric(x) * c(60*60, 60, 1)[seq(x)]*1000)) 
f(c("13:00", "13:00:00", "14:00:00.001"))  
# [1] 46800000 46800000 50400001 
+0

謝謝lukeA我是R的新手,剛剛起步,所以這會有所幫助。 –

+1

@RoniHoffman請避免「感謝」評論。改爲接受答案。 –