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

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

Author: ruckdeschel
Date: 2013-04-17 02:01:22 +0200 (Wed, 17 Apr 2013)
New Revision: 651

Modified:
   branches/robast-0.9/pkg/RobExtremesBuffer/interpolRisk-Test.R
Log:
in RobExtremesBuffer: interpolRisk-Test.R: mytest now also works for scale not=1

Modified: branches/robast-0.9/pkg/RobExtremesBuffer/interpolRisk-Test.R
===================================================================
--- branches/robast-0.9/pkg/RobExtremesBuffer/interpolRisk-Test.R	2013-04-17 00:00:19 UTC (rev 650)
+++ branches/robast-0.9/pkg/RobExtremesBuffer/interpolRisk-Test.R	2013-04-17 00:01:22 UTC (rev 651)
@@ -2,12 +2,12 @@
 ### Tests fuer InterpolRisiken
 ####################################################
 PFam <- NULL
-mytest <- function(PF = GParetoFamily, xi = 0.5, seed=130313){
+mytest <- function(PF = GParetoFamily, xi = 0.5, seed=130313, beta=1){
 ### arguments
 ## PF: generating function of the family
 ## xi: shape parameter
 ## seed: seed fuer den Zufallszahlengenerator
-   PFam <- PF(shape=xi,scale=1)
+   PFam <- PF(shape=xi,scale=beta)
    cat("\n\n\n---------------------------------\n")
    cat("  ", name(PFam),"  ")
    cat("\n---------------------------------\n")