sssp.R
In sssp: Semi-Symmetric Sparse Projection

## ----collapse=TRUE------------------------------------------------------------
library(sssp)
v <- c(10, -1, 2, 3, 9, 0, -4, -8, 7, 6)
groups <- c(3, 4, 3)
res <- sssp_project(v, groups, r = 3, s = 6)
print(res)

## ----collapse=TRUE------------------------------------------------------------
res_r2 <- sssp_project(v, groups, r = 2, s = 6)
print(res_r2)

## ----collapse=TRUE------------------------------------------------------------
v2 <- c(4, -3, 5, 2, -6, 1, 7, -8, 0.5, 9, -2, 3)
groups2 <- list(c(1, 4), c(2, 3, 5, 8, 9, 10), c(6, 7, 11, 12))
res2 <- sssp_project(v2, groups2, r = 2, s = 5)
print(res2)