R-svd（）函数 - 'x'中的无限或缺失值

我不断收到此错误。我相信矩阵没有任何非数字条目。我也尝试输入矩阵，没有工作。R-svd（）函数 - 'x'中的无限或缺失值

任何人都知道错误可能是什么？

fileUrl <- "https://dl.dropboxusercontent.com/u/76668273/kdd.csv"; 
download.file(fileUrl,destfile="./kdd.csv",method="curl"); 
kddtrain <- read.csv("kdd.csv"); 
kddnumeric <- kddtrain[,sapply(kddtrain,is.numeric)]; 
kddmatrix <- as.matrix(kddnumeric); 
svd1 <- svd(scale(kddmatrix));

来源

2014-01-29 Shubham Saini

将来，一个小的可再现的示例（而不是东西，需要下载）是表示赞赏。 –

您有由所有零组成的列。在所有零列上使用scale将返回由NaN组成的列。要解决这个问题，请删除全部为零的列（svd不会透露任何关于它们的新内容），或者在使用scale后用012替换NaN列。

重现的例子：

mat <- matrix(c(1,2,3,0,0,0,2,4,6,5,12,13),nrow = 3) 
    # [,1] [,2] [,3] [,4] 
# [1,] 1 0 2 5 
# [2,] 2 0 4 12 
# [3,] 3 0 6 13 
scale(mat) 
    # [,1] [,2] [,3]  [,4] 
# [1,] -1 NaN -1 -1.1470787 
# [2,] 0 NaN 0 0.4588315 
# [3,] 1 NaN 1 0.6882472 
# attr(,"scaled:center") 
# [1] 2 0 4 10 
# attr(,"scaled:scale") 
# [1] 1.000000 0.000000 2.000000 4.358899 
svd(mat) #fine 
svd(scale(mat)) # not fine

来源

2014-01-29 07:24:02

非常感谢，完美的答案。在申请svd之前解决了一个简单的线kddmatrix < - kddmatrix [，colSums（kddmatrix！= 0）！= 0]。 –

R-svd（）函数 - 'x'中的无限或缺失值

回答

相关问题