A function that generates the uncertainty diagnostic function (U-function
) and estimates DS
DS.prior(input, max.m = 8, g.par,
family = c("Normal","Binomial", "Poisson"),
LP.type = c("L2", "MaxEnt"),
smooth.crit = "BIC", iters = 200, B = 1000,
max.theta = NULL)
For "Binomial"
, a dataframe that contains the "Normal"
, a dataframe that has the "Poisson"
, a vector of that includes the untabled count data.
The truncation point
Vector with estimated parameters for specified conjugate prior distribution
The distribution of Normal
, Binomial
, and Poisson
.
User selects either "L2"
for LP-orthogonal series representation of U-function
or "MaxEnt"
for the maximum entropy representation. Default is L2
.
User selects either "BIC"
or "AIC"
as criteria to both determine optimal "BIC"
.
Integer value that gives the maximum number of iterations allowed for convergence; default is 200.
Integer value for number of grid points used for distribution output; default is 1000.
For "Poisson"
, user can provide a maximum theta value for prior; default is the maximum count value in input
.
Parameters for
Vector of all LP-Fourier coefficients prior to smoothing, where the length is the same as max.m
.
Vector of all smoothed LP-Fourier coefficients, where the length is the same as max.m
.
Fitted values for the estimated prior.
Dataframe that contains values required for plotting the U-function.
Dataframe that contains deviance values for values of max.m
.
The value of
Smoothing criteria; either "BIC"
or "AIC"
.
The user-selected family.
User-selected representation of U-function
.
Observed data provided by user for input
.
Function can take DS.GF.obj
; this object can be used with plot command to plot the U-function (Ufunc
), Deviance Plots (mDev
), and DS-G comparison (DS_G
).
Mukhopadhyay, S. and Fletcher, D., 2018. "Bayesian Modeling via Goodness-of-Fit," Technical report, https://arxiv.org/abs/1802.00474 .
Mukhopadhyay, S., 2017. "Large-Scale Mode Identification and Data-Driven Sciences," Electronic Journal of Statistics, 11(1), pp.215-240.
# NOT RUN {
data(rat)
rat.start <- gMLE.bb(rat$y, rat$n)$estimate
rat.ds <- DS.prior(rat, max.m = 4, rat.start, family = "Binomial")
rat.ds
plot(rat.ds, plot.type = "Ufunc")
plot(rat.ds, plot.type = "DSg")
plot(rat.ds, plot.type = "mDev")
# }
Run the code above in your browser using DataLab