Po zapoznaniu się zopcje pracy z macierzami rzadkimi w R, Chcę użyćMatryca pakiet, aby utworzyć rzadką macierz z następującej ramki danych i mieć wszystkie inne elementyNA.

     s    r d
1 1089 3772 1
2 1109  190 1
3 1109 2460 1
4 1109 3071 2
5 1109 3618 1
6 1109   38 7

Wiem, że mogę utworzyć rzadką matrycę z następującymi dostępami jak zwykle:

> library(Matrix)
> Y <- sparseMatrix(s,r,x=d)
> Y[1089,3772]
[1] 1
> Y[1,1]
[1] 0

ale jeśli chcę mieć wartość domyślną jako NA, spróbowałem:

  M <- Matrix(NA,max(s),max(r),sparse=TRUE)
  for (i in 1:nrow(X))
    M[s[i],r[i]] <- d[i]

i dostałem ten błąd

Error in checkSlotAssignment(object, name, value) : 
  assignment of an object of class "numeric" is not valid for slot "x" in an object of class "lgCMatrix"; is(value, "logical") is not TRUE

Co więcej, uważam, że dostęp do elementów trwa znacznie dłużej.

> system.time(Y[3,3])
   user  system elapsed 
  0.000   0.000   0.003 
> system.time(M[3,3])
   user  system elapsed 
  0.660   0.032   0.995 

Jak powinienem tworzyć tę macierz? Dlaczego jedna matryca działa dużo wolniej?

Oto fragment kodu dla powyższych danych:

X <- structure(list(s = c(1089, 1109, 1109, 1109, 1109, 1109), r = c(3772, 
190, 2460, 3071, 3618, 38), d = c(1, 1, 1, 2, 1, 7)), .Names = c("s", 
"r", "d"), row.names = c(NA, 6L), class = "data.frame")