homework <- function(Sum=70, Div=0.6, Dec=1){ do.call(c,lapply(1:Sum, funct...
funSum <- function(n){ sum <- 0 for(i in 1:n){ sum <- sum + 1/i...
用if的話要寫迴圈 data$Level <- sapply(data$Followers, function(x){ if (x>50 &am...
jiehong的鐵人檔案