我如何在R中表示这个几何级数？

# 定义初始项和公比
a <- 1  # 初始项
r <- 2  # 公比

# 计算前10个项的值
n <- 10  # 总项数
geom_series <- numeric(n)  # 创建一个空向量用于存储项的值

for (i in 1:n) {
  geom_series[i] <- a * r^(i-1)
}

# 打印结果
print(geom_series)

# 定义递归函数
geom_recursive <- function(n) {
  if (n == 1) {
    return(a)  # 返回初始项
  } else {
    return(geom_recursive(n-1) * r)  # 递归计算下一个项的值
  }
}

# 计算前10个项的值
n <- 10  # 总项数
geom_series <- sapply(1:n, geom_recursive)

# 打印结果
print(geom_series)