[Distr-commits] r1400 - branches/distr-2.9/pkg/distr/tests/Examples
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Mon Nov 14 20:49:12 CET 2022
Author: ruckdeschel
Date: 2022-11-14 20:49:12 +0100 (Mon, 14 Nov 2022)
New Revision: 1400
Modified:
branches/distr-2.9/pkg/distr/tests/Examples/distr-Ex.Rout.save
Log:
new distr-Ex.Rout.save for devel branch
Modified: branches/distr-2.9/pkg/distr/tests/Examples/distr-Ex.Rout.save
===================================================================
--- branches/distr-2.9/pkg/distr/tests/Examples/distr-Ex.Rout.save 2022-11-14 19:48:44 UTC (rev 1399)
+++ branches/distr-2.9/pkg/distr/tests/Examples/distr-Ex.Rout.save 2022-11-14 19:49:12 UTC (rev 1400)
@@ -223,6 +223,7 @@
> plot(Z+sin(Norm()))
>
>
+>
> cleanEx()
> nameEx("AbscontDistribution-class")
> ### * AbscontDistribution-class
@@ -1653,13 +1654,10 @@
> plot(Maximum(Unif(0,1), Minimum(Unif(0,1), Unif(0,1))))
> plot(Minimum(Exp(4),4))
> ## IGNORE_RDIFF_END
-> ## a sometimes lengthy example...
-> ## No test:
-> plot(Minimum(Norm(),Pois()))
-> ## End(No test)
>
>
>
+>
> cleanEx()
> nameEx("Naturals-class")
> ### * Naturals-class
@@ -2014,8 +2012,8 @@
d0 <- log(df1(x))-log(stand)
else d0 <- df1(x) / stand
return (d0)}
-<bytecode: 0x0000025cfaa5c0a0>
-<environment: 0x0000025cfd9e3260>
+<bytecode: 0x0000022d496765d0>
+<environment: 0x0000022d4e1c7170>
$pfun
function (q, lower.tail = TRUE, log.p = FALSE)
@@ -2030,7 +2028,7 @@
else p0/nm
return(p0)
}
-<environment: 0x0000025cfd7c43f8>
+<environment: 0x0000022d4f17b5e0>
$qfun
function (p, lower.tail = TRUE, log.p = FALSE)
@@ -2048,10 +2046,9 @@
else q.l0(1 - p01)
return(as.numeric(q0))
}
-<environment: 0x0000025c82b29648>
+<environment: 0x0000022d4f344678>
> ## IGNORE_RDIFF_END
->
> rp2 <- function(n){rpois(n, lambda = 1)^2}
> x <- RtoDPQ.d(r = rp2, e = 5)
> # returns density, cumulative distribution and quantile function of
@@ -2079,7 +2076,6 @@
'integrate()' threw an error ---result may be inaccurate.
> # returns density, cumulative distribution and quantile function of
> # squared standard normal distribution
->
> x$dfun(4)
[1] 0.02970112
> ## IGNORE_RDIFF_BEGIN
@@ -2092,8 +2088,8 @@
d0 <- log(df1(x))-log(stand)
else d0 <- df1(x) / stand
return (d0)}
-<bytecode: 0x0000025cfaa5c0a0>
-<environment: 0x0000025c81fe2fb8>
+<bytecode: 0x0000022d496765d0>
+<environment: 0x0000022d4c5a06d0>
$pfun
function (q, lower.tail = TRUE, log.p = FALSE)
@@ -2108,7 +2104,7 @@
else p0/nm
return(p0)
}
-<environment: 0x0000025c81d7bce8>
+<environment: 0x0000022d4c361938>
$qfun
function (p, lower.tail = TRUE, log.p = FALSE)
@@ -2126,10 +2122,9 @@
else q.l0(1 - p01)
return(as.numeric(q0))
}
-<environment: 0x0000025c81d46fa0>
+<environment: 0x0000022d4e004338>
> ## IGNORE_RDIFF_END
->
> rp2 <- function(n){rpois(n, lambda = 1)^2}
> x <- RtoDPQ.d(r = rp2, e = 5)
> # returns density, cumulative distribution and quantile function of
@@ -3317,24 +3312,6 @@
Warning in (new("standardGeneric", .Data = function (object) :
arithmetics on distributions are understood as operations on r.v.'s
see 'distrARITH()'; for switching off this warning see '?distroptions'
-> ## No test:
-> ## takes a little time
-> N ^ P
-An object of class "UnivarLebDecDistribution"
- --- a Lebesgue decomposed distribution:
-
- Its discrete part (with weight 0.018000) is a
- Distribution Object of Class: Dirac
- location: 1
- This part is accessible with 'discretePart(<obj>)'.
-
- Its absolutely continuous part (with weight 0.982000) is a
- Distribution Object of Class: AbscontDistribution
- This part is accessible with 'acPart(<obj>)'.
-Warning in (new("standardGeneric", .Data = function (object) :
- arithmetics on distributions are understood as operations on r.v.'s
-see 'distrARITH()'; for switching off this warning see '?distroptions'
-> ## End(No test)
> 1.2 ^ N
Distribution Object of Class: AbscontDistribution
Warning in (new("standardGeneric", .Data = function (object) :
@@ -3701,38 +3678,22 @@
> B <- Binom(size=2000,prob=5/2000)
> qqplot(B,P)
dev.new(): using pdf(file="Rplots28.pdf")
-> ## No test:
-> ## takes too much time for R CMD check --as-cran
-> qqplot(B,P, nosym.pCI=TRUE)
-dev.new(): using pdf(file="Rplots29.pdf")
-> ## End(No test)
+> ## IGNORE_RDIFF_END
> ## some Lebesgue-Decomposed distributions:
> mylist <- UnivarLebDecDistribution(discretePart=Binom(3,.3), acPart=Norm(2,2),
+ acWeight=11/20)
> mylist2 <- mylist+0.1
+>
+> ## IGNORE_RDIFF_BEGIN
> qqplot(mylist,mylist2)
+dev.new(): using pdf(file="Rplots29.pdf")
+> qqplot(mylist,mylist2,exact.pCI=FALSE,exact.sCI=FALSE)
dev.new(): using pdf(file="Rplots30.pdf")
-> qqplot(mylist,mylist2,exact.pCI=FALSE,exact.sCI=FALSE)
-dev.new(): using pdf(file="Rplots31.pdf")
-> ## No test:
-> ## takes too much time for R CMD check --as-cran
-> qqplot(mylist,mylist2,nosym.pCI=TRUE)
-dev.new(): using pdf(file="Rplots32.pdf")
-> ## some ac. distribution with a gap
-> mylist3 <- UnivarMixingDistribution(Unif(0,0.3),Unif(0.6,1),mixCoeff=c(0.8,0.2))
-> gaps(mylist3)
- [,1] [,2]
-[1,] 0.3000069 0.5999908
-> mylist4 <- UnivarMixingDistribution(Unif(0,0.3),Unif(0.6,1),mixCoeff=c(0.6,0.4))
-> qqplot(mylist3,mylist4)
-dev.new(): using pdf(file="Rplots33.pdf")
-> qqplot(mylist3,mylist4,nosym.pCI=TRUE)
-dev.new(): using pdf(file="Rplots34.pdf")
> ## IGNORE_RDIFF_END
-> ## End(No test)
>
>
>
+>
> cleanEx()
> nameEx("simplifyD-methods")
> ### * simplifyD-methods
@@ -3838,15 +3799,17 @@
> ## IGNORE_RDIFF_BEGIN
> system.time(r(F)(10^6))
user system elapsed
- 0.25 0.01 0.27
+ 0.33 0.00 0.33
> ## IGNORE_RDIFF_END
> simplifyr(F, size = 10^6)
> ## IGNORE_RDIFF_BEGIN
> system.time(r(F)(10^6))
user system elapsed
- 0.07 0.00 0.08
+ 0.08 0.00 0.08
+> ## IGNORE_RDIFF_END
>
>
+>
> cleanEx()
> nameEx("standardMethods")
> ### * standardMethods
@@ -3879,7 +3842,7 @@
> cleanEx()
> options(digits = 7L)
> base::cat("Time elapsed: ", proc.time() - base::get("ptime", pos = 'CheckExEnv'),"\n")
-Time elapsed: 63.75 3.22 68.06 NA NA
+Time elapsed: 29.17 2.16 31.71 NA NA
> grDevices::dev.off()
pdf
19
More information about the Distr-commits
mailing list