[spcopula-commits] r145 - in pkg: . R demo tests/Examples
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Fri Aug 7 09:38:07 CEST 2015
Author: ben_graeler
Date: 2015-08-07 09:38:06 +0200 (Fri, 07 Aug 2015)
New Revision: 145
Modified:
pkg/DESCRIPTION
pkg/R/returnPeriods.R
pkg/demo/pureSpVineCopula.R
pkg/tests/Examples/spcopula-Ex.Rout.save
Log:
- return period updates
Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION 2015-05-26 14:41:35 UTC (rev 144)
+++ pkg/DESCRIPTION 2015-08-07 07:38:06 UTC (rev 145)
@@ -2,7 +2,7 @@
Type: Package
Title: Copula Driven Spatio-Temporal Analysis
Version: 0.2-1
-Date: 2015-05-26
+Date: 2015-07-02
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/R/returnPeriods.R
===================================================================
--- pkg/R/returnPeriods.R 2015-05-26 14:41:35 UTC (rev 144)
+++ pkg/R/returnPeriods.R 2015-08-07 07:38:06 UTC (rev 145)
@@ -38,17 +38,21 @@
}
## return periods
-kendallRP <- function(kendallFun=NULL, cl=c(.99,.999), mu=1, copula=NULL) {
- if(is.null(kendallFun) & is.null(copula)) stop("Either the kendall distribution function or the copula must be provided. Note that the calculation of the kendall distribution function from the copula is pretty time consuming. Saving them separately might be advantougous.")
- if(is.null(kendallFun)) kendallFun <- genEmpKenFun(copula)
+kendallRP <- function(kendallFun, cl=c(.99,.999), mu=1, copula) {
+ if(is.missing(kendallFun) & is.missing(copula))
+ stop("Either the kendall distribution function or the copula must be provided. Note that the calculation of the kendall distribution function from the copula is pretty time consuming. Saving them separately might be advantageous.")
+ if(is.missing(kendallFun)) kendallFun <- genEmpKenFun(copula)
if(length(mu)>1 & length(cl) > 1) stop("Either the critial level (cl) or mu may be of length larger than 1!")
return(mu/(1-kendallFun(cl)))
}
-criticalLevel <- function(kendallFun=NULL, KRP=c(100,1000), mu=1, copula=NULL) {
- if(is.null(kendallFun) & is.null(copula)) stop("Either the kendall distribution function or the copula must be provided. Note that the calculation of the kendall distribution function from the copula is pretty time consuming. Saving them separately might be advantougous.")
- if(is.null(kendallFun)) kendallFun <- genEmpKenFun(copula)
- if(length(mu)>1 & length(KRP) > 1) stop("Either the kendall return period or mu may be of length larger than 1!")
+criticalLevel <- function(kendallFun, KRP=c(100,1000), mu=1, copula) {
+ if(is.missing(kendallFun) & is.missing(copula))
+ stop("Either the kendall distribution function or the copula must be provided. Note that the calculation of the kendall distribution function from the copula is pretty time consuming. Saving them separately might be advantageous.")
+ if(is.missing(kendallFun))
+ kendallFun <- genEmpKenFun(copula)
+ if(length(mu)>1 & length(KRP) > 1)
+ stop("Either the kendall return period or mu may be of length larger than 1!")
invKenFun <- genInvKenFun(kendallFun)
return(invKenFun(1-mu/KRP))
}
@@ -176,10 +180,11 @@
# empirical default
getKendallDistr <- function(copula, sample=NULL) {
- standardGeneric("getKendallDistr")
- if(is.null(sample)) sample <- rcopula(copula,1e6)
- empCop <- genEmpCop(sample)
- ken <- empCop(sample) # takes really long, any suggestions? Comparring a 1e6x3/1e6x2 matrix by 1e6 pairs/triplets values
+# standardGeneric("getKendallDistr")
+ if(is.null(sample))
+ sample <- rCopula(1e6, copula)
+ empCop <- empiricalCopula(sample, copula)
+ ken <- pCopula(sample, empCop) # takes really long, any suggestions? Comparring a 1e6x3/1e6x2 matrix by 1e6 pairs/triplets values
empKenFun <- function(tlevel) {
res <- NULL
Modified: pkg/demo/pureSpVineCopula.R
===================================================================
--- pkg/demo/pureSpVineCopula.R 2015-05-26 14:41:35 UTC (rev 144)
+++ pkg/demo/pureSpVineCopula.R 2015-08-07 07:38:06 UTC (rev 145)
@@ -29,15 +29,15 @@
meuse$rtZinc <- rank(meuse$zinc)/(length(meuse)+1)
hist(meuse$rtZinc)
## lag classes ##
-bins <- calcBins(meuse,var="rtZinc", nbins=10, cutoff=800)
+bins <- calcBins(meuse, var="rtZinc", nbins=10, cutoff=800)
## calculate parameters for Kendall's tau function ##
calcKTau <- fitCorFun(bins, degree=2)
curve(calcKTau,0, 1000, col="purple",add=T)
-families <- list(normalCopula(0), tCopula(0,df=2.15), claytonCopula(0),
- gumbelCopula(1), frankCopula(1), joeBiCopula(1.5),
+families <- list(normalCopula(0.3), tCopula(0.3,df=2.15), claytonCopula(0.3),
+ gumbelCopula(2), frankCopula(1), joeBiCopula(1.5),
surClaytonCopula(1), surGumbelCopula(1), surJoeBiCopula(1.5))
## find best fitting copula per lag class
@@ -112,7 +112,7 @@
function(x) which(x==9))
colnames(loglikTau4$loglik)[bestFitTau4]
-## set up the third bivariate spatial Copula
+## set up the fourth bivariate spatial Copula
#############################################
spCop4 <- spCopula(c(families[bestFitTau4[1:3]], normalCopula(0),indepCopula()),
distances=bins4$meanDists[1:5],
Modified: pkg/tests/Examples/spcopula-Ex.Rout.save
===================================================================
--- pkg/tests/Examples/spcopula-Ex.Rout.save 2015-05-26 14:41:35 UTC (rev 144)
+++ pkg/tests/Examples/spcopula-Ex.Rout.save 2015-08-07 07:38:06 UTC (rev 145)
@@ -1,6 +1,6 @@
-R version 3.1.1 (2014-07-10) -- "Sock it to Me"
-Copyright (C) 2014 The R Foundation for Statistical Computing
+R version 3.2.0 (2015-04-16) -- "Full of Ingredients"
+Copyright (C) 2015 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
@@ -21,9 +21,20 @@
> 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
>
> base::assign(".oldSearch", base::search(), pos = 'CheckExEnv')
> cleanEx()
@@ -32,6 +43,7 @@
>
> 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
@@ -57,7 +69,7 @@
.. .. .. ..- attr(*, "dimnames")=List of 2
.. .. .. .. ..$ : chr [1:2] "coords.x1" "coords.x2"
.. .. .. .. ..$ : chr [1:2] "min" "max"
- .. .. ..@ proj4string:Formal class 'CRS' [package "sp"] with 1 slots
+ .. .. ..@ proj4string:Formal class 'CRS' [package "sp"] with 1 slot
.. .. .. .. ..@ projargs: chr " +proj=laea +lat_0=52 +lon_0=10 +x_0=4321000 +y_0=3210000 +ellps=GRS80 +units=m +no_defs"
..@ time :An 'xts' object on 2005-06-01/2005-07-31 containing:
Data: int [1:61, 1] 5266 5267 5268 5269 5270 5271 5272 5273 5274 5275 ...
@@ -71,12 +83,15 @@
>
>
>
+> 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
@@ -111,7 +126,7 @@
.. .. .. ..- attr(*, "dimnames")=List of 2
.. .. .. .. ..$ : chr [1:2] "coords.x1" "coords.x2"
.. .. .. .. ..$ : chr [1:2] "min" "max"
- .. .. ..@ proj4string:Formal class 'CRS' [package "sp"] with 1 slots
+ .. .. ..@ proj4string:Formal class 'CRS' [package "sp"] with 1 slot
.. .. .. .. ..@ projargs: chr " +proj=laea +lat_0=52 +lon_0=10 +x_0=4321000 +y_0=3210000 +ellps=GRS80 +units=m +no_defs"
..@ time :An 'xts' object on 2005-01-01/2005-12-31 containing:
Data: int [1:365, 1] 5115 5116 5117 5118 5119 5120 5121 5122 5123 5124 ...
@@ -125,12 +140,15 @@
>
>
>
+> 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
@@ -159,12 +177,15 @@
>
>
>
+> 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).
@@ -177,12 +198,15 @@
>
>
>
+> 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")
> 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
@@ -201,6 +225,8 @@
>
>
>
+> 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'
@@ -210,6 +236,7 @@
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: composeSpCopula
> ### Title: Composing a bivariate Spatial Copula
> ### Aliases: composeSpCopula
@@ -229,12 +256,15 @@
>
>
>
+> 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
@@ -263,6 +293,8 @@
>
>
>
+> 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'
@@ -272,6 +304,7 @@
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: condSpVine
> ### Title: Conditions a spatial vine copula for conditional prediction
> ### Aliases: condSpVine
@@ -279,6 +312,7 @@
>
> ### ** Examples
>
+> library("VineCopula")
> data("spCopDemo")
>
> calcKTauPol <- fitCorFun(bins, degree=3)
@@ -320,12 +354,18 @@
>
>
>
+> 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()
+
+detaching 'package:VineCopula'
+
> 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
@@ -333,6 +373,7 @@
>
> ### ** Examples
>
+> library("VineCopula")
> spCopT0 <- spCopula(components=list(claytonCopula(8), claytonCopula(4),
+ claytonCopula(2), claytonCopula(1),
+ claytonCopula(0.5), indepCopula()),
@@ -362,12 +403,18 @@
>
>
>
+> 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()
+
+detaching 'package:VineCopula'
+
> 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
@@ -377,6 +424,7 @@
> ### ** Examples
>
> # a spatio-temporal C-vine copula (with independent copulas in the upper vine)
+> library("VineCopula")
>
> spCopT0 <- spCopula(components=list(claytonCopula(8), claytonCopula(4),
+ claytonCopula(2), claytonCopula(1),
@@ -402,12 +450,18 @@
>
>
>
+> 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()
+
+detaching 'package:VineCopula'
+
> 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
@@ -436,12 +490,15 @@
>
>
>
+> 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
@@ -453,12 +510,15 @@
>
>
>
+> 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")
> cleanEx()
> nameEx("criticalLevel")
> ### * criticalLevel
>
> 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
@@ -471,12 +531,15 @@
>
>
>
+> 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
@@ -490,12 +553,15 @@
>
>
>
+> 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
@@ -512,12 +578,15 @@
>
>
>
+> 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
@@ -555,12 +624,15 @@
>
>
>
+> 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
@@ -572,12 +644,15 @@
>
>
>
+> 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("empiricalCopula-class")
> ### * empiricalCopula-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: empiricalCopula-class
> ### Title: Class '"empiricalCopula"'
> ### Aliases: empiricalCopula-class
@@ -602,12 +677,15 @@
>
>
>
+> 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
@@ -659,12 +737,15 @@
>
>
>
+> 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
@@ -710,12 +791,15 @@
>
>
>
+> 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
@@ -882,6 +966,8 @@
>
>
>
+> 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'
@@ -891,6 +977,7 @@
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: genEmpCop
> ### Title: Generate an empirical copula
> ### Aliases: genEmpCop
@@ -911,12 +998,15 @@
>
>
>
+> 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
@@ -930,12 +1020,15 @@
>
>
>
+> 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
@@ -953,12 +1046,15 @@
>
>
>
+> 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
@@ -976,12 +1072,15 @@
>
>
>
+> 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
@@ -1000,6 +1099,8 @@
>
>
>
+> 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'
@@ -1009,6 +1110,7 @@
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: getStNeighbours
> ### Title: Creating Local Spatio-Temporal Neighbourhoods
> ### Aliases: getStNeighbours
@@ -1035,6 +1137,8 @@
>
>
>
+> 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'
@@ -1044,6 +1148,7 @@
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: kendallDistribution
> ### Title: The Kendall distribution
> ### Aliases: kendallDistribution kendallDistribution,claytonCopula-method
@@ -1062,12 +1167,15 @@
>
>
>
+> 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
@@ -1080,12 +1188,15 @@
>
>
>
+> 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
@@ -1253,6 +1364,8 @@
>
>
>
+> 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'
@@ -1262,6 +1375,7 @@
>
> 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
@@ -1429,6 +1543,8 @@
>
>
>
+> 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'
@@ -1438,6 +1554,7 @@
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: neighbourhood-class
> ### Title: Class 'neighbourhood'
> ### Aliases: neighbourhood-class names,neighbourhood-method
@@ -1457,6 +1574,8 @@
>
>
>
+> 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'
@@ -1466,6 +1585,7 @@
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: neighbourhood
> ### Title: Constructor of the 'neighbourhood' class.
> ### Aliases: neighbourhood
@@ -1492,6 +1612,8 @@
>
>
>
+> 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'
@@ -1501,6 +1623,7 @@
>
> 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
@@ -1521,12 +1644,15 @@
>
>
>
+> 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("rankTransform")
> ### * rankTransform
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: rankTransform
> ### Title: rank order transformation of margins
> ### Aliases: rankTransform
@@ -1543,12 +1669,15 @@
>
>
>
+> 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
@@ -1594,6 +1723,8 @@
>
>
>
+> 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'
@@ -1603,6 +1734,7 @@
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: simulatedTriples
> ### Title: annual extreme rainfall triples
> ### Aliases: triples
@@ -1619,12 +1751,15 @@
>
>
>
+> 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
@@ -1639,12 +1774,15 @@
>
>
>
+> 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
@@ -1653,6 +1791,7 @@
> ### ** Examples
>
> library("sp")
+> library("VineCopula")
> data("meuse.grid")
> coordinates(meuse.grid) <- ~x+y
> gridded(meuse.grid) <- TRUE
@@ -1734,15 +1873,18 @@
>
>
>
+> 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'
+detaching 'package:VineCopula', 'package:sp'
> nameEx("spCopula-class")
> ### * spCopula-class
>
> flush(stderr()); flush(stdout())
>
+> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: spCopula-class
> ### Title: Class '"spCopula"'
> ### Aliases: spCopula-class dduCopula,matrix,spCopula-method
@@ -1789,12 +1931,15 @@
>
>
>
+> 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
@@ -1828,12 +1973,15 @@
>
>
>
+> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
[TRUNCATED]
To get the complete diff run:
svnlook diff /svnroot/spcopula -r 145
More information about the spcopula-commits
mailing list