bsaqdpm {bsamGP}  R Documentation 
This function fits a Bayesian semiparametric quantile regression model to estimate shaperestricted functions using a spectral analysis of Gaussian process priors. The model assumes that the errors follow a Dirichlet process mixture model.
bsaqdpm(formula, xmin, xmax, p, nbasis, nint, mcmc = list(), prior = list(), egrid, ngrid = 500, shape = c('Free', 'Increasing', 'Decreasing', 'IncreasingConvex', 'DecreasingConcave', 'IncreasingConcave', 'DecreasingConvex', 'IncreasingS', 'DecreasingS', 'IncreasingRotatedS', 'DecreasingRotatedS', 'InvertedU', 'Ushape'), verbose = FALSE)
formula 
an object of class “ 
xmin 
a vector or scalar giving userspecific minimum values of x. The default values are minimum values of x. 
xmax 
a vector or scalar giving userspecific maximum values of x. The default values are maximum values of x. 
p 
quantile of interest (default=0.5). 
nbasis 
number of cosine basis functions. 
nint 
number of grid points where the unknown function is evaluated for plotting. The default is 200. 
mcmc 
a list giving the MCMC parameters.
The list includes the following integers (with default values in parentheses):

prior 
a list giving the prior information. The list includes the following parameters
(default values specify the noninformative prior):

