powered by
plot_nnm_obj
plot_nnm_obj(y, X, b, max_iter = 100)
set.seed(12345) n <- 100 p <- 3 X <- matrix(rexp(n*p,rate=1),n,p) b <- matrix(runif(p),p,1) y <- X %*% b + matrix(abs(rnorm(n)),n,1) plot_nnm_obj(y,X,b)
Run the code above in your browser using DataLab