# Data simulation
set.seed(1)
simul <- SimulateGraphical()
# Running graphical LASSO
myglasso <- PenalisedGraphical(
xdata = simul$data,
Lambda = matrix(c(0.1, 0.2), ncol = 1)
)
# Returning estimated precision matrix
myglasso <- PenalisedGraphical(
xdata = simul$data,
Lambda = matrix(c(0.1, 0.2), ncol = 1),
output_omega = TRUE
)
Run the code above in your browser using DataLab