# SCM Repository

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

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

revision 3069, Thu Mar 26 10:00:49 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.3069 changed lines Added in v.3072

 root@r-forge.r-project.org ViewVC Help Powered by ViewVC 1.0.0
Thanks to: