```{r} Atot <- cbind(1,2) y = c(0,1) w <- c(1,1) sqIso <- isotone::activeSet(Atot,y=y,weights=w) ```