应用或外部函数没有循环

Question

A = function(j,x){
  if(x<0 & x>j){stop(print(1))}
   else{
     s=0
     for(k in 0:x){
      s = s + ((j-1) * ((2)^k) * x)
    }
  }
 return(s)
}

在旁注中，有没有人知道如何不使用循环并使用外部或apply这样的函数来运行它？

Answer 1

像这样：？

j <- 2
x <- 2

A(j, x)
# [1] 14

A2  <- function(j, x){
  if(x<0 & x>j) {
    stop(print(1))
    } else {
      s <- sum((j-1) * 2^(0:x) * x)
  }
  return(s)
}

A2(j, x)
# [1] 14