R函數function

oddcount<-function(x){
 K<-0
 for (n in x){
 if (n%%2==1){
 K<-K+1
 }
 
 }
 return(K)
}
test<-c(1:100)
oddcount(test)

nfact2<-function(n){
 if (n==1){
 “called nfact2(1)\n}”
 return(1)
 }else{
 cat(“called nfact2(“,n,”)\n”,sep=””)
 return(n*nfact2(n-1))
 }
 
}

nfact2(5)

Fibonacci<-function(x){
 fn=numeric(x)
 fn[1]=1
 fn[2]=1
 for(i in 3:length(fn)){
 fn[i]=fn[i-1]+fn[i-2]
 }
 return(max(fn))
}
Fibonacci(50)