compareGDU: Compare choice gambles under Luce's (2000) (Lower)...

Description Usage Arguments References Examples

Description

Compare choice gambles under Luce's (2000) (Lower) Gains-decompositions utility (GDU) theory.

Usage

1
2
3
4
compareGDU(object, prob_weight, utility, digits)

## S4 method for signature 'Choices'
compareGDU(object, prob_weight, utility, digits)

Arguments

object

Choices, an instance of a Choices class.

prob_weight

ProbWeight, an instance of a ProbWeight class.

utility

Utility, an instance of a Utility class.

digits

numeric, the number of digits to display in the output.

References

Luce, R. D. (2000). Utility of gains and losses: Measurement-theoretical and experimental approaches. Mahwah, NJ: Lawrence Erlbaum Associates.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
# This example creates the two Allais common consequence paradox choices,
# and computes the GDU for each gamble in the choices.

choice_ids <- c(1, 1, 1, 1, 2, 2, 2, 2)

gamble_ids <- c(1, 1, 1, 2, 1, 1, 2, 2)

outcome_ids <- c(1, 2, 3, 1, 1, 2, 1, 2)

objective_consequences <- c(2500, 2400, 0, 2400,
	2500, 0, 2400, 0)

probability_strings <- c("0.33", "0.66", "0.01", "1.0",
	"0.33", "0.67", "0.34", "0.66")

my_choices <- Choices(choice_ids=choice_ids,
	gamble_ids=gamble_ids,
	outcome_ids=outcome_ids,
	objective_consequences=objective_consequences,
	probability_strings=probability_strings)

my_choices

my_pwf <-
	ProbWeight(fun="compound_invariance",
	par=c(alpha=0.542, beta=1.382))

my_utility <- Utility(fun="power",
	par=c(alpha=1, beta=1, lambda=1))

compareGDU(my_choices,
	prob_weight=my_pwf,
	utility=my_utility,
	digits=4)

gary-au/pt documentation built on May 16, 2019, 5:41 p.m.