1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
.distrExInstalled <- !all(is.na(packageDescription("distrEx")))
.distroptions <- list(
DefaultNrGridPoints = 2^12,
DistrResolution = 1e-6,
TruncQuantile = 1e-5,
DefaultNrFFTGridPointsExponent = 12,
RtoDPQ.e = 5,
# new Warning-items P.R. 28.03.06
WarningArith = TRUE,
WarningSim = TRUE,
## new Items from 2.0:
withgaps = TRUE,
simplifyD = TRUE,
DistrCollapse = TRUE,
withSweave = FALSE,
## new Items after mail by Jacob van Etter, 27-02-09
DistrCollapse.Unique.Warn = FALSE,
use.generalized.inverse.by.default = TRUE,
## new Item after annoying warnings with GEV 28-01-13
warn.makeDNew = TRUE
)
distroptions <- function(...) {
if (nargs() == 0) return(.distroptions)
current <- .distroptions
temp <- list(...)
if (length(temp) == 1 && is.null(names(temp))) {
arg <- temp[[1]]
switch(mode(arg),
list = temp <- arg,
character = return(.distroptions[arg]),
stop("invalid argument: ", sQuote(arg)))
}
if (length(temp) == 0) return(current)
n <- names(temp)
if (is.null(n)) stop("options must be given by name")
changed <- current[n]
current[n] <- temp
env <- if (sys.parent() == 0) asNamespace("distr") else parent.frame()
assign(".distroptions", current, envir = env)
invisible(current)
}
getdistrOption <- function(x)distroptions(x)[[1]]
options("newDevice" = FALSE)
|
