Computes the proportion of mock witnesses identifying a particular lineup member
Usage
lineup_prop_tab(lineup_tab, target_pos)
Arguments
- lineup_tab
A table of lineup choices
- target_pos
A scalar, representing target position in lineup. Must be declared by user
Value
Returns a proportion indicating the frequency with which a lineup
member was selected
References
Wells, G. L.,Leippe, M. R., & Ostrom, T. M. (1979). Guidelines for
empirically assessing the fairness of a lineup. Law and Human Behavior,
3(4), 285-293.
Examples
#Data:
lineup_vec <- round(runif(100, 1))
lineup_tab <- table(lineup_vec)
#Call:
lineup_prop_tab(lineup_tab, 3)
#> [1] 0
lineup_prop_tab(table(lineup_vec), 2)
#> [1] 0