SCM

SCM Repository

[matrix] Diff of /pkg/Matrix/R/diagMatrix.R
ViewVC logotype

Diff of /pkg/Matrix/R/diagMatrix.R

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

revision 2978, Wed Mar 26 18:17:09 2014 UTC revision 2984, Sat Apr 12 21:37:37 2014 UTC
# Line 965  Line 965 
965                f0 <- callGeneric(0, e2)                f0 <- callGeneric(0, e2)
966                if(all0(f0)) { # remain diagonal                if(all0(f0)) { # remain diagonal
967                    L1 <- (le <- length(e2)) == 1L                    L1 <- (le <- length(e2)) == 1L
968                    E <- copyClass(e1, "ddiMatrix", c("diag", "Dim", "Dimnames"))#FIXME: if ok, check=FALSE                    E <- copyClass(e1, "ddiMatrix", c("diag", "Dim", "Dimnames"), check=FALSE)
                   ## E <- copyClass(e1, "ddiMatrix", check=FALSE)  
969                    ## storage.mode(E@x) <- "double"                    ## storage.mode(E@x) <- "double"
970                    if(e1@diag == "U") {                    if(e1@diag == "U") {
971                        if(any((r <- callGeneric(1, e2)) != 1)) {                        if(any((r <- callGeneric(1, e2)) != 1)) {
# Line 990  Line 989 
989                f0 <- callGeneric(e1, 0)                f0 <- callGeneric(e1, 0)
990                if(all0(f0)) { # remain diagonal                if(all0(f0)) { # remain diagonal
991                    L1 <- (le <- length(e1)) == 1L                    L1 <- (le <- length(e1)) == 1L
992                    E <- copyClass(e2, "ddiMatrix", c("diag", "Dim", "Dimnames"))#FIXME: if ok, check=FALSE                    E <- copyClass(e2, "ddiMatrix", c("diag", "Dim", "Dimnames"), check=FALSE)
                   ## E <- copyClass(e2, "ddiMatrix", check=FALSE)  
993                    ## storage.mode(E@x) <- "double"                    ## storage.mode(E@x) <- "double"
994                    if(e2@diag == "U") {                    if(e2@diag == "U") {
995                        if(any((r <- callGeneric(e1, 1)) != 1)) {                        if(any((r <- callGeneric(e1, 1)) != 1)) {
# Line 1023  Line 1021 
1021                f0 <- callGeneric(0, e2)                f0 <- callGeneric(0, e2)
1022                if(all0(f0)) { # remain diagonal                if(all0(f0)) { # remain diagonal
1023                    L1 <- (le <- length(e2)) == 1L                    L1 <- (le <- length(e2)) == 1L
1024                    E <- copyClass(e1, "ldiMatrix", c("diag", "Dim", "Dimnames"))#FIXME: if ok, check=FALSE                    E <- copyClass(e1, "ldiMatrix", c("diag", "Dim", "Dimnames"), check=FALSE)
                   ## E <- copyClass(e1, "ldiMatrix", check=FALSE)  
1025                    ## storage.mode(E@x) <- "logical"                    ## storage.mode(E@x) <- "logical"
1026                    if(e1@diag == "U") {                    if(e1@diag == "U") {
1027                        if(any((r <- callGeneric(1, e2)) != 1)) {                        if(any((r <- callGeneric(1, e2)) != 1)) {

Legend:
Removed from v.2978  
changed lines
  Added in v.2984

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