[Distr-commits] r1293 - branches/distr-2.8/pkg

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

Author: ruckdeschel
Date: 2019-02-27 16:32:12 +0100 (Wed, 27 Feb 2019)
New Revision: 1293

Added:
   branches/distr-2.8/pkg/20190227Check.R
Log:
Code for checking new code .modifyqgap

Added: branches/distr-2.8/pkg/20190227Check.R
===================================================================
--- branches/distr-2.8/pkg/20190227Check.R	                        (rev 0)
+++ branches/distr-2.8/pkg/20190227Check.R	2019-02-27 15:32:12 UTC (rev 1293)
@@ -0,0 +1,19 @@
+## checks for change in .qmodifygaps
+require(distr)
+d0 <- function(x) dunif(abs(x),min=0.5,max=1)/2
+DC <- AbscontDistribution(d=d0)
+gaps(DC)
+
+pv <- c(0.499,.4999,.5,.5001,.501)
+q.l(DC)(pv,lower=TRUE)
+q.l(DC)(pv,lower=FALSE)
+q.r(DC)(pv,lower=TRUE)
+q.r(DC)(pv,lower=FALSE)
+
+require(distr)
+X=Unif(2,3)
+Y=Pois(lambda=3)
+Z=X+Y
+V=Z+sin(Norm())
+
+Mi <- Minimum(X,X)