Estou programando um simples algoritmo recursivo para calcular a sequência de Fibonacci em R, tal como faço no C. Segue o mesmo abaixo:
fibonacci <- function (n)
{
if (n == 1L)
return (0L)
else if (n == 2L || n == 3L)
return (1L)
else
return (fibonacci(n - 1L) + fibonacci(n - 2L))
}
n <- readline(prompt="Insira um valor inteiro: ")
n <- as.integer(n)
print(fibonacci(n))
O script aparentemente roda sem problemas no ambiente do RStudio. Mas ao executar no console do linux, recebo o seguinte erro:
Insira um valor inteiro: Error in if (n == 1L) return(0L) else if (n == 2L || n == 3L) return(1L) else return(fibonacci(n - : valor ausente onde TRUE/FALSE necessário Calls: print -> fibonacci Execução interrompida
Alguém poderia me ajudar?
stopifnot(n > 0L)
.