[Robast-commits] r275 - branches/robast-0.7/pkg/RandVar/R pkg/ROptEst/chm pkg/RandVar/R pkg/RandVar/chm

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Wed Apr 8 12:51:15 CEST 2009 

Author: ruckdeschel
Date: 2009-04-08 12:51:15 +0200 (Wed, 08 Apr 2009)
New Revision: 275

Modified:
   branches/robast-0.7/pkg/RandVar/R/util.R
   pkg/ROptEst/chm/00Index.html
   pkg/ROptEst/chm/ROptEst.chm
   pkg/ROptEst/chm/ROptEst.toc
   pkg/ROptEst/chm/updateNorm-methods.html
   pkg/RandVar/R/util.R
   pkg/RandVar/chm/RandVar.chm
   pkg/RandVar/chm/RandVar.hhp
Log:
bug fix on a bug reported by Natalyia Horbenko:
+in RandVar: 
 when imageDistribution is automatically produced with
 .getImageDistr() by default, automatically, an AbscontDistribution was produced;
 this fails if result has non-trivial discrete part --- in extremo: if it is a DiracDistribution.
 now it checks if some values are repeatedly produced in simulations; in this case it
 will produce a UnivarLebDecDistribution  --- else still an AbscontDistribution.

Modified: branches/robast-0.7/pkg/RandVar/R/util.R
===================================================================
--- branches/robast-0.7/pkg/RandVar/R/util.R	2009-04-08 10:47:06 UTC (rev 274)
+++ branches/robast-0.7/pkg/RandVar/R/util.R	2009-04-08 10:51:15 UTC (rev 275)
@@ -7,6 +7,9 @@
             xr <- r(distr)(n) 
             f(xr) 
         }
-        return(AbscontDistribution(r = rl, .withArith = TRUE, .withSim = TRUE))
+        if(length(unique(rl(10000)))!=10000)
+           return(AbscontDistribution(r = rl, .withArith = TRUE, .withSim = TRUE))
+        else
+           return(UnivarLebDecDistribution(r = rl))
     }
 }
\ No newline at end of file

Modified: pkg/ROptEst/chm/00Index.html
===================================================================
--- pkg/ROptEst/chm/00Index.html	2009-04-08 10:47:06 UTC (rev 274)
+++ pkg/ROptEst/chm/00Index.html	2009-04-08 10:51:15 UTC (rev 275)
@@ -10,7 +10,7 @@
 <param name="keyword" value=".. contents">
 </object>
 
-<h2>Help pages for package &lsquo;ROptEst&rsquo; version 0.6.2</h2>
+<h2>Help pages for package &lsquo;ROptEst&rsquo; version 0.6.3</h2>
 
 <p align="center">
 <a href="# "> </a>
@@ -22,37 +22,36 @@
 <a href="#R">R</a>
 <a href="#U">U</a>
 </p>
-<table width="100%">
-</table>
 
+
 <h2><a name=" ">--   --</a></h2>
 
 <table width="100%">
 <tr><td width="25%"><a href="0ROptEst-package.html">ROptEst-package</a></td>
-<td>Optimally robust estimation </td></tr>
+<td>Optimally robust estimation</td></tr>
 </table>
 
 <h2><a name="C">-- C --</a></h2>
 
 <table width="100%">
 <tr><td width="25%"><a href="cniperCont.html">cniperCont</a></td>
-<td>Generic Functions for Computation and Plot of Cniper Contamination          and Cniper Points. </td></tr>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points.</td></tr>
 <tr><td width="25%"><a href="cniperCont.html">cniperCont,IC,IC,L2ParamFamily,ContNeighborhood,asMSE-method</a></td>
-<td>Generic Functions for Computation and Plot of Cniper Contamination          and Cniper Points. </td></tr>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points.</td></tr>
 <tr><td width="25%"><a href="cniperCont.html">cniperCont-methods</a></td>
-<td>Generic Functions for Computation and Plot of Cniper Contamination          and Cniper Points. </td></tr>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points.</td></tr>
 <tr><td width="25%"><a href="cniperCont.html">cniperPoint</a></td>
