r - How to replace even or odd colums in a matrix? -


उदाहरण के लिए, अगर मेरे पास मैट्रिक्स था:

  realmatrix = matrix (1 : 16, ncol = 4, nrow = 4)   

यह कौन देगा:

  [, 1] [, 2] [, 3] [ , 4] [1,] 1 5 9 13 [2,] 2 6 10 14 [3,] 3 7 11 15 [4,] 4 8 12 16   

और मैं चाहूंगा एक ऐसा समारोह बनाने के लिए जो एक निश्चित मान (उदाहरण 1: 4) के साथ दो कॉलमों को प्रतिस्थापित कर लेगा, यदि इसके पास एक भी संख्या में colums हैं, तो परिणाम कुछ ऐसा होना चाहिए:

  [ , 1] [, 2] [, 3] [, 4] [1,] 1 1 13 13 [2,] 2 2 2 14 [3,] 3 3 3 15 [4,] 4 4 4 16   

और अगर मैट्रिक्स में अजीब संख्या वाले कॉलम हैं, तो फ़ंक्शन केवल अजीब कॉलम को बदल लेगा, जो कि मध्य एक कहने वाला है:

यह अजीब संख्या के साथ मैट्रिक्स है कॉलम:

  realmatrix2 = matrix (1: 12, ncol = 3, nrow = 4)   

अंतिम परिणाम:

  [, 1] [, 2] [, 3] [1,] 1 1 9 [2,] 2 2 10 [3,] 3 3 11 [4,] 4 4 12   

बहुत बहुत धन्यवाद!

  fun2 & lt; - फ़ंक्शन (चटाई, वाल) {स्टॉपिफोनॉट (लंबाई (वैल) == एनरो (चटाई) ) () (एन / 2, एन / 2 + 1)] & lt; - val} else {चटाई} # 1, 1 1 1 13 #, छत (एन / 2)] & lt; - val} चटाई} आनन्द 2 (वास्तविक मैट्रिक्स, 1: 4) # [, 1] [, 2] [, 3] [, 4] # [ [2,] 2 2 2 14 # [3,] 3 3 3 15 # [4,] 4 4 4 16 मज़ 2 (रियल मेट्रिक्स 2, 1: 4) # [, 1] [, 2] [, 3] # [1 , 1 1 9 # [2,] 2 2 10 # [3,] 3 3 11 # [4,] 4 4 12 रिलामैंटिक्स 5 = मैट्रिक्स (1:32, एनएकल = 8, एनरो = 4) आनन्द 2 (रियलमैट्रिक्स 5, 1) : 4) # [, 1] [, 2] [, 3] [, 4] [, 5] [, 6] [, 7] [, 8] # [1,] 1 5 9 1 1 21 25 29 # [2,] 2 6 10 2 2 22 26 30 # [3,] 3 7 11 3 3 23 27 31 # [4,] 4 8 12 4 4 24 28 32   

अपडेट

यदि आप पंक्तियों को बदलना चाहते हैं:

  मज़ेआर & lt; - फ़ंक्शन (चटाई, वैल) {स्टॉपिफनॉट (लंबाई (वैल) == एनएकल (चटाई)) n & Lt; - nrow (mat) यदि ((n / 2) %% 2 == 0) {च (सी / एन 2, एन / 2 + 1), & lt; - प्रतिनिधि (वैल, प्रत्येक = 2)} दूसरे [चटाई (छत (एन / 2)], & lt; - val} चटाई} funR (वास्तविक मैट्रिक्स, 1: 4) # [, 1] [, 2] [, 3] [, 4] # [1,] 1 5 9 13 # [2,] 1 2 3 4 # [3,] 1 2 3 4 # [4,] 4 8 12 16 रिलामैट्रिक्स 3 & lt; - मैट्रिक्स (1:15, एनएक्सएल = 5) मज़ेआरआर (रियलमैट्रिक्स 3, 1: 5) # [, 1] [, 2] [, 3] [, 4] [, 5] # [1,] 1 4 7 10 13 # [2,] 1 2 3 4 5 # [3,] 3 6 9 12 15    

Comments

Popular posts from this blog

java - ImportError: No module named py4j.java_gateway -

python - Receiving "KeyError" after decoding json result from url -

.net - Creating a new Queue Manager and Queue in Websphere MQ (using C#) -