2

所以我试图创建一个 if 语句，如果列数大于 1，那么它将对该矩阵进行多种形式的操作，如果矩阵的列数少于或等于 1，则不会进行分析。这是一些代码：

M <- NxN 矩阵

 if (ncol(M) > 1) {
      function1
      function2
      function3
      ...
 }
 else {}

但是，当我这样做时，我不断收到以下错误：

 Error in if (ncol(M) > 1) { : argument is of length zero
4

2 回答 2

4

您的M对象可能不是矩阵。我们将创建一个矩阵并查看您的代码输出什么，然后我们将探索一种您可能不小心将其更改为向量的方法，然后我们将了解如何对矩阵进行子集化，而不会错误地以向量结束。

N <- 10
M <- matrix(sample(1:100, N*N, replace=TRUE), N, N)

colTest <- function(M) {
    if (ncol(M) > 1) {
        print("More than one column.")
    } else {
        print("One or fewer columns.")
    }
}
colTest(M)
M.vector <- M[, 2]
colTest(M.vector)
class(M.vector)
M.submatrix <- M[, 2, drop=FALSE]
colTest(M.submatrix)
class(M.submatrix)

输出：

[1] "More than one column."
Error in if (ncol(M) > 1) { : argument is of length zero
[1] "integer"
[1] "One or fewer columns."
[1] "matrix"

将来，当您遇到此类问题时，请尝试使用strandclass函数：它们将向您显示任何对象的结构和类。

于 2013-03-13T18:53:06.330 回答
0

在 R 中尝试ifelse条件：

ifelse(nrow(df) >0, df[nrow(df),4]<- "ok",df[1,1]<- "No record found")
于 2021-11-19T18:54:36.477 回答