if(interactive()){
names(oliveAcids) <- c('p','p1','s','o','l','l1','a','e')
nodes <- apply(combn(names(oliveAcids),2),2,
function(x)paste(x, collapse=':'))
G <- completegraph(nodes)
g <- l_graph(G)
nav <- l_navigator_add(g)
con <- l_context_add_slicing2d(nav, data=oliveAcids)
# symmetric range proportion around nav['proportion']
con['proportion'] <- 0.2
con['conditioning4d'] <- "union"
con['conditioning4d'] <- "intersection"
}
Run the code above in your browser using DataLab