Я не уверен, почему у вас возникли проблемы, потому что вы можете использовать as()
для принудительного ngTMatrix
к ngCMatrix
:
> pm <- as(as.integer(c(2,3,1)), "pMatrix")
3 x 3 sparse Matrix of class "pMatrix"
[1,] . | .
[2,] . . |
[3,] | . .
> pm.t <- as(pm, 'ngTMatrix')
> pm.c <- as(pm.t, 'ngCMatrix')
> class(pm.c)
[1] "ngCMatrix"
attr(,"package")
[1] "Matrix"
> class(pm.t)
[1] "ngTMatrix"
attr(,"package")
[1] "Matrix"