[spcopula-commits] r123 - in pkg: . man

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

Author: ben_graeler
Date: 2014-02-13 10:38:55 +0100 (Thu, 13 Feb 2014)
New Revision: 123

Modified:
   pkg/DESCRIPTION
   pkg/man/condStCoVarVine.Rd
Log:
- typo in example of condStCoVarVine

Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION	2014-02-12 14:54:12 UTC (rev 122)
+++ pkg/DESCRIPTION	2014-02-13 09:38:55 UTC (rev 123)
@@ -2,7 +2,7 @@
 Type: Package
 Title: copula driven spatial analysis
 Version: 0.2-0
-Date: 2014-02-12
+Date: 2014-02-13
 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/man/condStCoVarVine.Rd
===================================================================
--- pkg/man/condStCoVarVine.Rd	2014-02-12 14:54:12 UTC (rev 122)
+++ pkg/man/condStCoVarVine.Rd	2014-02-13 09:38:55 UTC (rev 123)
@@ -62,10 +62,10 @@
                   t.lags=-(0:2))
 
 # only a constant copula ius used for the covariate
-stCVVC <- stCoVarVineCopula(function(x) gumbelCopula(2), stCop, vineCopula(9L))
+stCVVC <- stCoVarVineCopula(function(x) gumbelCopula(7), stCop, vineCopula(5L))
 
 dists <- array(c(150, 250, 150, 250,0,0,-1,-1),dim=c(1,4,2))
-condVar <- c(0.15, 0.29, 0.55, 0.05, 0.41)
+condVar <- c(0.95, 0.29, 0.55, 0.05, 0.41)
 
 condDensity <- condStCoVarVine(condVar, dists, stCVVC, c(1,1))
 curve(condDensity)