# \donttest{
# Data simulation
set.seed(1)
simul <- SimulateGraphical(pk = 30)
# Stability selection
stab <- GraphicalModel(xdata = simul$data, K = 10)
# Performance graph
perfgraph <- SelectionPerformanceGraph(
theta = stab,
theta_star = simul
)
plot(perfgraph)
# }
Run the code above in your browser using DataLab