Fit beta distribution for one expert

Fit beta distribution to data elicited from one expert via the roulette method.

Usage

fit_beta_1exp(df)

Arguments

df

A dataframe generated by get_model_input_1exp.

Value

Parameters (alpha and beta) of a beta fit.

Details

This function is based on SHELF::fitdist and yields identical results.

See also

[get_model_input_1exp()] and [fit_beta_mult_exp()].

Examples

chips <- c(0, 2, 3, 2, 1, 1, 1, 0, 0, 0)
x <- get_cum_probs_1exp(chips)
y <- get_model_input_1exp(x)
fit_beta_1exp(df = y)["par"] 
#> $par
#>    alpha     beta 
#> 2.314860 4.640069 
#>