[Distr-commits] r1222 - branches/distr-2.8/pkg/distrMod/R pkg/distrMod/R

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

Author: ruckdeschel
Date: 2018-07-26 02:52:29 +0200 (Thu, 26 Jul 2018)
New Revision: 1222

Modified:
   branches/distr-2.8/pkg/distrMod/R/qqplot.R
   branches/distr-2.8/pkg/distrMod/R/returnlevelplot.R
   pkg/distrMod/R/qqplot.R
   pkg/distrMod/R/returnlevelplot.R
Log:
[distrMod] typo in returnlevel&qqplot fixed in trunk and in branch 2.8

Modified: branches/distr-2.8/pkg/distrMod/R/qqplot.R
===================================================================
--- branches/distr-2.8/pkg/distrMod/R/qqplot.R	2018-07-25 22:46:45 UTC (rev 1221)
+++ branches/distr-2.8/pkg/distrMod/R/qqplot.R	2018-07-26 00:52:29 UTC (rev 1222)
@@ -196,7 +196,7 @@
        cex.pch <- rep(cex.pch,length.out=n.s)
        col.pch <- alp.f(rep(col.pch,length.out=n.s),alp.v)
        cex.pts <- if(missing(cex.pts)) cex.pch else rep(cex.pts,length.out=n.s)
-       col.pts <- if(missing(col.pts)) col.pch else alp.f(rep(cex.pts,length.out=n.s),alp.v[lbprep$ord])
+       col.pts <- if(missing(col.pts)) col.pch else alp.f(rep(col.pts,length.out=n.s),alp.v[lbprep$ord])
        pch.pts <- rep(pch.pts,length.out=n.s)
        cex.npts <- rep(cex.pts,length.out=n.ns)
        col.npts <- alp.f(rep(cex.pts,length.out=n.ns),alp.v[lbprep$ns])

Modified: branches/distr-2.8/pkg/distrMod/R/returnlevelplot.R
===================================================================
--- branches/distr-2.8/pkg/distrMod/R/returnlevelplot.R	2018-07-25 22:46:45 UTC (rev 1221)
+++ branches/distr-2.8/pkg/distrMod/R/returnlevelplot.R	2018-07-26 00:52:29 UTC (rev 1222)
@@ -220,7 +220,7 @@
        cex.pch <- rep(cex.pch,length.out=n.s)
        col.pch <- alp.f(rep(col.pch,length.out=n.s),alp.v)
        cex.pts <- if(missing(cex.pts)) cex.pch else rep(cex.pts,length.out=n.s)
-       col.pts <- if(missing(col.pts)) col.pch else alp.f(rep(cex.pts,length.out=n.s),alp.v[lbprep$ord])
+       col.pts <- if(missing(col.pts)) col.pch else alp.f(rep(col.pts,length.out=n.s),alp.v[lbprep$ord])
        pch.pts <- rep(pch.pts,length.out=n.s)
        cex.npts <- rep(cex.pts,length.out=n.ns)
        col.npts <- alp.f(rep(cex.pts,length.out=n.ns),alp.v[lbprep$ns])

Modified: pkg/distrMod/R/qqplot.R
===================================================================
--- pkg/distrMod/R/qqplot.R	2018-07-25 22:46:45 UTC (rev 1221)
+++ pkg/distrMod/R/qqplot.R	2018-07-26 00:52:29 UTC (rev 1222)
@@ -171,7 +171,7 @@
        cex.pch <- rep(cex.pch,length.out=n.s)
        col.pch <- alp.f(rep(col.pch,length.out=n.s),alp.v)
        cex.pts <- if(missing(cex.pts)) cex.pch else rep(cex.pts,length.out=n.s)
-       col.pts <- if(missing(col.pts)) col.pch else alp.f(rep(cex.pts,length.out=n.s),alp.v[lbprep$ord])
+       col.pts <- if(missing(col.pts)) col.pch else alp.f(rep(col.pts,length.out=n.s),alp.v[lbprep$ord])
        pch.pts <- rep(pch.pts,length.out=n.s)
        cex.npts <- rep(cex.pts,length.out=n.ns)
        col.npts <- alp.f(rep(cex.pts,length.out=n.ns),alp.v[lbprep$ns])

Modified: pkg/distrMod/R/returnlevelplot.R
===================================================================
--- pkg/distrMod/R/returnlevelplot.R	2018-07-25 22:46:45 UTC (rev 1221)
+++ pkg/distrMod/R/returnlevelplot.R	2018-07-26 00:52:29 UTC (rev 1222)
@@ -195,7 +195,7 @@
        cex.pch <- rep(cex.pch,length.out=n.s)
        col.pch <- alp.f(rep(col.pch,length.out=n.s),alp.v)
        cex.pts <- if(missing(cex.pts)) cex.pch else rep(cex.pts,length.out=n.s)
-       col.pts <- if(missing(col.pts)) col.pch else alp.f(rep(cex.pts,length.out=n.s),alp.v[lbprep$ord])
+       col.pts <- if(missing(col.pts)) col.pch else alp.f(rep(col.pts,length.out=n.s),alp.v[lbprep$ord])
        pch.pts <- rep(pch.pts,length.out=n.s)
        cex.npts <- rep(cex.pts,length.out=n.ns)
        col.npts <- alp.f(rep(cex.pts,length.out=n.ns),alp.v[lbprep$ns])