The R Project SVN R-packages

Rev

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

Rev 4529 Rev 4549
Line 41... Line 41...
41 
setMethod("solve", signature(a = "pMatrix", b = "missing"),
 41 
setMethod("solve", signature(a = "pMatrix", b = "missing"),
42 
	  function(a, b) {
 42 
	  function(a, b) {
43 
	      bp <- ap <- a@perm
 43 
	      bp <- ap <- a@perm
44 
	      bp[ap] <- seq_along(ap)
 44 
	      bp[ap] <- seq_along(ap)
45 
	      new("pMatrix", perm = bp, Dim = a@Dim,
 45 
	      new("pMatrix", perm = bp, Dim = a@Dim,
46 
		  Dimnames = rev(a@Dimnames))
 46 
		  Dimnames = a@Dimnames[2:1])
47 
	  }, valueClass = "pMatrix")
 47 
	  }, valueClass = "pMatrix")
48 
 
 48 
 
49 
setMethod("t", signature(x = "pMatrix"), function(x) solve(x))
 49 
setMethod("t", signature(x = "pMatrix"), function(x) solve(x))
50 
 
 50 
 
51 
setMethod("%*%", signature(x = "matrix", y = "pMatrix"),
 51 
setMethod("%*%", signature(x = "matrix", y = "pMatrix"),