-1

我正在处理一个简单的奇异值分解10x10的矩阵，并且所有条目为零。我想添加一个硬币翻转到这个矩阵并运行SVD。该代码是下面：越界下标错误

# Simple Example 
 

 
set.seed(1234) 
 
par(mar=rep(0.2,4)) 
 
dataMatrix = matrix(rnorm(100), nrow=10) 
 

 
dataMatrix 
 

 
getMatrix = dataMatrix*0 
 
getMatrix 
 

 
svd1 = svd(getMatrix) 
 
svd1 
 

 
par(mfrow=c(1,5)) 
 

 
image(t(getMatrix)[,nrow(getMatrix):1], col='blue') 
 
plot(svd1$d,xlab='Column',ylab='Singular Values', pch=19, col='red') 
 

 

 
## Add a pattern to the data set , flipping a coin 
 

 
set.seed(78910) 
 
for (i in 1:40){ 
 
    coinFlip1 = rbinom(1,size=1, prob=0.5) 
 
    coinFlip2 = rbinom(1,size=1,prob=0.5) 
 
    
 
    if (coinFlip1){ 
 
    getMatrix[i,]=getMatrix[i,]+rep(c(0,5),each=5) 
 
    } 
 
    if (coinFlip2){ 
 
    getMatrix[i,]=getMatrix[i,]+rep(c(0,5),each=5) 
 
    } 
 
} 
 

 
hh = hclust(dist(getMatrix)) 
 
getMatrixOrdered= getMatrix[hh$order,]

当我运行R中的程序时，它给我一个错误下面：

错误getMatrix [I，]：下标出界

的

我知道界限是无序的，所以我该如何解决？

谢谢！

来源

2017-04-02 erdemjohn

for (i in 1:40){

替代

for (i in 1:10){

来源

2017-04-02 00:57:05

越界下标错误

当我运行R中的程序时，它给我一个错误下面：

回答

相关问题