R程序运行报错，怎么改都不行，大家帮我看下什么问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

rm(list=ls())  #清楚内存
library(Matrix)
rSparseMatrix <- function(nrow, ncol, nnz,
                          rand.x = function(n) runif(nnz, 0,1), ...)
{
  stopifnot((nnz <- as.integer(nnz)) >= 0,
            nrow >= 0, ncol >= 0, nnz <= nrow * ncol)
  sparseMatrix(i = sample(nrow, nnz, replace = TRUE),
               j = sample(ncol, nnz, replace = TRUE),
               x = rand.x(nnz), dims = c(nrow, ncol), ...)
}
nInternalUnits<-100
connectivity<-10
nrow<-nInternalUnits
ncol<-nInternalUnits
nnz<-connectivity
maxVal<-0

    internalWeights<-rSparseMatrix(nrow, ncol, nnz)
    internalWeights[internalWeights!=0]
运行后：
总是提示：<sparse>[ <logic> ] : .M.sub.i.logical() maybe inefficient
这时怎么回事，大家帮看看

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：运行报错 R程序 Library matrix sparse 程序

你的程序大概是干嘛的？

internalWeights[internalWeights!=0]  想计算稀疏矩阵中的每一个非零元素减一个指定数值

There is a much more efficient way to get the NON-ZERO/missing elements out of a sparse matrix. See the program below.

library(Matrix)
rSparseMatrix <- function(nrow, ncol, nnz,
                          rand.x = function(n) runif(nnz, 0,1), ...)
{
  stopifnot((nnz <- as.integer(nnz)) >= 0,
            nrow >= 0, ncol >= 0, nnz <= nrow * ncol)
  sparseMatrix(i = sample(nrow, nnz, replace = TRUE),
               j = sample(ncol, nnz, replace = TRUE),
               x = rand.x(nnz), dims = c(nrow, ncol), ...)

}
set.seed(123)
nInternalUnits<-5000
connectivity<-100
nrow<-nInternalUnits
ncol<-nInternalUnits
nnz<-connectivity
maxVal<-0

internalWeights<-rSparseMatrix(nrow, ncol, nnz)
as.matrix(summary(internalWeights))
internalWeights[internalWeights!=0]


system.time(as.matrix(summary(internalWeights)))
system.time(internalWeights[internalWeights!=0])

运行后：
还是提示：<sparse>[ <logic> ] : .M.sub.i.logical() maybe inefficient
请问该提示可以忽略吗，会不会产生不良影响啊？

统计R浪人 发表于 2013-5-31 14:54
运行后：
还是提示：[  ] : .M.sub.i.logical() maybe inefficient
请问该提示可以忽略吗，会不会产生不良 ...

No. AFAIK.