a few fixes in arums

Author: alfredgalichon

R/arums_RUSC.R

@@ -130,7 +130,7 @@ Gbarx.RUSC <- function (arums, Ubarx, mubarx, x)
     #
     result = genericLP(obj=obj,A=A,modelsense="min",rhs=rhs,sense="=",Q=Q,lb=lb,ub=ub)
     #
-    mux = result$solution[1:nbAlt-1]
+    mux = result$solution[1:(nbAlt-1)]
     Amu = c(arums$aux_A[x,,] %*% matrix(mux,ncol=1))
     Ux  = Amu + arums$aux_b[x,]
     #

R/arums_empirical.R

@@ -159,8 +159,8 @@ Gbarx.empirical <- function(arums, Ubarx, mubarx, x)
     valx = sum(mubarx*Ubarx) - result$objval
     #
     ret = list(valx=valx,
-               Ux=Uoptx,
-               mux=mux)
+               mux=mux,
+               Ux=Uoptx)
     #
     return(ret)
 }