From noreply at r-forge.r-project.org Thu Aug 10 19:51:33 2017 From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org) Date: Thu, 10 Aug 2017 19:51:33 +0200 (CEST) Subject: [Distr-commits] r1141 - branches/distr-2.7/pkg/distr/R Message-ID: <20170810175133.9B0B91884D3@r-forge.r-project.org> Author: ruckdeschel Date: 2017-08-10 19:51:33 +0200 (Thu, 10 Aug 2017) New Revision: 1141 Modified: branches/distr-2.7/pkg/distr/R/bAcDcLcDistribution.R Log: [distr] fixed an issue with / or / spotted by JJ (JJ APONTE VARON) Modified: branches/distr-2.7/pkg/distr/R/bAcDcLcDistribution.R =================================================================== --- branches/distr-2.7/pkg/distr/R/bAcDcLcDistribution.R 2017-04-23 12:11:21 UTC (rev 1140) +++ branches/distr-2.7/pkg/distr/R/bAcDcLcDistribution.R 2017-08-10 17:51:33 UTC (rev 1141) @@ -75,8 +75,9 @@ setMethod("/", c("numeric", "AcDcLcDistribution"), function(e1,e2){ - e2s <- as.character(deparse(match.call( - call = sys.call(sys.parent(1)))$e2)) + if (is((e2s <- as.character(deparse(match.call( + call = sys.call(sys.parent(1)))$e2))), "try-error")) + e2s <- "e2" e2 <- .ULC.cast(e2) @@ -124,8 +125,10 @@ setMethod("/", c("AcDcLcDistribution", "AcDcLcDistribution"), function(e1,e2){ - e2s <- as.character(deparse(match.call( - call = sys.call(sys.parent(1)))$e2)) + if (is((e2s <- as.character(deparse(match.call( + call = sys.call(sys.parent(1)))$e2))), "try-error")) + e2s <- "e2" + # if( is(e2,"AbscontDistribution")) # e2 <- as(as(e2,"AbscontDistribution"), "UnivarLebDecDistribution")