R三角数函数
R triangular numbers function
在编写一个小程序来计算满足方程式的右三角数时，我无意中发现了一个页面，其中包含有关函数 Triangular() 的文档
Triangular function
当我尝试使用它时，Rstudio 说找不到它而且我似乎找不到关于它可能在哪个库中的任何其他信息。
这个函数是否存在 and/or 还有其他方法可以用三角数填充向量吗？
- 这是一个基本的 R 解决方案，用于定义您的自定义三角数生成器，即
myTriangular <- function(n) choose(seq(n),2)
或
myTriangular <- function(n) cumsum(seq(n)-1)
这样
> myTriangular(10)
[1] 0 1 3 6 10 15 21 28 36 45
- 如果您想使用包
Zseq 中的 Triangular()，请尝试
Zseq::Triangular(10)
这样
> Zseq::Triangular(10)
Big Integer ('bigz') object of length 10:
[1] 0 1 3 6 10 15 21 28 36 45
自己做很简单：
triangular <- function(n) sapply(1:n, function(x) sum(1:x))
所以你可以这样做：
triangular(10)
# [1] 1 3 6 10 15 21 28 36 45 55
在编写一个小程序来计算满足方程式的右三角数时，我无意中发现了一个页面，其中包含有关函数 Triangular() 的文档 Triangular function
当我尝试使用它时，Rstudio 说找不到它而且我似乎找不到关于它可能在哪个库中的任何其他信息。
这个函数是否存在 and/or 还有其他方法可以用三角数填充向量吗？
- 这是一个基本的 R 解决方案，用于定义您的自定义三角数生成器，即
myTriangular <- function(n) choose(seq(n),2)
或
myTriangular <- function(n) cumsum(seq(n)-1)
这样
> myTriangular(10)
[1] 0 1 3 6 10 15 21 28 36 45
- 如果您想使用包
Zseq中的Triangular()，请尝试
Zseq::Triangular(10)
这样
> Zseq::Triangular(10)
Big Integer ('bigz') object of length 10:
[1] 0 1 3 6 10 15 21 28 36 45
自己做很简单：
triangular <- function(n) sapply(1:n, function(x) sum(1:x))
所以你可以这样做：
triangular(10)
# [1] 1 3 6 10 15 21 28 36 45 55