SCM Repository
| [matrix] / pkg / R / ddenseMatrix.R |
Diff of /pkg/R/ddenseMatrix.R
Parent Directory
| 
Revision Log
| 
Patch
| revision 1737, Tue Jan 23 17:14:20 2007 UTC | revision 1738, Tue Jan 23 17:17:15 2007 UTC | |
|---|---|---|
| # | Line 4 | Line 4 |
| 4 | ## >> but << needs all sub(sub(sub)) classes of "ddenseMatrix" listed | ## >> but << needs all sub(sub(sub)) classes of "ddenseMatrix" listed |
| 5 | ## ----- in ../src/Mutils.c | ## ----- in ../src/Mutils.c |
| 6 | ||
| ## Should this method return 'from' without duplication when it has | ||
| ## class dgeMatrix? | ||
| 7 | setAs("ddenseMatrix", "dgeMatrix", | setAs("ddenseMatrix", "dgeMatrix", |
| 8 | function(from) { | function(from) { |
| 9 | if (class(from) != "dgeMatrix") | if (class(from) != "dgeMatrix") |
| 10 | from <- .Call(dup_mMatrix_as_dgeMatrix, from) | .Call(dup_mMatrix_as_dgeMatrix, from) |
| 11 | from | else from |
| 12 | }) | }) |
| 13 | ||
| 14 | ## d(ouble) to l(ogical): | ## d(ouble) to l(ogical): |
|
||||||||
| root@r-forge.r-project.org | ViewVC Help |
| Powered by ViewVC 1.0.0 |
