मैं एक साथ क्रम में एक Emacs समारोह काट दिया मेरी "भेजें करने के लिए R" कुंजी से पहलेआर में स्वचालित रूप से हमेशा समय कार्यों
tOne <- proc.time()[3]
भेजने के लिए,
tTwo <- proc.time()[3]
बाद में
, तो मुद्रण के बाद अंतर। प्रिंटिंग हालांकि काफी गन्दा हो जाता है।
आर में स्वचालित रूप से आर को भेजने के लिए आर में एक बेहतर तरीका है? (जैसे एफ # में के रूप में #time "on"
)
संपादित करें: वर्तमान में, यह कुछ अतिरिक्त नई-पंक्तियों भेजता है के बाद से अवर बफर तार भेजे जाने की आवश्यकता:
> > a<-ocorrelate.parallel(replicate(2, rnorm(100000)), 0.5)
>
+ user 0.072 sys 0.020 elapsed 14.925
> > a<-ocorrelate.parallel(replicate(2, rnorm(100000)), 0.5)
>
+ user 0.088 sys 0.032 elapsed 16.868
> >
फंक्शन:
(defun ess-timed-cc (vis)
(interactive "P")
(process-send-string "R" "tone <- proc.time()[1:3];")
(ess-eval-region-or-function-or-paragraph-and-step vis)
(process-send-string "R" "ttwo <- proc.time()[1:3]; cat(paste(c(\"\",
format(ttwo-tone)), c(\"user\", \"sys\", \"elapsed\", \"\n\")));")
(other-window 1)
(inferior-ess-send-input)
(inferior-ess-send-input)
(goto-char (point-max))
(other-window -1)
)
प्रिंटिंग के बारे में वास्तव में गन्दा क्या है? – eddi
@eddi ने उत्तर को अपडेट किया। – PascalVKooten
मैं देखता हूं, क्या आप उस आउटपुट को प्राप्त करने के लिए उपयोग किए गए emacs फ़ंक्शन भी जोड़ सकते हैं? – eddi