dspinner function

Computes likelihoods for spinner outcomes

dspinner(x, Prob)

Arguments

• x: vector of spinner observations
• Prob: matrix of spinner probabilities where each row corresponds to a different spinner

Returns

column vector consisting of the likelihoods for the different spinners

Author(s)

Jim Albert

Examples

Prob <- matrix(c(.25, .25, .25, .25,
                   .50, .125, .125, .5,
                   .25, .5, .25, 0), 3, 4, byrow=TRUE)
  x <- c(1, 2, 1, 3, 4)
  dspinner(x, Prob)