參考資料來源
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)
}