R/mixmod_adapter.R

In CorReg: Linear Regression Based on Linear Structure Between Variables

# 'adapting mixmod object to be more efficient in C++
# ' @param list from calcul_mixmod 
mixmod_adapter<-function(mixmod){
  res=mixmod
  if(!is.null(res$details)){
    mat=res$details[[1]]
    if(length(res$details)>1){
      for (i in 2:length(res$details)){
        mat=rbind(mat,res$details[[i]])
      }
    }
    res$details=mat
  }
  return(res)
}