Rfunctions.cpp

#include <Rcpp.h>
using namespace Rcpp;


// [[Rcpp::export]]
NumericVector removeNA(NumericVector a)
{
	int vectorLength = a.size();
	NumericVector result(vectorLength);
	for (int i = 0; i < vectorLength ; i++)
	{
		if (NumericVector::is_na(a[i]))
		{
			result[i] = 0;
		}
		else
		{
			result[i] = a[i];
		}	
	}
	return result;
}