@@ -8,7 +8,7 @@ using Statistics: mean
8
8
θ_init = randn (rng, 2 )
9
9
10
10
nuts = NUTS (0.8 )
11
- hmc = HMC (100 ; integrator = Leapfrog (0.05 ))
11
+ hmc = HMC (100 ; integrator= Leapfrog (0.05 ))
12
12
hmcda = HMCDA (0.8 , 0.1 )
13
13
14
14
integrator = Leapfrog (1e-3 )
@@ -21,15 +21,27 @@ using Statistics: mean
21
21
LogDensityProblemsAD. ADgradient (Val (:ForwardDiff ), ℓπ_gdemo),
22
22
)
23
23
24
+ @testset " getparams and setparams!!" begin
25
+ t, s = AbstractMCMC. step (
26
+ rng,
27
+ model,
28
+ nuts;
29
+ )
30
+
31
+ θ = AbstractMCMC. getparams (s)
32
+ @test θ == t. z. θ
33
+ @test AbstractMCMC. setparams!! (s, θ) == s
34
+ end
35
+
24
36
samples_nuts = AbstractMCMC. sample (
25
37
rng,
26
38
model,
27
39
nuts,
28
40
n_adapts + n_samples;
29
- n_adapts = n_adapts,
30
- initial_params = θ_init,
31
- progress = false ,
32
- verbose = false ,
41
+ n_adapts= n_adapts,
42
+ initial_params= θ_init,
43
+ progress= false ,
44
+ verbose= false ,
33
45
)
34
46
35
47
# Error if keyword argument `nadapts` is used
@@ -38,10 +50,10 @@ using Statistics: mean
38
50
model,
39
51
nuts,
40
52
n_adapts + n_samples;
41
- nadapts = n_adapts,
42
- initial_params = θ_init,
43
- progress = false ,
44
- verbose = false ,
53
+ nadapts= n_adapts,
54
+ initial_params= θ_init,
55
+ progress= false ,
56
+ verbose= false ,
45
57
)
46
58
@test_throws ArgumentError AbstractMCMC. sample (
47
59
rng,
@@ -50,10 +62,10 @@ using Statistics: mean
50
62
MCMCThreads (),
51
63
n_adapts + n_samples,
52
64
2 ;
53
- nadapts = n_adapts,
54
- initial_params = θ_init,
55
- progress = false ,
56
- verbose = false ,
65
+ nadapts= n_adapts,
66
+ initial_params= θ_init,
67
+ progress= false ,
68
+ verbose= false ,
57
69
)
58
70
59
71
# Transform back to original space.
@@ -73,10 +85,10 @@ using Statistics: mean
73
85
model,
74
86
hmc,
75
87
n_adapts + n_samples;
76
- n_adapts = n_adapts,
77
- initial_params = θ_init,
78
- progress = false ,
79
- verbose = false ,
88
+ n_adapts= n_adapts,
89
+ initial_params= θ_init,
90
+ progress= false ,
91
+ verbose= false ,
80
92
)
81
93
82
94
# Transform back to original space.
@@ -96,10 +108,10 @@ using Statistics: mean
96
108
model,
97
109
custom,
98
110
n_adapts + n_samples;
99
- n_adapts = 0 ,
100
- initial_params = θ_init,
101
- progress = false ,
102
- verbose = false ,
111
+ n_adapts= 0 ,
112
+ initial_params= θ_init,
113
+ progress= false ,
114
+ verbose= false ,
103
115
)
104
116
105
117
# Transform back to original space.
@@ -122,20 +134,20 @@ using Statistics: mean
122
134
model,
123
135
custom,
124
136
10 ;
125
- n_adapts = 0 ,
126
- initial_params = θ_init,
127
- progress = false ,
128
- verbose = false ,
137
+ n_adapts= 0 ,
138
+ initial_params= θ_init,
139
+ progress= false ,
140
+ verbose= false ,
129
141
)
130
142
samples2 = AbstractMCMC. sample (
131
143
rng2,
132
144
model,
133
145
custom,
134
146
10 ;
135
- n_adapts = 0 ,
136
- initial_params = θ_init,
137
- progress = false ,
138
- verbose = false ,
147
+ n_adapts= 0 ,
148
+ initial_params= θ_init,
149
+ progress= false ,
150
+ verbose= false ,
139
151
)
140
152
@test mapreduce (* , samples1, samples2) do s1, s2
141
153
s1. z. θ == s2. z. θ
0 commit comments