Little bug in "burnin.R"

[pglpm]

If the x input is a vector whose length is not an integer multiple of 10, the function will give an error. the problem is on line 16 (https://github.com/LaplacesDemonR/LaplacesDemon/blob/master/R/burnin.R): x was transformed into a 1-column matrix, and on line 16 it is inadvertently transformed back into a vector, which causes problems when BMK.diagnostic is called. Line 16 should be changed from

if(n %% 10 != 0) x2 <- x[1:(10*trunc(n/10)),]

to

if(n %% 10 != 0) x2 <- x[1:(10*trunc(n/10)), , drop=FALSE]