H_counts <- c(5, 2)
H_names <- rep(seq_along(H_counts), times = H_counts)
S <- c(154, 178, 134, 213, 124, 102, 12)
N <- c(100, 100, 100, 100, 100, 100, 100)
M <- c(80, 90, 70, 40, 10, 90, 100)
names(M) <- names(N) <- H_names
total <- c(13, 2)
kappa <- c(0.8, 0.2)
n <- 150
# experimental function (not exported) – examples skipped
if (FALSE) {
dca_M(n, H_counts, N, S, total, kappa, M = M, U = 5)
# 1 1 1 1 1 2 2
# 12.754880 14.742653 11.098402 17.641490 10.000000 74.945462 8.817113
}
Run the code above in your browser using DataLab