# Setup mixture example
n <- 1e3
p <- 10
nnm <- generate_nnm(n,p)
set.seed(12345)
X <- nnm$X
b <- double(p)
nComponents <- 3
k <- sample(1:p,nComponents,replace=FALSE)
b[k] <- matrix(runif(nComponents),ncol=1)
y <- X%*%b + 0.25*matrix(abs(rnorm(n)),n,1)
plot_spect(n,y,X,b,nnm)
Run the code above in your browser using DataLab