lars.pl

:- module(lars, [initModelNoDataNoGram/4, initModelNoDataWithGram/7, initModelWithDataNoGram/10, initModelWithDataWithGram/13, activeSet/2,beta/2, betaPath/3, computeError/7, lambdaPath/2, matUtriCholFactor/3, predict/6, train/9, trainNoBetaReturn/7]).

:- load_files(library(str_decl),
              [when(compile_time), if(changed)]).

%% needed for using the array type and for reading from csv
:- use_module(library(structs)).
:- use_module('../../helper_files/helper.pl').

%% type definitions for the float array
:- foreign_type
       float32          = float_32,
       float_array      = array(float32).

%% definitions for the connected function and what there inputs and output arguments are

%% Funktion
%% input const bool useCholesky, const double lambda1, const double lambda2, const double tolerance
%% output
foreign(initModelNoDataNoGram, c, initModelNoDataNoGram(+integer, +float32, +float32, +float32)).

%% Funktion
%% input const bool useCholesky, const arma::mat & gramMatrix, const double lambda1, const double lambda2, const double tolerance
%% output
foreign(initModelNoDataWithGram, c, initModelNoDataWithGram(+integer, +pointer(float_array), +integer, +integer, +float32, +float32, +float32)).

%% Funktion
%% input const arma::mat & dataMatrix, const arma::rowvec & responses, const bool transposeData, const bool useCholesky, const double lambda1, const double lambda2, const double tolerance
%% output
foreign(initModelWithDataNoGram, c, initModelWithDataNoGram(+pointer(float_array), +integer, +integer, +pointer(float_array), +integer, +integer, +integer, +float32, +float32, +float32)).

%% Funktion
%% input const arma::mat & dataMatrix, const arma::rowvec & responses, const bool transposeData, const bool useCholesky, const arma::mat & gramMatrix, const double lambda1, const double lambda2, const double tolerance
%% output 
foreign(initModelWithDataWithGram, c, initModelWithDataWithGram(+pointer(float_array), +integer, +integer, +pointer(float_array), +integer, +integer, +integer, +pointer(float_array), +integer, +integer, +float32, +float32, +float32)).

%% Funktion 
%% input 
%% output const std::vector<size_t>&
foreign(activeSet, c, activeSet(-pointer(float_array), -integer)).

%% Funktion 
%% input 
%% output arma::vec& 
foreign(beta, c, beta(-pointer(float_array), -integer)).

%% Funktion 
%% input 
%% output std::vector<arma::vec>&
foreign(betaPath, c, betaPath(-pointer(float_array), -integer, -integer)).

%% Funktion 
%% input: const arma::mat &data, const arma::rowvec &responses, const bool rowMajor
%% output: double minimum cost error
foreign(computeError, c, computeError(+pointer(float_array), +integer, +integer, +pointer(float_array), +integer, +integer, [-integer])).

%% Funktion 
%% input 
%% output std::vector<double>&
foreign(lambdaPath, c, lambdaPath(-pointer(float_array), -integer)).

%% Funktion 
%% input 
%% output arma::mat& upper triangular cholesky factor
foreign(matUtriCholFactor, c, matUtriCholFactor(-pointer(float_array), -integer, -integer)).

%% Funktion 
%% input const arma::mat &points, arma::rowvec &predictions, const bool rowMajor
%% output 
foreign(predict, c, predict(+pointer(float_array), +integer, +integer, -pointer(float_array), -integer, +integer)).

%% Funktion 
%% input const arma::mat &data, const arma::rowvec &responses, arma::vec& beta, const bool transposeData
%% output double minimum cost error
foreign(train, c, train(+pointer(float_array), +integer, +integer, +pointer(float_array), +integer, -pointer(float_array), -integer, +integer, [-integer])).

%% Funktion 
%% input const arma::mat &data, const arma::rowvec &responses, const bool transposeData
%% output double minimum cost error
foreign(trainNoBetaReturn, c, trainNoBetaReturn(+pointer(float_array), +integer, +integer, +pointer(float_array), +integer, +integer, [-integer])).


%% Defines what functions should be connected from main.cpp
foreign_resource(lars, [initModelNoDataNoGram, initModelNoDataWithGram, initModelWithDataNoGram, initModelWithDataWithGram, activeSet, beta, betaPath, computeError, lambdaPath, matUtriCholFactor, predict, train, trainNoBetaReturn]).

:- load_foreign_resource(lars).