R tri angular функция чисел

Question

Работая над небольшой программой для вычисления правильного числа tri angular, которое удовлетворяет уравнению, я наткнулся на страницу с документацией по функции Tri angular () Tri angular function

Когда я пытался использовать это, Rstudio говорит, что не может найти его, и я не могу найти какую-либо другую информацию о том, в какой библиотеке это может быть.

Имеет ли эта функция даже существуют и / или есть другие способы заполнить вектор числами tri angular?

Answer 1

• Вот базовое решение R для определения вашего пользовательского генератора три angular чисел, т.е.

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

• Если вы хотите использовать Triangular() из пакета Zseq, попробуйте

Zseq::Triangular(10)

, чтобы

> Zseq::Triangular(10)
Big Integer ('bigz') object of length 10:
 [1] 0  1  3  6  10 15 21 28 36 45

Answer 2

Это довольно легко сделать самостоятельно:

triangular <- function(n) sapply(1:n, function(x) sum(1:x))

Так что вы можете сделать:

triangular(10)
# [1]  1  3  6 10 15 21 28 36 45 55