support.BWS (version 0.4-6)

ricebws1: Consumers' preferences for rice characteristics

Description

This dataset contains responses to Case 1 BWS questions about consumers' preferences for rice characteristics.

Usage

data(ricebws1)

Format

A data frame with 90 respondents on the following 18 variables.

id

Identification number of respondents.

b1

Item selected as the best in BWS question 1.

w1

Item selected as the worst in BWS question 1.

b2

Item selected as the best in BWS question 2.

w2

Item selected as the worst in BWS question 2.

b3

Item selected as the best in BWS question 3.

w3

Item selected as the worst in BWS question 3.

b4

Item selected as the best in BWS question 4.

w4

Item selected as the worst in BWS question 4.

b5

Item selected as the best in BWS question 5.

w5

Item selected as the worst in BWS question 5.

b6

Item selected as the best in BWS question 6.

w6

Item selected as the worst in BWS question 6.

b7

Item selected as the best in BWS question 7.

w7

Item selected as the worst in BWS question 7.

age

Respondents' age: 1 = <40; 2 = 40-<60; 3 = >=60

hp

Highest price of rice per 5 kg that respondents have purchased for the last six months: 1 = < 1600 JPY; 2 = 1600-<2100; 3 = >=2100

chem

Respondents' valuation of rice grown with low-chemicals: 1 if respondents value low-chemical rice and 0 otherwise

Author

Hideo Aizaki

See Also

bws.dataset, find.BIB

Examples

# Respondents were asked to select their most and least important
# characteristics of rice when purchasing rice. Rice characteristics
# were assumed to be place of origin, variety, price, taste, safety,
# wash-free rice, and milling date. BWS questions were created from
# a balanced incomplete block design (BIBD) with seven treatments
# (items), four columns (four items per question), and seven rows
# (seven questions).

# Generate the BIBD using find.BIB() in the crossdes package:
require("crossdes")
set.seed(8041)
bibd.ricebws1 <- find.BIB(trt = 7, b = 7, k = 4)
isGYD(bibd.ricebws1)
bibd.ricebws1

# Store rice characteristics used in the survey to items.ricebws1:
items.ricebws1 <- c(
  "Place_of_origin",
  "Variety",
  "Price",
  "Taste",
  "Safety",
  "Washfree_rice",
  "Milling_date")

# Convert the BIBD into the BWS questions:
bws.questionnaire(bibd.ricebws1, design.type = 2,
  item.names = items.ricebws1)

# Load the dataset ricebws1 containing the responses to 
# the BWS questions:
data("ricebws1", package = "support.BWS")
dim(ricebws1)
names(ricebws1)

# Create the dataset for the analysis:
data.ricebws1 <- bws.dataset(
  respondent.dataset = ricebws1,
  response.type = 1,
  choice.sets = bibd.ricebws1,
  design.type = 2,
  item.names = items.ricebws1)

# Calculate BW scores:
count.ricebws1 <- bws.count(data = data.ricebws1)
count.ricebws1