R语言学习3

#fib
fib <- function(n){
  if(n==0) x <- 0
  else if(n==1) x <- 1
  else if(n>=2) x <- Recall(n-1) +Recall(n-2)
  return(x)
}
for (n in 0:10) {
  cat("n=",n," x[n]=",fib(n),"\n")
}

#向量化
x <- c(-2, -0.5, 0, 0.5, 1, 1.5)
y <- numeric(length(x))
for (i in seq(along=x)) {
  if(abs(x[i])<=1) y[i] <- x[i]^2
  else y[i] <- 1
}
y