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 1174, Mon Jan 16 20:03:48 2006 UTC revision 1198, Mon Jan 23 15:01:02 2006 UTC
# Line 215  Line 215 
215      stopifnot(is(from, "lMatrix"))      stopifnot(is(from, "lMatrix"))
216      fixupDense(new(sub("^l", "d", class(from)),      fixupDense(new(sub("^l", "d", class(from)),
217                     x = as.double(from@x),                     x = as.double(from@x),
218                     Dim = from@Dim, Dimnames = from@Dimnames,                     Dim = from@Dim, Dimnames = from@Dimnames),
                    factors = list()), ## FIXME: treat 'factors' smartly  
219                 from)                 from)
220        ## FIXME: treat 'factors' smartly {not for triangular!}
221  }  }
222    
223  if(FALSE)# unused  if(FALSE)# unused
# Line 230  Line 230 
230  d2l_Matrix <- function(from) {  d2l_Matrix <- function(from) {
231      stopifnot(is(from, "dMatrix"))      stopifnot(is(from, "dMatrix"))
232      fixupDense(new(sub("^d", "l", class(from)),      fixupDense(new(sub("^d", "l", class(from)),
233                     Dim = from@Dim, Dimnames = from@Dimnames,                     Dim = from@Dim, Dimnames = from@Dimnames),
                    factors = list()), ## FIXME: treat 'factors' smartly  
234                 from)                 from)
235        ## FIXME: treat 'factors' smartly {not for triangular!}
236  }  }
237    
238    

Legend:
Removed from v.1174  
changed lines
  Added in v.1198

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge