SCM

SCM Repository

[matrix] Diff of /pkg/Matrix/man/boolean-matprod.Rd
ViewVC logotype

Diff of /pkg/Matrix/man/boolean-matprod.Rd

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3071, Thu Mar 26 14:35:47 2015 UTC revision 3072, Fri Mar 27 15:10:48 2015 UTC
# Line 93  Line 93 
93  L \%&\% D  L \%&\% D
94  stopifnot(identical(L \%&\% D, N \%&\% D),  stopifnot(identical(L \%&\% D, N \%&\% D),
95     all(L \%&\% D == as((L \%*\% abs(D)) > 0, "sparseMatrix")))     all(L \%&\% D == as((L \%*\% abs(D)) > 0, "sparseMatrix")))
96  \dontshow{% maybe move to ../tests/matprod.R later  crossprod(N)     # -> sparse patter'n' (TRUE/FALSE : boolean arithmetic)
97  ## for "many" more seeds:  crossprod(N  +0) # -> numeric Matrix (with same "pattern")
98  for(nn in 1:256) {  stopifnot(all(crossprod(N) == t(N) \%&\% N))
99    L <- Matrix(rnorm(20) > 1,    4,5)  crossprod(D, boolArith =  TRUE) # <- currently with warning "... not yet implemented":
100    D <- Matrix(round(rnorm(30)), 5,6)  crossprod(L, boolArith =  TRUE) # pattern: "nsCMatrix"
101    stopifnot(all(L \%&\% D == as((L \%*\% abs(D)) > 0, "sparseMatrix")))  crossprod(L, boolArith = FALSE) # numeric: "dsCMatrix"
 }  
 }%dont  
 %% Fails currently :  
 %% crossprod(D, boolArith = TRUE)  
102  }  }
103  \keyword{methods}  \keyword{methods}
   

Legend:
Removed from v.3071  
changed lines
  Added in v.3072

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge