我希望有人能帮助我编写一些用于压缩向量的简单代码。
我目前正在研究ODE疾病模型。我有一个载体，它代表了受感染的马的数量。马必须通过"；x〃；它们离开隔间之前的阶段数。该模型是在网格系统上建立的，因此对于每个模拟，我都有"；n〃；在载体中表示的细胞数。所以向量的长度是x*n。
我想总结每个细胞在所有阶段的马的数量，所以结果是长度为"0"的向量；n〃；。例如。。。
n <- 5
x <- 3
inf <- c(1,2,3,
4,5,6,
7,8,9,
10,11,12,
13,14,15)
outcome <- c(6,
15,
24,
33,
42)
理想情况下，我不想把它放在某种循环中，因为我的代码计算量已经很重了，我负担不起增加更多的时间来运行它
这个怎么样：
colSums(matrix(inf,nrow=x,ncol=n))