From noreply at r-forge.r-project.org  Fri May 20 09:32:01 2016
From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org)
Date: Fri, 20 May 2016 09:32:01 +0200 (CEST)
Subject: [Distr-commits] r1111 - in branches/distr-2.7/pkg:
	SweaveListingUtils distrRmetrics startupmsg
Message-ID: <20160520073201.3A0FD183F04@r-forge.r-project.org>

Author: ruckdeschel
Date: 2016-05-20 09:32:00 +0200 (Fri, 20 May 2016)
New Revision: 1111

Modified:
   branches/distr-2.7/pkg/SweaveListingUtils/DESCRIPTION
   branches/distr-2.7/pkg/distrRmetrics/DESCRIPTION
   branches/distr-2.7/pkg/startupmsg/DESCRIPTION
Log:
[devel-branch] added "aut"-tag to DESCRIPTION file in distrRmetrics, startupmsg, SweaveListingUtils

Modified: branches/distr-2.7/pkg/SweaveListingUtils/DESCRIPTION
===================================================================
--- branches/distr-2.7/pkg/SweaveListingUtils/DESCRIPTION	2016-04-25 15:37:46 UTC (rev 1110)
+++ branches/distr-2.7/pkg/SweaveListingUtils/DESCRIPTION	2016-05-20 07:32:00 UTC (rev 1111)
@@ -10,7 +10,7 @@
 Suggests: distr, MASS, survival, distrEx, Matrix, splines
 Imports: methods
 ByteCompile: yes
-Authors at R: person("Peter", "Ruckdeschel", role=c("cre", "cph"),
+Authors at R: person("Peter", "Ruckdeschel", role=c("cre", "cph", "aut"),
         email="peter.ruckdeschel at uni-oldenburg.de")
 License: LGPL-3
 Date: 2016-04-23

Modified: branches/distr-2.7/pkg/distrRmetrics/DESCRIPTION
===================================================================
--- branches/distr-2.7/pkg/distrRmetrics/DESCRIPTION	2016-04-25 15:37:46 UTC (rev 1110)
+++ branches/distr-2.7/pkg/distrRmetrics/DESCRIPTION	2016-05-20 07:32:00 UTC (rev 1111)
@@ -7,7 +7,7 @@
 Depends: R(>= 2.6.0), methods, distr(>= 2.4), fBasics(>= 270.73), fGarch(>= 270.73)
 Suggests: distrEx(>= 2.4), distrMod(>= 2.4)
 Imports: startupmsg
-Authors at R: person("Peter", "Ruckdeschel", role=c("cre", "cph"),
+Authors at R: person("Peter", "Ruckdeschel", role=c("cre", "cph", "aut"),
         email="peter.ruckdeschel at uni-oldenburg.de")
 ByteCompile: yes
 License: LGPL-3

Modified: branches/distr-2.7/pkg/startupmsg/DESCRIPTION
===================================================================
--- branches/distr-2.7/pkg/startupmsg/DESCRIPTION	2016-04-25 15:37:46 UTC (rev 1110)
+++ branches/distr-2.7/pkg/startupmsg/DESCRIPTION	2016-05-20 07:32:00 UTC (rev 1111)
@@ -4,7 +4,7 @@
 Date: 2016-04-23
 Title: Utilities for Start-Up Messages
 Description: Provides utilities to create or suppress start-up messages.
-Authors at R: person("Peter", "Ruckdeschel", role=c("cre", "cph"),
+Authors at R: person("Peter", "Ruckdeschel", role=c("cre", "cph", "aut"),
         email="peter.ruckdeschel at uni-oldenburg.de")
 Depends: R(>= 1.8.0)
 ByteCompile: yes


From noreply at r-forge.r-project.org  Fri May 20 09:34:29 2016
From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org)
Date: Fri, 20 May 2016 09:34:29 +0200 (CEST)
Subject: [Distr-commits] r1112 - branches/distr-2.7/pkg/distrMod/R
Message-ID: <20160520073429.33051187ADD@r-forge.r-project.org>

Author: ruckdeschel
Date: 2016-05-20 09:34:28 +0200 (Fri, 20 May 2016)
New Revision: 1112

Modified:
   branches/distr-2.7/pkg/distrMod/R/qqplot.R
Log:
[devel-branch]  [distrMod] added call to return value of qqplot

Modified: branches/distr-2.7/pkg/distrMod/R/qqplot.R
===================================================================
--- branches/distr-2.7/pkg/distrMod/R/qqplot.R	2016-05-20 07:32:00 UTC (rev 1111)
+++ branches/distr-2.7/pkg/distrMod/R/qqplot.R	2016-05-20 07:34:28 UTC (rev 1112)
@@ -270,7 +270,7 @@
         }
        }
     }
-    qqplotInfo <- c(ret, qqplotInfo, qqb)
+    qqplotInfo <- c(call=mc, ret, qqplotInfo, qqb)
     class(qqplotInfo) <- c("qqplotInfo","DiagnInfo")
     return(invisible(qqplotInfo))
     })
@@ -292,8 +292,10 @@
     if(!is(yD,"UnivariateDistribution"))
        stop("Not yet implemented.")
 
-    return(invisible(do.call(getMethod("qqplot", signature(x="ANY", y="UnivariateDistribution")),
-            args=mcl)))
+    retv <- do.call(getMethod("qqplot", signature(x="ANY", y="UnivariateDistribution")),
+            args=mcl)
+    retv$call <- mc        
+    return(invisible(retv))
     })
 
 setMethod("qqplot", signature(x = "ANY",
@@ -321,7 +323,9 @@
 
     PFam0 <- modifyModel(PFam, param)
     mcl$y <- PFam0
-    return(invisible(do.call(getMethod("qqplot", signature(x="ANY", y="ProbFamily")),
-            args=mcl)))
+    retv <- do.call(getMethod("qqplot", signature(x="ANY", y="ProbFamily")),
+            args=mcl)
+    retv$call <- mc        
+    return(invisible(retv))
     })