SCM

SCM Repository

[matrix] Diff of /pkg/R/Auxiliaries.R
ViewVC logotype

Diff of /pkg/R/Auxiliaries.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2222, Fri Jul 18 10:00:25 2008 UTC revision 2223, Fri Jul 18 23:04:48 2008 UTC
# Line 1094  Line 1094 
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

R-Forge@R-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business University of Wisconsin - Madison Powered By FusionForge