[Robast-commits] r656 - branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation

[noreply at r-forge.r-project.org]

Author: ruckdeschel
Date: 2013-04-22 14:48:39 +0200 (Mon, 22 Apr 2013)
New Revision: 656

Modified:
   branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/plotInterpol.R
Log:
RobExtremes: fixed a little bug in plotLM in inst/AddMaterial/interpolation/plotInterpol.R

Modified: branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/plotInterpol.R
===================================================================
--- branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/plotInterpol.R	2013-04-18 12:41:15 UTC (rev 655)
+++ branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/plotInterpol.R	2013-04-22 12:48:39 UTC (rev 656)
@@ -130,7 +130,7 @@
    if(is.null(pla)) pla <- 1: nrow(gr)
    print(wM)
    print(head(gr[gridRestrForSmooth[[1]],1]))
-   plot(gr[pla,1], cbind(gr0[pla,wM],gr[pla,wM]), type="n",
+   matplot(gr[pla,1], cbind(gr0[pla,wM],gr[pla,wM]), type="n",
             xlab=xlab, ylab=paste(ylab,namesLM[wM-1]), main = main, ...)
    matlines(gr[pla,1],
              cbind(gr0[pla,wM],gr1[pla,wM],gr[pla,wM]),lwd=lwd, lty=lty, col=col)