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
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