Determine coefficients that can be estimated based on a partial factorial design

A function to determine which coefficients can be estimated based on a partial factorial design. Adapted from a function written by Blakeley McShane at https://github.com/fzettelmeyer/mktg482/blob/master/R/expdesign.R

estimable(design)

Arguments

design	An experimental design generated by the doe function that includes a partial and full factorial design

Examples

design <- doe(c("price; $10; $13; $16", "food; popcorn; gourmet; no food"), trials = 6)
estimable(design)
#> [1] "price|$13"              "price|$16"              "food|gourmet"          
#> [4] "food|no_food"           "price|$16:food|gourmet"