Running examples in 'RSSL-Ex.R' failed
The error most likely occurred in:

> ### Name: TSVM
> ### Title: Transductive SVM classifier using the convex concave procedure
> ### Aliases: TSVM
> 
> ### ** Examples
> 
> library(RSSL)
> 
> # Simple example with a few objects
> X <- matrix(c(0,0.001,1,-1),nrow=2)
> X_u <- matrix(c(-1,-1,-1,0,0,0,-0.4,-0.5,-0.6,1.2,1.3,1.25),ncol=2)
> y <- factor(c(-1,1))
> 
> g_sup <- SVM(X,y,scale=FALSE)
> g_constraint <- TSVM(X=X,y=y,X_u=X_u,
+                      C=1,Cstar=0.1,balancing_constraint = TRUE)
> 
> g_noconstraint <- TSVM(X=X,y=y,X_u=X_u,
+                        C=1,Cstar=0.1,balancing_constraint = FALSE)
> 
> g_lin <- LinearTSVM(X=X,y=y,X_u=X_u,C=1,Cstar=0.1)
> 
> w1 <- g_sup@alpha %*% X
> w2 <- g_constraint@alpha %*% rbind(X,X_u,X_u,colMeans(X_u))
> w3 <- g_noconstraint@alpha %*% rbind(X,X_u,X_u)
> w4 <- g_lin@w
> 
> plot(X[,1],X[,2],col=factor(y),asp=1,ylim=c(-3,3))
> points(X_u[,1],X_u[,2],col="darkgrey",pch=16,cex=1)
> abline(-g_sup@bias/w1[2],-w1[1]/w1[2],lty=2)
> abline(((1-g_sup@bias)/w1[2]),-w1[1]/w1[2],lty=2) # +1 Margin
> abline(((-1-g_sup@bias)/w1[2]),-w1[1]/w1[2],lty=2) # -1 Margin
> abline(-g_constraint@bias/w2[2],-w2[1]/w2[2],lty=1,col="green")
> abline(-g_noconstraint@bias/w3[2],-w3[1]/w3[2],lty=1,col="red")
> abline(-w4[1]/w4[3],-w4[2]/w4[3],lty=1,lwd=3,col="blue")
> 
> # As example
> data <- generateSlicedCookie(200,expected=TRUE,gap=1)
> X <- model.matrix(Class~.-1,data)
> y <- factor(data$Class)
> 
> problem <- split_dataset_ssl(X,y,frac_ssl=0.98)
> 
> X <- problem$X
> y <- problem$y
> X_u <- problem$X_u
> y_e <- unlist(list(problem$y,problem$y_u))
> Xe<-rbind(X,X_u)
> 
> g_sup <- SVM(X,y,scale=FALSE)
> g_constraint <- TSVM(X=X,y=y,X_u=X_u,
+                      C=1,Cstar=0.1,balancing_constraint = TRUE,
+                      x_center = FALSE,verbose=TRUE)
Loss @ Start:  17.94443 
w    @ Start:  -0.9616464 0.2524628 -0.2374881 
Loss @ iteration  0 :  17.81397 
w    @ iteration  0 :  -1.541249 0.3971561 -0.6047763 
Loss @ iteration  1 :  17.6601 
w    @ iteration  1 :  -1.623996 0.2612462 -0.5912764 
Loss @ iteration  2 :  17.635 
w    @ iteration  2 :  -1.627021 0.2416892 -0.5860364 
> 
> g_noconstraint <- TSVM(X=X,y=y,X_u=X_u,
+                        C=10,Cstar=0.001,balancing_constraint = FALSE,
+                        x_center = FALSE,verbose=TRUE)
Loss @ Start:  0.6687535 
w    @ Start:  -0.9616464 0.2524628 -0.2374881 
Error in solve.QP(Dmat = (Ke + diag(1e-08, nrow(Ke))), dvec = xi, Amat = Amat,  : 
  constraints are inconsistent, no solution!
Calls: TSVM -> solve.QP
Execution halted