can't run the example in vignette

[YushuShi]

I tried to run the example in the vignette, it gives me the error

library(trac)
names(sCD14)
set.seed(123)
ntot <- length(sCD14$y)
n <- round(2/3 * ntot)
tr <- sample(ntot, n)
log_pseudo <- function(x, pseudo_count = 1) log(x + pseudo_count)
ytr <- sCD14$y[tr]
yte <- sCD14$y[-tr]
ztr <- log_pseudo(sCD14$x[tr, ])
zte <- log_pseudo(sCD14$x[-tr, ])
fit <- trac(ztr, ytr, A = sCD14$A, min_frac = 1e-2, nlam = 30)

Error in diag(1/w[[iw]]) %*% delta : non-conformable arguments

[jacobbien]

Thanks @YushuShi for pointing this out. We believe we've resolved this issue in commit 392a209. Please let us know if this still doesn't work for you.