R 算法：不同的对象长度

有什么建议吗？非常感谢你

我们可以将'a'中的每个元素复制为'b'的

长度

，除以'b'，转换为

矩阵

，得到列和（

列和

）

---

或者我们循环遍历“a”的每个元素，除以“b”，得到

和

 colSums(matrix(b/rep(a, each=length(b)), ncol=8))
 #[1] 1650.0000 1237.5000  990.0000  825.0000  707.1429  618.7500  550.0000
 #[8]  495.0000


或者一个简洁的选择是

sapply(a, function(x) sum(b/x))
#[1] 1650.0000 1237.5000  990.0000  825.0000  707.1429  618.7500  550.0000
#[8]  495.0000

 colSums(matrix(b/rep(a, each=length(b)), ncol=8))
 #[1] 1650.0000 1237.5000  990.0000  825.0000  707.1429  618.7500  550.0000
 #[8]  495.0000

sapply(a, function(x) sum(b/x))
#[1] 1650.0000 1237.5000  990.0000  825.0000  707.1429  618.7500  550.0000
#[8]  495.0000

colSums(outer(b,a, FUN='/'))