-<td>Generic Functions for Computation and Plot of Cniper Contamination          and Cniper Points. </td></tr>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points.</td></tr>
 <tr><td width="25%"><a href="cniperCont.html">cniperPoint,L2ParamFamily,ContNeighborhood,asMSE-method</a></td>
-<td>Generic Functions for Computation and Plot of Cniper Contamination          and Cniper Points. </td></tr>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points.</td></tr>
 <tr><td width="25%"><a href="cniperCont.html">cniperPoint-methods</a></td>
-<td>Generic Functions for Computation and Plot of Cniper Contamination          and Cniper Points. </td></tr>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points.</td></tr>
 <tr><td width="25%"><a href="cniperCont.html">cniperPointPlot</a></td>
-<td>Generic Functions for Computation and Plot of Cniper Contamination          and Cniper Points. </td></tr>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points.</td></tr>
 <tr><td width="25%"><a href="cniperCont.html">cniperPointPlot,L2ParamFamily,ContNeighborhood,asMSE-method</a></td>
-<td>Generic Functions for Computation and Plot of Cniper Contamination          and Cniper Points. </td></tr>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points.</td></tr>
 <tr><td width="25%"><a href="cniperCont.html">cniperPointPlot-methods</a></td>
-<td>Generic Functions for Computation and Plot of Cniper Contamination          and Cniper Points. </td></tr>
+<td>Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points.</td></tr>
 </table>
 
 <h2><a name="G">-- G --</a></h2>
@@ -115,11 +114,11 @@
 <tr><td width="25%"><a href="getFixClip.html">getFixClip-methods</a></td>
 <td>Generic Function for the Computation of the Optimal Clipping Bound</td></tr>
 <tr><td width="25%"><a href="getFixRobIC.html">getFixRobIC</a></td>
-<td>Generic Function for the Computation of Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="getFixRobIC.html">getFixRobIC,Norm,fiUnOvShoot,UncondNeighborhood-method</a></td>
-<td>Generic Function for the Computation of Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="getFixRobIC.html">getFixRobIC-methods</a></td>
-<td>Generic Function for the Computation of Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="getIneffDiff.html">getIneffDiff</a></td>
 <td>Generic Function for the Computation of Inefficiency Differences</td></tr>
 <tr><td width="25%"><a href="getIneffDiff.html">getIneffDiff,numeric,L2ParamFamily,UncondNeighborhood,asMSE-method</a></td>
@@ -171,43 +170,43 @@
 <tr><td width="25%"><a href="getInfGamma.html">getInfGamma-methods</a></td>
 <td>Generic Function for the Computation of the Optimal Clipping Bound</td></tr>
 <tr><td width="25%"><a href="getInfRobIC.html">getInfRobIC</a></td>
-<td>Generic Function for the Computation of Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="getInfRobIC.html">getInfRobIC,RealRandVariable,asBias,ContNeighborhood-method</a></td>
-<td>Generic Function for the Computation of Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="getInfRobIC.html">getInfRobIC,RealRandVariable,asCov,ContNeighborhood-method</a></td>
-<td>Generic Function for the Computation of Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="getInfRobIC.html">getInfRobIC,RealRandVariable,asGRisk,ContNeighborhood-method</a></td>
-<td>Generic Function for the Computation of Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="getInfRobIC.html">getInfRobIC,RealRandVariable,asHampel,ContNeighborhood-method</a></td>
-<td>Generic Function for the Computation of Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="getInfRobIC.html">getInfRobIC,UnivariateDistribution,asBias,UncondNeighborhood-method</a></td>
-<td>Generic Function for the Computation of Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="getInfRobIC.html">getInfRobIC,UnivariateDistribution,asCov,ContNeighborhood-method</a></td>
-<td>Generic Function for the Computation of Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="getInfRobIC.html">getInfRobIC,UnivariateDistribution,asCov,TotalVarNeighborhood-method</a></td>
-<td>Generic Function for the Computation of Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="getInfRobIC.html">getInfRobIC,UnivariateDistribution,asGRisk,UncondNeighborhood-method</a></td>
-<td>Generic Function for the Computation of Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="getInfRobIC.html">getInfRobIC,UnivariateDistribution,asHampel,UncondNeighborhood-method</a></td>
-<td>Generic Function for the Computation of Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="getInfRobIC.html">getInfRobIC,UnivariateDistribution,asUnOvShoot,UncondNeighborhood-method</a></td>
-<td>Generic Function for the Computation of Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="getInfRobIC.html">getInfRobIC-methods</a></td>
-<td>Generic Function for the Computation of Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="getInfStand.html">getInfStand</a></td>
-<td>Generic Function for the Computation of the Standardizing Matrix </td></tr>
+<td>Generic Function for the Computation of the Standardizing Matrix</td></tr>
 <tr><td width="25%"><a href="getInfStand.html">getInfStand,RealRandVariable,ContNeighborhood,BiasType-method</a></td>
