वेक्टर

Question

से पंक्ति-वार मैट्रिक्स cumsum की गणना करें एक वेक्टर को देखते हुए मैं एक वर्ग मैट्रिक्स बनाना चाहता हूं जहां वेक्टर के तत्व विकर्ण पर हैं और तत्वों की पंक्ति-आधारित cumsum है।

उदाहरण वेक्टर:

vec <- c(1, 2, 3, 4) 

आवश्यक उत्पादन:

diagSum <- function(vec) { 
    mat <- diag(vec) 
    for (i in seq(nrow(mat))) { 
    for (j in seq(i, ncol(mat))) { 
     if (j > i) { 
     mat[i, j] <- mat[i, j - 1] + mat[j, j]  
     } 
    } 
    } 
    mat 
} 

क्या होगा आर-तरफा (के लिए परहेज:

 [,1] [,2] [,3] [,4] 
[1,] 1 3 6 10 
[2,] 0 2 5 9 
[3,] 0 0 3 7 
[4,] 0 0 0 4 

अब, मैं पाश समारोह के लिए डबल का उपयोग कर रहा लूप) ऐसा करने के लिए?

Answer 1

m <- matrix(vec, nrow = length(vec), ncol = length(vec), byrow =TRUE) 
m[lower.tri(m)] <- 0 
t(apply(m, 1, cumsum)) 
#  [,1] [,2] [,3] [,4] 
#[1,] 1 3 6 10 
#[2,] 0 2 5 9 
#[3,] 0 0 3 7 
#[4,] 0 0 0 4 

Answer 2

एक तरह से यह करने के लिए:

x <- c(1, 2, 3, 4) 
rbind(cumsum(x), t(sapply(1:3, function(y) c(rep(0, y), cumsum(x[-(1:y)]))))) 
#  [,1] [,2] [,3] [,4] 
# [1,] 1 3 6 10 
# [2,] 0 2 5 9 
# [3,] 0 0 3 7 
# [4,] 0 0 0 4 

Answer 3

इस तरह

:

> x=c(1, 2, 3, 4) 

> do.call(rbind, lapply(1:length(x)-1, function(u) {x[0:u]=0;cumsum(x)})) 
#  [,1] [,2] [,3] [,4] 
#[1,] 1 3 6 10 
#[2,] 0 2 5 9 
#[3,] 0 0 3 7 
#[4,] 0 0 0 4