Deploying to gh-pages from @ d86b0f0 🚀

Author: Carol-seven

index.html

@@ -39,7 +39,7 @@ library(grasps)
 X <- matrix(rnorm(200), 10, 20)
 membership <- c(rep(1,5), rep(2,5), rep(3,4), rep(4,6))
 
-grasps(X, membership = membership, penalty = "lasso", crit = "BIC")
+res <- grasps(X, membership = membership, penalty = "lasso", crit = "BIC")
 ```
 
 ## Reference

index.md

@@ -39,7 +39,7 @@ library(grasps)
 X <- matrix(rnorm(200), 10, 20)
 membership <- c(rep(1,5), rep(2,5), rep(3,4), rep(4,6))
 
-grasps(X, membership = membership, penalty = "lasso", crit = "BIC")
+res <- grasps(X, membership = membership, penalty = "lasso", crit = "BIC")
 ```
 
 ## Reference

llms.txt

@@ -3,7 +3,7 @@ pkgdown: 2.2.0
 pkgdown_sha: ~
 articles:
   pen_est: pen_est.html
-last_built: 2025-11-12T17:29Z
+last_built: 2025-11-12T17:44Z
 urls:
   reference: https://shiying-xiao.com/grasps/reference
   article: https://shiying-xiao.com/grasps/articles

pkgdown.yml

@@ -60,7 +60,13 @@ est <- grasps(X, membership = membership, penalty = "lasso", crit = "BIC")
 
 ## default: keep blocks within ±1 of each group
 res1 <- sparsify_block_banded(est$hatOmega, membership, neighbor.range = 1)
+## visualization
+visualize(res1$Omega, res1$membership)
+
 
 ## wider band: keep blocks within ±2 of each group
 res2 <- sparsify_block_banded(est$hatOmega, membership, neighbor.range = 2)
+## visualization
+visualize(res2$Omega, res2$membership)
+
 ```