Заполните разреженную матрицу с помощью sapply в R

Question

Скажите X - это большая разреженная матрица, где каждая строка имеет только одну запись, отличную от нуля. У меня есть вектор pos с расположением столбцов, куда идет этот ненулевой элемент. Для того, чтобы заполнить матрицу, следующий цикл работы:

for (row in 1:nrow(X)) { 
    X[row, pos[row]] <- 1 
} 

Есть ли способ сделать это без петли, возможно, с помощью sapply?

Answer 1

Вы можете взглянуть на функции sparseMatrix от Matrix:

> library(Matrix) 
> (pos = sample(1:7)) 
[1] 5 1 6 4 7 2 3 
> sparseMatrix(1:7, pos) 
7 x 7 sparse Matrix of class "ngCMatrix" 

[1,] . . . . | . . 
[2,] | . . . . . . 
[3,] . . . . . | . 
[4,] . . . | . . . 
[5,] . . . . . . | 
[6,] . | . . . . . 
[7,] . . | . . . . 

В funcions из пакета Matrix принять некоторые использование, но они обеспечивают тонны преимуществ при работе с разреженными матрицами.