-<td>Generic Function for the Computation of the Standardizing Matrix </td></tr>
+<td>Generic Function for the Computation of the Standardizing Matrix</td></tr>
 <tr><td width="25%"><a href="getInfStand.html">getInfStand,UnivariateDistribution,ContNeighborhood,asymmetricBias-method</a></td>
-<td>Generic Function for the Computation of the Standardizing Matrix </td></tr>
+<td>Generic Function for the Computation of the Standardizing Matrix</td></tr>
 <tr><td width="25%"><a href="getInfStand.html">getInfStand,UnivariateDistribution,ContNeighborhood,BiasType-method</a></td>
-<td>Generic Function for the Computation of the Standardizing Matrix </td></tr>
+<td>Generic Function for the Computation of the Standardizing Matrix</td></tr>
 <tr><td width="25%"><a href="getInfStand.html">getInfStand,UnivariateDistribution,ContNeighborhood,onesidedBias-method</a></td>
-<td>Generic Function for the Computation of the Standardizing Matrix </td></tr>
+<td>Generic Function for the Computation of the Standardizing Matrix</td></tr>
 <tr><td width="25%"><a href="getInfStand.html">getInfStand,UnivariateDistribution,TotalVarNeighborhood,BiasType-method</a></td>
-<td>Generic Function for the Computation of the Standardizing Matrix </td></tr>
+<td>Generic Function for the Computation of the Standardizing Matrix</td></tr>
 <tr><td width="25%"><a href="getInfStand.html">getInfStand-methods</a></td>
-<td>Generic Function for the Computation of the Standardizing Matrix </td></tr>
+<td>Generic Function for the Computation of the Standardizing Matrix</td></tr>
 <tr><td width="25%"><a href="getInfV.html">getInfV</a></td>
 <td>Generic Function for the Computation of the asymptotic Variance of a Hampel type IC</td></tr>
 <tr><td width="25%"><a href="getInfV.html">getInfV,RealRandVariable,ContNeighborhood,BiasType-method</a></td>
@@ -289,19 +288,19 @@
 
 <table width="100%">
 <tr><td width="25%"><a href="minmaxBias.html">minmaxBias</a></td>
-<td>Generic Function for the Computation of Bias-Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Bias-Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="minmaxBias.html">minmaxBias,RealRandVariable,ContNeighborhood,BiasType-method</a></td>
-<td>Generic Function for the Computation of Bias-Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Bias-Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="minmaxBias.html">minmaxBias,UnivariateDistribution,ContNeighborhood,asymmetricBias-method</a></td>
-<td>Generic Function for the Computation of Bias-Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Bias-Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="minmaxBias.html">minmaxBias,UnivariateDistribution,ContNeighborhood,BiasType-method</a></td>
-<td>Generic Function for the Computation of Bias-Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Bias-Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="minmaxBias.html">minmaxBias,UnivariateDistribution,ContNeighborhood,onesidedBias-method</a></td>
-<td>Generic Function for the Computation of Bias-Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Bias-Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="minmaxBias.html">minmaxBias,UnivariateDistribution,TotalVarNeighborhood,BiasType-method</a></td>
-<td>Generic Function for the Computation of Bias-Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Bias-Optimally Robust ICs</td></tr>
 <tr><td width="25%"><a href="minmaxBias.html">minmaxBias-methods</a></td>
