distroptions("RtoDPQ.e") # returns the value of RtoDPQ.e, by default = 5
distroptions("RtoDPQ.e",6) # now RtoDPQ.e = 6
## The function is currently defined as
function (arg = "missing", value = -1)
{
globals <- list(DefaultNrFFTGridPointsExponent = DefaultNrFFTGridPointsExponent,
DefaultNrGridPoints = DefaultNrGridPoints, DistrResolution = DistrResolution,
RtoDPQ.e = RtoDPQ.e, TruncQuantile = TruncQuantile)
if (arg == "missing") {
print(globals)
return(invisible())
}
if (!any(arg == names(globals)))
stop(paste("No such variable:", arg))
if (value == -1)
switch(arg, DefaultNrGridPoints = DefaultNrGridPoints,
DistrResolution = DistrResolution, TruncQuantile = TruncQuantile,
DefaultNrFFTGridPointsExponent = DefaultNrFFTGridPointsExponent,
RtoDPQ.e = RtoDPQ.e)
else eval.parent(parse(text = paste("assignInNamespace("",
arg, "",", value, ", "distr")", sep = "")))
}
Run the code above in your browser using DataLab