Compute the support estimate.

support_estimation(beta_sample, param)

Arguments

beta_sample

the result of the function compute_beta_sample.

param

a list containing the value Q and an optional parameter gamma.

Value

a list containing:

alpha

a numerical vector. The approximated posterior probabilities that the coefficient function support covers t for each time points t.

estimate

a numerical vector, the support estimate.

estimate_fct

a numerical vector, another version of the support estimate.

Examples

data(data1)
data(param1)
data(res_bliss1)
param1$Q <- length(data1$x)

res_support <- support_estimation(res_bliss1$beta_sample,param1)