程序源：

gf <- c(2,1,NA,4,5,2,3,NA)

dim(gf) <- c(5,3)

    n = nrow(gf)
    r = ncol(gf)

    for (i in 1:r) {
        col <- gf[,i]
        if (FALSE %in% (c(1:n) == col[col])) {
          cat("Error (i):",i,"\n")
          break
        }
    }
    gf

矩阵表示每轮一列的游戏文件。如果x在游戏中遇到y，则y在同一游戏中遇到x。测试对称矩阵中的冗余是否一致。

    Matrix:
      [,1] [,2] [,3]
[1,]    2    4    3
[2,]    1    5   NA
[3,]   NA   NA    1
[4,]    4    1   NA
[5,]    5    2   NA

如何消除for循环并拥有纯矩阵公式？