estou tentando da seguinte forma:
H <- function(n) {
for (i in 1:length(n))
{
x <- 0
a <- 2
b <- 3
func = x + a/b
a+2
b+2
return(func)
}
}
Alguém sabe como resolver?
Stack Overflow em Português é um site de perguntas e respostas para programadores profissionais e entusiastas. Leva apenas um minuto para se inscrever.
Inscreva-se para participar desta comunidadeEis cinco formas de resolver o problema.
while
H1 <- function(n){
numer <- 2L
denom <- 3L
termos <- 0L
total <- 0L
while(termos < n){
total <- total + numer/denom
numer <- numer + 2L
denom <- denom + 2L
termos <- termos + 1L
}
total
}
H1(4)
#[1] 3.212698
for
H2 <- function(n){
total <- 0
for(i in seq_len(n)){
total <- total + 2*i/(2*i + 1L)
}
total
}
H2(4)
#[1] 3.212698
*apply
.H3 <- function(n){
x <- sapply(seq_len(n), function(i) 2*i/(2*i + 1L))
sum(x)
}
H3(4)
#[1] 3.212698
Esta é a melhor maneira, a mais correta uma vez que o R é uma linguagem vetorizada. Primeiro cria dois vetores, um de números pares (os numeradores das frações) e o outro de números ímpares (os denominadores). Depois, com uma única instrução, calcula todas as frações e soma os resultados. Como essa é a última instrução, será o valor de saída da função.
H <- function(n){
pares <- seq(2, by = 2, length.out = n)
impares <- seq(3, by = 2, length.out = n)
sum(pares/impares)
}
H(4)
#[1] 3.212698
E agora numa só linha.
H <- function(n) sum(2*seq_len(n)/(2*seq_len(n) + 1))
H(4)
#[1] 3.212698