diff --git a/app.R b/app.R index 1afd3f8..9578432 100644 --- a/app.R +++ b/app.R @@ -337,8 +337,8 @@ server <- function(input, output, session) { means <- apply(sampleDists, 2, mean) stdDev <- apply(sampleDists, 2, sd) + #quantiles <- t(apply(sampleDists, 2, quantile, c(0.01, 0.25, 0.5, 0.75, 0.99))) quantiles <- t(apply(sampleDists, 2, quantile, c(0.01, 0.25, 0.5, 0.75, 0.99))) - print(paste("Building likelihoods from model, sample dists", length(thisModel$p_es$nodes$name), length(sampleDists))) #str(quantiles) @@ -570,18 +570,16 @@ server <- function(input, output, session) { } else { edgeNet <- edges } - - + + print(paste(nrow(model$legend), length(palette))) legendDF <- data.frame( id = 1:nrow(model$legend), label = model$legend, - color = palette, + color = palette[1:nrow(model$legend)], stringsAsFactors = FALSE ) - - visNetwork(nodeNet, edgeNet, width = "100%", main = "Bayesian Belief Network", submain = input$modelSelect) %>% visExport() %>% visLegend(useGroups = FALSE, addNodes = legendDF) %>% diff --git a/data/Sub_littoral_coarse_release_#2.xlsx b/data/Sub_littoral_coarse_release_#2.xlsx index 434ca9e..ecbe788 100644 Binary files a/data/Sub_littoral_coarse_release_#2.xlsx and b/data/Sub_littoral_coarse_release_#2.xlsx differ diff --git a/data/Sub_littoral_mixed_release_#2.xlsx b/data/Sub_littoral_mixed_release_#2.xlsx index 03ffe63..f8228bd 100644 Binary files a/data/Sub_littoral_mixed_release_#2.xlsx and b/data/Sub_littoral_mixed_release_#2.xlsx differ diff --git a/data/Sub_littoral_mud_release_#2.xlsx b/data/Sub_littoral_mud_release_#2.xlsx index 6d87649..97a7886 100644 Binary files a/data/Sub_littoral_mud_release_#2.xlsx and b/data/Sub_littoral_mud_release_#2.xlsx differ diff --git a/data/Sub_littoral_rock_release_#2.xlsx b/data/Sub_littoral_rock_release_#2.xlsx index 3e99dcf..2c96ce7 100644 Binary files a/data/Sub_littoral_rock_release_#2.xlsx and b/data/Sub_littoral_rock_release_#2.xlsx differ diff --git a/data/Sub_littoral_sand_release_#2.xlsx b/data/Sub_littoral_sand_release_#2.xlsx index 46d2ff1..0e81252 100644 Binary files a/data/Sub_littoral_sand_release_#2.xlsx and b/data/Sub_littoral_sand_release_#2.xlsx differ