# NOT RUN {
#############################################################
# Computing the performances
#############################################################
data(ToyData)
results <- l1_spectralclustering(A = ToyData$A_hat, pen = "lasso",
k=2, elements = c(1,4))
ComputePerformances(Results=results,A=ToyData$A)
# }
Run the code above in your browser using DataLab