Question: mout
mout <- metrop(mout, blen = 1, nbatch = 1e5)bout.spac <- mout$batch[seq(1, mout$nbatch, 250), ]dout <- density(bout.spac[ , 2])plot(dout, main = expression(paste("Series: ",beta["weight"], " spacing of chain 250")))
Step by Step Solution
There are 3 Steps involved in it
Get step-by-step solutions from verified subject matter experts
