BUG: error of background

[KarolineHuth]

Using this code:

library("bootnet") library("qgraph") library(IsingSampler) library("easybgm")

set.seed(1000)

Generate a Ising with 6 nodes and scaling the relations with unifrom distri

trueIsing <- genGGM(Nvar = 6) runif(6 6, 0, 2)

trueIsing[lower.tri(trueIsing)] <- #Forcing symmetrical around

t(trueIsing)[lower.tri(trueIsing)] #diagonal

samp <- IsingSampler(n = 1000, #sample size graph = trueIsing, thresholds = rep(0,nrow(trueIsing)), beta = 0, #inverse temperature responses = c(0, 1L)) #encoding

fit = easybgm( data = samp , type = "binary")

plot_edgeevidence(fit,evidence_thres = 10 , split = FALSE ,show = "all")

[KarolineHuth]

fixed with 66e5bd1f82ac4a78eadef06b2a1b00c95315c791