如何获得R中的累积三角形

如何获得R中的累积三角形,r,R,我有个问题。我需要获得R Studio上的累积三角形 现在我有一个数据如下。它是增量的 AccidentYear <- c(2010,2011,2012) Dev0 <- c(100,50,70) Dev1 <- c(0,30,0) Dev2 <-c(50,0,0) IncrementalCL <- data.frame(AccidentYear,Dev0,Dev1,Dev2) acidentyear基本解决方案: x <- t(apply(Incremen

我有个问题。我需要获得R Studio上的累积三角形

现在我有一个数据如下。它是增量的

AccidentYear <- c(2010,2011,2012)
Dev0 <- c(100,50,70)
Dev1 <- c(0,30,0)
Dev2 <-c(50,0,0)
IncrementalCL <- data.frame(AccidentYear,Dev0,Dev1,Dev2)
acidentyear基本解决方案:

x <- t(apply(IncrementalCL[-1], 1, cumsum))
x[lower.tri(x)[, ncol(x):1]] <- 0
IncrementalCL[-1] <- x
IncrementalCL

#   AccidentYear Dev0 Dev1 Dev2
# 1         2010  100  100  150
# 2         2011   50   80    0
# 3         2012   70    0    0

x您是否使用了CumulativeCL而不是IncrementalCL作为数据?@SequenNRETAO我从
IncrementalCL
开始。怎么了?我错了,对不起。谢谢你的回复。如果Dev0在第3列声明,我应该如何编辑公式?我的意思是Dev0从第三列开始。@sequennretao只需将第一行和第三行的
IncrementalCL[-1]
更改为
IncrementalCL[-1:2]
@sequennretao我说的是在第一行和第三行更改
IncrementalCL[-1]
。你只改变第一行。
AccidentYear <- c(2010,2011,2012)
Information1 <- c("Info1","Info2","Info3")
Information2 <- c("Info1","Info2","Info3")
Dev0 <- c(100,50,70)
Dev1 <- c(0,30,0)
Dev2 <-c(50,0,0)
IncrementalCL <- data.frame(AccidentYear,Information1,Information2,Dev0,Dev1,Dev2)
x <- t(apply(IncrementalCL[-1], 1, cumsum))
x[lower.tri(x)[, ncol(x):1]] <- 0
IncrementalCL[-1] <- x
IncrementalCL

#   AccidentYear Dev0 Dev1 Dev2
# 1         2010  100  100  150
# 2         2011   50   80    0
# 3         2012   70    0    0