## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----load-and-setup, echo=FALSE, message=FALSE, warning=FALSE-----------------
library(andorR)
data(ethical) 

## ----setup-example------------------------------------------------------------
library(andorR)

# Load the tree from the built-in 'ethical' dataset
dtree <- load_tree_df(ethical)

# Calculate the initial optimisation indices
dtree <- update_tree(dtree)

## ----get-first-influence------------------------------------------------------
# Get the most important next questions
next_questions_df <- get_highest_influence(dtree, top_n = 3)
knitr::kable(next_questions_df)

## ----first-answers------------------------------------------------------------
set_answer(dtree, "GOV5", TRUE, 3)
set_answer(dtree, "ENV4", TRUE, 3)
set_answer(dtree, "SOC1", TRUE, 3)

# Update the tree and view the current state
dtree <- update_tree(dtree)
print_tree(dtree)

## ----final-answers------------------------------------------------------------
# Answer some more questions
set_answer(dtree, "FIN4", TRUE, 3)
set_answer(dtree, "FIN5", TRUE, 3)
set_answer(dtree, "GOV1", TRUE, 3)
set_answer(dtree, "GOV2", TRUE, 3)
set_answer(dtree, "GOV3", TRUE, 3)
set_answer(dtree, "GOV4", TRUE, 3)
set_answer(dtree, "FIN1", TRUE, 3)

# Update and get the final result
dtree <- update_tree(dtree)
print_tree(dtree)

## ----eval=FALSE---------------------------------------------------------------
# # Load the ethical dataset and build the tree
# data(ethical)
# dtree <- load_tree_df(ethical)
# dtree <- update_tree(dtree)
# 
# # Start the interactive analysis loop
# andorR_interactive(dtree)