Computes likelihoods for spinner outcomes

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

Value

column vector consisting of the likelihoods for the different spinners

Examples

  Prob <- matrix(c(.25, .25, .25, .25,
                   .50, .125, .125, .5,
                   .25, .5, .25, 0), 3, 4, byrow=TRUE)
  obs <- c(1, 2, 1, 3, 4)
  dspinner(obs, Prob)
#>              [,1]
#> [1,] 0.0009765625
#> [2,] 0.0019531250
#> [3,] 0.0000000000