[Robast-commits] r664 - branches/robast-0.9/pkg/RobExtremesBuffer

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

Author: ruckdeschel
Date: 2013-05-24 19:16:02 +0200 (Fri, 24 May 2013)
New Revision: 664

Modified:
   branches/robast-0.9/pkg/RobExtremesBuffer/interpolRisk-Test.R
Log:
RobExtremesBuffer: enhanced interpolRisk-Test.R by an additional argument samples (sample size)

Modified: branches/robast-0.9/pkg/RobExtremesBuffer/interpolRisk-Test.R
===================================================================
--- branches/robast-0.9/pkg/RobExtremesBuffer/interpolRisk-Test.R	2013-05-24 16:27:02 UTC (rev 663)
+++ branches/robast-0.9/pkg/RobExtremesBuffer/interpolRisk-Test.R	2013-05-24 17:16:02 UTC (rev 664)
@@ -2,7 +2,7 @@
 ### Tests fuer InterpolRisiken
 ####################################################
 PFam <- NULL
-mytest <- function(PF = GParetoFamily, xi = 0.5, seed=130313, beta=1){
+mytest <- function(PF = GParetoFamily, xi = 0.5, seed=130313, beta=1, samples=100){
 ### arguments
 ## PF: generating function of the family
 ## xi: shape parameter
@@ -12,7 +12,7 @@
    cat("  ", name(PFam),"  ")
    cat("\n---------------------------------\n")
    set.seed(seed)
-   dat0 <- r(PFam)(100)
+   dat0 <- r(PFam)(samples)
    cat("\n\n\n---------------------------------\n")
    cat("RMXE")
    cat("\n---------------------------------\n")