# NOT RUN {
W <- matrix(c(1, 2, 3, 4, 5, 6), ncol = 2)
colnames(W) <- c("sig1", "sig2")
W <- apply(W, 2, function(x) x / sum(x))
H <- matrix(c(2, 5, 3, 6, 1, 9, 1, 2), ncol = 4)
colnames(H) <- paste0("samp", 1:4)
V <- W %*% H
V
if (requireNamespace("lsei") & requireNamespace("quadprog")) {
z <- sig_fit_bootstrap_batch(V, sig = W, n = 2)
z
z10 <- sig_fit_bootstrap_batch(V, sig = W, n = 10)
}
# }
Run the code above in your browser using DataLab