ricebws1: Consumers' preferences for rice characteristics
In support.BWS: Tools for Case 1 Best-Worst Scaling

ricebws1

R Documentation

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(s)

Hideo Aizaki

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

support.BWS documentation built on March 31, 2023, 8:12 p.m.