2

我想在 r 中生成一个 30000 x 30000 的矩阵，将 30000 个元素的向量乘以其转置，然后获得该矩阵的 SVD，但程序告诉我 r 无法找到大小为 900000000 的向量。帮帮我，什么我可不可以做？

y <- read.csv("C:\\Users\\jmarescr\\Desktop\\BigLetra50.csv",header=TRUE)

x <- matrix(y[1:30000,1],30000,1)
tx <- as.matrix(t(x))

mat <- x %*% tx

Error: can not allocate vector of length 900000000

s <- svd(mat)

Error in svd (x): object 'mat' not found
4

1 回答 1

7

SVD 的部分美妙之处在于，您无需取 的叉积x即可获得叉积的 SVD。

相反，您可以直接从 的 SVD 的元素中获取x%*%t(x)(aka )的 SVD。具体来说（直到 U 列的符号）SVD(x %*% t(x)) = UD^2 t(U)，其中 U 和 D 取自 的 SVD 。（有关参考，请参见此处。）tcrossprod(x)xx

要查看它的实际效果，请尝试一个较小的示例：

set.seed(1)
x <- matrix(rnorm(15), ncol=5)


svd(x)$d
# [1] 3.046842 1.837539 1.411585
sqrt(svd(tcrossprod(x))$d)
# [1] 3.046842 1.837539 1.411585

svd(x)$u
#            [,1]       [,2]      [,3]
# [1,] -0.3424029  0.7635281 0.5475264
# [2,] -0.8746155 -0.4719093 0.1111273
# [3,]  0.3432316 -0.4408248 0.8293766
svd(tcrossprod(x))$u
#            [,1]       [,2]      [,3]
# [1,] -0.3424029  0.7635281 0.5475264
# [2,] -0.8746155 -0.4719093 0.1111273
# [3,]  0.3432316 -0.4408248 0.8293766
svd(tcrossprod(x))$v
#            [,1]       [,2]      [,3]
# [1,] -0.3424029  0.7635281 0.5475264
# [2,] -0.8746155 -0.4719093 0.1111273
# [3,]  0.3432316 -0.4408248 0.8293766

另一种查看方式：

sss <- svd(x)

with(sss, u %*% diag(d)^2 %*% t(u))
#           [,1]      [,2]      [,3]
# [1,]  3.654154  1.684675 -1.322649
# [2,]  1.684675  7.877802 -1.900721
# [3,] -1.322649 -1.900721  3.120415

tcrossprod(x)
#           [,1]      [,2]      [,3]
# [1,]  3.654154  1.684675 -1.322649
# [2,]  1.684675  7.877802 -1.900721
# [3,] -1.322649 -1.900721  3.120415
于 2013-05-29T17:39:24.990 回答