[spcopula-commits] r154 - in pkg: . demo

[noreply at 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",