# A simple example
p_map <- list(A = "1", B = "1", t0 = "1", mean_v = "M", sd_v = "1",
st0 ="1")
factors <- list(S = c("s1", "s2"))
responses <- c("r1", "r2")
result <- build_cell_names_r(p_map, factors, responses)
# cat("B (2 factors), t0, mean_v (3 factors), sd_v (2 factors)")
p_map <- list(
A = "H", B = c("S", "G"), t0 = "E", mean_v = c("D", "H", "M"),
sd_v = c("D", "M"), st0 = "1"
)
factors <- list(
S = c("s1", "s2", "s3"), D = c("d1", "d2"), E = c("e1", "e2"),
G = c("g1", "g2", "g3"), H = c("h1", "h2", "h3", "h4", "h5")
)
responses <- c("r1", "r2", "r3")
result <- build_cell_names_r(p_map, factors, responses)
Run the code above in your browser using DataLab