looloss <-
function(y=NULL,Eigenobject=NULL,lambda=NULL){
            return(solveforc(y=y,Eigenobject=Eigenobject,lambda=lambda)$Le)
        }