From noreply at r-forge.r-project.org  Thu Nov 26 11:30:03 2015
From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org)
Date: Thu, 26 Nov 2015 11:30:03 +0100 (CET)
Subject: [spcopula-commits] r154 - in pkg: . demo
Message-ID: <20151126103003.A49F61875A9@r-forge.r-project.org>

Author: ben_graeler
Date: 2015-11-26 11:30:03 +0100 (Thu, 26 Nov 2015)
New Revision: 154

Modified:
   pkg/DESCRIPTION
   pkg/demo/tailDepFunctions.R
Log:
- fixed tailDepFunction demo after repeated remaining of tailDepFun to bivJointDepFun

Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION	2015-10-15 13:14:57 UTC (rev 153)
+++ pkg/DESCRIPTION	2015-11-26 10:30:03 UTC (rev 154)
@@ -2,7 +2,7 @@
 Type: Package
 Title: Copula Driven Spatio-Temporal Analysis
 Version: 0.2-1
-Date: 2015-10-15
+Date: 2015-11-26
 Authors at R: c(person("Benedikt", "Graeler", role = c("aut", "cre"),
                     email = "ben.graeler at uni-muenster.de"),
              person("Marius", "Appel",role = "ctb"))

Modified: pkg/demo/tailDepFunctions.R
===================================================================
--- pkg/demo/tailDepFunctions.R	2015-10-15 13:14:57 UTC (rev 153)
+++ pkg/demo/tailDepFunctions.R	2015-11-26 10:30:03 UTC (rev 154)
@@ -6,20 +6,20 @@
 
 plot(rtPair,asp=1)
 
-tdfEmp <- empTailDepFun(rtPair)
+tdfEmp <- empBivJointDepFun(rtPair)
 plot(tdfEmp,ylim=c(0,1), ylab="tail index", xlab="u")
 abline(v=0.5, col="grey")
 
 gaussCop <- fitCopula(normalCopula(0), rtPair)@copula
-tdfGauss <- tailDepFun(gaussCop)
+tdfGauss <- bivJointDepFun(gaussCop)
 curve(tdfGauss, add=T,col="green",n=500)
 
 gumbelCop <- fitCopula(gumbelCopula(2),rtPair)@copula
-tdfGumbel <- tailDepFun(gumbelCop)
+tdfGumbel <- bivJointDepFun(gumbelCop)
 curve(tdfGumbel,add=T, col="blue",n=500)
 
 BB6Cop <- fitCopula(BB6Copula(), rtPair)@copula
-tdfBB6 <- tailDepFun(BB6Cop)
+tdfBB6 <- bivJointDepFun(BB6Cop)
 curve(tdfBB6, add=T,col="red",n=500)
 
 legend("bottomright",