plotTwoParProbWFam: Plot a family of two parameter probability weighting...

Description Usage Arguments References Examples

Description

Plot a family of two parameter probability weighting functions using base graphics.

Usage

1
2
3
4
plotTwoParProbWFam(my_title, my_title_colour, my_title_font_size, my_x_label,
  my_y_label, pwf, par, draw_reference_line_flag, reference_line_colour,
  reference_line_style, my_labels, my_label_positions, font_scaling,
  arrow_positions)

Arguments

my_title

text, the title

my_title_colour

text, the title colour

my_title_font_size

numeric, the title font size

my_x_label

text, my_x_label

my_y_label

text, the my_y_label

pwf

function, the pwf

par

vector, the pwf_parameters

draw_reference_line_flag

logical, draw_reference_line_flag

reference_line_colour

text, reference_line_colour

reference_line_style

text, reference_line_style

my_labels

vector, labels

my_label_positions

vector, the coordinates for the labels

font_scaling

numeric, the scaling factor for the labels

arrow_positions

vector, the positions of arrow lines

References

p. 140, Fig. 4 from Gonzalez, R., & Wu, G. (1999). On the shape of the probability weighting function. Cognitive Psychology, 38, 129-166.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
plotTwoParProbWFam(my_title=expression(paste("linear in log odds,  ",
	gamma == 0.6)),
	my_title_colour="black", my_title_font_size=4,
	my_x_label = "p", my_y_label = "w(p)", pwf=linear_in_log_odds_pwf,
	par=list(a_list=c(0.6), b_list=seq(from=0.2, to=1.8, by=0.06)),
	draw_reference_line_flag=TRUE, reference_line_colour="red",
	reference_line_style="dotted",
	my_labels=c(expression(paste(delta == 0.2)),
		expression(paste(delta == 1.8)),
		expression(paste(w(italic(p)) == frac(delta * italic(p)^gamma,
			delta * italic(p)^gamma + (1-italic(p))^gamma)))),
	my_label_positions=list(c(0.7,0.09),c(0.2,0.6),c(0.42, 0.9)),
	font_scaling=1.0,
	arrow_positions = list(c(0.28,0.56,0.35,0.53),c(0.7,0.23,0.75,0.35)))

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