The R Project SVN R-packages

Rev

Rev 5013 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5013 Rev 5028
Line 65... Line 65...
65 
	  function(x, type, ...) norm(as(x, "dgeMatrix")))
 65 
	  function(x, type, ...) norm(as(x, "dgeMatrix")))
66 
 
 66 
 
67 
setMethod("norm", signature(x = "ddenseMatrix", type = "character"),
 67 
setMethod("norm", signature(x = "ddenseMatrix", type = "character"),
68 
	  function(x, type, ...) norm(as(x, "dgeMatrix"), type))
 68 
	  function(x, type, ...) norm(as(x, "dgeMatrix"), type))
69 
 
 69 
 
70 
setMethod("rcond", signature(x = "ddenseMatrix", type = "missing"),
 70 
setMethod("rcond", signature(x = "ddenseMatrix", norm = "missing"),
71 
	  function(x, type, ...) rcond(as(x, "dgeMatrix")))
 71 
	  function(x, norm, ...) rcond(as(x, "dgeMatrix"), ...))
72 
 
 72 
 
73 
setMethod("rcond", signature(x = "ddenseMatrix", type = "character"),
 73 
setMethod("rcond", signature(x = "ddenseMatrix", norm = "character"),
74 
	  function(x, type, ...) rcond(as(x, "dgeMatrix"), type))
 74 
	  function(x, norm, ...) rcond(as(x, "dgeMatrix"), norm, ...))
75 
 
 75 
 
76 
## Not really useful; now require *identical* class for result:
 76 
## Not really useful; now require *identical* class for result:
77 
## setMethod("t", signature(x = "ddenseMatrix"),
 77 
## setMethod("t", signature(x = "ddenseMatrix"),
78 
## 	  function(x) callGeneric(as(x, "dgeMatrix")))
 78 
## 	  function(x) callGeneric(as(x, "dgeMatrix")))
79 
 
 79