[spcopula-commits] r84 - / pkg/R

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

Author: ben_graeler
Date: 2013-02-07 18:44:41 +0100 (Thu, 07 Feb 2013)
New Revision: 84

Modified:
   pkg/R/spCopula.R
   pkg/R/spVineCopula.R
   spcopula_0.1-1.tar.gz
   spcopula_0.1-1.zip
Log:
- the log parameter was not pushed through ot the real density function in some cases

Modified: pkg/R/spCopula.R
===================================================================
--- pkg/R/spCopula.R	2013-02-07 16:16:33 UTC (rev 83)
+++ pkg/R/spCopula.R	2013-02-07 17:44:41 UTC (rev 84)
@@ -290,7 +290,7 @@
 # u 
 #   three column matrix providing the transformed pairs and their respective 
 #   separation distances
-dSpCopula <- function (u, copula, log=F, h, block=1) {
+dSpCopula <- function (u, copula, log, h, block=1) {
   if (missing(h)) stop("Point pairs need to be provided with their separating distance \"h\".")
   
   n <- nrow(u)
@@ -335,7 +335,7 @@
 }
 
 setMethod(dCopula, signature("numeric","spCopula"), 
-          function(u, copula, ...) dSpCopula(matrix(u,ncol=2), copula, ...))
+          function(u, copula, log, ...) dSpCopula(matrix(u,ncol=2), copula, log=log, ...))
 setMethod(dCopula, signature("matrix","spCopula"), dSpCopula)
 
 ## partial derivatives ##

Modified: pkg/R/spVineCopula.R
===================================================================
--- pkg/R/spVineCopula.R	2013-02-07 16:16:33 UTC (rev 83)
+++ pkg/R/spVineCopula.R	2013-02-07 17:44:41 UTC (rev 84)
@@ -38,11 +38,11 @@
 }
 
 setMethod("dCopula",signature=signature("matrix","spVineCopula"),
-          function(u, copula, ...) {
-            dspVine(u, copula at spCop, copula at vineCop, ...)
+          function(u, copula, log, ...) {
+            dspVine(u, copula at spCop, copula at vineCop, log=log, ...)
           })
 
 setMethod("dCopula",signature=signature("numeric","spVineCopula"),
-          function(u, copula, ...) {
-            dspVine(matrix(u,ncol=copula at dimension), copula at spCop, copula at vineCop, ...)
+          function(u, copula, log, ...) {
+            dspVine(matrix(u,ncol=copula at dimension), copula at spCop, copula at vineCop, log=log, ...)
           })
\ No newline at end of file

Modified: spcopula_0.1-1.tar.gz
===================================================================
(Binary files differ)

Modified: spcopula_0.1-1.zip
===================================================================
(Binary files differ)