-<td>Generic Function for the Computation of Bias-Optimally Robust ICs </td></tr>
+<td>Generic Function for the Computation of Bias-Optimally Robust ICs</td></tr>
 </table>
 
 <h2><a name="O">-- O --</a></h2>
@@ -339,19 +338,19 @@
 <tr><td width="25%"><a href="radiusMinimaxIC.html">radiusMinimaxIC-methods</a></td>
 <td>Generic function for the computation of the radius minimax IC</td></tr>
 <tr><td width="25%"><a href="0ROptEst-package.html">ROptEst</a></td>
-<td>Optimally robust estimation </td></tr>
+<td>Optimally robust estimation</td></tr>
 <tr><td width="25%"><a href="roptest.html">roptest</a></td>
-<td>Optimally robust estimation </td></tr>
+<td>Optimally robust estimation</td></tr>
 </table>
 
 <h2><a name="U">-- U --</a></h2>
 
 <table width="100%">
 <tr><td width="25%"><a href="updateNorm-methods.html">updateNorm</a></td>
-<td>Methods for Function updateNorm in Package &lsquo;ROptEst&rsquo; </td></tr>
+<td>Methods for Function updateNorm in Package 'ROptEst'</td></tr>
 <tr><td width="25%"><a href="updateNorm-methods.html">updateNorm,SelfNorm-method</a></td>
-<td>Methods for Function updateNorm in Package &lsquo;ROptEst&rsquo; </td></tr>
+<td>Methods for Function updateNorm in Package 'ROptEst'</td></tr>
 <tr><td width="25%"><a href="updateNorm-methods.html">updateNorm-methods</a></td>
-<td>Methods for Function updateNorm in Package &lsquo;ROptEst&rsquo; </td></tr>
+<td>Methods for Function updateNorm in Package 'ROptEst'</td></tr>
 </table>
 </body></html>

Modified: pkg/ROptEst/chm/ROptEst.chm
===================================================================
(Binary files differ)

Modified: pkg/ROptEst/chm/ROptEst.toc
===================================================================
--- pkg/ROptEst/chm/ROptEst.toc	2009-04-08 10:47:06 UTC (rev 274)
+++ pkg/ROptEst/chm/ROptEst.toc	2009-04-08 10:51:15 UTC (rev 275)
@@ -619,7 +619,7 @@
 <param name="Local" value="getRiskIC.html">
 </OBJECT>
 <LI> <OBJECT type="text/sitemap">
-<param name="Name" value="Generic Function for the Computation of Bias-Optimally Robust ICs ">
+<param name="Name" value="Generic Function for the Computation of Bias-Optimally Robust ICs">
 <param name="Local" value="minmaxBias.html">
 </OBJECT>
 <LI> <OBJECT type="text/sitemap">
@@ -635,14 +635,14 @@
 <param name="Local" value="leastFavorableRadius.html">
 </OBJECT>
 <LI> <OBJECT type="text/sitemap">
+<param name="Name" value="Generic Function for the Computation of Optimally Robust ICs">
+<param name="Local" value="getFixRobIC.html">
+</OBJECT>
+<LI> <OBJECT type="text/sitemap">
 <param name="Name" value="Generic function for the computation of optimally robust ICs">
 <param name="Local" value="optIC.html">
 </OBJECT>
 <LI> <OBJECT type="text/sitemap">
-<param name="Name" value="Generic Function for the Computation of Optimally Robust ICs ">
-<param name="Local" value="getInfRobIC.html">
-</OBJECT>
-<LI> <OBJECT type="text/sitemap">
 <param name="Name" value="Generic function for the computation of the asymptotic bias for an IC">
 <param name="Local" value="getBiasIC.html">
 </OBJECT>
@@ -660,27 +660,27 @@
 </OBJECT>
 <LI> <OBJECT type="text/sitemap">
 <param name="Name" value="Generic Function for the Computation of the Optimal Clipping Bound">
