Title: | Efficient and Accessible Discrete Choice Experiments |
---|---|
Description: | Design, conduct and analyze 'DCEs' from a virtual interface in shiny. Reference: Perez-Troncoso, D. (2022) <https://github.com/danielpereztr/DCEtool>. |
Authors: | Daniel Perez Troncoso [aut, cre] |
Maintainer: | Daniel Perez Troncoso <[email protected]> |
License: | GPL-3 |
Version: | 1.1.0 |
Built: | 2024-12-25 06:54:25 UTC |
Source: | CRAN |
Generates experimental designs for DCEs. (Backend of DCEtool) .
dce_toolbox(attributes, csets, alts, nochoice, priors, alg)
dce_toolbox(attributes, csets, alts, nochoice, priors, alg)
attributes |
A vector where each number represents an attribute and its values the number of levels. |
csets |
An integer indicating the number of sets in the DCE. |
alts |
An integer indicating the number of alternatives in each set. |
nochoice |
A boolean indicating whether there is an opt-out option (TRUE) or not (FALSE) |
priors |
A vector indicating the prior parameters of the conditional logit model. |
alg |
A string indicating the optimization algorithm: "cea" or "fedorov". |
design |
The design matrix |
DB-error |
The Bayesian D-error if the optimization algorithm is "cea" |
D-error |
The D-error if the optimization algorithm is "fedorov" |
details |
A string compiling the details of the procedure |
## Not run: dce_toolbox(attributes = c(2,3), csets = 12, alts = 2, nochoice = FALSE, priors = c(0,0,0), alg = "fedorov") ## End(Not run)
## Not run: dce_toolbox(attributes = c(2,3), csets = 12, alts = 2, nochoice = FALSE, priors = c(0,0,0), alg = "fedorov") ## End(Not run)
Design, conduct, and analyze discrete choice experiments from a visual interface.
DCEtool()
DCEtool()
Use the visual interface to generate, load and download designs and data bases.
## Not run: DCEtool() ## End(Not run)
## Not run: DCEtool() ## End(Not run)
Select members of a list that match given regex pattern
list.match(.data, pattern, ...)
list.match(.data, pattern, ...)
.data |
A |
pattern |
|
... |
Additional parameters to pass to |
x <- list(p1 = list(type='A',score=list(c1=10,c2=8)), p2 = list(type='B',score=list(c1=9,c2=9)), p3 = list(type='B',score=list(c1=9,c2=7))) list.match(x,'p[12]') list.match(x,'3')
x <- list(p1 = list(type='A',score=list(c1=10,c2=8)), p2 = list(type='B',score=list(c1=9,c2=9)), p3 = list(type='B',score=list(c1=9,c2=7))) list.match(x,'p[12]') list.match(x,'3')