[Distr-commits] r1112 - branches/distr-2.7/pkg/distrMod/R

[noreply at 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))
     })