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 2119, Tue Mar 4 21:44:04 2008 UTC revision 2120, Tue Mar 4 21:44:41 2008 UTC
# Line 885  Line 885 
885  {  {
886      if(extends(cl, "CsparseMatrix"))      if(extends(cl, "CsparseMatrix"))
887          .Call(Csparse_diagU2N, x)          .Call(Csparse_diagU2N, x)
888        else if(extends(cl, "TsparseMatrix"))
889            .Call(Tsparse_diagU2N, x)
890      else {      else {
891          kind <- .M.kind(x, cl)          kind <- .M.kind(x, cl)
892          xT <- as(x, paste(kind, "gTMatrix", sep=''))          xT <- as(x, paste(kind, "gTMatrix", sep=''))

Legend:
Removed from v.2119  
changed lines
  Added in v.2120

root@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