返回NULL是因为10不是整数。注意，在if语句中，有一个条件!is.integer(dim_mat)，它的计算结果是TRUE，因此返回NULL来使用你的函数，考虑只传递整数：

hilbert_matrix(3)
NULL

hilbert_matrix(3L) # Appending `L` to 3
          [,1]      [,2]      [,3]
[1,] 1.0000000 0.5000000 0.3333333
[2,] 0.5000000 0.3333333 0.2500000
[3,] 0.3333333 0.2500000 0.2000000

hilbert_matrix(as.integer(3)) # explicit coercing to integer
          [,1]      [,2]      [,3]
[1,] 1.0000000 0.5000000 0.3333333
[2,] 0.5000000 0.3333333 0.2500000
[3,] 0.3333333 0.2500000 0.2000000

字符串
检查数字是否为整数的最佳方法是as.integer(x) == x或floor(x) == x等，而不是直接检查is.integer(x)。
无论你做什么，都相当于：

hilbert_mat2 <- function(dim_mat){
 if(!is.numeric(dim_mat) | length(dim_mat) != 1 | dim_mat <= 0 | floor(dim_mat) != dim_mat) return (NULL)
 dm <- c(dim_mat, dim_mat)
 1/(.col(dm) + .row(dm))
}


hilbert_mat2(3)
          [,1]      [,2]      [,3]
[1,] 0.5000000 0.3333333 0.2500000
[2,] 0.3333333 0.2500000 0.2000000
[3,] 0.2500000 0.2000000 0.1666667

型

@Onyambu已经解释了你得到NULL的原因，所以没有必要在这里再次讨论它，但下面的代码只是Hilbert矩阵的另一个较短的实现。
试试outer

hilbert_matrix <- function(n) 1 / (outer(1:n, 1:n, `+`) - 1)

字符串
你会得到，例如，

> hilbert_matrix(3)
          [,1]      [,2]      [,3]
[1,] 1.0000000 0.5000000 0.3333333
[2,] 0.5000000 0.3333333 0.2500000
[3,] 0.3333333 0.2500000 0.2000000

> hilbert_matrix(5)
          [,1]      [,2]      [,3]      [,4]      [,5]
[1,] 1.0000000 0.5000000 0.3333333 0.2500000 0.2000000
[2,] 0.5000000 0.3333333 0.2500000 0.2000000 0.1666667
[3,] 0.3333333 0.2500000 0.2000000 0.1666667 0.1428571
[4,] 0.2500000 0.2000000 0.1666667 0.1428571 0.1250000
[5,] 0.2000000 0.1666667 0.1428571 0.1250000 0.1111111

型