Hola como puedo crear una funcion que entregue la suma de de una progresion geometrica con a , r , y el numero de sumandos n
ejemplo
a
a+ar
a+ar+ar*r
Hola:
Aplicando las fórmulas
psum <- function(a, r, n) {
if (n == Inf) {
if (abs(r) < 1) {
s = a/(1-r)
} else {
s = "No tiene suma finita"
}
} else {
s = (a*r^n-a)/(r-1)
}
s
}
> psum(1, 1/2, 3)
[1] 1.75
> psum(1, 2, 5)
[1] 31
> psum(1, 1/2, Inf)
[1] 2
> psum(1, 2, Inf)
[1] "No tiene suma finita"
Un saludo.
Visita mi tutorial de R en YouTube:
https://www.youtube.com/watch?v=ja5C4bA8hvQ&t=6s