egrid 
a vector giving grid points where the residual density estimate is evaluated. The default range is from 10 to 10. 
ngrid 
a vector giving number of grid points where the residual density estimate is evaluated. The default value is 500. 
shape 
a vector giving types of shape restriction. 
verbose 
a logical variable. If 
This generic function fits a Bayesian spectral analysis quantile regression model for estimating shaperestricted functions using Gaussian process priors. For enforcing shaperestrictions, the model assumes that the derivatives of the functions are squares of Gaussian processes. The model also assumes that the errors follow a Dirichlet process mixture model.
Let y_i and w_i be the response and the vector of parametric predictors, respectively. Further, let x_{i,k} be the covariate related to the response through an unknown shaperestricted function. The model for estimating shaperestricted functions is as follows.
y_i = w_i^Tβ + ∑_{k=1}^K f_k(x_{i,k}) + ε_i, ~ i=1,…,n,
where f_k is an unknown shaperestricted function of the scalar x_{i,k} \in [0,1] and the error terms \{ε_i\} are a random sample from a Dirichlet process mixture of an asymmetric Laplace distribution, ALD_p(0,σ^2), which has the following probability density function:
ε_i \sim f(ε) = \int ALD_p(ε; 0,σ^2)dG(σ^2),
G \sim DP(M,G0), ~~ G0 = Ga≤ft(σ^{2}; \frac{r_{0,σ}}{2},\frac{s_{0,σ}}{2}\right).
The prior of function without shape restriction is:
f(x) = Z(x),
where Z is a secondorder Gaussian process with mean function equal to zero and covariance function ν(s,t) = E[Z(s)Z(t)] for s, t \in [0, 1]. The Gaussian process is expressed with the spectral representation based on cosine basis functions:
Z(x) = ∑_{j=0}^∞ θ_j\varphi_j(x)
\varphi_0(x) = 1 ~~ \code{and} ~~ \varphi_j(x) = √{2}\cos(π j x), ~ j ≥ 1, ~ 0 ≤ x ≤ 1
The shaperestricted functions are modeled by assuming the qth derivatives of f are squares of Gaussian processes:
f^{(q)}(x) = δ Z^2(x)h(x), ~~ δ \in \{1, 1\}, ~~ q \in \{1, 2\},
where h is the squish function. For monotonic, monotonic convex, and concave functions, h(x)=1, while
for S
and U
shaped functions, h is defined by
h(x) = \frac{1  \exp[ψ(x  ω)]}{1 + \exp[ψ(x  ω)]}, ~~ ψ > 0, ~~ 0 < ω < 1
For the spectral coefficients of functions without shape constraints, the scaleinvariant prior is used (The intercept is included in β):
θ_j  τ, γ \sim N(0, τ^2\exp[jγ]), ~ j ≥ 1
The priors for the spectral coefficients of shape restricted functions are:
θ_0 \sim N(m_{θ_0}, v^2_{θ_0}), \quad θ_j  τ, γ \sim N(m_{θ_j}, τ^2\exp[jγ]), ~ j ≥ 1
To complete the model specification, the popular normal prior is assumed for β:
β  \sim N(m_{0,β}, V_{0,β})
An object of class bsam
representing the Bayesian spectral analysis model fit.
Generic functions such as print
, fitted
and plot
have methods to show the results of the fit.
The MCMC samples of the parameters in the model are stored in the list mcmc.draws
,
the posterior samples of the fitted values are stored in the list fit.draws
, and
the MCMC samples for the log marginal likelihood are saved in the list loglik.draws
.
The output list also includes the following objects:
post.est 
posterior estimates for all parameters in the model. 
lpml 
log pseudo marginal likelihood using Mukhopadhyay and Gelfand method. 
rsquarey 
correlation between y and \hat{y}. 
imodmet 
the number of times to modify Metropolis. 
pmet 
proportion of θ accepted after burnin. 
call 
the matched call. 
mcmctime 
running time of Markov chain from 
Jo, S., Choi, T., Park, B. and Lenk, P. (2019). bsamGP: An R Package for Bayesian Spectral Analysis Models Using Gaussian Process Priors. Journal of Statistical Software, 90, 310320.
Kozumi, H. and Kobayashi, G. (2011) Gibbs sampling methods for Bayesian quantile regression. Journal of Statistical Computation and Simulation, 81(11), 15651578.
Lenk, P. and Choi, T. (2017) Bayesian Analysis of ShapeRestricted Functions using Gaussian Process Priors. Statistica Sinica, 27, 4369.
MacEachern, S. N. and M\"uller, P. (1998) Estimating mixture of Dirichlet process models. Journal of Computational and Graphical Statistics, 7, 223238.
Mukhopadhyay, S. and Gelfand, A. E. (1997) Dirichlet process mixed generalized linear models. Journal of the American Statistical Association, 92, 633639.
Neal, R. M. (2000) Markov chain sampling methods for Dirichlet process mixture models. Journal of Computational and Graphical Statistics, 9, 249265.
## Not run: ###################### # Increasingconcave # ###################### # Simulate data set.seed(1) n < 500 x < runif(n) e < c(rald(n/2, scale = 0.5, p = 0.5), rald(n/2, scale = 3, p = 0.5)) y < log(1 + 10*x) + e # Number of cosine basis functions nbasis < 50 # Fit the model with default priors and mcmc parameters fout1 < bsaqdpm(y ~ fs(x), p = 0.25, nbasis = nbasis, shape = 'IncreasingConcave') fout2 < bsaqdpm(y ~ fs(x), p = 0.5, nbasis = nbasis, shape = 'IncreasingConcave') fout3 < bsaqdpm(y ~ fs(x), p = 0.75, nbasis = nbasis, shape = 'IncreasingConcave') # fitted values fit1 < fitted(fout1) fit2 < fitted(fout2) fit3 < fitted(fout3) # plots plot(x, y, lwd = 2, xlab = 'x', ylab = 'y') lines(fit1$xgrid, fit1$wbeta$mean[1] + fit1$fxgrid$mean, lwd=2, col=2) lines(fit2$xgrid, fit2$wbeta$mean[1] + fit2$fxgrid$mean, lwd=2, col=3) lines(fit3$xgrid, fit3$wbeta$mean[1] + fit3$fxgrid$mean, lwd=2, col=4) legend('topleft',legend=c('1st Quartile','2nd Quartile','3rd Quartile'), lwd=2, col=2:4, lty=1) ## End(Not run)