[spcopula-commits] r163 - in pkg: . R tests/Examples

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Wed Feb 8 10:10:02 CET 2017


Author: ben_graeler
Date: 2017-02-08 10:10:02 +0100 (Wed, 08 Feb 2017)
New Revision: 163

Modified:
   pkg/DESCRIPTION
   pkg/R/spVineCopula.R
   pkg/R/stCoVarVineCopula.R
   pkg/R/stVineCopula.R
   pkg/tests/Examples/spcopula-Ex.Rout.save
Log:
remove "estmate.variance" from fitCopula in spVines

Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION	2017-02-07 11:35:01 UTC (rev 162)
+++ pkg/DESCRIPTION	2017-02-08 09:10:02 UTC (rev 163)
@@ -2,7 +2,7 @@
 Type: Package
 Title: Copula Driven Analysis - Multivariate, Spatial, Spatio-Temporal
 Version: 0.2-2
-Date: 2017-02-07
+Date: 2017-02-08
 Authors at R: c(person("Benedikt", "Graeler", role = c("aut", "cre"),
                     email = "b.graeler at 52north.org"),
              person("Marius", "Appel",role = "ctb"))

Modified: pkg/R/spVineCopula.R
===================================================================
--- pkg/R/spVineCopula.R	2017-02-07 11:35:01 UTC (rev 162)
+++ pkg/R/spVineCopula.R	2017-02-08 09:10:02 UTC (rev 163)
@@ -131,7 +131,7 @@
     loglik <- dCopula(topCop,u0,log=TRUE)
   } else {
     cat("[Estimating a",ncol(u0),"dimensional copula at the top.]\n")
-    vineCopFit <- fitCopula(copula at topCop, u0, method, estimate.variance) 
+    vineCopFit <- fitCopula(copula at topCop, u0, method) 
     
     spVineCop <- spVineCopula(copula at spCop, vineCopFit at copula)
     loglik <- vineCopFit at loglik

Modified: pkg/R/stCoVarVineCopula.R
===================================================================
--- pkg/R/stCoVarVineCopula.R	2017-02-07 11:35:01 UTC (rev 162)
+++ pkg/R/stCoVarVineCopula.R	2017-02-08 09:10:02 UTC (rev 163)
@@ -110,7 +110,7 @@
 #   cat("]\n")
 #   
 #   cat("[Estimating a",ncol(u0),"dimensional copula at the top.]\n")
-#   vineCopFit <- fitCopula(copula at topCop, u0, method, estimate.variance) 
+#   vineCopFit <- fitCopula(copula at topCop, u0, method) 
 #     
 #   stVineCop <- stVineCopula(copula at stCop, vineCopFit at copula)
 #   loglik <- vineCopFit at loglik

Modified: pkg/R/stVineCopula.R
===================================================================
--- pkg/R/stVineCopula.R	2017-02-07 11:35:01 UTC (rev 162)
+++ pkg/R/stVineCopula.R	2017-02-08 09:10:02 UTC (rev 163)
@@ -95,7 +95,7 @@
   cat("]\n")
   
   cat("[Estimating a",ncol(u0),"dimensional copula at the top.]\n")
-  vineCopFit <- fitCopula(copula at topCop, u0, method, estimate.variance) 
+  vineCopFit <- fitCopula(copula at topCop, u0, method) 
   
   stVineCop <- stVineCopula(copula at stCop, vineCopFit at copula)
   loglik <- vineCopFit at loglik

Modified: pkg/tests/Examples/spcopula-Ex.Rout.save
===================================================================
--- pkg/tests/Examples/spcopula-Ex.Rout.save	2017-02-07 11:35:01 UTC (rev 162)
+++ pkg/tests/Examples/spcopula-Ex.Rout.save	2017-02-08 09:10:02 UTC (rev 163)
@@ -19,18 +19,6 @@
 > source(file.path(R.home("share"), "R", "examples-header.R"))
 > options(warn = 1)
 > options(pager = "console")
-> base::assign(".ExTimings", "spcopula-Ex.timings", pos = 'CheckExEnv')
-> base::cat("name\tuser\tsystem\telapsed\n", file=base::get(".ExTimings", pos = 'CheckExEnv'))
-> base::assign(".format_ptime",
-+ function(x) {
-+   if(!is.na(x[4L])) x[1L] <- x[1L] + x[4L]
-+   if(!is.na(x[5L])) x[2L] <- x[2L] + x[5L]
-+   options(OutDec = '.')
-+   format(x[1L:3L], digits = 7L)
-+ },
-+ pos = 'CheckExEnv')
-> 
-> ### * </HEADER>
 > library('spcopula')
 Loading required package: copula
 Loading required package: VineCopula
@@ -42,7 +30,6 @@
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: EU_RB
 > ### Title: Daily mean PM10 concentrations over Europe in June and July 2005
 > ### Aliases: EU_RB
@@ -82,15 +69,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("EU_RB", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("EU_RB_2005")
 > ### * EU_RB_2005
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: EU_RB_2005
 > ### Title: Daily mean PM10 concentrations over Europe in 2005 as used in
 > ###   the JSS manuscript
@@ -139,15 +123,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("EU_RB_2005", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("asCopula-class")
 > ### * asCopula-class
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: asCopula-class
 > ### Title: Class '"asCopula"'
 > ### Aliases: asCopula-class dduCopula,matrix,asCopula-method
@@ -177,15 +158,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("asCopula-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("asCopula")
 > ### * asCopula
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: asCopula
 > ### Title: Constructor of an asymmetric copula with cubic and quadratic
 > ###   sections (Nelsen 2006).
@@ -226,8 +204,6 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("asCopula", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > graphics::par(get("par.postscript", pos = 'CheckExEnv'))
 > cleanEx()
 > nameEx("bivTailDepFun")
@@ -235,7 +211,6 @@
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: bivJointDepFun
 > ### Title: Bivariate joint dependence functions
 > ### Aliases: bivJointDepFun lowerBivJointDepFun upperBivJointDepFun
@@ -271,15 +246,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("bivTailDepFun", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("calcBins")
 > ### * calcBins
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: calcBins
 > ### Title: A function calculating the spatial/spatio-temporal bins
 > ### Aliases: calcBins calcBins-methods calcBins,Spatial-method
@@ -298,8 +270,6 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("calcBins", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 
 detaching 'package:sp'
@@ -309,7 +279,6 @@
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: composeSpCopula
 > ### Title: Composing a bivariate Spatial Copula
 > ### Aliases: composeSpCopula
@@ -329,15 +298,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("composeSpCopula", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("condCovariate")
 > ### * condCovariate
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: condCovariate
 > ### Title: Conditioning of a Covariate
 > ### Aliases: condCovariate
@@ -366,8 +332,6 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("condCovariate", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 
 detaching 'package:spacetime', 'package:sp'
@@ -377,7 +341,6 @@
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: condSpVine
 > ### Title: Conditions a spatial vine copula for conditional prediction
 > ### Aliases: condSpVine
@@ -427,15 +390,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("condSpVine", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("condStCoVarVine")
 > ### * condStCoVarVine
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: condStCoVarVine
 > ### Title: conditional distribution function of spatio-temporal covariate
 > ###   vine copula
@@ -473,15 +433,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("condStCoVarVine", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("condStVine")
 > ### * condStVine
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: condStVine
 > ### Title: Conditions a spatio-temporal vine copula for conditional
 > ###   prediction
@@ -517,15 +474,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("condStVine", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("cqsCopula-class")
 > ### * cqsCopula-class
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: cqsCopula-class
 > ### Title: Class '"cqsCopula"'
 > ### Aliases: cqsCopula-class dduCopula,matrix,cqsCopula-method
@@ -555,15 +509,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("cqsCopula-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("cqsCopula")
 > ### * cqsCopula
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: cqsCopula
 > ### Title: Constructor of a symmetric copula with cubic quadratic sections.
 > ### Aliases: cqsCopula
@@ -603,8 +554,6 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("cqsCopula", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > graphics::par(get("par.postscript", pos = 'CheckExEnv'))
 > cleanEx()
 > nameEx("criticalLevel")
@@ -612,7 +561,6 @@
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: criticalLevel
 > ### Title: Calculating the critical level for a given Kendall Return Period
 > ### Aliases: criticalLevel
@@ -625,15 +573,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("criticalLevel", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("criticalPair")
 > ### * criticalPair
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: criticalPair
 > ### Title: Calculate Critical Pairs
 > ### Aliases: criticalPair
@@ -647,15 +592,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("criticalPair", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("criticalTriple")
 > ### * criticalTriple
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: criticalTriple
 > ### Title: calculate critical triples
 > ### Aliases: criticalTriple
@@ -672,15 +614,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("criticalTriple", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("dduCopula")
 > ### * dduCopula
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: dduCopula
 > ### Title: partial derivatives of copulas
 > ### Aliases: dduCopula ddvCopula
@@ -718,15 +657,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("dduCopula", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("dependencePlot")
 > ### * dependencePlot
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: dependencePlot
 > ### Title: Kernel smoothed scatter plot
 > ### Aliases: dependencePlot
@@ -738,15 +674,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("dependencePlot", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("empSurCopula-class")
 > ### * empSurCopula-class
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: empSurCopula-class
 > ### Title: Class '"empiricalCopula"'
 > ### Aliases: empSurCopula-class
@@ -772,15 +705,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("empSurCopula-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("empSurCopula")
 > ### * empSurCopula
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: empSurCopula
 > ### Title: Constructor of an empirical survival copula class
 > ### Aliases: empSurCopula
@@ -832,15 +762,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("empSurCopula", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("empiricalCopula-class")
 > ### * empiricalCopula-class
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: empiricalCopula-class
 > ### Title: Class '"empiricalCopula"'
 > ### Aliases: empiricalCopula-class
@@ -866,15 +793,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("empiricalCopula-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("empiricalCopula")
 > ### * empiricalCopula
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: empiricalCopula
 > ### Title: Constructor of an empirical copula class
 > ### Aliases: empiricalCopula
@@ -926,15 +850,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("empiricalCopula", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("fitCorFun")
 > ### * fitCorFun
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: fitCorFun
 > ### Title: Automated fitting of a correlation function to the correlogram
 > ### Aliases: fitCorFun
@@ -980,15 +901,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("fitCorFun", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("fitSpCopula")
 > ### * fitSpCopula
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: fitSpCopula
 > ### Title: Spatial Copula Fitting
 > ### Aliases: fitSpCopula
@@ -1155,8 +1073,6 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("fitSpCopula", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 
 detaching 'package:sp'
@@ -1166,7 +1082,6 @@
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: genEmpCop
 > ### Title: Generate an empirical copula
 > ### Aliases: genEmpCop genEmpSurCop
@@ -1187,15 +1102,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("genEmpCop", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("genEmpKenFun")
 > ### * genEmpKenFun
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: genEmpKenFun
 > ### Title: Generates an empirical Kendall distribution function
 > ### Aliases: genEmpKenFun
@@ -1209,15 +1121,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("genEmpKenFun", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("genInvKenFun")
 > ### * genInvKenFun
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: genInvKenFun
 > ### Title: Generate the inverse Kendall distribution function
 > ### Aliases: genInvKenFun
@@ -1235,15 +1144,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("genInvKenFun", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("getKendallDistr")
 > ### * getKendallDistr
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: getKendallDistr
 > ### Title: Retrieving the Kendall Distribution function for a given copula
 > ### Aliases: getKendallDistr getKendallDistr,claytonCopula-method
@@ -1261,15 +1167,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("getKendallDistr", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("getNeighbours")
 > ### * getNeighbours
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: getNeighbours
 > ### Title: Creating Local Neighbourhoods
 > ### Aliases: getNeighbours
@@ -1288,8 +1191,6 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("getNeighbours", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 
 detaching 'package:sp'
@@ -1299,7 +1200,6 @@
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: getStNeighbours
 > ### Title: Creating Local Spatio-Temporal Neighbourhoods
 > ### Aliases: getStNeighbours
@@ -1326,8 +1226,6 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("getStNeighbours", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 
 detaching 'package:spacetime', 'package:sp'
@@ -1337,7 +1235,6 @@
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: hkCopula-class
 > ### Title: Class '"hkCopula"'
 > ### Aliases: hkCopula-class
@@ -1363,15 +1260,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("hkCopula-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("hkCopula")
 > ### * hkCopula
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: hkCopula
 > ### Title: Constructor of a hierarchical Kendall copula
 > ### Aliases: hkCopula
@@ -1417,15 +1311,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("hkCopula", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("kendallDistribution")
 > ### * kendallDistribution
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: kendallDistribution
 > ### Title: The Kendall distribution
 > ### Aliases: kendallDistribution kendallDistribution,claytonCopula-method
@@ -1444,15 +1335,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("kendallDistribution", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("kendallRP")
 > ### * kendallRP
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: kendallRP
 > ### Title: calculating the Kendall Return Period
 > ### Aliases: kendallRP
@@ -1465,15 +1353,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("kendallRP", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("loglikByCopulasLags")
 > ### * loglikByCopulasLags
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: loglikByCopulasLags
 > ### Title: Log-likelihoods by copula family and spatial lag class
 > ### Aliases: loglikByCopulasLags
@@ -1641,8 +1526,6 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("loglikByCopulasLags", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 
 detaching 'package:sp'
@@ -1652,7 +1535,6 @@
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: loglikByCopulasStLags
 > ### Title: Log-likelihoods by copula family and spatio-temporal lag class
 > ### Aliases: loglikByCopulasStLags
@@ -1820,8 +1702,6 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("loglikByCopulasStLags", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 
 detaching 'package:sp'
@@ -1831,7 +1711,6 @@
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: mixtureCopula-class
 > ### Title: Class '"mixtureCopula"'
 > ### Aliases: mixtureCopula-class dduCopula,ANY,mixtureCopula-method
@@ -1860,15 +1739,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("mixtureCopula-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("mixtureCopula")
 > ### * mixtureCopula
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: mixtureCopula
 > ### Title: Constructor of a mixture copula
 > ### Aliases: mixtureCopula
@@ -1908,8 +1784,6 @@
 > curve(kenCop, main="Kendall function", asp=1)
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("mixtureCopula", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > graphics::par(get("par.postscript", pos = 'CheckExEnv'))
 > cleanEx()
 > nameEx("neighbourhood-class")
@@ -1917,7 +1791,6 @@
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: neighbourhood-class
 > ### Title: Class 'neighbourhood'
 > ### Aliases: neighbourhood-class names,neighbourhood-method
@@ -1937,8 +1810,6 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("neighbourhood-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 
 detaching 'package:sp'
@@ -1948,7 +1819,6 @@
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: neighbourhood
 > ### Title: Constructor of the 'neighbourhood' class.
 > ### Aliases: neighbourhood
@@ -1975,8 +1845,6 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("neighbourhood", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 
 detaching 'package:sp'
@@ -1986,7 +1854,6 @@
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: qCopula_u
 > ### Title: The inverse of a bivariate copula given u or v
 > ### Aliases: qCopula_u qCopula_u,copula-method qCopula_v
@@ -2007,15 +1874,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("qCopula_u", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("rCopula_y")
 > ### * rCopula_y
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: rCopula_y
 > ### Title: Sampling from a given contour level
 > ### Aliases: rCopula_y rCopula_y-methods rCopula_y,ANY-method
@@ -2029,15 +1893,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("rCopula_y", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("rankTransform")
 > ### * rankTransform
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: rankTransform
 > ### Title: rank order transformation of margins
 > ### Aliases: rankTransform
@@ -2054,15 +1915,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("rankTransform", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("reduceNeighbours")
 > ### * reduceNeighbours
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: reduceNeighbours
 > ### Title: Selecting the strongest correlated neighbours
 > ### Aliases: reduceNeighbours
@@ -2108,8 +1966,6 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("reduceNeighbours", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 
 detaching 'package:spacetime', 'package:sp'
@@ -2119,7 +1975,6 @@
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: simulatedTriples
 > ### Title: annual extreme rainfall triples
 > ### Aliases: triples
@@ -2136,15 +1991,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("simulatedTriples", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("spCopDemo")
 > ### * spCopDemo
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: spCopDemo
 > ### Title: workspace produced in 'demo(spCopula)'
 > ### Aliases: lokliktau bestFitTau bins calcKTauLin calcKTauPol dataSet
@@ -2159,15 +2011,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("spCopDemo", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("spCopPredict")
 > ### * spCopPredict
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: spCopPredict
 > ### Title: spatial prediction based on a spatial vine copula
 > ### Aliases: spCopPredict
@@ -2258,8 +2107,6 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("spCopPredict", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 
 detaching 'package:sp'
@@ -2269,7 +2116,6 @@
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: spCopula-class
 > ### Title: Class '"spCopula"'
 > ### Aliases: spCopula-class dduCopula,matrix,spCopula-method
@@ -2316,15 +2162,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("spCopula-class", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("spCopula")
 > ### * spCopula
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: spCopula
 > ### Title: Spatial Copula
 > ### Aliases: spCopula
@@ -2358,15 +2201,12 @@
 > 
 > 
 > 
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("spCopula", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("spGaussCopPredict")
 > ### * spGaussCopPredict
 > 
 > flush(stderr()); flush(stdout())
 > 
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: spGaussCopPredict
 > ### Title: spatial prediction using a Gaussian Copula
[TRUNCATED]

To get the complete diff run:
    svnlook diff /svnroot/spcopula -r 163


More information about the spcopula-commits mailing list