Skip to content
This repository was archived by the owner on Mar 21, 2025. It is now read-only.

Commit e86e67a

Browse files
committed
Rel 5.3.1
1 parent 7507228 commit e86e67a

File tree

2 files changed

+57
-0
lines changed

2 files changed

+57
-0
lines changed

Project.toml

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -19,6 +19,7 @@ NamedArrays = "86f7a689-2022-50b4-a561-43c23ac3c673"
1919
NamedDims = "356022a1-0364-5f58-8944-0da4b18d706f"
2020
Optim = "429524aa-4258-5aef-a3af-852621145aeb"
2121
OrderedCollections = "bac558e1-5e72-5ebc-8fee-abe8a469f55d"
22+
PSIS = "ce719bf2-d5d0-4fb9-925d-10a81b42ad04"
2223
ParetoSmooth = "a68b5a21-f429-434e-8bfa-46b447300aac"
2324
Pkg = "44cfe95a-1eb2-52ea-b672-e2afdf69b78f"
2425
Plots = "91a5bcdd-55d7-5caf-9e0b-520d859cae80"

notebooks/Chapter_02.jl

Lines changed: 56 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -170,6 +170,12 @@ end
170170

171171
# ╔═╡ e15efdfa-e64f-4f5b-a94c-6c5e135a9ec2
172172
let
173+
W = 6
174+
L = 3
175+
x = collect(range(0, 1; length=101))
176+
b1 = Beta(W+1, L+1)
177+
plot(x, pdf.(b1, x); label = "β")
178+
173179
map2_0 = optimize(m2_0(W, L), MAP())
174180
μ = coef(map2_0)[:p]
175181
σ = sqrt(vcov(map2_0)[:p, :p])
@@ -178,6 +184,50 @@ let
178184
label="Normal($(round(μ; digits=2)), $(round(σ; digits=2)))")
179185
end
180186

187+
# ╔═╡ 56f8237f-69d2-4725-bb48-8c62e70085dc
188+
let
189+
W = 6
190+
L = 3
191+
x = collect(range(0, 1; length=101))
192+
b1 = Beta(W+1, L+1)
193+
plot(x, pdf.(b1, x); label = "β")
194+
195+
chains = sample(m2_0(W, L), NUTS(), 1000)
196+
global df = DataFrame(chains)
197+
198+
global map2_0 = optimize(m2_0(W, L), MAP())
199+
μ = coef(map2_0)[:p]
200+
σ = sqrt(vcov(map2_0)[:p, :p])
201+
b = Normal(μ, σ)
202+
σ1 = std(df.p; mean=μ)
203+
b1 = Normal(μ, σ1)
204+
plot!(x, pdf.(b, x); style=:dash,
205+
label="Normal($(round(μ; digits=2)), $(round(σ; digits=2)))")
206+
plot!(x, pdf.(b1, x); style=:dash,
207+
label="Normal($(round(μ; digits=2)), $(round(σ1; digits=2)))")
208+
end
209+
210+
# ╔═╡ 141da211-65cf-4bc2-9684-f469b13eff6b
211+
vcov(map2_0)
212+
213+
# ╔═╡ 3bddae59-4998-4b87-ae43-8343f6a9350f
214+
vcov(map2_0)[:p, :p]
215+
216+
# ╔═╡ 3c64eda4-fcbe-46ee-aafc-0d0b89e5f8fb
217+
vcov(map2_0)
218+
219+
# ╔═╡ e0440e29-ab5d-43b9-8151-2b824645b90b
220+
let
221+
μ = coef(map2_0)[:p]
222+
std(df.p; mean=μ)
223+
end
224+
225+
# ╔═╡ 8b367ce6-fe0a-4e47-ac25-d2a20ea06e48
226+
let
227+
chains = sample(m2_0(W, L), NUTS(), 1000)
228+
DataFrame(chains)
229+
end
230+
181231
# ╔═╡ 8c7de4e1-b5b1-44c4-9718-b8044a6397ef
182232
md"### Code 2.9"
183233

@@ -221,6 +271,12 @@ end
221271
# ╠═443044d5-02a3-4bfc-955b-54b0c12c63e2
222272
# ╟─3276b558-7dc7-4869-a083-472716a8a2ab
223273
# ╠═e15efdfa-e64f-4f5b-a94c-6c5e135a9ec2
274+
# ╠═56f8237f-69d2-4725-bb48-8c62e70085dc
275+
# ╠═141da211-65cf-4bc2-9684-f469b13eff6b
276+
# ╠═3bddae59-4998-4b87-ae43-8343f6a9350f
277+
# ╠═3c64eda4-fcbe-46ee-aafc-0d0b89e5f8fb
278+
# ╠═e0440e29-ab5d-43b9-8151-2b824645b90b
279+
# ╠═8b367ce6-fe0a-4e47-ac25-d2a20ea06e48
224280
# ╟─20e03a5e-3321-4019-97a5-44a0fd77a831
225281
# ╠═4a47f055-842c-451c-bc75-072708588f9a
226282
# ╟─8c7de4e1-b5b1-44c4-9718-b8044a6397ef

0 commit comments

Comments
 (0)