SCM

SCM Repository

[matrix] Diff of /pkg/R/Tsparse.R
ViewVC logotype

Diff of /pkg/R/Tsparse.R

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

revision 2386, Wed May 27 20:54:45 2009 UTC revision 2387, Fri May 29 12:50:34 2009 UTC
# Line 733  Line 733 
733  .TM.repl.i.2col <- function (x, i, j, ..., value)  .TM.repl.i.2col <- function (x, i, j, ..., value)
734  {  {
735      nA <- nargs()      nA <- nargs()
736      if(nA != 3) stop("nargs() = ", nA, " should never happen; please report.")      if(nA != 3)
737            stop(gettextf("nargs() = %d should never happen; please report.", nA))
738    
739      ## else: nA == 3  i.e.,  M [ cbind(ii,jj) ] <- value or M [ Lmat ] <- value      ## else: nA == 3  i.e.,  M [ cbind(ii,jj) ] <- value or M [ Lmat ] <- value
740      if(is.logical(i)) {      if(is.logical(i)) {

Legend:
Removed from v.2386  
changed lines
  Added in v.2387

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