求大佬解答一个小的循环问题

如图我想实现一个循环，以第一行为例，取K从0到Number（即119），对数据进行循环求和最后生成AF现在这一栏数据是错的）。然后运用到这个list的每一行，就生成AF这一列，请问该如何编程...谢谢！
（如下图，求和是下面这样子的，Ep是常量）

试一下这个吧
ep <- 0.5
fun_1 <- function(x){
  vec_1 <- 1:x
  vec_2 <- abs(vec_1/x - ep)*dbinom(vec_1,x,ep)
  result <- sum(vec_2)
  return(result)
}
AF <- vector("numeric", nrow(Fund03))
for(i in seq_along(AF)){
  AF[i] <- fun_1(Fund03$Number[i])
}

fun_af<-function(x,c){
  af<- 0
  ep<- 0.5
  cc<-x[c]
  for (k in 0:cc) {
    af<-af+ abs(k/cc-ep)*dbinom(k,cc,ep)
  }
  return(af)
}

fund03$af<-apply(fund03, 1, fun_af,c="number")