R file for Fibonacci number
# script for Fibonacci number, attached below.
fib<-function(n){
a<-c(1,1)
for (i in 3:n){
a[i]=a[i-1]+a[i-2]
}
return(a)