Coding challenge

Ejercicio 1

#Ejercicio 4
fibo <- function(n){
  a<-c()
  a[1:2]<-1
  b<-TRUE
  i<-3
  while (b==TRUE) {
    r<-a[i-2]+a[i-1]
    if(r<n){
      a[i]<-r
      i<-i+1}
    else{b<-FALSE}
    b
  }
  return(a)
  }
  
fibo10<-fibo(10)

El resultado es fibo10