[Robast-commits] r415 - branches/robast-0.8/pkg/ROptEst/R

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

Author: ruckdeschel
Date: 2010-09-02 22:58:23 +0200 (Thu, 02 Sep 2010)
New Revision: 415

Modified:
   branches/robast-0.8/pkg/ROptEst/R/getAsRisk.R
Log:
ROptEst: fixed yet another buglet in asL1 risks

Modified: branches/robast-0.8/pkg/ROptEst/R/getAsRisk.R
===================================================================
--- branches/robast-0.8/pkg/ROptEst/R/getAsRisk.R	2010-09-02 20:35:14 UTC (rev 414)
+++ branches/robast-0.8/pkg/ROptEst/R/getAsRisk.R	2010-09-02 20:58:23 UTC (rev 415)
@@ -369,7 +369,7 @@
              w <- b/s^.5
              pp <- 2*pnorm(w)-1
              dp <- 2*dnorm(w)
-             L1 <- b*pp+s*dp
+             L1 <- b*pp+s^.5*dp
         }
         return(list(asL1 = L1))
     })