Gussobjekt mit Sys.time() erstellt

Question

Ich bin die Leistung von mehreren Funktion in verschachtelten Schleifen foreach Messung, damit

start <- Sys.time() 
<corpus of function> 
end <- Sys.time() 
diff_time = end - start 

das Problem zu tun, besteht darin, dass anschliessend die Aufgabe übernimmt, die Klasse "diff_time "und ich habe Probleme beim Plotten mit ggplot2.

Es ist possibile, dass einige Simulation, die schneller sind als andere das Suffix sec und andere Min? Wenn das passiert, wie kann ich diese Probleme vermeiden?

Answer 1

können Sie die Einheiten angeben, wenn die-numerischendifftime konvertieren.

t = difftime(time1 = "2016-01-02 01:00:00", time2 = "2016-01-02 00:30:00") 
t 
# Time difference of 30 mins 

as.numeric(t, units = "secs") 
# [1] 1800