Shrinkage priors
- Dr. Jarad Niemi
Iowa State University
August 24, 2017
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 1 / 30
Shrinkage priors Dr. Jarad Niemi Iowa State University August 24, - - PowerPoint PPT Presentation
Shrinkage priors Dr. Jarad Niemi Iowa State University August 24, 2017 Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 1 / 30 Normal data model Normal prior Normal model with normal prior Consider the model Y N ( , V )
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 1 / 30
Normal data model Normal prior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 2 / 30
Normal data model Normal prior
0.0 0.2 0.4 −2 −1 1 2 3
theta density distribution
prior likelihood posterior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 3 / 30
Normal data model Normal prior
0.0 0.2 0.4 4 8 12
theta density distribution
prior likelihood posterior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 4 / 30
Normal data model Normal prior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 5 / 30
Normal data model t prior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 6 / 30
Normal data model t prior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 7 / 30
Normal data model t prior
# A non-standard t distribution my_dt = Vectorize(function(x, v=1, m=0, C=1, log=FALSE) { logf = dt((x-m)/sqrt(C), v, log=TRUE) - log(sqrt(C)) if (log) return(logf) return(exp(logf)) }) # This is a function to calculate p(y|\theta)p(\theta). f = Vectorize(function(theta, y=1, V=1, v=1, m=0, C=1, log=FALSE) { logf = dnorm(y, theta, sqrt(V), log=TRUE) + my_dt(theta, v, m, C, log=TRUE) if (log) return(logf) return(exp(logf)) }) # Now we can integrate it (py = integrate(f, -Inf, Inf)) ## 0.1657957 with absolute error < 1.6e-05 Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 8 / 30
Normal data model t prior
0.0 0.2 0.4 −2 −1 1 2 3
theta density distribution
prior likelihood posterior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 9 / 30
Normal data model t prior
0.0 0.1 0.2 0.3 0.4 4 8 12
theta density distribution
prior likelihood posterior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 10 / 30
Normal data model t prior
−5.0 −2.5 0.0 2.5 5.0 −5.0 −2.5 0.0 2.5 5.0
y theta model
map_t mle map_normal
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 11 / 30
Normal data model t prior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 12 / 30
Normal data model Laplace prior
−3 −2 −1 1 2 3 0.1 0.2 0.3 0.4 0.5 x density
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 13 / 30
Normal data model Laplace prior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 14 / 30
Normal data model Laplace prior
0.0 0.2 0.4 0.6 −2 −1 1 2 3
theta density distribution
prior likelihood posterior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 15 / 30
Normal data model Laplace prior
0.0 0.1 0.2 0.3 0.4 0.5 4 8 12
theta density distribution
prior likelihood posterior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 16 / 30
Normal data model Laplace prior
−5.0 −2.5 0.0 2.5 5.0 −5.0 −2.5 0.0 2.5 5.0
y theta model
map_t mle map_normal map_laplace
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 17 / 30
Normal data model Laplace prior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 18 / 30
Normal data model Point-mass prior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 19 / 30
Normal data model Point-mass prior
−2 −1 1 2 0.0 0.2 0.4 0.6 0.8 1.0 theta CDF
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 20 / 30
Normal data model Point-mass prior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 21 / 30
Normal data model Point-mass prior
0.0 0.1 0.2 0.3 0.4 0.5 −2 −1 1 2 3
theta density distribution
likelihood posterior prior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 22 / 30
Normal data model Point-mass prior
0.0 0.2 0.4 4 8 12
theta density distribution
likelihood posterior prior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 23 / 30
Normal data model Point-mass prior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 24 / 30
Normal data model Point-mass prior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 25 / 30
Normal data model Point-mass prior
v = C = V = 1; p = 0.5; m = 0; y=1 (int = integrate(function(x) dnorm(y,x,sqrt(V))*my_dt(x), -Inf, Inf)) ## 0.1657957 with absolute error < 1.6e-05 (int0 = dnorm(y,0,sqrt(V))) ## [1] 0.2419707 (pp = 1/(1+(1-p)*int$value/(p*int0))) ## [1] 0.5934053 Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 26 / 30
Normal data model Point-mass prior
0.0 0.2 0.4 0.6 −2 −1 1 2 3
theta density distribution
likelihood posterior prior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 27 / 30
Normal data model Point-mass prior
0.0 0.1 0.2 0.3 0.4 0.5 4 8 12
theta density distribution
likelihood posterior prior
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 28 / 30
Normal data model Summary
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 29 / 30
Normal data model Discussion
Jarad Niemi (Iowa State) Shrinkage priors August 24, 2017 30 / 30