दिलचस्प पोस्ट
रेगुलर एक्सप्रेशन के लिए वैरिएबल-लिक्विड लिक्विड-डिसर्सशन ऑप्शंस घुमाए गए बफ़ेदार इमेज जेनरेटर के अंदर मैं जावास्क्रिप्ट में वर्तमान तारीख कैसे प्राप्त करूं? गेटर्स और सेटर्स कैसे काम करते हैं? जावा क्लास के प्रोग्राममैटिक रूप से संकलित और इंस्टाल्ट कैसे करें? गैर पुनर्जीवित विंडो सीमा और स्थिति AngularJS में एनजी-दोहराने वाले चाबियाँ और मूल्यों पर कैसे पुनरावृत्त करें? socket.io.js नहीं मिला एएसपी.नेट एमवीसी और आईआईएस 7 में कच्चे एचटीटीपी अनुरोध / प्रतिक्रिया दर्ज करना JQuery के datepicker के साथ विशिष्ट श्रेणी में दिनांक हाइलाइट करें कैसे एक्सएमएल का उपयोग करने के लिए jQuery को पार्स करना है? जांचें कि क्या एक चर जावास्क्रिप्ट में एक स्ट्रिंग है सी ++ 11 में धागा_लोक का क्या अर्थ है? माइस्स्क स्ट्रिंग स्प्लिट जांचें कि क्या दी गई कुंजी पहले से ही किसी शब्दकोश में मौजूद है और उसे बढ़ाना है

आर में समय अंतर की गणना

मेरे पास एक डेटा है जिसमें 3 मिलियन रिकॉर्ड्स प्रारंभ हो रहे हैं। टाइम और एंड। समय के रूप में दो चर पहले 10 ऑब्ज इस प्रकार हैं:

start.date start.time end.date end.time 1 2012-07-13 15:01:32 2012-07-13 15:02:42 2 2012-07-05 18:26:31 2012-07-05 18:27:19 3 2012-07-14 20:23:21 2012-07-14 20:24:11 4 2012-07-29 16:09:54 2012-07-29 16:10:48 5 2012-07-21 14:58:32 2012-07-21 15:00:17 6 2012-07-04 15:36:31 2012-07-04 15:37:11 7 2012-07-22 18:28:31 2012-07-22 18:28:50 8 2012-07-09 21:08:42 2012-07-09 21:09:02 9 2012-07-05 09:44:52 2012-07-05 09:45:05 10 2012-07-02 18:50:47 2012-07-02 18:51:38 

मुझे start.time और end.time के बीच अंतर की गणना करने की आवश्यकता है

मैंने निम्नलिखित कोड का इस्तेमाल किया:

 mbehave11$diff.time <- difftime(mbehave11$end.time, mbehave11$start.time, units="secs") 

लेकिन मुझे यह त्रुटि मिल रही है:

 Error in as.POSIXlt.character(x, tz, ...) : character string is not in a standard unambiguous format In addition: Warning messages: 1: In is.na.POSIXlt(strptime(xx, f <- "%Y-%m-%d %H:%M:%OS", tz = tz)) : Reached total allocation of 1535Mb: see help(memory.size) 

वेब के समाधान से एकत्रित समाधान "आर में समय अंतर की गणना"

तिथि / समय अंकगणित करने से पहले आपको अपने स्ट्रिंग को दिनांक वस्तुओं में बदलना होगा । इसे इस्तेमाल करे:

क) आपके डेटा को पढ़ना:

 R> dat <- read.table(textConnection("start.date start.time end.date end.time 2012-07-13 15:01:32 2012-07-13 15:02:42 2012-07-05 18:26:31 2012-07-05 18:27:19 2012-07-14 20:23:21 2012-07-14 20:24:11"), header=TRUE) 

बी) एक अवलोकन पर कार्य करना:

  R> strptime( paste(dat[,1], dat[,2]), "%Y-%m-%d %H:%M:%S") [1] "2012-07-13 15:01:32" "2012-07-05 18:26:31" "2012-07-14 20:23:21" 

ग) सेट पर कार्य करना, संख्यात्मक में परिवर्तित करना:

  R> as.numeric(difftime(strptime(paste(dat[,1],dat[,2]),"%Y-%m-%d %H:%M:%S"), strptime(paste(dat[,3],dat[,4]),"%Y-%m-%d %H:%M:%S"))) [1] -70 -48 -50 R>