pro <- matrix(rep(0,12), ncol= 3) gamma <- c(0,0.5,1,2) n <- c(60,120,300) sigma <- c(9,5,3) for(i in 1:4){ for(j in 1:3){ pro[i,j] = model0(n=n[j], gamma = gamma[i], sigma = sigma[j]) } } d <- data.frame(row.names = c('Lasso','Adaptive Lasso (gamma=0.5)','Adaptive Lasso (gamma=1)','Adaptive Lasso (gamma=2)'), pro) colnames(d) <- c('n=60, sigma=9', 'n=120, sigma=5', 'n=300, sigma=9') print(d)