lambda_matrix <-
create_default_lambda_transition_matrix(state_names = c(0, 1),
model = "ETD")
lambda_list <- create_lambda_list(state_names = c(0, 1),
num_concealed_states = 2,
transition_matrix = lambda_matrix,
model = "ETD")
Run the code above in your browser using DataLab