R find angle between two lines, when have slope and intercept coefficients -
मैं timeserie:
एक्स 4557 9940 9855 9894 10142 9501 9532 9229 9169 9214 9347 9176 8951 9344 9873 9970 9139 9420 9476 9205 9271 8632 8730 9336 9150 9601 10012 9841 9951 9222 8799 9316 10087 9677 9154 9019 10549 9629 9131 9560 10246 10982 11748 9054 8690 9923 टीटी के & lt; -1: लंबाई (एक्स) साजिश (एक्स, xaxt = "n" type = "एल", xlab = शून्य, ylab = शून्य, col = "royalblue2", LWD = 2.3)
मैं रैखिक रुझान जोड़ना चाहते हैं:
फिट & lt; - एल एम (एक्स ~ टीटी) सह & lt; - coef (फिट) सह (अवरोधन) टीटी ८,९४०.२३४७८ २१.२७,०३१
और फिर मैं के बीच का कोण खोजने की जरूरत है दो लाल लाइनों:
abline (८,९४०.२३४७८, २१.२७,०३१, col = "red", LWD = 2) abline (८,९४०.२३४७८, 0, col = "red", LWD = 2)
मैं इसे कैसे प्रबंधित कर सकता हूं?
इस प्रकार मेरा ग्राफ है:
इस लाइन और २१.२७,०३१
की एक ढाल के साथ एक के बीच के कोण बहुत आसान है:
atan (२१.२७,०३१) * 180 / अनुकरणीय # [1] ८७.३०,८२८
रेखा और एक्स अक्ष के बीच का कोण लगभग 87 डिग्री है।
Comments
Post a Comment