# \donttest{
## Variable selection
# Data simulation
set.seed(1)
simul <- SimulateRegression(n = 100, pk = 50, family = "gaussian")
# Two runs
stab1 <- VariableSelection(xdata = simul$xdata, ydata = simul$ydata, seed = 1, K = 10)
stab2 <- VariableSelection(xdata = simul$xdata, ydata = simul$ydata, seed = 2, K = 10)
# Merging the outputs
stab <- Combine(stability1 = stab1, stability2 = stab2, include_beta = FALSE)
str(stab)
## Graphical modelling
# Data simulation
simul <- SimulateGraphical(pk = 20)
# Two runs
stab1 <- GraphicalModel(xdata = simul$data, seed = 1, K = 10)
stab2 <- GraphicalModel(xdata = simul$data, seed = 2, K = 10)
# Merging the outputs
stab <- Combine(stability1 = stab1, stability2 = stab2)
str(stab)
## Clustering
# Data simulation
simul <- SimulateClustering(n = c(15, 15, 15))
# Two runs
stab1 <- Clustering(xdata = simul$data, seed = 1)
stab2 <- Clustering(xdata = simul$data, seed = 2)
# Merging the outputs
stab <- Combine(stability1 = stab1, stability2 = stab2)
str(stab)
# }
Run the code above in your browser using DataLab