SCM

SCM Repository

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

Diff of /pkg/Matrix/tests/Simple.R

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

revision 3287, Mon Feb 25 17:32:40 2019 UTC revision 3288, Thu Feb 28 16:16:10 2019 UTC
# Line 330  Line 330 
330  stopifnot(suppressWarnings(any(Lrg)))# (double -> logical  warning)  stopifnot(suppressWarnings(any(Lrg)))# (double -> logical  warning)
331  rm(e2)# too large...  rm(e2)# too large...
332    
333    RNGversion("3.6.0")# future proof
334  if(doExtras && is.finite(memGB) && memGB > 24) # need around .. GB  if(doExtras && is.finite(memGB) && memGB > 24) # need around .. GB
335  {  {
336      cat("computing SM .. \n")      cat("computing SM .. \n")
# Line 736  Line 737 
737  op0 <- options(width = 70, max.print = 1000)  op0 <- options(width = 70, max.print = 1000)
738  T125[-(1:50),] ## suppression ... is it correctly done?  T125[-(1:50),] ## suppression ... is it correctly done?
739    
740  ## Still buggy -- FIXME: see ../TODO !  ## Still buggy -- FIXME: see ../TODO --- even if we'd require max.print >= 5 or so
741  op <- options(max.print=1000)  for(mm in 1:21) {
 for(mm in 1:6) {  
742      options(max.print=mm)      options(max.print=mm)
743      cat("----------\n\nmax.print=",mm,":\n", sep="")      cat("----------\n\nmax.print=",mm,":\n", sep="")
744      cat("\n>> U:   ") ; show(U)      cat("\n>> U:   ") ; show(U)
745      cat("\n>> slp: ") ; show(slp)      cat("\n>> slp: ") ; show(slp)
746  }  }
747  options(op)# revert to max.print = 1000  
748    options(op0)# revert to max.print = 1000
749    
750  ###-- row- and column operations  {was ./rowcolOps.R }  ###-- row- and column operations  {was ./rowcolOps.R }
751    

Legend:
Removed from v.3287  
changed lines
  Added in v.3288

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