[Robast-commits] r585 - branches/robast-0.9/pkg/ROptEst/inst/scripts

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

Author: ruckdeschel
Date: 2013-02-05 19:47:51 +0100 (Tue, 05 Feb 2013)
New Revision: 585

Modified:
   branches/robast-0.9/pkg/ROptEst/inst/scripts/NormalLocationModel.R
Log:
[ROptEst] minor changes in scripts

Modified: branches/robast-0.9/pkg/ROptEst/inst/scripts/NormalLocationModel.R
===================================================================
--- branches/robast-0.9/pkg/ROptEst/inst/scripts/NormalLocationModel.R	2013-02-01 07:20:42 UTC (rev 584)
+++ branches/robast-0.9/pkg/ROptEst/inst/scripts/NormalLocationModel.R	2013-02-05 18:47:51 UTC (rev 585)
@@ -114,14 +114,15 @@
 Risks(N0.IC8)
 plot(N0.IC8)
 
-getReq(asMSE(),neighbor,N0.ICA,N0.IC1,n=1)
-getReq(asMSE(),neighbor,N0.ICA,N0.IC1,n=30)
-getReq(asL1(),neighbor,N0.ICA,N0.IC1,n=30)
-getReq(asL4(),neighbor,N0.ICA,N0.IC1,n=30)
-getReq(asMSE(),neighbor,N0.ICA,N0.IC7,n=30)
-getReq(asL1(),neighbor,N0.ICA,N0.IC7,n=30)
-getReq(asL4(),neighbor,N0.ICA,N0.IC7,n=30)
-getReq(asMSE(),neighbor,N0.IC1,N0.IC7,n=30)
+neighbor.0 <- ContNeighborhood()
+getReq(asMSE(),neighbor.0,N0.ICA,N0.IC1,n=1)
+getReq(asMSE(),neighbor.0,N0.ICA,N0.IC1,n=30)
+getReq(asL1(),neighbor.0,N0.ICA,N0.IC1,n=30)
+getReq(asL4(),neighbor.0,N0.ICA,N0.IC1,n=30)
+getReq(asMSE(),neighbor.0,N0.ICA,N0.IC7,n=30)
+getReq(asL1(),neighbor.0,N0.ICA,N0.IC7,n=30)
+getReq(asL4(),neighbor.0,N0.ICA,N0.IC7,n=30)
+getReq(asMSE(),neighbor.0,N0.IC1,N0.IC7,n=30)
 
 
 getMaxIneff(N0.ICA,neighbor=ContNeighborhood())