{
if(packageVersion("Rmosek") > "8.0.0"){
A = cbind(c(1,-1,1,-2,2,1,3), c(1,1,1,1,1,-1,-2))
B = matrix(c(3,1,7,-2,7,-1,1), ncol = 1)
plot(NULL,xlim = c(-10,10),ylim = c(-10,10))
for (i in 1:nrow(A))
abline(a = B[i,1]/A[i,2], b = -A[i,1]/A[i,2],col = i)
f = NICER(A, B)
for (j in 1:ncol(f$SignVector))
points(f$w[1,j], f$w[2,j], cex = 0.5)
}
}
Run the code above in your browser using DataLab