[Robast-commits] r421 - in branches/robast-0.8/pkg: ROptEst/R ROptEst/man RobAStBase/man

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

Author: ruckdeschel
Date: 2010-09-03 15:31:06 +0200 (Fri, 03 Sep 2010)
New Revision: 421

Modified:
   branches/robast-0.8/pkg/ROptEst/R/getMaxIneff.R
   branches/robast-0.8/pkg/ROptEst/man/getMaxIneff.Rd
   branches/robast-0.8/pkg/RobAStBase/man/makeIC-methods.Rd
Log:
ROptEst: fixed a bug in multivariate version of getMaxIneff()
         included respective examples to Rd file (with sin,cos-IC)
RobAStBase: included risk computation for sin,cos-IC in makeIC-methods.Rd

Modified: branches/robast-0.8/pkg/ROptEst/R/getMaxIneff.R
===================================================================
--- branches/robast-0.8/pkg/ROptEst/R/getMaxIneff.R	2010-09-03 12:57:39 UTC (rev 420)
+++ branches/robast-0.8/pkg/ROptEst/R/getMaxIneff.R	2010-09-03 13:31:06 UTC (rev 421)
@@ -36,7 +36,7 @@
             }else{ 
               if(is(L2Fam at distribution, "UnivariateDistribution")){
                  if((length(L2Fam at L2deriv) == 1) & is(L2Fam at L2deriv[[1]], "RealRandVariable")){
-                    L2deriv <- L2deriv[[1]]
+                    L2deriv <- L2Fam at L2deriv[[1]]
                     L2derivSymm <- L2Fam at L2derivSymm
                     L2derivDistrSymm <- L2Fam at L2derivDistrSymm
                 }else{

Modified: branches/robast-0.8/pkg/ROptEst/man/getMaxIneff.Rd
===================================================================
--- branches/robast-0.8/pkg/ROptEst/man/getMaxIneff.Rd	2010-09-03 12:57:39 UTC (rev 420)
+++ branches/robast-0.8/pkg/ROptEst/man/getMaxIneff.Rd	2010-09-03 13:31:06 UTC (rev 421)
@@ -59,6 +59,10 @@
 getMaxIneff(N0.ICM,neighbor)
 getMaxIneff(N0.ICR,neighbor)
 
+N0ls <- NormLocationScaleFamily()
+ICsc <- makeIC(list(sin,cos),N0ls)
+getMaxIneff(ICsc,neighbor)
+
 }
 \concept{Inefficiency}
 \concept{risk}

Modified: branches/robast-0.8/pkg/RobAStBase/man/makeIC-methods.Rd
===================================================================
--- branches/robast-0.8/pkg/RobAStBase/man/makeIC-methods.Rd	2010-09-03 12:57:39 UTC (rev 420)
+++ branches/robast-0.8/pkg/RobAStBase/man/makeIC-methods.Rd	2010-09-03 13:31:06 UTC (rev 421)
@@ -106,6 +106,9 @@
 plot(IC6)
 checkIC(IC6)
 
+getRiskIC(IC6,risk=trAsCov())$trAsCov$value
+getRiskIC(IC6,risk=asBias(),neighbor=ContNeighborhood())$asBias$value
+
 }
 \concept{influence curve}
 \keyword{robust}