R/get_A_idx_decision.R

In twig: For Streamlining Decision and Economic Evaluation Models using Grammar of Modeling

get_A_idx_decision <- function(A0_idx, n_paths, E0_logical, E0_df, 
    event_args, path_event_values, E_idx, dest_paths, core_args){

    A_idx <- A0_idx

    for (path_id in 1:n_paths){

        E_logical <- E0_logical
        for (event in event_args){
            E_logical <- E_logical & (E0_df[,event] == path_event_values[path_id, event])
        }
        if ("outcome" %in% core_args){
            path_name <- get_path_name(path_id, dest_paths)
            E_logical <- E_logical & (E0_df[,"outcome"] == path_name)
        }

        A_idx[,path_id] <- E_idx[E_logical]

    }
    A_idx
}