R-if（nrow（M）==2）{中的错误：参数的长度为零

在以下代码中：

det<-function(M)
{
    if (nrow(M) == 2)
    {
        return(M[1,1]*M[2,2]-M[1,2]*M[2,1])
    }
    else
    {
      d<-0
      for (i in 1:ncol(M))
      {
        d<-d+(-1)^(i+1)*M[1][i]*det(M[-1,i])
      }
      return(d)
   }
}

我得到一个错误：

如果nrowM==2{：参数的长度为零，则出错

---

您使用的是递归函数，问题如下：

d<-d+(-1)^(i+1)*M[1][i]*det(M[-1,i])

---

请注意，即使修复了此问题，函数也会失败。在if语句中，您访问第二列，但M[-1，i]始终只有一列。

您使用的是递归函数，问题在下面一行：

d<-d+(-1)^(i+1)*M[1][i]*det(M[-1,i])

请注意，即使修复此问题，函数也会失败。在if语句中，您访问第二列，但M[-1，i]将始终只有一列。

或仅使用NROW而不是NROW。或仅使用NROW而不是NROW。det函数已存在于R中，并且完全执行您尝试执行的操作。det函数已存在于R中，并且完全执行您尝试执行的操作。

d<-d+(-1)^(i+1)*M[1][i]*det(M[-1,i])

x <- matrix(1:9, nrow=3)
x[-1, 1]
# [1] 2 3
x[-1, 1, drop=FALSE]
#      [,1]
# [1,]    2
# [2,]    3