
參考資料來源
MySum.function <- function(x) { 
    sum <- 0 
    for (n in x) { 
        sum <- sum + (1/n) 
    } 
    return(sum) 
} 
  
MySum.function(c(1,2,5)) 
                        funSum <- function(n){
  sum <- 0
  for(i in 1:n){
    sum <- sum + 1/i
  }
  return(sum)
}