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