profile_exponential_decay_model: Computes the likelihood for a range of values using an...
In bomeara/flipped: Applies various odd models for coin flipping

Description Usage Arguments Value Examples

Computes the likelihood for a range of values using an exponential coin model

profile_exponential_decay_model(
  nheads,
  nflips,
  param_range = c(0, nflips * 10),
  number_of_steps = 1000,
  log = FALSE
)

`nflips`	Total number of flips (heads and tails)
`param_range`	Range of parameters to try
`number_of_steps`	How many values of the parameter to try

vector of likelihoods

nheads <- 8
nflips <- 10
exp_results <- profile_exponential_decay_model(nheads, nflips)
plot(x=exp_results$preflip_prob, y=exp_results$likelihood, type="l")
best_param <- exp_results$halflife[which.max(exp_results$likelihood, na.rm=TRUE)]
print(best_param)