R : 두 개의 Quanteda DFM 스파 스 행렬의 행렬 곱셈에 의해 주어진 빈 dgCMatrix를 초기화 하시겠습니까?

Question

내가 더미 바르와 솔루션 here을 구현하기 위해 노력하고,이 같은 루프가이

aaa <- DFM %*% t(DFM) #DFM is Quanteda dfm-sparse-matrix 
for(i in 1:nrow(aaa)) aaa[i,] <- aaa[i,][order(aaa[i,], decreasing = TRUE)] 

하지만 지금

for(i in 1:nrow(mmm)) mmm[i,] <- aaa[i,][order(aaa[i,], decreasing = TRUE)] 

어디 mmm 아직 존재하지 않도록, 목표는 작업을 수행하는 것입니다 mmm <- t(apply(a, 1, sort, decreasing = TRUE))과 같은 것. 하지만 이제 for 루프 전에 mmm을 초기화해야합니다. Error: object 'mmm' not found. aaa과 mmm의 유형은 이며 2의 행렬 곱셈에 의해 주어진 Quantada DFM matrices입니다.

구조

aaaFunc는 DFM은 Quanteda DFM 희소 행렬 인 매트릭스 곱셈 DFM %*% t(DFM) 주어진다. 구조는 방법과 DFM에

> str(aaaFunc) 
Formal class 'dgCMatrix' [package "Matrix"] with 6 slots 
    ..@ i  : int [1:39052309] 0 2 1 0 2 2616 2880 3 4 5 ... 
    ..@ p  : int [1:38162] 0 2 3 7 8 10 13 15 16 96 ... 
    ..@ Dim  : int [1:2] 38161 38161 
    ..@ Dimnames:List of 2 
    .. ..$ : chr [1:38161] "90120000" "90120000" "90120000" "86140000" ... 
    .. ..$ : chr [1:38161] "90120000" "90120000" "90120000" "86140000" ... 
    ..@ x  : num [1:39052309] 1 1 1 1 2 1 1 1 2 1 ... 
    ..@ factors : list() 

ERRORS 등등 콘텐츠 있지만 구조/않고 R 오브젝트를 복제에 일반적인 질문에 here 언급하도록한다. replace(...,NA)

01,235,164와 mySparseMatrix.mt[nrow(mySparseMatrix),]<-

> aaaFunc.mt <- aaaFunc[0,]; aaaFunc.mt[nrow(aaaFunc),] <- NA 
Error in intI(i, n = di[margin], dn = dn[[margin]], give.dn = FALSE) : 
    index larger than maximal 0 

C. 오차 aaaFunc.mt[]<- NA

> aaaFunc.mt <- aaaFunc[0,]; aaaFunc.mt[] <- NA; aaaFunc.mt[1,] 
Error in intI(i, n = x@Dim[1], dn[[1]], give.dn = FALSE) : index larger than maximal 0 

B. 오차

A. 에러

Browse[2]> mmmFunc <- replace(aaaFunc,NA); 
Error in replace(aaaFunc, NA) : 
    argument "values" is missing, with no default 
Browse[2]> mmmFunc <- replace(aaaFunc,,NA); 
Error in `[<-`(`*tmp*`, list, value = NA) : 
    argument "list" is missing, with no default 
Browse[2]> mmmFunc <- replace(aaaFunc,c(),NA); 
Error in .local(x, i, j, ..., value) : 
    not-yet-implemented 'Matrix[<-' method 

어떻게 두 Quanteda DFM 행렬의 행렬 곱셈에 의해 주어진 빈 dgCMatrix을 초기화합니까?

Answer 1

크기와 dimnames

library(Matrix) 

i <- c(1,3:8) 
j <- c(2,9,6:10) 
x <- 7 * (1:7) 
A <- sparseMatrix(i, j, x = x) 
rownames(A) <- letters[seq_len(nrow(A))] 

A2 <- sparseMatrix(i = integer(0), j = integer(0), dim = A@Dim, dimnames = A@Dimnames) 

A@i <- integer(0) 
A@p[] <- 0L 
A@x <- numeric(0) 

setequal(A, A2) 
[1] TRUE