Function S4_proxycoerce

inst/tinytest/cpp/S4.cpp:86–93

[[Rcpp::export]]

// [[Rcpp::export]]
std::vector<double> S4_proxycoerce(S4 x_) {
  NumericVector x(x_.slot("data"));
  std::vector<double> xx( x.size() );
  for (int i=0; i < x.size(); ++i) {
    xx[i] = x[i];
  }
  return xx;
}