Errors from testing script #11
Description
Running the following I'm getting based off of the newest github commit.
I also sometimes get
recursive gc invocation but can't quite get the code down to reproduce it yet...
Warning: stack imbalance in '=', 2 then -74
library("hibayes")
set.seed(42)
n = 10000
m = 1000
k = 10
h2 = 0.5
n = 1000
m = 1000
Z = matrix(sample(c(0, 1, 2), n*m, prob=c(0.25, 0.5, 0.25), replace=TRUE), n)
Z = apply(Z, 2, function(x){x-mean(x)})
k = 10
qtl = sort(sample(1:m, k))
betaTrue = array(0,m)
betaTrue[qtl] = rnorm(k)
h2 = 0.5
g = Z%*%betaTrue
vg = var(g)
ve = (1-h2)/h2 * vg
y = g + rnorm(n,0,sqrt(ve))
fit = bayes(y=y, Z=Z, model="R", niter=1000, nburn=500)