The R Project SVN R-packages

Rev

Rev 4320 | Rev 4639 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4320 Rev 4440
Line 48... Line 48...
48 
          function(x, y = NULL)
 48 
          function(x, y = NULL)
49 
          callGeneric(as(x, "lgCMatrix"), as(y, "lgCMatrix")))
 49 
          callGeneric(as(x, "lgCMatrix"), as(y, "lgCMatrix")))
50 
 
 50 
 
51 
 
 51 
 
52 
setMethod("all", signature(x = "lsparseMatrix"),
 52 
setMethod("all", signature(x = "lsparseMatrix"),
53 
	  function(x, ..., na.rm = TRUE)
 53 
	  function(x, ..., na.rm = FALSE)
54 
	  !is(x, "triangularMatrix") && all(x@x, ..., na.rm = na.rm))
 54 
	  !is(x, "triangularMatrix") && all(x@x, ..., na.rm = na.rm))
55 
 
 55 
 
56 
setMethod("any", signature(x = "lsparseMatrix"),
 56 
setMethod("any", signature(x = "lsparseMatrix"),
57 
	  function(x, ..., na.rm = TRUE)
 57 
	  function(x, ..., na.rm = FALSE)
58 
	  ## logical unit-triangular has TRUE diagonal:
 58 
	  ## logical unit-triangular has TRUE diagonal:
59 
	  (is(x, "triangularMatrix") && x@diag == "U") ||
 59 
	  (is(x, "triangularMatrix") && x@diag == "U") ||
60 
	  any(x@x, ..., na.rm = na.rm))
 60 
	  any(x@x, ..., na.rm = na.rm))