| ce.response {support.CEs} | R Documentation |
Generating artificial responses to choice experiment questions
Description
This function synthesizes responses to choice experiment questions.
Usage
ce.response(design,
categorical.attributes = NULL,
continuous.attributes = NULL,
optout = FALSE,
b,
n,
detail = FALSE,
seed = NULL)
Arguments
design |
An object of the S3 class "cedes". |
categorical.attributes |
A vector containing the names of attributes treated as categorical independent variables in the model. If there are no categorical variables, it is set as |
continuous.attributes |
A vector containing the names of attributes treated as continuous independent variables in the model. If there are no continuous variables, it is set as |
optout |
A logical variable describing whether or not the opt-out alternative is included in the choice experiment questions. If |
b |
A vector containing parameters of independent variables in the model. The vector is used to calculate utilities for alternatives. |
n |
An integer value showing the number of respondents in the resultant dataset. |
detail |
A logical variable: if |
seed |
Seed for a random number generator. |
Details
This function synthesizes responses to choice experiment questions. Before using the function, see help for functions rotation.design, make.design.matrix, and make.dataset. For details on the usage, refer to section Examples below.
Value
This function returns a data frame that contains synthesized responses to choice experiment questions, in either a detailed or a simple format. The detailed format dataset contains the following variables, as well as independent variables according to the arguments categorical.attributes and/or continuous.attributes.
ID |
An identification number of artificial respondents. |
BLOCK |
A serial number of blocks in the choice sets. |
QES |
A serial number of questions. |
ALT |
A serial number of alternatives. |
ASC |
Alternative specific constant. |
STR |
A stratification variable used to identify each combination of respondent and question. |
RES |
Responses to choice experiment questions, taking the value of 1 if an alternative is selected by the synthesized respondents and 0 otherwise. |
Author(s)
Hideo Aizaki
See Also
rotation.design, make.design.matrix, make.dataset, rice, clogit
Examples
# The following example is based on the dataset rice.
# The choice sets differ from those in the dataset rice.
library(survival)
dsgn.rice <- rotation.design(
attribute.names = list(
Region = c("RegA", "RegB", "RegC"),
Cultivation = c("Conv", "NoChem", "Organic"),
Price = c("1700", "2000", "2300")),
nalternatives = 2,
nblocks = 3,
row.renames = FALSE,
randomize = TRUE,
seed = 987)
syn.rice1 <- ce.response(
design = dsgn.rice,
categorical.attributes = c("Region", "Cultivation"),
continuous.attributes = "Price",
optout = TRUE,
b = c(4.4, 0.47, 0.97, 0.66, 1.1, -0.0023),
n = 99,
detail = TRUE,
seed = 1)
head(syn.rice1, 30)
mf <- RES ~ ASC + RegB + RegC + NoChem + Organic + Price + strata(STR)
(out1 <- clogit(mf, data = syn.rice1))
syn.rice.simple <- ce.response(
design = dsgn.rice,
categorical.attributes = c("Region", "Cultivation"),
continuous.attributes = "Price",
optout = TRUE,
b = c(4.4, 0.47, 0.97, 0.66, 1.1, -0.0023),
n = 99,
detail = FALSE,
seed = 1)
head(syn.rice.simple)
dsgnmat.rice <- make.design.matrix(
choice.experiment.design = dsgn.rice,
optout = TRUE,
categorical.attributes = c("Region", "Cultivation"),
continuous.attributes = c("Price"),
unlabeled = TRUE)
syn.rice2 <- make.dataset(
respondent.dataset = syn.rice.simple,
choice.indicators =
c("q1", "q2", "q3"),
design.matrix = dsgnmat.rice)
(out2 <- clogit(mf, data = syn.rice2))
all.equal(coef(out1), coef(out2))