function to retrieve bibd from design number

markhwhiteii / bwsTools

Tools for Case 1 Best-Worst Scaling (MaxDiff) Designs

https://osf.io/wb4c3/

Other

13 stars 2 forks source link

function to retrieve bibd from design number #15

Closed markhwhiteii closed 4 years ago

markhwhiteii commented 4 years ago

tmp <- bibds[bibds$design == x, ]
out <- crossdes::find.BIB(tmp$t, tmp$b, tmp$k)
colnames(out) <- paste("Option", 1:ncol(out), sep = "_")
rownames(out) <- 1:nrow(out)
return(dplyr::as_tibble(out, rownames = "Block"))