-<param name="Local" value="getInfGamma.html">
+<param name="Local" value="getFixClip.html">
 </OBJECT>
 <LI> <OBJECT type="text/sitemap">
 <param name="Name" value="Generic function for the computation of the radius minimax IC">
 <param name="Local" value="radiusMinimaxIC.html">
 </OBJECT>
 <LI> <OBJECT type="text/sitemap">
-<param name="Name" value="Generic Function for the Computation of the Standardizing Matrix ">
+<param name="Name" value="Generic Function for the Computation of the Standardizing Matrix">
 <param name="Local" value="getInfStand.html">
 </OBJECT>
 <LI> <OBJECT type="text/sitemap">
-<param name="Name" value="Generic Functions for Computation and Plot of Cniper Contamination          and Cniper Points. ">
+<param name="Name" value="Generic Functions for Computation and Plot of Cniper Contamination and Cniper Points.">
 <param name="Local" value="cniperCont.html">
 </OBJECT>
 <LI> <OBJECT type="text/sitemap">
-<param name="Name" value="Methods for Function updateNorm in Package `ROptEst' ">
+<param name="Name" value="Methods for Function updateNorm in Package 'ROptEst'">
 <param name="Local" value="updateNorm-methods.html">
 </OBJECT>
 <LI> <OBJECT type="text/sitemap">
-<param name="Name" value="Optimally robust estimation ">
-<param name="Local" value="roptest.html">
+<param name="Name" value="Optimally robust estimation">
+<param name="Local" value="0ROptEst-package.html">
 </OBJECT>
 </UL>
 </UL>

Modified: pkg/ROptEst/chm/updateNorm-methods.html
===================================================================
--- pkg/ROptEst/chm/updateNorm-methods.html	2009-04-08 10:47:06 UTC (rev 274)
+++ pkg/ROptEst/chm/updateNorm-methods.html	2009-04-08 10:51:15 UTC (rev 275)
@@ -81,10 +81,8 @@
 <table summary="R argblock">
 <tr valign="top"><td><code>updateNorm</code></td>
 <td>
-</td></tr>
+an updated object of class <code>NormType</code>.</td></tr>
 </table>
-<p>
- an updated object of class <code>NormType</code></p>
 
 <h3>Methods</h3>
 
@@ -118,6 +116,6 @@
 </script>
 
 
-<hr><div align="center">[Package <em>ROptEst</em> version 0.6.0 <a href="00Index.html">Index]</a></div>
+<hr><div align="center">[Package <em>ROptEst</em> version 0.6.3 <a href="00Index.html">Index</a>]</div>
 
 </body></html>

Modified: pkg/RandVar/R/util.R
===================================================================
--- pkg/RandVar/R/util.R	2009-04-08 10:47:06 UTC (rev 274)
+++ pkg/RandVar/R/util.R	2009-04-08 10:51:15 UTC (rev 275)
@@ -7,6 +7,9 @@
             xr <- r(distr)(n) 
             f(xr) 
         }
-        return(AbscontDistribution(r = rl, .withArith = TRUE, .withSim = TRUE))
+        if(length(unique(rl(10000)))!=10000)
+           return(AbscontDistribution(r = rl, .withArith = TRUE, .withSim = TRUE))
+        else
+           return(UnivarLebDecDistribution(r = rl))
     }
 }
\ No newline at end of file

Modified: pkg/RandVar/chm/RandVar.chm
===================================================================
(Binary files differ)

Modified: pkg/RandVar/chm/RandVar.hhp
===================================================================
--- pkg/RandVar/chm/RandVar.hhp	2009-04-08 10:47:06 UTC (rev 274)
+++ pkg/RandVar/chm/RandVar.hhp	2009-04-08 10:51:15 UTC (rev 275)
@@ -20,7 +20,6 @@
 EuclRandVariable-class.html
 EuclRandVariable.html
 OptionalrSpace-class.html
-RandVar-package.html
 RandVariable-class.html
 RandVariable.html
 RealRandVariable-class.html

More information about the Robast-commits mailing list