The R Project SVN R-packages

Rev

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

Rev 4817 Rev 5017
Line 8... Line 8...
8 
	  function(object) { ## cheap one -- can have better for sub-classes
 8 
	  function(object) { ## cheap one -- can have better for sub-classes
9 
	      ## cl <- class(object)
 9 
	      ## cl <- class(object)
10 
	      ## cat(sprintf("'MatrixFactorization' of class \"%s\"\n", cl))
 10 
	      ## cat(sprintf("'MatrixFactorization' of class \"%s\"\n", cl))
11 
	      cat("'MatrixFactorization' of ")
 11 
	      cat("'MatrixFactorization' of ")
12 
	      str(object)
 12 
	      str(object)
13 
	      })
 13 
	  })
- 
 
 14 
setMethod("show", "BunchKaufman",
- 
 
 15 
	  function(object) {
- 
 
 16 
	      cat("'Bunch-Kaufman' factorization of ")
- 
 
 17 
	      str(object)
- 
 
 18 
	  })
- 
 
 19 
setMethod("show", "pBunchKaufman",
- 
 
 20 
	  function(object) {
- 
 
 21 
	      cat("packed 'Bunch-Kaufman' factorization of ")
- 
 
 22 
	      str(object)
- 
 
 23 
	  })
14 
 
 24 
 
15 
setMethod("dim", "MatrixFactorization", function(x) x@Dim)
 25 
setMethod("dim", "MatrixFactorization", function(x) x@Dim)
16 
 
 26 
 
17 
## e.g., for (CHMfactor, <num>):
 27 
## e.g., for (CHMfactor, <num>):
18 
setMethod("solve", signature(a = "MatrixFactorization", b = "numeric"),
 28 
setMethod("solve", signature(a = "MatrixFactorization", b = "numeric"),