错误于`[<-`(`*tmp*`, i + 1, j + 1, value = choose(i, j)): 下标出界

在R语言中，当你遇到错误信息`[<-`(`*tmp*`, i + 1, j + 1, value = choose(i, j)): 下标出界，通常意味着你在尝试访问数组的某个位置，但是这个索引超出了数组的实际边界。

在这个上下文中，`*tmp*`可能是你在构建杨辉三角时使用的临时矩阵，而`i + 1`和`j + 1`是你试图设置值的位置。`choose(i, j)`返回的是组合数，但在`for`循环中，`j`应该从`max(i - n + 1, 0)`开始到`min(i + 1, n)`结束，如果在计算过程中`j`超过了这个范围，就会导致下标越界错误。

解决这个问题的方法是在`for`循环内部检查索引是否有效。当`j`超出范围时，可以跳过当前迭代或者处理错误。例如：

draw_pascal_triangle <- matrix(0, nrow = n, ncol = n)
  
  # 检查索引是否合法
  for (i in 0:(n-1)) {
    for (j in max(i - n + 1, 0):min(i + 1, n)) {
      if (i + j < n && i >= j) {  # 只有当i+j不大于n且i大于等于j时才赋值
        triangle[i+1, j+1] <- choose(i, j)
      } else {
        warning("Invalid index: skipping", call. = FALSE)
      }
    }
  }
  print(triangle)
}

通过添加这样的检查，你可以避免因索引超出范围而导致的错误。