converting S expression to RcppArmadillo

RcppExport SEXP ldgc(SEXP u_, SEXP R_) {

    arma::rowvec u = as<arma::rowvec>(u_);
    arma::mat    R = as<arma::mat>(R_);