swh:1:snp:befe93225465c4d51cf0a2943e83cef6438c2239
Tip revision: d470fb9615b6760d70cd3dea3fd550812d02b1bc authored by Leopoldo Catania on 23 July 2017, 19:03:04 UTC
version 0.2.4
version 0.2.4
Tip revision: d470fb9
Density.cpp
#include <RcppArmadillo.h>
#include "DistWrap.h"
using namespace Rcpp;
using namespace arma;
//[[Rcpp::export]]
arma::vec EvaluateLogScore_Univ(arma::mat mTheta, arma::vec vY, std::string Dist, int iT){
arma::vec vLS(iT);
int t;
for(t=0;t<iT;t++){
vLS(t) = ddist_univ(vY(t), mTheta.col(t), Dist, true);
}
return vLS;
}
//[[Rcpp::export]]
arma::vec EvaluateLogScore_Multi(arma::mat mTheta, arma::mat mY, std::string Dist, int iT, int iN){
arma::vec vLS(iT);
int t;
for(t=0;t<iT;t++){
vLS(t) = ddist_multi(mY.col(t), mTheta.col(t), iN, Dist, true);
}
return vLS;
}