if (FALSE) {
# Compute a D-efficient block size-two design
# with 15 treatments and 10 blocks of size two
Fx <- Fx_blocks(10)
w <- od_KL(Fx, 15, t.max = 5)$w.best
des <- combn(10, 2)[, as.logical(w)]
print(des)
# We can visualize the design as a graph
library(igraph)
grp <- graph_(t(des), from_edgelist(directed = FALSE))
plot(grp, layout=layout_with_graphopt)
}
Run the code above in your browser using DataLab