[Distr-commits] r1160 - branches/distr-2.7/pkg/distrEllipse/R

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

Author: ruckdeschel
Date: 2018-07-08 14:02:36 +0200 (Sun, 08 Jul 2018)
New Revision: 1160

Modified:
   branches/distr-2.7/pkg/distrEllipse/R/AllGenerics.R
   branches/distr-2.7/pkg/distrEllipse/R/SphericalDistribution.R
Log:
[branches: distrEllipse]: began with major update to version 2.7 / in code set .rd accessors to Defunct 

Modified: branches/distr-2.7/pkg/distrEllipse/R/AllGenerics.R
===================================================================
--- branches/distr-2.7/pkg/distrEllipse/R/AllGenerics.R	2018-07-08 12:00:32 UTC (rev 1159)
+++ branches/distr-2.7/pkg/distrEllipse/R/AllGenerics.R	2018-07-08 12:02:36 UTC (rev 1160)
@@ -12,16 +12,17 @@
     setGeneric("radDistr<-", function(object,value) standardGeneric("radDistr<-"))
 
 ## wrappers
-if(!isGeneric("r.rd")) 
-   setGeneric("r.rd", function(object) standardGeneric("r.rd"))
-if(!isGeneric("d.rd")) 
-   setGeneric("d.rd", function(object) standardGeneric("d.rd"))
-if(!isGeneric("p.rd")) 
-   setGeneric("p.rd", function(object) standardGeneric("p.rd"))
-if(!isGeneric("q.rd")) 
-   setGeneric("q.rd", function(object) standardGeneric("q.rd"))
-if(!isGeneric("plot.rd")) 
-   setGeneric("plot.rd", function(x, ...) standardGeneric("plot.rd"))
+### defunct
+# if(!isGeneric("r.rd"))
+#    setGeneric("r.rd", function(object) standardGeneric("r.rd"))
+# if(!isGeneric("d.rd"))
+#    setGeneric("d.rd", function(object) standardGeneric("d.rd"))
+# if(!isGeneric("p.rd"))
+#    setGeneric("p.rd", function(object) standardGeneric("p.rd"))
+# if(!isGeneric("q.rd"))
+#    setGeneric("q.rd", function(object) standardGeneric("q.rd"))
+# if(!isGeneric("plot.rd"))
+#   setGeneric("plot.rd", function(x, ...) standardGeneric("plot.rd"))
 
 
 if(!isGeneric("rRd")) 

Modified: branches/distr-2.7/pkg/distrEllipse/R/SphericalDistribution.R
===================================================================
--- branches/distr-2.7/pkg/distrEllipse/R/SphericalDistribution.R	2018-07-08 12:00:32 UTC (rev 1159)
+++ branches/distr-2.7/pkg/distrEllipse/R/SphericalDistribution.R	2018-07-08 12:02:36 UTC (rev 1160)
@@ -42,28 +42,29 @@
 
 ## wrappers:
 
-setMethod("plot.rd", "SphericalDistribution",
-           function(x, ... ){ .Deprecated("plotRd")
-                              plot(x at radDistr,...)})
-setMethod("r.rd", "SphericalDistribution", function(object) {
-                                                .Deprecated("rRd")
-                                                r(object at radDistr)})
-setMethod("d.rd", "SphericalDistribution", function(object) {
-                                                .Deprecated("dRd")
-                                                d(object at radDistr)})
-setMethod("p.rd", "SphericalDistribution", function(object) {
-                                                .Deprecated("pRd")
-                                                p(object at radDistr)})
-setMethod("q.rd", "SphericalDistribution", function(object) {
-                                                .Deprecated("qRd")
-                                                q(object at radDistr)})
+## Defunct accessors
+#setMethod("plot.rd", "SphericalDistribution",
+#           function(x, ... ){ .Deprecated("plotRd")
+#                              plot(x at radDistr,...)})
+#setMethod("r.rd", "SphericalDistribution", function(object) {
+#                                                .Deprecated("rRd")
+#                                                r(object at radDistr)})
+#setMethod("d.rd", "SphericalDistribution", function(object) {
+#                                                .Deprecated("dRd")
+#                                                d(object at radDistr)})
+#setMethod("p.rd", "SphericalDistribution", function(object) {
+#                                                .Deprecated("pRd")
+#                                                p(object at radDistr)})
+#setMethod("q.rd", "SphericalDistribution", function(object) {
+#                                                .Deprecated("qRd")
+#                                                q.l(object at radDistr)})
 
 setMethod("plotRd", "SphericalDistribution",
            function(x, ... ) plot(x at radDistr,...))
 setMethod("rRd", "SphericalDistribution", function(object) r(object at radDistr))
 setMethod("dRd", "SphericalDistribution", function(object) d(object at radDistr))
 setMethod("pRd", "SphericalDistribution", function(object) p(object at radDistr))
-setMethod("qRd", "SphericalDistribution", function(object) q(object at radDistr))
+setMethod("qRd", "SphericalDistribution", function(object) q.l(object at radDistr))
 
 ## functionals: