SCM Repository
[matrix] Diff of /pkg/R/Auxiliaries.R
Diff of /pkg/R/Auxiliaries.R
Parent Directory
|
Revision Log
|
Patch
1094 |
x@diag <- "N" |
x@diag <- "N" |
1095 |
x |
x |
1096 |
} |
} |
1097 |
else { |
else { ## not dense, not [CT]sparseMatrix ==> Rsparse* |
1098 |
xT <- as(as(x, paste(kind, "Matrix", sep='')), "TsparseMatrix") |
xT <- as(as(x, paste(kind, "Matrix", sep='')), "TsparseMatrix") |
1099 |
## leave it as T* - the caller can always coerce to C* if needed: |
## leave it as T* - the caller can always coerce to C* if needed: |
1100 |
new(paste(kind, "tTMatrix", sep=''), x = xT@x, i = xT@i, j = xT@j, |
new(paste(kind, "tTMatrix", sep=''), x = xT@x, i = xT@i, j = xT@j, |
|
Legend:
Removed from v.2222 |
|
changed lines |
|
Added in v.2223 |
|
|