试一下这个吧
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")